/ScriptServ

[script]
n0=alias Setaway {
n1=  set %away on
n2=  if (%away.log == off) {
n3=    %away.gone = $ctime | away %away.reason 
n4=    //ame 0is now away 12[0Reason12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0uin12:0 $+ %icq.away $+ 12] $+ 0: $+ 12[0Logger12:0 $+ %away.log $+ 12] $+ 0: $+ 12 $+ %version
n5=    .timeraway 0 320 //ame 0still away 12[0Reason12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0uin12:0 $+ %icq.away $+ 12] $+ 0: $+ 12[0Logger12:0 $+ %away.log $+ 12] $+ 0: $+ 12 $+ %version
n6=    set %my.nick $me   
n7=    nick %nick.away  
n8=  }
n9=  if (%away.log == on) {
n10=    %away.gone = $ctime | away %away.reason 
n11=    //ame 0is now away 12[0Reason12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0uin12:0 $+ %icq.away $+ 12] $+ 0: $+ 12[0Logger12:0 $+ %away.log $+ 12] $+ 0: $+ 12 $+ %version
n12=    .timeraway 0 320 //ame 0still away 12[0Reason12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0uin12:0 $+ %icq.away $+ 12] $+ 0: $+ 12[0Logger12:0 $+ %away.log $+ 12] $+ 0: $+ 12 $+ %version
n13=    logger
n14=    set %my.nick $me    
n15=    nick %nick.away  
n16=  }
n17=}
n18=
n19=alias SetBack {
n20=  close -@
n21=  nick %my.nick
n22=  unset %nick.away
n23=  //ame 0is back 12[0From12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0Gone For12: $+ 0 $+ $duration($calc($ctime -%away.gone)) $+ 12] $+ 0: $+ 12 $+ %version 
n24=  set %away off 
n25=  unset %away.*
n26=  away
n27=  .timeraway off
n28=  set %away.log off
n29=}
n30=
n31=alias logger { window -k @Away 25 100 500 200 | .titlebar @Away logs | aline -p @Away 12[0your away loggs will be logged here12] | aline @Away 1,1- }
n32=
n33=alias bleh { dialog -m bleh bleh }
n34=dialog bleh {
n35=  title "Liquid Nitrogen away"
n36=  size 250 200 190 170
n37=  text "&Reason:", 2, 30 7 100 30
n38=  edit "", 3, 30 20 120 24, autohs
n39=  text "&away nick:", 10, 33 95 180 20
n40=  edit "", 11, 30 110 85 21, autohs
n41=  text "&icq:", 4, 30 50 90 30
n42=  edit "", 5, 30 65 70 24, autohs
n43=  check "&Logger", 6, 105 68 80 18
n44=  button "Away", 7, 30 145 60 20, ok
n45=  button "Cancel", 8, 95 145 60 20, cancel
n46=  box "",9, 17 -2 150 140  
n47=}
n48=on *:dialog:bleh:edit:3:%away.reason = $did(3).text
n49=on *:dialog:bleh:sclick:6: {
n50=  if ($did(6).state) %away.log = on
n51=  else %away.log = off
n52=}
n53=on *:dialog:bleh:sclick:7: {
n54=  if ($did(3).text == $null) %away.reason = n/a
n55=  if ($did(6).state == 0) %away.log = off
n56=  if ($did(4).state == 0) %icq.away = n/a  
n57=setaway
n58=}
n59=on *:dialog:bleh:init:0: {
n60=  did -a bleh 5 %icq.away
n61=}
n62=on *:dialog:bleh:edit:11:%nick.away = $did(11).text
n63=on *:dialog:bleh:sclick:8:unset %away.reason
n64=on *:dialog:bleh:edit:5:%icq.away = $did(5).text
n65=Menu Channel,Menubar,Status {
n66=  away system
n67=  .$iif(%away != on,away): {
n68=    bleh
n69=  }
n70=  .$iif(%away == on,back): {
n71=    setback
n72=  }
n73=}
n74=
n75=
n76=on !1:text:*:?: {
n77=  if (%away.log == on) {
n78=    .notice $nick 12[0away12]0:12[0Reason12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0uin12:0 $+ %icq.away $+ 12] $+ 0: $+ 12[0Logger12:0 $+ %away.log $+ 12]  $+ 0: $+ 12[0Message Logged12] $+ 0: $+ $+ %version
n79=    .aline -p @Away 12[0 $+ $asctime($ctime,m/d/yy) $+ 12] $+ 0: $+ 12[0 $+ $nick $+ 12] $+ 0: $+ 12[0 $+ $parms $+ 12] 
n80=    .closemsg $nick | halt
n81=  }
n82=  if (%away.log == off) && (%away == on) {
n83=    .notice $nick 12[0away12]0:12[0Reason12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0uin12:0 $+ %icq.away $+ 12] $+ 0: $+ 12[0Logger12:0 $+ %away.log $+ 12]  $+ 0: $+ 12[0Message Not Logged12] $+ 0: $+ $+ %version
n84=    .closemsg $nick | halt 
n85=  }
n86=}
n87=on *:connect: {
n88=  if (%away == on) { .timeraway 0 320 //ame 0still away 12[0Reason12:0 $+ %away.reason $+ 12] $+ 0: $+ 12[0uin12:0 $+ %icq.away $+ 12] $+ 0: $+ 12[0Logger12:0 $+ %away.log $+ 12] $+ 0: $+ 12 $+ %version
n89=  }
n90=}