- script Upgrade Orb 112,{
disable_items;
setarray .@eq[1], EQI_HEAD_TOP, EQI_HEAD_MID, EQI_HEAD_LOW;
for(.@i = 1; .@i <= getarraysize(.@eq);.@i++){
if(getequipisequiped(.@eq[.@i])){
.@menu$ = .@menu$+F_getpositionname(.@eq[.@i])+" ~ [ " + getequipname(.@eq[.@i]) + " ]";
.@equipped = 1;
}
.@menu$ = .@menu$ + ":";
}
if (!.@equipped) {
mes "You aren't wearing any headgear";
close;
}
.@choice = select(.@menu$);
.@part = .@eq[.@choice];
.@hg_id = getequipid(.@part);
if (countitem(.@hg_id) > 1) {
mes "Kamu membawa lebih dari 1 "+getitemname(.@hg_id);
mes "Bawalah hanya 1 untuk upgrade";
close;
}
.@card0 = getequipcardid(.@part,0);
.@card1 = getequipcardid(.@part,1);
.@card2 = getequipcardid(.@part,2);
.@card3 = getequipcardid(.@part,3);
if (!.@card3) {
mes "Gada orb nya headgearnya euuy";
close;
}
.@rate = 50;
.@upgrade = getd(".up"+.@card3);
if (!.@upgrade) {
mes "Gak bisa di upgrade ini mah";
close;
}
mes "[Debug]";
mes "Card Slot 0 = "+ .@card0;
mes "Card Slot 1 = "+ .@card1;
mes "Card Slot 2 = "+ .@card2;
mes "Card Slot 3 = "+ .@card3;
mes " ";
mes "Kalo sukses "+getitemname(.@card3)+" jadi "+getitemname(.@upgrade)
next;
if (select("Upgrade:Cancel")==2){
mes callfunc("F_Bye");
close;
}
mes "Pencet Enter atau click close";
close2;
delitem .@hg_id, 1;
delitem .req_item, 1;
progressbar "ffff00", 3;
if (rand(99) < .@rate) {
getitem2 .@hg_id,1,1,0,0,.@card0,.@card1,.@card2,.@upgrade;
} else {
getitem2 .@hg_id,1,1,0,0,.@card0,0,0,0;
}
end;
OnInit:
.req_item = 501;
.up501 = 502;
end;
}