#bas
Global IrcConn
IrcServer$="irc.chelcom.ru"
IrcPort=6667

Procedure SendStr(StringToSend$)
  If SendNetworkString(IrcConn,StringToSend$)
    Debug "SEND> "+StringToSend$
  Else
    Debug "SEND Failed"
  EndIf
EndProcedure

InitNet:
If InitNetwork()
Connect:
  IrcConn=OpenNetworkConnection(IrcServer$,IrcPort)
  If IrcConn
    SendStr("NICK user"+Str(Random(9999))+Chr(13)+Chr(10))
    SendStr("USER lookup "+Chr(34)+"irc"+Chr(34)+" "+Chr(34)+IrcServer$+Chr(34)+" :too me"+Chr(13)+Chr(10))
    
    Repeat
      NetEvent=NetworkClientEvent(IrcConn)
      Select NetEvent
      Case 0
        ;Nothing
      Case 2
        ;Raw data
        *IrcData=AllocateMemory(1024)
        IrcDataLen=1024
        ReceiveNetworkData(IrcConn,*IrcData,IrcDataLen)
        IrcStr$=PeekS(*IrcData)
        Debug IrcStr$
        BeginInd=FindString(IrcStr$,"PING",1)
        If BeginInd>0
          EndInd=FindString(IrcStr$,Chr(13),BeginInd)
          IrcStr$=Mid(IrcStr$,BeginInd,EndInd-BeginInd)
          IrcStr$=ReplaceString(IrcStr$,"PING","PONG")+Chr(13)+Chr(10)
          SendStr(IrcStr$)
          SendStr("JOIN #canal"+Chr(13)+Chr(10))
        Else
        EndIf
        
        FreeMemory(*IrcData)
      Case 3
        ;File
      Case 5
        ;String
        *IrcData=AllocateMemory(1024)
        IrcDataLen=1024
        ReceiveNetworkData(IrcConn,*IrcData,IrcDataLen)
        IrcStr$=PeekS(*IrcData)
        Debug IrcStr$
        FreeMemory(*IrcData)
      EndSelect
      Delay(100)
    ForEver
  Else
    ;Could not connect
    Delay(20000)
    Goto Connect
  EndIf

Else
  Delay(20000)
  Goto InitNet
EndIf


; IDE Options = PureBasic 4.20 (Windows - x86)
; CursorPosition = 17
; Folding = -
; EnableXP
; Executable = +ip.exe
; CurrentDirectory = E:Program FilesProgrammingPureBasicExamples