raw 312:*:{
haltdef
echo -a 4» Bağlı Olduğu Server: $3
}
raw 313:*: {
haltdef
echo -a 4» Network Özelliği: $5 $6 $7 $8 $9
}
raw 307:*: {
haltdef
echo -a 4» Kayıt Durumu: Bu Nick Kayıtlı ve İdentify Edilmiştir.
}

raw 314:*:{
haltdef
echo -a 4————————1<12Kimlik Bilgisi Sorgulaması Sonu1>14———————
echo -a 4» Nick: $2
echo -a 4» FullName: $6-
echo -a 4» İp Adresi: $3 $+ 4 $+ @ $+ 1 $+ $4
}
raw 317:*:{
haltdef
%idle = $replace($duration($3),secs, saniye,sec, saniye,mins,dakika,min,dakika,hrs,saat,hr,saat,day s,gün,day,gün,wks,hafta,wk,hafta)
%baglanis = $replace($asctime($4),mon,Pazartesi,tue,Salı,wed,Ç arşamba,thu,Perşembe,fri,Cuma,sat,Cumartesi,sun,Pa zar,jan,Ocak,Feb,Şubat,Mar,Mart,apr,Nisan,May,Mayı s,Jun,Haziran,Jul,Temmuz,Aug,Ağustos,Sep,Eylül,Oct ,Ekim,Nov,Kasım,Dec,Aralık)
echo -a 4» Bağlandığı Zaman: %baglanis
echo -a 4» Boş Olduğu Süre: %idle
echo -a 4» Bağlandıktan Sonra Geçen Süre: $duration($calc($ctime – $4))
}
raw 318:*:{
haltdef
echo -a 4———————–1<12Kimlik Bilgisi Sorgulaması Sonu1>4———————
}
raw 319:*:{
haltdef
echo -a 4» Kanalları: $3-
}
raw 320:*:{
haltdef
echo -a 4» swhois: $4-
}
raw 378:*:{
haltdef
echo -a 4» Gerçek Ip Adresi: $3
}
raw 379:*:{
haltdef
echo -a 4» Nick modeleri: $6-
}
raw 671:*:{
haltdef
echo -a 4» Bağlantı: $3-
}

2. //echo -a $renk(kelime).döşeli
Örn : //echo -a $renk(daRkMoRGaN).döşeli

3. //echo -a $renk(kelime).normal
Örn : //echo -a $renk(daRkMoRGaN).normal

Kullanımı Bu Kadar Basittir

alias renk {
if ($isid) {
if ($1-) {
if (!$prop) {
var %degisken5 = 1
while (%degisken5 <= $len($1-)) {
var %degisken6 = $+(%degisken6,$chr(32),$chr(3),$rand(1,15),$mid($1-,%degisken5,1))
inc %degisken5
}
return %degisken6
}
if ($prop = döşeli) {
var %degisken6 = 1, %degisken5
while (%degisken6 <= $len($1-)) {
%degisken5 = $+(%degisken5,$chr(32),$chr(3),$rand(1,15),$chr(44 ),$rand(1,15),$mid($1-,%degisken6,1))
inc %degisken6
}
return %degisken5
}
if ($prop = normal) {
var %degisken6 = 1, %degiskenxx
var %degisken– 3, %degisken— 2
while ($gettok($1-,%degisken6,32)) {
%degisken—- = $+(%t,$chr(32),$chr(3),%degisken–,$left($v1,1),$ch r(3),%degisken—-,$right($v1,-1))
inc %degisken6
}
return %degisken—-
}
}
}
}

Hangi Nick Gelince Web Sayfası Açılcaksa Web Sayfasının İsmini Öle Yazın ÖRNK: Root Nicki Gelince Açılcak , Sizde Mirc Ana Dizinine root.html adında bi sayfa düzenliyorsunuz istediğniz şekli verin o sizin sayfanız ve root nicki giriş yapınca o sayfa açılsın hem daha Görüntü hoş olur hemde Standart’ın Ötesinde. o web sayfanıza resimlerinizi , Sunucu Sahıbi Giriş Yaptı Yazan Daha Güzel Ve Gösterişli Bi Yazı Yazabilirsiniz Hadi Gerisi Size Kalmış

