| Author |
Message |
complexity |
|
Post subject: heart
 Posted: Jan 11, 2005 - 01:54 AM
|
|
Joined: Aug 01, 2004
Posts: 166
Status: Offline
|
|
Copy this into your on outchat section of your cyborg. Then type heart and it will draw a heart around the mouse position.
| Code: | { MOUSEPOS y = x = 8 s = 150 r = 0 i =
150 0 0 PENCOLOR PENBACK 9 PENSIZE
x 50 - y 25 - x 25 - y 25 - LINE x 25 + y 25 - x 50 + y 25 - LINE
x 55 - y 20 - x 20 - y 20 - LINE x 20 + y 20 - x 55 + y 20 - LINE
x 60 - y 15 - x 15 - y 15 - LINE x 15 + y 15 - x 60 + y 15 - LINE
x 65 - y 10 - x 10 - y 10 - LINE x 10 + y 10 - x 65 + y 10 - LINE
x 70 - y 5 - x 5 - y 5 - LINE x 5 + y 5 - x 70 + y 5 - LINE
x 75 - y x 75 + y LINE x 75 - y 5 + x 75 + y 5 + LINE
x 75 - y 10 + x 75 + y 10 + LINE x 75 - y 15 + x 75 + y 15 + LINE
x 75 - y 20 + x 75 + y 20 + LINE x 75 - y 25 + x 75 + y 25 + LINE
x 70 - y 30 + x 70 + y 30 + LINE x 65 - y 35 + x 65 + y 35 + LINE
x 60 - y 40 + x 60 + y 40 + LINE x 55 - y 45 + x 55 + y 45 + LINE
x 50 - y 50 + x 50 + y 50 + LINE x 45 - y 55 + x 45 + y 55 + LINE
x 40 - y 60 + x 40 + y 60 + LINE x 35 - y 65 + x 35 + y 65 + LINE
x 30 - y 70 + x 30 + y 70 + LINE x 25 - y 75 + x 25 + y 75 + LINE
x 20 - y 80 + x 20 + y 80 + LINE x 15 - y 85 + x 15 + y 85 + LINE
x 10 - y 90 + x 10 + y 90 + LINE x 5 - y 95 + x 5 + y 95 + LINE
PENFRONT { x y PENPOS s PENSIZE r 0 0 PENCOLOR
-25 -25 LINETO -25 0 LINETO -25 25 LINETO 0 25 LINETO 75 75 LINETO
75 -75 LINETO 0 -25 LINETO -25 -25 LINETO -25 0 LINETO -25 25 LINETO
s 2 - s = r 50 + r = x 1 + x = i ++ } { i 3 < } WHILE }
{ "Too many room occupants" STATUSMSG } NBRROOMUSERS 9 < IFELSE
"" CHATSTR = } CHATSTR "heart" == IF |
|
_________________
www.palaceplanet.net
The Inevitable Palace Site
|
| |
|
|
|
 |
|
|
| |
members: 9720
guests online: 55
member online: 1
You are an anonymous user. You can register for free by clicking 
FAQ
Search
Register
Log in to check your private messages
Log in
Sub-Forum
