Archive for the ‘mIRC’ Category.

« Previous Entries

mirc.php for GeSHi

12th December 2007, 11:32 pm

Seems there were a minor issue with the mirc.php file from GeSHi causing all code entries set to be parsed as mIRC scripts to stop with an error. Fixed (or rather made a dirty hack) it so my mIRC scripts once again could be highlighted :)

<?php
/*************************************************************************************
 * mirc.php
 * -----
 * Author: Alberto 'Birckin' de Areba (Birckin@hotmail.com)
 * Copyright: (c) 2006 Alberto de Areba
 * Release Version: 1.0.7.20
 * Date Started: 2006/05/29
 *
 * mIRC Scripting language file for GeSHi.
 *
 * CHANGES
 * -------
 * 2006/05/29 (1.0.0)
 *   -  First Release
 *
 * 2007/12/12 (1.0.1) - Brian Schmidt Pedersen
 *   -  Removed the forward slash from all mIRC keywords, since in actual
 *       mIRC scripts, they're often written without the slash.
 *   -  Entry 6 (timer parsing) under REGEXPS caused GeSHi to halt with an error
 *       simple solution was to remove the slash(es)
 *
 *************************************************************************************
 *
 *     This file is part of GeSHi.
 *
 *   GeSHi is free software; you can redistribute it and/or modify
 *   it under the terms of the GNU General Public License as published by
 *   the Free Software Foundation; either version 2 of the License, or
 *   (at your option) any later version.
 *
 *   GeSHi is distributed in the hope that it will be useful,
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *   GNU General Public License for more details.
 *
 *   You should have received a copy of the GNU General Public License
 *   along with GeSHi; if not, write to the Free Software
 *   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 ************************************************************************************/

