;-[nfo]--------------------------------;
;Script by dogg                        ;
;Modified by [c]                       ;
;--------------------------------------;
;Comments: aslscript@unoweb.net        ;
;--------------------------------------;
;Description:                          ;
;Same as dogg's version, except for the;
;slightly different msg, and a better  ;
;ignore IMHO. Script ignores user for  ;
;5 mins, all except for channel ignore,;
;which is, again IMHO, useless in this ;
;case. Think about it ;P               ;
;--------------------------------[c2k]-;


on 1:TEXT:*asl?:?:{
  set -u2 %stopasl.v1 %stopasl.v2 [ $+ [ $address ] ]
  if (%stopasl.v1 != done) {
    msg $nick BAH! Try visiting http://www.stopasl.com - You're now ignored. (Automated message - don't bother to reply.)
    ignore -pntiu300 $address
    window -c $nick
    set -u60 %stopasl.v2 $+ $address done
  }
}

on 1:TEXT:*asl?!:?:{
  set -u2 %stopasl.v1 %stopasl.v2 [ $+ [ $address ] ]
  if (%stopasl.v1 != done) {
    msg $nick stop asl'ing me! http://www.stopasl.com - NOW! - You're now ignored. (Automated message - don't bother to reply.)
    ignore -pntiu300 $address
    window -c $nick
    set -u60 %stopasl.v2 $+ $address done
  }
}

on 1:TEXT:*asl:?:{
  set -u2 %stopasl.v1 %stopasl.v2 [ $+ [ $address ] ]
  if (%stopasl.v1 != done) {
    msg $nick I HATE ASL!!!http://www.stopasl.com - NOW! - You're now ignored. (Automated message - don't bother to reply.)
    ignore -pntiu300 $address
    window -c $nick
    set -u60 %stopasl.v2 $+ $address done
  }
}

on 1:TEXT:*a/s/l*:?:{
  set -u2 %stopasl.v1 %stopasl.v2 [ $+ [ $address ] ]
  if (%stopasl.v1 != done) {
    msg $nick whatever! http://www.stopasl.com - NOW! - You're now ignored. (Automated message - don't bother to reply.)
    ignore -pntiu300 $address
    window -c $nick
    set -u60 %stopasl.v2 $+ $address done
  }
}