Knowledgebase
Storm Palace Hosting > Storm Hosting Help Desk > Knowledgebase

Ask a question:


Editbox 20140331 by Ravenwood Heartsong

Solution ;************************************
; Editbox 20140331 by Ravenwood Heartsong
; Based on the Editbox script by Alexandra™€Ø¤
; Modified and Expanded by Ravenwood Heartsong
;************************************
{ RETURN "" CHATSTR = } CHATSTR "eb " == IF
{
ebhelp GLOBAL {
{ LOGMSG }
[
" ************************************ "
" Editbox 20140331"
" by Ravenwood Heartsong"
""
" Don't worry!! The \"return\" is part"
" of how it works. "
""
" Commands: "
" eb help - this screen"
" eb clean - Gets rid of the previous editbox"
" eb info - Information about Editbox"
""
" Color Commands"
" eb black "
" eb white "
" eb pink "
" eb hpink "
" eb purple "
" eb brown "
" eb blue "
" eb cyan "
" eb red "
" eb autumn "
" eb green "
" eb lime "
" eb keylime "
" eb grey "
" eb orange "
" eb yellow "
""
" ************************************ "
] FOREACH
} ebhelp DEF ebhelp EXEC "" CHATSTR = } CHATSTR "eb help" == IF
{
ebinfo GLOBAL {
{ LOGMSG }
[
" ************************************ "
" Editbox 20140331"
" by Ravenwood Heartsong"
" Email: ravenwoodhs@yahoo.com"
" Released on 03-30-14 "
" Based on the Editbox script by"
" Alexandra™€Ø¤ "
""
" - This script draws a round-cornered"
" box that helps you edit your av's."
" - It has 16 colors to choose from."
" - It auto-cleans the previous "
" editbox."
""
" So pick your favorite and have"
" fun. "
""
" ************************************ "
] FOREACH
} ebinfo DEF ebinfo EXEC "" CHATSTR = } CHATSTR "eb info" == IF
{ PAINTCLEAR "" CHATSTR = } CHATSTR "eb clean" == IF
{
PAINTCLEAR
"@" MOUSEPOS SWAP ITOA "," & SWAP ITOA & & "Type \"eb help\" for Editbox Help for the color list. Don't worry!! The \"sr\" is part of how it works. " & LOCALMSG
40 PENSIZE PENBACK mousepos 110 - y = 110 - DUP x = t = "$1" GREPSUB color =
{ RETURN } color "" == IF
{ RETURN } color "help" == IF { RETURN } color "info" == IF { RETURN } color "clean" == IF
{ 0 0 0 PENCOLOR } color "black" == IF { 255 255 255 PENCOLOR } color "white" == IF
{ 255 187 255 PENCOLOR } color "pink" == IF { 255 0 255 PENCOLOR } color "hpink" == IF
{ 153 0 170 PENCOLOR } color "purple" == IF { 171 106 90 PENCOLOR } color "brown" == IF
{ 0 0 255 PENCOLOR } color "blue" == IF { 0 159 255 PENCOLOR } color "cyan" == IF
{ 255 0 0 PENCOLOR } color "red" == IF { 255 141 72 PENCOLOR } color "autumn" == IF
{ 0 255 0 PENCOLOR } color "lime" == IF { 0 179 0 PENCOLOR } color "keylime" == IF
{ 0 179 0 PENCOLOR } color "green" == IF { 136 136 136 PENCOLOR } color "grey" == IF
{ 255 255 0 PENCOLOR } color "yellow" == IF { 255 95 0 PENCOLOR } color "orange" == IF

{ i x y x y 220 + LINE 8 x += i ++ } { i 34 < } WHILE
;TopLayer support
{ tplyr global { "" chatstr = 1 tplyr = 2 gotoroom } tplyr DEF tplyr EXEC } 300 ALARMEXEC
;subreturn room support
{ ontop global { "" chatstr = 1 ontop = 95 gotoroom } ontop DEF ontop EXEC } 300 ALARMEXEC
;plugall sr support
{ "sr" SAY } 300 ALARMEXEC
"" CHATSTR = } CHATSTR "^eb (.*)" GREPSTR IF

;************************************
 
Was this article helpful? yes / no
Article details
Article ID: 355
Category: Cyborg
Date added: 04-02-2014 08:21:39
Views: 371
Rating (Votes): Article not rated yet (0)

 
<< Go back

Powered by Help Desk Software HESK™