egghelp.org community :: View topic - autovoicelist problem

[ egghelp.org home | forum home ]

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

FAQ

Memberlist

Usergroups

Profile

autovoicelist problem

egghelp.org community Forum Index -> Script Support & Releases

View previous topic :: View next topic

Author

Message

calippo
Voice

Joined: 19 Jan 2009
Posts: 13

Posted: Fri Jan 23, 2009 5:52 pm Post subject: autovoicelist problem

hi guys i have a problem with this script I can not let him accept the nick braces ...{nick} thank u so muck

Code:

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# # # #
# avl (autovoicelist) - Script v1.0 by stylus740 #
# # # #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

###############################################################################
# History: #
# 1.0    Erstes Release #
###############################################################################

##
# verwaltet eine Liste von Nicks, die im Channel autovoice erhalten
##

# In welchen Channels soll das Script aktiv sein?
# Die Definition erfolgt durch Setzen von +avl in der Partyline im Bot
#
# .chanset #channel +avl

# Definition des Datenfiles für berechtigte User

set avl_ni(datafile) "scripts/avl.dat"

###############################################################################
# Mögliche Befehle in der Partyline:                   #
#                                     #
# .chanset #chan +avl    Aktivierung des scripts in Channel #chan    #
# .chanset #chan -avl    Deaktivierung des scripts in Channel #chan #
# .avlhelp          Hilfen zur Bedienung             #
# .addvoice nick       User zur Liste hinzufügen          #
# .delvoice nick       User von Liste löschen             #
# .listvoice       Einträge anzeigen                #
###############################################################################

### Ab hier nur editieren, wenn man genau weiß, was man tut. Beginn des Codes ###

setudef flag avl                      ;# Zur Aktivierung der userdefined flags
set avl_ni(version) v1.0                ;# Variable für Version setzten

bind dcc n|n addvoice add_users             ;# User hinzufügen
bind dcc n|n delvoice del_users             ;# User hinzufügen
bind dcc n|n listvoice list_users             ;# User anzeigen
bind dcc n|n avlhelp help_users             ;# Hilfe anzeigen
bind msg n|n addvoice m_add_users             ;# User hinzufügen
bind msg n|n delvoice m_del_users             ;# User hinzufügen
bind msg n|n listvoice m_list_users             ;# User anzeigen
bind msg n|n avlhelp m_help_users             ;# Hilfe anzeigen
bind join - * join:avl_check
bind nick - * nick:avl_check

proc help_users {handle idx args} {
putlog "avl ermöglicht es Usern, die von einer berechtigten Person in einer Liste gespeichert sind"
putlog "auto-voice durch den Bot erteilen zu lassen. (Nützlich in Support Channels, wo oft User nicht"
putlog "registriert sind."
putlog "Die Steuerung von avl erfolgt über die Partyline mit den folgenden Befehlen:"
putlog " "
putlog ".addvoice <nick> <chan> Nick mit Channel hinzufügen oder ändern"
putlog ".delvoice <nick> <chan> Den angegebenen Nick löschen"
putlog ".listvoice       Sämtliche berechtigten User-Einträge anzeigen"
putlog ".avlhelp    Diese Hilfemeldung anzeigen"
}

proc m_help_users {nick host hand args} {
puthelp "PRIVMSG $nick :avl ermöglicht es Usern, die von einer berechtigten Person in einer Liste gespeichert sind"
puthelp "PRIVMSG $nick :auto-voice durch den Bot erteilen zu lassen. (Nützlich in Support Channels, wo oft User nicht"
puthelp "PRIVMSG $nick :registriert sind."
puthelp "PRIVMSG $nick :Die Steuerung von avl erfolgt über ein Query mit dem Bot mit den folgenden Befehlen:"
puthelp "PRIVMSG $nick : "
puthelp "PRIVMSG $nick :/msg <bot> addvoice <nick> <chan> Nick mit Channel hinzufügen oder ändern"
puthelp "PRIVMSG $nick :/msg <bot> delvoice <nick> <chan> Den angegebenen Nick löschen"
puthelp "PRIVMSG $nick :/msg <bot> listvoice       Sämtliche berechtigten User-Einträge anzeigen"
puthelp "PRIVMSG $nick :/msg <bot> avlhelp    Diese Hilfemeldung anzeigen"
}

