egghelp/eggheads community

try this # Requires Tcl 8.5+ and tcllib # To enable you must .chanset #channel +wiki package require http package require htmlparse package require tls http::register https 443 [list tls::socket -tls1 1] namespace eval wiki { variable max_lines 1 variable max_chars 400 variable url "https://en....

I added something else that was missing.------------- bind pubm - * XantiX:repeatchars:text bind ctcp - ACTION repeatcharsctcp proc repeatcharsctcp {nick uhost hand chan keyword arg} { XantiX:repeatchars:text $nick $uhost $hand $chan $arg } proc XantiX:repeatchars:text {nick uhost hand chan text} { ...

try this, tweak a few things but it works bind pubm - * XantiX:repeatchars:text bind ctcp - ACTION repeatcharsctcp proc repeatcharsctcp {nick uhost hand chan keyword arg} { XantiX:repeatchars:text $nick $uhost $hand $chan $arg } proc XantiX:repeatchars:text {nick uhost hand chan text} { if {[isbotni...

thanks crazycat
something is wrong

Please I need help in the repair of this tcl does not generate the requested information bind pub - .ip msg_ipwhois proc msg_ipwhois {nick uhost hand chan text} { global botnick if {$text == "" } {putquick "PRIVMSG $chan :You have to use true command for look up whois information. Com...

Since you are working with scripts, you may be able to do that. Here is an example (not tested), try to understand it. # lines flood set textftrigger 3:4 set repeatwarnmsg1 "stop please" set repeatwarnmsg2 "Final warning.." set warned {} bind ctcp - "ACTION" actionf pr...

can be configured for the spanish version?

use in channel .dict word

try testing your code bind raw - NOTICE serv:connectnick proc serv:connectnick {from key text} { if {[string match *!*@* $from]} { return } if {![regexp -nocase { CONNECT: Client connecting on port (\d+) \(class (\S+)\): ([^!]+)!([^@]+)@(\S+) \(([0-9a-f.:]+)\) \[(.*)\]} $text -> port class nick iden...

hi simo

remove:
catch { unset ::ish($nick) }

and look for this :
killutimer $::ish($nick)

change it to:
unset -nocomplain -- ::is($nick)

apparently the code only works in unrealircd but does not work in inspircd it is possible to use regex to work in both unreal and inspircd versions bind raw - NOTICE serv:connectnick proc serv:connectnick {from key text} { if {[string match *!*@* $from] || ![string match -nocase "*Client connec...

thanks heartbroken, thank you again

Thanks crazycat & Spike^^

the code works fine only that it generates this error Line 1: NOTICE: Found constant " init-server " which is also a variable. bind evnt - init-server evnt:init_server proc evnt:init_server {type} { global botnick putquick "NICKSERV IDENTIFY $::nick your-password" -next putquick ...

Play4free2 weather script http://forum.egghelp.org/viewtopic.php?t=20952&start=30