[Request script] Silence On/Off - Page 2

ReaL|DoG · 17-07-2007, 00:56

Code:

proc s:silence {nick host hand chan args} {

eu totusi cred ca lipeste

Code:

global settings

avand in vedere ca set settings(silence) 0 este in afara procesului

AdrianK · 17-07-2007, 17:27

Quote:

Originally Posted by Novice

am gasit
[14:05] Tcl error [s:silence]: can't read "settings(silence)": no such variable

Sa fii sigur ca ai

Code:

set settings(silence) 0

ReaL|DoG · 17-07-2007, 23:17

ok, cum zici tu

#### EDIT ####

oricum, sincer sa fiu, da niste errori, daca fac cum zic eu

.. si sunt sigur 100% ca trebuie sa declari global settings, ca sa iti mearga $settings(silence), dar oricum primesc erroarea asta

Code:

[ 22:06:00 ]   [ mybotnick ] [20:06] Tcl error [s:silence]: invalid command name "0"
[ 22:06:02 ]   [ mybotnick ] [20:06] Tcl error [s:silence]: invalid command name "0"

iar daca nu declar global settings, sau mut variabila in proces primesc urmatoarea erroare

Code:

[ 22:08:30 ]   [ mybotnick ] [20:08] Tcl error [s:silence]: can't read "settings(silence)": no such variable

Sincer, nush cum merge la tine.. dar eu am testat si pe eggdrop si pe windrop, si primesc aceleasi errori

arcade · 21-07-2007, 14:39

nu va mai certati atata, lasati off topicul si daca tot postati, postati scripte corecte.

Code:

bind pub N !silence pub:silence

proc pub:silence {nick host hand chan txt} {
global silenced

set opt1 [lindex $txt 0]
set opt2 [lindex $txt 1]

switch -exact $opt1 {
                      -on {if {[info exists silenced]} { puthelp "PRIVMSG $chan :Silence is already on."; return }
                              putserv "SILENCE +*"
                              set silenced 1
                              puthelp "PRIVMSG $chan :Silence is now on"
                             }
                      -off {if {![info exists silenced]} { puthelp "PRIVMSG $chan :Silence is already off."; return }
                              putserv "SILENCE -*"
                              unset silenced
                              puthelp "PRIVMSG $chan :Silence is now off"
                             }
                      -host {if {![string match "+*!*@*" $opt2] || ![string match "-*!*@*" $opt2]} { puthelp "PRIVMSG $chan :Invalid host: $opt2"; return }
                                     putserv "SILENCE $opt2
                                     puthelp "PRIVMSG $chan :Added silence for host: $opt2"
                                    }
                       default { puthelp "PRIVMSG $chan :USAGE: !silence <-on|-off|-host> [+/-host]" }
}

ar trebui sa functioneze perfect, also am adaugat si posibilitatea de a adauga/scoate silence numai la anumite hosturi cu comanda !silence -host +/-host. Exemplu: !silence -host +*!*@arcadel.users.undernet.org

spy · 23-07-2007, 11:22

-on -off -host , nu merg..imi da asa la debug..

Quote:

[10:21] <TCL> bad option "-on": must be -exact, -glob, -regexp, or --
[10:21] <TCL> while executing
[10:21] <TCL> "switch -exact $opt1 {
[10:21] <TCL> -on {if {[info exists silenced]} { puthelp "PRIVMSG $chan :Silence este deja activat

"; return ..."
[10:21] <TCL> (procedure "pub:silence" line 7)
[10:21] <TCL> invoked from within
[10:21] <TCL> "pub:silence $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

AdrianK · 23-07-2007, 18:54

arcade nu prea stie ce face. Incearca in loc de

Code:

switch -exact $opt1 {

sa pui

Code:

switch  --  $opt1 {

btw harry potter 7 rules

spy · 24-07-2007, 08:37

da merge perfect ms mult de tot AdrianK deci varianta finala ar fi:

Quote:

bind pub N !silence pub:silence

proc pub:silence {nick host hand chan txt} {
global silenced

set opt1 [lindex $txt 0]
set opt2 [lindex $txt 1]

switch -- $opt1 {
-on {if {[info exists silenced]} { puthelp "PRIVMSG $chan :Silence is already on."; return }
putserv "SILENCE +*"
set silenced 1
puthelp "PRIVMSG $chan :Silence is now on"
}
-off {if {![info exists silenced]} { puthelp "PRIVMSG $chan :Silence is already off."; return }
putserv "SILENCE -*"
unset silenced
puthelp "PRIVMSG $chan :Silence is now off"
}
-host {if {![string match "+*!*@*" $opt2] || ![string match "-*!*@*" $opt2]} { puthelp "PRIVMSG $chan :Invalid host: $opt2"; return }
putserv "SILENCE $opt2
puthelp "PRIVMSG $chan :Added silence for host: $opt2"}
}
default { puthelp "PRIVMSG $chan :USAGE: !silence <-on|-off|-host> [+/-host]" }
}

harry potter 7 rules .. da stai ca inca nu la`m vazut =)) , btw cer inchiderea acestui thread

17-07-2007, 00:56	#11 (permalink)
ReaL\|DoG Junior Member Join Date: Jul 2005 Location: Italy Age: 21 Posts: 63 Rep Power: 0	Code: proc s:silence {nick host hand chan args} { eu totusi cred ca lipeste Code: global settings avand in vedere ca set settings(silence) 0 este in afara procesului

17-07-2007, 23:17	#13 (permalink)
ReaL\|DoG Junior Member Join Date: Jul 2005 Location: Italy Age: 21 Posts: 63 Rep Power: 0	ok, cum zici tu #### EDIT #### oricum, sincer sa fiu, da niste errori, daca fac cum zic eu .. si sunt sigur 100% ca trebuie sa declari global settings, ca sa iti mearga $settings(silence), dar oricum primesc erroarea asta Code: [ 22:06:00 ] [ mybotnick ] [20:06] Tcl error [s:silence]: invalid command name "0" [ 22:06:02 ] [ mybotnick ] [20:06] Tcl error [s:silence]: invalid command name "0" iar daca nu declar global settings, sau mut variabila in proces primesc urmatoarea erroare Code: [ 22:08:30 ] [ mybotnick ] [20:08] Tcl error [s:silence]: can't read "settings(silence)": no such variable Sincer, nush cum merge la tine.. dar eu am testat si pe eggdrop si pe windrop, si primesc aceleasi errori Last edited by ReaL\|DoG; 18-07-2007 at 00:10. Reason: am completat cu niste argumente :)

23-07-2007, 18:54	#16 (permalink)
AdrianK Member Join Date: Jun 2004 Location: Canada Age: 18 Posts: 141 Rep Power: 0	arcade nu prea stie ce face. Incearca in loc de Code: switch -exact $opt1 { sa pui Code: switch -- $opt1 { btw harry potter 7 rules

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)