egghelp/eggheads community

Help me please irco.voicecontrol.tcl

2009-01-23T17:54:28-04:00

As I already explained, !voice is a toggle command

If is already voiced, then the command will devoice
If is not already voiced, then the command will voice

Toggle in this context means something that is figuratively switched on/off. Hence, it is not a fault. It is intentional.

tnx for your help

Statistics: Posted by calippo — Fri Jan 23, 2009 5:54 pm

Help me please irco.voicecontrol.tcl

2009-01-22T09:25:59-04:00

As I already explained, !voice is a toggle command

If is already voiced, then the command will devoice
If is not already voiced, then the command will voice

Toggle in this context means something that is figuratively switched on/off. Hence, it is not a fault. It is intentional.

Statistics: Posted by arfer — Thu Jan 22, 2009 9:25 am

Help me please irco.voicecontrol.tcl

2009-01-21T16:28:07-04:00

There wasn't any voice/devoice command in your original post and neither was it clear from the coding style if you wished to permit kick/ban without a reason.

Nonetheless, here is a revised script which will do what you ask. The !voice command is a toggle. If the taget is already voiced they will be devoiced, conversely if they are not already voiced they will be voiced.

I'm beginning to think this is never ending.

Code:

# set here the space delimited string of channel(s) that the script is active inset vVoiceChans "#eggTCL"# set here the notice to send to users that are voiced in the above preconfigured channel(s)set vVoiceMessage "welcome to voice control script - you can use !ban, !kick, !unban, !topic, !mode, !voice"bind mode - *+v* pVoiceNoticebind pub - !kick pVoiceKickbind pub - !ban pVoiceBanbind pub - !unban pVoiceUnbanbind pub - !mode pVoiceModebind pub - !topic pVoiceTopicbind pub - !voice pVoiceVoiceset vVoiceVersion v2.0proc pVoiceNotice {nick uhost hand chan mc target} {    global vVoiceChans vVoiceMessage    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        putserv "NOTICE $target :$vVoiceMessage"    }    return 0}proc pVoiceKick {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        switch -- [llength $txt] {            0 {                putserv "NOTICE $nick :-error- correct syntax is !kick  ?reason?"                return 0            }            1 {set target [lindex $txt 0]}            default {                set target [lindex $txt 0]                set reason [join [lrange $txt 1 end]]            }        }        if {([isvoice $nick $chan]) || ([isop $nick $chan])} {            if {[onchan $target $chan]} {                if {![validuser [nick2hand $target $chan]]} {                    if {[botisop $chan]} {                        if {[info exists reason]} {                            putserv "KICK $chan $target :$reason *- requested by $nick -*)"                        } else {putserv "KICK $chan $target :*- requested by $nick -*"}                    } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}            } else {putserv "NOTICE $nick :-error- $target is not on $chan"}        } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to kick users via this script"}    }    return 0}proc pVoiceBan {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        switch -- [llength $txt] {            0 {                putserv "NOTICE $nick :-error- correct syntax is !ban  ?reason?"                return 0            }            1 {                set target [lindex $txt 0]            }            default {                set target [lindex $txt 0]                set reason [join [lrange $txt 1 end]]            }        }        if {([isvoice $nick $chan]) || ([isop $nick $chan])} {            if {[onchan $target $chan]} {                if {![validuser [nick2hand $target $chan]]} {                    if {[botisop $chan]} {                        scan [getchanhost $target $chan] {%[^@]@%s} user host                        putserv "MODE $chan -o+b $target $host"                        if {[info exists reason]} {                            putserv "KICK $chan $target :$reason *- requested by $nick -*"                        } else {putserv "KICK $chan $target :*- requested by $nick -*"}                    } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}            } else {putserv "NOTICE $nick :-error- $target is not on $chan"}        } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to ban users via this script"}    }    return 0}proc pVoiceUnban {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            set host [lindex $txt 0]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "MODE $chan -b $host"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to unban hosts via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !unban "}    }    return 0}proc pVoiceMode {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            set mode [lindex $txt 0]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    switch -- [string tolower $mode] {                        on {putserv "MODE $chan +mi"}                        off {putserv "MODE $chan -mi"}                        default {putserv "NOTICE $nick :-error- single text argument can only be on or off"}                    }                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set modes via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !mode "}    }    return 0}proc pVoiceTopic {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 1} {            set topic [join [lrange $txt 0 end]]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "TOPIC $chan :$topic *- requested by $nick -*"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set a topic via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !topic "}    }    return 0}proc pVoiceVoice {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            set target [lindex $txt 0]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[onchan $target $chan]} {                    if {[botisop $chan]} {                        switch -- [isvoice $target $chan] {                            0 {putserv "MODE $chan +v $target"}                            1 {putserv "MODE $chan -v $target"}                        }                    } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                } else {putserv "NOTICE $nick :-error- $target is not on $chan"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to voice/devoice users via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !voice "}    }    return 0}# eof

