viewing paste Unknown #45747 | 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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
function        script  Rnd_Item        {
        setarray .@item_list, 35005, 35006, 35007, 35008, 35009, 35044, 35050, 35051, 35052, 35053,
                                                  35054, 35055, 35058, 35072, 35073, 35074, 35075, 35076, 35077, 35078,
                                                  35082, 35083, 35084, 35085, 35086, 35087, 35088, 35089, 35090, 35091,
                                                  35092, 35093, 35094, 35095, 35096, 35097, 35098, 35099, 35100, 35101,
                                                  35102, 35103, 35104, 35105, 35112, 35113, 35114, 35115, 35116, 35117,
                                                  35123, 35124, 35125, 35126, 35127, 35128, 35131, 35132, 35133, 35134,
                                                  35135, 35136, 35137, 35138, 35139, 35140, 35141, 35142, 35144, 35154,
                                                  35155, 35156, 35157, 35158, 35173, 35174, 35175, 35176, 35177, 35178,
                                                  35178, 35179, 35180, 35185, 35186, 35187, 35191, 35192, 35193, 35194,
                                                  35195, 35216, 35226, 35227, 35229, 35230, 35231, 35232, 35233, 35234,
                                                  35237, 35238, 35239, 35240, 35241, 35247, 35254, 35255, 35256, 35257,
                                                  35079, 35080, 35081, 35011, 35012, 35013, 35014, 35015, 35018, 35019,
                                                  35023, 35024, 35025, 35026, 35027, 35029, 35030, 35031, 35032, 35033,
                                                  35034, 35041, 35042, 35043, 35049, 35060, 35061, 35062, 35063, 35064,
                                                  35065, 35066, 35067, 35068, 35108, 35109, 35110, 35182, 35183, 35198,
                                                  35020, 35021, 35022, 35004, 35010, 35040, 35047, 35056, 35057, 35118,
                                                  35163, 35246;
        setarray .@item_rate, 10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10, 10, 10, 10, 10, 10, 10, 10,
                                                  10, 10, 10,  5,  5,  5,  5,  5,  5,  5,
                                                   5,  5,  5,  5,  5,  5,  5,  5,  5,  5
                                                   5,  5,  5,  5,  5,  5,  5,  5,  5,  5
                                                   5,  5,  5,  5,  5,  5,  5,  5,  5,  5
                                                   5,  5,  5,  1,  1,  1,  1,  1,  1,  1
                                                   1,  1;
        setarray .@item_announce, 35004, 35010, 35040, 35047, 35056, 35057, 35118, 35163, 35246;
       
        .@list_size = getarraysize(.@item_list);
        .@rate_size = getarraysize(.@item_rate);
        .@anno_size = getarraysize(.@item_announce);
       
        if (.@list_size != .@rate_size) {
                message strcharinfo(0),"Error! Tell Administrator. Source: Rnd_Item, Error: Item List Size != Item Rate Size.";
                end;
        }
        for (.@i = 0; .@i < .@rate_size; .@i++)
                .@count_temp = .@count_temp + .@item_rate[.@i];
       
        .@chance = rand(.@count_temp);
       
        for (.@x = 0; .@x < .@rate_size; .@x++) {
                .@chance = .@chance - .@item_rate[.@x];
                if (.@chance <= 0) break;
        }
        getitem .@item_list[.@x], 1;
       
        for (.@d = 0; .@d < .@anno_size; .@d++) {
                if (.@item_list[.@x] == .@item_announce[.@d]) {
                        announce strcharinfo(0)+" Got a "+getitemname(.@item_list[.@x])+" from Random Box.",0;
                }
        }
        end;
}
Viewed 643 times, submitted by unknown.