Strict

'Importiert das Modul
Import iud.tirc

Graphics 800,600,0,60


Local chatbuffer:String         'Temporäre speicherung der Input Routine
Local msg_buffer:String[1024]      'Der MsgBuffer, der angezeigt wird und mit dem Buffer des Moduls
                           'abgeglichen wird
Local steps:Int
Global last_chat:String
Global chat:String

Local stream:TIRCStream=New TIRCStream
stream.ConnectTo("irc.blitzed.org","DeinName")
stream.WaitUntilConnected         'Wartet bis wirklich zum Netzwerk connected wurde
                           'In dieser Methode ist eine Schleife, es hält also das
                           'Programm an, es gibt aber ein Workaround dafür

Stream.JoinChannel("#wayne")      'Joint einem Channel
'Stream.SetActiveChannel("#wayne")   'Diese Methode ist nur bei mehreren Channels nötig
                           'Mit SetActiveChannel wird ausgewählt, wo die Kicks,
                           'Die Modeanweisungen, die Parts und alle anderen Aktionen
                           'gehen.

Repeat
   Cls
      stream.do()               'Fragt das Netzwerk ab, fügt User hinzu, löscht sie
                           'Und antwortet - wenn eingestellt, std.: ja - auf Pings
                  
      msg_buffer=stream.getmessagebuffer()   'Fragt den Buffer der Session ab, er ist auf
                                    '1024 Zeilen begrenzt.
      
      'Standardanzeige zum testen
      For steps=0 To 40
         DrawText msg_buffer[steps],5,500-steps*15
      Next
      
      
      'Chat
      if InputRoutine()=1 then Stream.SendChatMsg(chat) ; chat=""
      drawtext chat,5,550

   Flip
Until KeyHit(key_escape)

stream.SetQuitMsg("Byebye")         'Setzt die Quit Msg, kann auch am Anfang gesetzt werden
stream.Quit                     'Beendet die IRC Sitzung
stream.Free                     'Schließt TCP Stream, löscht eigene Instanz




Function InputRoutine:byte()
   Local input_key=GetChar()
   Local return_value:String
   
   If input_key Then
      If input_key=13 Then
         return 1
         last_chat=chat
      Else If input_key=8
         If Len(chat)>0 Then chat=Left(chat,Len(chat)-1)
      Else If input_key>=32 And input_key<127
         chat=chat+Chr(input_key)
      EndIf
   EndIf
   
   return 0
End Function

Import iud.tirc
Global stream:TIRCStream=New TIRCStream
stream.ConnectTo("localhost","TestName",6667)
stream.WaitUntilReady;stream.JoinChannel("#ch1");
Local msg:String;Repeat;stream.do;
For msg=EachIn stream.GetNewMessageBuffer()
Print msg;Next;msg=Input(">");stream.SendChatMsg(msg)
Until msg.toupper()="QUIT";stream.quit;End

While True
   Local n:Int = 0
   If select_(1,Varptr _n,0,Null,0,Null,0) Then
      Print "New!"
      Local s:String = Input("")
      If s = "end" Then End
      Print s
   EndIf
   Print "Still running..."
   Delay(100)
Wend

int stdInAct_(int millis)
{
    WaitForSingleObject(GetStdHandle(STD_INPUT_HANDLE),millis);
}

Framework    brl.standardio
Import      brl.win32maxgui
Import       brl.graphics
Import       brl.max2d
Import      brl.glmax2d
Import      brl.blitz
Import      brl.timer

Import       iud.tirc

Strict
SetGraphicsDriver GLMax2DDriver()
AppTitle="BMXIRC Module Test"
Graphics 800,600,0,60
SetClsColor 255,255,255
Cls
SetColor 0,0,0
Include "init.bmx"

While Not KeyHit(key_escape)
   Cls
      WaitTimer(timer)
      
      lc=input_routine()
      If lc<>"" Then parse_lc(lc)
      
      msg_buffer=stream.GetMessageBuffer()
      
      DrawText stream.ready(),2,2
      
      If KeyHit(key_5) Then
         Local tmp_channel:TIRCChannel
         Local tmp_user:TIRCUser
         
         For tmp_channel=EachIn stream.GetChannellist()
            Print ">"+tmp_channel.name+"<"
            For tmp_user=EachIn tmp_channel.Userlist
               Print "- "+tmp_user.status+" "+tmp_user.Nickname
            Next
         Next
      End If
      
      'ZEICHNEN
      DrawText input_chat+"_",2,580
      msg_show(40)
      
      Local tmp_y=0
      Local tmp_user:TIRCUser
      DrawText "("+stream.ActiveChannel+")",600,85
      If stream.GetUserList()<>Null Then
         For tmp_user=EachIn stream.GetUserlist()
            DrawText tmp_user.nickname+" ("+tmp_user.status+")",600,100+tmp_y
            tmp_y:+10
         Next
      End If
      
      stream.do
   Flip   
Wend

Function INPUT_ROUTINE:String()
   Local Input_key=GetChar()
   
   If Input_key Then
      If Input_key=13 Then
         Input_chat_before=input_chat

         If Chr(input_chat[0])="/" Then
            Return input_chat[1..]
         ElseIf(Chr(input_chat[0])="*")
            stream.SendChatMsg(input_chat[1..])
            Input_chat=""
         Else
            stream.SendString(input_chat)
            Input_chat=""
         End If
      
      Else If Input_key=8
         If Len(Input_chat) > 0 Then Input_chat=Input_chat[..(Len(Input_Chat)-1)]
      Else If Input_key>=32 And Input_key<127
         Input_chat=Input_chat+Chr(Input_key)
      EndIf
   EndIf
   
   Return ""
End Function

Function MSG_SHOW(lines:Short)
   Local steps:Int
   
   For steps=0 To 1023
      If 550-steps*15+offset_y>=-15 And 550-steps*15+offset_y<=615 Then
         DrawText msg_buffer[steps],2+offset_x,550-steps*15+offset_y
      End If
   Next
End Function

Function parse_lc(txt:String)
   txt=txt+" "
   Local command:String
   Local paras:String
   
   command=txt[..txt.find(" ")].toupper()
   paras=txt[txt.find(" ")+1..]
   paras=paras.trim()
   
   Select command
   Case "J"
      stream.JoinChannel(paras)
   
   Case "A"
      stream.SetActiveChannel(paras)

   Case "JOIN"
      stream.JoinChannel(paras)

   Case "PART"
      stream.LeaveChannel()

   Case "P"
      stream.LeaveChannel()
      
   Case "CLS"
      Local steps:Int
      For steps=0 To 1023
         msg_buffer[steps]=""
      Next

   End Select
   
   input_chat=""
End Function

OnEnd terminate
Function terminate()
   stream.SetQuitMsg("Und tschoe")
   stream.Quit
End Function