Normal Mod | Çizgisel Mod

**BLaCK_and_WHiTe** · 02-15-2008, 04:01 AM

Kod:

# Kick yada oper ise kill mesaji

set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"

# Eger bot oper olup reklam yapanlara gline aticaksa

# bu ayari 1 yapin, aksi takdirde dokunmayin..

set botoper "0"

## Bot oper olucaksa oper username ve sifre

## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun

set onick "opernick"

set opass "operpass"

# Kufurler - Eklemek istediginiz kufur varsa asagidan

# ekliyebilirsiniz..

set kufurler { 

"am"

"got"

"sik*"

"göt*"

"düzerim"

"duzerim"

"sk*"

"sokar*"

"yalarm"

"yalarim"

"*orospu*"

"*orozpu*"

"yarrak*"

"yarak*"

"pic"

"*piç*"

"yarrag"

"hasiktir"

"*siker*"

"*amci*"

"*amc*"

"*ibne*"

"gotun*"

}

# Bu kadar..!

bind pubm - * kufurban

# DOKUNMAYIN..!

# Dokunmak delikanliyi bozar ;P

bind evnt - init-server botoper_yap

proc botoper_yap {type} {

  global onick opass

if {$botoper == 1} {

putquick "OPER $onick $opass"

 }

}

proc kufurban {nick uhost hand chan rest} {

global kufurler botoper bansebebi

foreach w $kufurler {

if {[string match -nocase "* $w *" " $rest "] && ![isop $nick $chan]} { 

     if {$botoper == 1} {

  putquick "GLINE +*[string range $uhost [string first @ $uhost] e] 1d :$bansebebi" -next

  putquick "KILL $nick :$bansebebi" -next

  return 1

 } else { 

  putquick "MODE $chan +b *!*[string range $uhost [string first @ $uhost] e]" -next

  putkick $chan $nick $bansebebi

  return 1

    } 

  }

}

}

putlog "Kufur.tcl 2.0 by Stonkeep Yuklendi..."