;   ##################################
;  #**** MULTI SERVER CONNECTION ***#
; #***********  eXile *************#
;##################################
;Join Any IRC Based server rahter its ircx or ircd
;todo
;raws for buzzen and chatcore
;away and return
;open new window past 11 rooms
;auto join and que
;menus
;commands
;proxie and bots.
on *:start:{
  .dll dll\Titleicon.dll SetIcon -m images\eXx.ico
  .dll dll\Titletext.dll SetMainTitleBar ..:: eXile (Multi Server) MakiMaki & seraphim ::..
  .timestamp -f 0hh3:0nn3:0ss
  echo -sa 1 eXile Starting.....
  echo -sa 1 Multi Server Script By  12MakiMaki and 11seraphim
  echo -sa 1 Thanks to 12alder, 5err0r, 4p0d, and 15Warrior. Thank you guys for everything.
}
;on *:exit: {  }

;   ##################################
;  #**** BUZZEN STUFF CONNECTION ***#
; #***********  eXile *************#
;##################################
on ^*:logon:*: { if ($server == irc.buzzen.net) { .raw authtype $+(ircwx1,$crlf,user) $me $me $me $+(:,anon) | .raw loginh email $md5() }
  ;if ($server == irc.t-chats.net) { .raw authtype $+(IRCVERS IRC8 MSN-OCX!9.02.0310.2401,AUTH GateKeeper I :GKSSP\0) | .raw loginh email $md5() }
}
raw whisper:*:{ if (!$window($nick)) { /query -n $nick } | set %buzzenwhisper. $+ $nick $1 | var %m = $regsubex($3-, /\[(?:style\x20.*?|/style)\]/gi,$null) | echo -t $nick $nick $+ : %m | haltdef }
raw *:*: { if (buzzen isin $network) && ($1 == $me) && ($left($2,2) == $chr(37) $+ $chr(35)) && ($3- === No such channel) { .raw create $2 } }
on *:CLOSE:?: { if (%buzzenwhisper. [ $+ [ $target ] ]) { unset %buzzenwhisper. [ $+ [ $target ] ] } }
alias access.add { ACCESS $1 ADD $2 $gettok($ial($$3,1),2,33) 0 : $+ $me $+ 's access }

;   ##################################
;  #*** ChatCore STUFF CONNECTION **#
; #***********  eXile *************#
;##################################
alias ckprof { set %cp 0 | var %profsock $+(ckprof,$+($rand(1,99999),$rand(A,Z),$rand(a,z))) | sockopen %profsock www.chatcore.com 80 | sockmark %profsock $1 $2 }
on *:sockopen:ckprof*: {
  if ($sockerr) { sockclose $sockname | halt }
  sockwrite -n $sockname GET /profile.php?user= $+ $gettok($sock($sockname).mark,2,32) HTTP/1.1
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8)
  sockwrite -n $sockname Host: www.chatcore.com
  sockwrite -n $sockname $crlf
}
on *:sockread:ckprof*: {
  if ($sockerr > 0) return | var %ckprof | sockread %ckprof
  if ($regex(%ckprof,/You do not have permission to view this profile/)) { echo $gettok($sock($sockname).mark,1,32) $gettok($sock($sockname).mark,2,32) has a private profile | sockclose $sockname }
  if ($regex(%ckprof,/The profile you are looking for has been deleted or does not exist/)) { echo $gettok($sock($sockname).mark,1,32) No profile information for $gettok($sock($sockname).mark,2,32) found | sockclose $sockname }
  if ($regex(%ckprof,/<\/table>/)) && (%fps. [ $+ [ $sockname ] ]) {
    echo $gettok($sock($sockname).mark,1,32) : $gettok($sock($sockname).mark,2,32) $+ 's asl is $iif(!%fpa. [ $+ [ $sockname ] ],Unknown,%fpa. [ $+ [ $sockname ] ]) / $iif(!%fpg. [ $+ [ $sockname ] ],Unknown,%fpg. [ $+ [ $sockname ] ]) / $iif(!%fpl. [ $+ [ $sockname ] ],Unknown,%fpl. [ $+ [ $sockname ] ])
    /unset %fp*
    sockclose $sockname
  }
  if ($regex(%ckprof,/<div class='profile_field_value'>(.*) <br \/><\/div>/)) && (%fp. [ $+ [ $sockname ] ] == l1) { set %fpl. [ $+ [ $sockname ] ] $regml(1) | set %fp. [ $+ [ $sockname ] ]  6  | unset %fp. [ $+ [ $sockname ] ] | set %fps. [ $+ [ $sockname ] ] 1 }
  if ($regex(%ckprof,/<b>Location:<\/b>/)) { set %fp. [ $+ [ $sockname ] ]  l1 }
  if ($regex(%ckprof,/<div class='profile_field_value'>(.*) <br \/><\/div>/)) && (%fp. [ $+ [ $sockname ] ] == g1) { set %fpg. [ $+ [ $sockname ] ] $regml(1) | unset %fp. [ $+ [ $sockname ] ] | set %fps. [ $+ [ $sockname ] ] 1 }
  if ($regex(%ckprof,/<b>Gender:<\/b>/)) { set %fp. [ $+ [ $sockname ] ]  g1 }
  if ($regex(%ckprof,/(.*)<\/td>/)) && (%fp. [ $+ [ $sockname ] ] == a1) { set %fpa. [ $+ [ $sockname ] ] $right($gettok($regml(1),1,32),-1) | unset %fp. [ $+ [ $sockname ] ] | set %fps. [ $+ [ $sockname ] ] 1 }
  if ($regex(%ckprof,/(.*)field_id=4&field_value=(.*)'>(.*)<\/a> <br /><\/div>/)) { set %fp. [ $+ [ $sockname ] ]  a1 }

}


;   ##################################
;  #*** THEMED EVENT ALL SEVRERS ***#
; #***********  eXile *************#
;##################################
on *:INPUT:?: { if ($Left($1, 1) != /) && (buzzen isin $network) {
    .raw WHISPER %buzzenwhisper. [ $+ [ $target ] ] $target $1-
    echo $target $timestamp $me $+ : $1- | halt
  }
  if ($Left($1, 1) != /) {
    privmsg $active $1-
    echo $active $timestamp $me : $1- | halt
  }
}

on *:INPUT:#: {
  if ((/* !iswm $1) || (/me == $1)) {
    var %p = $left($nick($chan,$me).pnick,1)
    if (%p == $left($me,1)) unset %p
    if (/me != $1) {
      if  ($network == Buzzen) { privmsg $chan $+([style ff:Comic Sans MS;],$1-,[/style]) }
      if  ($network == ChatCore) { privmsg $active ##*# $+ %f $+ ~ $+ %c $+ ~ $+ %b $+ ~ $+ %i $+ #*## $+ $1-  }
    echo  -ti2 $chan  14 $+ $me $+ 0: $1- | halt }

  }
}

on ^*:JOIN:#: {
if ($network == ChatCore) && (Guest isin $nick)  { msg # Welcome $nick $+ ,  I see you have not yet registered. Register now to fully enjoy all that ChatCore has to offer. http://chatcore.com/signup.php :) } }

on ^*:text:*:#: {  var %m = $regsubex($1-, /\[(?:style\x20.*?|/style)\]/gi,$null)
  if (($me isin $1-) && ($version !< 6.31) && (!%tip. [ $+ [ $nick ] ]) && (($appstate == tray) || ($chan != $active))) {
    inc -eu2 %alert.flood
    if (%alert.flood < 2) {
      $tip('Tray Tip', 4Name Alert14 $chr(40)  $network  $chr(41) , 1  $nick  : $regsubex($1-, /\[(?:style\x20.*?|/style)\]/gi,$null) - 12  $chan , 10)
      set -eu15 %tip. [ $+ [ $nick ] ] true
    }
  }
echo  -ti2 $chan   15 $nick $+ 0: $ccstrip(%m) |  halt }