[SemtEX]

ok, dann darf visual basic auch nicht fehlen:

Code:

Public Sub Thunfisch()

    Dim Ort As String
    Dim F1, F2 As Fisch
    Dim bPointe As Boolean
    
    cThunfisch (F2)
    cWalfisch (F1)
    
    Ort = "tief unten am Meeresboden"
    bpointe = False
        
    While (bPointe = False)
        If (F1.getPosition() = F2.getPosition() = Ort) Then
            MsgBox ("blubbediblubb")
            F2.poppt (F1)
            If (F1.getBeschwerde() = "Das darfst Du nicht " + F2.getName() + ".") Then
                F2.setAntwort ("Du hast keine " + F1.getName() + "!")
                bPointe = True
                MsgBox ("Man darf jetzt lachen!")
            End If
        End If
    Wend

End Sub