View.Set ("graphics:1024;768, offscreenonly, nobuttonbar")
var winID : int
var f1 : int := Font.New ("roaringfire:25:bold")
var f2 : int := Font.New ("roaringfire:50:bold")
var f3 : int := Font.New ("Roaringfire:30:bold")
var mx, my, button : int

process thunder
    Music.PlayFile ("storm-rainthunder5.wav")
end thunder

procedure Font_Pull (Text : string, X, Y, Font1, D, C : int)
    for I : 1 .. length (Text)
        cls
        Font.Draw (Text (1 .. I), X, Y, Font1, C)
        delay (D)
        View.Update
    end for
end Font_Pull

procedure introtext
    Font_Pull ("Two Families", 200, 550, f2, 100, white)
    delay (300)
    Font_Pull ("Sworn enemies from the beginning", 60, 400, f2, 100, white)
    delay (300)
    Font_Pull ("Only one member of each family survives", 1, 200, f3, 100, white)
    delay (300)
    Font_Pull ("And they must fight to finish it all", 50, 600, f2, 100, white)
    delay (500)
    Font_Pull ("Who wins is all up to you", 200, 300, f2, 100, white)
    delay (500)
    cls
end introtext

loop
    colorback (black)
    Font.Draw ("The Rivalry", 320, 550, f2, white)
    drawbox (120, 100, 340, 130, white)
    drawbox (670, 100, 890, 130, white)
    Font.Draw ("Start", 185, 107, f1, white)
    Font.Draw ("Quit", 740, 107, f1, white)
    View.Update
    delay (15)
    cls
    Mouse.Where (mx, my, button)
    if mx > 120 and mx < 340 and my > 100 and my < 130 then
        drawfillbox (120, 100, 340, 130, red)
        if button = 1 then
            cls
            fork thunder
            introtext
            delay (500)
            cls
        end if
    elsif mx > 670 and mx < 890 and my > 100 and my < 130 then
        drawfillbox (670, 100, 890, 130, red)
        if button = 1 then
            Window.Close (winID)
        end if
    end if
end loop

var winID: int:= Window.Open(parameters)