on ^*:notice:*:?: {
if ($nick == Nickserv) {
if (!$window(@Services)) { window -en @Services }
echo 5 -t @Services Nickserv ~ $1- | haltdef
}
if ($nick == Chanserv) {
if (!$window(@Services)) { window -en @Services }
echo 5 -t @Services Chanserv ~ $1- | haltdef
}
if ($nick == Memoserv) {
if (!$window(@Services)) { window -en @Services }
echo 5 -t @Services Memoserv ~ $1- | haltdef
}
}

* Botunuz web sitenizin açılma hızını ve büyüklüğünü online olarak kanala yansıtır.

* TCL Yapımcısı: CLubber

http.tcl indir

#
# Web Hız Ölçer TCL v1.0 – Written By CLubber
#

# Komutun kullanımını yazıyoruz

set speed(komut) “!webhız”

# Komutun kullanılacağı kanal

set speed(kanal) “#Webmaster”

# Web Hız Testi – Web Sayfası Hız Kontrolü

bind pub – $speed(komut) webspeed

proc webspeed {nick uhost hand chan text} {
global botnick speed
if {![string match -nocase "$speed(kanal)" $chan]} { return }
set site [lindex $text 0]
if {$site == “”} {putquick “PRIVMSG $speed(kanal) :Herhangi bir web sitesinin hızını ölçmek için lütfen komutu doğru kullanınız. Kullanımı: <$speed(komut) site> şeklindedir.”;return}
set connect [::http::geturl http://www.iwebtool.com/speed_test?domain=$site]
set files [::http::data $connect]
regexp — { (.+?) KB

} $files – size
regexp — {KB (.+?) seconds

} $files – speeds
regexp — { (.+?) seconds

} $files – average
::http::cleanup $files
putquick “PRIVMSG $speed(kanal) ———————————————-”
putquick “PRIVMSG $speed(kanal) Hızına bakılan web sitesi: $site”
putquick “PRIVMSG $speed(kanal) Büyüklüğü: $size KB”
putquick “PRIVMSG $speed(kanal) Hızı: $speeds saniye”
putquick “PRIVMSG $speed(kanal) Ortalama süresi: $average saniye”
putquick “PRIVMSG $speed(kanal) ———————————————-”
}

putlog “Web Hız Ölçer TCL v1.0 – Written By CLubber”

Gelen Aramalar:

on @*:JOIN:#:{
if (*!*sik*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Oros*@* iswm $fulladdress) || (*!*Amcık*@* iswm $fulladdress) || (*!*Pic*@* iswm $fulladdress) || (*!*Piç*@* iswm $fulladdress) || (*!*www.*@* iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*fuck*@* iswm $fulladdress) || (*!*Yarak*@* iswm $fulladdress) || (*!*Yarrak*@* iswm $fulladdress) || (*!*Hack*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*gay*@* iswm $fulladdress) || (*!*lez*@* iswm $fulladdress) {
ban -u120 # $nick 11
/ban -u120 # $nick 5 | kick # $nick Bu tür identlerle kanal giriş yapmak yasaktır.
}
}

Gelen Aramalar:

