Play Sound

Das Folgende Script zeigt wie man ausgewählten Usern einen individuellen Sound (für eingehende Query-Nachrichten, wenn Nettalk minimirt ist) zuordnen kann. Dafür muss der Nick (in Kleinbuchstaben!) und der Pfad zur abzuspielenden Wave-Datei angegeben werden. Die angegebene Datei muss natürlich auch wirklich an diesem Ort existieren. Soll z.B. bei einem Query von Hans die Datei „C:\WINDOWS\Media\tada.wav abgespielt werden, hat die Zeile so auszusehen: 

if lNick="hans" Then path="C:\WINDOWS\Media\tada.wav"

Das Script mit zwei Beispiel-Zeilen: 

#NewScriptBegin PlaySound
 
Sub Serv_Query(Text, Nick, FrameID, ConnID)
  if NotVisible = 1 Then
    lNick=lcase(Nick)
    if lNick="bla1" Then path="C:\Programme\Nettalk6\hallo.wav"
    if lNick="bla2" Then path="C:\Programme\Nettalk6\schüss.wav"
    '...
    if len(path)=0 Then path="C:\Programme\Nettalk6\Msg.wav"
    PlayWave path
  End if
End Sub
 
Sub Serv_Notice(Text, Nick, Receiver, ConnID)
  if left(Receiver,1)<>"#" Then Serv_Query Text, Nick, 0, ConnID
End Sub

Eigene Werkzeuge