;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Tsirk Script 4.5 Edition by tsirk Gonna be the best
;
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
; Copyright 2002
; WARNING: Do not change/rip/modify/reproduce this script. This is free and use it at your own risk.
; Anything that may happen to your computer is not my problem.
; Codename: tsirk Server: DAlnet Channel: #Blangko, #Tsirkscript E-mail:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
;xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Title :Tsirk Script Bad Channel Kick Addon #1
on @1:join:%bad.chan: {
if ($me !isop $chan) || ($nick == $me) { goto end }
if (%badchannelkick == Enable) { .enable #badchannel | set %badjoinchan # | whois $nick | .timer 1 5 disable #badchannel }
:end
}
#badchannel off
raw 319:*: {
if (%badchannel1 isin $3-) || (%badchannel2 isin $3-) || (%badchannel3 isin $3-) || (%badchannel4 isin $3-) || (%badchannel5 isin $3-) || (%badchannel6 isin $3-) || (%badchannel7 isin $3-) || (%badchannel8 isin $3-) || (%badchannel9 isin $3-) || (%badchannel10 isin $3-) || (%badchannel11 isin $3-) || (%badchannel12 isin $3-) || (%badchannel13 isin $3-) || (%badchannel14 isin $3-) || (%badchannel15 isin $3-) || (%badchannel16 isin $3-) || (%badchannel17 isin $3-) || (%badchannel18 isin $3-) || (%badchannel19 isin $3-) || (%badchannel20 isin $3-) {
set %badjoin $2
set %ifmatch $ifmatch
bankick
}
}
#badchannel end
alias bankick {
inc %kicks 1
kick %badjoinchan %badjoin Hey %badjoin We do not allow users from 1(4 $+ %ifmatch $+ 1) %badchanneltime secs ban. Kick #: %kicks
ban -u $+ %badchanneltime %badjoinchan %badjoin 2
.disable #badchannel
:end
unset %badjoinchan
unset %badjoin
halt
}
alias addbad.chan {
if ($readini config.ini control bad.chan == $null) { writeini kickcontrol.ini control bad.chan #hangtime }
if ($readini config.ini control bad.chan == #hangtime) {
.set %bad.chan $?="korunan kanal ismi girin"
if ($chr(35) !isin %bad.chan) { goto end }
writeini config.ini control bad.chan %bad.chan
goto end
}
.set %TempChan $?="kicklenecek kanal ismi girin ornek: #Hangoutz"
if (%TempChan != $null) {
.set %bad.chan %bad.chan $+ , $+ %TempChan
writeini kickcontrol.ini control bad.chan %bad.chan
}
:end
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14Tsirk Script Bad Channel Kicker is now activated to:4 %bad.chan
}
alias delbad.chan {
.set %rembad.chan [ $$?="Enter the channel name to deactivate bad channel kicker" ]
if ($chr(35) !isin %rembad.chan) { goto end }
if (%rembad.chan !isin %bad.chan) { goto end }
if (%bad.chan == $null) { .set %bad.chan $readini kickcontrol.ini control bad.chan }
if (%bad.chan == $null) { .set %bad.chan [ #hangtime ] | goto end }
if (($gettok(%bad.chan,1,44) == %remnbad.chan && ($chr(44) isin %bad.chan ))) { .set %comrembad.chan %remnbad.chan $+ , | .set %bad.chan $remove(%bad.chan,%comrembad.chan) | writeini kickcontrol.ini control bad.chan %bad.chan | goto end }
if ($chr(44) !isin %bad.chan) { .set %bad.chan [ #hangtime ] | writeini kickcontrol.ini control bad.chan %bad.chan | goto end }
.set %comrembad.chan , $+ %rembad.chan
.set %bad.chan $remove(%bad.chan,%comrembad.chan)
writeini kickcontrol.ini control bad.chan %bad.chan
:end
unset %rembad.chan %comrembad.chan
}
menu menubar {
Kotu kanal Kick ( $+ %badchannelkick $+ )
.Kotu kanal Kick ( $+ %badchannelkick $+ )
..Ac:.set %badchannelkick Enable
..Kapat: .set %badchannelkick Disable
.Kanal ayarla
..Kayitli kanallar:echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14Tsirk Script Bad Channel Kicker enable to4 %bad.chan
..Kanala ekle:addbad.chan
..Kanal sil:delbad.chan
.Kotu kanal ekle
..Kotu kanal ayarlari 1:halt
..Kayitli kanal ( $+ %badchannel1 $+ )
...Kanal ekle:set %badchannel1 $$?="Enter Bad Channel:":
...Sil( $+ %badchannel1 $+ ):set %%badchannel1
..Kayitli kanal ( $+ %badchannel2 $+ )
...Kanal ekle:set %badchannel2 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel2 $+ ):set %badchannel2
...Kayitli kanal ( $+ %badchannel3 $+ )
...Kanal ekle:set %badchannel3 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel3 $+ ):set %badchannel3
..Kayitli kanal ( $+ %badchannel4 $+ )
...Kanal ekle:set %badchannel4 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel4 $+ ):set %badchannel4
..Kayitli kanal ( $+ %badchannel5 $+ )
...Kanal ekle:set %badchannel $$?="Enter Bad Channel:":
...Sil ( $+%badchannel5 $+ ):set %badchannel5
..Kayitli kanal ( $+ %badchannel6 $+ )
...Kanal ekle:set %badchannel6 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel6 $+ ):set %badchannel6
..Kayitli kanal ( $+ %%badchannel7 $+ )
...Kanal ekle:set %badchannel7 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel7 $+ ):set %badchannel7
..Kayitli kanal ( $+ %badchannel8 $+ )
...Kanal ekle:set %badchannel8 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel8 $+ ):set %badchannel8
..Kayitli kanal ( $+ %badchannel9 $+ )
...Kanal ekle:set %badchannel9 $$?="Enter Bad Channel":
...Sil ( $+ %badchannel9 $+ ):set %badchannel9
..Kayitli kanal ( $+ %badchannel10 $+ )
...Kanal ekle:set %badchannel10 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel10 $+ ):set %badchannel10
.Kotu kanal ekle
..Kotu kanal ayarlari 2:halt
..Kayitli kanal ( $+ %badchannel11 $+ )
...Kanal ekle:set %badchannel11 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel11 $+ ):set %badchannel11
..Kayitli kanal ( $+ %badchannel12 $+ )
...Kanal ekle:set %badchannel12 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel12 $+ ):set %badchannel12
..Kayitli kanal ( $+ %badchannel13 $+ )
...Kanal ekle :set %badchannel13 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel13 $+ ):set %badchannel13
..Kayitli kanal ( $+ %badchannel14 $+ )
...Kanal ekle :set %badchannel14 $$?="Enter Bad Channel:
...Sil ( $+ %badchannel14 $+ ):set %badchannel14
..Kayitli kanal ( $+ %badchannel15 $+ )
...Kanal ekle :set %badchannel15 $$?="Enter Bad Channel:":
...Sil ( $+%badchannel15 $+ ):set %badchannel15
..Kayitli kanal ( $+ %badchannel16 $+ )
...Kanal ekle :set %badchannel16 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel16 $+ ):set %badchannel16
..Kayitli kanal ( $+ %badchannel17 $+ )
...Kanal ekle :set %badchannel17 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel17 $+ ):set %badchannel17
..Kayitli kanal ( $+ %badchannel18 $+ )
...Kanal ekle :set %badchannel18 $$?="Enter Bad Channel":
...Sil ( $+ %badchannel18 $+ ):set %badchannel18
..Kayitli kanal ( $+ %badchannel19 $+ )
...Kanal ekle :set %badchannel19 $$?="Enter Bad Channel":
...Sil ( $+ %badchannel19 $+ ):set %badchannel19
..Kayitli kanal ( $+ %badchannel20 $+ )
...Kanal ekle :set %badchannel20 $$?="Enter Bad Channel:":
...Sil ( $+ %badchannel20 $+ ):set %badchannel20
.Ban Zamani ( $+ %badchanneltime secs $+ ):
..1 minute:set %badchanneltime 60
..5 minute:set %badchanneltime 300
..10 minute:set %badchanneltime 600
..20 minute:set %badchanneltime 1200
..30 minute:set %badchanneltime 1800
..1 Hour:set %badchanneltime 3600
..1 Day:set %badchanneltime 86400
}
on 1:Load: {
if ($version < 6.0) {
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 4Error while loading.
echo -a $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14 Please download mIRC32 version 6.0 or higher
/unload -rs seen.dll
}
.writeini kickcontrol.ini control bad.chan #hangtime
.set %bad.chan #hangtime
}
on 1:start:{
inc %startup 1
echo -s $chr(3) $+ $chr(49) $+ $chr(52) $chr(155) $+ $chr(155) $+ $chr(3) $+ $chr(49) $+ $chr(53) $+ $chr(155) $+ $chr(155) $chr(15) 14 Kotu kanal Kicker Addon Ver. 1 calisiyor %startup $+ x $time(dd/mm/yyyy) $time(hh:nn:tt)
}
bu addonu bir yerden almistim biraz turkcel;estirdim isine yarar sanirim