egghelp.org community :: View topic

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

ClanAvail

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

lenooxx
Voice

Joined: 24 Mar 2009
Posts: 27
Location: Hungarian

Posted: Sat Nov 07, 2009 3:41 pm Post subject: ClanAvail

hey

i added ClanAvail scipt for my eggdrop
and i get this error message always

Tcl error [clanavail_showwar]: can't read "users": no such variable
Tcl error [clanavail_navail]: can't read "users": no such variable

Sad

here is the script

Code:

##############
## COMMANDS ##
##########################################################
## PUB ## !avail (Can be changed) ##
######### Sets you as available for the next war. ##
######### --------------------------------------------- ##
######### !navail (Can be changed) ##
######### Sets you as not available for the next war. ##
######### --------------------------------------------- ##
######### !maybe (Can be changed) ##
######### Sets you as maybe available for the next war. ##
######### -------------------------------------------- ##
######### !wardetails [details] ##
######### Shows the details for the next war. ##
######### Availability is also shown, than cleared. If ##
######### details are given, the war details will be ##
######### set to the specified information. ##
##########################################################
## MSG ## /msg <bot> auth <password> ##
######### Authorizes you to use commands. ##
######### --------------------------------------------- ##
######### /msg <bot> deauth ##
######### De-authorizes you from using commands. ##
##########################################################
## DCC ## .chanset <channel> +clantopic ##
######### Makes the bot set the topic of the specified ##
######### channel to the details of the next war when ##
######### information changes. ##
##########################################################

##########################################################
## Just load the script, edit the settings, and rehash. ##
##########################################################

#################################################
# Set the flag required to use the script here. #
#################################################

set clanavail_setting(flag) "o|o"

#################################################################
# Set the command for setting yourself as maybe available here. #
#################################################################

set clanavail_setting(maybe) "!maybe"

###########################################################
# Set the command for setting yourself as available here. #
###########################################################

set clanavail_setting(avail) "!avail"

###############################################################
# Set the command for setting yourself as not available here. #
###############################################################

set clanavail_setting(navail) "!navail"

####################################################################
# When adding to the topic, should the war details be added to the #
# end of the topic or the beginning? (0 for beginning, 1 for end) #
####################################################################

set clanavail_setting(end) 1

###################################
# Set the database filename here. #
###################################

set clanavail_setting(database) "./scripts/clanavail.db"

###################################################################
# Enable bold in topic and !wardetails? (Makes it easier to read) #
###################################################################

set clanavail_setting(bold) 1

####################
# Code begins here #
####################

if {$numversion < 1060800} { putlog "\002CLANAVAIL:\002 \002WARNING:\002 This script is intended to run on eggdrop 1.6.8 or later." }
if {[info tclversion] < 8.2} { putlog "\002CLANAVAIL:\002 \002WARNING:\002 This script is intended to run on Tcl Version 8.2 or later." }

bind pub $clanavail_setting(flag) !wardetails clanavail_showwar
bind pub $clanavail_setting(flag) $clanavail_setting(maybe) clanavail_maybe
bind pub $clanavail_setting(flag) $clanavail_setting(avail) clanavail_avail
bind pub $clanavail_setting(flag) $clanavail_setting(navail) clanavail_navail
bind msg - auth clanavail_auth
bind msg - deauth clanavail_deauth
bind part - * clanavail_deauth_part
bind sign - * clanavail_deauth_sign
bind splt - * clanavail_deauth_splt
setudef flag clantopic

