-----------------------------------

Dogdemon

Tue May 04, 2004 3:42 pm


How to use loops with other loops?

-----------------------------------

sorry for posting another thread because no one seen to respond to me on my other thread anymore.

my question is how can i use multiple loops

for example if i  had 

loop 
put "1"
end loop
loop
put "2"
end loop

it only does the first one
and in my program the first loop all the way at the bottom only works.

setscreen ("graphics:1000;650") 
var font := Font.New ("serif:24") 
var fx : array 1 .. 10, 1 .. 10 of boolean 
var ax, bx : array 1 .. 11 of int 
var x, y, z, btx, bye, btn : int 
var key : string (1) 

for i : 1 .. 10 
for j : 1 .. 10 
fx (i, j) := false 
end for 
end for 

for i : 1 .. 10 
ax (i) := 0 
bx (i) := 0 
end for 

for b : 1 .. 10 
for a : 1 .. 10 
%10 by 10 grid 
drawfillbox (90 + ax (a), 150 + bx (b), 140 + ax (a), 200 + bx (b), white) 
drawfillbox (95 + ax (a), 155 + bx (b), 140 + ax (a), 200 + bx (b), 7) 
drawbox (90 + ax (a), 150 + bx (b), 140 + ax (a), 200 + bx (b), 7) 

ax (a + 1) := a * 50 
end for 
bx (b + 1) := b * 50 
end for 
var beenhit : boolean 


loop 
mousewhere (x, y, z) 
if x >= 95 and x = 155 and y = 95 and x = 205 and y = 95 and x = 155 and y = 95 and x = 205 and y