%%%%%%Battleship Main Menu%%%%%%
procedure Main_Menu (start : int)
    var PicBackGround : int
    var game : string
    PicBackGround := Pic.FileNew ("battleship.jpg") %background if the user is playing
    PicBackGround := Pic.Scale (PicBackGround, maxx, maxy)
    Pic.Draw (PicBackGround, 0, 0, picCopy)
    Main_Menu (start)
    Pic.Draw (PicBackGround, 0, 0, picCopy)
%%%%%%Instructions%%%%%%%
var Instructions : int
var reply : string (1)
    put "Would you like to see instruction?(y/n)"
    getch (reply)
if game = "y" then
    put "Your mission is to find the ship of your opponent" %this is the instructions
    put "You only have 10 tries to find the ship"
    put "Goodluck"
end if
    cls
procedure drawgrid ()
    for r : 1 .. 10
        for c : 1 .. 10
            drawbox (100 + 36 * (c - 1), 8 + 36 * (r - 1), 100 + 36 * c, 8 + 36 * r, 5)
        end for
    end for
end drawgrid

var star, picback : int
var gam : string
    picback := Pic.FileNew ("mhar.bmp")
    picback := Pic.Scale (picback, maxx, maxy)
    Pic.Draw (picback, 0, 0, picCopy)
    drawgrid ()
var mx, my, gx, gy, sx, sy, XY, button : int
var d : real
    randint (sx, 1, 10)
    randint (sy, 1, 10)
    var count : int
    count := 0
loop
    loop
        gx := 0
        gy := 0
        Mouse.Where (mx, my, button)
        if button = 1 then
           drawfillmapleleaf (mx - 10, my - 10, mx + 10, my + 10, red)
           gx := ceil ((mx - 100) / 36)
           gy := ceil ((my - 8) / 36)
        end if
        delay (100)
        exit when gx > 0 and gy > 0 and gx < 11 and gy < 11
end loop
        if gx = sx and gy = sy then
            cls
%%%%%winning or losing screen%%%%%%           
var font3 : int
    font3 := Font.New ("Ariel Black:36:italic")
    assert font3 > 0
    Font.Draw ("Congratulations!You Won                    ", 250, 350, font3, red) %if the player wins, this will be displayed
    font3 := Font.New ("Tahoma:24:bold,italic")
    quit
elsif count > 9 then
    cls
var font4 : int
    font4 := Font.New ("Ariel Black:36:italic")
    assert font4 > 0

    font4 := Font.New ("Tahoma:24:bold,italic")
var star1, picback1 : int
    picback1 := Pic.FileNew ("face.jpg")
    picback1 := Pic.Scale (picback1, maxx, maxy)
    Pic.Draw (picback1, 0, 0, picCopy)
    Font.Draw ("Loser!Better luck next time!!             ", 80, 320, font4, green) %if the player lose, this will be displayed
    quit
else
    d := sqrt ((sx - gx) ** 2 + (sy - gy) ** 2)
    locate (1, 1)
    put d
    count := count + 1
       put count
        end if
    end loop
end Main_Menu