Kaçak ScripT, Kaçak v4 , Kaçak mIRc, Sohbet

mIRC away addonu menu seklinde

Murat — Mon, 29 Mar 2010 19:48:31 +0000

Kod:
alias awaymenu { dialog -m arkaway arkaway }
dialog arkaway {
title \\"CooL Love Esra Away / Me?gul Menüsü\\"
size -1 -1 217 98
option dbu
text \\"Away Sebebi : \\", 1, 7 12 39 8
edit \\"\\", 2, 47 11 161 10
button \\"AWAY OL\\", 3, 141 27 57 9, flat
check \\"Nickin Sonuna Ekle :\\", 4, 7 27 57 8
edit \\"\\", 5, 68 26 64 10
box \\"Away Menü Ayarlar? :\\", 6, 3 1 210 40
button \\"D??ar?day?m\\", 8, 7 61 41 12, flat
button \\"Yemekteyim\\", 9, 60 61 41 12, flat
button \\"Oyunday?m\\", 10, 113 61 41 12, flat
button \\"Uyuyorum\\", 11, 166 61 41 12, flat
box \\"Haz?r Away Mesajlar? :\\", 12, 3 42 210 35
text \\"Seçti?iniz Away Sebebinin Üstüne T?kla***** Otomatik Olarak Away Olabilirsiniz.\\", 13, 12 50 196 8, disable
button \\"AWAYDAN DÖN\\", 7, 17 82 87 12
button \\"PENCEREY? KAPAT\\", 14, 111 82 87 12, ok
}
on *:dialog:arkaway:init:0: {
.timer -m 1 10 /did -f arkaway 2
if (%addnick != $null) { did -c arkaway 4 | did -a arkaway 5 %addnick | did -e arkaway 5 }
if (%awayres != $null) { did -a arkaway 2 %awayres }
if (%addnick == $null) { did -u arkaway 4 | did -b arkaway 5
}
}
on *:dialog:arkaway:sclick:3: {
set %addnick $did(5)
set %awayres $did(2)
if ($did(4).state == 1) {
if ($away == $true) halt
set %backnick $me
/ame ?uanda Away?m. Sebep : ( $+ $did(2) $+ )  [-Arkadasca Script v6-]  | echo -a %logo $+ 2 ?uan aways?n?z. 
/away %logo 14?uan away?m10 $nick 14mesajlar?na yan?t veremiyorum. Away sebebim:10 $did(2) 
/nick $me $+ $did(5)
}
if ($did(4).state == 0) {
if ($away == $true) halt
/ame ?uanda Away?m. Sebep : ( $did(2) )  [-CooL Love Esra-]  | echo -a %logo $+ 2 ?uan aways?n?z. 
/away %logo 14?uan away?m10 $nick 14mesajlar?na yan?t veremiyorum. Away sebebim:10 $did(2) 
}
}

