-   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;
}