Revert "Cleaned up Zeny manipulation in scripts."

Reverted due to a serious regression.
I'll commit this again once I fixed the issue in the script engine.
Sorry for the inconvenience.

This reverts commit 4faa0ec9df7067cee3eb1c1953fccc6c2f842179.

Signed-off-by: Haru <haru@dotalux.com>

19 files changed, 57 insertions, 57 deletions

diff --git a/npc/merchants/advanced_refiner.txt b/npc/merchants/advanced_refiner.txt
index 853e82f5e..57528e2b4 100644
--- a/npc/merchants/advanced_refiner.txt
+++ b/npc/merchants/advanced_refiner.txt
@@ -147,7 +147,7 @@ S_RefineValidate:
 		}
 		if (countitem(getarg(1)) > 0 && Zeny > getarg(2)) {
 			delitem getarg(1),1;
-			Zeny -= getarg(2);
+			set Zeny, Zeny - getarg(2);
 			return;
 		}
 		mes "[Suhnbi]";
diff --git a/npc/merchants/alchemist.txt b/npc/merchants/alchemist.txt
index 9ae092fa8..af0cbc7d9 100644
--- a/npc/merchants/alchemist.txt
+++ b/npc/merchants/alchemist.txt
@@ -78,7 +78,7 @@ alde_alche,24,188,3	script	Guild Dealer	2_M_ALCHE,{
 				mes "in your inventory.";
 				close;
 			}
-			Zeny -=.@sell;
+			set Zeny, Zeny-.@sell;
 			getitem 7134,.@input; //Medicine_Bowl
 			mes "[Gever Al Sharp]";
 			mes "Thank you.";
@@ -151,7 +151,7 @@ S_SellManual:
 	mes "That'll be "+getarg(1)+" zeny.";
 	next;
 	if (select("Purchase.:Quit.") == 1) {
-		Zeny -=getarg(1);
+		set Zeny, Zeny-getarg(1);
 		getitem getarg(0),1;
 		mes "[Gever Al Sharp]";
 		mes "Thank you for";
diff --git a/npc/merchants/ammo_boxes.txt b/npc/merchants/ammo_boxes.txt
index 2d30e81de..6501a7c6c 100644
--- a/npc/merchants/ammo_boxes.txt
+++ b/npc/merchants/ammo_boxes.txt
@@ -107,7 +107,7 @@ function	script	Func_Casing	{
 				mes "for visiting my shop, and";
 				mes "I hope that you use all";
 				mes "of your ammo wisely.";
-				Zeny -=500*.@amount;
+				set Zeny,Zeny-500*.@amount;
 				delitem getarg(0),500*.@amount;
 				getitem getarg(1),.@amount;
 				close;
diff --git a/npc/merchants/buying_shops.txt b/npc/merchants/buying_shops.txt
index ce9896ad9..f77a45197 100644
--- a/npc/merchants/buying_shops.txt
+++ b/npc/merchants/buying_shops.txt
@@ -62,7 +62,7 @@ que_job01,68,84,1	script	Black Marketeer#Buying	4_M_SITDOWN,{
 					mes "Mr. Hugh, I'll take over your license business. You'll see!";
 					mes "*Giggle Giggle*";
 					getitem 12548,.@input; //Shabby_Purchase_Street
-					Zeny -=(.@input*500);
+					set Zeny,Zeny-(.@input*500);
 				}
 				close;
 			}
@@ -126,7 +126,7 @@ alberta_in,58,52,4	script	Purchasing Team#Buying	1_M_ORIENT01,{
 					} else {
 						mes "Thank you for your patronage.";
 						getitem 6377,.@input; //Buy_Stall_Permit
-						Zeny -=(.@input*200);
+						set Zeny,Zeny-(.@input*200);
 					}
 					close;
 				}
