viewing paste Unknown #45625 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
function        script  Rnd_Item        {
        setarray .@item_list, 501, 502;
        setarray .@item_rate, 100, 1;
       
        .@a = getarraysize(.@item_list);
        .@b = getarraysize(.@item_rate);
       
        if (.@a != .@b) {
                message strcharinfo(0),"Error! Tell Administrator. Source: Rnd_Item";
                end;
        }
        for (.@i = 0; .@i < .@b; .@i++)
                .@count_temp = .@count_temp + .@item_rate[.@i];
       
        .@chance = rand(.@count_temp);
       
        for (.@i = 0; .@i < .@b; .@i++) {
                if (.@chance - .@item_rate[.@i] <= 0) break;
        }
        getitem .@item_list[.@i], 1;
        if (getarg(0))
                delitem getarg(0), 1;
        end;
}
Viewed 589 times, submitted by unknown.