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

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

1 files changed, 69 insertions, 69 deletions

diff --git a/npc/other/poring_war.txt b/npc/other/poring_war.txt
index 38eac1de1..5e99c97d8 100644
--- a/npc/other/poring_war.txt
+++ b/npc/other/poring_war.txt
@@ -129,13 +129,13 @@ poring_w01,100,97,3	script	Poring Vending Machine#w	4_PORING,{
 							mes "What could it be?";
 							next;
 							switch(rand(1,17)) {
-							case 5: set .@Random_Figure,2766; break; // Swordman_Figure
-							case 6: set .@Random_Figure,2767; break; // Acolyte_Figure
-							case 8: set .@Random_Figure,2770; break; // Thief_Figure
-							case 11: set .@Random_Figure,2771; break; // Merchant_Figure
-							case 13: set .@Random_Figure,2769; break; // Archer_Figure
-							case 14: set .@Random_Figure,2768; break; // Mage_Figure
-							default: set .@Random_Figure,2765; break; // Novice_Figure
+							case 5: .@Random_Figure = 2766; break; // Swordman_Figure
+							case 6: .@Random_Figure = 2767; break; // Acolyte_Figure
+							case 8: .@Random_Figure = 2770; break; // Thief_Figure
+							case 11: .@Random_Figure = 2771; break; // Merchant_Figure
+							case 13: .@Random_Figure = 2769; break; // Archer_Figure
+							case 14: .@Random_Figure = 2768; break; // Mage_Figure
+							default: .@Random_Figure = 2765; break; // Novice_Figure
 							}
 							mes "A nice " + getitemname(.@Random_Figure) + ".";
 							delitem 7539,50; // Poring_Coin
@@ -291,9 +291,9 @@ poring_w01,96,97,3	script	Sweet Devi#wop	4_DEVIRUCHI,{
 		close2;
 		if (WoP_SaveMap$ != "") {
 			savepoint WoP_SaveMap$,WoP_SaveMap_X,WoP_SaveMap_Y;
-			set WoP_SaveMap$,"";
-			set WoP_SaveMap_X,0;
-			set WoP_SaveMap_Y,0;
+			WoP_SaveMap$ = "";
+			WoP_SaveMap_X = 0;
+			WoP_SaveMap_Y = 0;
 		}
 		warp getsavepoint(0), getsavepoint(1), getsavepoint(2);
 		end;
@@ -304,12 +304,12 @@ OnPCLogoutEvent:
 	if (.@map$ == "poring_w02") {
 		if (WoP_SaveMap$ != "") {
 			savepoint WoP_SaveMap$,WoP_SaveMap_X,WoP_SaveMap_Y;
-			set WoP_SaveMap$,"";
-			set WoP_SaveMap_X,0;
-			set WoP_SaveMap_Y,0;
+			WoP_SaveMap$ = "";
+			WoP_SaveMap_X = 0;
+			WoP_SaveMap_Y = 0;
 		}
 		delitem 7773,countitem(7773);
-		set wop_team,0;
+		wop_team = 0;
 	}
 	end;
 
