Mircde özel avatar sistemi

Adından anlaşıkdığı gibi özelde konuştuğunuz kişinin avatarını siz sizin avatarınızı karşınızdakinin görmesini sağlayan bir kod
Kodun çalışabilmesi için karşıtaraftda aynı kodun olması gerekmektedir.
Kod Güncellenmiştir Kod yazarı (fav) niçkim banlanmış durumda umarım işinize yarar bir çalışma olmuştur farklı tarzlarda güncellemelere açıktır herkes kullanabilir

alias urs { sockclose ursm
  if $1 = $null { %sharing_file = $$msfile($$msfile($mircdir\)) }
  if $1 { %sharing_file = $1- }
  %tempsockname = ursm | echo 3 yüklenmeye çalışıyor...
  sockopen %tempsockname www.hizliresim.com 80 | sockmark %tempsockname filename= $+ %sharing_file | unset %sharing_file | unset %tempsockname
}
on *:sockopen:ursm: { 
  bset -t &postdata 1 ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="local_files[]"; filename=" $+ $nopath($gettok($mid($sock($sockname).mark,11),1,59)) $+ " $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/ $+ $gettok(%ds,2,46) $+ $crlf $+ $crlf
  bread " $+ $gettok($mid($sock($sockname).mark,10),1,59) $+ " 0 $file($gettok($mid($sock($sockname).mark,10),1,59)).size &file_contents
  bcopy &postdata $calc($bvar(&postdata,0) + 1) &file_contents 1 -1
  bset -t &postdata $calc($bvar(&postdata,0) + 1) $crlf $+ ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_size" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_effect" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_rotate" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ--
  sockwrite -nt $sockname POST /upload.php HTTP/1.1 | sockwrite -nt $sockname Host: www.hizliresim.com
  sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=----WebKitFormBoundarydeA4whaMQad30HrZ
  sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf | sockwrite -nt $sockname Connection: Keep-Alive | sockwrite $sockname &postdata
}
on *:sockread:ursm: { var %x | sockread %x
  if (<img style="max-width isin %x) { set %brrg $gettok(%x,4,34) | set %orta  $gettok(%x,2,47) $+ / | set %sonksm $gettok($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34) | echo -a 7Başarıyla yüklendi } 
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 | yklr }
on ^*:notice:*:?: { 
  if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (.jpg isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .timerdowunload 5 10 yklr | write avt.txt %rsm }
  haltdef
}
alias yklr { //Background -dp %niickk "avatar/ $+ %rsm $+ " }
on *:open:?:*:{ if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) { yklr | .notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız }
}
on *:connect: {  tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { urs } }
menu * {
  Avatarım
  .Karşı Tarafın göreceği Resiminizi Seçiniz:urs
}
alias resimindir { if $sock(resin) || $sock(resin2) { echo -a * Başka bir işlem devam etmekte }
  else { .unset %resin.* | .set %resin.govde $remove($1,http://) | .set %resin.uzanti $gettok(%resin.govde,2-,47) | .set %resin.ana $gettok(%resin.govde,1,47) | .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) | sockopen resin %resin.ana 80 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * hata oluştu, lütfen bağlantınızı kontrol ediniz }
  else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf }
}
on *:sockread:resin: { var %ğ | sockread %ğ
  if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(avatar/ $+ %resin.ismi) }
}
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(avatar/ $+ %resin.ismi) -1 -1 &pdata | set %rsm %resin.ismi }
on *:sockclose:resin2: { if $isfile(avatar/ $+ %resin.ismi) { .unset %resin.* } }




Kod orjinal bağlantısı : ircforumlari.net/hazir-kodlar/656954-ozel-avatar-karsinizdakini-gorme-imkani.html
Kod yazarı : muratt_aziz

Reklamlar

Kayıtlı ve Kayıtsız nickleri kontrol Addonu

Sununuz üzerindeki kayıtlı yada kayıtsız nickleri kontrol altına alıp çeşitli işlemler mi uygulamak istiyorsunuz.Ozaman bu kod tam size göre.Kodu ircforumları sitesinden alıntı yaptım.

unutmanet

Kodlayan uFuK nickli arkadaştır.

