PalaceChat RBScript Compendium

Script Name:	Jump on bed
Author:	Pa\/\/n
Sections:	ENTER, OUTCHAT

Place the script in the door you have placed overlaying a bed.

;START_ONENTER

	NAKED
	LOCALMSG "You can jump on the bed by standing in the middle of it and saying "+chr(&h22)+"jump"+chr(&h22)+"."
	LOCALMSG "...But don't let Mom catch you!"

;END_ONENTER

;START_ONOUTCHAT

	if chatstr="jump" then
		chatstr=""
		
		if not inspot(spotid,posx,posy) then
			localmsg "@"+str(posx)+","+str(posy)+" !You can't! You're not in the middle of the bed!"
			return
		end if
		
		dim sm,x,y,dx,dy,i as integer
		sm=40
		x=posx
		y=posy
		dx=(posx+((rnd*65)-(rnd*65)))-x
		dy=(posy+((rnd*20)-(rnd*20)))-sm*15+15-y
		
		for i=0 to sm-2
			dy=15+dy
			setpos i*dx/sm+x,i*dy/sm+y
		next
		
		if not inspot(spotid,posx,posy) then
			SETPOS POSX,roomheight-40
			SAY "!WAAAAAaaaaa!"
			SAY "!I fell off!"
		end if
		
	end if

;END_ONOUTCHAT