tuts_gba
Thread Id: 29995
Thread Name: BW2 Repel System (sorta) en emerald
#0
Dark Sneasel 28274
Alright, so with the help of Le Pug and Touched, I've made a very, very ratchet system for it. The repel's effect wore off script offset is at 2A4B2A, so you can repoint it or just goto [MENTION=17182]pointer[/MENTION] it...
Anyways, of course, this would be much better with a multichoice, but just for testing I did yes/no boxes. Anyways, here it is, you don't need to credit us or anything..

#dynamic 0xE40000
#org @start
lockall
msgbox [MENTION=19259]WOR[/MENTION]eoff 0x6
msgbox @1 0x5
compare 0x800D 0x1
if 0x1 goto @Repel
msgbox @2 0x5
compare 0x800D 0x1
if 0x1 goto @Super
msgbox @3 0x5
compare 0x800D 0x1
if 0x1 goto [MENTION=13003]Max[/MENTION]
releaseall
end

#org @Repel
checkitem 0x56 0x1
compare 0x800D 0x1
if 0x4 goto @rp
msgbox @notenough 0x6
releaseall
end

#org @notenough
= You don't have enough.

#org @rp
sound 0x2F
msgbox @usedr MSG_SIGN
removeitem 0x56 0x1
setvar 0x4021 100
release
end

#org @usedr
= [player] used a Repel.

#org @1
= Use a Repel?

#org @2
= Use a Super Repel?

#org @3
= Use a Max Repel?

#org @Super
checkitem 0x53 0x1
compare 0x800D 0x1
if 0x4 goto @sp
msgbox @notenough 0x6
releaseall
end

#org @sp
sound 0x2F
msgbox @useds MSG_SIGN
removeitem 0x53 0x1
setvar 0x4021 200
releaseall
end

#org @useds
= [player] used a Super Repel.

#org [MENTION=13003]Max[/MENTION]
checkitem 0x54 0x1
compare 0x800D 0x1
if 0x4 goto @mp
msgbox @notenough 0x6
releaseall
end

#org @mp
sound 0x2F
msgbox @usedm MSG_SIGN
removeitem 0x54 0x1
setvar 0x4021 250
release
end

#org @usedm
= [player] used a Max Repel.

#org [MENTION=19259]WOR[/MENTION]eoff
= The Repel's effect wore off[.]
#1
Cheve_X 15014
Thank you very much for this! :D

I will use it for sure :3
#2
necrosis corrosiva 28588
this scripts work in FIRE RED too?
#3
Dark Sneasel 28274
Iniciado por necrosis corrosiva
this scripts work in FIRE RED too?


No hay razon. Yo hice esto porque hay una rutina para FR que nadie a puesto en Emerald. http://www.pokecommunity.com/showthread.php?t=291023