Sorry your browser is not supported!

whats wrong i trie to get it to end when i click "exit" and to save my position and all that good stuff when i klick save but it comes up with an error thing.please.

data "Items",1
data "Potion"
data "save"
data "Characters"
data "exit"


`Number of submenus
numSubMenus=5

`Where the sub menu names will be stored
dim mainMenu$(numSubMenus)
`Where the item names will be stored
dim subMenu$(numSubMenus,20)
`Where the amount of item will be stored
dim subMenuQuantity(numSubMenus,20)
`Where the amount of items in the sub menu will be stored
dim subMenuAmount(numSubMenus)

`Read in data
for x=1 to numSubMenus
read mainMenu$(x)
read subMenuAmount(x)
for y=1 to subMenuAmount(x)
read subMenu$(x,y)
subMenuQuantity(x,y)=rnd(10)+1
next y
next x

sync on

do
`Background
ink rgb(255,255,255),0
box 0,0,639,479

`Do left menu graphics
ink rgb(100,100,100),0
box 23,23,203,463
ink rgb(200,200,200),0
box 20,20,200,460
ink rgb(0,0,0),0
text 40,35,"MENUS"
line 40,55,180,55

`Do right menu graphics
ink rgb(100,150,100),0
box 253,23,623,463
ink rgb(200,200,200),0
box 250,20,620,460
ink rgb(0,0,0),0
text 270,35,"ITEM"
text 500,35,"QUANTITY"
line 270,55,600,55
line 480,35,480,440


`Loop through sub menus
for x=1 to numSubMenus
`If the mouse is hovering it
if mousex()>40 and mousex()<40+text width(mainMenu$(x)) and mousey()>40+20*x and mousey()<40+20*x+text height(mainMenu$(x))
ink rgb(0,200,0),0
`If the mouse is clicked then switch menus to that one
if mouseclick()=1 then currentMenu=x
else
ink rgb(100,100,100),0
endif
`Print main menu text
text 40,40+20*x,mainMenu$(x)
next x

`Reset the 'cursor' for printing the text to the top of the list
listInc=0
`Loop through items
for x=1 to subMenuAmount(currentMenu)
`If the amount is more than 0
if subMenuQuantity(currentMenu,x)>0
`Move the 'cursor' for printing the text down, so we don't get overlapping text
inc listInc
`If mouse is hovering it
if mousex()>270 and mousex()<270+text width(subMenu$(currentMenu,x)) and mousey()>40+20*listInc and mousey()<40+20*listInc+text height(subMenu$(currentMenu,x))
ink rgb(255,255,0),0
`If the mouse is clicked and the time has passed from the last item click
if mouseclick()=1 and timer()-clickTimer>200
`Decriment the number of items
subMenuQuantity(currentMenu,x)=subMenuQuantity(currentMenu,x)-1
`Reset timer
clickTimer=timer()
endif
else
ink rgb(100,100,100),0
endif
`Print item name
text 270,40+20*listInc,subMenu$(currentMenu,x)
`Print item quantity
text 500,40+20*listInc,str$(subMenuQuantity(currentMenu,x))
endif
next x

sync
cls
loop

If you put your code into the [[/b]code][[b]/code] tags then indentation will be kept when you post your code - I don't even bother reading code that isn't indented.

Also, what error message are you getting?

ok i'll put it in the code thingy.the error is 100007

Oh, no indentation. Well, I did tell you ...

This is indentation:



See how easy it is to see the flow of execution of the code?

I might take a look at your code later ...