Knowledgebase
Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Ask a question:


Assorted cyborg scripts 5

Solution ;MAKES A BEAUTIFUL COLORED SNOWFLAKE AT MOUSE POINT
;SNOWFLAKE

{ PAINTCLEAR MOUSEPOS y = x = 5 n = PENFRONT "$1" GREPSUB color =
{ 255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR } pen =
{ x 65 + tx = y 65 + ty = tx x - n / xx = ty y - n / yy = y ty = } pos =
{ 0 i = { x y tx ty LINE tx xx - tx = ty yy + ty = i ++ } { i n < } WHILE
0 i = { x y tx ty LINE tx xx - tx = ty yy - ty = i ++ } { i n < } WHILE
0 i = { x y tx ty LINE tx xx + tx = ty yy - ty = i ++ } { i n < } WHILE
0 i = { x y tx ty LINE tx xx + tx = ty yy + ty = i ++ } { i n < } WHILE } paint =
pen EXEC
{ 0 255 255 PENCOLOR } color "e blue" == IF
{ 255 0 0 PENCOLOR } color "e red" == IF
{ 0 255 0 PENCOLOR } color "e green" == IF
{ 255 255 0 PENCOLOR } color "e yellow" == IF
{ 200 0 80 PENCOLOR } color "e purple" == IF
{ 155 155 155 PENCOLOR } color "e black" == IF
{ 255 255 255 PENCOLOR } color "e white" == IF
{ 255 225 255 PENCOLOR } color "e pink" == IF
{ 0 0 255 PENCOLOR } color "e blue invert" == IF
{ 100 0 0 PENCOLOR } color "e red invert" == IF
{ 0 155 0 PENCOLOR } color "e green invert" == IF
{ 255 200 0 PENCOLOR } color "e yellow invert" == IF
{ 100 0 80 PENCOLOR } color "e purple invert" == IF
{ 0 0 0 PENCOLOR } color "e black invert" == IF
{ 155 155 155 PENCOLOR } color "e white invert" == IF
{ 255 155 255 PENCOLOR } color "e pink invert" == IF

pos EXEC 9 PENSIZE paint EXEC x 2 + x = y 2 + y =
pen EXEC
{ 0 155 255 PENCOLOR } color "e blue" == color "e blue invert" == OR IF
{ 200 0 0 PENCOLOR } color "e red" == color "e red invert" == OR IF
{ 0 200 0 PENCOLOR } color "e green" == color "e green invert" == OR IF
{ 255 225 0 PENCOLOR } color "e yellow" == color "e yellow invert" == OR IF
{ 155 0 80 PENCOLOR } color "e purple" == color "e purple invert" == OR IF
{ 75 75 75 PENCOLOR } color "e black" == color "e black invert" == OR IF
{ 200 200 200 PENCOLOR } color "e white" == color "e white invert" == OR IF
{ 255 200 255 PENCOLOR } color "e pink" == color "e pink invert" == OR IF
pos EXEC 4 PENSIZE paint EXEC x 2 + x = y 2 + y =
pen EXEC
{ 0 0 255 PENCOLOR } color "e blue" == IF
{ 100 0 0 PENCOLOR } color "e red" == IF
{ 0 155 0 PENCOLOR } color "e green" == IF
{ 255 200 0 PENCOLOR } color "e yellow" == IF
{ 100 0 80 PENCOLOR } color "e purple" == IF
{ 0 0 0 PENCOLOR } color "e black" == IF
{ 155 155 155 PENCOLOR } color "e white" == IF
{ 255 155 255 PENCOLOR } color "e pink" == IF
{ 0 255 255 PENCOLOR } color "e blue invert" == IF
{ 255 0 0 PENCOLOR } color "e red invert" == IF
{ 0 255 0 PENCOLOR } color "e green invert" == IF
{ 255 255 0 PENCOLOR } color "e yellow invert" == IF
{ 200 0 80 PENCOLOR } color "e purple invert" == IF
{ 155 155 155 PENCOLOR } color "e black invert" == IF
{ 255 255 255 PENCOLOR } color "e white invert" == IF
{ 255 225 255 PENCOLOR } color "e pink invert" == IF
pos EXEC 1 PENSIZE paint EXEC x 2 + x = y 2 + y =
"" CHATSTR = } CHATSTR LOWERCASE "^snowflake(.*)" GREPSTR IF

=======================================================


;command tape1
{ PENFRONT 6 PENSIZE 255 255 0 PENCOLOR 0 0 50 50 LINE
512 0 450 60 LINE 50 50 30 100 LINE 450 60 480 100 LINE
30 100 60 110 LINE 480 100 400 115 LINE 3 PENSIZE
255 255 0 PENCOLOR 60 110 75 130 LINE 400 115 415 130 LINE
75 130 MOUSEPOS LINE 75 130 MOUSEPOS LINE 415 130 MOUSEPOS LINE
"tape" MOUSEPOS ADDLOOSEPROP ")BOOM" SAY
"!Stop It Or I'll Tape Ya Mouth Shut!" SAY
{ { PAINTUNDO i ++ } { i 15 < } WHILE } 50 ALARMEXEC
"" CHATSTR = }CHATSTR "tape1" ==IF

