egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2005-07-30T11:09:44-04:00 https://forum.eggheads.org/app.php/feed/topic/10179 2005-07-30T11:09:44-04:00 2005-07-30T11:09:44-04:00 https://forum.eggheads.org/viewtopic.php?p=53535#p53535 <![CDATA[Blowfish decrypt]]>
with
putserv "PRIVMSG $chan :arg = $arg"
its ok but the bot no reply, example:
set key "keytest"

bind pub - !test pub:test
bind pub - "#test *" decryptall

proc pub:test { nick uhost handle channel arg } {
putquick "PRIVMSG $channel :HELLO"
}

proc decryptall { nick uhost handle chan arg } {
global key
set arg [decrypt $key [string range $arg 4 9999]]
putserv "PRIVMSG $chan :arg = $arg"
}
but i f i wrote !test, the bot dont reply "HELLO" :roll:
bot's own output doesn't get echoed back to it (only to other channel members, not to message originator), so the bind doesn't get triggered; you cannot test your scripts this way

Statistics: Posted by demond — Sat Jul 30, 2005 11:09 am

]]> 2005-07-30T08:37:06-04:00 2005-07-30T08:37:06-04:00 https://forum.eggheads.org/viewtopic.php?p=53527#p53527 <![CDATA[Blowfish decrypt]]>
set proc [pub:test $nick $uhost $handle $channel [string range $arg 0 9999]]



Thanks

Statistics: Posted by RaZ — Sat Jul 30, 2005 8:37 am

]]> 2005-07-30T05:31:01-04:00 2005-07-30T05:31:01-04:00 https://forum.eggheads.org/viewtopic.php?p=53525#p53525 <![CDATA[Blowfish decrypt]]>
putserv "PRIVMSG $chan :arg = $arg"
its ok but the bot no reply, example:
set key "keytest"

bind pub - !test pub:test
bind pub - "#test *" decryptall

proc pub:test { nick uhost handle channel arg } {
putquick "PRIVMSG $channel :HELLO"
}

proc decryptall { nick uhost handle chan arg } {
global key
set arg [decrypt $key [string range $arg 4 9999]]
putserv "PRIVMSG $chan :arg = $arg"
}
but i f i wrote !test, the bot dont reply "HELLO" :roll:

Statistics: Posted by RaZ — Sat Jul 30, 2005 5:31 am

]]> 2005-07-30T02:55:09-04:00 2005-07-30T02:55:09-04:00 https://forum.eggheads.org/viewtopic.php?p=53521#p53521 <![CDATA[Blowfish decrypt]]>

Code: 

putserv "PRIVMSG $chan :arg = $arg"
You obviously didn't read the posted code correctly. There's no mention of [eval]. Replace that line with the one above.

Statistics: Posted by Alchera — Sat Jul 30, 2005 2:55 am

]]> 2005-07-29T22:12:43-04:00 2005-07-29T22:12:43-04:00 https://forum.eggheads.org/viewtopic.php?p=53502#p53502 <![CDATA[Blowfish decrypt]]>
you are confused with Tcl syntax, square brackets mean command substitution, and $nick is not a Tcl command

Statistics: Posted by demond — Fri Jul 29, 2005 10:12 pm

]]> 2005-07-29T21:07:15-04:00 2005-07-29T21:07:15-04:00 https://forum.eggheads.org/viewtopic.php?p=53500#p53500 <![CDATA[Blowfish decrypt]]>
I've use this to decrypt http://forum.egghelp.org/viewtopic.php?t=4269 but my bot no responding in channel with this code:
set key "keytest"
bind pub - "#test *" decryptall

proc decryptall { nick uhost handle chan arg } {
global key
set arg [decrypt $key [string range $arg 4 9999]]
eval [$nick $uhost $handle $chan $arg]
}
Please, help me, i'm noobie :oops:

Statistics: Posted by RaZ — Fri Jul 29, 2005 9:07 pm

]]>