Problems with Types

Blitz3D Forums/Blitz3D Beginners Area/Problems with Types

GIA_Green_Fire_
 #1
This is how I create new types

Graphics3D 800,600,0,2
SetBuffer BackBuffer()


Global NewType.TypeName = CreateType()



While Not Keydown(1)
     UpdateTypes()
     
     UpdateWorld
     RenderWorld
     
     Flip
Wend
End


Type TypeName
     Field FieldName
End Type

Function CreateType.TypeName(optional=0)
     Local t.TypeName = New Type Name
          t\FieldName = optional
     Return t
End Function

Function UpdateTypes()
     For t.TypeName = Each TypeName
     
          ;Do something
     
     Next
End Function