alias Away {
  scid -at1 nick Fear| $+ $1
  scid -at1 amsg 9[ $+ $ME $+ 9] Is Now Away Reason: $2-
  set %away Yes
  set %reason $2-
}
alias Back {
  scid -at1 amsg 9[ $+ $ME $+ 9] Is Now Back From %reason
  nick Fear
  set %away No
  unset %reason
}
on ^*:OPEN:?:*: {
  if (%declined. [ $+ [ $nick ] ] == halt) {
    Halt
  }
  if (%declined. [ $+ [ $nick ] ] == Yes) {
    set -u500 %declined. [ $+ [ $nick ] ] halt
    .msg $nick I warned you not to pm me again, 5 minute ban, if you must join #fear to talk to me.
    halt
  }
  if (%waiting. [ $+ [ $nick ] ] == yes) {
    write pmlog. $+ $nick $+ .txt $1-
    halt
  }
  else {
    .msg $nick 9[ $+ $ME $+ 9] Has a Pm Checker on.
    .msg $nick Currently Checking with 9[ $+ $ME $+ 9] To see if your pm will be approved.
    echo -a 9[ $+ $ME $+ 9] $nick Just Private Messaged you with: $1- ; would you like to accept? /accept $nick or /decline $nick
    set %waiting. $+ $nick yes
    write pmlog. $+ $nick $+ .txt $1-
    halt
  }
}
alias accept {
  if (%waiting. [ $+ [ $1 ] ] == yes) {
    query $1 Pm Accepted
    var %x = 1
    while (%x <= $lines(pmlog. $+ $1 $+ .txt)) {
      echo $1 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $+ 10 $+ $1 $+ $nick $+ 7 $+ $chr(93) 0 $+ $read(pmlog. $+ $1 $+ .txt,%x)
      inc %x
    }
    echo $1 9[ $+ $ME $+ 9] pm uptodate
    remove pmlog. $+ $1 $+ .txt
    unset %waiting. $+ $1
  }
  Else {
    echo -a $1
    echo -a 9[ $+ $ME $+ 9] That person isnt waiting for a response, make sure you typed the name right
  }
}
alias Decline {
  if (%waiting. [ $+ [ $1 ] ] == yes) {
    echo -a you declined.
    .msg $1 Pm Declined
    .msg $1 Please remain from atempting further contact
    .remove pmlog. $+ $1 $+ .txt
    unset %waiting. $+ $1
    set %declined. [ $+ [ $1 ] ] yes
  }
  Else {
    echo -a 9[ $+ $ME $+ 9] That person isnt waiting for a response, make sure you typed the name right
  }
}
on *:input:*: {
  if ($1 ison $active) { 
    echo $active 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($me,$active) $+ $me $+ 7 $+ $chr(93) $+ 14 4_-' $+ $findstat($1,$active) $+ $1 $+ 4'-_ $2-
    .msg $active 4_-' $+ $findstat($1,$active) $+ $1 $+ 4'-_ $2-
    haltdef
    halt
  }
  if ($left($1,1) == /) {
    if ($1 == /echo) {
      haltdef
      echo 0 $+ $2-
    }
    if ($1 == /amsg) {
      aecho $2-
      .amsg $2-
      haltdef
    }
  }
  else {
    if ($left($1,1) !== /) {
      echo $active 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($me,$active) $+ $me $+ 7 $+ $chr(93) $+ 0  $+ $1-
      .msg $active $1-
      haltdef
    }
  }
}
on ^*:text:*:#: {
  echo $chan 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($nick,$chan) $+ $nick $+ 7 $+ $chr(93) 0 $+ $1-
  haltdef
}
on ^*:text:*:?: {
  echo $nick 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($nick,$chan) $+ $nick $+ 7 $+ $chr(93) 0 $+ $1-
  haltdef
}
alias FindStat {
  if ($1 isop $2) { return 4 $+ @ }
  if ($1 ishop $2) { Return 7 $+ % }
  if ($1 isvoice $2) { return 12 $+ + }
  else { Return 10 }
}
alias aecho {
  var %x = 1
  while (%x <= $chan(0)) {
    echo $chan(%x) 14 $+ $chr(91) $+ $time $+ 14 $+ $chr(93) 7 $+ $chr(91) $+ $findstat($me,$chan(%x)) $+ $me $+ 7 $+ $chr(93) $+ 0  $+ $1-
    inc %x
  }
}
alias ColorOn {
  /color background 1
  /color normal text 0
  /color own text 0
  /color whois text 0
}
alias all {
  var %x = 1
  while (%x <= $nick($1,0)) {
    invite $nick($1,%x) $2
    inc %x
  }
}
menu nicklist {
  .Invite:/all $$?="Invite users From?" $$?="Invite Users to?"
}