[Evolution IRCWX]

on *:sockopen:?#*:$sw $sockname $auth1 
on *:sockread:?#*: {
  var %1, %s = $sockname, %ip = $sock(%s).ip | sockread %1 | $tk %1 | db %s $1-
  if ($1 = auth) {
    if (GKSSP isin $4) $sw %s $auth2(%ip $1-)
    if ($4 = :OK) $sw %s $auth3 $lf USER W T F : $+ 4·124· $+ $me $+ 12(4ø12)12 $lf nick $me $lf JOIN %s $hget(keys,%s)))
  }
  if ($2 = 910) { echo 4 -a * Authentication failed ... | sockclose %s }
  if ($left(%s,1) = f) {
    var %c = $gettok(%s,2-,46)
    if ($2 = 001) { echo 5 -a * Preforming lookup on %c ... | $sw %s finds %c }
    if ($2 = 613) { echo 5 -a * %c found, opening channel socket ... | sockopen %c $mid($4,2) $5 | sockclose %s }
    if ($2 = 702) {
      var %do $rand(A,Z) $+ $rand(a,z) $+ $rand(a,z) $+ $upper($r(a,z)) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(10,90)
      hadd -m keys %c %do
      sockwrite -n $sockname CREATE CP %c Welcome +l777 EN-US 1 %do 0
    }
    halt
  }
  if ($2 = prop) hadd -m $4 %s $mid($5-,2)
  if ($1 = ping) { if ($me !ison %s) sockclose %s | else $sw %s PONG $2- }
  if ($2 == NICK) { sockwrite -n $sockname : $+ $me nick $2 | halt }
  if ($gettok(%1,2,32) == 004) { $swl $+(:,$me) NICK $gettok(%1,3,32) }
  if ($2 = prop) hadd -m $4 %s $mid($5-,2)
  if ($1 = ping) { if ($me !ison %s) sockclose %s | else $sw %s PONG $2- }
  if ($2 $5 = mode $me) && (!$hget(fp,%s)) {
    if ($4 = -q) && (%dqp) $sw %s mode $me +h $qk($3) $lf access $3 clear $lf mode $3 -q $xn($1) $lf prop $3 ownerkey $Lkey $lf access $3 clear
    if ($4 = +q) && (%qqp) && ($xn($1) != $me) $sw $3 prop $3 ownerkey $Lkey $lf prop $3 hostkey $Lkey $lf access $3 add owner $ial($me).addr 0 : $+ $tag | hadd -mu1 fp $3 1
  }
  If ($2 == 818 && $5 == PUID && %vp) { unset %vp | run IEXPLORE.EXE http://members.msn.com/?mpp= $+ $remove($6,:) }  

  if ($2 $4 = kick $me)  $sw %s join $3 $qk($3) $lf access $3 clear $lf mode $3 -q $xn($1) : $+ $tag $lf prop $3 ownerkey $Lkey $lf prop $3 hostkey $Lkey $lf access $3 clear
  if ($pos($2,KNOCK)) echo %s Knock: $right($gettok($1,1,33),-1) - $right($5-,-1)
  if ($2 = join) { if ($xn($1) = $me) $sw %s who %s | if ($gettok($3,4,44)) $swl : $+ $xn($1) MODE %s $+(+,$replace($gettok($3,4,44),.,q,@,o,+,v)) $xn($1) }
  if ($2 = 353) { var %1, %2 | %2 = $regsub($6-,/([^:,\s]+,)/g,$null,%1) | $swl $1-5 %1 }
  if ($4 == :TIME) { /ctcpreply $wildtok($mid($1,2),*,1,33) TIME  $asctime(dd/mm/yyyy) $+ , $time | .return }
  if ($4 == :PING) || ($4 == :VERSION) || ($4 == :DTäE ) || ($4 == :FINGER) { .return }
  elseif ($2 isin 001 002 004 802 803 804 805 820 405) { echo -a $remove($sockname,?#)  | halt }
  if ($2 = privmsg) { if (!$remove($4-,:)) halt | if ($4 = :S) $swl $1-3 $+(:,$remove($6-,$chr(1))) | elseif ($4 = :ACTION) $swl $1-4 $remove($5-,$chr(1)) | else $swl $remove($1-,$chr(1)) | halt }
  if ($2 = whisper) { if ($5-6 = :ERR NOUSERWHISPER) halt | elseif ($5 = :S) $swl $1 privmsg $4 $remove($6-,$chr(3)) | else $swl $1 privmsg $4 $remove($5-,$chr(3)) }
  if ($2 = nick) && ($remove($3,:) = $me) halt
  if ($2 = quit) { $swl $1 part %s $3- | halt }
  if ($2 = 934) $sw %s join %s $qk(%s)
  if (%who) { if ($2 = 352) echo 5 %s * $+ $5 $+ @ $+ $6 $8- | if ($2 = 315) { echo 6 %s End $6- | echo %s } }
  $swl $1-
}
alias xn return $remove($gettok($1,1,33),:)
on *:sockclose:?#*:var %s = $sockname, %1 = $sock(%s).ip | sockclose %s | sockopen %s %1 6667
on *:socklisten:init:{ sockaccept root | echo 5 -a * Localhost connected ... | sockclose init }
on *:sockread:root: {
  var %1, %s = $sockname | sockread %1 | $tk %1 | db %s $1-
  if ($1 = QUIT) { sockwrite -n ?#* QUIT : $+ $2- }
  if ($1 = join) && ($2) { var %c = $cf($2-) | if ($sock(%c)) $sw %c join %c $qk(%c) | else { sockopen f#nds. $+ %c irc.irc7.com 6667 | echo 5 -a * Creating finds socket for %c ... } }
  if ($istok(privmsg notice,$1,32)) && ($me !ison $2) { var %1 = $chan(0) | while (%1) { var %c = $chan(%1) | if ($2 ison %c) { $sw %c $1-2 : $+ $mid($3-,2) | halt } | dec %1 } }
  elseif ($sock($2)) $sw $2 $1-
}
on *:sockopen:finds.*:var %s = $sockname, %c = $gettok(%s,2-,46) | $sw %s $+(NICK $me,$lf,$_GuestAuth,$lf) | $sw %s FINDS %c

on *:join:#:{ var %1 = $nick, %2 = $address, %3 = gkp.txt, %4 = $addtok($read(%3,s,%2),%1,32) | write -s $+ %2 %3 %2 %4 | if ($numtok(%4,32) > 1) echo 5 # * $nick was: $remtok(%4,%1,32) }
raw 367:*:{
  if (* $+ # $+ * iswm $ial($me)) { access $2 delete deny # }
  access # add deny $ial($nick).addr 0 : fag. | kick # $nick (add/deny/who?.)
}

menu status,channel {
  Connect:connect
  Disconnect: sockclose * | disconnect
  -
  Options
  .Show who $o1(%who):$o2(%who) %who
  .-
  .Prop on +q $o1(%qqp):$o2(%qqp) %qqp
  .Deowner prot $o1(%dqp):$o2(%dqp) %dqp
  .Revenge kick $o1(%rvk):$o2(%rvk) %rvk
  .-
  .Debug $o1(%debug):$o2(%debug) %debug
}
alias connect {
  sockclose *
  if (!%default) { inc %who | inc %qqp | inc %dqp | inc %rvk | inc %default }
  while (!%ticket) && (!%profile ) { set %ticket $?="Ticket:" | set %profile $?="Profile:" }
  socklisten init $ky | server 127.0.0.1 $sock(init).port
}
alias pr return $str($ky,5)
alias tk return tokenize 32
alias sw return sockwrite -n
alias ky return $r(1111,9999)
alias tag return $me
alias hk return $hget(hostkey,$1)
alias qk return $hget(ownerkey,$1)
alias o2 return $iif($1,unset,inc)
alias swl return sockwrite -n root
alias swf return sockwrite -n finds
alias o1 return ( $+ $iif($1,on,off) $+ )
alias xn return $remove($gettok($1,1,33),:)
alias clone { $sw ?#* quit | $sw root : $+ $me NICK $1 }
alias resock if (#) { echo 5 -a * reconnecting # ... | $sw # quit }
alias db { if (%debug) { if (!$window(@debug)) window @debug | echo @debug $1 : $2- } }
alias cf return $chr(37) $+ $chr(35) $+ $remove($replace($1-,$chr(32),\b,$chr(44),\c),$chr(37),$chr(35))
alias auth1 return IRCVERS IRC0 $lf AUTH GateKeeperPassport I $+(:GKSSP\0\0\0,$chr(3),\0\0\0,$chr(1),\0\0\0,$lf)
alias auth2 {
  $tk $1
  var %x, %re = GKSSP\\0.*\\0\\0.*\\0\\0(.*), %y = $regsub($4-,%re,,%x)
  return AUTH GateKeeperPassport S $+(:GKSSP\0\0\0,$chr(2),\0\0\0,$chr(3),\0\0\0,$a1($regml(1) $+ $1))
}
alias auth3 {
  $tk %ticket %profile
  return AUTH GateKeeperPassport S $+(:,$base($len($1),10,16,8),$1,$base($len($2),10,16,8),$2)
}
alias a1 {
  if (*:GKSSP* iswm $1-) { var %x, %re = .*:GKSSP\\0.*\\0\\0.*\\0\\0(.*), %y = $regsub($1-,%re,,%x) | $tk $regml(1) }
  bset &h1 1 101 100 112 123 125 101 124 119 120 114 100 115 101 125 125 117 $str(54 $+ $chr(32),48) $a7($1-)
  bset &h2 1 15 14 26 17 23 15 22 29 18 24 14 25 15 23 23 31 $str(92 $+ $chr(32),48) $a4($md5(&h1,1))
  return $regsubex($regsubex($md5(&h2,1),/([0-9A-Fa-f]{2})/g,$a6(\1)),/([0-9A-Fa-f]{2})/g,$chr($base(\1,16,10)))
}
alias a4 return $regsubex($1,/([0-9A-Fa-f]{2})/g,$base(\1,16,10) $+ $chr(32))
alias a6 return $replacex($1,5C,5C5C,00,5C30,0A,5C6E,0D,5C72,2C,5C63,09,5C74,20,5C62)
alias a7 return $replacex($regsubex($1,/(.{1})/g,$asc(\1) $+ $chr(32)),92 48, 0, 92 116, 9, 92 110, 10, 92 114, 13, 92 98, 32, 92 99, 44, 92 92, 92)

on *:join:#:{ var %1 = $nick, %2 = $address, %3 = gkp.txt, %4 = $addtok($read(%3,s,%2),%1,32) | write -s $+ %2 %3 %2 %4 | if ($numtok(%4,32) > 1) echo 5 # * $nick Era: $remtok(%4,%1,32) } m1rc coding irc7.com rules... har har har