help with something please.

[Carnage69]

Hello i am trying to make a anti advertise script and it bans everyone in the chan that talks can someone help me here is the script.

Code: Select all

set advertiseban(banmessage) "Do Not Advertise In #ProFrag"
set advertiseban(time) "120"
set advertiseban(chan) "#profrag"

bind pubm - "$advertiseban(chan) *#*" chanadvertise
proc chanadvertise { nick host hand chan text } {
  global advertiseban botnick
  if { [isop $nick $chan] || [isvoice $nick $chan] } {
  return 1
  }
  set newhost "*!*[string range $host [string first @ $host] end]"
  set comment " $advertiseban(banmessage) (2 Hours)"
  newchanban $chan $newhost $botnick $comment $advertiseban(time)
  return 1
}

putlog "Anti Advertise v1.0 by Carnage Loaded."    

[caesar]

Code: Select all

set advertiseban(banmessage) "Do Not Advertise In #ProFrag" 
set advertiseban(time) "120"
set advertiseban(chans) "#profrag #somechannel" 

bind pubm - {* *#*} chanadvertise

proc chanadvertise {nick uhost hand chan text} { 
  global advertiseban
  if {[lsearch -exact [split [strlwr $advertiseban(chans)]] [string tolower $chan]] == -1 || [isop $nick $chan] || [isvoice $nick $chan]} {
    return
  }
  scan $uhost "%\[^@\]@%s" user host
  newchanban $chan *!*@$host spam "$advertiseban(banmessage)" $advertiseban(time)
}

[user]

Just a tip:

Code: Select all

scan $uhost "%\[^@\]@%s" user host

There's no need to create variables you're not going to use... add a '*' to the first part of the conversion rule to avoid having the value assigned to a variable.

Code: Select all

scan $uhost {%*[^@]@%s} host