Op-List - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

ATLAS · 10 Mayıs 2009, 01:22

Server kanallarına belirli aralıklar ile .timer sayesinde List çeker
ve bu listte 10 userden büyük kanalları baza alarak 2 opdan az op var ise
#ops kanalına bildirim yapar Neden 2 op baza alındı derseniz
Mynet sohbet ağındaki Opservice Botunun özelliğinden esinlenerek kanallar baza alınarak yazılmıştır .
Service_bot ve Merlyn Bot olduğu için onları op olarak görmemek nedeni ile.
2 opdan az ise mantığı ile çalışması sağlanmıştır .

Kod: Kodu kopyalamak için üzerine çift tıklayın!

 
raw *:*: {
  if $numeric == 322 {
    qu names $2
  }
  if $numeric ==  353 {
    inc %n~op $count($4-,@) | inc %n~u $numtok($4-,32)
  }
  if $numeric ==  366 {
    if  (%n~op != %n~u) &&   (%n~op < 2) && (%n~u > 10 ) {
    qu msg #ops 4OPS 12 $2 1 kanalında op yok. 14User Sayısı : 2 %n~u }
    unset %n~* | .timer_re 0 180  list
  }
}
alias qu {
  if ($hget(qu) == $null) hmake qu 100
  if ($1 == -x) {
    if ($hget(qu,a1) == $null) || ($hget(qu,max) <= 0) { timerqu off | return }
    $hget(qu,a1)
    var %qs = 2
    var %qe = $hget(qu,max)
    while (%qs <= %qe) {
      var %cur = a $+ $calc(%qs - 1)
      var %las = a $+ %qs
      if ($hget(qu,%las)) hadd qu %cur $hget(qu,%las)
      inc %qs
    }
    var %las = a $+ $hget(qu,max)
    hdel qu %las
    hadd qu max $calc($hget(qu,max) - 1)
  }
  else {
    hinc qu max
    var %x = a $+ $hget(qu,max)
    hadd qu %x $1-
  }
  if ($timer(qu) == $null) { timerqu 0 1 qu -x }
}
alias hinc { if ($hget($1)) { hadd $1 $2 $calc($hget($1,$2) + $iif($3 isnum,$3,1)) } }

timer_re 0 180 list mynet_* şekli

[01:39] <@AtLaS> OPS #mynet_cinsellik10 kanalında op yok. User Sayısı : 290
[01:39] <@AtLaS> OPS #mynet_heavymetal kanalında op yok. User Sayısı : 76

Normal kanallar
timer_re 0 180 list şekli

[01:31] <OpService> OPS #Oyun kanalında op yok. User Sayısı : 21
[01:31] <OpService> OPS #radyo kanalında op yok. User Sayısı : 27
[01:31] <OpService> OPS #ankara kanalında op yok. User Sayısı : 30
[01:31] <OpService> OPS #zurna kanalında op yok. User Sayısı : 117
[01:31] <OpService> OPS #gay kanalında op yok. User Sayısı : 15
[01:31] <OpService> OPS #Sohbet kanalında op yok. User Sayısı : 121
[01:31] <OpService> OPS #*** kanalında op yok. User Sayısı : 14
[01:31] <OpService> OPS #felsefe kanalında op yok. User Sayısı : 32
[01:31] <OpService> OPS #kelebek kanalında op yok. User Sayısı : 13
[01:31] <OpService> OPS #lezbiyen kanalında op yok. User Sayısı : 13
[01:31] <OpService> OPS #beginner kanalında op yok. User Sayısı : 11

Kırmızı yerle belirtilen yerleri kendinize göre editleyebilirsiniz.

10 Mayıs 2009, 01:57

Teşekkürler güzel paylaşım

ATLAS · 20 Ağustos 2010, 11:22

rica..

DaDaS · 21 Ağustos 2010, 00:48

Tesekurler Serkan Emegıne Saglık

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
LIST BOX	vioLeta	Bilgisayar Sözlüğü	0	18 Ocak 2020 13:47
/ns list * * /cs list * * userlere yasaklamak	GhostLy	Services Hazır Kodlar	0	18 Ağustos 2009 08:22
List	lacremel	mIRC Scripting Sorunları	7	02 Şubat 2008 00:02
/list	Silence	Unreal IRCd	6	11 Ocak 2008 13:57

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.