;qbone draws a spinning line from you to mousepos
;usage "qbone " recommend 20 to 100
;uses ipt-1 sine & cosine, by Foxy
{ "" CHATSTR = 
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR
255 PENOPACITY
 MOUSEPOS POSY - dy = POSX - dx = varistart EXEC
 0 sp = 0 stp = "$1" GREPSUB ATOI sz =
 { sp SINE sz * 2000 / POSX dx stp * 40 / + + sp
   COSINE sz * 2000 / POSY dy stp * 40 / + + PENPOS
   sp SINE sz * 1000 / -1 * sp COSINE sz * 1000 / -1 * LINETO vari EXEC
  18 sp += stp ++
 }{ sp 738 < } WHILE
} CHATSTR "^qbone ([0-9]+)$" GREPSTR IF