diff options
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/battle/trainer_scripts.asm | 31 | ||||
| -rw-r--r-- | engine/fish.asm | 133 | ||||
| -rw-r--r-- | engine/fruit_trees.asm | 132 | ||||
| -rw-r--r-- | engine/player_gfx.asm | 40 | ||||
| -rwxr-xr-x | engine/pokecenter_pc.asm | 678 | ||||
| -rwxr-xr-x | engine/pokepic.asm | 49 | ||||
| -rw-r--r-- | engine/pokerus/apply_pokerus_tick.asm | 26 | ||||
| -rw-r--r-- | engine/pokerus/check_pokerus.asm | 25 | ||||
| -rw-r--r-- | engine/pokerus/pokerus.asm | 160 | ||||
| -rwxr-xr-x | engine/prof_oaks_pc.asm | 213 | ||||
| -rw-r--r-- | engine/specials.asm | 1 | ||||
| -rw-r--r-- | engine/std_scripts.asm | 1914 |
12 files changed, 1 insertions, 3401 deletions
diff --git a/engine/battle/trainer_scripts.asm b/engine/battle/trainer_scripts.asm deleted file mode 100644 index 212cd7f28..000000000 --- a/engine/battle/trainer_scripts.asm +++ /dev/null @@ -1,31 +0,0 @@ -TalkToTrainerScript:: ; 0xbe66a - faceplayer - trainerflagaction CHECK_FLAG - iftrue AlreadyBeatenTrainerScript - loadmemtrainer - encountermusic - jump StartBattleWithMapTrainerScript - -SeenByTrainerScript:: ; 0xbe675 - loadmemtrainer - encountermusic - showemote EMOTE_SHOCK, LAST_TALKED, 30 - callasm TrainerWalkToPlayer - applymovement2 MovementBuffer - writeobjectxy LAST_TALKED - faceobject PLAYER, LAST_TALKED - jump StartBattleWithMapTrainerScript - -StartBattleWithMapTrainerScript: ; 0xbe68a - opentext - trainertext $0 - waitbutton - closetext - loadmemtrainer - startbattle - reloadmapafterbattle - trainerflagaction SET_FLAG - loadvar wRunningTrainerBattleScript, -1 - -AlreadyBeatenTrainerScript: - scripttalkafter diff --git a/engine/fish.asm b/engine/fish.asm deleted file mode 100644 index c571bba56..000000000 --- a/engine/fish.asm +++ /dev/null @@ -1,133 +0,0 @@ -Fish: ; 92402 -; Using a fishing rod. -; Fish for monsters with rod e in encounter group d. -; Return monster e at level d. - - push af - push bc - push hl - - ld b, e - call GetFishGroupIndex - - ld hl, FishGroups -rept 7 - add hl, de -endr - call .Fish - - pop hl - pop bc - pop af - ret -; 9241a - - -.Fish: ; 9241a -; Fish for monsters with rod b from encounter data in FishGroup at hl. -; Return monster e at level d. - - call Random - cp [hl] - jr nc, .no_bite - - ; Get encounter data by rod: - ; 0: Old - ; 1: Good - ; 2: Super - inc hl - ld e, b - ld d, 0 - add hl, de - add hl, de - ld a, [hli] - ld h, [hl] - ld l, a - - ; Compare the encounter chance to select a Pokemon. - call Random -.loop - cp [hl] - jr z, .ok - jr c, .ok - inc hl - inc hl - inc hl - jr .loop -.ok - inc hl - - ; Species 0 reads from a time-based encounter table. - ld a, [hli] - ld d, a - and a - call z, .TimeEncounter - - ld e, [hl] - ret - -.no_bite - ld de, 0 - ret - -.TimeEncounter: - ; The level byte is repurposed as the index for the new table. - ld e, [hl] - ld d, 0 - ld hl, TimeFishGroups -rept 4 - add hl, de -endr - - ld a, [TimeOfDay] - and 3 - cp NITE_F - jr c, .time_species - inc hl - inc hl - -.time_species - ld d, [hl] - inc hl - ret -; 9245b - - -GetFishGroupIndex: ; 9245b -; Return the index of fishgroup d in de. - - push hl - ld hl, DailyFlags - bit 2, [hl] - pop hl - jr z, .done - - ld a, d - cp FISHGROUP_QWILFISH - jr z, .qwilfish - cp FISHGROUP_REMORAID - jr z, .remoraid - -.done - dec d - ld e, d - ld d, 0 - ret - -.qwilfish - ld a, [wFishingSwarmFlag] - cp FISHSWARM_QWILFISH - jr nz, .done - ld d, FISHGROUP_QWILFISH_SWARM - jr .done - -.remoraid - ld a, [wFishingSwarmFlag] - cp FISHSWARM_REMORAID - jr nz, .done - ld d, FISHGROUP_REMORAID_SWARM - jr .done -; 92488 - - -INCLUDE "data/wild/fish.asm" diff --git a/engine/fruit_trees.asm b/engine/fruit_trees.asm deleted file mode 100644 index 595e41824..000000000 --- a/engine/fruit_trees.asm +++ /dev/null @@ -1,132 +0,0 @@ -FruitTreeScript:: ; 44000 - callasm GetCurTreeFruit - opentext - copybytetovar CurFruit - itemtotext $0, $0 - writetext FruitBearingTreeText - buttonsound - callasm TryResetFruitTrees - callasm CheckFruitTree - iffalse .fruit - writetext NothingHereText - waitbutton - jump .end - -.fruit - writetext HeyItsFruitText - copybytetovar CurFruit - giveitem ITEM_FROM_MEM - iffalse .packisfull - buttonsound - writetext ObtainedFruitText - callasm PickedFruitTree - specialsound - itemnotify - jump .end - -.packisfull - buttonsound - writetext FruitPackIsFullText - waitbutton - -.end - closetext - end -; 44041 - -GetCurTreeFruit: ; 44041 - ld a, [CurFruitTree] - dec a - call GetFruitTreeItem - ld [CurFruit], a - ret -; 4404c - -TryResetFruitTrees: ; 4404c - ld hl, DailyFlags - bit 4, [hl] - ret nz - jp ResetFruitTrees -; 44055 - -CheckFruitTree: ; 44055 - ld b, 2 - call GetFruitTreeFlag - ld a, c - ld [ScriptVar], a - ret -; 4405f - -PickedFruitTree: ; 4405f - farcall TrainerRankings_FruitPicked - ld b, 1 - jp GetFruitTreeFlag -; 4406a - -ResetFruitTrees: ; 4406a - xor a - ld hl, FruitTreeFlags - ld [hli], a - ld [hli], a - ld [hli], a - ld [hl], a - ld hl, DailyFlags - set 4, [hl] - ret -; 44078 - -GetFruitTreeFlag: ; 44078 - push hl - push de - ld a, [CurFruitTree] - dec a - ld e, a - ld d, 0 - ld hl, FruitTreeFlags - call FlagAction - pop de - pop hl - ret -; 4408a - -GetFruitTreeItem: ; 4408a - push hl - push de - ld e, a - ld d, 0 - ld hl, FruitTreeItems - add hl, de - ld a, [hl] - pop de - pop hl - ret -; 44097 - - -INCLUDE "data/items/fruit_trees.asm" - - -FruitBearingTreeText: ; 440b5 - text_jump _FruitBearingTreeText - db "@" -; 440ba - -HeyItsFruitText: ; 440ba - text_jump _HeyItsFruitText - db "@" -; 440bf - -ObtainedFruitText: ; 440bf - text_jump _ObtainedFruitText - db "@" -; 440c4 - -FruitPackIsFullText: ; 440c4 - text_jump _FruitPackIsFullText - db "@" -; 440c9 - -NothingHereText: ; 440c9 - text_jump _NothingHereText - db "@" -; 440ce diff --git a/engine/player_gfx.asm b/engine/player_gfx.asm index 1af444d73..6ffaa77c8 100644 --- a/engine/player_gfx.asm +++ b/engine/player_gfx.asm @@ -71,45 +71,7 @@ ShowPlayerNamingChoices: ; 88297 call CloseWindow ret -ChrisNameMenuHeader: ; 882b5 - db $40 ; flags - db 00, 00 ; start coords - db 11, 10 ; end coords - dw .MaleNames - db 1 ; ???? - db 0 ; default option - -.MaleNames: ; 882be - db $91 ; flags - db 5 ; items - db "NEW NAME@" -MalePlayerNameArray: ; 882c9 - db "CHRIS@" - db "MAT@" - db "ALLAN@" - db "JON@" - db 2 ; displacement - db " NAME @" ; title - -KrisNameMenuHeader: ; 882e5 - db $40 ; flags - db 00, 00 ; start coords - db 11, 10 ; end coords - dw .FemaleNames - db 1 ; ???? - db 0 ; default option - -.FemaleNames: ; 882ee - db $91 ; flags - db 5 ; items - db "NEW NAME@" -FemalePlayerNameArray: ; 882f9 - db "KRIS@" - db "AMANDA@" - db "JUANA@" - db "JODI@" - db 2 ; displacement - db " NAME @" ; title +INCLUDE "data/default_names.asm" GetPlayerNameArray: ; 88318 This Function is never called ld hl, PlayerName diff --git a/engine/pokecenter_pc.asm b/engine/pokecenter_pc.asm deleted file mode 100755 index 7045dc1c8..000000000 --- a/engine/pokecenter_pc.asm +++ /dev/null @@ -1,678 +0,0 @@ -PokemonCenterPC: ; 1559a - call PC_CheckPartyForPokemon - ret c - call PC_PlayBootSound - ld hl, PokecenterPCText_BootedUpPC - call PC_DisplayText - ld hl, PokecenterPCText_AccessWhosePC - call PC_DisplayTextWaitMenu - ld hl, .TopMenu - call LoadMenuDataHeader -.loop - xor a - ld [hBGMapMode], a - call .ChooseWhichPCListToUse - ld [wWhichIndexSet], a - call DoNthMenu - jr c, .shutdown - ld a, [MenuSelection] - ld hl, .JumpTable - call MenuJumptable - jr nc, .loop - -.shutdown - call PC_PlayShutdownSound - call ExitMenu - call CloseWindow - ret - -.TopMenu: - db $48 ; flags - db 00, 00 ; start coords - db 12, 15 ; end coords - dw .MenuData2 - db 1 ; default option - -.MenuData2: - db $a0 ; flags - db 0 ; items - dw .WhichPC - dw PlaceNthMenuStrings - dw .JumpTable - -.JumpTable: - dw PlayersPC, .String_PlayersPC - dw BillsPC, .String_BillsPC - dw OaksPC, .String_OaksPC - dw HallOfFamePC, .String_HallOfFame - dw TurnOffPC, .String_TurnOff - -.String_PlayersPC: db "<PLAYER>'s PC@" -.String_BillsPC: db "BILL's PC@" -.String_OaksPC: db "PROF.OAK's PC@" -.String_HallOfFame: db "HALL OF FAME@" -.String_TurnOff: db "TURN OFF@" - -.WhichPC: - ; before pokedex - db 3 ; items - db 1, 0, 4 ; bill's, player's, turn off - db -1 - - ; before Hall Of Fame - db 4 ; items - db 1, 0, 2, 4 ; bill's, player's, oak's, turn off - db -1 - - ; postgame - db 5 ; items - db 1, 0, 2, 3, 4 ; bill's, player's, oak's, hall of fame, turn off - db -1 - -.ChooseWhichPCListToUse: - call CheckReceivedDex - jr nz, .got_dex - ld a, $0 - ret - -.got_dex - ld a, [wHallOfFameCount] - and a - ld a, $1 - ret z - ld a, $2 - ret -; 15650 - -PC_CheckPartyForPokemon: ; 15650 - ld a, [PartyCount] - and a - ret nz - ld de, SFX_CHOOSE_PC_OPTION - call PlaySFX - ld hl, .MustHavePokemonToUse - call PC_DisplayText - scf - ret - -.MustHavePokemonToUse: - ; Bzzzzt! You must have a #MON to use this! - text_jump UnknownText_0x1c1328 - db "@" -; 0x15668 - -BillsPC: ; 15668 - call PC_PlayChoosePCSound - ld hl, PokecenterPCText_AccessedBillsPC - call PC_DisplayText - farcall _BillsPC - and a - ret -; 15679 (5:5679) - -PlayersPC: ; 15679 - call PC_PlayChoosePCSound - ld hl, PokecenterPCText_AccessedOwnPC - call PC_DisplayText - ld b, $0 - call _PlayersPC - and a - ret -; 15689 - -OaksPC: ; 15689 - call PC_PlayChoosePCSound - ld hl, PokecenterPCText_AccessedOaksPC - call PC_DisplayText - farcall ProfOaksPC - and a - ret -; 1569a - -HallOfFamePC: ; 1569a - call PC_PlayChoosePCSound - call FadeToMenu - farcall _HallOfFamePC - call CloseSubmenu - and a - ret -; 156ab - -TurnOffPC: ; 156ab - ld hl, PokecenterPCText_LinkClosed - call PrintText - scf - ret -; 156b3 - -PC_PlayBootSound: ; 156b3 - ld de, SFX_BOOT_PC - jr PC_WaitPlaySFX - -PC_PlayShutdownSound: ; 156b8 - ld de, SFX_SHUT_DOWN_PC - call PC_WaitPlaySFX - call WaitSFX - ret - -PC_PlayChoosePCSound: ; 156c2 - ld de, SFX_CHOOSE_PC_OPTION - jr PC_WaitPlaySFX - -PC_PlaySwapItemsSound: ; 156c7 - ld de, SFX_SWITCH_POKEMON - call PC_WaitPlaySFX - ld de, SFX_SWITCH_POKEMON - -PC_WaitPlaySFX: ; 156d0 - push de - call WaitSFX - pop de - call PlaySFX - ret -; 156d9 - -_KrissHousePC: ; 156d9 - call PC_PlayBootSound - ld hl, UnknownText_0x156ff - call PC_DisplayText - ld b, $1 - call _PlayersPC - and a - jr nz, .asm_156f9 - call OverworldTextModeSwitch - call ApplyTilemap - call UpdateSprites - call PC_PlayShutdownSound - ld c, $0 - ret - -.asm_156f9 - call ClearBGPalettes - ld c, $1 - ret -; 156ff - -UnknownText_0x156ff: ; 0x156ff - ; turned on the PC. - text_jump UnknownText_0x1c1353 - db "@" -; 0x15704 - -_PlayersPC: ; 15704 - ld a, b - ld [wWhichIndexSet], a - ld hl, UnknownText_0x157cc - call PC_DisplayTextWaitMenu - call Function15715 - call ExitMenu - ret -; 15715 - -Function15715: ; 15715 - xor a - ld [wPCItemsCursor], a - ld [wPCItemsScrollPosition], a - ld hl, KrissPCMenuData - call LoadMenuDataHeader -.asm_15722 - call UpdateTimePals - call DoNthMenu - jr c, .asm_15731 - call MenuJumptable - jr nc, .asm_15722 - jr .asm_15732 - -.asm_15731 - xor a - -.asm_15732 - call ExitMenu - ret -; 15736 - -KrissPCMenuData: ; 0x15736 - db %01000000 - db 0, 0 ; top left corner coords (y, x) - db 12, 15 ; bottom right corner coords (y, x) - dw .KrissPCMenuData2 - db 1 ; default selected option - -.KrissPCMenuData2: - db %10100000 ; bit7 - db 0 ; # items? - dw .KrissPCMenuList1 - dw PlaceNthMenuStrings - dw .KrissPCMenuPointers - -.KrissPCMenuPointers: ; 0x15746 - dw KrisWithdrawItemMenu, .WithdrawItem - dw KrisDepositItemMenu, .DepositItem - dw KrisTossItemMenu, .TossItem - dw KrisMailBoxMenu, .MailBox - dw KrisDecorationMenu, .Decoration - dw KrisLogOffMenu, .LogOff - dw KrisLogOffMenu, .TurnOff - -.WithdrawItem: db "WITHDRAW ITEM@" -.DepositItem: db "DEPOSIT ITEM@" -.TossItem: db "TOSS ITEM@" -.MailBox: db "MAIL BOX@" -.Decoration: db "DECORATION@" -.TurnOff: db "TURN OFF@" -.LogOff: db "LOG OFF@" - -WITHDRAW_ITEM EQU 0 -DEPOSIT_ITEM EQU 1 -TOSS_ITEM EQU 2 -MAIL_BOX EQU 3 -DECORATION EQU 4 -TURN_OFF EQU 5 -LOG_OFF EQU 6 - -.KrissPCMenuList1: - db 5 - db WITHDRAW_ITEM - db DEPOSIT_ITEM - db TOSS_ITEM - db MAIL_BOX - db TURN_OFF - db -1 - -.KrissPCMenuList2: - db 6 - db WITHDRAW_ITEM - db DEPOSIT_ITEM - db TOSS_ITEM - db MAIL_BOX - db DECORATION - db LOG_OFF - db -1 - -PC_DisplayTextWaitMenu: ; 157bb - ld a, [Options] - push af - set NO_TEXT_SCROLL, a - ld [Options], a - call MenuTextBox - pop af - ld [Options], a - ret -; 157cc - -UnknownText_0x157cc: ; 0x157cc - ; What do you want to do? - text_jump UnknownText_0x1c1368 - db "@" -; 0x157d1 - -KrisWithdrawItemMenu: ; 0x157d1 - call LoadStandardMenuDataHeader - farcall ClearPCItemScreen -.loop - call PCItemsJoypad - jr c, .quit - call .Submenu - jr .loop - -.quit - call CloseSubmenu - xor a - ret - -.Submenu: - ; check if the item has a quantity - farcall _CheckTossableItem - ld a, [wItemAttributeParamBuffer] - and a - jr z, .askquantity - - ; items without quantity are always ×1 - ld a, 1 - ld [wItemQuantityChangeBuffer], a - jr .withdraw - -.askquantity - ld hl, .HowManyText - call MenuTextBox - farcall SelectQuantityToToss - call ExitMenu - call ExitMenu - jr c, .done - -.withdraw - ld a, [wItemQuantityChangeBuffer] - ld [Buffer1], a ; quantity - ld a, [CurItemQuantity] - ld [Buffer2], a - ld hl, NumItems - call ReceiveItem - jr nc, .PackFull - ld a, [Buffer1] - ld [wItemQuantityChangeBuffer], a - ld a, [Buffer2] - ld [CurItemQuantity], a - ld hl, PCItems - call TossItem - predef PartyMonItemName - ld hl, .WithdrewText - call MenuTextBox - xor a - ld [hBGMapMode], a - call ExitMenu - ret - -.PackFull: - ld hl, .NoRoomText - call MenuTextBoxBackup - ret - -.done - ret - -.HowManyText: ; 0x15850 - text_jump _KrissPCHowManyWithdrawText - db "@" - -.WithdrewText: ; 0x15855 - text_jump _KrissPCWithdrewItemsText - db "@" - -.NoRoomText: ; 0x1585a - text_jump _KrissPCNoRoomWithdrawText - db "@" - -KrisTossItemMenu: ; 0x1585f - call LoadStandardMenuDataHeader - farcall ClearPCItemScreen -.loop - call PCItemsJoypad - jr c, .quit - ld de, PCItems - farcall TossItemFromPC - jr .loop - -.quit - call CloseSubmenu - xor a - ret -; 0x1587d - -KrisDecorationMenu: ; 0x1587d - farcall _KrisDecorationMenu - ld a, c - and a - ret z - scf - ret -; 0x15888 - -KrisLogOffMenu: ; 0x15888 - xor a - scf - ret -; 0x1588b - -KrisDepositItemMenu: ; 0x1588b - call .CheckItemsInBag - jr c, .nope - call DisableSpriteUpdates - call LoadStandardMenuDataHeader - farcall DepositSellInitPackBuffers -.loop - farcall DepositSellPack - ld a, [wcf66] - and a - jr z, .close - call .TryDepositItem - farcall CheckRegisteredItem - jr .loop - -.close - call CloseSubmenu - -.nope - xor a - ret - -.CheckItemsInBag: - farcall HasNoItems - ret nc - ld hl, .NoItemsInBag - call MenuTextBoxBackup - scf - ret - -.NoItemsInBag: - ; No items here! - text_jump UnknownText_0x1c13df - db "@" - -.TryDepositItem: - ld a, [wSpriteUpdatesEnabled] - push af - ld a, $0 - ld [wSpriteUpdatesEnabled], a - farcall CheckItemMenu - ld a, [wItemAttributeParamBuffer] - ld hl, .dw - rst JumpTable - pop af - ld [wSpriteUpdatesEnabled], a - ret - -.dw - dw .tossable - dw .no_toss - dw .no_toss - dw .no_toss - dw .tossable - dw .tossable - dw .tossable - -.no_toss - ret - -.tossable - ld a, [Buffer1] - push af - ld a, [Buffer2] - push af - call .DepositItem_ - pop af - ld [Buffer2], a - pop af - ld [Buffer1], a - ret - -.DepositItem_: - farcall _CheckTossableItem - ld a, [wItemAttributeParamBuffer] - and a - jr z, .AskQuantity - ld a, $1 - ld [wItemQuantityChangeBuffer], a - jr .DepositItem - -.AskQuantity: - ld hl, .HowManyText - call MenuTextBox - farcall SelectQuantityToToss - push af - call ExitMenu - call ExitMenu - pop af - jr c, .DeclinedToDeposit - -.DepositItem: - ld a, [wItemQuantityChangeBuffer] - ld [Buffer1], a - ld a, [CurItemQuantity] - ld [Buffer2], a - ld hl, PCItems - call ReceiveItem - jr nc, .NoRoomInPC - ld a, [Buffer1] - ld [wItemQuantityChangeBuffer], a - ld a, [Buffer2] - ld [CurItemQuantity], a - ld hl, NumItems - call TossItem - predef PartyMonItemName - ld hl, .DepositText - call PrintText - ret - -.NoRoomInPC: - ld hl, .NoRoomText - call PrintText - ret - -.DeclinedToDeposit: - and a - ret - -.HowManyText: ; 0x1596e - text_jump _KrissPCHowManyDepositText - db "@" - -.DepositText: ; 0x15973 - text_jump _KrissPCDepositItemsText - db "@" - -.NoRoomText: ; 0x15978 - text_jump _KrissPCNoRoomDepositText - db "@" - -KrisMailBoxMenu: ; 0x1597d - farcall _KrisMailBoxMenu - xor a - ret -; 0x15985 - -PCItemsJoypad: ; 0x15985 - xor a - ld [wSwitchItem], a -.loop - ld a, [wSpriteUpdatesEnabled] - push af - ld a, $0 - ld [wSpriteUpdatesEnabled], a - ld hl, .PCItemsMenuData - call CopyMenuDataHeader - hlcoord 0, 0 - ld b, 10 - ld c, 18 - call TextBox - ld a, [wPCItemsCursor] - ld [wMenuCursorBuffer], a - ld a, [wPCItemsScrollPosition] - ld [wMenuScrollPosition], a - call ScrollingMenu - ld a, [wMenuScrollPosition] - ld [wPCItemsScrollPosition], a - ld a, [wMenuCursorY] - ld [wPCItemsCursor], a - pop af - ld [wSpriteUpdatesEnabled], a - ld a, [wSwitchItem] - and a - jr nz, .moving_stuff_around - ld a, [wMenuJoypad] - cp B_BUTTON - jr z, .b_1 - cp A_BUTTON - jr z, .a_1 - cp SELECT - jr z, .select_1 - jr .next - -.moving_stuff_around - ld a, [wMenuJoypad] - cp B_BUTTON - jr z, .b_2 - cp A_BUTTON - jr z, .a_select_2 - cp SELECT - jr z, .a_select_2 - jr .next - -.b_2 - xor a - ld [wSwitchItem], a - jr .next - -.a_select_2 - call PC_PlaySwapItemsSound -.select_1 - farcall SwitchItemsInBag -.next - jp .loop - -.a_1 - farcall ScrollingMenu_ClearLeftColumn - call PlaceHollowCursor - and a - ret - -.b_1 - scf - ret - -.PCItemsMenuData: - db %01000000 - db 1, 4 ; start coords - db 10, 18 ; end coords - dw .MenuData2 - db 1 ; default option - -.MenuData2: - db %10110000 - db 4, 8 ; rows/cols? - db 2 ; horizontal spacing? - dbw 0, PCItems - dba PlaceMenuItemName - dba PlaceMenuItemQuantity - dba UpdateItemDescription - -PC_DisplayText: ; 15a20 - call MenuTextBox - call ExitMenu - ret -; 15a27 - -PokecenterPCText_BootedUpPC: ; 0x15a27 - ; turned on the PC. - text_jump UnknownText_0x1c144d - db "@" -; 0x15a2c - -PokecenterPCText_AccessWhosePC: ; 0x15a2c - ; Access whose PC? - text_jump UnknownText_0x1c1462 - db "@" -; 0x15a31 - -PokecenterPCText_AccessedBillsPC: ; 0x15a31 - ; BILL's PC accessed. #MON Storage System opened. - text_jump UnknownText_0x1c1474 - db "@" -; 0x15a36 - -PokecenterPCText_AccessedOwnPC: ; 0x15a36 - ; Accessed own PC. Item Storage System opened. - text_jump UnknownText_0x1c14a4 - db "@" -; 0x15a3b - -PokecenterPCText_AccessedOaksPC: ; 0x15a3b - ; PROF.OAK's PC accessed. #DEX Rating System opened. - text_jump UnknownText_0x1c14d2 - db "@" -; 0x15a40 - -PokecenterPCText_LinkClosed: ; 0x15a40 - ; … Link closed… - text_jump UnknownText_0x1c1505 - db "@" -; 0x15a45 diff --git a/engine/pokepic.asm b/engine/pokepic.asm deleted file mode 100755 index ea5b3c300..000000000 --- a/engine/pokepic.asm +++ /dev/null @@ -1,49 +0,0 @@ -Pokepic:: ; 244e3 - ld hl, PokepicMenuDataHeader - call CopyMenuDataHeader - call MenuBox - call UpdateSprites - call ApplyTilemap - ld b, SCGB_POKEPIC - call GetSGBLayout - xor a - ld [hBGMapMode], a - ld a, [CurPartySpecies] - ld [CurSpecies], a - call GetBaseData - ld de, VTiles1 - predef GetMonFrontpic - ld a, [wMenuBorderTopCoord] - inc a - ld b, a - ld a, [wMenuBorderLeftCoord] - inc a - ld c, a - call Coord2Tile - ld a, $80 - ld [hGraphicStartTile], a - lb bc, 7, 7 - predef PlaceGraphic - call WaitBGMap - ret - -ClosePokepic:: ; 24528 - ld hl, PokepicMenuDataHeader - call CopyMenuDataHeader - call ClearMenuBoxInterior - call WaitBGMap - call GetMemSGBLayout - xor a - ld [hBGMapMode], a - call OverworldTextModeSwitch - call ApplyTilemap - call UpdateSprites - call LoadStandardFont - ret - -PokepicMenuDataHeader: ; 0x24547 - db $40 ; flags - db 04, 06 ; start coords - db 13, 14 ; end coords - dw NULL - db 1 ; default option diff --git a/engine/pokerus/apply_pokerus_tick.asm b/engine/pokerus/apply_pokerus_tick.asm deleted file mode 100644 index 3c97fdc5e..000000000 --- a/engine/pokerus/apply_pokerus_tick.asm +++ /dev/null @@ -1,26 +0,0 @@ -ApplyPokerusTick: ; 13988 -; decreases all pokemon's pokerus counter by b. if the lower nybble reaches zero, the pokerus is cured. - ld hl, PartyMon1PokerusStatus ; PartyMon1 + MON_PKRS - ld a, [PartyCount] - and a - ret z ; make sure it's not wasting time on an empty party - ld c, a -.loop - ld a, [hl] - and $f ; lower nybble is the number of days remaining - jr z, .next ; if already 0, skip - sub b ; subtract the number of days - jr nc, .ok ; max(result, 0) - xor a -.ok - ld d, a ; back up this value because we need to preserve the strain (upper nybble) - ld a, [hl] - and $f0 - add d - ld [hl], a ; this prevents a cured pokemon from recontracting pokerus -.next - ld de, PARTYMON_STRUCT_LENGTH - add hl, de - dec c - jr nz, .loop - ret diff --git a/engine/pokerus/check_pokerus.asm b/engine/pokerus/check_pokerus.asm deleted file mode 100644 index 285024754..000000000 --- a/engine/pokerus/check_pokerus.asm +++ /dev/null @@ -1,25 +0,0 @@ -CheckPokerus: ; 4d860 -; Return carry if a monster in your party has Pokerus - -; Get number of monsters to iterate over - ld a, [PartyCount] - and a - jr z, .NoPokerus - ld b, a -; Check each monster in the party for Pokerus - ld hl, PartyMon1PokerusStatus - ld de, PARTYMON_STRUCT_LENGTH -.Check: - ld a, [hl] - and $0f ; only the bottom nybble is used - jr nz, .HasPokerus -; Next PartyMon - add hl, de - dec b - jr nz, .Check -.NoPokerus: - and a - ret -.HasPokerus: - scf - ret diff --git a/engine/pokerus/pokerus.asm b/engine/pokerus/pokerus.asm deleted file mode 100644 index 3e5e094e4..000000000 --- a/engine/pokerus/pokerus.asm +++ /dev/null @@ -1,160 +0,0 @@ -GivePokerusAndConvertBerries: ; 2ed44 - call ConvertBerriesToBerryJuice - ld hl, PartyMon1PokerusStatus - ld a, [PartyCount] - ld b, a - ld de, PARTYMON_STRUCT_LENGTH -; Check to see if any of your Pokemon already has Pokerus. -; If so, sample its spread through your party. -; This means that you cannot get Pokerus de novo while -; a party member has an active infection. -.loopMons - ld a, [hl] - and $f - jr nz, .TrySpreadPokerus - add hl, de - dec b - jr nz, .loopMons - -; If we haven't been to Goldenrod City at least once, -; prevent the contraction of Pokerus. - ld hl, StatusFlags2 - bit 6, [hl] - ret z - call Random - ld a, [hRandomAdd] - and a - ret nz - ld a, [hRandomSub] - cp $3 - ret nc ; 3/65536 chance (00 00, 00 01 or 00 02) - ld a, [PartyCount] - ld b, a -.randomMonSelectLoop - call Random - and $7 - cp b - jr nc, .randomMonSelectLoop - ld hl, PartyMon1PokerusStatus - call GetPartyLocation ; get pokerus byte of random mon - ld a, [hl] - and $f0 - ret nz ; if it already has pokerus, do nothing -.randomPokerusLoop ; Simultaneously sample the strain and duration - call Random - and a - jr z, .randomPokerusLoop - ld b, a - and $f0 - jr z, .load_pkrs - ld a, b - and $7 - inc a -.load_pkrs - ld b, a ; this should come before the label - swap b - and $3 - inc a - add b - ld [hl], a - ret - -.TrySpreadPokerus: - call Random - cp 1 + 33 percent - ret nc ; 1/3 chance - - ld a, [PartyCount] - cp 1 - ret z ; only one mon, nothing to do - - ld c, [hl] - ld a, b - cp 2 - jr c, .checkPreviousMonsLoop ; no more mons after this one, go backwards - - call Random - cp 1 + 50 percent - jr c, .checkPreviousMonsLoop ; 1/2 chance, go backwards -.checkFollowingMonsLoop - add hl, de - ld a, [hl] - and a - jr z, .infectMon - ld c, a - and $3 - ret z ; if mon has cured pokerus, stop searching - dec b ; go on to next mon - ld a, b - cp 1 - jr nz, .checkFollowingMonsLoop ; no more mons left - ret - -.checkPreviousMonsLoop - ld a, [PartyCount] - cp b - ret z ; no more mons - ld a, l - sub e - ld l, a - ld a, h - sbc d - ld h, a - ld a, [hl] - and a - jr z, .infectMon - ld c, a - and $3 - ret z ; if mon has cured pokerus, stop searching - inc b ; go on to next mon - jr .checkPreviousMonsLoop - -.infectMon - ld a, c - and $f0 - ld b, a - ld a, c - swap a - and $3 - inc a - add b - ld [hl], a - ret - -; any berry held by a Shuckle may be converted to berry juice -ConvertBerriesToBerryJuice: ; 2ede6 - ld hl, StatusFlags2 - bit 6, [hl] - ret z - call Random - cp $10 - ret nc ; 1/16 chance - ld hl, PartyMons - ld a, [PartyCount] -.partyMonLoop - push af - push hl - ld a, [hl] - cp SHUCKLE - jr nz, .loopMon - ld bc, MON_ITEM - add hl, bc - ld a, [hl] - cp BERRY - jr z, .convertToJuice - -.loopMon - pop hl - ld bc, PARTYMON_STRUCT_LENGTH - add hl, bc - pop af - dec a - jr nz, .partyMonLoop - ret - -.convertToJuice - ld a, BERRY_JUICE - ld [hl], a - pop hl - pop af - ret diff --git a/engine/prof_oaks_pc.asm b/engine/prof_oaks_pc.asm deleted file mode 100755 index 69949940b..000000000 --- a/engine/prof_oaks_pc.asm +++ /dev/null @@ -1,213 +0,0 @@ -ProfOaksPC: ; 0x265d3 - ld hl, OakPCText1 - call MenuTextBox - call YesNoBox - jr c, .shutdown - call ProfOaksPCBoot ; player chose "yes"? -.shutdown - ld hl, OakPCText4 - call PrintText - call JoyWaitAorB - call ExitMenu - ret - -ProfOaksPCBoot ; 0x265ee - ld hl, OakPCText2 - call PrintText - call Rate - call PlaySFX ; sfx loaded by previous Rate function call - call JoyWaitAorB - call WaitSFX - ret - -ProfOaksPCRating: ; 0x26601 - call Rate - push de - ld de, MUSIC_NONE - call PlayMusic - pop de - call PlaySFX - call JoyWaitAorB - call WaitSFX - ret - -Rate: ; 0x26616 -; calculate Seen/Owned - ld hl, PokedexSeen - ld b, EndPokedexSeen - PokedexSeen - call CountSetBits - ld [wd002], a - ld hl, PokedexCaught - ld b, EndPokedexCaught - PokedexCaught - call CountSetBits - ld [wd003], a - -; print appropriate rating - call .UpdateRatingBuffers - ld hl, OakPCText3 - call PrintText - call JoyWaitAorB - ld a, [wd003] - ld hl, OakRatings - call FindOakRating - push de - call PrintText - pop de - ret - -.UpdateRatingBuffers: ; 0x26647 - ld hl, StringBuffer3 - ld de, wd002 - call .UpdateRatingBuffer - ld hl, StringBuffer4 - ld de, wd003 - call .UpdateRatingBuffer - ret - -.UpdateRatingBuffer: ; 0x2665a - push hl - ld a, "@" - ld bc, ITEM_NAME_LENGTH - call ByteFill - pop hl - lb bc, PRINTNUM_RIGHTALIGN | 1, 3 - call PrintNum - ret - -FindOakRating: ; 0x2666b -; return sound effect in de -; return text pointer in hl - nop - ld c, a -.loop - ld a, [hli] - cp c - jr nc, .match -rept 4 - inc hl -endr - jr .loop - -.match - ld a, [hli] - ld e, a - ld a, [hli] - ld d, a - ld a, [hli] - ld h, [hl] - ld l, a - ret - -OakRatings: ; 0x2667f -; if you caught at most this many, play this sound, load this text - dbww 9, SFX_DEX_FANFARE_LESS_THAN_20, OakRating01 - dbww 19, SFX_DEX_FANFARE_LESS_THAN_20, OakRating02 - dbww 34, SFX_DEX_FANFARE_20_49, OakRating03 - dbww 49, SFX_DEX_FANFARE_20_49, OakRating04 - dbww 64, SFX_DEX_FANFARE_50_79, OakRating05 - dbww 79, SFX_DEX_FANFARE_50_79, OakRating06 - dbww 94, SFX_DEX_FANFARE_80_109, OakRating07 - dbww 109, SFX_DEX_FANFARE_80_109, OakRating08 - dbww 124, SFX_CAUGHT_MON, OakRating09 - dbww 139, SFX_CAUGHT_MON, OakRating10 - dbww 154, SFX_DEX_FANFARE_140_169, OakRating11 - dbww 169, SFX_DEX_FANFARE_140_169, OakRating12 - dbww 184, SFX_DEX_FANFARE_170_199, OakRating13 - dbww 199, SFX_DEX_FANFARE_170_199, OakRating14 - dbww 214, SFX_DEX_FANFARE_200_229, OakRating15 - dbww 229, SFX_DEX_FANFARE_200_229, OakRating16 - dbww 239, SFX_DEX_FANFARE_230_PLUS, OakRating17 - dbww 248, SFX_DEX_FANFARE_230_PLUS, OakRating18 - dbww 255, SFX_DEX_FANFARE_230_PLUS, OakRating19 - -OakPCText1: ; 0x266de - text_jump _OakPCText1 - db "@" - -OakPCText2: ; 0x266e3 - text_jump _OakPCText2 - db "@" - -OakPCText3: ; 0x266e8 - text_jump _OakPCText3 - db "@" - -OakRating01: - text_jump _OakRating01 - db "@" - -OakRating02: - text_jump _OakRating02 - db "@" - -OakRating03: - text_jump _OakRating03 - db "@" - -OakRating04: - text_jump _OakRating04 - db "@" - -OakRating05: - text_jump _OakRating05 - db "@" - -OakRating06: - text_jump _OakRating06 - db "@" - -OakRating07: - text_jump _OakRating07 - db "@" - -OakRating08: - text_jump _OakRating08 - db "@" - -OakRating09: - text_jump _OakRating09 - db "@" - -OakRating10: - text_jump _OakRating10 - db "@" - -OakRating11: - text_jump _OakRating11 - db "@" - -OakRating12: - text_jump _OakRating12 - db "@" - -OakRating13: - text_jump _OakRating13 - db "@" - -OakRating14: - text_jump _OakRating14 - db "@" - -OakRating15: - text_jump _OakRating15 - db "@" - -OakRating16: - text_jump _OakRating16 - db "@" - -OakRating17: - text_jump _OakRating17 - db "@" - -OakRating18: - text_jump _OakRating18 - db "@" - -OakRating19: - text_jump _OakRating19 - db "@" - -OakPCText4: ; 0x2674c - text_jump _OakPCText4 - db "@" diff --git a/engine/specials.asm b/engine/specials.asm index 82b42d8c1..cd2394b96 100644 --- a/engine/specials.asm +++ b/engine/specials.asm @@ -1,4 +1,3 @@ - Special:: ; c01b ; Run script special de. ld hl, SpecialsPointers diff --git a/engine/std_scripts.asm b/engine/std_scripts.asm deleted file mode 100644 index 297725c60..000000000 --- a/engine/std_scripts.asm +++ /dev/null @@ -1,1914 +0,0 @@ -StdScripts:: - dba PokecenterNurseScript - dba DifficultBookshelfScript - dba PictureBookshelfScript - dba MagazineBookshelfScript - dba TeamRocketOathScript - dba IncenseBurnerScript - dba MerchandiseShelfScript - dba TownMapScript - dba WindowScript - dba TVScript - dba HomepageScript - dba Radio1Script - dba Radio2Script - dba TrashCanScript - dba StrengthBoulderScript - dba SmashRockScript - dba PokecenterSignScript - dba MartSignScript - dba GoldenrodRocketsScript - dba RadioTowerRocketsScript - dba ElevatorButtonScript - dba DayToTextScript - dba BugContestResultsWarpScript - dba BugContestResultsScript - dba InitializeEventsScript - dba AskNumber1MScript - dba AskNumber2MScript - dba RegisteredNumberMScript - dba NumberAcceptedMScript - dba NumberDeclinedMScript - dba PhoneFullMScript - dba RematchMScript - dba GiftMScript - dba PackFullMScript - dba RematchGiftMScript - dba AskNumber1FScript - dba AskNumber2FScript - dba RegisteredNumberFScript - dba NumberAcceptedFScript - dba NumberDeclinedFScript - dba PhoneFullFScript - dba RematchFScript - dba GiftFScript - dba PackFullFScript - dba RematchGiftFScript - dba GymStatue1Script - dba GymStatue2Script - dba ReceiveItemScript - dba ReceiveTogepiEggScript - dba PCScript - dba GameCornerCoinVendorScript - dba HappinessCheckScript - -PokecenterNurseScript: -; EVENT_WELCOMED_TO_POKECOM_CENTER is never set - - opentext - checkmorn - iftrue .morn - checkday - iftrue .day - checknite - iftrue .nite - jump .ok - -.morn - checkevent EVENT_WELCOMED_TO_POKECOM_CENTER - iftrue .morn_comcenter - farwritetext NurseMornText - buttonsound - jump .ok -.morn_comcenter - farwritetext PokeComNurseMornText - buttonsound - jump .ok - -.day - checkevent EVENT_WELCOMED_TO_POKECOM_CENTER - iftrue .day_comcenter - farwritetext NurseDayText - buttonsound - jump .ok -.day_comcenter - farwritetext PokeComNurseDayText - buttonsound - jump .ok - -.nite - checkevent EVENT_WELCOMED_TO_POKECOM_CENTER - iftrue .nite_comcenter - farwritetext NurseNiteText - buttonsound - jump .ok -.nite_comcenter - farwritetext PokeComNurseNiteText - buttonsound - jump .ok - -.ok - ; only do this once - clearevent EVENT_WELCOMED_TO_POKECOM_CENTER - - farwritetext NurseAskHealText - yesorno - iffalse .done - - farwritetext NurseTakePokemonText - pause 20 - special TrainerRankings_Healings - spriteface LAST_TALKED, LEFT - pause 10 - special HealParty - playmusic MUSIC_NONE - writebyte 0 ; Machine is at a Pokemon Center - special HealMachineAnim - pause 30 - special RestartMapMusic - spriteface LAST_TALKED, DOWN - pause 10 - - checkphonecall ; elm already called about pokerus - iftrue .no - checkflag ENGINE_POKERUS ; nurse already talked about pokerus - iftrue .no - special SpecialCheckPokerus - iftrue .pokerus -.no - - farwritetext NurseReturnPokemonText - pause 20 - -.done - farwritetext NurseGoodbyeText - - spriteface LAST_TALKED, UP - pause 10 - spriteface LAST_TALKED, DOWN - pause 10 - - waitbutton - closetext - end - -.pokerus - ; already cleared earlier in the script - checkevent EVENT_WELCOMED_TO_POKECOM_CENTER - iftrue .pokerus_comcenter - farwritetext NursePokerusText - waitbutton - closetext - jump .pokerus_done - -.pokerus_comcenter - farwritetext PokeComNursePokerusText - waitbutton - closetext - -.pokerus_done - setflag ENGINE_POKERUS - specialphonecall SPECIALCALL_POKERUS - end - -DifficultBookshelfScript: - farjumptext DifficultBookshelfText - -PictureBookshelfScript: - farjumptext PictureBookshelfText - -MagazineBookshelfScript: - farjumptext MagazineBookshelfText - -TeamRocketOathScript: - farjumptext TeamRocketOathText - -IncenseBurnerScript: - farjumptext IncenseBurnerText - -MerchandiseShelfScript: - farjumptext MerchandiseShelfText - -TownMapScript: - opentext - farwritetext TownMapText - waitbutton - special Special_TownMap - closetext - end - -WindowScript: - farjumptext WindowText - -TVScript: - opentext - farwritetext TVText - waitbutton - closetext - end - -HomepageScript: - farjumptext HomepageText - -Radio1Script: - opentext - writebyte MAPRADIO_POKEMON_CHANNEL - special MapRadio - closetext - end - -Radio2Script: -; Lucky Channel - opentext - writebyte MAPRADIO_LUCKY_CHANNEL - special MapRadio - closetext - end - -TrashCanScript: ; 0xbc1a5 - farjumptext TrashCanText - -PCScript: - opentext - special PokemonCenterPC - closetext - end - -ElevatorButtonScript: - playsound SFX_READ_TEXT_2 - pause 15 - playsound SFX_ELEVATOR_END - end - -StrengthBoulderScript: - farjump AskStrengthScript - -SmashRockScript: - farjump AskRockSmashScript - -PokecenterSignScript: - farjumptext PokecenterSignText - -MartSignScript - farjumptext MartSignText - -DayToTextScript: - checkcode VAR_WEEKDAY - if_equal MONDAY, .Monday - if_equal TUESDAY, .Tuesday - if_equal WEDNESDAY, .Wednesday - if_equal THURSDAY, .Thursday - if_equal FRIDAY, .Friday - if_equal SATURDAY, .Saturday - stringtotext .SundayText, 0 - end -.Monday: - stringtotext .MondayText, 0 - end -.Tuesday: - stringtotext .TuesdayText, 0 - end -.Wednesday: - stringtotext .WednesdayText, 0 - end -.Thursday: - stringtotext .ThursdayText, 0 - end -.Friday: - stringtotext .FridayText, 0 - end -.Saturday: - stringtotext .SaturdayText, 0 - end -.SundayText: - db "SUNDAY@" -.MondayText: - db "MONDAY@" -.TuesdayText: - db "TUESDAY@" -.WednesdayText: - db "WEDNESDAY@" -.ThursdayText: - db "THURSDAY@" -.FridayText: - db "FRIDAY@" -.SaturdayText: - db "SATURDAY@" - -GoldenrodRocketsScript: - clearevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER - end - -RadioTowerRocketsScript: - setflag ENGINE_ROCKETS_IN_RADIO_TOWER - setevent EVENT_GOLDENROD_CITY_CIVILIANS - setevent EVENT_RADIO_TOWER_BLACKBELT_BLOCKS_STAIRS - clearevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER - clearevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER - setevent EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_EAST - specialphonecall SPECIALCALL_WEIRDBROADCAST - setmapscene MAHOGANY_TOWN, $1 - end - -BugContestResultsWarpScript: - special ClearBGPalettes - scall BugContestResults_CopyContestantsToResults - setevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY - clearevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_NOT_CONTEST_DAY - setevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE - warp ROUTE_36_NATIONAL_PARK_GATE, $0, $4 - applymovement PLAYER, Movement_ContestResults_WalkAfterWarp - -BugContestResultsScript: - clearflag ENGINE_BUG_CONTEST_TIMER - clearevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE - clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE - clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE - clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY - clearevent EVENT_CONTEST_OFFICER_HAS_BERRY - opentext - farwritetext ContestResults_ReadyToJudgeText - waitbutton - special BugContestJudging - RAM2MEM $0 - if_equal 1, BugContestResults_FirstPlace - if_equal 2, BugContestResults_SecondPlace - if_equal 3, BugContestResults_ThirdPlace - farwritetext ContestResults_ConsolationPrizeText - buttonsound - waitsfx - verbosegiveitem BERRY - iffalse BugContestResults_NoRoomForBerry - -BugContestResults_DidNotWin - farwritetext ContestResults_DidNotWinText - buttonsound - jump BugContestResults_FinishUp -; 0xbc2b1 - -BugContestResults_ReturnAfterWinnersPrize ; 0xbc2b1 - farwritetext ContestResults_JoinUsNextTimeText - buttonsound - -BugContestResults_FinishUp - checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER - iffalse BugContestResults_DidNotLeaveMons - farwritetext ContestResults_ReturnPartyText - waitbutton - special ContestReturnMons -BugContestResults_DidNotLeaveMons - special CheckPartyFullAfterContest - if_equal $0, BugContestResults_CleanUp - if_equal $2, BugContestResults_CleanUp - farwritetext ContestResults_PartyFullText - waitbutton -BugContestResults_CleanUp - closetext - setscene $0 - setmapscene ROUTE_35_NATIONAL_PARK_GATE, $0 - setevent EVENT_BUG_CATCHING_CONTESTANT_1A - setevent EVENT_BUG_CATCHING_CONTESTANT_2A - setevent EVENT_BUG_CATCHING_CONTESTANT_3A - setevent EVENT_BUG_CATCHING_CONTESTANT_4A - setevent EVENT_BUG_CATCHING_CONTESTANT_5A - setevent EVENT_BUG_CATCHING_CONTESTANT_6A - setevent EVENT_BUG_CATCHING_CONTESTANT_7A - setevent EVENT_BUG_CATCHING_CONTESTANT_8A - setevent EVENT_BUG_CATCHING_CONTESTANT_9A - setevent EVENT_BUG_CATCHING_CONTESTANT_10A - setevent EVENT_BUG_CATCHING_CONTESTANT_1B - setevent EVENT_BUG_CATCHING_CONTESTANT_2B - setevent EVENT_BUG_CATCHING_CONTESTANT_3B - setevent EVENT_BUG_CATCHING_CONTESTANT_4B - setevent EVENT_BUG_CATCHING_CONTESTANT_5B - setevent EVENT_BUG_CATCHING_CONTESTANT_6B - setevent EVENT_BUG_CATCHING_CONTESTANT_7B - setevent EVENT_BUG_CATCHING_CONTESTANT_8B - setevent EVENT_BUG_CATCHING_CONTESTANT_9B - setevent EVENT_BUG_CATCHING_CONTESTANT_10B - setflag ENGINE_DAILY_BUG_CONTEST - special PlayMapMusic - end -; 0xbc31e - -BugContestResults_FirstPlace ; 0xbc31e - setevent EVENT_GAVE_KURT_APRICORNS - itemtotext SUN_STONE, $1 - farwritetext ContestResults_PlayerWonAPrizeText - waitbutton - verbosegiveitem SUN_STONE - iffalse BugContestResults_NoRoomForSunStone - jump BugContestResults_ReturnAfterWinnersPrize -; 0xbc332 - -BugContestResults_SecondPlace ; 0xbc332 - itemtotext EVERSTONE, $1 - farwritetext ContestResults_PlayerWonAPrizeText - waitbutton - verbosegiveitem EVERSTONE - iffalse BugContestResults_NoRoomForEverstone - jump BugContestResults_ReturnAfterWinnersPrize -; 0xbc343 - -BugContestResults_ThirdPlace ; 0xbc343 - itemtotext GOLD_BERRY, $1 - farwritetext ContestResults_PlayerWonAPrizeText - waitbutton - verbosegiveitem GOLD_BERRY - iffalse BugContestResults_NoRoomForGoldBerry - jump BugContestResults_ReturnAfterWinnersPrize -; 0xbc354 - -BugContestResults_NoRoomForSunStone ; 0xbc354 - farwritetext BugContestPrizeNoRoomText - buttonsound - setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE - jump BugContestResults_ReturnAfterWinnersPrize -; 0xbc35f - -BugContestResults_NoRoomForEverstone ; 0xbc35f - farwritetext BugContestPrizeNoRoomText - buttonsound - setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE - jump BugContestResults_ReturnAfterWinnersPrize -; 0xbc36a - -BugContestResults_NoRoomForGoldBerry ; 0xbc36a - farwritetext BugContestPrizeNoRoomText - buttonsound - setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY - jump BugContestResults_ReturnAfterWinnersPrize -; 0xbc375 - -BugContestResults_NoRoomForBerry ; 0xbc375 - farwritetext BugContestPrizeNoRoomText - buttonsound - setevent EVENT_CONTEST_OFFICER_HAS_BERRY - jump BugContestResults_DidNotWin -; 0xbc380 - -BugContestResults_CopyContestantsToResults ; 0xbc380 - checkevent EVENT_BUG_CATCHING_CONTESTANT_1A - iftrue .skip1 - clearevent EVENT_BUG_CATCHING_CONTESTANT_1B -.skip1 - checkevent EVENT_BUG_CATCHING_CONTESTANT_2A - iftrue .skip2 - clearevent EVENT_BUG_CATCHING_CONTESTANT_2B -.skip2 - checkevent EVENT_BUG_CATCHING_CONTESTANT_3A - iftrue .skip3 - clearevent EVENT_BUG_CATCHING_CONTESTANT_3B -.skip3 - checkevent EVENT_BUG_CATCHING_CONTESTANT_4A - iftrue .skip4 - clearevent EVENT_BUG_CATCHING_CONTESTANT_4B -.skip4 - checkevent EVENT_BUG_CATCHING_CONTESTANT_5A - iftrue .skip5 - clearevent EVENT_BUG_CATCHING_CONTESTANT_5B -.skip5 - checkevent EVENT_BUG_CATCHING_CONTESTANT_6A - iftrue .skip6 - clearevent EVENT_BUG_CATCHING_CONTESTANT_6B -.skip6 - checkevent EVENT_BUG_CATCHING_CONTESTANT_7A - iftrue .skip7 - clearevent EVENT_BUG_CATCHING_CONTESTANT_7B -.skip7 - checkevent EVENT_BUG_CATCHING_CONTESTANT_8A - iftrue .skip8 - clearevent EVENT_BUG_CATCHING_CONTESTANT_8B -.skip8 - checkevent EVENT_BUG_CATCHING_CONTESTANT_9A - iftrue .skip9 - clearevent EVENT_BUG_CATCHING_CONTESTANT_9B -.skip9 - checkevent EVENT_BUG_CATCHING_CONTESTANT_10A - iftrue .skip10 - clearevent EVENT_BUG_CATCHING_CONTESTANT_10B -.skip10 - end - -InitializeEventsScript: - setevent EVENT_EARLS_ACADEMY_EARL - setevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER - setevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER - setevent EVENT_RADIO_TOWER_CIVILIANS_AFTER - setevent EVENT_ILEX_FOREST_APPRENTICE - setevent EVENT_ILEX_FOREST_FARFETCHD - setevent EVENT_ILEX_FOREST_CHARCOAL_MASTER - setevent EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE - setevent EVENT_TEAM_ROCKET_BASE_B2F_GRUNT_WITH_EXECUTIVE - setevent EVENT_TEAM_ROCKET_BASE_B2F_EXECUTIVE - setevent EVENT_TEAM_ROCKET_BASE_B2F_DRAGONITE - setevent EVENT_RIVAL_TEAM_ROCKET_BASE - setevent EVENT_BLACKTHORN_CITY_SUPER_NERD_DOES_NOT_BLOCK_GYM - setevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER - setevent EVENT_RIVAL_CHERRYGROVE_CITY - setevent EVENT_RIVAL_AZALEA_TOWN - setevent EVENT_RIVAL_GOLDENROD_UNDERGROUND - setevent EVENT_AZALEA_TOWN_SLOWPOKES - setevent EVENT_KURTS_HOUSE_SLOWPOKE - setevent EVENT_GUIDE_GENT_VISIBLE_IN_CHERRYGROVE - setevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER - setevent EVENT_COP_IN_ELMS_LAB - setevent EVENT_RUINS_OF_ALPH_OUTSIDE_SCIENTIST - setevent EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST - setevent EVENT_BOULDER_IN_ICE_PATH_1A - setevent EVENT_BOULDER_IN_ICE_PATH_2A - setevent EVENT_BOULDER_IN_ICE_PATH_3A - setevent EVENT_BOULDER_IN_ICE_PATH_4A - setevent EVENT_ROUTE_30_YOUNGSTER_JOEY - setevent EVENT_BUG_CATCHING_CONTESTANT_1A - setevent EVENT_BUG_CATCHING_CONTESTANT_2A - setevent EVENT_BUG_CATCHING_CONTESTANT_3A - setevent EVENT_BUG_CATCHING_CONTESTANT_4A - setevent EVENT_BUG_CATCHING_CONTESTANT_5A - setevent EVENT_BUG_CATCHING_CONTESTANT_6A - setevent EVENT_BUG_CATCHING_CONTESTANT_7A - setevent EVENT_BUG_CATCHING_CONTESTANT_8A - setevent EVENT_BUG_CATCHING_CONTESTANT_9A - setevent EVENT_BUG_CATCHING_CONTESTANT_10A - setevent EVENT_BUG_CATCHING_CONTESTANT_1B - setevent EVENT_BUG_CATCHING_CONTESTANT_2B - setevent EVENT_BUG_CATCHING_CONTESTANT_3B - setevent EVENT_BUG_CATCHING_CONTESTANT_4B - setevent EVENT_BUG_CATCHING_CONTESTANT_5B - setevent EVENT_BUG_CATCHING_CONTESTANT_6B - setevent EVENT_BUG_CATCHING_CONTESTANT_7B - setevent EVENT_BUG_CATCHING_CONTESTANT_8B - setevent EVENT_BUG_CATCHING_CONTESTANT_9B - setevent EVENT_BUG_CATCHING_CONTESTANT_10B - setevent EVENT_FAST_SHIP_1F_GENTLEMAN - setevent EVENT_FAST_SHIP_B1F_SAILOR_RIGHT - setevent EVENT_FAST_SHIP_CABINS_NNW_NNE_NE_SAILOR - setevent EVENT_LAKE_OF_RAGE_CIVILIANS - setevent EVENT_MAHOGANY_MART_OWNERS - setevent EVENT_TIN_TOWER_ROOF_HO_OH - setevent EVENT_WHIRL_ISLAND_LUGIA_CHAMBER_LUGIA - setevent EVENT_KRISS_HOUSE_2F_CONSOLE - setevent EVENT_KRISS_HOUSE_2F_DOLL_1 - setevent EVENT_KRISS_HOUSE_2F_DOLL_2 - setevent EVENT_KRISS_HOUSE_2F_BIG_DOLL - setevent EVENT_DECO_BED_1 - setevent EVENT_DECO_PLANT_4 - setevent EVENT_GOLDENROD_TRAIN_STATION_GENTLEMAN - setevent EVENT_OLIVINE_GYM_JASMINE - setevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN - setevent EVENT_MET_BILL - setevent EVENT_ECRUTEAK_POKE_CENTER_BILL - setevent EVENT_MYSTERY_GIFT_DELIVERY_GUY - setevent EVENT_LAKE_OF_RAGE_LANCE - setevent EVENT_GOLDENROD_DEPT_STORE_B1F_LAYOUT_1 - setevent EVENT_GOLDENROD_UNDERGROUND_WAREHOUSE_BLOCKED_OFF - setevent EVENT_DRAGONS_DEN_CLAIR - setevent EVENT_RIVAL_OLIVINE_CITY - setevent EVENT_RIVAL_VICTORY_ROAD - setevent EVENT_RIVAL_DRAGONS_DEN - setevent EVENT_LANCES_ROOM_OAK_AND_MARY - setevent EVENT_FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN_TWIN_1 - setevent EVENT_BURNED_TOWER_B1F_BEASTS_1 - setevent EVENT_RED_IN_MT_SILVER - setevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME - setevent EVENT_FAST_SHIP_PASSENGERS_EASTBOUND - setevent EVENT_FAST_SHIP_PASSENGERS_WESTBOUND - setevent EVENT_OLIVINE_PORT_PASSAGE_POKEFAN_M - setevent EVENT_KURTS_HOUSE_KURT_2 - setevent EVENT_KURTS_HOUSE_GRANDDAUGHTER_2 - setevent EVENT_RANG_CLEAR_BELL_1 - setevent EVENT_FLORIA_AT_FLOWER_SHOP - setevent EVENT_FLORIA_AT_SUDOWOODO - setevent EVENT_GOLDENROD_CITY_MOVE_TUTOR - setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_FISHER - setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_YOUNGSTERS - setevent EVENT_DRAGON_SHRINE_CLAIR - setevent EVENT_BATTLE_TOWER_BATTLE_ROOM_YOUNGSTER - setevent EVENT_KRISS_NEIGHBORS_HOUSE_NEIGHBOR - setevent EVENT_AZALEA_TOWN_KURT - setevent EVENT_AZALEA_TOWN_KURT - setevent EVENT_ILEX_FOREST_KURT - setevent EVENT_ROUTE_34_ILEX_FOREST_GATE_TEACHER_IN_WALKWAY - setevent EVENT_ILEX_FOREST_LASS - setevent EVENT_GOLDENROD_SALE_OFF - setevent EVENT_ECRUTEAK_CITY_GRAMPS - setevent EVENT_EUSINE_IN_BURNED_TOWER - setevent EVENT_KRISS_HOUSE_MOM_2 - setevent EVENT_WISE_TRIOS_ROOM_WISE_TRIO_2 - setevent EVENT_CIANWOOD_CITY_EUSINE - setevent EVENT_TIN_TOWER_1F_EUSINE - setevent EVENT_TIN_TOWER_1F_WISE_TRIO_1 - setevent EVENT_TIN_TOWER_1F_WISE_TRIO_2 - setevent EVENT_SET_WHEN_FOUGHT_HO_OH - setevent EVENT_SAW_SUICUNE_ON_ROUTE_36 - setevent EVENT_SAW_SUICUNE_ON_ROUTE_42 - setevent EVENT_SAW_SUICUNE_AT_CIANWOOD_CITY - setevent EVENT_BATTLE_TOWER_OUTSIDE_SAILOR - setflag ENGINE_ROCKET_SIGNAL_ON_CH20 - setflag ENGINE_ROCKETS_IN_MAHOGANY - variablesprite SPRITE_WEIRD_TREE, SPRITE_SUDOWOODO - variablesprite SPRITE_OLIVINE_RIVAL, SPRITE_SILVER - variablesprite SPRITE_AZALEA_ROCKET, SPRITE_ROCKET - variablesprite SPRITE_FUCHSIA_GYM_1, SPRITE_JANINE - variablesprite SPRITE_FUCHSIA_GYM_2, SPRITE_JANINE - variablesprite SPRITE_FUCHSIA_GYM_3, SPRITE_JANINE - variablesprite SPRITE_FUCHSIA_GYM_4, SPRITE_JANINE - variablesprite SPRITE_COPYCAT, SPRITE_LASS - variablesprite SPRITE_JANINE_IMPERSONATOR, SPRITE_LASS - setevent EVENT_FOUND_MACHINE_PART_IN_CERULEAN_GYM - setevent EVENT_CERULEAN_GYM_ROCKET - setevent EVENT_ROUTE_24_ROCKET - setevent EVENT_ROUTE_25_MISTY_BOYFRIEND - setevent EVENT_TRAINERS_IN_CERULEAN_GYM - setevent EVENT_COPYCATS_HOUSE_2F_DOLL - setevent EVENT_VIRIDIAN_GYM_BLUE - setevent EVENT_SEAFOAM_GYM_GYM_GUY - setevent EVENT_MT_MOON_SQUARE_CLEFAIRY - setevent EVENT_SAFFRON_TRAIN_STATION_POPULATION - setevent EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL - setevent EVENT_INITIALIZED_EVENTS - return - -AskNumber1MScript: - special RandomPhoneMon - checkcode VAR_CALLERID - if_equal PHONE_SCHOOLBOY_JACK, .Jack - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_FISHER_RALPH, .Ralph - if_equal PHONE_HIKER_ANTHONY, .Anthony - if_equal PHONE_CAMPER_TODD, .Todd - if_equal PHONE_JUGGLER_IRWIN, .Irwin - if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_SCHOOLBOY_CHAD, .Chad - if_equal PHONE_POKEFANM_DEREK, .Derek - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_POKEMANIAC_BRENT, .Brent - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_BLACKBELT_KENJI, .Kenji - if_equal PHONE_HIKER_PARRY, .Parry - -.Jack: - farwritetext JackAskNumber1Text - end -.Huey: - farwritetext HueyAskNumber1Text - end -.Gaven: - farwritetext GavenAskNumber1Text - end -.Jose: - farwritetext JoseAskNumber1Text - end -.Joey: - farwritetext JoeyAskNumber1Text - end -.Wade: - farwritetext WadeAskNumber1Text - end -.Ralph: - farwritetext RalphAskNumber1Text - end -.Anthony: - farwritetext AnthonyAskNumber1Text - end -.Todd: - farwritetext ToddAskNumber1Text - end -.Irwin: - farwritetext IrwinAskNumber1Text - end -.Arnie: - farwritetext ArnieAskNumber1Text - end -.Alan: - farwritetext AlanAskNumber1Text - end -.Chad: - farwritetext ChadAskNumber1Text - end -.Derek: - farwritetext DerekAskNumber1Text - end -.Tully: - farwritetext TullyAskNumber1Text - end -.Brent: - farwritetext BrentAskNumber1Text - end -.Vance: - farwritetext VanceAskNumber1Text - end -.Wilton: - farwritetext WiltonAskNumber1Text - end -.Kenji: - farwritetext KenjiAskNumber1Text - end -.Parry: - farwritetext ParryAskNumber1Text - end - -AskNumber2MScript: - special RandomPhoneMon - checkcode VAR_CALLERID - if_equal PHONE_SCHOOLBOY_JACK, .Jack - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_FISHER_RALPH, .Ralph - if_equal PHONE_HIKER_ANTHONY, .Anthony - if_equal PHONE_CAMPER_TODD, .Todd - if_equal PHONE_JUGGLER_IRWIN, .Irwin - if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_SCHOOLBOY_CHAD, .Chad - if_equal PHONE_POKEFANM_DEREK, .Derek - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_POKEMANIAC_BRENT, .Brent - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_BLACKBELT_KENJI, .Kenji - if_equal PHONE_HIKER_PARRY, .Parry - -.Jack: - farwritetext JackAskNumber2Text - end -.Huey: - farwritetext HueyAskNumber2Text - end -.Gaven: - farwritetext GavenAskNumber2Text - end -.Jose: - farwritetext JoseAskNumber2Text - end -.Joey: - farwritetext JoeyAskNumber2Text - end -.Wade: - farwritetext WadeAskNumber2Text - end -.Ralph: - farwritetext RalphAskNumber2Text - end -.Anthony: - farwritetext AnthonyAskNumber2Text - end -.Todd: - farwritetext ToddAskNumber2Text - end -.Irwin: - farwritetext IrwinAskNumber2Text - end -.Arnie: - farwritetext ArnieAskNumber2Text - end -.Alan: - farwritetext AlanAskNumber2Text - end -.Chad: - farwritetext ChadAskNumber2Text - end -.Derek: - farwritetext DerekAskNumber2Text - end -.Tully: - farwritetext TullyAskNumber2Text - end -.Brent: - farwritetext BrentAskNumber2Text - end -.Vance: - farwritetext VanceAskNumber2Text - end -.Wilton: - farwritetext WiltonAskNumber2Text - end -.Kenji: - farwritetext KenjiAskNumber2Text - end -.Parry: - farwritetext ParryAskNumber2Text - end - -RegisteredNumberMScript: - farwritetext RegisteredNumber1Text - playsound SFX_REGISTER_PHONE_NUMBER - waitsfx - buttonsound - end - -NumberAcceptedMScript: - checkcode VAR_CALLERID - if_equal PHONE_SCHOOLBOY_JACK, .Jack - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_FISHER_RALPH, .Ralph - if_equal PHONE_HIKER_ANTHONY, .Anthony - if_equal PHONE_CAMPER_TODD, .Todd - if_equal PHONE_JUGGLER_IRWIN, .Irwin - if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_SCHOOLBOY_CHAD, .Chad - if_equal PHONE_POKEFANM_DEREK, .Derek - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_POKEMANIAC_BRENT, .Brent - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_BLACKBELT_KENJI, .Kenji - if_equal PHONE_HIKER_PARRY, .Parry - -.Jack: - farwritetext JackNumberAcceptedText - waitbutton - closetext - end -.Huey: - farwritetext HueyNumberAcceptedText - waitbutton - closetext - end -.Gaven: - farwritetext GavenNumberAcceptedText - waitbutton - closetext - end -.Jose: - farwritetext JoseNumberAcceptedText - waitbutton - closetext - end -.Joey: - farwritetext JoeyNumberAcceptedText - waitbutton - closetext - end -.Wade: - farwritetext WadeNumberAcceptedText - waitbutton - closetext - end -.Ralph: - farwritetext RalphNumberAcceptedText - waitbutton - closetext - end -.Anthony: - farwritetext AnthonyNumberAcceptedText - waitbutton - closetext - end -.Todd: - farwritetext ToddNumberAcceptedText - waitbutton - closetext - end -.Irwin: - farwritetext IrwinNumberAcceptedText - waitbutton - closetext - end -.Arnie: - farwritetext ArnieNumberAcceptedText - waitbutton - closetext - end -.Alan: - farwritetext AlanNumberAcceptedText - waitbutton - closetext - end -.Chad: - farwritetext ChadNumberAcceptedText - waitbutton - closetext - end -.Derek: - farwritetext DerekNumberAcceptedText - waitbutton - closetext - end -.Tully: - farwritetext TullyNumberAcceptedText - waitbutton - closetext - end -.Brent: - farwritetext BrentNumberAcceptedText - waitbutton - closetext - end -.Vance: - farwritetext VanceNumberAcceptedText - waitbutton - closetext - end -.Wilton: - farwritetext WiltonNumberAcceptedText - waitbutton - closetext - end -.Kenji: - farwritetext KenjiNumberAcceptedText - waitbutton - closetext - end -.Parry: - farwritetext ParryNumberAcceptedText - waitbutton - closetext - end - -NumberDeclinedMScript: - checkcode VAR_CALLERID - if_equal PHONE_SCHOOLBOY_JACK, .Jack - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_FISHER_RALPH, .Ralph - if_equal PHONE_HIKER_ANTHONY, .Anthony - if_equal PHONE_CAMPER_TODD, .Todd - if_equal PHONE_JUGGLER_IRWIN, .Irwin - if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_SCHOOLBOY_CHAD, .Chad - if_equal PHONE_POKEFANM_DEREK, .Derek - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_POKEMANIAC_BRENT, .Brent - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_BLACKBELT_KENJI, .Kenji - if_equal PHONE_HIKER_PARRY, .Parry - -.Jack: - farwritetext JackNumberDeclinedText - waitbutton - closetext - end -.Huey: - farwritetext HueyNumberDeclinedText - waitbutton - closetext - end -.Gaven: - farwritetext GavenNumberDeclinedText - waitbutton - closetext - end -.Jose: - farwritetext JoseNumberDeclinedText - waitbutton - closetext - end -.Joey: - farwritetext JoeyNumberDeclinedText - waitbutton - closetext - end -.Wade: - farwritetext WadeNumberDeclinedText - waitbutton - closetext - end -.Ralph: - farwritetext RalphNumberDeclinedText - waitbutton - closetext - end -.Anthony: - farwritetext AnthonyNumberDeclinedText - waitbutton - closetext - end -.Todd: - farwritetext ToddNumberDeclinedText - waitbutton - closetext - end -.Irwin: - farwritetext IrwinNumberDeclinedText - waitbutton - closetext - end -.Arnie: - farwritetext ArnieNumberDeclinedText - waitbutton - closetext - end -.Alan: - farwritetext AlanNumberDeclinedText - waitbutton - closetext - end -.Chad: - farwritetext ChadNumberDeclinedText - waitbutton - closetext - end -.Derek: - farwritetext DerekNumberDeclinedText - waitbutton - closetext - end -.Tully: - farwritetext TullyNumberDeclinedText - waitbutton - closetext - end -.Brent: - farwritetext BrentNumberDeclinedText - waitbutton - closetext - end -.Vance: - farwritetext VanceNumberDeclinedText - waitbutton - closetext - end -.Wilton: - farwritetext WiltonNumberDeclinedText - waitbutton - closetext - end -.Kenji: - farwritetext KenjiNumberDeclinedText - waitbutton - closetext - end -.Parry: - farwritetext ParryNumberDeclinedText - waitbutton - closetext - end - -PhoneFullMScript: - checkcode VAR_CALLERID - if_equal PHONE_SCHOOLBOY_JACK, .Jack - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_FISHER_RALPH, .Ralph - if_equal PHONE_HIKER_ANTHONY, .Anthony - if_equal PHONE_CAMPER_TODD, .Todd - if_equal PHONE_JUGGLER_IRWIN, .Irwin - if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_SCHOOLBOY_CHAD, .Chad - if_equal PHONE_POKEFANM_DEREK, .Derek - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_POKEMANIAC_BRENT, .Brent - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_BLACKBELT_KENJI, .Kenji - if_equal PHONE_HIKER_PARRY, .Parry - -.Jack: - farwritetext JackPhoneFullText - waitbutton - closetext - end -.Huey: - farwritetext HueyPhoneFullText - waitbutton - closetext - end -.Gaven: - farwritetext GavenPhoneFullText - waitbutton - closetext - end -.Jose: - farwritetext JosePhoneFullText - waitbutton - closetext - end -.Joey: - farwritetext JoeyPhoneFullText - waitbutton - closetext - end -.Wade: - farwritetext WadePhoneFullText - waitbutton - closetext - end -.Ralph: - farwritetext RalphPhoneFullText - waitbutton - closetext - end -.Anthony: - farwritetext AnthonyPhoneFullText - waitbutton - closetext - end -.Todd: - farwritetext ToddPhoneFullText - waitbutton - closetext - end -.Irwin: - farwritetext IrwinPhoneFullText - waitbutton - closetext - end -.Arnie: - farwritetext ArniePhoneFullText - waitbutton - closetext - end -.Alan: - farwritetext AlanPhoneFullText - waitbutton - closetext - end -.Chad: - farwritetext ChadPhoneFullText - waitbutton - closetext - end -.Derek: - farwritetext DerekPhoneFullText - waitbutton - closetext - end -.Tully: - farwritetext TullyPhoneFullText - waitbutton - closetext - end -.Brent: - farwritetext BrentPhoneFullText - waitbutton - closetext - end -.Vance: - farwritetext VancePhoneFullText - waitbutton - closetext - end -.Wilton: - farwritetext WiltonPhoneFullText - waitbutton - closetext - end -.Kenji: - farwritetext KenjiPhoneFullText - waitbutton - closetext - end -.Parry: - farwritetext ParryPhoneFullText - waitbutton - closetext - end - -RematchMScript: - checkcode VAR_CALLERID - if_equal PHONE_SCHOOLBOY_JACK, .Jack - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_FISHER_RALPH, .Ralph - if_equal PHONE_HIKER_ANTHONY, .Anthony - if_equal PHONE_CAMPER_TODD, .Todd - if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_SCHOOLBOY_CHAD, .Chad - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_POKEMANIAC_BRENT, .Brent - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_HIKER_PARRY, .Parry - -.Jack: - farwritetext JackRematchText - waitbutton - closetext - end -.Huey: - farwritetext HueyRematchText - waitbutton - closetext - end -.Gaven: - farwritetext GavenRematchText - waitbutton - closetext - end -.Jose: - farwritetext JoseRematchText - waitbutton - closetext - end -.Joey: - farwritetext JoeyRematchText - waitbutton - closetext - end -.Wade: - farwritetext WadeRematchText - waitbutton - closetext - end -.Ralph: - farwritetext RalphRematchText - waitbutton - closetext - end -.Anthony: - farwritetext AnthonyRematchText - waitbutton - closetext - end -.Todd: - farwritetext ToddRematchText - waitbutton - closetext - end -.Arnie: - farwritetext ArnieRematchText - waitbutton - closetext - end -.Alan: - farwritetext AlanRematchText - waitbutton - closetext - end -.Chad: - farwritetext ChadRematchText - waitbutton - closetext - end -.Tully: - farwritetext TullyRematchText - waitbutton - closetext - end -.Brent: - farwritetext BrentRematchText - waitbutton - closetext - end -.Vance: - farwritetext VanceRematchText - waitbutton - closetext - end -.Wilton: - farwritetext WiltonRematchText - waitbutton - closetext - end -.Parry: - farwritetext ParryRematchText - waitbutton - closetext - end - -GiftMScript: - checkcode VAR_CALLERID - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_POKEFANM_DEREK, .Derek - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_BLACKBELT_KENJI, .Kenji - -.Jose: - farwritetext JoseGiftText - buttonsound - end -.Wade: - farwritetext WadeGiftText - buttonsound - end -.Alan: - farwritetext AlanGiftText - buttonsound - end -.Derek: - farwritetext DerekGiftText - buttonsound - end -.Tully: - farwritetext TullyGiftText - buttonsound - end -.Wilton: - farwritetext WiltonGiftText - buttonsound - end -.Kenji: - farwritetext KenjiGiftText - buttonsound - end - -PackFullMScript: - checkcode VAR_CALLERID - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_BIRDKEEPER_JOSE, .Jose - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BUG_CATCHER_WADE, .Wade - if_equal PHONE_SCHOOLBOY_ALAN, .Alan - if_equal PHONE_POKEFANM_DEREK, .Derek - if_equal PHONE_FISHER_TULLY, .Tully - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_FISHER_WILTON, .Wilton - if_equal PHONE_BLACKBELT_KENJI, .Kenji - if_equal PHONE_HIKER_PARRY, .Parry - -.Huey: - farwritetext HueyPackFullText - waitbutton - closetext - end -.Jose: - farwritetext JosePackFullText - waitbutton - closetext - end -.Joey: - farwritetext JoeyPackFullText - waitbutton - closetext - end -.Wade: - farwritetext WadePackFullText - waitbutton - closetext - end -.Alan: - farwritetext AlanPackFullText - waitbutton - closetext - end -.Derek: - farwritetext DerekPackFullText - waitbutton - closetext - end -.Tully: - farwritetext TullyPackFullText - waitbutton - closetext - end -.Vance: - farwritetext VancePackFullText - waitbutton - closetext - end -.Wilton: - farwritetext WiltonPackFullText - waitbutton - closetext - end -.Kenji: - farwritetext KenjiPackFullText - waitbutton - closetext - end -.Parry: - farwritetext ParryPackFullText - waitbutton - closetext - end - -RematchGiftMScript: - opentext - checkcode VAR_CALLERID - if_equal PHONE_SAILOR_HUEY, .Huey - if_equal PHONE_YOUNGSTER_JOEY, .Joey - if_equal PHONE_BIRDKEEPER_VANCE, .Vance - if_equal PHONE_HIKER_PARRY, .Parry - -.Huey: - farwritetext HueyRematchGiftText - buttonsound - end -.Joey: - farwritetext JoeyRematchGiftText - buttonsound - end -.Vance: - farwritetext VanceRematchGiftText - buttonsound - end -.Parry: - farwritetext ParryRematchGiftText - buttonsound - end - -AskNumber1FScript: - checkcode VAR_CALLERID - if_equal PHONE_POKEFAN_BEVERLY, .Beverly - if_equal PHONE_COOLTRAINERF_BETH, .Beth - if_equal PHONE_COOLTRAINERF_REENA, .Reena - if_equal PHONE_PICNICKER_LIZ, .Liz - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Beverly: - farwritetext BeverlyAskNumber1Text - end -.Beth: - farwritetext BethAskNumber1Text - end -.Reena: - farwritetext ReenaAskNumber1Text - end -.Liz: - farwritetext LizAskNumber1Text - end -.Gina: - farwritetext GinaAskNumber1Text - end -.Dana: - farwritetext DanaAskNumber1Text - end -.Tiffany: - farwritetext TiffanyAskNumber1Text - end -.Erin: - farwritetext ErinAskNumber1Text - end - -AskNumber2FScript: - checkcode VAR_CALLERID - if_equal PHONE_POKEFAN_BEVERLY, .Beverly - if_equal PHONE_COOLTRAINERF_BETH, .Beth - if_equal PHONE_COOLTRAINERF_REENA, .Reena - if_equal PHONE_PICNICKER_LIZ, .Liz - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Beverly: - farwritetext BeverlyAskNumber2Text - end -.Beth: - farwritetext BethAskNumber2Text - end -.Reena: - farwritetext ReenaAskNumber2Text - end -.Liz: - farwritetext LizAskNumber2Text - end -.Gina: - farwritetext GinaAskNumber2Text - end -.Dana: - farwritetext DanaAskNumber2Text - end -.Tiffany: - farwritetext TiffanyAskNumber2Text - end -.Erin: - farwritetext ErinAskNumber2Text - end - -RegisteredNumberFScript: - farwritetext RegisteredNumber2Text - playsound SFX_REGISTER_PHONE_NUMBER - waitsfx - buttonsound - end - -NumberAcceptedFScript: ; 0xbcbd3 - checkcode VAR_CALLERID - if_equal PHONE_POKEFAN_BEVERLY, .Beverly - if_equal PHONE_COOLTRAINERF_BETH, .Beth - if_equal PHONE_COOLTRAINERF_REENA, .Reena - if_equal PHONE_PICNICKER_LIZ, .Liz - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Beverly: - farwritetext BeverlyNumberAcceptedText - waitbutton - closetext - end -.Beth: - farwritetext BethNumberAcceptedText - waitbutton - closetext - end -.Reena: - farwritetext ReenaNumberAcceptedText - waitbutton - closetext - end -.Liz: - farwritetext LizNumberAcceptedText - waitbutton - closetext - end -.Gina: - farwritetext GinaNumberAcceptedText - waitbutton - closetext - end -.Dana: - farwritetext DanaNumberAcceptedText - waitbutton - closetext - end -.Tiffany: - farwritetext TiffanyNumberAcceptedText - waitbutton - closetext - end -.Erin: - farwritetext ErinNumberAcceptedText - waitbutton - closetext - end - -NumberDeclinedFScript: - checkcode VAR_CALLERID - if_equal PHONE_POKEFAN_BEVERLY, .Beverly - if_equal PHONE_COOLTRAINERF_BETH, .Beth - if_equal PHONE_COOLTRAINERF_REENA, .Reena - if_equal PHONE_PICNICKER_LIZ, .Liz - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Beverly: - farwritetext BeverlyNumberDeclinedText - waitbutton - closetext - end -.Beth: - farwritetext BethNumberDeclinedText - waitbutton - closetext - end -.Reena: - farwritetext ReenaNumberDeclinedText - waitbutton - closetext - end -.Liz: - farwritetext LizNumberDeclinedText - waitbutton - closetext - end -.Gina: - farwritetext GinaNumberDeclinedText - waitbutton - closetext - end -.Dana: - farwritetext DanaNumberDeclinedText - waitbutton - closetext - end -.Tiffany: - farwritetext TiffanyNumberDeclinedText - waitbutton - closetext - end -.Erin: - farwritetext ErinNumberDeclinedText - waitbutton - closetext - end - -PhoneFullFScript: - checkcode VAR_CALLERID - if_equal PHONE_POKEFAN_BEVERLY, .Beverly - if_equal PHONE_COOLTRAINERF_BETH, .Beth - if_equal PHONE_COOLTRAINERF_REENA, .Reena - if_equal PHONE_PICNICKER_LIZ, .Liz - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Beverly: - farwritetext BeverlyPhoneFullText - waitbutton - closetext - end -.Beth: - farwritetext BethPhoneFullText - waitbutton - closetext - end -.Reena: - farwritetext ReenaPhoneFullText - waitbutton - closetext - end -.Liz: - farwritetext LizPhoneFullText - waitbutton - closetext - end -.Gina: - farwritetext GinaPhoneFullText - waitbutton - closetext - end -.Dana: - farwritetext DanaPhoneFullText - waitbutton - closetext - end -.Tiffany: - farwritetext TiffanyPhoneFullText - waitbutton - closetext - end -.Erin: - farwritetext ErinPhoneFullText - waitbutton - closetext - end - -RematchFScript: - checkcode VAR_CALLERID - if_equal PHONE_COOLTRAINERF_BETH, .Beth - if_equal PHONE_COOLTRAINERF_REENA, .Reena - if_equal PHONE_PICNICKER_LIZ, .Liz - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Beth: - farwritetext BethRematchText - waitbutton - closetext - end -.Reena: - farwritetext ReenaRematchText - waitbutton - closetext - end -.Liz: - farwritetext LizRematchText - waitbutton - closetext - end -.Gina: - farwritetext GinaRematchText - waitbutton - closetext - end -.Dana: - farwritetext DanaRematchText - waitbutton - closetext - end -.Tiffany: - farwritetext TiffanyRematchText - waitbutton - closetext - end -.Erin: - farwritetext ErinRematchText - waitbutton - closetext - end - -GiftFScript: - checkcode VAR_CALLERID - if_equal PHONE_POKEFAN_BEVERLY, .Beverly - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - -.Beverly: - farwritetext BeverlyGiftText - buttonsound - end -.Gina: - farwritetext GinaGiftText - buttonsound - end -.Dana: - farwritetext DanaGiftText - buttonsound - end -.Tiffany: - farwritetext TiffanyGiftText - buttonsound - end - -PackFullFScript: - checkcode VAR_CALLERID - if_equal PHONE_POKEFAN_BEVERLY, .Beverly - if_equal PHONE_PICNICKER_GINA, .Gina - if_equal PHONE_LASS_DANA, .Dana - if_equal PHONE_PICNICKER_TIFFANY, .Tiffany - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Beverly: - farwritetext BeverlyPackFullText - waitbutton - closetext - end -.Gina: - farwritetext GinaPackFullText - waitbutton - closetext - end -.Dana: - farwritetext DanaPackFullText - waitbutton - closetext - end -.Tiffany: - farwritetext TiffanyPackFullText - waitbutton - closetext - end -.Erin: - farwritetext ErinPackFullText - waitbutton - closetext - end - -RematchGiftFScript: - checkcode VAR_CALLERID - if_equal PHONE_PICNICKER_ERIN, .Erin - -.Erin: - opentext - farwritetext ErinRematchGiftText - buttonsound - end - -GymStatue1Script: - mapnametotext $0 - opentext - farwritetext GymStatue_CityGymText - waitbutton - closetext - end - -GymStatue2Script: - mapnametotext $0 - opentext - farwritetext GymStatue_CityGymText - buttonsound - farwritetext GymStatue_WinningTrainersText - waitbutton - closetext - end - -ReceiveItemScript: ; 0xbcdb9 - waitsfx - farwritetext ReceivedItemText - playsound SFX_ITEM - waitsfx - end -; 0xbcdc3 - -ReceiveTogepiEggScript: ; 0xbcdc3 - waitsfx - farwritetext ReceivedItemText - playsound SFX_GET_EGG_FROM_DAY_CARE_LADY - waitsfx - end -; 0xbcdcd - -GameCornerCoinVendorScript: ; 0xbcdcd - faceplayer - opentext - farwritetext CoinVendor_WelcomeText - buttonsound - checkitem COIN_CASE - iftrue CoinVendor_IntroScript - farwritetext CoinVendor_NoCoinCaseText - waitbutton - closetext - end -; 0xbcde0 - -CoinVendor_IntroScript: ; 0xbcde0 - farwritetext CoinVendor_IntroText - -.loop ; 0xbcde4 - special Special_DisplayMoneyAndCoinBalance - loadmenudata .MenuDataHeader - verticalmenu - closewindow - if_equal $1, .Buy50 - if_equal $2, .Buy500 - jump .Cancel -; 0xbcdf7 - -.Buy50: ; 0xbcdf7 - checkcoins 9949 - if_equal $0, .CoinCaseFull - checkmoney $0, 1000 - if_equal $2, .NotEnoughMoney - givecoins 50 - takemoney $0, 1000 - waitsfx - playsound SFX_TRANSACTION - farwritetext CoinVendor_Buy50CoinsText - waitbutton - jump .loop -; 0xbce1b - -.Buy500: ; 0xbce1b - checkcoins 9499 - if_equal $0, .CoinCaseFull - checkmoney $0, 10000 - if_equal $2, .NotEnoughMoney - givecoins 500 - takemoney $0, 10000 - waitsfx - playsound SFX_TRANSACTION - farwritetext CoinVendor_Buy500CoinsText - waitbutton - jump .loop -; 0xbce3f - -.NotEnoughMoney: ; 0xbce3f - farwritetext CoinVendor_NotEnoughMoneyText - waitbutton - closetext - end -; 0xbce46 - -.CoinCaseFull: ; 0xbce46 - farwritetext CoinVendor_CoinCaseFullText - waitbutton - closetext - end -; 0xbce4d - -.Cancel: ; 0xbce4d - farwritetext CoinVendor_CancelText - waitbutton - closetext - end -; 0xbce54 - - -.MenuDataHeader: - db $40 ; flags - db 04, 00 ; start coords - db 11, 15 ; end coords - dw .MenuData2 - db 1 ; default option - -.MenuData2: - db $80 ; flags - db 3 ; items - db " 50 : ¥1000@" - db "500 : ¥10000@" - db "CANCEL@" -; 0xbce7f - - -HappinessCheckScript: - faceplayer - opentext - special GetFirstPokemonHappiness - if_less_than 50, .Unhappy - if_less_than 150, .KindaHappy - farwritetext HappinessText3 - waitbutton - closetext - end - -.KindaHappy: - farwritetext HappinessText2 - waitbutton - closetext - end - -.Unhappy: - farwritetext HappinessText1 - waitbutton - closetext - end - -Movement_ContestResults_WalkAfterWarp: ; bcea1 - step RIGHT - step DOWN - turn_head UP - step_end -; bcea5 |