Brian’s Blog

;;;; Anti Spam v1.0.0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Written by:                                                                ;;
;;   Brian Schmidt aka. brianMan aka. b|man.                                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Readme / Help ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Load this script in mIRC, if you don't know how to do this, then perhaps   ;;
;; you shouldn't be using this script.                                        ;;
;;                                                                            ;;
;; Very simple spamblocking script, blocks private message if they contain a  ;;
;; word (usually urls) that are stored in it's dbfile.                        ;;
;;                                                                            ;;
;; Right click in a query window, or click the custom menu in the menubar to  ;;
;; configure it/enable it.                                                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Changelog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; v1.0.0                                                                     ;;
;; + Initial release.                                                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Make sure the variable, with the file containing the list of blocked strings
;; are set at script start.
on *:START:{
  set %_antispam_dbfile spamdb.txt
  echo -tc info *** Anti-Spam by Brian Schmidt loaded..
}


alias antispam {
  if ($1 == add || $1 == a) {
    if (!$read(%_antispam_dbfile,w,$$2)) {
      write %_antispam_dbfile $encode($$2)
      echo -tac info *** Adding $$2 to %_antispam_dbfile
    }
    else {
      echo -tac info *** $$2 allready in %_antispam_dbfile
    }
  }
  elseif ($1 == remove || $1 == rem || $1 == r || $1 == delete || $1 == del || $1 == d) {
    if ($read(%_antispam_dbfile,w,$encode($$2))) {
      write -dw $encode($$2) %_antispam_dbfile
      echo -tac info *** Removed $$2 from %_antispam_dbfile
    }
    else {
      echo -tac info *** $$2 not in %_antispam_dbfile
    }
  }
  elseif ($1 == check || $1 == c) {
    if (%_antispam_status != $null && %_antispam_status != 0 && %_antispam_status != off) {
      var %i 1
      while (%i <= $numtok($2-,32)) {
        if ($read(%_antispam_dbfile,w,$encode($gettok($2-,%i,32)))) {
          if ($line($nick,0) == 0) {
            window -c $window($nick)
          }
          halt
        }
        inc %i
      }
    }
  }
  elseif ($1 == status) {
    if ($2 == 1 || $2 == on) {
      set %_antispam_status 1
      echo -tac info *** Anti-Spam enabled.
    }
    elseif ($2 == 0 || $2 == off) {
      set %_antispam_status 0
      echo -tac info *** Anti-Spam disabled.
    }
  }
  elseif ($1 == list || $1 == l) {
    window -dClk0 @Anti-Spam
    var %c = $lines(%_antispam_dbfile)
    if (%c > 0) {
      var %i = 1
      while (%i <= %c) {
        aline -p @Anti-Spam $decode($read(%_antispam_dbfile,t,%i))
        inc %i
      }
    }
  }
}

;; The popup menus.
menu query,menubar {
  -
  Anti-Spam
  .$iif(%_antispam_status == 0 || %_antispam_status == $null,Enable):antispam status on
  .$iif(%_antispam_status == 1,Disable):antispam status off
  .Configure:antispam list
  -
}
menu @Anti-Spam {
  dclick:if ($input(Delete $line(@Anti-Spam,$1),y,Confirm delete)) { antispam rem $line(@Anti-Spam,$1) | dline @Anti-Spam $1 }
  Add..:var %antispam_tmp_add $input(Add spamline,e) | antispam add %antispam_tmp_add | aline @Anti-Spam %antispam_tmp_add
}

;; Catch all (private) text and check it for spam.
on ^&*:TEXT:*:?:{
  antispam check $1-
}
on ^&*:ACTION:*:?:{
  antispam check $1-
}

;;;; My Age v1.1.0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Written by:                                                                ;;
;;   Brian Schmidt aka. brianMan.                                             ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Readme / Help ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Load this script in mIRC, if you don't know how to do this, then perhaps   ;;
;; you shouldn't be using this script.                                        ;;
;;                                                                            ;;
;; Simple script to tell how old you are in seconds, or minutes etc.          ;;
;;                                                                            ;;
;; Commands available:                                                        ;;
;;   /myage                                                                   ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Changelog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; v1.1.0                                                                     ;;
;; + Added possibility to only say your age in one format (hour/sec etc.).    ;;
;; * Changed the actual trigger alias from /age to /myage. The age alias is   ;;
;;   only used as an identifier that returns the value to the calling script. ;;
;; + Will now ask for your birthdate when run, if it isn't set. Then store it ;;
;;   in a variable for later use.
;;                                                                            ;;
;; v1.0.0                                                                     ;;
;; + Initial release.                                                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias age {
  var %unix = $ctime($$1-)
  var %now = $ctime
  var %seconds = $calc( %now - %unix )
  var %minutes = $calc( %seconds / 60 )
  var %hours = $calc( %minutes / 60 )
  var %days = $calc( %hours / 24 )
  var %weeks = $calc( %days / 7 )
  var %years = $calc( %days / 365.22222222222 )
  var %months = $calc( %years * 12 )

  if ($prop == seconds) return %seconds
  elseif ($prop == minutes) return %minutes
  elseif ($prop == hours) return %hours
  elseif ($prop == days) return %days
  elseif ($prop == weeks) return %weeks
  elseif ($prop == months) return %months
  elseif ($prop == years) return %years
  else return %years
}

