Burp.
0 Members, Big Brother and 1 Guest are viewing this topic.
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!
Wanted to ask, is this download completely safe?
Set text font "Arial"Set text size 40gosub Setupdoif Menu=0 then gosub KeyControl:gosub MainMenuif 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=0ENDIFsyncloopSetup:selection=1: REM .....starting menu positionRegions=6: REM .....Number of regionsPokemonPer=3: REM .....Number of Pokemon per regionRed=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 statementsfor Namesake=0 to 3read Name$(ThisRegion,Namesake): REM .....Read from the data staments and assign to arrayNEXT NamesakeNEXT ThisRegionbackdrop on:color backdrop rgb(rnd(55),rnd(55),rnd(55))sync on:sync rate 30returnKeyControl:if upkey() then dec selection: if selection<1 then selection=Regionsif downkey() then inc selection: if selection>Regions then selection=1if returnkey() then Menu=1:RandomPick=1+rnd(PokemonPer-1)while scancode()<>0:ENDWHILEreturnMainMenu:set cursor 0,0ink White,0print "Which Region Are You In?"printfor p=1 to Regionsif p=selection then ink Red,0 else ink White,0print Name$(p,0)NEXT preturnAllNames: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"