Advertisement
wolfboyft

edit asm

Apr 1st, 2016
201
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 41.17 KB | None | 0 0
  1. StdScripts::
  2. dba PokeCenterNurseScript
  3. dba DifficultBookshelfScript
  4. dba PictureBookshelfScript
  5. dba MagazineBookshelfScript
  6. dba TeamRocketOathScript
  7. dba IncenseBurnerScript
  8. dba MerchandiseShelfScript
  9. dba TownMapScript
  10. dba WindowScript
  11. dba TVScript
  12. dba HomepageScript
  13. dba Radio1Script
  14. dba Radio2Script
  15. dba TrashCanScript
  16. dba StrengthBoulderScript
  17. dba SmashRockScript
  18. dba PokeCenterSignScript
  19. dba MartSignScript
  20. dba GoldenrodRocketsScript
  21. dba RadioTowerRocketsScript
  22. dba ElevatorButtonScript
  23. dba DayToTextScript
  24. dba BugContestResultsWarpScript
  25. dba BugContestResultsScript
  26. dba InitializeEventsScript
  27. dba AskNumber1MScript
  28. dba AskNumber2MScript
  29. dba RegisteredNumberMScript
  30. dba NumberAcceptedMScript
  31. dba NumberDeclinedMScript
  32. dba PhoneFullMScript
  33. dba RematchMScript
  34. dba GiftMScript
  35. dba PackFullMScript
  36. dba RematchGiftMScript
  37. dba AskNumber1FScript
  38. dba AskNumber2FScript
  39. dba RegisteredNumberFScript
  40. dba NumberAcceptedFScript
  41. dba NumberDeclinedFScript
  42. dba PhoneFullFScript
  43. dba RematchFScript
  44. dba GiftFScript
  45. dba PackFullFScript
  46. dba RematchGiftFScript
  47. dba GymStatue1Script
  48. dba GymStatue2Script
  49. dba ReceiveItemScript
  50. dba ReceiveTogepiEggScript
  51. dba PCScript
  52. dba GameCornerCoinVendorScript
  53. dba HappinessCheckScript
  54.  
  55. PokeCenterNurseScript:
  56. ; EVENT_WELCOMED_TO_POKECOM_CENTER is never set
  57.  
  58. opentext
  59. checkmorn
  60. iftrue .morn
  61. checkday
  62. iftrue .day
  63. checknite
  64. iftrue .nite
  65. jump .ok
  66.  
  67. .morn
  68. checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
  69. iftrue .morn_comcenter
  70. farwritetext NurseMornText
  71. buttonsound
  72. jump .ok
  73. .morn_comcenter
  74. farwritetext PokeComNurseMornText
  75. buttonsound
  76. jump .ok
  77.  
  78. .day
  79. checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
  80. iftrue .day_comcenter
  81. farwritetext NurseDayText
  82. buttonsound
  83. jump .ok
  84. .day_comcenter
  85. farwritetext PokeComNurseDayText
  86. buttonsound
  87. jump .ok
  88.  
  89. .nite
  90. checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
  91. iftrue .nite_comcenter
  92. farwritetext NurseNiteText
  93. buttonsound
  94. jump .ok
  95. .nite_comcenter
  96. farwritetext PokeComNurseNiteText
  97. buttonsound
  98. jump .ok
  99.  
  100. .ok
  101. ; only do this once
  102. clearevent EVENT_WELCOMED_TO_POKECOM_CENTER
  103.  
  104. farwritetext NurseAskHealText
  105. yesorno
  106. iffalse .done
  107.  
  108. farwritetext NurseTakePokemonText
  109. pause 20
  110. special Mobile_HealParty
  111. spriteface LAST_TALKED, LEFT
  112. pause 10
  113. special HealParty
  114. playmusic MUSIC_NONE
  115. writebyte 0 ; Machine is at a Pokemon Center
  116. special HealMachineAnim
  117. pause 30
  118. special RestartMapMusic
  119. spriteface LAST_TALKED, DOWN
  120. pause 10
  121.  
  122. checkphonecall ; elm already called about pokerus
  123. iftrue .no
  124. checkflag ENGINE_POKERUS ; nurse already talked about pokerus
  125. iftrue .no
  126. special SpecialCheckPokerus
  127. iftrue .pokerus
  128. .no
  129.  
  130. farwritetext NurseReturnPokemonText
  131. pause 20
  132.  
  133. .done
  134. farwritetext NurseGoodbyeText
  135.  
  136. spriteface LAST_TALKED, UP
  137. pause 10
  138. spriteface LAST_TALKED, DOWN
  139. pause 10
  140.  
  141. waitbutton
  142. closetext
  143. end
  144.  
  145. .pokerus
  146. ; already cleared earlier in the script
  147. checkevent EVENT_WELCOMED_TO_POKECOM_CENTER
  148. iftrue .pokerus_comcenter
  149. farwritetext NursePokerusText
  150. waitbutton
  151. closetext
  152. jump .pokerus_done
  153.  
  154. .pokerus_comcenter
  155. farwritetext PokeComNursePokerusText
  156. waitbutton
  157. closetext
  158.  
  159. .pokerus_done
  160. setflag ENGINE_POKERUS
  161. specialphonecall SPECIALCALL_POKERUS
  162. end
  163.  
  164. DifficultBookshelfScript:
  165. farjumptext DifficultBookshelfText
  166.  
  167. PictureBookshelfScript:
  168. farjumptext PictureBookshelfText
  169.  
  170. MagazineBookshelfScript:
  171. farjumptext MagazineBookshelfText
  172.  
  173. TeamRocketOathScript:
  174. farjumptext TeamRocketOathText
  175.  
  176. IncenseBurnerScript:
  177. farjumptext IncenseBurnerText
  178.  
  179. MerchandiseShelfScript:
  180. farjumptext MerchandiseShelfText
  181.  
  182. TownMapScript:
  183. opentext
  184. farwritetext TownMapText
  185. waitbutton
  186. special Special_TownMap
  187. closetext
  188. end
  189.  
  190. WindowScript:
  191. farjumptext WindowText
  192.  
  193. TVScript:
  194. opentext
  195. farwritetext TVText
  196. waitbutton
  197. closetext
  198. end
  199.  
  200. HomepageScript:
  201. farjumptext HomepageText
  202.  
  203. Radio1Script:
  204. opentext
  205. writebyte MAPRADIO_POKEMON_CHANNEL
  206. special MapRadio
  207. closetext
  208. end
  209.  
  210. Radio2Script:
  211. ; Lucky Channel
  212. opentext
  213. writebyte MAPRADIO_LUCKY_CHANNEL
  214. special MapRadio
  215. closetext
  216. end
  217.  
  218. TrashCanScript: ; 0xbc1a5
  219. farjumptext TrashCanText
  220.  
  221. PCScript:
  222. opentext
  223. special PokemonCenterPC
  224. closetext
  225. end
  226.  
  227. ElevatorButtonScript:
  228. playsound SFX_READ_TEXT_2
  229. pause 15
  230. playsound SFX_ELEVATOR_END
  231. end
  232.  
  233. StrengthBoulderScript:
  234. farjump AskStrengthScript
  235.  
  236. SmashRockScript:
  237. farjump AskRockSmashScript
  238.  
  239. PokeCenterSignScript:
  240. farjumptext PokeCenterSignText
  241.  
  242. MartSignScript
  243. farjumptext MartSignText
  244.  
  245. DayToTextScript:
  246. checkcode VAR_WEEKDAY
  247. if_equal MONDAY, .Monday
  248. if_equal TUESDAY, .Tuesday
  249. if_equal WEDNESDAY, .Wednesday
  250. if_equal THURSDAY, .Thursday
  251. if_equal FRIDAY, .Friday
  252. if_equal SATURDAY, .Saturday
  253. stringtotext .SundayText, 0
  254. end
  255. .Monday
  256. stringtotext .MondayText, 0
  257. end
  258. .Tuesday
  259. stringtotext .TuesdayText, 0
  260. end
  261. .Wednesday
  262. stringtotext .WednesdayText, 0
  263. end
  264. .Thursday
  265. stringtotext .ThursdayText, 0
  266. end
  267. .Friday
  268. stringtotext .FridayText, 0
  269. end
  270. .Saturday
  271. stringtotext .SaturdayText, 0
  272. end
  273. .SundayText
  274. db "SUNDAY@"
  275. .MondayText
  276. db "MONDAY@"
  277. .TuesdayText
  278. db "TUESDAY@"
  279. .WednesdayText
  280. db "WEDNESDAY@"
  281. .ThursdayText
  282. db "THURSDAY@"
  283. .FridayText
  284. db "FRIDAY@"
  285. .SaturdayText
  286. db "SATURDAY@"
  287.  
  288. GoldenrodRocketsScript:
  289. clearevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER
  290. end
  291.  
  292. RadioTowerRocketsScript:
  293. setflag ENGINE_ROCKETS_IN_RADIO_TOWER
  294. setevent EVENT_GOLDENROD_CITY_CIVILIANS
  295. setevent EVENT_RADIO_TOWER_BLACKBELT_BLOCKS_STAIRS
  296. clearevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER
  297. clearevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER
  298. setevent EVENT_MAHOGANY_TOWN_POKEFAN_M_BLOCKS_EAST
  299. specialphonecall SPECIALCALL_WEIRDBROADCAST
  300. domaptrigger MAHOGANY_TOWN, $1
  301. end
  302.  
  303. BugContestResultsWarpScript:
  304. special ClearBGPalettes
  305. scall BugContestResults_CopyContestantsToResults
  306. setevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY
  307. clearevent EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_NOT_CONTEST_DAY
  308. setevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
  309. warp ROUTE_36_NATIONAL_PARK_GATE, $0, $4
  310. applymovement PLAYER, Movement_ContestResults_WalkAfterWarp
  311.  
  312. BugContestResultsScript:
  313. clearflag ENGINE_BUG_CONTEST_TIMER
  314. clearevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
  315. clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
  316. clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
  317. clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
  318. clearevent EVENT_CONTEST_OFFICER_HAS_BERRY
  319. opentext
  320. farwritetext ContestResults_ReadyToJudgeText
  321. waitbutton
  322. special BugContestJudging
  323. RAM2MEM $0
  324. if_equal 1, BugContestResults_FirstPlace
  325. if_equal 2, BugContestResults_SecondPlace
  326. if_equal 3, BugContestResults_ThirdPlace
  327. farwritetext ContestResults_ConsolationPrizeText
  328. buttonsound
  329. waitsfx
  330. verbosegiveitem BERRY
  331. iffalse BugContestResults_NoRoomForBerry
  332.  
  333. BugContestResults_DidNotWin
  334. farwritetext ContestResults_DidNotWinText
  335. buttonsound
  336. jump BugContestResults_FinishUp
  337. ; 0xbc2b1
  338.  
  339. BugContestResults_ReturnAfterWinnersPrize ; 0xbc2b1
  340. farwritetext ContestResults_JoinUsNextTimeText
  341. buttonsound
  342.  
  343. BugContestResults_FinishUp
  344. checkevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
  345. iffalse BugContestResults_DidNotLeaveMons
  346. farwritetext ContestResults_ReturnPartyText
  347. waitbutton
  348. special ContestReturnMons
  349. BugContestResults_DidNotLeaveMons
  350. special CheckPartyFullAfterContest
  351. if_equal $0, BugContestResults_CleanUp
  352. if_equal $2, BugContestResults_CleanUp
  353. farwritetext ContestResults_PartyFullText
  354. waitbutton
  355. BugContestResults_CleanUp
  356. closetext
  357. dotrigger $0
  358. domaptrigger ROUTE_35_NATIONAL_PARK_GATE, $0
  359. setevent EVENT_BUG_CATCHING_CONTESTANT_1A
  360. setevent EVENT_BUG_CATCHING_CONTESTANT_2A
  361. setevent EVENT_BUG_CATCHING_CONTESTANT_3A
  362. setevent EVENT_BUG_CATCHING_CONTESTANT_4A
  363. setevent EVENT_BUG_CATCHING_CONTESTANT_5A
  364. setevent EVENT_BUG_CATCHING_CONTESTANT_6A
  365. setevent EVENT_BUG_CATCHING_CONTESTANT_7A
  366. setevent EVENT_BUG_CATCHING_CONTESTANT_8A
  367. setevent EVENT_BUG_CATCHING_CONTESTANT_9A
  368. setevent EVENT_BUG_CATCHING_CONTESTANT_10A
  369. setevent EVENT_BUG_CATCHING_CONTESTANT_1B
  370. setevent EVENT_BUG_CATCHING_CONTESTANT_2B
  371. setevent EVENT_BUG_CATCHING_CONTESTANT_3B
  372. setevent EVENT_BUG_CATCHING_CONTESTANT_4B
  373. setevent EVENT_BUG_CATCHING_CONTESTANT_5B
  374. setevent EVENT_BUG_CATCHING_CONTESTANT_6B
  375. setevent EVENT_BUG_CATCHING_CONTESTANT_7B
  376. setevent EVENT_BUG_CATCHING_CONTESTANT_8B
  377. setevent EVENT_BUG_CATCHING_CONTESTANT_9B
  378. setevent EVENT_BUG_CATCHING_CONTESTANT_10B
  379. setflag ENGINE_DAILY_BUG_CONTEST
  380. special PlayMapMusic
  381. end
  382. ; 0xbc31e
  383.  
  384. BugContestResults_FirstPlace ; 0xbc31e
  385. setevent EVENT_GAVE_KURT_APRICORNS
  386. itemtotext SUN_STONE, $1
  387. farwritetext ContestResults_PlayerWonAPrizeText
  388. waitbutton
  389. verbosegiveitem SUN_STONE
  390. iffalse BugContestResults_NoRoomForSunStone
  391. jump BugContestResults_ReturnAfterWinnersPrize
  392. ; 0xbc332
  393.  
  394. BugContestResults_SecondPlace ; 0xbc332
  395. itemtotext EVERSTONE, $1
  396. farwritetext ContestResults_PlayerWonAPrizeText
  397. waitbutton
  398. verbosegiveitem EVERSTONE
  399. iffalse BugContestResults_NoRoomForEverstone
  400. jump BugContestResults_ReturnAfterWinnersPrize
  401. ; 0xbc343
  402.  
  403. BugContestResults_ThirdPlace ; 0xbc343
  404. itemtotext GOLD_BERRY, $1
  405. farwritetext ContestResults_PlayerWonAPrizeText
  406. waitbutton
  407. verbosegiveitem GOLD_BERRY
  408. iffalse BugContestResults_NoRoomForGoldBerry
  409. jump BugContestResults_ReturnAfterWinnersPrize
  410. ; 0xbc354
  411.  
  412. BugContestResults_NoRoomForSunStone ; 0xbc354
  413. farwritetext BugContestPrizeNoRoomText
  414. buttonsound
  415. setevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
  416. jump BugContestResults_ReturnAfterWinnersPrize
  417. ; 0xbc35f
  418.  
  419. BugContestResults_NoRoomForEverstone ; 0xbc35f
  420. farwritetext BugContestPrizeNoRoomText
  421. buttonsound
  422. setevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
  423. jump BugContestResults_ReturnAfterWinnersPrize
  424. ; 0xbc36a
  425.  
  426. BugContestResults_NoRoomForGoldBerry ; 0xbc36a
  427. farwritetext BugContestPrizeNoRoomText
  428. buttonsound
  429. setevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
  430. jump BugContestResults_ReturnAfterWinnersPrize
  431. ; 0xbc375
  432.  
  433. BugContestResults_NoRoomForBerry ; 0xbc375
  434. farwritetext BugContestPrizeNoRoomText
  435. buttonsound
  436. setevent EVENT_CONTEST_OFFICER_HAS_BERRY
  437. jump BugContestResults_DidNotWin
  438. ; 0xbc380
  439.  
  440. BugContestResults_CopyContestantsToResults ; 0xbc380
  441. checkevent EVENT_BUG_CATCHING_CONTESTANT_1A
  442. iftrue .skip1
  443. clearevent EVENT_BUG_CATCHING_CONTESTANT_1B
  444. .skip1
  445. checkevent EVENT_BUG_CATCHING_CONTESTANT_2A
  446. iftrue .skip2
  447. clearevent EVENT_BUG_CATCHING_CONTESTANT_2B
  448. .skip2
  449. checkevent EVENT_BUG_CATCHING_CONTESTANT_3A
  450. iftrue .skip3
  451. clearevent EVENT_BUG_CATCHING_CONTESTANT_3B
  452. .skip3
  453. checkevent EVENT_BUG_CATCHING_CONTESTANT_4A
  454. iftrue .skip4
  455. clearevent EVENT_BUG_CATCHING_CONTESTANT_4B
  456. .skip4
  457. checkevent EVENT_BUG_CATCHING_CONTESTANT_5A
  458. iftrue .skip5
  459. clearevent EVENT_BUG_CATCHING_CONTESTANT_5B
  460. .skip5
  461. checkevent EVENT_BUG_CATCHING_CONTESTANT_6A
  462. iftrue .skip6
  463. clearevent EVENT_BUG_CATCHING_CONTESTANT_6B
  464. .skip6
  465. checkevent EVENT_BUG_CATCHING_CONTESTANT_7A
  466. iftrue .skip7
  467. clearevent EVENT_BUG_CATCHING_CONTESTANT_7B
  468. .skip7
  469. checkevent EVENT_BUG_CATCHING_CONTESTANT_8A
  470. iftrue .skip8
  471. clearevent EVENT_BUG_CATCHING_CONTESTANT_8B
  472. .skip8
  473. checkevent EVENT_BUG_CATCHING_CONTESTANT_9A
  474. iftrue .skip9
  475. clearevent EVENT_BUG_CATCHING_CONTESTANT_9B
  476. .skip9
  477. checkevent EVENT_BUG_CATCHING_CONTESTANT_10A
  478. iftrue .skip10
  479. clearevent EVENT_BUG_CATCHING_CONTESTANT_10B
  480. .skip10
  481. end
  482.  
  483. InitializeEventsScript:
  484. setevent EVENT_EARLS_ACADEMY_EARL
  485. setevent EVENT_RADIO_TOWER_ROCKET_TAKEOVER
  486. setevent EVENT_GOLDENROD_CITY_ROCKET_TAKEOVER
  487. setevent EVENT_RADIO_TOWER_CIVILIANS_AFTER
  488. setevent EVENT_ILEX_FOREST_APPRENTICE
  489. setevent EVENT_ILEX_FOREST_FARFETCHD
  490. setevent EVENT_ILEX_FOREST_CHARCOAL_MASTER
  491. setevent EVENT_MAHOGANY_MART_LANCE_AND_DRAGONITE
  492. setevent EVENT_TEAM_ROCKET_BASE_B2F_GRUNT_WITH_EXECUTIVE
  493. setevent EVENT_TEAM_ROCKET_BASE_B2F_EXECUTIVE
  494. setevent EVENT_TEAM_ROCKET_BASE_B2F_DRAGONITE
  495. setevent EVENT_RIVAL_TEAM_ROCKET_BASE
  496. setevent EVENT_BLACKTHORN_CITY_SUPER_NERD_DOES_NOT_BLOCK_GYM
  497. setevent EVENT_USED_THE_CARD_KEY_IN_THE_RADIO_TOWER
  498. setevent EVENT_RIVAL_CHERRYGROVE_CITY
  499. setevent EVENT_RIVAL_AZALEA_TOWN
  500. setevent EVENT_RIVAL_UNDERGROUND_PATH
  501. setevent EVENT_AZALEA_TOWN_SLOWPOKES
  502. setevent EVENT_KURTS_HOUSE_SLOWPOKE
  503. setevent EVENT_GUIDE_GENT_VISIBLE_IN_CHERRYGROVE
  504. setevent EVENT_ELMS_AIDE_IN_VIOLET_POKEMON_CENTER
  505. setevent EVENT_COP_IN_ELMS_LAB
  506. setevent EVENT_RUINS_OF_ALPH_OUTSIDE_SCIENTIST
  507. setevent EVENT_RUINS_OF_ALPH_RESEARCH_CENTER_SCIENTIST
  508. setevent EVENT_BOULDER_IN_ICE_PATH_1A
  509. setevent EVENT_BOULDER_IN_ICE_PATH_2A
  510. setevent EVENT_BOULDER_IN_ICE_PATH_3A
  511. setevent EVENT_BOULDER_IN_ICE_PATH_4A
  512. setevent EVENT_ROUTE_30_YOUNGSTER_JOEY
  513. setevent EVENT_BUG_CATCHING_CONTESTANT_1A
  514. setevent EVENT_BUG_CATCHING_CONTESTANT_2A
  515. setevent EVENT_BUG_CATCHING_CONTESTANT_3A
  516. setevent EVENT_BUG_CATCHING_CONTESTANT_4A
  517. setevent EVENT_BUG_CATCHING_CONTESTANT_5A
  518. setevent EVENT_BUG_CATCHING_CONTESTANT_6A
  519. setevent EVENT_BUG_CATCHING_CONTESTANT_7A
  520. setevent EVENT_BUG_CATCHING_CONTESTANT_8A
  521. setevent EVENT_BUG_CATCHING_CONTESTANT_9A
  522. setevent EVENT_BUG_CATCHING_CONTESTANT_10A
  523. setevent EVENT_BUG_CATCHING_CONTESTANT_1B
  524. setevent EVENT_BUG_CATCHING_CONTESTANT_2B
  525. setevent EVENT_BUG_CATCHING_CONTESTANT_3B
  526. setevent EVENT_BUG_CATCHING_CONTESTANT_4B
  527. setevent EVENT_BUG_CATCHING_CONTESTANT_5B
  528. setevent EVENT_BUG_CATCHING_CONTESTANT_6B
  529. setevent EVENT_BUG_CATCHING_CONTESTANT_7B
  530. setevent EVENT_BUG_CATCHING_CONTESTANT_8B
  531. setevent EVENT_BUG_CATCHING_CONTESTANT_9B
  532. setevent EVENT_BUG_CATCHING_CONTESTANT_10B
  533. setevent EVENT_FAST_SHIP_1F_GENTLEMAN
  534. setevent EVENT_FAST_SHIP_B1F_SAILOR_RIGHT
  535. setevent EVENT_FAST_SHIP_CABINS_NNW_NNE_NE_SAILOR
  536. setevent EVENT_LAKE_OF_RAGE_CIVILIANS
  537. setevent EVENT_MAHOGANY_MART_OWNERS
  538. setevent EVENT_TIN_TOWER_ROOF_HO_OH
  539. setevent EVENT_WHIRL_ISLAND_LUGIA_CHAMBER_LUGIA
  540. setevent EVENT_KRISS_HOUSE_2F_CONSOLE
  541. setevent EVENT_KRISS_HOUSE_2F_DOLL_1
  542. setevent EVENT_KRISS_HOUSE_2F_DOLL_2
  543. setevent EVENT_KRISS_HOUSE_2F_BIG_DOLL
  544. setevent EVENT_DECO_BED_1
  545. setevent EVENT_DECO_PLANT_4
  546. setevent EVENT_GOLDENROD_TRAIN_STATION_GENTLEMAN
  547. setevent EVENT_OLIVINE_GYM_JASMINE
  548. setevent EVENT_BLACKTHORN_CITY_GRAMPS_NOT_BLOCKING_DRAGONS_DEN
  549. setevent EVENT_MET_BILL
  550. setevent EVENT_ECRUTEAK_POKE_CENTER_BILL
  551. setevent EVENT_MYSTERY_GIFT_DELIVERY_GUY
  552. setevent EVENT_LAKE_OF_RAGE_LANCE
  553. setevent EVENT_WAREHOUSE_LAYOUT_1
  554. setevent EVENT_WAREHOUSE_BLOCKED_OFF
  555. setevent EVENT_DRAGONS_DEN_CLAIR
  556. setevent EVENT_RIVAL_OLIVINE_CITY
  557. setevent EVENT_RIVAL_VICTORY_ROAD
  558. setevent EVENT_RIVAL_DRAGONS_DEN
  559. setevent EVENT_LANCES_ROOM_OAK_AND_MARY
  560. setevent EVENT_FAST_SHIP_CABINS_SE_SSE_CAPTAINS_CABIN_TWIN_1
  561. setevent EVENT_BURNED_TOWER_B1F_BEASTS_1
  562. setevent EVENT_RED_IN_MT_SILVER
  563. setevent EVENT_OLIVINE_PORT_SPRITES_AFTER_HALL_OF_FAME
  564. setevent EVENT_FAST_SHIP_PASSENGERS_EASTBOUND
  565. setevent EVENT_FAST_SHIP_PASSENGERS_WESTBOUND
  566. setevent EVENT_OLIVINE_PORT_PASSAGE_POKEFAN_M
  567. setevent EVENT_KURTS_HOUSE_KURT_2
  568. setevent EVENT_KURTS_HOUSE_GRANDDAUGHTER_2
  569. setevent EVENT_RANG_CLEAR_BELL_1
  570. setevent EVENT_FLORIA_AT_FLOWER_SHOP
  571. setevent EVENT_FLORIA_AT_SUDOWOODO
  572. setevent EVENT_GOLDENROD_CITY_MOVE_TUTOR
  573. setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_FISHER
  574. setevent EVENT_RUINS_OF_ALPH_OUTSIDE_TOURIST_YOUNGSTERS
  575. setevent EVENT_DRAGON_SHRINE_CLAIR
  576. setevent EVENT_BATTLE_TOWER_BATTLE_ROOM_YOUNGSTER
  577. setevent EVENT_KRISS_NEIGHBORS_HOUSE_NEIGHBOR
  578. setevent EVENT_AZALEA_TOWN_KURT
  579. setevent EVENT_AZALEA_TOWN_KURT
  580. setevent EVENT_ILEX_FOREST_KURT
  581. setevent EVENT_ROUTE_34_ILEX_FOREST_GATE_TEACHER_IN_WALKWAY
  582. setevent EVENT_ILEX_FOREST_LASS
  583. setevent EVENT_GOLDENROD_SALE_OFF
  584. setevent EVENT_ECRUTEAK_CITY_GRAMPS
  585. setevent EVENT_EUSINE_IN_BURNED_TOWER
  586. setevent EVENT_KRISS_HOUSE_MOM_2
  587. setevent EVENT_WISE_TRIOS_ROOM_WISE_TRIO_2
  588. setevent EVENT_CIANWOOD_CITY_EUSINE
  589. setevent EVENT_TIN_TOWER_1F_EUSINE
  590. setevent EVENT_TIN_TOWER_1F_WISE_TRIO_1
  591. setevent EVENT_TIN_TOWER_1F_WISE_TRIO_2
  592. setevent EVENT_SET_WHEN_FOUGHT_HO_OH
  593. setevent EVENT_SAW_SUICUNE_ON_ROUTE_36
  594. setevent EVENT_SAW_SUICUNE_ON_ROUTE_42
  595. setevent EVENT_SAW_SUICUNE_AT_CIANWOOD_CITY
  596. setevent EVENT_BATTLE_TOWER_OUTSIDE_SAILOR
  597. setflag ENGINE_ROCKET_SIGNAL_ON_CH20
  598. setflag ENGINE_ROCKETS_IN_MAHOGANY
  599. variablesprite SPRITE_WEIRD_TREE, SPRITE_SUDOWOODO
  600. variablesprite SPRITE_OLIVINE_RIVAL, SPRITE_SILVER
  601. variablesprite SPRITE_AZALEA_ROCKET, SPRITE_ROCKET
  602. variablesprite SPRITE_FUCHSIA_GYM_1, SPRITE_JANINE
  603. variablesprite SPRITE_FUCHSIA_GYM_2, SPRITE_JANINE
  604. variablesprite SPRITE_FUCHSIA_GYM_3, SPRITE_JANINE
  605. variablesprite SPRITE_FUCHSIA_GYM_4, SPRITE_JANINE
  606. variablesprite SPRITE_COPYCAT, SPRITE_LASS
  607. variablesprite SPRITE_JANINE_IMPERSONATOR, SPRITE_LASS
  608. setevent EVENT_FOUND_MACHINE_PART_IN_CERULEAN_GYM
  609. setevent EVENT_CERULEAN_GYM_ROCKET
  610. setevent EVENT_ROUTE_24_ROCKET
  611. setevent EVENT_ROUTE_25_MISTY_BOYFRIEND
  612. setevent EVENT_TRAINERS_IN_CERULEAN_GYM
  613. setevent EVENT_COPYCATS_HOUSE_2F_DOLL
  614. setevent EVENT_VIRIDIAN_GYM_BLUE
  615. setevent EVENT_SEAFOAM_GYM_GYM_GUY
  616. setevent EVENT_MT_MOON_SQUARE_CLEFAIRY
  617. setevent EVENT_SAFFRON_TRAIN_STATION_POPULATION
  618. setevent EVENT_INDIGO_PLATEAU_POKECENTER_RIVAL
  619. setevent EVENT_INITIALIZED_EVENTS
  620. clearevent EVENT_34B
  621. setevent EVENT_105
  622. return
  623.  
  624. AskNumber1MScript:
  625. special RandomPhoneMon
  626. checkcode VAR_CALLERID
  627. if_equal PHONE_SCHOOLBOY_JACK, .Jack
  628. if_equal PHONE_SAILOR_HUEY, .Huey
  629. if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
  630. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  631. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  632. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  633. if_equal PHONE_FISHER_RALPH, .Ralph
  634. if_equal PHONE_HIKER_ANTHONY, .Anthony
  635. if_equal PHONE_CAMPER_TODD, .Todd
  636. if_equal PHONE_JUGGLER_IRWIN, .Irwin
  637. if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
  638. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  639. if_equal PHONE_SCHOOLBOY_CHAD, .Chad
  640. if_equal PHONE_POKEFANM_DEREK, .Derek
  641. if_equal PHONE_FISHER_TULLY, .Tully
  642. if_equal PHONE_POKEMANIAC_BRENT, .Brent
  643. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  644. if_equal PHONE_FISHER_WILTON, .Wilton
  645. if_equal PHONE_BLACKBELT_KENJI, .Kenji
  646. if_equal PHONE_HIKER_PARRY, .Parry
  647.  
  648. .Jack
  649. farwritetext JackAskNumber1Text
  650. end
  651. .Huey
  652. farwritetext HueyAskNumber1Text
  653. end
  654. .Gaven
  655. farwritetext GavenAskNumber1Text
  656. end
  657. .Jose
  658. farwritetext JoseAskNumber1Text
  659. end
  660. .Joey
  661. farwritetext JoeyAskNumber1Text
  662. end
  663. .Wade
  664. farwritetext WadeAskNumber1Text
  665. end
  666. .Ralph
  667. farwritetext RalphAskNumber1Text
  668. end
  669. .Anthony
  670. farwritetext AnthonyAskNumber1Text
  671. end
  672. .Todd
  673. farwritetext ToddAskNumber1Text
  674. end
  675. .Irwin
  676. farwritetext IrwinAskNumber1Text
  677. end
  678. .Arnie
  679. farwritetext ArnieAskNumber1Text
  680. end
  681. .Alan
  682. farwritetext AlanAskNumber1Text
  683. end
  684. .Chad
  685. farwritetext ChadAskNumber1Text
  686. end
  687. .Derek
  688. farwritetext DerekAskNumber1Text
  689. end
  690. .Tully
  691. farwritetext TullyAskNumber1Text
  692. end
  693. .Brent
  694. farwritetext BrentAskNumber1Text
  695. end
  696. .Vance
  697. farwritetext VanceAskNumber1Text
  698. end
  699. .Wilton
  700. farwritetext WiltonAskNumber1Text
  701. end
  702. .Kenji
  703. farwritetext KenjiAskNumber1Text
  704. end
  705. .Parry
  706. farwritetext ParryAskNumber1Text
  707. end
  708.  
  709. AskNumber2MScript:
  710. special RandomPhoneMon
  711. checkcode VAR_CALLERID
  712. if_equal PHONE_SCHOOLBOY_JACK, .Jack
  713. if_equal PHONE_SAILOR_HUEY, .Huey
  714. if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
  715. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  716. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  717. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  718. if_equal PHONE_FISHER_RALPH, .Ralph
  719. if_equal PHONE_HIKER_ANTHONY, .Anthony
  720. if_equal PHONE_CAMPER_TODD, .Todd
  721. if_equal PHONE_JUGGLER_IRWIN, .Irwin
  722. if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
  723. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  724. if_equal PHONE_SCHOOLBOY_CHAD, .Chad
  725. if_equal PHONE_POKEFANM_DEREK, .Derek
  726. if_equal PHONE_FISHER_TULLY, .Tully
  727. if_equal PHONE_POKEMANIAC_BRENT, .Brent
  728. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  729. if_equal PHONE_FISHER_WILTON, .Wilton
  730. if_equal PHONE_BLACKBELT_KENJI, .Kenji
  731. if_equal PHONE_HIKER_PARRY, .Parry
  732.  
  733. .Jack
  734. farwritetext JackAskNumber2Text
  735. end
  736. .Huey
  737. farwritetext HueyAskNumber2Text
  738. end
  739. .Gaven
  740. farwritetext GavenAskNumber2Text
  741. end
  742. .Jose
  743. farwritetext JoseAskNumber2Text
  744. end
  745. .Joey
  746. farwritetext JoeyAskNumber2Text
  747. end
  748. .Wade
  749. farwritetext WadeAskNumber2Text
  750. end
  751. .Ralph
  752. farwritetext RalphAskNumber2Text
  753. end
  754. .Anthony
  755. farwritetext AnthonyAskNumber2Text
  756. end
  757. .Todd
  758. farwritetext ToddAskNumber2Text
  759. end
  760. .Irwin
  761. farwritetext IrwinAskNumber2Text
  762. end
  763. .Arnie
  764. farwritetext ArnieAskNumber2Text
  765. end
  766. .Alan
  767. farwritetext AlanAskNumber2Text
  768. end
  769. .Chad
  770. farwritetext ChadAskNumber2Text
  771. end
  772. .Derek
  773. farwritetext DerekAskNumber2Text
  774. end
  775. .Tully
  776. farwritetext TullyAskNumber2Text
  777. end
  778. .Brent
  779. farwritetext BrentAskNumber2Text
  780. end
  781. .Vance
  782. farwritetext VanceAskNumber2Text
  783. end
  784. .Wilton
  785. farwritetext WiltonAskNumber2Text
  786. end
  787. .Kenji
  788. farwritetext KenjiAskNumber2Text
  789. end
  790. .Parry
  791. farwritetext ParryAskNumber2Text
  792. end
  793.  
  794. RegisteredNumberMScript:
  795. farwritetext RegisteredNumber1Text
  796. playsound SFX_REGISTER_PHONE_NUMBER
  797. waitsfx
  798. buttonsound
  799. end
  800.  
  801. NumberAcceptedMScript:
  802. checkcode VAR_CALLERID
  803. if_equal PHONE_SCHOOLBOY_JACK, .Jack
  804. if_equal PHONE_SAILOR_HUEY, .Huey
  805. if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
  806. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  807. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  808. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  809. if_equal PHONE_FISHER_RALPH, .Ralph
  810. if_equal PHONE_HIKER_ANTHONY, .Anthony
  811. if_equal PHONE_CAMPER_TODD, .Todd
  812. if_equal PHONE_JUGGLER_IRWIN, .Irwin
  813. if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
  814. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  815. if_equal PHONE_SCHOOLBOY_CHAD, .Chad
  816. if_equal PHONE_POKEFANM_DEREK, .Derek
  817. if_equal PHONE_FISHER_TULLY, .Tully
  818. if_equal PHONE_POKEMANIAC_BRENT, .Brent
  819. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  820. if_equal PHONE_FISHER_WILTON, .Wilton
  821. if_equal PHONE_BLACKBELT_KENJI, .Kenji
  822. if_equal PHONE_HIKER_PARRY, .Parry
  823.  
  824. .Jack
  825. farwritetext JackNumberAcceptedText
  826. waitbutton
  827. closetext
  828. end
  829. .Huey
  830. farwritetext HueyNumberAcceptedText
  831. waitbutton
  832. closetext
  833. end
  834. .Gaven
  835. farwritetext GavenNumberAcceptedText
  836. waitbutton
  837. closetext
  838. end
  839. .Jose
  840. farwritetext JoseNumberAcceptedText
  841. waitbutton
  842. closetext
  843. end
  844. .Joey
  845. farwritetext JoeyNumberAcceptedText
  846. waitbutton
  847. closetext
  848. end
  849. .Wade
  850. farwritetext WadeNumberAcceptedText
  851. waitbutton
  852. closetext
  853. end
  854. .Ralph
  855. farwritetext RalphNumberAcceptedText
  856. waitbutton
  857. closetext
  858. end
  859. .Anthony
  860. farwritetext AnthonyNumberAcceptedText
  861. waitbutton
  862. closetext
  863. end
  864. .Todd
  865. farwritetext ToddNumberAcceptedText
  866. waitbutton
  867. closetext
  868. end
  869. .Irwin
  870. farwritetext IrwinNumberAcceptedText
  871. waitbutton
  872. closetext
  873. end
  874. .Arnie
  875. farwritetext ArnieNumberAcceptedText
  876. waitbutton
  877. closetext
  878. end
  879. .Alan
  880. farwritetext AlanNumberAcceptedText
  881. waitbutton
  882. closetext
  883. end
  884. .Chad
  885. farwritetext ChadNumberAcceptedText
  886. waitbutton
  887. closetext
  888. end
  889. .Derek
  890. farwritetext DerekNumberAcceptedText
  891. waitbutton
  892. closetext
  893. end
  894. .Tully
  895. farwritetext TullyNumberAcceptedText
  896. waitbutton
  897. closetext
  898. end
  899. .Brent
  900. farwritetext BrentNumberAcceptedText
  901. waitbutton
  902. closetext
  903. end
  904. .Vance
  905. farwritetext VanceNumberAcceptedText
  906. waitbutton
  907. closetext
  908. end
  909. .Wilton
  910. farwritetext WiltonNumberAcceptedText
  911. waitbutton
  912. closetext
  913. end
  914. .Kenji
  915. farwritetext KenjiNumberAcceptedText
  916. waitbutton
  917. closetext
  918. end
  919. .Parry
  920. farwritetext ParryNumberAcceptedText
  921. waitbutton
  922. closetext
  923. end
  924.  
  925. NumberDeclinedMScript:
  926. checkcode VAR_CALLERID
  927. if_equal PHONE_SCHOOLBOY_JACK, .Jack
  928. if_equal PHONE_SAILOR_HUEY, .Huey
  929. if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
  930. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  931. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  932. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  933. if_equal PHONE_FISHER_RALPH, .Ralph
  934. if_equal PHONE_HIKER_ANTHONY, .Anthony
  935. if_equal PHONE_CAMPER_TODD, .Todd
  936. if_equal PHONE_JUGGLER_IRWIN, .Irwin
  937. if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
  938. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  939. if_equal PHONE_SCHOOLBOY_CHAD, .Chad
  940. if_equal PHONE_POKEFANM_DEREK, .Derek
  941. if_equal PHONE_FISHER_TULLY, .Tully
  942. if_equal PHONE_POKEMANIAC_BRENT, .Brent
  943. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  944. if_equal PHONE_FISHER_WILTON, .Wilton
  945. if_equal PHONE_BLACKBELT_KENJI, .Kenji
  946. if_equal PHONE_HIKER_PARRY, .Parry
  947.  
  948. .Jack
  949. farwritetext JackNumberDeclinedText
  950. waitbutton
  951. closetext
  952. end
  953. .Huey
  954. farwritetext HueyNumberDeclinedText
  955. waitbutton
  956. closetext
  957. end
  958. .Gaven
  959. farwritetext GavenNumberDeclinedText
  960. waitbutton
  961. closetext
  962. end
  963. .Jose
  964. farwritetext JoseNumberDeclinedText
  965. waitbutton
  966. closetext
  967. end
  968. .Joey
  969. farwritetext JoeyNumberDeclinedText
  970. waitbutton
  971. closetext
  972. end
  973. .Wade
  974. farwritetext WadeNumberDeclinedText
  975. waitbutton
  976. closetext
  977. end
  978. .Ralph
  979. farwritetext RalphNumberDeclinedText
  980. waitbutton
  981. closetext
  982. end
  983. .Anthony
  984. farwritetext AnthonyNumberDeclinedText
  985. waitbutton
  986. closetext
  987. end
  988. .Todd
  989. farwritetext ToddNumberDeclinedText
  990. waitbutton
  991. closetext
  992. end
  993. .Irwin
  994. farwritetext IrwinNumberDeclinedText
  995. waitbutton
  996. closetext
  997. end
  998. .Arnie
  999. farwritetext ArnieNumberDeclinedText
  1000. waitbutton
  1001. closetext
  1002. end
  1003. .Alan
  1004. farwritetext AlanNumberDeclinedText
  1005. waitbutton
  1006. closetext
  1007. end
  1008. .Chad
  1009. farwritetext ChadNumberDeclinedText
  1010. waitbutton
  1011. closetext
  1012. end
  1013. .Derek
  1014. farwritetext DerekNumberDeclinedText
  1015. waitbutton
  1016. closetext
  1017. end
  1018. .Tully
  1019. farwritetext TullyNumberDeclinedText
  1020. waitbutton
  1021. closetext
  1022. end
  1023. .Brent
  1024. farwritetext BrentNumberDeclinedText
  1025. waitbutton
  1026. closetext
  1027. end
  1028. .Vance
  1029. farwritetext VanceNumberDeclinedText
  1030. waitbutton
  1031. closetext
  1032. end
  1033. .Wilton
  1034. farwritetext WiltonNumberDeclinedText
  1035. waitbutton
  1036. closetext
  1037. end
  1038. .Kenji
  1039. farwritetext KenjiNumberDeclinedText
  1040. waitbutton
  1041. closetext
  1042. end
  1043. .Parry
  1044. farwritetext ParryNumberDeclinedText
  1045. waitbutton
  1046. closetext
  1047. end
  1048.  
  1049. PhoneFullMScript:
  1050. checkcode VAR_CALLERID
  1051. if_equal PHONE_SCHOOLBOY_JACK, .Jack
  1052. if_equal PHONE_SAILOR_HUEY, .Huey
  1053. if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
  1054. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  1055. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  1056. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  1057. if_equal PHONE_FISHER_RALPH, .Ralph
  1058. if_equal PHONE_HIKER_ANTHONY, .Anthony
  1059. if_equal PHONE_CAMPER_TODD, .Todd
  1060. if_equal PHONE_JUGGLER_IRWIN, .Irwin
  1061. if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
  1062. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  1063. if_equal PHONE_SCHOOLBOY_CHAD, .Chad
  1064. if_equal PHONE_POKEFANM_DEREK, .Derek
  1065. if_equal PHONE_FISHER_TULLY, .Tully
  1066. if_equal PHONE_POKEMANIAC_BRENT, .Brent
  1067. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  1068. if_equal PHONE_FISHER_WILTON, .Wilton
  1069. if_equal PHONE_BLACKBELT_KENJI, .Kenji
  1070. if_equal PHONE_HIKER_PARRY, .Parry
  1071.  
  1072. .Jack
  1073. farwritetext JackPhoneFullText
  1074. waitbutton
  1075. closetext
  1076. end
  1077. .Huey
  1078. farwritetext HueyPhoneFullText
  1079. waitbutton
  1080. closetext
  1081. end
  1082. .Gaven
  1083. farwritetext GavenPhoneFullText
  1084. waitbutton
  1085. closetext
  1086. end
  1087. .Jose
  1088. farwritetext JosePhoneFullText
  1089. waitbutton
  1090. closetext
  1091. end
  1092. .Joey
  1093. farwritetext JoeyPhoneFullText
  1094. waitbutton
  1095. closetext
  1096. end
  1097. .Wade
  1098. farwritetext WadePhoneFullText
  1099. waitbutton
  1100. closetext
  1101. end
  1102. .Ralph
  1103. farwritetext RalphPhoneFullText
  1104. waitbutton
  1105. closetext
  1106. end
  1107. .Anthony
  1108. farwritetext AnthonyPhoneFullText
  1109. waitbutton
  1110. closetext
  1111. end
  1112. .Todd
  1113. farwritetext ToddPhoneFullText
  1114. waitbutton
  1115. closetext
  1116. end
  1117. .Irwin
  1118. farwritetext IrwinPhoneFullText
  1119. waitbutton
  1120. closetext
  1121. end
  1122. .Arnie
  1123. farwritetext ArniePhoneFullText
  1124. waitbutton
  1125. closetext
  1126. end
  1127. .Alan
  1128. farwritetext AlanPhoneFullText
  1129. waitbutton
  1130. closetext
  1131. end
  1132. .Chad
  1133. farwritetext ChadPhoneFullText
  1134. waitbutton
  1135. closetext
  1136. end
  1137. .Derek
  1138. farwritetext DerekPhoneFullText
  1139. waitbutton
  1140. closetext
  1141. end
  1142. .Tully
  1143. farwritetext TullyPhoneFullText
  1144. waitbutton
  1145. closetext
  1146. end
  1147. .Brent
  1148. farwritetext BrentPhoneFullText
  1149. waitbutton
  1150. closetext
  1151. end
  1152. .Vance
  1153. farwritetext VancePhoneFullText
  1154. waitbutton
  1155. closetext
  1156. end
  1157. .Wilton
  1158. farwritetext WiltonPhoneFullText
  1159. waitbutton
  1160. closetext
  1161. end
  1162. .Kenji
  1163. farwritetext KenjiPhoneFullText
  1164. waitbutton
  1165. closetext
  1166. end
  1167. .Parry
  1168. farwritetext ParryPhoneFullText
  1169. waitbutton
  1170. closetext
  1171. end
  1172.  
  1173. RematchMScript:
  1174. checkcode VAR_CALLERID
  1175. if_equal PHONE_SCHOOLBOY_JACK, .Jack
  1176. if_equal PHONE_SAILOR_HUEY, .Huey
  1177. if_equal PHONE_COOLTRAINERM_GAVEN, .Gaven
  1178. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  1179. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  1180. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  1181. if_equal PHONE_FISHER_RALPH, .Ralph
  1182. if_equal PHONE_HIKER_ANTHONY, .Anthony
  1183. if_equal PHONE_CAMPER_TODD, .Todd
  1184. if_equal PHONE_BUG_CATCHER_ARNIE, .Arnie
  1185. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  1186. if_equal PHONE_SCHOOLBOY_CHAD, .Chad
  1187. if_equal PHONE_FISHER_TULLY, .Tully
  1188. if_equal PHONE_POKEMANIAC_BRENT, .Brent
  1189. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  1190. if_equal PHONE_FISHER_WILTON, .Wilton
  1191. if_equal PHONE_HIKER_PARRY, .Parry
  1192.  
  1193. .Jack
  1194. farwritetext JackRematchText
  1195. waitbutton
  1196. closetext
  1197. end
  1198. .Huey
  1199. farwritetext HueyRematchText
  1200. waitbutton
  1201. closetext
  1202. end
  1203. .Gaven
  1204. farwritetext GavenRematchText
  1205. waitbutton
  1206. closetext
  1207. end
  1208. .Jose
  1209. farwritetext JoseRematchText
  1210. waitbutton
  1211. closetext
  1212. end
  1213. .Joey
  1214. farwritetext JoeyRematchText
  1215. waitbutton
  1216. closetext
  1217. end
  1218. .Wade
  1219. farwritetext WadeRematchText
  1220. waitbutton
  1221. closetext
  1222. end
  1223. .Ralph
  1224. farwritetext RalphRematchText
  1225. waitbutton
  1226. closetext
  1227. end
  1228. .Anthony
  1229. farwritetext AnthonyRematchText
  1230. waitbutton
  1231. closetext
  1232. end
  1233. .Todd
  1234. farwritetext ToddRematchText
  1235. waitbutton
  1236. closetext
  1237. end
  1238. .Arnie
  1239. farwritetext ArnieRematchText
  1240. waitbutton
  1241. closetext
  1242. end
  1243. .Alan
  1244. farwritetext AlanRematchText
  1245. waitbutton
  1246. closetext
  1247. end
  1248. .Chad
  1249. farwritetext ChadRematchText
  1250. waitbutton
  1251. closetext
  1252. end
  1253. .Tully
  1254. farwritetext TullyRematchText
  1255. waitbutton
  1256. closetext
  1257. end
  1258. .Brent
  1259. farwritetext BrentRematchText
  1260. waitbutton
  1261. closetext
  1262. end
  1263. .Vance
  1264. farwritetext VanceRematchText
  1265. waitbutton
  1266. closetext
  1267. end
  1268. .Wilton
  1269. farwritetext WiltonRematchText
  1270. waitbutton
  1271. closetext
  1272. end
  1273. .Parry
  1274. farwritetext ParryRematchText
  1275. waitbutton
  1276. closetext
  1277. end
  1278.  
  1279. GiftMScript:
  1280. checkcode VAR_CALLERID
  1281. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  1282. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  1283. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  1284. if_equal PHONE_POKEFANM_DEREK, .Derek
  1285. if_equal PHONE_FISHER_TULLY, .Tully
  1286. if_equal PHONE_FISHER_WILTON, .Wilton
  1287. if_equal PHONE_BLACKBELT_KENJI, .Kenji
  1288.  
  1289. .Jose
  1290. farwritetext JoseGiftText
  1291. buttonsound
  1292. end
  1293. .Wade
  1294. farwritetext WadeGiftText
  1295. buttonsound
  1296. end
  1297. .Alan
  1298. farwritetext AlanGiftText
  1299. buttonsound
  1300. end
  1301. .Derek
  1302. farwritetext DerekGiftText
  1303. buttonsound
  1304. end
  1305. .Tully
  1306. farwritetext TullyGiftText
  1307. buttonsound
  1308. end
  1309. .Wilton
  1310. farwritetext WiltonGiftText
  1311. buttonsound
  1312. end
  1313. .Kenji
  1314. farwritetext KenjiGiftText
  1315. buttonsound
  1316. end
  1317.  
  1318. PackFullMScript:
  1319. checkcode VAR_CALLERID
  1320. if_equal PHONE_SAILOR_HUEY, .Huey
  1321. if_equal PHONE_BIRDKEEPER_JOSE, .Jose
  1322. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  1323. if_equal PHONE_BUG_CATCHER_WADE, .Wade
  1324. if_equal PHONE_SCHOOLBOY_ALAN, .Alan
  1325. if_equal PHONE_POKEFANM_DEREK, .Derek
  1326. if_equal PHONE_FISHER_TULLY, .Tully
  1327. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  1328. if_equal PHONE_FISHER_WILTON, .Wilton
  1329. if_equal PHONE_BLACKBELT_KENJI, .Kenji
  1330. if_equal PHONE_HIKER_PARRY, .Parry
  1331.  
  1332. .Huey
  1333. farwritetext HueyPackFullText
  1334. waitbutton
  1335. closetext
  1336. end
  1337. .Jose
  1338. farwritetext JosePackFullText
  1339. waitbutton
  1340. closetext
  1341. end
  1342. .Joey
  1343. farwritetext JoeyPackFullText
  1344. waitbutton
  1345. closetext
  1346. end
  1347. .Wade
  1348. farwritetext WadePackFullText
  1349. waitbutton
  1350. closetext
  1351. end
  1352. .Alan
  1353. farwritetext AlanPackFullText
  1354. waitbutton
  1355. closetext
  1356. end
  1357. .Derek
  1358. farwritetext DerekPackFullText
  1359. waitbutton
  1360. closetext
  1361. end
  1362. .Tully
  1363. farwritetext TullyPackFullText
  1364. waitbutton
  1365. closetext
  1366. end
  1367. .Vance
  1368. farwritetext VancePackFullText
  1369. waitbutton
  1370. closetext
  1371. end
  1372. .Wilton
  1373. farwritetext WiltonPackFullText
  1374. waitbutton
  1375. closetext
  1376. end
  1377. .Kenji
  1378. farwritetext KenjiPackFullText
  1379. waitbutton
  1380. closetext
  1381. end
  1382. .Parry
  1383. farwritetext ParryPackFullText
  1384. waitbutton
  1385. closetext
  1386. end
  1387.  
  1388. RematchGiftMScript:
  1389. opentext
  1390. checkcode VAR_CALLERID
  1391. if_equal PHONE_SAILOR_HUEY, .Huey
  1392. if_equal PHONE_YOUNGSTER_JOEY, .Joey
  1393. if_equal PHONE_BIRDKEEPER_VANCE, .Vance
  1394. if_equal PHONE_HIKER_PARRY, .Parry
  1395.  
  1396. .Huey
  1397. farwritetext HueyRematchGiftText
  1398. buttonsound
  1399. end
  1400. .Joey
  1401. farwritetext JoeyRematchGiftText
  1402. buttonsound
  1403. end
  1404. .Vance
  1405. farwritetext VanceRematchGiftText
  1406. buttonsound
  1407. end
  1408. .Parry
  1409. farwritetext ParryRematchGiftText
  1410. buttonsound
  1411. end
  1412.  
  1413. AskNumber1FScript:
  1414. checkcode VAR_CALLERID
  1415. if_equal PHONE_POKEFAN_BEVERLY, .Beverly
  1416. if_equal PHONE_COOLTRAINERF_BETH, .Beth
  1417. if_equal PHONE_COOLTRAINERF_REENA, .Reena
  1418. if_equal PHONE_PICNICKER_LIZ, .Liz
  1419. if_equal PHONE_PICNICKER_GINA, .Gina
  1420. if_equal PHONE_LASS_DANA, .Dana
  1421. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1422. if_equal PHONE_PICNICKER_ERIN, .Erin
  1423.  
  1424. .Beverly
  1425. farwritetext BeverlyAskNumber1Text
  1426. end
  1427. .Beth
  1428. farwritetext BethAskNumber1Text
  1429. end
  1430. .Reena
  1431. farwritetext ReenaAskNumber1Text
  1432. end
  1433. .Liz
  1434. farwritetext LizAskNumber1Text
  1435. end
  1436. .Gina
  1437. farwritetext GinaAskNumber1Text
  1438. end
  1439. .Dana
  1440. farwritetext DanaAskNumber1Text
  1441. end
  1442. .Tiffany
  1443. farwritetext TiffanyAskNumber1Text
  1444. end
  1445. .Erin
  1446. farwritetext ErinAskNumber1Text
  1447. end
  1448.  
  1449. AskNumber2FScript:
  1450. checkcode VAR_CALLERID
  1451. if_equal PHONE_POKEFAN_BEVERLY, .Beverly
  1452. if_equal PHONE_COOLTRAINERF_BETH, .Beth
  1453. if_equal PHONE_COOLTRAINERF_REENA, .Reena
  1454. if_equal PHONE_PICNICKER_LIZ, .Liz
  1455. if_equal PHONE_PICNICKER_GINA, .Gina
  1456. if_equal PHONE_LASS_DANA, .Dana
  1457. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1458. if_equal PHONE_PICNICKER_ERIN, .Erin
  1459.  
  1460. .Beverly
  1461. farwritetext BeverlyAskNumber2Text
  1462. end
  1463. .Beth
  1464. farwritetext BethAskNumber2Text
  1465. end
  1466. .Reena
  1467. farwritetext ReenaAskNumber2Text
  1468. end
  1469. .Liz
  1470. farwritetext LizAskNumber2Text
  1471. end
  1472. .Gina
  1473. farwritetext GinaAskNumber2Text
  1474. end
  1475. .Dana
  1476. farwritetext DanaAskNumber2Text
  1477. end
  1478. .Tiffany
  1479. farwritetext TiffanyAskNumber2Text
  1480. end
  1481. .Erin
  1482. farwritetext ErinAskNumber2Text
  1483. end
  1484.  
  1485. RegisteredNumberFScript:
  1486. farwritetext RegisteredNumber2Text
  1487. playsound SFX_REGISTER_PHONE_NUMBER
  1488. waitsfx
  1489. buttonsound
  1490. end
  1491.  
  1492. NumberAcceptedFScript: ; 0xbcbd3
  1493. checkcode VAR_CALLERID
  1494. if_equal PHONE_POKEFAN_BEVERLY, .Beverly
  1495. if_equal PHONE_COOLTRAINERF_BETH, .Beth
  1496. if_equal PHONE_COOLTRAINERF_REENA, .Reena
  1497. if_equal PHONE_PICNICKER_LIZ, .Liz
  1498. if_equal PHONE_PICNICKER_GINA, .Gina
  1499. if_equal PHONE_LASS_DANA, .Dana
  1500. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1501. if_equal PHONE_PICNICKER_ERIN, .Erin
  1502.  
  1503. .Beverly
  1504. farwritetext BeverlyNumberAcceptedText
  1505. waitbutton
  1506. closetext
  1507. end
  1508. .Beth
  1509. farwritetext BethNumberAcceptedText
  1510. waitbutton
  1511. closetext
  1512. end
  1513. .Reena
  1514. farwritetext ReenaNumberAcceptedText
  1515. waitbutton
  1516. closetext
  1517. end
  1518. .Liz
  1519. farwritetext LizNumberAcceptedText
  1520. waitbutton
  1521. closetext
  1522. end
  1523. .Gina
  1524. farwritetext GinaNumberAcceptedText
  1525. waitbutton
  1526. closetext
  1527. end
  1528. .Dana
  1529. farwritetext DanaNumberAcceptedText
  1530. waitbutton
  1531. closetext
  1532. end
  1533. .Tiffany
  1534. farwritetext TiffanyNumberAcceptedText
  1535. waitbutton
  1536. closetext
  1537. end
  1538. .Erin
  1539. farwritetext ErinNumberAcceptedText
  1540. waitbutton
  1541. closetext
  1542. end
  1543.  
  1544. NumberDeclinedFScript:
  1545. checkcode VAR_CALLERID
  1546. if_equal PHONE_POKEFAN_BEVERLY, .Beverly
  1547. if_equal PHONE_COOLTRAINERF_BETH, .Beth
  1548. if_equal PHONE_COOLTRAINERF_REENA, .Reena
  1549. if_equal PHONE_PICNICKER_LIZ, .Liz
  1550. if_equal PHONE_PICNICKER_GINA, .Gina
  1551. if_equal PHONE_LASS_DANA, .Dana
  1552. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1553. if_equal PHONE_PICNICKER_ERIN, .Erin
  1554.  
  1555. .Beverly
  1556. farwritetext BeverlyNumberDeclinedText
  1557. waitbutton
  1558. closetext
  1559. end
  1560. .Beth
  1561. farwritetext BethNumberDeclinedText
  1562. waitbutton
  1563. closetext
  1564. end
  1565. .Reena
  1566. farwritetext ReenaNumberDeclinedText
  1567. waitbutton
  1568. closetext
  1569. end
  1570. .Liz
  1571. farwritetext LizNumberDeclinedText
  1572. waitbutton
  1573. closetext
  1574. end
  1575. .Gina
  1576. farwritetext GinaNumberDeclinedText
  1577. waitbutton
  1578. closetext
  1579. end
  1580. .Dana
  1581. farwritetext DanaNumberDeclinedText
  1582. waitbutton
  1583. closetext
  1584. end
  1585. .Tiffany
  1586. farwritetext TiffanyNumberDeclinedText
  1587. waitbutton
  1588. closetext
  1589. end
  1590. .Erin
  1591. farwritetext ErinNumberDeclinedText
  1592. waitbutton
  1593. closetext
  1594. end
  1595.  
  1596. PhoneFullFScript:
  1597. checkcode VAR_CALLERID
  1598. if_equal PHONE_POKEFAN_BEVERLY, .Beverly
  1599. if_equal PHONE_COOLTRAINERF_BETH, .Beth
  1600. if_equal PHONE_COOLTRAINERF_REENA, .Reena
  1601. if_equal PHONE_PICNICKER_LIZ, .Liz
  1602. if_equal PHONE_PICNICKER_GINA, .Gina
  1603. if_equal PHONE_LASS_DANA, .Dana
  1604. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1605. if_equal PHONE_PICNICKER_ERIN, .Erin
  1606.  
  1607. .Beverly
  1608. farwritetext BeverlyPhoneFullText
  1609. waitbutton
  1610. closetext
  1611. end
  1612. .Beth
  1613. farwritetext BethPhoneFullText
  1614. waitbutton
  1615. closetext
  1616. end
  1617. .Reena
  1618. farwritetext ReenaPhoneFullText
  1619. waitbutton
  1620. closetext
  1621. end
  1622. .Liz
  1623. farwritetext LizPhoneFullText
  1624. waitbutton
  1625. closetext
  1626. end
  1627. .Gina
  1628. farwritetext GinaPhoneFullText
  1629. waitbutton
  1630. closetext
  1631. end
  1632. .Dana
  1633. farwritetext DanaPhoneFullText
  1634. waitbutton
  1635. closetext
  1636. end
  1637. .Tiffany
  1638. farwritetext TiffanyPhoneFullText
  1639. waitbutton
  1640. closetext
  1641. end
  1642. .Erin
  1643. farwritetext ErinPhoneFullText
  1644. waitbutton
  1645. closetext
  1646. end
  1647.  
  1648. RematchFScript:
  1649. checkcode VAR_CALLERID
  1650. if_equal PHONE_COOLTRAINERF_BETH, .Beth
  1651. if_equal PHONE_COOLTRAINERF_REENA, .Reena
  1652. if_equal PHONE_PICNICKER_LIZ, .Liz
  1653. if_equal PHONE_PICNICKER_GINA, .Gina
  1654. if_equal PHONE_LASS_DANA, .Dana
  1655. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1656. if_equal PHONE_PICNICKER_ERIN, .Erin
  1657.  
  1658. .Beth
  1659. farwritetext BethRematchText
  1660. waitbutton
  1661. closetext
  1662. end
  1663. .Reena
  1664. farwritetext ReenaRematchText
  1665. waitbutton
  1666. closetext
  1667. end
  1668. .Liz
  1669. farwritetext LizRematchText
  1670. waitbutton
  1671. closetext
  1672. end
  1673. .Gina
  1674. farwritetext GinaRematchText
  1675. waitbutton
  1676. closetext
  1677. end
  1678. .Dana
  1679. farwritetext DanaRematchText
  1680. waitbutton
  1681. closetext
  1682. end
  1683. .Tiffany
  1684. farwritetext TiffanyRematchText
  1685. waitbutton
  1686. closetext
  1687. end
  1688. .Erin
  1689. farwritetext ErinRematchText
  1690. waitbutton
  1691. closetext
  1692. end
  1693.  
  1694. GiftFScript:
  1695. checkcode VAR_CALLERID
  1696. if_equal PHONE_POKEFAN_BEVERLY, .Beverly
  1697. if_equal PHONE_PICNICKER_GINA, .Gina
  1698. if_equal PHONE_LASS_DANA, .Dana
  1699. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1700.  
  1701. .Beverly
  1702. farwritetext BeverlyGiftText
  1703. buttonsound
  1704. end
  1705. .Gina
  1706. farwritetext GinaGiftText
  1707. buttonsound
  1708. end
  1709. .Dana
  1710. farwritetext DanaGiftText
  1711. buttonsound
  1712. end
  1713. .Tiffany
  1714. farwritetext TiffanyGiftText
  1715. buttonsound
  1716. end
  1717.  
  1718. PackFullFScript:
  1719. checkcode VAR_CALLERID
  1720. if_equal PHONE_POKEFAN_BEVERLY, .Beverly
  1721. if_equal PHONE_PICNICKER_GINA, .Gina
  1722. if_equal PHONE_LASS_DANA, .Dana
  1723. if_equal PHONE_PICNICKER_TIFFANY, .Tiffany
  1724. if_equal PHONE_PICNICKER_ERIN, .Erin
  1725.  
  1726. .Beverly
  1727. farwritetext BeverlyPackFullText
  1728. waitbutton
  1729. closetext
  1730. end
  1731. .Gina
  1732. farwritetext GinaPackFullText
  1733. waitbutton
  1734. closetext
  1735. end
  1736. .Dana
  1737. farwritetext DanaPackFullText
  1738. waitbutton
  1739. closetext
  1740. end
  1741. .Tiffany
  1742. farwritetext TiffanyPackFullText
  1743. waitbutton
  1744. closetext
  1745. end
  1746. .Erin
  1747. farwritetext ErinPackFullText
  1748. waitbutton
  1749. closetext
  1750. end
  1751.  
  1752. RematchGiftFScript:
  1753. checkcode VAR_CALLERID
  1754. if_equal PHONE_PICNICKER_ERIN, .Erin
  1755.  
  1756. .Erin
  1757. opentext
  1758. farwritetext ErinRematchGiftText
  1759. buttonsound
  1760. end
  1761.  
  1762. GymStatue1Script:
  1763. mapnametotext $0
  1764. opentext
  1765. farwritetext GymStatue_CityGymText
  1766. waitbutton
  1767. closetext
  1768. end
  1769.  
  1770. GymStatue2Script:
  1771. mapnametotext $0
  1772. opentext
  1773. farwritetext GymStatue_CityGymText
  1774. buttonsound
  1775. farwritetext GymStatue_WinningTrainersText
  1776. waitbutton
  1777. closetext
  1778. end
  1779.  
  1780. ReceiveItemScript: ; 0xbcdb9
  1781. waitsfx
  1782. farwritetext ReceivedItemText
  1783. playsound SFX_ITEM
  1784. waitsfx
  1785. end
  1786. ; 0xbcdc3
  1787.  
  1788. ReceiveTogepiEggScript: ; 0xbcdc3
  1789. waitsfx
  1790. farwritetext ReceivedItemText
  1791. playsound SFX_GET_EGG_FROM_DAYCARE_LADY
  1792. waitsfx
  1793. end
  1794. ; 0xbcdcd
  1795.  
  1796. GameCornerCoinVendorScript: ; 0xbcdcd
  1797. faceplayer
  1798. opentext
  1799. farwritetext CoinVendor_WelcomeText
  1800. buttonsound
  1801. checkitem COIN_CASE
  1802. iftrue CoinVendor_IntroScript
  1803. farwritetext CoinVendor_NoCoinCaseText
  1804. waitbutton
  1805. closetext
  1806. end
  1807. ; 0xbcde0
  1808.  
  1809. CoinVendor_IntroScript: ; 0xbcde0
  1810. farwritetext CoinVendor_IntroText
  1811.  
  1812. .loop: ; 0xbcde4
  1813. special Special_DisplayMoneyAndCoinBalance
  1814. loadmenudata .MenuDataHeader
  1815. verticalmenu
  1816. closewindow
  1817. if_equal $1, .Buy50
  1818. if_equal $2, .Buy500
  1819. jump .Cancel
  1820. ; 0xbcdf7
  1821.  
  1822. .Buy50: ; 0xbcdf7
  1823. checkcoins 9949
  1824. if_equal $0, .CoinCaseFull
  1825. checkmoney $0, 1000
  1826. if_equal $2, .NotEnoughMoney
  1827. givecoins 50
  1828. takemoney $0, 1000
  1829. waitsfx
  1830. playsound SFX_TRANSACTION
  1831. farwritetext CoinVendor_Buy50CoinsText
  1832. waitbutton
  1833. jump .loop
  1834. ; 0xbce1b
  1835.  
  1836. .Buy500: ; 0xbce1b
  1837. checkcoins 9499
  1838. if_equal $0, .CoinCaseFull
  1839. checkmoney $0, 10000
  1840. if_equal $2, .NotEnoughMoney
  1841. givecoins 500
  1842. takemoney $0, 10000
  1843. waitsfx
  1844. playsound SFX_TRANSACTION
  1845. farwritetext CoinVendor_Buy500CoinsText
  1846. waitbutton
  1847. jump .loop
  1848. ; 0xbce3f
  1849.  
  1850. .NotEnoughMoney: ; 0xbce3f
  1851. farwritetext CoinVendor_NotEnoughMoneyText
  1852. waitbutton
  1853. closetext
  1854. end
  1855. ; 0xbce46
  1856.  
  1857. .CoinCaseFull: ; 0xbce46
  1858. farwritetext CoinVendor_CoinCaseFullText
  1859. waitbutton
  1860. closetext
  1861. end
  1862. ; 0xbce4d
  1863.  
  1864. .Cancel: ; 0xbce4d
  1865. farwritetext CoinVendor_CancelText
  1866. waitbutton
  1867. closetext
  1868. end
  1869. ; 0xbce54
  1870.  
  1871.  
  1872. .MenuDataHeader
  1873. db $40 ; flags
  1874. db 04, 00 ; start coords
  1875. db 11, 15 ; end coords
  1876. dw .MenuData2
  1877. db 1 ; default option
  1878.  
  1879. .MenuData2
  1880. db $80 ; flags
  1881. db 3 ; items
  1882. db " 50 : ¥1000@"
  1883. db "500 : ¥10000@"
  1884. db "CANCEL@"
  1885. ; 0xbce7f
  1886.  
  1887.  
  1888. HappinessCheckScript:
  1889. faceplayer
  1890. opentext
  1891. special GetFirstPokemonHappiness
  1892. if_less_than 50, .Unhappy
  1893. if_less_than 150, .KindaHappy
  1894. farwritetext HappinessText3
  1895. waitbutton
  1896. closetext
  1897. end
  1898.  
  1899. .KindaHappy
  1900. farwritetext HappinessText2
  1901. waitbutton
  1902. closetext
  1903. end
  1904.  
  1905. .Unhappy
  1906. farwritetext HappinessText1
  1907. waitbutton
  1908. closetext
  1909. end
  1910.  
  1911. Movement_ContestResults_WalkAfterWarp: ; bcea1
  1912. step_right
  1913. step_down
  1914. turn_head_up
  1915. step_end
  1916. ; bcea5
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement