Knowledgebase
Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Ask a question:


Assorted cyborg scripts 3

Solution ;SexBox
; point at someone command luv1
{
{ PAINTCLEAR
ikx GLOBAL iky GLOBAL WHOME WHOPOS iky = ikx =
jijx GLOBAL jijy GLOBAL WHOTARGET WHOPOS jijy = jijx =
txt GLOBAL
[ "Oh Yes..." "Your Mine Now "
"I'm Coming To Get Ya!"
"Ohh Baby Let's Get Naked =D"
":That Was Nice [="
"Was It Good For You Too? heheh.."
"Yes " ", I Enjoyed Every Single Second Of It. =)"
"I Love You " " I Love You Too " "!LOVE SCENE!" ] txt =
0 0 255 PENCOLOR 7 PENSIZE PENFRONT jijx -68 + jijy -68 + PENPOS
{ a 132 0 LINETO 0 132 LINETO -132 0 LINETO 0 -132 LINETO
jijx -67 + jijy -67 + PENPOS 0 150 255 PENCOLOR 5 PENSIZE a ++ } { a 2 < } WHILE
{ jijx GLOBAL jijy GLOBAL 0 255 255 PENCOLOR 3 PENSIZE
jijx -66 + jijy -66 + PENPOS 132 0 LINETO 0 132 LINETO
-132 0 LINETO 0 -132 LINETO 0 0 200 PENCOLOR 7 PENSIZE
jijx -61 + jijy -61 + PENPOS { b 119 0 LINETO -119 0 PENTO
0 7 PENTO b ++ } { b 18 < } WHILE } 5 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx -68 + jijy -68 + PENPOS
7 PENSIZE 0 0 255 PENCOLOR PENBACK 50 -50 LINETO
132 0 LINETO -50 50 LINETO 0 132 PENTO 50 -50 LINETO
0 -132 LINETO jijx -67 + jijy -67 + PENPOS 5 PENSIZE
0 0 100 PENCOLOR { c 50 -50 LINETO 132 0 LINETO
-50 50 LINETO 0 132 PENTO 50 -50 LINETO 0 -132 LINETO
jijx -66 + jijy -66 + PENPOS 0 0 0 PENCOLOR 3 PENSIZE c ++ }{ c 2 < } WHILE } 10 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx -62 + jijy -62 + PENPOS 0 0 0 PENCOLOR 4 PENSIZE
49 -49 LINETO 117 0 LINETO -3 0 PENTO -50 50 LINETO 7 PENSIZE
{ d -7 0 PENTO 50 -50 LINETO -50 50 PENTO d ++ } { d 16 < } WHILE } 11 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx 62 + jijy -53 + PENPOS 0 0 100 PENCOLOR
3 PENSIZE 52 -52 LINETO 6 PENSIZE -6 6 PENTO
{ e -50 50 LINETO 0 6 PENTO 50 -50 LINETO 0 6 LINETO e ++ } { e 9 < } WHILE } 13 ALARMEXEC
{ -50 50 LINETO jijx GLOBAL jijy GLOBAL jijx -13 + jijy -68 + PENPOS
80 80 80 PENCOLOR 3 PENSIZE { f 0 -44 LINETO 0 44 PENTO
255 255 255 PENCOLOR 1 PENSIZE jijx -12 + jijy -67 + PENPOS f ++ } { f 2 < } WHILE } 14 ALARMEXEC
{ txt GLOBAL txt 0 GET SAY
"@0,10 " txt 10 GET & ROOMMSG "@512,0 " txt 10 GET & ROOMMSG
"@0,384 " txt 10 GET & ROOMMSG "@512,384 " txt 10 GET & ROOMMSG } 60 ALARMEXEC
{ txt GLOBAL txt 1 GET WHOTARGET WHONAME & SAY } 360 ALARMEXEC
{ txt GLOBAL txt 2 GET SAY } 540 ALARMEXEC
{ jijx GLOBAL jijy GLOBAL jijx jijy -100 + SETPOS } 720 ALARMEXEC
{ { { f 0 10 MOVE } f 3 * ALARMEXEC f ++ } { f 10 < } WHILE } 780 ALARMEXEC
{ txt GLOBAL txt 3 GET SAY } 840 ALARMEXEC
{ { { { 0 -14 MOVE } 15 ALARMEXEC { 0 14 MOVE } 25 ALARMEXEC } g 30 * ALARMEXEC g ++ } { g 15 < } WHILE } 1000 ALARMEXEC
{ { { { 0 -14 MOVE } 5 ALARMEXEC { 0 14 MOVE } 10 ALARMEXEC } h 11 * ALARMEXEC h ++ } { h 25 < } WHILE } 1450 ALARMEXEC
{ { { { 0 -14 MOVE } 5 ALARMEXEC { 0 14 MOVE } 7 ALARMEXEC } i 8 * ALARMEXEC i ++ } { i 10 < } WHILE } 1725 ALARMEXEC
{ { { j 0 -10 MOVE } j 3 * ALARMEXEC j ++ } { j 10 < } WHILE } 1985 ALARMEXEC
{ txt GLOBAL txt 4 GET SAY } 2135 ALARMEXEC
{ { { k 0 10 MOVE } k 3 * ALARMEXEC k ++ } { k 10 < } WHILE } 2315 ALARMEXEC
{ txt GLOBAL txt 5 GET SAY } 2405 ALARMEXEC
{ ikx GLOBAL iky GLOBAL ikx iky SETPOS txt GLOBAL PAINTCLEAR
jijx GLOBAL jijy GLOBAL "@" jijx ITOA & "," & jijy ITOA & " " &
txt 6 GET & USERNAME & txt 7 GET & SAY } 2585 ALARMEXEC
{ txt GLOBAL txt 8 GET WHOTARGET WHONAME & "..." & SAY } 2765 ALARMEXEC
{ txt GLOBAL jijx GLOBAL jijy GLOBAL
"@" jijx ITOA & "," & jijy ITOA & txt 9 GET & USERNAME & SAY } 3100 ALARMEXEC }
{ "Select Someone First [=" STATUSMSG } WHOTARGET IFELSE
"" CHATSTR =
} CHATSTR "luv1" == IF

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

