/ScriptServ

[aliases]
n0=/j {
n1=  if ($2 == $null) {
n2=    %key = % [ $+ [ $1 ] $+ ] .key
n3=    /join $1 %key
n4=  }
n5=  if ($2 != $null) {
n6=    join $1-
n7=  }
n8=}
n9=/join {
n10=  if ($2 == $null) {
n11=    %key = % [ $+ [ $1 ] $+ ] .key
n12=    /join $1 %key
n13=  }
n14=  if ($2 != $null) {
n15=    join $1-
n16=  }
n17=}
n18=teasetodeath {
n19=  raw -q mode # +o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o+o-o $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1 $1
n20=}
n21=/ctcp echo -a $_xe  $+ $_txcolor $+ Sending $+ $_txcolor2 $upper($2-)  $+ $_txcolor $+ request to $+ $_txcolor2 $1 | .ctcp $1-
n22=/c ctcp $1-
n23=/op /mode # +ooooooooo $$1 $2 $3 $4 $5 $6 $7 $8 $9
n24=/dop /mode # -ooo $$1 $2 $3
n25=/p /part #
n26=/n /names #$$1
n27=/w /whois $$1
n28=/k /kick # $$1
n29=/q /query $$1
n30=/hop /part # | /raw -q join #$$1
n31=/send /dcc send $1 $2
n32=/chat /dcc chat $1
n33=/ping /ctcp $$1 ping
n34=/server {
n35=  if ($server != $null) {
n36=    /quit Changing Servers!
n37=    /server $$1-
n38=  }
n39=  if ($server = $null) {
n40=    /server $$1-
n41=  }
n42=}
n43=dur return $remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($duration($1-),$chr(32)),ks),ays),ay),rs),r),ins),in),ecs),ec)
n44=log run notepad $mircdirpx.log
n45=x2nick {
n46=  set %loop 0
n47=  set %current $len($1)
n48=  set %return $1
n49=  :loop
n50=  inc %current 1
n51=  if (%current > 9) { goto done }
n52=  ;set %return %return $+  
n53=  set %return %return $+ $chr(32) $+ 
n54=  goto loop
n55=  :done
n56=  unset %loop %current
n57=  return %return
n58=}
n59=xnick {
n60=  set %shit $1-
n61=  unset %text
n62=  set %shit $chr(32)
n63=  set %text $1- $+ $str( ,$calc(9- $len($1-)))
n64=  return %text
n65=}
n66=unick {
n67=  set %loop 0
n68=  set %current $len($1)
n69=  set %return $1
n70=  :loop
n71=  inc %current 1
n72=  if (%current > 10) { goto done }
n73=  set %return %return $+  
n74=  goto loop
n75=  :done
n76=  unset %loop %current
n77=  return %return
n78=}
n79=t topic $active $chan($active).topic $chr($asc(|)) $1-
n80=donicks {
n81=  set %nick.current 0
n82=  :loop
n83=  inc %nick.current 1
n84=  if (%nick.current > $nick($1,0)) { goto done }
n85=  cline $_txcolor $1 $nick($1,%nick.current)
n86=  goto loop
n87=  :done
n88=  cline $_txcolor2 $1 $me
n89=}
n90=theme {
n91=  set %theme $dir="plast1k theme?:" $mircdir*.thm
n92=  if (%theme = $null) { echo -a $_xe Canceled. | halt }
n93=  .unload -rs $mircdir $+ %sin.theme
n94=  .load -rs %theme
n95=  set %sin.theme $nopath(%theme)
n96=  unset %theme
n97=  echo -a $_xe %version theme file: %sin.theme is loaded!
n98=  unset %theme
n99=}
n100=ampm if ($gettok($time,1,58) > 12) { return pm } | else { return am }
n101=ustime {
n102=  set %ustime $gettok($time,1,58)
n103=  set %hour %ustime
n104=  if (%ustime > 12) { set %hour $calc(%ustime - 12) }
n105=  set %minutes $gettok($time,2,58)
n106=  if (%hour = 0) { set %hour 12 }
n107=  return %hour $+ : $+ %minutes $+ $ampm
n108=}
n109=vernum return $strip($gettok($gettok(%ver,2-,45),1,32))
n110=acheck {
n111=  if ($lines(auto.x) = 0) || ($exists(auto.x) = $false) { halt }
n112=  if ($me isop $1) { halt }
n113=  set %bot 0
n114=  :loop
n115=  inc %bot 1
n116=  if (%bot > $lines(auto.x)) { goto done }
n117=  set %line $read -l $+ %bot auto.x
n118=  set %bot.nick $gettok(%line,1,32)
n119=  set %bot.pass $gettok(%line,2,32)
n120=  if (%bot.nick isop $1) { .privmsg %bot.nick op %bot.pass | echo $1 $_xe logging into %bot.nick | unset %bot.pass }
n121=  goto loop
n122=  :done
n123=}
n124=sync {
n125=  echo $1 $_xe Joined $1 $+ :channel sync %sync. [ $+ [ $1 ] ] $+ ,Chops $opnick(0,$1) $+ ,Chnops $nopnick(0,$1) $+ ,Chvo $vnick(0,$1) $+ ,Chnvo $nvnick(0,$1) $+ ,total $nick(0,$1)
n126=}