IRCLine.RU
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Внимание:
  • Чтобы войти на форум, Вам нужно ввести ник и пароль используемые Вами в сети IRCLine.RU
  • Зарегистрировать ник можно только в сети, пользуясь соответствующими сервисными командами
21.09.2021 08:37:02

Войти
5574 Сообщений в 762 Тем от 1004 Пользователей
Последний пользователь: seagull4ik
* Начало Помощь Войти
Форум IRCLine.RU  |  IRC  |  mIRC Скриптинг  |  Готовые скрипты  |  Тема: chanplace.mrc « предыдущая тема следующая тема »
Страниц: [1] Печать
Автор Тема: chanplace.mrc  (Прочитано 5176 раз)
*
Сообщений: 44
Offline Offline


Просмотр профиля
« : 10.07.2010 21:59:39 »

Код:
on *:TEXT:*:#: {
  if $1 == !chanplace {
    set %chanplace $chan $2
    if %list {
      var %c = $iif($gettok(%chanplace,2,32),$ifmatch,%chanplace), %r = $read(channels\channels.txt,w,%c $+ $chr(32) $+ *)
      msg $gettok(%chanplace,1,32) $iif(%r,02Канал 06 $+ %c $+  02занимает04 $readn $+ 02/05 $+ $lines(channels\channels.txt) 02место $+ $chr(44) на нем сейчас12 $gettok(%r,2,32) 02человек(а)...,02Канала 06 $+ %c 02в списке каналов нет...)
      unset %chanplace
    }
    else { list }
  }
  elseif !top*chan iswm $1 {
    set %topchan $chan $iif($remove($1,!top,chan) isnum && $round($remove($1,!top,chan,-),0) >= 10,$round($remove($1,!top,chan,-),0),10)
    if %list {
      var %i = $calc($gettok(%topchan,2,32) - 9), %t = $gettok(%topchan,2,32), %o, %a = 0
      fopen channels channels\channels.txt
      while !$feof {
        var %r = $gettok($fread(channels),2,32)
        if %r isnum { inc %a %r }
      }
      fclose channels
      while %i <= %t {
        var %r = $read(channels\channels.txt,%i)
        if $gettok(%r,1,32) { set %o %o %i $+ . $ifmatch ( $+ $gettok(%r,2,32) $+ )( $+ $round($calc($gettok(%r,2,32) / %a * 100),1) $+ $chr(37) $+ ) }
        inc %i
      }
      msg $gettok(%topchan,1,32) Top $+ %t $+ chan: $iif(%o,%o,отсутствует)
      unset %topchan
    }
    else { list }
  }
}
raw *:*: {
  if $event == 323 {
    set -u180 %list 1
    filter -euffct 2 32 channels\channels.txt channels\channels.txt
    if %chanplace {
      var %c = $iif($gettok(%chanplace,2,32),$ifmatch,%chanplace), %r = $read(channels\channels.txt,w,%c $+ $chr(32) $+ *)
      msg $gettok(%chanplace,1,32) $iif(%r,02Канал 06 $+ %c $+  02занимает04 $readn $+ 02/05 $+ $lines(channels\channels.txt) 02место $+ $chr(44) на нем сейчас12 $gettok(%r,2,32) 02человек(а)...,02Канала 06 $+ %c 02в списке каналов нет...)
      unset %chanplace
    }
    elseif %topchan {
      var %i = $calc($gettok(%topchan,2,32) - 9), %t = $gettok(%topchan,2,32), %o, %a = 0
      fopen channels channels\channels.txt
      while !$feof {
        var %r = $gettok($fread(channels),2,32)
        if %r isnum { inc %a %r }
      }
      fclose channels
      while %i <= %t {
        var %r = $read(channels\channels.txt,%i)
        if $gettok(%r,1,32) { set %o %o %i $+ . $ifmatch ( $+ $gettok(%r,2,32) $+ )( $+ $round($calc($gettok(%r,2,32) / %a * 100),1) $+ $chr(37) $+ ) }
        inc %i
      }
      msg $gettok(%topchan,1,32) Top $+ %t $+ chan: $iif(%o,%o,отсутствует)
      unset %topchan
    }
  }
}

Выводится по команде !chanplace
Записан

Администратор
*****
Сообщений: 677
Offline Offline


Просмотр профиля WWW
« Ответ #1 : 12.07.2010 11:04:11 »

Я понимаю, что для вас (и некоторых других) назначение скрипта очевидно, но для тех, кому вы его выложили оно не будет так очевидно.
Записан

На каждый вопрос должен быть ответ
:angel:
Страниц: [1] Печать 
Форум IRCLine.RU  |  IRC  |  mIRC Скриптинг  |  Готовые скрипты  |  Тема: chanplace.mrc « предыдущая тема следующая тема »
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.8 | SMF © 2006-2008, Simple Machines LLC Valid XHTML 1.0! Valid CSS!