Replaced 'set' with direct assignment where applicable (common folder)

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

20 files changed, 259 insertions, 259 deletions

diff --git a/npc/merchants/advanced_refiner.txt b/npc/merchants/advanced_refiner.txt
index 853e82f5e..6d19d68e4 100644
--- a/npc/merchants/advanced_refiner.txt
+++ b/npc/merchants/advanced_refiner.txt
@@ -35,20 +35,20 @@ payon,157,146,6	script	Suhnbi#cash	4_M_03,{
 	next;
 
 	setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
-	set .@menu$,"";
-	for(set .@i,1; .@i<=10; set .@i,.@i+1) {
+	.@menu$ = "";
+	for(.@i = 1; .@i<=10; ++.@i) {
 		if (getequipisequiped(.@i)) {
-			set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
-			set .@equipped,1;
+			.@menu$ += .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
+			.@equipped = 1;
 		}
-		set .@menu$, .@menu$ + ":";
+		.@menu$ += ":";
 	}
 	if (.@equipped == 0) {
 		mes "[Suhnbi]";
 		mes "I don't think I can refine any items you have...";
 		close;
 	}
-	set .@part, select(.@menu$);
+	.@part = select(.@menu$);
 
 	if (!getequipisequiped(.@part)) //custom check
 		close;
diff --git a/npc/merchants/alchemist.txt b/npc/merchants/alchemist.txt
index dfb9a68b4..91dc048c9 100644
--- a/npc/merchants/alchemist.txt
+++ b/npc/merchants/alchemist.txt
@@ -60,8 +60,8 @@ alde_alche,24,188,3	script	Guild Dealer	2_M_ALCHE,{
 					break;
 				}
 			}
