######################################################################
#                    clonepro.tcl by Algol, v.1.1
#                    
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 (Jun 2001)
######################################################################
# ClonePro will attempt to stop join/part floods by individual users
# as well as clones mass-joining, on the specified channels. The bans
# will always be in the *!*@full.host.name format.
# Tested on a 1.6.4 eggdrop
######################################################################

# The channels you want this active on
set cp_chans "#papatya"
# Number of *@host joins in how many seconds, joins:seconds
set cp_j_flood 4:10
# Number of *user@host join/part cycles in how many seconds, j/p_cycles:seconds
set cp_jp_flood 4:10
# Period in minutes to ban *!*@host for multiple joins or join/part floods
set cp_btime 3
# Handle of the bot user that shoud be sent a note
set cp_notify "1Join/Part flood tespit edildi."
##### DON'T edit anything below this line unless you know what you're doing #####
bind join - * clone_pro_join
bind rejn - * clone_pro_join
bind part - * clone_pro_leave
bind sign - * clone_pro_leave
bind splt - * clone_pro_leave
proc clone_pro_join {nick uhost handl chan} {
 global cp_chans cp_j_flood cp_jp_flood cp_btime cp_host_count cp_uh_count cp_notify
 set uhost [string tolower $uhost]
 set host [lindex [split $uhost @] 1]
 set chan [string tolower $chan]
 if {[lsearch -exact $cp_chans $chan] == -1} {return 0}
 if {![info exists cp_host_count($host:$chan)]} {
  set cp_host_count($host:$chan) 1
 } else {
  incr cp_host_count($host:$chan)
 }
 utimer [lindex $cp_j_flood 1] "cp_expire cp_host_count($host:$chan)"
 if {$cp_host_count($host:$chan) > [lindex $cp_j_flood 0]} {
  newchanban $chan *!*@$host ClonePro "Not so fast" $cp_btime
          sendnote ClonePro $cp_notify "÷ banned *!*@$host (massjoin) on $chan, [ctime [unixtime]] ÷"
  if {[botisop $chan] && [onchan $nick $chan]} {
   putserv "KICK $chan $nick :1Join/Part flood tespit edildi."
  }
    }
 if {![info exists cp_uh_count($uhost:$chan)]} {
  set cp_uh_count($uhost:$chan) 1
 } else {
  incr cp_uh_count($uhost:$chan)
 }
 utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"
 if {$cp_uh_count($uhost:$chan) >= [expr [lindex $cp_jp_flood 0]*2]} {
  newchanban $chan *!*@$host ClonePro "1Join/Part flood tespit edildi." $cp_btime
          sendnote ClonePro $cp_notify "÷ banned *!*@$host (join/part flood) on $chan, [ctime [unixtime]] ÷"
  if {[botisop $chan] && [onchan $nick $chan]} {
   putserv "KICK $chan $nick :1Join/Part flood tespit edildi."
  }
    }
}
proc clone_pro_leave {nick uhost handl chan {reason "Left channel"}} {
 global cp_chans cp_jp_flood cp_btime cp_uh_count cp_notify
 set uhost [string tolower $uhost]
 set host [lindex [split $uhost @] 1]
 set chan [string tolower $chan]
 if {[lsearch -exact $cp_chans $chan] == -1} {return 0}
 if {![info exists cp_uh_count($uhost:$chan)]} {
  set cp_uh_count($uhost:$chan) 1
 } else {
  incr cp_uh_count($uhost:$chan)
 }
 utimer [lindex $cp_jp_flood 1] "cp_expire cp_uh_count($uhost:$chan)"
 if {$cp_uh_count($uhost:$chan) >= [expr [lindex $cp_jp_flood 0]*2]} {
  newchanban $chan *!*@$host ClonePro "1Join/Part flood tespit edildi." $cp_btime
          sendnote ClonePro $cp_notify "÷ banned *!*@$host (join/part flood) on $chan, [ctime [unixtime]] ÷"
  if {[botisop $chan] && [onchan $nick $chan]} {
   putserv "KICK $chan $nick :1Join/Part flood tespit edildi."
  }
    }
}
proc cp_expire var_exp {
 upvar $var_exp var_pointer
  
 if {$var_pointer > 1} {
  incr var_pointer -1
 } else {
  unset var_pointer
 }
}
set cp_chans [string tolower $cp_chans]
set cp_j_flood [split $cp_j_flood :]
set cp_jp_flood [split $cp_jp_flood :]

# clear variables and timers on rehash
if {[array exists cp_host_count]} {unset cp_host_count}
if {[array exists cp_uh_count]} {unset cp_uh_count}
foreach check_utimer [utimers] {
 if {[string match cp_*_count* [lindex $check_utimer 1]]} {
  killutimer [lindex $check_utimer 2]
 }
} 

##################################################################
## Kufur.tcl v2.0 - Bu .tcl IRCturk Network Team Tarafindan ##
## hazirlanmistir. Eger herhangi bir problemle karsilasirsaniz ##
## yada bir oneriniz varsa 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set bansebebi "Kufur Ettiginiz icin Banlandiniz..! - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #FF8000"># 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 { 
"salak"
"mal"
"kufur"
}
 
# 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 "]} { 
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..." 

# $Id: advertisekick.tcl, eggdrop-1.6.x 2004/5 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 Exp $
# Begin - Channel Advertise/Spam Kicker Script v3.92.b (advertisekick.tcl)
# Script Version: v3.92.b
# Built Date: March 2004, Last Updated: 4th July 2004
# Copyright © 1999-2004 awyeah (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
# TCL script was designed to work with eggdrop v1.5.x or higher
#########################################################################
#           Channel Advertise/Spam Kicker Script v3.92.b              #
#                                # 
#                                  #
# Author: awyeah                     4th July 2004 #
# Email: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
             Build version 3.92.b #
# Copyright © 2004 awyeah All Rights Reserved  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set advertisetype "1"
#Set this if you have set the previous setting to '1' for user defined channels, if not then please
#leave this as it is or leave this as empty/blank. (Set the channels on which this script would work)
#USAGE: set advertisechans "#channel1 #channel2 #channel3 #mychannel #yourchannel"
set advertisechans "#eleet #lcas #india #italy #wiredpatrol"

#---------------------------------------#
#    SETUP CHANNEL INTERFACE OPTIONS    #
#---------------------------------------#
#Set the type of channel interface to enable. (MESSAGE, ACTION, NOTICE)
#USAGE: [1/2/3/4] (1=CHANNEL TEXTS, 2=CHANNEL ACTIONS, 3=CHANNEL NOTICES, 4=ALL)
#Use '1' for detecting advertisments from CHANNEL TEXTS. (Will only detect channel texts: /msg #channel)
#Use '2' for detecting advertisments from CHANNEL ACTIONS. (Will only detect channel actions: /me #channel)
#Use '3' for detecting advertisments from CHANNEL NOTICES. (Will only detect channel notices: /notice #channel)
#Use '4' for detecting advertisements from CHANNEL TEXTS, ACTIONS and NOTICES (ALL). (Will detect all channel texts, actions and notices)
set advertiseactivate "4"

