botlending forum  

Go Back   botlending forum > Eggdrop & TCL > Tcl scripting
ChanSetup & ChanHelp script ChanSetup & ChanHelp script
Register ProjectsBlogs FAQ Members List Calendar Search Today's Posts Mark Forums Read

Tcl scripting Tcl scripting related questions

Reply
 
LinkBack Thread Tools Display Modes
Old 10-02-2007, 01:07   #1 (permalink)
Junior Member
 
Join Date: Sep 2006
Age: 36
Posts: 7
Rep Power: 0
vlad2006 is an unknown quantity at this point
Default ChanSetup & ChanHelp script
Code:
bind pub N !chansetup pub:chansetupp
bind pub N !chanhelp pub:chanhelp

proc pub:chansetupp {nick uhost hand chan arg} {
 set arg1 [lindex $arg 0]
 set arg2 [lindex $arg 1]
 set chan1 $chan 
 if {($arg2 == "OFF") || ($arg2 == "ON")} {
 if {($arg1 == "enforcebans") && ($arg2 == "ON")} { set en "ON"; setuser X XTRA VALOARE-EN-$chan1 $en; channel set $chan1 +enforcebans; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "enforcebans") && ($arg2 == "OFF")} { set en "OFF"; setuser X XTRA VALOARE-EN-$chan1 $en; channel set $chan1 +enforcebans; putserv "NOTICE $nick :$arg1 este OFF" }
 if {($arg1 == "dynamicbans") && ($arg2 == "ON")} { set dy "ON"; setuser X XTRA VALOARE-DY-$chan1 $dy; channel set $chan1 +dynamicbans; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "dynamicbans") && ($arg2 == "OFF")} { set dy "OFF"; setuser X XTRA VALOARE-DY-$chan1 $dy; channel set $chan1 +dynamicbans; putserv "NOTICE $nick :$arg1 este OFF" }
 if {($arg1 == "userbans") && ($arg2 == "ON")} { set ub "ON"; setuser X XTRA VALOARE-UB-$chan1 $ub; channel set $chan1 +userbans; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "userbans") && ($arg2 == "OFF")} { set ub "OFF"; setuser X XTRA VALOARE-UB-$chan1 $ub; channel set $chan1 +userbans; putserv "NOTICE $nick :$arg1 este OFF" }
 if {($arg1 == "autoop") && ($arg2 == "ON")} { set ao "ON"; setuser X XTRA VALOARE-AO-$chan1 $ao; channel set $chan1 +autoop; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "autoop") && ($arg2 == "OFF")} { set ao "OFF"; setuser X XTRA VALOARE-AO-$chan1 $ao; channel set $chan1 +autoop; putserv "NOTICE $nick :$arg1 este OFF" }
 if {($arg1 == "autohalfop") && ($arg2 == "ON")} { set ah "ON"; setuser X XTRA VALOARE-AH-$chan1 $ah; channel set $chan1 +autohalfop; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "autohalfop") && ($arg2 == "OFF")} { set ah "OFF"; setuser X XTRA VALOARE-AH-$chan1 $ah; channel set $chan1 +autohalfop; putserv "NOTICE $nick :$arg1 este OFF" }
 if {($arg1 == "bitch") && ($arg2 == "ON")} { set bi "ON"; setuser X XTRA VALOARE-BI-$chan1 $bi; channel set $chan1 +bitch; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "bitch") && ($arg2 == "OFF")} { set bi "OFF"; setuser X XTRA VALOARE-BI-$chan1 $bi; channel set $chan1 +bitch; putserv "NOTICE $nick :$arg1 este OFF" }
 if {($arg1 == "protectops") && ($arg2 == "ON")} { set po "ON"; setuser X XTRA VALOARE-PO-$chan1 $po; channel set $chan1 +protectops; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "protectops") && ($arg2 == "OFF")} { set po "OFF"; setuser X XTRA VALOARE-PO-$chan1 $po; channel set $chan1 +protectops; putserv "NOTICE $nick :$arg1 este OFF" }
 if {($arg1 == "anticuloare") && ($arg2 == "ON")} { set sl "ON"; setuser X XTRA VALOARE-SL-$chan1 $sl; channel set $chan1 +anticolour; putserv "NOTICE $nick :$arg1 este ON" }
 if {($arg1 == "anticuloare") && ($arg2 == "OFF")} { set sl "OFF"; setuser X XTRA VALOARE-SL-$chan1 $sl; channel set $chan1 +anticolour; putserv "NOTICE $nick :$arg1 este OFF" }
 if {$arg1 == ""} { putserv "NOTICE $nick :Folositi: !chansetup variabila ON sau OFF . Pentru a vedea setarile facute !chanhelp" }  
} { putserv "NOTICE $nick :Argumentul 2 |$arg2| Nu este valid" }
}

