IRC UDF

McGod · March 31, 2007

A small UDF to connect to IRC using TCP Functions.

Please note, Every IRC server is slightly different you may need to tweak the Example.au3 for it to work.

Functions:

_IRCConnect ($server, $port, $nick)

_IRCJoinChannel ($irc, $chan)

_IRCSendMessage ($irc, $msg, $chan="")

_IRCChangeMode ($irc, $mode, $chan="")

_IRCPing($ret)

IRC.au3

UDF

Example.au3

Example Script.

In the Example Script there is a small thing on recieved messages.

8Ball.au3

8Ball Script.Quickly made up.

My 8ball.ini

[Reply]
1 = "As I see It, Yes"
2 = "It is certain"
3 = "It is decidedly so"
4 = "Most likely"
5 = "Outlook good"
6 = "Signs point to Yes"
7 = "Without a doubt"
8 = "YES"
9 = "Yes, definitely"
10 = "You may rely on it"
11 = "Ask again later"
12 = "Better not tell you now"
13 = "Cannot predict now"
14 = "Concentrate and ask again"
15 = "Don't count on it"
16 = "My reply is No"
17 = "My sources say No"
18 = "Outlook not so good"
19 = "Reply Hazy, Try again"
20 = "Very doubtful"
21 = "Not only no, but HELL No!"
22 = "Not only yes, but HELL Yes!"
23 = "You will regret it!"
24 = "Signs point to No"
25 = "Go away... I don't want you back!"
26 = "Well I love you, come back!"
27 = "What? Are you taking me as an 8 ball?"
28 = "Outlook is disturbing"

Edited April 3, 2007 by Chip

Pascal257 · April 1, 2007

A small UDF to connect to IRC using TCP Functions.

Please note, Every IRC server is slightly different you may need to tweak the Example.au3 for it to work.

Functions:
_IRCConnect ($server, $port, $nick)
_IRCJoinChannel ($irc, $chan)
_IRCSendMessage ($irc, $msg, $chan="")
_IRCChangeMode ($irc, $mode, $chan="")
_IRCPing($ret)

IRC.au3
UDF

Example.au3
Example Script.

In the Example Script there is a small thing on recieved messages.

Very very useful!

Good Job!

McGod · April 1, 2007

Can anyone think of functions I could add? I can't think of any :whistle:

theguy0000 · April 2, 2007

have you tried tidy? some of your indentataion is wrong.

But really cool and useful funcs. Thanks!

Edited April 2, 2007 by theguy0000

lolp1 · April 2, 2007

A registers func would be cool, so I can use to to join channels you need to be registerd to join.

theguy0000 · April 2, 2007

A registers func would be cool, so I can use to to join channels you need to be registerd to join.

but not all networks/servers use nickserv, so it wouldn't work everywhere. Best to only make global use functions that always work on any server. A register one wouldn't do that.

Miranda · April 2, 2007

I haven't given this a try yet, but I intend to.

the things off the top of my head would be:

