Misc snippets Latest Topics

channelstats

Sun, 01 Jun 2025 14:35:48 +0000

> ;**********************************
;Type in /chanstats
;Make sure active window is a channel
;************************************

alias chanstats {
  if ($active == $chan) {
    var %c = $chan
    echo -a $str(=,50)
    echo -a Channel Statistics for %c / Mode: $chan(%c).mode
    echo -a Total Users: $nick(%c,0) / $iif($chan(%c).limit,$chan(%c).limit,No Limit Set)
    echo -a Op(s): $nick(%c,0,o) 
    echo -a Halfop(s): $nick(%c,0,h) 
    echo -a Voice(s): $nick(%c,0,v) 
    echo -a Regular(s): $nick(%c,0,r) 
    echo -a $str(=,50)
  }
  else { echo -a Current active window is not a channel! }
}

<

Color Talker v1.1

Sun, 01 Jun 2025 01:11:55 +0000

; Color Talker v1.1 - by entropy 2018
; Only use this script on channels where you are chan op! (or you might get banned)
 
menu channel {
  -
  Color Talker $chr(9) $+([,$iif($group(#talker).status == on,On,Off),])
  .Turn $iif($group(#talker).status == on,Off,On) { $iif($group(#talker).status == on,.disable,.enable) #talker | echo -a * Color Talker is now: $iif($group(#talker).status == on,On,Off) }
  .-
  .Color $chr(9) $+([,%color,])
  ..Color 00 (White) { %color = 00 | mymsg %color }
  ..Color 01 (Black) { %color = 01 | mymsg %color }
  ..Color 02 (Navy) { %color = 02 | mymsg %color }
  ..Color 03 (Green) { %color = 03 | mymsg %color }
  ..Color 04 (Red) { %color = 04 | mymsg %color }
  ..Color 05 (Brown) { %color = 05 | mymsg %color }
  ..Color 06 (Purple) { %color = 06 | mymsg %color }
  ..Color 07 (Orange) { %color = 07 | mymsg %color }
  ..Color 08 (Yellow) { %color = 08 | mymsg %color }
  ..Color 09 (Light Green) { %color = 09 | mymsg %color }
  ..Color 10 (Teal) { %color = 10 | mymsg %color }
  ..Color 11 (Light Blue) { %color = 11 | mymsg %color }
  ..Color 12 (Blue) { %color = 12 | mymsg %color }
  ..Color 13 (Pink) { %color = 13 | mymsg %color }
  ..Color 14 (Dark Grey) { %color = 14 | mymsg %color }
  ..Color 15 (Grey) { %color = 15 | mymsg %color }
  -
}
alias mymsg {
  if ($1 == 00) { echo -a * Color: 00 - White }
  if ($1 == 01) { echo -a * Color: 01 - Black }
  if ($1 == 02) { echo -a * Color: 02 - Navy }
  if ($1 == 03) { echo -a * Color: 03 - Green }
  if ($1 == 04) { echo -a * Color: 04 - Red }
  if ($1 == 05) { echo -a * Color: 05 - Brown }
  if ($1 == 06) { echo -a * Color: 06 - Purple }
  if ($1 == 07) { echo -a * Color: 07 - Orange }
  if ($1 == 08) { echo -a * Color: 08 - Yellow }
  if ($1 == 09) { echo -a * Color: 09 - Light Green }
  if ($1 == 10) { echo -a * Color: 10 - Teal }
  if ($1 == 11) { echo -a * Color: 11 - Light Blue }
  if ($1 == 12) { echo -a * Color: 12 - Blue }
  if ($1 == 13) { echo -a * Color: 13 - Pink }
  if ($1 == 14) { echo -a * Color: 14 - Dark Grey }
  if ($1 == 15) { echo -a * Color: 15 - Grey }
}
#talker off
on *:input:*:{
  if (/* !iswm $1) {
    var %c = $+($chr(3),%color,$1-,$chr(3))
    !msg $target $iif(c isincs $chan($target).mode,$strip(%c),%c)
    halt
  }
}
#talker end
; Color Talker v1.1 - by entropy 2018
; Only use this script on channels where you are chan op! (or you might get banned)

menu channel {
  -
  Color Talker $chr(9) $+([,$iif($group(#talker).status == on,On,Off),])
  .Turn $iif($group(#talker).status == on,Off,On) { $iif($group(#talker).status == on,.disable,.enable) #talker | echo -a * Color Talker is now: $iif($group(#talker).status == on,On,Off) }
  .-
  .Color $chr(9) $+([,%color,])
  ..Color 00 (White) { %color = 00 | mymsg %color }
  ..Color 01 (Black) { %color = 01 | mymsg %color }
  ..Color 02 (Navy) { %color = 02 | mymsg %color }
  ..Color 03 (Green) { %color = 03 | mymsg %color }
  ..Color 04 (Red) { %color = 04 | mymsg %color }
  ..Color 05 (Brown) { %color = 05 | mymsg %color }
  ..Color 06 (Purple) { %color = 06 | mymsg %color }
  ..Color 07 (Orange) { %color = 07 | mymsg %color }
  ..Color 08 (Yellow) { %color = 08 | mymsg %color }
  ..Color 09 (Light Green) { %color = 09 | mymsg %color }
  ..Color 10 (Teal) { %color = 10 | mymsg %color }
  ..Color 11 (Light Blue) { %color = 11 | mymsg %color }
  ..Color 12 (Blue) { %color = 12 | mymsg %color }
  ..Color 13 (Pink) { %color = 13 | mymsg %color }
  ..Color 14 (Dark Grey) { %color = 14 | mymsg %color }
  ..Color 15 (Grey) { %color = 15 | mymsg %color }
  -
}
alias mymsg {
  if ($1 == 00) { echo -a * Color: 00 - White }
  if ($1 == 01) { echo -a * Color: 01 - Black }
  if ($1 == 02) { echo -a * Color: 02 - Navy }
  if ($1 == 03) { echo -a * Color: 03 - Green }
  if ($1 == 04) { echo -a * Color: 04 - Red }
  if ($1 == 05) { echo -a * Color: 05 - Brown }
  if ($1 == 06) { echo -a * Color: 06 - Purple }
  if ($1 == 07) { echo -a * Color: 07 - Orange }
  if ($1 == 08) { echo -a * Color: 08 - Yellow }
  if ($1 == 09) { echo -a * Color: 09 - Light Green }
  if ($1 == 10) { echo -a * Color: 10 - Teal }
  if ($1 == 11) { echo -a * Color: 11 - Light Blue }
  if ($1 == 12) { echo -a * Color: 12 - Blue }
  if ($1 == 13) { echo -a * Color: 13 - Pink }
  if ($1 == 14) { echo -a * Color: 14 - Dark Grey }
  if ($1 == 15) { echo -a * Color: 15 - Grey }
}
#talker off
on *:input:*:{
  if (/* !iswm $1) {
    var %c = $+($chr(3),%color,$1-,$chr(3))
    !msg $target $iif(c isincs $chan($target).mode,$strip(%c),%c)
    halt
  }
}
#talker end
Clipboard

mIRC Automated Execution Script v1.1.0

Sun, 01 Jun 2025 01:10:31 +0000

/*
** mIRC Automated Execution Script v1.1.0
** 
** Author: Sierra Brown [ SierraKomodo ]
** Website: https://gist.github.com/SierraKomodo/18c877055a49629758260d0690bc9ba6
** IRC: SierraKomodo @ irc.freenode.net
**
** Provides some better control over automated functions to occur when you start mirc, connect to a 
**  server, or join a channel. Everything is stored into separated .ini files stored in
**  scripts/config by default (Change the global variable %glo.ConfigPath to set a new location - 
**  Make sure the folder exists.)
**
** Refer to the example entries in the autoconnect, autocommand, and autojoin ini files.
**
** Implemented features:
**  * Auto connect on start, including delayed autoconnections, support for multiple servers, and 
**     full support for most features of the /server command
**  * Auto join on connection to server, including delayed auto joins and support for channel keys
**  * Auto command on connection to server, allowing executing any IRC commands - Essentially runs 
**      /raw command here
*/

; INI file paths
alias -l locGlobalConfig return $+(%glo.ConfigPath, autoexec.ini)
alias -l locGlobalConfig.AutoConnect return $+(%glo.ConfigPath, autoexec-autoconnect.ini)

alias -l locServerConfig return $+(%glo.ConfigPath, $network, /autoexec.ini)
alias -l locServerConfig.AutoJoin return $+(%glo.ConfigPath, $network, /autoexec-autojoin.ini)
alias -l locServerConfig.AutoCommand return $+(%glo.ConfigPath, $network, /autoexec-autocommand.ini)

alias -l locChannelConfig return $+(%glo.ConfigPath, $iif($2, $2, $network), /, $iif($1, $1, $chan), /autoexec.ini)

alias -l locError return $+(%glo.ConfigPath, error.log)

on *:START: {
    if (%glo.ConfigPath == $null) {
        mkdir scripts
        mkdir scripts/config
        var -g %glo.ConfigPath = scripts/config/
    }
    
    
    ; Write default config entries/generate files
    if ($readini($locGlobalConfig, n, Config, bAutoConnect) == $null) {
        writeini $locGlobalConfig Config bAutoConnect 0
    }
    if ($readini($locGlobalConfig, n, Config, iAutoConnectDelay) == $null) {
        writeini $locGlobalConfig Config iAutoConnectDelay 5
    }
    if ($readini($locGlobalConfig, n, Config, sAutoConnectList) == $null) {
        writeini $locGlobalConfig Config sAutoConnectList ExampleServer
        writeini $locGlobalConfig.AutoConnect ExampleServer sAddress irc.example.com
        writeini $locGlobalConfig.AutoConnect ExampleServer iPort 6667
        writeini $locGlobalConfig.AutoConnect ExampleServer sPassword Password
        writeini $locGlobalConfig.AutoConnect ExampleServer bSSL 0
        writeini $locGlobalConfig.AutoConnect ExampleServer sNick Nickname
        writeini $locGlobalConfig.AutoConnect ExampleServer sAltNick Alternate Nickname
        writeini $locGlobalConfig.AutoConnect ExampleServer sRealName Real Name
        writeini $locGlobalConfig.AutoConnect ExampleServer sIdent Ident
        writeini $locGlobalConfig.AutoConnect ExampleServer iDelay 5
    }
    
    ; Auto Connect
    if (($readini($locGlobalConfig, n, Config, bAutoConnect)) && ($readini($locGlobalConfig, n, Config, sAutoConnectList) != $null)) {
        ; If autoconnect global delay is set, delay auto connection by X seconds - This delay exists to allow mIRC to load up fully before executing connections.
        if ($readini($locGlobalConfig, n, Config, iAutoConnectDelay) > 0) {
            timerglo.AutoConnect -o 1 $v1 atimer.AutoConnect
        }
        else {
            atimer.AutoConnect
        }
    }
}


on *:CONNECT: {
    if (!$exists(%glo.ConfigPath $+ $network)) {
        mkdir %glo.ConfigPath $+ $network
    }
    
    ; Write default config entries/generate files
    if ($readini($locServerConfig, n, Config, bAutoJoin) == $null) {
        writeini $locServerConfig Config bAutoJoin 0
    }
    if ($readini($locServerConfig, n, Config, iAutoJoinDelay) == $null) {
        writeini $locServerConfig Config iAutoJoinDelay 3
    }
    if ($readini($locServerConfig, n, Config, sAutoJoinList) == $null) {
        writeini $locServerConfig Config sAutoJoinList #Example
        writeini $locServerConfig.AutoJoin #Example sKey Password
        writeini $locServerConfig.AutoJoin #Example iDelay 5
    }
    
    if ($readini($locServerConfig, n, Config, bAutoCommand) == $null) {
        writeini $locServerConfig Config bAutoCommand 0
    }
    if ($readini($locServerConfig, n, Config, iAutoCommandDelay) == $null) {
        writeini $locServerConfig Config iAutoCommandDelay 1
    }
    if ($readini($locServerConfig, n, Config, sAutoCommandList) == $null) {
        writeini $locServerConfig Config sAutoCommandList ExampleCommand
        writeini $locServerConfig.AutoCommand ExampleCommand 1 privmsg NickServ identify password
        writeini $locServerConfig.AutoCommand ExampleCommand 2 other command to send to the server
    }
    
    ; Auto Join
    if (($readini($locServerConfig, n, Config, bAutoJoin)) && ($readini($locServerConfig, n, Config, sAutoJoinList) != $null)) {
        ; If autojoin global delay is set, delay auto join by X seconds - This delay exists to allow mIRC to finish processing any on CONNECT scripts before executing joins.
        if ($readini($locServerConfig, n, Config, iAutoJoinDelay) > 0) {
            timer [ $+ [ $cid ] $+ ] .AutoJoin 1 $v1 atimer.AutoJoin
        }
        else {
            atimer.AutoJoin
        }
    }
    
    ; Auto Command
    if (($readini($locServerConfig, n, config, bAutoCommand)) && ($readini($locServerConfig, n, Config, sAutoCommandList) != $null)) {
        ; If autocommand delay is set, delay commands by X seconds - This delay exists to allow mIRC to finish processing any on CONNECT scripts before executing any other commands
        if ($readini($locServerConfig, n, Config, iAutoCommandDelay) > 0) {
            timer [ $+ [ $cid ] $+ ] .AutoCommand 1 $v1 atimer.AutoCommand
        }
        else {
            atimer.AutoCommand
        }
    }
}


alias atimer.AutoConnect {
    ; Cycle through each server name entry in [Config] sAutoConnectList
    var %loc.AutoConnectList = $readini($locGlobalConfig, n, Config, sAutoConnectList)
    var %loc.NewWindow = 0
    var %loc.Count = 1
    
    while (%loc.Count <= $gettok(%loc.AutoConnectList, 0, 32)) {
        var %loc.Current = $gettok(%loc.AutoConnectList, %loc.Count, 32)
        
        ; Check if the server name provided exists in the autoconnect ini file
        if ($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sAddress) != $null) {
            var %loc.Address = $v1
            var %loc.Port = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, iPort) != $null, $v1, 6667)
            var %loc.Password = $readini($locGlobalConfig.AutoConnect, n, %loc.Current, sPassword)
            var %loc.SSL = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, bSSL) != $null, $v1, 0)
            var %loc.Nick = $readini($locGlobalConfig.AutoConnect, n, %loc.Current, sNick)
            var %loc.AltNick = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sAltNick), $v1, $+(%loc.Nick, _))
            var %loc.RealName = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sRealName), $v1, mIRC $version)
            var %loc.Ident = $iif($readini($locGlobalConfig.AutoConnect, n, %loc.Current, sIdent), $v1, mirc)
            var %loc.Delay = $readini($locGlobalConfig.AutoConnect, n, %loc.Current, iDelay)
            
            ; Connect to the server
            if (%loc.Delay != $null) {
                if (%loc.Nick != $null) {
                    timerglo.AutoConnect. [ $+ [ %loc.Current ] ] -o 1 %loc.Delay server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password -i %loc.Nick %loc.AltNick $+(%loc.Ident, @fake-ident-email.com)) %loc.RealName
                }
                else {
                    timerglo.AutoConnect. [ $+ [ %loc.Current ] ] -o 1 %loc.Delay server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password
                }
            }
            else {
                if (%loc.Nick != $null) {
                    server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password -i %loc.Nick %loc.AltNick $+(%loc.Ident, @fake-ident-email.com)) %loc.RealName
                }
                else {
                    server $iif(%loc.NewWindow, -m) %loc.Address $iif(%loc.SSL, $+(+, %loc.Port), %loc.Port) %loc.Password
                }
            }
            
            ; Set the 'New Window' flag to open all future server connections in a new connection window.
            if (%loc.NewWindow == 0) %loc.NewWindow = 1
            
            
            unset %loc.Address %loc.Port %loc.Password %loc.SSL %loc.Nick %loc.AltNick %loc.RealName %loc.Ident
        }
        
        
        ; Go to next entry
        unset %loc.Current
        inc %loc.Count
        continue
        
        :error
        echo -a * AutoExec Error in atimer.AutoConnect %loc.Current : $error
        write $locError $logstamp - AutoExec Error in atimer.AutoConnect %loc.Current : $error
        unset %loc.Current
        ; reseterror
        inc %loc.Count
        continue
    }
    
    
    return
    
    :error
    echo -a * AutoExec Error in atimer.AutoConnect : $error
    write $locError $logstamp - AutoExec Error in atimer.AutoConnect : $error
    ; reseterror
}


alias atimer.AutoJoin {
    ; Cycle through each channel entry in [Config] sAutoJoinList
    var %loc.AutoJoinList = $readini($locServerConfig, n, Config, sAutoJoinList)
    var %loc.Count = 1
    
    while (%loc.Count <= $gettok(%loc.AutoJoinList, 0, 32)) {
        var %loc.Current = $gettok(%loc.AutoJoinList, %loc.Count, 32)
        
        ; Check if already in channel
        if ($me !ison %loc.Current) {
            var %loc.Key = $readini($locServerConfig.AutoJoin, n, %loc.Current, sKey)
            var %loc.Delay = $readini($locGlobalConfig.AutoJoin, n, %loc.Current, iDelay)
            
            ; Join the channel
            if (%loc.Delay != $null) {
                timer [ $+ [ $cid ] $+ ] .AutoJoin. [ $+ [ %loc.Current ] ] join %loc.Current %loc.Key
            }
            else {
                join %loc.Current %loc.Key
            }
        }
        
        ; Go to next entry
        inc %loc.Count
        continue
        
        :error
        echo -a * AutoExec Error in atimer.AutoJoin %loc.Current ( CID: $cid ) : $error
        write $locError $logstamp - AutoExec Error in atimer.AutoJoin %loc.Current ( CID: $cid ) : $error
        ; reseterror
        inc %loc.Count
        continue
    }
    
    
    return
    
    :error
    echo -a * AutoExec Error in atimer.AutoJoin ( CID: $cid ) : $error
    write $locError $logstamp - AutoExec Error in atimer.AutoJoin ( CID: $cid ) : $error
    ; reseterror
}


alias atimer.AutoCommand {
    ; Cycle through each command entry in [Config] sAutoCommandList
    var %loc.AutoCommandList = $readini($locServerConfig, n, Config, sAutoCommandList)
    var %loc.Count = 1
    
    while (%loc.Count <= $gettok(%loc.AutoCommandList, 0, 32)) {
        var %loc.Current = $gettok(%loc.AutoCommandList, %loc.Count, 32)
        
        ; Loop through each command line
        var %loc.Count2 = 1
        while ($readini($locServerConfig.AutoCommand, n, %loc.Current, %loc.Count2) != $null) {
            raw $readini($locServerConfig.AutoCommand, n, %loc.Current, %loc.Count2)
            
            inc %loc.Count2
            continue
            
            :error
            echo -a * AutoExec Error in atimer.AutoCommand %loc.Current entry %loc.Count2 ( CID: $cid ) : $error
            write $locError $logstamp - AutoExec Error in atimer.AutoCommand %loc.Current entry %loc.Count2 ( CID: $cid ) : $error
            ; reseterror
            inc %loc.Count2
            continue
        }
        
        inc %loc.Count
        continue
        
        :error
        echo -a * AutoExec Error in atimer.AutoCommand %loc.Current ( CID: $cid ) : $error
        write $locError $logstamp - AutoExec Error in atimer.AutoCommand %loc.Current ( CID: $cid ) : $error
        ; reseterror
        inc %loc.Count
        continue
    }
    
    
    return
    
    :error
    echo -a * AutoExec Error in atimer.AutoCommand ( CID: $cid ) : $error
    write $locError $logstamp - AutoExec Error in atimer.AutoCommand ( CID: $cid ) : $error
    ; reseterror
}

whois

Sun, 01 Jun 2025 00:51:24 +0000

; Whois mods by Sebastien (xplo)
; $comchan alias from someone in a help chan somewhere. 
; If you touch at something below this line, you WILL fuckup something.
; Example: http://i.imgur.com/tLi75RP.png
; /w nick

