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