Assorted cyborg scripts 2

Knowledgebase

Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Assorted cyborg scripts 2

Solution ;prop pids can be changed along with what is said
; command hitnrun
{ paintclear
x GLOBAL y GLOBAL whome whopos y = x = prop1 GLOBAL
"[ " p = 0 i = { p i USERPROP itoa & " " & p = i ++ } { i
NBRUSERPROPS < } WHILE p " ]" & prop1 =
[ 1159862647] SETPROPS ".............scattering butterfly kisses........!!!" SAY
{ 13 156 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 13 156 PENPOS 4 2 LINETO -4 3 LINETO 13 156 PENPOS -4 2 LINETO 4 3 LINETO
}20 alarmexec
{ 87 119 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 87 119 PENPOS 4 2 LINETO -4 3 LINETO 87 119 PENPOS -4 2 LINETO 4 3 LINETO
}40 alarmexec
{143 79 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 143 79 PENPOS 4 2 LINETO -4 3 LINETO 143 79 PENPOS -4 2 LINETO 4 3 LINETO
} 60 alarmexec
{201 124 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 201 124 PENPOS 4 2 LINETO -4 3 LINETO 201 124 PENPOS -4 2 LINETO 4 3 LINETO
} 80 alarmexec
{271 172 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 271 172 PENPOS 4 2 LINETO -4 3 LINETO 271 172 PENPOS -4 2 LINETO 4 3 LINETO
} 100 alarmexec
{324 121 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 324 121 PENPOS 4 2 LINETO -4 3 LINETO 324 121 PENPOS -4 2 LINETO 4 3 LINETO
} 120 alarmexec
{385 79 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 385 79 PENPOS 4 2 LINETO -4 3 LINETO 385 79 PENPOS -4 2 LINETO 4 3 LINETO
} 140 alarmexec
{440 127 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 440 127 PENPOS 4 2 LINETO -4 3 LINETO 440 127 PENPOS -4 2 LINETO 4 3 LINETO
} 160 alarmexec
{498 185 setpos 153 127 255 PENCOLOR 2 PENSIZE PENFRONT 498 185 PENPOS 4 2 LINETO -4 3 LINETO 498 185 PENPOS -4 2 LINETO 4 3 LINETO
} 180 alarmexec
{ x GLOBAL y GLOBAL x y setpos } 200 ALARMEXEC { prop1 GLOBAL { NAKED } {prop1 GLOBAL prop1
" SETPROPS" & xpropo = xpropo STRTOATOM EXEC } "[ ]" prop1 == IFELSE } 220 ALARMEXEC

""CHATSTR = } CHATSTR "hitnrun" == IF

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

;hlips1 makes a heart kiss
{ 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 = [ 885509922 ] SETPROPS ")kiss !Your kisses set My heart afire!!! :)" SAY
102 153 255 PENCOLOR 3 PENSIZE PENFRONT MOUSEPOS PENPOS -2 -3 lineto -4 -1 lineto -2 -1 lineto -3 3 lineto -1 4 lineto 13 15 lineto
mousepos penpos 2 -3 lineto 4 -1 lineto 2 -1 lineto 3 3 lineto 1 4 lineto -13 15 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 "hlips1" == IF

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

; command hlips2
; kiss props pids can be changed along with what is said

{ 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 =
[ 207066008] SETPROPS ")kiss !Hot steamy kisses that mark you with my heart Wetkisses!" SAY
102 000 153 PENCOLOR 3 PENSIZE PENFRONT MOUSEPOS PENPOS -2 -3 lineto -4 -1 lineto -2 -1 lineto -3 3 lineto -1 4 lineto 13 15 lineto
mousepos penpos 2 -3 lineto 4 -1 lineto 2 -1 lineto 3 3 lineto 1 4 lineto -13 15 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 "hlips2" == IF

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

;command jail

{ PENFRONT 9 PENSIZE 0 0 0 PENCOLOR MOUSEPOS y = x =
MOUSEPOS y1 = x1 = MOUSEPOS y2 = x2 = 131 c = 8 i =
"! You've been busted...Time for HARD time now!!!!" x 66 - y 88 - SAYAT
{ x 70 - y 70 - PENPOS 136 0 LINETO 0 136 LINETO -136 0 LINETO 0 -136 LINETO
x 66 - y 66 - PENPOS 127 0 LINETO 0 127 LINETO -127 0 LINETO 0 -127 LINETO } paintF DEF
{ x1 39 - y1 65 - x1 39 - y1 65 + LINE
x1 6 - y1 65 - x1 6 - y1 65 + LINE
x1 27 + y1 65 - x1 27 + y1 65 + LINE } paintR DEF
{ x2 27 - y2 65 - x2 27 - y2 65 + LINE
x2 6 + y2 65 - x2 6 + y2 65 + LINE
x2 39 + y2 65 - x2 39 + y2 65 + LINE } paintL DEF
{ c c c PENCOLOR i PENSIZE paintF EXEC paintL EXEC paintR EXEC
x ++ x1 2 + x1 = x2 -- c 31 + c = i -- } { i 4> } WHILE
"" CHATSTR = } CHATSTR "jail" == IF

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

;command kis
{
MOUSEPOS y = x =
"!)kiss Smootches
!" MOUSEPOS SAYAT
PENFRONT 0 0 255 PENCOLOR 4 PENSIZE
POSX 6 + POSY 38 + MOUSEPOS LINE PAINTUNDO
"rrose" x 0 - y 44 - ADDLOOSEPROP
"rwhite" x 44 - y 0 - ADDLOOSEPROP
"ryellow" x 0 - y 0 - ADDLOOSEPROP
"" CHATSTR =
} CHATSTR "kis" == IF

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

;kissy
{ PAINTCLEAR CLEARLOOSEPROPS
{ "kis1" prop = } { "$1" GREPSUB prop = } "$1" GREPSUB "" == IFELSE
CLEARLOOSEPROPS MOUSEPOS mousey = mousex = 0 i = POSX mousex - pointx =
POSY mousey - pointy = prop mousex pointx 8 * 9 / + mousey pointy 8 * 9 / +
ADDLOOSEPROP prop mousex pointx 7 * 9 / + mousey pointy 7 * 9 / + ADDLOOSEPROP
prop mousex pointx 6 * 9 / + mousey pointy 6 * 9 / + ADDLOOSEPROP
prop mousex pointx 5 * 9 / + mousey pointy 5 * 9 / + ADDLOOSEPROP
prop mousex pointx 4 * 9 / + mousey pointy 4 * 9 / + ADDLOOSEPROP
prop mousex pointx 3 * 9 / + mousey pointy 3 * 9 / + ADDLOOSEPROP
prop mousex pointx 2 * 9 / + mousey pointy 2 * 9 / + ADDLOOSEPROP
prop mousex pointx 1 * 9 / + mousey pointy 1 * 9 / + ADDLOOSEPROP
"!)kiss kiss and tight hugs for you !!!!!" mousex mousey SAYAT { 88 RANDOM 44 - x = 88 RANDOM 44 - y =
mousex x + newx = mousey y + newy = 855530190 newx newy ADDLOOSEPROP i ++ } { i 16 < }
WHILE { CLEARLOOSEPROPS } 200 ALARMEXEC "" CHATSTR = }
CHATSTR "^kissy *(.*)" GREPSTR IF

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

; command lick
; lick props pids can be changed along with what is said

;optional
{ { WHOTARGET WHOPOS SETPOS } { "Err: You must select someone" STATUSMSG
} WHOTARGET IFELSE "" CHATSTR = } lowchat "align" == IF

;;: Licks the person you point at.
ox GLOBAL oy GLOBAL
nx GLOBAL ny GLOBAL
restore_props GLOBAL
{ { 0 i = "["
{ " " i USERPROP ITOA & & i ++ } { i NBRUSERPROPS < } WHILE
" ] SETPROPS" & restore_props =
} { "NAKED" restore_props = } NBRUSERPROPS IFELSE
POSX ox = POSY oy = 0 i =
MOUSEPOS ny = nx = ny 75 + ny =
[950642954 950642943 950642937 950642932 950642926 950642949 ]
SETPROPS nx ny SETPOS
"!Licking you up and down Mmmmm..you taste GOOD!!!!!" SAY
255 31 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS -4 2 LINETO 4 3 LINETO
{ ny 1 - ny = ny 60 + ny =
ny 60 - ny = nx ny SETPOS
i ++ } { i 40 < } WHILE
ox oy SETPOS restore_props STRTOATOM EXEC "" CHATSTR =
} CHATSTR "lick" == IF

============================================================================
;can change what it says

;lips makes a paint kiss
{ 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 = [ 885509922 ] SETPROPS ")kiss !Hot steamy kisses to make you weak in the knees!!! :)" SAY
255 random 255 random 255 random 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 "lips" == IF

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

;wording and prop can be changed

{ 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 =
[2144713672] SETPROPS
")Kiss !sweet loving kisses for My Love !!" 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 "lipsa" == IF

Was this article helpful? yes / no

Article details

Article ID:	335
Category:	Cyborg
Date added:	01-13-2014 11:24:48
Views:	1399
Rating (Votes):	(0)

<< Go back