Starter Nipped Player's Backside

#include stdpoke.rbh
#freespace 0xFF
#dynamic 0xF00000

#org @start
applymovement 0xFF @move
waitmovement 0xFF
sound 0x15
msgbox @nipped_msg MSG_KEEPOPEN
compare 0x4023 0x0
if 0x1 call @mudkip
compare 0x4023 0x1
if 0x1 call @treecko
compare 0x4023 0x2
if 0x1 call @torchic
setvar 0x40AA 0x1
end

/*
Var 4023 stores which starter was chosen by the player.
0x0 = Treecko, 0x1 = Torchic, 0x2 = Mudkip
*/

#org @move
#raw 0x64
#raw 0x14
#raw 0x56
#raw 0xFE

#org @nipped_msg
= A POKéMON nipped [player]'s backside!

#org @mudkip
wildbattle PKMN_MUDKIP 15 0
return

#org @treecko
wildbattle PKMN_TREECKO 15 0
return

#org @torchic
wildbattle PKMN_TORCHIC 15 0
return

#org @nothing
end