just copy an paste this into a new Remote ^_^
This is the Start of my options script
With a simple p2p blocker, Good away system with auto away
Any comments or uggestions ?

-========================menu nicklist options=============================-
menu nicklist { 
 op.Controlls
  .Op:/mode # +ooo $$1 $2 $3
  .Deop:/mode # -ooo $$1 $2 $3
  .Voice:/mode # +vvv $$1 $2 $3
  .Devoice:/mode # -vvv $$1 $2 $3
  anatote
  .nick Reply:/Say 12-=[ $+ 13 $+ $$1 $+ 12 $+ ]=- $+ 13 $input(Message you want to Reply,e,Nick Reply)
  slaps
  .pimp.slap:/me Powders up hand | /me PimP Slaps $1 O_o 
  .-
  mimic
  .on:/set %mimic $$1 |  echo -a now mimicing $$1 
  .off:/unset %mimic $$1 | echo -a stopped mimicing $$1
}
menu channel {
  p2p block
  .p2p.block on: writeini ctsettings.ini protection p2pblock on | echo -a P2p Block Active
  .p2p.block off: writeini Ctsettings.ini protection p2pblock off | echo -a p2p.block De active 
  .guest.block on: writeini Ctsettings.ini protection Guestp2pblock on  | echo -a guest.p2p is no Active
  .guest.block off: writeini Ctsettings.ini protection Guestp2pblock off | echo -a guest.p2p De Active
  .-
  CT Away Script
  .brb:/brb
  .here:/here
  CT.auto.greet: { writeini CTsettings.ini greet CTautoGreet $input(Ctautogreet,e,Greet msg) }
}
on *:JOIN:# {
  if ($nick = $me) { /msg $chan $readini(ctsettings.ini,greet,CtautoGreet) }
}
on *:TEXT:*:*: { 
  if ($away == $true) && ($mnick isin $1-) /notice $nick Currently Away: $awaymsg  Gone For: $duration($awaytime) 
  if ($nick == %mimic) { /msg $chan $1- } 

}
on *:ACTION:*:*: { 
  if ($nick == %mimic) { /describe $chan $1- } 
}

*************************Alias Away Script**********************************
alias brb { 
  if ($away == $false) {
    var %away.reason = $input(Away Reason,e,CT Away) 
    /ame 12[14Away12] %away.reason 12[14Time Left12] $time(hh:nn TT) 
    /tnick $me $+ [AWAY]
    /away %away.reason
  }
}

alias here {
  if ($away == $true) {
    /nick $mnick
    /ame 12[14Back From12] $awaymsg [14Time Away12] $duration($awaytime) 
    /away
    /unset %away.reason
  }
}
on *:INPUT:*: {
  if ($Left($strip($1-),1) != /) {
    if ($away == $true) { /here }
    .timerAutoaway 1 2600 { /setawaynow }
  }
}
alias setawaynow { 
  /away Auto Away | /tnick $me $+ [Gone] | /ame 12[14Away12] $awaymsg 12[14Time Left12] $time(hh:nn TT) 
}
*****************************End of away Script*******************************
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;p2p blocker;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
on *:OPEN:*: { 
  if ($readini(Ctsettings.ini,protection,p2pblock) == on) { /close -m $nick } 
  if ($readini(Ctsettings.ini,protection,Guestp2pblock) == on) && (guest isin $nick) { /close -m $nick }
}