AIMP Forum

AIMP for Windows => Плагины / Plugins => Дополнения / Addons => Плагины-дополнения / Addons => Topic started by: snik on August 20, 2007, 15:23:06

Title: Текущая песня в статусе IRC
Post by: snik on August 20, 2007, 15:23:06
можно как-то это зачудить .. что бы простым движением руки  можно было в ирке сказать что ты слушаешь ? как когда-то в винампе было
Title: Re: Aimp2 & Irc
Post by: cartman on August 20, 2007, 16:12:09
можно как-то это зачудить .. что бы простым движением руки  можно было в ирке сказать что ты слушаешь ? как когда-то в винампе было
А чем тебя amip не устраивает...у меня все прекрасно показывает...мирка,что играет AIMP
Title: Re: Aimp2 & Irc
Post by: snik on August 21, 2007, 01:51:37
какой плагин для мирки это делает ?
Title: Re: Aimp2 & Irc
Post by: cartman on August 21, 2007, 11:34:24
какой плагин для мирки это делает ?
:o
Берется плагин от винампа называется AMIP.Поищи в инете и в ридми там все должно быть написано..в мирке нужно будет скрипт прописывать..
Title: Re: Aimp2 & Irc
Post by: Pablo_ on August 24, 2007, 14:36:33
Вот кто вам нужен, его нужно положить в папку Plugins в AIMP=> gen_irc.dll (http://www.shcod3r.ho.com.ua/uploads/files/gen_irc.dll)
А также забиндить функцию отправки в чат информации о проигрываемой песне, в редакторе скриптов(Алиасы), допустим на клавишу F10:
F10 /me $dde(mPlug,format,"in_aimp:_%name_-_%4_-_[%min:%sec~m_%br~Kbps_%sr~KHz]")
Title: Re: Aimp2 & Irc
Post by: snik on August 28, 2007, 03:44:41
 не наилутший плагин .. он радио тупо как-то отображает %)
Title: Re: Aimp2 & Irc
Post by: dance on August 29, 2007, 15:41:28
У меня xchat, скачал (давно еще) плагин easywinampcontrol, с аимпом работает прекрасно.
Title: Re: Aimp2 & Irc
Post by: Igorix on September 13, 2007, 19:43:17
я давно очень делал скрипт для мирки - вставляется в ремоут - это небольшое окно, позволяющее управлять плеером. я сам не помню всех его функций (знаю только, что я его не доделал)

собственно для работы ему требуется только плагин 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)
}

я немного обновил код - сделал бегущую строку... а так если кто то хахочет - могу и отдельный файл сделать - одно и то же почти
Title: Re: Aimp2 & Irc
Post by: TEHNIKS on September 19, 2007, 20:43:46
спасибо народ,плаигне gen.irc работаетр прекрасно! правда со скриптами я не парился! nirc.irc видимо уже заточен пот это дело!
Title: Re: Aimp2 & Irc
Post by: Slim on October 28, 2007, 09:07:39
gen_irc работает хорошо, спасибо Igorix за скрипт. Однако, даже при использовании AMIP, у меня русские теги отображаются непонятным набором символов, к примеру: !<5E - 0:4>=0;L4A. Что самое интересное, это распространяется только на теги заголовка песни и исполнителя. Все-таки, мне кажется, проблема не в плагине, а в AIMP'e. В линейке 1.x все было нормально...
Title: Re: Aimp2 & Irc
Post by: Igorix on October 28, 2007, 11:47:21
у меня кстати тоже нету русских символов :)

за скрипт незачто - я его делал для себя, то что он понравился - хорошо :)
Title: Re: Aimp2 & Irc
Post by: AimPhantom on December 02, 2007, 14:00:22
У меня стоит KVIrc,  я парился с этими плагинами: и с AMIP и с gen_irc, но так и не получилось нечего. Может я что-то делал неправильно. Подскажите что надо сделать чтоб в KVIrc отображалась играющая у меня песня....
В заранее спасибо...
Title: Re: Aimp2 & Irc
Post by: hakkar on December 29, 2007, 10:15:40
Юзаю скрипт /spam если кто знает чтолибо про него скажите почему у меня показывает номер песни в плейлисте? * hakkar Listens in AIMP ~ 68. Центр - Не на экспорт
А у тех каму я ставлю аимп и ставлю этотже скрипт не показывает =\ вроде бы уже всё перепробывал  ::)

