Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen gezeigt.
— |
nettalk:scripting:chansound [2006/05/12 17:19] (aktuell) 192.168.0.50 angelegt |
||
---|---|---|---|
Zeile 1: | Zeile 1: | ||
+ | ====== ChanSound ====== | ||
+ | Use **right-click > ChanSound** to add ore remove a channel. | ||
+ | |||
+ | <code vb> | ||
+ | #NewScriptBegin ChanSound | ||
+ | |||
+ | Dim HStr | ||
+ | |||
+ | Sub Load() | ||
+ | HStr=load("ChanSoundList") | ||
+ | MakeShortcut "ChanSound", "chansound", "/call AddRemChanSound $(room)", 1 | ||
+ | End Sub | ||
+ | |||
+ | Sub AddRemChanSound(Text) | ||
+ | i=InStr(1,HStr,"<"+lCase(Text)+">") | ||
+ | if i > 0 Then | ||
+ | HStr=Left(HStr,i-1)+Mid(HStr,i+len(Text)+2) | ||
+ | print "*** Chan removed" | ||
+ | else | ||
+ | HStr=HStr+"<"+lcase(Text)+">" | ||
+ | if len(HStr) > 1024 Then HStr=Right(HStr,1024) | ||
+ | print "*** Chan added" | ||
+ | end if | ||
+ | End Sub | ||
+ | |||
+ | Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID) | ||
+ | i=InStr(1,HStr,"<"+lCase(Channel)+">") | ||
+ | if i > 0 Then | ||
+ | if NotVisible = 1 Then | ||
+ | '** Play standard sound: | ||
+ | Beep 2 | ||
+ | '** Or Play an other wave-file: | ||
+ | 'PlayWave "C:\WINDOWS\Media\chimes.wav" | ||
+ | End if | ||
+ | End if | ||
+ | End Sub | ||
+ | |||
+ | Sub Unload() | ||
+ | save "ChanSoundList", HStr | ||
+ | End Sub | ||
+ | </code> |