pokecrystal-board/engine/buena_phone_scripts.asm

171 lines
2.5 KiB
NASM

BuenaPhoneScript1:
checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
iftrue BuenaPhoneScript_Rocket
checkcode VAR_HOUR
if_greater_than 17, BuenaPhoneScript_AfterMidnight1
scall BuenaPhoneScript_CheckTimeOfDay1
jump BuenaPhoneScript_Random1
BuenaPhoneScript2:
checkflag ENGINE_ROCKETS_IN_RADIO_TOWER
iftrue BuenaPhoneScript_Rocket
scall BuenaPhoneScript_CheckTimeOfDay2
jump BuenaPhoneScript_Random2
BuenaPhoneScript_CheckTimeOfDay1:
checkmorn
iftrue .morn
checkday
iftrue .day
writetext UnknownText_0xa0d42
buttonsound
end
.morn
writetext UnknownText_0xa0c28
buttonsound
end
.day
writetext UnknownText_0xa0c72
buttonsound
end
BuenaPhoneScript_AfterMidnight1:
writetext UnknownText_0xa0caf
end
BuenaPhoneScript_CheckTimeOfDay2:
checkcode VAR_HOUR
if_greater_than 17, BuenaPhoneScript_AfterMidnight2
checkmorn
iftrue .morn
checkday
iftrue .day
writetext UnknownText_0xa0e29
buttonsound
end
.morn
writetext UnknownText_0xa0d96
buttonsound
end
.day
writetext UnknownText_0xa0dcf
buttonsound
end
BuenaPhoneScript_AfterMidnight2:
writetext UnknownText_0xa0e01
buttonsound
end
BuenaPhoneScript_Rocket:
writetext UnknownText_0xa0e5e
end
BuenaPhoneScript_Random2:
checkevent EVENT_BEAT_ELITE_FOUR
iftrue .PostE4
random 11
jump .Jumptable
.PostE4:
random 14
.Jumptable:
if_equal 0, .zero
if_equal 1, .one
if_equal 2, .two
if_equal 3, .three
if_equal 4, .four
if_equal 5, .five
if_equal 6, .six
if_equal 7, .seven
if_equal 8, .eight
if_equal 9, .nine
if_equal 10, .ten
if_equal 11, .eleven
if_equal 12, .twelve
if_equal 13, .thirteen
.zero
writetext UnknownText_0xa0efb
jump .finish
.one
writetext UnknownText_0xa0fcf
jump .finish
.two
writetext UnknownText_0xa109d
jump .finish
.three
writetext UnknownText_0xa1143
jump .finish
.four
writetext UnknownText_0xa1244
jump .finish
.five
writetext UnknownText_0xa1318
jump .finish
.six
writetext UnknownText_0xa13d8
jump .finish
.seven
writetext UnknownText_0xa1488
jump .finish
.eight
writetext UnknownText_0xa15de
jump .finish
.nine
writetext UnknownText_0xa1717
jump .finish
.ten
writetext UnknownText_0xa183d
jump .finish
.eleven
writetext UnknownText_0xa19b1
jump .finish
.twelve
writetext UnknownText_0xa1ac0
jump .finish
.thirteen
writetext UnknownText_0xa1bed
.finish
end
BuenaPhoneScript_Random1:
random 3
if_equal 0, .zero
if_equal 1, .one
if_equal 2, .two
.zero
writetext UnknownText_0xa1c88
end
.one
writetext UnknownText_0xa1d5f
end
.two
writetext UnknownText_0xa1e2f
end
; a0c28
INCLUDE "text/phone/buena.asm"