PalaceChat RBScript Compendium

Script Name:	Save / Restore Loose Props
Author:	Pa\/\/n
Sections:	OUTCHAT

Say savelooseprops to save the locations of looseprops in the room.
Say putlooseprops to restore the props to their locations in the room.

if chatstr="savelooseprops" then
	dim i as integer
	for i=nbrlooseprops downto 1
		s=s+format(loosepropid(i),"-0")+","+str(loosepropx(i))+","+str(loosepropy(i))+"/"
	next
	setstring("looseroomprops",s)
	localmsg "Prop locations saved"
	chatstr=""
end if

if chatstr="putlooseprops" then
	dim i,j as integer
	dim s,lprop as string
	s=getstring("looseroomprops")
	j=countfields(s,"/")-1
	for i=1 to j
		lprop=s.nthfield("/",i)
		addlooseprop val(lprop.nthfield(",",1)),val(lprop.nthfield(",",2)),val(lprop.nthfield(",",3))
	next
	localmsg "Prop locations restored"
	chatstr=""
end if