viewing paste rA115288-l Lotti Girl | 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
prontera,155,181,5      script  Lotti Girl      1_F_MARIA,{
        mes "[Lotti Girl]";
        mes "It costs "+ .cost[1] +"x "+ getitemname( .cost[0] ) +" to play.";
        mes " ";
        for ( .@i = 0; .@i < 20; ++.@i )
                mes $lotti_girl_ladder$[.@i];
        if ( countitem( .cost[0] ) < .cost[1] ) close;
        next;
        if ( select( "Deal me in!", "No way..." ) == 2 ) close;
        mes "[Lotti Girl]";
        while ( true ) {
                mes "Here we go...";
                delitem .cost[0], .cost[1];
                .@rand = rand(.totalchance);
                .@r = 0;
                while ( ( .@rand = .@rand - getd( ".p"+ .@r +"[0]" ) ) >= 0 ) .@r++;
                .@size = getarraysize( getd(".p"+ .@r ) );
                for ( .@i = 1; .@i < .@size; .@i += 2 )
                        getitem getd( ".p"+ .@r +"["+ .@i +"]" ), getd( ".p"+ .@r +"["+( .@i +1 )+"]" );
                if ( getd( ".p"+ .@r +"[0]" ) < 50 ) // announce if below 50% chance
                        announce "Congratulations to "+strcharinfo(0)+" for getting "+ .ann$[.@r] +"!", bc_all;
                if ( getd( ".p"+ .@r +"[0]" ) < 10 ) { // score the ladder if below 10% chance
                        copyarray $lotti_girl_ladder$[1], $lotti_girl_ladder$[0], 19;
                        $lotti_girl_ladder$ = strcharinfo(0) +" gains "+ .ann$[.@r] +" at "+ gettimestr( "%d/%m/%Y %H:%M %p", 21 );
                }
                mes " ";
                mes "wanna try again ?";
                next;
                if ( select( "Yes", "No" ) == 2 ) close;
                mes "[Lotti Girl]";
                if ( countitem( .cost[0] ) < .cost[1] ) {
                        mes "it seems you have ran out of "+ getitemname( .cost[0] );
                        close;
                }
        }
        close;
OnInit:
        setarray .cost, 7227,300;
 
        setarray .p1, 70, 607,25;
        setarray .p2, 70, 13710,1;
        setarray .p3, 40, 5471,1;
        setarray .p4, 40, 5210,1;
        setarray .p5, 40, 5224,1;
        setarray .p6, 50, 2357,1, 2524,1, 2421,1, 2115,1;
        setarray .p7, 25, 2701,1;
        setarray .p8, 5, 2394,1;
        setarray .p9, 30+30+60+60+60+50+75+95, 12214,1; // default ... the chance are added up by 100-n%
        .total = 9;
       
        freeloop true;
        for ( .@i = 1; .@i <= .total; ++.@i ) {
                .totalchance += getd(".p"+ .@i );
                .@size = getarraysize( getd(".p"+ .@i ) );
                for ( .@j = 1; .@j < .@size; .@j += 2 ) {
                        .ann$[.@i] += getd( ".p"+ .@i +"["+( .@j +1 )+"]" ) +"x "+ getitemname( getd( ".p"+ .@i +"["+ .@j +"]" ) );
                        if ( .@j < .@size -2 )
                                .ann$[.@i] += ",";
                }
        }
        freeloop false;
        end;
}
Viewed 210 times, submitted by AnnieRuru.