[/code]

thanks for having solved my problem, I thank you so much. I found an error with the !voice when repeating the same command on the nick voice running the opposite then I set out as follows:
[/code]

# set here the space delimited string of channel(s) that the script is active in
set vVoiceChans "#chan"

bind pub - !voice pVoiceVoice
bind pub - !devoice pdeVoiceVoice
bind pub - !kick pVoiceKick
bind pub - !ban pVoiceBan

set vVoiceVersion v2.0

proc pVoiceKick {nick uhost hand chan text} {
global vVoiceChans
if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {
set txt [split [string trim $text]]
switch -- [llength $txt] {
0 {
putserv "NOTICE $nick :-error- correct syntax is !kick ?reason?"
return 0
}
1 {set target [lindex $txt 0]}
default {
set target [lindex $txt 0]
set reason [join [lrange $txt 1 end]]
}
}
if {([isvoice $nick $chan]) || ([isop $nick $chan])} {
if {[onchan $target $chan]} {
if {![validuser [nick2hand $target $chan]]} {
if {[botisop $chan]} {
if {[info exists reason]} {
putserv "KICK $chan $target :$reason *- requested by $nick -*)"
} else {putserv "KICK $chan $target :*- requested by $nick -*"}
} else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}
} else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}
} else {putserv "NOTICE $nick :-error- $target is not on $chan"}
} else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to kick users via this script"}
}
return 0
}

proc pVoiceBan {nick uhost hand chan text} {
global vVoiceChans
if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {
set txt [split [string trim $text]]
switch -- [llength $txt] {
0 {
putserv "NOTICE $nick :-error- correct syntax is !ban ?reason?"
return 0
}
1 {
set target [lindex $txt 0]
}
default {
set target [lindex $txt 0]
set reason [join [lrange $txt 1 end]]
}
}
if {([isvoice $nick $chan]) || ([isop $nick $chan])} {
if {[onchan $target $chan]} {
if {![validuser [nick2hand $target $chan]]} {
if {[botisop $chan]} {
scan [getchanhost $target $chan] {%[^@]@%s} user host
putserv "MODE $chan -o+b $target $host"
if {[info exists reason]} {
putserv "KICK $chan $target :$reason *- requested by $nick -*"
} else {putserv "KICK $chan $target :*- requested by $nick -*"}
} else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}
} else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}
} else {putserv "NOTICE $nick :-error- $target is not on $chan"}
} else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to ban users via this script"}
}
return 0
}

proc pVoiceVoice {nick uhost handle chan text} {
global vVoiceChans
if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {
set txt [split [string trim $text]]
if {[llength $txt] == 1} {
set target [lindex $txt 0]
if {([isvoice $nick $chan]) || ([isop $nick $chan])} {
if {[onchan $target $chan]} {
if {[botisop $chan]} {
switch -- [isvoice $target $chan] {
0 {putserv "MODE $chan +v $target"}
}
} else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}
} else {putserv "NOTICE $nick :-error- $target is not on $chan"}
} else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to voice/devoice users via this script"}
} else {putserv "NOTICE $nick :-error- correct syntax is !voice "}
}
return 0
}

proc pdeVoiceVoice {nick uhost handle chan text} {
global vVoiceChans
if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {
set txt [split [string trim $text]]
if {[llength $txt] == 1} {
set target [lindex $txt 0]
if {([isvoice $nick $chan]) || ([isop $nick $chan])} {
if {[onchan $target $chan]} {
if {[botisop $chan]} {
switch -- [isvoice $target $chan] {
1 {putserv "MODE $chan -v $target"}
}
} else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}
} else {putserv "NOTICE $nick :-error- $target is not on $chan"}
} else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to voice/devoice users via this script"}
} else {putserv "NOTICE $nick :-error- correct syntax is !devoice "}
}
return 0
}

# eof

I also happen the same conquest Autovoice list script like 'does not add the nick with characters such as [Nick] or {nick} the script is this:

Code:

# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # ## #                                                                         # ##                 avl (autovoicelist) - Script v1.0 by stylus740              # # #                                                                         # ## # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # ################################################################################# History:                                                                    ## 1.0Erstes 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 Userset avl_ni(datafile) "scripts/avl.dat"################################################################################ Mögliche Befehle in der Partyline:#### .chanset #chan +avlAktivierung des scripts in Channel #chan## .chanset #chan -avlDeaktivierung des scripts in Channel #chan## .avlhelpHilfen zur Bedienung## .addvoice nickUser zur Liste hinzufügen## .delvoice nickUser von Liste löschen## .listvoiceEinträge anzeigen################################################################################### Ab hier nur editieren, wenn man genau weiß, was man tut. Beginn des Codes ###setudef flag avl;# Zur Aktivierung der userdefined flagsset avl_ni(version) v1.0;# Variable für Version setztenbind dcc n|n addvoice add_users;# User hinzufügenbind dcc n|n delvoice del_users;# User hinzufügenbind dcc n|n listvoice list_users;# User anzeigenbind dcc n|n avlhelp help_users;# Hilfe anzeigenbind msg n|n addvoice m_add_users;# User hinzufügenbind msg n|n delvoice m_del_users;# User hinzufügenbind msg n|n listvoice m_list_users;# User anzeigenbind msg n|n avlhelp m_help_users;# Hilfe anzeigenbind join - * join:avl_checkbind nick - * nick:avl_checkproc 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 mit Channel hinzufügen oder ändern"putlog ".delvoice          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  addvoice          Nick mit Channel hinzufügen oder ändern"puthelp "PRIVMSG $nick :/msg  delvoice          Den angegebenen Nick löschen"puthelp "PRIVMSG $nick :/msg  listvoice           Sämtliche berechtigten User-Einträge anzeigen"puthelp "PRIVMSG $nick :/msg  avlhelp                 Diese Hilfemeldung anzeigen"}proc init_users {} {global avl_nick avl_ni   ;# Datenstrukturen public definierenif {[file exists $avl_ni(datafile)]} {   ;# Falls File vorhanden  putlog "Laden Userdaten aus $avl_ni(datafile)"   ;# Lademeldung  set in [open $avl_ni(datafile) r]   ;# Datenfile im read modus öffnen  while {![eof $in]} {   ;# solange kein EOF    set vline [gets $in]                           ;# Zeile holen    if {[eof $in]} {break}     ;# Falls EOF, Ende von while    set inick [lindex $vline 0]   ;# Nick extrahieren    set ichan [lrange $vline 1 end]   ;# Channel extrahieren    set ientry "$inick&$ichan"   ;# Kombination Nick&Chan bauen    set avl_nick($ientry) $ientry                  ;# Array Datenfeld belegen    }   ;# End while  close $in   ;# Datei schließen  }   ;# End If (dataexist)}   ;# End Procedureinit_usersproc list_users {handle idx args} {global avl_nick avl_ni   ;# Datenstrukturen public definierenif {[info exists avl_nick]} {   ;# Falls Felder definiert sind  putlog "Eingetragene Nick für avl:"   ;# Überschrift anzeigen  foreach search [array names avl_nick] {          ;# Für jeden Eintrag   if {$search != 0} {   ;# wenn kein leerer Eintrag     set acmd [split $search "&"]   ;# Eintrag bei "&" aufsplitten     set inick [lindex $acmd 0]   ;# erstes Argument ist Nick     set inick [form $inick]   ;# Nick formatieren     set ichan [lrange $acmd 1 end]   ;# Der gesamte Rest ist der Channel     set ichan [form $ichan]   ;# Chan formatieren     putlog "$inick       $ichan"      ;# Zeile anzeigen     }   ;# End if (search)    }   ;# End foreach  } else {   ;# Falls keine Struktur vorhanden    putlog "Keine Daten gespeichert"   ;# Fehler anzeigen  }   ;# End if}   ;# End Procedureproc add_users {handle idx args} { global avl_nick avl_ni   ;# Datenstrukturen public definieren set acmd [lindex $args 0]   ;# Befehlszeile extrahieren set inick [lindex $acmd 0]   ;# erstes Argument ist Nick set inick [form $inick]   ;# Nick formatieren set ichan [lrange $acmd 1 end]   ;# Der gesamte Rest ist der Channel set ichan [form $ichan]   ;# Chan formatieren set ientry "$inick&$ichan"   ;# Kombination Nick&Chan bauen set avl_nick($ientry) $ientry                     ;# Array Datenfeld (neu) belegen writefile   ;# Datei schreiben putlog "User $inick mit Chan $ichan in $avl_ni(datafile) hinzugefügt" if {[onchan $inick $ichan]} {   pushmode $ichan +v $inick ;# direkt +v setzen }}   ;# End Procedureproc del_users {handle idx args} { global avl_nick avl_ni   ;# Datenstrukturen public definieren set acmd [lindex $args 0]   ;# Befehlszeile extrahieren set inick [lindex $acmd 0]  ;# erstes Argument ist Nick set inick [form $inick]  ;# Nick formatieren set ichan [lrange $acmd 1 end]  ;# Der gesamte Rest ist der Channel set ichan [form $ichan]   ;# Chan formatieren set ientry "$inick&$ichan"   ;# Eintrag nick&chan montieren if {([info exists avl_nick($ientry)])} {          ;# wenn der Eintrag existiert    unset avl_nick($ientry) ;# Array Datenfeld freigeben   writefile   putlog "Eintrag $ientry aus $avl_ni(datafile) gelöscht"  ;# Löschmeldung   } else { ;# Falls Nick nicht vorhanden   putlog "Eintrag $ientry ist nicht gespeichert!";# Infomeldung   };# End if (info) if {[onchan $inick $ichan]} {   pushmode $ichan -v $inick ;# direkt -v setzen }};# End Procedureproc m_list_users {nick host hand args} {global avl_nick avl_ni   ;# Datenstrukturen public definierenif {[info exists avl_nick]} {   ;# Falls Felder definiert sind  puthelp "PRIVMSG $nick :Eingetragene Nick für avl:";# Überschrift anzeigen  foreach search [array names avl_nick] {          ;# Für jeden Eintrag   if {$search != 0} {   ;# wenn kein leerer Eintrag     set acmd [split $search "&"]   ;# Eintrag bei "&" aufsplitten     set inick [lindex $acmd 0]  ;# erstes Argument ist Nick     set inick [form $inick]   ;# Nick formatieren     set ichan [lrange $acmd 1 end]   ;# Der gesamte Rest ist der Channel     set ichan [form $ichan]   ;# Chan formatieren     puthelp "PRIVMSG $nick :$inick       $ichan" ;# Zeile anzeigen     }   ;# End if (search)    }   ;# End foreach  } else {   ;# Falls keine Struktur vorhanden    puthelp "PRIVMSG $nick :Keine Daten gespeichert";# Fehler anzeigen  }   ;# End if}   ;# End Procedureproc m_add_users {nick host hand args} { global avl_nick avl_ni   ;# Datenstrukturen public definieren set acmd [lindex $args 0]   ;# Befehlszeile extrahieren set inick [lindex $acmd 0]   ;# erstes Argument ist Nick set inick [form $inick]   ;# Nick formatieren set ichan [lrange $acmd 1 end]   ;# Der gesamte Rest ist der Channel set ichan [form $ichan]   ;# Chan formatieren set ientry "$inick&$ichan"   ;# Kombination Nick&Chan bauen set avl_nick($ientry) $ientry                     ;# Array Datenfeld (neu) belegen writefile   ;# Datei schreiben puthelp "PRIVMSG $nick :User $inick mit Chan $ichan in $avl_ni(datafile) hinzugefügt" if {[onchan $inick $ichan]} {   pushmode $ichan +v $inick ;# direkt +v setzen }}   ;# End Procedureproc m_del_users {nick host hand args} { global avl_nick avl_ni   ;# Datenstrukturen public definieren set acmd [lindex $args 0]   ;# Befehlszeile extrahieren set inick [lindex $acmd 0]  ;# erstes Argument ist Nick set inick [form $inick]  ;# Nick formatieren set ichan [lrange $acmd 1 end]  ;# Der gesamte Rest ist der Channel set ichan [form $ichan]   ;# Chan formatieren set ientry "$inick&$ichan"   ;# Eintrag nick&chan montieren if {([info exists avl_nick($ientry)])} {          ;# wenn der Eintrag existiert    unset avl_nick($ientry) ;# Array Datenfeld freigeben   writefile   puthelp "PRIVMSG $nick :Eintrag $ientry aus $avl_ni(datafile) gelöscht"  ;# Löschmeldung   } else { ;# Falls Nick nicht vorhanden   puthelp "PRIVMSG $nick :Eintrag $ientry ist nicht gespeichert!";# Infomeldung   };# End if (info) if {[onchan $inick $ichan]} {   pushmode $ichan +v $inick ;# direkt -v setzen }};# End Procedure### Bei einem Join wird dann Voice gegeben, wenn der Nick im Datenfile stehtproc join:avl_check {nick uhost handle chan} {  global botnick avl_nick  if {![avl:active $chan]} { return 0 } ;# falscher Channel: nix machen  set chan [string tolower $chan];# Channel in Kleinschreibung  if ([isop $botnick $chan]) {;# Wenn Bot im Channel Op hat    foreach search [array names avl_nick] {   ;# Liste aller Einträge durchlaufen      if {$search != 0} { ;# wenn kein leerer Eintrag        set ientry [string tolower $avl_nick($search)]   ;# Eintrag (nick&#chan) extrahieren        set parts [split $ientry "&"]        set inick [lindex $parts 0]      ;# Nick extrahieren        set ichan [lindex $parts 1]      ;# Chan extrahieren        if {($nick == $inick) && ($chan == $ichan)} {          pushmode $chan +v $nick ;# +v setzen}        };# end if search    } ;# end for eache  } else {;# bot hat gar kein op    putlog "Habe kein op op und hole es mir neu" ;# Meldung "kein op"    putserv "chanserv op $chan $botnick"  }   ;# end if (botisop)};# end procedureproc nick:avl_check {nick uhost handle chan newnick} {  global botnick avl_nick  if {![avl:active $chan]} { return 0 } ;# falscher Channel: nix machen  set chan [string tolower $chan];# Channel in Kleinschreibung  if ([isop $botnick $chan]) {;# Wenn Bot im Channel Op hat    foreach search [array names avl_nick] {   ;# Liste aller Einträge durchlaufen      if {$search != 0} { ;# wenn kein leerer Eintrag        set ientry [string tolower $avl_nick($search)]   ;# Eintrag (nick&#chan) extrahieren        set parts [split $ientry "&"]        set inick [lindex $parts 0]      ;# Nick extrahieren        set ichan [lindex $parts 1]      ;# Chan extrahieren        if {($nick == $inick) && ($chan == $ichan)} {          pushmode $chan +v $newnick ;# +v setzen}         };# end if search    };# end foreach  } else {;# bot hat gar kein op    putlog "Habe kein op op und hole es mir neu" ;# Meldung "kein op"    putserv "chanserv op $chan $botnick"  }   ;# end if (botisop)};# end procedureproc form {formtext} {;# Formatierung String  set t [string trimleft $formtext];# führende Leerzeichen entfernen  set t [string trimright $t];# folgende Leerzeichen entfernen  return $t;# formatierten String zurückliefern}proc writefile {} {  global avl_nick avl_ni  set out [open $avl_ni(datafile) w]   ;# Datenfile im w modus öffnen (überschreiben)  foreach search [array names avl_nick] {   ;# durchlaufen der Daten arrays    if {$search != 0} {   ;# wenn keine leere Zeile      set parts [split $search "&"]   ;# Eintrag bei "&" aufsplitten      set inick [lindex $parts 0]   ;# Nick extrahieren      set ichan [lindex $parts 1]   ;# Channel extrahieren      set output "$inick $ichan"   ;# Output montieren      puts $out $output   ;# Zeile schreiben     }         ;# End if (search)   };# End Foreach   close $out;# Datei schließen};# End procedureproc avl:active {chan} {  foreach setting [channel info $chan] {;# "channel info" ist ein TCL Befehl!    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"

