![]() |
| ' ---------------------MAIN LOOP------------------------- Repeat Cls For Local o:TGameObject=EachIn GameObjectList o.DrawSelf() o.UpdateSelf() Next Flip Until KeyDown(KEY_ESCAPE) Or AppTerminate() End |
| ' ---------------THE MOTHER OF ALL OBJECT, TYPE GAMEOBJECT------------- Type TGameObject Field X:Int Field Y:Int Field XSpeed:Float=3 Field YSpeed:Float=-3 Field Image:TImage Field XScale:Float Field YScale:Float Method DrawSelf() SetScale XScale, YScale DrawImage Image,X,Y End Method Method UpdateSelf() Abstract End Type |
| Function CreateObject(Obj:TGameObject, Image:TImage,xstart:Int,ystart:Int,Scale:Float=1.0) Obj.X=xstart Obj.Y=ystart Obj.XScale=Scale Obj.YScale=Scale Obj.Image=Image If Obj.Image=Null Print "Not able to load image file. Program aborting" End EndIf ListAddLast GameObjectList, Obj End Function |