[Open-Source Script] Starter Pokemon

[EarthsVisitor]

Open Source Script - Starter Pokemon
FEEL FREE TO USE THIS SCRIPT IN YOUR HACK.
Program: PokeScript

I urge people to post their scripts to.

I had an idea for retrieving a starter.
TheTheTheThe, I believe, also had this idea at some point. I think he's even included in his hack.

Nevertheless, have the abiliity to only pick 1 or so pokemon sort of annoyed me, so I created a script, that allowed 32 different pokemon to be chosen as a starter.

This is all depended on a series of questions you answered. This script hasn't been tested, and can be easily changed and formatted to have the pokemon you want, and the questions can be easily changed. It's fully customizable. This one is specifically for 32 pokemon.

It could get complicated messing with this unless you have some background in scripting.

Without further ado.
Note: The Pokemon used in this one were; Bulbasaur, Squirtle, Charmander, Chikorita, Totodile, Cyndaquil, Treecko, Mudkip, Torchic, Oddish, Seedot, Aipom, Horsea, Corsola, Mareep, Poliwag, Swinub, Machop, Whismur, Pikachu, Vulpix, Gastly, Cubone, Scyther, Natu, Larvitar, Numel, Cacnea, Aron, Ralts, Baltoy, Trapinch

Name: 32 Starter Pokemon
Program: PokeScript
Description: Gives the player 1 of 32 starter pokemon, according to questions they must answer.
Creator: EarthsVisitor
Credit if Used: Yes

#org $LongPokemonScript
lock
faceplayer
checkflag 0x250
if 1 goto $havepokemon
message $computer
$computer 1 =Welcome to the Pokemon Picker 1000.\nPlease click ENTER to continue.\pLet's begin.\pAre pokemon your friends?
boxset 5
compare LASTRESULT 1
if 1 goto $question1
message $quiet
$quiet 1 =Are you quiet?
boxset 5
compare LASTRESULT 1
if 1 goto $question2
message $horror
$horror 1 =Do you enjoy Horror Movies?
boxset 5
compare LASTRESULT 1
if 1 goto $question3
message $lazy
$lazy 1 =Are you lazy?
boxset 5
if 1 goto $question4
message $swim
$swim 1 =Do you like the rain?
boxset 5
compare LASTRESULT 1
if 1 goto $treecko
givepokemon 277 5 0
message $totodile
$totodile 1 =Congratulations!\nYou've selected a TOTODILE.
boxset 6
setflag 0x250
release
end

#org $question1
message $quiet2
$quiet2 1 =Are you quiet?
boxset 5
compare LASTRESULT 1
if 1 goto $question6
message $power
$power 1 =Are you infatuated with power?
boxset 5
compare LASTRESULT 1
if 1 goto $question7
message $hurry
$hurry 1 =Does it always seem like you're\n in a hurry?
boxset 5
compare LASTRESULT 1
if 1 goto $question8
message $ashormis
$ashormis 1 =Do you think Ash is better than\nMisty?
boxset 5
compare LASTRESULT 1
if 1 goto $corsola
givepokemon 1 5 0
message $bulbasaur
$bulbasaur 1 =Congratulations!\nYou've selected a BULBASAUR.
boxset 6
setflag 0x250
release
end

#org $question2
message $tough
$tough 1 =Do you like Hot Sauce?
boxset 5
compare LASTRESULT 1
if 1 goto $question9
message $mind
$mind 1 =The mind is more precious than\nthe body?
boxset 5
compare LASTRESULT 1
if 1 goto $question10
message $read
$read 1 =Do you like to read?
boxset 5
compare LASTRESULT 1
if 1 goto $cubone
givepokemon 382 5 0
message $aron
$aron 1 =Congratulations!\nYou've selected an ARON.
boxset 6
setflag 0x250
release
end

#org $question3
message $nature
$nature 1 =Are you considered a Nature Freak?
boxset 5
compare LASTRESULT 1
if 1 goto $question11
message $ghosts
$ghosts 1 =Do you believe in Ghosts?
boxset 5
compare LASTRESULT 1
if 1 goto $gastly
givepokemon 246 5 0
message $larvitar
$larvitar 1 =Congratulations!\nYou've selected a LARVITAR.
boxset 6
setflag 0x250
release
end

#org $question4
message $fire
$fire 1 =Do you like to play with fire?
boxset 5
compare LASTRESULT 1
if 1 goto $charmander
givepokemon 318 5 0
message $baltoy
$baltoy 1 =Congratulations\nYou've selected a BALTOY.
boxset 6
setflag 0x250
release
end

