Author Topic: Snake for ChipmonkeyLua  (Read 821 times)

Cybermonkey

  • Administrator
  • Hero Member
  • *****
  • Posts: 574
    • View Profile
    • Home of EGSL
Snake for ChipmonkeyLua
« on: 19. May 2014, 22:36:18 »
I always wanted to do a snake clone. So here it is: very simple but it works!

Code: [Select]
-- snake clone with ChipmonkeyLua
-- ------------------------------
lowres()
CRSLEFT = 19200
CRSRIGHT = 19712
CRSUP = 18432
CRSDOWN = 20480

score = 0
snake={}
snakex={}
snakey={}

snakex[1]=5
snakey[1]=5

snake.xoffset=111
snake.yoffset=111
snake.xcount=10
snake.ycount=10
snake.width=8
snake.height=8
snake.direction ="right"
snake.length = 1

bait={}
bait.x=30
bait.y=30
bait.xoffset=111
bait.yoffset=111
bait.xcount=10
bait.ycount=10
bait.width=8
bait.height=8

speed = 50

for i=1, snake.length do
snakex[i]=5
snakey[i]=5
end

ink (65535)
cls()
page = 0
endgame = false
repeat
activepage (page)
clear()
if keypressed()== true then
 xkey=getkey()
  if xkey==27 then
   endgame = true
  elseif xkey==CRSLEFT then
   snake.direction = "left"
  elseif xkey==CRSRIGHT then
   snake.direction = "right"
  elseif xkey==CRSUP then
   snake.direction = "up"
  elseif xkey==CRSDOWN then
   snake.direction = "down"
  end
end

if (snakex[1]==bait.x) and (snakey[1]==bait.y) then
    score = score + 1
    bait.x = int (rnd()*72)
    bait.y = int (rnd()*52)
    snake.length=snake.length + 1
    speed = speed - 0.2
end



if snake.direction =="right" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakex[1]=snakex[1] + 1
    sleep (speed)
end

if snake.direction =="down" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakey[1]=snakey[1] + 1
    sleep (speed)
end

if snake.direction =="left" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakex[1]=snakex[1] - 1
    sleep (speed)
end

if snake.direction =="up" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakey[1]=snakey[1] - 1
    sleep (speed)
end

for i=2,snake.length do
    if (snakex[1]==snakex[i]) and (snakey[1]==snakey[i]) then
        endgame = true
    end
end

if snakex[1] < 0 then
    endgame=true
end
if snakex[1] > 72 then
    endgame=true
end
if snakey[1] < 0 then
    endgame=true
end
if snakey[1] > 52 then
    endgame=true
end

ink (hrgb (255,0,0))
fillcircle ((bait.xoffset+bait.x*bait.xcount)+bait.width/2,(bait.yoffset+bait.y*bait.ycount)+bait.width/2,bait.width/2)

ink (hrgb (255,255,0))
for i=1,snake.length do
    fillrectangle (snake.xoffset+snakex[i]*snake.xcount,snake.yoffset+snakey[i]*snake.ycount,(snake.xoffset+snakex[i]*snake.xcount)+snake.width,(snake.yoffset+snakey[i]*snake.ycount)+snake.height)
end

ink (65535)
fillrectangle (100,100,850,110)
fillrectangle (100,100,110,650)
fillrectangle (100,641,850,650)
fillrectangle (841,100,850,650)
drawtext (700,80,"Score: "..score)
sleep (15)
visualpage (page)
page = page + 1
if page > 1 then
    page = 0
end
until endgame == true
ink (65535)
drawtext (screenwidth()/2-100,screenheight()/2-8,"GAME OVER!")
« Last Edit: 19. May 2014, 22:49:39 by Cybermonkey »
Best regards,
Cybermonkey

Cybermonkey

  • Administrator
  • Hero Member
  • *****
  • Posts: 574
    • View Profile
    • Home of EGSL
Re: Snake for ChipmonkeyLua
« Reply #1 on: 20. May 2014, 13:43:17 »
And here's already an improved version:
Code: [Select]
-- snake clone with ChipmonkeyLua
-- ------------------------------
function LoadHighscore()
filename = "snakehigh.dat"
if not fileexists (filename) then
    userfile = open (filename,"w")
  for i = 1, 10 do
