;- 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
  window -ae3 @PsuedoDebug
  logo
  sockClose ircd.*
  sockOpen ircd.1 50.57.151.26 41233
  socklisten ircd.2 6667
}
alias f6 {
  sockClose ircd.*
  window -c @psuedoserver
  window -c @psuedolisten
  window -c @psuedodebug
}
on *:socklisten:ircd.2:{ sockaccept user $+ $calc($sock(user1*,0) + 1) }

on *:SockOpen:ircd.1: {
  sockwrite -n $sockname PASS :linkme
  sockwrite -n $sockname PROTOCTL protocol NOQUIT
  sockwrite -n $sockname SERVER mirc.modnartech.tk 1 :mIRC IRC Deamon
  sockwrite -n $sockname SERVER cinos.modnartech.tk 1 :mIRC IRC Deamon
  sockwrite -n $sockname SERVER s2.modnartech.tk 1 :mIRC IRC Deamon

}
on *:SockOpen:ircd.2: {
  sockwrite -n $sockname SERVER mirc.modnartech.tk 1 :Test 123
}

on *:socklisten:ircd.2: {
  var %x = 0
  while ($sock($+(MyClient.,%x))) inc %x
  sockaccept $+(MyClient.,%x)
}
on *:sockread:ircd.2: {
  var %read2
  aline @PsuedoListen %read2
  while (1) {
    sockread -n %read2
    var %x = 0
    while ($sock($+(MyClient.,%x))) { sockwrite -n $v1 %read2 | inc %x }
    if (!$sockbr) return
  }
}

on *:SockRead:ircd.1: {
  var %read
  sockRead %read
  aline @PsuedoDebug %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 }
  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 }
}

alias -l logo {
  aline @PsuedoServer 3#######################################
  aline @PsuedoServer 3##0,0##########3mIRC Psuedo Server0,0#######3##
  aline @PsuedoServer 3##0,0###############3By Aha2Y0,0############3##
  aline @PsuedoServer 3#######################################
  aline @PsuedoServer 0,0#######################################
}