ok guys one last ask.
This is thing which has been buggin me for ages
the quallity is totally messed up:
sync on
sync rate 30
dim MenuItems$(6)
MenuItems$(1)="START NEW"
MenuItems$(2)="LOAD GAME"
MenuItems$(3)="SAVE GAME"
MenuItems$(4)="OPTIONS"
MenuItems$(5)="CREDITS"
MenuItems$(6)="EXIT"
StartX=20
StartY=20
space=20
gosub CreateItems
do
cls
sync
loop
createitems:
itemCount=array count(menuitems$(0))
for currentItem=1 to itemCount
print menuitems$(currentItem)
get image currentitem,0,0,text width(menuitems$(currentItem)),text height(menuitems$(currentItem))
sprite currentItem,startX,StartY+(currentitem*space),currentitem
set sprite currentitem,0,1
cls
next currentItem
return
Thanx
Drum