Kod Kısa Ama Etkili Denilebilir ; Buyrun

Kod’u Yazan : eXLove

on *:Join:#Sohbet: {
if ($nick == RUMUZ) { .run $shortfn($mircdirRUMUZ.html) }
}

kırmızı Yerleri kendinize göre ayarlayabilirsiniz

on *:connect:set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox www.proxylists.ne t 80
alias proxyler set %serverprox $server | window -c @proxy | .Remove Proxy.txt | .window -l @proxy | .titlebar @proxy List | sockopen Firefox www.proxylists.ne t 80

on *:sockopen:Firefox:{
sockwrite -n $sockname GET http://proxylists.net/socks4.tx t HTTP/1.1
sockwrite -n $sockname Host: localhost
sockwrite -n $sockname $crlf
timerprint 1 3 proxy_yaz
set %updated.proxy $date
}

on *:sockread:Firefox: sockread -f %Firefox | write_Proxy.txt %Firefox
alias write_Proxy.txt {
if $1 == HTTP/1.1 goto end
if $1 == Date: goto end
if $1 == Server: goto end
if $1 == Last-Modified: goto end
if $1 == ETag: goto end
if $1 == Accept-Ranges: goto end
if $1 == Content-Length: goto end
if $1 == Content-Type: goto end
write Proxy.txt $1-
:end
}
alias proxy_yaz {
window -l @proxy | titlebar @proxy List | set %print.out $lines(proxy.txt) | set %printing 1
:print
if (%print.out == %printing) { goto end }
aline @proxy $read(proxy.txt , %printing) | inc %printing | goto print
:end
}
menu @proxy {
dclick: Set %proxy.click $read(proxy.txt, $1) | Proxy.con $?*!=”Tekrar Bağlanılsın Mı? Seçtiğiniz Proxy Adresi: $read(proxy.txt, $1) ”
Yenile:proxyler
}

alias Proxy.con {
if ($1 == $false) { echo -s Bağlantı iptal edildi.. | goto end }
echo 2 -s %serverprox ‘a Bağlanmak İçin Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | firewall on $replace(%proxy.click , : , $chr(32) ) | Echo -s $server Serverine Bağlanırken Kullanılan Proxy : $replace(%proxy.click , : , $chr(32) ) | server %serverprox
:end
}
alias Proxywin {
if $1 == $null proxy_yaz
if $1 == minimized Window -c @proxy | proxy_yaz
}

Bİr ince Bir Kalın yazma :

on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)\1, %1) | say %1 | haltdef } }

İLk Harfi REnkLi Yazmak :

on *:input:*: {
if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
msg $active $regsubex($1-,/(?<=^|\s)(.)/g,04\1)
halt
}
}

İLk Harfi İnce Yazmak :

on *:input:*:if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 { say $bold($1-) | halt }
alias bold return $regsubex($1-,/(?<=^| )(.)/g,$+($chr(2),\1,$chr(2)))

ÇEştLi Yazı Stilleri :

