egghelp/eggheads community

helloo can i find help with this tcl, :P

2005-04-30T14:43:09-04:00

That's because modemr is already set as a variable, you either need to change it's name or just restart.

thanks guys its working know, and good work

Statistics: Posted by Bader — Sat Apr 30, 2005 2:43 pm

helloo can i find help with this tcl, :P

2005-04-30T11:30:20-04:00

That's because modemr is already set as a variable, you either need to change it's name or just restart.

Statistics: Posted by Sir_Fz — Sat Apr 30, 2005 11:30 am

helloo can i find help with this tcl, :P

2005-04-30T10:59:50-04:00

Code:

bind join -|- * whateverproc whatever {nick host hand chan} {global modemrif {[matchban $nick!$host $chan] && ![info exists modemr($chan)]} {putquick "MODE $chan +MR"set modemr($chan) "1"utimer 10 [list puthelp "MODE $chan -MR"]utimer 11 [list unset modemr($chan)]   }}

$::modemr != $modemr if you don't define it globally

[10:58] Tcl error [whatever]: can't set "modemr(#kw)": variable isn't array

Statistics: Posted by Bader — Sat Apr 30, 2005 10:59 am

helloo can i find help with this tcl, :P

2005-04-30T10:14:49-04:00

Code:

bind join -|- * whateverproc whatever {nick host hand chan} {global modemrif {[matchban $nick!$host $chan] && ![info exists modemr($chan)]} {putquick "MODE $chan +MR"set modemr($chan) "1"utimer 10 [list puthelp "MODE $chan -MR"]utimer 11 [list unset modemr($chan)]   }}

$::modemr != $modemr if you don't define it globally

Statistics: Posted by avilon — Sat Apr 30, 2005 10:14 am

helloo can i find help with this tcl, :P

2005-04-30T09:54:26-04:00

That should not be possible. Did you rehash your bot after making the code changes? If it still does it on a rehash try restarting it completely just to save our sanity

Statistics: Posted by ^DooM^ — Sat Apr 30, 2005 9:54 am

helloo can i find help with this tcl, :P

2005-04-30T09:45:47-04:00

utimer 11 set modemr 0
you might want to change that to
Code:
utimer 11 "set modemr 0"
the bot he still close channel mode more tnan 2 i want to close it once only

i change and test it bot he still

Code:

bind join -|- * whatever set modemr 0 proc whatever {nick host hand chan} {    if {[matchban $nick!$host $chan] && $::modemr == 0} {       putquick "MODE $chan +MR"       set modemr 1       utimer 10 [list puthelp "MODE $chan -MR"]       utimer 11 "set modemr 0"   } }---see thats itsand he  still close channel mode more tnan 2 i want to close it once only(Sat)(04،41،pm) -> [Reema] CHAT(Sat)(04،42،pm) * Joins: ffffff (Kw@62.150.203.141)(Sat)(04،42،pm) * Reema sets mode: +MR(Sat)(04،42،pm) * Reema sets mode: +MR(Sat)(04،42،pm) * Reema sets mode: +MR(Sat)(04،42،pm) * Reema sets mode: +b *!*Kw@62.150.*------

Statistics: Posted by Bader — Sat Apr 30, 2005 9:45 am

helloo can i find help with this tcl, :P

2005-04-30T09:43:05-04:00

utimer 11 set modemr 0
you might want to change that to
Code:
utimer 11 "set modemr 0"

the bot he still close channel mode more tnan 2 i want to close it once only

Statistics: Posted by Bader — Sat Apr 30, 2005 9:43 am

helloo can i find help with this tcl, :P

2005-04-30T09:33:13-04:00

utimer 11 set modemr 0

you might want to change that to

Code:

utimer 11 "set modemr 0"

Statistics: Posted by Sir_Fz — Sat Apr 30, 2005 9:33 am

helloo can i find help with this tcl, :P

2005-04-30T09:40:51-04:00

That script shouldn't do that. the only thing i can think of is if more than 1 user on channel matches the ban. try this

Code:

