thorn/jep-hack
1
0
Fork 0
mirror of https://github.com/thornAvery/jep-hack.git synced 2026-02-07 00:25:24 +13:00
Code Issues Projects Releases Packages Wiki Activity Actions

Bug Catching Contest gives a funny Gligar

Browse source 
If you win the Bug Catching Contest, the man will give you an Earthquake Gligar.

The code that gives it a special move is a bit fucked up because I tried to add a Farfetch'd function, but I can't be bothered to finish the functionality because I'm stupid (it is actually quite easy I'm just lazy)
This commit is contained in:
Llinos Evans 2024-07-30 20:53:14 +01:00
parent d765610c04
commit 1bc5644edc
7 changed files with 172 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

16
maps/DebugRoom.asm
View file

@ -372,6 +372,21 @@ MemoryGameScript:
closetext
end
DebugGligarScript:
opentext
writetext DebugGligarText
givepoke GLIGAR, 5
special DebugGiveMonSpecialMove
waitbutton
closetext
end
DebugGligarText:
text "Hi"
done
DebugRoom_MapEvents:
db 0, 0 ; filler
@ -405,3 +420,4 @@ DebugRoom_MapEvents:
object_event 18, 13, SPRITE_SAFARI_ZONE_WORKER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, TrainerTestScript, -1
object_event 20, 13, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DebugDollShopScript, -1
object_event 25, 15, SPRITE_WILL, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, MemoryGameScript, -1
object_event 27, 16, SPRITE_KAREN, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, DebugGligarScript, -1

13
maps/Route36NationalParkGate.asm
View file

@ -231,7 +231,7 @@ Route36OfficerScriptContest:
end
Route36Officer_ContestHasConcluded:
checkevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
checkevent EVENT_CONTEST_OFFICER_HAS_GLIGAR
iftrue .Sunstone
checkevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
iftrue .Everstone
@ -247,16 +247,19 @@ Route36Officer_ContestHasConcluded:
.Sunstone:
writetext Route36NationalParkGateOfficer1HeresThePrizeText
promptbutton
verbosegiveitem BLK_AUGURITE
iffalse .BagFull
clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
readvar VAR_PARTYCOUNT
ifequal PARTY_LENGTH, .BagFull
givepoke GLIGAR, 5
special DebugGiveMonSpecialMove ; give it the Stadium 2 moveset
clearevent EVENT_CONTEST_OFFICER_HAS_GLIGAR
closetext
end
.Everstone:
writetext Route36NationalParkGateOfficer1HeresThePrizeText
promptbutton
verbosegiveitem EVERSTONE
verbosegiveitem BLK_AUGURITE
iffalse .BagFull
clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
closetext