;Alan's link room script
;Put the following script in a spot.
;Put the pictures you want to be shown in the same spot.
ON ENTER
{
	linkspot GLOBAL		ME linkspot =
	-1 ME SETSPOTSTATELOCAL
	cmd GLOBAL		"next" cmd =
	5 ME SETALARM
}
ON SELECT
{
	destination GLOBAL
	type GLOBAL
		{ destination " GOTOROOM" & STRTOATOM EXEC } type "rm" == IF
		{ "\"palace://" destination & "\" NETGOTO" & STRTOATOM EXEC } type "pal" == IF
		{ "\"http://" destination & "\" NETGOTO" & STRTOATOM EXEC } type "web" == IF
		{ "\"mailto:" destination & "\" NETGOTO" & STRTOATOM EXEC } type "email" == IF
}
ON ALARM
{
	cmd GLOBAL
	destination GLOBAL
	type GLOBAL
	[
;***Specify link info here***
;Define action in form: [ "type" "destination" "message" ]
; types are: "rm" (room) "pal" (palace) "web" and "email"
; destinations are "room number", "palace address", "webaddress" (omit http://) and "email address"
; for no message set the message to "".
; for no action use [ "" "" "" ].
	[ "" "" "Entry message" ]
	[ "rm" "110" "Room Link Message" ]
	[ "pal" "palace.chatserve.com" "Palace Link Message" ]
	[ "web" "www.chatserve.com/alansscriptlibrary.htm" "Website Message" ]
	[ "email" "support@chatserve.com" "Email message in room" ]
;***end of link info***
	] linkarray =
;***Define the message location***
;E.g. "@250,125 " puts the message at x = 250, y = 125
	"@250,125 " messagelocation =
;***end of message location****
	{ ME GETSPOTSTATE 1 + linkarray LENGTH % newstate = } cmd "next" == IF
	{ ME GETSPOTSTATE 1 - linkarray LENGTH + linkarray LENGTH % newstate =	} cmd "previous" == IF
	newstate ME SETSPOTSTATELOCAL
 linkarray newstate GET temparray =
	temparray 0 GET type =
	temparray 1 GET destination =
	temparray 2 GET message =
	{ messagelocation message & LOCALMSG } message "" == NOT IF
}




;Put the following script in a "next" spot
ON SELECT
{
	linkspot GLOBAL
	cmd GLOBAL
	"next" cmd =
	0 linkspot SETALARM
}


;Put the following script in a "previous" spot
ON SELECT
{
	linkspot GLOBAL
	cmd GLOBAL
	"previous" cmd =
	0 linkspot SETALARM
}