egghelp/eggheads community

noreg script

2008-01-22T13:45:37-04:00

oh, sry guys, i found my problem...the script is ok, the problem was from another tcl

anyway, tnx

Statistics: Posted by aNormaLu — Tue Jan 22, 2008 1:45 pm

noreg script

2008-01-22T08:17:27-04:00

fix for your problem:

in a&a_01_a_core.tcl replace:

Code:

if {![botonchan $chan] && ![string match {|[suU]} [a:command -level $comm]] && ![regexp -nocase -{^purge|comeback|templeave|xremuser|xban|xkick|stats|chaninfo|chanset|suspend|admins|list)$} $comm]} {

with

Code:

if {![botonchan $chan] && ![string match {|[suU]} [a:command -level $comm]] && ![regexp -nocase -{^purge|comeback|templeave|xremuser|xban|xkick|stats|chaninfo|chanset|suspend|admins|list|delnoreg)$} $comm]} {

this should fix the problem

Statistics: Posted by arcADE — Tue Jan 22, 2008 8:17 am

noreg script

2008-01-21T12:38:52-04:00

well...i think arcade doesn't have time for TCL ...

Alchera ..or someone , please help me

Statistics: Posted by aNormaLu — Mon Jan 21, 2008 12:38 pm

noreg script

2008-01-08T04:46:17-04:00

yeah I didn't read the botlending forum for some time and it automaticaly got marked as read

Statistics: Posted by arcADE — Tue Jan 08, 2008 4:46 am

noreg script

2008-01-07T10:45:09-04:00

ok arcade, am postat si pe forumu botlending acu cva luni si nu am primit rasp. , de aia am postat aici...ms

Alchera tnx for your help.

Statistics: Posted by aNormaLu — Mon Jan 07, 2008 10:45 am

noreg script

2008-01-07T02:10:34-04:00

I'll rewrite it these days if I have time. And no, I'm not retired, but I do not have enough free times these days.

Statistics: Posted by arcADE — Mon Jan 07, 2008 2:10 am

noreg script

2008-01-02T05:29:54-04:00

i did....but arcade is retired i think...

could you just...help me please.. ?:-s

Statistics: Posted by aNormaLu — Wed Jan 02, 2008 5:29 am

noreg script

2008-01-01T19:07:03-04:00

Have you made any attempt at contacting the author?

If not, do so.

Statistics: Posted by Alchera — Tue Jan 01, 2008 7:07 pm

noreg script

2008-01-01T10:26:51-04:00

ohh.... well, lsn says to change that....

anyway..... I changed again in

Code:

} elseif {![string equal $comm join] && ![string equal $comm stats]} {

and....is the same ..still doesn't work !delnoreg ....

Statistics: Posted by aNormaLu — Tue Jan 01, 2008 10:26 am

noreg script

2007-12-31T19:18:16-04:00

Did the original script work before you screwed with it?
this is the original script...but doesn't work and I don't know who to repair it...

You stated clearly you changed it:

and in core, a:parser i change:

Statistics: Posted by Alchera — Mon Dec 31, 2007 7:18 pm

noreg script

2007-12-31T06:24:59-04:00

Did the original script work before you screwed with it?

this is the original script...but doesn't work and I don't know who to repair it...

Statistics: Posted by aNormaLu — Mon Dec 31, 2007 6:24 am

noreg script

2007-12-30T18:17:39-04:00

Did the original script work before you screwed with it?

Statistics: Posted by Alchera — Sun Dec 30, 2007 6:17 pm

noreg script

2007-12-30T11:08:49-04:00

hello, i've got a noreg script made by arcade (helped by lsn) but doesn't work !delnoreg...

Code:

a:command -add noreg pub:noreg 1140 622 na:command -add delnoreg pub:delnoreg 1141 623 nbind bot B noreg botnet:noregproc botnet:noreg {bot cmd arg} {global noregset cmd [lindex [split $arg] 0]set chan [lindex [split $arg] 1]set info [join [lrange $arg 2 end]] switch -exact -- $cmd {-add {set noreg($chan) $info}-del {if {[info exists noreg($chan)]} {unset noreg($chan)}}}}proc pub:noreg {hand chan args x mix} {global noreg settings noregtimeaddset chan [string tolower $chan] if {![isdynamic $chan]} { a:tell $x 129 $chan; return "FAILED: static chan ($chan)"} set time [a:validate -digit [lindex $args 0]]if {$time} {set reason [lrange $args 1 end]} {set time 30; set reason [lrange $args 0 end]}set noregtime [expr $time * 86400]set noregtimeadd [expr $noregtime + [unixtime]] set noreg($chan) "$noregtimeadd [unixtime] $hand $reason" putallbots "noreg -add $chan $noregtimeadd [unixtime] $hand $reason"putquick "part $chan :channel noregED by $hand, for [duration $noregtime] reason: $reason; for any help apply on $settings(suppchan) & $settings(homepage)" a:announce -home 17 "$hand added to noreg $chan for [duration $noregtime] time."if {[validchan $chan]} {::stats::channel -set $chan purgetime [unixtime]::stats::channel -set $chan purgewhom $hand::stats::channel -set $chan purgewhy "noreged - $reason" channel remove $chan save}}proc pub:delnoreg {hand chan args x mix} {global noregif {![info exists noreg($chan)] } {return 0} { unset noreg($chan) }putallbots "noreg -del $chan" a:announce -home 17 "$hand removed from noreg $chan"savereturn "$chan" }bind time - "00 00 * * *"  timer:24proc timer:24 {global noreg;  foreach chan [array names noreg] {if {[lindex $noreg($chan) 0] < [unixtime]} {unset noreg($chan); puthelp "PRIVMSG $settings(homechan) :Noreg for $chan has expired."}}}

and in core, a:parser i change:

Code:

} elseif {![string equal $comm join] && ![string equal $comm stats]} {

with:

Code:

} elseif {![string equal $comm join] && ![string equal $comm stats] && ![string equal $comm delnoreg]} {

....now, !noreg #chan works , but !delnoreg NOT

Code:

FAILED: you specified an invalid channel (#......), for any help apply on #.....

this is what the bot says when i type !delnoreg #chan ...

little help here pls... ?:(

Statistics: Posted by aNormaLu — Sun Dec 30, 2007 11:08 am