================================================




;command ubrat
;brat
{
MOUSEPOS my = mx =
POSX px =
POSY py =
5 PENSIZE
0 i =
255 255 255 PENCOLOR
px py mx my LINE
{
i 1 + 50 * q =
i 2 * n =
0 0 q PENCOLOR
px py mx my 24 n - - LINE
0 q 0 PENCOLOR
px py mx my 16 n - - LINE
q 0 0 PENCOLOR
px py mx my 8 n - - LINE
q q 0 PENCOLOR
px py mx my 2 n + + LINE
q 0 q PENCOLOR
px py mx my 10 n + + LINE
0 q q PENCOLOR
px py mx my 18 n + + LINE

{"!B" MOUSEPOS 80- SAYAT 16 RANDOM SETCOLOR }05 ALARMEXEC
{"!R" MOUSEPOS 50- SAYAT 16 RANDOM SETCOLOR }45 ALARMEXEC
{"!A" MOUSEPOS 20- SAYAT 16 RANDOM SETCOLOR }75 ALARMEXEC
{"!T!!!" MOUSEPOS 10+ SAYAT 16 RANDOM SETCOLOR }105 ALARMEXEC
i ++
} { i 1 < } WHILE
{ { PAINTUNDO i ++ } { i 25 < } WHILE } 120 ALARMEXEC
"" CHATSTR = } CHATSTR "ubrat" == IF

====================================================


; Zap somebody by positioning the mouse and then say "zap"
{ "!)fazein Zap!" MOUSEPOS SAYAT 255 0 0 PENCOLOR 2 PENSIZE
POSX POSY MOUSEPOS LINE PAINTUNDO
"" CHATSTR = } CHATSTR "zap" == IF

==========================================================


