die Probleme oben haben sich von selber gelöst
Aber nun häng ich an einem anderen...Ich hab ein (fast) vollständiges script gebastelt wo der eine eigentlich des anderen text empfangen sollte, tut er aber nix...es kommt nix... Ich post hier einfach mal den Kompletten Quellcode...ihr wisst sicherlich woran das liegt:
Code: Alles auswählen
OpenConsole()
ConsoleTitle("SCIM - Simple Console Instant Messenger")
EnableGraphicalConsole(1)
PrintN ("# SCIM - Simple Console Instant Messenger v.1.00 #")
PrintN ("")
PrintN ("Willkommen bei SCIM !")
PrintN ("geben Sie 'login' ein um eine Verbindung aufzubauen.")
PrintN ("SCIM baut dann eine Verbindung zum Internet auf,")
PrintN ("sodass sie von einem anderen angechattet oder einen Chat beginnen koennen.")
PrintN ("Geben sie anderfalls 'exit' ein, wenn sie dass Programm beenden moechten.")
PrintN ("")
login$=Input()
If login$="exit"
CloseConsole()
End
EndIf
If login$="login"
ClearConsole()
Print ("Programm wird initalisiert... ")
InitNetwork()
Delay (3000)
Print ("OK")
Delay (1000)
PrintN ("")
Print ("Verbindung zum Internet wird hergestellt... ")
*Buffer = AllocateMemory(100000)
CreateNetworkServer(0, 6832)
Delay (1000)
Print ("OK")
PrintN ("")
PrintN ("")
Delay (1000)
PrintN ("SCIM - Server erfolgreich erstellt. (Port 6832)")
Delay (3000)
ClearConsole()
Else
PrintN ("")
PrintN ("unbekannter Befehl")
PrintN ("Das Programm wird sich in 3 Sekunden beenden")
Delay (3000)
CloseConsole()
End
EndIf
PrintN ("# SCIM - Simple Console Instant Messenger v.1.00 #")
PrintN ("")
PrintN (" Lobby")
PrintN ("")
PrintN ("Sie haben sich erfolgreich eingeloggt!")
PrintN ("Sie koennen nun von anderen Spielern angeschrieben werden.")
PrintN ("Wenn jemand ihren Chatraum betritt wird eine Meldung (unten) angezeigt.")
PrintN ("Geben sie 'neu' ein, um selber einen Spieler zu kontaktieren.")
PrintN ("Wenn sie SCIM schliessen, werden sie automatisch wieder ausgeloggt (getrennt)")
PrintN ("-----------------------------------------------------------------------------")
PrintN ("")
neu$=Input()
If neu$="neu"
ClearConsole()
PrintN ("Stellen sie sicher, dass sich ihr Kontakt in der Lobby befindet.")
PrintN ("Geben sie die Adresse des Kontaktes an: ")
PrintN ("")
Print ("IP Adresse: ")
IP$=Input()
PrintN ("")
Delay (1000)
Print ("Verbindungsaufbau... ")
Delay (1000)
ID = OpenNetworkConnection(IP$, 6832 , 0)
SendNetworkString(ID, "Ein Kontakt hat ihren Chatraum betreten.")
PrintN ("OK")
Delay (3000)
ClearConsole()
PrintN ("# SCIM - Simple Console Instant Messenger v.1.00 #")
PrintN ("")
PrintN ("Sie koennen nun mit ihrem Kontakt Chatten!")
PrintN ("Schliessen sie das Fenster, wenn sie das Programm beenden wollen,")
PrintN ("oder geben sie 'logout' ein, wenn sie zur Lobby zurueckkehren wollen.")
PrintN ("---------------------------------------------------------------------")
Else
PrintN ("Die IP Adresse existiert nicht oder ist ungültig.")
PrintN ("Das Programm wird sich in 3 Sekunden beenden")
CloseConsole()
End
EndIf
Repeat
SEvent = NetworkServerEvent()
If SEvent
ClientID = EventClient()
ReceiveNetworkData(ClientID, *Buffer, 1000)
PrintN (PeekS(*Buffer))
EndIf
If chat$=Input()
SendNetworkString(ClientID, chat$)
EndIf
Until Quit = 1
End