You had me at
Hello World...
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
NEXT
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
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
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"
Mind you, there are dozens of ways one could organize and handle such data lists - mine is by no means textbook coding, I just slop around until it works.
Like chess, once you know the rules it's up to your logic and imagination to join forces and create what you want to see on the screen/board.
If you're serious about programming, my code includes an example of multi-dimensional arrays which are indispensable for keeping track of items with many attributes, like how many fish tanks you have, how many goldfish you have in each tank, the number of fins on each goldfish, and if a particular fin is torn or not!
You will also see GOSUB/RETURN and FOR/NEXT in action as well as READ/DATA and some basic input and print statements. You should be able to play with the code and make new lists, bettering your skills all the while.
There are many commands to learn, not to mention plugins that people swear by, half of which I've never used. Coding is an endless road of desires, rewards and failures... oh, the many, many failures.
Man, you can tell I live alone... I think I hear my goldfish calling.