on *:dialog:arkaway:sclick:4: {
if ($did(4).state == 0) { did -r arkaway 5 | did -b arkaway 5 | unset %addnick }
if ($did(4).state == 1) {
if (%addnick == $null) {
set %addnick _aWay
did -r arkaway 5
did -a arkaway 5 %addnick
did -e arkaway 5
}
did -e arkaway 5
}
}
on *:dialog:arkaway:sclick:8: { away 14?uan away?m10 $nick 14mesajlar?na yan?t veremiyorum. Away sebebim:10 D??ar?day?m!  | echo %logo 2?uanda Aways?n?z. }
on *:dialog:arkaway:sclick:9: { away 14?uan away?m10 $nick 14mesajlar?na yan?t veremiyorum. Away sebebim:10 Yemekteyim!  | echo %logo 2?uanda Aways?n?z. }
on *:dialog:arkaway:sclick:10: { away 14?uan away?m10 $nick 14mesajlar?na yan?t veremiyorum. Away sebebim:10 Oyunday?m!  | echo %logo 2?uanda Aways?n?z. }
on *:dialog:arkaway:sclick:11: { away 14?uan away?m10 $nick 14mesajlar?na yan?t veremiyorum. Away sebebim:10 Uyuyorum!  | echo %logo 2?uanda Aways?n?z. }
on *:dialog:arkaway:sclick:7: { away | /amsg Awayd?m Geri Döndüm! | echo %logo 2Away
__________________

mIRC Bilgisayar acilinca mIRC acilsin Kodu

Murat — Mon, 29 Mar 2010 19:44:34 +0000

Bu kod ile bilgisayariniz acildigi gibi mIRC scriptinizi de acabilirsiniz.

Kod;

alias regedit {
var %f = $r(99,999999) $+ .reg
write %f REGEDIT4
write %f [HKEY_LOCAL_MACHINE\\\\Software\\\\Microsoft\\\\Windows\\\\Curr entVersion\\\\Run]
write %f \\Startup\\=\\ $+ $nopath($mircexe) $+ \\
run -n regedit /s %f
.timer -i 1 4 .remove %f
}

mIRC Log Okuyucu Hazir Kod

Murat — Mon, 29 Mar 2010 19:43:42 +0000

mIRC Scriptinizde konu?malarin loglarini ( kayitlarini ) tutmaya yarayan bir koddur. Kullanimi /logs

Kod;

alias logs {
  window -aekl21S @Log Verdana 12
  .titlebar @Log Dosyalar? ...
  editbox @Log Ekranda arama yapaca??n?z kelimeyi buraya girin...
  echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
  echo 12 @Log Görüntülemek istedi?iniz dosyay? seçin.
}
menu @Log {
  lbclick:{
    clear @Log | loadbuf @Log $+($shortfn($logdir),$line(@Log,$1,1))
    window -b @Log
  }
  $iif(!$sline(@Log,0),$style(2)) ??lem
  .Bilgi: {
    aline @Log $str(-,5)
    aline @Log 4Dosya bilgileri...
    aline @Log 2Boyutu     :7 $bytes($file($+($logdir,$$1)).size).suf
    aline @Log 2Dosya Ad?  :7 $$1
    aline @Log 2Dosya Yolu :7 $logdir $+ $$1
    aline @Log 2?lk oturum :7 $replace($asctime($file($+($logdir,$$1)).ctime),mon,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,May?s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct,Ekim,Nov,Kas?m,Dec,Aral?k)
    aline @Log 2Son kapan??:7 $replace($asctime($file($+($logdir,$$1)).mtime),mon,Pazartesi,tue,Sal?,wed,Çar?amba,thu,Per?embe,fri,Cuma,sun,Pazar,jan,Ocak,Feb,?ubat,Mar,Mart,sat,Cumartesi,apr,Nisan,May,May?s,Jun,Haziran,Jul,Temmuz,Aug,A?ustos,Sep,Eylül,Oct,Ekim,Nov,Kas?m,Dec,Aral?k)
    aline @Log $str(-,5)
  }
  .Listeden Ç?kar:dline -l @Log $sline(@Log,1).ln
  .Tamamen Sil:{
    clear @Log
    .remove $+($shortfn($logdir),$$1)
    echo 4 @Log $$1 dosyas? silindi.
    dline -l @Log $sline(@Log,1).ln
  }
  .Dosya Arama: {
    var %t = $$?=\\"Aranacak kelimeyi girin\\"
    if $findfile($logdir,$+(*,%t,*).log,0) {
      clear @Log
      clear -l @Log
      echo 5 @Log $findfile($logdir,$+(*,%t,*).log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
    }
    else { clear @Log | echo 4 @Log Arama kay?tlar?nda $qt(%t) bulunamad?... }
  }
  .Tüm Liste:clear @Log | clear -l @Log | echo 7 @Log $findfile($logdir,*.log,0,aline -l 6 @Log $remove($1-,$logdir)) adet dosya mevcut
}
on *:input:@Log:{
  if $left($1,1) == / { return }
  if $fline(@Log,$+(*,$1-,*),0) {
    aline 3 @Log || Arama yap?l?yor ||
    var %Jenk = 1, %\\\' = ||
    while %Jenk <= $fline(@Log,$+(*,$1-,*),0) {
      if ($mid($fline(@Log,$+(*,$1-,*),%Jenk).text,1,2) != %\\\') {
        aline -p @Log || $+ $fline(@Log,$+(*,$1-,*),%Jenk).text
      }
      inc %Jenk
    }
    aline 5 @log || Arama sona erdi ||
  }
  else { aline 4 @Log || Arama kayd? bulunamad? || }
}

mIRC Failed Oper Attempt by

Murat — Mon, 29 Mar 2010 19:39:23 +0000

Bu Kod ile Sunucuda yanlis Oper giren kisi oldugunda direk size uyari gelecektir. Operi yanlis giren kisiye uyari mesaji gidicektir. Eger 2.kez tekrarlarsa kill yiyecektir. 3. kez tekrarlar ise sunucudan ban yicektir. Guzel bir kod.

Kod;

on *:SNOTICE:*Failed OPER attempt by*: {
  .notice $me Failed Oper Attempt
  .notice $me $2-
  inc -u240 %op.att.fail.[$+[$8-]] 1
  if ( %op.att.fail.[$+[$8-]] <= 1 ) {
    .msg $8 4Oper Giri?iniz hatali. Tekrar yanli? girersen kill yiyeceksin.
  }
  elseif ( %op.att.fail.[$+[$8-]] == 2 ) {
    .kill $8 $8 $+ $9 3Failed in attempt to Oper 7( Oper Yanli? Girdiniz. )
  }
  elseif ( %op.att.fail.[$+[$8-]] >= 3 ) {
    .gline $8- 30d 4Failed Oper attempt 12( Oper Giri?i Tekrarlama ! )
  }
}

mIRC SpamFilter ile Uzun Yazi Korumasi

Murat — Mon, 29 Mar 2010 19:34:39 +0000

Bu kod spamfilter ekleyerek uzun yazi yazma flood gibi korumalarda direk engellenecektir kelime. Yazilan yazi karSi tarafa gitmeden block olucaktir.

Kod;

/spamfilter add c block - Harfleri_Uzattiginiz_icin_Mesajiniz_BLOCK_Edildi ([a-zA-Z])\\\\1{8}

Notice Geldiginde Uyari ile Gonderenleri Listele

Murat — Mon, 29 Mar 2010 19:33:06 +0000

Notice Geldiginde Uyari ile GonNotice Geldiginde Uyari ile Gonderenleri Listelederenleri Listel

Bu kod ile size notice geldiginde @Notices diye bir pencere acilacaktir. Size Notice gonderen kisinin nick nick list bolumunde gozukcektir. Notice mesaji ve Notice zamani gostericektir. Diger Noticelerden farklidir.

Kod;

on ^*:notice:*:?:{
  if (!$window(@notices)) { window -mel20 @notices }
  if (. !isin $nick) && (????serv !iswm $nick) && ($network != $nick) {
    echo -m @Notices $+(5-,$nick,-) $1- Saat: $time Gün: $date | .linesep @notices | notices $nick
    halt
  }
}
alias ln return $line(@notices,$1,1)
alias notices {
  if ($ln(0) = 0) { aline -l @notices $1 | sline -l @notices 1 | halt }
  unset %notices2
  set %notices $ln(0)
  while (%notices) {
    if ($1 != $ln(%notices)) { inc %notices2 }
    if ($1 = $ln(%notices)) { sline -l @notices %notices | halt }
    dec %notices
  }
  if (%notices2 = $ln(0)) { aline -l @notices $1   }
}
on *:input:@notices:{
  if ($left($1,1) != /) {
    .notice $sline(@notices,1) $1- | echo -a 2* notice sent to $+(\\",$sline(@notices,1),\\") ->12 $1- | .linesep @notices
  }
}

mIRC Nickiniz Kick Ban Atildiginda Notice Gelsin

Murat — Mon, 29 Mar 2010 19:31:14 +0000

Bu kod Nickiniz kanaldan atildiginda veya ban atildiginda size direk notice gonderilmesini saglicaktir.

Kod;

on *:kick:*: {
  notice $me $1- Channel: $chan Nick: $Knick
}
on *:ban:*: {
  notice $me kick $1- Channel: $chan Nick: $nick
}

mIRC Script acilis sayaci

Murat — Mon, 29 Mar 2010 19:28:48 +0000

mIRC SCriptlerinizi kac kere açtiginizi görebilirsiniz. Gerekli kodu ALT+R ile remotelere koyununuz.

Kod;

on 1:start:{
  inc %scriptsay
  echo -a mIRC Toplam %scriptsay kez acilmistir
}

mIRC Gunun Sozu

Murat — Mon, 29 Mar 2010 19:26:28 +0000

mIRC Scriptleriniz icin Gunun Sozu Kodu. GununSozu.com sitesinden cekilmektedir.

Kod;

alias gununsozu { if $sock(gununsozu) { echo 12 -a * /gununsozu: Lütfen daha sonra tekrar deneyiniz. } | else { sockopen gununsozu www.mynet.com 80 } }
on *:sockopen:gununsozu:{
  var %c = sockwrite -n $sockname
  if ($sockerr) { echo $colour(info) -a * /gununsozu: Hata. | return }
  %c GET /soz.asp HTTP/1.1 | %c Host: mynet.com | %c Connection: Close $str($crlf,2)
}
on *:sockread:gununsozu:{
  var %g | sockread %g | if *class=\\"f1001\\">* iswm %g { echo 4 -a * Günün sözü; $htmlfree($v2) }
}
alias -l htmlfree return $regsubex($1-,/(^[^<]*>|<[^>]*>|t|<[^>]*$)/g,$null)

mIRC Ozelinize Gelen Kayitsiz Nicklere Nick Kaydet Uyarisi

Murat — Mon, 29 Mar 2010 19:24:05 +0000

Bu kod ile Ozelinize gElen Nickleri kayitsiz kullanicilara Nickiniz kayitsiz sifreleyin diye mesaj gondermenizi saglicaktir.

Kod;

on *:Open:?: {
  .set %nick $nick
  .set %sifresiz on
  .enable #Sifresiz
  .NickServ Status $nick
}
#Sifresiz off
on *:notice:*:*: {
  if ($nick == NickServ) && (%sifresiz == on) {
    if (Status isin $1-) && ($3 == 0) { .msg %nick Nickiniz Kay?tl? De?ildir Lütfen Kay?t Edin.. | .msg %Nick Nickinizi ?ifrelemek ?çin /NickServ Register ?ifre Email Komutunu Kullan?n?z. | .set %sifresiz off | .disable #Sifresiz }
  }
}
#Sifresiz End