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