Açıklama : uFuK’a aittir.

Bu kod ile neler yapabilirsiniz ?

A) Reklam Kontrolü
Menüden Kayıtlı ve Kayıtsız Nickller İşlem Seçeneklerinden birisini seçin ve bu butona tıklayın. Seçtiğiniz seçenek durumundaki nicklere oto olarak reklam kontrol mesajı göndericek ve bu mesaja 2 saniye içerisinde cevap verenleri menüdeki belirttiğiniz kanala yazdığı mesajla birlikte kopyalacaktır. Bu menü işleme tabi değildir siz duruma göre manuel olarak işlem yapıcaksınız. (masum userlerde bu menüden etkilendiği için işleme tabi tutulmamıştır, örneğin; özel kabul addonları, oto özel mesaj addonları vb.)

B) Away Mesaj Kontrolü
Sunucunuzda away mesajını yasaklayıpta userlerinizi mağdur etmenizin bir manası yok. Bu butona tıkladıgınızda away konumundaki userleri tespit edecek ve away olanların away mesajlarını belirttiğiniz kanala kopyalayacaktır. İşleme tabi değildir, manuel işlem gerektirir)

C) Seçtiğiniz Türdeki Nicklere Mesaj Gönderme
Örneğin nicki kayıtsız kullanıcılara oto olarak kayıt mesajı gönderebilirsiniz. Yada kayıtlı kullanıcılara sistemle ilgili bilgi vermek için text mesajı gönderebilirsiniz.

 

 

 


dialog kknks {
  title "Kayıtlı ve Kayıtsız Nickler Kontrol Sistemi"
  size -1 -1 253 237
  option dbu
  list 1, 115 11 58 211, size hsbar vsbar
  box "Kayıtsız Nickler", 4, 109 2 68 224
  edit "", 2, 13 73 74 10, autohs
  edit "", 6, 13 43 74 10, autohs
  button "Hepsine Zline At", 7, 12 130 74 10
  button "Hepsine Kanalda Voice Ver", 8, 12 146 74 10
  button "Hepsinin Voicesini Geri Al", 9, 12 162 74 10
  button "Hepsini Kanala Sajoin Yap", 10, 12 179 74 10
  box "Mesaj Menüsü", 11, 3 2 98 101
  box "Global İşlemler Menüsü", 12, 2 106 98 120
  button "Away Mesaj Kontrolü Yap", 13, 12 195 74 10
  button "Reklam Mesaj Kontrolü Yap", 14, 12 211 74 10
  button "Hepsini Kanalda Banla", 15, 12 115 74 10
  edit "", 17, 13 13 74 10, autohs
  button "Nick Register Bilgisi", 16, 26 25 52 12
  button "Text Mesaj Gönder", 5, 23 54 54 12
  button "Reklam,Away Kanalı", 3, 21 85 57 9
  box "Kayıtlı Nickler", 20, 183 2 68 224
  list 34, 189 11 58 211, size hsbar vsbar
  radio "Kayıtsızlara İşlem", 18, 116 228 57 9
  radio "Kayıtlılara İşlem", 19, 190 228 52 9
  text "İşlem Yapacağınız Nick Türünü Sagdan Seçiniz", 21, 1 228 112 8
}