@@ -210,7 +210,7 @@ alberta_in,58,52,4	script	Purchasing Team#Buying	1_M_ORIENT01,{
 				mes .@name$+"....";
 				mes "I like your handwriting.";
 				mes "Okay, you're now approved to open the Bulk Buyer Shop.";
-				Zeny -=10000;
+				set Zeny,Zeny-10000;
 				getitem 6377,5; //Buy_Stall_Permit
 				skill "ALL_BUYING_STORE",1,3;
 				next;
diff --git a/npc/merchants/clothes_dyer.txt b/npc/merchants/clothes_dyer.txt
index 1af1cfd4e..39a12cbc1 100644
--- a/npc/merchants/clothes_dyer.txt
+++ b/npc/merchants/clothes_dyer.txt
@@ -166,7 +166,7 @@ function Dyes {
 		close;
 	}
 	delitem .@DyeItems[getarg((.@s-1)*2)],1;
-	Zeny -=10000;
+	set Zeny, Zeny-10000;
 	setlook 7, ((.@s)?(getarg((.@s-1)*2+1)):0);
 	mes "Your clothes have been dyed "+((.@s)?.@DyeName$[getarg((.@s-1)*2)]:.@DyeName$[0])+".";
 	close;
diff --git a/npc/merchants/dye_maker.txt b/npc/merchants/dye_maker.txt
index 69475bf71..f25954cb3 100644
--- a/npc/merchants/dye_maker.txt
+++ b/npc/merchants/dye_maker.txt
@@ -182,7 +182,7 @@ S_MakeDye:
 		// delete items
 		for (set .@i, 0; .@i < .@size ; set .@i, .@i+1)
 			delitem .@item[.@i], .@count[.@i];
-		Zeny -=.@cost;
+		set Zeny, Zeny-.@cost;
 		// get dyestuff
 		getitem .@dyestuff,1;
 		
diff --git a/npc/merchants/enchan_arm.txt b/npc/merchants/enchan_arm.txt
index 02fd749fe..2de5a6fe5 100644
--- a/npc/merchants/enchan_arm.txt
+++ b/npc/merchants/enchan_arm.txt
@@ -93,7 +93,7 @@ S_EnchantArmor:
 			close;
 		}
 		progressbar "ffff00",7;
