egghelp/eggheads community

Need Help With A PM Relay Script!

2003-11-09T07:57:54-04:00

### see bottom of script for commands ###

bind msgm - "*" echo:msg
bind ctcp - ACTION echo:act
bind pub n !pmon proc:on
bind pub n !pmoff proc:off
bind pub o !pm proc:smsg
bind pub o !apm proc:sact

### Specify the PM relay channel ###
set chan "#ChannelName"

proc proc:on {nick chan uhost hand arg} {
global status
set status 1
puthelp "notice $nick :PM Relay Enabled!"
}

proc proc:off {nick chan uhost hand arg} {
global status
set status 0
puthelp "notice $nick :PM Relay Disabled!"
}

proc proc:smsg {nick chan uhost hand text} {
global status
if {$status == 1} {
set pmnick [lindex [split $text] 0]
set message [join [lrange [split $text] 1 end]]
putserv "PRIVMSG $pmnick :$message"
if {$message == ""} {
puthelp "notice $nick :To correctly use this feature type: !pm message."
}
}
if {$status == 0} {
puthelp "notice $nick :The PM Relay Function Is Currently Disabled."
}
}

proc echo:msg {nick uhost hand text} {
global chan status
if {$status == 1} {
set line [string trim $text]
putserv "PRIVMSG $chan :\002<$nick>\002 $line"
}
}

proc echo:act {nick uhost hand dest key arg} {
global chan status
if {$status == 1} {
if {$dest == $::botnick} {
set line [split $arg]
putserv "PRIVMSG $chan :\002* $nick\002 $line"
}
}
}

proc proc:sact {nick chan uhost hand text} {
global status
if {$status == 1} {
set pmnick [lindex [split $text] 0]
set message [join [lrange [split $text] 1 end]]
putserv "PRIVMSG $pmnick :\001ACTION $message\001"
if {$message == ""} {
puthelp "notice $nick :To correctly use this feature type: !apm action."
}
}
if {$status == 0} {
puthelp "notice $nick :The PM Relay Function Is Currently Disabled."
}
}

putlog "PM EcHo By DiStUrBeD LoaDeD!"

##############################
# Commands #
##############################
# #
# !pm message #
# sends the given message #
# to the specified nickname #
# #
# !apm action #
# sends the given action #
# to the specified nickname #
# #
# !pmon turns the pm relay #
# function on #
# #
# !pmoff turns the pm relay #
# function off #
# #
##############################

That's the final version of the script i'm using.
Thanks Sir_Fz for all your help.

Statistics: Posted by Guest — Sun Nov 09, 2003 7:57 am

Need Help With A PM Relay Script!

2003-11-09T07:51:10-04:00

Thanks for that, i couldn't seem to find how to use the sample piece of code you provided...but i did manage to get it working correctly after looking at what you supplied, thanks.

Statistics: Posted by Guest — Sun Nov 09, 2003 7:51 am

Need Help With A PM Relay Script!

2003-11-09T06:29:13-04:00

add this to your code, so it will only relay when the messages are in priv.

Code:

if {"[string tolower $dest] == "[string tolower $::botnick]"} {## relay..

Statistics: Posted by Sir_Fz — Sun Nov 09, 2003 6:29 am

Need Help With A PM Relay Script!

2003-11-08T15:47:47-04:00

I just want it to relay actions done to the bot in PM (private message) and not those in the channel.

Please help me with this small complication because i am so close to finishing this (my first tcl script) and would happily release the whole code for other to use.

Thanks in advanced.
Dave

p.s. thanks for the advice: "[lindex [split $text]...] and [join [lrange [split $text].....]" i used this instead of my original code and it now doesn't have strange results when special characters are used.

Statistics: Posted by Guest — Sat Nov 08, 2003 3:47 pm

Cheers

2003-11-08T13:50:46-04:00

Thanks for the reply...

The above piece of script works great... but it relays actions done in the same channel as the bot as well as in PM.

Do you know how i can reslove this?

Thanks in advanced.
Dave

Statistics: Posted by Guest — Sat Nov 08, 2003 1:50 pm

Need Help With A PM Relay Script!

2003-11-08T06:11:56-04:00

Code:

bind ctcp - ACTION echo:actproc echo:act {nick uhost hand dest key arg} {global chan qwerty if {$qwerty == 1} { set line [split $arg] putserv "PRIVMSG $chan :\002<$nick>\002 $line"  } }

this will relay actions.

Just for advise: use [lindex [split $text]...] and [join [lrange [split $text].....] to me more secure, and remove the "return 0" at the end of the script, it has no use.

Statistics: Posted by Sir_Fz — Sat Nov 08, 2003 6:11 am

Need Help With A PM Relay Script!

2003-11-09T08:00:34-04:00

bind msgm - "*" proc:echo
bind pub n !pmon proc:on
bind pub n !pmoff proc:off
bind pub o !pm proc:send

proc proc:on {nick chan uhost hand arg} {
global qwerty
set qwerty 1
puthelp "notice $nick :PM Relay Enabled!"
}

proc proc:off {nick chan uhost hand arg} {
global qwerty
set qwerty 0
puthelp "notice $nick :PM Relay Disabled!"
}

proc proc:send {nick chan uhost hand text} {
global qwerty
if {$qwerty == 1} {
set pmnick [lindex $text 0]
set message [lrange $text 1 end]
if {$message == ""} {
puthelp "notice $nick :To correctly use this feature type: !pm message."
}
putserv "PRIVMSG $pmnick :$message"
}
}

set chan "#Chan"
proc proc:echo {nick uhost hand text} {
global chan qwerty
if {$qwerty == 1} {
set line [string trim $text]
putserv "PRIVMSG $chan :\002<$nick>\002 $line"
}
}
return 0
putlog "pm echo loaded"

This is my first attempt at a PM relay script, i only got my eggdrop a few days ago and am still new to all this tcl scripting, i've done the best i can (which is probably sloppy scripting) and the above seems to work perfectly but i have been trying to implement a process that will relay a persons ACTIONS to channel, but fail miserably everytime.

Please help me.
Thanks in advance.
Dave.

Statistics: Posted by Guest — Fri Nov 07, 2003 10:24 am