menu query {
Resim ekle
.oratala :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,3 | closemsg $1 | query $1
.döşe :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,4 | closemsg $1 | query $1
.doldur :/writeini mirc.ini background $1 $sfile($mircdir,Foto Seç,Seç) $+ ,1 | closemsg $1 | query $1

Devamı >>

on *:join:#:{
.set %hea * $+ $gettok($address($nick,0),2,64)) $+ *
if $read(klon.txt,w,%hea) {
.set %nik $gettok($read(klon.txt,w,%hea),1,11)
if %nik !== $nick {
.set %nicksaat $duration($gettok($read(klon.txt,w,%hea),3,11))
.set %benimsaat $duration($time)
echo -a $nick Nicki %nik Rumuzu ile $replace($duration($calc(%benimsaat - %nicksaat)),mins,Dk,secs,Sn,min,Dk,sec,Sn)) Önce Girmişti..
.halt
}
else {
write klon.txt $nick $+ $chr(11) $+ $gettok($address($nick,0),2,64) $+ $chr(11) $+ $time
} } } alias temizle { .unset %hea .unset %nik .unset %nicksaat .unset %benimsaat .remove klon.txt }

Devamı >>

#uyarılı on
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 11,1Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarılı end

Devamı >>

on *:input:*:{
if $left($1,1) !== / {
if $away {
awaydendon
}
else {
.timeridle off | .timeridle 1 300 .awayol $me
}
}
}
alias awayol {
.set %nikim $1
.nick $+($1,`,Mesgul)
.away Meşgulüm
.ame Away oldum vs
}
alias awaydendon {
nick %nikim | .ame awaydim döndüm | .away
}

Devamı >>

on @*:text:**:#: {
if ($nick == $me || ($nick isop $chan) { halt }
hinc -mu15 renk $+($chan,.,$nick) 1
if $hget(renk,$+($chan,.,$nick)) == 1 {
.msg # $nick : kanal genelinde renkli yazı yazılması yasaktır.
}
if $hget(renk,$+($chan,.,$nick)) == 2 {
.msg # $nick : renkli yazmamanız konusunda ikinci ve son uyarınız, tekrarlamanız durumunda kanaldan uzaklaştırılacaksınız.
}
if $hget(renk,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Kanal genelinde renkli yazmak yasaktır.!
.hdel -s renk $+($chan,.,$nick))
}
}

Kanal içerisinde renkli yazı yazılmasını engellemek isteyenler için 2 uyarı 3. tekrarda kanaldan uzaklaştırma yapmanızı sağlayan koruma kodu.

Devamı >>

on @*:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/gi) >= 10) {
hinc -mu20 uzunharf $+($chan,.,$nick) 1
if $hget(uzunharf,$+($chan,.,$nick)) == 1 {
.msg # $nick : lütfen harfleri uzatmadan yazınız.
}
if $hget(uzunharf,$+($chan,.,$nick)) == 2 {
.msg # $nick : harfleri uzatmamanız konusunda ikinci uyarınız, tekrarlamanız durumunda kanaldan uzaklaştırılacaksınız..
}
if $hget(uzunharf,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Harfleri uzatmadan yazmanız konusunda uyarıları dikkate almadınız.
.hdel -s uzunharf $+($chan,.,$nick))
}
}
}

Devamı >>

on @*:text:*:#: {
if ($nick isop $chan) || ($nick == $me) { halt }
if ($len($strip($1-)) >= 250) {
hinc -mu10 uzunyazi $+($chan,.,$nick) 1
if $hget(uzunyazi,$+($chan,.,$nick)) == 1 {
.msg # $nick : Uzun yazı yazmak yasaktır, lütfen bu kurala uygun yazınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 2 {
.msg # $nick : Uzun yazı yazmamanız konusunda 2. uyarınız, tekrarlamanız halinde kanaldan uzaklaştırılacaksınız.
}
if $hget(uzunyazi,$+($chan,.,$nick)) == 3 {
.ban # $nick 5
.kick # $nick Bu kanal içerisinde uzun yazı yazmak yasaktır.
.hdel -s uzunyazi $+($chan,.,$nick))
}
}
}

Devamı >>

Devamı >>

raw 366:*:{
var %op = $nick($2,0,@), %vop = $nick($2,0,+), %hop = $nick($2,0,%), %founder = $nick($2,0,~), %kullanıcı = $nick($2,0), %artakalan $calc(%kullanıcı - ($nick($2,0,&) + %hop + %vop + %founder + %op))
if (%op != 0) { echo $2 5[ 2+o (4 $nick($2,0,@) 2) 4 $+ $str(|, $calc(%op * 50 / %kullanıcı)) $+ 15 $+ $str(|, $calc(50 - $calc(%op * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%op * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }
if (%hop != 0) { echo $2 5[ 2+h (4 $nick($2,0,%) 2) 4 $+ $str(|, $calc(%hop * 50 / %kullanıcı)) $+ 15 $+ $str(|, $calc(50 - $calc(%hop * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%hop * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }
if (%vop != 0) { echo $2 5[ 2+v (4 $nick($2,0,+) 2) 4 $+ $str(|, $calc(%vop * 50 / %kullanıcı)) $+ 15 $+ $str(|, $calc(50 - $calc(%vop * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%vop * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }
if (%founder != 0) { echo $2 5[ 2+q (4 $nick($2,0,~) 2) 4 $+ $str(|, $calc(%founder * 50 / %kullanıcı)) $+ 15 $+ $str(|, $calc(50 - $calc(%founder * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%founder * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }
if ($nick($2,0,&) != 0) { echo $2 5[ 2+a (4 $nick($2,0,&) 2) 4 $+ $str(|, $calc($nick($2,0,&) * 50 / %kullanıcı)) $+ 15 $+ $str(|, $calc(50 - $calc($nick($2,0,&) * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc($nick($2,0,&) * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }
if (%artakalan != 0) { echo $2 5[ 2ve (4 $calc($nick($2,0) - (%op + $nick($2,0,&) + %hop + %vop + %founder)) $+ 2) 4 $+ $str(|, $calc(%artakalan * 50 / %kullanıcı)) $+ 15 $+ $str(|, $calc(50 - $calc(%artakalan * 50 / %kullanıcı))) 2(4 $+($chr(37),$left($calc(%artakalan * 100 / %kullanıcı),4)) 2 $+ ) $- 5] }
halt
}

özellik
her hangi bir kanala girdiğinizde o kanaldaki (+%@&~ ve kullanıcıların ) % olarak istatisliğini aktif ekrana yansıtır.

Devamı >>

alias awayss { if ($group(#awayscan) = on) { wawayscan 04> hata; başka bir away taraması yapılıyor.. } | elseif ($group(#awayscan) = off) { wawayscan 04> #Kanal Kanalında Away Taraması Başlatıldı.. | unset %awayscan | .enable #awayscan | who #Kanal } }

#awayscan off
raw 352:*:{ if (G isincs $7) { set %awayscan $addtok(%awayscan,$6,32) | raw -q whois $6 } }
raw 315:*:{ if ($group(#awayscan) = on) { .disable #awayscan | wawayscan 12> $iif($numtok(%awayscan,32) > 0,$2 Kanalında $ifmatch Tane Away Nick Bulundu $+ $chr(44) Away Mesajlarına Bakılıyor.,$2 Kanalında Kimse Away Değil..) } }
#awayscan end

raw 301:*:{ if $istok(%awayscan,$2,32) { wawayscan 05! Away Nick= $+(,$2,) mesaj; $3- | set %awayscan $remtok(%awayscan,$2,1,32) } }
alias wawayscan { msg #Kanal $1- }



on *:TEXT:!tara:*:{
if $nick isop $chan || $nick ishop $chan {
awayss
}
}

Devamı >>

On *:text:*:#:{
if $nick == aSi {
if $1 == !gir { /join $2 }
}
}

Bu şekilde sadece botu siz kullanabilirsiniz. Herkesin kullanmasını istiyorsanız , if $nick == aSi satırını ve en alttaki } işaretini silmeniz yeterli olacaktır.

!çık #kanal içinse ;

On *:text:*:#:{
if $nick == aSi {
if $1 == !cik { /part $2 }
}
}

Devamı >>

on *:snotice:*client connecting*:{
var %i = $+(%,flood.,$left($gettok($10,2,64),-1))
inc $(%i,1)
|;coded ßy aSi
if (!$timer($gettok(%i,1,37))) {
$+(.timer,$gettok(%i,1,37)) 1 5 unset $(%i,1)
}
if ($(%i,2) >= 5) {
unset $(%i,1) | kline $9
}

Devamı >>

on ^*:snotice:*: {
if *size*/whois*cekti* iswm $1- {
inc -u10 %whois. [ $+ [ $1 ] ] 1
if %whois. [ $+ [ $1 ] ] >= 3 {
kill $1 Whois flood yaptığınız için sunucudan uzaklaştırıldınız.
}
echo -a [Bilgi] > $1-2 size whois cekti
if !$window(@Whois) { window -a @Whois } {
aline @Whois [**] > $1-2 rumuzu size whois cekti.
}
}
}

Devamı >>

dialog mmkanalar {
title �Realkolik.Com Kanallar�
size -1 -1 179 215
option dbu
text � Global Kanalar�, 1, 7 26 45 10
check �#Realkolik�, 2, 6 42 48 10
check �#Zurna�, 3, 6 52 50 10
check �#Oyun�, 4, 6 62 50 10
check �#Sohbet�, 5, 6 73 50 10
check �#dostluk�, 6, 6 84 50 10
text � Özel Kanallar�, 7, 60 112 45 11
text � Şehir Kanalları�, 14, 59 26 45 10
check �#Istanbul�, 16, 60 42 42 10
check �#Ankara�, 17, 60 53 39 10
check �#Izmir�, 18, 60 64 39 10
check �#Bursa�, 19, 60 75 39 10
check �#Antalya�, 20, 60 86 41 10
check �#Adana�, 21, 60 98 38 10
text � Müzik Kanalları�, 22, 111 26 45 10
check �#Metal�, 23, 108 42 50 10
check �#Rock�, 24, 108 54 50 10
check �#Hiphop�, 25, 108 66 50 10
check �#Rap�, 26, 108 77 50 10
check �#Arabesk�, 27, 108 88 50 10
check �#Radyo�, 28, 108 99 50 10
text � Takım Kanalları�, 29, 9 112 45 10
check �#Fenerbahçe�, 30, 5 128 50 10
check �#Galatasaray�, 31, 5 139 50 10
check �#Beşiktaş�, 32, 5 150 50 10
check �#Trabzonspor�, 33, 5 161 50 10
check �#Bursaspor�, 34, 5 172 50 10
check �#Ankaragücü�, 35, 5 183 50 10
check �#oyun�, 8, 6 96 50 10
check �#Sevgi�, 9, 59 129 43 10
check �#Aşk�, 10, 59 140 44 10
check �#Dostluk�, 11, 59 151 45 10
check �#Felsefe�, 12, 59 162 50 10
check �#Edebiyat�, 13, 59 173 50 10
check �#Cinsellik�, 15, 59 184 50 10
text � Yardım ve Eğitim Kanalları�, 36, 112 113 65 10
check �#Help�, 37, 109 129 50 10
check �#ruled�, 38, 109 139 50 10
check �#Eğitim�, 39, 109 149 50 10
text � Realkolik kanal seçme ekranına hoşgeldiniz, dilediğiniz kanalı secip muhabbet�e katılabilirsiniz. NOT : Birden fazla kanal secebilirsiniz.�, 42, 6 3 167 20, center
box ��, 40, 1 21 178 174
button �Sohbete Bağlan!�, 41, 14 198 143 12
}

on *:dialog:mmkanalar:*:*:{
if $devent == sclick {
if $did !== 41 {
if $did($did).state == 1 { .write kanallar.txt $did($did) $+ $chr(11) $+ $did } | else { .write -dw $+ $did($did) $+ $chr(11) $+ $did kanallar.txt }
}
if $did == 41 {
.server irc.realkolik.com
.dialog -x $dname $dname
}
}
if $devent == init {
if $lines(kanallar.txt) !== 0 {
var %i 1
while %i <= $lines(kanallar.txt) {
.did -c $dname $gettok($read(kanallar.txt,%i),2,11)
inc %i
}

Devamı >>

IRCD Server Nedir ?

IRC server bir çok kişinin aynı anda sohbet odalarına
bağlanıp birbiriyle ister özel, ister kanaldan konuşmalarını sağlayan bir internet hizmetidir. Bu hizmet shell account hesabından yapılmaktadır.


IRCD Server Türleri;

Unreal IRCD

En çok kullanılan IRCD türüdür, sebebi ücretsiz olmasına rağmen CR IRCD gibi ücretli lisanslı IRCDlerin özelliklerinden daha iyisini sunmak. Pek çok özelliklerin istediğiniz gibi tasarlanmasını sağlamak.
Yönetimin işini kolaylaştıran ve istenilen herşeyin yazılımının olması en çok kullanılmasının sebeplerinden biri.


Ptlink IRCD

Bundan 2 3 yıl kadar önce en çok kullanılan IRCD türüydü. Fakat kendini yenileyememesi ve yapımcıların ilgisizliği tabiki şuanda kullanılmaz bir boyuta getirdi.



ConferenceRoom

IRCDler arasında lisanslı ürün olarak satılan bir IRCD türüdür. Bir çok özelliğe sahiptir. Koruma özellikleri eklenti vs yapılmasada daha çok mIRC"e kapalı tutulan serverlar için ideal tutulan bir webchat için ideal olan bir IRCD türüdür.

Devamı >>