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

%Fonts
var font1:int:= Font.New ("Times New Roman:24")

%Power Rangers
var redpr :int := Pic.FileNew ("redpr.jpg")
var bluepr : int := Pic.FileNew ("bluepr.jpg")
var pinkpr : int := Pic.FileNew ("pinkpr.jpg")

%Power Ranger X Y Values
var redx:int:=100
var redy:int:=100
var bluex:int:=300
var bluey:int:=300
var pinkx:int
var pinky:int

% Other variables
var count:int:=0
var num : int := 0
var x,y: int
var mx, my, mb:int

%Intro Screen
   Draw.FillBox (150,50,250,100,black)
   Font.Draw ("Start", 170,60, font1,white)

%Starter for clicking
loop
   mousewhere (mx,my,mb)
   if mb=1 and mx > 150 and my > 50 and mx <250 and my <100 then
   cls
   count:=count+1
end if
   exit when count = 1
end loop

%level1
   Font.Draw ("level 1", 100, 100, font1, black)
   delay (655)
   cls

   Pic.Draw (redpr, redx, redy, picCopy)
   Pic.Draw (bluepr, bluex, bluey, picCopy)
   
loop
    mousewhere (mx, my, mb)
    if mb = 1 and mx > redx and my > redy and mx < redx + 131 and my < redy + 142 then
    delay (100)
    cls
    num := num +1
    locate (1,1)
    color (red)
    put "Power Rangers Killed: ", num
elsif mb = 1 and mx > bluex and my > bluey and mx < bluex + 131 and my < bluey + 142 then
    delay (500)
    cls
    num := num + 1
    locate (1,1)
    color (blue)
    put "Power Rangers Killed: ", num
    delay (500)
    exit
end if     
end loop