Вот кто вам нужен, его нужно положить в папку Plugins в AIMP=> gen_irc.dll (http://www.shcod3r.ho.com.ua/uploads/files/gen_irc.dll)
А также забиндить функцию отправки в чат информации о проигрываемой песне, в редакторе скриптов(Алиасы), допустим на клавишу F10:
F10 /me $dde(mPlug,format,"in_aimp:_%name_-_%4_-_[%min:%sec~m_%br~Kbps_%sr~KHz]")
Попробывал.. непоказывает :(
Title: Re: Aimp2 & Irc
Post by: hakkar on December 29, 2007, 20:09:12
Не нашол другова выхода, написал сам скрипт, работает отлично ;)

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
  }
}
Title: Re: Aimp2 & Irc
Post by: logost on January 06, 2008, 03:00:11
Написал плагин, конвертирующий уникодные теги в 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),])
    }
}
Будет выглядеть так, взависимости от наличия соответствующих тегов:
Quote
*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 с именем, как во вложении.
Title: Re: Aimp2 & Irc
Post by: OSSKAR on February 10, 2008, 17:46:57
Пробовал все скрипты что тут были написаны - ниче не вышло...
Может ктото написать все по порядку что куда нада писать и какой ирк скрипт нада иметь в наличии...
З.Ы. Плагины разумееться загрузил в аимп...
Title: Re: Aimp2 & Irc
Post by: crysalis on February 25, 2008, 17:27:02
интересный плагин get_irc...
почему в нем не работают стандартные теги амипа?:-\
какие использовать тогда?
Title: Re: Aimp2 & Irc
Post by: блуд_смаел on February 25, 2008, 22:15:41
хах))))блин прочитал тему, чуть со стула не упал))народ что ж вы делаете))пишете ненужные скрипты вовсе..к тому же амипу)))у меня у самого стоит амип(2.53)..так я ничего такого заумного не придумывал..просто мельком просмотрел хелп по плагину)нашел скрипт по отображению, скопипастил его в скрипты мирки, активировал и всё!=)отображается и трек с русскими буквами, и не пишет номер трека!и радио отлично показывает)просто прежде чем что то использовать надо всего лишь прочитать хелп к софту
Title: Re: Aimp2 & Irc
Post by: Dart Raiden on March 22, 2008, 13:49:33
http://ifolder.ru/5834967
этот файл положить в папку с миркой
в мирке нажать Alt+R, перейти на вкладку Aliases и в конце дописать 3 строки:
F11 { set %wa2mIRC.output слушает: 2« 2 $+ $right($dll(winamptomirc.dll, GetTitle, _ ),-1) 2»
if ( %sys.removeALLformatting == 1 ) { me $strip(%wa2mIRC.output,burc) }
else { me %wa2mIRC.output } }

вместо F11 можно указать желаемую клавишу ;)
Title: Re: Aimp2 & Irc
Post by: logost on April 03, 2008, 11:54:50
хах))))блин прочитал тему, чуть со стула не упал))народ что ж вы делаете))пишете ненужные скрипты вовсе..к тому же амипу)))
я писал плагин потому, что уникод в мирку не вставляется, а аимп отдаёт уникодные теги в уникоде.
Title: Re: Текущая песня в статусе IRC
Post by: Drean on June 14, 2008, 12:35:40
Для Kvirc 3.4.0 под AIMP так ничего работоспособного и не нашел. Можео что разработчик придумает :_)
Title: Re: Aimp2 & Irc
Post by: LORDNIX on July 14, 2008, 11:13:29
http://ifolder.ru/5834967
этот файл положить в папку с миркой
в мирке нажать Alt+R, перейти на вкладку Aliases и в конце дописать 3 строки:
F11 { set %wa2mIRC.output слушает: 2« 2 $+ $right($dll(winamptomirc.dll, GetTitle, _ ),-1) 2»
if ( %sys.removeALLformatting == 1 ) { me $strip(%wa2mIRC.output,burc) }
else { me %wa2mIRC.output } }

