Thread: Team Rocket
View Single Post
  #5    
Old October 11th, 2011 (4:29 PM).
niven's Avatar
niven niven is offline
Leader of Team LegendaryTrio
     
    Join Date: Jul 2011
    Location: Where I'm sittin'
    Age: 18
    Gender: Male
    Nature: Brave
    Posts: 109
    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