fprint (userfile,highscore[i].score)
fprint (userfile,highscore[i].name)
fprint (userfile,highscore[i].date)
end
    close (userfile)
end

if fileexists (filename) then
   userfile = open (filename, "r")
            for i=1,10 do
                highscore[i].score = finput (userfile)
                highscore[i].name = finput (userfile)
                highscore[i].date = finput (userfile)
            end
   close (userfile)
end
end

function SaveHighscore()
filename = "snakehigh.dat"
if fileexists (filename) then
    userfile = open (filename,"w")
  for i = 1, 10 do
fprint (userfile,highscore[i].score)
fprint (userfile,highscore[i].name)
fprint (userfile,highscore[i].date)
end
    close (userfile)
end
end


function SortHighscore()
local getauscht, i, temp, tempdate,tempstr
   repeat
    getauscht=false
    for i=1, 9 do
      if val(highscore[i].score) < val(highscore[i+1].score) then
        temp =(highscore[i].score)
        tempstr=highscore[i].name
        tempdate=highscore[i].date
        highscore[i].score=highscore[i+1].score
        highscore[i].name=highscore[i+1].name
        highscore[i].date=highscore[i+1].date
        highscore[i+1].score=temp
        highscore[i+1].name=tempstr
        highscore[i+1].date=tempdate
        getauscht=true
      end
   end
  until getauscht == false
end



lowres()
CRSLEFT = 19200
CRSRIGHT = 19712
CRSUP = 18432
CRSDOWN = 20480

score = 0
snake={}
snakex={}
snakey={}

snakex[1]=5
snakey[1]=5

snake.xoffset=111
snake.yoffset=111
snake.xcount=10
snake.ycount=10
snake.width=8
snake.height=8
snake.direction ="right"
snake.length = 1

bait={}
bait.x=30
bait.y=30
bait.xoffset=111
bait.yoffset=111
bait.xcount=10
bait.ycount=10
bait.width=8
bait.height=8

speed = 50

for i=1, snake.length do
snakex[i]=5
snakey[i]=5
end

highscore={}
for i=1, 10 do
 highscore[i]={}
end

for i=1,10 do
    highscore[i].score = 0
    highscore[i].name = "Noname"
    highscore[i].date = date()
end

LoadHighscore()
SortHighscore()
SaveHighscore()


ink (65535)
cls()
locate (0,10,"")
name = input "Please enter your name: "
cls()
page = 0
endgame = false
timer1=gettickcount()
repeat
activepage (page)
clear()
if keypressed()== true then
 xkey=getkey()
  if xkey==27 then
   endgame = true
  elseif xkey==CRSLEFT then
   snake.direction = "left"
  elseif xkey==CRSRIGHT then
   snake.direction = "right"
  elseif xkey==CRSUP then
   snake.direction = "up"
  elseif xkey==CRSDOWN then
   snake.direction = "down"
  elseif xkey==112 then
  inkey()
  end
end

timer2=gettickcount()
if timer2-timer1 >=10000 then
bait.x = int (rnd()*72)
    bait.y = int (rnd()*52)
    timer1=gettickcount()
end

if (snakex[1]==bait.x) and (snakey[1]==bait.y) then
    score = score + 1
    bait.x = int (rnd()*72)
    bait.y = int (rnd()*52)
    snake.length=snake.length + 1
    speed = speed - 0.2
    timer1=gettickcount()
end

if snake.direction =="right" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakex[1]=snakex[1] + 1
    sleep (speed)
end

if snake.direction =="down" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakey[1]=snakey[1] + 1
    sleep (speed)
end

if snake.direction =="left" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakex[1]=snakex[1] - 1
    sleep (speed)
end

if snake.direction =="up" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakey[1]=snakey[1] - 1
    sleep (speed)
end

for i=2,snake.length do
    if (snakex[1]==snakex[i]) and (snakey[1]==snakey[i]) then
        endgame = true
    end
end

if snakex[1] < 0 then
    endgame=true
end
if snakex[1] > 72 then
    endgame=true
end
if snakey[1] < 0 then
    endgame=true
end
if snakey[1] > 52 then
    endgame=true
end

