View.Set ("graphics:max,max")

var frontscreen : int := Pic.FileNew ("frontscreen.jpg")
var mx, my, mb : int
var instructions : int := Pic.FileNew ("instructions.jpg")
var level1 : int := Pic.FileNew ("level1.jpg")
var level2:int:=Pic.FileNew("level2.jpg")
var level3:int:= Pic.FileNew ("level3.jpg")
var level4:int:= Pic.FileNew ("level4.jpg")
var score :int :=0
var answer:string




proc up
  loop
        mousewhere (mx, my, mb)
            exit when mb = 0
        end loop


end up



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



%%drawbox (590, 100, 850, 30, red)


loop
    Pic.Draw (frontscreen, 0, -50, picCopy)
    mousewhere (mx, my, mb)
    if mb = 1 and mx > 175 and my > 30 and mx < 270 and my < 100 then
        Pic.Draw (level1, 0, -50, picCopy)
      up
      
        exit
    
    elsif mb = 1 and mx > 590 and my > 30 and mx < 850 and my < 100 then
        cls
up
        Pic.Draw (instructions, 0, -50, picCopy)
        loop
        mousewhere (mx, my, mb)
            exit when mb = 1
        end loop
up
    end if
end loop
%%level1%%%%%%%%%%
loop

get answer
if answer = "b" then
score:=score+1
exit
else 
score:=score+0
exit
end if

end loop
%%level2%%%%%%%%%
Pic.Draw (level2, 0, -50, picCopy)

loop

get answer
if answer = "d" then
score:=score+1
exit
else 
score:=score+0
exit
end if

end loop
cls 
put score