Thread: Team Rocket
View Single Post
  #5    
Old October 11th, 2011, 04:29 PM
niven's Avatar
niven
Leader of Team LegendaryTrio
 
Join Date: Jul 2011
Location: Where I'm sittin'
Age: 16
Gender: Male
Nature: Brave
Nickname/what you want to be called: Consider my username is niven....... Bob! But seriously, call me Niven
Position: scripter, mapper, writer
When you're on and timezone: everyday (don't know an exact time) and southeastern Kentucky's time zone (UTC -5:00 I think)
Proof of Work: (optional, but greatly appreciated)
mapping:
Spoiler:
(still a noob at mapping
My only map!. So don't give me too many mapping assignments, I'm more reliable when it comes to scripting (trust me!)

scripting:
Spoiler:

This script will make the player battle a ho-oh, and rebattle it until it's captured. If you run out of master balls, you get more from an executive of tem phoenix (a team wanting to catch ho-oh). If you have 6 Pokemon in your team before you battle it, you can remove some (you can't battle ho-oh with more than 5 pokemon in your team):
Spoiler:
#org $script
lock
faceplayer
countpokemon
compare 0x800D 0x0006
if 0x00 goto $battle
goto $pc
release
end

#org $battle
nop
checkitem 0x02 0x01
if 0x00 call $give
cry 0xAI 250
#raw 0x33
pause 0x30
message $brgin
$brgin 1 = Ho-oH: Let me test your \nskills! \pRaaaaaaaaaaaaaaaaaaaaaaaaaaaar
boxset 6
pause 0x10
wildbattle 250 100 1
pause 0x70
goto $checkpoke
setflag 0x1201
release
end

#org $checkpoke
setvar 0x4036 250
copyvar 0x8004 0x4036
special2 0x800D 0x17C
compare 0x800D 0x0001
if 0x01 goto $end
message $catch
$catch 1 = Ho-oH is still anxious to \nsee your strength, don't give\l up now!! You have to \lbefriend him to defeat... \pLugia!
boxset 6
checkflag 0x1201
if 0x01 goto $rebattle
checkflag 0x1202
if 0x01 goto $battle2
goto $battle
release
end

#org $give
applymovement 4 $item
$item 1 ; 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0xFE
pausemove 0
message $take
$take 1 = Phoenix Executive: You have \nto capture Ho-oH to beat \lLugia. \pHere take these.
boxset 6
fanfare 0x13E
giveitem 0x02 0xA
boxset 4
waitfanfare
message $take2
$take2 1 = Phoenix Executive: I'll get \nout of your way now.
boxset 6
applymovement 4 $item2
$item2 1 ; 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0xFE
pausemove 0
setflag 0x1202
checkflag 0x1201
if 0x01 goto $rebattle
return

#org $end
fadescreen 1
setflag 0x1200
pause 0x30
removesprite 5
fadescreen 0
release
end

#org $pc
special 0x106
special 0x03C
pause 0x1200
waitspecial
goto $script
release
end

#org $rebattle
checkflag 0x1202
if 0x01 goto $battle2
checkitem 0x02 0x01
if 0x00 call $give
cry 0xAI 250
#raw 0x33
pause 0x30
message $brgin8
$brgin8 1 = Rawwwwwwwwwwwwwwwwwwwwwwwwwwwr
boxset 6
wildbattle 250 100 1
pause 0x70
goto $checkpoke
release
end

#org $battle2
cry 0xAI 250
#raw 0x33
pause 0x30
message $brgin82
$brgin82 1 = Rawwwwwwwwwwwwwwwwwwwwwwwwwwwr
boxset 6
wildbattle 250 100 1
pause 0x70
goto $checkpoke
release
end


I don't feel like explaining this one:
Spoiler:
#org $boy
clearflag 0x1505
clearflag 0x1506
clearflag 0x1507
showsprite 9
applymovement 9 $GHTHTG
$GHTHTG 1 ; #binary 0x10 0x10 0x10 0x10 0x10 0x10 0x12 0x10 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x62 0xFE
pausemove 0
applymovement 0xFF $move
$move 1 ; #binary 0x03 0x62 0xFE
pausemove 0
message $oak
$oak 1 = Hello \v\h01, Long time \nno see. \pAn old friend of mine named \nAsh Ketchum,who's very much \plike you,gave me his favorite \n pokemon because he's \pquitting being a trainer to \nbecome a pkmn researcher, \plike myself.
boxset 6
showsprite 8
applymovement 8 $garymove
$garymove 1 ; #binary 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x12 0x11 0x12 0x12 0x04 0xFE
pausemove 0
showsprite 7
applymovement 7 $brendonmove
$brendonmove 1 ; #binary 0x13 0x13 0x13 0x13 0x13 0x13 0x13 0xFE
pausemove 0
message $oak1
$oak1 1 = Ahhhhh, Brendon, \v\h06, \nyou're here. \p \v\h06: Why are we here? \pBrendon: Yeah, why are we \nhere? \pOAK: You're here because, \nI'm going to give one of you, \p a very special and STRONG \npokemon. \p \v\h01, you,gary or \nbrendon will get this pokemon. \pTo decide who get's it, \nyou'll have a small tourney. \pFirst, Gary and brendon will \nbattle and the winner will \pface you. \pYou're gonna be in the finals \n since \v\h06 and brendon \phave never defeated you in \nbattle. \pThe winner of the tourney \nwill recieve that pokemon \pand two mystery prizes that \ni haven't told you about yet.
boxset 6
applymovement 7 $bmove
$bmove 1 ; #binary 0x12 0x12 0x11 0x03 0xFE
pausemove 0
applymovement 8 $gmove
$gmove 1 ; #binary 0x13 0x13 0x13 0x02 0xFE
pausemove 0
applymovement 9 $omove
$omove 1 ; #binary 0x01 0xFE
applymovement 0xFF $omove
pausemove 0
message $battle
$battle 1 = \v\h06: Ready to lose \nbrendon? \pBrendon:Don't get to cocky. \pOAK:Let the battle ... \pBEGIN!
boxset 6
setflag 0x1505
setflag 0x1506
setflag 0x1507
setvar 0x6003 0x0001
goto $GBbattle90
release
end

