Перейти к содержимому


Фотография

Now Playing скрипт


  • Авторизуйтесь для ответа в теме
Сообщений в теме: 2

#1 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 13 февраля 2008 - 15:42

Плагин для отображение проигрываемой в Winamp и Foobar2k музыки. Имеет множество преимуществ по сравнению с распространенным Amip среди которых простота установки и настройки, отсутствие автоматического вывода сообщений, который очень часто приводит к бану пользователей.

Открывайте Alt+R - Aliases и копируйте туда следующий код:
/spam {
  set %title $dll(r1dll.dll, GetCurrentWinampSong, 0)
  if (%title == 0) {
    /echo $active *** No supported audio player found!
    return
  }
  set %kbps $dll(r1dll.dll, GetCurrentWinampSongKbps, 0)
  set %khz $dll(r1dll.dll, GetCurrentWinampSongKHz, 0)
  set %totaltime $dll(r1dll.dll, GetCurrentWinampSongTotalTime, 0)
  set %elapsedtime $dll(r1dll.dll, GetCurrentWinampSongElapsedTime, 0)
  set %channels $dll(r1dll.dll, GetCurrentWinampSongChannels, 0)
  set %filename $dll(r1dll.dll, GetCurrentWinampSongFileName, 0)

  set %t_mins 0
  set %e_mins 0

  set %t_secs %totaltime
  if (%totaltime == -1) {
    set %fileformat %filename
    goto totalloop
  }

  set %filesize 0

  if (%filename != $null) {
    set %filesize $file(%filename).size
    set %filesize $round($calc(%filesize / 1024 / 1024),2)
    set %fileformat $upper($gettok(%filename,-1, 46))
  }

  :totalloop
  if (%t_secs < 60) {
    goto endtotalloop
  }
  inc %t_mins
  dec %t_secs 60
  goto totalloop
  :endtotalloop

  set %e_secs %elapsedtime
  :elapsedloop
  if (%e_secs < 60) {
    goto endelapsedloop
  }
  inc %e_mins
  dec %e_secs 60
  goto elapsedloop
  :endelapsedloop

  if (%t_secs < 10) {
    set %filler2 0
  }
  if (%e_secs < 10) {
    set %filler 0
  }
  if (%t_secs <= 0) {
    set %total_string 
    if (%fileformat == $null) {
      set %file_string Streaming@ $+ %kbps $+ kbps
      goto ihatemircselse
    }
    if (%kbps == 0) {
      set %file_string Streaming: %filename
      goto ihatemircselse
    }
    set %file_string Streaming: %fileformat @ $+ %kbps $+ kbps
    :ihatemircselse
    goto noset
  }

  set %total_string / $+ %t_mins $+ : $+ %filler2 $+ %t_secs
  if (%filesize != 0) {
    set %file_string %fileformat $+ @ $+ %kbps $+ kbps, %filesize $+ mb
    goto noset
  }
  set %file_string %fileformat $+ @ $+ %kbps $+ kbps
  :noset
  if (%foobar == 1) {
    /describe $active np %title [foobar2k]
    goto duns
  }
  /describe $active np %title ( $+ %file_string $+ )
  :duns
  unset %filesize
  unset %file_string
  unset %total_string
  unset %filename
  unset %fileformat
  unset %filler2
  unset %filler
  unset %e_mins
  unset %e_secs
  unset %title
  unset %kbps
  unset %khz
  unset %t_mins
  unset %t_secs
  unset %elapsedtime
  unset %totaltime
  unset %channels
}

Теперь скачиваете приложенный к посту архив и извлекаете dll файл из него в корень вашего Mirc(туда где лежит mirc.exe).
Теперь пишите на канале /spam
Все.

Почитать подробнее про этy длл можно по этой ссылке http://www.r1ch.net/stuff/r1dll/

Прикрепленные файлы

  • Прикрепленный файл  r1dll.rar   1,62К   30 Количество загрузок:

http://ircnet.su/
#egghelp @ IrcNet.Ru

#2 Siniy

Siniy

    Активный участник

  • Хелперы сети
  • 44 сообщений
  • Пол:Мужчина
  • Город:MSK
  • Ник в сети:Siniy
  • Каналы:#lianet, #mapc, #help

Отправлено 12 января 2009 - 10:30

Для любителей плеера foobar2000 нужен плагин для foobar2000 версии 0.9.

Прикрепленный файл  foo_winamp_spam_v0.96.zip   91,83К   2 Количество загрузок:

Запихиваем его в папку foobar2000\components\ и перезапускаем плеер.

Для извращенцев, пользующихся плеером версии меньше чем 0.8 качать тут.
Siniy @ irc://irc.ircnet.su

#3 tvrsh

tvrsh

    Активный участник

  • Администратор
  • 389 сообщений
  • Пол:Мужчина
  • Город:Russian Federation, Podolsk
  • Ник в сети:tvrsh
  • Каналы:#egghelp, #3hauka, #bash.org

Отправлено 06 октября 2010 - 11:05

Чтобы этот скрипт корректно работал с mIRC 7.11 и выше вам необходимо использовать вот этот скрипт. Если есть желающие, то я могу объяснить как его использовать. Автора скрипта - ув. тов. Spoofing можно найти на канале #egghelp.
http://ircnet.su/
#egghelp @ IrcNet.Ru




Количество пользователей, читающих эту тему: 1

0 пользователей, 1 гостей, 0 анонимных