@@ -317,9 +317,9 @@ OnPCDieEvent:
 	getmapxy .@map$,.@x,.@y,0;
 	if (.@map$ == "poring_w02" && wop_team) {
 		if (getsavepoint(0) != "poring_w02" && WoP_SaveMap$ == "") {
-			set WoP_SaveMap$,getsavepoint(0);
-			set WoP_SaveMap_X,getsavepoint(1);
-			set WoP_SaveMap_Y,getsavepoint(2);
+			WoP_SaveMap$ = getsavepoint(0);
+			WoP_SaveMap_X = getsavepoint(1);
+			WoP_SaveMap_Y = getsavepoint(2);
 		}
 		if (wop_team == 1) {
 			savepoint "poring_w02",rand(44,51),rand(76,87);
@@ -342,13 +342,13 @@ OnInit:
 	removemapflag "poring_w02",mf_pvp;
 	removemapflag "poring_w02",mf_pvp_noguild;
 	removemapflag "poring_w02",mf_pvp_nocalcrank;
-	set $@wop_teamcount,0;
-	set $@wop_deadcount_a,0;
-	set $@wop_deadcount_d,0;
-	set $@wop_team_a,0;
-	set $@wop_team_d,0;
-	set $@wop_doorcount_a,0;
-	set $@wop_doorcount_d,0;
+	$@wop_teamcount = 0;
+	$@wop_deadcount_a = 0;
+	$@wop_deadcount_d = 0;
+	$@wop_team_a = 0;
+	$@wop_team_d = 0;
+	$@wop_doorcount_a = 0;
+	$@wop_doorcount_d = 0;
 	end;
 }
 
@@ -389,7 +389,7 @@ OnStartArena:
 	warpwaitingpc "poring_w02",26,175;
 	disablewaitingroomevent;
 	if ($@wop_teamcount == 0) {
-		set $@wop_teamcount,1;
+		$@wop_teamcount = 1;
 		donpcevent "Poring#wop_door_d::OnDevilingStart";
 		donpcevent "#wop_warp_rtry::OnStop";
 	}
@@ -457,7 +457,7 @@ OnTimer55100:
 	donpcevent "Poring#wop_door_a::OnDisable";
 	donpcevent "Poring#wop_door_d::OnDisable";
 	donpcevent "Poring#wop_door_all::OnDisable";
-	set $@wop_teamcount,0;
+	$@wop_teamcount = 0;
 	donpcevent "#wop_master::OnAngelingEnd";
 	donpcevent "#wop_warp_rtry::OnEnable";
 	end;
@@ -481,7 +481,7 @@ OnStartArena:
 	warpwaitingpc "poring_w02",170,175;
 	disablewaitingroomevent;
 	if ($@wop_teamcount == 0) {
-		set $@wop_teamcount,1;
+		$@wop_teamcount = 1;
 		donpcevent "Poring#wop_door_a::OnAngelingStart";
 		donpcevent "#wop_warp_rtry::OnStop";
 	}
@@ -550,7 +550,7 @@ OnTimer55100:
 	donpcevent "Poring#wop_door_d::OnDisable";
 	donpcevent "Poring#wop_door_all::OnDisable";
 
-	set $@wop_teamcount,0;
+	$@wop_teamcount = 0;
 	donpcevent "#wop_master::OnDevilingEnd";
 	donpcevent "#wop_warp_rtry::OnEnable";
 	end;
@@ -627,8 +627,8 @@ poring_w02,26,181,3	script	Mr. Doppel#wop_team_a	8_DOPPEL,{
 		mes "- after you loose some weight. -";
 		close;
 	}
-	set .@a_tname$,getpartyname($@wop_team_a);
-	set .@pname$,getpartyname(getcharid(1));
+	.@a_tname$ = getpartyname($@wop_team_a);
+	.@pname$ = getpartyname(getcharid(1));
 	if ($@wop_team_a != 0 && $@wop_team_a == getcharid(1)) {
 		mes "[Mr. Doppel]";
 		mes "So, everyone joined the party?";
@@ -660,7 +660,7 @@ poring_w02,26,181,3	script	Mr. Doppel#wop_team_a	8_DOPPEL,{
 					mes "Very well. Nice you have done everything on time.";
 					delitem 7773,countitem(7773);
 					close2;
-					set wop_team,0;
+					wop_team = 0;
 					warp "poring_w02",44,82;
 					end;
 				}
@@ -671,7 +671,7 @@ poring_w02,26,181,3	script	Mr. Doppel#wop_team_a	8_DOPPEL,{
 				mes "Wait for all the other party members there.";
 				delitem 7773,countitem(7773);
 				close2;
-				set wop_team,0;
+				wop_team = 0;
 				warp "poring_w02",44,82;
 				end;
 			}
@@ -703,7 +703,7 @@ poring_w02,26,181,3	script	Mr. Doppel#wop_team_a	8_DOPPEL,{
 					mes "So, I'll register your party name as - " +.@pname$ + " -.";
 					mes "Now, Tell your ^4d4dffmembers to confirm your party^000000.";
 					mes "I'll send you to the battlefield as soon as I confirm your party.";
-					set $@wop_team_a,getcharid(1);
+					$@wop_team_a = getcharid(1);
 					mapannounce "poring_w02","The registration of the Angeling Team has been confirmed. The party members must confirm their team with Mr. Doppel.",0,0x33FF66;
 					close;
 				case 3:
@@ -758,8 +758,8 @@ poring_w02,170,181,3	script	Mr. Doppel#wop_team_d	8_DOPPEL,{
 		mes "- after you loose some weight. -";
 		close;
 	}
-	set .@d_tname$,getpartyname($@wop_team_d);
-	set .@pname$,getpartyname(getcharid(1));
+	.@d_tname$ = getpartyname($@wop_team_d);
+	.@pname$ = getpartyname(getcharid(1));
 	if ($@wop_team_d != 0 && $@wop_team_d == getcharid(1)) {
 		mes "[Mr. Doppel]";
 		mes "So, everyone joined the party?";
@@ -791,7 +791,7 @@ poring_w02,170,181,3	script	Mr. Doppel#wop_team_d	8_DOPPEL,{
 					mes "Very well. Nice you have done everything on time.";
 					delitem 7773,countitem(7773);
 					close2;
-					set wop_team,0;
+					wop_team = 0;
 					warp "poring_w02",153,82;
 					end;
 				}
@@ -801,7 +801,7 @@ poring_w02,170,181,3	script	Mr. Doppel#wop_team_d	8_DOPPEL,{
 				mes "Wait for all the other party members there.";
 				delitem 7773,countitem(7773);
 				close2;
