' ChemiChaos
' by vegipete, December 2020
'
' Sort the Chemical Balls in the Test Tubes
' Move with the arrow keys
' Pick and place with the space bar
' Restart level with R
' Quit with Esc
'
'   version 1.0   Original release, graphics tweaks, more levels + counter, intro text

     case  27    ' [ESC]
       DrawBall(0,src,0)   ' erase coloured ball above source vial
       for j = 1 to 4
         if vials(src,j) = 0 then     ' find top spot
           vials(src,j) = movingball  ' put the ball back
           DrawBall(movingball,src,j+1) ' re-draw coloured ball in vial
           exit do
         endif
       next j
       gameover = 1
       exit do

mport = 0 ' mm.info(option mouse) + 1

newclick = -1

sub LeftClick
 if newclick = 0 then
   newclick = 1
   handx = mouse(x,mport-1)
   handy = mouse(y,mport-1)
   if mport then gui cursor handx,handy
 endif
end sub

 'mouse button initial test
   dim integer mp
 CLS
 MODE 1,8
 
 mp = mm.info(option mouse)
 if mp = -1 then ' no mouse set
   mp = 0 ' assume PS/2 mouse - change to suit
 endif
 print "Mouse port ";mp
 
 PAUSE 5000
 GUI CURSOR ON
 
 CONTROLLER MOUSE OPEN mp, leftclick, rightclick
 
 PRINT "Mouse found is type ",MOUSE(t,mp)
 
 DO : LOOP UNTIL inkey$<>""
 
 CONTROLLER MOUSE CLOSE mp
 pause 20
 GUI CURSOR OFF
END
 
 
 '
SUB leftclick
 STATIC INTEGER n
 n=n+1
 PRINT @(100,100)"left",n
END SUB
 '
SUB rightclick
 STATIC INTEGER m
 m=m+1
 PRINT @(200,100)"Right",m
END SUB