My New Irc Client

[zeroZshadow]

okeoke the code might be a bit messy, but most of it works. The reason its in the support forum, is because i have a problem

Normealy it should place the message it gets, in the correct edit control in the correct tab. But it doesn't do that.

so does anyone knows why ??

and are # chars allowed in variable names ??

expandcollapse popup

; Zirc Client v0.8
; Made by zeroZshadow
;
; Do not change or sell without permission.

opt("GuiOnEventMode",1)

global $server = "irc.rizon.net"
global $port = 6667
global $nickname = "Basher"
global $message
global $text

$GUI = GuiCreate("Zero Irc V0.8",500,520)
$INPUT = GuiCtrlCreateInput("",0,500,450,20)
$GO = GUICtrlCreateButton("Send",450,500,50,20)
$tab=GUICtrlCreateTab (0,0, 500,500)
$servertab=GUICtrlCreateTabItem("Server")
$SERVEREDIT = GuiCtrlCreateEdit("",3,25,491,470)
GUISetOnEvent(-3,"OnAutoItExit")
GUICtrlSetOnEvent($GO,"_Send")
GuiSetState()

TCPStartup ()
$ip = TCPNameToIP($server)

$socket = TCPConnect( $ip, $port)
If $socket = -1 Then
    MsgBox(49,"Error","Could not connect")
    Exit
EndIf
GuiCtrlSetData($SERVEREDIT,"Connected"&@CRLF)

TCPSend($socket, " NICK" & " " & $nickname & @CRLF)
TCPSend ($socket,"USER martijn_g 0 0 martijn_g" & @CRLF)
_Response()
_JoinChannel("#ZeroIRC")

while 1
    _Response()
WEnd

Func _Response()
    $response = 0
    while $response = 0
        $message = tcpRecv($socket,512000)
        if not $message = "" then 
            FileWrite("c:\log.txt",$message)
        ;If StringinStr($message,'VERSION') Then
        ;   TCPSend($socket,"Zirc v0.5 by zeroZshadow"&@CRLF)
        ;EndIf
            If StringinStr($message,'PING') Then
                TCPSend($socket,StringReplace ( $message, "PING", "PONG")&@CRLF)
            EndIf
            If StringinStr($message,'PRIVMSG') Then
            ;:RizonMon!rizon@rizon.monitor PRIVMSG Basher :VERSION
                $REST = StringSplit ($message," ")
                $nameraw = Stringsplit($REST[1],"!")
                $name = StringTrimLeft($nameraw[1],1)
                if not stringinstr($REST[3],"#") Then
                    $toname = $REST[3]
                    if not IsDeclared ($name) and not Eval($name)="" then _private($name)
                    $privmsg = $REST[4]
                    $result = "<" & $name & "> " & $privmsg
                    GuiCtrlSetData(Eval($name&"EDIT"),$result&@CR)
                else
                    $fromchannel = $rest[3]
                    $privmsg = $REST[4]
                    $result = "<" & $name & "> " & $privmsg
                    $result = GuiCtrlRead(Eval($fromchannel&"EDIT"))&$result
                    GuiCtrlSetData(Eval($fromchannel&"EDIT"),$result&@CR)
                endif
            EndIf
        $result = GuiCtrlRead($SERVEREDIT)&$message
        GuiCtrlSetData($SERVEREDIT,$result&@CR)
        $response = 1
        endif
    WEnd
EndFunc

Func _Send()
    $send = GuiCtrlRead($INPUT)
    TCPSend ($socket,$send & @CRLF)
    If StringinStr($send,'PRIVMSG') Then
            ;:RizonMon!rizon@rizon.monitor PRIVMSG Basher :VERSION
                $REST = StringSplit ($send," ")
                $nameraw = Stringsplit($REST[1],"!")
                $name = StringTrimLeft($nameraw[1],1)
                if not stringinstr($REST[3],"#") Then
                    $toname = $REST[3]
                    if not IsDeclared ($name) and not Eval($name)="" then _private($name)
                    $privmsg = $REST[4]
                    $result = "<" & $name & "> " & $privmsg
                    GuiCtrlSetData(Eval($name&"EDIT"),$result&@CR)
                else
                    $fromchannel = $rest[3]
                    $privmsg = $REST[4]
                    $result = "<" & $name & "> " & $privmsg
                    $result = GuiCtrlRead(Eval($fromchannel&"EDIT"))&$result
                    GuiCtrlSetData(Eval($fromchannel&"EDIT"),$result&@CR)
                endif
            EndIf
EndFunc

Func OnAutoItExit()
    TCPSend($socket,"QUIT :Zirc V0.6 by zeroZshadow"& @CRLF)
    exit
EndFunc

Func _JoinChannel($channel)
    TCPSend ($socket,"JOIN " & $channel & @CRLF)
    TCPSend ($socket,"JOIN " & $channel & @CRLF)
    Assign ( $channel,GUICtrlCreateTabItem($channel),6)
    Assign ( $channel&"EDIT",GuiCtrlCreateEdit("",3,25,491,470),6)
    msgbox(0,"debug",$channel&"EDIT")
endfunc

Func _private($channel)
    Assign ( $channel,GUICtrlCreateTabItem($channel),6)
    Assign ( $channel&"EDIT",GuiCtrlCreateEdit("",3,25,491,470),6)
endfunc

please do not use this as your own work.

[ChrisL]

couldn't connect to the server.

Anyhow IMHO I dont like the way that if it doesnt connect it just exits regardless of what you click.

So how about a retry option?

TCPStartup ()
$ip = TCPNameToIP($server)

$socket = TCPConnect( $ip, $port)

While $socket = -1
    $retry = MsgBox(53,"Error","Could not connect")
    If $retry = 2 then Exit
        For $i = 1 to 10;10 attempts
            $socket = TCPConnect( $ip, $port)
            If $socket <> -1 then exitloop
                Sleep (200)
            Next
Wend
GuiCtrlSetData($SERVEREDIT,"Connected"&@CRLF)

Instead of your if -1 then exit

[Daniel W.]

Same here but looks nice

[zeroZshadow]

strange, because it connects just fine here -.-

but still, how do i fix the problem with the tabs ??

Edited May 12, 2006 by zeroZshadow

[ChrisL]

strange, because it connects just fine here -.-

but still, how do i fix the problem with the tabs ??

Dont know.. can't connect

[zeroZshadow]

maby u should try another server.

or open your firewall.

but for my question, are # signs allowed ??

[ChrisL]

If I create a variable called $Ch#ris then it doesn't work and I get errors so in answer to your question no you can not use the #chr in a variable name.

And I turned my firewall off and couldn't connect

Edited May 13, 2006 by ChrisL

[zeroZshadow]

thanks man, it'll make a small change then.

i'll report when it'll work