Top
Home > Code Snippets > Magnetronkip's Snippets > TCL

part script


TCL Code
+ 0 likes
Please Register to submit score.
Bookmark and Share
Average Score  4.0 (of 1 scores)
Date Added  Jun 01, 2005
Last Updated  Sep 25, 2006

Introduction

with a lot off help from metroid from #development we made the script
set mode .chanset +nopart on a chan and user $partall it will part all the channel execpt the channel where you have set +nopart

Grab the Code

#############################################
### part.tcl                              ###
### Version 1.0                           ###
### By Magnetronkip and metroid           ###
### http://magnetronkip.legix-designz.com ###
### quakenet #magnetronkip                ###
### magnetronkip[at]legix-designz[dot]com ###
#############################################
setudef flag nopart
bind pub n \$partall pub:partall
proc pub:partall {nick host hand chan args} {
foreach channel [channels] {
if {![channel get $channel nopart]} {
channel remove $channel
}
}
putquick "JOIN #0,0"
putquick "NOTICE $nick :Parted all channels"
}
 

Comments

  (2)  RSS
juhapuha
Comments: 73
 
TCL Snippet:  part script
Posted on Nov 24, 2008 6:33 pm
Parting a channel != removing it. It still parts from that channel too, where chanset +nopart exists.
F*U*R*B*Y*
Comments: 637
 
TCL Snippet:  part script
Posted on Nov 24, 2008 10:11 pm
Veryyyyyyyyyyyyy Good Script :)...

Commenting Options

Register or Login to Hawkee.com or use your Facebook or Twitter account by clicking the corresponding button below.

  
Bottom