Code:

Statistics: Posted by calippo — Wed Jan 21, 2009 4:28 pm

Help me please irco.voicecontrol.tcl

2009-01-21T11:40:19-04:00

Code:

# set here the space delimited string of channel(s) that the script is active inset vVoiceChans "#eggTCL"# set here the notice to send to users that are voiced in the above preconfigured channel(s)set vVoiceMessage "welcome to voice control script - you can use !ban, !kick, !unban, !topic, !mode, !voice"bind mode - *+v* pVoiceNoticebind pub - !kick pVoiceKickbind pub - !ban pVoiceBanbind pub - !unban pVoiceUnbanbind pub - !mode pVoiceModebind pub - !topic pVoiceTopicbind pub - !voice pVoiceVoiceset vVoiceVersion v2.0proc pVoiceNotice {nick uhost hand chan mc target} {    global vVoiceChans vVoiceMessage    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        putserv "NOTICE $target :$vVoiceMessage"    }    return 0}proc pVoiceKick {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        switch -- [llength $txt] {            0 {                putserv "NOTICE $nick :-error- correct syntax is !kick  ?reason?"                return 0            }            1 {set target [lindex $txt 0]}            default {                set target [lindex $txt 0]                set reason [join [lrange $txt 1 end]]            }        }        if {([isvoice $nick $chan]) || ([isop $nick $chan])} {            if {[onchan $target $chan]} {                if {![validuser [nick2hand $target $chan]]} {                    if {[botisop $chan]} {                        if {[info exists reason]} {                            putserv "KICK $chan $target :$reason *- requested by $nick -*)"                        } else {putserv "KICK $chan $target :*- requested by $nick -*"}                    } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}            } else {putserv "NOTICE $nick :-error- $target is not on $chan"}        } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to kick users via this script"}    }    return 0}proc pVoiceBan {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        switch -- [llength $txt] {            0 {                putserv "NOTICE $nick :-error- correct syntax is !ban  ?reason?"                return 0            }            1 {                set target [lindex $txt 0]            }            default {                set target [lindex $txt 0]                set reason [join [lrange $txt 1 end]]            }        }        if {([isvoice $nick $chan]) || ([isop $nick $chan])} {            if {[onchan $target $chan]} {                if {![validuser [nick2hand $target $chan]]} {                    if {[botisop $chan]} {                        scan [getchanhost $target $chan] {%[^@]@%s} user host                        putserv "MODE $chan -o+b $target $host"                        if {[info exists reason]} {                            putserv "KICK $chan $target :$reason *- requested by $nick -*"                        } else {putserv "KICK $chan $target :*- requested by $nick -*"}                    } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}            } else {putserv "NOTICE $nick :-error- $target is not on $chan"}        } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to ban users via this script"}    }    return 0}proc pVoiceUnban {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            set host [lindex $txt 0]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "MODE $chan -b $host"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to unban hosts via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !unban "}    }    return 0}proc pVoiceMode {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            set mode [lindex $txt 0]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    switch -- [string tolower $mode] {                        on {putserv "MODE $chan +mi"}                        off {putserv "MODE $chan -mi"}                        default {putserv "NOTICE $nick :-error- single text argument can only be on or off"}                    }                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set modes via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !mode "}    }    return 0}proc pVoiceTopic {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 1} {            set topic [join [lrange $txt 0 end]]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "TOPIC $chan :$topic *- requested by $nick -*"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set a topic via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !topic "}    }    return 0}proc pVoiceVoice {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            set target [lindex $txt 0]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[onchan $target $chan]} {                    if {[botisop $chan]} {                        switch -- [isvoice $target $chan] {                            0 {putserv "MODE $chan +v $target"}                            1 {putserv "MODE $chan -v $target"}                        }                    } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                } else {putserv "NOTICE $nick :-error- $target is not on $chan"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to voice/devoice users via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !voice "}    }    return 0}# eof

