Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

TSNEplay: Client

Uploader:Redakteurnemored
Datum/Zeit:06.01.2011 17:25:48

screen 18
print "CLIENT - Meldung eingeben; anschliessend beenden mit ESC"
' ***** Netzwerkverbindung *****

#include once "tsneplay_v3.bi"
dim shared netzwerk as TSNEPlay_GURUCode

sub TSNEPlay_ConnectionState(byval von as uinteger, byval state as TSNEPlay_State_Enum)
  ' Rückmeldung für einen Spieler über seinen Status
end sub

sub TSNEPlay_Player_Connected(byval id as uinteger, IPA as string, nick as string)
  ' Spieler wurde verbunden
  print id & " hat die Verbindung hergestellt"
end sub

sub TSNEPlay_Player_Disconnected(byval id as uinteger)
  ' Spieler wurde getrennt
  print id & " hat die Verbindung abgebrochen"
end sub

sub TSNEPlay_Message(byval von as uinteger, byval zu as uinteger, byval nachricht as string, _
                     byval typ as TSNEPlay_MessageType_Enum)
  'Ein Spieler hat uns / allen eine Nachricht geschickt
  print "Nachricht von " & von & ": " & nachricht
end sub

sub TSNEPlay_Move(byval von as uinteger, byval zu as uinteger, byval typ as double, _
                  byval x as double, byval y as double, byval r as uinteger)
  ' Spielzug
end sub

sub TSNEPlay_Data(von as uinteger, zu as uinteger, daten as string)
 ' Meldung vom Programmierer
end sub

' Aufbau der Verbindung
randomize timer
dim as integer zufallsnummer = rnd*99999
netzwerk = TSNEPlay_ConnectToServer("localhost", 1234, "Client" & zufallsnummer, "geheimesPasswort", _
           @TSNEPlay_ConnectionState, @TSNEPlay_Player_Connected, @TSNEPlay_Player_Disconnected, _
           @TSNEPlay_Message, @TSNEPlay_Move, @TSNEPlay_Data)

' Daten an den Server schicken
dim as string eingabe
do
  sleep 1
  eingabe = inkey
  if eingabe <> "" then TSNEPlay_SendMSG(0, "Tastendruck " & eingabe)
loop until eingabe = chr(27)