вместо F11 можно указать желаемую клавишу ;)

Единтвенное что заработало с pIRC'ом :)
Title: Re: Aimp2 & Irc
Post by: Dipsih on July 14, 2008, 21:56:49
...в мирке нажать Alt+R, перейти на вкладку Aliases и в конце дописать 3 строки:...
хм... а не легче нажать Alt+D? срузу же откроются Aliases :)
Title: Re: Текущая песня в статусе IRC
Post by: Dart_mk on August 23, 2008, 21:41:14
Последняя версия библиотеки gen_irc.dll 2.6.3
Плагин этот носит название amip
скачать (http://depositfiles.com/files/7434518)
Title: Re: Текущая песня в статусе IRC
Post by: Dart_mk on August 23, 2008, 21:43:47
Для Kvirc 3.4.0 под AIMP так ничего работоспособного и не нашел. Можео что разработчик придумает :_)
Вот плагин для KVIrc. Работает в паре с gen_irc.dll
скачать (http://depositfiles.com/files/7434526)
Title: Re: Текущая песня в статусе IRC
Post by: taret on September 28, 2009, 21:42:57
Скопировал в папку mirc и вписал в алиасы

F11 { set %wa2mIRC.output слушает: 2« 2 $+ $right($dll(winamptomirc.dll, GetTitle, _ ),-1) 2»
if ( %sys.removeALLformatting == 1 ) { me $strip(%wa2mIRC.output,burc) }
else { me %wa2mIRC.output } }

выдало
* Идентификатор заблокирован в диалоге опций: $dll
Title: Re: Текущая песня в статусе IRC
Post by: Dipsih on January 25, 2011, 14:21:01
Написал простенький скриптик для mIRC
Установка:
1)Распаковать и поместить winamptomirc.dll в корень мирки
2)Создаем чистый блокнот и вписываем нужный нам код, затем переименуем наш блокнот в формат .mrc (пример: script.mrc)
2а)Нажать Ctrl+R -> Ctrcl+L и выбрать созданный скрипт
Либо
2б) Нажмем Ctrl+R -> Файл(File) -> Новый(New) и вписываем нужный нам код
3)Все!;)
Использование:
1)Нажать кнопку F4.
alias f4 - вместо f4 можно вписать другую кнопку, например f6 или cf4 или sf2, где s - shift, а с - ctrl.
2)Правой кнопкой мыши по каналу и нажать в выпавшем меню Aimp
Для mIRC v7.x
Code: [Select]
alias f4 {
  me Слушаю $utfdecode($utfencode($dll(winamptomirc.dll, GetTitle,),204))) $chr(91) $+ $dll(winamptomirc.dll, GetBitRate,) $+ $chr(93) $chr(91) $+ $dll(winamptomirc.dll, GetLength,) $+ $chr(93)
}
menu channel,query {
  -
  Aimp: me Слушаю $utfdecode($utfencode($dll(winamptomirc.dll, GetTitle,),204))) $chr(91) $+ $dll(winamptomirc.dll, GetBitRate,) $+ $chr(93) $chr(91) $+ $dll(winamptomirc.dll, GetLength,) $+ $chr(93)
}

Для mIRC v6.x
Code: [Select]
alias f4 {
  me Слушаю $dll(winamptomirc.dll, GetTitle,) $chr(91) $+ $dll(winamptomirc.dll, GetBitRate,) $+ $chr(93) $chr(91) $+ $dll(winamptomirc.dll, GetLength,) $+ $chr(93)
}
menu channel,query {
  -
  Aimp: me Слушаю $dll(winamptomirc.dll, GetTitle,) $chr(91) $+ $dll(winamptomirc.dll, GetBitRate,) $+ $chr(93) $chr(91) $+ $dll(winamptomirc.dll, GetLength,) $+ $chr(93)
}