/ScriptServ

[aliases]
n0=
n1=Away system
n2=gone {
n3=  set %away on
n4=  set %awaysince $time
n5=  set %reason $$?="What is your reason?"
n6=  nick %gonenick
n7=  timeraway 0 550 /ame is away  0,2{=Reason=}: %reason  2,11I have been away since: %awaysince  0,2BLÎZzÀrD sç®ÎÞT
n8=  ame Is away  0,2{=Reason=}: %reason  2,11I have been away since: %awaysince 0,2BLÎZzÀrD sç®ÎÞT
n9=}
n10=goneoff {
n11=  set %away off
n12=  nick %normalnick
n13=  timeraway off
n14=  ame is now back 12 0,2{=Reason=}: %reason 2,11I went at: %awaysince  0,2BLÎZzÀrD sç®ÎÞT
n15=}
n16=/rk {
n17=  set %rk *1
n18=  %rk = $replace(%rk,a,1A)
n19=  %rk = $replace(%rk,b,2b)
n20=  %rk = $replace(%rk,c,10C)
n21=  %rk = $replace(%rk,d,11d)
n22=  %rk = $replace(%rk,e,12E)
n23=  %rk = $replace(%rk,f,14f)
n24=  %rk = $replace(%rk,g,15G)
n25=  %rk = $replace(%rk,h,1h)
n26=  %rk = $replace(%rk,i,2I)
n27=  %rk = $replace(%rk,j,10J)
n28=  %rk = $replace(%rk,k,11k)
n29=  %rk = $replace(%rk,l,12L)
n30=  %rk = $replace(%rk,m,14m)
n31=  %rk = $replace(%rk,n,15N)
n32=  %rk = $replace(%rk,o,1o)
n33=  %rk = $replace(%rk,p,2P)
n34=  %rk = $replace(%rk,q,10q)
n35=  %rk = $replace(%rk,r,11R)
n36=  %rk = $replace(%rk,s,12s)
n37=  %rk = $replace(%rk,t,14T)
n38=  %rk = $replace(%rk,u,15u)
n39=  %rk = $replace(%rk,v,1v)
n40=  %rk = $replace(%rk,w,2W)
n41=  %rk = $replace(%rk,x,10x)
n42=  %rk = $replace(%rk,y,11Y)
n43=  %rk = $replace(%rk,z,12z)
n44=  say %rk
n45=  unset %rk
n46=}