#----------------------------------------------#
#    SETUP ADVERTISEMENT DETECTION WORDLIST    #
#----------------------------------------------#
#Set the *advertise words* for the script to react on. (wildcards such as "*" are accepted)
#Already have pre-added all kinds of combinations, normally you would'nt need to edit these. 
#People only edit would need to edit if their language or channel not english.
set advertisewords {
"#*#*"
"*#*#*"
"#*#*#*"
"*#*#*#*"
"#* #*"
"*#* #*"
"#* #* #*"
"*#* #* #*"
"#* *#*"
"*#* *#*"
"#* *#* *#*"
"*#* *#* *#*"
"#* * #*"
"#* * *#*"
"*#* * #*"
"*#* * *#*"
"#* * #* * #*"
"#* * *#* *#*"
"*#* * #* * #*"
"*#* * *#* *#*"
"*/join #*"
"*join #*"
"*join* #*"
"*/join"
"*/join*"
"*/j0in #*"
"*j0in #*"
"*/j0in"
"*/j0in*"
"*/j #*"
"*/j* #*"
"*/j* * #*"
"*join#*"
"*join*#*"
"*j0|n#*"
"*j0|n*#*"
"*j0in#*"
"*j0in*#*"
"*jo|n#*"
"*jo|n*#*"
"*join to * * #*"
"*join to your #*"
"*join to your * #*"
"*go * #*"
"*to #*"
"*come *#*"
"*come to #*"
"*come to* #*"
"*come #*"
"*come /j"
"*come /join"
"*come to /j"
"*come to /join"
"*come /join #*"
"*come *join #*"
"*cometo #*"
"*cometo* #*"
"*cometo /j"
"*cometo /join"
"*cometo /j"
"*cometo /join"
"*come join* http://"
"*come join* #*"
"*come * join* http://"
"*come * join* #*"
"*come join my* http://"
"*come join my* #*"
"*come * join my* http://"
"*come * join my* #*"
"*visit http://*"
"*visit 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}

#------------------------------------#
#    SETUP USER PUNISHMENT METHOD    #
#------------------------------------#
#Set the type of punishment to declare for the user.
#USAGE: [1/2/3/4] (1=KICK, 2=KICK/BAN, 3=STICKY KICK/BAN, 4=GLOBAL KICK/BAN)
#Use '1' to 'kick' that user from the channel. (Minimal punishment)
#Use '2' to 'kick and ban' that user from the channel. (Moderate punishment)
#Use '3' to 'kick ban' that user using a sticky ban from the bots ban list. (Extreme punishment)
#Use '4' to 'kick ban' that user from all channels the user is found on matching with the bot. (Maximum punishment)
set advertisepunish "2"

#-------------------------#
#    SETUP BAN OPTIONS    #
#-------------------------#
#Select the type of banmask to use when banning the advertiser. 
# 1 - *!*@some.host.com
# 2 - *!*@*.host.com
# 3 - *!*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

# 4 - *!*ident@*.host.com
# 5 - *!*ident*@*.host.com
# 6 - *!*ident*@some.host.com
# 7 - nick*!*@*.host.com
# 8 - *nick*!*@*.host.com
# 9 - nick*!*@some.host.com
# 10 - *nick*!*@some.host.com
# 11 - nick!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.com
# 12 - nick!ident@*.host.com
# 13 - *nick*!*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.com
# 14 - nick*!*ident*@some.host.com
# 15 - *nick*!*ident*@some.host.com
# 16 - nick!*ident*@some.host.com
# 17 - nick*!*ident@*.host.com
# 18 - nick*!*ident*@*.host.com
# 19 - *nick*!*ident@*.host.com
# 20 - *nick*!*ident*@*.host.com
set advbanmask "1"
#Set the amount of time in minutes to ban the user for. (in mins)
#(By default if you don't set a value the script will assume it to be 60 minutes)
set advertisebantime "30"

#-------------------------------#
#    SETUP KICK MESSAGE TYPE    #
#-------------------------------#
#Set this if you would like to use your own KICK message for kicking the advertiser.
#If you set this OFF then the scripts default kick message will be used.
#USAGE: [0/1] (O=OFF, 1=ON)
set advkickswitch "1"
#Set this if to your customizable KICK message if you have enabled to use your own custom KICK message.
#By Default this is set to the scripts default kick message. (You will need to change this)
set advkickmsg "2Advertise/Invite 12word 2detected. 12Mass 2Advertising/Inviting/Spamming 12in 12is not tolerated on this 2channel. 12Failing to 2comply 12with 2these rules 12will result into a 2permanent ban."

#-----------------------------------#
#    SETUP USER EXEMPTION OPTIONS   #
#-----------------------------------#
### IMPORTANT NOTE ###
#For all of the exemption settings below please *DO NOT* use wildcards
#such as: (*, !, *!*, *@*, *!*@*, @*.host.com, *@127.0.0.* etc as they maybe risky)
#(If you do not have any ident, userhost, or ip to enter then please leave the field "")

#### EXEMPT CHANNEL OPERATORS ####
#Set this if you want the bot to exempt all channel operators - ops (@'s) even though if the
#bot has detected an advertise matching word from them. (This is a useful setting for not punishing ops)
#USAGE: [0/1] (0=OFF, 1=ON) - (0=WILL NOT EXEMPT OPS, 1=WILL EXEMPT OPS)
#If set to '0' channel ops will be punished if the bot detects an advertise word from them
#If set to '1' channel ops will be exempted even if the bot detects an advertise word from them
set advexopswitch "1"
#### EXEMPT CHANNEL VOICES ####
#Set this if you want the bot to exempt all channel voices (+v's) even though if the bot has 
#detected an advertise matching word from them. (This is a useful setting for not punishing voices)
#USAGE: [0/1] (0=OFF, 1=ON) - (0=WILL NOT EXEMPT VOICES, 1=WILL EXEMPT VOICES)
#If set to '0' channel voices will be punished if the bot detects an advertise word from them
#If set to '1' channel voices will be exempted even if the bot detects an advertise word from them
set advexvoiceswitch "1"

#### EXEMPT SPECIFIC USER FLAGS ####
#Set this if you want the bot to exempt user flags on the bots user list. Users with certain specific or all 
#flags would be exempted by the bot and will not be punished, even if the bot detects an advertise word from them.
#USAGE: [0/1] (0=OFF, 1=ON) - (0=WILL NOT EXEMPT USERFLAGS, 1=WILL EXEMPT USERFLAGS)
#If set to '0' users/owners on the bots userlist will be punished if the bot detects an advertise word from them
#If set to '1' users/owners on the bots userlist will be exempted even if the bot detects an advertise word from them
set advexflagswitch "1"
#If you have enabled to exempt userflags on the bots userlist and not to punish them, set the 'user flags' 
#for bot owners, masters, ops, voices, users etc which will be exempted from this script.
#(Try not to leave this field empty, atleast fill it with "n" to exempt the bot owner if possible)
#Example: n=owner, m=master, o=op, v=voice, f=friend, b=bot etc
#USAGE: m, n, o, v, f or "mnf", "bfv" etc
set advexflags "mnof|mnof"

#### EXEMPT SPECIFIC NICKS ####
#Set this if you want to enable 'exemption of specific nicks' from this script. (Users with such nicks will be 
#ignored by the script even if they are found to be advertising)
#USAGE: [0/1] (0=OFF, 1=ON)
set advnickswitch "0"
#Set this if you have selected/enabled to 'exempt certain nicks' (if you have set the previous setting to '1'). 
#Set this to the list of 'exempted nicks', which you would like the bot to ignore and wouldn't want to check that 
#user for advertisement words. (If you do not have any 'nick' to exempt then, please leave this as "")
#USAGE: "nick1, bot3, user5, robot7"
set advexnicks "spamcheckerbot"

#### EXEMPT SPECIFIC IDENTS ####
#Set this if you want to enable 'exemption of specific idents' from this script. (Users with such idents will be 
#ignored by the script even if they are found to be advertising)
#USAGE: [0/1] (0=OFF, 1=ON)
set advidentswitch "0"
#Set this if you have selected/enabled to 'exempt certain idents' (if you have set the previous setting to '1').
#Set this to the list of exempted 'user idents' which you would like the bot to ignore when checking users for 
#advertisement words. (If you do not have any 'user ident' to exempt then, please leave this as "")
#(Whois example: awyeah is 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.com ===> cooldude)
#USAGE: "cooldude, myident, user, script, sweet"
set advexidents "a-user-ident"

#### EXEMPT SPECIFIC HOSTS ####
#Set this if you want to enable 'exemption of your hosts' from this script. (Users with such hosts will be ignored
#by the script even if they are found to be advertising)
#USAGE: [0/1] (0=OFF, 1=ON)
set advhostswitch "0"
#Set this if you have selected/enabled to 'exempt certain hosts' (if you have set the previous setting to '1').
#Set this to the list of 'exempted domains' (user ip addresses) which you would like the bot to ignore 
#when checking for advertisement words. (If you do not have any 'ip addresses' to exempt then, please leave this as "")
#(Whois example: awyeah is 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 ===> cable.myisp.com)
#USAGE: "cable.myisp.com, name.myuniversity.edu, mindspring.com, cpe.net.cable.rogers.com"
set advexhosts "an-isp-name"

#### EXEMPT SPECIFIC USER HOSTS ####
#Set this if you want to enable 'exemption certain user@hosts' from this script. (Users with such user@host's will be
#ignored by the script even if they are found to be advertising)
#USAGE: [0/1] (0=OFF, 1=ON)
set advuserhostswitch "0"
#Set this if you have selected/enabled to 'exempt certain hosts' (if you have set the previous setting to '1').
#Set this to the list of 'user hosts' (user@host) which you would like the bot to ignore when checking for 
#advertisement words. (If you do not have any 'user@host' to exempt then, please leave this as "")
#USAGE: "rules@127.0.0.1, 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
, 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.net"
set advexuserhosts "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.com"

#### EXEMPT NON-DYNAMIC IDENTS ####
### NOTE: I recommend you keep this setting *OFF*. (Meaning keep this setting to '0') ###
#Set this to ignore users without dynamic idents (idents without ~). Users without a "~" sign infront of their 
#ident will be exempted and ignore by the bot if this setting is enabled and will not be detected for advertisement words.
#USAGE: [0/1] (0=OFF, 1=ON) - (0=DO NOT EXEMPT ANY IDENT, 1=EXEMPT ONLY NON-DYNAMIC IDENTS)
#If set to '0' the script will not ignore any ident and will work as a regular script.
#If set to '1' the script will ignore normal idents (idents without "~" ) and will only detect adverisement 
#words from dynamic idents (idents which have a "~" sign in the beginning of their ident)
#(When enabled: awyeah is 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 ===> awesome ==> Will make the user exempted)
#(When enabled: awyeah is ~
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 ===> ~awesome ===> Will *NOT* make the user exempted)
set advdynamicident "0"