-		Zeny -=400000;
+		set Zeny, Zeny-400000;
 		delitem .@itemid,1;
 		switch (rand(1,.@failrate)) {
 			case 1: set .@addpart,4702;break;
diff --git a/npc/merchants/hair_dyer.txt b/npc/merchants/hair_dyer.txt
index e5fd3ab27..fc1113603 100644
--- a/npc/merchants/hair_dyer.txt
+++ b/npc/merchants/hair_dyer.txt
@@ -109,7 +109,7 @@ prt_in,243,168,4	script	Jovovich	4_F_02,{
 						case 7: delitem 983,1; break; //Black_Dyestuffs
 						case 8: delitem 975,1; break; //Scarlet_Dyestuffs
 						}
-						Zeny -=1000;
+						set Zeny, Zeny-1000;
 						setlook VAR_HEADPALETTE,.@headpalette;
 						set .@choose_success,1;
 						break;
@@ -367,7 +367,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 						else if (.@headpalette == 5) delitem 978,1; //Cobaltblue_Dyestuffs
 						else if (.@headpalette == 6) delitem 982,1; //White_Dyestuffs
 						else if (.@headpalette == 7) delitem 983,1; //Black_Dyestuffs
-						Zeny -=1000;
+						set Zeny, Zeny-1000;
 						setlook VAR_HEADPALETTE,.@headpalette;
 						set .@choose_success,1;
 						break;
diff --git a/npc/merchants/hair_style.txt b/npc/merchants/hair_style.txt
index d1e5e0bc9..47f273930 100644
--- a/npc/merchants/hair_style.txt
+++ b/npc/merchants/hair_style.txt
@@ -470,7 +470,7 @@ alberta_in,55,142,7	script	Hair Dresser	4_F_02,{
 				mes "- *snip snip snip snip* -";
 				mes "- *bzzzzzzz bzzzzzzz bzzzzzzz bzzzzzzz* -";
 				next;
-				Zeny -=99800;
+				set Zeny, Zeny-99800;
 				delitem 973,3;	// Counteragent
 				delitem 974,3;	// Mixture
 				delitem 901,100;	// Danggie
@@ -656,7 +656,7 @@ alberta,33,141,7	script	Roving Hair Dresser	4_M_BARBER,{
 			mes "Once more I've outdone myself.";
 			mes "It's such a unique and talented";
 			mes "style! Yes, I am the best! Wooohahahahahaha!";
-			Zeny -=199800;
+			set Zeny, Zeny-199800;
 			setlook 1,rand(1,19);
 			setlook 6,rand(1,8);
 			close;
@@ -1042,7 +1042,7 @@ lhz_in02,100,143,3	script	Hair Dresser#li	2_M_DYEINGER,{
 				mes "*Clip clip clip clip*";
 				mes "*Bzzzzzzzzzzzzzzzzzzzz*^000000";
 				next;
-				Zeny -=99800;
+				set Zeny, Zeny-99800;
 				delitem 973,3; //Counteragent
 				delitem 974,3; //Mixture
 				delitem 901,100; //Danggie
@@ -1249,7 +1249,7 @@ lhz_in02,91,155,5	script	Assistant Beautician#li	4_F_LGTGIRL,{
 				mes "[Assistant Beautician]";
 				mes "^333333*Pant Pant Pant*^000000";
 				next;
-				Zeny -=250000;
+				set Zeny, Zeny-250000;
 				setlook VAR_HEAD,.@style_r;
 				setlook VAR_HEADPALETTE,.@color_r;
 				mes "[Assistant Beautician]";
diff --git a/npc/merchants/hd_refine.txt b/npc/merchants/hd_refine.txt
index e3ec4f762..84e3adf32 100644
--- a/npc/merchants/hd_refine.txt
+++ b/npc/merchants/hd_refine.txt
@@ -123,7 +123,7 @@
 		close;
 	}
 	delitem .@material,1;
-	Zeny -=.@price;
+	set Zeny, Zeny-.@price;
 	mes "[Blacksmith Mighty Hammer]";
 	mes "Tac! Tac! Tac!";
 	if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {
@@ -280,7 +280,7 @@ lhz_in02,280,19,3	duplicate(MightyHammer)	Mighty Hammer#lhz	4_M_DWARF
 		close;
 	}
 	delitem .@material,1;
-	Zeny -=.@price;
+	set Zeny, Zeny-.@price;
 	mes "Pow! Pow! Pow! Pow!";
 	if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {
 		successrefitem .@part;
diff --git a/npc/merchants/icecream.txt b/npc/merchants/icecream.txt
index 8c48d8a60..29d49c948 100644
--- a/npc/merchants/icecream.txt
+++ b/npc/merchants/icecream.txt
@@ -69,7 +69,7 @@
 		mes "before making a purchase.";
 		close;
 	}
-	Zeny -=100*.@input;
+	set Zeny,Zeny-100*.@input;
 	getitem 536,.@input;	// Ice_Cream
 	close;
 }
diff --git a/npc/merchants/inn.txt b/npc/merchants/inn.txt
index 56d8533cf..0c23555d2 100644
--- a/npc/merchants/inn.txt
+++ b/npc/merchants/inn.txt
@@ -137,7 +137,7 @@ lhz_in02,230,284,4	script	Hotel Employee#01	4_M_04,{
 			mes "in order to check in.";
 			close;
 		}
-		Zeny -= 5000;
+		set Zeny,Zeny - 5000;
 		mes "[Hotel Employee]";
 		mes "Thank you~";
 		mes "I hope you enjoy";
