viewing paste Unknown #49562 | Athena

Posted on the | Last edited on
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-       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;
}
 
Viewed 395 times, submitted by jasc.