on *:dialog:kknks:sclick:*: {
  if $did(18).state == 1 { set %kayitsiz on | unset %kayitli }
  if $did(19).state == 1 { set %kayitli on | unset %kayitsiz }
  if ($did == 16) { 
    set %kayitmsg $did(17)
    var %i 1 
    while %i <= $lines(kayitsiz.txt) {
      msg $read(kayitsiz.txt,%i) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $read(kayitli.txt,%i) $did(6)
        inc %i
      }
    }
  }
  if $did == 3 { 
    set %ckanal $did(2)
  }
  if $did == 15 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +b $address($read(kayitsiz.txt,%i),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        WhileFix WhileFix .
        mode $active +b $address($read(kayitli.txt,%i),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active  -v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active  -v $read(kayitli.txt,%i)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) %ufuks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) %ufuks
        inc %i
      }
    }
  }
  if $did == 13 { 
    set %awayk on 
    .timer 1 1 who +a $active
    .timer 1 4 unset %awayk
  }
  if $did == 14 {
    set %reklamkontrol on 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $read(kayitli.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    .timer 1 2 unset %reklamkontrol
  }
}
on *:dialog:kknks:sclick:*: {
  if $did(18).state == 1 { set %kayitsiz on | unset %kayitli }
  if $did(19).state == 1 { set %kayitli on | unset %kayitsiz }
  if ($did == 16) { 
    set %kayitmsg $did(17)
    var %i 1 
    while %i <= $lines(kayitsiz.txt) {
      msg $read(kayitsiz.txt,%i) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $read(kayitli.txt,%i) $did(6)
        inc %i
      }
    }
  }
  if $did == 3 { 
    set %ckanal $did(2)
  }
  if $did == 15 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +b $address($read(kayitsiz.txt,%i),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +b $address($read(kayitli.txt,%i),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active  -v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active  -v $read(kayitli.txt,%i)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) %ufuks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) %ufuks
        inc %i
      }
    }
  }
  if $did == 13 { 
    set %awayk on 
    .timer 1 1 who +a $active
    .timer 1 4 unset %awayk
  }
  if $did == 14 {
    set %reklamkontrol on 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $read(kayitli.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    .timer 1 2 unset %reklamkontrol
  }
}

on *:dialog:kknks:*:*: {
  if $devent == init { 
    who $active
    did -a $dname 17 %kayitmsg
    did -a $dname 6 %globalmesaj 
    did -a $dname 2 %ckanal
    if %kayitli == on { did -c $dname 19 }
    if %kayitsiz == on { did -c $dname 18 }
    .timer 1 1 savebuf -o kknks 1 kayitsiz.txt  
    .timer 1 2 savebuf -o kknks 34 kayitli.txt
  }
  if $devent == dclick { 
    if ($did == 34) { write -ds $+ $did(34).seltext kayitli.txt | did -d kknks 34 $did(34).sel }
    if ($did == 1) { write -ds $+ $did(1).seltext kayitsiz.txt | did -d kknks 1 $did(1).sel }
  }
  if $devent == close { 
    write -c kayitsiz.txt
    write -c kayitli.txt
  }
}
raw 301:*: { 
  if %awayk == on {
    if $me ison %ckanal { 
      /msg %ckanal 12Nickname 4 $qt($2) 12Away Mesajı 4 $qt($3-) 
    } 
  }
}
on *:text:*:?: { 
  if %reklamkontrol == on { 
    msg %ckanal 12Reklama Takılan Rumuz: 4 $nick 12Yazdığı İleti: 4 $1-
  }
}
raw 352:*: { 
  if (*r* !iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    did -a kknks 1 $6
  }
  if (*r* iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    did -a kknks 34 $6
  }
}
menu * { 
Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks }

Forbid komutu ile nicke ait tüm kanalları yasaklama

Addon: /forbid <nick> (nicke ait tüm kanalları yasaklama aliası)
Tarih: 07.05.2008 Çarşamba
Yazan: Regex
Not: Lütfen kullanacaksanız ya da farklı platformlarda paylaşacaksanız, yapımcı nickini kodun başında belirtin.

Açıklama: Bu alias sayesinde, belirttiğiniz kişiye ait tüm kanallar forbid (yasak) lenir. Kanalları, kişiye whois çekerek alır. Kullanıcının bulunduğu kanallarda ~ (successor) yetkisi varsa, o kanalı kişinin kabul eder ve işlem yapar.

Örnek: Misal, Lanet nicki için komutu uyguladık (/forbid Lanet).
Lanet, #Abz kanalında ~ (founder) konumunda.
Bu durumda, mIRC’imiz bu kanalı forbidler ve kanalda bulunan tüm kullanıcılar kick edilir. Kanal, bu hadiseden sonra kullanılamaz (drop edilene kadar).

Kod:

alias forbid if !$1 { echo Hata: Nick belirtmediniz. | halt } | whois $1 | .enable #forbid
alias forbidx var %d = 1 | while %d <= $numtok($2-,32) { $iif($regex($gettok($2-,%d,32),^~),cs forbid $remove($gettok($2-,%d,32),~) $1 nickine ait tüm kanalların kullanımı yasaklanmıştır.) | inc %d } | .disable #forbid
#forbid off
raw *:*:haltdef | $iif($numeric == 319,forbidx $2 $3-)
#forbid end

Bu kod alıntı yapılmıştır.

IRC’de ortak kanalları gösteren kod

alias ortak_k {
if ($server == $null) { echo -a 4Herhangi bir server’a bağlı değilsiniz. }
elseif ($chan($me) == 0) { echo -a 4Herhangi bir kanala girmiş değilsiniz. }
elseif (!$1) { echo -a 4Ortak kanallarınızın bulunacağı nick belirtilmedi. }
elseif ($1 == $me) { echo -a 4Kendi nickinizi giremezsiniz. }
elseif ($comchan($1,0) == 0) { echo -a 4Beliritlen nick bulunamadı. }
else {
var %oid 1
set %orka $comchan($1,0)
unset %knms
while (%oid <= %orka) {
set %knms $comchan($1,%oid) $+ $chr(32) $+ %knms
inc %oid
}
return %knms
}
}
alias ortak { linesep – | echo -at  $+ $1 $+  Nicki ile Ortak Kanallarınız4: $ortak_k( $+ $1 $+ ) | linesep – }

• Kullanım:/ortak nick

Whois bilgilerindede görmek isterseniz bunuda remoteye atınız.

Kod:
raw 319:*:{
haltdef
echo -a 4» Kanalları4: $3-
echo -a 4» Ortak Kanallarınız4: $ortak_k($2)
}

Bu kod sayesinde biri ile ortak kanallara sahipseniz bu şekilde ortak kanalları görebilirsiniz.Kullanımı kolaydır.

On Notify/Unotify

On Notify Eventi belirlediginiz nick veya kendi nickiniz sunucu içerisinde online oldugu zaman yada cıkış yaptigi zaman haberdar olmanizi saglar.

Şimdi gelelim Remoteler ile Notify kodumuza

on <Seviye>:NOTIFY:<Komutunuz>Örnek:

on 1:NOTIFY:{ /echo -a Notify Listenizdeki $nick şu anda Online! } @Notify şeklinde pencerede görmek isterseniz

on ^*:Notify: {
haltdef | $iif(!$window(@Notify),window -ne @Notify)
echo 4 @Notify $Nick Şu anda Online ! Zaman : $fulldate
}

Şimdi UNOTIFY Komutlarini açıklayalim.

Komut:

on <Seviye>:UNOTIFY:<Komutunuz>Örnek:

on *:UNOTIFY: { /echo -a Notify listenizdeki $nick şu anda sunucudan ayrıldı. }

Notify nickimiz eğer absolut ise onu takip etmek istiyorsak. Komutumuz şu

on ^*:UNotify: {
if ($nick == absolut) { echo -a $nick Sunucudan ayrıldı. }
}Notify Nicki ekleyip takip etmek istiyorsak kodumuz şu

on ^*:Notify: {
if ($nick == absolut) { echo -a $nick Şu anda Online. }
}

mIRC Events

mIRC Event, mIRC Events, mIRC Olaylar, mIRC Parametreleri, mIRC SCripting
On Notify/Unotify
0
2 years agoby absolut in mIRC Events .On Notify Eventi belirlediginiz nick veya kendi nickiniz

sunucu içerisinde online oldugu zaman yada cıkış yaptigi zaman haberdar olmanizi saglar.

Şimdi gelelim Remoteler ile Notify kodumuza

on <Seviye>:NOTIFY:<Komutunuz>Örnek:

on 1:NOTIFY:{ /echo -a Notify Listenizdeki $nick şu anda Online! }@ Notify şeklinde pencerede görmek isterseniz

on ^*:Notify: {
haltdef | $iif(!$window(@Notify),window -ne @Notify)
echo 4 @Notify $Nick Şu anda Online ! Zaman : $fulldate
}

Şimdi UNOTIFY Komutlarini açıklayalim.

Komut:

on <Seviye>:UNOTIFY:<Komutunuz>Örnek:

