ON SIGNON {
"@10,10 Welcome to " SERVERNAME + ",  " + USERNAME + "!"   + LOCALMSG
ICameFrom GLOBAL
"User Guest has  arrived linked from " UsEr =
{ "No Server Name Is available." MeComing = }{ ICameFrom MeComing = } ICameFrom 0 == IFELSE
{ "Mac " ComPu = }{ "PC " ComPu = } DATETIME 0 < IFELSE
ComPu UsEr & MeComing & ", " & whome itoa & " visitors so far...." & SUSRMSG
SERVERNAME ICameFrom =
;offeravurl
offeredAvatar GLOBAL
offerInScript GLOBAL
offerOutScript GLOBAL
offeredURL GLOBAL "" offeredURL =
	{	offeredAvatar GLOBAL
		offeredURL GLOBAL
		{	"$1" GREPSUB offeredURL =
			"You have been offered a URL link to $1 by " GREPSUB
			WHOCHAT WHONAME & ". To visit it say \"accepturl\"." & LOCALMSG
		} CHATSTR "^;urloffer ([0-9a-zA-Z\./?=%:@]+)" GREPSTR WHOCHAT WHOME <> AND IF
		{	"$1" GREPSUB prps =
			{	"[ " prps & " ] SETPROPS" & offeredAvatar =
				"@" WHOCHAT WHOPOS ITOA SWAP ITOA "," & SWAP & &
				" You have been offered an avatar by " & WHOCHAT WHONAME &
				". To accept it, type \"accept\"." & LOCALMSG
			} prps ".* .* .* .* .* .* .* .* .* .*" GREPSTR NOT prps "-$" GREPSTR NOT AND
			  prps "- " GREPSTR NOT AND prps ">$" GREPSTR NOT AND prps "> " GREPSTR NOT AND
			  prps "<$" GREPSTR NOT AND prps "< " GREPSTR NOT AND WHOCHAT WHOME <> AND IF
			"" CHATSTR =
		} CHATSTR "^;avoffer [\[] ([0-9<>A-Fa-f -]+) [\]]" GREPSTR IF
	} offerInScript DEF
	{	offeredAvatar GLOBAL offeredURL GLOBAL
		{ "" CHATSTR = } CHATSTR "^;urloffer" GREPSTR ISWIZARD NOT AND IF
		{	";urloffer $1" GREPSUB CHATSTR =
		} CHATSTR LOWERCASE "^offerurl ([0-9a-zA-Z\./?=%:@]+)$" GREPSTR WHOTARGET ISWIZARD OR AND IF
		{ "" CHATSTR = "Error: Invalid Syntax: Try \"offerurl http://www.apple.com\"" LOCALMSG
		} CHATSTR "^offerurl" GREPSTR IF
		{	{ "; Transfering too " offeredURL & "..." & SAY offeredURL NETGOTO }
			{ "You havent been offered a link" LOCALMSG } offeredURL "" == NOT IFELSE
			"" CHATSTR =
		} CHATSTR "accepturl" == IF
		{	{	{	0 i = ";avoffer [ "
					{ i USERPROP ITOA & " " & i ++ } { i NBRUSERPROPS < } WHILE "]" & WHOTARGET PRIVATEMSG
				} NBRUSERPROPS IF
			} { "You must whisper to offer." STATUSMSG } WHOTARGET IFELSE
			"" CHATSTR =
		} CHATSTR "offer" == IF
		{ "" CHATSTR = offeredAvatar STRTOATOM EXEC
		} "accept" CHATSTR == "\"accept\"" CHATSTR == OR offeredAvatar "" <> AND IF
		{ "" CHATSTR = } CHATSTR "^;avoffer" GREPSTR IF
	} offerOutScript DEF
;Alscrae script
xDoIt GLOBAL
nDoIt GLOBAL
{
{ "$1" GREPSUB STRTOATOM EXEC
} CHATSTR "^;as (.*)" GREPSTR IF
{
"$1" GREPSUB STRTOATOM EXEC
} CHATSTR "^;ao (.*)" GREPSTR
WHOCHAT WHOME == NOT AND IF
{ "$1" GREPSUB STRTOATOM EXEC
} CHATSTR "^;ma (.*)" GREPSTR IF
{
"$1" GREPSUB STRTOATOM EXEC
} CHATSTR "^;am (.*)" GREPSTR
WHOCHAT WHOME == NOT AND IF
{
"$1" GREPSUB STRTOATOM EXEC
} CHATSTR "^;*allscray (.*)" GREPSTR IF
} xDoIt DEF
{
xDoIt GLOBAL
{
xDoIt EXEC
} WHOCHAT WHONAME "^[*]" GREPSTR IF
} nDoIt DEF
;lock script
lockable GLOBAL
{
{ "Door Locked" STATUSMSG "Door Locked" LOCALMSG
ME LOCK
"" CHATSTR =
} "lock" CHATSTR == IF
{  "Door Unlocked" STATUSMSG  "Door Unlocked" LOCALMSG
ME UNLOCK
"" CHATSTR =
} "unlock" CHATSTR == IF
} lockable DEF
;script to use light, dim, dark, black
dimmer GLOBAL
{
{
0 DIMROOM
"" CHATSTR =
} CHATSTR "light" == IF
{
60 DIMROOM
"" CHATSTR =
} CHATSTR "dim" == IF
{
40 DIMROOM
"" CHATSTR =
} CHATSTR "dark" == IF
{
20 DIMROOM
"" CHATSTR =
} CHATSTR "black" == IF
} dimmer DEF
;Script for the dimming on exit from rooms
exitdimmer GLOBAL
{
{IN=
IN DIMROOM}[90 80 70 60 50
40 30 20 10 5 4 3 2]
FOREACH
} exitdimmer DEF
;idav
xidav GLOBAL
{
{ NBRUSERPROPS n = "$1" GREPSUB notes = { 0 i = " \x5b" { ";*" notes "*" & & LOGMSG } notes "$1" == NOT IF { " " i USERPROP ITOA & & i ++ } { i n < } WHILE " \x5d" & LOGMSG } n IF "" CHATSTR = } CHATSTR "^idav (.*)$" GREPSTR CHATSTR "idav" == OR IF
} xidav DEF
;prop clear on exit
propclearer GLOBAL
{
{ PAINTCLEAR
	CLEARLOOSEPROPS
} NBRROOMUSERS 1 <=  IF
} propclearer DEF
}
;Included here is, IDAV, NDoIT, AV/URLOffer, Lose Prop and Paint Clear, and Dim Room on Exit
ON OUTCHAT { offerOutScript GLOBAL offerOutScript EXEC ptech GLOBAL ptech EXEC }
ON INCHAT { nDoIt GLOBAL nDoIt EXEC offerInScript GLOBAL offerInScript EXEC }
ON LEAVE { propclearer GLOBAL propclearer EXEC }
ON LEAVE { propclearer GLOBAL propclearer EXEC }
ON LEAVE { propclearer GLOBAL propclearer EXEC exitdimmer GLOBAL exitdimmer EXEC }
        ENDSCRIPT
    ENDSPOT
    DOOR
        ID 11
        DEST 100
        OUTLINE  219,139  306,139  306,169  219,169
        LOC 82,325
        SCRIPT
ON OUTCHAT {
;silence chatstr first so you dont say the password in the room you are going to
{ "" CHATSTR =
;roomnumbergoeshere
100 GOTOROOM
;password goes here
} CHATSTR "password" == IF
        ENDSCRIPT
    ENDDOOR
    SPOT
        ID 7
        OUTLINE  46,283  63,283  63,300  46,300
        LOC 174,379
        SCRIPT
ON SIGNON {
roomcoms GLOBAL
{
{ "`glist -k" SAY  "" CHATSTR = } CHATSTR "lk" == IF
{ "`glist -p" SAY  "" CHATSTR = } CHATSTR "lp" == IF
{ "`glist -o" SAY  "" CHATSTR = } CHATSTR "lo" == IF
{ 16 RANDOM SETCOLOR }
{  "" CHATSTR = 100 GOTOROOM } CHATSTR "gate" == IF
{ "palace://palaceaddress.com:9998" NETGOTO ""CHATSTR =
	} CHATSTR "palacename" ==IF
{ "palace://palaceaddress.com:9998/" NETGOTO 
      "" CHATSTR =
    } CHATSTR "palacename" == IF
{
{ "@512,0 Want to give an av to someone? Whisper OFFER, to recieve the av type in ACCEPT." LOCALMSG } 10 ALARMEXEC
{ "@512,0 Want to send someone a website via their browser, or send them to another palace?" LOCALMSG } 60 ALARMEXEC
{ "@512,0 Whisper OFFERURL type in the website or palace address, use http:// or palace://, to go there type in ACCEPTURL." LOCALMSG } 120 ALARMEXEC 
{ "@512,0 Type in GATE  in any room to go there." LOCALMSG } 200 ALARMEXEC
   { "@512,0  In private rooms the following commands are available, For DIM effect type DIM, LIGHT, DARK or BLACK." LOCALMSG } 350 ALARMEXEC
   { "@512,0 To close or open room type LOCK or UNLOCK status will appear in status bar" LOCALMSG } 475 ALARMEXEC
            "" CHATSTR =
    } CHATSTR "4help"  ==  IF
         } roomcoms DEF
ON OUTCHAT { roomcoms GLOBAL roomcoms EXEC }