View Single Post
  #62    
Old August 2nd, 2010 (07:16 AM).
Learath2's Avatar
Learath2 Learath2 is offline
Scripter
 
Join Date: Aug 2009
Location: Turkey
Gender: Male
Nature: Calm
Posts: 115

IM Address: [email protected]
Name: Learath2

Position:
Scripting
Proof of Work:

Spoiler:

$talk 1 = Welcome to Pokemon Tower!
boxset 6
checkgender
compare 0x800D 0x0000
if 0x01 call $boy
compare 0x800D 0x0001
if 0x01 call $girl
release
end

#org $girl
message $talk1
$talk1 1 = Please follow me!
boxset 6
applymovement 0x01 $move
$move 1 ; #Binary 0x13 0x13 0x11 0x11 0x13
applymovement 0xFF $move1
$move1 1 ; #Binary 0x13 0x13 0x11 0x11 0x11
waitmovement 0
return

#org $boy
message $talk1
boxset 6
applymovement 0x01 $move
$move 1 ; #Binary 0x12 0x12 0x11 0x11 0x12
applymovement 0xFF $move1
$move1 1 ; #Binary 0x12 0x12 0x11 0x11 0x11
waitmovement 0
return

Spoiler:

#org $script
lock
faceplayer
checkflag 0x1201
if 0x01 goto $done
message $gengar
$gengar 1 = Don't you l\hDDke ghost Pokémon?
boxset 5
compare 0x800D 0x0001
if 0x01 goto $yes
applymovement 0xFF $surprise
$surprise ; #binary 0x62 0xFE
pausemove 0x0000
message $dontwant
$dontwant 1 = Oh. Too bad.
boxset 6
release
end

#org $yes
countpokemon
compare 0x800D 0x6
if 0x1 goto $toomany
message $yes1
$yes1 1 = I knew that! Take th\hDDs\nPokémon to make me proud.
boxset 6
givepokemon 94 43 0xD5
setflag 0x1201
fanfare 0x13E
message $gotgengar
$gotgengar 1 = You rec\hDDeved a \c\h01\h08GENGAR\c\h01\h04!
boxset 4
waitfanfare
message $namegengar
$namegengar 1 = Would you l\hDDke to g\hDDve\n\c\h01\h08GENGAR\c\h01\h04 a name?
boxset 5
compare 0x800D 0x0001
if 0x01 goto $nameghost
goto $dexseen
release
end

#org $toomany
message $1
$1 1 = Your party \hDDs full, depos\hDDt one to\nmake room.
boxset 6
release
end

#org $nameghost
namepokemon
goto $dexseen
release
end

#org $dexseen
setvar 0x8004 0x94
special 0x163
message $hello
$hello 1 = Good luck w\hDDth \c\h01\h08GENGAR\c\h01\h04.
boxset 6
release
end

#org $done
message $already
$already 1 = What are you do\hDDng w\hDDth my \c\h01\h08GENGAR\c\h01\h04?
boxset 6
release
end

Spoiler:

#org $script
lock
faceplayer
message $talkguard
$talkguard 1 = Hey you! Stop r\hDDght there.
boxset 6
applymovement 0xFF $moveing
$moveing 1 ; #binary 0x62 0xFE
pausemove 0x0000
message $ohwhy
$ohwhy 1 = \v\h01 \hF0 But why that I am\nsupposed to stop?\pGuard\hF0 I have to check your\n\c\h01\h08MARSHBADGE\c\h01\h08.
boxset 6
checkflag 0x825
if 0x01 goto $done
message $cantpass
$cantpass 1 = Guard\hF0 You can't pass. \nYou don't have the \c\h01\h08MARSHBADGE\c\h01\h08.
boxset 6
applymovement 0xFF $moveig
$moveig 1 ; #binary 0x11 0xFE
pausemove 0x0000
release
end

#org $done
message $freepass
$freepass 1 = Okay, you can move on.
boxset 6
setvar 0x6000 0x0001
release
end
__________________

Learath2








Signature