Chance pet evo problem

[edwardluciano]

SIzlude,212,168,1	script	Will Conner	923,{
set .@npcname$,"[^0000FFWill Corner^000000]"; //<- NPC Name.

cutin "3rd_mechanic",2;

mes .@npcname$;
mes "ข้าเป็นนักชีววิทยา เชิงอนุกรักษ์ สัตว์พันธุ์ หายาก เจ้ามีอะไรให้ช่วยรึ ?";
menu 
"^00FF00•^000000 ข้าอยากทำสัตว์เลี้ยง",peme1,
"^0000FF•^000000 ข้าอยากพัฒนาสัตว์เลี้ยง",peme2,
"^0000FF•^000000 ข้าจะหาของทำสัตว์เลี้ยงได้ที่ไหน",peme4,
"^FF0000•^000000 เปล่าข้าไม่ได้จะให้ช่วยอะไร",peme3;

peme1:
next;
mes .@npcname$;
mes "ในการทำสัตว์เลี้ยงเจ้าต้องมีของดังนี้ !!";
mes "^FF0000Bloody Rune^000000 300 ea.";
mes "^FF0000Rune of Darkness^000000 300 ea.";
mes "^FF0000Stone of Sage^000000 1 ea.";
mes "กับเงินอีก ^FF00002,000,000^000000 Zeny";
mes "เจ้ามีของที่ข้าต้องการไหม ?";

menu 
"^00FF00•^000000 มีซิข้าเตรียมมาหมดละ",apeme1,
"^0000FF•^000000 เอิ่ม..ขอเวลาข้าหาก่อนนะ",apeme2,
"^FF0000•^000000 เอิ่ม...ข้าว่าข้าไม่สนใจแล้าวหล่ะ",peme3;


apeme1:
next;
if (countitem(7563) < 300) goto NoItem;
if (countitem(7511) < 300) goto NoItem;
if (countitem(12040) < 1) goto NoItem;
if (Zeny < 2000000) goto NoZen;
//set $LW4,rand (1,40);
//if ($LW4 == $LW2) goto Pick4;
//Script Random
mes .@npcname$;
mes "เรียบร้อบหวังว่าเจ้าจะพอใจกับสัตว์ที่ได้ออกมานะ !!";
delitem 7511,300;
delitem 7563,300;
delitem 12040,1;
set Zeny,Zeny-2000000;
getitem 9200,1;
cutin "",255;
close;

apeme2:
next;
mes .@npcname$;
mes "ข้าเชื่อว่าเจ้าหาได้แน่ พยายามเข้า สิ่งที่น่าอัศจรรย์รอเจ้าอยู่ !!";
cutin "",255;
close;

peme2:
next;
if ( getpetinfo(PET_CLASS) ) {
		mes .@npcname$;
		mes "จงให้สัตว์เลี้ยงกลับกลายเป็นไข่เสียก่อนเพื่อพัฒนาร่าง";
		cutin "",255;
		close;
	}
	getinventorylist;
	for ( .@i = 0; .@i < @inventorylist_count; .@i++ ) {
		if ( @inventorylist_card1[.@i] != 0  ) {
			query_sql "select intimate, 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 ) ), .@intimate, .@class, .@level, .@equipped, .@name$;
			if ( .@intimate > .pet_min_friendly ) {
				.@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 .@npcname$;
		mes "ข้าว่า เจ้ายังไม่มี ไข่ของสัตว์เลี้ยงที่ สนิทสนมอยู่เลยนะ ลองตรวจสอบดูดีๆ";
		cutin "",255;
		close;
	}
	mes .@npcname$;
	mes "จงเลือกไข่สัตว์เลี้ยงที่เจ้าต้องการ พัฒนาร่างให้กับมัน";
	next;
	.@s = select( .@menu$ ) -1;
	mes "selected : "+ .@pet_name$[.@s];
	mes "level : "+ .@pet_level[.@s];
	mes "equipped : "+( ( .@pet_equipped[.@s] )? "Yes" : "No" );
	if ( getd( ".petr"+ .@pet_class[.@s] ) ) {
		mes "require :-";
		.@size = getarraysize( getd( ".petr"+ .@pet_class[.@s] ) );
		for ( .@i = 0; .@i < .@size; .@i += 2 )
			mes getd( ".petr"+ .@pet_class[.@s] +"["+( .@i +1 )+"]" )+"x "+ getitemname( getd( ".petr"+ .@pet_class[.@s] +"["+ .@i +"]" ) );
	}
	next;
	if ( !getd( ".pet"+ .@pet_class[.@s] ) ) {
		mes .@npcname$;
		mes "สัตว์เลี้ยงของเจ้าได้พัฒนามาถึงจุดสูงสุดแล้ว";
		cutin "",255;
		close;
	}
	if ( .@pet_level[.@s] < .min_level ) {
		mes .@npcname$;
		mes "เลเวล สัตว์เลี้ยงของเจ้ายังไม่ถึง เกณฑ์ในการพัฒนาร่าง";
		cutin "",255;
		close;
	}
	if ( .@pet_equipped[.@s] ) {
		mes .@npcname$;
		mes "เจ้าควรจะให้สัตว์เลี้ยงของเจ้าถิดอุปกรณ์สวมใส่ก่อนนะ";
		cutin "",255;
		close;
	}
	if ( getd( ".petr"+ .@pet_class[.@s] ) ) 
	{
		.@size = getarraysize( getd( ".petr"+ .@pet_class[.@s] ) );
		for ( .@i = 0; .@i < .@size; .@i += 2 ) 
		{
			if ( countitem( getd( ".petr"+ .@pet_class[.@s] +"["+ .@i +"]" ) ) < getd( ".petr"+ .@pet_class[.@s] +"["+( .@i +1 )+"]" ) ) 
			{
				mes "you need "+ getd( ".petr"+ .@pet_class[.@s] +"["+( .@i +1 )+"]" ) +"x "+ getitemname( getd( ".petr"+ .@pet_class[.@s] +"["+ .@i +"]" ) ) +" to evolve this pet";
				cutin "",255;
				close;
			}
		}
		for ( .@i = 0; .@i < .@size; .@i += 2 ) 
		{
			delitem getd( ".petr"+ .@pet_class[.@s] +"["+ .@i +"]" ), getd( ".petr"+ .@pet_class[.@s] +"["+( .@i +1 )+"]" );
			.@rand = rand(100);
			//getd( ".pet"+ .@pet_class[.@s] +"["+ getd(".petc"+.@pet_class[.@s] +"["+.@i+"]") +"]" );
			.@chance = getd( ".petc"+.@pet_class[.@s] +"["+.@i+"]");
			if( .@rand <= .@chance ){ .@a_id  = .@i; }
			else { .@a_id  = getd( ".petc"+.@pet_class[.@s] +"["+.@i +1+"]"); } 
			

		}	
	}
	//makepet .@get_pet_id = getd( ".pet"+ .@pet_class[.@s] +"["+ rand( getarraysize( getd( ".pet"+ .@pet_class[.@s] ) ) ) +"]" );
	
	makepet .@get_pet_id = getd( ".pet"+ .@pet_class[.@s] +"["+ .@a_id +"]" );	
	
	mes "สัตว์เลี้ยง "+ .@pet_name$[.@c] +" ของเจ้าได้พัฒนา เป็น "+ getmonsterinfo( .@get_pet_id, 0 )+" เรียบร้อย ";
	mes "เจ้าจะตั้งชื่อให้มันว่าอะไรดีหล่ะ ~";
	cutin "",255;
	close;

peme3:
next;
mes .@npcname$;
mes "อย่าลืมหล่ะ ข้าเป็นนักชีววิทยา เชิงอนุกรักษ์ สัตว์พันธุ์ หายาก หากเจ้าสนใจ นึกถึงข้าคนแรกเลยนะ !!";
cutin "",255;
close;

peme4:
next;
mes .@npcname$;
mes "เจ้าสามารถใช้คำสั่ง @whodrops ในการค้นหาได้ !!";
cutin "",255;
close;

NoItem:
next;
mes .@npcname$;
mes "ขาดเหลือแต่เพียงของบางอย่างที่ต้องใช้สัตว์เลี้ยง !!";
mes "ข้าเชื่อว่าเจ้าหาได้แน่ พยายามเข้า สิ่งที่น่าอัศจรรย์รอเจ้าอยู่ !!";
cutin "",255;
close;

NoZen:
next;
mes .@npcname$;
mes "ขาดเหลือแต่เพียงค่าแรงของข้าที่จะทำสัตว์เลี้ยงให้เจ้า !!";
mes "ข้าเชื่อว่าเจ้าหาได้แน่ พยายามเข้า สิ่งที่น่าอัศจรรย์รอเจ้าอยู่ !!";
cutin "",255;
close;

OnInit:



	.min_level = 1; // minimum level 80 to change pet egg
	.pet_min_friendly = getbattleflag("pet_support_min_friendly");
	
	
	//setarray getd( ".petr"+ <require pet egg> ), <require itemID 1>, <require item require 1>, <require itemID 2>, <require item require 2>, ...
	setarray getd( ".petr"+ 1932 ), 7224,1, 9200,1; // Garden Keeper
	//setarray getd( ".petr"+ 1707 ), 7224,1, 9201,1; // Thanatos Dolor
	
	//add more as needed
	
	
	//.petc1011 = PetChance for ID 1932(90%=>1707,10%=>1921). If chance is not set then its 100%
	setarray getd( ".petc"+ 1932 ), 10, 90; 
		
	//add more as needed
	
	//setarray getd( ".pet"+ <require pet egg> ), <random pet egg 1>, <random pet egg 2> ....
	setarray getd( ".pet"+ 1932 ), 1707, 1921; // สาย Angel 1  Garden Keeper เป็น  Thanatos Dolor , Incarnation of Morroc (4)
	
	//add more as needed

waitingroom "Pet Evolution" , 0;

end;

}

i change chance to get Incarnation of Morroc (4) egg but still get Thanatos Dolor  helpme plz