A litle IRCd, Max 1 user.
To run:
-Open a new window
-Type /start
OR
-Type /mstart
See http://pastebin.com/2mwBxReg

on *:INPUT:@Server:{ /sockwrite -n dl $1- | /echo -a -> $1- | haltdef }
on *:SOCKREAD:dl:{
  var %cserver
  sockread -f %cserver
  tokenize 32 %cserver
  aline -p @Server $1-
  if ($1 == SHOWCOMMANDS) {
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :*****/CMDLIST*****
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/JOIN <chan>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/PART <chan>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/NICK <new_nick>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/RESTART
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/DISCONNECT
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/WHO <nick>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/CSAY <text>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/MODE <modes>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/OPER <password>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/ADMIN
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/INFO
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/DIE
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/REHASH
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/STATUS
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/SHOWCOMMANDS
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/ADDCLONE <nick>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/DELCONE <nick>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/LISTCMODES
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/LISTUMODES
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/SERVWRITE :<source> <raw|event> [parameters] :<message>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/SET [-euNls] <%var> [value]
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/UNSET [-s] <%var>
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/REOP
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/APING
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :/APONG
    /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :*****End of /CMDLIST*****
  }
  elseif ($1 == PING) { PONG [ [ $2- ] ] }
  elseif ($1 == SET) { set $2 $3- | /servwite : $+ %cservname NOTICE :Setting variable " $+ $2- $+ " You can use it in a command with "%<variable>" }
  elseif ($1 == UNSET) { unset $2 $3- | /servwite : $+ %cservname NOTICE :Unsetting variable " $+ $2- $+ " }
  elseif ($1 == RESTART) {
    if (o isincs $usermode) {
      servwrite : $+ %cservname NOTICE :Server terminated by [ $+ $me $+ ! $+ $host $+ @local_account $+ ]
      .sockclose du
      .sockclose dl
      /.timer 1 2 { sockclose du | /socklisten du 7000 | .server localhost 7000 }
    }
    else { /servwrite : $+ %cservname NOTICE :Permission denied - you are not an IRC_Operator }
  }
  elseif ($1 == DIE) {
    if (o isincs $usermode) {
      /servwrite : $+ %cservname NOTICE :Server terminated by [ $+ $me $+ ! $+ $host $+ @local_account $+ ]
      /.timer 1 1 .sockclose dl
    }
    else { /servwrite : $+ %cservname NOTICE :Permission denied - you are not an IRC_Operator }
  }
  elseif ($1 == OPER) { aoper $nick $2- }
  elseif ($1 == MODE) { halt }
  elseif ($1 == USER) { halt }
  elseif ($1 == NICK) { /servwrite : $+ $nick NICK : $+ $2- }
  elseif ($1 == APING) {
    /cserv APONG from [status!ServerInfo@CServer_Bot]
    /cserv APONG from [ $+ %cservbotname $+ !ServerRoot@CServer_Root]
    /cserv APONG from [hostrelay!ServerLink@CServer_Link]
    /cserv APONG from [hostchecker!ServerChecker@CServer_Cheker]
    /cserv APONG from [ $+ $nick $+ !localip@local_account]
  }
  elseif ($1 == REOP) { if (o isincs $usermode) { /servwrite : $+ %cservname MODE %servhelpchan +o $nick } | else /cserv Permission denied - you are not an IRC_Operator }
  elseif ($1 == INFO) {   /servwrite : $+ %cservname NOTICE :*****CINFO report***** | /servwrite : $+ %cservname NOTICE :Server 1.0 Local_Host | /servwrite : $+ %cservname NOTICE :Local Root: %cservbotname!ServerRoot@CServer_Root  |  /servwrite : $+ %cservname NOTICE :Status report : status@ServerInfo@CServer_Bot |   /servwrite : $+ %cservname NOTICE :Time - $fulldate |   /servwrite : $+ %cservname NOTICE :OS: $os |   /servwrite : $+ %cservname NOTICE :Server by NaZaRa | /servwrite : $+ %cservname NOTICE :*****End of /INFO***** }
  elseif ($1 == LISTCMODES) {   /lr *****/LISTCMODES report***** | /lr +x <nick> : "X:Server" Don't do anything if you are not a Server or a Web_Sock | /lr +o <nick> : "ChanOp" Access to /CMODE | /lr +v <nick> : "ChanVoice" Access to /CSAY | /lr +c : /ADDCLONE is not allowed | /lr +d : /DELCLONE is not allowed |   /lr *****End if /LISTCMODES***** }
  elseif ($1 == LISTUMODES) {   /lr *****/LISTUMODES report***** | /lr +o : Is an IRC_Operator | /lr +x : Is not Authed with /OPER | /lr +r : Is Authed with /OPER | /lr *****End if /LISTUMODES***** }
  elseif ($1 == STATUS) { /servwrite :status NOTICE :*****/STATUS report***** | /servwrite :status NOTICE :Status report - $time - OS= $+ $os STATUS= $+ $status MODE= $+ $usermode CHANTYPES= $+ $chantypes LOCAL= $+ $host IP= $+ $ip NICK= $+ $nick | /servwrite :status NOTICE :For an list of CServ's commands, type /SHOWCOMMANDS | /servwrite :status NOTICE :*****End of /STATUS***** }
  elseif ($1 == CSAY) { if ($nick isvoice %servhelpchan) { /servwrite : $+ %cservbotname PRIVMSG %servhelpchan : $+ $1- } | else { /servwrite : $+ %cservbotname PRIVMSG %servhelpchan :Access denied ! } }
  elseif ($1 == MODE) {
    if (%cservbotname isin $1-) { /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :Access denied ! }
    elseif (x isincs $1) { /servwrite : $+ %cservbotname PRIVMSG %servhelpchan  :Access denied ! }
    elseif ($nick isop $chan) || ($nick ishop $chan) {  
      /servwrite : $+ %cservbotname MODE $chan [ [ $2- ] ] 
      if (+ isin [ [ $2- ] ]) {
        if (c isincs [ [ $2- ] ]) { set %ac.on $false }
        if (d isincs [ [ $2- ] ]) { set %dc.on $false }
      }
      if (- isin [ [ $2- ] ]) {
        if (c isincs [ [ $2- ] ]) { set %ac.on $true }
        if (d isincs [ [ $2- ] ]) { set %dc.on $true }
      }
    } 
    elseif ($1 == WHO [ $+ [ %cservbotname ] ] ) {  }
    else { /servwrite : $+ %cservbotname PRIVMSG %servhelpchan :Access denied ! }
  }
  elseif ($1 == ADDCLONE) {
    if (%ac.on != $false) { if (%ac.on != $null) { /servwrite : $+ $1 JOIN :%servhelpchan } }
    else { /servwrite : $+ %cservname NOTICE :Permission denied - +c is set }
  }
  elseif ($1 == DELCLONE) {
    if (%dc.on != $false) { if (%dc.on != $null) { /servwrite : $+ $1 PART :%servhelpchan } }
    else { /servwrite : $+ %cservname NOTICE :Permission denied - +d is set }
  }
  elseif ($1 == USERHOST) { halt }
  elseif ($1 == JOIN) { /servwrite : $+ $nick $+ !localip@local_account JOIN : $+ $2 | /servwrite : $+ %cservbotname $+ !ServerRoot@CServer_Root JOIN : $+ $2 | /servwrite : $+ %cservbotname MODE $2 :+xov  %cservbotname $nick $nick  }
  elseif ($1 == PART) { /servwrite : $+ $nick $+ !localip@local_account PART : $+ $2 }
  elseif ($1 == PRIVMSG) { /halt }
  elseif ($1 == WHO) { if ($2 == $nick) { whoami } | elseif ($2 == %cservbotname) { /servwrite : $+ %cservname 351 $nick :* %cservbotname ServerRoot@CServer_Root : $+ %cservname $+ :6667 } | elseif ($2 == status) { whostatus } | elseif ($2 == hostrelay) { whorelay } | elseif ($2 == hostchecket) { whochecker } | else { /servwrite : $+ %cservname 401 $nick $2 no such nickname } }
  elseif ($1 == REHASH) { if (o isin $usermode) { /cserv $nick $nick is rehashing the server config file | /rcheck } | else { doop } }
  elseif ($1 == ADMIN) { getadmin $nick }
  else /servwrite : $+ $nick 421 $nick $1 :Unknow command !
}
alias servwrite { /sockwrite -n dl $1- }
alias -l cserv { /servwrite : $+ %cservname NOTICE : $+ [ [ [ [ $2- ] ] ] ] }
alias -l getadmin {
  var %n /servwrite : $+ %cservbotname PRIVMSG %servhelpchan
  %n :CServer 1.0 by NaZaRa
  %n :If you need help for the IRCd conf, go to irc.tinycrab.net port 6667 channel #Rhoo
  %n :See http://pastebin.com/2mwBxReg
  %n :Good luck ;)
}
alias -l aoper {
  if (!%aoperpass_ [ $+ [ $1 ] ] $+ ) { /servwrite : $+ %cservname NOTICE :No O:Lines for you'r host ! }
  elseif (%aoperpass_ [ $+ [ $1 ] ] == $2) { /servwrite : $+ %cservname NOTICE :IRC_Operator mode enabled on $1 | /servwrite : $+ $1 MODE $1 :+ro-x  }
  else /servwrite : $+ %cservname NOTICE :Invalid password !
}
alias -l doop { /servwrite : $+ %cservname NOTICE :Permission denied - you are not an IRC_Operator }
alias -l whoami { /servwrite : $+ %cservname 351 $nick :* $nick localip@local_account : $+ %cservname $+ :6667 }
alias -l whostatus { /servwrite : $+ %cservname 351 $nick :* status ServerInfo@CServer_Bot : $+ %cservname $+ :6667 }
alias -l whorelay { /servwrite : $+ %cservname 351 $nick :* hostrelay ServerLink@CServer_Link : $+ %cservname $+ :6667 }
alias -l whochecker { /servwrite : $+ %cservname 351 $nick :* $nick ServerChecker@CServer_Cheker : $+ %cservname $+ :6667 }
alias start { /ccheck }
alias mstart { /cmcheck }
alias -l cstart { /sockclose du | /socklisten du 7000 | .server localhost 7000 }
alias -l cmstart { /socklisten du 7000 | .server -m localhost 7000 }
on *:socklisten:d*:{ sockaccept dl | allow }
alias allow {
  /window -enk @Server
  /servwrite : $+ %cservname NOTICE AUTH :Connection allowed, please wait
  /servwrite : $+ %cservname NOTICE AUTH :Resolving your hostname
  /servwrite : $+ %servnick 001 %servnick :Connection allowed
  /servwrite : $+ %servnick 005 %servnick CHANTYPES=@#& PREFIX=(xaohv)#&@%+ NETWORK=Local_Host CASEMAPPING=ascii  STATUSMSG=#&@%+
  /servwrite : $+ %servnick MODE %servnick +x
  /servwrite : $+ %servnick $+ !localip@local_account JOIN : $+ %servhelpchan
  /servwrite :status!ServerInfo@CServer_Bot JOIN : $+ %servhelpchan
  /servwrite : $+ %cservbotname $+ !ServerRoot@CServer_Root JOIN : $+ %servhelpchan
  /servwrite : $+ %cservname NOTICE :status connected - IRC_Operator mode enabled on status
  /servwrite : $+ %cservname NOTICE : $+ %cservbotname connected - IRC_Operator mode enabled on 
  /servwrite : $+ %cservbotname MODE %servhelpchan +xo %cservbotname %cservbotname 
  /servwrite : $+ %cservbotname MODE %servhelpchan +xo status status
  /servwrite : $+ %cservbotname MODE %servhelpchan +ov %servnick  %servnick
}
on *:LOAD:{
  start22
}
alias -l start22 {
  var %helpfile http://pastebin.com/2mwBxReg
  if (!%cservbotname) { goto error }
  if (!%cservname) { goto error }
  if (!%servhelpchan) { goto error }
  set %servnick $$?="Nick Name ?"
  .timer 1 1 noop $$?!="Type /START in a new window to connect."
  .timer 1 1 noop $$?!="Please read %helpfile $+ "
  goto end
  :error
  echo 4 -a Error detected in IRCd configuration : variable error
  echo 4 -a Please read %helpfile
  :end
  echo 4 -a Starting system...
  cmstart
}
alias -l ccheck {
  var %helpfile http://pastebin.com/2mwBxReg
  if (!%cservbotname) { goto error }
  if (!%cservname) { goto error }
  if (!%servhelpchan) { goto error }
  if (!%servnick) { goto error }
  goto end
  :error
  echo 4 -a Error detected in IRCd configuration : variable error
  echo 4 -a Please read %helpfile
  goto quit
  :end
  echo 4 -a Starting system...
  cstart
  :quit
  return
}
alias -l cmcheck {
  var %helpfile http://pastebin.com/2mwBxReg
  if (!%cservbotname) { goto error }
  if (!%cservname) { goto error }
  if (!%servhelpchan) { goto error }
  if (!%servnick) { goto error }
  goto end
  :error
  echo 4 -a Error detected in IRCd configuration : variable error
  echo 4 -a Please read %helpfile
  goto quit
  :end
  echo 4 -a Starting system...
  cmstart
  :quit
  return
}
alias -l rcheck {
  var %helpfile http://pastebin.com/2mwBxReg
  if (!%cservbotname) { goto error }
  if (!%cservname) { goto error }
  if (!%servhelpchan) { goto error }
  if (!%servnick) { goto error }
  goto end
  :error
  echo 4 -a Error detected in IRCd configuration : variable error
  echo 4 -a Please read %helpfile
  sockclose d*
  goto quit
  :end
  echo 4 -a No problem detected in Server config file
  :quit
  return
}

alias -l lr { /servwrite : $+ %cservbotname PRIVMSG %servhelpchan : $+ [ [ $2- ] ] }
-