Please Help!!!!!!!!!!! How To Make A Snake Game With Out Using Flexible Array???

[hongyousan]

What is it you are trying to achieve?
<Replace all the <> with your answers/code and remove the <>>


What is the problem you are having?
I am having trouble making a snake game without using flexible array...


Describe what you have tried to solve this problem
I have tried many ways, but the snake wont grow longer when it hits an apple...


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
This is what I did so far.. PLEASE HELP ME EDIT IT!! THANK YOU!!!

View.Set ("graphics:600,600")
View.Set ("offscreenonly")
colour (white)
colorback (black)
var tempx, tempy : int := -100
var x, y : int := 0
var x2, y2 : int := 0
var playagain : string (1)
var font1 : int
var scoreint : int := 00
var scorestring : string
font1 := Font.New ("Dauphin:17")

var z : string (1)
var foodx, foody : int

randint (foodx, 24, 576)
randint (foody, 24, 576)
loop
if foodx mod 12 not= 0 then
randint (foodx, 20, 568)
end if
if foody mod 12 not= 0 then
randint (foody, 20, 568)
end if
exit when foodx mod 12 = 0 and foody mod 12 = 0
end loop

drawfill (0, 0, black, black)
drawfillbox (12, 12, 588, 576, white)
View.Update


loop
put "Your score: ", scoreint
% Font.Draw ("Your score: ", 100, 580, font1, black)
%
% scorestring := intstr (scoreint)
% Font.Draw (scorestring, 210, 580, font1, black)
drawfillbox (foodx, foody, foodx + 10, foody + 10, black)
drawfillbox (foodx + 2, foody + 2, foodx + 8, foody + 8, yellow)
View.Update
if hasch then
getch (z)
locate (1, 1)
if ord (z) = 200 and y not= -12 then
% put "Up Arrow Key"
y := 12
x := 0
end if
if ord (z) = 203 and x not= 12 then
% put "Left Arrow Key"
x := -12
y := 0
end if
if ord (z) = 205 and x not= -12 then
% put "Right Arrow Key"
x := 12
y := 0
end if
if ord (z) = 208 and y not= 12 then
% put "Down Arrow Key"
y := -12
x := 0
end if
end if
drawfillbox (60 + tempx, 60 + tempy, 70 + tempx, 70 + tempy, white)
drawfillbox (60 + x2, 60 + y2, 70 + x2, 70 + y2, black)
drawfillbox (62 + x2, 62 + y2, 68 + x2, 68 + y2, green)
tempx := x2
tempy := y2

View.Update


x2 := x2 + x
y2 := y2 + y

if 60 + x2 = foodx and 60 + y2 = foody then
scoreint := scoreint + 1
randint (foodx, 24, 568)
randint (foody, 24, 568)
loop
if foodx mod 12 not= 0 then
randint (foodx, 20, 568)
end if
if foody mod 12 not= 0 then
randint (foody, 20, 568)
end if
exit when foodx mod 12 = 0 and foody mod 12 = 0
end loop
end if
if 60 + x2 > 576 or 60 + x2 < 12 or 60 + y2 >= 576 or 60 + y2 < 12 then
locate (1, 23)
put "GAME OVER"
locate (1, 37)
put "Press ANY key to play again"
View.Update
getch (playagain)
cls
scoreint := 0
x := 0
y := 0
x2 := 0
y2 := 0
drawfillbox (12, 12, 588, 576, white)
View.Update
end if
locate (1, 1)
delay (60)

end loop

Turing:

<Add your code here>

Please specify what version of Turing you are using
<Answer Here>

[Raknarg]

var snake : array 1 .. 100 of int
var snakeUpper : int := 0
snakerUpper := 10

this is the same as

var snake : flexible array 1 .. 0
new snake, 10

Why are you not allowed to use flexible arrays?

[hongyousan]

var snakex : array 1 .. 100000 of int
var snakey : array 1 .. 100000 of int
var chars : array char of boolean
var uppervarx : int := 50
var counter : int := 2
var uppervary : int := 50
var last_upper : int := 0
var direction : string := "right"
var x, y : int := 200
var dirx : int := 3
var diry : int := 0
var ball : string := "not drawn"
var ballx, bally : int
var ball_count : int := 0
var speed : int := 20



drawfillbox (0, 0, maxx, maxy, 7)
for i : 1 .. uppervarx %initializes array
snakex (i) := 0
snakey (i) := 0
end for
loop
if x < 0 or x > maxx or y < 0 or y > maxy then %checks if snake hits edge
exit
end if
if ball = "not drawn" then %draw balls
loop
randint (ballx, 5, maxx - 5)
randint (bally, 5, maxy - 5)
if whatdotcolour (ballx, bally) not= 10 then
drawfilloval (ballx, bally, 3, 3, 14)
ball := "drawn"
end if
exit when ball = "drawn"
end loop
end if
if sqrt ((ballx - x) ** 2 + (bally - y) ** 2) < 9 then %checks if it eats ball
drawfilloval (ballx, bally, 5, 5, 7)
ball_count += 1
counter += 1
ball := "not drawn" % makes ball not drawn so it know to draw a new one
last_upper := uppervarx %keeps record of last and new upper bounds of the arrays to initialize new elements
% adds elements to array
snakex (counter) := uppervarx
snakey (counter) := uppervary

uppervarx += 15

for i : last_upper + 1 .. uppervarx %initializes new array values to 0
snakex (i) := 0
snakey (i) := 0
end for
end if
% draws enemies

for decreasing i : uppervarx .. 2 % changes places of array
snakex (i) := snakex (i - 1)
snakey (i) := snakey (i - 1)
end for

snakex (1) := x %sets x,y to the array
snakey (1) := y
drawfilloval (x, y, 5, 5, 10) %draws snake
drawfilloval (snakex (uppervarx), snakey (uppervary), 5, 5, black) %erases snake
Input.KeyDown (chars)
if chars (KEY_UP_ARROW) and direction not= "down" then %checks which way to move snake
diry := 3 %sets direction snake moves in
dirx := 0
direction := "up" %to make sure you can't double back on yourself
elsif chars (KEY_RIGHT_ARROW) and direction not= "left" then
diry := 0
dirx := 3
direction := "right"
elsif chars (KEY_LEFT_ARROW) and direction not= "right" then
diry := 0
dirx := -3
direction := "left"
elsif chars (KEY_DOWN_ARROW) and direction not= "up" then
diry := -3
dirx := 0
direction := "down"
end if
if direction = "up" and whatdotcolour (x, y + 6) = 10 or whatdotcolour (x, y + 6) = red then %checks if snake hit itself or enemy
exit
elsif direction = "right" and whatdotcolour (x + 6, y) = 10 or whatdotcolour (x + 6, y) = red then
exit
elsif direction = "left" and whatdotcolour (x - 6, y) = 10 or whatdotcolour (x - 6, y) = red then
exit
elsif direction = "down" and whatdotcolour (x, y - 6) = 10 or whatdotcolour (x, y - 6) = red then
exit
end if
x += dirx %adds the direction to make snake move
y += diry
delay (speed) %changes speed
end loop

I changed a bit... However, i dont think the array is working... Can someone please help me fix it?!!