Игростроение - Создание игр

SuperStrict
Graphics(640, 480)

TGroup.Create()

While KeyHit(27)=False
   Cls()
     
   TGroup.UpdateAll()
     
   TGroup.RenderAll()
     
   Flip()
End While
End

Type TBlock 'TMyType в том примере
   Field x%, y%
     
   Method Update()
   End Method
     
   Method Render()
   End Method
End Type

Type TGroup
   Global list:TList
   Global count_name%
     
   Field name%
   Field blocks:TBlock[4]
     
   Function Create()
    If list=Null list=CreateList()
    Local g:TGroup=New TGroup
    list.AddLast(g)
      
    count_name:+1
    g.name=count_name

    For Local i%=0 To 3 g.blocks[i]=New TBlock Next
   End Function
     
   Method Update()
    For Local i%=0 To 3 blocks[i].Update() Next
   End Method
     
   Method Render()
    For Local j%=0 To 3
     blocks[j].Render()
    Next
   End Method
     
   Function UpdateAll()
    For Local g:TGroup=EachIn(list) g.Update() Next
   End Function
     
   Function RenderAll()
    For Local g:TGroup=EachIn(list) g.Render() Next
   End Function
End Type