altariaking
Needs NO VMs...
- 1,087
- Posts
- 15
- Years
- Age 50
- Scotland, Lesmahagow
- Seen Aug 3, 2015
And where might that be? I'v looked for it but I can't find it. If it's out there of course. xP
...it's in the rom hacking forum and it's stickied...
And where might that be? I'v looked for it but I can't find it. If it's out there of course. xP
I saw some post about saying that var 0x800C (Where the player is facing) is usable anymore. Is that true? Because I want to make a script and it needs the use of that variable.
[B]setvar 0x800C 0x0000
copybyte 0x020370D4 0x02036E58[/B]
compare 0x800C 0x01 'Is the player facing down?
if 0x01 call @down
compare 0x800C 0x02 'Is the player facing up?
if 0x01 call @up
compare 0x800C 0x03 'Is the player facing left?
if 0x01 call @left
compare 0x800C 0x04 'Is the player facing right?
if 0x01 call @right
#org $start
lockall
special 0x8F
checkattack 0x1D
compare 0x800D 0x06
if 0x01 goto $dontknow
storepokemon2 0x00 0x800D
setanimation 0x00 0x800D
message $message1
$message1 1 = Do you want to use ROCK CLIMB\nto climb them?
boxset 5
compare 0x800D 0x00
if 0x01 goto $dontwant
doanimation 0x25
waitstate
setvar 0x800C 0x0
copybyte 0x020370D4 0x02036E58
compare 0x800C 0x1
if 0x01 goto $down
compare 0x800C 0x2
if 0x01 goto $up
compare 0x800C 0x3
if 0x01 goto $left
compare 0x800C 0x4
if 0x01 goto $right
end
#org $down
addvar 0x8005 0x1
special 0x7F
compare 0x8005 0x008D
if 0x01 goto $stepdown
compare 0x8005 0x008D
if 0x00 goto $endingstepdown
end
#org $up
subvar 0x8005 0x1
special 0x7F
compare 0x8005 0x008D
if 0x01 goto $stepup
compare 0x8005 0x008D
if 0x00 goto $endingstepup
end
#org $left
subvar 0x8004 0x1
special 0x7F
compare 0x8005 0x008D
if 0x01 goto $stepleft
compare 0x8005 0x008D
if 0x00 goto $endingstepleft
end
#org $right
addvar 0x8004 0x1
special 0x7F
compare 0x8005 0x008D
if 0x01 goto $stepright
compare 0x8005 0x008D
if 0x00 goto $endingstepright
end
#org $stepdown
applymovement $1down
goto $down
#org $stepup
applymovement $1up
goto $up
#org $stepleft
applymovement $1left
goto $left
#org $stepright
applymovement $1right
goto $right
#org $endingstepdown
applymovement $1down
$1down 1 ; #binary 0x10 0xFE
pausemove 0
releaseall
end
#org $endingstepup
applymovement $1up
$1up 1 ; #binary 0x11 0xFE
pausemove 0
releaseall
end
#org $endingstepleft
applymovement $1left
$1left 1 ; #binary 0x12 0xFE
pausemove 0
releaseall
end
#org $endingstepright
applymovement $1right
$1right 1 ; #binary 0x13 0xFE
pausemove 0
releaseall
end
#org $dontknow
message $message3
$message3 1 = A Pokémon could climb them.
boxset 6
releaseall
end
#org $dontwant
releaseall
end