botlending forum  

Go Back   botlending forum > Eggdrop & TCL > Tcl scripting

Tcl scripting Tcl scripting related questions

Reply
 
LinkBack Thread Tools Display Modes
Old 13-10-2004, 23:48   #1 (permalink)
Senior Member
 
GoRaPiD's Avatar
 
Join Date: Jun 2004
Location: In pat cu avatarul meu
Age: 20
Posts: 259
Rep Power: 0
GoRaPiD is an unknown quantity at this point
Send a message via Yahoo to GoRaPiD
Question Moderat Script

Exista cumva un script care cand botul ramane singur op cu X sa puna moderat ? ca eu am cautat da nu am gasit nimica

Sau daca stie cineva sa faca ma poate ajuta ?
__________________
Forza RAPID ALE ALEEEEEEEEEEEEEEEEEEEEEEe
GoRaPiD is offline   Reply With Quote
Old 25-10-2004, 17:31   #2 (permalink)
lsn
Member
 
lsn's Avatar
 
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37
lsn will become famous soon enough
Exclamation

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}
}
teoretic merge dar nu am avut chan cu X ca sa il testez klumea

Last edited by UniversaliA; 30-04-2005 at 03:51.
lsn is offline   Reply With Quote
Old 30-10-2004, 05:05   #3 (permalink)
Administrator

aka aqwzsx
 
Join Date: Jun 2004
Posts: 832
Blog Entries: 126
Rep Power: 3
UniversaliA is on a distinguished road
Default

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]} { ... }
2. de folosit return la sfrisit de script nu are rost, deobicei el se foloseste daca o conditie nu e indeplinita pentru a intrerupe executarea in continuare a unui proces, sau pentru a intoarce rezultatul executarii proceslui. Cazul tau - nu se refera la nici in una din conditiile specicate mai sus.

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.
UniversaliA is offline   Reply With Quote
Old 01-11-2004, 10:57   #4 (permalink)
lsn
Member
 
