Scan (2 versions)

Knowledgebase

Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Scan (2 versions)

Solution ;; SCAN: Draw 'scanner' at mouse position
{
PENFRONT
MOUSEPOS y = x =
1 PENSIZE
255 255 0 PENCOLOR
POSX 13 + POSY 23 - x 30 - y 30 - LINE
POSX 13 + POSY 23 - x 30 - y 30 + LINE
POSX 7 - POSY 19 - x 30 + y 30 - LINE
POSX 7 - POSY 19 - x 30 + y 30 + LINE
2 PENSIZE
0 255 0 PENCOLOR
x 5 - y x 5 + y LINE
x y 5 - x y 5 + LINE
255 0 0 PENCOLOR
x 30 - y 30 - x 20 - y 30 - LINE
x 30 - y 30 - x 30 - y 20 - LINE
x 30 + y 30 - x 20 + y 30 - LINE
x 30 + y 30 - x 30 + y 20 - LINE
x 30 - y 30 + x 20 - y 30 + LINE
x 30 - y 30 + x 30 - y 20 + LINE
x 30 + y 30 + x 20 + y 30 + LINE
x 30 + y 30 + x 30 + y 20 + LINE
")fazein Scanning wait for results" SAY
"Ohhh yes suspicions confirmed" SAY
"!Nice Package MmMmMmMm" SAY
0 255 0 PENCOLOR
1 PENSIZE
-25 d =
{
j ++
x d + y 25 - x d + y 25 + LINE
d 5 + d =
} { j 11 < } WHILE
0 i =
{ i ++ PAINTUNDO } { i 11 < } WHILE
-25 d =
{
k ++
x 25 + y d + x 25 - y d + LINE
d 5 + d =
} { k 11 < } WHILE
0 i =
{ i ++ PAINTUNDO } { i 25 < } WHILE
DATETIME lastScan =
"" CHATSTR =
} lowchat "scan" == DATETIME lastScan - 120 > AND IF

;; SCAN1: Draw 'scanner' at mouse position
{
PENFRONT
MOUSEPOS y = x =
1 PENSIZE
255 255 0 PENCOLOR
POSX 13 + POSY 23 - x 30 - y 30 - LINE
POSX 13 + POSY 23 - x 30 - y 30 + LINE
POSX 7 - POSY 19 - x 30 + y 30 - LINE
POSX 7 - POSY 19 - x 30 + y 30 + LINE
2 PENSIZE
0 255 0 PENCOLOR
x 5 - y x 5 + y LINE
x y 5 - x y 5 + LINE
255 0 0 PENCOLOR
x 30 - y 30 - x 20 - y 30 - LINE
x 30 - y 30 - x 30 - y 20 - LINE
x 30 + y 30 - x 20 + y 30 - LINE
x 30 + y 30 - x 30 + y 20 - LINE
x 30 - y 30 + x 20 - y 30 + LINE
x 30 - y 30 + x 30 - y 20 + LINE
x 30 + y 30 + x 20 + y 30 + LINE
x 30 + y 30 + x 30 + y 20 + LINE
")fazein Scanning wait for results" SAY
"Results in" SAY
"!NO intellegent life" SAY
0 255 0 PENCOLOR
1 PENSIZE
-25 d =
{
j ++
x d + y 25 - x d + y 25 + LINE
d 5 + d =
} { j 11 < } WHILE
0 i =
{ i ++ PAINTUNDO } { i 11 < } WHILE
-25 d =
{
k ++
x 25 + y d + x 25 - y d + LINE
d 5 + d =
} { k 11 < } WHILE
0 i =
{ i ++ PAINTUNDO } { i 25 < } WHILE
DATETIME lastScan =
"" CHATSTR =
} lowchat "scan1" == DATETIME lastScan - 120 > AND IF

Was this article helpful? yes / no

Article details

Article ID:	167
Category:	Cyborg
Date added:	05-14-2011 03:01:33
Views:	449
Rating (Votes):	(0)

<< Go back