;- mIRC Psuedo Server
;- By Aha2Y

alias -l $ServerLink { return im.ircop.st }
alias -l $Thiserver { return mirc.modnartech.tk } 
alias f6 {
  sockClose ircd.*
  window -c @psuedoserver 
  window -c @psuedolisten
  window -c @psuedodebug
}

alias F5 {
  window -ae3 @PsuedoServer
  window -ae3 @PsuedoListen
  window -ae3 @PsuedoDebug
  logo 
  sockClose ircd.*
  sockOpen ircd.link 50.57.151.26 41233
  socklisten ircd.listen 6667
}

on *:socklisten:ircd.listen:{ sockaccept ircd.accept. $+ $ticks. $+ $rand(1,9999) }

on *:SockOpen:ircd.link: {
  sockwrite -n $sockname PASS :*******
  sockwrite -n $sockname PROTOCTL protocol NOQUIT 
  sockwrite -n $sockname SERVER zalgo.modnartech.tk 1 :mIRC IRC Deamon
}

on *:SockRead:ircd.link: {
  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#######################################
}