Passendes Script für das Winamp-Plugin AMIP

Kleine Erklärung: Das Plugin AMIP für Winamp bekommt ihr unter http://amip.tools-for.net.

AMIP muss wie folgt in Winamp eingestellt werden:

Häckchen kommen bei: Enable AMIP; Enable hotkeys; Convert underscore to space

Beim Rest kommt kein Häckchen. Das sollten sogar die Voreinstellungen sein, die also einfach so übernehmen.

Nun zum Nettalk-Teil. Ersteinmal wird Nettalk geupdatet, falls ihr nicht die neuste Version habt. Dann geht ihr auf der oberen Schaltfläche auf „Script“ und dann auf „Bearbeiten“.

Nun kopiert ihr das unten aufgeführte Script und fügt es im Scriptfeld von Nettalk wieder ein. Danach startet ihr Winamp und das Nettalk Script (Script —> Script neu starten) und gebt im Textfeld von Nettalk /call Winamp.IntPlugin ein.

Jetzt sollte man mit F2 ganz einfach den Titel anzeigen lassen können und es gibt kein nerviges Channelgefloode, da der Titel nur auf Knopfdruck angezeigt wird.

Was nun letztendlich im Channel angezeigt werden soll wenn ihr F2 drückt ändert ihr in dieser Textzeile des Scripts:

RetString = “/me hört %name [%min:%sec~m/%br~Kbps/%sr~KHz]“

—

Lied einblenden mit F2, zusätzlich stehen folgende Befehle zur Verfügung: /waplay, /wastop, /wanext und /walast

Eingerichtet wird das Plugin automatisch mit dem Befehl:

/call Winamp.IntPlugin

Dazu muss das Plugin in Winamp laufen und das Script in Nettalk

#NewScriptBegin Winamp
 
Dim PlugInName
Dim RetString
 
Sub Load()
   PlugInName = "mPlug"
   RetString = "/me hört %name [%min:%sec~m/%br~Kbps/%sr~KHz]"
 
   MakeShortcut "", "dde", "/call Winamp.SendByDDE $1 $2 :$>2"
   MakeShortcut "", "waplay", "/call Winamp.SendWACom play"
   MakeShortcut "", "wastop", "/call Winamp.SendWACom pause"
   MakeShortcut "", "wanext", "/call Winamp.SendWACom >"
   MakeShortcut "", "walast", "/call Winamp.SendWACom <"
End Sub
 
Sub SendByDDE(Dest, Topic, Data)
  DdePoke Dest, Topic, Data
End Sub
 
Sub SendWACom(Com)
  DdePoke PlugInName, "control", Com
End Sub
 
Sub IntPlugin()
  'DDE-Server setzen:
  DdePoke PlugInName, "setdde", "Nettalk"
  'Nachricht definieren:
  DdePoke PlugInName, "set", "WINAMP " & RetString
End Sub
 
Sub KeyShortcut(KeyCode, Shift)
  '113 -> F2
  if KeyCode = 113 Then
    DdePoke PlugInName, "format", "WINAMPCALL " & RetString
    skipevent
  end if
End Sub
 
Sub RecvDDECmd(Data, Topic)
  if Ucase(left(Data, 7)) = "WINAMP " Then
    send Mid(Data, 8), FrontFrameID
  End if
  if Ucase(left(Data, 11)) = "WINAMPCALL " Then
    send Mid(Data, 12*2 + len(RetString)), FrontFrameID
  End if
  if left(Data, 9) = "/echo -s " Then
    Print "* Winamp: " & Mid(Data, 10), "", valcClientMsg
  End if
End Sub