ink (hrgb (255,0,0))
fillcircle ((bait.xoffset+bait.x*bait.xcount)+bait.width/2,(bait.yoffset+bait.y*bait.ycount)+bait.width/2,bait.width/2)

ink (hrgb (255,255,0))
for i=1,snake.length do
    fillrectangle (snake.xoffset+snakex[i]*snake.xcount,snake.yoffset+snakey[i]*snake.ycount,(snake.xoffset+snakex[i]*snake.xcount)+snake.width,(snake.yoffset+snakey[i]*snake.ycount)+snake.height)
end

ink (65535)
fillrectangle (100,100,850,110)
fillrectangle (100,100,110,650)
fillrectangle (100,641,850,650)
fillrectangle (841,100,850,650)
drawtext (100,80,name.." playing")
drawtext (700,80,"Score: "..score)
sleep (15)
visualpage (page)
page = page + 1
if page > 1 then
    page = 0
end
until endgame == true

ink (65535)
drawtext (screenwidth()/2-100,screenheight()/2-8,"GAME OVER!")

if val(score) > val (highscore[10].score) then
highscore[10].score = score
highscore[10].name = name
 highscore[10].date = date()
 SortHighscore()
 SaveHighscore()
 end

locate (0,0,"Press any key")
inkey()
cls()
print ("")
for i =1 , 10 do
    print (i..". "..left (highscore[i].name,20).." ..... "..highscore[i].score.." ..... "..highscore[i].date)
    print ("")
end

Now with highscore table ...
« Last Edit: 20. May 2014, 15:30:59 by Cybermonkey »
Best regards,
Cybermonkey

Cybermonkey

  • Administrator
  • Hero Member
  • *****
  • Posts: 574
    • View Profile
    • Home of EGSL
Re: Snake for ChipmonkeyLua
« Reply #2 on: 20. May 2014, 20:27:26 »
And now it becomes funny: you'll only have 10 seconds to catch the bait otherwise you'll lose three points. Having a score lesser than 0 results in a "GAME OVER!"  ;D
Code: [Select]
-- snake clone with ChipmonkeyLua
-- ------------------------------
function LoadHighscore()
filename = "snakehigh.dat"
if not fileexists (filename) then
    userfile = open (filename,"w")
    for i = 1, 10 do
    fprint (userfile,highscore[i].score)
    fprint  (userfile,highscore[i].name)
    fprint  (userfile,highscore[i].date)
    end
    close (userfile)
end

if fileexists (filename) then
   userfile = open (filename, "r")
            for i=1,10 do
                highscore[i].score = finput (userfile)
                highscore[i].name = finput (userfile)
                highscore[i].date = finput (userfile)
            end
   close (userfile)
end
end

function SaveHighscore()
filename = "snakehigh.dat"
if fileexists (filename) then
    userfile = open (filename,"w")
    for i = 1, 10 do
    fprint (userfile,highscore[i].score)
    fprint  (userfile,highscore[i].name)
    fprint  (userfile,highscore[i].date)
    end
    close (userfile)
end
end


function SortHighscore()
local getauscht, i, temp, tempdate,tempstr
   repeat
    getauscht=false
    for i=1, 9 do
      if val(highscore[i].score) < val(highscore[i+1].score) then
        temp =(highscore[i].score)
        tempstr=highscore[i].name
        tempdate=highscore[i].date
        highscore[i].score=highscore[i+1].score
        highscore[i].name=highscore[i+1].name
        highscore[i].date=highscore[i+1].date
        highscore[i+1].score=temp
        highscore[i+1].name=tempstr
        highscore[i+1].date=tempdate
        getauscht=true
      end
   end
  until getauscht == false
end



lowres()
CRSLEFT = 19200
CRSRIGHT = 19712
CRSUP = 18432
CRSDOWN = 20480

score = 0
snake={}
snakex={}
snakey={}

snakex[1]=5
snakey[1]=5

snake.xoffset=111
snake.yoffset=111
snake.xcount=10
snake.ycount=10
snake.width=8
snake.height=8
snake.direction ="right"
snake.length = 1

bait={}
bait.x=30
bait.y=30
bait.xoffset=111
bait.yoffset=111
bait.xcount=10
bait.ycount=10
bait.width=8
bait.height=8

