on $*:TEXT:/^!winamp(on|off)$/Si:#: wa_switch $regml(1)
[color:red] [/color]
alias wa_switch {
if $1 == off {
.comopen a WbemScripting.SWbemLocator
if $com(a) { .comclose a $com(a,ConnectServer,3, dispatch* b) }
if $com(b) { .comclose b $com(b,ExecQuery,3,string,SELECT Name FROM Win32_Process WHERE Name = "winamp.exe",dispatch* c) }
if $com(c) {
var %a = $com(c,Count,3)
while %a { .echo -q $comval(c,%a,Terminate) | dec %a }
}
.comclose c
}
else { run $shortfn(full path to winamp.exe) }
}