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 647 times, submitted by Guest.