how does timing work?

I mean how can u make a timer like,

r_x = 20
r_y = 20
r_w = 10
r_h = 10
For x = 1 To 20

r_x = r_x + 20
r_y = r_y + 20
r_w = r_w + 20
r_h = r_h + 20

Rect r_x,r_y,r_w,r_h,0

After 5 seconds ...continue
Next

delay 5000

of if you want to do something in that 5 seconds...

t=millisecs()
repeat
<do stuff>
until millisecs-t>=5000

wow this completly crashed ...lol

r_x = 20
r_y = 20
r_w = 10
r_h = 10
For x = 1 To 20

r_x = r_x + 20
r_y = r_y + 20
r_w = r_w + 20
r_h = r_h + 20

Rect r_x,r_y,r_w,r_h,0
Delay 5000 

Next

you have the Delay within your for/next loop, so it waits 5 seconds 20 times = 100 seconds.

Graphics 800,600,16,2 ;set graphics mode 
r_x = 20 
r_y = 20 
r_w = 10 
r_h = 10 
SetBuffer BackBuffer() ;create a backbuffer (double buffering)
Color 255,255,255	;set foreground color to white
For x = 1 To 10

	r_x = r_x + 20 
	r_y = r_y + 20 
	r_w = r_w + 20 
	r_h = r_h + 20 

	Rect r_x,r_y,r_w,r_h,0 
	Delay 5000 
	Flip	;flip the buffers 
Next 

;Note there's no CLS command so all rects remain on screen

To see only one rectangle at a time add
[Code]Cls[/code]
right after the For command and run it again.

that code lags/freeze the program it does draw stuff but it tend to fk up

Kaisuo,
You say the code posted by Kanati lags/freezes but it does exactly what you asked for in your original post.
e.g.. Rect r_x,r_y,r_w,r_h,0
After 5 seconds ...continue
Next
The DELAY 5000 will stop the entire program for 5 secs and
then continue.
You might need to explain more what it is you want to achieve.

The only reason you get a wrong answer on this forum is because you've asked the wrong question...mostly ;o)

Is this what you're after?

Type rectangle
	Field r, g, b
	Field x, y, w, h
End Type

Graphics 640, 480, 0, 2
SetBuffer BackBuffer()

r_count = 0

time = MilliSecs()

Repeat
	Cls
	
	; If times up, add a new rectangle to the list
	If (MilliSecs() - time) >= 1000
		If r_count < 20
			r.rectangle = New rectangle
			r\r = Rand(255)
			r\b = Rand(255)
			r\g = Rand(255)
			
			r\x = Rand(539)
			r\y = Rand(379)
			r\w = Rand(100)
			r\h = Rand(100)
			
			r_count = r_count + 1
			time = MilliSecs()
		EndIf
	EndIf
	
	; Draw all the rectangles in the list
	For r.rectangle = Each rectangle 
		Color r\r, r\b, r\g
		Rect r\x, r\y, r\w, r\h, 1
	Next
	
	Color 255, 255, 255
	Text 0, 0, CurrentTime$()
	
	Flip
Until KeyHit(1)

End

YAN

You think throwing in types and such is going to clear it up for him? SIIIIMMMPLE... You forget those first few days of programming when PRINT was a stumbling block for you, Yan. :)

I started programming in machine code...so...no ;op


YAN

Even some experienced coders can be a bit scared of blitz-types, let alone Kaisuo :)

types seems like a block of variables to me...

but yeah Yan-san the MilliSecs() command is exactly what I wanted, I wanted to make somekind of Timer, like stuff still execute itself but additional stuff executes itself after a certain time. and this actually does it in my opinion :o