;######################################### INIT #####################################

;define
Const W% = 640,H% = 480
Const MSGMAX% = 70
Global nettype% = 0,netdata$ = "",netfrom% = 0,netname$ = ""
Global msg$ = ""
Type chatter
   Field id%
   Field name$
End Type
Global my.chatter

;screen
AppTitle "Mini-Chat"
Graphics W,H,0,2
SetBuffer BackBuffer()

;start
Fade(0,255)
ausgabe = StartNetGame()
Fade(255,0)
If ausgabe <> 0 Then
   my.chatter = New chatter
   my\name = InputLetters("Your Name: ",3,8)
   my\id = CreateNetPlayer(my\name)
   Locate 0,20
Else
   RuntimeError "No Connection!"
EndIf

;######################################### MAIN #####################################

Repeat

   ;input/send
   key = GetKey()
   If key >= 32 And key <= 126 And Len(msg) < MSGMAX Then msg = msg+Chr(key)
   If KeyHit(14) And Len(msg) > 0 Then msg = Left(msg,Len(msg)-1)
   If KeyHit(28) And msg <> "" Then SendNetMsg 1,msg,my\id,0,1 : Print my\name+": "+msg : msg = ""

   ;receive
   While RecvNetMsg() = 1
      nettype = NetMsgType()
      netdata = NetMsgData()
      netfrom = NetMsgFrom()
      netname = NetPlayerName(netfrom)
      If nettype = 1 Then
         Print netname+": "+netdata
      ElseIf nettype = 100 Then
         other.chatter = New chatter
         other\id = netfrom
         other\name = netname
         Print ">>> "+other\name+" has joined <<<"
      ElseIf nettype = 101 Or nettype = 102 Then
         For leaving.chatter = Each chatter
            If leaving\id = netfrom Then
               Print ">>> "+leaving\name+" has left <<<"
               Delete leaving.chatter
            EndIf
         Next
      EndIf
   Wend

   ;output
   Color 70,70,70
    Rect 0,0,640,18
   Color 255,255,255
    Line 0,18,W,18
    Text 2,2,"SEND: "+msg

Flip
Until KeyHit(1)
Fade(0,255)
End

;######################################### FUNC #####################################

Function InputLetters$(infotxt$,min%,max%)
   Local key%,txt$
   Repeat
   Cls
      key = GetKey()
      If (Len(txt) < max) And ((key >= 65 And key <= 90) Or (key >= 97 And key <= 122)) Then txt = txt+Chr(key)
      If KeyHit(14) And Len(txt) > 0 Then txt = Left(txt,Len(txt)-1)
      If KeyHit(28) Then
         If Len(txt) >= min Then
            Exit
         Else
            Text 0,0,"Number of letters must be >= "+min+" and <= "+max : Flip
            FlushKeys() : WaitKey() : FlushKeys()
         EndIf
      EndIf
      Text 0,0,infotxt+""+txt
   Flip
   Forever
   Return txt
End Function
Function Fade(von%,nach%)
   If von < nach Then
      For i = von To nach Step 5
         ClsColor i,i,i : Cls : Flip
      Next
   ElseIf von > nach Then
      For i = von To nach Step -5
         ClsColor i,i,i : Cls : Flip
      Next
   EndIf
End Function

;######################################### INIT #####################################

;define
Const W% = 640,H% = 480
Const MSGMAX% = 70
Global nettype% = 0,netdata$ = "",netfrom% = 0,netname$ = ""
Global msg$ = ""
Type chatter
   Field id%
   Field name$
   End Type
Global my.chatter

;screen
AppTitle "Mini-Chat"
Graphics W,H,0,2
SetBuffer BackBuffer()

;start
Fade(0,255)
ausgabe = StartNetGame()
Fade(255,0)
If ausgabe <> 0 Then
   my.chatter = New chatter
   my\name = InputLetters("Your Name: ",3,8)
   my\id = CreateNetPlayer(my\name)
;Locate 0,20
Else
   RuntimeError "No Connection!"
EndIf

;######################################### MAIN #####################################

Repeat

   ;input/send
   key = GetKey()
   If key >= 32 And key <= 126 And Len(msg) < MSGMAX Then msg = msg+Chr(key)
   If KeyHit(14) And Len(msg) > 0 Then msg = Left(msg,Len(msg)-1)
   If KeyHit(28) And msg <> "" Then SendNetMsg 1,msg,my\id,0,1 : RPrint  my\name+": "+msg : msg = ""

   ;receive
   While RecvNetMsg() = 1
      nettype = NetMsgType()
      netdata = NetMsgData()
      netfrom = NetMsgFrom()
      netname = NetPlayerName(netfrom)
      If nettype = 1 Then
         RPrint netname+": "+netdata
      ElseIf nettype = 100 Then
         other.chatter = New chatter
         other\id = netfrom
         other\name = netname
         RPrint  ">>> "+other\name+" has joined <<<"
      ElseIf nettype = 101 Or nettype = 102 Then
         For leaving.chatter = Each chatter
            If leaving\id = netfrom Then
               RPrint  ">>> "+leaving\name+" has left <<<"
               Delete leaving.chatter
            EndIf
         Next
      EndIf
   Wend
   
   ;output
   Color 70,70,70
   Rect 0,0,640,18
   Color 255,255,255
   Line 0,18,W,18
   Text 2,2,"SEND: "+msg
   
   Flip
Until KeyHit(1)
Fade(0,255)
End

;######################################### FUNC #####################################

Function RPrint(s$)
   Local r,g,b: r = ColorRed(): g=ColorGreen() : b=ColorBlue()
   CopyRect 0,20,GraphicsWidth(),GraphicsHeight()-20,0,24+FontHeight(),FrontBuffer(),BackBuffer()
   Color 0,0,0
   Rect 0,20,GraphicsWidth(),4+FontHeight()
   Color r,g,b
   Text 0,20,s$
End Function

Function InputLetters$(infotxt$,min%,max%)
Local key%,txt$
   Repeat
      Cls
      key = GetKey()
      If (Len(txt) < max) And ((key >= 65 And key <= 90) Or (key >= 97 And key <= 122)) Then txt = txt+Chr(key)
      If KeyHit(14) And Len(txt) > 0 Then txt = Left(txt,Len(txt)-1)
      If KeyHit(28) Then
         If Len(txt) >= min Then
            Exit
         Else
            Text 0,0,"Number of letters must be >= "+min+" and <= "+max : Flip
            FlushKeys() : WaitKey() : FlushKeys()
         EndIf
      EndIf
      Text 0,0,infotxt+""+txt
      Flip
   Forever
   Return txt
End Function
Function Fade(von%,nach%)
   If von < nach Then
      For i = von To nach Step 5
         ClsColor i,i,i : Cls : Flip
      Next
   ElseIf von > nach Then
      For i = von To nach Step -5
         ClsColor i,i,i : Cls : Flip
      Next
   EndIf
End Function