Repeat
If MouseHit(1) And ImagesCollide(curser1$, mx, my, 0, choicebox$, 100, 110, 0) And y > 0 And x > 0 Then
Text 181, 20, "Mampf."
x = x - 1
y = y - 1
c1% = 0
tex% = 1
WaitMouse
EndIf

If MouseHit(1) And ImagesCollide(curser1$, mx, my, 0, choicebox$, 100, 110, 0) And y = 0 Then
tex% = 2
WaitMouse
EndIf

If MouseHit(1) And ImagesCollide(curser1$, mx, my, 0, choicebox$, 100, 110, 0) And x = 0 Then
tex% = 3
WaitMouse
EndIf


If tex% = 1 Then
Text 181, 20, "Mampf."
ElseIf tex% = 2 Then
Text 181, 20, "Du kannst mich nicht füttern, wenn du kein Futter für mich hast."
ElseIf tex% = 3 Then
Text 181, 20, "Ich krieg nix mehr runter."
EndIf
Until KeyHit(1)
End