#---------------------------#
#    SETUP KICK COUNTER     #
#---------------------------#
#Set the filename in which you want the user kick record numbers to be stored in. This file would be 
#created in your main *eggdrop* dir, where your bot's .CONF, .CHAN, and .USER files are stored. 
#(You can leave this as it is, if you want)
set advertisekicks "advertisekicks.dat" 

###############################################################################
### Don't edit anything else from this point onwards, even if you know tcl! ###
###############################################################################

bind pubm - * pub:advertise
bind ctcp - ACTION act:advertise
bind notc - * notc:advertise
bind kick - * advertise:kick:counter
proc pub:advertise {nick uhost hand chan text} {
 global botnick advertisetype advertisechans
  if {($nick != $botnick) && ($chan != $botnick)} {; set type "TEXT"
   if {($advertisetype == 1) && ($advertisechans != "") && ([string match "#*" $advertisechans])} { pub:specific:chans $nick $uhost $hand $chan $type $text }
   if {($advertisetype == 2)} { advertise:all:chans $nick $uhost $hand $chan $type $text }
   if {(($advertisetype != 1) && ($advertisetype != 2)) || ($advertisetype == "0") || ($advertisetype == "")} { return 0 }
   }
}
proc pub:specific:chans {nick uhost hand chan type text} {
 global botnick advertiseactivate advertisechans
  if {($advertiseactivate == 1) || ($advertiseactivate == 4)} {
  if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] != -1)} { advertise:all:chans $nick $uhost $hand $chan $type $text }
  if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] == -1)} { return 0 }
  }
}

proc act:advertise {nick uhost hand chan key text} {
 global botnick advertisetype advertisechans
  if {($nick != $botnick) && ($chan != $botnick)} {; set type "ACTION"
   if {($advertisetype == 1) && ($advertisechans != "") && ([string match "#*" $advertisechans])} { act:specific:chans $nick $uhost $hand $chan $type $text }
   if {($advertisetype == 2)} { advertise:all:chans $nick $uhost $hand $chan $type $text }
   if {(($advertisetype != 1) && ($advertisetype != 2)) || ($advertisetype == "0") || ($advertisetype == "")} { return 0 }
   }
}
proc act:specific:chans {nick uhost hand chan type text} {
 global botnick advertiseactivate advertisechans
  if {($advertiseactivate == 2) || ($advertiseactivate == 4)} {
  if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] != -1)} { advertise:all:chans $nick $uhost $hand $chan $type $text }
  if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] == -1)} { return 0 }
  }
}

proc notc:advertise {nick uhost hand text {chan ""}} {
 global botnick advertisetype advertisechans
  if {($nick != $botnick) && ($chan != $botnick) && (![string equal $nick "ChanServ"])} {; set type "NOTICE"
   if {($advertisetype == 1) && ($advertisechans != "") && ([string match "#*" $advertisechans])} { notc:specific:chans $nick $uhost $hand $chan $type $text }
   if {($advertisetype == 2)} { advertise:all:chans $nick $uhost $hand $chan $type $text }
   if {(($advertisetype != 1) && ($advertisetype != 2)) || ($advertisetype == "0") || ($advertisetype == "")} { return 0 }
   }
}
proc notc:specific:chans {nick uhost hand chan type text} {
 global botnick advertiseactivate advertisechans
  if {($advertiseactivate == 3) || ($advertiseactivate == 4)} {
  if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] != -1)} { advertise:all:chans $nick $uhost $hand $chan $type $text }
  if {([lsearch -exact [split [string tolower $advertisechans]] [string tolower $chan]] == -1)} { return 0 }
  }
}

proc advertise:all:chans {nick uhost hand chan type text} {
 global botnick advertisewords advexflags advkickswitch advkickmsg advdynamicident advexnicks advexidents advexhosts advexuserhosts 
 global advertisekicks advexopswitch advexvoiceswitch advexflagswitch advnickswitch advidentswitch advhostswitch advuserhostswitch 
  set text [advertise:filter $text]; set userident [lindex [split $uhost "@"] 0]; set ipaddress [lindex [split $uhost "@"] 1]
  if {![file exists $advertisekicks]} { set file [open $advertisekicks "w"]; puts $file 1; close $file }
  if {($advdynamicident == "1") && (![string match "*~*" $userident])} { return 0 }
  if {(($advnickswitch == 1) && ($advexnicks != "") && ([string match -nocase *$advexnicks* $nick])) || (($advidentswitch == 1) && ($advexidents != "") && ([string match -nocase *$advexidents* $userident])) || (($advhostswitch == 1) && ($advexhosts != "") && ([string match -nocase *$advexhosts* $ipaddress])) || (($advuserhostswitch == 1) && ($advexuserhosts != "") && ([string match -nocase *$advexuserhosts* $uhost])) } { return 0 }
  if {([string match -nocase *$chan* $text])} { return 0 }
  foreach advertiseword [string tolower $advertisewords] {
   if {[string match -nocase *$advertiseword* $text]} {
   if {(($advexopswitch == 1) && ([isop $nick $chan])) || (($advexvoiceswitch == 1) && ([isvoice $nick $chan])) || (($advexflagswitch == 1) && ([matchattr $hand $advexflags $chan]))} { return 0 }
    if {($nick != $botnick) && ($chan != $botnick) && ([botisop $chan]) && ([validchan $chan]) && (![string match -nocase *$chan* $text]) && ([onchan $nick $chan])} {
     set advertiseban [advertise:banmask $uhost $nick]; set advertisetype $type;
     if {($advkickswitch == 1) && ($advkickmsg != "")} { advertise:kick:user $nick $chan $advertiseword $advertiseban; return 0 }
     if {($advkickswitch == 0)} { advertise:kick:script $nick $chan $advertiseword $advertisetype $advertiseban; return 0 }
      if {(($advkickswitch != 1) && ($advkickswitch != 0)) || ($advkickswitch == "")} { putlog "ADVERTISE KICK MESSAGE: No kick-message type selected."; return 0 }
      }
    }
  }
}

