viewing paste Unknown #51082 | 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 64 65 66 67 68 69 70 71 72 73
prt_in,136,108,3        script  Pori Gatcha Headgear    563,{
        .@zeny = 1000000;
        .@cashpoints = 50;
        .@item = 42092;
        .@amt = 10;
       
        // setarray .@box1, "chance", item id, amount...
        setarray .@box1, 1, 14316, 2;
        setarray .@box2, 10, 5372, 1, 5380, 1, 5393, 1;
        setarray .@box3, 20, 5357, 1, 5365, 1;
        setarray .@box4, 30, 5338, 1, 5339, 1;
        setarray .@box5, 40, 5314, 1, 5337, 1, 5338, 1;
        setarray .@box6, 50, 5310, 1, 5311, 1, 5312, 1;
        setarray .@box7, 60, 5305, 1, 5255, 1;
        setarray .@box8, 80, 5206, 1, 5205, 1;
        setarray .@box9, 100, 17071, 1;
       
        mes "What do you want to do?";
        next;
        switch(select("View item and rates", (.@item) ? "Use "+.@amt+" x "+ getitemname(.@item):"", (.@zeny) ? "Use "+ F_InsertComma(.@zeny) +" Zeny":"", (.@cashpoints) ? "Use "+ F_InsertComma(.@cashpoints) +" Cashpoints":"")) {
        case 1: // view item rates
                mes "Item x Amount : Rate%";
                mes " "+ getitemname(.@box9[1]) +" x "+ .@box9[2] +" : "+.@box9[0]+"%";
                for(.@i=8;.@i>0;.@i--)
                        for(.@j=1;.@j<getarraysize(getd(".@box"+.@i));.@j+=2)
                        mes " "+ getitemname(getd( ".@box"+.@i+"["+(.@j)+"]")) +" x "+ getd( ".@box"+.@i+"["+(.@j+1)+"]") +" : "+getd( ".@box"+.@i+"[0]")+"%";
                close;
               
        case 2: // use item
                if ( countitem(.@item) < .@amt ) {
                        mes "Sorry, you need "+.@amt+" x "+getitemname(.@item)+" to access my service";
                        close;
                }
                delitem .@item, .@amt;
                break;
               
        case 3: // use zeny
                if ( Zeny < .@zeny ) {
                        mes "Sorry, you need "+F_InsertComma(.@zeny)+" Zeny to access my service";
                        close;
                }
                Zeny -= .@zeny;
                break;
               
        case 4: // use cashpoints
                if ( #CASHPOINTS < .@cashpoints ) {
                        mes "Sorry, you need "+F_InsertComma(.@cashpoints)+" Cashpoints to access my service";
                        close;
                }
                #CASHPOINTS -= .@cashpoints;
                break;
        }
       
        for (.@i = 1; .@i<6; .@i++) {
                cutin "177_0"+.@i,4;
                sleep2 rand(100,200);
                cutin "",255;
        }
       
        .@r = rand(100); if (.@r <= 10) .@r = rand(100);
        while( .@r >= getd( ".@box"+.@boxnum+"[0]" ) ) .@boxnum++;
        .@arr_size = (getarraysize(getd(".@box"+.@boxnum))-1) / 2;
        if(.@arr_size > 1) .@rand_index = rand(1,.@arr_size); else .@rand_index = 1;
        getitem getd(".@box"+.@boxnum+"["+((.@rand_index*2)-1)+"]"), getd(".@box"+.@boxnum+"["+(.@rand_index*2)+"]");
        if ( .@boxnum == 1 || .@boxnum == 2 ) announce "Amazing! [ " +strcharinfo(0)+ " ] has and won "+getitemname(getd(".@box"+.@boxnum+"["+((.@rand_index*2)-1)+"]"))+" x "+getd(".@box"+.@boxnum+"["+(.@rand_index*2)+"]")+" from Pori Gacha!",bc_blue|bc_all;
        emotion 46,strcharinfo(0);
        mes "Congrats!";
        mes "You won :";
        mes "~ ^FF0000"+getitemname(getd(".@box"+.@boxnum+"["+((.@rand_index*2)-1)+"]"))+" x "+ getd(".@box"+.@boxnum+"["+(.@rand_index*2)+"]")+"^000000 !";
        close;
       
       
}
Viewed 156 times, submitted by pajodex.