nth

; ######################################
; #*** nth Multi Network Connection ***#
; #***** By MakiMaki  & seraphim  *****#
; ######################################
;Join any server you wish note (msn.ocx servers may need added coding to join most just use /nickserv for authentication)
;Easy to edit and add to
;Theme, Channel manger, and Network manger.
;User Friendly layout
;For More Info Visit Our Site http://www.irc.seraphimstudio.net/nthproject Or join Our room #nth
;Use any thing you wish but remember to leave credit to any of the scripters work you use.(Its just rude not to besides every one will know rather fast)
;The Following people helped and or I used there work to better this -  Big Thanks to All.
;seraphim (her imput on code improvements. and testing)
;extremity (D00d is elite - hash tables tok, join stuff, DCX stuff ect, and any thing I had trouble with, he was there to help.)
;Prince of Dreamz (was one of the first testers and helped in improving  the profile viewer, Font dialog, and many other goodies)
;err0r (sharing the login command and many other raws)
;Tewl, Nick, danger, and Dabba (used there work for a guide line)
;To anyone else I may of forgotten its the iNtErWeBs Grow past it or post some whiny comment somewhere.

; ########################
; #******Startup*********#
; ########################

on *:start:{

  initmainhash
  if (%int == $null) { setup }
  .timestamp -f 14hh10:14nn10:14ss
  echo -sa 1 nth Multi Network Connection By  12MakiMaki  and 10seraphim
  echo -sa 1 Thanks to 12alder, 5err0r, 4p0d, and 7Warrior. Thank you guys for everything.
  echo -sa 1 Ready to join Networks and rooms, Type /ehelp  at any time. For help using this script.
  server irc.buzzen.net -j %#nth
}
on *:exit: { closemainhash }
;Hashtable
alias initmainhash { if (!$hget(nth)) { hmake nth | if ($exists(data\ $+ nth.dat)) { hload nth data\ $+ nth.dat } } }
alias closemainhash { if ($hget(nth)) { hsave nth data\ $+ nth.dat | hfree nth } }


; ########################
; #******LOGON TYPE******#
; ########################

;Buzzen
;I know the nick change seems pointless but join more then ll rooms and it will stop you getting numbers at the end of your nick  so unless you got a better way leave it
on ^*:logon:*: {
  var %ep $hget(nth, ep) | var %e $hget(nth, $+(email,%ep)) | var %p $hget(nth, $+(pw,%ep))
  if ($server == irc.buzzen.net) { .raw authtype $+(ircwx1,$crlf,user) $me $me $me $+(:,anon) | .raw nick nth | .raw loginh %e %p }
}
alias setup {
  if (!$hget(nth, ep)) { hadd nth ep 0 } | var %ep $hget(nth, ep)
  if (!$hget(nth, $+(email,%ep))) { hadd nth $+(email,%ep) $$?="Enter email address for passport %ep $+ :" }
  if (!$hget(nth, $+(pw,%ep))) { hadd nth $+(pw,%ep) $md5($$?="Enter password for passport %ep $+ :") }
  set %int ready
}

;Other Servers
on *:connect: {
  var %nw $hget(nth, $network)
  if ($network != Buzzen) {
    if (%nw == $null) { osetup }
    var %n $hget(nth, $+(nick,%nw)) | var %e $hget(nth, $+(email,%nw)) | var %p $hget(nth, $+(pw,%nw))
    if (%e != $null) {
      /NickServ IDENTIFY %e %p | halt
    }
    if (%p != $null) {
      nick %n
      msg NickServ IDENTIFY %p | halt
    }
    else {
      nick %n | halt
    }
  }
}
alias osetup {
  if (!$hget(nth, $network)) { hadd nth $network $network } | var %nw $hget(nth, $network)
  if (!$hget(nth, $+(nick,%nw))) { hadd nth $+(nick,%nw) $$?="Enter nick for %nw " }
  if (!$hget(nth, $+(email,%nw))) { hadd nth $+(email,%nw) $$?="Enter email address for %nw (if leave blank) " }
  if (!$hget(nth, $+(pw,%nw))) { hadd nth $+(pw,%nw) $$?="Enter password for %nw (if leave blank) " }
}

; ########################
; #********ALIAS*********#
; ########################

