ROOM	
	ID 97
	NAME "Kissing Bunnys - WizOnly"
	PICT "alipatch.gif"
	ARTIST "Alissa"
	PICTURE ID 1 NAME "himbun.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "herbun.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 3 NAME "arrowr.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 4 NAME "arrowl.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 17,216  36,216  36,231  17,231
		LOC 26,223
		PICTS 1,0,10 ENDPICTS
		SCRIPT
ON OUTCHAT { MOUSEPOS my = mx =
	my 220 - spoty =	mx 47 - spotx =
			0 i =		1 fdel =		32 nfr =
		0 cx =
		0 cy =
		 {{
			spotx cx - 8 / cx + newx =
			spoty cy - 8 / cy + newy =
			newx ITOA " " & newy ITOA & " ME SETPICLOC" & STRTOATOM EXEC
			newx cx =
			newy cy =
			i ++
		} { i nfr < } WHILE
	spotx ITOA " " & spoty ITOA & " ME SETPICLOC" & STRTOATOM EXEC
	100 ME SETALARM
"" CHATSTR = } CHATSTR "kisshim" == ISWIZARD AND IF
}
ON ALARM { MOUSEPOS my = mx = "@" mx ITOA & " " & my ITOA & " )kiss :Smoooooches" & ROOMMSG
{ 0 10 ME SETPICLOC } 200 ALARMEXEC }
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		OUTLINE 482,181  500,181  500,196  482,196
		LOC 491,188
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON OUTCHAT { MOUSEPOS my = mx =
	my 187 - spoty =	mx 470 - spotx =
			0 i =
		1 fdel =
		32 nfr =
		0 cx =
		0 cy =
		 {{
			spotx cx - 8 / cx + newx =
			spoty cy - 8 / cy + newy =
			newx ITOA " " & newy ITOA & " ME SETPICLOC" & STRTOATOM EXEC
			newx cx =
			newy cy =
			i ++
		} { i nfr < } WHILE
	spotx ITOA " " & spoty ITOA & " ME SETPICLOC" & STRTOATOM EXEC
	100 ME SETALARM
"" CHATSTR = } CHATSTR "kissher" == ISWIZARD AND IF
}
ON ALARM { MOUSEPOS my = mx = "@" mx ITOA & " " & my ITOA & " )kiss :Smoooooches" & ROOMMSG
{ 0 0 ME SETPICLOC } 200 ALARMEXEC }
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 3
		NAME "Click for Instructions"
		DONTMOVEHERE
		SHOWNAME
		OUTLINE 205,4  309,4  309,26  205,26
		LOC 257,15
		SCRIPT
ON SELECT { "Instructions in Log Window" LOCALMSG
"Point your cursor/mouse at the person or place that you want the
Bunny to land a kiss, then say the word kisshim, or the word kissher.
The Bunny willmove to that spot & give a wet one. You have to be in
either Wizard or God mode for this script to work." LOGMSG
"Look in your log" STATUSMSG
}
ON LEAVE {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 6
		DONTMOVEHERE
		DEST 100
		OUTLINE 436,3  509,3  509,30  436,30
		LOC 472,16
		PICTS 3,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 7
		DONTMOVEHERE
		DEST 98
		OUTLINE 2,3  60,3  60,31  2,31
		LOC 31,17
		PICTS 4,0,0 ENDPICTS
		ENDDOOR
	ENDROOM