amsg alias / another xmsg / anti amsg

[Cristian]

Code: Select all

;# 
;# visit http://sp00fed.org for updates or support.
;# script by Sumsar
;#

;# 
;# This script uses the theme from KTE if its loaded, otherwise it would use its own. 
;# If it uses its own theme and you dont like the current theme it can be changed.
;# 
;# the alias ::kte, checks if the KTE script is loaded.
;# the alias ::theme, is what you see when you type /amsg text.
;# the alias ::exclude, is where you put in the channels, where you dont want to send amsg's to. Seperated with comma.
;# the alias ::kte-file, is where you can change the kte-dyn file name, if it doesnt match your current one. 
;#
;# NOTE: If another amsg alias exists, then this script wont work. 
;#       You could change the name of the alias to ex. xmsg, just remember the name of the alias, when you do a amsg.
;# 
;# NOTE2: This script wont send messages to channels where chanmode T is set (Quakenet).

;# Tested and works on version 6.15

alias -l ::kte-file { return kte-dyn.mrc }
alias -l ::theme { return $+($chr(2),$chr(40),$chr(2),$1,$chr(2),$chr(41),$chr(2)) } 
alias -l ::exclude { return #takeover }

alias -l ::kte { var %x = $script(0),%f = 0 | while (%x) { if ($::kte-file == $nopath($script(%x))) { var %f = 1 } | dec %x } | return %f }
alias amsg {
  if ($1) {
    var %x = $comchan($me,0),%c
    while (%x) {
      if (!$istok($::exclude,$comchan($me,%x),44)) && (T !isincs $chan($comchan($me,%x)).mode) {
        var %c = $addtok(%c,$comchan($me,%x),44)
        if ($::kte) { set -u0 %:echo echo -ti2c own $comchan($me,%x) | $winter.text($me,$1-) }
        else { echo -ti2c own $comchan($me,%x) $::theme($me) $+(:,$1-) }
      }
      dec %x
    }
    .raw -q PRIVMSG %c : $+ $1-
  }
}