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