@@ -190,7 +190,7 @@ ve_in,157,219,5	script	Inn Master#Receptionist	4_M_SEAMAN,{
 		}
 		mes "Enjoy your stay~";
 		close2;
-		Zeny -= 5000;
+		set Zeny,Zeny - 5000;
 		percentheal 100,100;
 		warp "ve_in",184,228;
 		end;
@@ -227,7 +227,7 @@ function	script	F_InnMaid	{
 		mes "I hope you";
 		mes "enjoy your rest~";
 		close2;
-		Zeny -= 5000;
+		set Zeny,Zeny - 5000;
 		percentheal 100,100;
 		return;
 	case 3:
diff --git a/npc/merchants/milk_trader.txt b/npc/merchants/milk_trader.txt
index 4a2b52e4b..0fabb9876 100644
--- a/npc/merchants/milk_trader.txt
+++ b/npc/merchants/milk_trader.txt
@@ -69,7 +69,7 @@ prontera,73,140,0	script	Milk Vendor	4_M_04,{
 			mes "all of this milk?";
 			close;
 		}
-		Zeny -=.@total_cost;
+		set Zeny, Zeny-.@total_cost;
 		delitem 713,.@bottles; //Empty Bottles
 		getitem 519,.@bottles; //Milk
 		close;
diff --git a/npc/merchants/old_pharmacist.txt b/npc/merchants/old_pharmacist.txt
index 785529a70..5384125e1 100644
--- a/npc/merchants/old_pharmacist.txt
+++ b/npc/merchants/old_pharmacist.txt
@@ -83,7 +83,7 @@ alberta_in,16,28,4	script	Pharmacist	1_M_PUBMASTER,{
 						mes "You rascal! You don't even have all the materials and you want me to make you potions?!";
 						close;
 					}
-					Zeny -=(.@max*5);
+					set Zeny,Zeny-(.@max*5);
 					delitem 507,.@max; //Red_Herb
 					delitem 508,.@max; //Yellow_Herb
 					delitem 713,.@max; //Empty_Bottle
@@ -113,7 +113,7 @@ alberta_in,16,28,4	script	Pharmacist	1_M_PUBMASTER,{
 						close;
 					}
 					next;
-					Zeny -=(.@amount*5);
+					set Zeny,Zeny-(.@amount*5);
 					delitem 507,.@amount; //Red_Herb
 					delitem 508,.@amount; //Yellow_Herb
 					delitem 713,.@amount; //Empty_Bottle
@@ -209,7 +209,7 @@ L_Making:
 			mes "You rascal! You don't even have all the materials and you want me to make you potions?!";
 			close;
 		}
-		Zeny -=(.@max*getarg(1));
+		set Zeny,Zeny-(.@max*getarg(1));
 		delitem getarg(0),.@max*2;
 		delitem 713,.@max; //Empty_Bottle
 		getitem getarg(2),.@max; 
@@ -235,7 +235,7 @@ L_Making:
 			mes "You rascal! You don't even have all the materials and you want me to make you potions?!";
 			close;
 		}
-		Zeny -=(.@amount*getarg(1));
+		set Zeny,Zeny-(.@amount*getarg(1));
 		delitem getarg(0),.@amount*2;
 		delitem 713,.@amount; //Empty_Bottle
 		getitem getarg(2),.@amount; 
diff --git a/npc/merchants/quivers.txt b/npc/merchants/quivers.txt
index ff4493b54..6b544c920 100644
--- a/npc/merchants/quivers.txt
+++ b/npc/merchants/quivers.txt
@@ -98,7 +98,7 @@ S_BuyQuiver:
 					mes "[Inventor Jaax]";
 					mes "There you go!";
 					mes "Just remember, ^FF0000you won't be able to use the Quiver when your carried weight is 90% of your maximum weight limit^000000.";
