;rose makes a paint rose by Xochi
{ x GLOBAL y GLOBAL whome whopos y = x = mousepos setpos prop1 GLOBAL
"[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i NBRUSERPROPS < } WHILE
p " ]" & prop1 = [ 927609125 1553846332 -1403218731 15567365 -868728608 -1441333949 739683691 -1345475065 848870105 ] SETPROPS ")yes A lovely rose for you! @}-'--,-" SAY
0 90 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 0 0 LINETO 0 30 LINETO MOUSEPOS PENPOS 0 9 LINETO -6 -5 LINETO MOUSEPOS PENPOS 0 9 LINETO 6 -5 LINETO MOUSEPOS PENPOS 0 20 LINETO 6 -5 LINETO MOUSEPOS PENPOS 0 15 LINETO -6 -5 LINETO
255 0 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 0 0 LINETO 0 5 LINETO MOUSEPOS PENPOS 0 5 LINETO 5 -5 LINETO MOUSEPOS PENPOS 0 5 LINETO -5 -5 LINETO MOUSEPOS PENPOS -2 3 LINETO -2 -5 LINETO 
156 0 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 1 2 LINETO 1 5 LINETO MOUSEPOS PENPOS 2 5 LINETO 7 -5 LINETO MOUSEPOS PENPOS 0 5 LINETO -8 -5 LINETO 
{ x GLOBAL y GLOBAL x y setpos } 150 ALARMEXEC
{ prop1 GLOBAL
{ NAKED } {prop1 GLOBAL prop1 " SETPROPS" & xpropo = xpropo STRTOATOM EXEC }
"[ ]" prop1 == IFELSE } 160 ALARMEXEC
"" CHATSTR = } CHATSTR "rose" == IF
;By Xochi