ROOM
	ID 97
	NAME "Kissing Bunnys - WizOnly"
	PICT "pal37.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 "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 4 NAME "arrowll.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 481,100  499,100  499,115  481,115
		LOC 490,107
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON OUTCHAT { MOUSEPOS my = mx =
my 95 - 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
	SPOT
		ID 3
		NAME "Click for Instructions"
		DONTMOVEHERE
		SHOWNAME
		OUTLINE 205,9  309,9  309,33  205,33
		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
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 142
		OUTLINE 447,5  507,5  507,29  447,29
		LOC 477,18
		PICTS 3,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 98
		OUTLINE 4,3  62,3  62,31  4,31
		LOC 33,17
		PICTS 4,0,0 ENDPICTS
		ENDDOOR
	ENDROOM