#yaziturkce off
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
unset %turkce
set %turkce $1-
if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt }
%turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ ,ü,û,Ü,Û,ö,ô,Ö,Ô)
say %turkce
unset %turkce
halt
:halt
halt
:son
}
#yaziturkce end
#yazikalinince off
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,ı,I)
set %kelime $replace(%kelime,ğ,g)
set %kelime $replace(%kelime,l,L)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,Ş,$)
set %kelime $replace(%kelime,j,J)
set %kelime $replace(%kelime,o,ø)
set %kelime $replace(%kelime,t,†)
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,Ç,¢)
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,ü,û)
set %kelime $replace(%kelime,Ü,Û)
set %kelime $replace(%kelime,ö,ô)
set %kelime $replace(%kelime,Ö,Ô)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,x,×)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,YazguLu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yazikalinince end
#yazielite off
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,ı,I)
set %kelime $replace(%kelime,ğ,g)
set %kelime $replace(%kelime,l,L)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,ı,I)
set %kelime $replace(%kelime,ş,$)
set %kelime $replace(%kelime,Ş,$)
set %kelime $replace(%kelime,j,J)
set %kelime $replace(%kelime,ç,¢)
set %kelime $replace(%kelime,ü,û)
set %kelime $replace(%kelime,Ü,Û)
set %kelime $replace(%kelime,ö,ô)
set %kelime $replace(%kelime,Ö,Ô)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,YazguLu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yazielite end
#yaziqarisma off
on 1:input:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %kelime $1-
if ( $left($1,1) == . ) { goto bit }
set %kelime $replace(%kelime,o-,º)
set %kelime $replace(%kelime,k,]{)
set %kelime $replace(%kelime,1/4,¼)
set %kelime $replace(%kelime,1/2,½)
set %kelime $replace(%kelime,/,÷)
set %kelime $replace(%kelime,0,ø)
set %kelime $replace(%kelime,1,¹)
set %kelime $replace(%kelime,2,²)
set %kelime $replace(%kelime,3,³)
set %kelime $replace(%kelime,ae,Æ)
set %kelime $replace(%kelime,a,å)
set %kelime $replace(%kelime,b,ß)
set %kelime $replace(%kelime,c,©)
set %kelime $replace(%kelime,e,ë)
set %kelime $replace(%kelime,i,î)
set %kelime $replace(%kelime,l,£)
set %kelime $replace(%kelime,n,ñ)
set %kelime $replace(%kelime,o,ø)
set %kelime $replace(%kelime,r,®)
set %kelime $replace(%kelime,s,§)
set %kelime $replace(%kelime,u,µ)
set %kelime $replace(%kelime,x,×)
set %kelime $replace(%kelime,y,¥)
set %kelime $replace(%kelime,!,¡)
set %kelime $replace(%kelime,?,¿)
set %kelime $replace(%kelime,<set>,»)
set %kelime $replace(%kelime,-,¬)
set %kelime $replace(%kelime,:,¦)
set %kelime $replace(%kelime,slm,SeLam)
set %kelime $replace(%kelime,nbr,naßer¿)
set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.)
set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)
set %kelime $replace(%kelime,allah,Allah)
set %kelime $replace(%kelime,Yazgulu,YazguLu)
:bit
say %kelime
unset %kelime
:halt
halt
:son
}
#yaziqarisma end
#yaziilkbuyuk on
on 1:INPUT:*: {
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
set %Var3 $1-
unset %Var1 %Var2
set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1))
if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand }
if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt }
:Start1
inc %Var1 1
if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } }
if ($len(%Var3) != %Var1) { goto Start1 }
say %Var2
halt
:ServerCommand
:halt
halt
:son
}
#yaziilkbuyuk end
#yazirenkli off
on 1:INPUT:*:{
if ( $left($1,1) == / ) { goto son }
if ($ctrlenter) { goto son }
if ($active == Status Window) { Echo -a %logo2 11,1Status’a Birşey Yazamazsınız. | goto halt }
if ($active == @Bot) { goto halt }
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh
goto ilk
:halt
halt
:son
}
#yazirenkli end
dialog Yazim {
title “Yazıtipi”
size -1 -1 110 220
radio “Tûrk¢e”,1,10 10 90 20
radio “eLite”,2,10 30 90 20
radio “Ilk Harf Büyük”,3,10 50 90 20
radio “KaLın-İnce”,7,10 70 90 20
radio “Qa®i§ma”,5,10 90 90 20
radio “Rengarenk”,6,10 110 90 20
radio “Normal”,19,10 130 90 20
box “”,20,5 0 100 155
button “TAMAM”,21,5 195 100 20,ok
}
on 1:dialog:Yazim:*:*: {
if ( $devent == init ) {
if ($group(#yaziturkce).status == on ) { did -c Yazim 1 }
elseif ($group(#yazielite).status == on ) { did -c Yazim 2 }
elseif ($group(#yaziilkbuyuk).status == on ) { did -c Yazim 3 }
elseif ($group(#yazikalinince).status == on ) { did -c Yazim 7 }
elseif ($group(#yazirenkli).status == on ) { did -c Yazim 6 }
elseif ($group(#yaziqarisma).status == on ) { did -c Yazim 5 }
else { did -c Yazim 19 }
}
if ( $devent == sclick ) {
if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce | echo %logo2 11Yazı Stili “4Tûrk¢e11″ Açıldı! }
if ( $did == 2 ) { .disable #yazi* | .enable #yazielite | echo %logo2 11Yazı Stili “4eLite11″ Açıldı! }
if ( $did == 3 ) { .disable #yazi* | .enable #yaziilkbuyuk | echo %logo2 11Yazı Stili “4İlk Harf Büyük11″ Açıldı! }
if ( $did == 7 ) { .disable #yazi* | .enable #yazikalinince | echo %logo2 11Yazı Stili “4KaLın-İnCe11″ Açıldı! }
if ( $did == 5 ) { .disable #yazi* | .enable #yaziqarisma | echo %logo2 11Yazı Stili “4Qa®i§ma11″ Açıldı! }
if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | echo %logo2 11Yazı Stili “4R8e7n14G0a12r9e6N3k11″ Açıldı! }
if ( $did == 19) { .disable #yazi* }
}
}
alias Yazim { dialog -m Yazim Yazim }
alias acolor { dialog -m acolor acolor }
dialog acolor {
title “Renkli yazı”
size -1 -1 169 109
box “Renk”, 1, 6 5 80 69
text “Renkno:”, 2, 16 27 22 13
edit “”, 3, 51 20 25 22, center multi return
text “Arka:”, 4, 16 50 29 13
edit “”, 5, 51 43 25 22, center multi return
box “Diğer”, 6, 84 5 79 69
check “Kalın”, 7, 94 27 43 13
check “Çizgili”, 8, 94 49 61 13
button “Önizleme”, 9, 21 82 55 20
button “Tamam”, 10, 93 82 55 20, ok
box “”, 11, -1 -6 171 116
}
on *:dialog:acolor:*:*: {
if $devent = init {
did -a $dname 3 %ac.text
did -a $dname 5 %ac.back
if (%ac.bold == on) { did -c $dname 7 }
if (%ac.underline == on) { did -c $dname 8 }
}
if $devent = edit {
if $did = 3 { set %ac.text $did(3).text }
if $did = 5 { set %ac.back $did(5).text }
}
if $devent = sclick {
if $did = 7 {
if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2  }
if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 }
}
if $did = 8 {
if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2  }
if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 }
}
if $did = 9 { echo -a  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ Yazdığınız böyle görünecek.! }
}
}
#acolor off
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+

raw 219:*:{
halt
}

menu status,channel,query {
-
.Spamfilter:/_spamf
}

menu @Spamfilter {
.Sil: {
.spamfilter del $gettok($remove($1-,$chr(9)),1,32) $gettok($remove($1-,$chr(9)),2,32) $gettok($remove($1-,$chr(9)),3,32) $gettok($remove($1-,$chr(9)),4,32) $gettok($remove($1-,$chr(9)),6-,32)
}
-
.Yeni Giriş Ekle: {
.spamfilter add $$?=”Tipi” $$?=”Ceza Şekli” $$?=”Süresi” $$?=”Sebep” $$?=”Eklenecek Kelime(ler)”
}
-
.Satırı Göster: {
if (!$window(@Satırı.Göster)) {
window -g @Satırı.Göster -1 -1 800 100 Fixedsys 11
}
.echo -tm @Satırı.Göster $remove($1-,$chr(9))
halt
}
-
.Yardım: {
if (!$window(@Spam.Yardım)) {
window -gl @Spam.Yardım -1 -1 600 400 Fixedsys 11
}
iline @Spam.Yardım 1 Spamfilter eklerken kullanılan harflerin manaları:
iline @Spam.Yardım 2 [1]c[1] : Kanal mesajları
iline @Spam.Yardım 3 [1]p[1] : Özel mesajları
iline @Spam.Yardım 4 [1]n[1] : Özel noticeleri
iline @Spam.Yardım 5 [1]N[1] : Kanal noticleri
iline @Spam.Yardım 6 [1]P[1] : Kanaldan çıkış mesajları
iline @Spam.Yardım 7 [1]q[1] : Quit mesajları
iline @Spam.Yardım 8 [1]a[1] : Away mesajları
iline @Spam.Yardım 9 [1]t[1] : Topic
iline @Spam.Yardım 10 [1]u[1] : User (nick!user@host:realname ban) Şeklinde tanımlanır
iline @Spam.Yardım 11 [1]d[1] : dcc
iline @Spam.Yardım 12 -
iline @Spam.Yardım 13 Uygulanacak hareket (ceza) şekilleri:
iline @Spam.Yardım 14 [1]kill, kline, gline, zline, gzline, shun, tempshun, block, dccblock[1]
iline @Spam.Yardım 15 -
iline @Spam.Yardım 16
4Not :
Sebep belirtilirken kelimeler arasında boşluk olmamalıdır.

iline @Spam.Yardım 17 Boşluk yerine _ kullanın. Örnek: Yasak_Kelime_Kullanımı
}
}
alias _spamf {
stats f
.timerdenemes 1 2 /_aspamfl
}

alias _aspamfl {
if ($window(@Spamfilter)) { window -c @Spamfilter } {
window -glk0 @Spamfilter -1 -1 800 600 Fixedsys 11
iline @Spamfilter 1 Eklenmiş bir spami silerken birden fazla satırı seçmeyiniz. Tek tek siliniz.
iline @Spamfilter 2
4Tipi  [1][1] Ceza Şekli  Süresi – Ekleyen – Sebep  – Eklenen Kelime(ler)

iline @Spamfilter 3
12………………
2………………
1………..
2………………..
12…………………..

titlebar @Spamfilter Coded By arziment
var %s = 4
while %s <= $lines(aspamf.txt) {
var %k = $read(aspamf.txt,%s)
iline @Spamfilter %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5,32) $gettok(%k,6-,32)
inc %s
unset %k
}
remove aspamf.txt
}
halt
}

# k off
ham *:*:{ if ($ == 352 sayısal) & & (* isin $ 7) (set% (% 6,32 $ lar) addtok $ s | haltdef) | if ($ == 315 sayısal) (var% sayı = $ numtok (% 32 lar) | Tarama @. aline-Sonuç -?? 2 IRCop sayısı:? Tarama @? 5% sayı |. aline-Sonuç -?? 2 IRCop Nickler:?? 5% s | Tarama @. aline-Sonuç – |. disable # k | unset% s | haltdef))
# k end
# Y
raw 324: Tarama @ *: (. aline-Sonuç -?? 2 Online modelleyici:?? 5 $ str ($ chr (32), 3) $ 3 – Tarama @ |. aline-Sonuç – | halt |. devre dışı # y)
# y end
on *: fark :*:?: (
($ nick == ChanServ) & & (* Kanal Sahibi * iswm $ 1 eğer -) (var% sahib = $ 3 | aline @ Tarama-Sonuç -?? 2 Kanal Sahibi:?? 5 $ str ($ chr (32) , 3) $ iif (!% sahib, Kanal kayıtlı değil.% sahib))
($ nick == ChanServ) & & (* Founder * iswm $ 1 -) (var% sahib = $ 3 | aline @ Tarama-Sonuç -?? 2 Kanal Sahibi:?? 5 $ str ($ chr (32), eğer 3) $ iif (!% sahib, Kanal kayıtlı değil.% sahib))
($ nick == ChanServ) & & (* Kayit Zamani * iswm $ 1 eğer -) (var% kayıt = $ + ($ addtok (Ay:, $ 3,32), $ chr (32), $ addtok (Gün:, 4 $ , 32), $ chr (32), $ addtok (Saat:, $ 5,32), $ chr (32), $ addtok (Yıl:, $ 6,32)) | aline @ Tarama-Sonuç -?? 2 Kayıt Tarihi:?? 5 $ str ($ chr (32), 3) $ iif (!% kayıt, Kanal kayıtlı değil.,% kayıt))
($ nick == ChanServ) & & (* Kayıt Tarihi * iswm $ 1 eğer -) (var% kayıt = $ + ($ addtok (Ay:, $ 3,32), $ chr (32), $ addtok (Gün:, 4 $ , 32), $ chr (32), $ addtok (Saat:, $ 5,32), $ chr (32), $ addtok (Yıl:, $ 6,32)) | aline @ Tarama-Sonuç -?? 2 Kayıt Tarihi:?? 5 $ str ($ chr (32), 3) $ iif (!% kayıt, Kanal kayıtlı değil.,% kayıt))
($ nick == ChanServ) & & (* URL * iswm $ 1 -) (Tarama @ var% URL = $ 2 | aline-Sonuç -?? 2 Web Adresi:?? 5 $ str ($ chr (32), eğer 3) $ iif (!% URL, girilmemiş.% URL))
($ nick == ChanServ) & & if (* E-mail adresi * iswm $ 1 -) (var% email = $ 3 | aline @ Tarama-Sonuç -?? 2 E-mail adresi:?? 5 $ str ($ chr (32), 3) $ iif (!% e-posta, girilmemiş.,% email))
($ nick == ChanServ) & & (* Ekler * iswm $ 1 -) (var% ek $ 2 – Tarama @ | aline-Sonuç -?? 2 Ek Korumalar: Eğer?? 5 $ str ($ chr (32), 3) $ iif (!% ek, Eklenmemiş.,% ek))
($ nick == ChanServ) & & (* Mode Kilidi * iswm $ 1 eğer -) (var% mode = $ 3 – Tarama @ | aline-Sonuç -?? 2 Modu Kilitleri:?? 5 $ str ($ chr (32 ), 3) $ iif (!% modu, Eklenmemiş.% modu) | aline @ Tarama-Sonuç -)
($ nick == ChanServ) & & (* Topici yazan * iswm $ 1 -) (var% top = $ 3 – Tarama @ | aline-Sonuç -?? 2 Topic’i Yazan: if?? 5 $ str ($ chr (32), 3) $ iif (!% üst yazılmamış.% top))
)

alias ak (. artakalan |. VOP |. hop |. op |. sop |. Fon)
alias hop (var% x = $ nick (#, 0,%) | var% y | while% x (if $ nick (#,% x) = $ me (% y = $ addtok (% y, $ nick (#,% x,%), 32)) | Aralık% x) | if Tarama @ ($ nick ($ chan, 0,%) = 0) (aline-Sonuç -?? 2 halfop sayısı:? tarama @? 5 $ nick ($ chan, 0,%) $ str ($ chr (32), 5) | aline-Sonuç -?? 2 Yüzdelik oranı:?? 5 $+(%,$ sol ($ Tarama-Sonuç -?? 2 @ calc ($ nick ($ chan, 0,%) * 100 / $ nick ($ chan, 0)), 4)) $ str ($ chr (32), 5) | aline halfop Nick:?? 5% y | Tarama-Sonuç – @ aline))
alias fon (var%: = $ nick (#, 0, ~) | var%. | While%: (if $ nick (#,%:)! = $ Me (%. = $ Addtok (%.,$ nick (#,%:,~), 32)) | Aralık%:) | if Tarama @ ($ nick ($ chan, 0, ~) = 0) (aline-Sonuç — ?? 2 Sahibi Sayısı:?? 5 $ nick ($ chan, 0, ~) $ str ($ chr (32), 5) | Tarama-Sonuç -?? 2 Yüzdelik oranı:?? 5 @ aline $+(%,$ ($ calc ($ nick ($ chan, 0, ~) * 100 / $ nick ($ chan, 0)), 4)) $ str ($ chr (32), 5) | aline sol @ Tarama-Sonuç -?? 2 Sahibi Nick:?? 5%. | Tarama-Sonuç – @ aline))
alias op (var% – = $ nick (#, 0, @) | var% _ | while% – (if $ nick (#,%-)! = $ me (% _ = $ addtok (%_,$ nick (#,%-,@), 32)) | Aralık% -) | if Tarama @ ($ nick ($ chan, 0, @) = 0) (aline-Sonuç -?? 2 Op sayısı:? tarama @? 5 $ nick ($ chan, 0, @) $ str ($ chr (32), 5) | aline-Sonuç -?? 2 Yüzdelik oranı:?? 5 $+(%,$ sol ($ tarama @ calc ($ nick ($ chan, 0, @) * 100 / $ nick ($ chan, 0)), 4)) | aline-Sonuç -?? 2 Op Nick:?? 5% _ | aline @ Tarama-Sonuç -))
alias VOP (var%:: = $ nick (#, 0, +) | var% “| while%:: (if $ nick (#,%::)! = $ me (%” = $ addtok (% ” , $ nick (#,%::,+), 32)) | Aralık%::) | if Tarama-Sonuç -?? 2 @ ($ nick ($ chan, 0, +) = 0) (aline Ses sayısı:?? 5 $ nick ($ chan, 0, +) $ str ($ chr (32), 5) | aline @ Tarama-Sonuç -?? 2 Yüzdelik oranı:?? 5 $ + (% , Tarama @ $ left ($ calc ($ nick ($ chan, 0, +) * 100 / $ nick ($ chan, 0)), 4)) | aline-Sonuç -?? 2 Voice Nick:?? % 5 “| Tarama-Sonuç – @ aline))
alias sop (var% _ = $ nick (#, 0, &) | var% _-| while%-_ (if $ nick (#,%-_)! = $ me (% _-= $ addtok ( %_-,$ nick (#,%-_,&), 32)) | Aralık%-_) | if Tarama-Sonuç @ ($ nick ($ chan, 0, &) = 0) (aline -? tarama @? 2 koruyun sayısı:?? 5 $ nick ($ chan, 0, &) $ str ($ chr (32), 5) | aline-Sonuç -?? 2 Yüzdelik oranı:?? 5 $ +(%,$ Tarama @ ($ calc ($ nick ($ chan, 0, &) * 100 / $ nick ($ chan, 0)), 4)) | aline-Sonuç -?? 2 koruyun Takma ad: sol ?? 5% _-Tarama-Sonuç – @ | aline))
alias artakalan (var% oyeah # | if ($ nick (#, 0) = 0) (set% kullanıcı $ calc ($ nick (% oyeah, 0) – $ calc ($ nick (% oyeah, 0, +) + $ nick (% oyeah, 0 ,%)+$ nick (% oyeah, 0 ,@)+$ nick (% oyeah, 0 ,&)+$ nick (% oyeah, 0 ,~))) | aline @ Tarama @ Tarama-Sonuç – | aline-Sonuç -?? 2 Toplam Kullanıcı:?? 5 $ str ($ chr (32), 3)% kullanıcı | aline @ Tarama-Sonuç -?? 2 Yüzdelik Oranı:? ? 5 $ str ($ chr (32), 3) $ + ($ chr (37), $ left ($ calc (% Tarama @ kullanıcı * 100 / $ nick (% oyeah, 0)), 4)) | aline -Sonuç – |. unset% kullanıcı))
alias tara (if $ ($ 1,1) sol = $ chr (35) (echo-a $ timestamp ==> Bilgi: Lütfen kanal taramak için kanal isaretini geriniz. Örnek: / tara # kanal | halt) | if ($ me! Ison $ 1) (echo-a $ timestamp ==> Bilgi: Bulunmadığın bir kanalı taramayazsın. | Halt) | if! $ 1 (. Echo-a $ timestamp ==> Bilgi: Herhangi bir kanal ismi girmediniz. Kullanım şekli / tara # kanal | halt) | else (
. echo-a $ timestamp ==> Bilgi: Lütfen bekleyiniz, $ 1 kanal’ı için tarama başlatıldı. |. Var% tik = $ ticks |. # K izin |. Kim $ 1 |. Cs info $ 1 |. # Y izin |. Modu $ 1 |. Pencerede aCbldk0-T20, 25 @ Tarama-Sonuç -1 -1 800 700 tarama @ Tahoma 12 |. aline @ Tarama-Sonuç -?? 2 Bağlı olduğunuz AG:?? 5 $ ağ |. aline-Sonuç -?? 2 Bağlı olduğunuz sunucu:?? 5 $ server |. aline @ tarama @ Tarama-Sonuç -?? 2 Taranan kanal:?? 5 $ 1 |. aline-Sonuç – Tarama @ |. aline-Sonuç -?? 2 Bilgiler sıralanıyor, bekleyiniz. |. Aline @ Tarama-Sonuç – Tarama @ |. Aline-Sonuç -?? 2 Ban sayısı:?? 5 $ ibl ($ 1,0) |. Timer 1 6. Ak |. Sayacı 1 8 Tarama @. Aline -Sonuç -? 2 Tarama tamamlandı?. ? Tarama süresi:? 5? $ calc (($ ticks -% tik) / 1000)? 2saniye. )
)
1: load: (. echo-a? 2 ==> Bilgi:? 5Kanal tarama pasajı, başarı ile yüklendi. | Echo-a? 2 ==>? 2Bilgi:? 5 Herhangi bir kanalı taramadan önce, kanal içerisinde en geç 1 dakika süre bulunmak zorundasınız. |. Echo-a? 2 ==>? 2Bilgi:? 5 Yanı tarayacağınız kanal’da, en az 1 dakikadır bulunuyor olmalısınız. |. Echo-a? 2 ==>? 2Yapımcı:? 5 L4roXyL |. Echo-a? 2 ==>? 2Tarih:? 5 22/08/2007 – Çarşamba |. Echo-a? 2 ==>? 2Kaldırmak için:? 5 / unload-rs yuklediğinizdosyaismi.uzantısı? 2yazınız. )
on 1: unload: (. echo-a? 2 ==> Bilgi:? 5 Kanal tarama snippet, başarı ile kaldırıldı.

;; @ Giris / Cikis Penceresinde veya menual Pencerede görünen
; [23:36] *** Bildirimi – Müşteri noktası 6.669 bağlayabilirsiniz: Auth (Pure@85.96.78.210) [Müşteri]
; [23:36] *** Notice – Client exiting: Auth (Pure@85.96.78.210) [Quit]
; Giriş ve cıkışlar gibi ip lere tek tık ile K: line atar ..

^ 1: SNOTICE: *: Doğum (
(exiting isin $ 1 eğer -) (
($ eğer pencere Giriş (@ / Cikis)) (window-en @ Giris / Cikis)
4-t @ Giris / Cikis Çıkış: $ 1 – | halt echo
)
(Connecting isin $ 1 eğer -) (
($ eğer pencere Giriş (@ / Cikis)) (window-en @ Giris / Cikis)
3-Giriş @ t / Cikis Giriş: $ 1 – | halt echo
)
halt
)
on ^ 1: Hotlink :*.*.*:*:{
($ = #) (halt aktif) if
else (
Eğer işin (@ $ 1) (
$ x: CoCoRiCo ($ 1,2)
1 $ return
)
)
halt
)
on *: hotlink :*.*.*:*:{
($ = #) (halt aktif) if
else (
Eğer işin (@ $ 1) (
$ x: CoCoRiCo ($ 1,1)
)
)
)

alias-l X: CoCoRiCo (
($ 2 = 1) (if
var% $ mid ($ 1, $ pos ($ 1 ,@),$ len ($ 1)) q
var% x $ calc ($ len (% q) – 1)
; S: ban seçeneği (Kline)
. Kline $+(*,$ (% q,% x)) sol mirc indir, mirc indir, sitesi

echo? 4: lined ip?? $+(*,$ (% q,% x)) sol
)
($ 2 = 2) (if
var% $ mid ($ 1, $ pos ($ 1 ,@),$ len ($ 1)) q
var% x $ calc ($ len (% q) – 1)
Titlebar: K: lined edilecek! $+(*,$ (% q,% x)) sol
)
)