$language_data = array (
    'LANG_NAME' => 'mIRC Scripting',
    'COMMENT_SINGLE' => array(1 => ';'),
    'COMMENT_MULTI' => array(),
    'CASE_KEYWORDS' => GESHI_CAPS_NO_CHANGE,
    'QUOTEMARKS' => array(),
    'ESCAPE_CHAR' => '',
    'KEYWORDS' => array(
        1 => array(
            'alias', 'menu', 'dialog'
        ),
        2 => array(
            'if', 'elseif', 'else', 'while', 'return', 'goto'
        ),
        3 => array(
            'action', 'ajinvite', 'alias', 'aline', 'amsg', 'ame', 'anick', 'aop',
            'auser', 'avoice', 'auto', 'autojoin', 'away', 'background', 'ban',
            'beep', 'channel', 'clear', 'clearall', 'clipboard', 'close',
            'closemsg', 'color', 'copy', 'creq', 'ctcp', 'ctcpreply', 'ctcps',
            'dcc', 'dde', 'ddeserver', 'debug', 'describe', 'disable',
            'disconnect', 'dlevel', 'dll', 'dns', 'dqwindow', 'ebeeps', 'echo',
            'editbox', 'emailaddr', 'enable', 'events', 'exit', 'filter',
            'findtext', 'finger', 'flash', 'flood', 'flush', 'flushini',
            'font', 'fsend', 'fserve', 'fullname', 'ghide', 'gload', 'gmove',
            'gopts', 'gplay', 'gpoint', 'gqreq', 'groups', 'gshow', 'gsize',
            'gstop', 'gtalk', 'gunload', 'guser', 'halt', 'haltdef', 'help', 'hop', 'ignore',
            'inc', 'invite', 'join', 'kick', 'linesep', 'links', 'list', 'load',
            'loadbuf', 'localinfo', 'log', 'me', 'mdi', 'mkdir', 'mnick',
            'mode', 'msg', 'names', 'nick', 'noop', 'notice', 'notify',
            'omsg', 'onotice', 'part', 'partall', 'pdcc', 'perform', 'ping',
            'play', 'pop', 'protect', 'pvoice', 'qmsg', 'qme', 'query',
            'queryrn', 'quit', 'raw', 'remini', 'remote', 'remove', 'rename',
            'renwin', 'resetidle', 'rlevel', 'rmdir', 'run', 'ruser', 'save',
            'savebuf', 'save', 'saveini', 'say', 'server', 'set', 'showmirc', 'sline',
            'sound', 'speak', 'splay', 'sreq', 'strip', 'time',
            'timers', 'timestamp', 'titlebar', 'tnick', 'tokenize', 'topic',
            'ulist', 'unload', 'updatenl', 'url', 'uwho', 'var', 'window', 'winhelp',
            'write', 'writeini', 'who', 'whois', 'whowas'
        )
    ),
    'SYMBOLS' => array(
        '(', ')', '{', '}', '[', ']', '|'
    ),
    'CASE_SENSITIVE' => array(
        GESHI_COMMENTS => true,
        1 => false,
        2 => false
    ),
    'STYLES' => array(
        'KEYWORDS' => array(
            1 => 'color: #994444;',
            2 => 'color: #000000; font-weight: bold;',
            3 => 'color: #990000; font-weight: bold;'
        ),
        'COMMENTS' => array(
            1 => 'color: #808080; font-style: italic;'
        ),
        'ESCAPE_CHAR' => array(),
        'BRACKETS' => array(
            0 => 'color: #FF0000;'
        ),
        'STRINGS' => array(),
        'NUMBERS' => array(
            0 => ''
        ),
        'METHODS' => array(),
        'SYMBOLS' => array(
            0 => 'color: #FF0000;'
        ),
        'REGEXPS' => array(
            0 => 'color: #000099;',
            1 => 'color: #990000;',
            2 => 'color: #888800;',
            3 => 'color: #888800;',
            4 => 'color: #000099;',
            5 => 'color: #000099;',
            6 => 'color: #990000; font-weight: bold;'
        ),
        'SCRIPT' => array()
    ),
    'URLS' => array(
        1 => '',
        2 => '',
        3 => '',
        4 => ''
    ),
    'OOLANG' => false,
    'OBJECT_SPLITTERS' => array(),
    'REGEXPS' => array(
        0 => '\$[^$][^ ,\(\)]*',
        1 => '(%|&).+?[^ ,\)]*',
        2 => '(#|@).+?[^ ,\)]*',
        3 => '-[a-z\d]+',
        4 => '(on|ctcp) (!|@|&)?(\d|\*):[a-zA-Z]+:',
        /*
        4 => array(
            GESHI_SEARCH => '((on|ctcp) (!|@|&)?(\d|\*):(Action|Active|Agent|AppActive|Ban|Chat|Close|Connect|Ctcp|CtcpReply|DccServer|DeHelp|DeOp|DeVoice|Dialog|Dns|Error|Exit|FileRcvd|FileSent|GetFail|Help|Hotlink|Input|Invite|Join|KeyDown|KeyUp|Kick|Load|Logon|MidiEnd|Mode|Mp3End|Nick|NoSound|Notice|Notify|Op|Open|Part|Ping|Pong|PlayEnd|Quit|Raw|RawMode|SendFail|Serv|ServerMode|ServerOp|Signal|Snotice|Start|Text|Topic|UnBan|Unload|Unotify|User|Mode|Voice|Wallops|WaveEnd):)',
            GESHI_REPLACE => '\\1',
            GESHI_MODIFIERS => 'i',
            GESHI_BEFORE => '',
            GESHI_AFTER => ''
        ),
        */
        5 => 'raw (\d|\*):',
        6 => 'timer(?!s\b)[0-9a-zA-Z_]+'
    ),
    'STRICT_MODE_APPLIES' => GESHI_NEVER,
    'SCRIPT_DELIMITERS' => array(),
    'HIGHLIGHT_STRICT_BLOCK' => array()
);
?>
Category: Code, PHP, mIRC  |  Comment

antispam.mrc - Block spammers

20th June 2007, 11:19 am
;;;; 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-
}
Category: Code, mIRC  |  Comment

age.mrc - Calculate Your Age

20th June 2007, 11:18 am
;;;; 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 $+ .
}
Category: Code, mIRC  |  Comment

csize.mrc - Convert Size

20th June 2007, 11:17 am
;;;; 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
  }
}
Category: Code, mIRC  |  Comment

everyone.mrc - Greet everyone in a channel

20th June 2007, 11:16 am
;;;; 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
}
Category: Code, mIRC  |  Comment
« Previous Entries