-Keep alive connection (afaik if you do nothing the connection doesn't stay open forever)?

-send private messages (would allow registration or w/e on some networks)

-scan chat for keywords (would allow for commands/communication to be recieved, maybe directly launch functions that are declared in a seperate file?)

-perform on connect (mainly joining channels/registering)

please ignore if any/all of these functions already exist / arent necessary.

Thanks alot in advance, will give it a go tonight

Pascal257 · April 2, 2007

I haven't given this a try yet, but I intend to.
the things off the top of my head would be:
-Keep alive connection (afaik if you do nothing the connection doesn't stay open forever)?
-send private messages (would allow registration or w/e on some networks)
-scan chat for keywords (would allow for commands/communication to be recieved, maybe directly launch functions that are declared in a seperate file?)
-perform on connect (mainly joining channels/registering)
please ignore if any/all of these functions already exist / arent necessary.
Thanks alot in advance, will give it a go tonight

I think if you take a look on the example.au3 you should see that many of those things can be written within your script.

Just hook the incoming messages from the server.

McGod · April 2, 2007

theguy0000: I've never tried Tidy maybe I should

lolp1:Those are server-specific functions, "NS ID Pass" or whatever you would use.

Miranda:

-PING Function, but yes if you don't response to the PING you get booted

- _IRCSendMessage ($irc, "Message", "User") It works since the only different in PRIVMSG is #Chan and User

- That would be in your script, this is just for connecting and interacting with server.

- You again would add those in right spot.

theguy0000 · April 2, 2007

theguy0000: I've never tried Tidy maybe I should

yes, it's built into scite, just open your script and Press Ctrl+T and it will fix indentation among other things, depending on your preferences.

lolp1 · April 3, 2007

I'm some what confused. How do you plan on responding to the ping?

Pascal257 · April 3, 2007

I'm some what confused. How do you plan on responding to the ping?

;===============================================================================
;
; Description:      Returns a PING to Server
; Parameter(s):     $irc - Socket Identifer from _IRCConnect ()
;                   $ret - The end of the PING to return
; Requirement(s):   _IRCConnect () to be run
; Return Value(s):  On Success - 1
;                   On Failure - -1 = Server disconnected.
; Author(s):        Chip
; Note(s):          English only
;
;===============================================================================
Func _IRCPing($ret)
    If $ret = "" Then Return -1
    TCPSend($irc, "PONG " & $ret & @CRLF)
        If @error Then 
        MsgBox(1, "IRC.au3", "Server has disconnected.")
        Return -1
    EndIf
    Return 1
EndFunc

--> If $sTemp[1] = "PING" Then _IRCPing($sTemp[2]); Checks for PING replys (There smaller then usual messages so its special!

~~~~PING~~~~
You recieves these at random to make sure your still online and
not disconnected. 

SYNTAX:
PING :Randomletters

Usually a PING has random letters that you have to respond with.

EXAMPLE:
PING :29809dj0d

You would respond with
PONG 29809dj0d
~~~~~~~~~~~

This should answer your question

lolwut · April 9, 2007

Sorry to bump this topic, but is any way my bot can "read" commands I add, like !msg, or !time, so I can make an intelligent bot?

lolwut · April 9, 2007

Oh, thanks Chip! Btw great UDF, I'll credit you on that.

Obi-w00t · April 9, 2007

Very cool script, I just tried it out and it works a treat!

Edit: Sorry to keep editing my post but I just figured out why the script is not working for me, some bits are missing in the code. In IRC.au3 change this:

Func _IRCJoinChannel ($chan)oÝ÷ ÚÚºÚ"µÍ[ÈÒTÒÚ[Ú[[
    ÌÍÚË    ÌÍØÚ[oÝ÷ Ø   Ý{ayìZ^±Êâ¦Û©àzØb±«¢+Ù%ÀÌØíÍQµÁlÅtôÅÕ½ÐíA%9ÅÕ½ÐìQ¡¸}%I
A¥¹ ÀÌØíÍQµÁlÉtoÝ÷ ÚÚºÚ"µÍY   ÌÍÜÕ[ÌWHH  ][ÝÔSÉ][ÝÈ[ÒTÔ[Ê    ÌÍÜÛØÚË  ÌÍÜÕ[ÌJ

After these changes the script responded to pings just fine.

Edited April 9, 2007 by Obi-w00t

McGod · April 10, 2007

:"> Whoops, it was a fast func. I upload a new vers in an hour.

Blackstar · April 10, 2007

;===============================================================================
;
; Description:    Connects you to a IRC Server, and gives your chosen Nick
; Parameter(s):  $server - IRC Server you wish to connect to
;                  $port - Port to connect to (Usually 6667)
;                  $nick - Nick you choose to use (You can change later)
; Requirement(s):   TCPStartup () to be run
; Return Value(s):  On Success - Socket identifer
;                  On Failure - It will exit on error
; Author(s):        Chip
; Note(s):        English only
;
;===============================================================================

Could you please add the Version line in your code so I'll know I have older code and needs to download your updated code? Or even a date. thanks!

mmavipc · April 10, 2007

Good job. But there's one thing you forgot. Ip spoof protection. That is where a server checks for a ip spoofer by sending a ping.

telnet output:

:irc.toontownmovie.com NOTICE AUTH :*** Looking up your hostname...
:irc.toontownmovie.com NOTICE AUTH :*** Couldn't resolve your hostname; using yo
ur IP address instead
NICK lol
PING :907F36E1

to pass the ip spoof test you must reply with: PONG numhere

E.G.

server sends: PING :907F36E1

client must send to pass test: PONG 907F36E1

i edited your _IRCConnect function for you :shocked:

Func _IRCConnect ($server, $port, $nick)
    Local $i = TCPConnect(TCPNameToIP($server), $port)
    If $i = -1 Then Exit MsgBox(1, "IRC.au3 Error", "Server " & $server & " is not responding.")
    TCPSend($i, "NICK " & $nick & @CRLF)
    $ping = tcprecv($i,2048)
    if stringleft($ping,4) = "PING" Then
        $pong = stringreplace($ping,"PING :","")
        tcpsend($i,"PONG " & $pong & @LF)
    EndIf
    TCPSend($i, "USER " & $nick & " 0 0 " & $nick &@CRLF)
    Return $i
EndFunc

Obi-w00t · April 11, 2007

I think that might just be you, mmavipc, I get the following response when using the script:

:irc.toontownmovie.com NOTICE AUTH :*** Looking up your hostname...
:irc.toontownmovie.com NOTICE AUTH :*** Found your hostname
PING :B9F31B30

mmavipc · April 12, 2007

I think that might just be you, mmavipc, I get the following response when using the script:
:irc.toontownmovie.com NOTICE AUTH :*** Looking up your hostname...
:irc.toontownmovie.com NOTICE AUTH :*** Found your hostname
PING :B9F31B30

you still got the ip spoof protection

PING :B9F31B30

Sign In

IRC UDF

Recommended Posts

McGod

Pascal257

McGod

theguy0000

lolp1

theguy0000

Miranda

Pascal257

McGod

theguy0000

lolp1

Pascal257

lolwut

lolwut

Obi-w00t

McGod

Blackstar

mmavipc

Obi-w00t

mmavipc

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta