Pokemon Hacking!! Beberapa script di Pokemon Nusantara!

Hai guys.

Sambil nunggu makan malam istimewa gw mateng(mi rebus), gw bakal meluangkan waktu buat nulis beberapa hal untuk blog gw.

Malam ini gw bakal membocorkan scipt-script yang udah gw rancang yang digunakan di Pokemon Hack gw sendiri, Pokemon Nusantara.

Script-script berikut mungkin berguna buat kalian yang juga sedang dalam project Pokemon Hacking :)

Perlu diingat bahwa kalian harus udah punya basis dalam script XSE, untuk mengerti scriptku.


Berikut Scriptnya:

Fish Bait:

#dynamic 0x800000

#org @start
lock
checkflag 0x(Flag)
compare LASTRESULT 0x1
if 0x1 call @already
msgbox @bagusbuatbait 0x2
checkitem 0x26 0x1
compare lastresult 0x1
if 0x1 call @taruhbait
setflag 0x(FLAG)
release
end

#org @taruhbait
msgbox @hunny 0x5
compare LASTRESULT 0x1
if 0x1 call @ona
return

#org @already
msgbox @pokemon 0x2
random 0xA
compare LASTRESULT 0x0
if 0x1 call @1
compare LASTRESULT 0x1
if 0x1 call @2
compare LASTRESULT 0x2
if 0x1 call @3
compare LASTRESULT 0x3
if 0x1 call @4
compare LASTRESULT 0x4
if 0x1 call @5
compare LASTRESULT 0x5
if 0x1 call @6
compare LASTRESULT 0x6
if 0x1 call @7
compare LASTRESULT 0x7
if 0x1 call @8
compare LASTRESULT 0x8
if 0x1 call @9
compare LASTRESULT 0x9
if 0x1 call @10
clearflag 0x(FLAG)
release
end

#org @1
msgbox @kosong 0x2
return

#org @2
msgbox @kosong 0x2
return

#org @10
msgbox @yup 0x2
wildbattle 0x(PkmnID) 0x(HOldtiem)
return

#org @4
msgbox @yup 0x2
wildbattle 0x(PkmnID) 0x(HOldtiem)
return

#org @5
msgbox @yup 0x2
wildbattle 0x(PkmnID) 0x(HOldtiem)
return

#org @6
msgbox @yup 0x2
wildbattle 0x(PkmnID) 0x(HOldtiem)
return

#org @7
msgbox @yup 0x2
wildbattle 0x(PkmnID) 0x(HOldtiem)
return

#org @8
msgbox @yup 0x2
wildbattle 0x(PkmnID) 0x(HOldtiem)
return

#org @9
msgbox @yup 0x2
wildbattle 0x(PkmnID) 0x(HOldtiem)
return

#org @3
msgbox @kosong 0x2
end

#org @ona
removeitem 0x26 0x1
msgbox @hungry 0x2
return

#org @pokemon
= Huh? Apakah ada Pokemon disini?

#org @bagusbuatbait
= Dataran Air ini kelihatan bagus\nuntuk ditaruh beberapa Bait.

#org @hunny
= Mau mencoba menaruh beberapa Bait?

#org @hungry
= [player] menaruh beberapa Bait.

#org @kosong
= Hm... Belum ada apa-apa disini,\nhanya ada Bait yang tadi.

#org @yup
= Eh! Ada Wild Pokemon yang sedang\nmemakan Bait yang ditaruh tadi!\pEntering Battle!

Life Boulder/lake/tree:

 

 

 

 

#dynamic 0x800000
#define cAttack 0x(AttackID)

#org @Main
lockall
checkattack cAttack
compare 0x800D 0x06
if 0x01 goto @gabisa
setanimation 0x00 0x800D
bufferpartypokemon 0x00 0x800D
bufferattack 0x01 cAttack
msgbox @adalife 0x05
compare 0x800D 0x00
if 0x01 goto @gamau
msgbox @menggunakann 0x04
closeonkeypress
doanimation 0x25
waitstate
setvar 0x8004 0x01
setvar 0x8005 0x01
setvar 0x8006 0x0C
setvar 0x8007 0x02
special 0x136
pause 0x20
special 0xAB
compare 0x800D 0x00
if 0x1 goto @gamau
waitstate
releaseall
end

#org @gabisa
msgbox @adapokemon 0x03
end

#org @gamau
releaseall
end


#org @adalife
= Ada Life Boulder, ada beberapa Pokemon didalamnya, mau coba?

#org @menggunakann
= [buffer1] menggunakan [buffer2]!

#org @adapokemon
= Ada Life Boulder, ada beberapa Pokemon didalamnya.




Oke, segitu aja deh, kalau kebanyakan nanti ga seru ;)




Thanks for stop by! Stay tuned for more!