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

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:

 

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.