-	script	itemshower	-1,{
	OnInit:
		set $showeramount, 1000; // amount of item to shower
		set $showerid, 30003; // item id to shower
		set $showermap$, "cmd_fild04"; // map to shower
		bindatcmd "itemshower",strnpcinfo(3)+"::OnShower";
		end;


	OnShower:
		while ( .count < $showeramount ) {
			do {
				.@x = rand(1,500);
				.@y = rand(1,500);
			} while (!checkcell(.map$,.@x,.@y,cell_chkpass));
			makeitem $showerid,1,$showermap$,.@x,.@y;
			set .count, .count + 1;
		}
		set .count, 0;
		end;
}