egghelp/eggheads community

modification

2006-01-01T14:09:13-04:00

demond : Well pointed! I got to admit that this stuff got annoyng. You know what I'm talking about.

Thread closed.

Statistics: Posted by caesar — Sun Jan 01, 2006 2:09 pm

modification

2006-01-01T13:25:53-04:00

MeTroiD wrote:

Really, you need to stop doing that demond

I think Demond and Sir_Fz ' are the great coders, their scripts are the best and bug free plus vast majority of users need these type of scripts so i think nothing wrong to tell the users to use these scripts. Also both of them are active @ this forum helping users and they know their problems very well so i think it's good to tell the person to use these 2 scripts so they can get the best scripts plus it will save their time as well and if they've any issue they can talk to them here.

Statistics: Posted by mm — Sun Jan 01, 2006 1:25 pm

modification

2006-01-01T06:06:49-04:00

Some scripts are just totally useless under these circumstances.

right

and they are intended to be that way, at least my scripts; as you know, I firmly believe that almost anyone should be able to fix their DCC, I bothered to elaborate on the subject over and over and over again and I'd do that again - we should educate users how to use eggdrop the way it was meant to be used, not to endorse scripts enabling any lamer out there to run eggdrop without having the slightest clue about its inner workings, or at least the console (note that I'm not denying public commands in general; they have great entertainment value, and they should stay that way - leave control functions to the console)

the only valid excuse for not being able to dcc is when both the user and the bot are behind firewalls not allowing listening ports; however, such situation simply doesn't happen in the vast majority of (legitimate) eggdrop use cases - there is no shell provider who would deny you listening port, and your ISP won't do that either; actually, the only scenario I could see that happening in is when you run eggdrop from hacked account on internal corporate machine, which you shouldn't do anyway

so essentially what I'm saying is that virtually any total inability to use DCC is due to lameness or/and laziness, and I'm not on these forums to encourage either

Statistics: Posted by demond — Sun Jan 01, 2006 6:06 am

modification

2005-12-31T23:02:58-04:00

well, my philosophy is that an eggdrop bot should never be controlled via public commands, mainly for security reasons

... and for reasons beyond the control of many users they are unable to enter the command console which is why public commands are preferred.

Some scripts are just totally useless under these circumstances.

Statistics: Posted by Alchera — Sat Dec 31, 2005 11:02 pm

modification

2005-12-31T13:15:22-04:00

I told you (or did I?) to use xchannel, it does exactly what you need and I'd bet it does it better
the script it good but how activated desactivé directly on chan by !chanset #yourchan +x:repeat for expl

thx

well, my philosophy is that an eggdrop bot should never be controlled via public commands, mainly for security reasons

therefore, xchannel is controlled (configured, to be precise) via DCC command .chanset only

Statistics: Posted by demond — Sat Dec 31, 2005 1:15 pm

modification

2005-12-31T13:07:08-04:00

Really, you need to stop doing that demond

what's your problem exactly?

if you had better badwords script, I wouldn't hesitate to recommend yours over mine

Statistics: Posted by demond — Sat Dec 31, 2005 1:07 pm

modification

2005-12-31T12:17:42-04:00

I told you (or did I?) to use xchannel, it does exactly what you need and I'd bet it does it better

the script it good but how activated desactivé directly on chan by !chanset #yourchan +x:repeat for expl

thx

Statistics: Posted by pilouuu — Sat Dec 31, 2005 12:17 pm

modification

2005-12-31T05:55:37-04:00

Really, you need to stop doing that demond

Statistics: Posted by metroid — Sat Dec 31, 2005 5:55 am

modification

2005-12-31T00:13:33-04:00

I told you (or did I?) to use xchannel, it does exactly what you need and I'd bet it does it better

Statistics: Posted by demond — Sat Dec 31, 2005 12:13 am

modification

2005-12-30T23:33:29-04:00

Please how to replace the dcc by cmd on the chan

