Behold! My Pokemon randomiser!

[Petzbreeder]

I mentioned this on the "How ya doin" thread.

For the last few days, I've been on another forum asking for help with making a program.
I'm sure when I finish it, all of you Nuzlocke players would apreciate it!

If your ID ends in a 0 and you don't want to choose your starter yourself, you can use the program to choose for you!

Well, I've finished the program and I'm willing to share it with everyone!
Download it here.

The controls are pretty simple:
Up and down arrow keys to scroll through regions
Enter key to confirm your choice
Spacebar to pick another region after choosing your first if you're playing multiple games.

So, what do you think?

[Hoof Hearted]

Thanks for making this! I haven't tried it out yet, but I always wanted to try playing a randomizer nuzlocke. Haha, no viruses In that download link I would hope

[Petzbreeder]

My program only randomly chooses your starter Pokemon, not your entire team.

[Jampie]

Wanted to ask, is this download completely safe?

[Petzbreeder]

Wanted to ask, is this download completely safe?

Yes, completely and perfectly safe. I made it in a program called DarkBASIC. I have no idea how to make viruses and stuff like that. To be honest, I barely even know how to program at all! I had a lot of help with it.

Here is what the program looks like in code form.

Set text font "Arial"
Set text size 40

gosub Setup

do
if Menu=0 then gosub KeyControl:gosub MainMenu

if Menu=1
    ink Yellow,0
    set cursor 0,0
    print "You are in: ";Name$(selection,0)
    print "Your starter Pokemon is: ";Name$(selection,RandomPick)
    print
    ink White,0
    print "SPACEKEY = PICK AGAIN"
    if spacekey() then Menu=0
ENDIF

sync
loop



Setup:
selection=1:        REM .....starting menu position
Regions=6:          REM .....Number of regions
PokemonPer=3:   REM .....Number of Pokemon per region
Red=rgb(200,0,0)
White=rgb(200,200,200)
Yellow=rgb(200,200,0)

dim Name$(Regions,PokemonPer):   REM .....holder for all the names (dollar sign is for "string" format - "string" just means text)

restore AllNames:  REM .....points to correct data (not needed really unless there are multiple data sets or data is read more than once)

for ThisRegion=1 to Regions:       REM .....FOR/NEXT LOOP to read all the names from the data statements
for Namesake=0 to 3
read Name$(ThisRegion,Namesake):               REM .....Read from the data staments and assign to array
NEXT Namesake
NEXT ThisRegion
backdrop on:color backdrop rgb(rnd(55),rnd(55),rnd(55))
sync on:sync rate 30
return


KeyControl:
if upkey() then dec selection: if selection<1 then selection=Regions
if downkey() then inc selection: if selection>Regions then selection=1
if returnkey() then Menu=1:RandomPick=1+rnd(PokemonPer-1)
while scancode()<>0:ENDWHILE
return

MainMenu:
set cursor 0,0
ink White,0
print "Which Region Are You In?"
print
for p=1 to Regions
if p=selection then ink Red,0 else ink White,0
print Name$(p,0)
NEXT p
return


AllNames:
data "Kanto", "Bulbasaur", "Charmander", "Squirtle"
data "Johto", "Chikorita", "Cyndaquil","Totodile"
data "Hoenn", "Treecko", "Torchic", "Mudkip"
data "Sinnoh", "Turtwig", "Chimchar", "Piplup"
data "Unova", "Snivy", "Tepig","Oshawott"
data "Kalos", "Chespin", "Fennekin", "Froakie"

Pretty impressive, eh?

[Jampie]

One problem, whenever I choose my region, then I get my starter and then I press enter and it doesn't continue it just stays there.

[Petzbreeder]

Use the Spacebar to get back to the first menu.