Type TSpielobjekt abstract
   Field zeichner:TSpielobjektZeichner
   
   Method update() Abstract

   Method draw(){
      If zeichner Then zeichner.draw()
   }

   Function Create:TSpielobjektZeichner() abstract
End Type

Type TKarte extends TSpielobjekt
   Field kartenrelevante dinge z.B. tilemap

   Field kartenObjekte:Container<TKartenobjekt>   

   Create(){
      zeichner=TKartenZeichner.Create(Self)
   }
End Type

Type TKartenobjekt extends TSpielobjekt Abstract
   Field x, y, z   
   Field frame   
End Type

Type TSpielobjektZeichner abstract
   Global view_x, view_z   
   Global initialized=False   

   Method new(){
      If Not initialized Then Init()
   }

   Method draw() abstract

   Function Create:TSpielobjektZeichner() Abstract

   Function Init() Abstract 'zum Bilder laden
End Type

Type TKartenZeichner extends TSpielobjektZeichner
   Global TImage-Objekte, die zum zeichnen benötigt werden

   Field karte:TKarte

   Method draw(){
      
   }

   Function Create:TKartenZeichner(karte:TKarte){
      self.karte=karte
   }

   Function Init(){
      bilder laden
   }
End Type

Type TKartenobjektZeichner extends TSpielObjektZeichner Abstract ' Für Objekte, die sich auf der Karte bewegen
   Field kartenobjekt:TKartenobjekt
   
   Field image:TImage
   Field imagePlaceholder:TImagePlaceholder

   draw () {
      'objekte mit den Informationen von kartenobjekt zeichnen
      'falls zum zeichnen weitere Informationen benötigt werden,
      '   wird sie vom erweiterten Type überschrieben
   }

   Method getImage:TImage(){
      If image=Null Then image=imagePlaceholder.getImage()
      return image
   }

   Function Create:TKartenobjektZeichner(kartenobjekt:TKartenobjekt) {
      self.kartenobjekt=kartenobjekt
   }

   Function Init() Abstract 'Bilder laden
End Type

Type TImagePlaceholder
   Global all:Container<TImagePlaceholder>

   Field path:String
   Field image:TImage
   
   Method new(){
      all.add(self)
   }

   Method getImage:TImage(){
      If image=null Then load()
      return image
   }

   Method load(){
      image = LoadImage(path)
   }

   Function Create:TImagePlaceholder(path:String){
      
   }

   Function LoadAll(){

   }
End Type

Type TFaerberei extends TKartenObjekt
   Method update() {

   }

   Function Create:TFaerberei(){
      zeichner=TFaerbereiZeichner.Create(Self)
   }
End Type

Type TFaerbereiZeichner extends TKartenObjektZeichner
   Function Init(){
      imageplaceholder=TImagePlaceholder.Create(dateiname)
   }
End Type

------Mainloop-------
     TWorld.Update()
     TWorld.Draw()
     .......
     .......
-----End Mainloop----

Type TWorld
Global BuldingDummys:TList
Global SelectTown:TTown     
     
     Function Setup() /Init()
           GebäudeDummys Laden (.ini oder .txt Datei)
           Zu GebäudeDummy-Liste Hinzufügen.       
     End Function 
 
     Function Update()
           Alle berechnungen für jede Stadt jedes Haus jede Figur
           werden durchgeführt.
             
           Warenproduktion/Verbrauch ect.
     
     End Function

     Function Draw()
            SelectTown.Draw()
     End Function
End Type         

Type TTown
Global AnzeigeListe
Field GebäudeListe
Field BaumListe     
      Method AddBullding(GebäudeTypName$,X,Y)
         
            Gebäudedummy suchen und kopieren
            Instance zu GebäudeListe Hinzufügen
   
      End Method
 
      Method Draw()
            Alle Gebäude die im sichtbaren Bildschirmbereich sind
            zur AnzeigeListe Hinzufügen.
             
             Alle Bäume die im Sichtbaren Bildschirmbereich sind
             zur AnzeigeListe Hinzufügen.
             
             AnzeigeListeSortieren()
             
             Nun die AnzeigeListe Durchgehen und die Bilder Anzeigen.
             +Zoomen  +Bezugspunkt  (evt später drehen 4 Richtungen) 
             AnzeigeListe löschen.
      End Method

      Function AnzeigeListeSortieren()
            Las dir was einfallen.
      End Function
End Function     

Type TBulldings
Field Player,Name$,X,Y,Typ usw     
End Type