-				set wop_team,0;
+				wop_team = 0;
 				warp "poring_w02",153,82;
 				end;
 			}
@@ -832,7 +832,7 @@ poring_w02,170,181,3	script	Mr. Doppel#wop_team_d	8_DOPPEL,{
 					mes "So, I'll register your party name as - " + .@pname$ + " -.";
 					mes "Now, Tell your ^4d4dffmembers to confirm your party^000000.";
 					mes "I'll send you to the battlefield as soon as I confirm your party.";
-					set $@wop_team_d,getcharid(1);
+					$@wop_team_d = getcharid(1);
 					mapannounce "poring_w02","The registration of the Deviling Team has been confirmed. The party members must confirm their team with Mr. Doppel.",0,0x33FF66;
 					close;
 				case 3:
@@ -889,13 +889,13 @@ OnReset:
 	donpcevent "#wop_angellium2::OnReset";
 	donpcevent "#wop_devillium1::OnReset";
 	donpcevent "#wop_devillium2::OnReset";
-	set $@wop_team_a,0;
-	set $@wop_team_d,0;
-	set $@wop_deadcount_a,0;
-	set $@wop_deadcount_d,0;
-	set $@wop_teamcount,0;
-	set $@wop_doorcount_a,0;
-	set $@wop_doorcount_d,0;
+	$@wop_team_a = 0;
+	$@wop_team_d = 0;
+	$@wop_deadcount_a = 0;
+	$@wop_deadcount_d = 0;
+	$@wop_teamcount = 0;
+	$@wop_doorcount_a = 0;
+	$@wop_doorcount_d = 0;
 	donpcevent "#wop_warp_a::OnDisable";
 	donpcevent "#wop_warp_d::OnDisable";
 	donpcevent "#wop_warp_rtry::OnDisable";
@@ -930,7 +930,7 @@ OnStop:
 	end;
 
 OnAngelingWin:
-	set .@i,1;
+	.@i = 1;
 OnDevilingWin:
 	removemapflag "poring_w02",mf_partylock;
 	removemapflag "poring_w02",mf_pvp;
@@ -1044,7 +1044,7 @@ OnDisable:
 	end;
 
 OnTouch:
-	set wop_team,1;
+	wop_team = 1;
 	warp "poring_w02",57,82;
 	end;
 }
@@ -1066,7 +1066,7 @@ OnDisable:
 	end;
 
 OnTouch:
-	set wop_team,2;
+	wop_team = 2;
 	warp "poring_w02",140,82;
 	end;
 }
@@ -1086,7 +1086,7 @@ OnAngelingSpawn:
 	end;
 
 OnMyMobDead:
