Sorry your browser is not supported!

`get a segment image
box 0,0,10,10
get image 1,0,0,10,10,1

seg_num as integer
seg_wait as integer

seg_num = 1 : `the snake head
seg_wait = 10 : `some segments waiting to be added to the snake

direction as string : `direction snake is traveling in, L,R,U,D
direction = "R"

`make the head sprite 
sprite 1,320,240,1

last_move as integer : `timer value of last snake move
last_move = timer()
speed as integer : `delay between moves
speed = 300 : `move every half second
do
  if upkey() then direction = "U"
  if downkey() then direction = "D"
  if leftkey() then direction = "L"
  if rightkey() then direction = "R"
  
  if timer() - last_move > speed
    `if there is a segment waiting to be added to the snake position it at the position of the current last segment
    if seg_wait > 0
      sprite seg_num+1,sprite x(seg_num),sprite y(seg_num),1
      inc seg_num
      dec seg_wait
    endif
    `move all the segments other than the head
    if seg_num > 1
      for i = seg_num to 2 step -1
        sprite i,sprite x(i-1),sprite y(i-1),1
      next i
    endif
    `move the head segment in the correct direction
    if direction = "R" then sprite 1,sprite x(1)+10,sprite y(1),1
    if direction = "L" then sprite 1,sprite x(1)-10,sprite y(1),1
    if direction = "U" then sprite 1,sprite x(1),sprite y(1)-10,1
    if direction = "D" then sprite 1,sprite x(1),sprite y(1)+10,1
    last_move = timer()
  endif  
loop

    if seg_wait > 0
      sprite seg_num+1,0,0,1
      inc seg_num
      dec seg_wait
    endif

box 0,0,10,10
get image 1,0,0,10,10,1

seg_num as integer
seg_wait as integer

seg_num = 1 : `the snake head
seg_wait = 4 : `some segments waiting to be added to the snake

direction as string : `direction snake is traveling in, L,R,U,D
direction = "R"

`make the head sprite 
sprite 1,320,240,1

last_move as integer : `timer value of last snake move
last_move = timer()
speed as integer : `delay between moves
speed = 300 : `move every half second
do
  if upkey() then direction = "U"
  if downkey() then direction = "D"
  if leftkey() then direction = "L"
  if rightkey() then direction = "R"
  
  `add a segment if the spacebar is pressed and seg_wait = 0
  if spacekey() and seg_wait = 0 then inc seg_wait
  
  if timer() - last_move > speed
    `if there is a segment waiting to be added to the snake position it at the position of the current last segment
    if seg_wait > 0
      sprite seg_num+1,0,0,1
      inc seg_num
      dec seg_wait
    endif
    `move all the segments other than the head
    if seg_num > 1
      for i = seg_num to 2 step -1
        sprite i,sprite x(i-1),sprite y(i-1),1
      next i
    endif
    `move the head segment in the correct direction
    if direction = "R" then sprite 1,sprite x(1)+10,sprite y(1),1
    if direction = "L" then sprite 1,sprite x(1)-10,sprite y(1),1
    if direction = "U" then sprite 1,sprite x(1),sprite y(1)-10,1
    if direction = "D" then sprite 1,sprite x(1),sprite y(1)+10,1
    last_move = timer()
  endif
  text 0,0,"segments waiting :"+str$(seg_wait)
  text 0,15,"total segments :"+str$(seg_num)
loop

set display mode 1024, 768, 32

taillength = 100 `How many segments long the snake is.


   make object cube 1, 20  ` The head of your snake

` make the objects for the tail of your snake
for j = 2 to taillength + 1
   make object sphere j, 15
next j


   a = 2
   position camera 0, 1300, 1100, 1200
do

   point camera 0, object position x(1), object position y(1), object position z(1)


   `position last sphere in the tail to the position of the head
   inc a
   if a = taillength + 2 then a = 2
   position object a, object position x(1), object position y(1), object position z(1)

   `move the head
    move object 1, 5



   if upkey() = 1
      pitch object up 1, 1
   endif

   if downkey() = 1
      pitch object down 1, 1
   endif

   if leftkey() = 1
      turn object left 1, 1
   endif

   if rightkey() = 1
      turn object right 1, 1
   endif

   text 1,1, str$(screen fps())
loop

Rem Project: Snake
Rem Created: 01/02/2004 16:14:28

Rem ***** Main Source File *****

Set Display Mode 800,600,32
hide mouse
`load image
Load Image "snake\headleft.png",1
Load Image "snake\headup.png",2
Load Image "snake\headright.png",3
Load Image "snake\headdown.png",4
Load Image "snake\segment.png",5
Load Image "snake\food.png",6
Load Image "background\background.png",7
`variables
direction as string : `direction snake is traveling in, L,R,U,D
direction = "L"
score = 0
snakex = 400
snakey = 300
lives = 3
seg_num as integer
last_move as integer : `timer value of last snake move
last_move = timer()
speed as integer : `delay between moves
speed = 300 : `move every half second

sprite 2,rnd(700),rnd(550),6

Do
   paste image 7,0,0
   gosub lives
   gosub score
   gosub snake
   gosub move
   gosub edgescreen
   gosub food
   gosub collision
   gosub won
   gosub lose
loop

`lives
lives:
   text 600,10,"Lives left: " + str$(lives)
return

`score
score:
   set text size 16
   text 10,10,"Score: " + str$(score)
return

`snake
snake:
   sprite 1,snakex,snakey,1
return

`move
move:
   if upkey()=1 then direction = "U"
   if downkey()=1 then direction = "D"
   if leftkey()=1 then direction = "L"
   if rightkey()=1 then direction = "R"

   if direction = "R" then snakex=snakex+1 : sprite 1,snakex,snakey,3
   if direction = "L" then snakex=snakex-1 : sprite 1,snakex,snakey,1
   if direction = "U" then snakey=snakey-1 : sprite 1,snakex,snakey,2
   if direction = "D" then snakey=snakey+1 : sprite 1,snakex,snakey,4

   if seg_num > 1
      for i = seg_num to 2 step -1
        sprite i,sprite x(i-1),sprite y(i-1),5
      next i
   endif

   if spacekey() and seg_wait = 0 then inc seg_wait
return

`edgescreen
edgescreen:
   if snakex>800 then snakex = 400 : sprite 1,snakex,snakey,1 : lives = lives - 1 : direction = "L"
   if snakex<0 then snakex = 400 : sprite 1,snakex,snakey,1 : lives = lives - 1 : direction = "L"
   if snakey>600 then snakey = 300 : sprite 1,snakex,snakey,1 : lives = lives - 1 : direction = "L"
   if snakey<0 then snakey = 300 : sprite 1,snakex,snakey,1 : lives = lives - 1 : direction = "L"
return

`food
food:
   if sprite exist(2)=0 then sprite 2,rnd(600),rnd(550),6
return

`collision
collision:
   if sprite visible(1)=1 and sprite exist(2)=1 and sprite collision(1,2)=1 and seg_wait = 0 then inc seg_wait
   if sprite visible(1)=1 and sprite exist(2)=1 and sprite collision(1,2)=1
   delete sprite 2
   score = score + 10
   endif
return

`won
won:
   if score = 1000 then cls : goto wons
return

`lose
lose:
   if lives=<0 then goto loses
return

`loses
loses:
cls
center text 400,300,"YOU HAVE LOST!"
wait mouse

`wons
wons:
cls
center text 400,300,"YOU HAVE WON!"
wait mouse

   if seg_num > 1
      for i = seg_num to 2 step -1
        sprite i,sprite x(i-1),sprite y(i-1),5
      next i
   endif