[/code]

Statistics: Posted by arfer — Wed Jan 21, 2009 11:40 am

Help me please irco.voicecontrol.tcl

2009-01-20T20:31:46-04:00

You fail to convert properly between lists and strings in several places, which, as per Papillon's post, gives rise to the errors you have already encountered.

The following URL serves as a good tutorial on the subject

http://www.peterre.info/characters.html

I have taken the trouble to correct the script and to rewrite into a more elegant code structure. I have tested the script on Eggdrop 1.6.19 compiled with Tcl8.4 and seems to work fine including with nicks that contain special characters (heh, I must have had nothing to do for a while there).

Code:

# set here the space delimited string of channel(s) that the script is active inset vVoiceChans "#eggTCL"# set here the notice to send to users that are voiced in the above preconfigured channel(s)set vVoiceMessage "welcome to voice control script - you can use !ban, !kick, !unban, !topic, !mode on/off"bind mode - *+v* pVoiceNoticebind pub - !kick pVoiceKickbind pub - !ban pVoiceBanbind pub - !unban pVoiceUnbanbind pub - !mode pVoiceModebind pub - !topic pVoiceTopicset vVoiceVersion "v1.0"proc pVoiceNotice {nick uhost hand chan mc target} {    global vVoiceChans vVoiceMessage    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        putserv "NOTICE $target :$vVoiceMessage"    }    return 0}proc pVoiceKick {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 2} {            set target [lindex $txt 0]            set reason [join [lrange $txt 1 end]]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[onchan $target $chan]} {                    if {![validuser [nick2hand $target $chan]]} {                        if {[botisop $chan]} {                            putserv "KICK $chan $target :$reason (requested by $nick)"                        } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                    } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}                } else {putserv "NOTICE $nick :-error- $target is not on $chan"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to kick users via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !kick  "}    }    return 0}proc pVoiceBan {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 2} {            set target [lindex $txt 0]            set reason [join [lrange $txt 1 end]]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[onchan $target $chan]} {                    if {![validuser [nick2hand $target $chan]]} {                        if {[botisop $chan]} {                            scan [getchanhost $target $chan] {%[^@]@%s} user host                            putserv "MODE $chan -o+b $target $host"                            putserv "KICK $chan $target :$reason (requested by $nick)"                        } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                    } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}                } else {putserv "NOTICE $nick :-error- $target is not on $chan"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to ban users via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !ban  "}    }    return 0}proc pVoiceUnban {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "MODE $chan -b [join $txt]"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to unban hosts via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !unban "}    }    return 0}proc pVoiceMode {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    switch -- [string tolower [join $txt]] {                        on {putserv "MODE $chan +mi"}                        off {putserv "MODE $chan -mi"}                        default {putserv "NOTICE $nick :-error- single text argument can only be on or off"}                    }                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set modes via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !mode "}    }    return 0}proc pVoiceTopic {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 1} {            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "TOPIC $chan :[join $text] (requested by $nick)"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set a topic via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !topic "}    }    return 0}# eof

