ChannelSound

#NewScriptBegin ChannelSound
 
Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID)
  'Nur abspielen wenn Nettalk minimiert ist:
  if NotVisible = 1 Then
 
    'Liste der Channels:
    ChanList="#Test #Nettalk #lobby"
 
    if InStr(1, " " + lCase(ChanList) + " ", " " + lCase(Channel) + " ") > 0 Then
 
      'WAVE-Datei abspielen:
      PlayWave "C:\WINDOWS\Media\notify.wav"
 
      'Text einblenden:
      ShowOsdMsg Text, Nick, FrameID
    End if
  End if
End Sub