Tekil Mesaj gösterimi
  #80  
Alt 11 Ekim 2011, 00:45
Avatar Yok
L4roXyL L4roXyL isimli Üye şimdilik offline konumundadır
 Chief 

mS Puan: 1031
mS Derece: L4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisiL4roXyL Kod delisi
 
Üyelik tarihi: 10 Temmuz 2009
Yaş: 39
Mesajlar: 339
Konular: 100
Eklentiler: 3
Alınan Teşekkür: 146
Yapılan Teşekkür: 0
Mentioned: 0 Post(s)
Tagged: 0 Thread(s)
Standart

Tarih: 14-01-2009, 00:57

Bu kod #kanal kanalında voice verilen nicklerin host adreslerini kayıt eder ve #kanal@ kanalında !info komutunu uyguladığınızda bu liste kanala yansıtılır.
Not: Kod on text üzerine kuruludur. Dolayısıyla başkaları için !komut olarak uygulanabilir. Kendiniz için kullanacaksanız on input kullanabilirsiniz.

Kod:
on *:start:{
  if ($exists(voice.hash)) hmake voice | hload -i voice voice.hash 
}
on *:voice:#kanal:{
  if ($nick != $me) { 
    var %q = $+($address($vnick,2),%,$time,&,$date) 
    hadd -m voice %q $nick 
    hsave -i voice voice.hash 
  }
}
on @*:text:!info *:#kanal@: {
  if ($hfind(voice,$2,0).data >= 2) { 
    var %2 = $v1,%1 = 1 
    msg # $2 rumuzunun voice girdileri: 
    while (%1 <= %2) { 
      var %d = $hfind(voice,$2,%1).data 
      msg # $+(%1,-) Host: $gettok(%d,1,37) - Saat/tarih: $regsubex($gettok(%d,2,37),&,$chr(32)) 
      inc %1 
    }
    else msg # $qt($nick) $2 rumuzu için kayıt bulunamadı.
  }
}
__________________
C/co/cod/code^man.
Alıntı ile Cevapla
 
1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76