proc pub:chanhelp {nick uhost hand chan arg} {
 set chan1 $chan
 set en [getuser X XTRA VALOARE-EN-$chan1]
 set dy [getuser X XTRA VALOARE-DY-$chan1]
 set ub [getuser X XTRA VALOARE-UB-$chan1]
 set ao [getuser X XTRA VALOARE-AO-$chan1]
 set ah [getuser X XTRA VALOARE-AH-$chan1]
 set bi [getuser X XTRA VALOARE-BI-$chan1]
 set po [getuser X XTRA VALOARE-PO-$chan1]
 set sl [getuser X XTRA VALOARE-SL-$chan1]
 putserv "NOTICE $nick :Setarile pentru canal $chan: enforcebans:$en dynamicbans:$dy userbans:$ub autoop:$ao autohalfop:$ah bitch:$bi protectops:$po anticuloare:$sl"
}
As avea nevoie de niste inbunatatiri pentru acest script si de niste sugestii daca se poate !Toate parerile sunt bine venite
Last edited by vlad2006; 10-02-2007 at 12:20.
vlad2006 is offline   Reply With Quote
Old 26-02-2007, 10:50   #2 (permalink)
TCB & Ratings projects Member, #Mythic representative
 
arcade's Avatar
 
Join Date: Jun 2004
Location: In fatza calculatorului!!
Age: 19
Posts: 221
Rep Power: 37
arcade is on a distinguished road
Send a message via Yahoo to arcade
Default
ok deci hai sa il optimizam putin :P

in primul rand ceea ce ai pus tu nu poate fi folosit decat de pe canal. parerea mea e ca cel mai bine ar fi sa facem asa:
Code:
if {[string match [lindex $arg 0] "*#*"]} {
	set chan [lindex $arg 0]
	set opt1 [lindex $arg 1]
	set opt2 [lindex arg 2]
} else {
	set opt1 [lindex $arg 0]
	set opt2 [lindex $arg 1]
}
acum, sa vedem cum aranjam frumos setarile alea ale tale :P
Code:
if { (![regexp {^(enforcebans|dynamicbans|userbans|autoop|autohalfop|bitch|protectops|anticolour)$} $opt1] || ![regexp {^(on|off)$} $opt2]} { puthelp "PRIVMSG $chan :USAGE: !chansetup [#chan] <enforcebans|dynamicbans|userbans|autoop|autohalfop|bitch|protectops|anticolour> <on|off>" ; return}
switch $opt2 {
	on { channel set $chan +${opt1} } 
	off { channel set $chan -${opt1} } 
	}
puthelp "NOTICE $nick :SET $opt1 $opt2 on $chan"
}
eu zic ca e mult mai simplu decat ce aveai tu

