@verb #2711:"sine sinecast" any any any rxdo #9620
@program #2711:"sine sinecast" any any any
screen = ""
"arg 1 is the incrementor to what will be next inputted into sin()"
inc = tofloat(args[1])
"arg 2 is the width, in chars, of max amplitude ( turned sideways ^_^ )"
if (toint(args[2]) > 80)
  amp = tofloat(80)
else
  amp = abs(tofloat(args[2]))
endif
counter = this.degrees
if ((next_ = counter + inc) == (next_i = toint(next_)) && next_i % 2 == 0 && next_ != 360.0)
  this.degrees = 0.0
else
  counter = counter + inc
endif
screen = $su:space(toint(sin(counter) * amp + 0.4) + toint(amp)) + "0"
this.degrees = counter
if (verb == "sinecast")
  player.location:announce_all(screen)
else
  player:tell(screen)
endif
.