prontera,156,178,5 script ldfhsdfkljs 100,{
if ( petstat(PET_CLASS) ) {
mes "please return your pet into egg state to continue";
close;
}
getinventorylist;
for ( .@i = 0; .@i < @inventorylist_count; .@i++ ) {
if ( @inventorylist_card1[.@i] == -256 ) {
query_sql "select class, level, equip, name from pet where pet_id = "+( .@id = @inventorylist_card2[.@i] + ( ( @inventorylist_card2[.@i] >= 0 )? 0 : 1 << 16 ) + @inventorylist_card3[.@i] * ( 1 << 16 ) ), .@class, .@level, .@equipped, .@name$;
.@menu$ = .@menu$ +"^0000FF"+ .@name$ +" ^00CC00{"+ getmonsterinfo( .@class, 0 ) +"} ^000000["+ .@level +"] ^FF0000"+( ( .@equipped )? "*equipped" : "" )+":";
.@pet_id[.@c] = .@id;
.@egg_id[.@c] = @inventorylist_id[.@i];
.@pet_name$[.@c] = .@name$;
.@pet_class[.@c] = .@class;
.@pet_level[.@c] = .@level;
.@pet_equipped[.@c] = .@equipped;
.@c++;
}
}
if ( !.@c ) {
mes "your inventory doesn't have any pet egg";
close;
}
mes "select which pet that you want it to evolve";
next;
.@s = select( .@menu$ ) -1;
mes "selected : "+ .@pet_name$[.@s];
mes "level : "+ .@pet_level[.@s];
mes "equipped : "+( ( .@pet_equipped[.@s] )? "Yes" : "No" );
if ( getd( ".pet"+ .@pet_class[.@s] ) )
mes "require : "+ getitemname( getd( ".pet"+ .@pet_class[.@s] ) );
next;
if ( !getd( ".pet"+ .@pet_class[.@s] ) ) {
mes "this pet cannot evolve any further";
close;
}
if ( .@pet_level[.@s] < .min_level ) {
mes "this pet doesn't meet the level requirement";
close;
}
if ( .@pet_equipped[.@s] ) {
mes "please unequip this pet accesory to continue";
close;
}
if ( !countitem( getd( ".pet"+ .@pet_class[.@s] ) ) ) {
mes "you need "+ getitemname( getd( ".pet"+ .@pet_class[.@s] ) ) +" to evolve this pet";
close;
}
delitem getd( ".pet"+ .@pet_class[.@s] ), 1;
delitem2 .@egg_id[.@s], 1, 1, 0, 0, -256, ( .@pet_id[.@s] % ( 1 << 16 ) - ( .@remainder15 = .@pet_id[.@s] % ( 1 << 15 ) ) < ( 1 << 15 ) )? .@remainder15 : ( .@remainder15 - ( 1 << 15 ) ), .@pet_id[.@s] >> 16, 0;
makepet .@get_pet_id = getd( ".pet"+ .@pet_class[.@s] +"["+ rand( 1, getarraysize( getd( ".pet"+ .@pet_class[.@s] ) ) -1 ) +"]" );
mes "your "+ .@pet_name$[.@c] +" has reborn into "+ getmonsterinfo( .@get_pet_id, 0 );
mes "please rename your pet ~";
close;
OnInit:
.min_level = 80; // minimum level 80 to change pet egg
// array getd( ... + <require pet egg> ), <require item>, <random pet egg 1>, <random pet egg 2> ....
setarray getd( ".pet"+ 1002 ), 501, 1113, 1031; // poring pet(1002) with red pot(501) can evolve into drops(1113) or poporing(1031)
setarray getd( ".pet"+ 1011 ), 502, 1042; // chonchon(1011) with orange pot(502) can evolve into steel chonchon(1042)
// add more as needed
end;
}