Advertisement
IdainTV

Fossil Restoration tutorial example

Jul 19th, 2023
1,818
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. FossilScientist:
  2.     faceplayer
  3.     opentext
  4.     checkevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove the next two lines to immediately receive the fossil
  5.     iftrue .GaveScientistFossil
  6.     checkevent EVENT_GAVE_SCIENTIST_OLD_AMBER
  7.     iftrue .GiveAerodactyl
  8.     checkevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
  9.     iftrue .GiveKabuto
  10.     checkevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
  11.     iftrue .GiveOmanyte
  12.     writetext FossilScientistIntroText
  13.     waitbutton
  14.     loadmenu .MoveMenuHeader
  15.     verticalmenu
  16.     closewindow
  17.     ifequal REVIVE_OLD_AMBER, .OldAmber
  18.     ifequal REVIVE_DOME_FOSSIL, .DomeFossil
  19.     ifequal REVIVE_HELIX_FOSSIL, .HelixFossil
  20.     sjump .No
  21.  
  22. .OldAmber
  23.     checkitem OLD_AMBER
  24.     iffalse .No
  25.     getmonname STRING_BUFFER_3, AERODACTYL
  26.     writetext FossilScientistPKMNText
  27.     promptbutton
  28.     setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
  29.     setevent EVENT_GAVE_SCIENTIST_OLD_AMBER
  30.     takeitem OLD_AMBER
  31.     writetext FossilScientistGiveText
  32.     waitbutton
  33.     sjump .GaveScientistFossil
  34.  
  35. .DomeFossil:
  36.     checkitem DOME_FOSSIL
  37.     iffalse .No
  38.     getmonname STRING_BUFFER_3, KABUTO
  39.     writetext FossilScientistPKMNText
  40.     promptbutton
  41.     setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
  42.     setevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
  43.     takeitem DOME_FOSSIL
  44.     writetext FossilScientistGiveText
  45.     waitbutton
  46.     sjump .GaveScientistFossil
  47.  
  48. .HelixFossil:
  49.     checkitem HELIX_FOSSIL
  50.     iffalse .No
  51.     getmonname STRING_BUFFER_3, OMANYTE
  52.     writetext FossilScientistPKMNText
  53.     promptbutton
  54.     setevent EVENT_TEMPORARY_UNTIL_MAP_RELOAD_1 ; remove this to immediately receive the fossil
  55.     setevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
  56.     takeitem HELIX_FOSSIL
  57.     writetext FossilScientistGiveText
  58.     waitbutton
  59.     sjump .GaveScientistFossil
  60.  
  61. .No
  62.     writetext FossilScientistNoText
  63.     waitbutton
  64.     closetext
  65.     end
  66.    
  67. .GaveScientistFossil:
  68.     writetext FossilScientistTimeText
  69.     waitbutton
  70.     closetext
  71. ;   special FadeBlackQuickly ; uncomment the next five lines to immediately receive the fossil
  72. ;   special ReloadSpritesNoPalettes
  73. ;   playsound SFX_WARP_TO
  74. ;   waitsfx
  75. ;   pause 35
  76.     end ; replace this with "sjump FossilScientist" to immediately receive the fossil
  77.  
  78. .GiveAerodactyl:
  79.     readvar VAR_PARTYCOUNT
  80.     ifequal PARTY_LENGTH, .NoRoom
  81.     clearevent EVENT_GAVE_SCIENTIST_OLD_AMBER
  82.     writetext FossilScientistDoneText
  83.     promptbutton
  84.     getmonname STRING_BUFFER_3, AERODACTYL
  85.     writetext ReceivedFossilPKMNText
  86.     playsound SFX_CAUGHT_MON
  87.     waitsfx
  88.     waitbutton
  89.     givepoke AERODACTYL, 30
  90.     closetext
  91.     end
  92.  
  93. .GiveKabuto:
  94.     readvar VAR_PARTYCOUNT
  95.     ifequal PARTY_LENGTH, .NoRoom
  96.     clearevent EVENT_GAVE_SCIENTIST_DOME_FOSSIL
  97.     writetext FossilScientistDoneText
  98.     promptbutton
  99.     getmonname STRING_BUFFER_3, KABUTO
  100.     writetext ReceivedFossilPKMNText
  101.     playsound SFX_CAUGHT_MON
  102.     waitsfx
  103.     waitbutton
  104.     givepoke KABUTO, 30
  105.     closetext
  106.     end
  107.  
  108. .GiveOmanyte:
  109.     readvar VAR_PARTYCOUNT
  110.     ifequal PARTY_LENGTH, .NoRoom
  111.     clearevent EVENT_GAVE_SCIENTIST_HELIX_FOSSIL
  112.     writetext FossilScientistDoneText
  113.     promptbutton
  114.     getmonname STRING_BUFFER_3, OMANYTE
  115.     writetext ReceivedFossilPKMNText
  116.     playsound SFX_CAUGHT_MON
  117.     waitsfx
  118.     waitbutton
  119.     givepoke OMANYTE, 30
  120.     closetext
  121.     end
  122.  
  123. .NoRoom:
  124.     writetext FossilScientistPartyFullText
  125.     waitbutton
  126.     closetext
  127.     end
  128.  
  129. .MoveMenuHeader:
  130.     db MENU_BACKUP_TILES ; flags
  131.     menu_coords 0, 2, 15, TEXTBOX_Y - 1
  132.     dw .MenuData
  133.     db 1 ; default option
  134.  
  135. .MenuData:
  136.     db STATICMENU_CURSOR ; flags
  137.     db 4 ; items
  138.     db "OLD AMBER@"
  139.     db "DOME FOSSIL@"
  140.     db "HELIX FOSSIL@"
  141.     db "CANCEL@"
  142.  
  143. FossilScientistIntroText:
  144.     text "Hiya!"
  145.  
  146.     para "I am important"
  147.     line "doctor!"
  148.  
  149.     para "I study here rare"
  150.     line "#MON fossils!"
  151.  
  152.     para "You! Have you a"
  153.     line "fossil for me?"
  154.     done
  155.  
  156. FossilScientistNoText:
  157.     text "No! Is too bad!"
  158.     line "You come again!"
  159.     done
  160.  
  161. FossilScientistPartyFullText:
  162.     text "No! Is too bad!"
  163.     line "Your party is"
  164.     cont "already full!"
  165.     done
  166.  
  167. FossilScientistTimeText:
  168.     text "I take a little"
  169.     line "time!"
  170.  
  171.     para "You go for walk a"
  172.     line "little while!"
  173.     done
  174.  
  175. FossilScientistDoneText:
  176.     text "Where were you?"
  177.     line "Your fossil is"
  178.     cont "back to life!"
  179.     done
  180.  
  181. FossilScientistPKMNText:
  182.     text "Oh! That is"
  183.     line "a fossil!"
  184.  
  185.     para "It is fossil of"
  186.     line "@"
  187.     text_ram wStringBuffer3
  188.     text ", a"
  189.  
  190.     para "#MON that is"
  191.     line "already extinct!"
  192.  
  193.     para "My Resurrection"
  194.     line "Machine will make"
  195.  
  196.     para "that #MON live"
  197.     line "again!"
  198.     done
  199.  
  200. FossilScientistGiveText:
  201.     text "So! You hurry and"
  202.     line "give me that!"
  203.  
  204.     para "<PLAYER> handed"
  205.     line "over the fossil."
  206.     done
  207.  
  208. ReceivedFossilPKMNText:
  209.     text "<PLAYER> received"
  210.     line "@"
  211.     text_ram wStringBuffer3
  212.     text "!"
  213.     done
  214.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement