hmm... so ive been working on my snake game-thing-a-ma-bobber.... and my previous program was rather.. eh.. un-optimized so ive optimized the best i could. someone with more experience than me told me to have all the algorithms and all first, then the animating last... they also recommended using View.Update.. which i figured out how to incorperate into my program. anymway, the topic is rather self explanitory--my snake is not appearing. i havent set up all the stuff about hitting yourself and you die or hitting the wall and you die... but those are easy, im still focusing on getting the snake to:
-eat and grow eat and grow
-be able to turn multiple times without the program crashing
here's my code:
%SETSCREEN
setscreen ("graphics, nocursor,")
%DECLARING VARIABLES
var bod : array 1 .. 2, 1 .. 100 of int
%first coordinate determines if variable
%is the x or y coordinate
%"1" is x coordinate, "2" is y coordinate
%second coordinate determines how many
%x and y coordinate there are; how many
%body pieces there are
var food : array 1 .. 2 of int
var key : string (1)
var bodycount, randomdirection, speed : int
var gotfood : boolean
%ALGORITHMS
process movehead
loop
if hasch then
getch (key)
%right
if key = KEY_RIGHT_ARROW then
loop
bod (1, 1) += 1
bod (2, 1) := bod (2, 1)
exit when hasch
end loop
%left
elsif key = KEY_LEFT_ARROW then
loop
bod (1, 1) -= 1
bod (2, 1) := bod (2, 1)
exit when hasch
end loop
%up
elsif key = KEY_UP_ARROW then
loop
bod (1, 1) := bod (1, 1)
bod (2, 1) += 1
exit when hasch
end loop
%down
elsif key = KEY_DOWN_ARROW then
loop
bod (1, 1) := bod (1, 1)
bod (2, 1) -= 1
exit when hasch
end loop
end if
end if
end loop
end movehead
process movebody
loop
if bodycount > 0 then
for j : 2 .. bodycount
for i : 1 .. 2
bod (i, j) := bod (i, j - 1)
delay (50)
end for
end for
end if
end loop
end movebody
process foodonfield
loop
%putting food on field, only puts food if
%snake has gotten food
if (bod (1, 1) >= food (1) - 9 and food (1) + 9 >= bod (1, 1)) or (bod (2, 1) >= food (2) - 9 and food (2) + 9 >= bod (2, 1)) then
gotfood := true
end if
if gotfood = true then
randint (food (1), 15, maxx - 15)
randint (food (2), 15, maxy - 15)
bodycount += 1
gotfood := false
end if
end loop
end foodonfield
%MAINSTREAM
%setting all beginning parameters
gotfood := false
bod (1, 1) := 300
bod (2, 1) := 200
speed := 50
bodycount := 0
food (1) := 400
food (2) := 100
%starting the snake off in a direction
randint (randomdirection, 1, 4)
if randomdirection = 1 then
%if 1, then go right
loop
bod (1, 1) += 10
bod (2, 1) := bod (2, 1)
exit when hasch
end loop
elsif randomdirection = 2 then
%if 2, then go left
loop
bod (1, 1) -= 10
bod (2, 1) := bod (2, 1)
exit when hasch
end loop
elsif randomdirection = 3 then
%if 3, then go up
loop
bod (1, 1) := bod (1, 1)
bod (2, 1) += 10
exit when hasch
end loop
else
%if not 1,2,3, then down
loop
bod (1, 1) := bod (1, 1)
bod (2, 1) -= 10
exit when hasch
end loop
end if
%Preparing all coordinates
fork movehead
fork movebody
fork foodonfield
%animating head and body
loop
drawfilloval (bod (1, 1), bod (2, 1), 10, 10, blue)
if bodycount > 0 then
for j : 2 .. bodycount
drawfilloval (bod (1, j), bod (2, j), 10, 10, blue)
end for
end if
View.Update
cls
delay (speed)
end loop
one otherthing i was wondering about was that if i wanted my snake to wrap around onto the otherside.. well.. basically.. if i wanted the snake to come out from the opposite side if it were to pass through one of the walls.. the code would be something like...
if bod(1,1)>=635 then
bod(1,1):=0
etc etc etc with the x coordinate.. my second question is... how would i get the thing to continue moving? suggestions are much appreciated. ill update as needed |