-					Zeny -=.@arrow_zeny01;
+					set Zeny, Zeny-.@arrow_zeny01;
 					delitem getarg(0),.@arrows_used; //Arrow
 					getitem getarg(3),.@quiver; //Quiver
 					next;
@@ -128,7 +128,7 @@ S_BuyQuiver:
 				mes "[Inventor Jaax]";
 				mes "There you go!";
 				mes "Just remember, ^FF0000you won't be able to use the Quiver when your carried weight is 90% of your maximum weight limit^000000.";
-				Zeny -=getarg(2);
+				set Zeny, Zeny-getarg(2);
 				delitem getarg(0),getarg(1); //Arrow
 				getitem getarg(3),1; //Quiver
 				next;
diff --git a/npc/merchants/refine.txt b/npc/merchants/refine.txt
index fc1e683b9..d65fd5c2e 100644
--- a/npc/merchants/refine.txt
+++ b/npc/merchants/refine.txt
@@ -81,7 +81,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 986,1; // Anvil
-			Zeny -=30000;
+			set Zeny, Zeny-30000;
 			mes "[Christopher Guillenrow]";
 			mes "This is the cheapest one, but efficient enough to forge most items. Thank ye fer shopping at me workshop.  Feel free to come anytime, whenever ye need.";
 			close;
@@ -92,7 +92,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 987,1; // Oridecon_Anvil
-			Zeny -=120000;
+			set Zeny, Zeny-120000;
 			mes "[Christopher Guillenrow]";
 			mes "Aye, friend ye have an eye for the anvil. This must be the proper anvil for a Blacksmith, eh? Thank ye fer shopping at me workshop.  Feel free to come anytime, whenever ye need.";
 			close;
@@ -103,7 +103,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 988,1; // Golden_Anvil
-			Zeny -=300000;
+			set Zeny, Zeny-300000;
 			mes "[Christopher Guillenrow]";
 			mes "This one is the best among all me stuffs in me workshop! With this, ye can rule the Blacksmith world! Thank ye fer shopping at me workshop.  Feel free to come anytime, whenever ye need.";
 			close;
@@ -156,7 +156,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 612,.@input; // Portable_Furnace
-			Zeny -=.@sell;
+			set Zeny, Zeny-.@sell;
 			mes "[Christopher Guillenrow]";
 			mes "Thank ye fer shopping at me workshop. Feel free to come anytime, whenever ye need.";
 			close;
@@ -167,7 +167,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 613,1; // Iron_Hammer
-			Zeny -=1000;
+			set Zeny, Zeny-1000;
 			mes "[Christopher Guillenrow]";
 			mes "Thank ye fer shopping at me workshop. Feel free to come anytime, whenever ye need.";
 			close;
@@ -178,7 +178,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 614,1; // Golden_Hammer
-			Zeny -=3000;
+			set Zeny, Zeny-3000;
 			mes "[Christopher Guillenrow]";
 			mes "Thank ye fer shopping at me workshop. Feel free to come anytime, whenever ye need.";
 			close;
@@ -189,7 +189,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 615,1; // Oridecon_Hammer
-			Zeny -=5000;
+			set Zeny, Zeny-5000;
 			mes "[Christopher Guillenrow]";
 			mes "Thank ye fer shopping at me workshop. Feel free to come anytime, whenever ye need.";
 			close;
@@ -237,7 +237,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 1010,.@input; // Phracon
-			Zeny -=.@sell;
+			set Zeny, Zeny-.@sell;
 			mes "[Christopher Guillenrow]";
 			mes "Thank ye fer shopping at me workshop. Feel free to come anytime, whenever ye need.";
 			close;
@@ -275,7 +275,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 				close;
 			}
 			getitem 1011,.@input; // Emveretarcon
-			Zeny -=.@sell;
+			set Zeny, Zeny-.@sell;
 			mes "[Christopher Guillenrow]";
 			mes "Thank ye fer shopping at me workshop. Feel free to come anytime, whenever ye need, whenever ye want.";
 			close;
