;  Thanatos' Rose Plotter (borg) Script
;
; (c) Thanatos , 2003
;
; I give you the right to use and modify this code as long as this copyright
; notice and remarks remain intact.  You may not redistribute the script.  If
; you are asked, direct them to where you got it.  I am not responsible for
; any damage that may be caused by this code.  Use it at your own risk.
;
ON OUTCHAT 
{

  {  { GLOBAL } [ roseflag rosetheta rosestartx rosestarty rosex rosey roseoldx roseoldy roseiter roseden rosenum ] FOREACH
    PAINTCLEAR "$1" GREPSUB atoi rosenum = "$2" GREPSUB atoi roseden =
    mousepos rosestarty = rosestartx = -9999 roseoldx = 1 roseflag = 0 rosetheta = "Drawing a $1/$2 rose..." GREPSUB CHATSTR =
    0 roseiter = 10 ME SETALARM
  } CHATSTR "'rose (.*) (.*)" GREPSTR IF
}

ON ALARM
{

  { GLOBAL } [ roseflag  rosetheta  rosestartx  rosestarty  rosex  rosey  roseoldx  roseoldy  roseiter  rosenum  roseden ] FOREACH
  {
    1 roseiter + roseiter =
    { 180 roseden * } { 360 roseden * } rosenum 2 % roseden 2 % + 2 == ifelse    rosemax =
    rosemax 100 / 1 + inc = rosemax inc + rosemax =
    255 0 0 pencolor 3 pensize
    { rosetheta rosenum * roseden / COSine dup rosetheta cosine * 9000 / rosestartx + x =
      rosetheta sine * 9000 / rosestarty + y =
      { x roseoldx = y roseoldy =
      } roseoldx -9999 == IF
      roseoldx roseoldy x y LINE
      x roseoldx = y roseoldy = rosetheta inc + rosetheta =
      30 ME SETALARM
    }
    { 0 roseflag =
      "Rose complete" SAY
    } rosetheta rosemax <= roseiter 128 <= AND IFELSE
  } roseflag 1 == IF

}