viewing paste Unknown #14637 | Text

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
// http://rathena.org/board/topic/83017-pro-lotti-girl-refine-master/
prontera,120,169,6      script  Lotti Girl      714,{
        mes "[Lotti Girl]";
        mes "Greetings, ^008800"+strcharinfo(0)+"^000000! Ready for my exciting offer?";
        next;
        mes "[Lotti Girl]";
        mes "I'm Lotti! I'll exchange cool";
        mes "random prizes for every";
        mes "^ff0000100 Poring Coins^000000 you give to me.";
        next;
        mes "[Lotti Girl]";
        mes "Our Grand prize is:";
        mes "^ff0000Flapping Angel Wing [0]^000000";
        mes "Special prizes are:";
        mes "^ff00005,000 SPECs^000000";
        mes "^ff00001x Membership Card (3-day VIP)^000000";
        mes "and ^ff000050 Yggdrasilberries^000000";
        next;
        mes "[Lotti Girl]";
        mes "You can still get random item like ^008800Level 3, 5 or 7 Foods^000000 and ^008800Reset Certificates^000000 if you failed to get the grand prize and special prizes.";
        mes " ";
        mes "If you have enough ^ff0000Poring Coins^000000, you will be able to choose from two options.";
        if (countitem(7539) < 100)
                close;
        next;
        if(select("Deal me in!:No way...")==2)
                close;
        mes "[Lotti Girl]";
        mes "Here we go...";
        delitem 7539,100;
        set .@Total,8;
        //<%>,<ItemID>,<Amount>
        setarray .@P1[0],(2/10),5210,1;
        setarray .@P2[0],5,6153,5000;
        setarray .@P3[0],10,14232,5;
        setarray .@P4[0],60,12043,2;
        setarray .@P5[0],70,12065,2;
        setarray .@P6[0],60,12087,2;
        setarray .@P7[0],10,7283,1;
        setarray .@P8[0],10,7282,1;
        setarray .@Default[0],608,3;
        set .@i, rand(1,.@Total);
        if (rand(1,100) > getd(".@P"+.@i+"[0]"))
        {
                for(set .@j,0; .@j<getarraysize(.@Default); set .@j,.@j+2)
                {
                        getitem .@Default[.@j], .@Default[.@j+1];
                        if(!.@k[0])
                                setarray .@k[0], .@Default[.@j], .@Default[.@j+1];
                }
        }
        else{
                for(set .@j,1; .@j<getarraysize(getd(".@P"+.@i)); set .@j,.@j+2)
                {
                        getitem getd(".@P"+.@i+"["+.@j+"]"), getd(".@P"+.@i+"["+(.@j+1)+"]");
                        if (!.@k[0])
                        {
                                set .@gz,.@i;
                                setarray .@k[0], getd(".@P"+.@i+"["+.@j+"]"), getd(".@P"+.@i+"["+(.@j+1)+"]");
                                break;
                        }
                }
        }
        if(1<=.@gz&&.@gz<=4)
                announce "Congratulations! "+strcharinfo(0)+" just received "+getitemname(.@k[0])+" x "+.@k[1]+" from Lotti Girl (prontera 139 173)!",0;
        specialeffect2 248;
        close;
}
Viewed 408 times, submitted by unknown.