import GUI
setscreen ("graphics:640;480")

var vipeback : int := Pic.FileNew ("viper2dash.bmp")
Pic.Draw (vipeback, maxx div 650, maxy div 650, 0)

Draw.FillOval (265, 370, 10, 10, white)
%Right Turn light
Draw.FillOval (25, 370, 10, 10, white)
%Brakelights
Draw.FillOval (325, 337 , 10 , 10 , white)
% Backlights are red
% Turn signals are Yellow
% Headlights are orange

% The delay is done to produce a realistic "Blinker" effect
% The "Blinker" runs through 5 times
procedure lefturn
    locate (1, 1)
    put "Left Turn Light ON"
    for i : 1 .. 5
   
   Draw.FillOval (265, 370, 10, 10, yellow)
        parallelput (8)
        delay (300)
        Draw.FillOval (265, 370, 10, 10, white)
        parallelput (0)
        delay (300)
    end for
end lefturn

procedure righturn
    locate (1, 1)
    put "Right Turn Light ON"
    for i : 1 .. 5
        Draw.FillOval (25, 370, 10, 10, yellow)
        parallelput (4)
        delay (300)
        Draw.FillOval (25, 370, 10, 10, white)
        parallelput (0)
        delay (300)
    end for
end righturn

procedure breaklight
    locate (1, 1)
    put "Breaklights are on"
    Draw.FillOval (325, 337 , 10 , 10 , red)
    parallelput (2)
end breaklight

procedure headlight
    locate (1, 1)
    put "Headlights are on"
    parallelput (1)
end headlight

var button1 : int := GUI.CreateButton (25, 25, -10, "", lefturn)
var button2 : int := GUI.CreateButton (25, 50, -10, "", righturn)
var button3 : int := GUI.CreateButton (150, 25, -10, "", breaklight)
var button4 : int := GUI.CreateButton (150, 50, -10, "", headlight)


loop
    exit when GUI.ProcessEvent
end loop

proc Main
loop

CheckEvents (see if any button is clicked)

//Check if left light is on boolean
//Check if right light is on boolean
//Check if headlight is on boolean
//Check if breaklight is on boolean

DrawAllTheLights //draw a light if "left right is on" is set to true

end proc