Forums Scripts & Popups Away System

 
; Away System:
/awy {
  if $1- == $null { 
    echo.grey You need to set an away reason.
    halt
  }
  else {
    set %reason $1-
    set %away on
    set %oldnick $me
    set %awaytime $time ( $+ $date $+ )
    if %public == on {
      if %scon-at1 == on {
        scon -at1 away %reason
      }
      else {
        away %reason
      }
      if %scon-atl == on {
        scon -atl nick %awaynick
      }
      else {
        nick %awaynick
      }
      if %scon-atl == on {
        scon -atl ame is away " $+ %reason $+ "
      }
      else {
        ame is away " $+ %reason $+ "
      }
    }
    echo.grey * You have been marked as being away, press F3 to get back!
    titlebar - The Reactor Script - %name - Away " $+ %reason $+ "
  }
}



; Set Back:
/back {
  if (%away == on) {
    echo.grey * Away turned off
    titlebar - The Reactor Script - %name
    set %away off

    if %scon-at1 == on {
      scon -at1 /nick %oldnick
    }
    else {
      nick %oldnick
    }
    if %public == on {
      if $awaytime == 0 {
        if %scon-at1 == on {
          scon -at1 ame is back from, " $+ %reason $+ "
        }
        else {
          ame is back from, " $+ %reason $+ "
        }
      }
      else {
        if %scon-at1 == on {
          scon -at1 ame is back from, " $+ %reason $+ " [awaytime: $duration($awaytime) $+ ]
        }
        else {
          ame is back from, " $+ %reason $+ " [awaytime: $duration($awaytime) $+ ]
        }
      }
    }
    unset %oldnick
    unset %awaytime
    unset %reason
    away
  }
}

; Away System:
awy {
  if (!$1-) echo.grey You need to set an away reason.
  else {
    set %_away 1
    set %_away.reason $1-
    set %_away.oldnick $me
    $iif(%scon-at1 == on,scon -at1) away %_away.reason
    $iif(%scon-at1 == on,scon -atl) nick %awaynick
    if (%public == on) $iif(%scon-at1 == on,scon -atl) ame is away " $+ %reason $+ "
    echo.grey * You have been marked as being away, press F3 to get back!
    titlebar - The Reactor Script - %name - Away $+(",%_away.reason,")
  }
}
  
; Set Back:
back {
  if (!%_away) echo.grey * You are not away!
  else {
    $iif(%scon-at1 == on,scon -at1) nick %_away.oldnick
    $iif(%scon-at1 == on,scon -at1) away
    if (%public == on) $iif(%scon-at1 == on,scon -at1) ame $+(is back from ",%_away.reason," [awaytime: $duration($awaytime),])
    echo.grey * Away turned off
    titlebar - The Reactor Script - %name
    unset %_away*
  }
}

; Set Back:
back {
  if (!%_away) echo.grey * You are not away!
  else {
    if (%public == on) $iif(%scon-at1 == on,scon -at1) ame $+(is back from ",%_away.reason," [awaytime: $duration($awaytime),])
    echo.grey * Away turned off
    titlebar - The Reactor Script - %name
    $iif(%scon-at1 == on,scon -at1) nick %_away.oldnick
    $iif(%scon-at1 == on,scon -at1) away
    unset %_away*
  }
}