script Trainer Battle

[LuizComZ]

Hi this is the script for trainers battles.
I am gonna separe this tutorial in 6 parts

1 NORMAL BATTLE
2 GYM BATTLE
3 TEAM GRUNT BATTLE
4 ELITE FOUR
5 DOUBLE BATTLE
6 RIVAL BATTLE
​

1. Normal battle

Spoiler:

#dynamic 0x800000

#org @battle0
trainerbattle 0x0 0x1 0x0 @before @defeat
msgbox @beaten 0x6
release
end

#org @before
= Battle Me!

#org @defeat
= Dang you beat me

#org @beaten
= We already battled!

2. Gym battle

Spoiler:

#dynamic 0x800051

#org @gym
lock
faceplayer
checkflag 0x820
if 0x1 goto @done
msgbox @intro 0x6
trainerbattle 0x1 0x2 0x0 @before @defeat @after
release
end

#org @after
msgbox @beaten 0x6
fanfare 0x13E
msgbox @badge 0x4
waitfanfare
closeonkeypress
msgbox @TM 0x6
giveitem 0x12D 0x1 0x0
setflag 0x820
release
end

#org @done
msgbox @nextgym 0x6
release
end

#org @intro
= Hello, I'm a gym Leader.

#org @before
= Battle Me!

#org @defeat
= Dang you beat me

#org @beaten
= You beat the Gym.\pTake this badge!

#org @badge
= \v\h01 received the badge!

#org @TM
= Also take this TM!

#org @nextgym
= The next gym is in Malvern

3.Team grount battle

Spoiler:

#dynamic 0x80015D

#org @Event
lock
faceplayer
trainerbattle 0x2 0x3 0x0 @before @defeat @after
release
end

#org @after
msgbox @foiled 0x6
fadescreen 0x1
setflag 0x1200
hidesprite 0x6
fadescreen 0x0
release
end

#org @before
= Prepare to be defeated!

#org @defeat
= Dang you beat me

#org @foiled
= Curses, foiled by a kid!

4.Elite 4 battle

Spoiler:

#dynamic 0x8001D0

#org @Elite
lock
faceplayer
checkflag 0x1201
if 0x1 goto @after
msgbox @intro 0x6
trainerbattle 0x3 0x4 0x0 @defeat
msgbox @beaten 0x6
setflag 0x1201
release
end

#org @after
msgbox @next 0x6
release
end

#org @intro
= Welcome to the Elite!

#org @defeat
= Dang you beat me

#org @beaten
= You beat me.\pOn to the next!

#org @next
= I said, "On to the next"

5.double battle

Spoiler:

#dynamic 0x800315

#org @Double
trainerbattle 0x4 0x5 0x0 @before @defeat @need2
msgbox @beaten 0x6
release
end

#org @before
= Battle Me!

#org @defeat
= Dang you beat me

#org @need2
= Can't battle unless you have\nat least 2 Pokemon

#org @beaten
= We already battled!

6.Rival battle

Spoiler:

#dynamic 0x8004DB

#org @WinLosebattle
checkflag 0x1210
if 0x1 goto @done
msgbox @intro 0x6
trainerbattle 0x9 0x9 0x0 @win @lose
setflag 0x1210
release
end

#org @done
msgbox @beaten 0x6
release
end

#org @intro
= Hold on, let's battle!

#org @Win
= Drats, I lost

#org @lose
= Alright, I won

#org @beaten
= We already battled!