Private Sub btnExit_Click
Dim Answ As Int
Dim txt As String
txt = "Exit from room: are you sure?"
If mStatus = STATUS_PLAYING Then
txt = txt & CRLF & CRLF & "IF YOU EXIT NOW, YOU WILL PAY [xxxx]"
End If
Answ = Msgbox2(txt, "ATTENTION", "Yes", "", "No", Null)
If Answ = DialogResponse.POSITIVE Then
RemovePlayer(mMyTurnOrder)
mMyTurnOrder = -1
CallSubDelayed2(srvComm, "RunOnServerPlayerExitsGameRoom", True)
LogColor("Chiudo actGameRoom", Colors.Red)
Activity.Finish
End If
End Sub