[/url]

thank you for your help but this scritp doesn't work with command: for exemple
!voice {nick} or !voice {nick] and i can't devoice with it
and if i want to kick or ban without reasons it doesn't work

Statistics: Posted by calippo — Tue Jan 20, 2009 8:31 pm

Help me please irco.voicecontrol.tcl

2009-01-19T19:22:56-04:00

Code:

# set here the space delimited string of channel(s) that the script is active inset vVoiceChans "#eggTCL"# set here the notice to send to users that are voiced in the above preconfigured channel(s)set vVoiceMessage "welcome to voice control script - you can use !ban, !kick, !unban, !topic, !mode on/off"bind mode - *+v* pVoiceNoticebind pub - !kick pVoiceKickbind pub - !ban pVoiceBanbind pub - !unban pVoiceUnbanbind pub - !mode pVoiceModebind pub - !topic pVoiceTopicset vVoiceVersion "v1.0"proc pVoiceNotice {nick uhost hand chan mc target} {    global vVoiceChans vVoiceMessage    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        putserv "NOTICE $target :$vVoiceMessage"    }    return 0}proc pVoiceKick {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 2} {            set target [lindex $txt 0]            set reason [join [lrange $txt 1 end]]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[onchan $target $chan]} {                    if {![validuser [nick2hand $target $chan]]} {                        if {[botisop $chan]} {                            putserv "KICK $chan $target :$reason (requested by $nick)"                        } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                    } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}                } else {putserv "NOTICE $nick :-error- $target is not on $chan"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to kick users via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !kick  "}    }    return 0}proc pVoiceBan {nick uhost hand chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 2} {            set target [lindex $txt 0]            set reason [join [lrange $txt 1 end]]            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[onchan $target $chan]} {                    if {![validuser [nick2hand $target $chan]]} {                        if {[botisop $chan]} {                            scan [getchanhost $target $chan] {%[^@]@%s} user host                            putserv "MODE $chan -o+b $target $host"                            putserv "KICK $chan $target :$reason (requested by $nick)"                        } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}                    } else {putserv "NOTICE $nick :-error- $target has a valid bot user record for $chan"}                } else {putserv "NOTICE $nick :-error- $target is not on $chan"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to ban users via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !ban  "}    }    return 0}proc pVoiceUnban {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "MODE $chan -b [join $txt]"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to unban hosts via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !unban "}    }    return 0}proc pVoiceMode {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] == 1} {            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    switch -- [string tolower [join $txt]] {                        on {putserv "MODE $chan +mi"}                        off {putserv "MODE $chan -mi"}                        default {putserv "NOTICE $nick :-error- single text argument can only be on or off"}                    }                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set modes via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !mode "}    }    return 0}proc pVoiceTopic {nick uhost handle chan text} {    global vVoiceChans    if {[lsearch -exact [split [string tolower $vVoiceChans]] [string tolower $chan]] != -1} {        set txt [split [string trim $text]]        if {[llength $txt] >= 1} {            if {([isvoice $nick $chan]) || ([isop $nick $chan])} {                if {[botisop $chan]} {                    putserv "TOPIC $chan :[join $text] (requested by $nick)"                } else {putserv "NOTICE $nick :-error- I need to be op'd in $chan to do that"}            } else {putserv "NOTICE $nick :-error- you need to be at least a channel voice in $chan to set a topic via this script"}        } else {putserv "NOTICE $nick :-error- correct syntax is !topic "}    }    return 0}# eof

