How to make the default random? Like 5 items in random..

[Meister]

prontera,155,181,5 script Lotti Girl 100,{

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 (1) {

mes "Here we go...";

delitem .cost[0], .cost[1];

.@rand = rand(.totalchance);

.@r = 0; // <-- think you forgot to put this

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] +"!", 0;

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 .p1, 70, 501,25; // debugging ...

// setarray .p2, 70, 502,1;

// setarray .p3, 40, 503,1;

// setarray .p4, 40, 504,1;

// setarray .p5, 40, 505,1;

// setarray .p6, 50, 506,1, 507,1, 508,1, 509,1;

// setarray .p7, 25, 512,1;

// setarray .p8, 5, 513,1;



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%

setarray .cost, 7227,300;

.total = 9;



freeloop 1;

.@i = 1;

while ( .@i <= .total ) {

.totalchance = .totalchance + getd(".p"+ .@i );

.@j = 1;

.@size = getarraysize( getd(".p"+ .@i ) );

while ( .@j < .@size ) {

.ann$[.@i] = .ann$[.@i] + getd( ".p"+ .@i +"["+( .@j +1 )+"]" ) +"x "+ getitemname( getd( ".p"+ .@i +"["+ .@j +"]" ) ) +( ( .@j == .@size -2 )? "":"," ); // I think Euphy forgotten to make announcement when configuration has set more than 1 items

.@j += 2;

}

.@i++;

}

freeloop 0;

}

 

yeah. The default item is convex mirror box. How to make it a random one. for example the default items are. YGG Box, Convex Mirror Box, ESB and other.. how to set it?

[Capuche]

Maybe you mean 1 random item in the list of randoms items by default ?

prontera,155,181,5	script	Lotti Girl	100,{

	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 (1) {
		callsub L_default;
		mes "Here we go...";
		delitem .cost[0], .cost[1];
		.@rand = rand(.totalchance);
		.@r = 0; // <-- think you forgot to put this
		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] +"!", 0;
		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 .p1, 70, 501,25; // debugging ...
	// setarray .p2, 70, 502,1;
	// setarray .p3, 40, 503,1;
	// setarray .p4, 40, 504,1;
	// setarray .p5, 40, 505,1;
	// setarray .p6, 50, 506,1, 507,1, 508,1, 509,1;
	// setarray .p7, 25, 512,1;
	// setarray .p8, 5, 513,1;

	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;
	callsub L_default;
	setarray .cost, 7227,300;
	.total = 9;

	freeloop 1;
	.@i = 1;
	while ( .@i <= .total ) {
		.totalchance = .totalchance + getd(".p"+ .@i );
		.@j = 1;
		.@size = getarraysize( getd(".p"+ .@i ) );
		while ( .@j < .@size ) {
			.ann$[.@i] = .ann$[.@i] + getd( ".p"+ .@i +"["+( .@j +1 )+"]" ) +"x "+ getitemname( getd( ".p"+ .@i +"["+ .@j +"]" ) ) +( ( .@j == .@size -2 )? "":"," ); // I think Euphy forgotten to make announcement when configuration has set more than 1 items
			.@j += 2;
		}
		.@i++;
	}
	freeloop 0;
	end;
L_default:
	deletearray .p9;
	setarray .p9, 30+30+60+60+60+50+75+95, callfunc( "F_RandMes", 5, 12214,502,503,504,505 ),1; // default ... the chance are added up by 100-n%
	return;
}

List of randoms items

callfunc( "F_RandMes", 5, 12214,502,503,504,505 )// count, item ID, item ID..

[Saisho]

like this?

setarray .p6, 50, 2357,1, 2524,1, 2421,1, 2115,1;

[Meister]

like this?

setarray .p6, 50, 2357,1, 2524,1, 2421,1, 2115,1;

 

No the default p9. Its the default item that will be given. I want it to be like dynamically changing from.. yggberry, convex mirror with the same percentage. 

[kamikaze666]

the same percentage against an item makes the item random so agree with what saisho posted

 

hint: take a look at the gift box items

Edited April 3, 2013 by kamikaze666

[Meister]

Teeway capuche! I'll try this!