IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

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 "Bot"
 

set opass "4a5fs546fas546fas456fsa546fs5a46"
 

# Kufurler - Eklemek istediginiz kufur varsa asagidan

# ekliyebilirsiniz..
 

set kufurler { 

"am"

"got"

"sike*"

"siki"

"duzerim"

"amk*"

"sokari*"

"yalım"

"yalarim"

"*orospu*"

"*orozpu*"

"yarrak*"

"yarak*"

"pic"

"*piç*"

"yarrag"

"hasiktir"

"*siker*"

"*amci*"

"*amcı*"

"*ibne*"

"gotun*"

"*serefsiz*"

"*şerefsiz*"

"*sie*"

"*s1e*"

"*s!e*"

"*zikt*"

"*dassağ*"

"*khpe*"

"*siçm*"

"*şökarim*"

"*ğötüne*"

"a.k"

"m.k"

"p1j*"

"m.g"

"amuş*"

"senin ann*"

"*p?içç*"

"*a?mına*"

"*o?rosp*"

"*o?rosb*"

"*kahpe*"

"*k?ahpenin*"

"*a?nayin*"

"*s?ikerim*"

"*ananla*"

"* anana *"

"anana *"

"* süe *"

"* amk co*"

"* amk ço*"

"*fuck*"

"*shit*"

"*bitch*"

"*dick*"

"*sikmeye*"

"* göt *"

"*yarak*"

"*yarrak*"

"* siker*"

"* sikey*"

"* amina*"

"* amına*"

"*orospu*"

"*orosbu*"

"*ibne*"

"*ipne*"

"*pezev*"

"* kaltak*"

"* sikis *"

"* sikiş*"

"* anani*"

"* ecdad*"

"* zikeyi*"

"* zokayi*"

"* sokayi*"

"* zokayı*"

"* sokayı*"

"* amcik*"

"* amcık*"

"got"

"* sex*"

"* seks*"

"* sekx*"

"* sikse*"

"* domal*"

"* dalyar*"

"* daltaş*"

"* taşak*"

"* taşşak*"

"* tasak"

"* tassak*"

"* a.k *"

"*a.q*"

"a.k"

"* aq *"

"*şerefs*"

"*serefs*"

"* ananı*"

"* amını*"

"*travesti*"

"*götüne*"

"*sex*"

"* sikil*"

"* gavat *"

"* sikt*r *"

"* abaza *"

"* dallama *"

"*gööt*"

"* siik*"

"*gavat*"

"* o.ç*"

"* o.c*"

"* folloş*"

"* foloş*"

"* a.g *"

"* sikti*"

"*siker*"

"*hassiktir*"

"* ananizi*"

"* siikişmiş*"

"* siikismis*"

"* pezeweng*"

"* pezewenq *"

"* SİKE*"

"* SİKT*"

"* SİKS*"

"* m.q *"

"* m.g *"

"* m.k *"

"* hastir *"

"* sikecem *"

"* orossp*"

"* q.a *"

"*w?w?w*"

"*s?i?k?e?r*"

"*s?i?k?e?y*"

"* amına *"

"* amını *"

"w??w??w*"

"* irc.*"

"* amk *"

"* porno*"

"* tecav?z*"

"* sikiş*"

"* sikis *"

"*@hot*"

"*.net"

"*com"

"*org"

"*c?o?m"

"*n?e?t"

"* bagirta*"

"* bağırta*"

"* sikti*"

"*s?i?k?t?i*"

"*s?i?k?e?"

"* fuck*"

"* horny*"

"*decode*"

 "*yarra*"

 "*siktig*"

 "*siktiğ*"

 "*doyumsuz*"

 "*jigolo*"

 "*cigolo*"

 "*sex*"

 "*seks*"

 "*ibne*"

 "*sikic*"

 "*siker*"

 "*kayar*"

 "*amcı*"

 "*yarak*"

 "*yalar*"

 "pic"

 "piç*"

 "gotcu*"

 "göt*"

 "amse?er*"

 "*amyarar*"

 "*skici*"

 "*iskerim*"

 "*sikse*"

 "*darbel*"

 "*sakso*"

 "*skiyom*"

 "*sanalsk*"

 "*snlsx"

 "*iri?sk*"

 "*azg?n*"

 "*az?g?n*"

 "*cinsel*"

 "*domanlt*"

 "*kocasik*"

 "*saxo*"

 "sertvurur*"

 "*acitmam*"

 "*kocasik*"

 "*uzunsik*"

 "*buyuksik*"

 "*sixe*"

 "*azdira*"

 "*azdiri*"

 "*ziker*"

 "*agzin*"

 "*agzim*"

 "*pipi*"

 "*vi?gra*"

 "*wi?gra*" 

 "*delik"

 "*delig*"

 "am?doktor*"

 "amdoktor*"

 "*bakire*"

 "*bozarim*"

 "*sutyen*"

 "*kilot*"

 "*bacak*"

 "*hisset*"

 "*jineko*"

 "*pich*"

 "*seviselim*"

 "*sevisek*"

 "*bozucu*"

 "ambasar*"

 "*orgaz*"

 "*santim*"

 "*kocaman*"

 "*o?rosb*"

 "*o?rosp*"

 "*orosb*"

 "*orosp*"

 "*o?r?o?s?b*"

 "*o?r?o?s?p*"

 "*amcik*""

 "*supyan*"

 "*horny*"

 "*horney*"

 "*fuck*"

 "*asshole*"

 "*dick*"

 "*sperm*"

 "*deler*"

 "alet"

 "*donsuz*"

 "*gotver*"

 "*ereksiy*"

 "*erexio*"

 "*analsev*"

 "*kurdist*"

 "*bitch*"

 "*fagget*"

 "*shithead*"

 "*shitter*"

 "*penis*"

 "*pussy*"

 "*fukker*"

 "*http*"

"*w*w*w*n*e*t"

"*v*v*v*n*e*t*"

"*w*w*v*com*"

"*w*v*v*c*0*m*"

"*v*v*v*c*0*m*"

"*v*w*v*c*0*m*"

"*w*v*v*com*"

"*v*w*v*com*"

"*w*w*w*o*r*g*"

"*w*w*w*c*o*m*"

"*v*v*v*tc*gs*"

"*w*w*w*tc*gs*"

"*v?v*tc*gs*"

"*irc*net*"

"*irc*com*"

"*irc*org*"

"*irc*gen*"

"*i?r?c*c*o*m*"

"*@*c*o*m*"

"*@*hot*"

"*@*de*"

"*@*fr*"

"*Msnde*"

"*tl*tc"

"*tc*vg*"

"sikis"

"*o?r?o?s??u*"

"*oros??u*"

"*o?ros?u"

"*or?os?u"

"sik*"

"göt*"

"düzerim"

"duzerim"

"yalarım"

"yalarim"

"*oros?u*"

"*orozpu*"

"yarrak*"

"yarak*"

"pic"

"*piç*"

"yarrag"

"hasiktir"

"siker*"

"amci*"

"ibne*"

"* şerefsiz*"

"* s!e *"

"* s!ke*"

"* s1ke*"

"* dassaÃ°*"

"zikt*"

"* siçm*"

"*khpe*"

"sıktım*"

"*senın amın*"

"*Şökarimam*"

"*ğÖtüne*"

"* m.k *"

"* a.k *"

"* senın ann*"

"* 4.k *"

"amuş*"

"* m.g *"* p1j*"

"* sİkc*"

"* şikeç *"

"* 4.g *"

"* a.q *"

"* m.q *"

"*orsbu*"

"* gtünü*"

"* a.g *"

"pezo *"

"* gdş*"

"SİKM*"

"* skti*"

"*Ötver*"

"*siktır*"

"*kerane*"

"avradı*"

"*rospu*"

"*sokuyum*"

"* dassak*"

"*baÇiiii*"

"* ulan hepınız*"

"sİkek*"

"siktig*"

"*deyyus*"

"* anasin*"

"*glu kÖpek*"

"* sülal*"

"*FAHİşHE*"

"*sıke*"

"* siktir*

"amına*"

"* sıkek*"

"*senin amin*"

"amİna*"

"*gdÖş*"

"* bacİn*"

"* taşag*"

"sİkc*"

"*sikkt*"

"*sikç*"

"pıç"

"*koyaaaa*"

"*nün evlad*"

"* peniŞ *"

"* şiktir*"

"*ğÖtünü*"

"sikek*"

"*Şikkk*"

"*gÖtlek*"

"*sicar*"

"* İbna*"

"siktir*"

"* amus*"

"*gdÖs*"

"*şiktiri*"

"ananin*"

"*hayvanog*"

"*fahi$*"

"cuku *"

"zikt*"

"*SİKİş*"

"*Şiktiri*"

"* zıcm*"

"zıcm*"

"* pic *"

"*sıcam*"

"*fahişhe*"

"* ziçm*"

"picl*"

"zİkt*"

"* amİna*"

"*gÖdos*"

"bacİn*"

"*zükeri*"

"taşag*"

"taşaÃ°*"

"amcı*"

"sİker*"

"*orspu*"

"avradini*"

"*kÖpoÃ°*"

"*onunbunun*"

"yarak*"

"* şikeçem *"

"*gotune*"

"* sİkt*"

"daşşa"

"anaŞin*"

"*zıcar*"

"dassag*"

"*senın amin*"

"*hastir*"

"kaltak*"

"tasak*"

"siçm*"

"ipna*"

"taşşak*"

"* bezo *"

"am *"

"*şikime*"

"* İpna*"

"*itogl*"

"pici*"

"daşak"

"sibidi"

"taşşak*"

"amİnd*"

"* sik *"

"ulan hepınız*"

"* tassag*"

"çük*"

"*gotver*"

"* amını*"

"pic"

"sikim*"

"amina*"

"*E R Q*"

"gæ$har"

"*zoqari*"

"zie"

"* sİker*"

"dasak*"

"anası*"

"*sıçam*"

"amk*"

"*zoqarı*"

"*şikimş*"

"sıçt*"

"*zıçt*"

"*sİkİs*"

"* sikim *"

"senın anan*"

"*ŞiÇaÇak*"

"*ĞötÜne*"

"gotun*"

"*şikeç *"

"ibna*"

"yarak *"

"* picsi*"

"*gÖdoş*"

"*ŞiÇarim*"

"sikm*"

"*godş*"

"siker*"

"*anaşin *"

"sıçm*"

"daşşa*"

"*ULAN HEPİNİZ*""

"QrUspu*"

"*sikimd*"

"SIHkım"

"*FHİşE*"

"* amu$*"

"*bezeven*"

* şikim"

"*Şikime*"

"* kaltak*"

"*şiçaçak*"

"sokuy*"

"*amola*"

"yalaqi"

"*kltak*"

"sülal*"

"s2m"

"*domalt*"

"daşak*"

"*amcig*"

"siktik*"

"sİkİ*"

"koydugumun*"

"*bzeven*"

"*fahise*"
 

}
 
 

# 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 Che Yuklendi..."