wenn variable=TWaffe
dann hauen
wenn variable=TSchild
dann blocken
wenn nicht
tue nix

SuperStrict


Type TItem

   Global list:TList=CreateList()

   Field name:String

   Method New()
      Self.list.addlast(Self)
   End Method

   Method Action()
      Print name+" macht die Standard Action"
   End Method

   Function CreateObject:TItem(name:String)
      Local i:TItem=New TItem
      i.name=name
      Return i
   End Function

   Function AllActions()
      For Local i:TItem=EachIn Self.list
         i.Action()
      Next
   End Function
   
End Type


Type TWaffe Extends TItem

   Method Action()
      Print "Waffe "+name+" haut!"
   End Method

   Function CreateObject:TWaffe(name:String)
      Local w:TWaffe=New TWaffe
      w.name=name
      Return w
   End Function
   
End Type

Type TSchild Extends TItem
   
   Method Action()
      Print "Schild "+name+" blockt!"
   End Method

   Function CreateObject:TSchild(name:String)
      Local s:TSchild=New TSchild
      s.name=name
      Return s
   End Function    

End Type


TSchild.CreateObject("vergammeltes Holzschild")
TSchild.CreateObject("Großer Belagerungsschild der Elfen")
TWaffe.CreateObject("Schattenmantelstecher Malak-Nir")
TItem.CreateObject("Heiltrank")


TItem.AllActions()
WaitKey()