View difference between Paste ID: yhsrqF1x and wMzstzn5

 function	script	AMRA	{
 //Tier Stone ID's 1-10
-	if (.@id == 32100) {
+set .ts0, 32100;
 set .ts1, 32101;
 set .ts2, 32102;
 set .ts3, 32103;
 set .ts4, 32104;
 set .ts5, 32105;
 set .ts6, 32106;
 set .ts7, 32107;
-	if (.@id >= 32101 && .@id <= 32109) {
+set .ts8, 32108;
-		prompt "Merge 3 "+getitemname(.@id)+"'s","Apply "+getitemname(.@id)+" to Equipment";
+set .ts9, 32109;
 set .ts10, 32110;
 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 	set .@id, getarg(0);
 	if (.@id == .ts0) {
 		if (countitem(.@id) > 2) {
 			set .@del, ((countitem(.@id)/3)*3);
 			getitem (1 + .@id), (countitem(.@id)/3);
 			delitem .@id, .@del;
 		}
 		end;
 	}
 	if (.@id >= .ts1 && .@id <= .ts9) {
 		prompt "Merge 3 "+getitemname(.@id)+"'s","Apply "+getitemname(.@id)+" to Equipment.";
 		if (@menu == 1) {
 			if (countitem(.@id) == 2) {
 				message strcharinfo(0), "Merge Failed: "+(3 - countitem(.@id))+" more "+getitemname(.@id)+" is needed to merge.";
 				close;
 			}
 			if (countitem(.@id) == 1) {
 				message strcharinfo(0), "Merge Failed: "+(3 - countitem(.@id))+" more "+getitemname(.@id)+"'s are needed to merge.";
 				close;
-		if (@menu == 2) {
+
-			callfunc "AMRACOMB",.@id;
+
 				getitem (1 + .@id), (countitem(.@id)/3);
 				delitem .@id, .@del;
-	if (.@id == 32110) {
+
-		prompt "Apply to Equipment";
+
 				}
-			callfunc "AMRACOMB",.@id;
+
 					dispbottom "Two "+getitemname(.@id)+"'s could not merge.";
 				}
-}//END
+
-
+
-function	script	AMRACOMB	{
+
 		if (@menu == 2) goto AMRACOMB;
 		if (@menu == 255) close;
 	}
-	mes "You can refine an item up to +"+(.@id - 32100)+" using this stone.";
+	if (.@id == .ts10) {
 		prompt "Apply "+getitemname(.@id)+" to Equipment.";
 		if (@menu == 1) goto AMRACOMB;
 
 	}
 AMRACOMB:
 	set .@id, getarg(0);
 	mes "Select what you wish to refine.";
 	mes " ";
 	mes "You can refine an item up to +"+(.@id - .ts0)+" using this stone.";
 	setarray .@position$[1], "Head (Upper)","Armor","Left hand","Right hand","Robe","Shoes","Accessory (Left)","Accessory (Right)","Head (Mid)","Head (Lower)";
 	set .@menu$,"";
 	for (set .@i, 1; .@i <= 10; set .@i, .@i + 1) {
 		if (getequipisequiped(.@i))
 			if (getequiprefinerycnt(.@i) > 0) {
 				set .@menu$, .@menu$ + .@position$[.@i] + " - " + "[+" + getequiprefinerycnt(.@i) + " " + getequipname(.@i) + "]";
 			} else {
 				set .@menu$, .@menu$ + .@position$[.@i] + " - " + "[" + getequipname(.@i) + "]";
 			}
 		set .@menu$, .@menu$ + ":";
 	}
 	set .@part, select(.@menu$);
 	if (!getequipisequiped(.@part)) {
 		next;
 		mes "Nothing equipped in that slot.";
 		close;
 	}
 	if (!getequipisenableref(.@part)) {
 		next;
 		mes "This item is not refineable.";
 		close;
 	}
 	if (!getequipisidentify(.@part)) {
 		next;
 		mes "This has not been identified. Please identify it before attempting to refine.";
-		if (.@part == 1) { set .@reflvl, 256; }
+
-		if (.@part == 2) { set .@reflvl, 16; }
+
-		if (.@part == 3) { set .@reflvl, 2; }
+
-		if (.@part == 4) { set .@reflvl, 32; }
+
-		if (.@part == 5) { set .@reflvl, 4; }
+
-		if (.@part == 6) { set .@reflvl, 64; }
+
-		if (.@part == 7) { set .@reflvl, 8; }
+
-		if (.@part == 8) { set .@reflvl, 128; }
+
-		if (.@part == 9) { set .@reflvl, 512; }
+
-		if (.@part == 10) { set .@reflvl, 1; }
+		set .@tlevel, (.@id - .ts0);
-		set .@tlevel, (.@id - 32100);
+
 		if (getequiprefinerycnt(.@part) > 0) {
 			if (.@currefine == .@tlevel) {
-			if (.@currefine == .@tlevel) { mes "You cannot use this stone on your "+getequipname(.@part)+"."; mes "Current equipment's refinement is equal to the stone's power."; close;}
+				mes "You cannot use this stone on your "+getequipname(.@part)+".";
-			if (.@currefine > .@tlevel) { mes "You cannot use this stone on your "+getequipname(.@part)+"."; mes "Current equipment's refinement is higher than the stone's power."; close;}
+				mes "Current equipment's refinement is equal to the stone's power.";
 				close;
 			}
-				atcommand "@refine "+.@reflvl+" "+(.@tlevel - .@currefine);
+			if (.@currefine > .@tlevel) {
 				mes "You cannot use this stone on your "+getequipname(.@part)+".";
 				mes "Current equipment's refinement is higher than the stone's power.";
-
+
 			}
 			if (.@currefine < .@tlevel) {
 				delitem .@id, 1;
-			atcommand "@refine "+.@reflvl+" "+.@tlevel+"";
+				set .@r, 1;
 				set .@diff, .@tlevel - .@currefine;
-
+				while(.@r <= .@diff) {
-
+					successrefitem .@part;
 					set .@r, .@r + 1;
-return;
+
 				close;
 			}
 		}
 		if (getequiprefinerycnt(.@part) == 0) {
 			delitem .@id, 1;
 			set .@r, 1;
 			while(.@r <= .@tlevel) {
 				successrefitem .@part;
 				set .@r, .@r + 1;
 			}
 			close;
 		}
 	}
 }