This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Search found 3735 matches

by caesar
Sat Jul 10, 2021 2:11 pm
Forum: Scripting Help
Topic: Solbu's Slowvoice
Replies: 16
Views: 8415

Was working on another piece of code with arrays and got carried away. :roll: Well that should fix everything.
by caesar
Sat Jul 10, 2021 10:04 am
Forum: Scripting Help
Topic: Solbu's Slowvoice
Replies: 16
Views: 8415

Ah, right. I made some changes in the proc names and forgot to adjust. Anyway, to debug this thing just add:

Code: Select all

putlog "Will voice $nick in $chan channel in $delay seconds"
before or after:

Code: Select all

utimer $delay [list sv:voice $nick $chan] 
and see if that happens after said seconds.
by caesar
Sat Jul 10, 2021 4:49 am
Forum: Scripting Help
Topic: Solbu's Slowvoice
Replies: 16
Views: 8415

set sv(delay) 60:120 set sv(chan) "#chan1 #chan2" bind join - * sv:join bind nick - * sv:nick proc sv:join {nick uhost hand chan} { sv:delay $nick $uhost $hand $chan } proc sv:nick {nick uhost hand chan newnick} { sv:delay $nick $uhost $hand $chan $newnick } proc sv:delay {nick uhost hand...
by caesar
Tue Jun 29, 2021 3:01 am
Forum: Script Requests
Topic: Testing if a IP is valid
Replies: 3
Views: 2826

Here's a better link with Regular Expression Examples . If you don't want to fiddle with regexp and basically reinvent the wheel, then use the ip package that comes with TCLlib that offers some tools to validate ipv4 or ipv6, like: % package require ip 1.4 ::ip::version 192.168.0.1 1 % ::ip::version...
by caesar
Sun Jun 27, 2021 3:45 am
Forum: Scripting Help
Topic: reducing usage of set/variable
Replies: 8
Views: 4160

Most likely cos you are doing a cleanup on $data2, instead of $data.. anyway your variables confuses me so I made it from scratch. proc IP:proc {nick host hand chan text} { variable api if {[scan $text {%s} ip] < 1} return set url "http://api.ipstack.com/$ip?access_key=$api&hostname=1"...
by caesar
Sat Jun 26, 2021 2:58 am
Forum: Scripting Help
Topic: reducing usage of set/variable
Replies: 8
Views: 4160

He said

Code: Select all

set ip($varname) [dict get $data2 $varname]
and you used:

Code: Select all

variable ip($varname) [dict get $data2 $varname] 
To make it less confusing I would replace varname with key, since that's what you are looping over the keys from that dictionary.
by caesar
Fri Jun 18, 2021 10:00 am
Forum: Script Support & Releases
Topic: TLS invalid command
Replies: 4
Views: 5263

Replace:

Code: Select all

http::register https 443 tls:socket
with:

Code: Select all

http::register https 443 [namespace current]::tls:socket
by caesar
Sun Jun 06, 2021 9:11 am
Forum: Script Requests
Topic: whois info
Replies: 12
Views: 4910

Code: Select all

if {[dict get $data status] eq "success" } {
      return $data
   }
this line doesn't make much sense to me. might want to look at it.
by caesar
Wed May 26, 2021 10:26 am
Forum: Script Requests
Topic: enforce bans / kicks on all common channels
Replies: 21
Views: 22859

Right, let's give matchaddr a try then by replacing:

Code: Select all

if {![string match -nocase $ban $n![getchanhost $n $c]]} continue
with:

Code: Select all

if {![matchaddr $ban $n![getchanhost $n $c]]} continue
See if this works and reply back.
by caesar
Wed May 26, 2021 2:18 am
Forum: Script Requests
Topic: enforce bans / kicks on all common channels
Replies: 21
Views: 22859

Ah, there's a space between - and $enforce(max), just remove it in: incr len - $enforce(max) like: incr len -$enforce(max) As for this: looks to be working good caesar is it possible to have it also remove ban on all channels if a ban is removed Add this in the namespace of the other code: bind mode...
by caesar
Wed May 19, 2021 9:18 am
Forum: Script Support & Releases
Topic: tsunami.tcl by caesar
Replies: 6
Views: 4203

Ah, that stuff.. :oops:

That stuff is from my early stages of figuring out stuff and was meant for me to learn new stuff. I'll have a look on this today or tomorrow and get back with an updated code. :)
by caesar
Tue May 18, 2021 2:34 am
Forum: Script Support & Releases
Topic: tsunami.tcl by caesar
Replies: 6
Views: 4203

By me? I don't recall ever making one.
by caesar
Sun May 09, 2021 3:34 am
Forum: Script Requests
Topic: privmsg nickname on a timer
Replies: 14
Views: 6653

That's because it doesn't come from eggdrop's commands, but from tcllib, meaning it doesn't have an implementation to see them.
by caesar
Fri May 07, 2021 10:41 am
Forum: Script Support & Releases
Topic: ChanRelay 4.0 i18n
Replies: 38
Views: 16900

Followed the error to the mc proc and I fail to understand what's is it's purpose. proc mc {text {str ""} args} { return [format $text $str $args] } given that it's use is: if { [::msgcat::mc GREGORIAN_CHANGE_DATE] == "GREGORIAN_CHANGE_DATE"} { ::msgcat::mcset [::msgcat::mclocale...
by caesar
Tue Apr 27, 2021 2:22 am
Forum: Script Requests
Topic: privmsg nickname on a timer
Replies: 14
Views: 6653

Ah, right, i had a feeling a single cron job wouldn't do the job and it actually makes sense.