All pastes #735222 Raw Edit

Unnamed

public text v1 · immutable
·published 2007-10-13 12:56 UTC
rendered paste body
on $*:text:/(Craig|Turner)/Si:#: {
  if (%awayy == on) {
    if (%awayypager == on) { echo -t @pager <11 $+ $nick $+ 14:11 $+ # $+ > $1- }
    if (%awayy [ $+ [ $nick ] ] == yes) { halt }
    .notice $nick 14[» 11A14way «]14[» 11R14eason:14 %awayyreason «][» 11L14eft at: %awayytime2 «][» 11G14one for: $duration($calc($ctime - %awayytime)) «][»11P14ager: $iif(%awayypager,%awayypager,Off) «] 
    set %awayy [ $+ [ $nick ] ] yes
    halt
  }
  if (%highlight == on) {
    if ($chan == $active) { halt }
    echo -ta 11-00-11- 00(11Highlight: $nick $chan $+ 00)11 $1-
    if (%highlightwindow == on) { echo -t @Highlight 14<11 $+ $nick $+ 14:11 $+ # $+ 14>: $1- }
    if (!$appactive) { noop $tip(Highlight,Highlight,$chan $nick,5,,,,) }
  }
}
on *:text:*:?: {
  if (%awayy == on) {
    if (%awayypager == on) { echo -t @pager <11 $+ $nick $+ 14:11Query> $1- | .close -m $nick }
    if (%awayy [ $+ [ $nick ] ] == yes) { halt }
    .msg $nick 14[» 11A14way «]14[» 11R14eason:14 %awayyreason «][» 11L14eft at: %awayytime2 «][» 11G14one for: $duration($calc($ctime - %awayytime)) «][»11P14ager: $iif(%awayypager,%awayypager,Off) «] 
    set %awayy [ $+ [ $nick ] ] yes
  }
}
alias away { 
  if (%awayy == on) { back | away $1- }
  .nick |Aturner44|Away| | set %awayytime $ctime | set %awayytime2 $time | set %awayyreason $iif($1-,$1-,No Reason Given) | .raw away $iif($1-,$1-,No Reason Given) | set %awayy on 
  if ($1 == -p) { set %awayypager on | window -ra @Pager | set %awayyreason $iif($2,$2-,No Reason Given)  | .raw away $2- } 
  amsg -r 14[» 11A14way «]14[» 11R14eason:14 %awayyreason «][» 11L14eft at: $asctime(HH:nn:ss) «][» 11P14ager: $iif(%awayypager,%awayypager,Off) «]
  echo -at 11-00-11- 00(11Away00) You are now set as away with reason: %awayyreason
}
alias back { 
  if (%awayy != on) { echo -at 11-00-11- 00(11Away00) Away is not on. | halt }
  amsg -r 14[» 11B14ack «]14[» 11F14rom:14 %awayyreason «][» 11L14eft at: %awayytime2 «][» 11G14one for: $duration($calc($ctime - %awayytime)) «] 
  echo -at 11-00-11- 00(11Away00) You are now back from: %awayyreason
  .unset %awayy* | .nick Aturner44 | .raw away
}
alias highlight {
  if ($1 != -w && $1 != on && $1 != off && $1 != $null) { echo -at 11-00-11- 00(11Highlight00) $1- 00Unknown command. | halt }
  if ($1 == -w) {  
    if ($2 == on) { window -ea @Highlight | set %highlightwindow On | echo -ta 11-00-11- 00(11Highlight00) @Highlight 00window on. }
    if ($2 == off) { window -c @Highlight | unset %highlightwindow | echo -at 11-00-11- 00(11Highlight00) @Highlight 00window off. }
  }
  if ($1 == on) { set %highlight on | echo -at 11-00-11- 00(11Highlight00) 00Have been turned11 On. }
  if ($1 == off) { unset %highlight | echo -at 11-00-11- 00(11Highlight00) 00Have been turned11 Off. }
  if ($1 == $null) { echo -ta 11-00-11- 00(11Highlight00) 00On/Off:11 $iif(%highlight,%highlight,Off) 00Window:11 $iif(%highlightwindow,On,Off) }
}