Sorry your browser is not supported!

if cb<>1 or cb1<>1

   cb = check_box(100,100,"320 x 200",RGB(0,0,0) ,cb)
   cb1 = check_box(100,120,"320 x 240",RGB(0,0,0) ,cb1)
`

   endif
function check_box(x as integer,y as integer, info as string, text_color as dword,valeur)
   size = text height("|")
   box x+1,y+1,x+size,y+size,rgb(128,128,128),rgb(196,196,196),rgb(128,128,128),rgb(196,196,196)
   ink rgb(0,0,0),0
   line x,y,x+size,y
   line x+size,y,x+size,y+size
   line x+size,y+size,x,y+size
   line x,y,x,y+size
   if valeur > 0
      for t=0 to size/4
         line x+t,y,x+size-t,y+size
         line x,y+t,x+size,y+size-t
         line x+size,y+t,x,y+size-t
         line x+size-t,y,x+t,y+size
      next t
   endif
   ink text_color,0
   text x+size+5,y,info
   if mousex()>x and mousex()<x+size
      if mousey()>y and mousey()<y+size
         if mouseclick()=1
         repeat:until mouseclick()=0
            if mousex()>x and mousex()<x+size
               if mousey()>y and mousex()<y+size
                  if valeur >0 then valeur = 0 else valeur = 1
               endif
            endif
         endif
      endif
   endif
endfunction valeur

if cb=0
   cb = check_box(100,100,"320 x 200",RGB(0,0,0) ,cb)
else
cb1=0
 cb = check_box(100,100,"320 x 200",RGB(0,0,0) ,cb)
 endif
if cb1=0
   cb1 = check_box(100,120,"320 x 240",RGB(0,0,0) ,cb1)
else
cb=0
cb1 = check_box(100,120,"320 x 240",RGB(0,0,0) ,cb1)
endif

sync on : sync rate 60
global choice `this makes choice a global variable meaning that when used in a function is the same variable as if it wasnt used in one.
choice=0 `the choice variable will be used to tell which button is clicked.


do
cls
boxes() ` this functin draws the boxes
choose() `runs the function that lets you chose one of the boxes
sync
loop


function boxes()
for a=1 to 18 `this creates a loop that will run 18 times and have a stast at 1 and go to 18
if choice=a
ink rgb(0,255,0),0 `if the button is the chosen button change the ink color
else
ink rgb(255,0,0),0
endif
box 10,a*10+10,20,a*10+15
next a
endfunction

function choose()
my=mousey() `sets the variable my equal to the mouses y position
if mousex()=>10 and mousex()=<20 `checks to see if the mouses x position is in the range of the buttons.  no need in running code if it isint needed
for a=1 to 18  `starts a for loop that starts at 1 and runs untill it is at 18
if my=>a*10+10 and my=<a*10+15 `check to see if the mouses y position is at button 1-18 since it checks 1 each loop and then checks the next
  if mouseclick()=1 `if you also have the mouse clicked
  choice=a  `make choice equal to the button you clicked on
   `everything below this is just closing the tags above it
  endif
endif
next a
endif
endfunction

 do
`cls
`gosub title
boxes() ` this functin draws the boxes
choose() `runs the function that lets you chose one of the boxes
sync
loop

function boxes()
for a=1 to 9 `this creates a loop that will run 18 times and have a stast at 1 and go to 18
if choice=a
ink rgb(0,0,255),0 `if the button is the chosen button change the ink color
else
ink rgb(255,0,0),0
endif
box 10,a*10+10,20,a*10+15
text 30,a*10+5,str$(a)
next a

for a=10 to 18 `this creates a loop that will run 18 times and have a stast at 1 and go to 18
if choice=a
ink rgb(0,0,255),0 `if the button is the chosen button change the ink color
else
ink rgb(255,0,0),0
endif
box 100,a*10+10,110,a*10+15
text 320,a*10+5,str$(a)
next a


endfunction

function choose()
my=mousey() `sets the variable my equal to the mouses y position
if mousex()=>10 and mousex()=<20 `checks to see if the mouses x position is in the range of the buttons.  no need in running code if it isint needed
for a=1 to 9  `starts a for loop that starts at 1 and runs untill it is at 18
if my=>a*10+10 and my=<a*10+15 `check to see if the mouses y position is at button 1-18 since it checks 1 each loop and then checks the next
 if mouseclick()=1 `if you also have the mouse clicked
 choice=a  `make choice equal to the button you clicked on
  `everything below this is just closing the tags above it
 endif
endif
next a
endif
my=mousey() `sets the variable my equal to the mouses y position
if mousex()=>100 and mousex()=<120 `checks to see if the mouses x position is in the range of the buttons.  no need in running code if it isint needed

for a=10 to 18  `starts a for loop that starts at 1 and runs untill it is at 18
if my=>100+a*10+10 and my=<100+a*10+15 `check to see if the mouses y position is at button 1-18 since it checks 1 each loop and then checks the next
  if mouseclick()=1 `if you also have the mouse clicked
  choice=a  `make choice equal to the button you clicked on
   `everything below this is just closing the tags above it
  endif
endif
next a
endif
endfunction

 function choose()
my=mousey() `sets the variable my equal to the mouses y position
if mousex()=>10 and mousex()=<20 `checks to see if the mouses x position is in the range of the buttons.  no need in running code if it isint needed
ch=1
for a=1 to 9  `starts a for loop that starts at 1 and runs untill it is at 18

if my=>50+a*10+10 and my=<50+a*10+15 `check to see if the mouses y position is at button 1-18 since it checks 1 each loop and then checks the next
 if mouseclick()=1 `if you also have the mouse clicked
 choice=ch  `make choice equal to the button you clicked on
  `everything below this is just closing the tags above it
 endif
endif
inc ch
next a
endif
my=mousey() `sets the variable my equal to the mouses y position
if mousex()=>50 and mousex()=<60 `checks to see if the mouses x position is in the range of the buttons.  no need in running code if it isint needed
ch=10
for a=1 to 9  `starts a for loop that starts at 1 and runs untill it is at 18
if my=>50+a*10+10 and my=<60+a*10+15 `check to see if the mouses y position is at button 1-18 since it checks 1 each loop and then checks the next
  if mouseclick()=1 `if you also have the mouse clicked
  choice=ch  `make choice equal to the button you clicked on
   `everything below this is just closing the tags above it
  endif
endif
inc ch
next a
endif
if ch>=18 then ch=1
endfunction