;Make say
; when using this script say MAKE (name) say (message)
; I know it takes longer than MSAY but it says it from theyre Mouth Position
; Author, Brad
; Makes a user say a message from his mouth


{ "$1" GREPSUB who = "$2" GREPSUB chatter =

chatter who WHOPOS SAYAT


"" CHATSTR =


} CHATSTR "^make (.*) say (.*)$" GREPSTR IF


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



;mine1 by Alexandra™€Ø¤
{ paintclear mousepos Y = X = mousepos cajay = cajax = 42 cajax -= 22 cajay -=
"caja1" cajax 66 + cajay 44 + ADDLOOSEPROP "caja2" cajax 66 + cajay 0 - ADDLOOSEPROP
"caja3" cajax 66 + cajay 44 - ADDLOOSEPROP "caja4" cajax 22 + cajay 44 + ADDLOOSEPROP
"caja5" cajax 22 + cajay 0 + ADDLOOSEPROP "caja6" cajax 22 + cajay 44 - ADDLOOSEPROP
"caja7" cajax 22 - cajay 44 + ADDLOOSEPROP "caja8" cajax 22 - cajay 0 - ADDLOOSEPROP
"caja9" cajax 22 - cajay 44 - ADDLOOSEPROP penfront 6 pensize x y penpos -32 32 pento
0 0 0 PENCOLOR 34 29 pento 0 -129 lineto
-67 67 pento 129 0 lineto {8 tamano - PENSIZE 0 i 51* i 16* PENCOLOR
i 2 * tamano = i ++ x y penpos
-33 30 PENTO 0 -60 LINETO 10 60 LINETO 10 -60 lineto 0 60 lineto 10 -60 pento 0 60 LINETO
10 0 PENTO 0 -60 LINETO 10 60 LINETO 0 -60 LINETO 20 0 PENTO -10 0 LINETO 0 60 LINETO
10 0 LINETO -10 -30 PENTO 7 0 LINETO -67 30 PENTO }{ i 5 <=} WHILE
"" CHATSTR = } CHATSTR "mine1" == IF

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




