/ScriptServ

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;% just a little screen saver %
;%           zygote           %
;%  type /screen.u to unload  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
on 1:load { %screen.type = 1 | echo -a /screen -s to setup screen saver }
on 1:connect { .timer 0 1 check.screen }
alias check.screen { if ($idle == 600) screen }
alias screen {
  if ($1 == -s) {
    if (%screen.name == $null) { if ($?="enter your name") %screen.name = $! }
    if ($?="enter 1 for box or 2 for your name as screen saver") { %screen.type = $! }
    return
  }
  window -dop @screen 0 0 800 600
  .timer 1 4 window -c @screen
  %screen.1 = 10 | %screen.2 = 10 | %screen.mouse = 0
  %screen.offset1 = 1 | %screen.offset2 = 1
  :loop
  if (%screen.1 <= 0 && %screen.offset1 == 2) { %screen.offset1 = 1 }
  if (%screen.1 < 570 && %screen.offset1 == 1) { inc %screen.1 }
  if (%screen.offset1 == 2) { dec %screen.1 | goto check2 }
  if (%screen.1 >= 570) { %screen.offset1 = 2 | dec %screen.1 }
  :check2
  if (%screen.2 <= 0 && %screen.offset2 == 2) { %screen.offset2 = 1 }
  if (%screen.2 < 400 && %screen.offset2 == 1) { inc %screen.2 }
  if (%screen.offset2 == 2) { dec %screen.2 | goto dum }
  if (%screen.2 >= 400) { %screen.offset2 = 2 | dec %screen.2 }
  :dum
  %screen.col = $r(2,16)
  if (%screen.type == 2) { 
    drawtext @screen %screen.col "Ms Sans Serif" 24 %screen.1 %screen.2 %screen.name
    drawtext @screen 1 "Ms Sans Serif" 24 %screen.1 %screen.2 %screen.name
    goto loop
  }
  drawrect @screen %screen.col 1 %screen.1 %screen.2 50 50
  drawrect @screen %screen.col 1 $calc(%screen.1 + 10) $calc(%screen.2 + 5) 50 50
  drawline @screen %screen.col 1 %screen.1 %screen.2 $calc(%screen.1 + 10) $calc(%screen.2 + 6)
  drawline @screen %screen.col 1 %screen.1 $calc(%screen.2 + 50) $calc(%screen.1 + 10) $calc(%screen.2 + 56)
  drawline @screen %screen.col 1 $calc(%screen.1 + 50) %screen.2 $calc(%screen.1 + 60) $calc(%screen.2 + 6)
  drawline @screen %screen.col 1 $calc(%screen.1 + 50) $calc(%screen.2 + 50) $calc(%screen.1 + 60) $calc(%screen.2 + 54)
  drawrect @screen 1 1 %screen.1 %screen.2 50 50
  drawrect @screen 1 1 $calc(%screen.1 + 10) $calc(%screen.2 + 5) 50 50
  drawline @screen 1 1 %screen.1 %screen.2 $calc(%screen.1 + 10) $calc(%screen.2 + 6)
  drawline @screen 1 1 %screen.1 $calc(%screen.2 + 50) $calc(%screen.1 + 10) $calc(%screen.2 + 56)
  drawline @screen 1 1 $calc(%screen.1 + 50) %screen.2 $calc(%screen.1 + 60) $calc(%screen.2 + 6)
  drawline @screen 1 1 $calc(%screen.1 + 50) $calc(%screen.2 + 50) $calc(%screen.1 + 60) $calc(%screen.2 + 54)
  goto loop
}
alias screen.u { unset %screen.* | unload -rs screen.mrc }
menu @screen {
  mouse { inc %screen.mouse 1 | if (%screen.mouse > 1) window -c @screen }
}