ssr wrote: | code: | View.Set ("offscreenonly")
var x, y := 315
var x1,y1:int
var speed := 1
var key : array char of boolean
var ra := 5
var rr := 100
x1:=Rand.Int(1,100)
y1:=Rand.Int(1,100)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
loop
%drawfillbox (x1,y1,x1+rr,y1+rr,yellow)
Input.KeyDown (key)
if key (KEY_UP_ARROW)
then
y += speed
end if
if key (KEY_DOWN_ARROW)
then
y -= speed
end if
if key (KEY_LEFT_ARROW)
then
x -= speed
end if
if key (KEY_RIGHT_ARROW)
then
x += speed
end if
if x + ra = x1 and y > y1 and y < y1 + rr then x-=speed
end if
if x - ra = (x1 + rr) and y > y1 and y < (y1 + rr) then x+=speed
end if
if y + ra = y1 and x > x1 and x < x1 + rr then y-=speed
end if
if y - ra = y1 +rr and x > x1 and x < x1 +rr then y+=speed
end if
drawfilloval (x, y, ra, ra, brightred)
View.Update
cls
end loop |
hopefully this is what u r looking for
just one square, but u can increase the # of squares, and restrictions
u can see the square if u delte teh "%" in the code
8)
Thats not what I was looking for, but thanks anyway ^^;
Quote: ssr: You can go inside the yellow box if you approach it from one of it's corners.
And, that's not what he's looking for. He's looking to do this.
Flikerator: First, try to decide which way you're going to store the block's information. Do you have a finite number of things that can be in any one grid, or do you not know how many could be in any one grid square?
Actually, on that note: how does one make a linked list?
I guess I could do each block has a space of 100. If a certain colour is there it adds a certain amount to the block. If it is 101 or greater then it cannot be done][Movement stopped. But really everything will either take up 100 or 0. Fire will take up 0 but will cause damage if you step on it. I have other ideas for fire too but that will wait..
In each square (or block) 100 units can fit in it. If its over 100 then it cannot go there. Im not sure how I would do that, ill read that link and edit this post..
What do you mean by a linked list? string+string?
EDIT;
I read that. You sent me there last time lolz. How would I do that in Turing though? Make the invisible grid and if you are in it then the unit of that grid goes up 100 (thats your unit size) if something else is there then you cannot go there. Here is a prog, all you need to do is make the grid invisible and have a value of each block 
| code: |
View.Set ("offscreenonly,position:center;center,graphics:667,467")
colourback (black)
cls
proc back
cls
for x : 3 .. maxx by 10
for y : 3 .. maxy by 10
Draw.Dot (x, y, brightgreen)
end for
end for
end back
var x, y : int := 13
var speed := 5
Draw.FillBox (x, y, x + 15, y + 15, green)
var ch : array char of boolean
loop
Input.KeyDown (ch)
if ch ('s') and y - speed - 1 > 0 or ch (KEY_DOWN_ARROW) and y - speed - 1 > 0 then
y := y - speed
end if
if ch ('w') and y + speed + 17 < maxy or ch (KEY_UP_ARROW) and y + speed + 17 < maxy then
y := y + speed
end if
if ch ('a') or ch (KEY_LEFT_ARROW) then
x := x - speed
end if
if ch ('d') or ch (KEY_RIGHT_ARROW) then
x := x + speed
end if
Draw.FillBox (x, y, x + 15, y + 15, green)
View.Update
back
delay (2)
end loop
|
|
