%My snake game
View.Set("graphics:500;500,nocursor")

%%%INTRO%%%
var textc: int
var font1 := Font.New ("Impact:30")
var font2 := Font.New ("Comicsans:50")
var font3 := Font.New ("Roman:10")
var text1 := "Welcome    to"
var text2 := "S N A K E"
var text3 := "By: ***** ******"
var text4 := "G A M E"
var text5 := "O V E R"
var width1 := Font.Width (text1,font1)
var width2 := Font.Width (text2,font2)
var width3 := Font.Width (text3,font3)
var width4 := Font.Width (text4,font2)
var width5 := Font.Width (text5,font2)

loop
    randint (textc,1,100)
    Font.Draw (text1, round (maxx / 2 - width1 / 2), 350, font1, textc)
    Font.Draw (text2, round (maxx / 2 - width2 / 2), 200, font2, textc)
    Font.Draw (text3, round (maxx / 2 - width3 / 2), 20, font3, textc)
    delay(50)
    exit when hasch
end loop
cls

%%%GAME%%%
var x, y: int       %%Snake
var x1, y1: int     %%Food
var speed: int := 1
var c: int          %%Color
var snake: array char of boolean
var fs: int := 20   %%Food size

randint(x,20,480)       %%Spawn snake
randint(y,20,480)
randint(x1,20,480)      %%Spawn food
randint(y1,20,480)
randint(c,1,255)
drawfilloval(x,y,5,5,c)

loop
%Moving snake
    Input.KeyDown (snake)

    if snake (KEY_UP_ARROW) then
        y := y + speed
    end if
    if snake (KEY_DOWN_ARROW) then
        y := y - speed
    end if
    if snake (KEY_RIGHT_ARROW) then
        x := x + speed
    end if
    if snake (KEY_LEFT_ARROW) then
        x := x - speed
    end if
    %%Change color of snake
    if snake (' ') then
        randint (c,1,255)
    end if
    if x <= x1 - 5 or y <= y1 - 5 then
        randint(x1,20,480)
        randint(y1,20,480)
        speed := speed + 1
        fs := fs - 1
    end if
   
%Snake Boundry - game over
    if x >= maxx - 5 or x <= 5 or y >= maxy - 5 or y <= 5 then
        exit
    end if
    drawoval(x1,y1,fs,fs,black)
    drawfilloval(x,y,5,5,c)
    delay(10)
    cls
end loop
%Game Over
Font.Draw (text4, round (maxx / 2 - width4 / 2), 300, font2, black)
Font.Draw (text5, round (maxx / 2 - width5 / 2), 200, font2, black)
Font.Draw (text3, round (maxx / 2 - width3 / 2), 20, font3, black)