quick question

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

chwaga

why doesn't this work??

'FIRST ATTEMPT AT BASIC OOP
Graphics 1280, 1024
SeedRnd(MilliSecs())

AutoMidHandle 1
Global List:TList = New TList
Type dude

	Field x, y, rot
	
	Method New()
		x = Rnd(0, 1280)
		y = Rnd(0, 1024)
		rot = Rnd(0, 360)
		List.AddLast(Self)
	End Method
	
	Method draw()
		For dude = EachIn List
			SetRotation(rot)
			DrawRect(x, y, 15, 15)
		Next
	End Method
	
	Method update()
		If KeyDown(KEY_LEFT) Then rot:-1
		If KeyDown(KEY_RIGHT) Then rot:+1
		draw()
	End Method

End Type

Global d:dude = New dude

While Not KeyHit(KEY_ESCAPE)

	d.update()
	Flip

Wend
End