-			set .@sell,.@input * 8;
-			set .@item_weight,.@input * 10;
+			.@sell = .@input * 8;
+			.@item_weight = .@input * 10;
 			if (Zeny < .@sell) {
 				mes "[Gever Al Sharp]";
 				mes "You don't";
diff --git a/npc/merchants/cashheadgear_dye.txt b/npc/merchants/cashheadgear_dye.txt
index f2d739aba..f9a6cd089 100644
--- a/npc/merchants/cashheadgear_dye.txt
+++ b/npc/merchants/cashheadgear_dye.txt
@@ -15,7 +15,7 @@
 prt_in,253,168,4	script	Alora	4_F_LGTGIRL,{
 
 // Mysterious Dyestuff
-	set .@dyeID, 6220;
+	.@dyeID = 6220;
 // Headgear Choices
 	setarray .@hgn$[1], "Mage Hat","Beanie","Drooping Cat","Deviruchi Hat","Wig","Ribbon","Magestic Goat";
 // Mage Hats - Normal, Yellow, Blue, Brown, Gray, Red
@@ -39,12 +39,12 @@ prt_in,253,168,4	script	Alora	4_F_LGTGIRL,{
 	mes "[Alora]";
 	mes "Do you have a headgear that you would like to dye?";
 	next;
-	for(set .@i,1; .@i < getarraysize(.@hgn$); set .@i,.@i+1) {
-		if(.@i == 1)    set .@menu$, .@hgn$[.@i];
-		else            set .@menu$, .@menu$ +":"+ .@hgn$[.@i];
+	for(.@i = 1; .@i < getarraysize(.@hgn$); ++.@i) {
+		if(.@i == 1)    .@menu$ = .@hgn$[.@i];
+		else            .@menu$ += ":"+ .@hgn$[.@i];
 	}
-	set .@menu$, .@menu$ +":Cancel";
-	set .@t, select(.@menu$);
+	.@menu$ += ":Cancel";
+	.@t = select(.@menu$);
 	if(.@t == getarraysize(.@hgn$)) {
 		mes "[Alora]";
 		mes "Have a good journey adventurer!";
@@ -54,24 +54,24 @@ prt_in,253,168,4	script	Alora	4_F_LGTGIRL,{
 	mes "[Alora]";
 	mes "Okay, what color do you want to change it to?";
 	next;
-	for(set .@i,1; .@i < getarraysize(getd(".@hg_"+.@t+"")); set .@i,.@i+1) {
+	for(.@i = 1; .@i < getarraysize(getd(".@hg_"+.@t+"")); ++.@i) {
 		if(.@i == 1 && .@t != 5)
-			set .@menu$, "Normal";
+			.@menu$ = "Normal";
 		else if(.@i == 1 && .@t == 5)
-			set .@menu$, getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
+			.@menu$ = getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
 		else {
 			sscanf(getitemname(getd(".@hg_"+.@t+"["+.@i+"]")),"%s "+ .@hgn$[.@t],.@colour$);
-			set .@menu$, .@menu$ +":"+ .@colour$;
+			.@menu$ += ":"+ .@colour$;
 		}
 	}
-	set .@menu$, .@menu$ +":Cancel";
-	set .@c, select(.@menu$);
+	.@menu$ += ":Cancel";
+	.@c = select(.@menu$);
 	if(.@c == getarraysize(getd(".@hg_"+.@t+""))) {
 		mes "[Alora]";
 		mes "Oh, okay no problem!";
 		close;
 	}
-	set .@dyHG, getd(".@hg_"+.@t+"["+.@c+"]");
+	.@dyHG = getd(".@hg_"+.@t+"["+.@c+"]");
 	mes "[Alora]";
 	mes "Oh I'm so excited aren't you?";
 	mes "And just to be sure, what color is the "+ .@hgn$[.@t] +" you want me to use?";
@@ -85,18 +85,18 @@ prt_in,253,168,4	script	Alora	4_F_LGTGIRL,{
 	mes "["+ strcharinfo(0) +"]";
 	mes "Ok, thanks for the warning, I think I'll give you my";
 	next;
-	set .@menu$, "Nevermind";
-	for(set .@i,1; .@i < getarraysize(getd(".@hg_"+.@t+"")); set .@i,.@i+1) {
-		if(.@i == 1)    set .@menu$, .@menu$ +":Normal "+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
-		else            set .@menu$, .@menu$ +":"+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
+	.@menu$ = "Nevermind";
+	for(.@i = 1; .@i < getarraysize(getd(".@hg_"+.@t+"")); ++.@i) {
+		if(.@i == 1)    .@menu$ += ":Normal "+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
+		else            .@menu$ += ":"+ getitemname(getd(".@hg_"+.@t+"["+.@i+"]"));
 	}
-	set .@mine, select(.@menu$) - 1;
+	.@mine = select(.@menu$) - 1;
 	if(!.@mine) {
 		mes "[Alora]";
 		mes "It's best to be very sure, have a safe journey.";
 		close;
 	}
-	set .@myHG, getd(".@hg_"+.@t+"["+.@mine+"]");
+	.@myHG = getd(".@hg_"+.@t+"["+.@mine+"]");
 	if(.@dyHG == .@myHG) {
 		mes "[Alora]";
 		mes "Woah what happened?";
diff --git a/npc/merchants/clothes_dyer.txt b/npc/merchants/clothes_dyer.txt
index 94fab1d5c..b7e90febf 100644
--- a/npc/merchants/clothes_dyer.txt
+++ b/npc/merchants/clothes_dyer.txt
@@ -22,9 +22,9 @@
 prt_in,284,168,2	script	Dyer Ginedin Rephere	1_M_JOBTESTER,{
 function Dyes;
 
-	set .@EnableDyes,1;	// Disable (set to 0) if palettes cause errors [see note v2.4]
+	.@EnableDyes = 1;	// Disable (set to 0) if palettes cause errors [see note v2.4]
 
-	set .n$,"[Dyer Ginedin Rephere]";
+	.n$ = "[Dyer Ginedin Rephere]";
 	mes .n$;
 	mes "11... 12... Mmm... good. I think I'll be able to finish before tonight's party. Oh! I didn't notice you were here!";
 	while(1) {
@@ -135,11 +135,11 @@ L_End:
 function Dyes {
 	setarray .@DyeName$[0],"the default color","Orange","Violet","Red","Black","Green","Blue","White","Yellow";
 	setarray .@DyeItems[0],0,980,981,975,983,979,978,982,976;
-	set .@menu$,"- Default:";
-	for(set .@i,0; .@i<getargcount(); set .@i,.@i+2)
-		set .@menu$, .@menu$+"- "+.@DyeName$[getarg(.@i)]+":";
-	set .@menu$, .@menu$+"- ^777777Cancel^000000";
-	set .@s, select(.@menu$)-1;
+	.@menu$ = "- Default:";
+	for(.@i = 0; .@i<getargcount(); .@i += 2)
+		.@menu$ += "- "+.@DyeName$[getarg(.@i)]+":";
+	.@menu$ += "- ^777777Cancel^000000";
+	.@s = select(.@menu$)-1;
 	if (.@s == (getargcount()/2)+1) goto L_End;
 	mes .n$;
 	if (.@s == 0) {
diff --git a/npc/merchants/coin_exchange.txt b/npc/merchants/coin_exchange.txt
index 160a7e5bc..5a63c5708 100644
--- a/npc/merchants/coin_exchange.txt
+++ b/npc/merchants/coin_exchange.txt
@@ -16,7 +16,7 @@
 // Manuk & Splendide
 //============================================================
 -	script	::merchant_13_2	-1,{
-	set .@n$, "["+strnpcinfo(1)+"]";
+	.@n$ = "["+strnpcinfo(1)+"]";
 	mes .@n$;
 	if (isequipped(2782) && ep13_2_rhea == 100) {
 		if (!checkweight(1201,1)) {
@@ -29,15 +29,15 @@
 		next;
 		if (strnpcinfo(1) == "Merchant of Manuk") {
 			setarray .@items[2],12342,12343,12348;
-			set .@Book,11019; //Manuk_Selling_Item
-			set .@coin,6080; //Manuk_Coin
-			set .@i, select("View item description:Manuk's Opportunity:Manuk's Courage:Manuk's Faith:Cancel");
+			.@Book = 11019; //Manuk_Selling_Item
+			.@coin = 6080; //Manuk_Coin
+			.@i = select("View item description:Manuk's Opportunity:Manuk's Courage:Manuk's Faith:Cancel");
 		}
 		else {
 			setarray .@items[2],12344,12345,12349;
-			set .@Book,11018; //Splendide_Selling_Item
-			set .@coin,6081; //Splendide_Coin
-			set .@i, select("View item description:Buy Pinguicula's Fruit Jam:Buy Luciola's Honey Jam:Buy Cornus' Tears:Do nothing");
+			.@Book = 11018; //Splendide_Selling_Item
+			.@coin = 6081; //Splendide_Coin
+			.@i = select("View item description:Buy Pinguicula's Fruit Jam:Buy Luciola's Honey Jam:Buy Cornus' Tears:Do nothing");
 		}
 		mes .@n$;
 		if (.@i == 1) {
diff --git a/npc/merchants/dye_maker.txt b/npc/merchants/dye_maker.txt
index b8ca80d06..bca4ef276 100644
--- a/npc/merchants/dye_maker.txt
+++ b/npc/merchants/dye_maker.txt
@@ -105,57 +105,57 @@ S_MakeDye:
 		mes "Mmm... I need 30 Red Herbs, 1 Counteragent, and 1 Empty Bottle to make Red Dyestuffs. The fee is only 3000 zeny to make it.";
 		setarray .@item[0], 507, 973, 713;
 		setarray .@count[0], 30,   1,   1;
-		set .@cost,3000;
-		set .@dyestuff,975;
+		.@cost = 3000;
+		.@dyestuff = 975;
 		break;
 	case 2:
 		mes "Mmm... I need 30 Yellow Herbs, 1 Couneragent, and 1 Empty Bottle to make Lemon Dyestuffs. The fee is only 3000 zeny to make it.";
 		setarray .@item[0], 508, 973, 713;
 		setarray .@count[0], 30,   1,   1;
-		set .@cost,3000;
-		set .@dyestuff,976;
+		.@cost = 3000;
+		.@dyestuff = 976;
 		break;
 	case 3:
 		mes "Mmm... I need 20 Blue Herbs, 1 Counteragent, and 1 Empty Bottle to make Cobaltblue Dyestuff. It's hard to use the Blue Herb, so the fee is going to be 3500 zeny.";
 		setarray .@item[0], 510, 973, 713;
 		setarray .@count[0], 20,   1,   1;
-		set .@cost,3500;
-		set .@dyestuff,978;
+		.@cost = 3500;
+		.@dyestuff = 978;
 		break;
 	case 4:
 		mes "Mmm... I need 5 Blue Herbs, 20 Green Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle to make Darkgreen Dyestuffs. Don't get all of the materials confused. The fee is only 5000 zeny.";
 		setarray .@item[0], 510, 511, 508, 974, 973, 713;
 		setarray .@count[0],  5,  20,  20,   1,   1,   1;
-		set .@cost,5000;
-		set .@dyestuff,979;
+		.@cost = 5000;
+		.@dyestuff = 979;
 		break;
 	case 5:
 		mes "Mmm... I need 20 Red Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle to make Orange Dyestuff. The fee is going to be 5000 zeny.";
 		setarray .@item[0], 507, 508, 974, 973, 713;
 		setarray .@count[0], 20,  20,   1,   1,   1;
-		set .@cost,5000;
-		set .@dyestuff,980;
+		.@cost = 5000;
+		.@dyestuff = 980;
 		break;
 	case 6:
 		mes "Mmm... I need 10 Blue Herbs, 30 Red Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle to make Violet Dyestuffs. The fee will be 5000 zeny.";
 		setarray .@item[0], 510, 507, 974, 973, 713;
 		setarray .@count[0], 10,  30,   1,   1,   1;
-		set .@cost,5000;
-		set .@dyestuff,981;
+		.@cost = 5000;
+		.@dyestuff = 981;
 		break;
 	case 7:
 		mes "Mmm... I need 30 White Herbs, 1 Counteragent, and 1 Empty bottle to make White Dyestuffs. The fee will be 3000 zeny.";
 		setarray .@item[0], 509, 973, 713;
 		setarray .@count[0], 30,   1,   1;
-		set .@cost,3000;
-		set .@dyestuff,982;
+		.@cost = 3000;
+		.@dyestuff = 982;
 		break;
 	case 8:
 		mes "Mmm... I need 30 of each Red, Yellow, and Green Herb, 5 Blue Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle. The process takes longer and more effort than the others, so it is going to be 7000 zeny.";
 		setarray .@item[0], 507, 508, 511, 510, 974, 973, 713;
 		setarray .@count[0], 30,  30,  30,   5,   1,   1,   1;
-		set .@cost,7000;
-		set .@dyestuff,983;
+		.@cost = 7000;
+		.@dyestuff = 983;
 		break;
 	}
 	next;
@@ -168,9 +168,9 @@ S_MakeDye:
 	}
 	next;
 	if (select("Make Dyestuffs:Cancel") == 1) {
-		set .@size, getarraysize(.@item);
+		.@size = getarraysize(.@item);
 		// check requirements
-		for( set .@i,0 ; .@i < .@size ; set .@i,.@i+1 )
+		for (.@i = 0; .@i < .@size; ++.@i)
 			if( countitem(.@item[.@i]) < .@count[.@i] )
 				break;
 		if( .@i < .@size || Zeny < .@cost ) {
@@ -180,7 +180,7 @@ S_MakeDye:
 			close;
 		}
 		// delete items
-		for (set .@i, 0; .@i < .@size ; set .@i, .@i+1)
+		for (.@i = 0; .@i < .@size; ++.@i)
 			delitem .@item[.@i], .@count[.@i];
 		Zeny -= .@cost;
 		// get dyestuff
diff --git a/npc/merchants/elemental_trader.txt b/npc/merchants/elemental_trader.txt
index a1f255743..bf01c29d3 100644
--- a/npc/merchants/elemental_trader.txt
+++ b/npc/merchants/elemental_trader.txt
@@ -80,7 +80,7 @@ ama_in02,61,27,7	script	Alchemist#ama	4_M_ALCHE_B,{
 	mes "Uh-huh, what did you bring?";
 	next;
 	setarray .@items[1],995,997,994,996;
-	set .@i, .@items[select("Mystic Frozen:Great Nature:Flame Heart:Rough Wind")];
+	.@i = .@items[select("Mystic Frozen:Great Nature:Flame Heart:Rough Wind")];
 	mes "[Laspuchin Gregory]";
 	if (countitem(.@i) > 7) {
 		mes "I will take 8 of them and";
@@ -91,13 +91,13 @@ ama_in02,61,27,7	script	Alchemist#ama	4_M_ALCHE_B,{
 		mes "[Laspuchin Gregory]";
 		mes "HeeHee, what do you want? Choose one!";
 		next;
-		set .@menu$, "";
-		for(set .@j,1; .@j<5; set .@j,.@j+1) {
-			if (.@items[.@j] != .@i) set .@menu$, .@menu$+getitemname(.@items[.@j]);
-			set .@menu$, .@menu$+":";
+		.@menu$ = "";
+		for(.@j = 1; .@j < 5; ++.@j) {
+			if (.@items[.@j] != .@i) .@menu$ += getitemname(.@items[.@j]);
+			.@menu$ += ":";
 		}
-		set .@menu$, .@menu$+"Cancel the trade";
-		set .@j, select(.@menu$);
+		.@menu$ += "Cancel the trade";
+		.@j = select(.@menu$);
 		mes "[Laspuchin Gregory]";
 		if (.@j == 5) {
 			mes "Oh, well.";
diff --git a/npc/merchants/enchan_arm.txt b/npc/merchants/enchan_arm.txt
index ee3032440..10aecf6ae 100644
--- a/npc/merchants/enchan_arm.txt
+++ b/npc/merchants/enchan_arm.txt
@@ -36,25 +36,25 @@ prontera,165,60,2	script	Apprentice Craftsman	1_F_MERCHANT_01,{
 		switch(select("Non Slotted Armor.:Slotted Armor.:High Grade Armor.:Maybe next time.")) {
 		case 1:
 			setarray .@items[0],2307,2309,2314,2316,2321,2325,2327,2328,2330,2332,2334,2335,2341,2344,2346,2348,2350,2337,2386,2394,2395,2396;
-			set .@j,50;
+			.@j = 50;
 			break;
 		case 2:
 			setarray .@items[0],2311,2318,2319,2320,2308,2310,2315,2317,2322,2324,2326,2331,2333,2336,2342,2345,2347,2349,2351;
-			set .@j,55;
-			set .@k,1;
+			.@j = 55;
+			.@k = 1;
 			break;
 		case 3:
 			setarray .@items[0],2364,2365,2391,2374,2375,2376,2377,2378,2379,2380,2381,2382,2387,2388,2389,2390;
-			set .@j,60;
+			.@j = 60;
 			break;
 		case 4:
 			mes "[Apprentice Craftsman]";
 			mes "Please come back when you have any interest in enchanting your armor.";
 			close;
 		}
-		set .@menu$,"";
-		for(set .@i,0; .@i<getarraysize(.@items); set .@i,.@i+1)
-			set .@menu$, .@menu$+getitemname(.@items[.@i])+((.@k)?" [1]":"")+":";
+		.@menu$ = "";
+		for(.@i = 0; .@i<getarraysize(.@items); ++.@i)
+			.@menu$ += getitemname(.@items[.@i])+((.@k)?" [1]":"")+":";
 		callsub S_EnchantArmor, .@items[select(.@menu$)-1], .@j;
 		end;
 	}
@@ -65,8 +65,8 @@ prontera,165,60,2	script	Apprentice Craftsman	1_F_MERCHANT_01,{
 	close;
 
 S_EnchantArmor:
-	set .@itemid,getarg(0);
-	set .@failrate,getarg(1);
+	.@itemid = getarg(0);
+	.@failrate = getarg(1);
 	mes "[Apprentice Craftsman]";
 	if (countitem(.@itemid) == 1) {
 		mes "Socket enchant will cost you 400,000 zeny. And there will be a random option enchanted. Of course, there is a chance of breaking your armor.";
@@ -96,42 +96,42 @@ S_EnchantArmor:
 		Zeny -= 400000;
 		delitem .@itemid,1;
 		switch (rand(1,.@failrate)) {
-			case 1: set .@addpart,4702;break;
-			case 2: set .@addpart,4712;break;
-			case 3: set .@addpart,4722;break;
-			case 4: set .@addpart,4732;break;
-			case 5: set .@addpart,4742;break;
-			case 6: set .@addpart,4752;break;
+			case 1: .@addpart = 4702;break;
+			case 2: .@addpart = 4712;break;
+			case 3: .@addpart = 4722;break;
+			case 4: .@addpart = 4732;break;
+			case 5: .@addpart = 4742;break;
+			case 6: .@addpart = 4752;break;
 			case 7:
-			case 8: set .@addpart,4701;break;
+			case 8: .@addpart = 4701;break;
 			case 9:
-			case 10: set .@addpart,4711;break;
+			case 10: .@addpart = 4711;break;
 			case 11:
-			case 12: set .@addpart,4721;break;
+			case 12: .@addpart = 4721;break;
 			case 13:
-			case 14: set .@addpart,4731;break;
+			case 14: .@addpart = 4731;break;
 			case 15:
-			case 16: set .@addpart,4741;break;
+			case 16: .@addpart = 4741;break;
 			case 17:
-			case 18: set .@addpart,4751;break;
+			case 18: .@addpart = 4751;break;
 			case 19:
 			case 20:
-			case 21: set .@addpart,4700;break;
+			case 21: .@addpart = 4700;break;
 			case 22:
 			case 23:
-			case 24: set .@addpart,4710;break;
+			case 24: .@addpart = 4710;break;
 			case 25:
 			case 26:
-			case 27: set .@addpart,4720;break;
+			case 27: .@addpart = 4720;break;
 			case 28:
 			case 29:
-			case 30: set .@addpart,4730;break;
+			case 30: .@addpart = 4730;break;
 			case 31:
 			case 32:
-			case 33: set .@addpart,4740;break;
+			case 33: .@addpart = 4740;break;
 			case 34:
 			case 35:
-			case 36: set .@addpart,4750;break;
+			case 36: .@addpart = 4750;break;
 			default:
 				specialeffect2 EF_PHARMACY_FAIL;
 				mes "[Apprentice Craftsman]";
diff --git a/npc/merchants/gemstone.txt b/npc/merchants/gemstone.txt
index 126dbeba4..1737c217f 100644
--- a/npc/merchants/gemstone.txt
+++ b/npc/merchants/gemstone.txt
@@ -47,7 +47,7 @@ S_TradeGems:
 		close;
 	}
 	else {
-		set .@gems,countitem(getarg(0))/2;
+		.@gems = countitem(getarg(0))/2;
 		mes "[Jade]";
 		mes "I believe I can create";
 		mes "a total of " + .@gems + " " + getitemname(getarg(1)) + "s";
diff --git a/npc/merchants/hair_dyer.txt b/npc/merchants/hair_dyer.txt
index fa4295831..91708d991 100644
--- a/npc/merchants/hair_dyer.txt
+++ b/npc/merchants/hair_dyer.txt
@@ -58,14 +58,14 @@ prt_in,243,168,4	script	Jovovich	4_F_02,{
 
 				while(1) {
 					switch(select("Red, please.:Yellow, please.:Violet, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Black, please.:Actually, I like my hair as it is.")) {
-					case 1: set .@headpalette,8; break;
-					case 2: set .@headpalette,1; break;
-					case 3: set .@headpalette,2; break;
-					case 4: set .@headpalette,3; break;
-					case 5: set .@headpalette,4; break;
-					case 6: set .@headpalette,5; break;
-					case 7: set .@headpalette,6; break;
-					case 8: set .@headpalette,7; break;
+					case 1: .@headpalette = 8; break;
+					case 2: .@headpalette = 1; break;
+					case 3: .@headpalette = 2; break;
+					case 4: .@headpalette = 3; break;
+					case 5: .@headpalette = 4; break;
+					case 6: .@headpalette = 5; break;
+					case 7: .@headpalette = 6; break;
+					case 8: .@headpalette = 7; break;
 					case 9:
 						if (.@choose_success != 0) {
 							mes "[Hairdresser Jovovich]";
@@ -111,7 +111,7 @@ prt_in,243,168,4	script	Jovovich	4_F_02,{
 						}
 						Zeny -= 1000;
 						setlook VAR_HEADPALETTE,.@headpalette;
-						set .@choose_success,1;
+						.@choose_success = 1;
 						break;
 					}
 
@@ -203,35 +203,35 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 						mes "for using my service and";
 						mes "I hope you come by again!";
 						close2;
-						set .@choose_success,2;
+						.@choose_success = 2;
 						break;
 					}
 				}
 				while (.@choose_success != 2) {
 					switch(select("Red, please.:Yellow, please.:Purple, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Dark Brown, please.:I like my hair color.")) {
 					case 1:
-						set .@headpalette,8;
+						.@headpalette = 8;
 						break;
 					case 2:
-						set .@headpalette,1;
+						.@headpalette = 1;
 						break;
 					case 3:
-						set .@headpalette,2;
+						.@headpalette = 2;
 						break;
 					case 4:
-						set .@headpalette,3;
+						.@headpalette = 3;
 						break;
 					case 5:
-						set .@headpalette,4;
+						.@headpalette = 4;
 						break;
 					case 6:
-						set .@headpalette,5;
+						.@headpalette = 5;
 						break;
 					case 7:
-						set .@headpalette,6;
+						.@headpalette = 6;
 						break;
 					case 8:
-						set .@headpalette,7;
+						.@headpalette = 7;
 						break;
 					case 9:
 						if (.@choose_success != 0) {
@@ -242,7 +242,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "your beauty and to tell";
 							mes "the truth, I agree with you~";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 						}
 						else {
 							mes "[Rossa]";
@@ -251,7 +251,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "You'd look so good if you dyed";
 							mes "your hair a different color~";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 						}
 						break;
 					}
@@ -272,7 +272,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "hair if you didn't bring";
 							mes "Scarlet Dyestuffs with you...";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						else if ((.@headpalette == 1) && (countitem(976) == 0)) {
@@ -282,7 +282,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "hair if you didn't bring";
 							mes "Lemon Dyestuffs with you...";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						else if ((.@headpalette == 2) && (countitem(981) == 0)) {
@@ -292,7 +292,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "hair if you didn't bring";
 							mes "Violet Dyestuffs with you...";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						else if ((.@headpalette == 3) && (countitem(980) == 0)) {
@@ -302,7 +302,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "hair if you didn't bring";
 							mes "Orange Dyestuffs with you...";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						else if ((.@headpalette == 4) && (countitem(979) == 0)) {
@@ -314,7 +314,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "with you. Would you come";
 							mes "back after you get some?";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						else if ((.@headpalette == 5) && (countitem(978) == 0)) {
@@ -326,7 +326,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "with you. Would you come";
 							mes "back after you get some?";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						else if ((.@headpalette == 6) && (countitem(982) == 0)) {
@@ -336,7 +336,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "hair if you didn't bring";
 							mes "White Dyestuffs with you...";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						else if ((.@headpalette == 7) && (countitem(983) == 0)) {
@@ -346,7 +346,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "hair if you didn't bring";
 							mes "Black Dyestuffs with you...";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						if (Zeny < 1000) {
@@ -356,7 +356,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 							mes "1,000 zeny. Did you forget";
 							mes "to bring your money with you?";
 							close2;
-							set .@choose_success,2;
+							.@choose_success = 2;
 							break;
 						}
 						if (.@headpalette == 8) delitem 975,1; //Scarlet_Dyestuffs
@@ -369,7 +369,7 @@ lhz_in02,100,134,3	script	Hair Dyer#lich	4_F_EINWOMAN,{
 						else if (.@headpalette == 7) delitem 983,1; //Black_Dyestuffs
 						Zeny -= 1000;
 						setlook VAR_HEADPALETTE,.@headpalette;
-						set .@choose_success,1;
+						.@choose_success = 1;
 						break;
 					}
 				}
diff --git a/npc/merchants/hair_style.txt b/npc/merchants/hair_style.txt
index d1ce1e234..2eb2d4eb4 100644
--- a/npc/merchants/hair_style.txt
+++ b/npc/merchants/hair_style.txt
@@ -425,28 +425,28 @@ alberta_in,55,142,7	script	Hair Dresser	4_F_02,{
 					next;
 					switch(select("Red.:Yellow.:Purple.:Orange.:Green.:Blue.:White.:Dark Brown.:Cancel.")) {
 					case 1:
-						set .@pallete,8;
+						.@pallete = 8;
 						break;
 					case 2:
-						set .@pallete,1;
+						.@pallete = 1;
 						break;
 					case 3:
-						set .@pallete,2;
+						.@pallete = 2;
 						break;
 					case 4:
-						set .@pallete,3;
+						.@pallete = 3;
 						break;
 					case 5:
-						set .@pallete,4;
+						.@pallete = 4;
 						break;
 					case 6:
-						set .@pallete,5;
+						.@pallete = 5;
 						break;
 					case 7:
-						set .@pallete,6;
+						.@pallete = 6;
 						break;
 					case 8:
-						set .@pallete,7;
+						.@pallete = 7;
 						break;
 					case 9:
 						mes "[Veronica]";
@@ -1006,28 +1006,28 @@ lhz_in02,100,143,3	script	Hair Dresser#li	2_M_DYEINGER,{
 					next;
 					switch(select("Red:Yellow:Purple:Orange:Green:Blue:White:Dark Brown")) {
 					case 1:
-						set .@headpalette,8;
+						.@headpalette = 8;
 						break;
 					case 2:
-						set .@headpalette,1;
+						.@headpalette = 1;
 						break;
 					case 3:
-						set .@headpalette,2;
+						.@headpalette = 2;
 						break;
 					case 4:
-						set .@headpalette,3;
+						.@headpalette = 3;
 						break;
 					case 5:
-						set .@headpalette,4;
+						.@headpalette = 4;
 						break;
 					case 6:
-						set .@headpalette,5;
+						.@headpalette = 5;
 						break;
 					case 7:
-						set .@headpalette,6;
+						.@headpalette = 6;
 						break;
 					case 8:
-						set .@headpalette,7;
+						.@headpalette = 7;
 						break;
 					}
 				}
@@ -1244,8 +1244,8 @@ lhz_in02,91,155,5	script	Assistant Beautician#li	4_F_LGTGIRL,{
 				mes "Wait, I can...";
 				mes "I can fix this!";
 				next;
-				set .@style_r,rand(1,23);
-				set .@color_r,rand(1,8);
+				.@style_r = rand(1,23);
+				.@color_r = rand(1,8);
 				mes "[Assistant Beautician]";
 				mes "^333333*Pant Pant Pant*^000000";
 				next;
diff --git a/npc/merchants/hd_refine.txt b/npc/merchants/hd_refine.txt
index 0091b36ef..31e3f5cdf 100644
--- a/npc/merchants/hd_refine.txt
+++ b/npc/merchants/hd_refine.txt
@@ -31,10 +31,10 @@
 	mes "So lets kick this into overdrive, what d' ya say? What item do you want to refine?";
 	next;
 	setarray .@position$[1],"Head","Body","Left Hand","Right Hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
-	set .@menu$,"";
-	for(set .@i,1; .@i<=10; set .@i,.@i+1)
-		set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Not equipped]")+":";
-	set .@part, select(.@menu$);
+	.@menu$ = "";
+	for(.@i = 1; .@i<=10; ++.@i)
+		.@menu$ += ((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Not equipped]")+":";
+	.@part = select(.@menu$);
 	if (!getequipisequiped(.@part)) {
 		mes "[Blacksmith Mighty Hammer]";
 		switch(.@part) {
@@ -85,15 +85,15 @@
 	switch(getequipweaponlv(.@part)) {
 	default:
 	case 0:
-		set .@price,20000;
-		set .@material,6241; //HD_Elunium
+		.@price = 20000;
+		.@material = 6241; //HD_Elunium
 		break;
 	case 1:
 	case 2:
 	case 3:
 	case 4:
-		set .@price,20000;
-		set .@material,6240; //HD_Oridecon
+		.@price = 20000;
+		.@material = 6240; //HD_Oridecon
 		break;
 	}
 	mes "[Blacksmith Mighty Hammer]";
@@ -170,10 +170,10 @@ lhz_in02,280,19,3	duplicate(MightyHammer)	Mighty Hammer#lhz	4_M_DWARF
 	mes "Which equipment do you want to refine?";
 	next;
 	setarray .@position$[1],"Head","Body","Left Hand","Right Hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
-	set .@menu$,"";
-	for(set .@i,1; .@i<=10; set .@i,.@i+1)
-		set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Unequipped]")+":";
-	set .@part, select(.@menu$);
+	.@menu$ = "";
+	for(.@i = 1; .@i<=10; ++.@i)
+		.@menu$ += ((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[Unequipped]")+":";
+	.@part = select(.@menu$);
 	if (!getequipisequiped(.@part)) {
 		mes "[Basta]";
 		switch(.@part) {
@@ -229,17 +229,17 @@ lhz_in02,280,19,3	duplicate(MightyHammer)	Mighty Hammer#lhz	4_M_DWARF
 	switch(getequipweaponlv(.@part)) {
 	default:
 	case 0:
-		set .@price,100000;
-		set .@material,6225; //HD_Carnium
-		set .@type$,"armor";
+		.@price = 100000;
+		.@material = 6225; //HD_Carnium
+		.@type$ = "armor";
 		break;
 	case 1:
 	case 2:
 	case 3:
 	case 4:
-		set .@price,100000;
-		set .@material,6226; //HD_Bradium
-		set .@type$,"weapon";
+		.@price = 100000;
+		.@material = 6226; //HD_Bradium
+		.@type$ = "weapon";
 		break;
 	}
 	mes "[Basta]";
diff --git a/npc/merchants/milk_trader.txt b/npc/merchants/milk_trader.txt
index 3f2c46a20..d9c7efe47 100644
--- a/npc/merchants/milk_trader.txt
+++ b/npc/merchants/milk_trader.txt
@@ -46,9 +46,9 @@ prontera,73,140,0	script	Milk Vendor	4_M_04,{
 			mes "way, you know...";
 			close;
 		}
-		set .@bottles,countitem(713);
-		set .@total_weight,.@bottles * 50;
-		set .@total_cost,.@bottles * 15;
+		.@bottles = countitem(713);
+		.@total_weight = .@bottles * 50;
+		.@total_cost = .@bottles * 15;
 		if (Zeny < .@total_cost) {
 			mes "[Milk Vendor]";
 			mes "Oh, whoa~!";
diff --git a/npc/merchants/novice_exchange.txt b/npc/merchants/novice_exchange.txt
index 5474190e6..4f9c05218 100644
--- a/npc/merchants/novice_exchange.txt
+++ b/npc/merchants/novice_exchange.txt
@@ -355,7 +355,7 @@ function	script	F_PotExchange	{
 					break;
 				}
 			}
-			set .@put_out_item,.@input * getarg(1);
+			.@put_out_item = .@input * getarg(1);
 			if (countitem(getarg(0)) < .@put_out_item) {
 				mes "[Merchant]";
 				mes "Uh oh, the number you entered doesn't seem right. You better check the number of Red Potions that you can trade for again.";
diff --git a/npc/merchants/old_pharmacist.txt b/npc/merchants/old_pharmacist.txt
index d74b3287d..1889ea3b9 100644
--- a/npc/merchants/old_pharmacist.txt
+++ b/npc/merchants/old_pharmacist.txt
@@ -56,13 +56,13 @@ alberta_in,16,28,4	script	Pharmacist	1_M_PUBMASTER,{
 				next;
 				mes "[Old Pharmacist]";
 				if (countitem(507) < countitem(713)) {
-					set .@max,countitem(507);
+					.@max = countitem(507);
 				}
 				else if (countitem(508) < countitem(713)) {
-					set .@max,countitem(508);
+					.@max = countitem(508);
 				}
 				else {
-					set .@max,countitem(713);
+					.@max = countitem(713);
 				}
 				if ((countitem(507) < 1) || (countitem(508) < 1) || (countitem(713) == 0)) {
 					mes "You rascal! What did you expect?! Coming here with nothing. Tsk!";
@@ -186,9 +186,9 @@ L_Making:
 	next;
 	mes "[Old Pharmacist]";
 	if ((countitem(getarg(0))/2) < countitem(713)) {
-		set .@max,countitem(getarg(0))/2;
+		.@max = countitem(getarg(0))/2;
 	} else {
-		set .@max,countitem(713);
+		.@max = countitem(713);
 	}
 	if ((countitem(getarg(0)) < 2) || (countitem(713) == 0)) {
 		mes "You rascal! What did you expect?! Coming here with nothing. Tsk!";
diff --git a/npc/merchants/quivers.txt b/npc/merchants/quivers.txt
index 37c183600..a2e293e83 100644
--- a/npc/merchants/quivers.txt
+++ b/npc/merchants/quivers.txt
@@ -76,10 +76,10 @@ S_BuyQuiver:
 		next;
 		switch(select("Store as many Arrows in quivers as possible:Purchase 1 quiver:Cancel")) {
 		case 1:
-			set .@arrows,countitem(getarg(0));
-			set .@quiver,.@arrows / getarg(1);
-			set .@arrows_used,.@quiver * getarg(1);
-			set .@arrow_zeny01,.@quiver * getarg(2);
+			.@arrows = countitem(getarg(0));
+			.@quiver = .@arrows / getarg(1);
+			.@arrows_used = .@quiver * getarg(1);
+			.@arrow_zeny01 = .@quiver * getarg(2);
 			mes "Number of";
 			mes "Arrows: ^3131FF"+.@arrows+" ^000000";
 			mes "Maximum Number";
diff --git a/npc/merchants/refine.txt b/npc/merchants/refine.txt
index 823fbea66..2b2d95180 100644
--- a/npc/merchants/refine.txt
+++ b/npc/merchants/refine.txt
@@ -144,7 +144,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 					break;
 				}
 			}
-			set .@sell,.@input * 150;
+			.@sell = .@input * 150;
 			if (Zeny < .@sell) {
 				mes "[Christopher Guillenrow]";
 				mes "I don't think I can let ye have this with the zeny ye have. I can't lose me money because of ye.";
@@ -225,7 +225,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 					break;
 				}
 			}
-			set .@sell,.@input * 200;
+			.@sell = .@input * 200;
 			if (Zeny < .@sell) {
 				mes "[Christopher Guillenrow]";
 				mes "Ye don't have enough money. Ye know I can't sell this at a lower price... You know how the wifey nags about Zeny.";
@@ -263,7 +263,7 @@ geffen_in,110,172,0	script	Christopher#1	1_M_SMITH,{
 					break;
 				}
 			}
-			set .@sell,.@input * 1000;
+			.@sell = .@input * 1000;
 			if (Zeny < .@sell) {
 				mes "[Christopher Guillenrow]";
 				mes "I don't think I can let ye have this with the zeny ye have. I can't lose me money because of ye.";
@@ -403,27 +403,27 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 		next;
 		switch(select("Mini Furnace - 150z.:Iron Hammer - 1,000z.:Golden Hammer - 3,000z.:Oridecon Hammer - 5,000z.:Cancel.")) {
 		case 1:
-			set .@item,612;
-			set .@item_cost,150;
-			set .@item_weight,200;
+			.@item = 612;
+			.@item_cost = 150;
+			.@item_weight = 200;
 			mes "[Paul Spanner]";
 			mes "You definately need this furnce to process ores!";
 			next;
 			break;
 		case 2:
-			set .@item,613;
-			set .@item_cost,1000;
-			set .@item_weight,200;
+			.@item = 613;
+			.@item_cost = 1000;
+			.@item_weight = 200;
 			break;
 		case 3:
-			set .@item,614;
-			set .@item_cost,3000;
-			set .@item_weight,300;
+			.@item = 614;
+			.@item_cost = 3000;
+			.@item_weight = 300;
 			break;
 		case 4:
-			set .@item,615;
-			set .@item_cost,5000;
-			set .@item_weight,400;
+			.@item = 615;
+			.@item_cost = 5000;
+			.@item_weight = 400;
 			break;
 		case 5:
 			mes "[Paul Spanner]";
@@ -449,7 +449,7 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 				break;
 			}
 		}
-		set .@sell,.@input * .@item_cost;
+		.@sell = .@input * .@item_cost;
 		if (Zeny < .@sell) {
 			mes "[Paul Spanner]";
 			mes "You don't have enough money. Sorry, I cannot sell them at a loss.";
@@ -472,12 +472,12 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 		next;
 		switch(select("Phracon - 200z.:Emveretarcon - 1,000z.:Quit.")) {
 		case 1:
-			set .@item,1010;
-			set .@item_price,200;
+			.@item = 1010;
+			.@item_price = 200;
 			break;
 		case 2:
-			set .@item,1011;
-			set .@item_price,1000;
+			.@item = 1011;
+			.@item_price = 1000;
 			break;
 		case 3:
 			mes "[Paul Spanner]";
@@ -503,7 +503,7 @@ ein_in01,38,29,0	script	Paul Spanner	1_M_SMITH,{
 				break;
 			}
 		}
-		set .@sell,.@input * .@item_price;
+		.@sell = .@input * .@item_price;
 		if (Zeny < .@sell) {
 			mes "[Paul Spanner]";
 			mes "You don't have enough money. Sorry, I cannot sell them at a loss.";
@@ -604,7 +604,7 @@ lhz_in02,282,20,7	script	Fulerr	4_M_LGTMAN,{
 //============================================================
 function	script	refinemain	{
 	disable_items;
-	set .@features,getarg(1);
+	.@features = getarg(1);
 	mes "[" + getarg(0) + "]";
 	mes "I'm the Armsmith.";
 	mes "I can refine all kinds of weapons, armor and equipment, so let me";
@@ -612,20 +612,20 @@ function	script	refinemain	{
 	next;
 
 	setarray .@position$[1], "Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
-	set .@menu$,"";
-	for(set .@i,1; .@i<=10; set .@i,.@i+1) {
+	.@menu$ = "";
+	for(.@i = 1; .@i <= 10; ++.@i) {
 		if(getequipisequiped(.@i)) {
-			set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
-			set .@equipped,1;
+			.@menu$ += .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
+			.@equipped = 1;
 		}
-		set .@menu$, .@menu$ + ":";
+		.@menu$ += ":";
 	}
 	if (.@equipped == 0) {
 		mes "[" + getarg(0) + "]";
 		mes "I don't think I can refine any items you have...";
 		close;
 	}
-	set .@part, select(.@menu$);
+	.@part = select(.@menu$);
 
 	if(!getequipisequiped(.@part)) { //custom check
 		mes "[" + getarg(0) + "]";
@@ -650,38 +650,38 @@ function	script	refinemain	{
 		mes "refined as it gets!";
 		close;
 	}
-	set .@refineitemid, getequipid(.@part); // save id of the item
-	set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count
+	.@refineitemid = getequipid(.@part); // save id of the item
+	.@refinerycnt = getequiprefinerycnt(.@part); //save refinery count
 	switch(getequipweaponlv(.@part)){
 	case 0: 	//Refine Armor
-		set .@price,2000;
-		set .@material,985;
-		set .@safe,4;
+		.@price = 2000;
+		.@material = 985;
+		.@safe = 4;
 		break;
 	case 1: 	//Refine Level 1 Weapon
-		set .@price,50;
-		set .@material,1010;
-		set .@safe,7;
+		.@price = 50;
+		.@material = 1010;
+		.@safe = 7;
 		break;
 	case 2: 	//Refine Level 2 Weapon
-		set .@price,200;
-		set .@material,1011;
-		set .@safe,6;
+		.@price = 200;
+		.@material = 1011;
+		.@safe = 6;
 		break;
 	case 3: 	//Refine Level 3 Weapon
-		set .@price,5000;
-		set .@material,984;
-		set .@safe,5;
+		.@price = 5000;
+		.@material = 984;
+		.@safe = 5;
 		break;
 	case 4: 	//Refine Level 4 Weapon
-		set .@price,20000;
-		set .@material,984;
-		set .@safe,4;
+		.@price = 20000;
+		.@material = 984;
+		.@safe = 4;
 		break;
 	case 5: 	//Refine other stuff?
-		set .@price,2000;
-		set .@material,985;
-		set .@safe,4;
+		.@price = 2000;
+		.@material = 985;
+		.@safe = 4;
 		break;
 	}
 	if(.@features != 1) {
@@ -757,7 +757,7 @@ function	script	refinemain	{
 			failedrefitem .@part;
 			mes "[" + getarg(0) + "]";
 			emotion (!rand(5))?e_cash:e_omg;
-			set .@lose,rand(1,3);
+			.@lose = rand(1,3);
 			if (.@lose == 1) {
 				mes "OH! MY GOD!";
 				mes "Damn it! Not again!";
@@ -778,7 +778,7 @@ function	script	refinemain	{
 		mes "["+getarg(0)+"]";
 		successrefitem .@part;
 		emotion e_heh;
-		set .@win,rand(1,3);
+		.@win = rand(1,3);
 		if (.@win == 1) {
 			mes "Perfect!";
 			mes "Heh heh!";
@@ -805,12 +805,12 @@ function	script	refinemain	{
 		mes "[" + getarg(0) + "]";
 		mes "I can refine this to the safe limit or a desired number of times. It's your choice.";
 		next;
-		set .@menu2,select("To the safe limit, please.","I'll decide how many times.","I've changed my mind...");
+		.@menu2 = select("To the safe limit, please.","I'll decide how many times.","I've changed my mind...");
 	} else
-		set .@menu2,2;
+		.@menu2 = 2;
 	switch(.@menu2){
 	case 1:
-		set .@refinecnt,.@safe - getequiprefinerycnt(.@part);
+		.@refinecnt = .@safe - getequiprefinerycnt(.@part);
 		break;
 	case 2:
 		next;
@@ -818,14 +818,14 @@ function	script	refinemain	{
 		mes "How many times would you like me to refine your item?";
 		next;
 		input .@refinecnt;
-		set .@refinecheck,.@refinecnt + getequiprefinerycnt(.@part);
+		.@refinecheck = .@refinecnt + getequiprefinerycnt(.@part);
 		if (.@refinecnt < 1 || .@refinecheck > 10) {
 			mes "[" + getarg(0) + "]";
 			mes "I can't refine this item that many times.";
 			close;
 		}
 		if(.@refinecheck > .@safe) {
-			set .@refinecheck,.@refinecheck - .@safe;
+			.@refinecheck -= .@safe;
 			mes "[" + getarg(0) + "]";
 			mes "This will try to refine the equipment " + .@refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?";
 			next;
@@ -842,7 +842,7 @@ function	script	refinemain	{
 		mes "You said so... So be it.";
 		close;
 	}
-	set .@fullprice,.@price * .@refinecnt;
+	.@fullprice = .@price * .@refinecnt;
 	mes "[" + getarg(0) + "]";
 	mes "That will cost you " + .@refinecnt + " " + getitemname(.@material) + " and " + .@fullprice + " Zeny. Is that ok?";
 	next;
@@ -877,17 +877,17 @@ function	script	refinemain	{
 			emotion e_omg;
 			mes "[" + getarg(0) + "]";
 			mes "WAHHHH!!! I'm so sorry... I warned you this could happen...";
-			set .@refinecnt,.@refinecnt - 1;
+			--.@refinecnt;
 			if(.@refinecnt == 0) close;
 			mes "Here's the unused Zeny and materials back...";
 			getitem .@material,.@refinecnt;
-			set .@fullprice,.@refinecnt * .@price;
+			.@fullprice = .@refinecnt * .@price;
 			Zeny += .@fullprice;
 			close;
 		}
 		successrefitem .@part;
 		emotion e_no1;
-		set .@refinecnt,.@refinecnt - 1;
+		--.@refinecnt;
 		next;
 	}
 	mes "[" + getarg(0) + "]";
@@ -946,12 +946,12 @@ function	script	phramain	{
 	next;
 	switch(select("Phracon - 200 Zeny:Emveretarcon - 1000 Zeny:Ask about other Metals")) {
 	case 1:
-		set .@material,1010;
-		set .@price,200;
+		.@material = 1010;
+		.@price = 200;
 		break;
 	case 2:
-		set .@material,1011;
-		set .@price,1000;
+		.@material = 1011;
+		.@price = 1000;
 		break;
 	case 3:
 		mes "[" + getarg(0) + "]";
@@ -984,7 +984,7 @@ function	script	phramain	{
 			break;
 		}
 	}
-	set .@sell,.@input * .@price;
+	.@sell = .@input * .@price;
 	if (Zeny < .@sell) {
 		mes "[" + getarg(0) + "]";
 		mes "Err...";
@@ -1183,7 +1183,7 @@ sch_gld,340,80,7	script	Repairman#sch_gld	4_M_04,{
 // Equipment Repair Function
 //============================================================
 function	script	repairmain	{
-	set .@repairprice,5000;
+	.@repairprice = 5000;
 	mes "["+getarg(0)+"]";
 	mes "Hey there!";
 	mes "Do you want me";
@@ -1193,14 +1193,14 @@ function	script	repairmain	{
 	next;
 	switch(select("Actually, I do have some items...:None at the moment.")) {
 	case 1:
-		set .@checkitem,1;
+		.@checkitem = 1;
 		while (1) {
 			if (getbrokenid(.@checkitem) == 0) {
 				break;
 			}
-			set .@checkitem,.@checkitem+1;
+			++.@checkitem;
 		}
-		set .@checkitem,.@checkitem-1;
+		--.@checkitem;
 		if (!.@checkitem) {
 			mes "["+getarg(0)+"]";
 			mes "Oh wow, this is incredible!";
@@ -1217,7 +1217,7 @@ function	script	repairmain	{
 		mes "" + .@checkitem + " are damaged.";
 		mes "Would you like to repair?";
 		next;
-		set .@totalcost,.@repairprice*.@checkitem;
+		.@totalcost = .@repairprice*.@checkitem;
 		mes "["+getarg(0)+"]";
 		mes "Each repair costs " + .@repairprice + " Zeny. So to repair all your damaged items would cost " + .@totalcost + " Zeny! Would you like to repair the items?";
 		next;
@@ -1229,19 +1229,19 @@ function	script	repairmain	{
 				mes "Check your wallet before you receive the repair bill! I can't repair anything because you don't have enough Zeny.";
 				close;
 			}
-			set .@checkitem2,1;
+			.@checkitem2 = 1;
 			while (1) {
 				if (getbrokenid(.@checkitem2) == 0) {
 					break;
 				}
-				set .@checkitem2,.@checkitem2+1;
+				++.@checkitem2;
 			}
-			set .@checkitem2,.@checkitem2-1;
+			--.@checkitem2;
 			if (.@checkitem == .@checkitem2) {
 				Zeny -= .@totalcost;
 				while (.@checkitem) {
 					repair(.@checkitem);
-					set .@checkitem,.@checkitem-1;
+					--.@checkitem;
 				}
 				mes "["+getarg(0)+"]";
 				mes "Okay! All done. Now, try to be a little more careful. Items have lives too you know.";
diff --git a/npc/merchants/renters.txt b/npc/merchants/renters.txt
index 3b6e6c28c..00ff18dd5 100644
--- a/npc/merchants/renters.txt
+++ b/npc/merchants/renters.txt
@@ -26,9 +26,9 @@
 
 // PecoPeco Breeder (for Knights)-------------------------------------------
 prontera,55,350,5	script	Peco Peco Breeder#knt	8W_SOLDIER,{
-	if(Upper==0) set .@price,2500; //Normal Peco - default price
-	if(Upper==1) set .@price,2500; //Armored Peco
-	if(Upper==2) set .@price,2500; //Baby Peco
+	if(Upper==0) .@price = 2500; //Normal Peco - default price
+	if(Upper==1) .@price = 2500; //Armored Peco
+	if(Upper==2) .@price = 2500; //Baby Peco
 
 	mes "[Peco Peco Breeder]";
 	if (BaseJob == Job_Knight && Class < Job_Rune_Knight) {
@@ -88,9 +88,9 @@ prontera,55,350,5	script	Peco Peco Breeder#knt	8W_SOLDIER,{
 
 // Grand PecoPeco Breeder (for Crusaders)-------------------------------------------
 prontera,232,318,3	script	Peco Peco Breeder#cru	8W_SOLDIER,{
-	if(Upper==0) set .@price,3500; //Normal Peco - default price
-	if(Upper==1) set .@price,3500; //Armored Peco
-	if(Upper==2) set .@price,3500; //Baby Peco
+	if(Upper==0) .@price = 3500; //Normal Peco - default price
+	if(Upper==1) .@price = 3500; //Armored Peco
+	if(Upper==2) .@price = 3500; //Baby Peco
 
 	mes "[PecoPeco Breeder]";
 	if (BaseJob == Job_Crusader && Class < Job_Rune_Knight) {
@@ -149,9 +149,9 @@ prontera,232,318,3	script	Peco Peco Breeder#cru	8W_SOLDIER,{
 
 // Falcon Master--------------------------------------------------------------
 hu_in01,381,304,5	script	Falcon Breeder#hnt	8W_SOLDIER,{
-	if(Upper==0) set .@price,2500; //Normal Falcon - default price
-	if(Upper==1) set .@price,2500; //Scarf Falcon
-	if(Upper==2) set .@price,2500; //Baby Falcon
+	if(Upper==0) .@price = 2500; //Normal Falcon - default price
+	if(Upper==1) .@price = 2500; //Scarf Falcon
+	if(Upper==2) .@price = 2500; //Baby Falcon
 
 	mes "[Falcon Breeder]";
 	if (BaseJob == Job_Hunter) {
diff --git a/npc/merchants/socket_enchant.txt b/npc/merchants/socket_enchant.txt
index 4c806a819..178f8ca98 100644
--- a/npc/merchants/socket_enchant.txt
+++ b/npc/merchants/socket_enchant.txt
@@ -281,7 +281,7 @@ function	script	Func_Socket	{
 				mes "Alright then, let the work begin!";
 				mes "You'd better pray for a successful result.";
 				next;
-				set .@a, rand(1,100);
+				.@a = rand(1,100);
 				if ((.@a > getarg(2)) && (.@a < getarg(3)))
 				{
 					specialeffect getarg(3) == 51 ? EF_LORD : EF_SANCTUARY; // only S Class items have Lord of Vermillion effect
diff --git a/npc/merchants/socket_enchant2.txt b/npc/merchants/socket_enchant2.txt
index dbdcfe379..08fe62ed9 100644
--- a/npc/merchants/socket_enchant2.txt
+++ b/npc/merchants/socket_enchant2.txt
@@ -277,7 +277,7 @@
 						mes "Shall we start now?";
 						mes "Pray to your gods for good luck.";
 						next;
-						set .@a, rand(1,100);
+						.@a = rand(1,100);
 						if ((.@a > 4) && (.@a < 95))
 						{
 							specialeffect EF_LORD;
@@ -417,7 +417,7 @@ function	script	Func_Socket2	{
 				mes "Alright then, let the work begin!";
 				mes "You'd better pray for a successful result.";
 				next;
-				set .@a, rand(1,100);
+				.@a = rand(1,100);
 				if ((.@a > getarg(2)) && (.@a < getarg(3)))
 				{
 					specialeffect EF_LORD;