Advertisement
Aha2Y

Untitled

Nov 1st, 2011
401
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.21 KB | None | 0 0
  1. ;- mIRC Psuedo Server
  2. ;- By Aha2Y
  3. alias -l $ServerLink { return im.ircop.st }
  4. alias -l $Thiserver { return mirc.modnartech.tk }
  5.  
  6. alias F5 {
  7.   window -ae3 @PsuedoServer
  8.   window -ae3 @PsuedoListen
  9.  
  10.   aline @PsuedoServer 4Booting IRCD.
  11.   sockClose ircd.*
  12.   sockOpen ircd.1 50.57.151.26 41233
  13.   sockListen ircd.2 localhost 6667
  14.  
  15. }
  16. alias f6 {
  17.   sockClose ircd.*
  18.   window -c @psuedoserver
  19.   window -c @psuedolisten
  20.  
  21. }
  22. on *:socklisten:ircd.2:{ sockaccept user1 $+ $calc($sock(user1*,0) + 1) }
  23.  
  24. on *:SockOpen:ircd.1: {
  25.   sockwrite -n $sockname PASS :nolinkdennythisnao
  26.   sockwrite -n $sockname PROTOCTL protocol NOQUIT
  27.   sockwrite -n $sockname SERVER mirc.modnartech.tk 1 :Test 123
  28. }
  29.  
  30. on *:SockOpen:ircd.2: {
  31.   sockwrite -n $sockname TEST : Disconnect!
  32. }
  33.  
  34. on *:SockRead:ircd.1: {
  35.   var %read
  36.   sockRead %read
  37.   aline @PsuedoServer %read
  38.   if (*PING* iswm %read) { sockwrite -n $sockname :mirc.modnartech.tk im.ircop.st | aline @PsuedoServer PONG mirc.modnartech.tk im.ircop.st }
  39.   if (*PONG* iswm %read) { sockwrite -n $sockname pong :mirc.modnartech.tk }
  40.   if (*EOS* iswm %read) { sockwrite -n $sockname EOS }
  41. }
  42. on *:SockRead:ircd.2: {
  43.   var %read
  44.   sockRead %read
  45.   aline @PsuedoListen %read
  46. }
  47.  
  48.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement