mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası

mIRCForum.Com - mIRC Kullanıcılarının Buluşma Noktası (http://www.mircforum.com/)
-   TCL Scriptler (http://www.mircforum.com/tcl-scriptler/)
-   -   Küfür Argo TCL (http://www.mircforum.com/tcl-scriptler/2646-kufur-argo-tcl.html)

Che 29 Haziran 2016 19:23

Küfür Argo TCL
 
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 *"
"* ******"
"* 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..."


Spooky 30 Ağustos 2017 13:00

Cevap: Küfür Argo TCL
 
slm che day bu tcl alitiramadm ben conf dosyamda farkli bir event var ondanm kaynakl conf dosyadaki gibimi yapmam lazm bununkinide?


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:47.

Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.0
mIRCForum - Sohbet
Copyright ©2005 - 2016 mIRCForum.Com | Tüm Hakları Saklıdır.