alias mJoin {
if (!$1) || (!$2) {
echo 6 ;/Mjoin #Kanaldan #Kanala
echo 6 * Ornek : /Mjoin #MTX #mIRC
}
else {
echo 12 * Kullanicilar tasınıyor $1 – $2
set %i 1
set %nick $nick($1,%i)
While %nick != $null {
%nick = $nick($1,%i)
sajoin %nick $2
echo 12 * %i %nick Taşındı $2
inc %i
}
echo 14 * Toplam %i kullanici $2 kanalina Mjoin edildi.
}

Gelen Aramalar:

dialog kufur {
title “Küfür Koruması [ NaTSuKa ]”
size -1 -1 138 186
option dbu
edit “”, 1, 7 10 61 10
list 2, 7 22 60 50, size
button “Ekle”, 3, 7 74 27 12, flat
button “Sil”, 4, 39 74 27 12, flat
check “Opları (@)”, 5, 85 21 41 10, flat
check “Voiceler (@)”, 6, 85 10 42 10, flat
combo 7, 7 102 52 51, size
button “Ekle”, 8, 7 154 24 9, flat
button “Sil”, 9, 35 154 23 9, flat
box “Küfür listesi”, 13, 3 2 71 88
box “Ayrılan Nickler”, 14, 3 92 63 76
box “Ayrılan Kanallar”, 15, 73 92 62 76
box “Ayır”, 16, 78 2 56 33
button “Sil”, 10, 106 154 23 9, flat
button “Ekle”, 11, 78 154 24 9, flat
combo 12, 78 102 52 51, size
box “İşlemler”, 17, 78 37 56 53
radio “Opersem Kline”, 18, 83 47 47 10, flat
radio “Opersem Kill”, 19, 83 57 47 10, flat
radio “Opsam Kick”, 20, 83 67 47 10, flat
check “Banla”, 21, 83 77 27 10, flat
button “Kapat”, 22, 97 171 37 12, flat ok
}
alias kufur { /dialog -m kufur kufur }
on *:dialog:kufur:init:*: {
if ($isfile(kufur.txt) == $false) { write -c kufur.txt } | else { loadbuf -o $dname 2 kufur.txt }
if (%knickler) .didtok $dname 7 32 $ifmatch
if (%kufkanal) .didtok $dname 12 32 $ifmatch
if (%klineat) { .did -c $dname 18 }
if (%killat) { .did -c $dname 19 }
if (%kickat) { .did -c $dname 20 }
if (%banla) { .did -c $dname 21 }
if (%oplar) { .did -c $dname 5 }
if (%vlar) { .did -c $dname 6 }
}
on *:dialog:kufur:sclick:*: {
if ($did == 18) { if ($did(18).state == 1) { .set %klineat on | .unset %killat | .unset %kickat } | else { .unset %klineat } }
if ($did == 19) { if ($did(19).state == 1) { .set %killat on | .unset %klineat | .unset %kickat } | else { .unset %killat } }
if ($did == 20) { if ($did(20).state == 1) { .set %kickat on | .unset %killat | .unset %klineat } | else { .unset %kickat } }
if ($did == 21) { if ($did(21).state == 1) { .set %banla on } | else { .unset %banla } }
if ($did == 3) { write kufur.txt $did(1) | did -a $dname 2 $did(1) | did -r $dname 1 }
if ($did == 4) { write -dl $+ $did(2).sel kufur.txt | did -d $dname 2 $did(2).sel }
if ($did == { if ($did(7) != $null) { set -u %sk $did(7) | if (%sk) && (!$istok(%knickler,%sk,32)) { .set %knickler $addtok(%knickler,%sk,32) | did -a $dname 7 %sk } } }
if ($did == 9) { if ($did(7).sel > 0) { .set %knickler $remtok(%knickler,$did(7).seltext,1,32) | did -d $dname 7 $did(7).sel | did -c $dname 7 1 } }
if ($did == 11) { if ($did(12) != $null) { set -u %ek $did(12) | if (%ek) && (!$istok(%kufkanal,%ek,32)) { .set %kufkanal $addtok(%kufkanal,%ek,32) | did -a $dname 12 %ek } } }
if ($did == 10) { if ($did(12).sel > 0) { .set %kufkanal $remtok(%kufkanal,$did(12).seltext,1,32) | did -d $dname 12 $did(12).sel | did -c $dname 12 1 } }
if ($did == 5) { if ($did(5).state == 1) { .set %oplar on } | else { .unset %oplar } }
if ($did == 6) { if ($did(6).state == 1) { .set %vlar on } | else { .unset %vlar } }
}
on *:text:*:#: {
if $istok(%kufkanal,#,32) == $true { halt }
if $istok(%knickler,$nick,32) == $true { halt }
if ($nick isop #) && (%oplar == on) { return }
if ($nick isvo #) && (%vlar == on) { return }
korukufurden $1-
}
alias korukufurden {
var %HR $strip($1-) , %_: $lines(kufur.txt)
while (%_:) {
if $read(kufur.txt,%_:) iswm %HR iswm %HR {
if (%banla == on) { .mode $chan +b $wildsite }
if (%klineat == on) { .kline $nick Lutfen kufur etmeyin }
if (%killat == on) { .kill $nick Lutfen kufur etmeyin }
if (%kickat == on) { .kick $chan $nick Lutfen kufur etmeyin }
return
}
dec %_:
}
}

Gelen Aramalar:

alias millet { var %x = $nick(#,0) | var %y | while %x { if $nick(#,%x) != $me { %y = $addtok(%y,$nick(#,%x),32) } | dec %x } | say %y $1- }

Gelen Aramalar:

alias Bads { dialog -m Bads Bads }
#shitlizt on
on @666:join:#:{
if ($nick != $me) {
kick # $nick %shitkickmsg
if (%banx == !) { mode # +b $address($nick,%mazk) }
}
}
#shitlizt end
dialog Bads {
title "[ Bad Nick / Düşman Menü ]"
size -1 -1 385 340
button "&Kapat", 1, 323 198 58 30,ok
list 2, 165 20 210 135, sort
box "Düşman Listen", 3, 160 5 220 145
edit "", 4, 165 165 210 20, autohs
box "Eklenecek Nicki Yazınız", 5, 160 150 220 45
button "E&kLe", 6, 160 200 50 20
box "Note:", 7, 160 225 220 35
text "Nick Üzerinde Çift Tıklamak Siler", 8, 190 240 180 45
box "Ban Seçin", 9, 5 5 150 225
radio " 0: *!user@host", 10, 20 20 120 20
radio "1: *!*user@host", 11, 20 40 120 20
radio "2: *!*@host", 12, 20 60 120 20
radio "3: *!*user@*.host", 13, 20 80 120 20
radio "4: *!*@*.host", 14, 20 100 120 20
radio "5: nick!user@host", 15, 20 120 120 20
radio "6: nick!*user@host", 16, 20 140 120 20
radio "7: nick!*@host", 17, 20 160 120 20
radio "8: nick!*user@*.host", 18, 20 180 120 20
radio "9: nick!*@*.host", 19, 20 200 120 20
box "Giriş Yaptığında:", 20, 5 235 150 75
check "Sadece Kick", 21, 20 255 100 20
check "Kick+Ban", 22, 20 275 100 20
button "De&fault", 23, 215 200 50 20
button "&Özellik", 24, 270 200 50 20
edit "", 26, 165 280 210 20, autohs
box "Kick Mesajınız", 25, 160 265 220 45
button "Düşman Listesi Açık", 27, 5 315 180 20
button "Düşman Listesi Kapalı", 28, 200 315 180 20
}
alias shitdefmsg { return 4Bad Nick / Düşman Listemdesin.! }
alias shitsetup if $dialog(Bads) == $null dialog -m Bads Bads
alias s_about_s if $dialog(sabout) == $null yardi Bu özellik Sayesinde Kanala Giren İstenmeyen Kişiler Kick Sebebiyle Birlikte Kanaldan Atılır.
on *:dialog:Bads:dclick:2:{ /.ruser 666 $did(2).seltext | did -d Bads 2 $did(2).sel }
on *:dialog:Bads:sclick:6:{ if ($did(4) != $null) { did -a Bads 2 $did(4) | .auser 666 $did(4) | did -fr Bads 4 } }
on *:dialog:Bads:sclick:10:{ set %mazk 0 }
on *:dialog:Bads:sclick:11:{ set %mazk 1 }
on *:dialog:Bads:sclick:12:{ set %mazk 2 }
on *:dialog:Bads:sclick:13:{ set %mazk 3 }
on *:dialog:Bads:sclick:14:{ set %mazk 4 }
on *:dialog:Bads:sclick:15:{ set %mazk 5 }
on *:dialog:Bads:sclick:16:{ set %mazk 6 }
on *:dialog:Bads:sclick:17:{ set %mazk 7 }
on *:dialog:Bads:sclick:18:{ set %mazk 8 }
on *:dialog:Bads:sclick:19:{ set %mazk 9 }
on *:dialog:Bads:sclick:21:{ if (%banx == !) { unset %banx | did -u Bads 22 } | else { set %banx ! | did -c Bads 22 } }
on *:dialog:Bads:sclick:22:{ if (%banx == $null) { set %banx ! | did -u Bads 21 } | else { unset %banx | did -c Bads 21 } }
on *:dialog:Bads:sclick:23:{
set %banx ! | set %mazk 2 | set %shitkickmsg $shitdefmsg | did -c Bads 12,22
did -a Bads 26 %shitkickmsg | did -u Bads 10,11,13,14,15,16,17,18,19,21
}
on *:dialog:Bads:sclick:24:{ s_about_s }
on *:dialog:Bads:edit:26:{ set %shitkickmsg $did(26) }
on *:dialog:Bads:sclick:27:{ .enable #shitlizt | did -e Bads 21,22 }
on *:dialog:Bads:sclick:28:{ .disable #shitlizt | did -b Bads 21,22 }
on *:dialog:Bads:init:*:{
if ($group(#shitlizt) == off) { did -b Bads 21,22 }
if (%mazk == 0) { did -c Bads 10 }
if (%mazk == 1) { did -c Bads 11 }
if (%mazk == 2) { did -c Bads 12 }
if (%mazk == 3) { did -c Bads 13 }
if (%mazk == 4) { did -c Bads 14 }
if (%mazk == 5) { did -c Bads 15 }
if (%mazk == 6) { did -c Bads 16 }
if (%mazk == 7) { did -c Bads 17 }
if (%mazk == { did -c Bads 18 }
if (%mazk == 9) { did -c Bads 19 }
if (%banx == $null) { did -c Bads 21 }
if (%banx == !) { did -c Bads 22 }
did -a Bads 26 %shitkickmsg
if ($ulist(*,666,0) != $null) {
set %cnt.shit 0
while (%cnt.shit < $ulist(*,666,0)) {
inc %cnt.shit 1
did -a Bads 2 $ulist(*,666,%cnt.shit)
}
unset %cnt.shit
}
}

Gelen Aramalar:

alias Clone {
var %ğ = $nick(#,0)
while %ğ {
if !$hget(host,$address($nick(#,%ğ),2)) { hadd -m host $address($nick(#,%ğ),2) 1 }
else { hinc host $address($nick(#,%ğ),2) }
dec %ğ
}
echo 4 -st # kanalı için clone taraması başlatıldı…
echo -s -
.timer 1 1 .h_al #
}
alias h_al {
var %ı = $hget(host,0).item
while %ı {
if $hget(host,%ı).data > 1 {
set %y_k yes
var %ç = $nick($1,0)
while %ç {
if $hget(host,%ı).item == $address($nick($1,%ç),2) { set %_cln $addtok(%_cln,$nick($1,%ç),32) }
dec %ç
}
echo 12 -st 2Adres: $hget(host,%ı).item — 10Bağlı kullanıcı sayısı: $hget(host,%ı).data — 4Bağlı rumuzlar: $gettok(%_cln,1-,32)
unset %_cln
}
dec %ı
}
echo -s -
$iif($(%y_k,2) != yes,echo 4 -st $1 kanalında clone bulunamadı.,echo 4 -st $1 kanalı için clone taraması tamamlandı.)
unset %y_k
hfree host
}
menu channel {
.-
.Clone Tara:.Clone #
}

Gelen Aramalar:

İlk başta SSh Login olalım.

wget http://www.ilkshell.org/depo/Unreal3.2.3.tar.tar

Komutu ile Unreal’i çekelim.

Unreal3.2.3 Ftpmize çektikten sonra.

tar -zxvf Unreal3.2.3.tar.tar

Komutu ile dosyamızı açalım.

Dosyalarımızı çıkarttıktan sonra.

cd Unreal3.2

Komutu ile Unreal3.2 klasörünün içine girelim.

Sonra

./Config

Komutunu uyguluyoruz.
Aşağıdaki gib gelcek.

Enter’a basarak bu bölümü geçiyoruz.

Bu bölümüde 3-5 sefer Space ( Boşluk ) tuşuna basarak geçiyoruz.

Enter’a basıp geçiniz ve size bazı sorular saracak.

Do you want to enable the server anti-spoof protection?
[No] -> Burayı enter ile geçiniz.

What directory are all the server configuration files in?
[/home/mircxg/Unreal3.2] -> Burayı enter ile geçiniz.

What is the path to the ircd binary including the name of the binary?
[/home/mircxg/Unreal3.2/src/ircd] -> Burayı enter ile geçiniz.

Would you like to compile as a hub or as a leaf?
Type Hub to select hub and Leaf to select leaf.
[Hub] -> Burayı enter ile geçiniz.

What is the hostname of the server running your IRCd?
[server101.nt133.datacenter.ni.net.tr] -> Burayı enter ile geçiniz.

What should the default permissions for your configuration files be? (Set this t o 0 to disable)
It is strongly recommended that you use 0600 to prevent unwanted reading of the file
[0600] -> Burayı enter ile geçiniz.

Do you want to support SSL (Secure Sockets Layer) connections?
[No] -> Burayı enter ile geçiniz.

Do you want to enable IPv6 support?
[No] -> Burayı enter ile geçiniz.

Do you want to enable ziplinks support?
[No] -> Burayı enter ile geçiniz.

Do you want to enable remote includes?
[No] -> Burayı enter ile geçiniz.

Do you want to enable prefixes for chanadmin and chanowner?
This will give +a the & prefix and ~ for +q (just like +o is @)
Supported by the major clients (mIRC, xchat, epic, eggdrop, Klient, PJIRC, etc.)
with the notable exceptions of irssi, KVIrc and CGI:IRC.
This feature should be enabled/disabled network-wide.
[Yes] -> YES
Eğere burda Sunucumuzda Founder Sop Aop Hop ( ~ & @ % ) gözükmesini istiyorsanız YES yazıp enter yapınız.

What listen() backlog value do you wish to use? Some older servers
have problems with more than 5, others work fine with many more.
[5] -> Burayı enter ile geçiniz.

How far back do you want to keep the nickname history?
[2000] -> Burayı enter ile geçiniz.

What is the maximum sendq length you wish to have?
[3000000] -> Burayı enter ile geçiniz.

How many buffer pools would you like?
This number will be multiplied by MAXSENDQLENGTH.
[18] -> Burayı enter ile geçiniz.

How many file descriptors (or sockets) can the IRCd use?
[1024] ->

Would you like any more parameters to configure?
Write them here:
[]-> Enter ve configure işlemimiz biter.

Burada

make

komtunu uyguluyoruz

Unreal IRCD Kurulumumuz bitmiştir.Unreal’e start vermeden önce mutlaka Unrealircd.conf ve Opers.conf dosyaları kedimize göre editleyim ftp’mizdeki Unreal3.2 Klasörünün İçine atıyoruz.
http://www.ilkshell.org/depo/unrealircd.conf
http://www.ilkshell.org/depo/opers.conf

./unreal start

Komutunu uyguladıktan sonra aşağıdaki gibiyse UnrealIRCD sorunsuz kurmuşuzdur.

Gelen Aramalar:

mirc.com.tr sizin işinize yarayacağı kodları bir arada toplayıp yayınlamaktadır. Amacımız sizin rahat bir ortamda, seviyeli ve güzel bir sohbet geçirmenizdir.

mIRC‘in türkçe resmi sitesidir sadece mirc.com.tr adresidir. Orjinal mIRC‘i sadece ve sadece mirc.com.tr adresinden indiriniz.

on @1:text:*:#:{
if $me !isop $chan { halt } | if $nick isop $chan { halt }
var %bflood $strip($1-)
var %mflood $strip($$1)
if ($len(%bflood) >= 250 ) || ($len($1) >= 200 ) {
/mode $chan +b $address($2,2) | /kick $chan $nick 7¤ 13Flood Yasaktir2 [14!2] 7¤
}
}

Gelen Aramalar: