Текущая песня в статусе IRC

[snik]

можно как-то это зачудить .. что бы простым движением руки  можно было в ирке сказать что ты слушаешь ? как когда-то в винампе было

[cartman]

можно как-то это зачудить .. что бы простым движением руки  можно было в ирке сказать что ты слушаешь ? как когда-то в винампе было

А чем тебя amip не устраивает...у меня все прекрасно показывает...мирка,что играет AIMP

[snik]

какой плагин для мирки это делает ?

[cartman]

какой плагин для мирки это делает ?

Берется плагин от винампа называется AMIP.Поищи в инете и в ридми там все должно быть написано..в мирке нужно будет скрипт прописывать..

[Pablo_]

Вот кто вам нужен, его нужно положить в папку Plugins в AIMP=> gen_irc.dll
А также забиндить функцию отправки в чат информации о проигрываемой песне, в редакторе скриптов(Алиасы), допустим на клавишу F10:
F10 /me $dde(mPlug,format,"in_aimp:_%name_-_%4_-_[%min:%sec~m_%br~Kbps_%sr~KHz]")

[snik]

 не наилутший плагин .. он радио тупо как-то отображает %)

[dance]

У меня xchat, скачал (давно еще) плагин easywinampcontrol, с аимпом работает прекрасно.

[Igorix]

я давно очень делал скрипт для мирки - вставляется в ремоут - это небольшое окно, позволяющее управлять плеером. я сам не помню всех его функций (знаю только, что я его не доделал)

собственно для работы ему требуется только плагин gen_irc

Code: [Select]

menu channel,query {
  Управление Aimp: /dialog -mdo aimp aimp
}

on *:DIALOG:aimp:init:*: {
  did -z aimp 14 0 100
  did -c aimp 14 $calc($vol(master)/655.35)
  did -i aimp 5 1 Volume $+ $chr(32) $+ $round($calc($vol(master) / 65535 * 100),0) $+ %
  aimp_upd
  set %aimvteen std1
  if ($dde(mPlug,var_name) == $null) { /dialog -t aimp No Track | halt }
  /dialog -t aimp $dde(mPlug,var_name) ***
  set %aimp.name $replace($dde(mPlug,var_name),$chr(32),$chr(95))
  aimp.wait.first
  .timeraimpname 0 1 aimp.name
}

on *:DIALOG:aimp:close:*: {
  .timeraimpname off
  unset %aimvteen
}

dialog aimp {
  title "Aimp Player Controller"
  size -1 -1 241 19
  option dbu
  button "Play", 1, 21 7 19 10
  button "Next", 2, 59 7 19 10
  button "Prev", 3, 2 7 19 10
  button "Pause", 4, 40 7 19 10
  box "Volume", 5, 121 0 104 18
  box "Aimp Controller", 6, 1 0 78 18
  box "Other", 7, 80 0 40 18
  button "Track", 8, 81 7 19 10
  box "Track Tag", 9, 1 18 239 86
  button "Save", 10, 100 7 19 10, group
  edit "", 11, 3 26 167 10, read
  scroll "Volume", 14, 123 8 100 8, horizontal
  button "More", 15, 225 3 15 15
  text "kHz", 17, 89 93 24 8
  text "of", 19, 148 93 6 8
  text "Author", 20, 3 72 234 8
  text "Title", 21, 3 82 234 8
  box "Tag Info", 34, 1 64 239 40
  button "About", 23, 185 93 25 8
  text "total", 24, 155 93 25 8
  text "Text Label", 25, 3 46 234 15
  box "Track Patch", 26, 1 37 239 27
  text "size", 27, 215 27 24 8
  button "Close", 29, 212 93 25 8, cancel
  button "Select", 30, 4 93 25 8
  button "Search", 31, 31 93 25 8
  button "Reload", 32, 58 93 25 8
  text "Time", 12, 173 27 12 8
  text "Bitrate", 13, 187 27 20 8
  text "numer", 18, 121 93 25 8, right
}


on *:DIALOG:aimp:scroll:14: {
  vol -v $calc($did(14).sel * 655.35)
  did -i aimp 5 1 Volume $+ $chr(32) $+ $round($calc($vol(master) / 65535 * 100),0) $+ %
}

on *:DIALOG:aimp:sclick:*: {
  if ( $did == 1 ) { if (%aimp_play == no) { dde mPlug control play | set %aimp_play yes | did -ra aimp 1 Stop | halt } | dde mPlug control stop | set %aimp_play no | did -ra aimp 1 Play }
  if ( $did == 2 ) { dde mPlug control > }
  if ( $did == 3 ) { dde mPlug control < }
  if ( $did == 4 ) { writeini temp.ini client play no | dde mPlug control pause }
  if ( $did == 8 ) { ame 10слушает: [7 $+ $dde(mPlug,var_name) $+ 10] [kbps7 $dde(mPlug,var_br) $+ 10] [7 $did(aimp,12) 10] }
  if ( $did == 10 ) { var %ntr $readini temp.ini client ntr | var %ntp $calc(%ntr + 1) | } 
  if ( $did == 15 ) {
    var %sizex $dialog(aimp).x
    var %sizey $dialog(aimp).y
    aimp_updfull
    if (%aimvteen == std1) {
      set %aimvteen std2
      /did -ra aimp 15 More
      /dialog -s aimp %sizex %sizey 482 76   
      halt
    }
    if (%aimvteen == std2) {
      set %aimvteen wide1
      /dialog -s aimp %sizex %sizey 482 130
      /did -ra aimp 15 Full
      halt
    }
    if (%aimvteen == wide1) {
      set %aimvteen wide3
      /dialog -s aimp %sizex %sizey 482 210
      /did -ra aimp 15 Min
      halt
    }
    if (%aimvteen == wide3) {
      set %aimvteen std1
      /dialog -s aimp %sizex %sizey 482 38
      /did -ra aimp 15 More
      halt
    }
  }
  if ( $did == 32 ) { aimp_updfull }
}

alias aimp_upd {
  set %aimp_time $dde(mPlug,var_min)
  if ($left(%aimp_time,1) == 0) { set %aimp_time $right(%aimp_time,1) }
  var %aimp_ftime %aimp_time $+ $chr(58) $+ $dde(mPlug,var_sec)
  did -ra aimp 12 %aimp_ftime
  did -ra aimp 13 $dde(mPlug,var_br) $+ kbps
  did -ra aimp 11 $dde(mPlug,var_name)
  did -ra aimp 27 $dde(mPlug,var_fl) Mb
}

alias aimp.supd {
  if (%aimp.track == $dde(mPlug,var_name)) { set %aimp.track $dde(mPlug,var_name) | halt }
  /dialog -t aimp $dde(mPlug,var_name) *** | set %aimp.name $replace($dde(mPlug,var_name),$chr(32),$chr(95))
  aimp.wait.first
  set %aimp.track $dde(mPlug,var_name)
  aimp_upd
}

alias aimp.name {
  ;set %aimp.fn $replace(%aimp.name,$chr(95),$chr(32))
  dialog -t aimp $replace(%aimp.name,$chr(95),$chr(32))
  ;dialog -t aimp %aimp.name
  aimp.wait
}


alias aimp.wait.first {
  set %aimp.fs $left(%aimp.name,1)
  set %aimp.name $right(%aimp.name,$calc($len(%aimp.name) - 1)) $+ $chr(95) $+ *** $+ $chr(95) $+ %aimp.fs
  ;.timeraimpname 1 2 aimp.name
}

alias aimp.wait {
  set %aimp.fs $left(%aimp.name,1)
  set %aimp.name $right(%aimp.name,$calc($len(%aimp.name) - 1)) $+ %aimp.fs
  aimp.supd
  ;.timeraimpname 1 2 aimp.name
}

alias aimp_updfull {
  aimp_upd
  did -ra aimp 25 $dde(mPlug,var_fn)
  did -ra aimp 20 $dde(mPlug,var_1)
  did -ra aimp 21 $dde(mPlug,var_2)
  did -ra aimp 17 $dde(mPlug,var_sr) kHz
  did -ra aimp 18 $dde(mPlug,var_pos)
  did -ra aimp 24 $dde(mPlug,var_ll)
}

я немного обновил код - сделал бегущую строку... а так если кто то хахочет - могу и отдельный файл сделать - одно и то же почти

[TEHNIKS]

спасибо народ,плаигне gen.irc работаетр прекрасно! правда со скриптами я не парился! nirc.irc видимо уже заточен пот это дело!

[Slim]

gen_irc работает хорошо, спасибо Igorix за скрипт. Однако, даже при использовании AMIP, у меня русские теги отображаются непонятным набором символов, к примеру: !<5E - 0:4>=0;L4A. Что самое интересное, это распространяется только на теги заголовка песни и исполнителя. Все-таки, мне кажется, проблема не в плагине, а в AIMP'e. В линейке 1.x все было нормально...

[Igorix]

у меня кстати тоже нету русских символов