proc advertise:kick:user {nick chan advertiseword advertiseban} {
 global botnick advertisepunish advertisekicks advertisebantime advkickmsg
  set file [open $advertisekicks "r"]; set currentkicks [gets $file]; close $file; set totalkicks [expr $currentkicks]; set banmask $advertiseban
  if {($advkickmsg == "")} { set advkickmsg "0,1 Channel Advertise Kick 12,0 - 2Advertise/Invite 12word 6\"$advertiseword\" 12detected. Mass 2Advertising/Inviting/Spamming 12in 12is not tolerated on this 2channel. 12Failing to 2comply 12with 2these rules 12will result into a 2permanent ban." }
  if {($advertisebantime == 0) || ($advertisebantime == "") || ($advertisebantime < 1)} { set advertisebantime 60 }
  if {($advertisepunish == 1)} { putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" }
  if {($advertisepunish == 2)} { putserv "MODE $chan +b $banmask"; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)"; timer $advertisebantime[list advertise:unban $banmask $chan] }
  if {($advertisepunish == 3)} { newchanban $chan $banmask advertise $advkickmsg $advertisebantime; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" }
  if {($advertisepunish == 4)} { newban $banmask advertise $advkickmsg $advertisebantime; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" }
  if {($advertisepunish != 1) && ($advertisepunish != 2) && ($advertisepunish != 3) && ($advertisepunish != 4)} { putlog "ADVERTISE PUNISHMENT: No punishment type selected."; return 0 }
}
proc advertise:kick:script {nick chan advertiseword advertisetype advertiseban} {
 global botnick advertisepunish advertisekicks advertisebantime
  set file [open $advertisekicks "r"]; set currentkicks [gets $file]; close $file; set totalkicks [expr $currentkicks]; set banmask $advertiseban
  set advertisemsg "2Advertise/Invite 12word 6\"$advertiseword\" 12detected. Mass 2Advertising/Inviting/Spamming 12in 12is not tolerated on this 2channel. 12Failing to 2comply 12with 2these rules 12will result into a 2permanent ban."
  if {($advertisebantime == 0) || ($advertisebantime == "") || ($advertisebantime < 1)} { set advertisebantime 60 }
  if {($advertisetype == "TEXT")} { set advertisescriptmsg "0,1 Channel Text Advertise Kick 12,0 - $advertisemsg" }; if {($advertisetype == "ACTION")} { set advertisescriptmsg "0,1 Channel Action Advertise Kick 12,0 - $advertisemsg" }; if {($advertisetype == "NOTICE")} { set advertisescriptmsg "0,1 Channel Notice Advertise Kick 12,0 - $advertisemsg" }
  if {($advertisepunish == 1)} { putserv "KICK $chan $nick :$advertisescriptmsg2 - (Kick #$totalkicks)" }
  if {($advertisepunish == 2)} { putserv "MODE $chan +b $banmask"; putserv "KICK $chan $nick :$advertisescriptmsg2 - (Kick #$totalkicks)"; timer $advertisebantime[list advertise:unban $banmask $chan] }
  if {($advertisepunish == 3)} { newchanban $chan $banmask advertise $advertisescriptmsg $advertisebantime; putserv "KICK $chan $nick :$advertisescriptmsg2 - (Kick #$totalkicks)" }
  if {($advertisepunish == 4)} { newban $banmask advertise $advkickmsg $advertisebantime; putserv "KICK $chan $nick :$advkickmsg2 - (Kick #$totalkicks)" }
  if {($advertisepunish != 1) && ($advertisepunish != 2) && ($advertisepunish != 3) && ($advertisepunish != 4)} { putlog "ADVERTISE PUNISHMENT: No punishment type selected."; return 0 }
}

proc advertise:banmask {uhost nick} {
 global advbanmask
   switch -- $advbanmask {
    1 { set banmask "*!*@[lindex [split $uhost @] 1]" }
    2 { set banmask "*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
    3 { set banmask "*!*$uhost" }
    4 { set banmask "*!*[lindex [split [maskhost $uhost] "!"] 1]" }
    5 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" }
    6 { set banmask "*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
    7 { set banmask "$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
    8 { set banmask "*$nick*!*@[lindex [split [maskhost $uhost] "@"] 1]" }
    9 { set banmask "$nick*!*@[lindex [split $uhost "@"] 1]" }
    10 { set banmask "*$nick*!*@[lindex [split $uhost "@"] 1]" }
    11 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split $uhost @] 1]" }
    12 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
    13 { set banmask "*$nick*!*$uhost" }
    14 { set banmask "$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" }
    15 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" } 
    16 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split $uhost "@"] 1]" } 
    17 { set banmask "$nick![lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
    18 { set banmask "$nick!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" } 
    19 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]@[lindex [split [maskhost $uhost] "@"] 1]" }
    20 { set banmask "*$nick*!*[lindex [split $uhost "@"] 0]*@[lindex [split [maskhost $uhost] "@"] 1]" } 
    default { set banmask "*!*@[lindex [split $uhost @] 1]" }
    return $banmask
   }
}
proc advertise:unban {banmask chan} {
 global botnick
  if {([botisop $chan])} {
   if {([ischanban $banmask $chan])} {
    pushmode $chan -b $banmask; return 0
     }
     if {(![ischanban $banmask $chan])} {
      return 0
      }
   }
}

if {![file exists $advertisekicks]} {
 putlog "ADVERTISE KICK COUNTER: The \002advertise kick counter file\002 does not exist. Creating file \002$advertisekicks\002."
 set file [open $advertisekicks "w"]
 puts $file 1
 close $file
}
### Thanks to NeOmAtRiX for this kick counter ###
proc advertise:kick:counter {nick uhost handle chan target arg} {
 global botnick advertisekicks
  if {[string tolower $target] == [string tolower $botnick]} { return 0 }
  if {[string tolower $nick] == [string tolower $botnick]} {
   if {![file exists $advertisekicks]} {
    putlog "ADVERTISE KICK COUNTER: The advertise kick counter file does not exist. Creating file $advertisekicks."
    set file [open $advertisekicks "w"]
    puts $file 1; close $file 
    }
    set file [open $advertisekicks "r"]
    set currentkicks [gets $file]; close $file
    set file [open $advertisekicks "w"]
    puts $file [expr $currentkicks + 1]; close $file
    }
}

### Thanks to ppslim for this filter ###
proc advertise:filter {str} {
  regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}

putlog "\[LOADED\] Channel Advertise/Spam Kicker v3.92.b by \002awyeah (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)\002"
if {($advertisetype == 1)} { putlog "Advertise/Spam Kicker is \002*ACTIVE*\002 on: \002$advertisechans\002" }
if {($advertisetype == 2)} { putlog "Advertise/Spam Kicker IS \002*ACTIVE*\002 on: \002All channels\002" }
if {(($advertiseactivate == 1) || ($advertiseactivate == 2) || ($advertiseactivate == 3) || ($advertiseactivate == 4)) && (($advertisetype != 1) && ($advertisetype != 2))} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel activation type* has been seletected\002" }
if {(($advertisetype == 1) || ($advertisetype == 2)) && (($advertiseactivate != 1) && ($advertiseactivate != 2) && ($advertiseactivate != 3) && ($advertiseactivate != 4))} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel interface* has been seletected\002" }
if {($advertisetype != 1) && ($advertisetype != 2) && ($advertiseactivate != 1) && ($advertiseactivate != 2) && ($advertiseactivate != 3) && ($advertiseactivate != 4)} { putlog "Advertise/Spam Kicker is \002*NOT ACTIVE*\002 because: \002No *channel activation type* and *channel interface* has been seletected\002" }
return 

# Settings
# Channels where you want RepeatPro active (quoted list, spaces between channelnames)
set rp_channels "#papatya"
# Small repeat flood, kick on repeats:seconds
set rp_kflood 3:30
# Small repeat flood kick reasons
set rp_kreason {
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
}
# Large repeat flood, kick-ban on repeats:seconds
set rp_bflood 5:30
# Large repeat flood kick-ban reasons
set rp_breason {
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
}
# Spam repeat flood, kick on repeats:seconds
set rp_sflood 3:240
# Spam repeat flood kick reasons
set rp_sreason {
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
}
# Set the string length for spam-type text (lines of text shorter than this
# will not be counted by the 'spam' type repeat detector)
set rp_slength 40
# Repeat offences, ban on two repeat floods from a particular host within
# how many seconds
set rp_mtime 300
# Length of time in minutes to ban large repeat flooders and repeat
# offenders
set rp_btime 1
# Repeat offences ban reasons
set rp_mreason {
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
  "1Tekrar yapmak yasaktır!"
}

##### DON'T edit anything below this line unless you know what you're doing #####
proc rp_pubmsg {nick uhost hand chan text} {
  global botnick rp_count rp_scount rp_bflood rp_breason rp_btime rp_kflood rp_kreason rp_sflood rp_slength rp_sreason rp_channels
  set uhost [string tolower $uhost]
  set chan [string tolower $chan]
  set trimtext [string tolower $text]
  set text [trimctrl $trimtext]
  if {[lsearch -exact $rp_channels $chan] == -1} {return 0}
  if {$nick == $botnick} {return 0}
  if {[matchattr $hand f|f $chan]} {return 0}
  lappend rp_count($uhost:$chan:$text) 1
  utimer [lindex $rp_bflood 1] "expire rp_count($uhost:$chan:$text)"
  if {[string length $text] > $rp_slength} {
    lappend rp_scount($uhost:$chan:$text) 1
    utimer [lindex $rp_sflood 1] "expire rp_scount($uhost:$chan:$text)"
  }
  if {[llength $rp_count($uhost:$chan:$text)] == [lindex $rp_bflood 0]} {
    if {[botisop $chan] && [onchan $nick $chan]} {
      putserv "KICK $chan $nick :[rand_reason rp_breason]"
    }
    newchanban $chan [wild_banmask $uhost] RepeatPro [rand_reason rp_kreason] $rp_btime
    return 0
  }
  if {[llength $rp_count($uhost:$chan:$text)] == [lindex $rp_kflood 0]} {
    rp_mhost $nick $uhost $chan
    if {[botisop $chan] && [onchan $nick $chan]} {
      putserv "KICK $chan $nick :[rand_reason rp_kreason]"
    }
    return 0
  }
  if {[info exists rp_scount($uhost:$chan:$text)]} {
    if {[llength $rp_scount($uhost:$chan:$text)] == [lindex $rp_sflood 0]} {
      rp_mhost $nick $uhost $chan
      if {[botisop $chan] && [onchan $nick $chan]} {
        putserv "KICK $chan $nick :[rand_reason rp_sreason]"
      }
      return 0
    }
  }
}
proc rp_pubact {nick uhost hand dest key arg} {
  rp_pubmsg $nick $uhost $hand $dest $arg
}
proc rp_pubnotc {from keyword arg} {
  set nick [lindex [split $from !] 0]
  set chan [string tolower [lindex [split $arg] 0]]
  if {![validchan $chan] || ![onchan $nick $chan]} {return 0}
  set uhost [getchanhost $nick $chan]
  set hand [nick2hand $nick $chan]
  set text [join [lrange [split $arg] 1 end]]
  rp_pubmsg $nick $uhost $hand $chan $text
}
proc rp_mhost {nick uhost chan} {
  global rp_btime rp_mhosts rp_mreason rp_mtime
  if {![info exists rp_mhosts($chan)]} {
    set rp_mhosts($chan) ""
  }
  if {[lsearch -exact $rp_mhosts($chan) $uhost] != -1} {
    newchanban $chan [wild_banmask $uhost] RepeatPro [rand_reason rp_mreason] $rp_btime
  } else {
    lappend rp_mhosts($chan) $uhost
    utimer $rp_mtime "rp_mhostreset $chan"
  }
}
proc rp_mhostreset {chan} {
  global rp_mhosts
  set rp_mhosts($chan) [lrange rp_mhosts($chan) 1 end]
}
proc trimctrl {text} { 
  # 1) Remove any ^B, ^R, ^U control characters from the text
  regsub -all {[]} $text "" text
  # 2) Remove any ^K colour control characters along with their formatting numeric codes
  regsub -all {..,..|..,.|.,..|.,.|..|.|} $text "" text
  # 3) Remove any non-alphanumeric characters
  regsub -all {[^!-ÿ]} $text "" text
  # 4) Handle special Tcl characters
  regsub -all {\;} $text "\xa1" text
  regsub -all {\\} $text "\xa5" text
  regsub -all {\[} $text "\xa6" text
  regsub -all {\$} $text "\xa7" text
  
  # 5) Return contents
  set finaltext $text
  return $finaltext
}
proc expire var_exp {
  upvar $var_exp var_pointer
  if {[llength $var_pointer] > 1} {
    set var_pointer [lrange $var_pointer 1 end]
  } else {
    unset var_pointer
  }
}
proc rand_reason var_rand {
  upvar $var_rand rand_pointer
  set rand_reason [lindex $rand_pointer [rand [llength $rand_pointer]]]
  return $rand_reason
}
proc wild_banmask {uhost} {
  set wildhost [lindex [split [maskhost [lindex [split $uhost @] 1]] @] 1]
  regsub {\~} [lindex [split $uhost @] 0] "" wilduser
  set w_bmask *!*$wilduser@$wildhost
  return $w_bmask
}
set rp_channels [string tolower $rp_channels]
set rp_kflood [split $rp_kflood :]
set rp_bflood [split $rp_bflood :]
set rp_sflood [split $rp_sflood :]
bind pubm - * rp_pubmsg
bind ctcp - ACTION rp_pubact
bind raw - NOTICE rp_pubnotc 

# Botun giriste ircop olmasi icin gerekli ircop nicki
set inick "Protecti0n"
# Buda gerekli olan sifre
set ipass "bot12345"
# Ayarlar Bu kadar.! DOKUNMAYIN!!!
#gerekli bindler
bind pub - opver opver
bind evnt - init-server baglan_yap
proc baglan_yap {type} {
global inick ipass
  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}
proc opver {n u h c a} {
  global gnick
 set gnick $n
        set kanal [lindex $a 0]
 putserv "SAMODE $kanal +o :$gnick"
 putserv "PRIVMSG $c :$n $kanal Kanalinda Oplandi..!"
 putserv "WALLOPS :$n $kanal Kanalinda Oplandi..!"
} 

# here are some bindings
bind mode - * thanksfor:mode
# now the core :) procedure
# you can change colours or text, just edit
# "Thanks" part
proc thanksfor:mode { nick host hand chan mode target } {
global botnick
if {$target == $botnick} {
   if {$mode == "+v"} { 
    puthelp "PRIVMSG $chan :Voice icin tesekkurler"
      }
   if {$mode == "+o"} { 
    puthelp "PRIVMSG $chan :Op icin tesekkurler"
      }
   }
} 

# Op Commands By xTc^bLiTz
# Gonna Ask You Not To Rip This, But Since Half Of You Probably Are Not To
# Much I Can Do About It. Just Remember That Ripping This For Yourself
# Takes Away From The Statisfaction Of Making Something Like This Yourself.
# Also If I Find People Ripping My Work, I Will No Longer Post Other
# Scripts, And You Will Have To Start Making Everything For Yourself
# Give Credit Where Credit Is Due.
# This Script Contains A Bunch Of Commands To Be Used By Op/Master Flagged 
# Users To Better Control The Channel And Other Users. You Can Use 
# !commands In The Channel To List All Available Commands
# NOTE: Not All Commands Listed When You Use !commands Are Available From 
# This Script, You May Have To Edit The Commands List At The Bottom Of This 
# Script, There Is Notation There On How To Edit It.
# This Script Was Not Written Originally For Distribution, But By Popular 
# Demand/Request I Have Released It On 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">bind pub n|n !die proc_die
bind pub n|n !restart proc_restart
bind pub m|m !addop proc_addop
bind pub m|m !delop proc_delop
bind pub m|m !deluser proc_deluser
bind pub m|m !adduser proc_adduser
bind pub m|m !jump proc_jump
bind pub m|m !gban proc_gban
bind pub o|o !lc proc_lc
bind pub o|o !uc proc_uc
bind pub o|o !ban proc_ban
bind pub o|o !unban proc_unban
bind pub o|o !whois proc_whois
bind pub o|o !opme proc_opme
bind pub o|o !op proc_op
bind pub o|o !deop proc_deop
bind pub o|o !deopme proc_deopme
bind pub o|o !kick proc_kick
bind pub o|o !voice proc_voice
bind pub o|o !devoice proc_devoice
bind pub o|o !server proc_server
bind pub -|- !commands proc_commands
# Processes
# Process lc
proc proc_lc { nick uhost hand chan args } {
putquick "PRIVMSG $chan :Locking Channel"
putquick "MODE $chan +im"
}
proc proc_uc { nick uhost hand chan args } {
putquick "PRIVMSG $chan :UnLocking Channel"
putquick "MODE $chan -im"
}
# Process die
proc proc_die { nick uhost hand chan text } {
if {$text == ""} {
die $nick
} else { die $text }
}
# Process Restart
proc proc_restart { nick uhost hand chan text } {
putquick "PRIVMSG $chan :Restart Requested By \002$nick\002. Restarting BRB... (hopefully..)"
restart
}
# Op Process
proc proc_op { nick uhost hand chan text } {
putserv "MODE $chan +o $text"
}
# DeOp Process
proc proc_deop { nick uhost hand chan text } {
global botnick
if {$text == $botnick} {
putserv "MSG $chan :umm.. no"
return 0
}
putserv "MODE $chan -o $text"
}
# Process Global Ban
proc proc_gban { nick uhost hand chan text } {
global botnick
# if {@ isin $text} {
# +ban $text Auto-Kicked
# stick ban $text
# return 0
# }
if {[onchan $text]} {
if {$text == $botnick} { return 0 }
set banmask [getchanhost $text $chan]
newchanban $chan $banmask $nick Auto-Kicked 0 sticky
putkick $chan $text Auto-Kicked
putlog "\002$nick\002 Globally Banned \002$text\($banmask\)\002"
} else { putserv "PRIVMSG $chan :$text Not In Channel." } 
}
# Proces Jump
proc proc_jump { nick uhost hand chan text } {
jump $text
}
# Process Server
proc proc_server { nick uhost hand chan text } {
global serveraddress
putserv "PRIVMSG $chan :I Am Current Connected To \002$serveraddress\002"
}
# Addop Process
proc proc_addop { nick uhost hand chan text } {
set addopnick [nick2hand $text]
if {[validuser $addopnick]} {
chattr $addopnick +o
putserv "PRIVMSG $chan :$text Has Been Giving Auto-Op Access"
putlog "$nick added $addopnick to Auto-Op"
putquick "MODE $chan +o $text"
putserv "NOTICE $text :You Have Been Givin Auto-Op Access For Channel: \002$chan\002 use \002!commands\002 To List New Channel Commands Available To You"
} else { putserv "PRIVMSG $chan :$text Not Found In User Database, Use !whois <nickname>" }
unset addopnick
}
# Delop Process
proc proc_delop { nick uhost hand chan text } {
set delopnick [nick2hand $text]
if {[validuser $delopnick]} {
chattr $delopnick -o
putserv "PRIVMSG $chan :$text Removed From Auto-Op Access"
putlog "$nick removed $delopnick from Auto-Op"
putquick "MODE $chan -o $text"
} else { putserv "PRIVMSG $chan :$text Not Found In User Database, Use !whois <nickname>" }
unset delopnick
}
# Ban Process
proc proc_ban { nick uhost hand chan text } {
global botnick
if {[onchan $text]} {
if {$text == $botnick} { return 0 }
set banmask [getchanhost $text $chan]
putquick "MODE $chan +b $banmask"
putkick $chan $text :Requested
} else { putserv "PRIVMSG $chan :$text Is Not In The Channel" }
}
# Unban Process
proc proc_unban { nick uhost hand chan text } {
if {[ischanban $text $chan]} {
pushmode $chan -b $text
} else { putserv "PRIVMSG $chan :$text Is Not In The Ban List" }
}
proc proc_whois { nick uhost hand chan text } {
set whoisnick [nick2hand $text]
if {$whoisnick == ""} {
putserv "PRIVMSG $chan :\002$text\002 Not Currently In Channel: \002$chan\002"
} elseif {$whoisnick == "*"} { 
putserv "PRIVMSG $chan :\002$text\002 Not Found In User Database, Use \002!adduser $text\002" 
} else { putserv "PRIVMSG $chan :I Recognize \002$text\002 As \002$whoisnick\002" }
} 
# Process Opme
proc proc_opme { nick uhost hand chan text } {
putquick "MODE $chan +o $nick"
}
# Process Deopme
proc proc_deopme { nick uhost hand chan text } {
putquick "MODE $chan -o $nick"
putquick "MODE $chan +v $nick"
}
# Process AddUser
proc proc_adduser { nick uhost hand chan text } {
set addusernick [nick2hand $text]
if {[validuser $addusernick]} {
putserv "PRIVMSG $chan :\002$text\002 Is Already In User Database As \002$addusernick\002"
} else {
unset addusernick
set addusermask [maskhost $text![getchanhost $text $chan]]
adduser $text $addusermask
set addusernick [nick2hand $text]
putlog "\002$nick\002 Added \002$addusernick\($text\)\002 To User Database"
putserv "PRIVMSG $chan :\002$text\002 Added To User Database As \002$addusernick\002"
unset addusermask
unset addusernick
}
}
# Process DelUser
proc proc_deluser { nick uhost hand chan text } {
set delusernick [nick2hand $text]
if {[validuser $delusernick]} {
deluser $delusernick
putserv "PRIVMSG $chan :\002$text \($delusernick\)\002 Has Been Removed From User Database"
putlog "$nick Removed $delusernick From user Database"
} else { putserv "PRIVMSG $chan :\002$text\002 Not Found In User Database, Use !whois <nickname>" }
}
# Process Kick
proc proc_kick { nick uhost hand chan text } {
if {[onchan $text]} {
putquick "KICK $chan $text :Requested"
} else { putserv "PRIVMSG $chan :\002$text\002 Not In Channel: \002$chan\002" }
}
# Voice Process
proc proc_voice { nick uhost hand chan text } {
if {[onchan $text]} {
set voicenick [nick2hand $text]
if {[validuser $voicenick]} {
chattr $voicenick +v
putquick "MODE $chan +v $text"
putserv "PRIVMSG $chan :\002$text\002 Added To Auto-Voice List"
putlog "$nick Added $voicenick To Auto-Voice List"
} else {
putquick "MODE $chan +v $text"
}
} else { putserv "PRIVMSG $chan :\002$text\002 Not Found In Channel: \002$chan\002"
}
}
# DeVoice Process
proc proc_devoice { nick uhost hand chan text } {
if {[onchan $text]} {
set devoicenick [nick2hand $text]
if {[validuser $devoicenick]} {
chattr $devoicenick -v
putquick "MODE $chan -v $text"
putserv "PRIVMSG $chan :\002$text\002 Removed From Auto-Voice List"
putlog "$nick Removed $devoicenick From Auto-Voice List"
} else {
putquick "MODE $chan -v $text"
}
} else { putserv "PRIVMSG $chan :\002$text\002 Not Found In Channel: \002$chan\002" }
}
# Commands Process
proc proc_commands { nick uhost hand chan text } {
if {[matchattr $hand m|m $chan]} {
putserv "NOTICE $nick :You Are Currently Bot Master, And Have Access To The Following Commands"
proc_listcommands $nick $uhost $hand $chan
return 0
} elseif {[matchattr $hand o|o $chan]} {
putserv "NOTICE $nick :You Are Currently Auto-Op, And Have Access To The Following Commands"
proc_listcommands $nick $uhost $hand $chan
return 0
} else {
putserv "NOTICE $nick :You Are A Basic User, And Have Access To Teh Following Commands"
proc_listcommands $nick $uhost $hand $chan
return 0
}
}
# List Commands Process - This Process Is Where You Can Enter The Commands 
# For The !commands List, Just Follow The Format That Is Listed Below, Also 
# If You Have Commands Listing That You Do Not Have Available On Your Bot, 
# Then You Can Remove The Line For That Command. Feel Free To Add Any 
# Commands You Have Listed For Your Bot In Here. The Command List Is Broken 
# Down According To Flags In This Order
# Basic - People No Op/Master Flags
# Auto-Op - People Who Have Op Flag. I Used The Default o Flag, You Will 
# Have To Edit The Flags In Both This Process And The Above Process If You 
# Use A Different Flag.
# Master - People Who Have Master Flag. Again I Used Default m Flag.
proc proc_listcommands { nick uhost hand chan } {
global botnick
putserv "NOTICE $nick :\002Basic User\002 Commands"
putserv "NOTICE $nick :!seen <nickname> - See When The Last Time <nickname> Was Online"
putserv "NOTICE $nick :!seennick <nickname> - Search For A Specific Nickname"
putserv "NOTICE $nick :!google <search keyword\(s\)> - Search Google And Return Top Result"
putserv "NOTICE $nick :!statsite - Get The Link To The $chan Stats Site"
putserv "NOTICE $nick :!vibrate - Gets The Bot Vibrating For You"
putserv "NOTICE $nick :!unf <nickname> - Give Someone A Good Unfin"
putserv "NOTICE $nick :!slap <nickname> - Slap Someone Around A Bit, DO NOT Abuse This Or You Will Be Banned"
putserv "NOTICE $nick :!spork <nickname> - Give Someone A Good Sporking"
putserv "NOTICE $nick :!Top<stat> - Returns The Top Statistics For The <Stat> Type. Stat Types Are: talk lol smile swear kick time speed"
putserv "NOTICE $nick :!My<stat> - Returns Your Rating In The Statistics For The <Stat> Type. Stat Types Are: talk lol smile swear kick time speed stat total."
putserv "NOTICE $nick : - Users Found Abusing The !Top And !My Commands Will Be Banned From The Bot And Stats Will Not Be Recorded For Them. Please Use Some Courtesy Here."
putserv "NOTICE $nick :End Of Basic User Commands"
if {[matchattr $hand o|o $chan]} {
putserv "NOTICE $nick :\002Auto-Op\002 Commands"
putserv "NOTICE $nick :!commands - Kinda Obvious Don't Ya Think.."
putserv "NOTICE $nick :!opme - Have The Bot Op You"
putserv "NOTICE $nick :!deopme - Have The Bot De-Op You"
putserv "NOTICE $nick :!op <nickname> - Have The Bot Op Someone"
putserv "NOTICE $nick :!deop <nickname> - Have Tbe Bot DeOp Someone"
putserv "NOTICE $nick :!whois <nickname> - Find Out If The Nickname Is In The Bots User Database"
putserv "NOTICE $nick :!kick <nickname> - Have The Bot To A Quick Kick Of Nickname"
putserv "NOTICE $nick :!ban <nickname> - Have The Bot Do A Quick Kick/Ban Of Nickname"
putserv "NOTICE $nick :!server - Find Out What Server:Port The Bot Is On"
putserv "NOTICE $nick :!lc - Lock The Channel To Prevent Flooding"
putserv "NOTICE $nick :!uc - Unlock The Channel"
putserv "NOTICE $nick :!seenstats - Display Database Information For !seen Database"
putserv "NOTICE $nick :End Of Auto-Op Commands"
}
if {[matchattr $hand m|m $chan]} {
putserv "NOTICE $nick :\002Bot Master\002 Commands"
putserv "NOTICE $nick :!addop <nickname> - Add The Nickname To The Bots Auto-Op List"
putserv "NOTICE $nick :!delop <nickname> - Remove The Nickname From The Bots Auto-Op List"
putserv "NOTICE $nick :!adduser <nickname> - Add User To The User Database With Default Flags"
putserv "NOTICE $nick :!deluser <nickname> - Remove A User From The Bots Database, Can Be Used If User Needs To Re-Register With The Bot"
putserv "NOTICE $nick :!jump <server> - Forces The Bot To Change Servers To Server Entered"
putserv "NOTICE $nick :!update - Manually Update The Stats Site"
putserv "NOTICE $nick :getlog <date> - Have A Logfile From A Certain Date Sent To You. Usage: /msg $botnick getlog <ddMonyyyy> \(ie getlog 01Jul2005\) Month MUST Have A Capital First Letter"
putserv "NOTICE $nick :!gban <nickname> - Add A Global Ban To The Bots Internal Ban List (ie: akick)"
putserv "NOTICE $nick :!noop <nickname> - Adds A Flag To The Nickname That Prevets The Person From Being Op\'d"
putserv "NOTICE $nick :!allowop <nickname> - Removes The Flag That Prevents People From Getting Op\'d"
putserv "NOTICE $nick :End Of Bot Master Commands"
}
}
 
putlog "*** Op Commands by xTc^bLiTz <
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
> Loaded" 

proc join_greet {nick uhost handle channel} {
     putserv "privmsg $nick :12mesajınız14 Sohbet Odalarina Hosgeldiniz!"
     putserv "privmsg $nick :12siteniz14.com"
   }
bind join - * join_greet 

#!/usr/bin/tclsh
################################################################################
# 
# TCL scripts by Ofloo all rights reserved.
# 
# HomePage: http://ofloo.net/
# CVS: http://cvs.ofloo.net/
# Email: support[at]ofloo.net
# 
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
# 
################################################################################
#
# Easy install 
#
# 1st you down load it from the webserver.. to your shell
# 2nd you type "tar -jxvf filename" in your shell
# 3th you copy it to your script dir
# 4th you edit your eggdrop.conf file and add "source scripts/ip-to-country.tcl"
# 5th edit the settings below to your preference, now rehash your bot and you're done.
#
namespace eval ip2c {

variable trigger "!ip2c" ;# channel trigger
variable channel "#channel1,#channel2,#channel3" ;# define your list of channels seperated by a ','
variable flag "-" ;# this flag decides who gets to use your trigger
variable ismode "0" ;# 0 public, 1: user needs to be voiced, 2:user needs halfops, 3: user needs ops
#
# cookies to use in msg templates.
#
# %n% nick
# %c% channel
# %h% handle
# %k% short value ex: BE
# %l% long value ex: BEL
# %f% Full value ex: Belguim
# %i% input (nick,host,ip, .. !ip2c <input>)
#

#
# templates
#

variable ip2cip "PRIVMSG %c% :Ip2c lookup for \(\002%i%\002\) is \(\002%f%\002\)." ;# lookup ipaddr
variable ip2cnick "PRIVMSG %c% :Ip2c lookup for \(\002%i%\002\) is \(\002%f%\002\)." ;# lookup nickname
variable ip2chost "PRIVMSG %c% :Ip2c lookup for \(\002%i%\002\) is \(\002%f%\002\)." ;# lookup hostname
variable invalid "NOTICE %n% :Error usage: $trigger <nick|host|ip>." 
variable unknown "PRIVMSG %c% :There are no results for \(\002%i%\002\)."
variable dnserror "PRIVMSG %c% :Error couldn't associate an valid ip with \(\002%i%\002\)." 
variable notonchan "PRIVMSG %c% :Error \(\002%i%\002\) is not on \(\002%c%\002\)." ;# user is not on channel
#
# Do not edit below if you do not know what it is you are doing.
#

variable version "0.7"
variable longversion "1121868771"
proc ip2c_pub {nick host hand chan arg} {
variable invalid; variable ip2cip; variable unknown; variable notonchan
if {[ischan $chan] && [ismode $nick $chan]} {
if {[llength $arg] && ([llength $arg] < 2)} {
if {[isip $arg]} {
if {[catch {socket -async ip2c.ofloo.net 80} s]} {
putlog "Error couldn't connect to webserver plz inform the webmaster at 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $unknown] -next
} else {
fileevent $s writable[list [namespace current]::async_callback_ip $s $arg $nick $hand $chan $arg]
}
} elseif {[ishost $arg]} {
dnslookup $arg [namespace current]::dns_callback_host $nick $hand $chan $arg
} elseif {[onchan $arg $chan]} {
dnslookup [lindex [split [getchanhost $arg] \x40] end] [namespace current]::dns_callback_nick $nick $hand $chan $arg
} elseif {![onchan $arg $chan]} {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $notonchan] -next
} else {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $invalid] -next
}
} else {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $invalid] -next
}
}
}
proc dns_callback_nick {ip host status nick hand chan arg} {
variable dnserror; variable unknown
if {$status} {
if {[catch {socket -async ip2c.ofloo.net 80} s]} {
putlog "Error couldn't connect to webserver plz inform the webmaster at 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $unknown] -next
} else {
fileevent $s writable[list [namespace current]::async_callback_nick $s $ip $nick $hand $chan $arg]
}
} else {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $dnserror] -next
}
}
proc dns_callback_host {ip host status nick hand chan arg} {
variable dnserror; variable unknown
if {$status} {
if {[catch {socket -async ip2c.ofloo.net 80} s]} {
putlog "Error couldn't connect to webserver plz inform the webmaster at 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $unknown] -next
} else {
fileevent $s writable[list [namespace current]::async_callback_host $s $ip $nick $hand $chan $arg]
}
} else {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $dnserror] -next
}
}
proc async_callback_host {s ip nick hand chan arg} {
variable ip2chost; variable unknown; variable version
if {[string equal {} [fconfigure $s -error]]} {
flush $s
puts $s "GET /[ip2longip $ip] HTTP/1.1"
puts $s "Host: ip2c.ofloo.net"
puts $s "Connection: Close"
puts $s "User-Agent: Ip-to-Country lookup script version $version\n"
flush $s
while {![eof $s]} {
gets $s x
if {[regexp -nocase {<resolve[\x20]{0,100}c02="([a-z]{2})"[\x20]{0,100}c03="([a-z]{3})"[\x20]{0,100}full="(.*?)"[\x20]{0,100}/>} $x -> k l f]} {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% $k %l% $l %f% [wFormat $f]] $ip2chost] -next
break
}
}
close $s
if {![info exists k]} {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $unknown] -next
}
} else {
putlog "Error couldn't connect to webserver plz inform the webmaster at 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
}
proc async_callback_nick {s ip nick hand chan arg} {
variable ip2cnick; variable unknown; variable version
if {[string equal {} [fconfigure $s -error]]} {
flush $s
puts $s "GET /[ip2longip $ip] HTTP/1.1"
puts $s "Host: ip2c.ofloo.net"
puts $s "Connection: Close"
puts $s "User-Agent: Ip-to-Country lookup script version $version\n"
flush $s
while {![eof $s]} {
gets $s x
if {[regexp -nocase {<resolve[\x20]{0,100}c02="([a-z]{2})"[\x20]{0,100}c03="([a-z]{3})"[\x20]{0,100}full="(.*?)"[\x20]{0,100}/>} $x -> k l f]} {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% $k %l% $l %f% [wFormat $f]] $ip2cnick] -next
break
}
}
close $s
if {![info exists k]} {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $unknown] -next
}
} else {
putlog "Error couldn't connect to webserver plz inform the webmaster at 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
}
proc async_callback_ip {s ip nick hand chan arg} {
variable ip2cip; variable unknown; variable version
if {[string equal {} [fconfigure $s -error]]} {
flush $s
puts $s "GET /[ip2longip $arg] HTTP/1.1"
puts $s "Host: ip2c.ofloo.net"
puts $s "Connection: Close"
puts $s "User-Agent: Ip-to-Country lookup script version $version\n"
flush $s
while {![eof $s]} {
gets $s x
if {[regexp -nocase {<resolve[\x20]{0,100}c02="([a-z]{2})"[\x20]{0,100}c03="([a-z]{3})"[\x20]{0,100}full="(.*?)"[\x20]{0,100}/>} $x -> k l f]} {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% $k %l% $l %f% [wFormat $f]] $ip2cip] -next
break
}
}
close $s
if {![info exists k]} {
putserv [string map[list %n% $nick %h% $hand %i% $arg %c% $chan %k% {} %l% {} %f% {}] $unknown] -next
}
} else {
putlog "Error couldn't connect to webserver plz inform the webmaster at 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">}
}
proc wFormat {arg} {
foreach {w} [string tolower $arg] {
if {[info exists word]} {unset word}
foreach x [split $w {}] {
if {[info exists word]} {
append word $x
} else {
append word [string toupper $x]
}
}
lappend str $word
}
return $str
}
proc longip2ip {long} {
return [join [scan [format %.8x $long] %2x%2x%2x%2x] \x2e]
}
proc ip2longip {ip} {
return [format %u 0x[eval format %.2x%.2x%.2x%.2x [split $ip \x2e]]]
}
 
