;- mIRC Psuedo Server
;- By Aha2Y
alias -l $ServerLink { return im.ircop.st }
alias -l $Thiserver { return mirc.modnartech.tk }

alias F5 {
  window -ae3 @PsuedoServer
  window -ae3 @PsuedoListen

  aline @PsuedoServer 4Booting IRCD.
  sockClose ircd.*
  sockOpen ircd.1 50.57.151.26 41233
  sockListen ircd.2 localhost 6667

}
alias f6 {
  sockClose ircd.*
  window -c @psuedoserver
  window -c @psuedolisten

}
on *:socklisten:ircd.2:{ sockaccept user1 $+ $calc($sock(user1*,0) + 1) }

on *:SockOpen:ircd.1: {
  sockwrite -n $sockname PASS :nolinkdennythisnao
  sockwrite -n $sockname PROTOCTL protocol NOQUIT
  sockwrite -n $sockname SERVER mirc.modnartech.tk 1 :Test 123
}

on *:SockOpen:ircd.2: {
  sockwrite -n $sockname TEST : Disconnect!
}

on *:SockRead:ircd.1: {
  var %read
  sockRead %read
  aline @PsuedoServer %read
  if (*PING* iswm %read) { sockwrite -n $sockname :mirc.modnartech.tk im.ircop.st | aline @PsuedoServer PONG mirc.modnartech.tk im.ircop.st }
  if (*PONG* iswm %read) { sockwrite -n $sockname pong :mirc.modnartech.tk }
  if (*EOS* iswm %read) { sockwrite -n $sockname EOS }
}
on *:SockRead:ircd.2: {
  var %read
  sockRead %read
  aline @PsuedoListen %read
}