/ScriptServ

[aliases]
n0=setaway { 
n1=  %away.reason = $$?="Why are you gonna be away?:"
n2=  if ($$?!="Do you want the Pager on?" == $true) %away.pager = ON | else %away.pager = OFF
n3=  /nick $$?="What Is Your Away Nick?" %awaynick.reason
n4=  %away.gone = $ctime | %away.set = $mytime | away %away.reason
n5=  ame 14,1I15z 4(14A15w0a14Y4)14 R15e0a14S15o0N 4(12 $+ %away.reason $+ 4)14 M15u0H 14E15m0A14i15L 0I14z 4°12 $+ %email.reason $+ 4°14 M15u0H 14I15c0Q14n15º 0I14z 4(12 %icq.reason 4)14 4º14P15a0G14e15R0:12 $+ %away.pager $+ 4/14L15o0G14:12 $+ %logger $+ 4°14 A15w0a14Y 15S0y14s15t0e14M 15v16614.150 0B14y 15B0L14u15E0|14A15R0m14Y
n6=  .timeraway 0 300 ame 14,1I15z 4(14A15w0a14Y4)14 R15e0a14S15o0N 4(12 $+ %away.reason $+ 4)(12 %icq.reason 4)14 4º14P15a0G14e15R0:12 $+ %away.pager $+ 4/14L15o0G14:12 $+ %logger $+ 4°14 A15w0a14Y 15S0y14s15t0e14M 15v16614.150 0B14y 15B0L14u15E0|14A15R0m14Y
n7=  if (%away.pager == on) window @Pager 140 200 403 195 pager.txt Arial 12
n8=
n9=
n10=  .titlebar *BLu3|ArMy* S©rIpT By {BLuE|ArMy}: $time 
n11=}
n12=setback {  
n13=  /nick $$?="What Is Your Back Nick?"
n14=  if ($right($me,5) == -away) nick $remove($me,-away)
n15=  ame 14,1I15z 4(14B15a0C14k4)14 R15e0a14S15o0N 4(12 $+ %away.reason $+ 4)14 A15w0a14Y 15F0o14R 4º12 $duration($calc($ctime - %away.gone)) 4º14 A15w0a14Y 15S0y14s15t0e14M 15v16614.150 0B14y 15B0L14u15E0|14A15R0m14Y | .timeraway off | unset %away.* | away 
n16=  .titlebar *BLu3|ArMy* S©rIpT By {BLuE|ArMy}: $time
n17=}