;Debug
alias debug { debug -pt @ $+ $network }
;Aways
alias away { .raw away # $1- [br] }
alias ga { var %i $chan(0) |  while (%i) { .raw away $chan(%i) $1- [br] | dec %i } }
alias back  { .raw away # }
alias gb  { var %i $chan(0) |  while (%i) { .raw away $chan(%i) | dec %i } }
;Notices
alias notice { .raw NOTICE $1- }
;Channel Notice
alias gn {  NOTICE # # $1- }
;Selected User Notice
alias sn { var %i $numtok($snicks,44) | while (%i) { notice $active $gettok($snicks,%i,44) $1- | dec %i } }
;Auto Join Servers
alias auto {
  var %js $hget(nth,ajoinserv), %n $numtok(%js,4), %i $1
  inc %i
  if (%i > %n) { return }
  server -m $gettok(%js,%i,4)
  .timer 1 2 auto %i
}
;Auto Join Channels
alias autojoinchans {
  var %jr $hget(nth,joinchans), %n $numtok(%jr,4), %i $1
  inc %i
  if (%i > %n) { return }
  join $gettok(%jr,%i,4)
  .timer 1 2 autojoinchans %i
}
alias join { set -u10 %lastjoin $1- | join $1- }
alias -l joinkeyask {
  var %i $?=" $1 has a key to join.  Enter it now:"
  if (%i) { hadd -m jKey $1 %i | .raw join $1 %i }
}


; ########################
; #*********RAWS*********#
; ########################

raw PROP:*:{
  if ($2 = category) { echo $1 PROP $nick changed $1 category to4 $3 }
  elseif ($2 = Language) { echo $1 PROP $nick changed $1 language to4 $3 }
  elseif ($2 = onjoin) { echo $1 PROP $nick changed $1 onjoin message to4 $3- }
  elseif ($2 = onpart) { echo $1 PROP $nick changed $1 onpart message to4 $3- }
  elseif ($2 = ownerkey) { echo $1 PROP $nick changed $1 ownerkey to4 $3- | hadd nth $+(okey,$1) $3- }
  elseif ($2 = hostkey) { echo $1 PROP $nick changed $1 hostkey to4 $3- | hadd nth $+(hkey,$1) $3- }
  elseif ($2 = locked) { echo $1 PROP $nick changed $1 locked properties to4 $3- }
  haltdef
}

;Buzzen Whisper work around thanks err0r & extremity
raw whisper:*:{
  var %b =  $regsubex($3-, /\[(?:style\x20.*?|/style)\]/gi,$null) |  var %text  $remove(%b,[br])
  if (!$window($nick)) { /query -n $nick } | set %buzzenwhisper. $+ $nick $1 | echo -t $nick $nick $+ : %text | haltdef
}
on *:CLOSE:?: { if (%buzzenwhisper. [ $+ [ $target ] ]) { unset %buzzenwhisper. [ $+ [ $target ] ] } }

;Mostly Buzzen Based  RAWS add what you need
raw *:*: {
  if ($network == Buzzen) {
    if ($2 = PID) { echo -a * $3 Profile Link is12 http://www.buzzen.net/profile.aspx?pid= $+ $4- | run http://www.buzzen.net/profile.aspx?pid= $+ $4- | halt }
    if ($numeric == 821) { var %n $mid($gettok($rawmsg,1,33),2-) | echo $1 15 $time  %n is back. | cline -m 15 $1 %n | .halt }
    if ($numeric == 822) { var %n $mid($gettok($rawmsg,1,33),2-) | echo $1 15 $time  %n is away.  $remove($2-,[br])  | cline -m 14 $1 %n | .halt }
    if ($numeric == 353) { halt } | if ($numeric == 366) { halt }
    if ($numeric == 332) { var %m = $regsubex($3-, /\[(?:style\x20.*?|/style)\]/gi,$null) | echo -a 3* Topic : $remove(%m,[br]) | haltdef }
    if ($numeric == 818) { if ($3 == OWNERKEY) { hadd qKey $2 $4 } | elseif ($3 == HOSTKEY) { hadd oKey $2 $4 } }
    if ($numeric == 475) {
      set $2 $2
      if ($hget(jkey,$2)) {
        if (%jkey) { echo -sat Could not join $2 with key of $hget(jkey,$2) $+ . | hdel jkey $2 | halt }
        if (!%jkey) { set -u2 %jkey 1 }
        .raw join $2 $hget(jkey,$2)
      }
      else { .timer -m 1 1 joinkeyask $2 }
      halt
    }
    if ($numeric == 999) {
      var %i $scon(0)
      while (%i) {
        scon %i
        if ($chan(0) < 11) { join %lastjoin | halt }
        dec %i
      }
      server -m irc.buzzen.net -j %lastjoin | halt
    }
    if (buzzen isin $network) && ($1 == $me) && ($left($2,2) == $chr(37) $+ $chr(35)) && ($3- === No such channel) { .raw create $2 }
  }

}


; ########################
; #********THEME*********#
; ########################
on *:OWNER:#:{ PROP # * }
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) {
      privmsg $active $1-
      echo  -ti2 $chan 1 $+ $me $+ : $1-
      halt
    }
  }
}
on *:INPUT:?: {
  echo  -ti2 $chan 1 $+ $me $+ : $1-
  if ($network == Buzzen) && ($left($1-,1) != /) && ($comchan($active,0) > 0) {
    .raw WHISPER $comchan($active,1) $active $+(:,$1-,)
    halt
  }
  else { privmsg $active $1-  | halt }
}

on ^*:TEXT:*:#: {
  if ($$1 != ^) {
    var %b =  $regsubex($1-, /\[(?:style\x20.*?|/style)\]/gi,$null) |  var %cc = $regsubex(%b, /^##\*.*\*##/,$null) | var %text  $remove(%CC,[br]) |
    if ($chr(37) isin $nick) { echo $chan $timestamp %text  | haltdef }
    else { echo  -ti2 $chan 1 $nick $+ : %text |  halt }
  }
}
on *:MODE:#: {
  if ($1 == +k) { hadd -m jKey # $2- }
}
on ^*:ACTION:*:#: { var %b =  $regsubex($1-, /\[(?:style\x20.*?|/style)\]/gi,$null) |  var %cc = $regsubex(%b, /^##\*.*\*##/,$null) | var %text  $remove(%CC,[br]) | var %nick = $remove($nick,>) | echo  -ti2 $chan 6* %nick %text |  halt }
on ^*:NOTICE:*:*: {
  if ($nick != MemoServ) {
    if ($nick === NeoStats) {  echo -a 12* Server Notice 01: $1- | halt }
    if ($nick === StatServ) {  echo -a 12* Server Notice 01: $1- | halt }
    if ($nick === ConnectServ) {  echo -a 12* Server Notice 01: $1-  | halt }
    if ($nick === SecureServ) {  echo -a 12* Server Notice 01: $1-  | halt }
    if ($nick === opsb) {  echo $chan 12* Server Notice 01: $1- | halt }
    if ($nick == ChanServ) { echo $chan  14* Channel Message3: 14 $2-  | halt }
    if ($nick == Global) && ($4 != from) { echo -s 12* Global Message from $network : 1 $1- | halt }
    if ($nick == NickServ) { echo -s 12* Notice  from  $nick 1: $1- | halt }
  }
  tokenize 32 $Rawmsg
  echo $chan $timestamp 5* Notice From $nick : $remove($$5,:) $6- | haltdef
}

on ^*:JOIN:#: {
  if ($nick == $me) { if ($network == Buzzen) { set # # }
  echo $chan 9* $time You have joined # as $me $date | halt }
  echo $chan 3* $time $nick Gate:( $+ $address $+ ) has joined # $date | var %a = $readini(data\nicklog.ini,Nicklog,$address($nick,1))
  if (!%a) { writeini -n data\nicklog.ini Nicklog $address($nick,1) $+($chr(44),$nick) }
  if (%a) && ($nick !isin %a) { writeini -n data\nicklog.ini Nicklog $address($nick,1) $+(%a,$chr(44),$nick) }
  if ($nick isin %a) { echo $chan $numtok(%a,44) entries for %a }
  halt
}

on ^*:PART:#: {
  if ($nick == $me) && ($network == Buzzen) { unset # # | halt }
  else { echo $chan 5* $time $nick ( $+ $address $+ ) has left # $+ . $date

    halt
  }
}

alias msn.decode {
  var %r
  %r = $replacecs($1-,B,B, ,-,ï>,-,
  ,-,
  ,-,E,E,C,C,A,A,R,R,K,K,y,y,ﺘ,i,ﺉ,s,דּ,t,טּ,u,ﻉ,e,k,k,F,F,u,u,g,g,Χ,X,>,>,%,$chr(37),8,8,d,d,m,m,h,h,ﻛ,s,G,G,M,M,l,l,s,s,_,_,T,T,r,r,a,a,n,n,c,c,e,e,N,N,a,a,t,t,i,i,o,o,n,n,f,f,w,w,\,\,|,|,@,@,P,P,D,D,',', , ,(,$chr(40),),$chr(41),*,*,:,:,[,[,],],p,p,.,.)
  %r = $replacecs(%r,ا,I,ή,n,ņ,n,Ω,n,»·,y,р,p,Р,P,ř,r,х,x,Į,I,Ļ,L,Ф,o,Ĉ,C,ŏ,o,ũ,u,ń,n,Ģ,G,ŕ,r,ś,s,ķ,k,Ŗ,R,ז,i,ε,e,ק,r,ћ,h,м,m,،,·,ī,i,‘,,’,,۱,',ē,e,¢,¢,S,S,•,,O,O,I,I,Ά,A,ъ,b,Ï,T,Φ,o,Ђ,b,я,r,Ё,E,д,A,К,K,Ď,D,и,n,θ,o,М,M,Ї,I,Т,T,Є,e,Ǻ,A,ö,ö,ä,ä,–,,·,·,Ö,Ö,Ü,Ü,Ë,Ë,ѕ,s,ą,a,ĭ,i,й,n,в,b,о,o,ш,w,Ğ,G,đ,d,з,e,Ŧ,T,α,a,ğ,g,ú,ú,Ŕ,R,Ą,A,ć,c,Đ,Ð,Κ,K,ў,y,µ,µ,Í,Í,‹,,¦,¦,Õ,Õ,Ù,Ù,À,À,Π,N,ғ,f,ΰ,u,Ŀ,L,ō,o,ς,c,ċ,c,ħ,h,į,i,ŧ,t,Ζ,Z,Þ,Þ,þ,þ,ç,ç,á,á,¾,¾,ž,,Ç,Ç,Â $+ $chr(173),-,Á,Á,…,,¨,¨,ý,ý,ˉ,¯,”,,Û,Û,ì,ì,ρ,p,έ,e,г,r,à,à,È,È,¼,¼,ĵ,j,ã,ã,ę,e,ş,s,º,º,Ñ,Ñ,ã,ã,Æ,Æ,˚,°,Я,R,˜,,Î,Î,Ê,Ê,Ý,Ý,Ï,Ï,É,É,‡,,Ì,Ì,ª,ª,ó,ó,™,,Ò,Ò,í,묿,¿,Ä,Ä,¶,¶,ü,ü,ƒ,,ð,ð,ò,ò,õ,õ,¡,¡,é,é,ß,ß,¤,¤,×,×,ô,ô,Š,,ø,ø,›,,â,â,î,î,€,,š,,ï,ï,ÿ,ÿ,Ń,N,©,©,®,®,û,û,†,,°,°,§,S,±,±,è,è)
  %r = $replacecs(%r,Ƥ,P,χ,X,Ň,N,۰,·,Ĵ,J,І,I,Σ,E,ι,i,Ő,O,δ,o,ץ,y,ν,v,ע,y,מ,n,Ž,,ő,o,Č,C,ė,e,₤,L,Ō,O,ά,a,Ġ,G,Ω,O,Н,H,ể,e,ẵ,a,Ж,K,ề,e,ế,e,ỗ,o,ū,u,₣,F,∆,a,Ắ,A,ủ,u,Ķ,K,Ť,T,Ş,S,Θ,O,Ш,W,Β,B,П,N,ẅ,w,ﻨ,i,ﯼ,s,џ,u,ђ,h,¹,¹,Ỳ,Y,λ,a,С,C,Ð $+ $chr(173),E,Ű,U,Ī,I,č,c,Ĕ,E,Ŝ,S,Ị,I,ĝ,g,ŀ,l,ї,i,٭,*,ŉ,n,Ħ,H,Д,A,Μ,M,ё,e,Ц,U,э,e,“,,ф,o,у,y,с,c,к,k,Å,Å,℞,R,,I,ɳ,n,ʗ,c,▫,·,ѓ,r,ệ,e,ắ,a,ẳ,a,ů,u,Ľ,L,ư,u,·,·,˙,',η,n,ℓ,l,,,,,,,׀,i,ġ,g,Ŵ,W,Δ,A,ﮊ,J,μ,µ,Ÿ,,ĥ,h,β,ß,Ь,b,ų,u,є,e,ω,w,Ċ,C,і,i,ł,l,ǿ,o,∫,l,ż,z,ţ,t,æ,æ,≈,=,Ł,L,ŋ,n,گ,S,ď,d,ψ,w,σ,o,ģ,g,Ή,H,ΐ,i,ґ,r,κ,k,Ŋ,N,,\,/,/,¬,¬,щ,w,ە,o,ם,o,³,³,½,½,İ,I,ľ,l,ĕ,e,Ţ,T,ŝ,s,ŷ,y,ľ,l,ĩ,i,Ô,Ô,Ś,S,Ĺ,L,а,a,е,e,Ρ,P,Ј,J,Ν,N,ǻ,a,ђ,h,ί,l,Œ,,¯,¯,ā,a,ŵ,w,Â,Â,Ã,Ã,н,H,ˇ,',¸,¸,̣,$chr(44),ط,b,Ó,Ó,Й,N,«,«,ù,ù,Ø,Ø,ê,ê)
  %r = $replacecs(%r,²,²,л,n,ы,bl,б,6,ש,w,―,-,Ϊ,I,`,`,ŭ,u,ổ,o,Ǿ,Ø,ẫ,a,ầ,a,q,q,Ẃ,W,Ĥ,H,ỏ,o,−,-,^,^,ล,a,Ĝ,G,ﺯ,j,ى,s,Ѓ,r,ứ,u,●,·,ύ,u,0,0,7,7,",",ө,O,ǐ,i,Ǒ,O,Ơ,O,2,2,ү,y,v,v,А,A,≤,<,≥,>,ẩ,a,H,H,٤,e,ﺂ,i,Ќ,K,Ū,U,;,;,ă,a,ĸ,k,Ć,C,Ĭ,I,ň,n,Ĩ,I,Ι,I,Ϋ,Y,J,J,X,X,},$chr(125),{,$chr(123),Ξ,E,ˆ,^,V,V,L,L,γ,y,ﺎ,i,Ώ,o,ỳ,y,Ć,C,Ĭ,I,ĸ,k,Ŷ,y,๛,c,ỡ,o,๓,m,ﺄ,i,פֿ,G,Ŭ,U,Ē,E,Ă,A,÷,÷, , ,‚,,„,,ˆ,,‰,,ă,a,x,x,=,=,ق,J,?,?, ,-,◊,o,т,T,Ā,A,קּ,P,Ė,E,Ę,E,ο,o,ϋ,u,‼,!!,ט,u,ﮒ,S,Ч,y,Ґ,r,ě,e,Ę,E,ĺ,I,Λ,a,ο,o,Ú,Ú,Ř,R,Ư,U,œ,,-,-,—,,ห,n,ส,a,ฐ,g,Ψ,Y,Ẫ,A,π,n,Ņ,N,Ø!,o,Ћ,h,ợ,o,ĉ,c,◦,·,ﮎ,S,Ų,U,Е,E,Ѕ,S,۵,o,ي,S,ب,u,ة,o,ئ,s,ļ,l,ı,i,ŗ,r,ж,x,΅,",ώ,w,▪,·,ζ,l,Щ,W,฿,B,ỹ,y,ϊ,i,ť,t,п,n,´,´,ک,s,ﱢ,*,ξ,E,ќ,k,√,v,τ,t,Ð,Ð,£,£,ñ,ñ,¥,¥,ë,ë,å,å,Y,Y,ǎ,a)
  %r = $replacecs(%r,ằ,a, , ,Ο,O,₪,n,Ậ,A,£,£,à,à,®,®,á,á,©,©,õ,õ,ờ,o,‍, ,ֱ,¸,־,-,הּ,n,ź,z,‌, ,ُ,',๘,c,ฅ,m,,,<,<,▼,v,ﻜ,S,℮,e,ź,z,ậ,a,๑,a,ﬁ,fi,ь,b,ﺒ,.,ﺜ,:,ศ,a,ภ,n,๏,o,ะ,=,צּ,y,ซ,i,‾,¯,∂,a,：,:,≠,=,+,+,م,r,ồ,o,Ử,U,Л,N,Ӓ,A,Ọ,O,Ẅ,W,Ỵ,Y,ﺚ,u,ﺬ,i,ﺏ,u,Ż,Z,ﮕ,S,ﺳ,w,ﯽ,u,ﺱ,uw,ﻚ,J,ﺔ,a,!,!,ễ,e,ل,J,ر,j,ـ,_,ό,o,₫,d,№,no,ữ,u,Ě,E,φ,o,ﻠ,I,ц,u,Å,Å,Ñ,N,Њ,H,Έ,E,~,~,U,U,ạ,a,1,1,4,4,3,3,ỉ,i,Ε,E,Џ,U,ك,J,★,*,b,b,#,$chr(35),$,$,○,o,ю,10,ỵ,y,ẁ,w,қ,k,ٿ,u,♂,o,תּ,n,٥,o,ﮐ,S,ⁿ,n,ﻗ,9,ị,i,Α,A, , ,ﻩ,o,ﻍ,E,ن,u,ẽ,e,ث,u,ㅓ,t,ӛ,e,Ә,E,ﻘ,o,۷,v,שׁ,w,ụ,u,Ŏ,O,,,ự,u,Ｊ,J,ｅ,e,ａ,a,Ｎ,N,（,$chr(40),＠,@,｀,`,．,.,′,',）,$chr(41),▬,-,◄,<,►,>,∑,E,ֻ,$chr(44),‬,|,‎,|,‪,|,‫,|,Ộ,O,И,N,W,W,z,z)
  %r = $replacecs(%r,ס,o,╳,X,٠,·,Ғ,F,υ,u,‏,,ּ,·,ǔ,u,ผ,w,Ằ,A,Ấ,A,»,»,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,ﮔ,S, Ҝ,K,♦,·,‗,_,ﻈ,b,ฬ,w,אּ,x,,-,ข,u,ท,n,Ờ,O,Ặ,A,ử,u,Ễ,E,ਹ,J, ه,o,■,·,ơ,o,,,ң,h,Қ,K,Ҳ,X,ҳ,x,Ҝ,K,ع,E,چ,c,ч,y,Х,X,٦,7,ֽ,.,َ,',ֿ,',׃,:,ọ,o,Җ,X,ی,s,ฬ,w,∙,·,Τ,T,ⓒ,c,ⓐ,a,ⓟ,p,ⓔ,e,ⓣ,t,Ǎ,A,Х,X,ֳ,.,ی,s,Ỉ,I,̉,',Z,Z,ọ,o,ẹ,e,ҝ,k,ﺖ,u,ố,o,ﮓ,S,ở,o,ﺕ,u,Қ,K,Z,Z,̕,',├,|,┤,|,أ,I,,,א,x,ặ,a,ǒ,o,Ờ,O,☼,¤,ׁ,.,Z,Z,ฤ,n,⑷,4,⑵,2,⒪,0,เ,i,☻,,╠,|,╦,n,十,,ấ,a,,,,З,3,Ẵ,A,Ў,y,Ź,Z,΄,',À¨,$chr(40),À©,$chr(41),ח,n,Ở,O,Ổ,O,์,',à¹,g,В,B,【,[,】,],ｓ,s,ｍ,m,ｏ,o,ｋ,k,ｗ,w,ｄ,d,Ũ,U,Q,Q,↨,|,Ẩ,A,Ẽ,E,ָ,¸,ธ,s,و,g,з,e,ظ,b,ﺸ,,Б,b,ï-,m,ﻲ,,پ,u,غ,e,Ẩ,A,ẻ,e,ҹ,y,ฆ,u,ฯ,-,ׂ, ,,-,Ð,Ð,ë,ë,ת,n,٧,V,Ợ,O,۝,I,۞,O,۩,O,Àº,:,À{,;,ǥ,g)
  %r = $replacecs(%r,ᴮ,B,ᴿ,R,ᵁ,U,ᴺ,N,ᴼ,O,ᵀ,T,ᴴ,H,ᴱ,E,ᴬ,A,ᵀ,T,ᵍ,g,ᵘ,u,ᵞ,y,Ș,S,ǜ,u,ἐ,e,ƥ,p,ΐ,i,ṕ,p,ἓ,E,ṡ,S,ⓛ,l,ⓒ,c,ⓘ,i,ⓣ,t,ⓢ,s,ⓨ,y,О,O,ј,j,ɐ,a,ŋ,n,ɥ,h,ǝ,e,ɹ,r,ɣ,Y,ұ,y,ʇ,t,ʌ,v,ʁ,R,ȍ,o,ȕ,u,ț,t,ʙ,B,ʟ,L,ѧ,A,ӆ,N,Ƙ,K,ʀ,R,ʏ,Y,ᴘ,P,ӿ,x,һ,h,ᶍ,x,ḿ,m,ș,s,Ẁ,W,ɱ,M,ჟ,J,ᾴ,a,ἥ,n,ṣ,s,ʎ,y,ɩ,i,ʞ,k,ʑ,z,ɪ,i,Ӎ,M,ѻ,o,ڠ,E,₥,m,ὠ,W,Ʀ,R,ƴ,Y,Ⱥ,A,ɾ,r,á¶,a,ᴄ,c,Ɨ,t,ᴜ,u,ɾ,r,ϵ,e)
  return %r
}

on *:SIGNAL:CHECKING: {
  var %Nick = $1, %Chan = $2, %CTCP = $Remove($4, $Chr(1), $Chr(58))
  echo -a 3 * %Nick checked your %CTCP
  if (%CTCP == PING) NOTICE %Nick nth Connection. By MakiMaki & seraphim
  elseif (%CTCP == TIME) NOTICE %Nick $Str($Chr(2), 2) $+ $Asctime(ddd) $Asctime(mmm) $Asctime(D) $Time(HH:nn:s) GMT $+ $Asctime(zz) $Asctime(yyyy)
  elseif (%CTCP == VERSION) NOTICE %Nick nth Connection. By MakiMaki & seraphim
  elseif (%CTCP == FINGER) NOTICE %Nick nth Connection. By MakiMaki & seraphim

  halt
}

; ########################
; #********MENUS*********#
; ########################

menu Nicklist {
  -
  $iif($$1 == $me && $hget(nth,$+(hkey,#)),Host Me) : { HOSTKEY # $hget(nth,$+(hkey,#)) }
  $iif($$1 == $me && $hget(nth,$+(hkey,#)),Owner Me) : { OWNERKEY # $hget(nth,$+(okey,#)) }
  -
  $1 (Info)
  .$iif($network != Buzzen, Info) :/uwho $1
  .$iif($network = Buzzen, Profile) : Pid $$1
  -
  User Modes
  .+q(Owner): .raw mode # +q $1
  .-q(DeOwner): .raw mode # +q $1
  .-
  .$iif($network != Buzzen, +a(Admin)): .raw mode # +a $1
  .$iif($network != Buzzen, -a(DeAdmin)): .raw mode # -a $1
  .-
  .+o(Host): .raw mode # +o $1
  .-o(DeHost): .raw mode # -o $1
  .-
  .+h(Helpop): .raw mode # +h $1
  .-h(DeHelpop: .raw mode # -h $1
  .-
  .+v(Voice): .raw mode # +v $1
  .-v(DeVoice): .raw mode # -v $1
  -
  $iif($network = Buzzen, Channel Accses)
  .Add Owner : .raw  ACCESS # ADD OWNER *! $+ $ial($$1).user $+ @* 0 : Owner
  .Remove Owner: .raw  ACCESS # DELETE OWNER *! $+ $ial($$1).user $+ @*
  .-
  .Add Host: .raw  ACCESS # ADD HOST *! $+ $ial($$1).user $+ @* 0 : Host
  .Remove Host : .raw  ACCESS # DELETE HOST *! $+ $ial($$1).user $+ @*
  .-
  .Clear Owners : .raw access $chan clear owner
  .Clear Hosts : .raw access $chan clear host
  .Clear Denys : .raw access $chan clear deny
  .Clear ALL : .raw access $chan clear all
  -
  Kicks
  .Kick(No Msg): .raw kick # $1
  .Kick(With Msg): set %km $$?="Enter Kick Msg" | .raw kick # $1 : %km | unset %km
  -
  Bans
  .$iif($network = Buzzen, Ban(Silent)) : add.deny | .raw  ACCESS # ADD DENY *! $+ $ial($$1).user $+ @* 1440 : Silent Ban
  .$iif($network != Buzzen, +b( $+ $1 $+ )) : mode # +b $1 | mode # +b *! $+ $ial($$1).user $+ @* | kick # $1
  .$iif($network = Buzzen, Ban(Msg)): set %km $$?="Enter Ban Msg" |  add.deny | .raw  ACCESS # ADD DENY *! $+ $ial($$1).user $+ @* 1440 : $1 Ban | .raw kick # $1 : %km | unset %km
  .$iif($network = Buzzen, Ban(Msg, Set Time)): set %t $$?="Enter leght of ban (0 = no limit)" | set %km $$?="Enter Ban Msg" |  add.deny | .raw  ACCESS # ADD DENY *! $+ $ial($$1).user $+ @* %t : $1 Ban | .raw kick # $1 : %km | unset %km | unset %t
  .$iif($network = Buzzen, Ban(ShitListed)): shitlist
  .
  -
}
alias shitlist { }
alais test1 { .raw PROP # ownerkey 1391713bwr | .raw PROP # hostkey 1927131 }
alias add.deny { .raw access $chan clear owner | .raw access $chan clear host | .raw access $chan clear grant  }

; ########################
; #*******Dialogs********#
; ########################

;Favorite Channel Lister Sorts By Network (thanks extemity for all your help with it)
alias favorite {
  var %nw $hget(nth, $network) | var %i $hget(nth, $+(Favs,%nw))
  dialog -mdrvo fav fav
  var %fav $hget(nth, $+(favs,%nw)), %i $numtok(%fav, 4)
  while (%i) { did -a fav 1 $gettok(%fav, %i, 4) | dec %i }
  did -a  fav 6 $network
}
dialog fav {
  title "Favorite Channels"
  size -1 -1 332 240
  option pixels
  list 1, 8 24 316 171, size
  button "Remove", 2, 62 202 50 24
  button "Add", 3, 8 202 50 24
  button "Join", 4, 116 202 60 24
  box "Favorite Channel List", 5, 4 4 324 230
  text "Network", 6, 186 208 130 16, center
}
on *:dialog:fav:sclick:*: {
  var %i $did
  if (%i == 4) { join $did(fav,1).seltext }
  elseif (%i == 2) {
    hadd nth Favs $remtok( $hget(nth, $+(Favs,$network)), $did(fav,1).seltext, 1, 4)
    var %i $hget(nth, $+(Favs,$network)), %x $numtok(%i, 4), %y 1, %s $did(fav,1,1).sel
    did -r fav 1
    while (%y <= %x) { did -a fav 1 $gettok(%i,%y,4) | inc %y }
    did -cf fav 1 %s
  }
  elseif (%i == 3) {
    if (!$network) { hadd nth $network $network }
    var %fav $hget(nth, $+(favs,$network))
    hadd nth $+(favs,$network) $addtok(%fav,$active,4)
    did -a fav 1 $active
  }
}
on *:dialog:fav:dclick:*: { if ($did == 1) { join $did(fav,1).seltext } }

dialog serv {
  title "Servers"
  size -1 -1 168 112
  option dbu
  box "Servers", 1, 3 4 162 106
  list 2, 7 16 154 58, size
  button "Add", 3, 7 80 30 12
  button "Remove", 4, 39 80 30 12
  button "Join", 5, 71 80 37 12
  button "Add Auto Join", 6, 119 80 40 12
  check "On/Off", 7, 119 96 40 10, push
  text "Server Auto Join is Enabled", 8, 7 96 100 8, center
}