;- mIRC Psuedo Server
;- By Aha2Y

alias LinkServer { return to.domain.com }
alias Thiserver { return from.domain.com }

alias F6 {
  sockclose ircd.*
  window -c @psuedoserver
  window -c @psuedolisten
  window -c @psuedodebug
}

alias F5 {
  window -ae3 @PsuedoServer
  window -ae3 @PsuedoListen
  window -ae3 @PsuedoDebug
  sockClose ircd.*
  sockOpen ircd.link $LinkServer 41233
  socklisten ircd.listen 6668
}
on *:SockOpen:ircd.link: {
  sockwrite -n $sockname PASS :lolno
  sockwrite -n $sockname PROTOCTL protocol NOQUIT NS
  sockwrite -n $sockname SERVER Servername1 1 :IRCD Fucker by Aha2Y
  sockwrite -n $sockname SERVER Servername2 1 :IRCD Fucker by Aha2Y
  sockwrite -n $sockname SERVER Servername 1 :IRCD Fucker by Aha2Y
}

alias addserver {
  var %i = 1
  while (%i <= $1-) {
    sockwrite -n ircd.link SERVER s $+ %i $+ .aha2y.nl.vu 1 : IRC Deamon Fucker, By Aha2Y
    inc %i
  }
}

on *:socklisten:ircd.listen:{ sockaccept user $+ $calc($sock(user1*,0) + 1) | aline @sockListen $1- }
on *:SockRead:ircd.link: {
  var %read
  sockRead %read
  aline @PsuedoDebug %read
  if (*PING* iswm %read) { sockwrite -n $sockname : $LinkServer | aline @PsuedoServer PONG $Thiserver $LinkServer }
  if (*PONG* iswm %read) { sockwrite -n $sockname pong : $+ $Thiserver }
  if (*EOS* iswm %read) { sockwrite -n $sockname EOS }
  if (**** Looking up your hostname...* iswm %read) { aline @PsuedoServer 5*** Looking up your hostname... | haltdef }
  if (*** Found your hostname (cached)* iswm %read) { aline @PsuedoServer 5*** Found your hostname (cached) }
  if (*** Checking ident...* iswm %read) { aline @PsuedoServer 5*** Checking ident... }
  if (*** No ident response; username prefixed with ~* iswm %read) { aline @PsuedoServer 5*** No ident response; username prefixed with ~ | aline @Psuedoserver 0,0# }
  if (*(link)* iswm %read) { aline @PsuedoServer %read }
}

on *:SockRead:ircd.listen: {
  var %read
  sockRead %read
  aline @PsuedoListen %read
}