alias w { .enable #whois | whois $1 $1 } 
#whois off
raw 311:*: { 
  echo $color(notice) -ai2 14[7###14] $iif($me == $2,Looking at yourself?,/whois7 $2)
  echo -ai2 2Nick:14 $2 
  echo -ai2 2Address:14 $3 $+ @ $+ $4 
  echo -ai2 2FullName:14 $6-   
  halt 
} 
raw 379:*:{ echo -ai2 2Is using modes:14 $6- | halt }
raw 378:*:{ echo -ai2 2Is Connecting from:14 $6- | halt }
raw 319:*: { 
  echo -ai2 2Channels:4 $sorttok($3-,32,c) 
  $iif($2 == $me,halt,echo -ai2 2Common Channels:11 $AdoComChan($2))
  halt 
} 
raw 312:*: { 
  echo -ai2 2Server:14 $3
  echo -ai2 2Description:14 $4- 
  halt 
} 
raw 330:*:{ echo -ai2 2Username: 4 $+ $3 $+  | halt } 
raw 338:*:{ echo -ai2 2Host:14 $3 | halt } 
raw 307:*:{ echo -ai2 3 $+ $2 $3- | halt } 
raw 301:*:{ echo -ai2 2 $+ $2 is away:7 $3- | halt } 
raw 313:*:{ echo -ai2 2Status:14 $5- | halt } 
raw 310:*:{ echo -ai2 2 $+ $2 14 $+ $3- | halt } 
raw 320:*:{ echo -ai2 2 $+ $2 14 Is using a Secure Connection (4SSL14) | halt }
raw 335:*:{ echo -ai2 2 $+ $2 14 Is a Bot on $network (4BOT14) | halt }
raw 671:*:{ echo -ai2 2 $+ $2 14 Is using a Secure Connection (4SSL14) | halt }
raw 317:*:{ 
  echo -a 2Idle time:4 $duration($3) 
  if ($4 isnum) echo -ai2 2Online time:14 $asctime($4) 
  halt 
} 
raw 318:*:{ 
  echo $color(notice) -ai2 14[7###14] End of Whois for7 $2  
  linesep -a
  .disable #whois 
  halt 
} 
alias AdoComChan { 
  var %AdoComCh = 1 
  while (%AdoComCh <= $comchan($1,0)) { 
    var %AdoComLi = %AdoComLi $comchan($1,%AdoComCh) 
    inc %AdoComCh 
  } 
  if (%AdoComLi == $null) { return None } 
  else { return %AdoComLi } 
} 
#whois end

#EOF

whoischan

Sun, 01 Jun 2025 00:48:34 +0000

; Script to display whois information in an @window 
; - Ook 
; 
; All the whois raws are captured but only the nick, address, idle, server, channels info is shown 
; with a little tinkering more can easily be added. 
; 
; v1.0 
; - First release 
; v1.1 
; - fixed possible error in endofwhois when $address fails. 
; - added some more error output. 
; - changed tabs to cut off text that exceeds limits. 
; - changed code to update horiz scrollbar on end of whois (doesnt display whole line still, this is mircs fault) 
; - channel name no longer needed, will take active window as channel if no channel name given. 
; 
; /whoischan  
; $1 = chan 
alias whoischan { 
  if ($0 > 1) { echo -aqmlbfti2 [whoischan] Usage: /whoischan <#channel> | halt } 
  var %i = 1, %c = $iif($0,$1,$active) 
  window -lM -t20,100,130,170 @whoischan 
  clear @whoischan 
  aline @whoischan $+( Nick,$chr(9),Address,$chr(9),Idle Time,$chr(9),Server,$chr(9),Channels) 
  aline @whoischan  
  while ($nick(%c,%i) != $null) { 
    var %n = $v1 
    aline @whoischan $+(%n,$chr(9),$iif($address(%n,5) != $null,$v1,unknown),$chr(9),0,$chr(9),-,$chr(9),$chr(160)) 
    _pushwhois %n %n 
    inc %i 
  } 
  !return 
  :error 
  !echo 4 -s whoischan: $error 
} 
alias -l _nnet { 
  !if ($network != $null) return $v1 
  !elseif ($server($server).group != $null) { 
    !if ($v1 !isnum) return $v1 
  } 
  !return Default 
  :error 
  !echo 4 -s _nnet: $error 
} 
; start temp data hashtable functs 
; $1 = var (delete temp var) 
alias -l tdel !if ($hget(whoischan)) hdel whoischan $1 
; $1 = var wildcard (del temp vars that matcvh wildcard) 
alias -l twdel !if ($hget(whoischan)) hdel -w whoischan $1 
; $1 = var, $2- = data (add a temp var) 
alias -l tadd !hadd whoischan $1- 
; $1 = var (get the contents of a temp var) 
alias -l tget !return $hget(whoischan,$1-) 
; end temp data hashtable functs 
alias -l _pushwhois { 
  !var %cid = $cid 
  !hadd -m $+(%cid,-whois-queue) $1 $1- 
  if (!$timer($+(%cid,-pushwhois))) $+(.timer,%cid,-pushwhois) 1 0 _pushwhois.dump 
  !return 
  :error 
  !echo 4 -s _pushwhois: $error 
} 
alias -l _pushwhois.dump { 
  !var %cid = $cid, %limit = $tget($+(%cid,-maxtarget-WHOIS)) 
  !if (!%limit) var %limit = 1 
  !if ($tget($+(%cid,enable_combined_whois))) { 
    ; if the network supports it combine the /whois into one 
    !while ($hget($+(%cid,-whois-queue),1).data != $null) { 
      !var %n = $v1 
      !if ($numtok(%n,32) == 1) { 
        ; single nick /whois nick style, these can be combined. 
        !var %whois = $addtok(%whois,%n,44) 
        !hdel $+(%cid,-whois-queue) $hget($+(%cid,-whois-queue),1).item 
        !if ($numtok(%whois,44) == %limit) break 
      } 
      ; otherwise its /whois nick nick style, these can't be combined. 
      !elseif (%whois != $null) break 
      !else { 
        !var %whois = %n 
        !hdel $+(%cid,-whois-queue) $hget($+(%cid,-whois-queue),1).item 
        !break 
      } 
      !inc %cnt 
    } 
  } 
  !else { 
    ; otherwise do a single whois & pause before next 
    !var %whois = $hget($+(%cid,-whois-queue),1).data 
    !hdel $+(%cid,-whois-queue) $hget($+(%cid,-whois-queue),1).item 
  } 
  if ($hget($+(%cid,-whois-queue),0).item > 0) $+(.timer,%cid,-pushwhois) 1 2 _pushwhois.dump 
  else hfree $+(%cid,-whois-queue) 
  if (%whois != $null) whois %whois 
  !return 
  :error 
  !echo 4 -s _pushwhois.dump: $error 
} 
RAW 5:*: { 
  !if ($hget(whoischan) == $null) hmake whoischan 100 
  !var %cid = $cid, %tmp = $matchtokcs($1-,SILENCE,1,32) 
  if (%tmp) tadd $+(%cid,-silence) $gettok(%tmp,2,61) 
  else tadd $+(%cid,-silence) 0 
  !var %tmp = $matchtokcs($1-,TOPICLEN,1,32) 
  if (%tmp) tadd $+(%cid,-topiclen) $gettok(%tmp,2,61) 
  else tadd $+(%cid,-topiclen) 0 
  !var %tmp = $matchtokcs($1-,NICKLEN,1,32) 
  if (%tmp) tadd $+(%cid,-nicklen) $gettok(%tmp,2,61) 
  else tadd $+(%cid,-nicklen) 0 
  !var %tmp = $matchtokcs($1-,UHNAMES,1,32) 
  if (%tmp) tadd $+(%cid,-uhnames) 1 
  else tadd $+(%cid,-uhnames) 0 
  !var %tmp = $matchtokcs($1-,TARGMAX,1,32) 
  !if (%tmp) { 
    !var %cnt = 1, %tmp = $gettok(%tmp,2,61) 
    !while ($gettok(%tmp,%cnt,44) != $null) { 
      tadd $+(%cid,-maxtarget-,$gettok($v1,1,58)) $gettok($v1,2,58) 
      !inc %cnt 
    } 
  } 
  else twdel $+(%cid,-maxtarget-*) 
  !var %tmp = $matchtokcs($1-,MAXLIST,1,32) 
  !if (%tmp) { 
    !var %cnt = 1, %tmp = $gettok(%tmp,2,61) 
    !while ($gettok(%tmp,%cnt,44) != $null) { 
      !var %t = $+(%cid,-maxlist-,$gettok($v1,1,58)) 
      tadd %t $gettok($v1,2,58) 
      if ($tget(%t) == $null) tadd %t 1 
      !inc %cnt 
    } 
  } 
  else twdel $+(%cid,-maxlist-*) 
  !var %tmp = $matchtokcs($1-,AWAYLEN,1,32) 
  if (%tmp) tadd $+(%cid,-awaylen) $gettok(%tmp,2,61) 
  else tadd $+(%cid,-awaylen) 0 
  !var %tmp = $matchtokcs($1-,KICKLEN,1,32) 
  if (%tmp) tadd $+(%cid,-kicklen) $gettok(%tmp,2,61) 
  else tadd $+(%cid,-kicklen) 0 
  !var %nnet = $_nnet 
  !if ($istok(DALnet UnderNet BeyondIRC IRCHighway SwiftIRC Genscripts,%nnet,32)) { 
    ; net supports combined whois 
    tadd $+(%cid,enable_combined_whois) 1 
    !if ($tget($+(%cid,-maxtarget-WHOIS)) == $null) { 
      ; max targets wasn't set for some reason, try a known value for that network. 
      if (%nnet == Undernet) tadd $+(%cid,-maxtarget-WHOIS) 12 
      elseif (%nnet == Genscripts) tadd $+(%cid,-maxtarget-WHOIS) 20 
      else tadd $+(%cid,-maxtarget-WHOIS) 4 
    } 
  } 
  else tdel $+(%cid,enable_combined_whois) 
} 
; output line = nick address idle-time server channels 
;275 HighwayIRC RPL_WHOISSECURE " is using a secure connection (SSL)" 
raw 275:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;301 RPL_AWAY " : message>" 
raw 301:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;307 DALnet RPL_WHOISREGNICK Registered Nick  “: is a registered nick 
raw 307:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;308 DALnet RPL_WHOISADMIN Server Admin (may be dropped) 
raw 308:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;309 DALnet RPL_WHOISSADMIN Services Admin (may be dropped) “:  is a services adminstrator 
raw 309:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;310 DALnet RPL_WHOISHELPOP "%s :looks very helpful.", “  status msg>" - A sample reply is: “White_Dragon looks very helpful.” 
raw 310:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;311 RPL_WHOISUSER "   * : name>" - The '*' in RPL_WHOISUSER is there as the literal character and not as a wild card 
raw 311:*: { 
  !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { 
    var %l = $v1 
    haltdef 
    rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160),5,9) 
  } 
} 
;312 RPL_WHOISSERVER "  : info>" 
raw 312:*: { 
  ;echo -s whoischan312: $1- 
  !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { 
    var %l = $v1 
    haltdef 
    rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160) $3,4,9) 
  } 
} 
;313 RPL_WHOISOPERATOR " :is an IRC operator" 
raw 313:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;316 RPL_WHOISCHANOP 
raw 316:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;317 RPL_WHOISIDLE "  :seconds idle" 
raw 317:*: { 
  ;echo -s whoischan317: $1- 
  !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { 
    var %l = $v1 
    haltdef 
    rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160) $duration($3),3,9) 
  } 
} 
;318 RPL_ENDOFWHOIS "(,nick,nick,...) :End of /WHOIS list" 
raw 318:*: { 
  ;echo -s whoischan318: $1- 
  !var %i = 1 
  !while ($gettok($2,%i,44) != $null) { 
    !var %n = $v1 
    !if ($fline(@whoischan,$+(%n,$chr(9),*),1,1) != $null) { 
      var %l = $v1 
      haltdef 
      if ($address(%n,5) != $null) rline @whoischan %l $puttok($line(@whoischan,%l),$chr(160) $v1,2,9) 
    } 
    inc %i 
  } 
} 
;319 RPL_WHOISCHANNELS " :{[@|+]}" 
raw 319:*: { 
  !if ($fline(@whoischan,$+($2,$chr(9),*),1,1) != $null) { 
    var %l = $v1 
    haltdef 
    var %txt = $line(@whoischan,%l) 
    rline @whoischan %l $puttok(%txt,$addtok($gettok(%txt,5,9),$3-,32),5,9) 
    window -b @whoischan 
  } 
} 
;330 Undernet/Quakenet RPL_WHOISACCOUNT " 330    :is authed as" returned when using the WHOIS command on UnderNet "is logged in as" is shown as text 
raw 330:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;335 RPL_WHOISBOT 
raw 335:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;338 RPL_WHOISACTUALLY ":%s 338 %s :%s is actually %s@%s [%s]" 
raw 338:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;615 HighwayIRC RPL_WHOISMODES " is using modes " 
raw 615:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef 
;616 HighwayIRC RPL_WHOISREALHOST " real hostname  " 
raw 616:*: !if ($fline(@whoischan,$+($2,$chr(9),*),0,1) != $null) haltdef

No Spam Chan v1.1

Fri, 15 Nov 2024 03:43:35 +0000

Title: No Spam Chan v1.1
Script: NoSpamChan.mrc
Program: mIRC
Author: Epic
Description: The script monitors communication on the channel in order to search the strings of the "#" symbol to identify ads from other channels. If detected, it checks the real existence of such a channel by executing the "/WHO" command, and if it is in the list, it performs "Kick+Ban" on the nickname of the violator.

Renewal:

Added the ability to configure the script via the "nospamchan" alias.

Added "ACTION" message spam check.

Changed the channel existence check from the "/LIST" command to the "/WHO" command to speed up the process.

Installation:

Open your client's script editor using the "ALT+R" keyboard shortcut.

Next, use the "File/New" top menu to open a new file and place the code there.

Next, use the top menu "File/Save As..." to save the code as a script called "NoSpamChan.mrc".

If you already have a previous version of this script installed, replace it with the new code. Do not leave previous versions of scripts to avoid conflicts.

NoSpamChan_v1.1.rar

(mIRC) IAL Fill (better than /WHO On Join)

Fri, 12 Jul 2024 02:16:18 +0000

IALFILL allows for a safe and consistent updating of mIRC's Internal Address List.
This is useful for scripts that need to know user addresses in every channel you join.
It is an alternative to the simple and dangerous "On *:JOIN:#:WHO $chan" that may cause
you to lag or be disconnected for flooding (Quit: Excess Flood or Quit: RESVQ Exceeded).

Exaple uses:
/ialfill on (automatically update IAL as you join new channels)
/ialfill off (turns off automatic update of IAL)
/ialfill (manualy typed command, updates once)
/ialfill 0 (temporarily sets the delay between WHO commands to 0 seconds)
.ialfill (surpresses all output, use in scripts)

;r_IALFILL.mrc By Raccoon 25-Feb-2012
;# IALFILL allows for a safe and consistent updating of mIRC's Internal Address List.
;# This is useful for scripts that need to know user addresses in every channel you join.
;# It is an alternative to the simple and dangerous "On *:JOIN:#:WHO $chan" that may cause
;# you to lag or be disconnected for flooding (Quit: Excess Flood or Quit: RESVQ Exceeded).
;# 
;# This goes in your Remote Scripts section, mIRC 6.x and 7.x compatable.
;# Written by Raccoon on 25-Feb-2012. EFnet #mIRC.

;# Exaple uses:
;# /ialfill on        (automatically update IAL as you join new channels)
;# /ialfill off       (turns off automatic update of IAL)
;# /ialfill           (manualy typed command, updates once)
;# /ialfill 0         (temporarily sets the delay between WHO commands to 0 seconds)
;# .ialfill           (surpresses all output, use in scripts)
ALIAS IALFILL { ; By Raccoon 25-Feb-2012
  if $1 == on || $1 == auto {
    .enable #IALFILL_JOIN
    echo -qtic notice * IALFILL: Automatic Updating enabled.
  }
  elseif $1 == off {
    .disable #IALFILL_JOIN
    echo -qtic notice * IALFILL: Automatic Updating disabled.
  }
  else {
    ; Permit a custom delay between WHO requests. Default is 2 seconds.
    if $1 isnum { set -eu300 $+(%,IALFILL.,$cid,.delay) $1 }
    var %delay = $iif($($+(%,IALFILL.,$cid,.delay),2) isnum,$v1,2)
    ; Remember if any output should be displayed. (/ialfill vs .ialfill)
    set -eu300 $+(%,IALFILL.,$cid,.show) $show
    .timerIALFILL. $+ $cid 1 %delay IALFILL_next
} }

; IALFILL_next is a timer and event delayed alias that is called internally.
ALIAS IALFILL_next { ; By Raccoon 25-Feb-2012
  var %i = 1, %n = $chan(0)
  ; Find next channel with incomplete IAL.
  WHILE %i <= %n { if !$chan(%i).ial { var %chan = $chan(%i) | BREAK } | inc %i }
  if %chan {
    .enable #IALFILL_WHO
    .raw WHO %chan
    ; Add a 30 second timeout to clean-up if WHO never happens.
    .timerIALFILL. $+ $cid 1 30 IALFILL_done %chan
  }
  else {
    var %show = $($+(%,IALFILL.,$cid,.show),2)
    if %show { echo -stic info * IALFILL: All channels on $network are up to date. }
    unset $+(%,IALFILL.,$cid,.*)
} }

; Hide our /WHO output from spamming the Status Window.
#IALFILL_WHO off
RAW 352:*: { haltdef } ; /WHO enumeration.
RAW 315:*: { IALFILL_done $2 | haltdef } ; End of /WHO list.
#IALFILL_WHO end

; IALFILL_done is a call-back alias that is called internally.
ALIAS IALFILL_done { ; By Raccoon 25-Feb-2012
  var %chan = $1
  var %show = $($+(%,IALFILL.,$cid,.show),2)
  .disable #IALFILL_WHO
  ; Make sure the IAL was successfully filled before continuing, otherwise we may try endlessly.
  ; The !ischan check allows for instances if the channel window is closed during /WHO.
  if $chan(%chan).ial || (%chan !ischan) {
    if %show { echo -stic info * IALFILL: %chan updated. }
    var %delay = $iif($($+(%,IALFILL.,$cid,.delay),2) isnum,$v1,2)
    .timerIALFILL. $+ $cid 1 %delay IALFILL_next
  }
  else {
    ; This should never, unless a server prohibits /WHO or you are extremely lagged.
    echo -stic notice * IALFILL: Unexpected error updating %chan $+ , giving up.
    unset $+(%,IALFILL.,$cid,.*)
} }

; Automatcally fill IAL after joining channels, using a safe delay.
; Use /ialfill on|off to enable/disable.
#IALFILL_JOIN off
RAW 366:*: { .ialfill } ; End of /NAMES list.
#IALFILL_JOIN end

; end of script.

(AHK) MsgBoxRenBtn.ahk Library Include

Fri, 12 Jul 2024 02:09:01 +0000

Message Box Rename Buttons by Raccoon on 12-Sept-2013
Allows you to rename the one, two or three buttons of a standard MsgBox dialog, without having to create your own custom GUI.
This script is written as a "Standard Library" and belongs in your AutoHotkey\Lib directory.
Note that this function gets called immediately PRIOR your MsgBox command.

Example Usage:
MsgBoxRenBtn("Red","Green","Blue")
MsgBox, 0x22, Pick one!, What is your favorite color?

; MsgBoxRenBtn.ahk Library Include.
; This file belongs in the \Lib directory.

;*******************************************************************************
;*            Message Box Rename Buttons by Raccoon on 12-Sept-2013            *
;*                                                                             *
;*  Usage: (see examples at bottom)                                            *
;*  MsgBoxRenBtn(<"Text for Button 1">,["Optional Button 2"],["Optional 3"])   *
;*  MsgBox, <parameters>                                                       *
;*******************************************************************************

MsgBoxRenBtn(btn1="",btn2="",btn3="")
{ ; by Raccoon 12-Sept-2013
  Static sbtn1:="", sbtn2:="", sbtn3:="", i=0
  sbtn1 := btn1, sbtn2 := btn2, sbtn3 := btn3, i=0
  SetTimer, MsgBoxRenBtn, 1
  Return

  MsgBoxRenBtn:
  If (hwnd:=WinActive("ahk_class #32770")) {
    if (sbtn1)
      ControlSetText, Button1, % sbtn1, ahk_id %hwnd%
    if (sbtn2)
      ControlSetText, Button2, % sbtn2, ahk_id %hwnd%
    if (sbtn3)
      ControlSetText, Button3, % sbtn3, ahk_id %hwnd%
    SetTimer, MsgBoxRenBtn, Off
  }
  if (i >= 1000)
    SetTimer, MsgBoxRenBtn, Off
  i++
  Return
}
; *** End of Function ***

; --- Optional Sample Script. ---
If (A_ScriptName = "MsgBoxRenBtn.ahk") ; Show Demo
{
  ; Simple Example: Replace "OK" Button with "World".
  MsgBoxRenBtn("World")
  MsgBox, Hello

  ; Two Button Example: Yes/No replaced with Dogs/Cats.
  MsgBoxRenBtn("Dogs","Cats")
  MsgBox, 0x4, Pick one!, Which do you like best?
  IfMsgBox Yes
    TrayTip,, You chose Dogs!
  IfMsgBox No
    TrayTip,, You chose Cats!

  ; Three Button Example: Abort/Retry/Ignore replaced with Red/Green/Blue.
  ; Note: 0x2 is Abort/Retry/Ignore, add 0x20 for Icon Question, is 0x22.
  MsgBoxRenBtn("Red","Green","Blue")
  MsgBox, 0x22, Pick one!, What is your favorite color?
  IfMsgBox Abort
    TrayTip,, You chose Red!
  IfMsgBox Retry
    TrayTip,, You chose Green!
  IfMsgBox Ignore
    TrayTip,, You chose Blue!

  Sleep, 3000
}
; --- End of Optional Script Sample. ---

; End of MsgBoxRenBtn.ahk Library Include.

(mIRC) Recent Activity Menu

Fri, 12 Jul 2024 02:04:08 +0000

Handy menus that display recent activity in mIRC and take you there with a click!
More features to come . . .

; Recent Menu by Raccoon Jan 2015

MENU Status,Channel,Query,Menubar,@* {
  -
  $menuspeedtest
  Recently
  .Opened
  ..$submenu($recent_menu($1,opened))
  .Viewed
  ..$submenu($recent_menu($1,viewed))
  .Typed
  ..$submenu($recent_menu($1,typed))
  .Spoken
  ..$submenu($recent_menu($1,spoken))
  .Highlighted
  ..$submenu($recent_menu($1,highlighted))
  $menuspeedtest
}

ALIAS -l menuspeedtest {
  if (!%_menuspeedtest) set -u2 %_menuspeedtest $ticks
  if ($mouse.key & 4) return $calc(($ticks - %_menuspeedtest) /1000) sec
}

ALIAS -l recent_menu { ; by Raccoon 2015
  if ($1 == begin) set -u %_menu_recent $hget(recent,$2)
  if ($1 isnum 1-35) {
    var %a = $gettok(%_menu_recent,$1,32), %wid = $gettok(%a,1,58), %ticks = $gettok(%a,2,58)
    var %win = $window(%wid), %dur = $dur($calc(($ticks - %ticks)/1000),2)
    var %net = $iif(!$window(%wid).anysc,$scid($window(%wid).cid).network $(|))
    if (%win) return %net %win $+ $chr(9) $+ %dur $+ : window -a %wid
    ;if (%a) return --- (window closed) --- $+ $chr(9) $+ %dur $+ : noop
    if (%a) return :
  }
  if ($1 isnum) && (!%_menu_recent.done) { set -u %_menu_recent.done $true | return - }
  if ($1 == end) return Clear: hdel recent $2
}
ALIAS -l dur { return $regsubex($gettok($duration($1),1- $+ $2,32),/(\d+\w)\D*/g,\t) } ; by Raccoon

On *:ACTIVE:*:  recent_add viewed $activewid
On *:INPUT:*:   recent_add typed $activewid
On *:OPEN:*:    recent_add opened $window($target).wid
On me:*:JOIN:*: recent_add opened $chan($chan).wid
ALIAS -l recent_add { ; by Raccoon 2015
  var %a = $hget(recent,$$1), %wid = @ $+ $$2
  var %a = %wid $+ : $+ $ticks $regsubex(%a,/ %wid :\d+/xg,)
  if ($len(%a) > 4000) var %a = $deltok(%a,-1,32)
  hadd -m recent $1 %a
}

On *:TEXT:*:*:   recent_spoke $1-
On *:ACTION:*:*: recent_spoke $1-
On *:NOTICE:*:#: recent_spoke $1-
ALIAS -l recent_spoke { ; by Raccoon 2015
  if ($1- !isnum) && ($highlight($1-)) recent_add highlighted $window($target).wid
  recent_add spoken $window($target).wid
}

Future for mIRC

Fri, 12 Jul 2024 02:01:49 +0000

Future ASCII (Unicode) Font for mIRC.

;# Future Font for mIRC. Based on font from TOIlet @ Caca Labs
;# /fut <text>
;# /fut [-m|-n target] <text> -- to message or notice target(s).
;# /fut [-cmd ["]custom["]] <text> -- send by arbitrary command.
;# Bold and Reverse control codes, work. Color support coming...
fut {
  var %cmd = say
  while (-* iswm $1) { ; -switches
    if ($1 == -cmd) && ($regex($2-,/(?:"([^"]*)"|\S+)(.*)/)) {
      var %cmd = $regml(1) | tokenize 32 $regml(2)
    }
    elseif ($1 == -m) { var %cmd = msg $2    | tokenize 32 $3- }
    elseif ($1 == -n) { var %cmd = notice $2 | tokenize 32 $3- }
    else { break } ; unknown switch.
  }
  var %a, %b1, %b2, %b3
  %a = $chr(32) $+ !"#$%&'()*+,-./0123456789:;<=>?@ $+ $&
    ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`{|}~ÄÖÜß卐卍†‡…—·☐ $+ $chr(127)
  %b1 = ..,.╻,╻╻,╺╋╋╸,┏┳┓,┏┓╻,┏┓..,╻,┏╸,╺┓,╻.╻,.╻.,..,...,..,.╻,
  %b2 = ..,.╹,..,╺╋╋╸,┗╋┓,┏━┛,┃╺╋╸,.,┃.,.┃,╺╋╸,╺╋╸,..,╺━╸,..,┏┛,
  %b3 = ..,.╹,..,....,┗┻┛,╹┗┛,┗━┛.,.,┗╸,╺┛,╹.╹,.╹.,.┛,...,.╹,╹.,
  %b1 = %b1 $+ ┏━┓,╺┓.,┏━┓,┏━┓,╻.╻,┏━╸,┏━┓,┏━┓,┏━┓,┏━┓,..,..,.┏╸,...,╺┓.,┏━┓,┏━┓,
  %b2 = %b2 $+ ┃┃┃,.┃.,┏━┛,╺━┫,┗━┫,┗━┓,┣━┓,..┃,┣━┫,┗━┫,.╹,.╹,╺┫.,╺━╸,.┣╸,.╺┛,┃┣┛,
  %b3 = %b3 $+ ┗━┛,╺┻╸,┗━╸,┗━┛,..╹,┗━┛,┗━┛,..╹,┗━┛,┗━┛,.╹,.┛,.┗╸,╺━╸,╺┛.,.╹.,┗━╸,
  %b1 = %b1 $+ ┏━┓,┏┓.,┏━╸,╺┳┓,┏━╸,┏━╸,┏━╸,╻.╻,╻,.┏┓,╻┏.,╻..,┏┳┓,┏┓╻,┏━┓,┏━┓,┏━┓,┏━┓,
  %b2 = %b2 $+ ┣━┫,┣┻┓,┃..,.┃┃,┣╸.,┣╸.,┃╺┓,┣━┫,┃,..┃,┣┻┓,┃..,┃┃┃,┃┗┫,┃.┃,┣━┛,┃┓┃,┣┳┛,
  %b3 = %b3 $+ ╹.╹,┗━┛,┗━╸,╺┻┛,┗━╸,╹..,┗━┛,╹.╹,╹,┗━┛,╹.╹,┗━╸,╹.╹,╹.╹,┗━┛,╹..,┗┻┛,╹┗╸,
  %b1 = %b1 $+ ┏━┓,╺┳╸,╻.╻,╻.╻,╻.╻,╻.╻,╻.╻,╺━┓,┏━.,╻.,.━┓,┏┓,...,.┓,.┏╸,╻,╺┓.,...,
  %b2 = %b2 $+ ┗━┓,.┃.,┃.┃,┃┏┛,┃╻┃,┏╋┛,┗┳┛,┏╋┛,┃..,┗┓,..┃,..,...,..,.┫.,┃,.┣.,┏━┛,
  %b3 = %b3 $+ ┗━┛,.╹.,┗━┛,┗┛.,┗┻┛,╹.╹,.╹.,┗━╸,┗━.,.╹,.━┛,..,╺━╸,..,.┗╸,╹,╺┛.,...,
  %b1 = %b1 $+ ┏━┓┏━╸,┏━┓┏━╸,╻.╻┏━╸,┏━┓┏━┓,╻┏╸,╺┓╻,.╻.,.╻.,...,.....,..,...,┏┓
  %b2 = %b2 $+ ┣━┫┣╸.,┃.┃┣╸.,┃.┃┣╸.,┗━┓┗━┓,┗╋┓,┏╋┛,╺╋╸,╺╋╸,...,╺━━━╸,┏┓,┏━┓,┃┃
  %b3 = %b3 $+ ╹.╹┗━╸,┗━┛┗━╸,┗━┛┗━╸,┗━┛┗━┛,╺┛╹,╹┗╸,.┃.,╺╋╸,╹╹╹,.....,┗┛,┗━┛,┗┛
  var %s = $replace($upper($1-),`\,卐,`/,卍,`T,†,--,—,$chr(160),$chr(32))
  var %i = 1, %n = 3
  while (%i <= %n) {
    %cmd $replace($regsubex(%s,/(*UTF8)(.)/g, $& 
      $iif($gettok(%b [ $+ [ %i ] ],$poscs(%a,\t),44),$v1,\t)),.,$chr(160))
    inc %i
  } 
  if (!$event) && (!$editbox($active)) editbox -ap /fut
} ; by Raccoon 2016

Emboss for mIRC

Fri, 12 Jul 2024 02:00:00 +0000

;# Emboss Fonts for mIRC. Based on font from TOIlet @ Caca Labs
;# /emb <text>  and  /enb2 <text>
;# /emb [-m|-n target] <text> -- to message or notice target(s).
;# /emb [-cmd ["]custom["]] <text> -- send by arbitrary command.
;# Bold and Reverse control codes, work. Color support coming...
;# The missing characters # $ % are not a perfect compromise.
emb2 { emb -2 $1- } 
emb {
  var %cmd = say
  while (-* iswm $1) { ; -switches
    if ($1 == -cmd) && ($regex($2-,/(?:"([^"]*)"|\S+)(.*)/)) {
      var %cmd = $regml(1) | tokenize 32 $regml(2)
    }
    elseif ($1 == -m) { var %cmd = msg $2    | tokenize 32 $3- }
    elseif ($1 == -n) { var %cmd = notice $2 | tokenize 32 $3- }
    elseif ($1 == -2) { var %emb2 = $true    | tokenize 32 $2- }
    else { break } ; unknown switch.
  }
  var %a, %b1, %b2, %b3
  %a = $chr(32) $+ !"&'()*+,-./#$%—0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`{|}~
  %b1 = ..,.┃,┛┛,┏┛┃.,┛,.┛,━.,┛.┛,.┃.,.,..,..,..┛,.╻╻.,┏┳┓,┏┓╻,....,
  %b2 = ..,.┛,..,┃━┏┛,.,┃.,.┃,━┏┛,━┏┛,.,━┛,..,.┛.,╺┏┏╸,┗╋┓,┏━┛,━━━┛,
  %b3 = ..,.┛,..,━━┛.,.,.┛,━.,┛.┛,.┛.,┛,..,.┛,┛..,╺┏┏╸,┗┻┛,╹┗┛,....,
  %b1 = %b1 $+ ┏━┃,━┃.,━━┃,━━┃,┃.┃,┏━┛,┏━┛,┏━┃,┏━┃,┏━┃,..,..,..┛,...,┛..,┏━┃,┏━┃,
  %b2 = %b2 $+ ┃┛┃,.┃.,┏━┛,━━┃,━━┃,━━┃,┏━┃,..┃,┏━┃,━━┃,.┛,.┛,┛..,━━┛,..┛,..┛,┃┛┛,
  %b3 = %b3 $+ ━━┛,━━┛,━━┛,━━┛,..┛,━━┛,━━┛,..┛,━━┛,━━┛,.┛,.┛,..┛,━━┛,┛..,.┛.,━━┛,
  %b1 = %b1 $+ ┏━┃,┏━.,┏━┛,┏━.,┏━┛,┏━┛,┏━┛,┃.┃,┛,.┛,┃.┃,┃..,┏┏.,┏━.,┏━┃,┏━┃,┏━┃.,┏━┃,
  %b2 = %b2 $+ ┏━┃,┏━┃,┃..,┃.┃,┏━┛,┏━┛,┃.┃,┏━┃,┃,.┃,┏┛.,┃..,┃┃┃,┃.┃,┃.┃,┏━┛,┃.┃.,┏┏┛,
  %b3 = %b3 $+ ┛.┛,━━.,━━┛,━━.,━━┛,┛..,━━┛,┛.┛,┛,━┛,┛.┛,━━┛,┛┛┛,┛.┛,━━┛,┛..,━━━┛,┛.┛,
  %b1 = %b1 $+ ┏━┛,━┏┛,┃.┃,┃.┃,┃┃┃,┃.┃,┃.┃,━━┃,┏┛,┛..,━┃,.┛.,...,┛.,.┏┛,┃,━┃.,.┛.┛
  %b2 = %b2 $+ ━━┃,.┃.,┃.┃,┃.┃,┃┃┃,.┛.,━┏┛,┏┛.,┃.,.┛.,.┃,┛.┛,...,.┛,━┃.,┃,.┏┛,┛.┛.
  %b3 = %b3 $+ ━━┛,.┛.,━━┛,.┛.,━━┛,┛.┛,.┛.,━━┛,━┛,..┛,━┛,...,━━┛,..,.━┛,┛,━┛.,....
  var %s = $replace($upper($1-),$chr(160),$chr(32),Ä,AE,Ö,OE,Ü,UE,ß,SS,--,—)
  var %i = 1, %n = 3
  while (%i <= %n) {
    if (%emb2) var %b $+ %i $replace(%b [ $+ [ %i ] ],━,═,┃,║,┏,╔,┛,╝)
    %cmd $replace($regsubex(%s,/(*UTF8)(.)/g, $& 
      $iif($gettok(%b [ $+ [ %i ] ],$poscs(%a,\t),44),$v1,\t)),.,$chr(160))
    inc %i
  } 
  if (!$event) && (!$editbox($active)) editbox -ap /emb $+ $iif(%emb2,2)
} ; by Raccoon 2016

mIRC - /big & /huge

Fri, 12 Jul 2024 01:40:32 +0000