lsn's Avatar
 
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37
lsn will become famous soon enough
Exclamation

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"}
  }
 }
}
de ce am nevoie de foreach ? pt a stabili numarul de persoane cu @ pe canal, nu numarul total de persoane, dupa cum cere GoRaPiD sa fie cu @ doar X si Botul.
si la
Quote:
se presupune ca X in orice caz va avea op
, in varianta mea se poate folosi si alt nick nu doar X, daca era exclusiv pt X puneam
Code:
if {[botisop $chan] && ($lop == $needops) && [onchan X $chan]} {
ce zici de astea ? ? ?

PS: Cum fac bind la 10 minute, 20 , 30 etc ?
lsn is offline   Reply With Quote
Old 01-11-2004, 23:25   #5 (permalink)
Senior Member
 
GoRaPiD's Avatar
 
Join Date: Jun 2004
Location: In pat cu avatarul meu
Age: 20
Posts: 259
Rep Power: 0
GoRaPiD is an unknown quantity at this point
Send a message via Yahoo to GoRaPiD
Talking

Daca imi spuneti si ce sa modific pe acolo si cu ce ca sa functioneste sunteti cei mai tari





P.S. dupa cum stiti eu || tcl
__________________
Forza RAPID ALE ALEEEEEEEEEEEEEEEEEEEEEEe
GoRaPiD is offline   Reply With Quote
Old 02-11-2004, 08:15   #6 (permalink)
lsn
Member
 
lsn's Avatar
 
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37
lsn will become famous soon enough
Default

GoRaPiD , varianta a doua, dar trebuie sa dai in partyline(DCC/telnet)
Code:
 .chanset #chan +moderate
daca vrei sa functioneze , in loc de #chan pui canalul tau
lsn is offline   Reply With Quote
Old 02-11-2004, 23:30   #7 (permalink)
Senior Member
 
GoRaPiD's Avatar
 
Join Date: Jun 2004
Location: In pat cu avatarul meu
Age: 20
Posts: 259
Rep Power: 0
GoRaPiD is an unknown quantity at this point
Send a message via Yahoo to GoRaPiD
Post

Big problemo
Cand sunt 3 opi scoate moderatu
Cand sunt 2 opi nu prea il pune ( doar cand are el chef )
Si 3 vreau sa puna moderatu in secunda in care ramane singur nu dupa blabla minute
__________________
Forza RAPID ALE ALEEEEEEEEEEEEEEEEEEEEEEe
GoRaPiD is offline   Reply With Quote
Old 03-11-2004, 09:03   #8 (permalink)
lsn
Member
 
lsn's Avatar
 
Join Date: Jun 2004
Location: In the NeXuS
Posts: 160
Rep Power: 37
lsn will become famous soon enough
Exclamation

e bind facut la 5 minute
daca vrei sa il faca la minut
schimbi
Code:
 bind time - "?5 * * * *" ch:set
cu
Code:
 bind time - "* * * * *" ch:set
si ca sa nu mai scoata moderatu schimbi
Code:
 if {[botisop $chan] && ($lop == $needops) && [onchan $neednick $chan] && [isop $neednick $chan]} {puthelp "mode $chan +m"} {puthelp "mode $chan -m"}
cu
Code:
 if {[botisop $chan] && ($lop == $needops) && [onchan $neednick $chan] && [isop $neednick $chan]} {puthelp "mode $chan +m"} {return 0}
dar in cauzul asta el nu va mai scoate moderatul niciodata
lsn is offline   Reply With Quote
Old 04-11-2004, 09:02   #9 (permalink)
Administrator

aka aqwzsx
 
Join Date: Jun 2004
Posts: 832
Blog Entries: 126
Rep Power: 3
UniversaliA is on a distinguished road
Default

Quote:
Originally Posted by lsn
PS: Cum fac bind la 10 minute, 20 , 30 etc ?
simplu de tot
Code:
 bind time - "*0 * * * *" ch:set
defapt al tau bind (bind time - "?5 * * * *" ch:set) lucreaza dupa acelas principiu, la fiecare 10 minute
Quote:
Originally Posted by lsn
de ce am nevoie de foreach ? pt a stabili numarul de persoane cu @ pe canal, nu numarul total de persoane, dupa cum cere GoRaPiD sa fie cu @ doar X si Botul.
Dar daca canalul are 100 de oameni ? si daca ai vreo 3 canale de asa tip ? Sa faci in van foreach ? Nu e mai simplu sa faci foreach cand pe canal raman anume doi useri ? Doar asta a sepcificat GoRaPiD. In orice caz eu cred ca e mai optimizat si mai logic dintii sa veirifici daca pe canal este numarul specificat de oameni, si dupa daca e OK - deja sa faci foreach sau orice altceva.
Quote:
Originally Posted by GoRaPiD
Si 3 vreau sa puna moderatu in secunda in care ramane singur nu dupa blabla minute
Nu e prea optimal, dar daca insista GoRaPiD ar fi posibil de scos bind time si BOTul la fiecare part de pe canal sa verifice daca pe canal au ramas numai numarul specificat de persoane, daca canalul e mare sau in caz de join/part flood - cam o sa ia resurse, dar aceatsa va fi solutia directa la intrebarea lui GoRaPiD.

Last edited by UniversaliA; 30-04-2005 at 03:51.
UniversaliA is offline   Reply With Quote
Old 25-04-2005, 20:12   #10 (permalink)
Senior Member
 
GoRaPiD's Avatar
 
Join Date: Jun 2004
Location: In pat cu avatarul meu
Age: 20
Posts: 259
Rep Power: 0
GoRaPiD is an unknown quantity at this point
Send a message via Yahoo to GoRaPiD
Default

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
GoRaPiD is offline   Reply With Quote
Reply

Bookmarks


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

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On
Forum Jump


All times are GMT +3. The time now is 10:26.


Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.