Type TItemIngame
Field id
Field item:TItem 'nicht wichtig für's Problem

Type TItemIngamePlayer
Field x
Field y

Method GiveToPlayer:Byte()
Local l_Id:Int	= Self.id
Local l_Item:TItem	= Self.item
Self = New TItemIngame
Self.id = l_Id
Self.item =l_Item
Return(True)
EndMethod

Type A
  Method Drucken()
    Print "------------------"
    Print "Header"
    Print "------------------"
  End Method
End Type

Type B Extends A
  Method Drucken()
    Super.Drucken()  'Alte Methode ausführen (Header ausgeben)
    Print "------------------"
    Print "Footer"
    Print "------------------"
  End Method
End Type

Local a_instanz:A = New A
Local b_instanz:B = New B

a.Drucken()  'gibt nur den Header aus
b.Drucken()  'gibt Header und Footer aus, obwohl Header im Type B nirgends definiert wurde

Type Item
  Field A:Int, B:Int

  Function FromPosItem:Item(Pi:posItem)
    Local i:Item = New Item
    i.A = Pi.A
    i.B = Pi.B
    Return i
  End Function
End Type

Type PosItem Extends Item
  Field X:Int, Y:Int
End Type

Local Pi:PosItem = New PosItem
Pi.A = 5
Pi.B = 10
Pi.X = 125
Pi.Y = 400

Local i:Item = Item.FromPosItem(Pi)