types

see what you get for this:

Type TGameObject
	Field x,y,xv,yv
End Type
Cls
Type TBullet Extends TGameObject
	Field x:Int
	Field y:Int
	Function playershoot(x:Int,y:Int)
		TBullet.x = sx
		TBullet.y = sy
	EndFunction
	Function update()
		TBullet.x = +1
	EndFunction
EndType