- shop ENsystem_hat -1,909:-1
- shop ENsystem_ear -1,909:-1
- shop ENsystem_mou -1,909:-1
new_1-1,54,115,4 script Enchant Cash#1 63,{
goto EN_main;
OnInit:
set .EN_Active,0;
// ระบบ Cash = 0 , Item = 1 ขึ้นไป
set .EN_system,0; // Cash
//set .EN_system,501; // Red Potion
// ชื่อ Npc
set .EN_namenpc$,"[ Enchant Cash ]";
// ห้อง NPC
waitingroom "Enchant Cash",0;
// ชื่อ Shop ที่ใช้งาน
setarray .EN_ennpc$[0],"ENsystem_hat","ENsystem_ear","ENsystem_mou"; // หมวก,หู,ปาก
// ประเภทหมวก (พยายามอย่าเกิน 120 ชิ้น)
setarray .EN_enhatid[0],4001,4002; // รหัสไอเทมคุณสมบัติ Enchant
setarray .EN_enhatpr[0],100,110; // ราคาที่ใช้ Enchant
// ประเภทหู (พยายามอย่าเกิน 120 ชิ้น)
setarray .EN_enearid[0],4003,4004; // รหัสไอเทมคุณสมบัติ Enchant
setarray .EN_enearpr[0],50,60; // ราคาที่ใช้ Enchant
// ประเภทปาก (พยายามอย่าเกิน 120 ชิ้น)
setarray .EN_enmouid[0],4005,4006; // รหัสไอเทมคุณสมบัติ Enchant
setarray .EN_enmoupr[0],70,80; // ราคาที่ใช้ Enchant
// System Stop!!
sleep2 300;
npcshopitem ""+.EN_ennpc$[0]+"",909,1;
npcshopdelitem ""+.EN_ennpc$[0]+"",909;
npcshopitem ""+.EN_ennpc$[1]+"",909,1;
npcshopdelitem ""+.EN_ennpc$[1]+"",909;
npcshopitem ""+.EN_ennpc$[2]+"",909,1;
npcshopdelitem ""+.EN_ennpc$[2]+"",909;
for(set .@i,0; .@i < getarraysize(.EN_enhatid); set .@i,.@i+1)
npcshopadditem ""+.EN_ennpc$[0]+"",.EN_enhatid[.@i],.EN_enhatpr[.@i];
for(set .@i,0; .@i < getarraysize(.EN_enearid); set .@i,.@i+1)
npcshopadditem ""+.EN_ennpc$[1]+"",.EN_enearid[.@i],.EN_enearpr[.@i];
for(set .@i,0; .@i < getarraysize(.EN_enmouid); set .@i,.@i+1)
npcshopadditem ""+.EN_ennpc$[2]+"",.EN_enmouid[.@i],.EN_enmoupr[.@i];
set .EN_Active,1;
end;
EN_main:
mes .EN_namenpc$;
if (!.EN_Active) {
mes "ระบบกำลังเตรียมพร้อม";
mes "โปรดรอ 10 วินาที";
close;
}
if (.EN_system && getitemname(.EN_system) == "null") {
mes "ระบบ Enchant Item ทำงานผิดพลาด";
mes "กรุณาแจ้ง GM";
close;
}
mes "ยินดีต้อนรับสู่ระบบ Enchant";
mes "โปรดเลือกเมนู";
next;
switch(select("- ทำการ Enchant","- รายละเอียด","- ยกเลิก")) {
case 1:
deletearray @bought_nameid[0],255;
deletearray @bought_quantity[0],255;
mes .EN_namenpc$;
mes "กรุณาเลือกของที่ต้องการ Enchant";
set @equip,select(""+(getequipisequiped(1)?"หมวก - ["+getequipname(1)+"]":"")+":"+(getequipisequiped(9)?"หู - ["+getequipname(9)+"]":"")+":"+(getequipisequiped(10)?"ปาก - ["+getequipname(10)+"]":"")+"");
close2;
if (@equip == 1) set @equip,1;
else if (@equip == 2) set @equip,9;
else if (@equip == 3) set @equip,10;
else set @equip,0;
mes .EN_namenpc$;
switch (getiteminfo(getequipid(@equip),5)) {
case 512:
case 513:
case 2048:
mes "คุณเลือก : "+getequipname(9)+"";
mes "กรุณาเลือกคุณสมบัติเสริม";
callshop ""+.EN_ennpc$[1]+"",1;
npcshopattach ""+.EN_ennpc$[1]+"";
break;
case 256:
case 768:
case 769:
case 1024:
mes "คุณเลือก : "+getequipname(1)+"";
mes "กรุณาเลือกคุณสมบัติเสริม";
callshop ""+.EN_ennpc$[0]+"",1;
npcshopattach ""+.EN_ennpc$[0]+"";
break;
case 1:
case 4096:
mes "คุณเลือก : "+getequipname(10)+"";
mes "กรุณาเลือกคุณสมบัติเสริม";
callshop ""+.EN_ennpc$[2]+"",1;
npcshopattach ""+.EN_ennpc$[2]+"";
break;
default:
mes "พบข้อพกพร่องกรุณาแจ้งทีมงาน";
close;
}
end;
case 2:
mes .EN_namenpc$;
mes "ระบบ Enchant สามารถ Enchant ได้เฉพาะ หมวก หู ปาก";
mes "ไม่มีโอกาศเสียหายใดๆทั้งสิ้น";
mes "และสามารถ Enchant ใส่ช่องการ์ดที่ 4 เท่านั้น !!";
mes "^FF0000การ์ดและตีบวกทั้งหมดจะหายเมื่อ Enchant^000000";
if (.EN_system < 1)
mes "ระบบ Enchant นี้ใช้ Cash ในการใช้งาน";
else
mes "ระบบ Enchant นี้ใช้ "+getitemname(.EN_system)+" ในการใช้งาน";
break;
case 3:
close;
}
close;
// System Enchant
OnBuyItem:
set .@EN_EE,getequipid(@equip);
set .@EN_EB,0;
set .@EN_EC,0;
set .@EN_EA,0;
set .@EN_ER,0;
set .@EN_ED,0;
// การคงอยู่ไว้ของการ์ดและตีบวก
//set .@EN_EB,getequiprefinerycnt(@equip); // ตีบวกเดิม
//set .@EN_EC,getequipcardid(@equip,0); // ช่องการ์ด 1 เดิม
//set .@EN_EA,getequipcardid(@equip,1); // ช่องการ์ด 2 เดิม
//set .@EN_ER,getequipcardid(@equip,2); // ช่องการ์ด 3 เดิม
set .@EN_ED,getequipcardid(@equip,3);
if (countitem(.@EN_EE) > 1) {
mes .EN_namenpc$;
mes "กรุณาพก "+getitemname(.@EN_EE)+" เพียงชิ้นเดียว";
mes "เพื่อป้องกันความผิดพลาดที่จะเกิด";
close;
}
if (.@EN_ED) {
mes .EN_namenpc$;
mes "คุณมีอะไรอยู่ใน ช่องการ์ดที่ 4";
mes "กรุณาไปถอดออกแล้วมาใหม่";
close;
}
switch (getiteminfo(.@EN_EE,5)) {
case 512:
case 513:
case 2048:
for(set .@i,0; .@i < getarraysize(.EN_enearid); set .@i,.@i+1)
if (.EN_enearid[.@i] == @bought_nameid) {
set .@price,.EN_enearpr[.@i];
break;
}
break;
case 256:
case 768:
case 769:
case 1024:
for(set .@i,0; .@i < getarraysize(.EN_enhatid); set .@i,.@i+1)
if (.EN_enhatid[.@i] == @bought_nameid) {
set .@price,.EN_enhatpr[.@i];
break;
}
break;
case 1:
case 4096:
for(set .@i,0; .@i < getarraysize(.EN_enmouid); set .@i,.@i+1)
if (.EN_enmouid[.@i] == @bought_nameid) {
set .@price,.EN_enmoupr[.@i];
break;
}
break;
default:
mes .EN_namenpc$;
mes "พบข้อพกพร่องกรุณาแจ้งทีมงาน";
close;
}
if (@bought_quantity > 1) set @bought_quantity,1;
mes .EN_namenpc$;
mes "คุณต้องการ Enchant : "+getitemname(.@EN_EE)+"";
mes "โดยใช้ : "+getitemname(@bought_nameid)+"";
mes "แต่ฉันต้องการค่าใช้จ่ายในการ Enchant";
mes "จำนวน : "+.@price+" "+(.EN_system < 1?"Cash":""+getitemname(.EN_system)+"")+"";
mes "^FF0000การ์ดและตีบวกทั้งหมดจะหายเมื่อ Enchant^000000";
next;
if (select("- ตกลง, ดำเนินการต่อ","- ยัง, ฉันมีไม่พอ") == 2)
close;
query_sql "SELECT `id` FROM `gjz_enchant_block` WHERE `id`='"+.@EN_EE+"'",.@EN_BLOCK;
if (.@EN_BLOCK) {
mes .EN_namenpc$;
mes ""+getitemname(.@EN_BLOCK)+" นี้";
mes "ห้ามนำมา Enchant เข้าใจนะ";
close;
}
if (.EN_system < 1) {
if (#CASHPOINTS < .@price) {
mes .EN_namenpc$;
mes "คุณมี Cash ไม่พอ";
mes "กรุณามาใหม่อีกครั้ง";
close;
}
mes .EN_namenpc$;
mes "Cash ปัจจุบัน : "+#CASHPOINTS+"";
mes "ถูกใช้ไป : "+.@price+"";
mes "คงเหลือ : "+(#CASHPOINTS-.@price)+"";
set #CASHPOINTS,#CASHPOINTS - .@price;
}
else if (.EN_system > 0) {
if (countitem(.EN_system) < .@price) {
mes .EN_namenpc$;
mes "คุณมี "+getitemname(.EN_system)+" ไม่พอ";
mes "กรุณามาใหม่อีกครั้ง";
close;
}
mes .EN_namenpc$;
mes ""+getitemname(.EN_system)+" ปัจจุบัน : "+countitem(.EN_system)+"";
mes "ถูกใช้ไป : "+.@price+"";
mes "คงเหลือ : "+(countitem(.EN_system)-.@price)+"";
delitem .EN_system,.@price;
}
mes "Enchant Success !!";
delitem2 getequipid(@equip),1,1,getequiprefinerycnt(@equip),0,getequipcardid(@equip,0),getequipcardid(@equip,1),getequipcardid(@equip,2),getequipcardid(@equip,3);
getitem2 .@EN_EE,1,1,.@EN_EB,0,.@EN_EC,.@EN_EA,.@EN_ER,@bought_nameid;
deletearray @bought_nameid[0],255;
deletearray @bought_quantity[0],255;
set @equip,0;
close;
}