за скрипт незачто - я его делал для себя, то что он понравился - хорошо

[AimPhantom]

У меня стоит KVIrc,  я парился с этими плагинами: и с AMIP и с gen_irc, но так и не получилось нечего. Может я что-то делал неправильно. Подскажите что надо сделать чтоб в KVIrc отображалась играющая у меня песня....
В заранее спасибо...

[hakkar]

Юзаю скрипт /spam если кто знает чтолибо про него скажите почему у меня показывает номер песни в плейлисте? * hakkar Listens in AIMP ~ 68. Центр - Не на экспорт
А у тех каму я ставлю аимп и ставлю этотже скрипт не показывает =\ вроде бы уже всё перепробывал 

Вот кто вам нужен, его нужно положить в папку Plugins в AIMP=> gen_irc.dll
А также забиндить функцию отправки в чат информации о проигрываемой песне, в редакторе скриптов(Алиасы), допустим на клавишу F10:
F10 /me $dde(mPlug,format,"in_aimp:_%name_-_%4_-_[%min:%sec~m_%br~Kbps_%sr~KHz]")

Попробывал.. непоказывает

[hakkar]

Не нашол другова выхода, написал сам скрипт, работает отлично

alias mp3say {
  if $dll($scriptdirasmirc.dll,GetWAStatus,0) == Playing {
    var %Title = $dll($scriptdirasmirc.dll,GetWATitle,0)
    var %Bitrate = $dll($scriptdirasmirc.dll,GetWABitRate,0)
    var %SampleRate = $dll($scriptdirasmirc.dll,GetWASampleRate,0)
    var %mLen = $int($calc($dll($scriptdirasmirc.dll,GetWATrackLen,0)/60))
    var %mSec = $calc($dll($scriptdirasmirc.dll,GetWATrackLen,0) - (%mLen * 60))
    if (%mLen < 10) { set %mLen 0 $+ %mLen }
    if (%mSec < 10) { set %mSec 0 $+ %mSec }
    var %TrackLen = %mLen $+ : $+ %mSec
    set %mLen $int($calc($dll($scriptdirasmirc.dll,GetWATrackPos,0)/1000))
    set %mLen $int($calc(%mLen / 60))
    set %mSec $calc($int($calc($dll($scriptdirasmirc.dll,GetWATrackPos,0)/1000)) - (%mLen * 60))
    if (%mLen < 10) { set %mLen 0 $+ %mLen }
    if (%mSec < 10) { set %mSec 0 $+ %mSec }
    var %TrackPos = %mLen $+ : $+ %mSec
    /me  Listens in AIMP ~ %Title
  }
}

[logost]

Написал плагин, конвертирующий уникодные теги в win-1251.
код для mIRC:

Code: [Select]

alias Saysong {
   if ( $len( %AIMP.ALBUM ) > 0 ) {
    if ( $len( %AIMP.GENRE ) > 0 ) {
      /me in_aimp: %AIMP.AUTOR - $+([,%AIMP.ALBUM,]) - %AIMP.TITLE  $+([, $asctime( %AIMP.TIME,nn:ss),]) $+(/, %AIMP.GENRE ,/)
    }
    else {
      /me in_aimp: %AIMP.AUTOR - $+([,%AIMP.ALBUM,]) - %AIMP.TITLE  $+([, $asctime( %AIMP.TIME,nn:ss),])
    }
  }
  else {
    if ( $len( %AIMP.GENRE ) > 0 ) {
      /me in_aimp: %AIMP.AUTOR - %AIMP.TITLE  $+([, $asctime( %AIMP.TIME,nn:ss),]) $+(/, %AIMP.GENRE ,/)
    }
    else {
      /me in_aimp: %AIMP.AUTOR - %AIMP.TITLE  $+([, $asctime( %AIMP.TIME,nn:ss),])
    }
}Будет выглядеть так, взависимости от наличия соответствующих тегов:

*logost in_aimp: Соколиная Охота - [Славянская Хроника. Акустика] - "Разозлилась, Распечалилась Зима..." [04:30] /Folk Metal/
*logost in_aimp: Соколиная Охота - [Славянская Хроника. Акустика] - "Разозлилась, Распечалилась Зима..." [04:30]
*logost in_aimp: Соколиная Охота - "Разозлилась, Распечалилась Зима..." [04:30] /Folk Metal/
*logost in_aimp: Соколиная Охота - "Разозлилась, Распечалилась Зима..." [04:30]

В mIRC включить DDE Server с именем, как во вложении.