#org $treecko
givepokemon 277 5 0
message $treecko1
$treecko1 1 =Congratulations!\nYou've selected a TREECKO.
boxset 6
setflag 0x250
release
end

#org $question6
message $lazy2
$lazy2 1 =Are you lazy?
boxset 5
compare LASTRESULT 1 
if 1 goto $question12
message $gentle
$gentle 1 =Are you gentle?
boxset 5
compare LASTRESULT 1
if 1 goto $question13
message $sing
$sing 1 =Do you like to sing?
boxset 5
compare LASTRESULT 1
if 1 goto $torchic
givepokemon 152 5 0
message $chikorita
$chikorita 1 =Congratulations!\nYou've selected a CHIKORITA.
boxset 6
setflag 0x250
release
end

#org $question7
message $mind2
$mind2 1 =Are muscles more important than wits?
boxset 5
compare LASTRESULT 1
if 1 goto $question14
message $monkey
$monkey 1 =Do you monkey around alot?
boxset 5
compare LASTRESULT 1
if 1 goto $aipom
givepokemon 7 5 0
message $squirtle
$squirtle 1 =Congratulations!\nYou've selected a SQUIRTLE.
boxset 6
setflag 0x250
release
end

#org $question8
message $rolemodel
$rolemodel 1 =Is your rolemodel Ash Ketchum?
boxset 5
compare LASTRESULT 1
if 1 goto $pikachu
givepokemon 283 5 0
message $mudkip
$mudkip 1 =Congratulations!\nYou've selected a MUDKIP.
boxset 6
setflag 0x250
release
end

#org $corsola
givepokemon 222 5 0
message $corsola1
$corsola1 1 =Congratulations!\nYou've selected a CORSOLA.
boxset 6
setflag 0x250
release
end

#org $question9
message $dangerous
$dangerous 1 =Are you considered unexplosive?
boxset 5
compare LASTRESULT 1
if 1 goto $question15
message $sly
$sly 1 =Are you sly and cunning like a fox?
boxset 5
compare LASTRESULT 1
if 1 goto $vulpix
givepokemon 155 5 0
message $cyndaquil
$cyndaquil 1 =Congratulations!\nYou've selected a CYNDAQUIL.
boxset 6
setflag 0x250
release
end

#org $question10
message $calm
$calm 1 =Are you calm?
boxset 5
compare LASTRESULT 1
if 1 goto $ralts
givepokemon 177 5 0
message $natu
$natu 1 =Congratulations!\nYou've selected a NATU.
boxset 6
setflag 0x250
release
end

#org $cubone
givepokemon 104 5 0
message $cubone1
$cubone1 1 =Congratulations!\nYou've selected a CUBONE.
boxset 6
setflag 0x250
release
end

#org $question11
message $bugs
$bugs 1 =Do you kill a bug as soon as you\nsee one?
boxset 5
compare LASTRESULT 1
if 1 goto $cacnea
givepokemon 123 5 0
message $scyther
$scyther 1 =Congratulations!\nYou've selected a SCYTHER.
boxset 6
setflag 0x250
release
end

#org $gastly
givepokemon 92 5 0
message $gastly1
$gastly1 1 =Congratulations!\nYou've selected a GASTLY.
boxset 6
setflag 0x250
release
end

#org $charmander
givepokemon 4 5 0
message $charmander1
$charmander1 1 =Congratulations!\nYou've selected a CHARMANDER.
boxset 6
setflag 0x250
release
end

#org $question12
message $nature3
$nature3 1 =Do you support cutting down trees?
boxset 5
compare LASTRESULT 1
if 1 goto $question16
message $greens
$greens 1 =Do you eat your vegetables?
boxset 5
compare LASTRESULT 1
if 1 goto $seedot
givepokemon 43 5 0
message $oddish
$oddish 1 =Congratulations!\nYou've selected a ODDISH.
boxset 6
setflag 0x250
release
end

#org $question13
message $energy
$energy 1 =Are you a shocking person?
boxset 5
compare LASTRESULT 1
if 1 goto $mareep
givepokemon 116 5 0
message $horsea
$horsea 1 =Congratulations!\nYou've selected a HORSEA.
boxset 6
setflag 0x250
release
end

#org $torchic
givepokemon 280 5 0
message $torchic1
$torchic1 1 =Congratulations!\nYou've selected a TORCHIC.
boxset 6
setflag 0x250
release
end

