rs = 0
While Not Keyhit(1)
...
If Int(EntityX(cam)) = 14 And Int(EntityY(cam)) = 4 And Int(EntityZ(cam)) = 31 And KeyHit(57) Then rs = 1-rs


If Int(EntityX(cam)) = -7 And Int(EntityY(cam)) = 5 And Int(EntityZ(cam)) = 26 And KeyHit(57) Then rs = 2-rs


;Gespräch1
;#####################

If rs = 1 Then
mcm = 1
X=MouseX()
Y=MouseY()

Color 190,190,190
Rect 45,130,300,210,1
Color 50,50,50
Rect 44,129,301,211,0
Color 255,255,255
Text 50,140, "Gespräch mit Roboter1:"





Rect X,Y,16,16,0
Line X,Y,X+24,Y+24
Line X+1,Y+1,X+24,Y+24
Line X+2,Y+1,X+24,Y+24
;If X > 50 And X < 200  And Y > 260  And Y < 290 And MouseHit(1) Then Animate cam,3
;Gesprach2
If X > 50 And X < 200  And Y > 300 And Y < 330 And MouseHit(1) Then rs = 0
Else If rs = 2 Then
mcm = 1

X=MouseX()
Y=MouseY()

Color 190,190,190
Rect 45,130,300,210,1
Color 50,50,50
Rect 44,129,301,211,0
Color 255,255,255
Text 50,140, "Gespräch mit Roboter2:"



Rect X,Y,16,16,0
Line X,Y,X+24,Y+24
Line X+1,Y+1,X+24,Y+24
Line X+2,Y+1,X+24,Y+24
;If X > 50 And X < 200  And Y > 260  And Y < 290 And MouseHit(1) Then Animate cam,3
If X > 50 And X < 200  And Y > 300 And Y < 330 And MouseHit(1) Then rs = 0

Else If rs = 0 Then
mcm = 0
End If


;########################




Flip

Wend

End