/ScriptServ

;====================================================================================
;                                                                 NetLand §¢®Ipt V2.0
;                                                                       ßÿ GoodNews 
;                                           We made everything here and it is professional
;                                          so you dont need to touch or change  anything 
;                                     cause it can cause a malfunction to the script .Thx !!!!!!
;                                                               Long Live #NetLand
;=====================================================================================
on *:text:*:?: {
  if (%away.away == yes) {
    ;    if ($query($nick) != $null) { halt }
    write messages.txt 11,1Time:11,1  $day $time $c(1) $+ 11,1Nick:11,1 $nick 3 $strip($1-)
    .timer 1 0 close -m $nick
    .ignore -pu30 $wildsite
    .notice $nick $awaycompile(time,private)
  }
}

on 1:connect: {
  unset %loop2
  unset %loop3
  unset %loop4
  core stats
  if (%away.away == yes) xaway resume
}

on 1:disconnect: {
  core stats
  if (%away.away == yes) xaway resume
}
raw 305:*: xx s 10 $+ $2- | halt
raw 306:*: xx s 10 $+ $2- | halt

alias awayclear {
  set %temp.away.delete $?!="Are you sure you want to delete All messages and pages?"
  if (%temp.away.delete == $true) {
    write -c messages.txt
    write -c pages.txt
    window -c %temp.away.read1
    xx 11,1All messages and pages deleted
  }
}
alias xaway {
  if ($1 == idle) {
    set %away.time $calc($ctime - $minutes(%away.idle))
    set %away.message Idle away after $duration($minutes(%away.idle))
    .timeraway 0 $minutes(%away.adtime) xaway message
    .set %away.away Yes
    If ($chan(0)) { amsg $awaycompile(time) }
    return
  }
  if ($1 == resume) {
    .timeraway 0 $minutes(%away.adtime) xaway message
    if ($server) { xx 3Resuming away }
    return
  }
  if ($1 == message) { amsg $awaycompile(time) | halt }
  if (%away.away == Yes) {
    if (%away.silent == $false) {
      if (($server) && ($chan(0))) {
        amsg 11,1I am back from: «11,1 $+ %away.message $+ 11,1» After being away for:  «11,1 $duration($calc($ctime - %away.time)) $+ 11,1»  %script
      }
    }
    unset %away.reason %away.time %away.message
    set %away.away No
    .timeraway off
    resetidle
    xx 11,1You have:11,1 $lines(sys\messages.txt) $c(1) $+ 11,1Messages and:11,1 $lines(sys\pages.txt) 11,1Pages
    halt
  }
  if (%away.away == No) {
    set %away.idle $did(away1,4),text 
    set %away.adtime $did(away1,6),text
    /dialog -c away1 away1
    set %temp.away.check $?!="Do you wish to go away?"
    if (%temp.away.check == $false) { xx 11,1 Aborting away | halt }
    set %away.silent $?!="Do you want silent away enabled?"
    set %temp.away.logging $?!="Message logging?"
    if (%temp.away.logging == $true) { set %away.logging Yes } | else set %away.logging No
    set %temp.away.pager $?!="Enable Pager?"
    if (%temp.away.pager == $true) { set %away.pager Yes } | else set %away.pager No
    set %away.message $?="Enter away reason"
    if (%away.message == $null) { set %away.message $me has no reason }
    if (%away.silent == $false) { 
      if (($server) && ($chan(0))) { 
        amsg $awaycompile 
        away $strip($awaycompile(time))
      }
    }
    .timeraway 0 $minutes(%away.adtime) xaway message
    .set %away.away Yes
    set %away.time $ctime
  }
}
alias awayread {
  set %temp.away.read $1
  set %temp.away.read1 @ $+ %temp.away.read
  set %temp.away.read2  $+ %temp.away.read $+ .txt
  if ($lines(%temp.away.read2) == 0) { xx )  11,1There are no11,1 %temp.away.read | halt }
  if ($window(%temp.away.read1) == $null) { window -a %temp.away.read1 100 100 750 500 }
  else { clear %temp.away.read1 | goto start }
  :start
  aline 11 %temp.away.read1 11,1Messages:11,1 $lines(%temp.away.read2)
  aline 11 %temp.away.read1  11,1Press11,1 ctrl+F1  11,1to clear all messages and pages
  aline 11 %temp.away.read1  11,1---------------------------------------------------
  loadbuf -ph %temp.away.read1 %temp.away.read2
}

alias awaycompile {
  set %temp.away.message 11,1I am away, Reason: «11,1 $+ %away.message $+ 11,1»
  if ($1 == time) { set %temp.away.message %temp.away.message 11,1Time gone: «11,1 $duration($calc($ctime - %away.time)) $+ 11,1» }
  if (%away.pager == Yes) { set %temp.away.message %temp.away.message 11,1Pager: «11,1 $+ Online $+ 11,1» }
  if (%away.pager == No) { set %temp.away.message %temp.away.message 11,1Pager: «11,1 $+ Offline $+ 11,1» } 
  if (%away.logging == Yes) { set %temp.away.message %temp.away.message 11,1Logging: «11,1 $+ Online $+ 11,1»  %script }
  if (%away.logging == No) { set %temp.away.message %temp.away.message 11,1Logging: «11,1 $+ Offline $+ 11,1»  %script } 
  if ($2 == private) { set %temp.away.message %temp.away.message }
  set %temp.away.message %temp.away.message $x
  return %temp.away.message
}