speed = 50

for i=1, snake.length do
snakex[i]=5
snakey[i]=5
end

highscore={}
for i=1, 10 do
 highscore[i]={}
end

for i=1,10 do
    highscore[i].score = 0
    highscore[i].name = "Noname"
    highscore[i].date = date()
end

LoadHighscore()
SortHighscore()
SaveHighscore()

lasttime=0
seconds = 10

ink (65535)
paper (109)

cls()
drawtext (0,160,"Please enter your name: ")
name = grinput (380,160,20)
cls()
page = 0
endgame = false

repeat
now=gettickcount()
if now>=lasttime+1000 then
  lasttime=now
  seconds=seconds-1
   if seconds <=0 then
    bait.x = int (rnd()*72)
    bait.y = int (rnd()*52)
    seconds = 10
    score = score - 3
   end
end

activepage (page)
clear()
if keypressed()== true then
 xkey=getkey()
  if xkey==27 then
   endgame = true
  elseif xkey==CRSLEFT then
   snake.direction = "left"
  elseif xkey==CRSRIGHT then
   snake.direction = "right"
  elseif xkey==CRSUP then
   snake.direction = "up"
  elseif xkey==CRSDOWN then
   snake.direction = "down"
  elseif xkey==112 then
    inkey()
  end
end

if (snakex[1]==bait.x) and (snakey[1]==bait.y) then
    score = score + 1
    bait.x = int (rnd()*72)
    bait.y = int (rnd()*52)
    snake.length=snake.length + 1
    speed = speed - 0.2
    now=gettickcount()
    seconds = 10
end

if snake.direction =="right" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakex[1]=snakex[1] + 1
    sleep (speed)
end

if snake.direction =="down" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakey[1]=snakey[1] + 1
    sleep (speed)
end

if snake.direction =="left" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakex[1]=snakex[1] - 1
    sleep (speed)
end

if snake.direction =="up" then
    for i=snake.length,2,-1 do
    snakex[i]=snakex[i-1]
    snakey[i]=snakey[i-1]
    end
    snakey[1]=snakey[1] - 1
    sleep (speed)
end

for i=2,snake.length do
    if (snakex[1]==snakex[i]) and (snakey[1]==snakey[i]) then
        endgame = true
    end
end

if snakex[1] < 0 then
    endgame=true
end
if snakex[1] > 72 then
    endgame=true
end
if snakey[1] < 0 then
    endgame=true
end
if snakey[1] > 52 then
    endgame=true
end

if score < 0 then
    endgame = true
end

ink (hrgb (255,0,0))
fillcircle ((bait.xoffset+bait.x*bait.xcount)+bait.width/2,(bait.yoffset+bait.y*bait.ycount)+bait.width/2,bait.width/2)

ink (hrgb (255,255,0))
for i=1,snake.length do
    fillrectangle (snake.xoffset+snakex[i]*snake.xcount,snake.yoffset+snakey[i]*snake.ycount,(snake.xoffset+snakex[i]*snake.xcount)+snake.width,(snake.yoffset+snakey[i]*snake.ycount)+snake.height)
end

ink (65535)
fillrectangle (100,100,850,110)
fillrectangle (100,100,110,650)
fillrectangle (100,641,850,650)
fillrectangle (841,100,850,650)
drawtext (100,80,name)
drawtext (700,80,"Score: "..score)
drawtext (500,80,"Time: "..seconds)
sleep (15)
visualpage (page)
page = page + 1
if page > 1 then
    page = 0
end
until endgame == true

ink (65535)
drawtext (screenwidth()/2-100,screenheight()/2-8,"GAME OVER!")

if val(score) > val (highscore[10].score) then
highscore[10].score = score
highscore[10].name = name
 highscore[10].date = date()
 SortHighscore()
 SaveHighscore()
 end

locate (0,0,"Press any key")
inkey()
cls()
print ("")
for i =1 , 10 do
    print (i..". "..left (highscore[i].name,20).." ..... "..highscore[i].score.." ..... "..highscore[i].date)
    print ("")
end
« Last Edit: 20. May 2014, 21:54:06 by Cybermonkey »
Best regards,
Cybermonkey