;Grid script
step1 GLOBAL { [ -1300477338 -1300477564 -1300477515 -1300477622 -1300477773 -1300478087 ] SETPROPS PAINTCLEAR 50 200 50 PENCOLOR PENFRONT
"!Activating Target Allocation Grid." ROOMMSG
9 PENSIZE 506 382 PENPOS
0 -382 LINETO -506 0 LINETO 0 382 LINETO 506 0 LINETO
1 PENSIZE 0 i = 0 x = 0 y =
{ x 44 + x = x 0 x 384 LINE { y 44 + y = 0 y 512 y LINE } i 7> NOT IF i ++ }
{ i 12 < } WHILE } step1 DEF
step2 GLOBAL
{ "@512,0 !Scanning Grid For Target" ROOMMSG
9 PENSIZE MOUSEPOS y = x =
0 i = y ty = x tx = x x1 = 0 y1 = 512 x2 = y y2 =
x x3 = 384 y3 = 0 x4 = y y4 = ty y1 - 6 / yy1 = tx x2 - 6 / xx2 =
ty y3 - 6 / yy3 =tx x4 - 6 / xx4 = { y1 yy1 + y1a = x2 xx2 + x2a =
y3 yy3 + y3a = x4 xx4 + x4a = x1 y1 x1 y1a LINE x2 y2 x2a y2 LINE
x3 y3 x3 y3a LINE x4 y4 x4a y4 LINE y1 yy1 + y1 = x2 xx2 + x2 =
y3 yy3 + y3 = x4 xx4 + x4 =
i ++ PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO } { i 6 < } WHILE } step2 DEF
step3 GLOBAL
{ "!Target Lock Aquired" ROOMMSG
5 PENSIZE PAINTCLEAR MOUSEPOS y = x =
x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE
x 12 - y 66 - x 12 + y 66 - LINE x 66 + y 12 - x 66 + y 12 + LINE
x 12 + y 66 + x 12 - y 66 + LINE x 66 - y 12 + x 66 - y 12 - LINE
x 16 - y 33 - x 16 + y 33 - LINE x 33 + y 16 + x 33 + y 16 - LINE
x 16 + y 33 + x 16 - y 33 + LINE x 33 - y 16 - x 33 - y 16 + LINE
x 8 - y 44 - x 8 + y 44 - LINE x 44 + y 8 + x 44 + y 8 - LINE
x 8 + y 44 + x 8 - y 44 + LINE x 44 - y 8 - x 44 - y 8 + LINE
x 66 - y 55 - x 66 - y 66 - LINE x 66 - y 66 - x 55 - y 66 - LINE
x 66 + y 55 - x 66 + y 66 - LINE x 66 + y 66 - x 55 + y 66 - LINE
x 66 + y 55 + x 66 + y 66 + LINE x 66 + y 66 + x 55 + y 66 + LINE
x 66 - y 55 + x 66 - y 66 + LINE x 66 - y 66 + x 55 - y 66 + LINE
{ PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO PAINTUNDO } a =
a EXEC a EXEC a EXEC a EXEC
"!LOCKED" x 55 - y 70 - SAYAT "!LOCKED" x 55 - y 70 + SAYAT
150 0 0 PENCOLOR x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE
x 22 - y 22 - PENPOS 44 0 LINETO 0 44 LINETO -44 0 LINETO 0 -44 LINETO
x 1 + x = y 1 + y = 200 0 0 PENCOLOR
x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE
x 22 - y 22 - PENPOS 44 0 LINETO 0 44 LINETO -44 0 LINETO 0 -44 LINETO
x 1 + x = y 1 + y = 255 0 0 PENCOLOR
x 66 - y x 66 + y LINE x y 66 - x y 66 + LINE
x 22 - y 22 - PENPOS 44 0 LINETO 0 44 LINETO -44 0 LINETO 0 -44 LINETO } step3 DEF
step4 GLOBAL
{ "!Fire Concusion Rifle" ROOMMSG "@512,0 !Fire Concusion Rifle" ROOMMSG
"@512,384 !Fire Concusion Rifle" ROOMMSG "@0,384 !Fire Concusion Rifle" ROOMMSG
POSX 65 - x = POSY 7 + y = { x 1 + x = y 1 + y =
x y x 0 + y 16 - LINE x y x 4 + y 12 - LINE x y x 8 + y 8 - LINE
x y x 12 + y 4 - LINE x y x 16 + y 0 - LINE x y x 12 + y 4 + LINE
x y x 8 + y 8 + LINE x y x 4 + y 12 + LINE x y x 0 + y 16 + LINE
x y x 0 - y 16 + LINE x y x 4 - y 12 + LINE x y x 8 - y 8 + LINE
x y x 12 - y 4 + LINE x y x 16 - y 0 - LINE x y x 12 - y 4 - LINE
x y x 8 - y 8 - LINE x y x 4 - y 12 - LINE } a =
225 225 0 PENCOLOR 9 PENSIZE a EXEC 235 235 0 PENCOLOR 6 PENSIZE a EXEC
255 255 0 PENCOLOR 3 PENSIZE a EXEC 255 255 255 PENCOLOR 1 PENSIZE a EXEC
POSX 66 - x = POSY 8 + y = MOUSEPOS yy = xx =
225 225 0 PENCOLOR 9 PENSIZE x y 16 - xx yy 16 - LINE x y 16 + xx yy 16 + LINE
235 235 0 PENCOLOR 7 PENSIZE x y 12 - xx yy 12 - LINE x y 12 + xx yy 12 + LINE
255 255 0 PENCOLOR 5 PENSIZE x y 8 - xx yy 8 - LINE x y 8 + xx yy 8 + LINE
255 255 255 PENCOLOR 3 PENSIZE x y 4 - xx yy 4 - LINE x y 4 + xx yy 4 + LINE
x y xx yy LINE } step4 DEF
step5 GLOBAL
{ { x 2 + y 2 + PENPOS } a =
{ PENFRONT 132 22 LINETO PENBACK -132 22 LINETO
PENFRONT 132 22 LINETO PENBACK -132 0 LINETO
PENFRONT 132 -22 LINETO PENBACK -132 -22 LINETO
PENFRONT 132 -22 LINETO PENBACK -132 0 LINETO } b =
{ MOUSEPOS 33 - y = 66 - x =
0 0 150 PENCOLOR 9 PENSIZE x y PENPOS b EXEC
0 0 255 PENCOLOR 6 PENSIZE a EXEC b EXEC
0 150 225 PENCOLOR 3 PENSIZE a EXEC b EXEC
255 255 255 PENCOLOR 1 PENSIZE a EXEC b EXEC } c =
"!Static Field Rendering Target Disabled" ROOMMSG
PAINTCLEAR c EXEC c EXEC c EXEC } Step5 DEF
{ 60 NBRROOMUSERS * n =
{ step1 GLOBAL step1 EXEC } EXEC
{ step2 GLOBAL step2 EXEC } 180 n + ALARMEXEC
{ step3 GLOBAL step3 EXEC } 360 n + ALARMEXEC
{ step4 GLOBAL step4 EXEC } 540 n + ALARMEXEC
{ step5 GLOBAL step5 EXEC } 720 n + ALARMEXEC
"" CHATSTR = } CHATSTR "Grid" == IF
 
Was this article helpful? yes / no
Article details
Article ID: 339
Category: Cyborg
Date added: 01-17-2014 05:40:02
Views: 982
Rating (Votes): Article rated 5.0/5.0 (1)

 
<< Go back

Powered by Help Desk Software HESK™