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
	keeptextopen
	end

.morn:
	writetext UnknownText_0xa0c28
	keeptextopen
	end

.day:
	writetext UnknownText_0xa0c72
	keeptextopen
	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
	keeptextopen
	end

.morn:
	writetext UnknownText_0xa0d96
	keeptextopen
	end

.day:
	writetext UnknownText_0xa0dcf
	keeptextopen
	end

BuenaPhoneScript_AfterMidnight2:
	writetext UnknownText_0xa0e01
	keeptextopen
	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"