/ScriptServ

;/**********************************************************************
; *
; * aIRC
; *
; *
; **********************************************************************/
;
alias ^sbp { return $strip($^bp($1-)) }
alias ^boxbegin {
  var %flags = $1,%color,%length = $3,%text = $4-,%str = $round($calc((%length - 5 - $len(%text)) / 2))
  if ($2 != $null) { %color =  $+ $2 }
  if (%str < 1) { %str = 1 }
  if (l isin $1) { %:echo $chr(160) }
  if (%text != $null) { %:echo %color $+ $^*** $+ $str(¯,%str) $+ ( %text  $+ %color $+ ) $+ $str(¯,%str) }
  else { %:echo %color $+ $^*** $+ $str(¯,$calc(%str * 2 + 4)) }
}
alias ^boxend {
  var %flags = $1,%color,%length = $3,%text = $4-,%str = $round($calc((%length - 5 - $len(%text)) / 2))
  if ($2 != $null) { %color =  $+ $2 }
  if (%str < 1) { %str = 1 }
  if (%text != $null) { %:echo %color $+ $^*** $+ $str(_,%str) $+ ( %text  $+ %color $+ ) $+ $str(_,%str) }
  else { %:echo %color $+ $^*** $+ $str(_,$calc(%str * 2 + 4)) }
  if (l isin $1) { %:echo $chr(160) }
}
alias ^boxitemstart { return $^*** }
alias mail {
  if ($_ismail($1) == $null) { tokenize 32 $_parameter($null,1,Send mail [/mail],ismail,$null,Send email to:) $1- }
  if ($2- != $null) { run mailto: $+ $1 $+ ?subject= $+ $2- }
  else { run mailto: $+ $1 }
}
_helpdialog.dialogrefresh

alias _nicklist.col.channick {  }
alias _nicklist.col.addy {  }
alias _nicklist.col.nick {  }
alias _nicklist.col.chandle {  }
alias _nicklist.col.handle { }
alias _nicklist.col.chan {  }
alias _nicklist.col.all {  }
alias _nicklist.col.no {  }

;
; -( english )-
;
;;#@english on
alias _uppercase { return A B C D E F G H I J K L M N O P Q R S T U V W X Y Z }
alias _lowercase { return a b c d e f g h i j k l m n o p q r s t u v w x y z }
alias _dateformat.mmm { return $1- }
alias _dateformat.mmmm { return $1- }
alias _dateformat.ddd { return $1- }
alias _dateformat.dddd { return $1- }
alias _dateformat.oo { return $1- }
alias _dateformat.duration { return $1- }
alias _dateformat.duratio { return $remove($1-,ecs,ec,ins,in,rs,r,ays,ay) }
alias _dateformat.date { return ddd mmm d HH:nn:ss yyyy }
alias _dateformat.longdate { return dddd mmmm d h:nn:sstt yyyy }
alias _dateformat.shortdate { return ddd m/d h:nntt }
;;#@english end
;
; -( español )-
;
#@español off
alias _uppercase { return A B C D E F G H I J K L M N O P Q R S T U V W X Y Z Á É Í Ó Ú Ü Ñ }
alias _lowercase { return a b c d e f g h i j k l m n o p q r s t u v w x y z á é í ó ú ü ñ }
alias _dateformat.mmm { return $replace($1-,Jan,Ene,Apr,Abr,Aug,Ago,Dec,Dic) }
alias _dateformat.mmmm { return $replace($1-,January,Enero,February,Febrero,March,Marzo,April,Abril,May,Mayo,June,Junio,July,Julio,August,Agosto,September,Septiembre,October,Octubre,November,Noviembre,December,Diciembre) }
alias _dateformat.ddd { return $replace($1-,Mon,Lun,Tue,Mar,Wed,Mie,Thu,Jue,Fri,Vie,Sat,Sab,Sun,Dom) }
alias _dateformat.dddd { return $replace($1-,Monday,Lunes,Tuesday,Martes,Wednesday,Miércoles,Thursday,Jueves,Friday,Viernes,Saturday,Sábado,Sunday,Domingo) }
alias _dateformat.oo { return $replace($1-,31st,31vo,30th,30vo,29th,29vo,28th,28vo,27th,27vo,26th,26vo,25th,25vo,24th,24vo,23rd,23vo,22nd,22vo,21st,21vo,20th,20vo,19th,19vo,18th,18vo,17th,17vo,16th,16vo,15th,15vo,14th,14vo,13rd,13vo,12nd,12vo,11st,11vo,10th,10mo,9th,9no,8th,8vo,7th,7mo,6th,6to,5th,5to,4th,4to,3rd,3ro,2nd,2do,1st,1ro) }
alias _dateformat.duration { return $replace($1-,wk,sem,day,día,sec,seg) }
alias _dateformat.duratio { return $replace($remove($1-,ecs,ec,ins,in,rs,r,ays,ay),wks,sm,wk,sm) }
alias _dateformat.date { return ddd d mmm yyyy h:nn:sstt }
alias _dateformat.longdate { return dddd d mmmm yyyy h:nn:sstt }
alias _dateformat.shortdate { return ddd d/m h:nntt }
#@español end