on *:UNOTIFY: { /echo -a Notify listenizdeki $nick şu anda sunucudan ayrıldı. }

Notify nickimiz eğer absolut ise onu takip etmek istiyorsak. Komutumuz şu

on ^*:UNotify: {
if ($nick == absolut) { echo -a $nick Sunucudan ayrıldı. }
}

Notify Nicki ekleyip takip etmek istiyorsak kodumuz şu

on ^*:Notify: {
if ($nick == absolut) { echo -a $nick Şu anda Online. }
}

mIRC Script’leriniz içerisinde de bu komutlara ihtiyac duymadan da notify ekleyip silebilirsiniz.

Klavyenizden ALT+B tuşuna basarak NOTIFY ayarlarini yapabilirsiniz

identify (şifre) kutucugu kodu

identify (şifre) kutucugu kodu

eklendi: 08.01.2011

kod:

on *:notice:*NickServ*IDENTIFY*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre } on *:notice:*Kayıt*Nick*:*: { if ( $nick == nickserv ) /dialog -m sifre sifre }

dialog sifre {
title “Şifre Paneli”
size -1 -1 110 60
option dbu
box $me Kayitli Bir Nicktir.., 20, 0 0 110 60
text “Nick Degistir:”, 4, 10 22 33 10
text “Sifre Gir: “, 3, 10 10 23 13
edit “”, 5, 45 8 60 10, style(pass)
edit “”, 6, 45 20 60 10
button “Uygula”, 1, 10 35 40 15, ok
button “I&ptal”, 2, 60 35 40 15, cancel
}
| xxxx identify xxxx
on 1:dialog:sifre:sclick:1: {
if ($did(sifre,6)) && ($did(sifre,5)) .nickserv identify $did(sifre,6) $did(sifre,5)
if ($did(sifre,5)) .nickserv identify $did(sifre,5)
if ($did(sifre,6)) .nick $did(sifre,6)
}

İdentify Kutucugu

Etiketler: identfiy kutucugu, mirc identify kutucugu kodu, şifre kutucugu

OTO OPER VE NiCK GiRME ADDONU

OTO OPER VE NİCK GİRME ADDONU (piyasadakilerden farklı ve sorunsuz çalışıyor testedilmiştir)
alias oas if !$dialog { dialog -m deneme deneme } | else { dialog -x deneme deneme }
dialog Deneme {
title “Oto Oper/nick ile Servera Giriş Sistemi”
size -1 -1 300 225
option pixels
text “Nickiniz”, 1, 10 10 100 17
edit “”, 2, 116 10 170 20, autohs
text “Nick Şifreniz”, 3, 10 34 100 17
edit “”, 4, 116 34 170 20, autohs, pass
text “Varsa Oper Nickiniz”, 5, 10 57 100 17
edit “”, 6, 116 57 170 20, autohs
text “Varsa Oper Şifreniz”, 7, 10 80 100 17
edit “”, 8, 116 80 170 20, autohs, pass
button “Tamam”, 9, 10 108 274 25
button “Ayarları Kaydet”, 10, 10 137 274 25
button “Beni Unut”, 11, 10 165 274 25
button “Tamam – Kapat”, 12, 10 193 274 25
}
on *:dialog:deneme:*:*: {
if $devent == init {
did -a deneme 2 %nickim
did -a deneme 4 %pasım
did -a deneme 6 %opern
did -a deneme 8 %oppas
}
if $devent == sclick {
if $did == 9 {
nick $did(2)
.timer 1 1 ns identify $did(4)
.timer 1 2 oper $did(6) $did(8)
}
if $did == 10 {
set %nickim $did(2)
set %pasım $did(4)
set %opern $did(6)
set %oppas $did(8)
nick %nickim
.timer 1 1 ns identify %pasım
.timer 1 2 oper %opern %oppas
}
if $did == 11 {
unset %pasım
unset %nickim
unset %opern
unset %oppas
;dialog -x deneme deneme
}
if $did == 12 {
dialog -x deneme deneme
}
}
}
on *:connect:{
.timer 1 1 ns identify %pasım
.timer 1 2 oper %opern %oppas
.timer 1 3 close -m
}