egghelp/eggheads community

variable not found.

2006-05-09T06:03:54-04:00

That work, thanks alot
Thanks once again.

Statistics: Posted by iamdeath — Tue May 09, 2006 6:03 am

variable not found.

2006-05-08T19:36:45-04:00

What I mean is something like this:

Code:

set ac(chan) "#channel"set notifyusers "owner"set ac(bot_username) "botusername"set ac(owner_username) "ownerusername"bind dcc n bonus ac:bonusbind notc - "USER: * ACCESS: *" ac:bonus_pointsproc ac:bonus {hand idx arg} { global ac baccess set text [split $text] set username1 [lindex $text 0] set reason1 [lrange $text 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"  } }}

Note that baccess is being used as an array here, so you might want to .restart after loading this (or .tcl unset baccess before loading).

Statistics: Posted by Sir_Fz — Mon May 08, 2006 7:36 pm

variable not found.

2006-05-08T05:58:47-04:00

Code:

set baccess ""

This works fine, do you think that's right?

Statistics: Posted by iamdeath — Mon May 08, 2006 5:58 am

variable not found.

2006-05-07T17:25:20-04:00

What you need to do, iamdeath, is issue the service command when the dcc command is triggered. Then, you wait for the notice and perform the needed action. Ofcourse you will need a variable which will contain the needed info for the notc proc to process it.

Statistics: Posted by Sir_Fz — Sun May 07, 2006 5:25 pm

variable not found.

2006-05-07T17:04:12-04:00

I did;nt get your point, sorry ;/

Statistics: Posted by iamdeath — Sun May 07, 2006 5:04 pm

variable not found.

2006-05-07T15:04:15-04:00

well, how do you know whos baccess is in the var anyway? the expr expression is calculated before the access request leaves your bot, so there will of course be no reply yet either. You must include this calculation within the proc which handles the feedbacks. you should then of course also read whos feedback you are getting and, if you actually wanted to modify it (you never know when someone might make your bot to recieve a reply).

Statistics: Posted by De Kus — Sun May 07, 2006 3:04 pm

variable not found.

2006-05-07T14:07:00-04:00

Did'nt work actually, the actuall access of tht person was 300 so the bot was supposed to add 5 but the bot makes it "5" the whole removed 300

Statistics: Posted by iamdeath — Sun May 07, 2006 2:07 pm

variable not found.

2006-05-07T11:13:09-04:00

Code:

set ac(chan) "#channel"set notifyusers "owner"set ac(bot_username) "botusername"set ac(owner_username) "ownerusername"set baccess 0 ;# initialized baccess to 0

Statistics: Posted by Sir_Fz — Sun May 07, 2006 11:13 am

variable not found.

2006-05-07T09:47:13-04:00

could you please give me an idea how could I do that?
Thanks

Statistics: Posted by iamdeath — Sun May 07, 2006 9:47 am

variable not found.

2006-05-07T08:59:01-04:00

In your code, baccess is set only when the bot recieves a notice. What you need to do is initialize to some number (probably 0) outside the procs.

Statistics: Posted by Sir_Fz — Sun May 07, 2006 8:59 am

variable not found.

2006-05-07T14:24:54-04:00

I am trying to write a small DCC code, in which I will type
.bonus username reason
That will add +5 of the current access of a username in X (Undernet)

Code:

set ac(chan) "#channel"set notifyusers "owner"set ac(bot_username) "botusername"set ac(owner_username) "ownerusername"bind notc - "USER: * ACCESS: *" ac:bonus_pointsbind dcc n bonus ac:bonusproc ac:bonus_points {nick uhost hand text dest} {set text [split $text]set baccess [lindex $text 3]}proc ac:bonus { handle idx text } {global ac user_names notifyusers baccessset text [split $text]set username1 [lindex $text 0]set reason1 [lrange $text 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"puthelp "PRIVMSG X :MODINFO $ac(chan) ACCESS $username1 [expr $baccess + 5]"if {$notifyusers != "" && $notifyusers != " "} {foreach notfuser $notifyusers {sendnote IDA_SYSTEM $notfuser "Bonus +5 given to $username1 by $handle in $ac(chan). The reason was: $reason1"}}}

but I am getting this error.

Code:

[17:54] Tcl error [ac:bonus]: can't read "baccess": no such variable

normal X reply when someone types: /msg x access #Channel username

Code:

-X- USER: cricket ACCESS: 400 LU-X- CHANNEL: #Cricket -- AUTOMODE: OP-X- LAST SEEN: 0 days, 00:07:16 ago.-X- LAST MODIFIED: (iamdeath) |AmDeAtH!~iamdeath@iamdeath.users.undernet.org (1 day, 21:12:14 ago)-X- End of access list

Can you suggest me.
Thanks.

Statistics: Posted by iamdeath — Sun May 07, 2006 8:55 am