Piccolo Script in VB che legge il savegeme del gioco Beyond Good & Evil per scovare il famigerato codice per avere il disco 13 col gioco di Francis. E praticamente ti evita di doverti iscriverti alla Darkroom.Aprite Notepad e incollate questo Script in un nuovo documento. Salvate il tutto con estensione .vbs, e avrete così il vostro "scova codici". Basterà inserirlo nella cartella di gioco vicino i file savegame e lui ne leggera il contenuto per scovarne i codici. Dim fso, savegame, i, lista, objFile, letto, k1, k2, k3, k4, alphabet, codice alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" lista = "" For i = 0 To 4 Set fso = CreateObject("Scripting.FileSystemObject") savegame = "slot" & i & ".sav" If fso.FileExists(savegame) Then Set objFile = fso.OpenTextFile(savegame, 1) letto = objFile.Read(11622) k1 = Asc(Mid(letto,11608+1,1)) k2 = Asc(Mid(letto,11612+1,1)) k3 = Asc(Mid(letto,11616+1,1)) k4 = Asc(Mid(letto,11620+1,1)) codice = Mid(alphabet,k1,1) & Mid(alphabet,k2,1) & Mid(alphabet,k3,1) & Mid(alphabet,k4,1) lista = lista & vbcrlf & savegame & " code: " & codice Set objFile = Nothing End If Set fso = Nothing Next If lista = "" Then MsgBox "No savegame files found !!", 0, " :: ALERT !!" Else MsgBox "Akuda Bar Box Code:" & vbcrlf & " " & lista, 0, " :: Mdisk #13" End If
Beyond Good & Evil - Akuda Bar Box Code for Mdisk13
Piccolo Script in VB che legge il savegeme del gioco Beyond Good & Evil per scovare il famigerato codice per avere il disco 13 col gioco di Francis. E praticamente ti evita di doverti iscriverti alla Darkroom.Aprite Notepad e incollate questo Script in un nuovo documento. Salvate il tutto con estensione .vbs, e avrete così il vostro "scova codici". Basterà inserirlo nella cartella di gioco vicino i file savegame e lui ne leggera il contenuto per scovarne i codici. Dim fso, savegame, i, lista, objFile, letto, k1, k2, k3, k4, alphabet, codice alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789" lista = "" For i = 0 To 4 Set fso = CreateObject("Scripting.FileSystemObject") savegame = "slot" & i & ".sav" If fso.FileExists(savegame) Then Set objFile = fso.OpenTextFile(savegame, 1) letto = objFile.Read(11622) k1 = Asc(Mid(letto,11608+1,1)) k2 = Asc(Mid(letto,11612+1,1)) k3 = Asc(Mid(letto,11616+1,1)) k4 = Asc(Mid(letto,11620+1,1)) codice = Mid(alphabet,k1,1) & Mid(alphabet,k2,1) & Mid(alphabet,k3,1) & Mid(alphabet,k4,1) lista = lista & vbcrlf & savegame & " code: " & codice Set objFile = Nothing End If Set fso = Nothing Next If lista = "" Then MsgBox "No savegame files found !!", 0, " :: ALERT !!" Else MsgBox "Akuda Bar Box Code:" & vbcrlf & " " & lista, 0, " :: Mdisk #13" End If