-	set $@wop_deadcount_a,$@wop_deadcount_a + 1;
+	++$@wop_deadcount_a;
 	if ($@wop_deadcount_a == 1) {
 		mapannounce "poring_w02","Mr. Doppel: The Angeling on the 1st base has been killed! 1 point lost!!",0,0x00ff00;
 		initnpctimer;
@@ -1101,7 +1101,7 @@ OnMyMobDead:
 	end;
 
 OnTimer120000:
-	set $@wop_deadcount_a,$@wop_deadcount_a - 1;
+	--$@wop_deadcount_a;
 	donpcevent "#wop_angellium1::OnAngelingSpawn";
 	mapannounce "poring_w02","Mr. Doppel: The Angeling on the 1st base has been revived! 1 point gained!!",0,0x00ff00;
 	stopnpctimer;
@@ -1120,7 +1120,7 @@ OnAngelingSpawn:
 	end;
 
 OnMyMobDead:
-	set $@wop_deadcount_a,$@wop_deadcount_a + 1;
+	++$@wop_deadcount_a;
 	if ($@wop_deadcount_a == 1) {
 		mapannounce "poring_w02","Mr. Doppel: The Angeling on the 2nd base has been killed! 1 point lost!!",0,0x00ff00;
 		initnpctimer;
@@ -1135,7 +1135,7 @@ OnMyMobDead:
 	end;
 
 OnTimer120000:
-	set $@wop_deadcount_a,$@wop_deadcount_a - 1;
+	--$@wop_deadcount_a;
 	donpcevent "#wop_angellium2::OnAngelingSpawn";
 	mapannounce "poring_w02","Mr. Doppel: The Angeling on the 2nd base has been revived! 1 point gained!!",0,0x00ff00;
 	stopnpctimer;
@@ -1155,7 +1155,7 @@ OnDevilingSpawn:
 	end;
 
 OnMyMobDead:
-	set $@wop_deadcount_d,$@wop_deadcount_d + 1;
+	++$@wop_deadcount_d;
 	if ($@wop_deadcount_d == 1) {
 		mapannounce "poring_w02","Mr. Doppel: The Deviling on the 1st base has been killed! 1 point lost!!",0,0x00ff00;
 		initnpctimer;
@@ -1170,7 +1170,7 @@ OnMyMobDead:
 	end;
 
 OnTimer120000:
-	set $@wop_deadcount_d,$@wop_deadcount_d - 1;
+	--$@wop_deadcount_d;
 	donpcevent "#wop_devillium1::OnDevilingSpawn";
 	mapannounce "poring_w02","Mr. Doppel: The Deviling on the 1st base has been revived! 1 point gained!!",0,0x00ff00;
 	stopnpctimer;
@@ -1190,7 +1190,7 @@ OnDevilingSpawn:
 	end;
 
 OnMyMobDead:
-	set $@wop_deadcount_d,$@wop_deadcount_d + 1;
+	++$@wop_deadcount_d;
 	if ($@wop_deadcount_d == 1) {
 		mapannounce "poring_w02","Mr. Doppel: The deviling on the 2nd base has been killed! 1 point lost!!",0,0x00ff00;
 		initnpctimer;
@@ -1205,7 +1205,7 @@ OnMyMobDead:
 	end;
 
 OnTimer120000:
-	set $@wop_deadcount_d,$@wop_deadcount_d - 1;
+	--$@wop_deadcount_d;
 	donpcevent "#wop_devillium2::OnDevilingSpawn";
 	mapannounce "poring_w02","Mr. Doppel: The deviling on the 2nd base has been revived! 1 point gained!!",0,0x00ff00;
 	stopnpctimer;
@@ -1222,8 +1222,8 @@ poring_w02,99,201,3	script	Deviruchi#wop_endmaster	4_DEVIRUCHI,{
 		mes "- after you loose some weight. -";
 		close;
 	}
-	set .@a_point,$@wop_deadcount_a;
-	set .@d_point,$@wop_deadcount_d;
+	.@a_point = $@wop_deadcount_a;
+	.@d_point = $@wop_deadcount_d;
 	if (getcharid(1) == $@wop_team_a) {
 		if (.@a_point < .@d_point) {
 			mes "[Devi]";
@@ -1427,13 +1427,13 @@ OnTimer68100:
 	donpcevent "#wop_devillium2::OnReset";
 	donpcevent "#wop_angellium1::OnReset";
 	donpcevent "#wop_angellium2::OnReset";
-	set $@wop_team_a,0;
-	set $@wop_team_d,0;
-	set $@wop_deadcount_a,0;
-	set $@wop_deadcount_d,0;
-	set $@wop_teamcount,0;
-	set $@wop_doorcount_a,0;
-	set $@wop_doorcount_d,0;
+	$@wop_team_a = 0;
+	$@wop_team_d = 0;
+	$@wop_deadcount_a = 0;
+	$@wop_deadcount_d = 0;
+	$@wop_teamcount = 0;
+	$@wop_doorcount_a = 0;
+	$@wop_doorcount_d = 0;
 	donpcevent "#wop_warp_a::OnDisable";
 	donpcevent "#wop_warp_d::OnDisable";
 	donpcevent "Mr. Doppel#wop_team_a::OnDisable";
@@ -1461,7 +1461,7 @@ poring_w02,99,52,0	script	Angeling Guardian#wop_da	HIDDEN_NPC,{
 					if ($@wop_doorcount_a < 4) {
 						mes "War Badge equipped.";
 						delitem 7773,1; // War_Badge
-						set $@wop_doorcount_a,$@wop_doorcount_a + 1;
+						++$@wop_doorcount_a;
 						cutin "wop_emb0" + $@wop_doorcount_a,1;
 						if ($@wop_doorcount_a == 4) {
 							next;
@@ -1501,7 +1501,7 @@ poring_w02,99,52,0	script	Angeling Guardian#wop_da	HIDDEN_NPC,{
 	end;
 
 OnInit:
-	set $@wop_doorcount_a,0;
+	$@wop_doorcount_a = 0;
 	end;
 }
 
@@ -1558,7 +1558,7 @@ poring_w02,98,113,0	script	Deviling Guardian#wop_dd	HIDDEN_NPC,{
 					if ($@wop_doorcount_d < 4) {
 						mes "War Badge equipped.";
 						delitem 7773,1; // War_Badge
-						set $@wop_doorcount_d,$@wop_doorcount_d + 1;
+						++$@wop_doorcount_d;
 						cutin "wop_emb0" + $@wop_doorcount_d,1;
 						if ($@wop_doorcount_d == 4) {
 							next;
@@ -1598,7 +1598,7 @@ poring_w02,98,113,0	script	Deviling Guardian#wop_dd	HIDDEN_NPC,{
 	end;
 
 OnInit:
-	set $@wop_doorcount_d,0;
+	$@wop_doorcount_d = 0;
 	end;
 }