Author Topic: Behold! My Pokemon randomiser!  (Read 1144 times)

0 Members, Big Brother and 1 Guest are viewing this topic.

Offline Petzbreeder

  • Also known as Brally
  • Joeno Fan
  • *****
  • Posts: 1284
  • Gender: Female
  • I play my games in French sometimes.
    • View Profile
Behold! My Pokemon randomiser!
« on: November 06, 2014, 21:21 »
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?
« Last Edit: November 06, 2014, 22:01 by Petzbreeder »

Offline Hoof Hearted

  • Rob Fan
  • *****
  • Posts: 69
  • Gender: Male
  • Swampert is nnniccee
    • View Profile
Re: Behold! My Pokemon randomiser!
« Reply #1 on: November 07, 2014, 23:34 »
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

Offline Petzbreeder

  • Also known as Brally
  • Joeno Fan
  • *****
  • Posts: 1284
  • Gender: Female
  • I play my games in French sometimes.
    • View Profile
Re: Behold! My Pokemon randomiser!
« Reply #2 on: November 08, 2014, 11:52 »
My program only randomly chooses your starter Pokemon, not your entire team.

Offline Jampie

  • The Hay Master
  • Psythor Fan
  • *****
  • Posts: 27
    • View Profile
Re: Behold! My Pokemon randomiser!
« Reply #3 on: December 06, 2014, 01:07 »
Wanted to ask, is this download completely safe?

Offline Petzbreeder

  • Also known as Brally
  • Joeno Fan
  • *****
  • Posts: 1284
  • Gender: Female
  • I play my games in French sometimes.
    • View Profile
Re: Behold! My Pokemon randomiser!
« Reply #4 on: December 06, 2014, 12:14 »
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.
Quote
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?

Offline Jampie

  • The Hay Master
  • Psythor Fan
  • *****
  • Posts: 27
    • View Profile
Re: Behold! My Pokemon randomiser!
« Reply #5 on: December 06, 2014, 23:43 »
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.

Offline Petzbreeder

  • Also known as Brally
  • Joeno Fan
  • *****
  • Posts: 1284
  • Gender: Female
  • I play my games in French sometimes.
    • View Profile
Re: Behold! My Pokemon randomiser!
« Reply #6 on: December 11, 2014, 15:34 »
Use the Spacebar to get back to the first menu.