#org $question14
message $karate
$karate 1 =Do you take or want to take Karate?
boxset 5
compare LASTRESULT 1
if 1 goto $machop
givepokemon 370 5 0
message $whismur
$whismur 1 =Congratulations!\nYou've selected a WHISMUR.
boxset 6
setflag 0x250
release
end

#org $aipom
givepokemon 190 5 0
message $aipom1
$aipom1 1 =Congratulations!\nYou've selected a AIPOM.
boxset 6
setflag 0x250
release
end

#org $pikachu
givepokemon 25 5 0
message $pikachu1
$pikachu1 1 =Congratulations!\nYou've selected a PIKACHU.
boxset 6
setflag 0x250
release
end

#org $question15
message $dream
$dream 1 =Have you ever dreamed about flying?
boxset 5
compare LASTRESULT 1
if 1 goto $trapinch
givepokemon 339 5 0
message $numel
$numel 1 =Congratulations!\nYou've selected a NUMEL.
boxset 6
setflag 0x250
release
end

#org $vulpix
givepokemon 37 5 0
message $vulpix1
$vulpix1 1 =Congratulations!\nYou've selected a VULPIX.
boxset 6
setflag 0x250
release
end

#org $ralts
givepokemon 392 5 0
message $ralts1
$ralts1 1 =Congratulations!\nYou've selected a RALTS.
boxset 6
setflag 0x250
release
end

#org $cacnea
givepokemon 344 5 0
message $cacnea1
$cacnea1 1 =Congratulations!\nYou've selected a CACNEA.
boxset 6
setflag 0x250
release
end

#org $question16
message $winter
$winter 1 =Do you prefer winter over spring?
boxset 5
compare LASTRESULT 1
if 1 goto $swinub
givepokemon 60 5 0
message $poliwag
$poliwag 1 =Congratulations!\nYou've selected a POLIWAG.
boxset 6
setflag 0x250
release
end

#org $seedot
givepokemon 298 5 0
message $seedot1
$seedot1 1 =Congratulations!\nYou've selected a SEEDOT.
boxset 6
setflag 0x250
release
end

#org $mareep
givepokemon 179 5 0
message $mareep1
$mareep1 1 =Congratulations!\nYou've selected a MAREEP.
boxset 6
setflag 0x250
release
end

#org $machop
givepokemon 66 5 0
message $machop1
$machop1 1 =Congratulations!\nYou've selected a MACHOP.
boxset 6
setflag 0x250
release
end

#org $trapinch
givepokemon 332 5 0
message $trapinch1
$trapinch1 1 =Congratulations!\nYou've selected a TRAPINCH.
boxset 6
setflag 0x250
release
end

#org $swinub
givepokemon 220 5 0
message $swinub1
$swinub1 1 =Congratulations!\nYou've selected a SWINUB.
boxset 6
setflag 0x250
release
end

#org $havepokemon
message $data
$data 1 =Our database detects that you have\nalready selected a pokemon.
boxset 6
release
end

 

[CrazyLuigi]

That script is brilliant, good job

 

[Mechanic]

I just saw heaven when you posted this 0.0

Really appreciated for you to put it in open source for us to use ^_^

-Unit - Merry Christmas

 

[du1387]

Nice script. I should totally put that in a hack or something.

 

[destinedjagold]

That's a lovely script, EV!
I hope ya don't mind if I'll use that script on my next hack! :D

Thanks~

 

[thethethethe]

Ahhh. So that's the idea of mine you were using. I guess I just thought that you're idea was for RR, and not just writing a script for the fun of it.
I love the questionos, they fit perfectly. "Have you ever dreamed of Flying?" for trapinch is perfect.
"Do you monkey around a lot?" Is perfect for Aipom.

At least my one is done a bit differently.

Since we're sharing scripts, here's my bank script.

Spoiler:

Did you really think I'd do that?

 

[Teh Baro]

Lovely. Reminds me of Summon night-swordscraft story (1)

 

[PierceChrist]

Lovely. Reminds me of Summon night-swordscraft story (1)

Thats one of my favorite games! Thats also what i thought too! This is definately one of my favorite scripts. Has anyone tested it to see if it works?

 

[+Sneasel™]

Hey, i saw the script in pokemon breakdown, works great.
I love the way it asks you questions and then you get a pokemon depending on what you answered (just like mystery dungeon).

I got aipom!

 

[Scorp Con]

Awesome! You don't mind if I will use that script in my hack?

 

[Erimgard]

Awesome! You don't mind if I will use that script in my hack?

You can use it as long as you give him credit in your thread

 

[Satoshi Sugimori]

:( now I cant be the onlyone anymore..XD
*joking*
Nice script idd..:)