|
|
Creato da developer.web il 14/03/2014
Web Developer
|
Chi puņ scrivere sul blog
Solo l'autore puņ pubblicare messaggi in questo Blog e tutti gli utenti registrati possono pubblicare commenti.
Area personale
- Login
Menu
I miei link preferiti
Cerca in questo Blog
Tag
Ultime visite al Blog
NO TROLL
| « Javascript: Convertire u... | Beyond Good & Evil - Aku... » |
|
Post n°8 pubblicato il 13 Novembre 2014 da developer.web
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.
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 |
Condividi e segnala
La URL per il Trackback di questo messaggio è:
https://blog.libero.it/developerweb/trackback.php?msg=13016850
I blog che hanno inviato un Trackback a questo messaggio:
https://blog.libero.it/developerweb/trackback.php?msg=13016850
I blog che hanno inviato un Trackback a questo messaggio:
Nessun trackback
Commenti al Post:
Beyond Good & Evil - Akuda Bar Box Code for Mdisk13
Nessun commento
