Copyright www.Pkguide.tk | Email me to pika@pkguide.tk
...
...
I decided to make a tutorial including everything I know.
...
...

$start
Lock
Faceplayer
Message $hi
Boxset 6
Release
End

$hi
$hi 1 =ch01h02Hello, welcome to my tutorial.

It’s that simple, it looks pretty similar to a vh01 but slightly different.
ch01h02 basically displays that that the text will happen in black. To change to different colours, change the last variable, ‘h02’. Here are the different colours.
These are for FireRed/Leaf Green
00 - white
02 - black (used with system messages)
03 - gray
04 - red (for female messages)
05 - orange
06 - dark green
07 - cyan
08 - dark blue (for male messages)
09 - lighter blue
0b - bluish grey

and these are for Ruby.
00 -White
01 - Black
02 - Red
03 - Green
04 - Blue
05 - Yellow
06 - Cyan
07 - Purple
08 - Grey
0D - Light Blue

Of course this can also be used in trainerbattles.

$start
Lock
faceplayer
Trainerbattle 1 0x001 $before $after
Message $beaten
Boxset 6
Release
End

$before
$before 1 =(Use above colours)ch01h06Let’s Battle.

$after
$after 1 =(Use below colours)ch01h0CYou won.

$beaten
$beaten 1 =(Use above colours)ch01h06Get Lost! You won already.

Here are the colours for used in a trainerbattle.
00 - transparent
01 - white
02 - red
03 - solid gray
04 - bluish
07 - light gray
09 - black
0a - reddish pink
0b - lighter gray
0c - pink
0d - brown
0e - lighter brown
13 - bluish solid gray

CHECK POKEMON

$start
Lock
Faceplayer
Message $doyuo
Boxset 6
setvar 0x4036 0x81
copyvar 0x8004 0x4036
special2 LASTRESULT 0x17C
compare LASTRESULT 1
if b_true goto $have
message $donthave
boxset 6
release
end

$have
Message $thanks
Boxset 6
Release
End

$doyou
$doyou 1 =Do you have a Magikarp?

$donthave
$donthave 1 =That’s too bad, I really wantednto see one.

$thanks
$thanks 1 =Wow, you do! Thanks, you’ve just made my day.

The Vanish Sprite

$start
Message $found
Boxset 6
Giveitem 0xD 1

53

00
Setflag 0x200
Release
End
Well I don’t know how I can explain this, but all you need to do is take the

53

Nop

PokePic

…
…

$pick

75

93

00

0A

03
message $dratini
boxset 5
compare LASTRESULT 1
if b_true goto $yes

76
message $back
boxset 6
release
end

$yes

76
applymovement 0x02 $move2
givepokemon 147 5 0x8B
jingle
message $recieve
boxset 6

Check Coins

0xB3 0x02 0x40
compare 0x4002 0x1F4
if 4 goto $got
message $dont
boxset 6
...
...

B3 assigns the amount that you have to 02 and 40(0x4002)
In this case I've compared 1F4(500) to the amount in 0x4002
if 4(look above).
The rest you should know.

Give Coins
Well this is really simple to do. I'll give two examples. You'll see why.
...
...

0xB4 0x2C 0x01
...
...
and
...
...

0xB4 0x0A 0x00
...
...
Well the 0xB4 dsplays that it is giving coins.
The second and third numbers are the amount to be recieved. They are reversed. The first one is 0x012C(or 0x12C/300) and the second is 0x000A(or 0xA/10). Pretty Simple.

Take Coins
Well this is the most difficult. But pretty straight forward.
...
...
setvar 0x4002 0xDE

0xB5 0x02 0x40
...
...
Check Pokedex
setvar 0x8004 0x0
special2 0x800D 0xD4

0x83 0x00 0x05 0x80

0x83 0x01 0x06 0x80
message $count
boxset 6
compare 0x8006 0x0
if 1 goto $none
compare 0x8006 0x1
if 1 goto $one
compare 0x8006 0x2
if 1 goto $two
message $threeormore
boxset 6
I've only done this really basically but it could be used to count for all 386 pokemon. This script only checks if you have 0,1,2 or 3 or more pokemon.
setvar 0x8004 0x0 says that it is checking the kanto pokedex. If its setvar 0x8004 0x1, it checks the national dex.
special2 0x800D 0xD4 assigns the amounts found in the pokedex to teh variable 0x8004.

0x83 0x00 0x05 0x80 assigns the amount caught to vh02.

0x83 0x01 0x06 0x80 assigns the amount caught to vh03.
The rest is pretty basic. For example compare 0x8006 0x2 checks 'pokemon caught' for two pokemon. If true it jumps to another part.
...
...
Grab Move

68
Compare 0x800C 0x1
If b_true goto $down
Compare 0x800C 0x2
If b_true goto $up
Compare 0x800C 0x3
If b_true goto $left
Compare 0x800C 0x4
If b_true goto $right
…
…

68 assigns a certain value to 0x800C. The following lines try to find which ones it’s going to jump to. The directions listed as pointers are the way you are facing. So if the person you are talking to is facing up, you're facing down. I know I’ve mentioned this already but, if you don’t know how to complete the script, you shouldn’t be looking at this tutorial.
...
...