/ScriptServ

menu Channel {
  -
  AWAY SYSTEM
  .set away {
    /set %atime $ctime
    /set %awayreason $$?="whats the reason?"
    /set %timea $time
    /set %currentn $me
    /.away %awayreason
    /ame  $+ %pricolor is away  $+ %seccolor -=[ %awayreason ]=-
    /nick %awaynick
    /.timer1 0 %repeattime /ame  $+ %pricolor is away  $+ %seccolor -=[ %awayreason ]=-  $+ %pricolor .... away since  $+ %seccolor -=[ %timea GMT+1 ]=-
    /set %awayoff on
    halt
  
}
.set back {
  if (%awayoff = off) {
    /echo  $+ %pricolor ¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸  $+ %seccolor -=[ already back ;) ]=- $+ %pricolor ¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸
  }
  else {
    /.away
    /.timer1 off
    /ame  $+ %pricolor is back from  $+ %seccolor -=[ %awayreason ]=- 
    /ame  $+ %pricolor has been away for $duration($calc($ctime - %atime))
    /nick %currentn
    /set %awayoff off
    halt
  }
}
.OPTIONS
..COLOR CODES
...PRIMARY COLOR
.... 00 - White {
  /set %pricolor 0
}
.... 01 - Black {
  /set %pricolor 1
}
.... 02 - Blue {
  /set %pricolor 2
}
.... 03 - Green {
  /set %pricolor 3
}
.... 04 - Red {
  /set %pricolor 4
}
.... 05 - Brown {
  /set %pricolor 5
}
.... 06 - Purple {
  /set %pricolor 6
}
.... 07 - Orange {
  /set %pricolor 7
}
.... 08 - Yellow {
  /set %pricolor 8
}
.... 09 - Light Green {
  /set %pricolor 9
}
.... 10 - Cyan {
  /set %pricolor 10
}
.... 11 - Light Cyan {
  /set %pricolor 11
}
.... 12 - Royal Blue {
  /set %pricolor 12
}
.... 13 - Pink {
  /set %pricolor 13
}
.... 14 - Grey {
  /set %pricolor 14
}
.... 15 - Light Grey {
  /set %pricolor 15
}
...SECONDARY COLOR
.... 00 - White {
  /set %seccolor 0
}
.... 01 - Black {
  /set %seccolor 1
}
.... 02 - Blue {
  /set %seccolor 2
}
.... 03 - Green {
  /set %seccolor 3
}
.... 04 - Red {
  /set %seccolor 4
}
.... 05 - Brown {
  /set %seccolor 5
}
.... 06 - Purple {
  /set %seccolor 6
}
.... 07 - Orange {
  /set %seccolor 7
}
.... 08 - Yellow {
  /set %seccolor 8
}
.... 09 - Light Green {
  /set %seccolor 9
}
.... 10 - Cyan {
  /set %seccolor 10
}
.... 11 - Light Cyan {
  /set %seccolor 11
}
.... 12 - Royal Blue {
  /set %seccolor 12
}
.... 13 - Pink {
  /set %seccolor 13
}
.... 14 - Grey {
  /set %seccolor 14
}
.... 15 - Light Grey {
  /set %seccolor 15
}
..timer frequency {
  /set %repeattime $$?="enter awaytimer frequency in seconds"
}
..set away nick {
  /set %awaynick $$?="enter awaynick" | /echo  $+ %pricolor ¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸ away nick is  $+ %seccolor -=[ %awaynick ]=- $+ %pricolor ¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸
  halt
}
..show away nick {
  /echo  $+ %pricolor ¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸ away nick is  $+ %seccolor -=[ %awaynick ]=- $+ %pricolor ¸,ø¤°`°¤ø,¸¸,ø¤°`°¤ø,¸
}
}