;mkiss Author:BLACK ICE
{ "" CHATSTR = propstr GLOBAL
"[ " propstr = 0 cnt =
{ propstr " " & cnt userprop itoa & propstr = cnt ++ } { cnt
nbruserprops < }
WHILE
propstr " ]" & propstr =
mousepos zy = zy 22 - my = zx = zx 22 - mx = posx px =
{ [[ 1163946061 1163946188 1163946265 1163946349 1163946451 1163946642 1234484902 1234484919 1234484932 ]
SETPROPS posx 30 + fx = posy 50 - fy = }
{ [[ 1163946061 1163946188 1163946265 1163946349 1163946451 1163946642 1234484902 1234484919 1234484932 ]
SETPROPS posx 30 - fx = posy 50 - fy = } mx px > IFELSE
"Blowing bratty butterfly kisses your way *smiles*" SAY
mx fx - 20 / dx =
my fy - 20 / dy =
0 cnt = { "webusA31" fx dx cnt * + fy dy cnt * + addlooseprop cnt ++ }
{ cnt
21 < } WHILE
{ propstr GLOBAL propstr " SETPROPS" & STRTOATOM EXEC clearlooseprops
} 300
ALARMEXEC
penfront
255 0 0 pencolor 2 pensize
zx zy penpos 5 0 lineto 10 0 pento 5 0 lineto -26 3 pento 32 0 lineto
-35 3
pento 38 0 lineto -35 3 pento 32 0 lineto -24 3 pento 16 0 lineto -11 3
pento
6 0 lineto
{ paintclear } 1000 ALARMEXEC
} CHATSTR "mkiss" == IF

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


;multiple kisses
{ 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 =
[1377259754 ] SETPROPS ")kiss :Kiss! Kiss! Yummmmyyyyyy Kisses All Over!!" SAY
255 31 0 PENCOLOR 2 PENSIZE PENFRONT MOUSEPOS PENPOS 4 2 LINETO -4 3 LINETO MOUSEPOS PENPOS -4 2 LINETO 4 3 LINETO
;second kiss
MOUSEPOS my = mx =
my 5 + ky1 = mx 5 + kx1 =
kx1 ky1 PENPOS 4 2 LINETO -4 3 LINETO kx1 ky1 PENPOS -4 2 LINETO 4 3 LINETO
;third kiss
my 8 - ky2 = mx 6 - kx2 =
kx2 ky2 PENPOS 4 2 LINETO -4 3 LINETO kx2 ky2 PENPOS -4 2 LINETO 4 3 LINETO
;fourth kiss
my 2 - ky3 = mx 9 - kx3 =
kx3 ky3 PENPOS 4 2 LINETO -4 3 LINETO kx3 ky3 PENPOS -4 2 LINETO 4 3 LINETO
;fifth kiss
my 3 - ky4 = mx 9 + kx4 =
kx4 ky4 PENPOS 4 2 LINETO -4 3 LINETO kx4 ky4 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 } 200 ALARMEXEC
"" CHATSTR = } CHATSTR "manyk" == IF

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


; wording and props can be changed
;command myheart

{ 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 =
[ -1868207886 ] SETPROPS
")Kiss !Take this heart of mine, keep it close to You always for I am Yours !!" 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 "myheart" == IF


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



;mylove2 script by Alexandra™€Ø¤
{ mousepos y = x = x 20 - x = y 5 - y = x y penpos penfront paintclear
255 0 0 pencolor 4 pensize 4 -5 LINETO 3 -3 LINETO 5 2 LINETO 4 4 LINETO 5 -6 LINETO
4 1 LINETO 6 6 LINETO 0 7 LINETO -15 17 LINETO -15 -15 LINETO -1 -5 LINETO 7 pensize
9 -6 LINETO -2 -1 LINETO -1 13 LINETO 10 -8 LINETO 7 -5 LINETO -10 19 LINETO 16 -13 LINETO
-1 -3 LINETO 204 0 0 pencolor 4 pensize -11 27 PENTO -16 -18 LINETO -1 -4 LINETO 0 -4 LINETO
4 -5 LINETO 3 -3 LINETO 3 0 LINETO 4 1 LINETO 4 3 LINETO 4 -4 LINETO 3 0 LINETO 4 2 LINETO
5 5 LINETO 2 6 LINETO -2 5 LINETO -5 5 LINETO -11 10 LINETO -3 -21 PENTO 102 95 98 pencolor
3 pensize 0 -1 LINETO 1 -1 LINETO 1 2 LINETO 0 2 LINETO 0 4 LINETO
"!I have the heart that beats only for You..." mousepos sayat
whome whopos n = m = m 2 - m = n 40 + n = m n penpos penfront
102 95 98 pencolor 3 pensize 25 13 LINETO 3 5 LINETO 3 0 LINETO 3 4 LINETO
0 -5 LINETO -6 -4 LINETO -28 -13 PENTO -7 1 LINETO -4 -2 LINETO -1 -2 LINETO
5 -1 LINETO -5 -2 LINETO 4 -2 LINETO 5 2 LINETO 3 6 LINETO
whome whopos n = m = m 4 - m = n 42 + n = m n penpos penfront
171 171 171 pencolor 3 pensize 25 13 LINETO 3 5 LINETO 3 0 LINETO 3 4 LINETO
0 -5 LINETO -6 -4 LINETO -28 -13 PENTO -7 1 LINETO -4 -2 LINETO -1 -2 LINETO
5 -1 LINETO -5 -2 LINETO 4 -2 LINETO 5 2 LINETO 3 6 LINETO "!...and You have the key" say
{ "@168,24 )kiss All my love is Yours!!!!" say }200 ALARMEXEC
"" CHATSTR = } CHATSTR "mylove2" == IF
 
Was this article helpful? yes / no
Article details
Article ID: 336
Category: Cyborg
Date added: 01-13-2014 11:26:23
Views: 613
Rating (Votes): Article not rated yet (0)

 
<< Go back

Powered by Help Desk Software HESK™