egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2012-01-28T12:03:24-04:00 https://forum.eggheads.org/app.php/feed/topic/18809 2012-01-28T12:03:24-04:00 2012-01-28T12:03:24-04:00 https://forum.eggheads.org/viewtopic.php?p=98629#p98629 <![CDATA[BadServ.tcl modification]]>


proc pun:server {nick uhost hand chan text} {

Statistics: Posted by SmasHinG — Sat Jan 28, 2012 12:03 pm

]]> 2012-01-28T11:01:40-04:00 2012-01-28T11:01:40-04:00 https://forum.eggheads.org/viewtopic.php?p=98627#p98627 <![CDATA[BadServ.tcl modification]]>
i want to modify badserv.tcl when user use !voice, !v or + in channel
bot whois user, and if user in a $server get voice..

Here tcl:

Code: 

############################### All Right Reserved by Paco ################################ Vuvedete serverite, koito ako nqkoj potrebitel, koito e wlqzal na tqh da mu bude daden op ili voice!set opvoiceserv {  {irc.server1.com}  {irc.server2.com}}# Napishete kanala, za koito da raboti scripta.set chan "#Channel"## Script ##bind pub -|- + pun:serverbind pub -|- !v pun:serverbind pub -|- !voice pun:server####################Start voice check####################proc pun:server {nick uhost hand chan} {  global botnick  if {[string tolower $botnick] == [string tolower $nick]} {    return  }  putquick "whois $nick"}# Start Voice check #bind raw - 312 server:whoisproc server:whois {from key bns} {  global chan opvoiceserv  set nick [lindex [split $bns " "] 1]  set server [string tolower [lindex [split $bns " "] 2]]  foreach bserv $opvoiceserv {if {[string tolower $bserv] == $server} {  pushmode $chan +v $nick  return    }  }}putlog "Loaded Op/Voice server check tcl writen by Paco (irc.techno-link.net)"
but.. when type !voice on channel ->
Tcl error [pun:server]: wrong # args: should be "pun:server nick uhost hand chan"

Where is my error? :(

Statistics: Posted by erotism — Sat Jan 28, 2012 11:01 am

]]>