Kahkaha

Bayıldım

Cool

Kızgın

Mahcup

Öğretici

Şaşkın

Suskun

Tatlı

Üzgün

Süper

Clone/Away/IRCop Tarama ( dialog )

Ana Sayfa » internet » IRC » Clone/Away/IRCop Tarama ( dialog )
Clone/Away/IRCop Tarama ( dialog )

alias tarama { dialog -m tarama tarama } dialog tarama { title “Muhabbet Script Taramalar 2007” size -1 -1 188 123 option dbu button “? Away Tara ?”, 1, 5 61 177 12, default flat multi button “? Clone Tara ?”, 2, 5 75 177 12, default flat multi button “? IRCop Tara ?”, 3, 5 89 177 12, default flat multi icon 4, 6 6 174 49, C:\Documents and Settings\samettt\Desktop\image copy.jpg, 0 button “Tamam/Kapa”, 5, 72 106 44 13, ok cancel } on 1:dialog:tarama:sclick:1:{ awaytara #$$?=”Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:” } on 1:dialog:tarama:sclick:2:{ clonetara #$$?=”Lütfen tarama yapmak istediğiniz Kanal Adını Yazınız:” } on 1:dialog:tarama:sclick:3:{ ircoptara } —

 
alias ircoptara {
  .unset %ircop
  $iif(!$window(@Ircop),window @ircop)
  echo @ircop 7~ 2Ircop Listesi7 ~
  .enable #ircoptara
  who 0 o
}
#ircoptara off
raw 352:*:{
  $iif(!$window(@Ircop),window @ircop)
  inc %ircop
  echo @Ircop %ircop – $6 – $4
}
raw 315:*:{
  .disable #ircoptara
  unset %ircop
  echo @Ircop 7~ 2Ircop Listesi Sonu7 ~ 
}
#ircoptara end

 

 

 

alias clonetara {
  if ($1) { 
    write -c clone.txt 
    .enable #clonetara
    who $1
  }
  else { echo -a 4Kanal Yaz! }
}
#clonetara off
raw 352:*:{
  if ($read(clone.txt,w,$+(*,$4,*))) {
    var %i $read(clone.txt,w,$+(*,$4,*))
    write $+(-dw,$+(*,$4,*)) clone.txt   
    write clone.txt $gettok(%i,1,$asc(-)) $6 – $4 – $calc($numtok($gettok(%i,1,$asc(-)),32) +1)
  }
  else { write clone.txt $6 – $4 – 1 }
}
raw 315:*:{
  var %i 1
  $iif(!$window(@clonelar),window @Clonelar)
  echo @Clonelar ~ Clone Listesi ~ 
  while %i <= $lines(clone.txt) { 
    if 1 == $($gettok($read(clone.txt,%i),-1,$asc(-)),2) { write $+(-dl,%i) clone.txt }
    else { echo @Clonelar $read(clone.txt,%i) Tane }   
    inc %i
  }
  echo @Clonelar ~ Clone Listesi Sonu ~
  .disable #clonetara
}
#clonetara end

 

 

alias awaytara {
  if ($1) {   
    .unset %away 
    $iif(!$window(@Awaylar),window @Awaylar)
    echo @Awaylar 7~2 Away Listesi7 ~
    .enable #awaytara
    who $1
  }
  else { echo -a 4Kanal Yazmadınız! }
}
#awaytara off
raw 352:*:{
  if (G isin $7) {
    $iif(!$window(@Awaylar),window @Awaylar)
    inc %away   
    echo @Awaylar %away – $6
  }
}
raw 315:*:{
  .unset %away 
  echo @Awaylar 7~2 Away Tarama Sonu7 ~
  .disable #awaytara
}
#awaytara off

 

Kullanımı : /tarama yazmanız yeterlidir.

Umarım işinize yarar.
Not: Resim Yolunu (icon) değiştiriniz. Çakışma olabileceği sebebi ile Code’leri ayrı ayrı pencerelere yapıştırırsanız sorun olmayacaktır.
Yapımcısı : Benim ( sadece dialog konusunda ) Code’lerin sahiplerini bılmıorum.

Clone/Away/IRCop Tarama ( dialog ) - Yorumlar

YORUMLARINIZI PAYLAŞIN

 

Yapılan Yorumlar

BENZER İÇERİKLERİlginizi çekebilecek diğer içerikler

kelebek

kelebek 09 Kasım 2020

irc invex komutu

irc invex komutu 17 Ocak 2011

SOSYAL MEDYADA BİZSitemizin sosyal medya hesapları

ÖNE ÇIKAN KATEGORİLER

RASTGELE İÇERİKLER

Alerji tüm yönleriyle Cennette Huriler Varmış Kara Gözlü Susuyorum Başkasına Ait Kredi Kartı Bilgilerini Kullanmak Rasgele Quit Mesajı Balık Burcu

FACEBOOK'TA BİZ

Hoşgeldiniz Kelebek IRCd ve Kelebek Script ile ilgili her türlü yardımı HELPDESK alanından alabilrsiniz.

Kelebek mIRC Script Sohbet Sitesi - Tüm Hakları Saklıdır