proc init_users {} {
global avl_nick avl_ni
if {[file exists $avl_ni(datafile)]} {
putlog "Laden Userdaten aus $avl_ni(datafile)"
set in [open $avl_ni(datafile) r]
while {![eof $in]} {
set vline [gets $in]
if {[eof $in]} {break}
set inick [lindex $vline 0]
set ichan [lrange $vline 1 end]
set ientry "$inick&$ichan"
set avl_nick($ientry) $ientry
}
close $in
}
}
init_users

proc list_users {handle idx args} {
global avl_nick avl_ni
if {[info exists avl_nick]} {
putlog "Eingetragene Nick für avl:"
foreach search [array names avl_nick] {
if {$search != 0} {
set acmd [split $search "&"]
set inick [lindex $acmd 0]
set inick [form $inick]
set ichan [lrange $acmd 1 end]
set ichan [form $ichan]
putlog "$inick$ichan"
}
}
} else {
putlog "Keine Daten gespeichert"
}
}

proc add_users {handle idx args} {
global avl_nick avl_ni
set acmd [lindex $args 0]
set inick [lindex $acmd 0]
set inick [form $inick]
set ichan [lrange $acmd 1 end]
set ichan [form $ichan]
set ientry "$inick&$ichan"
set avl_nick($ientry) $ientry
writefile
putlog "User $inick mit Chan $ichan in $avl_ni(datafile) hinzugefügt"
if {[onchan $inick $ichan]} {
pushmode $ichan +v $inick
}
}

proc del_users {handle idx args} {
global avl_nick avl_ni
set acmd [lindex $args 0]
set inick [lindex $acmd 0]
set inick [form $inick]
set ichan [lrange $acmd 1 end]
set ichan [form $ichan]
set ientry "$inick&$ichan"
if {([info exists avl_nick($ientry)])} {
unset avl_nick($ientry)
writefile
putlog "Eintrag $ientry aus $avl_ni(datafile) gelöscht"
} else {
putlog "Eintrag $ientry ist nicht gespeichert!"
}
if {[onchan $inick $ichan]}
pushmode $ichan -v $inick
}
}

proc m_list_users {nick host hand args} {
global avl_nick avl_ni
if {[info exists avl_nick]} {
puthelp "PRIVMSG $nick :Eingetragene Nick für avl:"
foreach search [array names avl_nick] {
if {$search != 0} {
set acmd [split $search "&"]
set inick [lindex $acmd 0]
set inick [form $inick]
set ichan [lrange $acmd 1 end]
set ichan [form $ichan]
puthelp "PRIVMSG $nick :$inick $ichan"
}
}
} else {
puthelp "PRIVMSG $nick :Keine Daten gespeichert"
}
}

proc m_add_users {nick host hand args} {
global avl_nick avl_ni
set acmd [lindex $args 0]
set inick [lindex $acmd 0]
set inick [form $inick]
set ichan [lrange $acmd 1 end]
set ichan [form $ichan]
set ientry "$inick&$ichan"
set avl_nick($ientry) $ientry
writefile
puthelp "PRIVMSG $nick :User $inick mit Chan $ichan in $avl_ni(datafile) hinzugefügt"
if {[onchan $inick $ichan]} {
pushmode $ichan +v $inick
}
}

proc m_del_users {nick host hand args} {
global avl_nick avl_ni
set acmd [lindex $args 0]
set inick [lindex $acmd 0]
set inick [form $inick]
set ichan [lrange $acmd 1 end]
set ichan [form $ichan]
set ientry "$inick&$ichan"
if {([info exists avl_nick($ientry)])} {
unset avl_nick($ientry)
writefile
puthelp "PRIVMSG $nick :Eintrag $ientry aus $avl_ni(datafile) gelöscht"
} else {
puthelp "PRIVMSG $nick :Eintrag $ientry ist nicht gespeichert!"
}
if {[onchan $inick $ichan]} {
pushmode $ichan +v $inick
}
}

### Bei einem Join wird dann Voice gegeben, wenn der Nick im Datenfile steht

