Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:remotesounds [2007/12/08 16:54] (aktuell)
mirici angelegt
Zeile 1: Zeile 1:
 +======CTCP Sound für Nettalk=======
  
 +Mit ''/​sound USER FILENAME [TEXT]''​ können CTCP Sound Nachrichten versendet werden. Der Empfänger braucht ebenfalls dieses Script um die Nachrichten mit Nettalk zu empfangen.
 +
 +<code vb>
 +#​NewScriptBegin RemoteSounds
 +
 +Dim WaveFilePath
 +
 +Sub Load()
 +  'Bitte entsprechend anpassen:
 +  WaveFilePath = "​C:​\WINDOWS\Media\"​
 +
 +  MakeShortcut "",​ "​sound",​ "/call RemoteSounds.SendWPlay $1 $2 :​$>​2",​ 2
 +
 +  '​Beispiele für Contextmenü-Shortcuts:​
 +  MakeShortcut "​tada",​ "",​ "/call RemoteSounds.SendWPlay $1 tada.wav",​ 0
 +  MakeShortcut "​playstart",​ "",​ "/call RemoteSounds.SendWPlay $1 start.wav",​ 0
 +End Sub
 +
 +Sub SendWPlay(Dest,​ FileName, Text)
 +  PlayS GetVal(FrontConID,​ 5), FileName, Text
 +  SendText Chr(1) & "SOUND " & FileName & " " & Text & Chr(1), FrontConID, Dest
 +End Sub
 +
 +Sub PlayS(Nick, FileName, Text)
 +  if lcase(Right(FileName,​4)) <> "​.wav"​ Then FileName = FileName & "​.wav"​
 +  if len(Text)=0 ​ Then
 +    Print "- " & Nick & " plays " & FileName, 0, valcClientMsg
 +  else
 +    Print "- " & Nick & " " & Text & " (" & FileName & "​)",​ 0, valcClientMsg
 +  end if
 +  PlayWave WaveFilePath & FileName
 +End Sub
 +
 +Sub Serv_CTCP(CtcpType,​ Text, Nick, ConnID)
 +  if CtcpType = "​sound"​ Then
 +    i=InStr(1,​Text,"​ ")
 +    if i=0 then i=len(Text)+1
 +    PlayS Nick, Left(Text,​i-1),​ Mid(Text, i+1)
 +    SkipEvent
 +  end if
 +End Sub
 +</​code>​

Eigene Werkzeuge