![]() |
|
|||||||
| Tcl scripting Tcl scripting related questions |
![]() |
|
|
LinkBack | Thread Tools | Display Modes |
|
|
#2 (permalink) |
|
Member
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37 ![]() |
incearca asta
Code:
bind time - "* * * * *" ch:set
setudef flag moderate
set neednick "X"
proc ch:set {min hour day month year} {
global neednick
foreach chan [channels] {
set lop 0
if {[channel get $chan moderate] && [botisop $chan]} {
foreach u [chanlist $chan] {
if {[isop $u $chan]} { incr lop }
}
}
}
if {($lop == 2) && [onchan $neednick $chan] && [isop $neednick $chan]} {putserv "mode $chan +m";return 1} else {
putserv "mode $chan -m"; return 0}
}
Last edited by UniversaliA; 30-04-2005 at 03:51. |
|
|
|
|
|
#3 (permalink) |
|
Administrator
aka aqwzsx |
lsn, nice script - doar, unele mici obiectii, daca nu esti contra. Unele randuri/comenzi sunt in plus.
1. nu ai nevoie de foreach pentru ca sa vezi cati oamenii sunt pe canal si daca are X sau BOTul op, se presupune ca X in orice caz va avea op, exemplu: Code:
if { [llength [chanlist $chan]] == 2 && [botisop $chan] && [onchan $neednick $chan]} { ... }
3. bind ar fi mai bine de facut la fiecare 10 minute, nu e asa de critic pentru a face fiecare minuta. 4. putserv ar fi mai optimal sa folosesti pentru protectii sau output-uri critice, in rest e optimal de folosti puthelp, pentru a respecta lista prioritatilor de executare, care o definesti tu (prin plasarea output-ului in puthelp, putserv sau putquick) & deja are in e integrata in eggdrop. Last edited by UniversaliA; 04-11-2004 at 08:20. |
|
|
|
|
|
#4 (permalink) | |
|
Member
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37 ![]() |
ce zici de varianta asta ?
e corectata fara de cealalta pt ca la cealalta nu functioneaza corect [channel get $chan moderate] ![]() Code:
bind time - "?5 * * * *" ch:set
setudef flag moderate
set neednick "X"
set needops "2"
proc ch:set {min hour day month year} {
global neednick needops
foreach chan [channels] {
set lop 0
if {[channel get $chan moderate]} {
foreach u [chanlist $chan] {
if {[isop $u $chan]} { incr lop }
}
if {[botisop $chan] && ($lop == $needops) && [onchan $neednick $chan] && [isop $neednick $chan]} {puthelp "mode $chan +m"} {puthelp "mode $chan -m"}
}
}
}
si la Quote:
Code:
if {[botisop $chan] && ($lop == $needops) && [onchan X $chan]} {
![]() PS: Cum fac bind la 10 minute, 20 , 30 etc ?
|
|
|
|
|
|
|
#8 (permalink) |
|
Member
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37 ![]() |
e bind facut la 5 minute
daca vrei sa il faca la minut schimbi Code:
bind time - "?5 * * * *" ch:set Code:
bind time - "* * * * *" ch:set Code:
if {[botisop $chan] && ($lop == $needops) && [onchan $neednick $chan] && [isop $neednick $chan]} {puthelp "mode $chan +m"} {puthelp "mode $chan -m"}
Code:
if {[botisop $chan] && ($lop == $needops) && [onchan $neednick $chan] && [isop $neednick $chan]} {puthelp "mode $chan +m"} {return 0}
|
|
|
|
|
|
#9 (permalink) | |||
|
Administrator
aka aqwzsx |
Quote:
Code:
bind time - "*0 * * * *" ch:set Quote:
Quote:
Last edited by UniversaliA; 30-04-2005 at 03:51. |
|||
|
|
|
|
|
#10 (permalink) |
|
Senior Member
|
Daca de ex mai vreau chiar daca mai sta cineva op cu el sa puna moderat ? si cand sunt mai multi sa scoata ?
Ca mai este cineva care isi lasa un bot facut pe mircu lui cu op si daca se poate sa puna moderat daca este ala cu op si daca sunt ala cu X si inca cineva sa scoata , se poate ?
__________________
Forza RAPID ALE ALEEEEEEEEEEEEEEEEEEEEEEe |
|
|
|