#org $GBbattle90
applymovement 8 $gbattle234
$gbattle234 1 ; #binary 0x54 0x54 0xFE
pausemove 0
applymovement 7 $bbattle
$bbattle 1 ; #binary 0x55 0x55 0xFE
pausemove 0
applymovement 8 $gbattle1
$gbattle1 1 ; #binary 0x54 0x54 0x54 0xFE
pausemove 0
applymovement 7 $bbattle1
$bbattle1 1 ; #binary 0x55 0x55 0x55 0xFE
pausemove 0
applymovement 8 $gbattle2
$gbattle2 1 ; #binary 0x54 0xFE
pausemove 0
applymovement 7 $bbattle2
$bbattle2 1 ; #binary 0x55 0xFE
pausemove 0
message $bbb
$bbb 1 = Brendon: GO Rayquaza! \p \v\h06:Noooooooooooooo!
boxset 6
applymovement 8 $gbattle3
$gbattle3 1 ; #binary 0x51 0xFE
pausemove 0
goto $ready
release
end

#org $ready
applymovement 8 $defeat
$defeat 1 ; #binary 0x10 0x12 0x12 0xFE
pausemove 0
message $bsttle
$bsttle 1 = \v\h01: My turn. \pBrendon:I hope you're tougher \n than \v\h06. \p \v\h01:Don't worry. \pI am!
boxset 6
applymovement 0xFF $bsttle2
$bsttle2 1 ; #binary 0x11 0x13 0x13 0x13 0xFE
pausemove 0
goto $back
release
end

#org $back
trainerbattle 0x01 0x47 $see $win $further
$see 1 = Oak: \v\h01, Brendon, \nyou ready? \pO.K., then let this battle \p BEGIN!
$win 1 = Brendon: How is that possible? \p \v\h01, You beat my 6 \nlegendary pokemon! \pI knew you got better, but \nthat's just insane.
message $after
$after 1 = Oak: here you go.
boxset 6
release
end

#org $further
applymovement 9 $poke
$poke 1 ; #binary 0x11 0x13 0xFE
pausemove 0
message $after
boxset 6
givepokemon 25 88 0xCA
fanfare 0x13E
message $poke!
$poke! 1 = \v\h01 received a Pikachu \nfrom Prof. Oak!
boxset 4
waitfanfare
goto $bonus
release
end

#org $bonus
message $bonus1
$bonus1 1 = OAK:Now for your bonus gifts! \pTheir both pokemon.
boxset 6
givepokemon 232 85 0x00
fanfare 0x13E
message $poke!2
$poke!2 1 = \v\h01 received a Donphan \nfrom Prof. Oak!
boxset 4
waitfanfare
givepokemon 279 87 0x00
fanfare 0x13E
message $poke!3
$poke!3 1 = \v\h01 received a Sceptile \nfrom Prof. Oak!
boxset 4
waitfanfare
message $buhbye
$buhbye 1 = Brendon:I got to get back \nto Hoenn . \p \v\h06:I have to get back \nto the Indigo plateau. \p OAK:I need to continue my \nresearch at my lab in Pallet. \pOak, Brendon, and \v\h06: Cya!
boxset 6
goto $end
release
end

#org $end
fadescreen 1
removesprite 8
removesprite 9
removesprite 7
removesprite 10
pause 0x50
fadescreen 0
release
end


Finally, this one asks you if you want an egg, and if you say yes, you get a lugia egg:
Spoiler:
#org $script
lock
faceplayer
message $hi
$hi 1 = Would you like the egg of a\nrare Pokemon?
boxset 5
compare 0x800D 0x0000
if 0x01 goto $why
call $bye
fanfare 0x13E
message $ty
$ty 1 = \v\h01 recieved a rare\nPokemon egg!
waitfanfare
boxset 4
release
end

#org $why
message $huh
$huh 1 = ok
boxset 6
release
end

#org $bye
#binary 31 72 00 67 EA C2 16 08 32 66 7A F9 00
return
(see, better at scripting) I use pokescript.

Way of contact: PM/VM
Why you want to join: I've always wanted to play a GOOD team rocket hack (helping to make one is just more fun)
__________________
Leader of Team LegendaryTrio


____________________________________________________________________

"We cannot do everything for
Africa, but doing nothing is not
an option" - Lee H. Hamilton
Reply With Quote