[Request script] Silence On/Off

[Novice]

In ultima vreme primesc foarte multe atacuri cu flood, de aceea intreb daca exista vreun script pentru silence de genul :

<nick> !silence
<bot> Silence On/Off.
<nick> !Silence On/Off.
<bot> Silence is already On/Off.

[arcade]

scriptul a&a light deja contine asa ceva

[Novice]

Cautam un tcl separat fara de pachetul complet de la a&a.

[AdrianK]

erm
Pot sati offer:

<nick> !silence
<bot> Silence ACTIVATED.
<nick> !silence
<bot> Silence is already ACTIVATED
<nick> !silence -off
<bot> Silence DEACTIVATED
<nick> !silence -off
<bot> Silence is already DEACTIVATED

Deci CODE:

# Silence by StarteR2
# Usage: !silence [-off | -on]
set settings(silence) 0

bind pub N|- !silence s:silence

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

set option [lindex $args 0]

switch  --  $option {

    -on {
if {![$settings(silence)]} {
putquick "SILENCE +*!@*";
putquick "PRIVMSG $chan: Silence ACTIVATED.";
} else {
putquick "PRIVMSG $chan: Silence is already ACTIVATED.";
}

}

    -off {
if {[$settings(silence)]} {
putquick "SILENCE -*!@*";
putquick "PRIVMSG $chan: Silence DEACTIVATED.";
} else {
putquick "PRIVMSG $chan: Silence is already DEACTIVATED.";
}

}

    default {
if {![$settings(silence)]} {
putquick "SILENCE +*!@*";
putquick "PRIVMSG $chan: Silence ACTIVATED.";
} else {
putquick "PRIVMSG $chan: Silence is already ACTIVATED.";
}

}

}
}

[Novice]

multumesc mult AdrianK
comenzile nu functioneaza, cel putin "!silence" / "silence -on" / "silence on" nu fac nimic.

[AdrianK]

1. Tre sa ai acc de N global ca sa mearga.
2. Daca tot nu merge si nu zice nimic, fa debug ce astepti? sa ti se dea muran gura? Dute in DCC chat si da comanda vezi ce zice, apoi ori clarifici singur ori postezi aici. Poti incerca si

.tcl putlog $errorInfo

In DCC dupa ce ai dat comanda.

[Novice]

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

[spy]

Deci mi-a dat urmatoarele erori vreo solutie ceva?

[05:30] <useri> wrong # args: no script following "{![$settings(silence)]}"argument
[05:30] <useri> while compiling
[05:30] <useri> "if {![$settings(silence)]} "
[05:30] <useri> ("on" arm line 2)
[05:30] <useri> invoked from within
[05:30] <useri> "switch $option {
[05:30] <useri> on {
[05:30] <useri> if {![$settings(silence)]}
[05:30] <useri> putquick "SILENCE +*!@*";
[05:30] <useri> putquick "PRIVMSG $chan: Silence ACTIVAT Mai Flodati Ratatiilor..."
[05:30] <useri> (procedure "s:silence" line 5)
[05:30] <useri> "s:silence $_pub1 $_pub2 $_pub3 $_pub4 $_pub5"

[arcade]

lipseste un open bracket aici:

if {![$settings(silence)]}

inlocuiesti cu asta

 if {![$settings(silence)]}  {

[Novice]

tot nu jeala