proc join:avl_check {nick uhost handle chan} {
global botnick avl_nick
if {![avl:active $chan]} { return 0 }
set chan [string tolower $chan]
if ([isop $botnick $chan]) {
foreach search [array names avl_nick] {
if {$search != 0} {
set ientry [string tolower $avl_nick($search)]
set parts [split $ientry "&"]
set inick [lindex $parts 0]
set ichan [lindex $parts 1]
if {($nick == $inick) && ($chan == $ichan)} {
pushmode $chan +v $nick
}
}
}
} else {
putlog "Habe kein op op und hole es mir neu"
putserv "chanserv op $chan $botnick"
}
}

proc nick:avl_check {nick uhost handle chan newnick} {
global botnick avl_nick
if {![avl:active $chan]} { return 0 }
set chan [string tolower $chan]
if ([isop $botnick $chan]) {
foreach search [array names avl_nick] {
if {$search != 0} {
set ientry [string tolower $avl_nick($search)]
set parts [split $ientry "&"]
set inick [lindex $parts 0]
set ichan [lindex $parts 1]
if {($nick == $inick) && ($chan == $ichan)} {
pushmode $chan +v $newnick
}
}
}
} else {
putlog "Habe kein op op und hole es mir neu"
}
)
}

proc form {formtext} {
set t [string trimleft $formtext]
set t [string trimright $t]
return $t
}

proc writefile {} {
global avl_nick avl_ni
set out [open $avl_ni(datafile) w]
foreach search [array names avl_nick] {
if {$search != 0} {
set parts [split $search "&"]
set inick [lindex $parts 0]
set ichan [lindex $parts 1]
set output "$inick $ichan"
puts $out $output
}
}
close $out
}

proc avl:active {chan} {
foreach setting [channel info $chan] {
if {[regexp -- {^[\+-]} $setting]} {
if {$setting == "+avl"} { return 1 }
}
}
return 0
}

putlog "avl (autovoicelist) von stylus740 geladen. (Stand 12.02.05)"
putlog "Eingabe von \.avlhelp bzw. \/msg $botnick avlhelp zeigt Bedienungshinweise an"

speechles
Revered One

Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)

Posted: Fri Jan 23, 2009 6:01 pm Post subject:

This script has a nasty habit of using the special token 'args' within procedure headers invoked by binds. But, they use the part below to work around it.

Code:

set acmd [lindex $args 0]
set inick [lindex $acmd 0]
set ichan [lrange $acmd 1 end]

They use an intermediate variable 'acmd' to return the 'args' list back into a string. Which if they had used anything other than 'args' for their variable name wouldn't have been needed. You also notice the list command on a string on the two lines below that. This is also a big problem. They must be changed to this for every single occurence you find.

Code:

set inick [lindex [split $acmd] 0]
set ichan [join [lrange [split $acmd] 1 end]]

Code:

set vline [gets $in]
if {[eof $in]} {break}
set inick [lindex $vline 0]
set ichan [lrange $vline 1 end]

The major problem for you above looks like the script is using list commands on the string 'vline' when reading the file, this will break the script before it even gets started. Just change it to look like it does below.

Code:

set vline [gets $in]
if {[eof $in]} {break}
set inick [lindex [split $vline] 0]
set ichan [join [lrange [split $vline] 1 end]]

_________________
speechles' eggdrop tcl archive

calippo
Voice

Joined: 19 Jan 2009
Posts: 13

Posted: Sat Jan 24, 2009 5:54 am Post subject:

speechles wrote:

This script has a nasty habit of using the special token 'args' within procedure headers invoked by binds. But, they use the part below to work around it.

Code:

set acmd [lindex $args 0]
set inick [lindex $acmd 0]
set ichan [lrange $acmd 1 end]

Code:

set inick [lindex [split $acmd] 0]
set ichan [join [lrange [split $acmd] 1 end]]

Code:

set vline [gets $in]
if {[eof $in]} {break}
set inick [lindex $vline 0]
set ichan [lrange $vline 1 end]

Code:

set vline [gets $in]
if {[eof $in]} {break}
set inick [lindex [split $vline] 0]
set ichan [join [lrange [split $vline] 1 end]]

Tnx now working Very Happy

Display posts from previous:

	egghelp.org community Forum Index -> Script Support & Releases	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