[Resolu]cherche module nestopia hl 2.25c

[lankou910]

bonjour

je cherche le module pour nestopia qui fonctionne car celui sur le cloud ne fonctionne pas chez moi

le soucis que je pige pas sous hl tous se lance sans erreur mais sous hyperspin ecran noir comme si nestopia se lance puis retour sur hyperspin.....

je perd mon latin...

PS:pack recuperer ici meme ....un grand merci a stax au passage....

[micaelo14]

;----------------------------------------------------------------------------
; Nintendo Entertainment System
; Nestopia 1.39
; 1.3
;
; Notes:
; Since the exit emulator key does nothing you should setup an escape key within the emulator using the input options, the default is alt+x, so change
; to esc.  But since esc is the default key to bring up the fullscreen menu then you should change that to something else such as Alt+M. The exit emulator menu
; key is disabled to allow for game saving etc...
; exitEsc/exit
; toggle-menuAlt+M/toggle-menu

; Set these keys below
;----------------------------------------------------------------------------
Fullscreen = true
BlackMenu = true            ; Make Nestopia's menu black so it looks better fullscreen
ExitKey = Esc               ; Set Nestopia's Exit key here
ToggleMenuKey = Alt+M   ; Set Nestopia's Toggle Menu key here. Make sure this is not the same as your exit key
;----------------------------------------------------------------------------


settingsFile := CheckFile(emuPath . "nestopia.xml")

FadeInStart()

xpath_load(emuXML, settingsFile ) ; need to read the existing xml otherwise xpath deletes all existing nodes
xpath(emuXML, "/configuration/preferences/application/confirm-exit/text()", "no") ; turning off confirmation on exit
xpath(emuXML, "/configuration/input/keys/file/exit/text()", ExitKey) ; setting exit key
xpath(emuXML, "/configuration/input/keys/view/ToggleMenuKey/text()", ToggleMenuKey) ; setting toggle menu key

; Black Menu
If ( BlackMenu = "true" ) {
   xpath(emuXML, "/configuration/preferences/appearance/menu-fullscreen/custom-color/text()", "0x00000000") ; black
   xpath(emuXML, "/configuration/preferences/appearance/menu-fullscreen/use-custom-color/text()", "yes") ; turning on custom colors
} Else
   xpath(emuXML, "/configuration/preferences/appearance/menu-fullscreen/use-custom-color/text()", "no") ; turning off custom colors

; Enable Fullscreen
If ( Fullscreen = "true" )
   xpath(emuXML, "/configuration/preferences/application/start-fullscreen/text()", "yes")
Else
   xpath(emuXML, "/configuration/preferences/application/start-fullscreen/text()", "no")

xpath_save(emuXML, settingsFile) ; write new XML

7z(romPath, romName, romExtension, 7zExtractDir)

Run, %executable% "%romPath%%romName%%romExtension%", %emuPath%

WinActivate, ahk_class Nestopia
WinWaitActive, ahk_class Nestopia

FadeInExit()

Process, WaitClose, %executable%

7zCleanUp()

FadeOutExit()

WinActivate, Hyperspin

ExitApp

CloseProcess:
    Process, Close, JoyToKey.exe
   FadeOutStart()
   WinClose, ahk_class Nestopia
Return


xpath(ByRef doc, step, set = "") {
   static sc, scb = "" ; use EOT (\x04) as delimiter
   
   If step contains %scb% ; i.e. illegal character
      Return
   sid := scb . doc . ":" ; should be unique identifier for current XML object
   If (InStr(step, "select:") == 1) { ; for quick selection
      stsl = 1
      StringTrimLeft, step, step, 7
   }
   If (InStr(step, "/") == 1)
      str = 1 ; root selected
   Else {
      StringGetPos, p, sc, %sid% ; retrieve previous path
      If ErrorLevel = 1
         t = /
      Else StringMid, t, sc, p += StrLen(sid) + 1, InStr(sc, scb, "", p + 2) - p
      step = %t%/%step%
   }
   
   ; normalize path e.g. /root/node/../child/. becomes /root/child:
   step := RegExReplace(step, "(?=^|/)(?:[^\[/@]+/\.{2}|\.)(?:/|$)|^.+(?=//)")
   
   If (str == 1 or stsl == 1) { ; if not relative path and no select:
      ; remove last node and trailing attributes and functions:
      xpr := RegExReplace(step, (str == 1 and stsl != 1 ? "/(?:\w+:)?\w+(?:\[[^\]]*])?" : "")
         . "(?:/@.*?|/\w+\(\))*$")
      StringReplace, xpr, xpr, [-1], [1], All ; -1 become just 1
      StringReplace, xpr, xpr, [+1], [last()], All ; +1 becomes last()
      StringGetPos, p, sc, %sid%
      If ErrorLevel = 1
         sc = %sc%%sid%%xpr%%scb% ; add record or update as necessary:
      Else sc := SubStr(sc, 1, p += StrLen(sid)) . xpr . SubStr(sc, InStr(sc, scb, "", p))
   }
   
   ; for unions call each operand seperately and join results:
   If (InStr(step, "|")) {
      StringSplit, s, step, |, `n`t  `r
      Loop, %s0%
         res .= xpath(doc, s%A_Index%, set) . ","
      Return, SubStr(res, 1, -1)
   }
   Else If (InStr(step, "//") == 1) { ; for wildcard selectors use regex searching mode:
      StringTrimLeft, step, step, 2
      re = 1
      rew = 1
      xp = /(?:(?:\w+:)?\w+)*/
   }
   
   NumPut(160, doc, 0, "UChar") ; unmask variable
   
   ; resolve xpath components to: absolute node path, attributes and predicates (if any)
   Loop, Parse, step, /
   {
      s = %A_LoopField%
      If (InStr(s, "*") == 1) ; regex mode for wildcards
      {
         re = 1
         s := "(?:\w+:)?\w+" . SubStr(s, 2)
      }
      Else If (InStr(s, "@") == 1) { ; if current step is attribute:
         StringTrimLeft, atr, s, 1
         Continue
      }
      StringGetPos, p, s, [ ; look for predicate opening [...]
      If ErrorLevel = 0
      {
         If s contains [+1],[-1] ; for child nodes record creation instructions in a list
         {
            If A_Index = 2 ; root node creation
            {
               StringLeft, t, s, p
               t = %t%/:: /%t%/
               If (InStr(s, "+1")) {
                  If doc =
                     doc = .
                  doc = %doc%%t%
               }
               Else doc = .%t%%doc%
               StringLeft, s, s, InStr(s, "[") - 1
            }
            Else {
               nw = %nw%%s%
               Continue
            }
         }
         Else { ; i.e. for conditional predicates
            
            If (InStr(s, "last()")) { ; finding last node
               StringLeft, t, s, p
               t := "" . SubStr(xp, 2) . t . "/:: "
               If re ; with regex:
               {
                  os = 0
                  Loop
                     If (!os := RegExMatch(doc, t, "", 1 + os)) {
                        t = %A_Index%
                        Break
                     }
                  t--
               }
               Else { ; otherwise using StringReplace
                  StringReplace, doc, doc, %t%, %t%, UseErrorLevel
                  t = %ErrorLevel%
               }
               If (RegExMatch(s, "i)last\(\)\s*\-\s*(\d+)", a)) ; i.e. [last() - 2]
                  StringReplace, s, s, %a%, % t - a1
               Else StringReplace, s, s, last(), %t%
            }
            
            ; concat. the predicate to the list against the current absolute path:
            ax = %ax%%xp%%s%
            StringLeft, s, s, p
         }
      }
      Else If (InStr(s, "()")) { ; if step is function, add to list
         fn = %fn%+%s% ; use + prefix to prevent overlapping naming conflicts
         Continue
      }
      ; finally, if step is not any of the above, assume it's the name of a child node
      xp = %xp%%s%/ ; ... and add to list, forming the absolute path
   }
   
   If (xp == "" or xp == "/") ; i.e. error cases
      Return
   
   ; remove initial root selector (/) as this is how the parser works by default:
   StringTrimLeft, xp, xp, 1
   StringTrimRight, ax, ax, 1
   
   StringTrimRight, nw, nw, 1
   
   ct = 0 ; counter
   os = 0 ; offset for main loop starts at zero
   Loop {
      ; find offset of next element, and its closing tag offset:
      If re
         os := RegExMatch(doc, "" . xp . ":: ", "", 1 + os)
            , osx := RegExMatch(doc, "/" . xp . "", rem, os) + StrLen(rem)
      Else {
         StringGetPos, osx, doc, /%xp%, , os := InStr(doc, "" . xp . ":: ", true, 1 + os)
         osx += 4 + StrLen(xp)
      }
      If os = 0 ; stop looping when no more tags are found
         Break
      
      ; predicate parser:
      If ax !=
      {
         sk = 0
         Loop, Parse, ax, ] ; for each predicate
         {
            ; split components to: (1) path, (2) selector, (3) operator, (4) quotation char, (5) operand
            If (!RegExMatch(A_LoopField, "/?(.*?)\[(.+?)(?:\s*([!=]{1,2})\s*(['""])?(.+)(?(4)\4))?\s*$", a))
               Continue
            a1 = %a1%/
            If re
               RegExMatch(rem, "(?=^/)" . a1, a1)
            
            If a2 is integer ; i.e. match only certain index
            {
               StringGetPos, t, a1, /, R2
               StringMid, t, a1, 1, t + 1
               t := InStr(SubStr(doc, 1, os), "" . t . ":: ", true, 0)
               ; extract parent node:
               StringMid, sub, doc, t, InStr(doc, "", "", os) - t
               xpf := "" . a1 . ":: "
               ; get index of current element within parent node:
               StringReplace, sub, sub, %xpf%, %xpf%, UseErrorLevel
               If a2 != %ErrorLevel%
                  sk = 1
               Continue
            }
            
            StringReplace, xp, xp, /, /, UseErrorLevel
            t = %ErrorLevel%
            StringReplace, a1, a1, /, /, UseErrorLevel
            
             ; extract result for deep analysis
            If t = %ErrorLevel% ; i.e. /root/node[child='test']
               StringMid, sub, doc, os, osx - os
            Else StringMid, sub, doc
                   , t := InStr(SubStr(doc, 1, os), "" . a1 . ":: ", true, 0)
                   , InStr(doc, "/" . a1 . "", true, t) + 1
            
            If a2 = position()
               sub = %i%
            Else If (InStr(a2, "@") == 1) ; when selector is an attribute:
             RegExMatch(SubStr(sub, 1, InStr(sub, ""))
                  , a3 == "" ? "\b" . SubStr(a2, 2) . "=([""'])[^\1]*?\1"
                  : "\b(?=" . SubStr(a2, 2) . "=([""']))[^\1]+?(?=\1)", sub)
            Else ; otherwise child node:
            {
               If a2 = . ; if selector is current node don't append to path:
                  a2 = /
               Else a2 = %a2%/
               StringMid, sub, sub
                  , t := InStr(sub, "", "", InStr(sub, "" . a1 . a2 . ":: ", true) + 1) + 1
                  , InStr(sub, "/" . a1 . a2 . "", true) - t
            }
            
            ; dynamic mini expression evaluator:
            sk += !(a3 == "" ? (sub != "")
               : a3 == "=" ? sub == a5
               : a3 == "!=" ? sub != a5
               : a3 == "" ? sub a5
               : a3 == "=" ? sub = a5
               : a3 == "" ? sub a5
               : a3 == "=" ? sub = a5)
         }
         If sk != 0 ; if conditions were not met for this result, skip it
            Continue
      }
      
      If nw != ; for node creation
      {
         If re
            nwp := SubStr(rem, 3, -1)
         Else nwp = %xp%
         Loop, Parse, nw, ]
         {
            StringLeft, nwn, A_LoopField, InStr(A_LoopField, "[") - 1
            nwn = %nwn%/
            nwt = %nwp%%nwn%:: /%nwp%%nwn%
            If (t := InStr(A_LoopField, "-1")
               ? InStr(doc, "", "", InStr(doc, "" . nwp . ":: ", true, os) + 1) + 1
               : InStr(doc, "/" . nwp . "", true, os))
               os := t
            StringLen, osx, nwt
            osx += os
            doc := SubStr(doc, 1, os - 1) . nwt . SubStr(doc, os)
            nwp = %nwp%%nwn%
         }
         StringLen, t, nwp
         If (InStr(fn, "+text()") and atr == "")
            os += t + 5, osx -= t + 3
      }
      
      If atr !=
      {
         ; extract attribute offsets, with surrounding declaration if text() is not used:
         If (t := RegExMatch(SubStr(doc, os, InStr(doc, "", "", os) - os), InStr(fn, "+text()")
            ? "(?=\b" . atr . "=([""']))[^\1]*?(?=\1)"
            : "\b" . atr . "=([""'])[^\1]*?\1", rem))
            os += t - 1, osx := os + StrLen(rem)
         Else { ; create attribute
            os := InStr(doc, "", "", os + 1)
               , doc := SubStr(doc, 1, os - 1) . " " . atr . "=""""" . SubStr(doc, os)
               , osx := ++os + StrLen(atr) + 3
            If (InStr(fn, "+text()"))
               osx := os += StrLen(atr) + 2
         }
      }
      Else If (InStr(fn, "+text()") and nw == "") ; for text content:
         os := InStr(doc, "", "", os) + 1, osx := InStr(doc, re ? rem : "/" . xp . "", true, os)
      
      If InStr(fn, "+index-of()") ; get index rather than content
         sub = %A_Index%
      Else StringMid, sub, doc, os, osx - os ; extract result
      
      If (InStr(fn, "+count()")) ; increment counter if count() function is used
         ct++
      Else res = %res%%sub%, ; ... and concat to list
      
      If (set != "" or InStr(fn, "+remove()")) ; modify or remove...
         setb = %setb%%os%.%osx%| ; mark for modification
   }
   
   If setb !=
   {
      If (InStr(set, "node:") == 1) {
         set := SubStr(xpath(doc, SubStr(set, 6) . "/rawsrc()"), 2)
         StringReplace, set, set, , %xp%, All
         StringReplace, set, set, %xp%/, /%xp%, All
         NumPut(160, doc, 0, "UChar")
      }
      StringTrimRight, setb, setb, 1
      Loop, Parse, setb, |
      {
         StringSplit, setp, A_LoopField, .
         StringLen, t, xp
         If (InStr(fn, "+append()"))
            setp2 := setp1 := setp2 - t - 3
         Else If (InStr(fn, "+prepend()"))
            setp2 := setp1 := InStr(doc, "", "", setp1) + 2
         doc := SubStr(doc, 1, setp1 - 1) . set . SubStr(doc, setp2) ; dissect then insert new value
      }
   }
   
   If (InStr(fn, "+count()"))
      res = %ct%, ; trailing char since SubStr is used below
   
   nsid := scb . doc . ":" ; update sid as necessary
   If nsid != %sid%
      StringReplace, sc, sc, %sid%, %nsid%
   
   NumPut(0, doc, 0, "UChar") ; remask variable to prevent external editing
   StringTrimRight, res, res, 1
   If (InStr(fn, "+rawsrc()")) {
      StringTrimLeft, t, xpr, 1
      StringReplace, res, res, %t%/, , All
      StringReplace, res, res, /%t%, , All
      StringReplace, res, res, `,, `,%scb%, All
      Return, scb . res
   }
   ; remove trailing comma and absolute paths from result before returning:
   Return, RegExReplace(res, "S)(?=)(\/)?(?:(\w+)\/)+(?(1)|:: )", "$1$2")
}

xpath_save(ByRef doc, src = "") {
   xml := RegExReplace(SubStr(doc, 2), "S)(?=)(\/)?(?:(\w+)\/)+(?(1)|:: )", "$1$2") ; remove metadata
   xml := RegExReplace(xml, "([\w:]+)([^]*)\/\1", "$1$2 /") ; fuse empty nodes
   ;xml := RegExReplace(xml, " (?=(?:\w+:)?\w+=['""])") ; remove prepending whitespace on attributes
   xml := RegExReplace(xml, "^\s+|\s+$") ; remove start and leading whitespace
   If InStr(xml, "?xml") != 1 ; add processor instruction if there isn't any:
      xml = ?xml version="1.0" encoding="iso-8859-1"?`n%xml%
   StringReplace, xml, xml, `r, , All ; normalize linefeeds:
   StringReplace, xml, xml, `n, `r`n, All
   sp := "  "
   StringLen, sl, sp
   s =
   VarSetCapacity(sxml, StrLen(xml) * 1.1)
   Loop, Parse, xml, , `n`t     `r
   {
      If A_LoopField =
         Continue
      If (sb := InStr(A_LoopField, "/") == 1)
         StringTrimRight, s, s, sl
      sxml = %sxml%`n%s%%A_LoopField%
      If sb
         StringTrimRight, s, s, sl
      If (InStr(A_LoopField, "?") != 1 and InStr(A_LoopField, "!") != 1
         and !InStr(A_LoopField, "/"))
         s .= sp
   }
   StringTrimLeft, sxml, sxml, 1
   sxml := RegExReplace(sxml, "(\n(?:" . sp . ")*((?:\w+:)?\w+\b)[^]+?)\n(?:"
      . sp . ")*/\2", "$1/$2")
   If src = ; if save path not specified return the XML document:
      Return, sxml
   FileDelete, %src% ; delete existing file
   FileAppend, %sxml%, %src% ; create new one
   Return, ErrorLevel ; return errors, if any
}

xpath_load(ByRef doc, src = "") {
   If src = ; if source is empty assume the out variable is the one to be loaded
      src = %doc%
   Else If FileExist(src) ; otherwise read from file (if it exists)
      FileRead, src, %src%
   If src not contains ,
      Return, false
   ; combined expressions slightly improve performance:
   src := RegExReplace(src, "((?:\w+:)?\w+\b)([^]*)\/\s*", "$1$2/$1") ; defuse nodes
      , VarSetCapacity(doc, VarSetCapacity(xml, StrLen(src) * 1.5) * 1.1) ; pre-allocate enough space
   Loop, Parse, src, ; for each opening tag:
   {
      If (A_Index == 2 and InStr(A_LoopField, "?xml") == 1)
         Continue
      Else If (InStr(A_LoopField, "?") == 1) ; ignore all other processor instructions
         xml = %xml%%A_LoopField%
      Else If (InStr(A_LoopField, "![CDATA[") == 1) { ; escape entities in CDATA sections
         cdata := SubStr(A_LoopField, 9, -3)
         StringReplace, cdata, cdata, ", quot;, All
         StringReplace, cdata, cdata, , amp;, All
         StringReplace, cdata, cdata, ', apos;, All
         StringReplace, cdata, cdata, , lt;, All
         StringReplace, cdata, cdata, , gt;, All
         xml = %xml%%cdata%
      }
      Else If (!pos := RegExMatch(A_LoopField, "^\/?(?:\w+:)?\w+", tag)) ; if this isn't a valid tag:
      {
         If A_LoopField is not space
            xml = %xml%lt;%A_LoopField% ; convert to escaped entity value
      }
      Else {
         StringMid, ex, A_LoopField, pos + StrLen(tag) ; get tag name
         If InStr(tag, "/") = 1 { ; if this is a closing tag:
            xml = %xml%/%pre%%ex% ; close tag
            StringGetPos, pos, pre, /, R2
            StringLeft, pre, pre, pos + 1
         }
         Else {
            pre = %pre%%tag%/
            xml = %xml%%pre%:: %ex%
         }
      }
   }
   StringReplace, doc, xml, `,, ,, All ; entity escape commas (which are used as array delimiters)
   NumPut(0, doc := " " . doc, 0, "UChar") ; mask variable from text display with nullbyte
   Return, true ; assume sucessful load by this point
}

Voilou

[lankou910]

merci micaelo14 et bonne fete    

[micaelo14]

à toi aussi

[Verbal]

Ha !!!! je savais bien que je trouverai un post avec le même problème que moi ........  

Et la réponse de Micaelo a l'air de super bien marché.........sauf que je comprend pas à quoi ça fait référence et ou il faudrait changer un truc..........  

Ha bé oui hein j'suis un vrai plot en langage informatique 

J'ai copié/collé dans le fichier ahk du module mais ça change rien..........( c'était pas ça???lol)

[Firch]

le module ci-dessus est optimisé pour la version 1.39 de nestopia, si tu utilise une autre version, ça risque de ne pas fonctionner correctement
donc la question que je te pose, c'est as-tu la bonne version de l'emulateur?

[Verbal]

J'ai vérifié juste avant de partir au sport et c'est la version 1.40 celle du pack de Stax......

Dés que je rentre je me met a la recherche du 1.39   :study:  

Merci pour ta réponse Firch'    

J'espère que c'est la solution   :bounce:

édit: J'ai téléchargé le 1.39 mais quand je veux lancer un jeux nes via hyperspin et même via hyperlaunch ça m'écrit "Mauvaise copie ou format de disque non standard,l'émulation peut échouer à cause du format de fichier FDS."

alors qu'avec la 1.40 ça foirait sous hyperspin mais pas sous hyperlaunch.......... 

Si je change Nestopia dans le fichier "émulators" et que je change le module (ce que j'ai fait) je me dit qu'il y a peut être un autre endroit ou je dois changer quelquechose......mais ou????   :study: