// STOPASL.LIB - v2.0
// By MEGA
// Bugfixes by THEWeirdo

@l $StopASL = $messagedlg(36 This script will replace your current PRIVMSG/<PrivateMessage> Event $char(10) $char(10) Do you want to continue?)
if ([$StopASL] != [6])
MessageBox StopASL NOT installed.
Halt
Endif

if ([$scripthost] == [BIRC])

Event PRIVMSG "% PRIVMSG *"
//Modified to stop asl's.
if ($strpos(asl $lower($StrTrim($3-)))) || ($strpos(a/s/l $lower($StrTrim($3-))))
^msg $nick Stop asl'ing me!  See http://www.stopasl.com
Halt
endif

Halt if $isignoring($nick!$user@$host)
if ($ischannel($2))
  TextOut > $2 ecChanText <\b$nick\b>\t$strtrim($3-)
else if ($isquerying($nick)) || ($getsetting(usequery))
  TextOut > $nick ecQueryText <\b$nick\b>\t$strtrim($3-)
else
  TextOut ecPRIVMSG *\b$nick\b*\t$strtrim($3-)
endif
EndEvent

MessageBox StopASL script for birc installed.
else

Event <PrivateMessage> "* PRIVMSG *"
//Modified to stop asl's.

if ($strpos(asl $lower($StrTrim($3-)))) || ($strpos(a/s/l $lower($StrTrim($3-))))
^msg $nick Stop asl'ing me!  See http://www.stopasl.com
Halt
endif

if ($GetSetting(Options QueryEnabled)) || ($IsQuerying($nick))
   TextOut > $nick ecQueryText \b<$nick ($getaddress($nick))>\b \t$StrTrim($3-)
else
   TextOut ecPRIVMSG *\b$nick\b*\t$StrTrim($3-)
endif
EndEvent

MessageBox StopASL script for virc installed.
endif