diff options
Diffstat (limited to 'npc/other/poring_war.txt')
| -rw-r--r-- | npc/other/poring_war.txt | 138 |
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; } |