mIRC için hazır kodlar

ozLem · 30 Ocak 2013

Sunucu GİRİŞ LOG TUTMAK
bu kod sayesinden sunucu giriş logunu tutabilirsiniz.

Kod:

PHP:

on *:snotice:*Client connecting*:{
var %ay $gettok($date,2-,47), %gun = $+($fit($day),-,$gettok($date,1,47))
hinc -m %ay %gun 1
hsave %ay md.md
}

alias sifirla {
if $1 == 1 {
hfree $2 
echo -a $2 AY/YIL\'ına ait tüm giriş bilgileri sıfırlanmıştır.
}
elseif $1 == 2 {
hdel $2 $3
echo -a $2 AY/YIL\'ına ait olan $3 $+ \'teki bilgiler sıfırlanmıştır
}
else {
echo -a Komutu yalnış kullandınız.
echo -a Eğer AY/YIL\'a göre bir sıfırlama uygulamak istiyorsanız: Örnek /sifirla 1 07/2012 < AY/YIL
    echo -a Eğer GÜN/AY/YIL\'a göre bir sıfırlama uygulamak  istiyorsanız: Örnek /sifirla 2 07/2012 Pazar-27 < AY/YIL   GünAdı-KAÇI
  }
}


alias goster {
  if $1 {
    if $2 {
      echo -a  $+ $1 $+  AY/YIL ,  $+ $2 $+ . GÜN TOPLAM : $hget($1,$2) $+ : kişi giriş yapmıştır. 
    }
    else {
      echo -a $1 ayındaki tüm günlerin giris listeleri veriliyor...
      var %1 1
      while %1 <= $hget($1,0).item {
        echo -a $+(AY/YIL:,$hget($1))  $+(GUN:,$hget($1,%1).item) - TOPLAM: $hget($1,%1).data
        inc %1
      }
    }
  }
  else {
    echo -a Bu aydaki tum gunlerin giris listeleri veriliyor...
    var %ay $gettok($date,2-,47)
    var %1 1
    while %1 <= $hget(%ay,0).item {
      echo -a $+(AY/YIL:,$hget(%ay))  $+(GUN:,$hget(%ay,%1).item) - TOPLAM: $hget(%ay,%1).data
      inc %1
    }
  }
}


alias fit return  $replace($1,Sunday,Pazar,Monday,Pazartesi,Tuesday,Salı,Wednesday,Çarşamba,Thursday,Perşembe,Friday,Cuma,Saturday,Cumartesi)

on *:start:var %ay  $gettok($date,2-,47) | $iif(!$hget(%ay),hmake %ay,hload %ay md.md)

ozLem · 30 Ocak 2013

Script Sayaç Hazır Kodu

PHP:

on 1:start:{ 
if (%sayac == $null) { 
set %sayac 1 
|; ##### Dileyen ßaglanti Menusunu Yerlestirir Onu Nereye Koycam Demeyin 
|; ######Vea Kod Cakisiyo 
} 
%sayac = %sayac + 1 
baslat | *** ßurayada scriptinizin alias ßölümüne (yoksaki alias.txt acmak 
| #######zor olmasa gerek) sayaciniz acldıgnda yazacak msjı Giriniz ben 
| ##baslat# dedim mski yazdiracak koda siz dilediginizi diyebilirsiniz ama 
| #######aliasesa o sekilde ekleyin sekilde ekleyin 
} 
} 
alias baslat { 
echo X Script kullanıma Hazır 
echo X Script daha önce %sayac Kere Calıstırıldı 
| vsvsvs 
}

Nietszche · 30 Ocak 2013

mIRC Kısayol Kodları

Kod:

on *:input:*:{
  if (!superban == $1) { /mode $chan +b $$2 | ban $$2 1 | ban $$2 2 | ban $$2 6 | ban $$2 7 | ban $$2 8 | ban $$2 9 | ban $$2 10 | ban $$2 11 | ban $$2 12 | kick $chan $$2 $3- }
  if $1 == !deve { mode $chan +qqqqqqqqqqqqqqq $2 $3 $4 $5 $6 }
  if $1 == !cüce { mode $chan -qqqqqqqqqqqqqqq $2 $3 $4 $5 $6 }
  if $1 == !in {  //cs deop $chan $2 | /cs devoice $chan $2 | /cs dehalfop $chan $2 | cs deprotect $chan $2 }
  if $1 == !v { cs voice $chan $2 $3 $4 $5 $6 }
  if $1 == !ekle { cs access $chan add $2 $3 $4 $5 $6 seviye }
  if $1 == !del { cs access $chan del $2 $3 $4 $5 $6 }
  if $1 == !Topickapat { cs set $chan topiclock on }  
  if $1 == !Topicac { cs set $chan topiclock off }
  if $1 == !kick { cs deprotect $chan $2 $3 $4 $5 $6 | cs kick $chan $2 $3 $4 $5 $6 }
  if $1 == !korumaac { mode $chan -RMmGP }
  if $1 == !seviye { cs levels $chan set q 500 } 
  if $1 == !founder { cs set $chan founder  $2 $3 $4 $5 $6 }
  if $1 == !usertemizle { cs clear $chan users }
  if $1 == !mt { s -m irc.mircturk.com }
  if $1 == !sop { cs levels $chan set autoprotect 0 }
  if $1 == !unban { cs unban $chan $2 $3- }
  if $1 == !Nick { Nick $2  $3- }
  if $1 == !Song { Song }
  if $1 == !hop { hop }
  if $1 == !o { cs op $chan $2 $3 $4 $5 $6 }
  if $1 == !salla { join  }
  if $1 == !part { part }
  if $1 == !h { mode $chan +hhhhhhhh $2 $3 $4 $5 $6 $7 $8 $9  }
  if $1 == !dh { mode $chan -hhhhhhhh $2 $3 $4 $5 $6 $7 $8 $9 }
  if $1 == !Enforce { cs akick  $chan enforce }
  if $1 == !kabul { /cs ACC # KABUL }
  if $1 == !gel { invite $2 $chan }
  if $1 == !k { kick $chan $2 $3-  }
  if $1 == !info { cs info $chan }
  if $1 == !!info { ns info $2 }
  if $1 == !ajoin { ns ajoin add $chan }
  if $1 == !ajoindel { ns ajoin del $chan }
  if $1 == !Temizle { cs clear # Bans }
  if $1 == !k { mode $chan +MR $2 2 $3- }
  if $1 == !kk { mode $chan -MR $2 2 $3- }
  if $1 == !a { cs access $chan add $2 $3- }
  if $1 == !Aciklama { cs set $chan desc $3-  }
  if $1 == !sus { mode $chan +b ~q: $2+ $address $2 }
  if $1 == !!sil { cs akick $chan del  $2!*@* }
  if $1 == !sil { cs akick $chan del  1-20 }
  if $1 == !topic { cs topic $chan $2  $3-  }
  if $1 == !Artist { /ban $$2 | /ban $$2 2 |  /ban $$2 3 | /ban $$2 | /mode # +b $$2 | /cs akick $chan add $2!*@* 1Herkez Kendini 4ArtiSt 1Sanıyor ßiLmiyorLar ki 4Yönetmen 1ßenim 4.  | /cs akick  # enforce | /cs akick $chan del $2!*@*  }
  if $1 == !at { cs akick $chan add $2!*@* 1Herkez Kendini 4ArtiSt 1Sanıyor ßiLmiyorLar ki 4Yönetmen 1ßenim 4.  | /cs akick  # enforce | /cs akick # del $2!*@* }
  if $1 == !D { mode $2 +D }
  if $1 == !-D { mode $2 -D }
  if $1 == !!R { mode $2 +R }
  if $1 == !!-R { mode $2 -R }
  if $1 == !kayboL { cs akick $chan add $2!*@* $3-  | /cs akick  # enforce | /cs akick # del $2!*@* }
  if $1 == !Akck { cs akick $chan add $2!*@* $3-  | /cs akick  # enforce | }
  if $1 == !kb { mode $chan +b $2 $3 $4 $5 $6 | kick # $2 1,4 Døñ`14†1 mâk£ m£ â¢14†1ìøñ 4 1, ¥øu §££ 14†1h£ Gød Øƒ â¢14†1ìøñ !  }
  if $1 == !akcklist { cs akick $chan list }
  if $1 == !op { cs op $chan $2 $3 $4 $5 $6 }
  if $1 == !protect { mode $chan +aaaaa $2 $3 $4 $5 $6 }
  if $1 == !deprotect { mode $chan -aaaaa $2 $3 $4 $5 $6 }
  if $1 == !dp { cs deprotect $chan $2 $3 $4 $5 $6 }
  if $1 == !voice { cs voice $chan $2 $3 $4 $5 $6 }
  if $1 == !superakck {  cs akick $chan add $2!*@* $3-  | /cs akick  # enforce | /msg chanserv akick $chan add $address($2,1) | /msg chanserv akick $chan STICK $address($1,1) | /msg chanserv akick $chan add $address($2,2) | /msg chanserv akick $chan STICK $address($1,2) /msg chanserv akick $chan add $address($2,3) | /msg chanserv akick $chan STICK $address($1,3) | /msg chanserv akick $chan add $address($2,6) | /msg chanserv akick $chan STICK $address($2,6) | /msg chanserv akick $chan add $address($2,7) }
  if $1 == !superakckdel {  cs akick $chan del $2!*@* $3-  | /cs akick  # enforce | /msg chanserv akick $chan del $address($2,1) | /msg chanserv akick $chan STICK $address($1,1) | /msg chanserv akick $chan del $address($2,2) | /msg chanserv akick $chan STICK $address($1,2) /msg chanserv akick $chan del $address($2,3) | /msg chanserv akick $chan STICK $address($1,3) | /msg chanserv akick $chan del $address($2,6) | /msg chanserv akick $chan STICK $address($2,6) | /msg chanserv akick $chan del $address($2,7) }
  if $1 == !devoice { cs devoice $chan $2 $3 $4 $5 $6- }
  if $1 == !kısıtlama { cs set $chan restricted on }
  if $1 == !kısıtlamaac { cs set $chan restricted off }
  if $1 == !snt { cs set $chan mlock +nts }
  if $1 == !-snt { cs set $chan mlock -nts }
  if $1 == !secure+ { cs set $chan secure on }
  if $1 == !secure- { cs set $chan secure off }
  if $1 == !kick { cs kick $chan $2   $3- }
  if $1 == !al { cs levels $chan set akick 999 }
  if $1 == !cl { cs levels $chan set clear 999 }
  if $1 == !tl { cs levels $chan set topic 999 }
  if $1 == !sl { cs levels $chan set set 999 }
  if $1 == !ban { mode $chan +b $2 $3 $4 $5 $6  }
  if $1 == !kickban { mode $chan +b $2 $3 $4 $5 $6 | kick # $2 0,1 Døñ`15†0 mâk£ m£ â¢15†0ìøñ 4 0, ¥øu §££ 15†0h£ Gød Øƒ â¢15†0ìøñ !  }
  if $1 == !accl { cs levels $chan set acc-change 999 }
  if $1 == !accl { cs levels $chan set acc-list 999 }
  if $1 == !m+m { cs set $chan mlock +m }
  if $1 == !m-m { cs set $chan mlock -m }
  if $1 == !m+R { cs set $chan mlock +R }
  if $1 == !m-R { cs set $chan mlock -R }
  if $1 == !noop { ns set noop on }
  if $1 == !-noop { ns set noop off  }
  if $1 == !ce { mode $chan +c $2 2 $3- }
  if $1 == !-c { mode $chan -c $2 2 $3- }
  if $1 == !-V { mode $chan -V $2 2 $3- }  
  if $1 == !f { mode $chan +f [5t]:10 $2 2 $3- }
  if $1 == !-f { mode $chan -f $2 2 $3- } 
  if $1 == !q { cs set $chan mlock +Q }
  if $1 == !-q { cs set $chan mlock -Q }
  if $1 == !m { mode $chan +m $2 2 $3- }
  if $1 == !-m { mode $chan -m $2 2 $3- }
  if $1 == !R { mode $chan +R $2 2 $3- }  
  if $1 == !-R { mode $chan -R $2 2 $3- }
  if $1 == !!M { mode $chan +M $2 2 $3- }
  if $1 == !!-M { mode $chan -M $2 2 $3- }  
  if $1 == !N { mode $chan +N $2 2 $3- }
  if $1 == !-N { mode $chan -N $2 2 $3- }
  if $1 == !se { mode $chan +s $2 2 $3- }
  if $1 == !-s { mode $chan -s $2 2 $3- }
  if $1 == !i { mode $chan +i $2 2 $3- }
  if $1 == !-i { mode $chan -i $2 2 $3- }
  if $1 == !P1 { mode $chan +P 1:1 }  
  if $1 == !P2 { mode $chan +P 2:2 }
  if $1 == !P3 { mode $chan +P 3:3 }  
  if $1 == !P4 { mode $chan +P 4:4 }  
  if $1 == !P5 { mode $chan +P 5:5 }  
  if $1 == !P6 { mode $chan +P 6:6 }
  if $1 == !P7 { mode $chan +P 7:7 }  
  if $1 == !P8 { mode $chan +P 8:8 }
  if $1 == !P9 { mode $chan +P 9:9 }  
  if $1 == !P10 { mode $chan +P 10:10 }
  if $1 == !P20 { mode $chan +P 20:20 }
  if $1 == !P100 { mode $chan +P 100 }
  if $1 == !P150 { mode $chan +P 150 } 
  if $1 == !-P { mode $chan -P }
  if (!zline == $1) { gzline $2 +0 $3- }

ozLem · 30 Ocak 2013

temizle Komutu İle Kanalı Temizleme

PHP:

- on *:text:*:#esmirc:{ 
if !temizle isin $1 { 
if $nick !isop $chan { 
.msg $chan Kanal operatörümüsünüz, $nick $+ ? 
} 
else { 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan $chr(160) 
.msg $chan Kanal Temizlenmiştir.Hoş Dohbetler 
} 
} 
} }

Nietszche · 30 Ocak 2013

Whois karşılama noticesi

Kod:

on *:snotice:*whois*on*you*: { /notice $2 2Merhaba, buyrun nasıl yardımcı olabilirim ? }

ozLem · 30 Ocak 2013

Memo Bilgi kutusu
mircalem Memo Bilgi kutusu hazır kod eklendi iyi eglenceler.
kod:
;Memo geldiğinde uyaran bir dialog.

PHP:

dialog ms {
title \"MemoServ Bilgi Kutusu\"
size -1 -1 220 85
text \"*** Yeni bir notunuz var.\"210 10 220 200
text \"*** Okumak için tamam butonuna basınız.\"310 30 220 200
button \"&Tamam\"470 50 85 25ok
}
on ^*:notice:*yeni bir notunuz*:*:{
if ($nick == MemoServ) {
dialog -ma ms ms
halt
}
}
on 1:ACTIVE:*:{
if ($dialog(idrqm)) { dialog -v ms }
}
on 1:dialog:ms:sclick:4:/ms read last
}

Nietszche · 30 Ocak 2013

Bu Yazi tipi ise Cift renkli arka plan da sekilli yaziliyor.

Kod:

menu menubar,channel,query {
  $iif($group(#DuaL_CoLoR.Text) == Off,DuaL_CoLoR Text [Off],DuaL_CoLoR Text [On]):{
    $iif($group(#DuaL_CoLoR.Text) == Off,.enable #DuaL_CoLoR.Text,.disable #DuaL_CoLoR.Text)
  }
}
#DuaL_CoLoR.Text on

on *:input:*:{
  if ($left($1-,1) != /) {
    if ($left($1-,1) != $chr(33)) {
    set %len $len($1-) }
    if ($remove($1,:) ison $chan) { .set %nick.comp $remove($1,:) | .say   10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 14,1 ¬ 10,1 $1 14¬ 1,1 10 $+ $left($mid($2-,00,$calc($len($2-) - 1)),4) $+ 1,10 $+ $mid($2-,5,$calc($len($2-) - 00))   $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×  | goto End | :end | halt }
    else {
      msg $active  10,1×1,10×10,1×1,10× $+ 1,1 1,1 1,1 1,1 1,1 1,1 1,1 1,1 $+ 10 $+ $left($mid($1-,1,$calc($len($1-) - 0)),11) $+ 1,10 $+ $mid($1-,12,$calc($len($1-) - 00)) $+ 10,10 10,10 10,10 10,10 10,10 10,10 10,10 10,1×1,10×10,1×1,10×0,0   | haltdef 11,11,110} 
    }
  }
}

Nietszche · 30 Ocak 2013

Bu Kodu Atmak Cok Basit Oncelikle Bir Txt Dosyasina açiyoruz kodumuzu atiyoruz ve ardindan o txt belgesinide kendi scriptimize göre ayarliyoruz ve scriptimizi acip /load -rs dosyadi.txt yapiyoruz ve kodumuz aktif olarak yuklenmis oluyor

Kod:

on*:connect:{
if irc.sunucu.ad? == irc.sohbet.net? {
.timer 1 2 /nick Botnick
.timer 1 3 /identify ?ifreniz
.timer 1 15 /join #Help
.timer 1 15 /join #Sohbet
.timer 1 15 /join #Radyo
.timer 1 15 /join #Oyun
.timer 1 15 /os su sohbetnet
.timer 1 25 /sethost SohbetNet.Kanal.Koruma.Sistemi.v2.L-Bot
.timer 1 25 /setident Sohbet
.hops
}
}

Arama Yap

Arama Yap

mIRC için hazır kodlar

ozLem

What is the problem ¿

ozLem

What is the problem ¿

Nietszche

ozLem

What is the problem ¿

Nietszche

ozLem

What is the problem ¿

Nietszche

Nietszche