script.quakenet.org/paste

Id: 10294; Nick: Dor; Timestamp: 2008-05-10 12:35:54; Pasted as: mIRC
Description: n/a

;Unreal MSL
 
on *:socklisten:unreal:{
  var %r = client $+ $r(1000000,9999999)
  sockaccept %r
  set %started. [ $+ [ %r ] ] 1
  ;echo -atg Accepting Connection from $sock(%r).ip -- $sock(%r).addr .:. %r
}
alias sockname.ini { return $sockname $+ .ini }
alias conf {
  return $readini(ircd.conf,general,$1)
}
on *:sockread:client*:{
  var %s
  sockread %s
  tokenize 32 %s
  var %a = sockwrite -tn $sockname
  if (%started. [ $+ [ $sockname ] ]) {
    if (NICK == $1) {
      echo -a nick triggerd
      if ($istok(%ircd.usednicks,$2,32)) { %a 433 * $2 Nickname is already in use | echo -a halted | halt }
      if (!$regex($2,/^([][A-Za-z\\^`{|}-][][\w\\^`{|}-]*)$/) { %a 432 * #2 Bad Nickname: Illegal Characters | echo -a halted2 | halt }
      echo -a reached.
      set %ircd.usednicks %ircd.usednicks $2
      writeini $sockname.ini general nick $2
    }
    if (USER == $1) {
      %a :Welcome NOTICE AUTH :*** Welcome to $conf(server)
      %a :Welcome NOTICE AUTH :*** Attempting to find your Hostname. Please Hold!
      writeini $sockname.ini general user $2
      writeini $sockname.ini general realname $mid($5-,2)
      dns $sock($sockname).ip
      set %sname.temp $sockname
      unset %started. [ $+ [ $sockname ] ]
    }
  }
}
 
on *:dns:{
  sockwrite -tn %sname.temp :Welcome NOTICE AUTH :*** Found your hostname! ( $+ $dns(1).addr $+ )
  writeini %sname.temp $+ .ini general host $dns(1).addr
  ircd.connect %sname.temp
  unset %sname.temp
}
alias irc.version {
  return Dor1.0.0
}
alias ircd.connect {
  var %a = sockwrite -tn $1 : $+ $conf(server)
  var %nick = $readini($1.ini,general,nick)
  var %user = $readini($1.ini,general,user)
  var %host = $readini($1.ini,general,host)
  %a 001 %nick :Welcome to the $conf(network) IRC Network $+(%nick,!,%user,@,%host)
  %a 002 %nick :Your host is $conf(server) $+ , running version $ircd.version
  %a 003 %nick :This server was created Sun Apr 27 13:24:35 2008 at 13:24:52 IST
  %a 004 %nick $conf(server) $ircd.version iowghraAsORTVSxNCWqBzvdHtGp lvhopsmntikrRcaqOALQbSeIKVfMCuzNTGjXUB
  %a 005 %nick NAMESX SAFELIST HCN MAXCHANNELS=15 CHANLIMIT=#:15 MAXLIST=b:60,e:60,I:60 NICKLEN=30 CHANNELLEN=32 TOPICLEN=307 KICKLEN=307 AWAYLEN=307 MAXTARGETS=20 WALLCHOPS are supported by this server
  %a 005 %nick WATCH=128 SILENCE=15 MODES=12 CHANTYPES=# PREFIX=(qaohv)~&@%+ CHANMODES=beI,kfL,ljXB,psmntirRcOAQKVCuzNSMTGU NETWORK= $+ $conf(network) CASEMAPPING=ascii EXTBAN=~,cqnrTR ELIST=MNUCT STATUSMSG=~&@%+ EXCEPTS INVEX are supported by this server
  %a 005 %nick CMDS=KNOCK,MAP,DCCALLOW,USERIP are supported by this server
  %a 422 %nick :MOTD file is missing.
}
 
on *:sockclose:client*:{ 
  .remove $sockname.ini
}

Parentheses warning on line 22:: if (!$regex($2,/^([][A-Za-z\\^`{|}-][][\w\\^`{|}-]*)$/) { %a 432 * #2 Bad Nickname: Illegal Characters | echo -a halted2 | halt }
There is 3 (, but only 2 ).

Parsed for bracket errors and indented:

;Unreal MSL
 
on *:socklisten:unreal:{
  var %r = client $+ $r(1000000,9999999)
  sockaccept %r
  set %started. [ $+ [ %r ] ] 1
  ;echo -atg Accepting Connection from $sock(%r).ip -- $sock(%r).addr .:. %r
}
alias sockname.ini { return $sockname $+ .ini }
alias conf {
  return $readini(ircd.conf,general,$1)
}
on *:sockread:client*:{
  var %s
  sockread %s
  tokenize 32 %s
  var %a = sockwrite -tn $sockname
  if (%started. [ $+ [ $sockname ] ]) {
    if (NICK == $1) {
      echo -a nick triggerd
      if ($istok(%ircd.usednicks,$2,32)) { %a 433 * $2 Nickname is already in use | echo -a halted | halt }
      if (!$regex($2,/^([][A-Za-z\\^`{|}-][][\w\\^`{|}-]*)$/) { %a 432 * #2 Bad Nickname: Illegal Characters | echo -a halted2 | halt }
      echo -a reached.
      set %ircd.usednicks %ircd.usednicks $2
      writeini $sockname.ini general nick $2
    }
    if (USER == $1) {
      %a :Welcome NOTICE AUTH :*** Welcome to $conf(server)
      %a :Welcome NOTICE AUTH :*** Attempting to find your Hostname. Please Hold!
      writeini $sockname.ini general user $2
      writeini $sockname.ini general realname $mid($5-,2)
      dns $sock($sockname).ip
      set %sname.temp $sockname
      unset %started. [ $+ [ $sockname ] ]
    }
  }
}
 
on *:dns:{
  sockwrite -tn %sname.temp :Welcome NOTICE AUTH :*** Found your hostname! ( $+ $dns(1).addr $+ )
  writeini %sname.temp $+ .ini general host $dns(1).addr
  ircd.connect %sname.temp
  unset %sname.temp
}
alias irc.version {
  return Dor1.0.0
}
alias ircd.connect {
  var %a = sockwrite -tn $1 : $+ $conf(server)
  var %nick = $readini($1.ini,general,nick)
  var %user = $readini($1.ini,general,user)
  var %host = $readini($1.ini,general,host)
  %a 001 %nick :Welcome to the $conf(network) IRC Network $+(%nick,!,%user,@,%host)
  %a 002 %nick :Your host is $conf(server) $+ , running version $ircd.version
  %a 003 %nick :This server was created Sun Apr 27 13:24:35 2008 at 13:24:52 IST
  %a 004 %nick $conf(server) $ircd.version iowghraAsORTVSxNCWqBzvdHtGp lvhopsmntikrRcaqOALQbSeIKVfMCuzNTGjXUB
  %a 005 %nick NAMESX SAFELIST HCN MAXCHANNELS=15 CHANLIMIT=#:15 MAXLIST=b:60,e:60,I:60 NICKLEN=30 CHANNELLEN=32 TOPICLEN=307 KICKLEN=307 AWAYLEN=307 MAXTARGETS=20 WALLCHOPS are supported by this server
  %a 005 %nick WATCH=128 SILENCE=15 MODES=12 CHANTYPES=# PREFIX=(qaohv)~&@%+ CHANMODES=beI,kfL,ljXB,psmntirRcOAQKVCuzNSMTGU NETWORK= $+ $conf(network) CASEMAPPING=ascii EXTBAN=~,cqnrTR ELIST=MNUCT STATUSMSG=~&@%+ EXCEPTS INVEX are supported by this server
  %a 005 %nick CMDS=KNOCK,MAP,DCCALLOW,USERIP are supported by this server
  %a 422 %nick :MOTD file is missing.
}
 
on *:sockclose:client*:{
  .remove $sockname.ini
}

Options: New, Download, , mIRC Parser;

Copyright � 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)