egghelp/eggheads community

stop continution. [SOLVED]

2006-05-18T18:18:15-04:00

yaaaaaaa! Thanks mate
it worked

Statistics: Posted by iamdeath — Thu May 18, 2006 6:18 pm

stop continution. [SOLVED]

2006-05-17T20:39:25-04:00

I do not think Sir_Fz meant outside of the proc, by "at the end of the ac:bonus_points proc" he meant just before the last closing brace.

Code:

  } }unset baccess($user)}

Statistics: Posted by Alchera — Wed May 17, 2006 8:39 pm

stop continution. [SOLVED]

2006-05-17T18:57:14-04:00

This is what I did:

Code:

proc ac:bonus_points {nick uhost hand arg dest} { global ac baccess notifyusers if {![isbotnick $dest]} {return 0} if {![string equal -nocase X $nick]} {return 0} set user [string tolower [lindex [split $arg] 1]] if {![info exists baccess($user)]} {return 0} foreach {handle reason} $baccess($user) {break} set access [lindex [split $arg] 3] puthelp "PRIVMSG X :MODINFO $ac(chan) ACCESS $user [expr {$access + 5}]" if {$notifyusers != "" && $notifyusers != " "} {  foreach notfuser $notifyusers {   sendnote IDA_SYSTEM $notfuser "Bonus +5 given to $user by $handle in $ac(chan). The reason was: $reason"  } }}unset baccess($user)

The bot crashed after .rehash

Code:

[03:56]  [04:00] can't read "user": no such variable[03:56]      while executing[03:56]  "unset baccess($user)"[03:56]      (file "bonus.tcl" line 37)[03:56]      invoked from within[03:56]  "source bonus.tcl"[03:56]      (file "Cricket.conf" line 251)[03:56]  [04:00] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Statistics: Posted by iamdeath — Wed May 17, 2006 6:57 pm

stop continution. [SOLVED]

2006-05-17T18:55:00-04:00

ok let me try

Statistics: Posted by iamdeath — Wed May 17, 2006 6:55 pm

stop continution. [SOLVED]

2006-05-17T18:53:06-04:00

Add

Code:

unset baccess($user)

at the end of the ac:bonus_points proc.

Statistics: Posted by Sir_Fz — Wed May 17, 2006 6:53 pm

stop continution. [SOLVED]

2006-05-17T18:46:10-04:00

Hi,

I've been posting questons regarding this small script I've created it with the help of you guys, now there is only 1 problem coming up.

The code is:

Code:

set ac(chan) "#channel"set notifyusers "owner"set ac(bot_username) "username"set ac(owner_username) "owner"bind dcc n bonus ac:bonusbind notc - "USER: * ACCESS: *" ac:bonus_pointsproc ac:bonus {hand idx arg} { global ac baccess set arg [split $arg] set username1 [lindex $arg 0] set reason1 [lrange $arg 1 end] if {$username1 == ""} { putdcc $idx "Syntax: .bonus  "; return } if {$username1 == "$ac(bot_username)"} { putdcc $idx "You can't bonus me or I can't modify myself."; return } if {$username1 == "$ac(owner_username)"} { putdcc $idx "Do you think $ac(owner_username) needs modification?, get a life."; return } if {$reason1 == ""} { putdcc $idx "Syntax: .bonus  . You're required to mention reason for bonus."; return } puthelp "PRIVMSG X :ACCESS $ac(chan) $username1" set baccess([string tolower $username1]) [list $hand $reason1]}proc ac:bonus_points {nick uhost hand arg dest} { global ac baccess notifyusers if {![isbotnick $dest]} {return 0} if {![string equal -nocase X $nick]} {return 0} set user [string tolower [lindex [split $arg] 1]] if {![info exists baccess($user)]} {return 0} foreach {handle reason} $baccess($user) {break} set access [lindex [split $arg] 3] puthelp "PRIVMSG X :MODINFO $ac(chan) ACCESS $user [expr {$access + 5}]" if {$notifyusers != "" && $notifyusers != " "} {  foreach notfuser $notifyusers {   sendnote IDA_SYSTEM $notfuser "Bonus +5 given to $user by $handle in $ac(chan). The reason was: $reason"  } }}

Now the thing is, when I type:

.bonus

The bot is increasing/modifying +5 to him BUT whenver bot recieves this message, the bot starts modifying other people too.

Code:

-X- USER: username ACCESS: 123 LU-X- CHANNEL: #channel -- AUTOMODE: OP-X- LAST SEEN: 0 days, 00:07:07 ago.-X- End of access list

So the bot will increase + 5 to " username ".. When the bot should'nt, it should only modify which is given in the partyline. The continuation of this script should stop, is that possible?. Now you must be asking why will the bot get that X notice again and again, well I've another TCL going on, which shows that data to the bot of all the usernames every minute.

I will be grateful to you if you kindly fix / help me out of it.

Thanks.

Statistics: Posted by iamdeath — Wed May 17, 2006 6:46 pm