expl: !badwords or $badwords the bot say notice
bot notice lists global badwords etc etc ( all cmd)

And instead of kick or kickban -------> 1 bad word to inform (warning!!!) repeat bad word kick et 3 repeat banned 2 mns

thx for help

Code:

#badwords.tcl#by Elven # LEGAL DISCLAIMER:#  THIS SCRIPT IS UNDER THE GPL LICENCE.#   For more information see the accompanying gpl.txt##################### Quick Start:# .badwords                 - lists global badwords# .badwords #channel        - lists channel badwords# .badwords all             - lists all badwords# .+badword         - adds global badword# .+badword #channel    - adds channel badword# .-badword             - removes global badword (see .badwords for id)# .-badword #channel    - go figure## .chanset #channel +badwords - enable badword protection for this channel##################### configurationset badword(cflag) "m|m"#what flags are needed to edit badwords? (global|channel)set badword(flag) "of|of"#users not affected by badword scanset badword(reaction) 1# 0 - kick# 1 - kickbanset badword(banmsg) {"Badword."}#reason/comment on banset badword(bantime) 10#ban time in minutesset badword(savefile) "$datapath/badwords"#file format:# =channelname/-globals# ~badword# ~badword# =anotherchannel# ~badword# ...set badword(quietsave) 1#dont log 'Saved on automatic save.'##################### code belowsetudef flag badwordsbind dcc "-" "+badword" badword:addbind dcc "-" "-badword" badword:delbind dcc "-" "badwords" badword:listbind dcc "-" "badword" badword:listbind evnt "-" "save" badword:savebind evnt "-" "loaded" badword:loadbind pubm "-" "*" badword:msgproc badword:add {h i t} {global badword badwordsset lst [split $t]set chn [join [lindex $lst 0]]set chn [string tolower $chn]if {[llength $lst] == 0} {putidx $i "\002Syntax:\002 +badword \[#channel\] "putidx $i "  Adds a channel or (if channel is ommited) global badword."return 0}if {[regexp {^#.+$} $chn]} {if {![matchattr $h $badword(cflag) $chn]} {putidx $i "Only channel masters and above can add channel badwords."return 1}set bword [join [lrange $lst 1 end]]if {[string trim $bword] == ""} { putidx $i "Please specify a badword to add." ; return 0 }if {![info exists badwords($chn)]} {set badwords($chn) [list $bword]} {lappend badwords($chn) $bword}putidx $i "Added $bword as $chn channel badword."} {if {![matchattr $h $badword(cflag)]} {putidx $i "Only global masters and above can add global badwords."return 1}set bword [join $lst]if {[string trim $lst] == ""} { putidx $i "Please specify a badword to add." ; return 0 }set chn "-global"lappend badwords($chn) $bwordputidx $i "Added $bword as global badword."}return 1}proc badword:del {h i t} {global badword badwordsset lst [split $t]set chn [join [lindex $lst 0]]set chn [string tolower $chn]if {[llength $lst] == 0} {putidx $i "\002Syntax:\002 -badword \[#channel\] "putidx $i "  Removes a channel or (if channel is ommited) global badword. Number specifies the item in .badwords"return 0}if {[regexp {^#.+$} $chn]} {if {![matchattr $h $badword(cflag) $chn]} {putidx $i "Only channel masters and above can delete channel badwords."return 1}set id [join [lindex $lst 1]]} {if {![matchattr $h $badword(cflag)]} {putidx $i "Only global masters and above can delete global badwords."return 1}set id [join [lindex $lst 0]]set chn "-global"}set bwo [lindex $badwords($chn) $id]if {$bwo == ""} {putidx $i "Invalid ID."return 1}set badwords($chn) [lreplace $badwords($chn) $id $id]if {$chn=="-global"} {putidx $i "Removed global badword $bwo."} {putidx $i "Removed channel badword $bwo on $chn."}return 1}proc badword:list {h i t} {global badword badwordsset lst [split $t]set chn [join [lindex $lst 0]]set chn [string tolower $chn]if {$chn == ""} {if {![matchattr $h $badword(cflag)]} {putidx $i "Only global masters and above can list global badwords."return 1}if {[info exists badwords(-global)]} {if {[llength $badwords(-global)]==0} {putidx $i "No global badwords."} {putidx $i "Global badwords:"set l 0foreach x $badwords(-global) {putidx $i "$l: $x"incr l}putidx $i "End of list."}} {putidx $i "No global badwords."}return 1} elseif {$chn == "all"} {if {![matchattr $h $badword(cflag)]} {putidx $i "Only global masters and above can list all badwords."return 1}foreach x [array names badwords] {if {[llength $badwords($x)]==0} { continue }if {$x == "-global"} {putidx $i "\002Global\002 Badwords"} {putidx $i "Badwords for channel \002$x\002"}set l 0foreach y $badwords($x) {putidx $i "  $l: $y"incr l}}putidx $i "End of list."return 1} elseif {$chn == "save"} {if {![matchattr $h $badword(cflag)]} {putidx $i "Only global masters and above can save badwords."return 1}badword:save "noautosave"} elseif {$chn == "load"} {if {![matchattr $h $badword(cflag)]} {putidx $i "Only global masters and above can load badwords."return 1}badword:load "noautoloaded"} elseif {[regexp {^#.+$} $chn]} {if {![matchattr $h $badword(cflag) $chn]} {putidx $i "Only channel masters and above can list channel badwords."return 1}if {[info exists badwords($chn)]} {if {[llength $badwords($chn)]==0} {putidx $i "No badwords for channel $chn."} {putidx $i "$chn badwords:"set l 0foreach x $badwords($chn) {putidx $i "$l: $x"incr l}putidx $i "End of list."}} {putidx $i "No badwords for channel $chn."}#ist channel badwordsreturn 1} else {putidx $i "\002Syntax:\002 : badwords \[save|load|all|#channel\]"return 0}}proc badword:save {t} {global badword badwordsset f [open $badword(savefile) w]foreach x [array names badwords] {if {[llength $badwords($x)]==0} { continue }puts $f "=$x"foreach y $badwords($x) {puts $f "~$y"}}close $fif {$t != "save"} {if {!$badword(quietsave)} { putlog "Saved badwords." }}}proc badword:load {t} {global badword badwordscatch { unset badwords }set f [open $badword(savefile) r]set curr "--"while {![eof $f]} {set ln [gets $f]if {![regexp "^(\[=~\])(.+)$" $ln uun t r]} { continue }if {$t == "="} {set curr $r} {if {![info exists badwords($curr)]} {set badwords($curr) [list $r]} {lappend badwords($curr) $r}}}close $fputlog "Loaded badwords."}proc badword:msg {n u h c t} {global badwords badwordset c [string tolower $c]set hit 0if {![channel get $c badwords]} { return 0 }if {[isop $n $c]} { if {[channel get $c dontkickops]} { return 0 } }if {[matchattr $h $badword(flag) $c]} { return 0 }if {[info exists badwords(-global)]} {foreach x $badwords(-global) {if {[string trim $x] == ""} { continue }if {[regexp -nocase $x $t]} { set hit 1 ; break }}}if {!$hit && [info exists badwords($c)]} {foreach x $badwords($c) {if {[string trim $x] == ""} { continue }if {[regexp -nocase $x $t]} { set hit 1 ; break }}}if {$hit} {if {$badword(reaction) == 1} {newchanban $c [maskhost $u] "badwords" [join [lindex $badword(banmsg) [rand [llength $badword(banmsg)]]]] $badword(bantime)} {putserv "KICK $c $n :$badword(banmsg)"}}}putlog "Badwords by Elven loaded."

Statistics: Posted by pilouuu — Fri Dec 30, 2005 11:33 pm