; --- Aliases Tab ---
; /big <text> -- Big Text Font for mIRC. (Simple version)
big {
  if (!$0) { echo -atic notice * Usage: /.big <text> (and without the dot) | return }
  var %big = $chr(32) $+ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`{|}~
  var %big1 = .. .xx. xx..xx .xx..xx. xxxxxxx. xx..xx .xxx.. .xx ...xx xx... ...xx... ...... ... ...... .. ....xx .xxxx. .xxxx xxxxx. xxxxx. ...xxx. xxxxx .xxxx. xxxxxx .xxxx. .xxxx. .. ... ....xx ...... xx.... xxxxx .xxxx. .xxxx. xxxxx. .xxxx. xxxx.. xxxxx xxxxx .xxxx. xx...xx xxxx ....xx xx..xx xx... xx....xx xx..xx .xxxx. xxxxx. .xxxx.. xxxxx. .xxxx. xxxxxx xx..xx xx....xx xx...xx xx...xx xx..xx xxxxxx xxxxx xx.... xxxxx ..xx.. ...... xxx. ...xx .xx. xx... .xxx.xx
  var %big2 = .. xxxx xx..xx xxxxxxxx xx.xx... ...xx. xx.xx. xx. .xx.. ..xx. xxxxxxxx ..xx.. ... ...... .. ...xx. xx..xx xx.xx ....xx ....xx .xx.xx. xx... xx.... ...xx. xx..xx xx..xx xx .xx ..xx.. xxxxxx ..xx.. ...xx xx..xx xx..xx xx..xx xx..xx xx.xx. xx... xx... xx.... xx...xx .xx. ....xx xx.xx. xx... xxx..xxx xxx.xx xx..xx xx..xx xx..xx. xx..xx xx.... ..xx.. xx..xx xx....xx xx...xx .xx.xx. xx..xx ...xx. xx... .xx... ...xx xx..xx ...... ..xx ..xx. .xx. .xx.. xx.xxx.
  var %big3 = .. .xx. ...... .xx..xx. xxxxxxxx ..xx.. .xxx.x ... xx... ...xx .xx..xx. xxxxxx xxx xxxxxx .. ..xx.. xx.xxx ...xx ..xx.. .xxxx. xx..xx. xxxx. xxxxx. ..xx.. .xxxx. .xxxxx .. ... xx.... ...... ....xx ..xx. xx.xxx xxxxxx xxxxx. xx.... xx..xx xxxx. xxxx. xx.xxx xxxxxxx .xx. ....xx xxxx.. xx... xxxxxxxx xxxxxx xx..xx xxxxx. xx..xx. xxxxx. .xxxx. ..xx.. xx..xx .xx..xx. xx.x.xx ..xxx.. .xxxx. ..xx.. xx... ..xx.. ...xx ...... ...... .... xx... .xx. ...xx .......
  var %big4 = .. .... ...... xxxxxxxx ...xx.xx .xx... xx..x. ... .xx.. ..xx. xxxxxxxx ..xx.. .xx ...... .. .xx... xxx.xx ...xx xx.... ....xx xxxxxxx ...xx xx..xx .xx... xx..xx ....xx xx .xx ..xx.. xxxxxx ..xx.. ..... xx.... xx..xx xx..xx xx..xx xx..xx xx... xx... xx..xx xx...xx .xx. xx..xx xx.xx. xx... xx.xx.xx xx.xxx xx..xx xx.... xx..xx. xx..xx ....xx ..xx.. xx..xx ..xxxx.. xxxxxxx .xx.xx. ..xx.. .xx... xx... ...xx. ...xx ...... ...... .... ..xx. .xx. .xx.. .......
  var %big5 = .. .xx. ...... .xx..xx. .xxxxxxx xx..xx .xxx.x ... ...xx xx... ...xx... ...... xx. ...... xx xx.... .xxxx. ...xx xxxxxx xxxxx. ....xx. xxxx. .xxxx. xx.... .xxxx. .xxxx. .. xx. ....xx ...... xx.... ..xx. .xxxxx xx..xx xxxxx. .xxxx. xxxxx. xxxxx xx... .xxxxx xx...xx xxxx .xxxx. xx..xx xxxxx xx....xx xx..xx .xxxx. xx.... .xxxxxx xx..xx xxxxx. ..xx.. .xxxx. ...xx... .xx.xx. xx...xx ..xx.. xxxxxx xxxxx ....xx xxxxx ...... xxxxxx .... ...xx .xx. xx... .......
  set -eu300 %_bigrb $iif(%_bigrb,$gettok($v1,2-,32) $gettok($v1,1,32),$regsubex(4 7 8 9 11 12 2 6 13,/(\d+)/g,0 $+ $chr(44) $+ \1))
  var %string = $regsubex($replace($upper($1-),$chr(160),$chr(32)),/[^\Q $+ %big $+ \E]/g,)
  var %i = 1
  while (%big [ $+ [ %i ] ]) {
    var %bigi = $v1
    var %bigi = $regsubex(racc,%string,/(*UTF8)(.)/g,$regsubex(coon,$gettok(%bigi,$poscs(%big,\t),32) $+ $chr(32),/(x+)/g $&
      ,$chr(3) $+ $gettok(%_bigrb,$calc(( [[ \n ]] -1) % 9 +1),32) $+ [[ \ $+ t ]] $+ $chr(3)))
    $iif($show,say,echo -a) $$replace(%bigi,x,.,.,$chr(160))
    inc %i
  } 
  if (!$event) && (!$editbox($active)) editbox -ap /big
} ; by Raccoon 2016 2017
; Based on http://pastebin.ca/824605 (Author Unknown, 2007)

; --- Aliases Tab ---
; /huge <text> -- Hueg Text Font for mIRC. (Simple version)
huge {
  if (!$0) { echo -atic notice * Usage: /.huge <text> (and without the dot) | return }
  var %huge = \x20!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~\u5350
  var %huge1 = ... ......... ....... ........... ....yx.... ......... ........... .... ..... ..... ..... ......... ... ......... ... ......... ......... ....... ........ ........ ........ ........ ........ ......... ......... ........ ..... ..... ....... ......... ....... ......... ............ ........ ......... ......... .......... ........ ........ .......... ......... ....... ........ ........ ........ ............ ........... ........... ......... ........... ........... ........ ......... ........... ............. ........... .......... ........... ......... ..... ......... ..... ........ ......... .... ......... ......... ........ ......... ......... ...... ......... ......... ..... ....... ........ ..... .......... ......... ......... ......... ......... ........ ....... ....... ......... ............ .......... ........ ........... .......... ..... ... ..... ............. .............
  var %huge2 = ... ......yxx yxx.yxx ..yxx.yxx.. .yxxxxxxx. yxx...yxx ..yxxxx.... .yxx ..yxx yxx.. ..... ......... ... ......... ... ......yxx .yxxxxxx. ..yxx.. .yxxxxx. .yxxxxx. ....yxx. yxxxxxx. ...yxx.. yxxxxxxxx .yxxxxxx. .yxxxxx. ..... ..... ....... ......... ....... ..yxxxxx. ..yxxxxxxx.. ..yxxx.. yxxxxxxx. .yxxxxxx. yxxxxxxx.. yxxxxxxx yxxxxxxx ..yxxxxxx. yxx...yxx yxxxxxx .yxxxxxx yxx..yxx yxx..... yxx......yxx yxxx....yxx ..yxxxxxx.. yxxxxxxx. ..yxxxxxx.. yxxxxxxx... .yxxxxx. yxxxxxxxx yxx.....yxx yx.........yx yxx.....yxx yxx....yxx yxx.....yxx yxxxxxxxx yxxxx yxx...... yxxxx ........ ......... yxx. ......... yxx...... ........ ......yxx ......... ...... ......... yxx...... .yxx. ....yxx yxx..... yxxx. .......... ......... ......... ......... ......... ........ ....... ....... ......... ............ .......... ........ ........... .......... .yxxx yxx yxxx. ............. yxx..yxxxxxxx
  var %huge3 = ... .....yxx. yxx.yxx ..yxx.yxx.. yxx.yx.yxx .....yxx. .yxx.yxx... yxx. .yxx. .yxx. yx.yx ...yxx... ... ......... ... .....yxx. yxx...yxx .yxxx.. yxx..yxx yxx..yxx ...yxxx. yxx..... ..yxx... ......yxx yxx...yxx yxx..yxx ..... ..... ....yxx ......... yxx.... .yxx..yxx .yxx....yxx. .yxxyxx. yxx...yxx yxx...yxx yxx...yxx. yxx..... yxx..... .yxx...yxx yxx...yxx ..yxx.. ....yxx. yxx.yxx. yxx..... yxxx....yxxx yxxxx...yxx .yxx...yxx. yxx...yxx .yxx...yxx. yxx...yxx.. yxx..yxx ...yxx... yxx.....yxx yxx.......yxx yxx.....yxx .yxx..yxx. .yxx...yxx. .....yxx. yxx.. .yxx..... ..yxx ..yxxx.. ......... .yxx ......... yxx...... ........ ......yxx ......... ..yxxx ......... yxx...... ..... ....... yxx..... .yxx. .......... ......... ......... ......... ......... ........ ....... .yxx... ......... ............ .......... ........ ........... .......... yxx.. yxx ..yxx ............. yxx..yxx.....
  var %huge4 = ... ....yxx.. ....... yxxxxxxxxxx yxx.yx.... ....yxx.. ..yxxxx.... .... yxx.. ..yxx .yxx. ...yxx... ... ......... ... ....yxx.. yxx...yxx yxxxx.. ....yxx. .....yxx ..yxyxx. yxx..... .yxx.... .....yxx. yxx...yxx yxx..yxx .yxx. .yxx. ..yxx.. yxxxxxxxx ..yxx.. .....yxx. yxx..yxx.yxx yxx..yxx yxx...yxx yxx...... yxx....yxx yxx..... yxx..... yxx....... yxx...yxx ..yxx.. ....yxx. yxxyxx.. yxx..... yxxxx..yxxxx yxxyxx..yxx yxx.....yxx yxx...yxx yxx.....yxx yxx...yxx.. yxx..... ...yxx... yxx.....yxx .yxx.....yxx. yxx.....yxx ..yxxyxx.. ..yxx.yxx.. ....yxx.. yxx.. ..yxx.... ..yxx .yxxyxx. ......... .... .yxxxxx.. yxxxxxx.. ..yxxxxx ..yxxxxxx .yxxxxxx. .yxx.. .yxxxxxx. yxxxxxxx. yxxx. ...yxxx yxx..yxx .yxx. .yxx..yxx. .yxxxxxx. .yxxxxxx. .yxxxxxx. .yxxxxxx. .yxxxxx. .yxxxxx yxxxxx. yxx...yxx yxx......yxx yxx....yxx yxx..yxx yxx.....yxx yxxxxxxxx. .yxx. yxx .yxx. ..yxxxx...yxx yxx..yxx.....
  var %huge5 = ... ...yxx... ....... ..yxx.yxx.. .yxxxxxxx. ...yxx... .yxx.yxx... .... yxx.. ..yxx yx.yx yxxxxxxxx ... yxxxxxxxx ... ...yxx... yxx...yxx ..yxx.. ...yxx.. ...yxxx. .yx.yxx. yxxxxxx. yxxxxxx. ....yxx.. .yxxxxxx. .yxxxxxx ..... ..... yxx.... ......... ....yxx ....yxx.. yxx.yxx..yxx yxxxxxxx yxxxxxxx. yxx...... yxx....yxx yxxxxxx. yxxxxxx. yxx..yxxxx yxxxxxxxx ..yxx.. ....yxx. yxxxx... yxx..... yxxyxxyxxyxx yxx.yxx.yxx yxx.....yxx yxxxxxxx. yxx.....yxx yxxxxxxx... .yxxxxx. ...yxx... yxx.....yxx ..yxx...yxx.. yxx.yxx.yxx ...yxxx... ...yxxxx... ...yxx... yxx.. ...yxx... ..yxx yxx..yxx ......... .... .....yxx. yxx..yxx. .yxx.... .yxx..yxx yxx...yxx yxxxxx yxx...yxx yxx...yxx .yxx. ....yxx yxx.yxx. .yxx. yxxxxyxxxx yxx...yxx yxx...yxx yxx...yxx yxx...yxx yxx..yxx yxx.... .yxx... yxx...yxx .yxx....yxx. yxx.yx.yxx .yxxyxx. .yxx...yxx. .....yxx.. yxx.. yxx ..yxx .yxx.yxx.yxx. yxxxxxxxxxxxx
  var %huge6 = ... ..yxx.... ....... yxxxxxxxxxx ....yx.yxx ..yxx.... yxx...yxx.. .... yxx.. ..yxx ..... ...yxx... ... ......... ... ..yxx.... yxx...yxx ..yxx.. ..yxx... .....yxx yxxxxxxx .....yxx yxx..yxx ...yxx... yxx...yxx ....yxx. ..... ..... ..yxx.. yxxxxxxxx ..yxx.. ...yxx... yxx..yxxxxx. yxx..yxx yxx...yxx yxx...... yxx....yxx yxx..... yxx..... yxx....yxx yxx...yxx ..yxx.. ....yxx. yxxyxx.. yxx..... yxx.yxxx.yxx yxx..yxxyxx yxx.....yxx yxx...... yxx..yxxyxx yxx...yxx.. .....yxx ...yxx... yxx.....yxx ...yxx.yxx... yxxyxxxxyxx ..yxxyxx.. ....yxx.... ..yxx.... yxx.. ....yxx.. ..yxx ........ ......... .... .yxxxxxx. yxx...yxx yxx..... yxx...yxx yxxxxxxx. .yxx.. yxx...yxx yxx...yxx .yxx. ....yxx yxxxxx.. .yxx. yxxyxxxyxx yxx...yxx yxx...yxx yxx...yxx yxx...yxx yxx..... .yxxxx. .yxx... yxx...yxx ..yxx..yxx.. yxxyxxxyxx ..yxxx.. ..yxx.yxx.. ...yxx.... .yxx. yxx .yxx. yxx...yxxxx.. .....yxx..yxx
  var %huge7 = ... ......... ....... ..yxx.yxx.. yxx.yx.yxx .yxx..... yxx....yxx. .... .yxx. .yxx. ..... ...yxx... ... ......... ... .yxx..... yxx...yxx ..yxx.. .yxx.... yxx..yxx ....yxx. yxx..yxx yxx..yxx ..yxx.... yxx...yxx ...yxx.. .yxx. .yxx. ....yxx ......... yxx.... ......... .yxx........ yxx..yxx yxx...yxx yxx...yxx yxx...yxx. yxx..... yxx..... .yxx...yxx yxx...yxx ..yxx.. yxx.yxx. yxx.yxx. yxx..... yxx..yx..yxx yxx...yxxxx .yxx...yxx. yxx...... .yxx..yxxx. yxx....yxx. yxx..yxx ...yxx... .yxx...yxx. ....yxxxx.... yxxxx.yxxxx .yxx..yxx. ....yxx.... .yxx..... yxx.. .....yxx. ..yxx ........ ......... .... yxx..yxx. yxx..yxx. .yxx.... .yxx..yxx yxx...... .yxx.. .yxxxxxxx yxx...yxx .yxx. ....yxx yxx.yxx. .yxx. yxx.yx.yxx yxx...yxx yxx...yxx yxxxxxxx. .yxxxxxxx yxx..... ....yxx .yxxyxx yxx...yxx ...yxxyxx... yxxxxyxxxx .yxxyxx. ...yxxxx... .yxx...... yxx.. yxx ..yxx ............. .....yxx..yxx
  var %huge8 = ... yxx...... ....... ..yxx.yxx.. .yxxxxxxx. yxx...yxx .yxxxxxxyxx .... ..yxx yxx.. ..... ......... yxx ......... yxx yxx...... .yxxxxxx. yxxxxxx yxxxxxxx .yxxxxx. ....yxx. .yxxxxx. .yxxxxx. .yxx..... .yxxxxxx. ..yxx... ..... ..yx. ....... ......... ....... .yxx..... ..yxxxxxxx.. yxx..yxx yxxxxxxx. .yxxxxxx. yxxxxxxx.. yxxxxxxx yxx..... ..yxxxxxx. yxx...yxx yxxxxxx .yxxxx.. yxx..yxx yxxxxxxx yxx......yxx yxx....yxxx ..yxxxxxx.. yxx...... ..yxxxxxx.. yxx.....yxx .yxxxxx. ...yxx... ..yxxxxxx.. .....yxx..... .yxx...yxx. yxx....yxx ....yxx.... yxxxxxxxx yxxxx ......yxx yxxxx ........ yxxxxxxxx .... .yxxxxxxx yxxxxxx.. ..yxxxxx ..yxxxxxx .yxxxxxx. .yxx.. ......yxx yxx...yxx yxxxx yxx.yxx yxx..yxx yxxxx yxx....yxx yxx...yxx .yxxxxxx. yxx...... ......yxx yxx..... yxxxxx. ..yxxx. .yxxxxxx. ....yxxx.... .yxx..yxx. yxx..yxx ....yxx.... yxxxxxxxx. .yxxx yxx yxxx. ............. yxxxxxxx..yxx
  var %huge9 = ... ......... ....... ........... ....yx.... ......... ........... .... ..... ..... ..... ......... .yx ......... ... ......... ......... ....... ........ ........ ........ ........ ........ ......... ......... ........ ..... ..... ....... ......... ....... ......... ............ ........ ......... ......... .......... ........ ........ .......... ......... ....... ........ ........ ........ ............ ........... ........... ......... .......yxx. ........... ........ ......... ........... ............. ........... .......... ........... ......... ..... ......... ..... ........ ......... .... ......... ......... ........ ......... ......... ...... .yxxxxxx. ......... ..... .yxxxx. ........ ..... .......... ......... ......... yxx...... ......yxx ........ ....... ....... ......... ............ .......... ........ ...yxx..... .......... ..... ... ..... ............. .............
  var %huge = %huge $+ \x80\x81\x82\x83\x84\x85\x86\x87\x88\x89
  var %huge1 = %huge1 ...yxxx......yxxx... ...yxxx......yxxx... .......yxxxxx....... .yxxx......yxxx .........yxx....... .....yxxx..... ......yxxx...... ........yxxx........ .......yxxxxx....... .....yxxx.....
  var %huge2 = %huge2 .yxxx.yxx..yxx.yxxx. .yxxxxxxx..yxxxxxxx. ....yxxxyxxxyxxx.... ..yxxx....yxxx. ........yxxx....... .....yxxx..... .....yxxyxx..... ......yxxx.......... ....yxxx....yxxx.... .....yxxx.....
  var %huge3 = %huge3 yxx.....yxxx.....yxx yxxxxxxxxxxxxxxxxxxx ..yxx...yxxx...yxx.. ...yxxx...yxxx. ..yxx...yxxx....... yxxxxxxxxxxxxx yxxxxxxxxxxxxxxx ....yxxx....yxxx.... ..yxxxyxxxyxxxyxxx.. .....yxxx.....
  var %huge4 = %huge4 yxx......yx......yxx yxxxxxxxxxxxxxxxxxxx yxx.....yxxx.....yxx ....yxxx.yxxx.. .yxxxyxxyxxx.yxx... yxxxxxxxxxxxxx .yxxyx....yxyxx. ......yxxxyxxxyxxx.. yxx.yxxyxxxxxyxx.yxx .....yxxx.....
  var %huge5 = %huge5 .yxx............yxx. .yxxxxxxxxxxxxxxxxx. yxx...yxxxxxxx...yxx ...yxyxxxyxxx.. yxxxyxxxyxxxyxxxyxx .....yxxx..... ..yxx......yxx.. yxxx....yxxx....yxxx yxx..yxx....yxx..yxx .....yxxx.....
  var %huge6 = %huge6 ...yxx........yxx... ...yxxxxxxxxxxxxx... yxx.yxxxyxxxyxxx.yxx .yxxxxxxxxxyxxx yxxxyxxxyxxxyxxxyxx .....yxxx..... .yxxyx....yxyxx. ..yxxxyxxxyxxx...... yxxyxxxxxxxxxxxxxyxx yxxxxxxxxxxxxx
  var %huge7 = %huge7 .....yxx....yxx..... .....yxxxxxxxxx..... ..yxxxx.yxxx.yxxxx.. yxxxxxxxxxxxxxx .yxxxxxxxxxxxxxxxxx .....yxxx..... yxxxxxxxxxxxxxxx ....yxxx....yxxx.... ..yxx..yxxyxx..yxx.. yxxxxxxxxxxxxx
  var %huge8 = %huge8 .......yxxyxx....... .......yxxxxx....... ....yxxxyxxxyxxx.... .yxxxxxxxxxxxx. ...yxxxxxxxxxxxxx.. .....yxxx..... .....yxxyxx..... ..........yxxx...... ....yxxxyxxxyxxx.... .....yxxx.....
  var %huge9 = %huge9 .........yx......... .........yx......... .......yxxxxx....... ..yxxxxxxxxxx.. .....yxxxxxxxxx.... .....yxxx..... ......yxxx...... ........yxxx........ .......yxxxxx....... .....yxxx.....
  var %string = $replacex($1-,:heart:,\x80,  :love:  ,\x81,      :peace:  ,\x82,      :psign:  ,\x83, :finger:  ,\x84,    :cross: ,\x85, :jew: ,\x86,     :nazi:  ,\x87,       :satan:  ,\x88,      :anti:  ,\x89, $chr(160),$chr(32))
  var %huge = $regsubex(%huge,/\\x([0-9a-fA-F]{2})|\\u([0-9a-fA-F]{4})/g,$chr($base(\1,16,10)))
  var %string = $regsubex(%string,/\\x([0-9a-fA-F]{2})|\\u([0-9a-fA-F]{4})/g,$chr($base(\1,16,10)))
  var %string = $regsubex(%string,/[^\Q $+ %huge $+ \E]/g,)
  set -eu300 %_hugerb1 $iif(%_hugerb1,$gettok($v1,2-,32) $gettok($v1,1,32),$regsubex(4 8 9 11 12 13 15,/(\d+)/g,0 $+ $chr(44) $+ \1))
  set -eu300 %_hugerb2 $iif(%_hugerb2,$gettok($v1,2-,32) $gettok($v1,1,32),$regsubex(5 7 3 10  2  6 14,/(\d+)/g,0 $+ $chr(44) $+ \1))
  var %i = 1
  while (%huge [ $+ [ %i ] ]) {
    var %hugei = $v1
    var %bigi = $regsubex(racc,%string,/(*UTF8)(.)/g,$regsubex(coon,$gettok(%hugei,$poscs(%huge,\1),32) $+ $chr(32),/(x+)|(y+)/gF $&
      ,$chr(3) $+ $gettok($iif( [[ \ $+ 1 ]] ,%_hugerb1,%_hugerb2),$calc(( [[ \n ]] -1) % 7 +1),32) $+ [[ \ $+ 1 $+ \ $+ 2 ]] $+ $chr(3)))
    $iif($show,say,echo -a) $$replace(%bigi,x,.,y,.,.,$chr(160),$chr(3) $+ $chr(3),$chr(3))
    inc %i
  } 
  if (!$event) && (!$editbox($active)) editbox -ap /huge
} ; by Raccoon 2017 @ http://hawkee.com/snippet/18623/
; Based on hueg font by LIFELIKE (rip); irssi script hueg.pl 'make text hueg LOL'
; https://github.com/acidvegas/irssi/blob/master/.irssi/scripts/autorun/hueg.pl
; Extra credit 'modded by ma0 and others' @ https://pastebin.com/8Q6iu4UB
; Extra credit mirccloud (IRCCloud) javascript port by bzb @ https://github.com/erm/mirccloud

DNS-Resolver

Wed, 03 Apr 2024 00:42:01 +0000

Info:

This module let you trying to resolve the given parameter and any results that will be found
will output into the channel or the user with private notice depending in the command that you enter,
you can also change the settings from this module from the Menubar or via /wdr_sets command.

Installation:

This module is an part of WESTOR Module Manager that you must download and install it in order to work this module because the manager contains some require codes, if you already have the manager then just copy/paste the code into a new file and load it or paste it into an new file into the Script Editor in Remotes tab, also if you want you can download and install this module it directly from the manager with 1 click instead to do all the before steps, it is recommended to download the latest version from here.

Details:

Suppored Languages: English - Greek
Suppored Operating Systems: 7 - 8 - 8.1 - 10
Suppored Programs: mIRC 7.49+ or AdiIRC 2.9+

Examples:

!DNS hawkee.com
@DNS hawkee.com

Screenshots:

BitlBee Script

Wed, 21 Dec 2022 16:29:21 +0000

This is a script for BitlBee. BitlBee is an IRC platform that allows you to connect with all social networks right inside your IRC client! More information is in the script itself.

This script here will enhance your BitlBee experience!

Any questions or problems? You can ask me here, or visit my IRC channel #Andrew on GameSurge.

; =========================================================================================
; Bitlbee.mrc by Andrew
; Version 1.0.3

; ================ Introduction: ====================
; This script will echo to your active channel, and show tooltips for the following:
; - When a user signs in anywhere
; - When a user signs out anywhere
; - When a user goes idle
; - When a user returns from idle

; =============== Usage: ============================
; First, you will need to set up an account on one of the BitlBee networks.
; For a list of networks you can connect to, visit:
; http://www.bitlbee.org/main.php/servers.html

; When you have eonnected to one of the networks, change your nick to what you want to log in as
; then say "register " in the &bitlbee channel to make your account.

; Now you need to add accounts. To do this, use:
; account add  
; Valid protocols are:
; Jabber, MSN, OSCAR (AIM/ICQ), Yahoo and Twitter
; Example:
; account add yahoo foobar
; account
; Next you need to enter your password for that account, to do this type:
; /oper  

; Example:
; /oper foobar foobarpass

; If you encounter any problems with BitlBee or this script, feel free to chat with me on:
; irc.gamesurge.net #Andrew

; ================== Configuration: ========================

; Do you use a specific nick on BitlBee? If you do change this variable below, otherwise just leave it blank. Your nick will not be changed if nothing is here.
; Note: for auto-login it will use your current nick ($me) to OPER using %bbpasswors set below.
set %bbnick $me

; Set this to your BitlBee password. If you leave this variable empty auto-login will be disabled.
set %bbpassword 
; ================== End of configuration ==========================

; == Auto nick change ==
on *:CONNECT:{
  if ($network == BitlBee && %bbnick !isnum) { 
    if ($me != %bbnick) { nick %bbnick }
  }
}

; == Auto login ==
on *:TEXT:*:&bitlbee:{
  if ($network == BitlBee && $5 == gateway! && %bbpass !isnum) {  
    msg &bitlbee identify 
    if (%bbnick !isnum) { oper %bbnick %bbpass }
    else { oper $me %bbpass }
  }
}

; Log in
on *:JOIN:&bitlbee:{
  set %cnck $nick
  if (%onick isnum) { set %onick 1 }
  inc %onick +1
  ; Facebook log in
  if (*.facebook.com iswm $address) { 
    BitlBeeTip $nick has just logged in to Facebook Chat
  }
  ; Yahoo log in
  elseif (yahoo iswm $address) { 
    BitlBeeTip $nick has just logged in to Yahoo Chat
  }
  ; Windows Live log in
  elseif (*.hotmail.com iswm $address || *.live.com iswm $address) { 
    BitlBeeTip $nick has just logged in to Windows Live Chat
  }
  ; Google Talk log in
  elseif (*.gmail.com iswm address) { 
    BitlbeeTip $nick has just logged in to Google Talk
  }
}

; Log out
on *:QUIT:{
  if ($network == BitlBee) { 
    ; Facebook log out
    dec %onick -1
    if (*.facebook.com iswm $address) { 
      BitlBeeTip $nick has just logged out of Facebook Chat
    }
    ; Yahoo log in
    elseif (yahoo iswm $address) { 
      BitlBeeTip $nick has just logged out of Yahoo Chat
    }
    ; Windows Live log in
    elseif (*.hotmail.com iswm $address || *.live.com iswm $address) { 
      BitlBeeTip $nick has just logged out of Windows Live Chat
    }
    ; Google Talk log in
    elseif (*.gmail.com iswm address) { 
      BitlbeeTip $nick has just logged out of Google Talk
    }
  }
}

; Away
on *:DEVOICE:&bitlbee:{
  set %dvnick $vnick
  if (%dvnicks isnum) { set %dvnicks 1 }
  inc %dvnicks +1
  BitlBeeTip $vnick is now away
}

; Return from away
on *:VOICE:&bitlbee:{
  if ($vnick != %cnick && > %dvnicks >= 1) { 
    BitlBeeTip $vnick has returned from away
    dec %dvnicks -1
  }
}

alias bitlbee {
  if ($1 == vars) { 
    echo -a Current BitlBee nick: %bbnick
    echo -a Currentl BitlBee password: %bbpass
    echo -a Variable cnick: %cnick
    echo -a Onlne nicks: %onicks
    echo -a Away nicks: %dvnicks
  }
  elseif ($1 == logout) { 
    .msg &bitlbee account off
    .timer1 1 5 BitlBeeTip You have been signed out of BitlBee
    unset %onicks
    unset %anicks
  }
  elseif ($1 == login) { 
    .msg &bitlbee identify
    oper %bbnick %bbpass
    .timer1 1 5 BitlBeeTip You have been signed in to BitlBee
  } 
  else {
    echo -a Usage: /bitlbee vars|logout|login
  }
}

alias BitlBeeTip {
  if ($tip(bitlbee)) tip -t bitlbee $+($tip(bitlbee).text, $crlf, -, $crlf, $1-)
  else noop $tip(bitlbee, BitlBee Notification, $1-, 7)
}

Node.js HTML5 Websocket Example

Wed, 21 Dec 2022 14:49:23 +0000

Below is a very simple example of how to create a basic websocket using node.js. Websockets are great for maintaining a server/client relationship without as much of the overhead of HTTP web traffic. Today, websockets are used to build a magnitude of browser-based real-time applications (live chats, multiplayer games). Basically it's a persistent connection between the server and client in which both applications can send data. Typically, long-polling or Flash have been used as alternatives.

First, you'll need to install the "websocket" package using the Node Package Manager.

			
											1
										
npm install websocket

You may get an error about the Native code not compiling. (attow) I haven't looked into how to resolve that but the websocket package typically still works. Next we'll setup the server and client. Using the javascript below as a basic skeleton, you'll want to start the server just as any other node snippet. In our example, the server will listen for connections and reply "hello" (to any and everything the client sends) then another message shortly after.

ar server = require('websocket').server, http = require('http');

var socket = new server({
    httpServer: http.createServer().listen(1337)
});

socket.on('request', function(request) {
    var connection = request.accept(null, request.origin);

    connection.on('message', function(message) {
        console.log(message.utf8Data);
        connection.sendUTF('hello');
        setTimeout(function() {
            connection.sendUTF('this is a websocket example');
        }, 1000);
    });

    connection.on('close', function(connection) {
        console.log('connection closed');
    });
});

Once the server has been started, you can use the code below in any HTML5 browser (that carries websocket support) to establish a connection to the server. In this example, the client sends a "hello" message when it opens the connection and puts anything it receives into the #content div.

<div id="content">div>

<script type="text/javascript">
    var content = document.getElementById('content');
    var socket = new WebSocket('ws://localhost:1337');
    socket.onopen = function () {
        socket.send('hello from the client');
    };

    socket.onmessage = function (message) {
        content.innerHTML += message.data +'
';
    };

    socket.onerror = function (error) {
        console.log('WebSocket error: ' + error);
    };
script>

Email Verify Script by OrFeAsGr v0.1

Wed, 21 Dec 2022 14:52:04 +0000

SCRIPT ID: EMAIL
Hi! This is one more mIRC Script by OrFeAsGr !
Quick FAQ
-What do i need your script for?
This script uses the API provided by https://mailboxlayer.com/ to verify if the email you request is a real email
-Neat! How does it work?
The script triggers with a channel message! Type !emailver
(Of course without the < and > around the email address)
The bot responds with a channel message!
-Do i need something extra for the script to work?
Yes and no. I have registered for a free account on https://mailboxlayer.com/ so the limit of requests is 1000 per month.
If some users start using the script the limit will be reached soon and the script will message the following error:
Code: 104 Type: "usage_limit_reached" Info: User has reached or exceeded his subscription plan's monthly API Request Allowance.
You could use the key i provide to test if the limit isn't reached at the time but soon you'll have to easily sign up at https://mailboxlayer.com/ and get your API key.
Then replace my key with yours at line 8 of the script.
i.e this line:
return 00564d4dfd1e326146ed7568f367b2f6
(do not erase return)

So this is all i had to explain!
Here's the script!
v0.1 24/6/2016
-Added version and ID for Update Checker!

;;; v0.1 24/6/2016 ;;;
;;; http://humanity.ucoz.com ;;;
alias emailver {
  sockopen emailver apilayer.net 80
  set %emailver $1
  set %emailchan $2
}
alias emailverapikey {
return 00564d4dfd1e326146ed7568f367b2f6
}

ON *:SOCKOPEN:emailver: {
  if ($sockerr) { msg %emailchan 10An Error Occured While Verifying %emailver | unset %emailver %emailchan | sockclose $sockname }
  sockwrite -nt $sockname GET $iif(%emailver, $+(/api/check?access_key=,$emailverapikey,&email=,$v1,&smtp=1&format=1), $null) HTTP/1.1
  sockwrite -nt $sockname Host: apilayer.net
  sockwrite $sockname $crlf
}

ON *:SOCKREAD:emailver: {
  if ($sockerr) { msg %emailchan An Error Occured While Verifying %emailver | unset %emailchan %emailver | sockclose $sockname }
  var %ev
  sockread %ev
  if (*smtp_check":true* iswm %ev) {
    msg %emailchan 3Email14: %emailver $+($chr(03),03,$chr(10004)) 7Exists14! 
    unset %emailchan
    unset %emailver
    sockclose $sockname
  }
  elseif (*smtp_check":false* iswm %ev) {
    msg %emailchan 3Email14: %emailver $+($chr(03),04,$chr(10008)) 7Doesn14'7t Exist14! 
    unset %emailver
    sockclose $sockname
  }
  elseif (*success": false* iswm %ev) {
    set %evfalse 1
  }
  if (%evfalse) {
    if (*code":* iswm %ev) {
      set %errorcode $remove($gettok(%ev,2,58),$chr(44))
    }
    if (*type":* iswm %ev) {
      set %errortype $remove($gettok(%ev,2,58),$chr(44))
    }
    if (*info":* iswm %ev) {
      set %errorinfo $remove($gettok(%ev,2,58),$chr(44))
      unset %evfalse
      sockclose $sockname
      msg %emailchan 10Your Request For %emailver 10Returned the following error14:
      .timer 1 1 msg %emailchan 10Code14: %errorcode 10Type14: %errortype 10Info14: %errorinfo
      .timer 1 2 unset %emailchan %errorinfo %errortype %errorcode
    }
  }
}

ON *:TEXT:*:#: {
  if (!emailver == $strip($1)) {
  if (!%EMAILversion) || (%EMAILversion != v0.1) { set %EMAILversion v0.1 }
    if (*@*.* !iswm $strip($2)) {
      .timer 1 1 msg $chan 10The email you requested was not checked because it doesn't match the usual format of email adresses14. Please provide a valid email (e.g oneemail@someserver.com)
    }
    elseif (*@*.* iswm $strip($2)) {
      if (!%emvdel) {
        set -u100 %emvdel 1
        emailver $strip($2) $chan
      }
    }
  }
}
;;;;;;Script by OrFeAsGr;;;;;;;;
;;;;http://humanity.ucoz.com;;;;
;;;;;;Humanity I.R.C Bot;;;;;;;;

kvirc to mIRC Avatars

Wed, 21 Dec 2022 14:45:13 +0000

So.
Last night I decided to try out kvirc.
I'll be honest I don't like it.
Its too picturey I like basic text.

But out of all features, one feature really caught my eye.
"The AVATAR Idea"
The concept of users having avatars on IRC.

I really liked this idea, a friend on a chat server told be it used DCC.
I asked about how it worked and he werent to sure as he didn't use that feature.

So after playing around with mIRC and kvirc I found out how it works.

Its just CTCP's and DCC's 😄

So I spent till 5am coding this damn thing up after a lot of dead ends and troubleshooting I've sorted it.
So have fun,

Report any bugs you find.

NOTE:
Currently two mIRC clients don't properly swap avatars.
I intend to fix this soon!

Leave comments, bug reports and suggestions below.

I intend to setup a bug reporting system for my scripts!

Find me at irc.ilkotech.co.uk in #ilkotech if you want help with anything mIRC related!

;The AVATAR Idea.
;This nice feature is used in kvirc, and its nice.
;So why not let mIRC do the same?
;So thats what I intend to do with this script.
;Unluckily i've never used DCC in scripts so this will be a test.

;Script by Thomas Edwards (TMFKSOFT)
;Copyright Ilkotech.co.uk & Thomas Edwards 2011

;I plan for it to modify the address book :)

;Let the games begin.

menu nicklist {
  -
  Notify Avatar:/avatar_send $1
  View Avatar:/avatar_view $1
}
menu * {
  Set Avatar:/avatar_set
}
alias avatar_send {
  if (%avatar_name != $null) {
    ctcpreply $1 AVATAR $replace(%avatar_name,$chr(32),_) %avatar_size
  }
  else {
    echo 4You have not set an avatar. Set one via /avatar_set
  }
}
alias avatar_set {
  var %file $sfile($mircdir $+ avatars\,Select Avatar)
  set %avatar_size $file(%file).size
  set %avatar_name $right(%file,$calc(0 - $pos(%file,\,$count(%file,\))))
  set %avatar_path %file
  echo Avatar set!
}
alias avatar_view {

  if ($1 == $me) {

    if (%avatar_name != $null) {
      window -osCdbptw0 @Avatar 0 0 256 256
      drawpic -s @Avatar 0 0 256 256 %avatar_path
    }
    else {
      echo 4You have not set an avatar. Set one via /avatar_set
    }
  }
  else {
    if ($readini(avatars.ini,others,$1) != $null) {
      window -soCdbptw0 @Avatar 0 0 265 292
      drawpic -s @Avatar 0 0 256 256 avatars\ $+ $readini(avatars.ini,others,$1)
    }
  }
  else {
    echo -t [Avatar] $1 does not have an Avatar. Why not politely ask them for it?
  }
}
on *:CTCPREPLY:AVATAR*:{
  echo -t $active [Avatar] $nick changes their avatar to $qt($2)
  if ($exists(avatars\) == $FALSE) {
    mkdir avatars
  }
  if ($exists(avatars\ $+ $2) == $FALSE) {
    raw -q NOTICE $nick :DCC GET $2 $3 $+ 
    set %avatar_recv 1
  }
  echo Avatar exists. Updating user avatar.
  writeini avatars.ini others $nick $2
  HALTDEF
}

CTCP *:DCC:{
  if ($2 == GET) {
    echo Sending Avatar. File: $replace(%avatar_name,$chr(32),_) Size: %avatar_size User: $nick
    dcc SEND $nick %avatar_path
  }
}
on *:FILERCVD:*:{
  if (%avatar_recv == 1) {
    copy -o $file($filename).shortfn avatars\
    remove $file($filename).shortfn
    unset %avatar_recv
  }
}
on *:NICK:{
  if ($readini(avatars.ini,others,$nick) != $null) {
    writeini avatars.ini others $newnick $readini(avatars.ini,others,$nick)
    remini avatars.ini others $nick
  }
}

Extensible Account System

Wed, 21 Dec 2022 04:04:47 +0000

So I've been working on this for a little bit. I wanted to make something where you could have a registration system for all scripts that wanted to support this kind of thing. For example if you had a casino script or trivia script that wanted to register users, you could do so with this script for both of them (assuming they were compatible). I would definitely like to collaborate with mIRC script writers who are looking to use this kind of system. I'm almost always available on skype via: jasonsphone01

Since this is a system all it's own, it does not require any other plugins to help it run. If you have any questions please use the comment section below or feel free to message me on skype! (or if you want to invite me to your IRC server, that'll work too)

Change Log:
SR-001
Extensible Account Script v.0.1.0.0.bta
Beta Release version of the EAS.

HF-001
Extensible Account Script v.0.1.0.1.bta
Clean-up of the code used in EAS.
Added more identifiers to the $eas alias
Commented-out ability to type /account open to open the account dialog.
Added the -c tag to the /account alias (before any additional arguments) to clear out the window before processing any other information.

SU-001
Extensible Account Script v.0.2.0.0.bta
Added dialogs for all normal /account alias commands.
Additional code clean-up.
Added $alock() alias for a quicker look at various user's account lock information.
Added a change log.

SU-002
Extensible Account Script v.0.3.0.0.bta
Added Menu option to bring up the console
Added an on TEXT event handler

MU-001
Extensible Account Script v.0.3.1.0.bta
Added information text to /account info command.
Added installation and version update times for statistical purposes.

MU-002
Extensible Account Script v.0.3.2.1.bta
Added Staff Channel with and output option
Added the ability to auto-join this channel upon connecting to a server.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;Extensible Account Script;;;;;
;;;;;;;Version: 0.3.2.1.bta;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;
;;;;;Aliases;;;;;
;;;;;;;;;;;;;;;;;

alias eas {
  If ($1 == version) { return 0.3.2.1.bta }
  If ($1 == left) { return 9,1[EAS] }
  If ($1 == checkversion) { return $readini(account/account.ini,status,version) }
  If ($1 == settings) { return $readini(account/account.ini,settings,$2) }
  If ($1 == status) { return $readini(account/account.ini,status,$2) }
  If ($1 == perm) { return $readini(account/ $+ $2 $+ /permissions.ini,perms,$3) }
  If ($1 == gperm) { return $readini(account/staff/groups.ini,$2,$3) }
  If ($1 == isRegistered) { return $readini(account/ $+ $2 $+ /account.ini,status,registered) }
  If ($1 == isStaff) { return $readini(account/ $+ $2 $+ /account.ini,power,staff) }
  If ($1 == staffGroup) { return $readini(account/ $+ $2 $+ /account.ini,power,position) }
  If ($1 == isGroup) { return $readini(account/staff/groups.ini,$2,registered) }
  If ($1 == userPass) { return $readini(account/ $+ $2 $+ /account.ini,status,password) }
  If ($1 == userEmail) { return $readini(account/ $+ $2 $+ /account.ini,status,email) }
  If ($1 == opLevel) { return $readini(account/staff/groups.ini,$2,oplevel) }
  If ($1 == loggedIn) { return $readini(account/ $+ $2 $+ /account.ini,status,loggedin) }
  If ($1 == joinTime) { return $readini(account/ $+ $2 $+ /account.ini,status,jointime) }
}
alias alock {
  If (!$2) { return $readini(account/ $+ $1 $+ /account.ini,status,locked) }
  Elseif ($2 == date) { return $readini(account/ $+ $1 $+ /account.ini,status,lastlockdate) }
  Elseif ($2 == locker) { return $readini(account/ $+ $1 $+ /account.ini,status,lastlocker) }
  Elseif ($2 == reason) { return $readini(account/ $+ $1 $+ /account.ini,status,lockreason) }
  Elseif ($2 == unlock) { return $readini(account/ $+ $1 $+ /account.ini,status,unlocktime) }
  Else { return error }
}

alias cout { echo -a $eas(left) $1- }
alias re { $1- }
alias start { dialog $iif($dialog($1) == $1,-v,-md $1) $1 }
alias dclose { dialog -x $dname }

alias account {
  If (-c isin $1) {
    clear
    re account $2-
    halt
  }
  $iif($1 == open,,cout ==========)
  If ($readini(account/account.ini,status,installed) != yes) {
    If (!$1) { cout Please type 3/account install to install the Extensible Account Script. | halt }
    Elseif ($1 != install) { cout Please type 3/account install to install the Extensible Account Script. | halt }
    Else {
      cout Please wait...
      mkdir account
      writeini account/account.ini status installed yes
      writeini account/account.ini status version $eas(version)
      writeini account/account.ini status installtime $ctime
      writeini account/account.ini status updatetime $ctime
      writeini account/account.ini settings password on
      writeini account/account.ini settings email on
      writeini account/account.ini settings emailvalidate on
      write account/perms.txt op
      write account/perms.txt lockBypass
      mkdir account/staff
      re account group Owner add 4
      re account group Admin add 2
      writeini account/account.ini settings registration on
      writeini account/account.ini settings login on
      write account/opleveldesc.txt 7 - Staff, Bot Owner
      write account/opleveldesc.txt 6 - Staff, Owner (Supported services (ie ~ rank in channel))
      write account/opleveldesc.txt 5 - Staff, Admin (Supported services (ie & rank in channel))
      write account/opleveldesc.txt 4 - Staff, Operator (ie @ in channel))
      write account/opleveldesc.txt 3 - Staff, Halfop (Supported services (ie % rank in channel))
      write account/opleveldesc.txt 2 - Staff, Voice (ie + in channel))
      write account/opleveldesc.txt 1 - Staff, No rank
      write account/opleveldesc.txt 0 - Member, non-staff
      writeini account/account.ini settings output off
      writeini account/account.ini status output #account
      writeini account/account.ini settings enforcechannelaccess true
      writeini account/account.ini settings autojoin true
      cout Installation complete!
      re account
    }
  }
  Elseif ($eas(checkversion) != $eas(version)) {
    If (!$1) { cout Please type /account update to update the Extensible Account Script. | halt }
    Elseif ($1 != update) { cout Please type /account update to update the Extensible Account Script. | halt }
    Else {
      cout Please wait...
      If (!$eas(checkversion)) {
        ;;;;;Update to version 0.1.0.0.dev;;;;;
      }
      If ($eas(checkversion) == 0.1.0.0.dev) {
        ;;;;;Update to version 0.1.0.1.dev;;;;;
        writeini account/account.ini settings password on
        writeini account/account.ini settings email on
      }
      If ($eas(checkversion) == 0.1.0.1.dev) {
        ;;;;;Update to version 0.1.0.2.dev;;;;;
        writeini account/account.ini settings emailvalidate on
      }
      If ($eas(checkversion) == 0.1.0.2.dev) {
        ;;;;;Update to version 0.2.0.0.dev;;;;;
        write account/perms.txt op
        write account/perms.txt lockBypass
        mkdir account/staff
      }
      If ($eas(checkversion) == 0.2.0.0.dev) {
        ;;;;;Update to version 0.2.1.0.dev;;;;;
        re account group Owner add 4
        re account group Admin add 2
      }
      If ($eas(checkversion) == 0.2.1.0.dev) {
        ;;;;;Update to version 0.2.2.0.dev;;;;;
        writeini account/account.ini settings registration on
        writeini account/account.ini settings login on
      }
      If ($eas(checkversion) == 0.2.2.0.dev) {
        ;;;;;Update to version 0.1.0.0.bta;;;;;
        ;;;;;This is the official beta release;;;;;
        ;;;;;If anyone would like to colaberate on this project with me, add me on skype: jasonsphone01
        write account/opleveldesc.txt 7 - Staff, Bot Owner
        write account/opleveldesc.txt 6 - Staff, Owner (Supported services (ie ~ rank in channel))
        write account/opleveldesc.txt 5 - Staff, Admin (Supported services (ie & rank in channel))
        write account/opleveldesc.txt 4 - Staff, Operator (ie @ in channel))
        write account/opleveldesc.txt 3 - Staff, Halfop (Supported services (ie % rank in channel))
        write account/opleveldesc.txt 2 - Staff, Voice (ie + in channel))
        write account/opleveldesc.txt 1 - Staff, No rank
        write account/opleveldesc.txt 0 - Member, non-staff
      }
      If ($eas(checkversion) == 0.1.0.0.bta) {
        ;;;;;Update to version 0.1.0.1.bta;;;;;
        ;;;;;Code clean-up;;;;;
        ;;;;;Nothing to add presently;;;;;
      }
      If ($eas(checkversion) == 0.1.0.1.bta) {
        ;;;;;Update to version 0.2.0.0.bta;;;;;
        ;;;;;Code clean-up;;;;;
        ;;;;;Added dialogs;;;;;
        ;;;;;Nothing to add here;;;;;
      }
      If ($eas(checkversion) == 0.2.0.0.bta) {
        ;;;;;Update to version 0.3.0.0.bta;;;;;
        ;;;;;Code clean-up;;;;;
        ;;;;;Added Menu and on Text event handler;;;;;
        ;;;;;Nothing to add here;;;;;
      }
      If ($eas(checkversion) == 0.3.0.0.bta) {
        ;;;;;Update to version 0.3.1.0.bta;;;;;
        ;;;;;Added information text to /account command;;;;;
        writeini account/account.ini status installtime $ctime
      }
      If ($eas(checkversion) == 0.3.1.0.bta) {
        ;;;;;Update to version 0.3.2.0.bta;;;;;
        ;;;;;Added Staff Output Channel;;;;;
        writeini account/account.ini settings output off
        writeini account/account.ini status output #account
        writeini account/account.ini settings enforcechannelaccess true
      }
      If ($eas(checkversion) == 0.3.2.0.bta) {
        ;;;;;Update to version 0.3.2.1.bta;;;;;
        ;;;;;Added on Conect option to auto-join the account channel;;;;;
        writeini account/account.ini settings autojoin on
      }
      writeini account/account.ini status version $eas(version)
      writeini account/account.ini status updatetime $ctime
      cout Update complete!
      re account
    }
  }
  Else {
    If (!$1) {
      cout Please select from the following options:
      cout To view options for account management, please type /account manage
      cout To view options for staff management, please type /account staff
      cout To view options for script settings, please type /account settings
      cout To bring up the dialog for this script, please type /account open
      cout To view information about this script, please type /account info
    }
    Elseif ($1 == open) { start account }
    Elseif ($1 == manage) {
      cout Please select from the following options:
      cout To register/unregister a user, please type /account <register|unregister>  $iif($eas(settings,password) == on,[password],) $iif($eas(settings,email) == on,[email],)
      cout To login/logout a user, please type /account <login|logout> 
      cout To lock/unlock a user account, please type /account <lock|unlock>  [time to expire in seconds] [reason for lock]
      cout To view the list of settings on a user account and how to modify them, please type /account view 
    }
    Elseif ($1 == register) {
      If (!$2) { cout Please type /account register  $iif($eas(settings,password) == on,<password>,) $iif($eas(settings,email) == on,<email>,) | halt }
      If ($eas(isRegistered,$2) == yes) { cout This user is already registered! | halt }
      If ($eas(settings,password) == on) && ($eas(settings,email) == on) {
        If (!$4) { cout Please type /account register    | halt }
        If ($eas(settings,emailvalidate) == on) {
          If ($readini(account/account.ini,emailvalidate,$4) == registered) { cout This email is already registered to a user! | halt }
          Else { writeini account/account.ini emailvalidate $4 registered }
        }
        mkdir account/ $+ $2
        writeini account/ $+ $2 $+ /account.ini status password $3
        writeini account/ $+ $2 $+ /account.ini status email $4
      }
      Elseif ($eas(settings,password) == on) {
        If (!$3) { cout Please type /account register   | halt }
        mkdir account/ $+ $2
        writeini account/ $+ $2 $+ /account.ini status password $3
      }
      Elseif ($eas(settings,email) == on) {
        If (!$3) { cout Please type /account register   | halt }
        If ($eas(settings,emailvalidate) == on) {
          If ($readini(account/account.ini,emails,$3) == registered) { cout This email is already registered to a user! | halt }
          Else { writeini account/account.ini emailvalidate $3 registered }
        }
        mkdir account/ $+ $2
        writeini account/ $+ $2 $+ /account.ini status email $3
      }
      Else {
        mkdir account/ $+ $2
      }
      writeini account/ $+ $2 $+ /account.ini status registered yes
      writeini account/ $+ $2 $+ /account.ini status loggedin no
      writeini account/ $+ $2 $+ /account.ini status lastlogin na
      writeini account/ $+ $2 $+ /account.ini status locked no
      writeini account/ $+ $2 $+ /account.ini status lastlockdate na
      writeini account/ $+ $2 $+ /account.ini status lastlocker na
      writeini account/ $+ $2 $+ /account.ini status lockreason na
      writeini account/ $+ $2 $+ /account.ini status unlocktime $ctime
      writeini account/ $+ $2 $+ /account.ini status jointime $ctime
      writeini account/ $+ $2 $+ /account.ini power staff no
      writeini account/ $+ $2 $+ /account.ini power position member
      writeini account/ $+ $2 $+ /account.ini power premium no
      writeini account/ $+ $2 $+ /account.ini power premiumExpiration $ctime
      write account/accounts.txt $2
      cout Account registration for the nickname $2 is complete!
    }
    Elseif ($1 == unregister) {
      If (!$2) { cout Please type /account unregister  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This isn't a registered user. | halt }
      remini account/account.ini emailvalidate $eas(userEmail,$2)
      .remove account/ $+ $2 $+ /account.ini
      .remove account/ $+ $2 $+ /permissions.ini
      rmdir account\$2
      write -ds $+ $2 account/accounts.txt
      cout User Unregistration Complete!
    }
    Elseif ($1 == login) {
      If (!$2) { cout Please type /account login  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This isn't a registered user. | halt }
      If ($eas(loggedIn,$2) == yes) { cout This user is already logged in. | halt }
      writeini account/ $+ $2 $+ /account.ini status loggedin yes
      writeini account/ $+ $2 $+ /account.ini status lastlogin $ctime
      If (-s !isin $3-) { cout User has been logged-in sucessfully! }
      If ($alock($2) == yes) { cout Warning! User is currently locked but has been logged-in anyway! }
    }
    Elseif ($1 == logout) {
      If (!$2) { cout Please type /account logout  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This isn't a registered user. | halt }
      If ($eas(loggedIn,$2) != yes) { cout This user isn't logged in. | halt }
      writeini account/ $+ $2 $+ /account.ini status loggedin no
      If (-s !isin $3-) { cout User has been logged-out sucessfully! }
    }
    Elseif ($1 == lock) {
      If (!$4) { cout Please type /account lock  <time to expire in seconds> <reason for lock> | halt }
      If ($eas(isRegistered,$2) != yes) { cout This isn't a registered user. | halt }
      If ($alock($2) == yes) { cout This user's account is already locked. | halt }
      If ($eas(perm,$2,op) == true) { cout Warning! This user can't normally be locked! }
      If ($eas(perm,$2,lockBypass) == true) || ($eas(perm,$2,op) == true) { cout Warning! This user can bypass an account lockout! }
      writeini account/ $+ $2 $+ /account.ini status locked yes
      writeini account/ $+ $2 $+ /account.ini status lastlockdate $ctime
      writeini account/ $+ $2 $+ /account.ini status lastlocker ~Console
      writeini account/ $+ $2 $+ /account.ini status lockreason $4-
      writeini account/ $+ $2 $+ /account.ini status unlocktime $calc($ctime + $3)
      cout User lock of $2 $+ 's account complete!
    }
    Elseif ($1 == unlock) {
      If (!$2) { cout Please type /account unlock  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This isn't a registered user. | halt }
      If ($alock($2) != yes) { cout This user's account is not locked. | halt }
      writeini account/ $+ $2 $+ /account.ini status locked no
      cout User unlock of $2 $+ 's account complete!
    }
    Elseif ($1 == view) {
      If (!$2) { cout Please type /account view  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This isn't a registered user. | halt }
      cout Profile information for: $2 (Generated at $asctime(ddmmmyyyy hh:nn:ss TT) $+ )
      cout Status: Registered - Locked: $alock($2) $iif($alock($2) == yes,- Date Unlockable: $asctime($alock($2,unlock),ddmmmyyyy hh:nn:ss TT),)
      cout Last login: $asctime($readini(account/ $+ $2 $+ /account.ini,status,lastlogin),ddmmmyyyy hh:nn:ss TT)
      cout Join Date: $asctime($readini(account/ $+ $2 $+ /account.ini,status,jointime),ddmmmyyyy hh:nn:ss TT)
      If ($eas(isStaff,$2) == yes) {
        cout Staff Position: $readini(account/ $+ $2 $+ /account.ini,power,position)
      }
      If ($readini(account/ $+ $2 $+ /account.ini,power,premium) == yes) {
        cout Premium Expiration Date: $asctime($readini(account/ $+ $2 $+ /account.ini,power,premiumExpiration),ddmmmyyyy hh:nn:ss TT)
      }
      If ($alock($2,date) != na) {
        cout Last Lock Date: $asctime($alock($2,date),ddmmmyyyy hh:nn:ss TT)
        cout Last Locker: $alock($2,locker)
        cout Last Lock Reason: $alock($2,reason)
      }
    }
    Elseif ($1 == staff) {
      cout Please select from one of the following options:
      cout To manage staff users, please type /account manageStaff
      cout To manage staff groups, please type /account groups
    }
    Elseif ($1 == manageStaff) {
      cout Please select from one of the following options:
      cout To make a registered user staff (or to fire a staff member), please type: /account <hire|fire>  [group]
      cout (For a list of groups, please type /account groups)
      cout To manage an individual's permissions as a staff member, please type /account staffer 
      cout To change a user's group as staff, please type /account changeGroup  
    }
    Elseif ($1 == hire) {
      If (!$3) { cout Please type: /account hire   | cout (For a list of groups, please type /account groups) | halt }
      If ($eas(isRegistered,$2) != yes) { cout This is not a registered user. | halt }
      If ($eas(isStaff,$2) == yes) { cout This user is already staff. | halt }
      If ($readini(account/staff/groups.ini,$3,registered) != yes) { cout This is not a valid group. | halt }
      writeini account/ $+ $2 $+ /account.ini power staff yes
      writeini account/ $+ $2 $+ /account.ini power position $3
      write account/staff/staffers.txt $2
      cout Staff hired sucessfully!
    }
    Elseif ($1 == fire) {
      If (!$2) { cout Please type: /account fire  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This is not a registered user. | halt }
      If ($eas(isStaff,$2) != yes) { cout This user isn't staff. | halt }
      writeini account/ $+ $2 $+ /account.ini power staff no
      writeini account/ $+ $2 $+ /account.ini power position member
      write -ds $+ $2 account/staff/staffers.txt
      cout Staff fired sucessfully!
    }
    Elseif ($1 == staffer) {
      If (!$2) { cout Please type: /account staffer  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This is not a registered user. | halt }
      If ($eas(isStaff,$2) != yes) { cout This user is not a staffer. | halt }
      cout Information about staffer: $2 (Report generated on: $asctime(ddmmmyyyy hh:nn:ss TT) $+ )
      cout Current Group: $readini(account/ $+ $2 $+ /account.ini,power,position)
      If ($readini(account/ $+ $2 $+ /permissions.ini,status,registered) == yes) {
        cout Individiual Permissions:
        var %temp.1 1
        While (%temp.1 <= $lines(account/perms.txt)) {
          If ($readini(account/ $+ $2 $+ /permissions.ini,perms,$read(account/perms.txt,t,%temp.1))) {
            cout $read(account/perms.txt,t,%temp.1) - $eas(perm,$2,$read(account/perms.txt,t,%temp.1))
          }
          inc %temp.1
        }
        cout End of Individual Permissions.
      }
      cout To change individual permissions, type /account changePerm  <permission node> 
      cout For a complete list of permissions, type /account permList
    }
    Elseif ($1 == permList) {
      cout The following are the permissions recognized by the EAS directly:
      var %temp.1 1
      While (%temp.1 <= $lines(account/perms.txt)) {
        cout $read(account/perms.txt,t,%temp.1)
        inc %temp.1
      }
      cout End of List
    }
    Elseif ($1 == changePerm) {
      If (!$4) { cout Please type /account changePerm  <permissions node>  | halt }
      If ($eas(isRegistered,$2) != yes) { cout This is not a registered user. | halt }
      writeini account/ $+ $2 $+ /permissions.ini status registered yes
      writeini account/ $+ $2 $+ /permissions.ini perms $3 $4
      cout Permission set sucessfully!
    }
    Elseif ($1 == changeGroup) {
      If (!$3) { cout Please type /account changeGroup   | halt }
      If ($eas(isRegistered,$2) != yes) { cout This user isn't registered. | halt }
      If ($eas(isStaff,$2) != yes) { cout This user isn't a staffer. | halt }
      If ($readini(account/staff/groups.ini,$3,registered) != yes) { cout This isn't a valid group. | halt }
      writeini account/ $+ $2 $+ /account.ini power position $3
      cout $2 had their group change to $3 sucessfully!
    }
    Elseif ($1 == groups) {
      cout The following is a list of groups available for staffers:
      var %temp.1 1
      While (%temp.1 <= $lines(account/staff/groups.txt)) {
        cout $read(account/staff/groups.txt,t,%temp.1)
        inc %temp.1
      }
      cout End of list. To learn more about each one (and see other available options), please type /account group  info
    }
    Elseif ($1 == group) {
      If (!$3) {
        cout Please select from one of the following options:
        cout To view a list of available groups, please type /account groups
        cout To view information specific to a group, please type /account group  info
        cout To add/remove a group, please type /account group  <add|remove> [opLevel if adding]
        cout To edit operator status, please type /account group  opLevel <actual op level, see documentation for help with this>
        cout To edit specific permissions a group has access to, please type /account group  perms <permissions node> 
      }
      Elseif ($3 == info) {
        If ($eas(isGroup,$2) != yes) { cout This is not a valid group. | halt }
        cout Information for group $2 (Report generated on $asctime(ddmmmyyyy hh:nn:ss TT)
        cout Op Level: $readini(account/staff/groups.ini,$2,oplevel)
        cout Specific Permissions:
        var %temp.1 1
        While (%temp.1 <= $lines(account/perms.txt)) {
          cout $read(account/perms.txt,t,%temp.1) - $eas(gperm,$2,$read(account/perms.txt,t,%temp.1))
          inc %temp.1
        }
        cout Users who have this group:
        var %temp.1 1
        While (%temp.1 <= $lines(account/accounts.txt)) {
          If ($readini(account/ $+ $read(account/accounts.txt,t,%temp.1) $+ /account.ini,power,position) == $2) {
            cout - $read(account/accounts.txt,t,%temp.1)
          }
          inc %temp.1
        }
        cout End of Report
      }
      Elseif ($3 == add) {
        If (!$4) { cout Please type /account group  add  | halt }
        If ($eas(isGroup,$2) == yes) { cout This group already exists. | halt }
        writeini account/staff/groups.ini $2 registered yes
        writeini account/staff/groups.ini $2 opLevel $4
        var %temp.1 1
        While (%temp.1 <= $lines(account/perms.txt)) {
          writeini account/staff/groups.ini $2 $read(account/perms.txt,t,%temp.1) false
          inc %temp.1
        }
        write account/staff/groups.txt $2
        cout Group created sucessfully!
      }
      Elseif ($3 == remove) {
        If ($eas(isGroup,$2) != yes) { cout This group doesn't exist. | halt }
        write -ds $+ $2 account/staff/groups.txt
        remini account/staff/groups.ini $2
        var %temp.1 1
        While (%temp.1 <= $lines(account/accounts.txt)) {
          If ($readini(account/ $+ $read(account/accounts.txt,t,%temp.1) $+ /account.ini,power,position) == $2) {
            writeini account/ $+ $read(account/accounts.txt,t,%temp.1) $+ /account.ini power position member
          }
          inc %temp.1
        }
        cout Group removed sucessfully! Any users assigned to that group have been assigned to the member group (ie non-staff).
      }
      Elseif ($3 == opLevel) {
        If (!$4) { cout Please type /account group  opLevel <actual op level> | halt }
        If ($eas(isGroup,$2) != yes) { cout This is not a registered group | halt }
        writeini account/staff/groups.ini $2 opLevel $4
        cout Op Level for $2 changed to $4 sucessfully!
      }
      Elseif ($3 == perms) {
        If (!$5) { cout Please type /account group  perms <permissions node>  | halt }
        If ($eas(isGroup,$2) != yes) { cout This is not a registered group | halt }
        writeini account/staff/groups.ini $2 $4 $5
        cout Permissions set sucessfully! Please note that if the permissions node is not one in the EAS system it will not show up normally (ie from a different plugin)
      }
      Else {
        cout Unknown command.
      }
    }
    Elseif ($1 == settings) {
      If (!$2) {
        cout Please select from one of the following:
        cout To manage core account settings, please type /account settings system
        cout To manage user settings (including login and registration), please type /account settings user
        cout To manage staff settings, please type /account settings staff
      }
      Elseif ($2 == system) {
        If (!$4) {
          cout Please select from the following options:
          cout To turn Staff Channel Output $iif($readini(account/account.ini,settings,output) == on,off,on) $+ , please type: /account settings system output $iif($eas(settings,output) == on,off,on)
          cout To change the Staff Output channel (currently: $eas(status,output) $+ ), please type: /account settings system channel <input new channel>
          cout To change the Enforce Access to Output channel (currently: $eas(settings,enforcechannelaccess) $+ ), please type: /account settings system enforcechannelaccess $iif($eas(settings,enforcechannelaccess) == on,off,on)
          cout To change the Autojoin on Connect option (currently: $eas(settings,autojoin) $+ ), please type: /account settings system autojoin $iif($eas(autojoin) == on,off,on)
        }
        Elseif ($3 == output) {
          writeini account/account.ini settings output $4
          cout Staff Channel Output changed to: $4
        }
        Elseif ($3 == channel) {
          writeini account/account.ini status output $4
          cout Staff Channel has been changed to: $4
        }
        Elseif ($3 == enforcechannelaccess) {
          writeini account/account.ini settings enforcechannelaccess $4
          cout Enforce Channel Access has been changed to: $4
        }
        Elseif ($3 == autojoin) {
          writeini account/account.ini settings autojoin $4
          cout Autojoin on connect has been changed to: $$
        }
        Else {
          cout Unknown command.
        }
      }
      Elseif ($2 == user) {
        If (!$4) {
          cout Please select from one of the following options:
          cout To $iif($readini(account/account.ini,settings,registration) == on,deny,allow) registration, please type: /account settings user registration $iif($readini(account/account.ini,settings,registration) == on,off,on)
          cout To $iif($readini(account/account.ini,settings,login) == on,deny,allow) logins, please type: /account settings user login $iif($readini(account/account.ini,settings,login) == on,off,on)
          cout To $iif($readini(account/account.ini,settings,password) == on,not require,require) a password, please type: /account settings user password $iif($readini(account/account.ini,settings,password) == on,off,on)
          cout To $iif($readini(account/account.ini,settings,email) == on,not require,require) an email, please type: /account settings user email $iif($readini(account/account.ini,settings,email) == on,off,on)
          cout To $iif($readini(account/account.ini,settings,emailvalidate) == on,not block,block) the same email address registereing more than once, please type: /account settings user emailvalidate $iif($readini(account/account.ini,settings,emailvalidate) == on,off,on)
        }
        Else {
          writeini account/account.ini settings $3 $4
          cout Value updated sucessfully!
        }
      }
      Elseif ($2 == staff) {
        cout Currently there are no settings available.
      }
      Else {
        cout Unknown command.
      }
    }
    Elseif ($1 == info) {
      cout Extensible Account Script - Version $eas(version)
      cout Installed on: $asctime($eas(status,installtime),ddmmmyyyy hh:nn:ss TT)
      cout Most recently updated on: $asctime($eas(status,updatetime),ddmmmyyyy hh:nn:ss TT)
      cout This update released on $asctime(1438531200,ddmmmyyyy hh:nn:ss TT)
      cout Number of accounts currently registered: $lines(account/accounts.txt)
      cout Number of staffers: $lines(account/staff/staffers.txt)
      cout Development Area: irc.us.gamesurge.net #Tamaki
    }
  }
  Else {
    cout Unknown command.
  }
}

;;;;;;;;;;;;;;;;;
;;;;;Dialogs;;;;;
;;;;;;;;;;;;;;;;;

dialog account {
  title Account Main Menu
  option dbu
  size -1 -1 101 44
  button "Account Management", 1, 1 1 100 10
  button "Staff Management", 2, 1 11 100 10
  button "System Settings", 3, 1 22 100 10
  button "Close", 4, 1 33 100 10, cancel
}

dialog account_management {
  title Account Management
  option dbu
  size -1 -1 101 44
  button "New Account", 1, 1 1 100 10
  button "Manage Account", 2, 1 11 100 10
  button "Delete Account", 3, 1 22 100 10
  button "Back", 4, 1 33 100 10
}

dialog account_management_new {
  title New Account
  option dbu
  size -1 -1 152 55
  text "Nick", 1, 1 1 50 10
  edit "", 2, 51 1 100 10
  text "Password", 3, 1 11 50 10
  edit "", 4, 51 11 100 10, disable
  text "Email", 5, 1 22 50 10
  edit "", 6, 51 22 100 10, disable
  button "Create Account", 7, 1 33 151 10
  button "Cancel", 8, 1 44 151 10
}

dialog account_management_manage {
  title Manage Account
  option dbu
  size -1 -1 203 77
  text "Username", 1, 1 1 50 10
  edit "", 2, 51 1 100 10
  button "Search", 3, 152 1 50 10
  button "Look-up", 4, 1 11 202 10
  text "Password", 5, 1 22 50 10
  edit "", 6, 51 22 152 10, pass disable
  text "Email", 7, 1 33 50 10
  edit "", 8, 51 33 152 10, disable
  check "Lock Account", 11, 1 44 202 10, disable
  button "Complete", 9, 1 55 202 10, disable
  button "Cancel", 10, 1 66 202 10
}

dialog account_management_manage_list {
  title Account List
  option dbu
  size -1 -1 101 143
  list 1, 1 1 100 100
  text "Username", 2, 1 100 100 10
  edit "", 3, 1 110 100 10, right read
  button "Select", 4, 1 121 100 10, disable
  button "Cancel", 5, 1 132 100 10
}

dialog account_management_delete {
  title Delete Account
  option dbu
  size -1 -1 101 143
  list 1, 1 1 100 100
  text "Username", 2, 1 100 100 10
  edit "", 3, 1 110 100 10, right read
  button "Delete", 4, 1 121 100 10, disable
  button "Cancel", 5, 1 132 100 10
}

dialog account_staff {
  title Staff Management
  option dbu
  size -1 -1 101 33
  button "Manage Staffers", 1, 1 1 100 10
  button "Manage Groups", 2, 1 11 100 10
  button "Back", 3, 1 22 100 10
}

dialog account_staff_manage {
  title Manage Staff
  option dbu
  size -1 -1 101 44
  button "New Staffer", 1, 1 1 100 10
  button "Manage Staffer", 2, 1 11 100 10
  button "Fire Staffer", 3, 1 22 100 10
  button "Back", 4, 1 33 100 10
}

dialog account_staff_manage_hire {
  title Hire New Staff
  option dbu
  size -1 -1 203 55
  text "Username", 1, 1 1 50 10
  edit "", 2, 51 1 100 10
  button "Search", 3, 152 1 50 10
  button "Look-up", 4, 1 11 202 10
  text "Group", 5, 1 22 50 10
  combo 6, 51 22 152 10, drop disable
  button "Hire", 7, 1 33 202 10, disable
  button "Cancel", 8, 1 44 202 10
}

dialog account_staff_manage_hire_list {
  title Non-Staff Account List
  option dbu
  size -1 -1 101 143
  list 1, 1 1 100 100
  text "Username", 2, 1 100 100 10
  edit "", 3, 1 110 100 10, right read
  button "Select", 4, 1 121 100 10, disable
  button "Cancel", 5, 1 132 100 10
}

dialog account_staff_manage_manage {
  title Manage Staffer
  option dbu
  size -1 -1 203 66
  text "Username", 1, 1 1 50 10
  edit "", 2, 51 1 100 10
  button "Search", 3, 152 1 50 10
  button "Look-up", 4, 1 11 202 10
  text "Group", 5, 1 22 50 10
  combo 6, 51 22 152 10, drop disable
  button "Individual Permissions", 7, 1 33 202 10, disable
  button "Complete", 8, 1 44 202 10, disable
  button "Cancel", 9, 1 55 202 10
}

dialog account_staff_manage_manage_list {
  title Staff List
  option dbu
  size -1 -1 101 143
  list 1, 1 1 100 100
  text "Username", 2, 1 100 100 10
  edit "", 3, 1 110 100 10, right read
  button "Select", 4, 1 121 100 10, disable
  button "Cancel", 5, 1 132 100 10
}

dialog account_staff_manage_manage_perms {
  title Manage Permissions
  option dbu
  size -1 -1 152 55
  text "Permission", 1, 1 1 50 10
  combo 2, 51 1 100 10, drop
  text "Current", 3, 1 13 50 10
  text "", 4, 51 13 100 10, right
  text "New", 5, 1 24 50 10
  edit "", 6, 51 24 100 10, right disable
  button "Change", 7, 1 35 151 10, disable
  button "Cancel", 8, 1 46 151 10
}

dialog account_staff_manage_fire {
  title Fire Staffer
  option dbu
  size -1 -1 101 145
  list 1, 1 1 100 100
  text "Username", 2, 1 101 100 10
  text "", 3, 1 112 100 10
  button "Fire", 4, 1 123 100 10, disable
  button "Cancel", 5, 1 134 100 10
}

dialog account_staff_groups {
  title Group Options
  option dbu
  size -1 -1 101 44
  button "Create Group", 1, 1 1 100 10
  button "Manage Group", 2, 1 11 100 10
  button "Delete Group", 3, 1 22 100 10
  button "Back", 4, 1 33 100 10
}

dialog account_staff_groups_create {
  title Create Group
  option dbu
  size -1 -1 152 44
  text "Group Name", 1, 1 1 50 10
  edit "", 2, 51 1 100 10
  text "OpLevel", 3, 1 11 50 10
  combo 4, 51 11 100 10, drop
  button "Create", 5, 1 22 151 10
  button "Cancel", 6, 1 33 151 10
}

dialog account_staff_groups_manage {
  title Manage Group
  option dbu
  size -1 -1 203 68
  text "Group Name", 1, 1 1 50 10
  edit "", 2, 51 1 100 10
  button "Search", 3, 152 1 50 10
  button "Look-up", 4, 1 11 202 10
  text "OpLevel", 5, 1 22 100 10
  combo 6, 101 22 100 10, drop disable
  button "Change Permissions", 7, 1 35 202 10, disable
  button "Complete", 8, 1 46 202 10, disable
  button "Cancel", 9, 1 57 202 10
}

dialog account_staff_groups_manage_list {
  title Groups List
  option dbu
  size -1 -1 101 145
  list 1, 1 1 100 100
  text "Group Name", 2, 1 101 100 10
  text "", 3, 1 112 100 10
  button "Select", 4, 1 123 100 10, disable
  button "Cancel", 5, 1 134 100 10
}

dialog account_staff_groups_manage_perms {
  title Manage Permissions
  option dbu
  size -1 -1 152 55
  text "Permission", 1, 1 1 50 10
  combo 2, 51 1 100 10, drop
  text "Current", 3, 1 13 50 10
  text "", 4, 51 13 100 10, right
  text "New", 5, 1 24 50 10
  edit "", 6, 51 24 100 10, right disable
  button "Change", 7, 1 35 151 10, disable
  button "Cancel", 8, 1 46 151 10
}

dialog account_staff_groups_delete {
  title Delete Group
  option dbu
  size -1 -1 101 145
  list 1, 1 1 100 100
  text "Group Name", 2, 1 101 100 10
  text "", 3, 1 112 100 10
  button "Delete", 4, 1 123 100 10, disable
  button "Cancel", 5, 1 134 100 10
}

dialog account_system {
  title System Settings
  option dbu
  size -1 -1 101 44
  button "Core Settings", 1, 1 1 100 10
  button "User Settings", 2, 1 11 100 10
  button "Staff Settings", 3, 1 22 100 10
  button "Back", 4, 1 33 100 10
}

dialog account_system_core {
  title Core System Settings
  option dbu
  size -1 -1 101 66
  button "Output to Channel", 1, 1 1 100 10
  button "Output Channel", 2, 1 11 100 10
  button "Enforce Channel Access", 4, 1 22 100 10
  button "Join Output Channel", 5, 1 33 100 10
  button "Autojoin on Connect", 6, 1 44 100 10
  button "Back", 3, 1 55 100 10
}

dialog account_system_user {
  title User System Settings
  option dbu
  size -1 -1 101 66
  button "User Registration", 1, 1 1 100 10
  button "User Logins", 2, 1 11 100 10
  button "Require Password", 3, 1 22 100 10
  button "Require Email", 4, 1 33 100 10
  button "Email Validation", 5, 1 44 100 10
  button "Back", 6, 1 55 100 10
}

;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;on Dialog event;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;

on *:DIALOG:account:*:*: {
  If ($devent == sclick) {
    If ($did == 1) {
      dclose account
      start account_management
    }
    If ($did == 2) {
      dclose account
      start account_staff
    }
    If ($did == 3) {
      dclose account
      start account_system
    }
  }
}

on *:DIALOG:account_management:*:*: {
  If ($devent == sclick) {
    If ($did == 1) {
      dclose account_management
      start account_management_new
    }
    If ($did == 2) {
      dclose account_management
      start account_management_manage
    }
    If ($did == 3) {
      dclose account_management
      start account_management_delete
    }
    If ($did == 4) {
      dclose account_management
      start account
    }
  }
  If ($devent == close) {
    start account
  }
}

on *:DIALOG:account_management_new:*:*: {
  If ($devent == init) {
    If ($eas(settings,password) == on) { did -e $dname 4 }
    If ($eas(settings,email) == on) { did -e $dname 6 }
  }
  If ($devent == sclick) {
    If ($did == 7) {
      If (!$did(2)) { did -f $dname 2 }
      If ($eas(settings,password) == on) {
        If (!$did(4)) { did -f $dname 4 }
      }
      If ($eas(settings,email) == on) {
        If (!$did(6)) { did -f $dname 6 }
      }
      account register $did(2) $iif($eas(settings,password) == on,$did(4),) $iif($eas(settings,email) == on,$did(6),)
      dclose account_management_new
      start account_management
    }
    If ($did == 8) {
      dclose account_management_new
      start account_management
    }
  }
  If ($devent == close) {
    start account_management
  }
}

on *:DIALOG:account_management_manage:*:*: {
  If ($devent == sclick) {
    If ($did == 3) {
      start account_management_manage_list
    }
    If ($did == 4) {
      If ($eas(isRegistered,$did(2)) == yes) {
        did -b $dname 2-4
        If ($eas(settings,password) == on) { did -era $dname 6 $eas(userPass,$did(2)) }
        If ($eas(settings,email) == on) { did -era $dname 8 $eas(userEmail,$did(2)) }
        If ($alock($did(2)) == yes) { did -c $dname 11 }
        did -e $dname 9,11
      }
      Else {
        did -fr $dname 2
      }
    }
    If ($did == 9) {
      writeini account/ $+ $did(2) $+ /account.ini status password $did(6)
      writeini account/ $+ $did(2) $+ /account.ini status email $did(8)
      dclose $dname
      start account_management
    }
    If ($did == 10) {
      dclose $dname
      start account_management
    }
    If ($did == 11) {
      If ($alock($did(2)) == yes) {
        account unlock $did(2)
        did -u $dname 11
      }
      Else {
        var %temp.1 $?="PLease enter a time to expire in seconds."
        var %temp.2 $?="Please enter a lock reason."
        account lock $did(2) %temp.1 %temp.2
        did -c $dname 11
        start $dname
      }
    }
  }
  If ($devent == close) {
    start account_management
  }
}

on *:DIALOG:account_management_manage_list:*:*: {
  If ($devent == init) {
    If (!$dialog(account_management_manage)) {
      start account_management_manage
      dialog -v $dname
    }
    var %temp.1 1
    While (%temp.1 <= $lines(account/accounts.txt)) {
      did -a $dname 1 $read(account/accounts.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 1) {
      did -ra $dname 3 $did(1).seltext
      did -e $dname 4
    }
    If ($did == 4) {
      If (!$dialog(account_management_manage)) { start account_management_manage }
      did -b account_management_manage 2-4
      did -ra account_management_manage 2 $did(3)
      If ($eas(settings,password) == on) { did -era account_management_manage 6 $eas(userPass,$did(3)) }
      If ($eas(settings,email) == on) { did -era account_management_manage 8 $eas(userEmail,$did(3)) }
      did -e account_management_manage 9,11
      If ($alock($did(3)) == yes) { did -c account_management_manage 11 }
      dclose $dname
      start account_management_manage
    }
    If ($did == 5) {
      dclose $dname
      start account_management_manage
    }
  }
  If ($devent == dclick) {
    If ($did == 1) {
      If (!$dialog(account_management_manage)) { start account_management_manage }
      did -b account_management_manage 2-4
      did -ra account_management_manage 2 $did(1).seltext
      If ($eas(settings,password) == on) { did -era account_management_manage 6 $eas(userPass,$did(1).seltext) }
      If ($eas(settings,email) == on) { did -era account_management_manage 8 $eas(userEmail,$did(1).seltext) }
      did -e account_management_manage 9,11
      If ($alock($did(1).seltext) == yes) { did -c account_management_manage 11 }
      dclose $dname
      start account_management_manage
    }
  }
  If ($devent == close) {
    start account_management
  }
}

on *:DIALOG:account_management_delete:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/accounts.txt)) {
      did -a $dname 1 $read(account/accounts.txt, %temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 1) {
      did -ra $dname 3 $did(1).seltext
      did -e $dname 4
    }
    If ($did == 4) {
      If (!$did(3)) { did -b $dname 4 | halt }
      account unregister $did(3)
      dclose $dname
      start account_management
    }
    If ($did == 5) {
      dclose $dname
      start account_management
    }
  }
  If ($devent == close) {
    start account_management
  }
}

on *:DIALOG:account_staff:*:*: {
  If ($devent == sclick) {
    If ($did == 1) {
      dclose $dname
      start account_staff_manage
    }
    If ($did == 2) {
      dclose $dname
      start account_staff_groups
    }
    If ($did == 3) {
      dclose $dname
      start account
    }
  }
  If ($devent == close) {
    start account
  }
}

on *:DIALOG:account_staff_manage:*:*: {
  If ($devent == sclick) {
    If ($did == 1) {
      dclose $dname
      start account_staff_manage_hire
    }
    If ($did == 2) {
      dclose $dname
      start account_staff_manage_manage
    }
    If ($did == 3) {
      dclose $dname
      start account_staff_manage_fire
    }
    If ($did == 4) {
      dclose $dname
      start account_staff
    }
  }
  If ($devent == close) {
    start account_staff
  }
}

on *:DIALOG:account_staff_manage_hire:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/staff/groups.txt)) {
      did -a $dname 6 $read(account/staff/groups.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 3) {
      start account_staff_manage_hire_list
    }
    If ($did == 4) {
      If ($eas(isRegistered,$did(2)) != yes) { did -rf $dname 2 | cout User is not registered! | halt }
      If ($eas(isStaff,$did(2)) == yes) { did -rf $dname 2 | cout User is already staff! | halt }
      did -b $dname 2-4
      did -e $dname 6,7
    }
    If ($did == 7) {
      If (!$did(6).seltext) { cout Select a group first! | halt }
      account hire $did(2) $did(6)
      dclose $dname
      start account_staff_manage
    }
    If ($did == 8) {
      dclose $dname
      start account_staff_manage
    }
  }
  If ($devent == close) {
    start account_staff_manage
  }
}

on *:DIALOG:account_staff_manage_hire_list:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/accounts.txt)) {
      If ($eas(isStaff,$read(account/accounts.txt,t,%temp.1)) != yes) {
        did -a $dname 1 $read(account/accounts.txt,t,%temp.1)
      }
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 1) {
      did -ra $dname 3 $did(1).seltext
      did -e $dname 4
    }
    If ($did == 4) {
      did -b account_staff_manage_hire 2-4
      did -ra account_staff_manage_hire 2 $did(3)
      did -e account_staff_manage_hire 6,7
      dclose $dname
      start account_staff_manage_hire
    }
    If ($did == 5) {
      dclose $dname
      start account_staff_manage_hire
    }
  }
  If ($devent == dclick) {
    If ($did == 1) {
      did -b account_staff_manage_hire 2-4
      did -ra account_staff_manage_hire 2 $did(1).seltext
      did -e account_staff_manage_hire 6,7
      dclose $dname
      start account_staff_manage_hire
    }
  }
  If ($devent == close) {
    start account_staff_manage_hire
  }
}

on *:DIALOG:account_staff_manage_manage:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/staff/groups.txt)) {
      did -a $dname 6 $read(account/staff/groups.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 3) {
      start account_staff_manage_manage_list
    }
    If ($did == 4) {
      If ($eas(isStaff,$did(2)) != yes) { did -rf $dname 2 | cout User is not staff! | halt }
      did -b $dname 2-4
      did -e $dname 6-8
    }
    If ($did == 7) {
      start account_staff_manage_manage_perms
    }
    If ($did == 8) {
      If (!$did(6).seltext) { cout Please select a group first! | halt }
      account changeGroup $did(2) $did(6).seltext
      dclose $dname
      start account_staff_manage
    }
    If ($did == 9) {
      dclose $dname
      start account_staff_manage
    }
  }
  If ($devent == close) {
    start account_staff_manage
  }
}

on *:DIALOG:account_staff_manage_manage_list:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/staff/staffers.txt)) {
      did -a $dname 1 $read(account/staff/staffers.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 1) {
      did -ra $dname 3 $did(1).seltext
      did -e $dname 4
    }
    If ($did == 4) {
      did -b account_staff_manage_manage 2-4
      did -ra account_staff_manage_manage 2 $did(3)
      did -e account_staff_manage_manage 6-8
      dclose $dname
      start account_staff_manage_manage
    }
    If ($did == 5) {
      dclose $dname
      start account_staff_manage_manage
    }
  }
  If ($devent == dclick) {
    If ($did == 1) {
      did -b account_staff_manage_manage 2-4
      did -ra account_staff_manage_manage 2 $did(1).seltext
      did -e account_staff_manage_manage 6-8
      dclose $dname
      start account_staff_manage_manage
    }
  }
  If ($devent == close) {
    start account_staff_manage_manage
  }
}

on *:DIALOG:account_staff_manage_manage_perms:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/perms.txt)) {
      did -a $dname 2 $read(account/perms.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 2) {
      did -b $dname 2
      did -ra $dname 4 $eas(perm,$did(account_staff_manage_manage,2),$did(2).seltext)
      did -e $dname 6,7
    }
    If ($did == 7) {
      If (!$did(6)) { did -f $dname 6 | cout Please type a new value first! | halt }
      account changePerm $did(account_staff_manage_manage,2) $did(2).seltext $did(6)
      dclose $dname
      start account_staff_manage_manage
    }
    If ($did == 8) {
      dclose $dname
      start account_staff_manage_manage
    }
  }
  If ($devent == close) {
    start account_staff_manage_manage
  }
}

on *:DIALOG:account_staff_manage_fire:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/staff/staffers.txt)) {
      did -a $dname 1 $read(account/staff/staffers.txt, %temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 1) {
      did -ra $dname 3 $did(1).seltext
      did -e $dname 4
    }
    If ($did == 4) {
      account fire $did(3)
      dclose $dname
      start account_staff_manage
    }
    If ($did == 5) {
      dclose $dname
      start account_staff_manage
    }
  }
  If ($devent == close) {
    start account_staff_manage
  }
}

on *:DIALOG:account_staff_groups:*:*: {
  If ($devent == sclick) {
    If ($did == 1) {
      dclose $dname
      start account_staff_groups_create
    }
    If ($did == 2) {
      dclose $dname
      start account_staff_groups_manage
    }
    If ($did == 3) {
      dclose $dname
      start account_staff_groups_delete
    }
    If ($did == 4) {
      dclose $dname
      start account_staff
    }
  }
  If ($devent == close) {
    start account_staff
  }
}

on *:DIALOG:account_staff_groups_create:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= 7) {
      did -a $dname 4 %temp.1
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 5) {
      If (!$did(2)) { did -f $dname 2 | cout Please input a name first! | halt }
      If ($eas(isGroup,$did(2)) == yes) { did -f $dname 2 | cout This group is already registered! | halt }
      If (!$did(4).seltext) { did -f $dname 4 | cout Please select an OpLevel first! | halt }
      account group $did(2) add $did(4).seltext
      dclose $dname
      start account_staff_groups
    }
    If ($did == 6) {
      dclose $dname
      start account_staff_groups
    }
  }
  If ($devent == close) {
    start account_staff_groups
  }
}

on *:DIALOG:account_staff_groups_manage:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= 7) {
      did -a $dname 6 %temp.1
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 3) {
      start account_staff_groups_manage_list
    }
    If ($did == 4) {
      If (!$did(2)) { did -f $dname 2 | halt }
      If ($eas(isGroup,$did(2)) != yes) { did -f $dname 2 | cout This is not a valid group! | halt }
      did -b $dname 2-4
      did -e $dname 6-8
      did -ra $dname 5 OpLevel - Current: $eas(opLevel,$did(2))
    }
    If ($did == 7) {
      start account_staff_groups_manage_perms
    }
    If ($did == 8) {
      If (!$did(6).seltext) { did -f $dname 6 | cout Please select a new OpLevel! | halt }
      account group $did(2) opLevel $did(6).seltext
      dclose $dname
      start account_staff_groups
    }
    If ($did == 9) {
      dclose $dname
      start account_staff_groups
    }
  }
  If ($devent == close) {
    dclose $dname
    start account_staff_groups
  }
}

on *:DIALOG:account_staff_groups_manage_list:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/staff/groups.txt)) {
      did -a $dname 1 $read(account/staff/groups.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 1) {
      did -ra $dname 3 $did(1).seltext
      did -e $dname 4
    }
    If ($did == 4) {
      did -b account_staff_groups_manage 2-4
      did -e account_staff_groups_manage 6-8
      did -ra account_staff_groups_manage 2 $did(3)
      did -ra account_staff_groups_manage 5 OpLevel - Current: $eas(opLevel,$did(3))
      dclose $dname
      start account_staff_groups_manage
    }
    If ($did == 5) {
      dclose $dname
      start account_staff_groups_manage
    }
  }
  If ($devent == dclick) {
    If ($did == 1) {
      did -b account_staff_groups_manage 2-4
      did -e account_staff_groups_manage 6-8
      did -ra account_staff_groups_manage 2 $did(1).seltext
      did -ra account_staff_groups_manage 5 OpLevel - Current: $eas(opLevel,$did(1).seltext)
      dclose $dname
      start account_staff_groups_manage
    }
  }
  If ($devent == close) {
    start account_staff_groups_manage
  }
}

on *:DIALOG:account_staff_groups_manage_perms:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/perms.txt)) {
      did -a $dname 2 $read(account/perms.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 2) {
      did -b $dname 2
      did -ra $dname 4 $eas(gperm,$did(account_staff_groups_manage,2),$did(2).seltext)
      did -e $dname 6,7
    }
    If ($did == 7) {
      If (!$did(6)) { did -f $dname 6 | cout Please type a new value first! | halt }
      account group $did(account_staff_groups_manage,2) perms $did(2).seltext $did(6)
      dclose $dname
      start account_staff_groups_manage
    }
    If ($did == 8) {
      dclose $dname
      start account_staff_groups_manage
    }
  }
  If ($devent == close) {
    start account_staff_groups_manage
  }
}

on *:DIALOG:account_staff_groups_delete:*:*: {
  If ($devent == init) {
    var %temp.1 1
    While (%temp.1 <= $lines(account/staff/groups.txt)) {
      did -a $dname 1 $read(account/staff/groups.txt,t,%temp.1)
      inc %temp.1
    }
  }
  If ($devent == sclick) {
    If ($did == 1) {
      did -ra $dname 3 $did(1).seltext
      did -e $dname 4
    }
    If ($did == 4) {
      account group $did(3) remove
      dclose $dname
      start account_staff_groups
    }
    If ($did == 5) {
      dclose $dname
      start account_staff_groups
    }
  }
  If ($devent == close) {
    start account_staff_groups
  }
}

on *:DIALOG:account_system:*:*: {
  If ($devent == sclick) {
    If ($did == 1) {
      dclose $dname
      start account_system_core
    }
    If ($did == 2) {
      dclose $dname
      start account_system_user
    }
    If ($did == 3) { account settings staff | halt }
    If ($did == 4) {
      dclose $dname
      start account
    }
  }
  If ($devent == close) {
    start account
  }
}

on *:DIALOG:account_system_core:*:*: {
  If ($devent == init) {
    did -ra $dname 1 Output to Channel: $eas(settings,output)
    did -ra $dname 2 Output Channel: $eas(status,output)
    did -ra $dname 4 Enforce Channel Access: $eas(settings,enforcechannelaccess)
    did -ra $dname 6 Autojoin on Connect: $eas(settings,autojoin)
  }
  If ($devent == sclick) {
    If ($did == 1) {
      If ($eas(settings,output) == on) {
        writeini account/account.ini settings output off
        did -ra $dname 1 Output to Channel: Off
      }
      Else {
        writeini account/account.ini settings output on
        did -ra $dname 1 Output to Channel: On
      }
    }
    If ($did == 2) {
      var %temp.1 $?="Please enter the name of the new channel."
      If (%temp.1) {
        writeini account/account.ini status output %temp.1
        did -ra $dname 2 Output Channel: %temp.1
      }
      start $dname
    }
    If ($did == 3) {
      dclose $dname
      start account_system
    }
    If ($did == 4) {
      If ($eas(settings,enforcechannelaccess) == on) {
        writeini account/account.ini settings enforcechannelaccess off
        did -ra $dname 4 Enforce Channel Access: Off
      }
      Else {
        writeini account/account.ini settings enforcechannelaccess on
        did -ra $dname 4 Enforce Channel Access: On
      }
    }
    If ($did == 5) {
      join $eas(status,output)
      did -b $dname 5
      start $dname
    }
    If ($did == 6) {
      If ($eas(settings,autojoin) == on) {
        writeini account/account.ini settings autojoin off
        did -ra $dname 6 Autojoin on Connect: Off
      }
      Else {
        writeini account/account.ini settings autojoin on
        did -ra $dname 6 Autojoin on Connect: On
      }
    }
  }
  If ($devent == close) {
    start account_system
  }
}

on *:DIALOG:account_system_user:*:*: {
  If ($devent == init) {
    did -ra $dname 1 User Registration: $iif($eas(settings,registration) == on,On,Off)
    did -ra $dname 2 User Login: $iif($eas(settings,login) == on,On,Off)
    did -ra $dname 3 Require Password: $iif($eas(settings,password) == on,On,Off)
    did -ra $dname 4 Require Email: $iif($eas(settings,email) == on,On,Off)
    did -ra $dname 5 Email Validation: $iif($eas(settings,emailvalidate) == on,On,Off)
  }
  If ($devent == sclick) {
    If ($did == 1) {
      If ($eas(settings,registration) == on) {
        writeini account/account.ini settings registration off
        did -ra $dname 1 User Registration: Off
      }
      Else {
        writeini account/account.ini settings registration on
        did -ra $dname 1 User Registration: On
      }
    }
    If ($did == 2) {
      If ($eas(settings,login) == on) {
        writeini account/account.ini settings login off
        did -ra $dname 2 User Login: Off
      }
      Else {
        writeini account/account.ini settings login on
        did -ra $dname 2 User Login: On
      }
    }
    If ($did == 3) {
      If ($eas(settings,password) == on) {
        writeini account/account.ini settings password off
        did -ra $dname 3 Require Password: Off
      }
      Else {
        writeini account/account.ini settings password on
        did -ra $dname 3 Require Password: On
      }
    }
    If ($did == 4) {
      If ($eas(settings,email) == on) {
        writeini account/account.ini settings email off
        did -ra $dname 4 Require Email: Off
      }
      Else {
        writeini account/account.ini settings email on
        did -ra $dname 4 Require Email: On
      }
    }
    If ($did == 5) {
      If ($eas(settings,emailvalidate) == on) {
        writeini account/account.ini settings emailvalidate off
        did -ra $dname 5 Email Validation: Off
      }
      Else {
        writeini account/account.ini settings emailvalidate on
        did -ra $dname 5 Email Validation: On
      }
    }
    If ($did == 6) {
      dclose $dname
      start account_system
    }
  }
  If ($devent == close) {
    start account_system
  }
}

;;;;;;;;;;;;;;
;;;;;Menu;;;;;
;;;;;;;;;;;;;;

menu * {
  -
  EAS Console: /account open
}

;;;;;;;;;;;;;;;;;
;;;;;on TEXT;;;;;
;;;;;;;;;;;;;;;;;

on *:TEXT:!account*:*: {
  If ($readini(account/account.ini,status,installed) != yes) { halt }
  If ($eas(checkversion) != $eas(version)) { .msg $nick Please wait while the system is updated. | halt }
  If ($eas(isRegistered,$nick) != yes) {
    If (!$2) && ($2 != register) {
      .msg $nick You are not currently registered for an account.
      If ($eas(settings,registration) == on) {
        .msg $nick To register for an account, please type: !account register $iif($eas(settings,password) == on,$iif($eas(settings,email) == on,<password> ,<password>),$iif($eas(settings,email) == on,<email>,))
      }
      Else {
        .msg $nick Currently, the owner is not allowing any new registrations.
      }
    }
    Else {
      If ($eas(settings,password) == on) {
        If ($eas(settings,email) == on) {
          If (!$4) { .msg $nick Please type !account register   | halt }
          If ($eas(settings,emailvalidate) == on) {
            If ($readini(account/account.ini,emailvalidate,$4) == registered) { .msg $nick This email is already registered to another account. | halt }
          }
          account register $nick $3 $4
          account login $nick -s
          .msg $nick You have been sucessfully registered for an account! To begin, please type !account
          If ($eas(settings,output) == on) { msg $eas(status,output) $nick has sucessfully registered for an account: $asctime(ddmmmyyyy hh:nn:ss TT) }
          halt
        }
        Else {
          If (!$3) { .msg $nick Please type !account register  | halt }
          account register $nick $3
          account login $nick -s
          .msg $nick You have been sucessfully registered for an account! To begin, please type !account
          If ($eas(settings,output) == on) { msg $eas(status,output) $nick has sucessfully registered for an account: $asctime(ddmmmyyyy hh:nn:ss TT) }
          halt
        }
      }
      Else {
        If ($eas(settings,email) == on) {
          If (!$3) { .msg $nick Please type !account register  | halt }
          If ($eas(settings,emailvalidate) == on) {
            If ($readini(account/account.ini,emailvalidate,$4) == registered) { .msg $nick This email is already registered to another account. | halt }
          }
          account register $nick $3
          account login $nick -s
          .msg $nick You have been sucessfully registered for an account! To begin, please type !account
          If ($eas(settings,output) == on) { msg $eas(status,output) $nick has sucessfully registered for an account: $asctime(ddmmmyyyy hh:nn:ss TT) }
          halt
        }
        Else {
          account register $nick
          account login $nick -s
          .msg $nick You have been sucessfully registered for an account! To begin, please type !account
          If ($eas(settings,output) == on) { msg $eas(status,output) $nick has sucessfully registered for an account: $asctime(ddmmmyyyy hh:nn:ss TT) }
          halt
        }
      }
    }
  }
  Elseif ($alock($nick) == yes) {
    If ($eas(perm,$nick,op) == true) { goto accountlogin }
    If ($eas(perm,$nick,lockBypass) == true) { goto accountlogin }
    If ($eas(gperm,$eas(staffGroup,$nick),op) == true) { goto accountlogin }
    If ($eas(gperm,$eas(staffGroup,$nick),lockBypass) == true) { goto accountlogin }
    If ($ctime >= $alock($nick,unlock)) {
      account unlock $nick
      goto accountlogin
    }
    .msg $nick You are currently locked out of your account.
    .msg $nick You are locked out for the following reason: $alock($nick,reason)
    .msg $nick Your account will unlock on: $asctime($alock($nick,unlock),ddmmmyyyy hh:nn:ss TT)
    halt
  }
  goto accountlogin
  :accountlogin
  If ($eas(loggedin,$nick) != yes) {
    If (!$3) || ($eas(userPass,$nick) !=== $3) { .msg $nick Please login first by typing /msg $me !account login  | halt }
    Else {
      account login $nick
      .msg $nick You have been logged-in sucessfully! To begin, please type !account
      halt
    }
  }
  Else {
    If (!$2) {
      .msg $nick Please select from the following options:
      .msg $nick To view your changeable account settings, please type !account settings
      .msg $nick To view your unchangeable account settings, please type !account uas
      .msg $nick To logout, please type !account logout
    }
    Elseif ($2 == settings) {
      If (!$3) {
        .msg $nick The following are your changeable account settings (and how to change them):
        .msg $nick Password: $iif($eas(userPass,$nick),$eas(userPass,$nick),Not Set) - !account settings pass <new password>
        .msg $nick Email: $iif($eas(userEmail,$nick),$eas(userEmail,$nick,),Not Set) - !account settings email <new email>
      }
      Elseif ($3 == pass) {
        If (!$4) { .msg $nick Please type !account settings pass <new pass> | halt }
        writeini account/ $+ $nick $+ /account.ini status password $4
        .msg $nick Your password has been changed sucessfully!
        If ($eas(settings,password) != on) { .msg $nick Currently, a password is not required to login. }
      }
      Elseif ($3 == email) {
        If (!$4) { .msg $nick Please type !account settings email <new email> | halt }
        If ($eas(settings,emailvalidate) == on) {
          If ($readini(account/account.ini,emailvalidate,$4) == registered) { .msg $nick That email is already registered to another account. | halt }
          Else {
            remini account/account.ini emailvalidate $eas(userEmail,$nick)
            writeini account/account.ini emailvalidate $4
          }
        }
        writeini account/ $+ $nick $+ /account.ini status email $4
        .msg $nick Your email has been changed sucessfully!
        If ($eas(settings,email) != on) { .msg $nick Currently, an email is not required. }
      }
      Else {
        .msg $nick Unknown command. For more help with this, please type !account settings
      }
    }
    Elseif ($2 == uas) {
      .msg $nick The following are your unchangeable account settings:
      .msg $nick Join Date: $asctime($eas(joinTime,$nick),ddmmmyyyy hh:nn:ss TT)
      .msg $nick Is your account locked? $alock($nick)
      .msg $nick Most recent lock date: $asctime($alock($nick,date),ddmmmyyyy hh:nn:ss TT) - by: $alock($nick,locker)
      .msg $nick Reason: $alock($nick,reason)
    }
    Elseif ($2 == logout) {
      account logout $nick
      .msg $nick You've been logged-out sucessfully!
    }
    Else {
      .msg $nick Unknown command. For more help with this, please type !account
    }
  }
}

;;;;;;;;;;;;;;;;;;;
;;;;;on *:JOIN;;;;;
;;;;;;;;;;;;;;;;;;;

on *:JOIN:*: {
  If ($nick == $me) { halt }
  If ($chan == $eas(status,output)) && ($eas(settings,enforcechannelaccess) == yes) {
    If ($eas(isStaff,$nick) != yes) {
      kick $chan $nick
    }
    Else {
      msg $chan Welcome $nick $+ ! Please remember this channel access is restricted.
    }
  }
}

;;;;;;;;;;;;;;;;;;;;;;
;;;;;on *:CONNECT;;;;;
;;;;;;;;;;;;;;;;;;;;;;

on *:CONNECT: {
  If ($eas(settings,autojoin) == on) {
    join $eas(status,output)
  }
}

Simple Highlights

Wed, 21 Dec 2022 04:02:37 +0000

Simply replaces your name in a sentence with your name colored red.
This makes it easier to see if you are highlighted.

;Like chatting but don't have a good network?
;;Come to irc.leafghoul.net and join #chat, or  #triviaholic for games!

on ^*:text:*:#: {
  if $me isin $1- {
    echo -ph $chan $timestamp < $+ $nick($chan,$nick).pnick $+ > $replace($1-,$me,$+(4,$me,))
    haltdef 
  }
}

prefect relay

Wed, 21 Dec 2022 03:59:13 +0000

This will allow you to relay, or link, if you will, two or more channels across two or more networks.this code only work in
mirc 6.35 with nbs-irc 2.39 version.thanks
then press alt+r
copy this code in remote
and
Documentation at the top of the script.
please pass your comments on my effort.

;======================================================
;                   Relay by R3b3|
;======================================================
;
;    This will allow you to relay, or link, if you
; will, two or more channels across two or more 
; networks.
;   
;
; Configuration:
;   Relay.networks, this is a list, seperated by a 
;     space, of all the networks we are going to be 
;     relaying across.
alias -l relay.networks { return HellsWinter NFinate UnderNet }
;
;   Relay.channels, this is a list, seperated by a 
;     space, of the channel names that we are going 
;     to be relaying, the channel names corrispond to 
;     the relay.networks above.
alias -l relay.channels { return #hw-test #nf-test #un-test }
;
;   Relay.fmt.text, this is the format of normal 
;     relayed text.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
;     $4- = Text
alias -l relay.fmt.text { return $+(<,$1,/,$2,@,$3,>) $4- }
;
;   Relay.fmt.action, this is the format of /me 
;     relayed text.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
;     $4- = Text
alias -l relay.fmt.action { return * $+($1,/,$2,@,$3,) $4- }
;
;   Relay.fmt.quit, this is the format of relayed
;     quits.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
;     $4- = Quit Message
;
alias -l relay.fmt.quit { return * $+($1,@,$3) Quit $4- }
;
;   Relay.fmt.join, this is the format of relayed 
;     joins.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
alias -l relay.fmt.join { return * $+($1,@,$3) Joins $2 }
;
;   Relay.fmt.part, this is the format of relayed
;     parts.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
;     $4- = Part Message (if available)
alias -l relay.fmt.part { return * $+($1,@,$3) Parts $2 ( $+ $4- $+ ) }
;
;   Relay.fmt.kick, this is the format of relayed
;     parts.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
;     $4  = Kicker
;     $5- = Kick Message
alias -l relay.fmt.kick { return * $+($4,@,$3) Kicks $+($1,@,$3) Out of $2 ( $+ $5- $+ ) }
;
;   Relay.fmt.mode, this is the format of relayed 
;     modes.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
;     $4- = Modes
alias -l relay.fmt.mode { return * $+($1,@,$3) Sets mode: $4- }
;
;   Relay.fmt.topic, this is the format of relayed 
;     topics.
;     $1  = Nick
;     $2  = Channel
;     $3  = Network
;     $4- = Topic
alias -l relay.fmt.topic { return * $+($1,@,$3) Sets topic: $4- }
;
;
; Examples:
;   alias -l relay.networks { return UnderNet QuakeNet Efnet }
;   alias -l relay.channels { return #mycoolchannel #my.cool.channel #my_cool_channel }
;     This will set up a relay between the following
;       three channels:
;       #mycoolchannel (on undernet)
;       #my.cool.channel (on quakenet)
;       #my_cool_channel (on efnet)
;
;
; Contact:
;   Cobi@winbots.org
;   Cobi on NFinate (irc.nfinate.org, #nfinate)
;   Cobi on Undernet (#phase, #rss, #game-trivia)
;   Cobi on Winbots (#winbots)
;   Cobi-Wan-Kenobi on Quakenet (#icechat)
;   Cobi on SearchIRC Forums
;   Winbots on UnrealIRCd Forums
;   Cobi on mirc.net
;
; ChangeLog:
;   1.0
;     Initial Release.
;
; Source Code:

on *:text:*:#:{ 
  var %tok = $findtok($relay.networks,$network,1,32) 
  if ($chan == $gettok($relay.channels,%tok,32)) { 
    var %lcv = 1 
    var %tot = $gettok($relay.networks,0,32) 
    while (%lcv <= %tot) { 
      var %cid = $cid 
      var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
      if (%ncid != %cid) { 
        var %net = $network 
        scid %ncid 
        msg $gettok($relay.channels,%lcv,32) $relay.fmt.text($nick,$chan,%net,$1-) 
        scid %cid 
      } 
      inc %lcv 
    } 
  } 
} 
on *:action:*:#: { 
  var %tok = $findtok($relay.networks,$network,1,32) 
  if ($chan == $gettok($relay.channels,%tok,32)) { 
    var %lcv = 1 
    var %tot = $gettok($relay.networks,0,32) 
    while (%lcv <= %tot) { 
      var %cid = $cid 
      var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
      if (%ncid != %cid) { 
        var %net = $network 
        scid %ncid 
        msg $gettok($relay.channels,%lcv,32) $relay.fmt.action($nick,$chan,%net,$1-)
        scid %cid 
      } 
      inc %lcv 
    } 
  } 
} 
on *:quit: { 
  var %tok = $findtok($relay.networks,$network,1,32) 
  if ($nick ison $gettok($relay.channels,%tok,32)) { 
    var %lcv = 1 
    var %tot = $gettok($relay.networks,0,32) 
    while (%lcv <= %tot) { 
      var %cid = $cid 
      var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
      if (%ncid != %cid) { 
        var %net = $network 
        scid %ncid 
        msg $gettok($relay.channels,%lcv,32) $relay.fmt.quit($nick,$gettok($relay.channels,%tok,32),%net,$1-)
        scid %cid 
      } 
      inc %lcv 
    } 
  } 
} 
on *:join:#: { 
  if ($nick != $me) { 
    var %tok = $findtok($relay.networks,$network,1,32) 
    if ($chan == $gettok($relay.channels,%tok,32)) { 
      var %lcv = 1 
      var %tot = $gettok($relay.networks,0,32) 
      while (%lcv <= %tot) { 
        var %cid = $cid 
        var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
        if (%ncid != %cid) { 
          var %net = $network 
          scid %ncid 
          msg $gettok($relay.channels,%lcv,32) $relay.fmt.join($nick,$chan,%net)
          scid %cid 
        } 
        inc %lcv 
      } 
    } 
  } 
} 
on *:part:#: { 
  if ($nick != $me) { 
    var %tok = $findtok($relay.networks,$network,1,32) 
    if ($chan == $gettok($relay.channels,%tok,32)) { 
      var %lcv = 1 
      var %tot = $gettok($relay.networks,0,32) 
      while (%lcv <= %tot) { 
        var %cid = $cid 
        var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
        if (%ncid != %cid) { 
          var %net = $network 
          scid %ncid 
          msg $gettok($relay.channels,%lcv,32) $relay.fmt.part($nick,$chan,%net,$1-) 
          scid %cid 
        } 
        inc %lcv 
      } 
    } 
  } 
} 
on *:KICK:#: { 
  var %tok = $findtok($relay.networks,$network,1,32) 
  if ($chan == $gettok($relay.channels,%tok,32)) { 
    var %lcv = 1 
    var %tot = $gettok($relay.networks,0,32) 
    while (%lcv <= %tot) { 
      var %cid = $cid 
      var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
      if (%ncid != %cid) { 
        var %net = $network 
        scid %ncid 
        msg $gettok($relay.channels,%lcv,32) $relay.fmt.kick($knick,$chan,%net,$nick,$1-) 
        scid %cid 
      } 
      inc %lcv 
    } 
  } 
} 
on *:rawmode:#: { 
  var %tok = $findtok($relay.networks,$network,1,32) 
  if ($chan == $gettok($relay.channels,%tok,32)) { 
    var %lcv = 1 
    var %tot = $gettok($relay.networks,0,32) 
    while (%lcv <= %tot) { 
      var %cid = $cid 
      var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
      if (%ncid != %cid) { 
        var %net = $network 
        scid %ncid 
        msg $gettok($relay.channels,%lcv,32) $relay.fmt.mode($nick,$chan,%net,$1-)
        scid %cid 
      } 
      inc %lcv 
    } 
  } 
} 
on *:topic:#: { 
  var %tok = $findtok($relay.networks,$network,1,32) 
  if ($chan == $gettok($relay.channels,%tok,32)) { 
    var %lcv = 1 
    var %tot = $gettok($relay.networks,0,32) 
    while (%lcv <= %tot) { 
      var %cid = $cid 
      var %ncid = $getcidfromnet($gettok($relay.networks,%lcv,32)) 
      if (%ncid != %cid) { 
        var %net = $network 
        scid %ncid 
        msg $gettok($relay.channels,%lcv,32) $relay.fmt.topic($nick,$chan,%net,$1-) 
        scid %cid 
      } 
      inc %lcv 
    } 
  } 
} 
alias -l getcidfromnet { 
  var %lcv = 1 
  var %tot = $scon(0) 
  while (%lcv <= %tot) { 
    if ($scon(%lcv).network == $1) { return $scon(%lcv).cid } 
    inc %lcv 
  } 
}

YMSG 17 Chat Room Login

Wed, 21 Dec 2022 03:57:04 +0000

I posted up a YMSG generic style login, and since then something happened that has prevented it from sending text to room. Not to mention it had typos (sorry).
I've made a new connection using YMSG 17 protocol, Yahoos latest protocol.
Theres Tons that can be done with this, its basically barebones login.
With the packets coming on login there are buddy lists, ignore lists, alias name lists if you have them, add request lists as well as voice ticket when you join a room to enable the microphone.
I use this login for a trivia bot on yahoo.
The Problem you might have entering a room is knowing the room name as well as the 4 digit identifier for the category or whatever its for.
I have another snippet posted on hawkee to get a yahoo rooms list, using that snippet with this one should work to get you a rooms list from the american yahoo server.

or go here for yahoo real time list http://insider.msg.yahoo.com/ycontent/?chatcat

Have Fun. 🙂

;====TYPE /login
:====IF YOU HAVEN'T ALREADY ENTERED A NICK/PASS/ROOM/ROOM ID
;====THE POPUPS WILL SET THEM ALL AS VAIABLES.
;====I HAVE LEFT MOST LOGIN INFORMATION SET AS VARIABLES, COOKIES PASSWORD ETC.
;====THE INTENTION WAS ONLY FOR PPL INTERESTED IN SCRIPTING mIRC/YAHOO CHAT.
;====THERE ARE MORE COOKIES ANS ENCRYPTED KEYS I DID NOT SAVE LIKE VOICE TICKET AND OTHER COOKIES.
;====THERES INFORMATION SUCH AS ALIAS NAMES ACCOUNT NAME IGNORE LIST BUDDY LIST ETC ALL IGNORED BY THIS SCRIPT ON SIGN IN.
;====HEY MAN ITS JUST A SNIPPET, ANYBODY HAVE A COOL SMILEY ADDON OR WANT TO HELP ME WITH A VOICE CONNECTION?
alias -l tok_ker return $+(GET /config/pwtoken_get?src=ymsgr&login=,%y.id,&passwd=,%y.pw,&chal=,%y_chlng,$crlf,$crlf)
alias -l git_aut return $+(GET /config/pwtoken_login?src=ymsgr&token=,$remove(%y_tokn,$chr(10)),$crlf,$crlf)
alias -l shrt_pk return $+(1À€,%y.id,À€)
alias -l case return $bvar(&ysl,12)
alias -l d_bug return 9 $sockname $bvar(&ysl,1,20) $bvar(&ysl,18,$bvar(&ysl,0).text).text
alias -l YMSG_head return Y M S G 0 17 0 0 0 $chr($len($shrt_pk)) 0 W 0 0 0 0 0 0 0 0
alias -l rm.wind if ($window(@ $+ %room) == $null) { //window -eil15S @ $+ %Y_room yroompops.txt }
alias -l ymsg_17 $ypack(T,$+(1À€,%y.id,À€0À€,%y.id,À€277À€,%y_ck,À€278À€,%t_ck,À€307À€,$ym64,À€244À€,$y.rand,À€2À€,%y.id,À€2À€1À€98À€usÀ€135À€ym9.0.0.2162À€))
alias -l prjn $ypack(–,$+(109À€,%y.id,À€1À€,%y.id,À€6À€abcdeÀ€98À€usÀ€135À€ym9.0.0.2162À€))
alias -l jrm { $rm.wind | $ypack(˜,$+(1À€,%y.id,À€104À€,%y_room,À€129À€,%rm2,À€62À€2À€24À€1188648944À€)) }
alias -l striptags { var %x,%y = $regsub($1-,/<[^>]+>/g,$null,%x) | return $striphex(%x) } 
alias -l striphex { var %z,%a = $regsub($1-,/[/[/#0-9A-Fa-fm]{9}/g,$null,%z) | return %z }
alias -l aut_sox sockopen -e $1 login.yahoo.com 443
alias -l y.rand return $rand(16777219,60970879)
on *:input:@ $+ %room: { if ($left($1,1) != /) && ($window(@ $+ %y_room) != $null) { /spk $1- } | echo @ $+ %y_room %y.id $+ : $1- }
alias spk { %text = $1- | $ypack(¨,$+(1À€,%y.id,À€104À€,%y_room,À€117À€<font INF ID:FU2Booters:!M PROT:YMSG-17\mIRC VER: $+ $version $+ >font><font face="Arial">[1m[#000000m,%text,font>À€124À€1À€)) }
alias prejn prjn | jrm
alias login {
  if (!%Y.id) { %y.id = $?="Enter Your Yahoo Nickname." }
  if (!%Y.pw) { %Y.pw = $?*="Enter Your Yahoo Password." }
  if (!%Y_room) { set %y_room $?="Yahoo Room To Join." }
  if (!%rm2) { set %rm2 $?="ROOM IDENTIFIER To Join." }
  sockopen yh_chat_srv 68.180.217. $+ $rand(6,34) 80 
}
on 1:sockclose:yh_get_cookie: { ymsg_17 }
on 1:sockread:yh_*: {
  if ($sockerr > 0) return 
  sockread -f $sock($sockname).rq &ysl 
  var %len $bvar(&ysl,0).text 
  breplace &ysl 0 160
  if ($sockname == yh_chat_srv) { 
    if ($case = 87) { 
      %y_chlng = $remove($gettok($bvar(&ysl,21,%len).text,$calc($numtok($bvar(&ysl,21,%len).text,192) - 1),192),€) 
      %y_ssid = $bvar(&ysl,18,3).text
      echo -s 12,5Got Challenge 8:)
      $aut_sox(yh_get_tok)
      halt
    }
    if ($case = 241) { echo -a You are now logged onto Yahoo! Chat :) 1,8 Type /prejn to go to the room. | halt }
    if ($case = 150) { echo -a Ready To Join. | halt }
    if ($case = 168) { aline -p @ $+ %y_room 3 $+ $remove($gettok($bvar(&ysl,1,%len).text,4,192),€) 9 $+ $ansi2mirc($striptags($remove($gettok($bvar(&ysl,1,%len).text,6,192),€)))) | halt }
    if ($case = 152) && (admin isin $gettok($bvar(&ysl,1,%len).text,$count($bvar(&ysl,1,%len).text,À),192)) { $list_room($bvar(&ysl,21,%len).text) | halt }
    if ($case = 152) { aline -ln @ $+ %y_room $remove($gettok($bvar(&ysl,1,%len).text,8,192),€) | aline -p @ $+ %y_room 12 $remove($gettok($bvar(&ysl,1,%len).text,8,192),€) Joined # $+ %y_room $+ . | halt }
    if ($case = 155) { dline -l @ $+ %Y_room $fline(@ $+ %Y_room,$remove($gettok($bvar(&ysl,1,%len).text,6,192),€),1,1) | aline -p @ $+ %y_room 2 $remove($gettok($bvar(&ysl,1,%len).text,6,192),€) Parted # $+ %y_room $+ . | halt }
    if ($case = 85) { halt }
  }   
  if ($sockname == yh_get_tok) { 
    var %grab_tok $bvar(&ysl,1,%len).text
    %y_tokn = $remove($gettok(%grab_tok,2,10),$chr(13),ymsgr=) | %y_prtnr_id = $remove($gettok(%grab_tok,3,10),$chr(13),partnerid==)
    echo 12 -s Got Token :) 
    $aut_sox(yh_get_cookie)
    halt
  }
  if ($sockname == yh_get_cookie) {
    if (crumb= isin $gettok($bvar(&ysl,1,%len).text,2,10)) { 
      %Y_crumb = $gettok($remove($gettok($bvar(&ysl,1,%len).text,2,10),crumb=,$chr(13),$chr(10)),1,32)
      %Y_ck = $gettok($remove($gettok($bvar(&ysl,1,%len).text,3,10),Y=,$chr(13),$chr(10),$chr(59)),1,32)
      %T_ck = $gettok($remove($gettok($bvar(&ysl,1,%len).text,4,10),T=,$chr(13),$chr(10),$chr(59)),1,32)
    }
  }
  if ($bfind(&ysl,1,89 77 83 71)) { echo -s $replace($d_bug },160,) }
}
on 1:sockopen:yh_*: {
  if ($sockname == yh_get_cookie) { sockwrite -n yh_get_cookie $git_aut }
  if ($sockname == yh_get_tok) { sockwrite -n yh_get_tok $tok_ker }
  if ($sockname == yh_chat_srv) { 
    bset &pcktB 1 Y M S G 0 17 0 0 0 $chr($len($shrt_pk)) 0 W 0 0 0 0 0 0 0 0
    bwrite &Bpack 1 -1 &pcktB 
    bwrite &Bpack -1 -1 $shrt_pk 
    bread &Bpack 1 $calc($len($shrt_pk) + 20) &packB
    sockwrite yh_chat_srv &packB
    .remove &Bpack
  }
}
alias -l yahoo.size {
  var %a = $gettok($calc($len($1-) / 256),1,46)
  var %b = $calc($len($1-) - $calc(%a * 256))
  return %a %b
}
alias -l ypack {
  bset &head 1 Y M S G 0 17 0 0 $yahoo.size($2-) 0 $1 0 0 0 12 0
  bwrite &packt 1 -1 &head | bwrite &packt -1 -1 %y_ssid | bwrite &packt -1 -1 $2-
  bread &packt 1 $calc($len($2-) + 20)) &ysend
  sockwrite yh_chat_srv &ysend 
  .remove &packt 
}
alias -l Ym64 {
  var %offset = $md5(%y_crumb $+ %Y_chlng)
  var %inspc = 2
  :loop
  var %spcd = %spcd $chr($base($right($left(%offset,%inspc),2),16,10))
  if ($len(%offset) = %inspc) { return $replace($encode($remove(%spcd,$chr(32)) ,m),+,.,/,_,=,-) | halt }
  inc %inspc 2
  goto loop
}
alias -l list_room {
  var %list $remove($1-,€)
  if (Captcha isin $gettok(%list,6,192)) { echo -a $gettok(%list,6,192) | halt }
  var %num_nms $numtok(%list,192)
  var %sum_num 1
  while (%sum_num <= %num_nms) {
    if (110 isin $gettok(%list,%sum_num,192)) { aline -nl @ $+ %y_room  $gettok(%list,$calc(%sum_num - 1),192) }
    inc %sum_num
  }
}

♥♥Heart Acronym Snippet♥♥

Sun, 13 Nov 2022 17:19:05 +0000

Acronym snippet
-Tested works-
The colors are ♥♥red orange and yellow♥♥ and black background color

on *:Input:*:{
  If ($1 == ty)  { msg $active 4,1♥♥thank 7you♥♥ $2- | halt }
  If ($1 == wb)  { msg $active 4,1♥♥Welcome 7back♥♥ $- | halt }
  If ($1 == brb) { msg $active 4,1♥♥Be 7right 8back♥♥ $2- | halt }
  If ($1 == bbs) { msg $active 4,1♥♥be 7back 8soon♥♥ $2- | halt }
  If ($1 == gtg) { msg $active 4,1♥♥got 7to 8go♥♥ $2- | halt }
  If ($1 == pos) { msg $active 4,1♥♥parents 7over 8shoulder♥♥ $2- | halt }
  If ($1 == ib)  { msg $active 4,1♥♥im 7bored♥♥ $2- | halt }
  If ($1 == hay) { msg $active 4,1♥♥how 7are 8you♥♥ $2- | halt } 
  If ($1 == omg) { msg $active 4,1♥♥oh 7my 8god♥♥ $2- | halt }
  If ($1 == sfl) { msg $active 4,1♥♥scarred 7for 8life♥♥ $2- | halt }
  If ($1 == smd) { msg $active 4,1♥♥suck 7my 8dick♥♥ $2- | halt }
  If ($1 == omfg) { msg $active 4,1♥♥oh 7my 8fucking 4god♥♥ $2- | halt }
  If ($1 == imb) { msg $Active 4,1♥♥im 7bored♥♥ $2- | halt }
  If ($1 == lol) { msg $active 4,1♥♥laughing 7out 8loud♥♥ $2- | halt }
  If ($1 == fml) { msg $active 4,1♥♥Fuck 7my 8life♥♥ $2- | halt }
  If ($1 == tmi) { msg $active 4,1♥♥to 7much 8info♥♥ $2- | halt }
  If ($1 == pin) { msg $active 4,1♥♥parents 7in 8here♥♥ $2- | halt }
  If ($1 == atm) { msg $active 4,1♥♥at 7the 8minute♥♥ $2- | halt }
  If ($1 == stfu) { msg $active 4,1♥♥Shut 7the 8 fuck 4up♥♥ $2- | halt }
  If ($1 == smh) { msg $active 4,1♥♥Shaking 7my 8head♥♥ $2- | halt }
  If ($1 == lmao) { msg $active 4,1 ♥♥laughing 7 my 8 ass 7 off♥♥ $2- | halt } 
  If ($1 == wtf) { msg $active 4,1 ♥♥what 7 the 8 fuck♥♥ $2- | halt }
  if ($1 == gtfo) { msg $active 4,1♥♥Get 7 the 8 fuck 4out♥♥ $2- | halt }
  If ($1 == ily) { msg $active 4,1♥♥I 7love 8 You♥♥ $2- | halt }
  if ($1 == idk) { msg $active 4,1♥♥I 7dont 8know♥♥ $2- | halt }
}

epeen

Sun, 13 Nov 2022 16:53:32 +0000

;;; E-peen by KronicDreamer .... bordem!
alias sepeen {
  var %epeen = $ceil($calc($uptime(system,3) / 100000))
  echo My system Epeen is %epeen inches long!
}

alias mepeen {
  var %mepeen = $ceil($calc($uptime(mirc,3) / 100000))
  echo My mIRC Epeen is %mepeen inches long!
}

;; /sepeen for system epeen!
;; /mepeen for mirc epeen!

mIRC Hates You

Sun, 13 Nov 2022 16:50:44 +0000

Product of boredom.

/fin [-c]

-c = close

;the finger

alias fin {
  var %win @Fuck
  if ($1 == -c) { fin.close | return }
  elseif (!$window(%win)) window -dBpfk0 %win 1 1 188 210
  titlebar %win You
  the.finger
}

alias fin.close {
  .timerfin off 
  unset %fin* 
  close -@ @Fuck
}

alias the.finger {
  set %fin.sc +
  set %fin.c 1
  var %win @Fuck , %x 1 , %w 5
  clear %win
  drawrect -ndf %win 1 4 68 10 36 100
  drawrect -ndf %win 1 4 2 90 168 90
  drawrect -ndf %win 0 4 5 127 162 50
  while (%x <= 5) {
    drawrect -ndf %win 0 4 %w 93 30 45
    inc %w 33
    inc %x 1
  }
  drawrect -ndf %win 0 4 71 13 30 150
  drawrect -nd %win 1 2 74 16 23 19 4 5
  drawtext -np %win 1 Arial 20 8 183 2m4IR8C hates 3YOU :)
  drawdot %win
  .timerfin -m 0 50 fin.sc %fin.sc
}
alias -l fin.sc {
  if (!$window(@Fuck)) {
    fin.close
    return
  }
  else {
    if (%fin.c == 18) { %fin.sc = $iif(%fin.sc == +,-,+) | %fin.c = 1 }
    drawscroll @Fuck $+(%fin.sc,1) 0 0 0 199 180
    inc %fin.c
  }
}

on 1:CLOSE:@Fuck:fin.close

;EOF

MINI LAZOR

Sun, 16 Oct 2022 22:53:39 +0000

Simple LAZOR script. Variation of the FIRIN' MAH LAZOR snippet.

Contributors: Maximus

Commands
/minilazor

Examples:

/minilazor
This fires the mini lazor at the active window.

/minilazor napa182
This fires the mini lazor at napa182

/minilazor #channel
This fires the mini lazor at #channel

Paste in remotes or in aliases file. If your going to paste in the aliases file, remove the "alias" infront of MiniLazor in the code snippet below.

alias MiniLazor {
  if ($1 == $null) && ($active != status window) { %minilazor = $active }
  elseif ($1 != $null) { %minilazor = $1 } 
  .timermlzr -m 10 1000 msg %minilazor 7,4./¯/_____________________________\
  .timermlzr1 -m 10 1050 msg %minilazor 7,4| 4,7D7,4R4,7. 7,4O4,7C7,4T4,7O7,4G4,7O7,4N4,7A7,4P4,7U7,4S4,7! 7,4B7,4L4,7A7,4R4,7R7,4R4,7R7,4G4,7G7,4G7,4H4,7H7,4!4,4***7,4|
  .timermlzr2 -m 10 1075 msg %minilazor 7,4.\_\¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯/

Misc snippets Latest Topics

channelstats

Color Talker v1.1

mIRC Automated Execution Script v1.1.0

whois

whoischan

No Spam Chan v1.1

(mIRC) IAL Fill (better than /WHO On Join)

(AHK) MsgBoxRenBtn.ahk Library Include

(mIRC) Recent Activity Menu

Future for mIRC

Future ASCII (Unicode) Font for mIRC.

Emboss for mIRC

mIRC - /big & /huge

DNS-Resolver

Info:

Installation:

Details:

Examples:

Screenshots:

1):

2):

3):

BitlBee Script

Node.js HTML5 Websocket Example

Email Verify Script by OrFeAsGr v0.1

kvirc to mIRC Avatars

Extensible Account System

Simple Highlights

prefect relay

YMSG 17 Chat Room Login

♥♥Heart Acronym Snippet♥♥

epeen

mIRC Hates You

MINI LAZOR