event loop and canvas buffer

BlitzPlus Forums/BlitzPlus Programming/event loop and canvas buffer

Maddog

(Posted 2004) [#1]

Hi There,

I'm in need of some good advice. Hope someone can help me.

I want to make a game in blitzplus which has the following design elements:
1- a canvas which refreshes at 30 fps and shows the actual game action (moving objects, etc).
2- lots of buttons for which I want to use the blitzplus event handler.
3- a textbox in which the player can type commands which affect the game.

Now what I want to know is, what would the framework look like?
Do I create an event loop and place the flip canvasbuffer inside that loop? But how can I guarantee the 30fps in that case?
Or should I make an flip canvasbuffer loop and try somehow to place an event loop inside it?
Simply put: I don't know how to

Can someone please help me? write the game loop in pseudo-code?

thanks in advance,
Andrik

CS_TBL

(Posted 2004) [#2]

app=CreateWindow("bla",0,0,640,480)

Global cnv=CreateCanvas(32,32,400,300,app),r=255,g=255,b=255

timer=CreateTimer(30)

Global txt=CreateTextField(32,340,64,24,app)


button1=CreateButton("new color",128,340,64,24,app)

Repeat
	WaitEvent()
	If EventID()=$803 quit=True
	If EventID()=$4001 ; timer
		updatecanvas()
	EndIf
	
	If EventID()=$401
		If EventSource()=button1
			r=Rnd(255)
			g=Rnd(255)
			b=Rnd(255)
		EndIf
		
	EndIf
	
Until quit

End

Function updatecanvas()
	SetBuffer CanvasBuffer(cnv)
		Cls
		
		; random stuph
		Color r,g,b
		For k=0 To 31
			Rect Rnd(200),Rnd(150),100,100,True
		Next
		
		Color 255,255,255
		
		Text 0,0,TextFieldText$(txt)
		
	FlipCanvas cnv
End Function

Maddog

(Posted 2004) [#3]

Thanx!

I have seen the light ;-)

CS_TBL

(Posted 2004) [#4]

then go in peace my son :)

aab	(Posted 2004) [#5]

an action like that should be incremented into the command references examples..