PalaceChat RBScript Compendium

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

Attracts all loose props towards your cursor.
Say magnet to use.

if chatstr="magnet" then
	dim x,y,dx,dy,pawnx,pawny,sm,i,j as integer
	for i=1 to nbrlooseprops
		x=loosepropx(i)
		y=loosepropy(i)
		dx=mousex-22-x
		dy=mousey-22-y
		sm=40
		for j=0 to 40
			pawnx=j*dx/sm+x
			pawny=j*dy/sm+y
			if j/2*2=j then
				movelooseprop(pawnx,pawny,i)
			else
				sm=sm+1
			end if
		next
	next
	chatstr=""
end if