Knowledgebase
Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Ask a question:


Assorted cyborg scripts 1

Solution ;Command akiss.... painting by Alexandra™€Ø¤, based in lips script
{ uno GLOBAL dos GLOBAL whome whopos dos = uno = mousepos setpos prop1 GLOBAL
"[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i NBRUSERPROPS < } WHILE p " ]" & prop1 = [ 885509922 ] SETPROPS
")kiss !Kiss!!! :)" SAY
PAINTCLEAR PENFRONT 255 0 0 pencolor 3 pensize
mousepos y = x = x 7 - x = y 9 - y = x y penpos
4 0 lineto 2 2 lineto 2 0 lineto 2 -2 lineto 2 0 lineto 2 0 lineto 8 12 lineto -8 6 lineto -6 2 lineto -4 0 lineto -8 -4 lineto -4 -4 lineto 0 -4 lineto 8 -8 lineto 6 4 lineto 8 -2 lineto -14 2 lineto 5 pensize 14 0 lineto -20 2 lineto 24 2 lineto -24 2 lineto 24 0 lineto -20 4 lineto 16 0 lineto -12 2 lineto 0 0 0 pencolor 2 pensize -10 -5 pento 4 -2 lineto 4 0 lineto 6 2 lineto 2 0 lineto 2 -2 lineto 6 -2 lineto 8 4 lineto -10 -2 lineto -10 0 lineto -10 0 lineto 1 pensize 4 0 pento -2 -2 lineto 6 2 pento -4 -6 lineto 8 6 pento 2 -6 lineto 0 6 lineto 4 -2 pento 4 -2 lineto 255 255 255 pencolor 1 pensize -18 10 pento 2 -2 lineto 2 4 pento 0 -2 lineto 8 0 pento 2 0 lineto
{ uno GLOBAL dos GLOBAL uno dos setpos } 150 ALARMEXEC { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1 " SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 160 ALARMEXEC
"" CHATSTR = } CHATSTR "^akiss$" GREPSTR IF


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

;Bite1
{ 0 0 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 1 LINETO -4 1 LINETO MOUSEPOS PENPOS
-4 1 LINETO 4 1 LINETO 255 31 0 PENCOLOR 1 PENSIZE MOUSEPOS PENPOS 4 3 PENTO -2 3 LINETO
2 3 LINETO 0 5 LINETO 2 1 LINETO -2 -6 PENTO -1 5 LINETO MOUSEPOS PENPOS -4 3 PENTO
0 4 LINETO 1 2 LINETO 0 2 LINETO -1 -4 PENTO -2 2 LINETO 0 6 LINETO MOUSEPOS PENPOS
0 3 PENTO 0 11 LINETO -2 3 LINETO 1 2 LINETO 0 4 LINETO
")crunch" SAY"! " WHOME WHONAME & " mmmmmmm you taste good!!!" & MOUSEPOS SAYAT
"" CHATSTR = } CHATSTR "bite1" == IF

=================================================================
; BLOWKISS - by: /|\ Sir Gwal ©
{ dx GLOBAL dy GLOBAL tx GLOBAL ty MOUSEPOS ty = tx = POSX tx - dx = POSY ty - dy =
")kiss" SAY 255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx dx 3 * 4 / + ty dy 3 * 4 / + PENPOS 4 2 LINETO -4 3 LINETO
tx dx 3 * 4 / + ty dy 3 * 4 / + PENPOS -4 2 LINETO 4 3 LINETO
PAINTCLEAR 255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx dx 2 / + ty dy 2 / + PENPOS 4 2 LINETO -4 3 LINETO
tx dx 2 / + ty dy 2 / + PENPOS -4 2 LINETO 4 3 LINETO
PAINTCLEAR 255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx dx 4 / + ty dy 4 / + PENPOS 4 2 LINETO -4 3 LINETO
tx dx 4 / + ty dy 4 / + PENPOS -4 2 LINETO 4 3 LINETO
PAINTCLEAR 255 31 0 PENCOLOR 2 PENSIZE PENFRONT
tx ty PENPOS 4 2 LINETO -4 3 LINETO tx ty PENPOS -4 2 LINETO 4 3 LINETO
"!" USERNAME & " Sexy hot kisses just for you!" & MOUSEPOS SAYAT
"" CHATSTR = } CHATSTR "blowkiss" == IF


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