@@ -357,7 +357,7 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 				close;
 			}
 			getitem 986,1; //Anvil
-			Zeny -=30000;
+			set Zeny, Zeny-30000;
 			mes "[Paul Spanner]";
 			mes "It is the cheapest anvil which has the most basic ability.";
 			mes "Thank you for using my shop. If you need anything, just let me know.";
@@ -369,7 +369,7 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 				close;
 			}
 			getitem 987,1; //Oridecon_Anvil
-			Zeny -=120000;
+			set Zeny, Zeny-120000;
 			mes "[Paul Spanner]";
 			mes "Ah, you have an eye for anvil. A Blacksmith needs an anvil at least as good as this.";
 			mes "Thank you for using my shop. If you need anything, just let me know.";
@@ -381,7 +381,7 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 				close;
 			}
 			getitem 988,1; //Golden_Anvil
-			Zeny -=300000;
+			set Zeny, Zeny-300000;
 			mes "[Paul Spanner]";
 			mes "I can tell your ambition to become a good Blacksmith just by looking at you to choose this Golden Anvil!";
 			mes "This anvil will surely aid you in creating the best weapons.";
@@ -460,7 +460,7 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 			mes "Hey, you look pale. Why don't you go lighten your weight first.";
 			close;
 		}
-		Zeny -=.@sell;
+		set Zeny, Zeny-.@sell;
 		getitem .@item,.@input;
 		mes "[Paul Spanner]";
 		mes "Thank you for using my shop. If you need anything, just let me know.";
@@ -515,7 +515,7 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 			close;
 		}
 		getitem .@item,.@input;
-		Zeny -=.@sell;
+		set Zeny, Zeny-.@sell;
 		mes "[Paul Spanner]";
 		mes "Thank you for using my shop. If you need anything, just let me know.";
 		close;
@@ -735,7 +735,7 @@ function	script	refinemain	{
 			mes "here all day if you need me.";
 			close;
 		}
-		Zeny -=.@price;
+		set Zeny, Zeny-.@price;
 		delitem .@material,1;
 
 		//custom checks
@@ -856,7 +856,7 @@ function	script	refinemain	{
 		mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";
 		close;
 	}
