viewing paste Unknown #49720 | 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
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;
}
Viewed 144 times, submitted by jascy.