; i enter here a note on what av change it is, like sleep or whatever
;change av pids
;a command word or even a letter can be inserted where the word .. change is
{ [238625214] SETPROPS "" CHATSTR = } CHATSTR "change" == IF

=================================
;command chomp
;chomp leaves a bite mark
{ 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 =
[ 777898073 ] SETPROPS
0 0 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 1 LINETO -4 1 LINETO MOUSEPOS PENPOS -4 1 LINETO 4 1 LINETO
255 31 0 PENCOLOR 1 PENSIZE
MOUSEPOS PENPOS 4 3 PENTO -2 3 LINETO 2 3 LINETO 0 5 LINETO 2 1 LINETO -2 -6 PENTO -1 5 LINETO
MOUSEPOS PENPOS -4 3 PENTO 0 4 LINETO 1 2 LINETO 0 2 LINETO -1 -4 PENTO -2 2 LINETO 0 6 LINETO
MOUSEPOS PENPOS 0 3 PENTO 0 11 LINETO -2 3 LINETO 1 2 LINETO 0 4 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 mx my PENPOS
")Crunch " "Bite Me and I'll Bite you Bck" & MOUSEPOS SAYAT
"" CHATSTR =
} CHATSTR "chomp" == IF
==================================================
;command ember
;loose props can be changed by naming new ones
{
POSX 53 - A = POSY 23 - B = POSX 53 + C = POSY 21 - D = MOUSEPOS Y = X = Y 3 - Y = X 3 - X = PENFRONT
6 p = 255 r = 0 g = 0 bl =
{ p PENSIZE r g bl PENCOLOR A B X Y LINE C D X Y LINE
1 A += 1 B += 1 D += 1 C += 1 X += 1 Y += 127 r += 127 g += 2 p -= i++ } { i 3 < } WHILE
")kiss" ROOMMSG MOUSEPOS Y = X = Y 20 - C = X 20 - D =
C 80 - Y1 = D 80 - X1 = C 50 - Y2 = D 50 - X2 = C 15 - Y3 = D 15 - X
0 i = { "brat10" X3 30 RANDOM + Y3 30 RANDOM + ADDLOOSEPROP
"lips4" X2 100 RANDOM + Y2 100 RANDOM + ADDLOOSEPROP
"brathugs1" X2 100 RANDOM + Y2 100 RANDOM + ADDLOOSEPROP
"brat10" X1 160 RANDOM + Y1 160 RANDOM + ADDLOOSEPROP i++ } { i 8 < } WHILE
")kiss!Tight hugs for a sweet girl!!" Mousepos sayat
{ PAINTCLEAR CLEARLOOSEPROPS} 400 ALARMEXEC "" CHATSTR = } CHATSTR "ember" == IF


==============================================================================
;point mouse command girlhug

{ 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 = [-1679223929] SETPROPS
"tight hugs for a special sweet girl !!" SAY 204 000 051 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS
PENPOS 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS
-4 2 LINETO 4 3 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 "girlhug" == IF

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



;; graph: makes a graph type scale on the screen
{ 0 0 255 PENCOLOR 2 PENSIZE PENBACK
0 y = 0 x = { y 15 + y = 0 y 512 y LINE i ++ } { i 25 < } WHILE
255 0 0 PENCOLOR 2 PENSIZE
0 x = 0 y = PENFRONT { 15 x + x = x 0 x 384 LINE u ++ } { u 34 < } WHILE
0 255 0 PENCOLOR PENBACK 0 0 512 384 LINE PENFRONT 512 0 0 384 LINE PENBACK
256 0 256 384 LINE PENFRONT 0 192 512 192 LINE
"" CHATSTR = } CHATSTR "^;*graph$" GREPSTR 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: 334
Category: Cyborg
Date added: 01-13-2014 09:55:31
Views: 1749
Rating (Votes): Article rated 5.0/5.0 (1)

 
<< Go back

Powered by Help Desk Software HESK™