-	Zeny -= .@fullprice;
+	set Zeny, Zeny - .@fullprice;
 	delitem .@material,.@refinecnt;
 	while(.@refinecnt){
 		if (getequipisequiped(.@part) == 0) {
@@ -882,7 +882,7 @@ function	script	refinemain	{
 			mes "Here's the unused Zeny and materials back...";
 			getitem .@material,.@refinecnt;
 			set .@fullprice,.@refinecnt * .@price;
-			Zeny += .@fullprice;
+			set Zeny, Zeny + .@fullprice;
 			close;
 		}
 		successrefitem .@part;
@@ -1000,7 +1000,7 @@ function	script	phramain	{
 		close;
 	}
 	getitem .@material,.@input;
-	Zeny -=.@sell;
+	set Zeny, Zeny-.@sell;
 	mes "[" + getarg(0) + "]";
 	mes "Here you are!";
 	mes "Thank you for";
@@ -1238,7 +1238,7 @@ function	script	repairmain	{
 			}
 			set .@checkitem2,.@checkitem2-1;
 			if (.@checkitem == .@checkitem2) {
-				Zeny -=.@totalcost;
+				set Zeny, Zeny-.@totalcost;
 				while (.@checkitem) {
 					repair(.@checkitem);
 					set .@checkitem,.@checkitem-1;
diff --git a/npc/merchants/renters.txt b/npc/merchants/renters.txt
index f9d9a54cc..dc4d67235 100644
--- a/npc/merchants/renters.txt
+++ b/npc/merchants/renters.txt
@@ -68,7 +68,7 @@ prontera,55,350,5	script	Peco Peco Breeder#knt	8W_SOLDIER,{
 				mes "Please remove your cash mount.";
 				close;
 			}
-			Zeny -=.@price;
+			set Zeny, Zeny-.@price;
 			setriding;
 			close;
 		case 2:
@@ -131,7 +131,7 @@ prontera,232,318,3	script	Peco Peco Breeder#cru	8W_SOLDIER,{
 				mes "Please remove your cash mount.";
 				close;
 			}
-			Zeny -=.@price;
+			set Zeny, Zeny-.@price;
 			setriding;
 			close;
 		case 2:
@@ -205,7 +205,7 @@ hu_in01,381,304,5	script	Falcon Breeder#hnt	8W_SOLDIER,{
 				mes "there, can't you see it?";
 				close;
 			}
-			Zeny -=.@price;
+			set Zeny, Zeny-.@price;
 			setfalcon;
 			close;
 		case 2:
diff --git a/npc/merchants/socket_enchant.txt b/npc/merchants/socket_enchant.txt
index 4c806a819..d76562783 100644
--- a/npc/merchants/socket_enchant.txt
+++ b/npc/merchants/socket_enchant.txt
@@ -292,7 +292,7 @@ function	script	Func_Socket	{
 					delitem getarg(5),getarg(6);
 					if (getarg(7,0) != 0 && getarg(8,0) != 0)
 						delitem getarg(7),getarg(8);
-					Zeny -= getarg(4)*1000;
+					set Zeny, Zeny - getarg(4)*1000;
 					getitem getarg(1),1;
 					next;
 					mes "[Seiyablem]";
@@ -311,7 +311,7 @@ function	script	Func_Socket	{
 					delitem getarg(5),getarg(6);
 					if (getarg(7,0) != 0 && getarg(8,0) != 0)
 						delitem getarg(7),getarg(8);
-					Zeny -= getarg(4)*1000;
+					set Zeny, Zeny - getarg(4)*1000;
 					next;
 					mes "[Seiyablem]";
 					mes "I wish you good luck next time!";
diff --git a/npc/merchants/socket_enchant2.txt b/npc/merchants/socket_enchant2.txt
index dbdcfe379..3e7c64808 100644
--- a/npc/merchants/socket_enchant2.txt
+++ b/npc/merchants/socket_enchant2.txt
@@ -287,7 +287,7 @@
 							mes "Congratulations.";
 							delitem 5022,1; //Helm_Of_Sun
 							delitem 969,2; //Gold
-							Zeny -= 200000000;
+							set Zeny, Zeny - 200000000;
 							getitem 5353,1; //Helm_Of_Sun_
 							next;
 							mes "[Leablem]";
@@ -306,7 +306,7 @@
 							mes "I didn't want to do in the first place!";
 							delitem 5022,1; //Helm_Of_Sun
 							delitem 969,2; //Gold
-							Zeny -= 200000000;
+							set Zeny, Zeny - 200000000;
 							next;
 							mes "[Leablem]";
 							mes "No, don't ever ask me to do such a risky thing again!";
@@ -428,7 +428,7 @@ function	script	Func_Socket2	{
 					delitem getarg(5),getarg(6);
 					if (getarg(7,0) != 0 && getarg(8,0) != 0)
 						delitem getarg(7),getarg(8);
-					Zeny -= getarg(4)*1000;
+					set Zeny, Zeny - getarg(4)*1000;
 					getitem getarg(1),1;
 					next;
 					mes "[Leablem]";
@@ -448,7 +448,7 @@ function	script	Func_Socket2	{
 					delitem getarg(5),getarg(6);
 					if (getarg(7,0) != 0 && getarg(8,0) != 0)
 						delitem getarg(7),getarg(8);
-					Zeny -= getarg(4)*1000;
+					set Zeny, Zeny - getarg(4)*1000;
 					next;
 					mes "[Leablem]";
 					mes "See you again, buddy!";