proc isip {ip} {
if {[regexp {^([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})\.([0-9]{1,3})$} $ip -> a b c d]} {
if {($a <= 255) && ($b <= 255) && ($c <= 255) && ($d <= 255)} {
return 1
}
}
return 0
}
proc ishost {host} {
if {[regexp -nocase {[a-z\-]{1,100}\.[a-z]{2,4}$} $host]} {
return 1
}
return 0
}
proc ischan {chan} {
variable channel
foreach {x} [split $channel \x2c] {
if {[string equal -nocase $x $chan]} {
return 1
}
}
return 0
}
proc ismode {nick chan} {
variable ismode
switch -exact $ismode {
"0" {
return 1
}
"1" {
if {[isvoice $nick $chan] || [ishalfop $nick $chan] || [isop $nick $chan]} {
return 1 
}
}
"2" {
if {[ishalfop $nick $chan] || [isop $nick $chan]} {
return 1 
}
}
"3" {
if {[isop $nick $chan]} {
return 1 
}
}
}
return 0
}
bind pub $flag $trigger [namespace current]::ip2c_pub
################################################################################
putlog "Loaded \002Ip-to-Country.tcl\002 version \002$version\002 by \002Ofloo\002."
} 

#########################################################################
#                                                         mirchane.com  #
#   _|_|_|_|_|                                        _|            _| #
#       _|      _|_|_|  _|  _|_|    _|_|_|  _|    _|        _|_|_| #
#       _|    _|    _|  _|_|      _|    _|  _|    _|  _|  _|        _|  #
#       _|    _|    _|  _|        _|    _|  _|    _|  _|  _|        _|  #
#       _|      _|_|_|  _|          _|_|_|    _|_|_|  _|    _|_|_|  _|  #
#                                                 _|                    #
#                                             _|_|   _|_|          _|   #
#                                                  _|   _|       _|  _| #
#                                                      _|        _|  _| #
#                                                    _|          _|  _| #
#                                                  _|_|_|_|   _|   _|   #
#                                                                       #
#########################################################################
#########################################################################
# inviterlerin serverdan nasıl atılacagını belirler.                    #
# Kline için "kline" ; Kill için "kill" yazınız.                        #
#                                                                       #
  set atma "kline"
  set ktime "+3600"