alias myage {
  if (%myage.birthday == $null || $1 == set) {
    set %myage.birthday $$input(What is your birth date? $+ $crlf $+ Example: $+ $crlf 13.12.1976 23:59:59,e,Birth date?)
  }
  if ($1 == sec) msg $active I am $age(%myage.birthday).seconds seconds old.
  elseif ($1 == min || $1 == minute || $1 == minutes) msg $active I am $age(%myage.birthday).minutes minutes old.
  elseif ($1 == hrs || $1 == hour || $1 == hours) msg $active I am $age(%myage.birthday).hours hours old.
  elseif ($1 == day || $1 == days) msg $active I am $age(%myage.birthday).days days old.
  elseif ($1 == wek || $1 == week || $1 == weeks) msg $active I am $age(%myage.birthday).weeks weeks old.
  elseif ($1 == mth || $1 == month || $1 == months) msg $active I am $age(%myage.birthday).months months old.
  elseif ($1 == yrs || $1 == year || $1 == years) msg $active I am $age(%myage.birthday).years years old.
  else msg $active My age in: Seconds: $age(%myage.birthday).seconds $+ . Minutes: $age(%myage.birthday).minutes $+ . Hours: $age(%myage.birthday).hours $+ . Days: $age(%myage.birthday).days $+ . Weeks: $age(%myage.birthday).weeks $+ . Months: $age(%myage.birthday).months $+ . Years: $age(%myage.birthday).years $+ .
}

;;;; Convert Size v1.1.0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Written by:                                                                ;;
;;   Brian Schmidt aka. brianMan.                                             ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Readme / Help ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Load this script in mIRC, if you don't know how to do this, then perhaps   ;;
;; you shouldn't be using this script.                                        ;;
;;                                                                            ;;
;; This script is used to convert size in bytes to a nice to KB/MB/GB etc.    ;;
;;                                                                            ;;
;; There are 2 ways to use this scripts:                                      ;;
;; 1. Message to active window with /csize:                                   ;;
;;      "/csize /csize 54653875238"                                           ;;
;;    Will output:                                                            ;;
;;      "50.9 GB"                                                             ;;
;; 2. Can also be used for in-line reverse with $rev in scripts etc.          ;;
;;      "//echo -a Converting 54653875238 bytes to $csize(54653875238).ext    ;;
;;       gives $csize(54653875238) $csize(54653875238).ext"                   ;;
;;    Will output:                                                            ;;
;;      "Converting 54653875238 bytes to GB gives 50.900388 GB"               ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Changelog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; v1.1.1                                                                     ;;
;; * Fixed $csize().ext always returning YiB                                  ;;
;;                                                                            ;;
;; v1.1.0                                                                     ;;
;; + Added posiblitiy to convert to a specific type with identifiers.         ;;
;;   $csize(50000000) returns 47.683716 (MiB)                                 ;;
;;   $csize(50000000).gib returns 0.046566 (GiB)                              ;;
;;   This can't be done with the "b" property, wich is also irrelevant, since ;;
;;   the Bytes is allready what you have.                                     ;;
;;                                                                            ;;
;; v1.0.0                                                                     ;;
;; + Initial release.                                                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias csize {
  if ($len($$1) <= 3) {
    var %csize $$1
    var %csize.ext B
  }
  if ($len($$1) > 3 || ($prop != $null && $prop == kib)) {
    var %csize $calc( $$1 / 1024 )
    var %csize.ext KiB
    if ($prop == kib) return %csize
  }
  if ($len($$1) > 6 || ($prop != $null && $prop == mib)) {
    var %csize $calc( %csize / 1024 )
    var %csize.ext MiB
    if ($prop == mib) return %csize
  }
  if ($len($$1) > 9 || ($prop != $null && $prop == gib)) {
    var %csize $calc( %csize / 1024 )
    var %csize.ext GiB
    if ($prop == gib) return %csize
  }
  if ($len($$1) > 12 || ($prop != $null && $prop == tib)) {
    var %csize $calc( %csize / 1024 )
    var %csize.ext TiB
    if ($prop == tib) return %csize
  }
  if ($len($$1) > 15 || ($prop != $null && $prop == pib)) {
    var %csize $calc( %csize / 1024 )
    var %csize.ext PiB
    if ($prop == pib) return %csize
  }
  if ($len($$1) > 18 || ($prop != $null && $prop == eib)) {
    var %csize $calc( %csize / 1024 )
    var %csize.ext EiB
    if ($prop == eib) return %csize
  }
  if ($len($$1) > 21 || ($prop != $null && $prop == zib)) {
    var %csize $calc( %csize / 1024 )
    var %csize.ext ZiB
    if ($prop == zib) return %csize
  }
  if ($len($$1) > 24 || ($prop != $null && $prop == yib)) {
    var %csize $calc( %csize / 1024 )
    var %csize.ext YiB
    if ($prop == yib) return %csize
  }
  if ($isid == $true) {
    if ($prop == ext) {
      return %csize.ext
    }
    return %csize
  }
  else {
    msg $active $round(%csize,2) %csize.ext
  }
}

;;;; Everyone v1.0.0 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Written by:                                                                ;;
;;   Brian Schmidt aka. brianMan.                                             ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Readme / Help ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Load this script in mIRC, if you don't know how to do this, then perhaps   ;;
;; you shouldn't be using this script.                                        ;;
;;                                                                            ;;
;; Return all nicks (except your own) for use in fun/annoying scripts.        ;;
;;                                                                            ;;
;; Identifiers available:                                                     ;;
;;   $everyone                                                                ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;; Changelog ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; v1.0.0                                                                     ;;
;; + Initial release.                                                         ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias everyone {
  var %i = 1
  var %c = 0
  var %total = $nick($chan,0)
  while (%i <= %total) {
    if (%i < %total) var %seperator = , $chr(32)
    else var %seperator = $chr(32) and $chr(32)
    if ($nick($chan,%i) != $me) {
      if (%c == 0) var %out = $nick($chan,%i)
      else var %out = %out $+ %seperator $+ $nick($chan,%i)
      inc %c
    }
    inc %i
  }
  return %out
}