
Code: Alles auswählen
Repeat
event=WaitWindowEvent(1)
nevent=NetworkClientEvent(cid)
If nevent=2
*mem=AllocateMemory(2048)
msg=PeekS(*mem)
FreeMemory(*mem)
If msg="CS"
DisableGadget(1,1)
DisableGadget(2,1)
AddGadgetItem(0,-1," *** Server is closed.")
Repeat : Until WaitWindowEvent()=16
End
ElseIf Left(msg,3)="WO:"
AddGadgetItem(0,-1," *** "+Right(msg,Len(msg)-3)+" went out.")
ElseIf Left(msg,3)="NU:"
AddGadgetItem(0,-1," *** "+Right(msg,Len(msg)-3)+" joined the chat.")
ElseIf msg=""
AddGadgetItem(0,-1,msg)
EndIf
EndIf
Until event=16

P.S.: Am Server kanns eigentlich nich liegen, einkommende Daten werden überprüft (ob der User bekannt is).