proc clanavail_auth {nick uhost hand text} {
if {![validuser $hand]} { putserv "NOTICE $nick :You are not a bot user." ; return }
if {[string compare [lindex [set text [split $text]] 0] ""] == 0} { putserv "NOTICE $nick :Usage: /msg $::botnick auth <password>" ; return }
if {![passwdok $hand [lindex $text 0]]} { putserv "NOTICE $nick :Invalid password." ; return }
if {[matchattr $hand +Q]} { putserv "NOTICE $nick :You are already authorized." ; return }
chattr $hand +Q
putserv "NOTICE $nick :You are now authorized."
}
proc clanavail_deauth {nick uhost hand text} {
if {![validuser $hand]} { putserv "NOTICE $nick :You are not a bot user." ; return }
if {![matchattr $hand +Q]} { putserv "NOTICE $nick :You are not authorized." ; return }
chattr $hand -Q
putserv "NOTICE $nick :You are no longer authorized."
}
proc clanavail_deauth_sign {nick uhost hand chan text} {
if {[validuser $hand] && [matchattr $hand +Q]} { chattr $hand -Q }
}
proc clanavail_deauth_part {nick uhost hand chan text} {
if {![onchan $nick] && [validuser $hand] && [matchattr $hand +Q]} { chattr $hand -Q }
}
proc clanavail_deauth_splt {nick uhost hand chan} {
if {[validuser $hand] && [matchattr $hand +Q]} { chattr $hand -Q }
}
proc clanavail_readarray {array file} {
upvar $array ours
if {[catch {open $file r} fd]} { return }
if {[array exists ours]} { unset ours }
foreach line [split [read $fd] \n] {
   if {[string range $line 0 2] != "%!%" || [scan [string range $line 3 end] "%\[^!!!\]!!!%s" name data] <= 0} { continue }
   if {![info exists data]} { set data "" }
   set ours($name) $data
}
close $fd
}
proc clanavail_savearray {array file} {
upvar $array ours
if {![array exists ours] || [catch {open $file w} fd]} { return }
foreach entry [array names ours] { puts $fd "%!%$entry!!!$ours($entry)" }
close $fd
}
if {![array exists clanavail_users] && [file exists $clanavail_setting(database)]} { clanavail_readarray clanavail_users $clanavail_setting(database) }
proc clanavail_showwar {nick uhost hand chan text} {
if {![matchattr $hand +Q]} { putserv "NOTICE $nick :You are not authorized. Please type \"/msg $::botnick auth <password>\" to authorize yourself." ; return }
if {$text == ""} {
   if {![info exists ::clanavail_users(/warinfo)]} { set ::clanavail_users(/warinfo) "None" }
   foreach {a b} [list users [clanavail_getavail] avail [lindex $users 0] navail [lindex $users 1] maybe [lindex $users 2]] { set $a $b }
   putserv "PRIVMSG $chan :[clanavail_bold "Next War: $::clanavail_users(/warinfo) Available: $avail Not Available: $navail Maybe Available: $maybe."]"
   catch { unset ::clanavail_users(/warinfo) }
   return
}
set ::clanavail_users(/warinfo) $text
clanavail_do_topic
putserv "NOTICE $nick :[clanavail_bold "Next War: $::clanavail_users(/warinfo)"]"
}
proc clanavail_avail {nick uhost hand chan text} {
global clanavail_users
if {![matchattr $hand +Q]} { putserv "NOTICE $nick :You are not authorized. Please type \"/msg $::botnick auth <password>\" to authorize yourself." ; return }
if {[info exists clanavail_users($nick)] && [string match avail $clanavail_users($nick)]} { putserv "NOTICE $nick :You are already marked as available." ; return }
set clanavail_users($nick) avail
clanavail_savearray clanavail_users $::clanavail_setting(database)
clanavail_do_topic
putserv "NOTICE $nick :You are now marked as available."
}
proc clanavail_navail {nick uhost hand chan text} {
global clanavail_users
if {![matchattr $hand +Q]} { putserv "NOTICE $nick :You are not authorized. Please type \"/msg $::botnick auth <password>\" to authorize yourself." ; return }
if {[info exists clanavail_users($nick)] && [string match navail $clanavail_users($nick)]} { putserv "NOTICE $nick :You are already marked as not available." ; return }
set clanavail_users($nick) navail
clanavail_savearray clanavail_users $::clanavail_setting(database)
clanavail_do_topic
putserv "NOTICE $nick :You are now marked as not available."
}
proc clanavail_maybe {nick uhost hand chan text} {
global clanavail_users
if {![matchattr $hand +Q]} { putserv "NOTICE $nick :You are not authorized. Please type \"/msg $::botnick auth <password>\" to authorize yourself." ; return }
if {[info exists clanavail_users($nick)] && [string match maybe $clanavail_users($nick)]} { putserv "NOTICE $nick :You are already marked as maybe available." ; return }
set clanavail_users($nick) maybe
clanavail_savearray clanavail_users $::clanavail_setting(database)
clanavail_do_topic
putserv "NOTICE $nick :You are now marked as maybe available."
}
proc clanavail_do_topic {} {
global clanavail_users
foreach {a b} [list users [clanavail_getavail] avail [lindex $users 0] navail [lindex $users 1] maybe [lindex $users 2]] { set $a $b }
if {![info exists clanavail_users(/warinfo)]} { set clanavail_users(/warinfo) "None" }
foreach c [channels] {
   if {![botisop $chan] || [lsearch -exact [channel info $chan] +chantopic] == -1} { continue }
   if {!$::clanavail_setting(end)} {
      if {[string match "*Next War:*Available:*Not Available:*Maybe Available:*. |*" [topic $chan]]} { set topic [string range [topic $chan] [expr [string first ". |" [topic $chan]] + 4] end] } { set topic [topic $chan] }
      set topic "[clanavail_bold "Next War: $clanavail_users(/warinfo) Available: $avail Not Available: $navail Maybe Available: $maybe."] | $topic"
   } {
      if {[string match "*| *Next War:*Available:*Not Available:*Maybe Available:*" [topic $chan]]} {
         if {$::clanavail_setting(bold)} { set topic [string range [topic $chan] 0 [expr [string first "| \002Next War:" [topic $chan]] - 2]] } { set topic [string range [topic $chan] 0 [expr [string first "| Next War:" [topic $chan]] - 2]] }
      } {
         set topic [topic $chan]
      }
      set topic "$topic | [clanavail_bold "Next War: $clanavail_users(/warinfo) Available: $avail Not Available: $navail Maybe Available: $maybe."]"
   }
   if {[string compare [topic $chan] $topic] != 0} { putserv "TOPIC $chan :$topic" }
}
}
proc clanavail_bold {text} {
if {$::clanavail_setting(bold)} {
   regsub -all -- " Not Available: " $text " \002Not Available:\002 " text
   regsub -all -- " Maybe Available: " $text " \002Maybe Available:\002 " text
   regsub -all -- " Available: " $text " \002Available:\002 " text
   regsub -all -- "Next War: " $text "\002Next War:\002 " text
}
return $text
}
proc clanavail_getavail {} {
global clanavail_users
foreach a [array names clanavail_users] {
   if {[string match $a /warinfo]} { continue }
   switch -- $clanavail_users($a) {
      "avail" { lappend avail $a, }
      "navail" { lappend navail $a, }
      "maybe" { lappend maybe $a, }
   }
}
foreach v {avail navail maybe} {
   if {![info exists $v]} { set $v None }
}
regsub -all -- "," [lindex $avail end] "" end
regsub -all -- "," [lindex $navail end] "" end2
regsub -all -- "," [lindex $maybe end] "" end3
return "[list [lreplace $avail end end $end] [lreplace $navail end end $end2] [lreplace $maybe end end $end3]]"
}
putlog "\002CLANAVAIL:\002 ClanAvail.tcl Version 1.4 by Wcc is loaded."

Moderator: I took the liberty of adding the proper tags for code blocks. Makes the code a lot easier to read.
/NML_375

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum