-------------------------------------------------------------
ใส่ใน aliases
ตั้งใหม่ว่าชื่อว่า
[KILLSOUND]
-------------------------------------------------------------
if strlower($1) = 'callback' then
begin
case $2 of
'ads'
: begin
$symbol := '#';
$reason := 'advertise'
end;
'vbs'
: begin
$symbol := 'vbs';
$reason := 'virus send'
end;
'sound' :
begin
$symbol := '/';
$reason := ' 4,1 Don t 0Sound Bomb
'
end;
end;
if strpos($symbol,*5) = 0
then halt;
command ('/callback 319
[killsound]');
command ('/whois ',$3);
$nick := $3; $addr := $4;
end
else
begin
$info := *2; $code :=
strtoken($info); $i := strtoken($info);
$channels :=
dderequest('pirch','IRC_CHANNELS',$ddetag);
writeln (\16,*4);
while $channels <> ''
do
begin
$chan
:= strtoken($channels);
if
strpos ($chan,*5) <> 0 then
begin
{
command ('/chanserv op ',$chan,' ',$me);
}
$filename := 'c:\xdata.dat';
if fileexists($filename) then
begin
if fileread($filename,8,$count) then begin end
else writeln('unable to read a line in
',$filename)
end else writeln('unable to find file:
',$filename);
command ('/mode ',$chan,' +b ',$addr);
command ('/kick ',$chan,' ',$nick,'
',$reason,'');
command ('/timer ',$nick+$count,' 1 350 /mode
',$chan,' -b ',$addr)
end
end;
command ('/callback -d 319')
end;
---------------------------------------------------------
ใส่ใน event :
---------------------------------------------------------
SOUND:/runscript [Killsound] callback sound
$nick $address $1 | /display > $activewin \11
$+ $1 played by $nick $+ ! $+ $address |
|
 |
|
|
|
|