si pt chanhelp:
Code:
if {[channel get $chan enforcebans]} {set en "ON"} else {set en "OFF"}
if {[channel get $chan dynamicbans]} {set dy "ON"} else {set dy "OFF"}
if {[channel get $chan userbans]} {set eb "ON"} else {set ub "OFF"}
if {[channel get $chan autoop]} {set ao "ON"} else {set ao "OFF"}
if {[channel get $chan autohalfop]} {set ah "ON"} else {set ah "OFF"}
if {[channel get $chan bitch]} {set bi "ON"} else {set bi "OFF"}
if {[channel get $chan protectops]} {set po "ON"} else {set po "OFF"}
if {[channel get $chan anticolour]} {set sl "ON"} else {set sl "OFF"}
puthelp "NOTICE $nick :Setarile pentru canal $chan: enforcebans:$en dynamicbans:$dy userbans:$ub autoop:$ao autohalfop:$ah bitch:$bi protectops:$po anticuloare:$sl"
}
deci in final va arata cam asa:
Code:
bind pub N !chansetup pub:chansetupp
bind pub N !chanhelp pub:chanhelp

proc pub:chansetupp {nick uhost hand chan arg} {

if {[string match [lindex $arg 0] "*#*"]} {
	set chan [lindex $arg 0]
	set opt1 [lindex $arg 1]
	set opt2 [lindex arg 2]
} else {
	set opt1 [lindex $arg 0]
	set opt2 [lindex $arg 1]
}

if { (![regexp {^(enforcebans|dynamicbans|userbans|autoop|autohalfop|bitch|protectops|anticolour)$} $opt1] || ![regexp {^(on|off)$} $opt2]} { puthelp "PRIVMSG $chan :USAGE: !chansetup [#chan] <enforcebans|dynamicbans|userbans|autoop|autohalfop|bitch|protectops|anticolour> <on|off>" ; return}
switch $opt2 {
	on { channel set $chan +${opt1} } 
	off { channel set $chan -${opt1} } 
	}
puthelp "NOTICE $nick :SET $opt1 $opt2 on $chan"
}

proc pub:chanhelp {nick uhost hand chan arg} {


if {[channel get $chan enforcebans]} {set en "ON"} else {set en "OFF"}
if {[channel get $chan dynamicbans]} {set dy "ON"} else {set dy "OFF"}
if {[channel get $chan userbans]} {set eb "ON"} else {set ub "OFF"}
if {[channel get $chan autoop]} {set ao "ON"} else {set ao "OFF"}
if {[channel get $chan autohalfop]} {set ah "ON"} else {set ah "OFF"}
if {[channel get $chan bitch]} {set bi "ON"} else {set bi "OFF"}
if {[channel get $chan protectops]} {set po "ON"} else {set po "OFF"}
if {[channel get $chan anticolour]} {set sl "ON"} else {set sl "OFF"}
puthelp "NOTICE $nick :Setarile pentru canal $chan: enforcebans:$en dynamicbans:$dy userbans:$ub autoop:$ao autohalfop:$ah bitch:$bi protectops:$po anticuloare:$sl"
}
sper ca nu am gresit nimic, si daca nu am gresit ar trebui sa mearga perfect, si arata mult mai bine, si e si mai citibil, chit ca nu prea imi place mie cum arata chanhelp, dar in fine l-am facut sa fie exact cum il aveai tu :P
__________________
Fuck oFF!
arcade is offline   Reply With Quote
Old 28-02-2007, 15:06   #3 (permalink)
Junior Member
 
Join Date: Feb 2007
Posts: 9
Rep Power: 0
Smile is an unknown quantity at this point
Default salu
!chansetup #Just.Smile enforcebans


In botNet egg`ul mi`a aratat urmatoare eroare ...


Code:
14:04:40 <(JustSmile> [12:04] Tcl error [pub:chansetupp]: syntax error in expression " (![regexp {^(enforcebans|dynamicbans|userbans|autoop|autoha...": looking for close parenthesis

!chanhelp #Just.Smile enforcebans

In botNet egg`ul mi`a aratat urmatoare eroare .

Code:
14:07:28 <(JustSmile> [12:07] Tcl error [pub:chanhelp]: can't read "ub": no such variable
Smile is offline   Reply With Quote
Reply

Bookmarks

« FTP upload tcl | #canal Cannot change nickname while banned on channel or channel is moderated »

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

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 13:05.

Contact Us - botlending - Archive - Top

Powered by vBulletin® Version 3.7.3
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Botlending terms of use & licensing