Knowledgebase
Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Ask a question:


Assorted cyborg scripts 1

Solution ;colorfull kiss - SPKISS1

{ 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 =
[ 1468253046 ] SETPROPS "!heres a sweet kiss just for You From Me in shades of color !!!" SAY
255 051 255 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 2 LINETO -4 3 LINETO 051 255 204 PENCOLOR 2 PENSIZE PENFRONT 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 "spkiss1" == IF


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



; rose shower
{ MOUSEPOS Y = X =
Y 42 - A1 = Y 0 + A2 = X 72 - B = A 120 + C =
384 Y - A3 =
0 i = { "r1" B 100 RANDOM + A1 40 RANDOM + ADDLOOSEPROP i++ } { i 16 <
} WHILE
{ "rose2" B 100 RANDOM + A2 A3 RANDOM + ADDLOOSEPROP i++ } { i 60 < }
WHILE ")kiss !A Rose Shower for Someone Special!" CHATSTR = }
CHATSTR "rshower" == IF

=================================================================
;EW Face


ON ALARM ; ---- ew ----
;EW Face
{ 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 =
[ 1711611438 -1204915544 697266202 -470877927 -1289461626 ] SETPROPS
")pop ewwwwwwwwwwwwwwwwwwww..Men.*THEY STINK*" SAY
{ x GLOBAL y GLOBAL x y setpos } 290 ALARMEXEC { prop1 GLOBAL { NAKED }
{prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 290
ALARMEXEC
"" CHATSTR = } CHATSTR "ew" == IF


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

;cb heart

{ CLEARLOOSEPROPS PAINTCLEAR
{ CLEARLOOSEPROPS PAINTCLEAR } 300 ALARMEXEC
x GLOBAL y GLOBAL whome whopos y = x = mousepos setpos prop1 GLOBAL
")kiss !Hope this heart show you how much you mean to me!! "SAY
"[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[ -168993591] SETPROPS
PENFRONT
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE mousepos penpos -1 0
pento -2 -4 lineto -4 -6 lineto -6 -8 lineto 4 -7 lineto 4 0 lineto 6 3
lineto
mousepos penpos -1 0 pento 2 -4 lineto 4 -6 lineto 6 -8 lineto -4 -7
lineto -4 0 lineto -6 3 lineto 0 5
{ x GLOBAL y GLOBAL x y setpos } 250 ALARMEXEC { prop1 GLOBAL { NAKED }
{prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 260
ALARMEXEC
"" CHATSTR = } CHATSTR "cbheart" == IF
=================================
;love - paints I LOVE YOU on screen sealed with a kiss

{ 255 0 0 PENCOLOR 5 PENSIZE MOUSEPOS PENPOS
10 0 LINETO -5 0 PENTO 0 20 LINETO -5 0 PENTO 10 0 LINETO 20 -20 PENTO 0 20 LINETO 10 0 LINETO 10 0 PENTO
10 0 LINETO 0 -20 LINETO -10 0 LINETO 0 20 LINETO 20 -20 PENTO 5 20 LINETO 5 -20 LINETO 20 0 PENTO
-10 0 LINETO 0 20 LINETO 10 0 LINETO -5 -10 PENTO -5 0 LINETO 30 -10 PENTO 5 10 LINETO 5 -10 LINETO -5 10 PENTO
0 10 LINETO 15 0 PENTO 10 0 LINETO 0 -20 LINETO -10 0 LINETO 0 20 LINETO 25 0 PENTO 10 0 LINETO
0 -20 LINETO -10 0 PENTO 0 20 LINETO
")kiss" CHATSTR =
} CHATSTR "love" == IF
==================================================
;HKISS: heart kiss
{ { GLOBAL } [ x y prop1 ] FOREACH
WHOME WHOPOS y = x =
MOUSEPOS my = mx =
mx 0 + tx = my 0 + ty =
tx ty SETPOS
"[ " p = 0 i = { p i USERPROP ITOA & " " & p = i ++ } { i NBRUSERPROPS < }
WHILE p " ]" & prop1 =
[ 1895399154 ] SETPROPS
")KISS !KIssesss From My Heart!!!" SAY
255 RANDOM 255 RANDOM 255 RANDOM PENCOLOR 2 PENSIZE PENFRONT
MOUSEPOS PENPOS
3 -3 lineto 2 0 lineto 3 3 lineto 0 2 lineto -8 8 lineto
-8 -8 lineto 0 -2 lineto 3 -3 lineto 2 0 lineto 3 3 lineto
0 2 lineto 3 -3 lineto 2 0 lineto -6 6 lineto 0 2 lineto 7 -7 lineto
0 1 lineto -6 6 lineto -6 -6 lineto 2 -2 lineto 2 2 lineto 0 2 lineto -2 -2 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 "hkiss" == IF

==============================================================================
 
Was this article helpful? yes / no
Article details
Article ID: 334
Category: Cyborg
Date added: 01-13-2014 09:55:31
Views: 3092
Rating (Votes): Article rated 5.0/5.0 (2)

 
<< Go back

Powered by Help Desk Software HESK™