[/url]

Statistics: Posted by arfer — Mon Jan 19, 2009 7:22 pm

Help me please irco.voicecontrol.tcl

2009-01-19T17:32:16-04:00

That'll teach me to post a few seconds after waking up.

Statistics: Posted by incith — Mon Jan 19, 2009 5:32 pm

Help me please irco.voicecontrol.tcl

2009-01-19T17:23:11-04:00

Code:

set who [lindex $arg 0]set why [lrange $arg 1 end]

here you are using a list command on a string. try making the $arg into a list first using split.

Code:

set who [lindex [split $arg] 0]set why [lrange [split $arg] 1 end]

and eggdrop comes with its own kick command, you could try using that

putkick [reason]
Description: sends kicks to the server and tries to put as many nicks
into one kick command as possible.
Returns: nothing
Module: irc

Statistics: Posted by Papillon — Mon Jan 19, 2009 5:23 pm

Help me please irco.voicecontrol.tcl

2009-01-19T16:50:55-04:00

Try {} instead of "", e.g.
Code:
putserv "kick $chan $who :$why kick by $nick"
..becomes..
Code:
putserv {kick $chan $who :$why kick by $nick}
If that doesn't work I guess some escaping will have to be done on the nick.

nothing it dosen't work this is the error message is "not on the channel"

