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 394 matches

Go to advanced search

by ComputerTech
Sun Feb 28, 2021 9:55 am
Forum: Scripting Help
Topic: urltitle grabber
Replies: 11
Views: 6092

Just tested it again, works :lol:

m4s, you sure you have loaded the http.tcl package?

if not

https://core.tcl-lang.org/tcllib/dir?ci ... me=modules
by ComputerTech
Fri Feb 26, 2021 12:46 pm
Forum: Script Requests
Topic: Warn Action
Replies: 30
Views: 15185

You could try my warning code from this post http://forum.egghelp.org/viewtopic.php?t=20917 Allprotection's warning system is more advanced, while mine is much more simple :lol: Code: #Badwords set swearwords { "*bad*" } #Time until reset warnings set brd "30" #max warning set ma...
by ComputerTech
Tue Feb 23, 2021 3:54 pm
Forum: Script Requests
Topic: chanset via msg command
Replies: 5
Views: 2500

bind MSG n|n chanset pub:chanset proc pub:chanset {nick host hand text} { set chan [lindex [split $text] 0] set target [lindex [split $text] 1 end] set value [lassign $target mode] if {![info exists value] || $value eq ""} { catch {channel set $chan $mode} error } else { catch {channel se...
by ComputerTech
Fri Feb 19, 2021 3:21 pm
Forum: Scripting Help
Topic: Amount of Warnings before action option
Replies: 3
Views: 2888

Ok cheers CrazyCat, will do that right away :)
by ComputerTech
Thu Feb 18, 2021 6:16 pm
Forum: Scripting Help
Topic: Amount of Warnings before action option
Replies: 3
Views: 2888

Nevermind :lol: Found a way #Badwords set swearwords { "*[censored]*" "*wank*" "*pussy*" "*[censored]*" } #Time until reset warnings set brd "30" #max warning set maxwarning "5" ###########Code############ setudef flag ctswear bind pubm - *...
by ComputerTech
Thu Feb 18, 2021 5:42 pm
Forum: Scripting Help
Topic: Amount of Warnings before action option
Replies: 3
Views: 2888

Amount of Warnings before action option

So i was wondering how to make it a user can choose how many warnings until kicking #Badwords set swearwords { "*[censored]*" "*wank*" "*pussy*" "*[censored]*" } #Time until reset warnings set brd "30" ###########Code############ setudef flag ctswear...
by ComputerTech
Wed Feb 10, 2021 7:55 pm
Forum: Scripting Help
Topic: Setting $chan when not a arg
Replies: 18
Views: 9275

well maybe i could do

Code: Select all

unset pingchan($nick)

I'll try come up with more ideas myself while you're sleeping. 8)
by ComputerTech
Wed Feb 10, 2021 5:25 pm
Forum: Scripting Help
Topic: Setting $chan when not a arg
Replies: 18
Views: 9275

got a working version which does the job :D # Start Of Configuration # ########################## #Set trigger of the Command. set ctping(trig) "@" ################## #Set flag for Commands. ## #Owner = n #Master = m #Op = o #Voice = v #Friend = f #Everyone = - set ctping(flag) "-|-&q...
by ComputerTech
Wed Feb 10, 2021 4:49 am
Forum: Script Requests
Topic: !join
Replies: 4
Views: 2552

Try above edited code, sinple typo :wink:
by ComputerTech
Tue Feb 09, 2021 2:47 pm
Forum: Scripting Help
Topic: Setting $chan when not a arg
Replies: 18
Views: 9275

Oh i see CrazyCat, Thank You for the idea :D
by ComputerTech
Tue Feb 09, 2021 5:45 am
Forum: Script Requests
Topic: !join
Replies: 4
Views: 2552

Code: Select all

bind pub - "!join" join:chan

proc join:chan {nick host hand chan text} {
set c [lindex [split $text] 0] 
channel add $c
putserv "NOTICE $nick :Joining $c"
}
Not tested


EDIT fixed typo
by ComputerTech
Tue Feb 09, 2021 5:42 am
Forum: Scripting Help
Topic: Setting $chan when not a arg
Replies: 18
Views: 9275

Meh, i'll post my entire script and not bother creating examples heh bind pub $ctping(flag) $ctping(trig)ping ct:pub:ping bind ctcr - PING ct:pingr set pingchan "" proc pub:ping {nick host hand chan text} { global pingchan pingwho set pingwho [lindex [split $text] 0] if {$pingwho == "...
by ComputerTech
Tue Feb 09, 2021 1:53 am
Forum: Scripting Help
Topic: Setting $chan when not a arg
Replies: 18
Views: 9275

So i figured it out myself, and thought i could share what i wanted and hopefully help others :) bind pub "!test1" test:one proc test:one {nick host hand chan text} { set pingchan $chan putserv "PRIVMSG $pingchan :Blah" } bind pub "test2" test:two proc test:two {nick ho...
by ComputerTech
Mon Feb 08, 2021 4:27 am
Forum: Scripting Help
Topic: Setting $chan when not a arg
Replies: 18
Views: 9275

Setting $chan when not a arg

So say i am needing $chan and its not in the proc's args how would i set it? :lol: like say when usind bind msg. proc name {nick host hand text} { and not to just set a channel via script like set chan "#channel" i mean the current channel arg :roll: Thanks in advanced EDIT Havent tested y...
by ComputerTech
Sat Jan 30, 2021 8:02 pm
Forum: Scripting Help
Topic: Karma.tcl
Replies: 6
Views: 4491

Basically if -0. it will show -1 and not just keep 0 as the lowest number, so if - rhat will fall into the hated category and if above -0 it will be on the love side :lol: All new nicks will start off with 0 neither + or - Example !love nick will make it +1 !hate nick will make it -1 hope that makes...

Go to advanced search