PalaceChat RBScript Compendium

Script Name:	Hop
Author:	Pa\/\/n
Sections:	OUTCHAT

Make a little hop in the room towards your cursor.
Say hop to use.

if chatstr="hop" then
	dim sm,x,y,dx,dy,i as integer
	sm=40
	x=posx
	y=posy
	dx=mousex-x
	dy=mousey-sm*15+15-y
	for i=0 to sm-2
		dy=15+dy
		setpos i*dx/sm+x,i*dy/sm+y
	next
	chatstr=""
end if