Statistics: Posted by calippo — Mon Jan 19, 2009 4:50 pm

Help me please irco.voicecontrol.tcl

2009-01-19T16:22:44-04:00

Try {} instead of "", e.g.

Code:

putserv "kick $chan $who :$why kick by $nick"

..becomes..

Code:

putserv {kick $chan $who :$why kick by $nick}

If that doesn't work I guess some escaping will have to be done on the nick.

Statistics: Posted by incith — Mon Jan 19, 2009 4:22 pm

Help me please irco.voicecontrol.tcl

2009-01-19T16:06:59-04:00

I need a help . This does not apply tcl voice kick and ban the nick brackets {} [] () and other symbols, how can I do? Thanks and see you soon marco

# voice control v1.0 (14 April 2001) By irco <irco@mail.com> EFnet #Q8Help
# the voice control can make voice groub to control your channel
# the can do to kick ban unban mode on/off and change to topic
# Notes: I wrote this on eggdrop 1.3.x, don't complain if you load it up
# on your prehistoric 1.1.5 and it blows up the computer.

bind mode - *+v* voicenotice
bind pub - !kick voicekick
bind pub - !ban voiceban
bind pub - !unban voiceunban
bind pub - !mode voicemode
bind pub - !topic voicetopic

set voicechans "#channel"

# set the Voice notice msg

set voicemsg "welcome to the control #lamerchan you can use !ban, !kick, !unban, !topic, !mode on/off"

# Don't edit anything below unless you know what you're doing

set ver "v1.0"

proc voicenotice {nick uhost hand chan mode victim} { if {[lsearch -exact $::voicechans $chan] == -1} { return 0 }
global voicemsg
putserv "notice $victim :$voicemsg"
return 0
}
proc voicekick {nick uhost hand chan arg} { if {[lsearch -exact $::voicechans $chan] == -1} { return 0 }
global botnick
if {[isvoice $nick $chan]} {
set who [lindex $arg 0]
set why [lrange $arg 1 end]
if {$who == ""} {
putserv "notice $nick :Usage: !kick "
return 0
}
if {![validuser [nick2hand $who $chan]]} {
if {![onchan $who $chan]} {
putserv "notice $nick :$who is not on the channel"
return 0
}
putserv "kick $chan $who :$why kick by $nick"
}
}
}
proc voiceban {nick uhost hand chan arg} {
global botnick
if {[isvoice $nick $chan]} {
set who [lindex $arg 0]
set why [lrange $arg 1 end]
if {$who == ""} {
putserv "notice $nick :Usage: !ban "
return 0
}
if {![validuser [nick2hand $who $chan]]} {
if {![onchan $who $chan]} {
putserv "notice $nick :$who is not on the channel"
return 0
}
if {![onchan $who $chan]} {
putserv "notice $nick :$who is not on the channel"
return 0
}
set host "*!*@[lindex [split [getchanhost $who $chan] "@"] end]"
putserv "MODE $chan -o+b $who $host"
putserv "KICK $chan $who :$why Ban By $nick"
return
}
}
}
proc voiceunban {nick uhost handle chan text} { if {[lsearch -exact $::voicechans $chan] == -1} { return 0 }
global botnick
if {$text == ""} {
putserv "notice $nick :Usage: !unban host"
return 0
}
if {([isvoice $nick $chan]) && ([isop $botnick $chan])} {
putserv "MODE $chan -b [lindex $text 0] :[lrange $text 1 end]"
return 0
}
}
proc voicemode {nick uhost handle chan text} { if {[lsearch -exact $::voicechans $chan] == -1} { return 0 }
global botnick
if {([isvoice $nick $chan]) && ([isop $botnick $chan])} {
if {$text == ""} {
putserv "notice $nick :Usage: !mode On/Off"
return 0
}
if {[lindex $text 0] == "on"} {
putserv "MODE $chan +mi"
} elseif {[lindex $text 0] == "off"} {
putserv "MODE $chan -mi"
}
}
}
proc voicetopic {nick uhost handle chan text} { if {[lsearch -exact $::voicechans $chan] == -1} { return 0 }
global botnick
if {[isvoice $nick $chan]} {
if {[isop $botnick $chan] == "1"} {
if {$text == ""} {
putserv "notice $nick :Usage: !topic "
return 0
}
putserv "TOPIC $chan :$text topic By $nick"
}
}
}
putlog "Voice control $ver By irco loaded ..."

Statistics: Posted by calippo — Mon Jan 19, 2009 4:06 pm