/ScriptServ

alias worm {
  window -pk +ftL @worm -1 -1 206 222
  drawrect -f @worm 0 1 0 0 200 200
  worm.reset
  worm.update
}
alias worm.draw {
  drawline -n @worm $1 1 12 %w.12 14 %w.14 16 %w.16 18 %w.18 20 %w.20 22 %w.22 24 %w.24 26 %w.26 28 %w.28 30 %w.30 32 %w.32 34 %w.34 36 %w.36 38 %w.38 40 %w.40 42 %w.42 44 %w.44 46 %w.46 48 %w.48
  drawline -n @worm $2 3 48 %w.48 50 %w.50
}
alias worm.drawtext { drawtext -n @worm $1 arial 10 5 5 %w.50 | drawtext -n @worm $1 arial 10 $iif(%w.v < 0,42,45) 5 %w.v }
alias worm.reset { %w.v = 0 | var %i = 10 | while (%i < 50) { inc %i 2 | set % $+ w. $+ %i 100 } }
alias worm.update {
  worm.draw 0 0
  ;worm.drawtext 0
  %w.12 = %w.14 | %w.14 = %w.16 | %w.16 = %w.18 | %w.18 = %w.20 | %w.20 = %w.22 | %w.22 = %w.24 | %w.24 = %w.26 | %w.26 = %w.28 | %w.28 = %w.30 | %w.30 = %w.32 | %w.32 = %w.34 | %w.34 = %w.36 | %w.36 = %w.38 | %w.38 = %w.40 | %w.40 = %w.42 | %w.42 = %w.44 | %w.44 = %w.46 | %w.46 = %w.48 | %w.48 = %w.50
  if ($mouse.key & 1) inc %w.v 0.02
  else dec %w.v 0.025
  if (%w.v < -3) %w.v = -3 | if (%w.v > 3) %w.v = 3
  %w.50 = %w.50 - %w.v
  if (%w.50 <= 0) { %w.50 = 0 | %w.v = %w.v * -1 }
  if (%w.50 >= 200) { %w.50 = 199 | %w.v = %w.v * -1 } 
  worm.draw 15 14
  ;worm.drawtext 1
  drawdot @worm
  .timerworm -m 1 10 worm.update
}
on *:close:@worm:.timerworm off | unset %w.*