egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-02-12T22:28:15-04:00 https://forum.eggheads.org/app.php/feed/topic/11360 2006-02-12T22:28:15-04:00 2006-02-12T22:28:15-04:00 https://forum.eggheads.org/viewtopic.php?p=60387#p60387 <![CDATA[delete raison]]> Statistics: Posted by Sir_Fz — Sun Feb 12, 2006 10:28 pm

]]> 2006-02-12T22:14:53-04:00 2006-02-12T22:14:53-04:00 https://forum.eggheads.org/viewtopic.php?p=60386#p60386 <![CDATA[delete raison]]>

Tcl error [part:chan]: can't read "#chantest": no such variable

Statistics: Posted by pilouuu — Sun Feb 12, 2006 10:14 pm

]]> 2006-02-12T19:56:20-04:00 2006-02-12T19:56:20-04:00 https://forum.eggheads.org/viewtopic.php?p=60380#p60380 <![CDATA[delete raison]]>
PS: It's reason, not raison.
LOL He's French Sir_Fz and "reason" IS "raison" in French. :D

Statistics: Posted by Alchera — Sun Feb 12, 2006 7:56 pm

]]> 2006-02-12T22:27:35-04:00 2006-02-12T10:51:31-04:00 https://forum.eggheads.org/viewtopic.php?p=60348#p60348 <![CDATA[delete raison]]>

Code: 

bind pub n !part part:chanproc part:chan {nick uhost hand chan arg} { set c [lindex [split $arg] 0] set reason [join [lrange [split $arg] 1 end]] if {![validchan $c]} {  puthelp "privmsg $chan :$c is an invalid channel." } {  putserv "privmsg $chan :$c has been deleted by $nick for reason: $reason"  channel remove $c }}
PS: It's reason, not raison.

Statistics: Posted by Sir_Fz — Sun Feb 12, 2006 10:51 am

]]> 2006-02-12T02:49:25-04:00 2006-02-12T02:49:25-04:00 https://forum.eggheads.org/viewtopic.php?p=60334#p60334 <![CDATA[delete raison]]>

Code: 

### Public command channel join/part script ### bind pub n !part pub:-chan bind pub n .-chan pub:-chan proc pub:-chan {nick uhost hand chan text} {         set args [split [cleanarg $text]]         if {[llength $text]<1} {                 putserv "NOTICE $nick :Usage: .-chan <#channel>"                 return 0         }         channel remove $text         save    putserv "NOTICE $nick :I have removed $text from my channel list."   return 0 } proc cleanarg {arg} {   set response ""   for {set i 0} {$i < [string length $arg]} {incr i} {     set char [string index $arg $i]     if {($char != "\12") && ($char != "\15")} {       append response $char     }   }   return $response }

hi
Possible add arg for raison?

Expl: !part #chan Bla Bla Bla

<bot> Chan has been deleted by $nickname for raison: Bla Bla Bla
<bot> leave chan.

Thx for all help.

Code: 

### Public command channel join/part script ### bind pub n !part pub:-chan bind pub n .-chan pub:-chan proc pub:-chan {nick uhost hand chan text} {         set args [split [cleanarg $text]]         if {[llength $text]<1} {                 putserv "NOTICE $nick :Usage: .-chan <#channel> <raison>"                 return 0         }   putserv "PRIVMSG $test :Chan has been deleted By $nick .Raison: [u]???$arg???[/u]        channel remove $text         save    putserv "NOTICE $nick :I have removed $text from my channel list."   return 0 } proc cleanarg {arg} {   set response ""   for {set i 0} {$i < [string length $arg]} {incr i} {     set char [string index $arg $i]     if {($char != "\12") && ($char != "\15")} {       append response $char     }   }   return $response }

Statistics: Posted by pilouuu — Sun Feb 12, 2006 2:49 am

]]>