#########################################################################
# inviterlerin serverdan  atılırken yazılacak mesajı belirler.          #
#                                                                       #
  set txt "1Reklam/Küfür tespit edildi. Auto Kline!"
#########################################################################
# Kanaldan cıkıp kanala girme zamanını belirler. (Dakika turunden)      #
#                                                                       #
  set cikgir 5
#########################################################################
# host gizlemede kullanılacak ipyi belirler.                            #
# ornek : 1342A7A7.45327A5C.55774CAB1.IP                                #
#                                                                       #
 set host "Scanner"
#########################################################################
# Botun nicki confdaki nickle aynı olmalıdır.                           #
#                                                                       #
 set bnick H-B
#########################################################################
#                                                                       #
#                          !! DIKKAT !!                                 #
#      Burdan sonrasında oynama yapmayınız. Botunuzun hatalı            #
#             çalışmasına sebebiyet verebilirsiniz.                     #
#                                                                       #
#########################################################################
set hst 1
set host Scanner
set colornum 0
bind msgm - "*s*e*r*v*e*r*" tara
bind msgm - "*i*r*c*.*" tara
bind msgm - "*w*w*w*.*" tara
bind msgm - "h*t*t*p*:*/*" tara
bind msgm - "*.*c*o*m*" tara
bind msgm - "*.*n*e*t*" tara
bind msgm - "*i*r*c*.*k*i*t*l*e*.*n*e*t*" tara
bind msgm - "*.tr*" tara
bind msgm - "*******" tara
bind msgm - "*p0rn0*" tara
bind msgm - "film" tara
bind msgm - "***" tara
bind msgm - "seks" tara
timer $hst host
proc host {} {
 global bnick host
  putserv "chghost $bnick $host"
  putserv "mode $bnick +H"
}
timer $cikgir cikgir
proc cikgir {} {
 global cikgir
 foreach kanal [channels] {
  putserv "part $kanal"; putserv "join $kanal"; timer $cikgir cikgir
 }
}
proc tara {nick uhost hand thinks} {
global colornum txt atma botnick ktime
   putserv "$atma $nick $ktime: $txt"
}
#########################################################################
# Tarayici Version 2.0                                                  #
putlog "Tarayici 2.0 =- By mirchane.com -= yuklendi."
# Tarayici Version 2.0                                                  #
#########################################################################