bind join -|- * whateverset modemr 0proc whatever {nick host hand chan} {   if {[matchban $nick!$host $chan] && $::modemr == 0} {      putquick "MODE $chan +MR"      set modemr 1      utimer 10 [list puthelp "MODE $chan -MR"]      utimer 11 "set modemr 0"   }}

not tested

Edit: oops forgot the quotes thanks sir_fz

Statistics: Posted by ^DooM^ — Sat Apr 30, 2005 9:16 am

helloo can i find help with this tcl, :P

2005-04-30T08:19:17-04:00

Code:
bind join -|- * whatever proc whatever {nick host hand chan} {    if {[matchban $nick!$host $chan]} {       putquick "MODE $chan +MR"       utimer 10 [list puthelp "MODE $chan -MR"]   } }
Use this and don't change anything (i.e. leave * as it is) and it should set the channel MR if the user is in the bot's channel banlist.

ok i test it but there some prb see plz

(Sat)(03،04،pm) * Joins: ffffff (Kw@62.150.203.141)
(Sat)(03،04،pm) * Reema sets mode: +MR
(Sat)(03،04،pm) * Reema sets mode: +MR
(Sat)(03،04،pm) * Reema sets mode: +MR
(Sat)(03،04،pm) * Reema sets mode: +b *!*Kw@62.150.*
the bot close channel mode more tnan 2 i want to close it once only

Statistics: Posted by Bader — Sat Apr 30, 2005 8:19 am

helloo can i find help with this tcl, :P

2005-04-29T21:13:32-04:00

Code:

bind join -|- * whatever proc whatever {nick host hand chan} {    if {[matchban $nick!$host $chan]} {       putquick "MODE $chan +MR"       utimer 10 [list puthelp "MODE $chan -MR"]   } }

Use this and don't change anything (i.e. leave * as it is) and it should set the channel MR if the user is in the bot's channel banlist.

Statistics: Posted by Sir_Fz — Fri Apr 29, 2005 9:13 pm

helloo can i find help with this tcl, :P

2005-04-29T19:22:16-04:00

just a typo..
Replace

Code:

utimer 10 [list puthelp "MODE $chan -MR"}

with

Code:

utimer 10 [list puthelp "MODE $chan -MR"]

dosn`t working

see

bind join -|- *!*@62.150.* whatever
proc whatever {nick host hand chan} {
if {[matchban $nick!$host]} {
putquick "MODE $chan +MR"
utimer 10 [list puthelp "MODE $chan -MR"]
}
}

-----

(Sat)(02،19،am) * Shjon sets mode: +v ffffff
(Sat)(02،20،am) * Parts: +ffffff (Kw@62.150.203.141)
(Sat)(02،20،am) * Joins: ffffff (Kw@62.150.203.141)

Statistics: Posted by Bader — Fri Apr 29, 2005 7:22 pm

helloo can i find help with this tcl, :P

2005-04-29T18:02:44-04:00

just a typo..
Replace

Code:

utimer 10 [list puthelp "MODE $chan -MR"}

with

Code:

utimer 10 [list puthelp "MODE $chan -MR"]

Statistics: Posted by avilon — Fri Apr 29, 2005 6:02 pm

dosn`t working :(

2005-04-29T16:02:02-04:00

bind join -|- "*!*@*.verizon-gni.com" whatever
proc whatever {nick host hand chan} {
if {[matchban $nick!$host]} {
putquick "MODE $chan +MR"
utimer 10 [list puthelp "MODE $chan -MR"}
}
}

[16:00] Tcl error in file 'eggdrop.conf':
[16:00] invalid command name "}"
while executing
"} "
(file "scripts/test.tcl" line 7)
invoked from within
"source scripts/test.tcl"
(file "eggdrop.conf" line 1223)
[16:00] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Statistics: Posted by Bader — Fri Apr 29, 2005 4:02 pm

helloo can i find help with this tcl, :P

2005-04-29T14:29:17-04:00

thanks

Statistics: Posted by Bader — Fri Apr 29, 2005 2:29 pm