All pastes #817643 Raw Edit

Someone

public text v1 · immutable
·published 2007-12-15 19:31 UTC
rendered paste body
SuperStrict

Global WINDOW_WIDTH:Int = 1024
Global WINDOW_HEIGHT:Int = 768
Global GRAVITY:Float = -15

Include "Entity.bmx"
Include "Particle.bmx"
Include "funcs.bmx"

Global Objects:TList = New TList

Graphics(WINDOW_WIDTH, WINDOW_HEIGHT) 

Global Spr:TImage = LoadImage("particle.png") 
Global Test:Particle = Particle.Create(100, 100, 100, 10, 255, 0, 0, Spr) 
Global Test2:Particle = Particle.Create(100, 200, 100, 100, 255, 0, 0, Spr) 

Global StartTime:Int = MilliSecs() 
Global APP_RUNTIME:Int = 0

While Not KeyDown(KEY_ESCAPE) 
	APP_RUNTIME = MilliSecs() - StartTime
	For Local o:Entity = EachIn(Objects) 
		o.Think() 
		o.Draw()
	Next
	Flip(0) 
	Cls
EndWhile