Derek Darkly
Ok, i'm only going to offer 4 diffrent resolutions, so, how can I offer just the 4 to choose from.
This is the code i'm using to choose resolutions.
exitloop=0
do
rem get a checklist of the different resolutions
perform checklist for display modes
rem print
y=20
for t=1 to checklist quantity()
text 0,0,"Please select resolution(the Higher, the slower This game can play)"
inc y,15
width=checklist value a(t)
height=checklist value b(t)
depth=checklist value c(t)
ink rgb(255,255,255),0
text 0,y,str$(width)+"*"+str$(height)+"*"+str$(depth)
if mousex()>text width(str$(width)+"*"+str$(height)+"*"+str$(depth))
change mouse 0
endif
rem select with mouse
if mousex()<text width(str$(width)+"*"+str$(height)+"*"+str$(depth))
if mousey()>y and mousey()<y+15
ink rgb(0,0,255),0:change mouse 1
text 0,y,str$(width)+"*"+str$(height)+"*"+str$(depth)
if mouseclick()=1 then exitloop=1:change mouse 0:exit
endif
endif
next t
rem exit
if exitloop=1 then cls:exit
