diff options
Diffstat (limited to 'npc/re/battleground/kvm')
| -rw-r--r-- | npc/re/battleground/kvm/kvm01.txt | 430 | ||||
| -rw-r--r-- | npc/re/battleground/kvm/kvm02.txt | 430 | ||||
| -rw-r--r-- | npc/re/battleground/kvm/kvm03.txt | 431 | ||||
| -rw-r--r-- | npc/re/battleground/kvm/kvm_enter.txt | 218 | ||||
| -rw-r--r-- | npc/re/battleground/kvm/kvm_item_pay.txt | 313 |
5 files changed, 0 insertions, 1822 deletions
diff --git a/npc/re/battleground/kvm/kvm01.txt b/npc/re/battleground/kvm/kvm01.txt deleted file mode 100644 index b69649944..000000000 --- a/npc/re/battleground/kvm/kvm01.txt +++ /dev/null @@ -1,430 +0,0 @@ -//===== rAthena Script ======================================= -// BattleGround System - KvM 80-99 -//===== By: ================================================== -//= ???, L0ne_W0lf -//===== Current Version: ===================================== -//= 1.2 -//===== Compatible With: ===================================== -//= rAthena 1.0 -//===== Description: ========================================= -//= [AEGIS Conversion] -//= Kreiger Von Midgard Battleground for levels 80 to 99 -//= - Winning Team: 5 points -//= - Losing Team: 1 point -//===== Additional Comments: ================================= -//= 1.0 First Version. -//= 1.1 Updated using official Aegis files. [L0ne_W0lf] -//= 1.2 Upated some announces and dialogs from iRO. -//= Changed how the scoreboard works slightly. -//= Removed the areapercentheals, and minor things. -//============================================================ - -// Waiting Room NPCs -//============================================================ -bat_room,169,226,5 script KVM Waiting Room#a::KvM01R_Guillaume 418,{ - end; - -OnInit: - waitingroom "Battle Station 5 Players",6,"KvM01_BG::OnGuillaumeJoin",1; - end; - -OnEnterBG: - set $@KvM01BG_id1, waitingroom2bg("bat_c01",52,129,"KvM01_BG::OnGuillaumeQuit","KvM01_BG::OnGuillaumeDie"); - end; -} - -bat_room,169,220,0 warp #kvm801 2,2,bat_room,154,150 - -bat_room,169,205,3 script KVM Waiting Room#b::KvM01R_Croix 414,{ - end; - -OnInit: - waitingroom "Battle Station 5 Players",6,"KvM01_BG::OnCroixJoin",1; - end; - -OnEnterBG: - set $@KvM01BG_id2, waitingroom2bg("bat_c01",147,55,"KvM01_BG::OnCroixQuit","KvM01_BG::OnCroixDie"); - end; -} - -bat_room,169,211,0 warp #kvm802 2,2,bat_room,154,150 - -// Starting Line -//============================================================ -- script KVM01::CellEffect -1,{ - end; - -OnKvM01One: - misceffect EF_CHANGECOLD; - end; - -OnKvM01Two: - misceffect EF_CHANGEPOISON; - end; -} - -bat_c01,54,124,3 duplicate(CellEffect) #RedcellA1-1 139 -bat_c01,55,124,3 duplicate(CellEffect) #RedcellA2-1 139 -bat_c01,56,124,3 duplicate(CellEffect) #RedcellA3-1 139 -bat_c01,57,124,3 duplicate(CellEffect) #RedcellA4-1 139 -bat_c01,57,125,3 duplicate(CellEffect) #RedcellA5-1 139 -bat_c01,57,126,3 duplicate(CellEffect) #RedcellA6-1 139 -bat_c01,57,127,3 duplicate(CellEffect) #RedcellA7-1 139 - -bat_c01,145,59,3 duplicate(CellEffect) #RedcellB1-1 139 -bat_c01,144,59,3 duplicate(CellEffect) #RedcellB2-1 139 -bat_c01,143,59,3 duplicate(CellEffect) #RedcellB3-1 139 -bat_c01,142,59,3 duplicate(CellEffect) #RedcellB4-1 139 -bat_c01,142,56,3 duplicate(CellEffect) #RedcellB5-1 139 -bat_c01,142,57,3 duplicate(CellEffect) #RedcellB6-1 139 -bat_c01,142,58,3 duplicate(CellEffect) #RedcellB7-1 139 - -bat_c01,54,128,3 script #A_camp_start01 139,4,4,{ - end; - -OnInit: - disablenpc "#A_camp_start01"; - end; - -OnEnable: - enablenpc "#A_camp_start01"; - end; - -OnDisable: - disablenpc "#A_camp_start01"; - end; - -OnTouch: - set Bat_Team,1; - setquest 6025; - end; -} - -bat_c01,146,56,3 script #B_camp_start01 139,4,4,{ - end; - -OnInit: - disablenpc "#B_camp_start01"; - end; - -OnEnable: - enablenpc "#B_camp_start01"; - end; - -OnDisable: - disablenpc "#B_camp_start01"; - end; - -OnTouch: - set Bat_Team,2; - setquest 6025; - end; -} - -// Battleground Engine -//============================================================ -- script KvM01_BG -1,{ - end; - -OnInit: - setwall "bat_c01",54,122,6,7,0,"batc01wall_a"; - setwall "bat_c01",55,122,5,7,0,"batc01wall_b"; - setwall "bat_c01",140,56,6,7,0,"batc01wall_c"; - setwall "bat_c01",140,57,5,7,0,"batc01wall_d"; - disablenpc "KVM Officer#KVM01A"; - disablenpc "KVM Officer#KVM01B"; - end; - -OnGuillaumeJoin: -OnCroixJoin: - donpcevent "KvM01_BG::OnReadyCheck"; - end; - -OnGuillaumeQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; -OnGuillaumeDie: - if( $@KvM01BG == 2 ) - { - set .Guillaume_Count, .Guillaume_Count - 1; - bg_updatescore "bat_c01",.Guillaume_Count,.Croix_Count; - if( .Guillaume_Count < 1 ) donpcevent "KvM01_BG::OnCroixWin"; - else { - mapannounce "bat_c01", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c01", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - } - } - end; - -OnCroixQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; -OnCroixDie: - if( $@KvM01BG == 2 ) - { - set .Croix_Count, .Croix_Count - 1; - bg_updatescore "bat_c01",.Guillaume_Count,.Croix_Count; - if( .Croix_Count < 1 ) donpcevent "KvM01_BG::OnGuillaumeWin"; - else { - mapannounce "bat_c01", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c01", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - } - } - end; - -OnReadyCheck: - if( $@KvM01BG ) - end; - set .@Guillaume, getwaitingroomstate(0,"KvM01R_Guillaume"); - set .@Croix, getwaitingroomstate(0,"KvM01R_Croix"); - - if( .@Guillaume < 5 || .@Croix < 5 ) - end; - - set $@KvM01BG, 1; // Starting - donpcevent "KvM01R_Croix::OnEnterBG"; - donpcevent "KvM01R_Guillaume::OnEnterBG"; - donpcevent "KvM01_BG::OnStart"; - end; - -OnStart: - disablenpc "KVM Officer#KVM01A"; - disablenpc "KVM Officer#KVM01B"; - set $@KvM01BG_Victory, 0; - // Warp Teams - bg_warp $@KvM01BG_id1,"bat_c01",53,128; - bg_warp $@KvM01BG_id2,"bat_c01",146,55; - initnpctimer; - end; - -OnTimer1000: - mapannounce "bat_c01", "In 1 minute, KVM will start.",bc_map,"0x00ff00"; - end; - -OnTimer3000: - mapannounce "bat_c01", "The maximum time for a KVM battle is 5 minutes.",bc_map,"0x00ff00"; - end; - -OnTimer6000: - mapannounce "bat_c01", "Please prepare for the KVM battle.",bc_map,"0x00ff00"; - mapannounce "bat_c01", "You can buff your people.",bc_map,"0x00ff00"; - donpcevent "#A_camp_start01::OnEnable"; - donpcevent "#B_camp_start01::OnEnable"; - end; - -OnTimer13000: - donpcevent "#A_camp_start01::OnDisable"; - donpcevent "#B_camp_start01::OnDisable"; - end; - -OnTimer30000: - mapannounce "bat_c01", "30 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer45000: - mapannounce "bat_c01", "15 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01One"; - end; - -OnTimer50000: - mapannounce "bat_c01", "10 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01Two"; - end; - -OnTimer55000: - mapannounce "bat_c01", "5 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01One"; - end; - -OnTimer59000: - mapannounce "bat_c01", "KVM is now commencing.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01Two"; - end; - -OnTimer61000: - // Team Members - set .Guillaume_Count, bg_get_data($@KvM01BG_id1, 0); - set .Croix_Count, bg_get_data($@KvM01BG_id2, 0); - if( .Guillaume_Count < 5 || .Croix_Count < 5 ) - { - set $@KvM01BG_Victory, 3; - set $@KvM01BG, 3; - mapannounce "bat_c01","There are not enough players to start the battle",1,0x696969; - stopnpctimer; - donpcevent "KvM01_BG::OnStop"; - end; - } - set $@KvM01BG, 2; // Playing - bg_warp $@KvM01BG_id1,"bat_c01",61,120; - bg_warp $@KvM01BG_id2,"bat_c01",138,63; - end; - -OnTimer300000: - mapannounce "bat_c01", "1 minute remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer330000: - mapannounce "bat_c01", "30 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer345000: - mapannounce "bat_c01", "15 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer350000: - mapannounce "bat_c01", "10 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer355000: - mapannounce "bat_c01", "5 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer360000: - mapannounce "bat_c01", "The KVM battle is over.",bc_map,"0x00ff00"; - if( .Croix_Count > .Guillaume_Count ) - donpcevent "KvM01_BG::OnCroixWin"; - else if( .Croix_Count < .Guillaume_Count ) - donpcevent "KvM01_BG::OnGuillaumeWin"; - else - { // Draw Game - set $@KvM01BG, 3; - set $@KvM01BG_Victory, 3; - mapannounce "bat_c01", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c01", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c01", "This battle has ended in a draw.",bc_map,"0x00ff00"; - donpcevent "KvM01_BG::OnStop"; - } - end; - -OnGuillaumeWin: - set $@KvM01BG, 3; - set $@KvM01BG_Victory, 1; - mapannounce "bat_c01", "Guillaume wins!",bc_map,"0x00ff00"; - mapannounce "bat_c01", "Congratulations to Guillaume members.",bc_map,"0x00ff00"; - mapannounce "bat_c01", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; - donpcevent "KvM01_BG::OnStop"; - end; - -OnCroixWin: - set $@KvM01BG, 3; - set $@KvM01BG_Victory, 2; - mapannounce "bat_c01", "Croix wins!",bc_map,"0x00ff00"; - mapannounce "bat_c01", "Congratulations to Croix members.",bc_map,"0x00ff00"; - mapannounce "bat_c01", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; - donpcevent "KvM01_BG::OnStop"; - end; - -OnStop: - stopnpctimer; - enablenpc "KVM Officer#KVM01A"; - enablenpc "KVM Officer#KVM01B"; - // Warp Teams - bg_warp $@KvM01BG_id1,"bat_c01",53,128; - bg_warp $@KvM01BG_id2,"bat_c01",146,55; - donpcevent "KvM01_BG_Out::OnBegin"; - end; - -OnReset: - set .Croix_Count, 0; - set .Guillaume_Count, 0; - set $@KvM01BG_Victory, 0; - if( $@KvM01BG_id1 ) { bg_destroy $@KvM01BG_id1; set $@KvM01BG_id1, 0; } - if( $@KvM01BG_id2 ) { bg_destroy $@KvM01BG_id2; set $@KvM01BG_id2, 0; } - disablenpc "KVM Officer#KVM01A"; - disablenpc "KVM Officer#KVM01B"; - mapwarp "bat_c01","bat_room",154,150; - maprespawnguildid "bat_c01",0,3; // Just in case someone else - bg_updatescore "bat_c01",5,5; - set $@KvM01BG, 0; - donpcevent "KvM01_BG::OnReadyCheck"; // Maybe a game is ready to start - end; -} - -- script KvM01_BG_Out -1,{ - end; - -OnBegin: - initnpctimer; - end; - -OnTimer1000: - mapannounce "bat_c01", "Please apply with the Officer to acquire KVM points.",bc_map,"0x00ff00"; - end; - -OnTimer3000: - mapannounce "bat_c01", "The Officer will grant you the points for 30 seconds.",bc_map,"0x00ff00"; - mapannounce "bat_c01", "In 30 seconds, the Officer will be sent away.",bc_map,"0x00ff00"; - end; - -OnTimer5000: - mapannounce "bat_c01", "Unless you talk to the Officer, you cannot gain the points.",bc_map,"0x00ff00"; - mapannounce "bat_c01", "Please be careful.",bc_map,"0x00ff00"; - end; - -OnTimer:55000: - mapannounce "bat_c01", "You will be sent back.",bc_map,"0x00ff00"; - end; - -OnTimer60000: - stopnpctimer; - donpcevent "KvM01_BG::OnReset"; - end; -} - -// Battleground rewards -//============================================================ -bat_c01,51,130,5 script KVM Officer#KVM01A 419,{ - if( $@KvM01BG_Victory ) - { - if( $@KvM01BG_Victory == Bat_Team ) - { // Victory - set kvm_point,kvm_point + 5; - mes "[KVM Officer]"; - mes "Good Game."; - mes "May the glory of KVM be with you."; - mes "You aquire the winning points: 5"; - close2; - } - else - { // - set kvm_point,kvm_point + 1; - mes "[KVM Officer]"; - mes "I am so sorry."; - mes "I wish you better luck next time."; - mes "You aquire the losing points: 1"; - close2; - } - bg_leave; - set Bat_Team,0; - warp "bat_room",154,150; - end; - } - end; -} - -bat_c01,148,53,1 script KVM Officer#KVM01B 415,{ - if( $@KvM01BG_Victory ) - { - if( $@KvM01BG_Victory == Bat_Team ) - { // Victory - set kvm_point,kvm_point + 5; - mes "[KVM Officer]"; - mes "Good Game."; - mes "May the glory of KVM be with you."; - mes "You aquire the winning points: 5"; - close2; - } - else - { // - set kvm_point,kvm_point + 1; - mes "[KVM Officer]"; - mes "I am so sorry."; - mes "I wish you better luck next time."; - mes "You aquire the losing points: 1"; - close2; - } - bg_leave; - set Bat_Team,0; - warp "bat_room",154,150; - end; - } - end; -} diff --git a/npc/re/battleground/kvm/kvm02.txt b/npc/re/battleground/kvm/kvm02.txt deleted file mode 100644 index d99741834..000000000 --- a/npc/re/battleground/kvm/kvm02.txt +++ /dev/null @@ -1,430 +0,0 @@ -//===== rAthena Script ======================================= -// BattleGround System - KvM 1-59 -//===== By: ================================================== -//= ???, L0ne_W0lf -//===== Current Version: ===================================== -//= 1.3 -//===== Compatible With: ===================================== -//= rAthena 1.0 -//===== Description: ========================================= -//= [AEGIS Conversion] -//= Kreiger Von Midgard Battleground for levels 1 to 59 -//= - Winning Team: 1 point -//= - Losing Team: 0 points -//===== Additional Comments: ================================= -//= 1.0 First Version. -//= 1.1 Updated using official Aegis files. [L0ne_W0lf] -//= 1.2 Upated some announces and dialogs from iRO. -//= Changed how the scoreboard works slightly. -//= Removed the areapercentheals, and minor things. -//= 1.3 Fixed wrong names for disablenpc/enablenpc. [Ai4rei] -//= Fixed points in text and actual points differing. -//============================================================ - -// Waiting Room NPCs -//============================================================ -bat_room,197,226,5 script KVM Waiting Room#a2::KvM02R_Guillaume 418,{ - end; - -OnInit: - waitingroom "Battle Station 5 Players",6,"KvM02_BG::OnGuillaumeJoin",1; - end; - -OnEnterBG: - set $@KvM02BG_id1, waitingroom2bg("bat_c02",52,129,"KvM02_BG::OnGuillaumeQuit","KvM02_BG::OnGuillaumeDie"); - end; -} - -bat_room,197,220,0 warp #kvm601 2,2,bat_room,154,150 - -bat_room,197,205,3 script KVM Waiting Room#b2::KvM02R_Croix 414,{ - end; - -OnInit: - waitingroom "Battle Station 5 Players",6,"KvM02_BG::OnCroixJoin",1; - end; - -OnEnterBG: - set $@KvM02BG_id2, waitingroom2bg("bat_c02",147,55,"KvM02_BG::OnCroixQuit","KvM02_BG::OnCroixDie"); - end; -} - -bat_room,197,211,0 warp #kvm602 2,2,bat_room,154,150 - -// Starting Line -//============================================================ -- script KVM02::CellEffect2 -1,{ - end; - -OnKvM02One: - misceffect EF_CHANGECOLD; - end; - -OnKvM02Two: - misceffect EF_CHANGEPOISON; - end; -} - -bat_c02,54,124,3 duplicate(CellEffect2) #RedcellA1-2 139 -bat_c02,55,124,3 duplicate(CellEffect2) #RedcellA2-2 139 -bat_c02,56,124,3 duplicate(CellEffect2) #RedcellA3-2 139 -bat_c02,57,124,3 duplicate(CellEffect2) #RedcellA4-2 139 -bat_c02,57,125,3 duplicate(CellEffect2) #RedcellA5-2 139 -bat_c02,57,126,3 duplicate(CellEffect2) #RedcellA6-2 139 -bat_c02,57,127,3 duplicate(CellEffect2) #RedcellA7-2 139 - -bat_c02,145,59,3 duplicate(CellEffect2) #RedcellB1-2 139 -bat_c02,144,59,3 duplicate(CellEffect2) #RedcellB2-2 139 -bat_c02,143,59,3 duplicate(CellEffect2) #RedcellB3-2 139 -bat_c02,142,59,3 duplicate(CellEffect2) #RedcellB4-2 139 -bat_c02,142,56,3 duplicate(CellEffect2) #RedcellB5-2 139 -bat_c02,142,57,3 duplicate(CellEffect2) #RedcellB6-2 139 -bat_c02,142,58,3 duplicate(CellEffect2) #RedcellB7-2 139 - -bat_c02,54,128,3 script #A_camp_start02 139,4,4,{ - end; - -OnInit: - disablenpc "#A_camp_start02"; - end; - -OnEnable: - enablenpc "#A_camp_start02"; - end; - -OnDisable: - disablenpc "#A_camp_start03"; - end; - -OnTouch: - set Bat_Team,1; - setquest 6025; - end; -} - -bat_c02,146,56,3 script #B_camp_start02 139,4,4,{ - end; - -OnInit: - disablenpc "#B_camp_start02"; - end; - -OnEnable: - enablenpc "#B_camp_start02"; - end; - -OnDisable: - disablenpc "#B_camp_start02"; - end; - -OnTouch: - set Bat_Team,2; - setquest 6025; - end; -} - -// Battleground Engine -//============================================================ -- script KvM02_BG -1,{ - end; - -OnInit: - setwall "bat_c02",54,122,6,7,0,"batc02wall_a"; - setwall "bat_c02",55,122,5,7,0,"batc02wall_b"; - setwall "bat_c02",140,56,6,7,0,"batc02wall_c"; - setwall "bat_c02",140,57,5,7,0,"batc02wall_d"; - disablenpc "KVM Officer#KVM02A"; - disablenpc "KVM Officer#KVM02B"; - end; - -OnGuillaumeJoin: -OnCroixJoin: - donpcevent "KvM02_BG::OnReadyCheck"; - end; - -OnGuillaumeQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; -OnGuillaumeDie: - if( $@KvM02BG == 2 ) - { - set .Guillaume_Count, .Guillaume_Count - 1; - bg_updatescore "bat_c02",.Guillaume_Count,.Croix_Count; - if( .Guillaume_Count < 1 ) donpcevent "KvM02_BG::OnCroixWin"; - else { - mapannounce "bat_c02", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c02", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - } - } - end; - -OnCroixQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; -OnCroixDie: - if( $@KvM02BG == 2 ) - { - set .Croix_Count, .Croix_Count - 1; - bg_updatescore "bat_c02",.Guillaume_Count,.Croix_Count; - if( .Croix_Count < 1 ) donpcevent "KvM02_BG::OnGuillaumeWin"; - else { - mapannounce "bat_c02", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c02", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - } - } - end; - -OnReadyCheck: - if( $@KvM02BG ) - end; - set .@Guillaume, getwaitingroomstate(0,"KvM02R_Guillaume"); - set .@Croix, getwaitingroomstate(0,"KvM02R_Croix"); - - if( .@Guillaume < 5 || .@Croix < 5 ) - end; - - set $@KvM02BG, 1; // Starting - donpcevent "KvM02R_Croix::OnEnterBG"; - donpcevent "KvM02R_Guillaume::OnEnterBG"; - donpcevent "KvM02_BG::OnStart"; - end; - -OnStart: - disablenpc "KVM Officer#KVM02A"; - disablenpc "KVM Officer#KVM02B"; - set $@KvM02BG_Victory, 0; - // Warp Teams - bg_warp $@KvM02BG_id1,"bat_c02",53,128; - bg_warp $@KvM02BG_id2,"bat_c02",146,55; - initnpctimer; - end; - -OnTimer1000: - mapannounce "bat_c02", "In 1 minute, KVM will start.",bc_map,"0x00ff00"; - end; - -OnTimer3000: - mapannounce "bat_c02", "The maximum time for a KVM battle is 5 minutes.",bc_map,"0x00ff00"; - end; - -OnTimer6000: - mapannounce "bat_c02", "Please prepare for the KVM battle.",bc_map,"0x00ff00"; - mapannounce "bat_c02", "You can buff your people.",bc_map,"0x00ff00"; - donpcevent "#A_camp_start02::OnEnable"; - donpcevent "#B_camp_start02::OnEnable"; - end; - -OnTimer13000: - donpcevent "#A_camp_start02::OnDisable"; - donpcevent "#B_camp_start02::OnDisable"; - end; - -OnTimer30000: - mapannounce "bat_c02", "30 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer45000: - mapannounce "bat_c02", "15 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01One"; - end; - -OnTimer50000: - mapannounce "bat_c02", "10 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01Two"; - end; - -OnTimer55000: - mapannounce "bat_c02", "5 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01One"; - end; - -OnTimer59000: - mapannounce "bat_c02", "KVM is now commencing.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01Two"; - end; - -OnTimer61000: - // Team Members - set .Guillaume_Count, bg_get_data($@KvM02BG_id1, 0); - set .Croix_Count, bg_get_data($@KvM02BG_id2, 0); - if( .Guillaume_Count < 5 || .Croix_Count < 5 ) - { - set $@KvM02BG_Victory, 3; - set $@KvM02BG, 3; - mapannounce "bat_c02","There are not enough players to start the battle",1,0x808080; - stopnpctimer; - donpcevent "KvM02_BG::OnStop"; - end; - } - set $@KvM02BG, 2; // Playing - bg_warp $@KvM02BG_id1,"bat_c02",62,119; - bg_warp $@KvM02BG_id2,"bat_c02",137,64; - end; - -OnTimer300000: - mapannounce "bat_c02", "1 minute remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer330000: - mapannounce "bat_c02", "30 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer345000: - mapannounce "bat_c02", "15 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer350000: - mapannounce "bat_c02", "10 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer355000: - mapannounce "bat_c02", "5 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer360000: - mapannounce "bat_c02", "The KVM battle is over.",bc_map,"0x00ff00"; - if( .Croix_Count > .Guillaume_Count ) - donpcevent "KvM02_BG::OnCroixWin"; - else if( .Croix_Count < .Guillaume_Count ) - donpcevent "KvM02_BG::OnGuillaumeWin"; - else - { // Draw Game - set $@KvM02BG, 3; - set $@KvM02BG_Victory, 3; - mapannounce "bat_c02", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c02", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c02", "This battle has ended in a draw.",bc_map,"0x00ff00"; - donpcevent "KvM02_BG::OnStop"; - } - end; - -OnGuillaumeWin: - set $@KvM02BG, 3; - set $@KvM02BG_Victory, 1; - mapannounce "bat_c02", "Guillaume wins!",bc_map,"0x00ff00"; - mapannounce "bat_c02", "Congratulations to Guillaume members.",bc_map,"0x00ff00"; - mapannounce "bat_c02", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; - donpcevent "KvM02_BG::OnStop"; - end; - -OnCroixWin: - set $@KvM02BG, 3; - set $@KvM02BG_Victory, 2; - mapannounce "bat_c02", "Croix wins!",bc_map,"0x00ff00"; - mapannounce "bat_c02", "Congratulations to Croix members.",bc_map,"0x00ff00"; - mapannounce "bat_c02", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; - donpcevent "KvM02_BG::OnStop"; - end; - -OnStop: - stopnpctimer; - enablenpc "KVM Officer#KVM02A"; - enablenpc "KVM Officer#KVM02B"; - // Warp Teams - bg_warp $@KvM02BG_id1,"bat_c02",53,128; - bg_warp $@KvM02BG_id2,"bat_c02",146,55; - donpcevent "KvM02_BG_Out::OnBegin"; - end; - -OnReset: - set .Croix_Count, 0; - set .Guillaume_Count, 0; - set $@KvM02BG_Victory, 0; - if( $@KvM02BG_id1 ) { bg_destroy $@KvM02BG_id1; set $@KvM02BG_id1, 0; } - if( $@KvM02BG_id2 ) { bg_destroy $@KvM02BG_id2; set $@KvM02BG_id2, 0; } - disablenpc "KVM Officer#KVM02A"; - disablenpc "KVM Officer#KVM02B"; - mapwarp "bat_c02","bat_room",154,150; - maprespawnguildid "bat_c02",0,3; // Just in case someone else - bg_updatescore "bat_c02",5,5; - set $@KvM02BG, 0; - donpcevent "KvM02_BG::OnReadyCheck"; // Maybe a game is ready to start - end; -} - -- script KvM02_BG_Out -1,{ - end; - -OnBegin: - initnpctimer; - end; - -OnTimer1000: - mapannounce "bat_c02", "Please apply with the Officer to acquire KVM points.",bc_map,"0x00ff00"; - end; - -OnTimer3000: - mapannounce "bat_c02", "The Officer will grant you the points for 30 seconds.",bc_map,"0x00ff00"; - mapannounce "bat_c02", "In 30 seconds, the Officer will be sent away.",bc_map,"0x00ff00"; - end; - -OnTimer5000: - mapannounce "bat_c02", "Unless you talk to the Officer, you cannot gain the points.",bc_map,"0x00ff00"; - mapannounce "bat_c02", "Please be careful.",bc_map,"0x00ff00"; - end; - -OnTimer:55000: - mapannounce "bat_c02", "You will be sent back.",bc_map,"0x00ff00"; - end; - -OnTimer60000: - stopnpctimer; - donpcevent "KvM02_BG::OnReset"; - end; -} - -// Battleground rewards -//============================================================ -bat_c02,51,130,5 script KVM Officer#KVM02A 419,{ - if( $@KvM01BG_Victory ) - { - if( $@KvM02BG_Victory == Bat_Team ) - { // Victory - set kvm_point,kvm_point + 1; - mes "[KVM Officer]"; - mes "Good Game."; - mes "May the glory of KVM be with you."; - mes "You aquire the winning points: 1"; - close2; - } - else - { // - mes "[KVM Officer]"; - mes "I am so sorry."; - mes "I wish you better luck next time."; - mes "You aquire the losing points: 0"; - close2; - } - bg_leave; - set Bat_Team,0; - warp "bat_room",154,150; - end; - } - end; -} - -bat_c02,148,53,1 script KVM Officer#KVM02B 415,{ - if( $@KvM01BG_Victory ) - { - if( $@KvM02BG_Victory == Bat_Team ) - { // Victory - set kvm_point,kvm_point + 1; - mes "[KVM Officer]"; - mes "Good Game."; - mes "May the glory of KVM be with you."; - mes "You aquire the winning points: 1"; - close2; - } - else - { // - mes "[KVM Officer]"; - mes "I am so sorry."; - mes "I wish you better luck next time."; - mes "You aquire the losing points: 0"; - close2; - } - bg_leave; - set Bat_Team,0; - warp "bat_room",154,150; - end; - } - end; -} diff --git a/npc/re/battleground/kvm/kvm03.txt b/npc/re/battleground/kvm/kvm03.txt deleted file mode 100644 index 8cc26dc93..000000000 --- a/npc/re/battleground/kvm/kvm03.txt +++ /dev/null @@ -1,431 +0,0 @@ -//===== rAthena Script ======================================= -// BattleGround System - KvM 60-80 -//===== By: ================================================== -//= ???, L0ne_W0lf -//===== Current Version: ===================================== -//= 1.3 -//===== Compatible With: ===================================== -//= rAthena 1.0 -//===== Description: ========================================= -//= [AEGIS Conversion] -//= Kreiger Von Midgard Battleground for levels 60 to 80 -//= - Winning Team: 2 points -//= - Losing Team: 1 point -//===== Additional Comments: ================================= -//= 1.0 First Version. -//= 1.1 Updated using official Aegis files. [L0ne_W0lf] -//= 1.2 Upated some announces and dialogs from iRO. -//= Changed how the scoreboard works slightly. -//= Removed the areapercentheals, and minor things. -//= 1.3 Fixed wrong names for disablenpc/enablenpc. [Ai4rei] -//============================================================ - -// Waiting Room NPCs -//============================================================ -bat_room,225,226,5 script KVM Waiting Room#a3::KvM03R_Guillaume 418,{ - end; - -OnInit: - waitingroom "Battle Station 5 Players",6,"KvM03_BG::OnGuillaumeJoin",1; - end; - -OnEnterBG: - set $@KvM03BG_id1, waitingroom2bg("bat_c03",52,129,"KvM03_BG::OnGuillaumeQuit","KvM03_BG::OnGuillaumeDie"); - end; -} - -bat_room,225,220,0 warp #kvm701 2,2,bat_room,154,150 - -bat_room,225,205,3 script KVM Waiting Room#b3::KvM03R_Croix 414,{ - end; - -OnInit: - waitingroom "Battle Station 5 Players",6,"KvM03_BG::OnCroixJoin",1; - end; - -OnEnterBG: - set $@KvM03BG_id2, waitingroom2bg("bat_c03",147,55,"KvM03_BG::OnCroixQuit","KvM03_BG::OnCroixDie"); - end; -} - -bat_room,225,211,0 warp #kvm702 2,2,bat_room,154,150 - -// Starting Line -//============================================================ -- script KVM03::CellEffect3 -1,{ - end; - -OnKvM03One: - misceffect EF_CHANGECOLD; - end; - -OnKvM03Two: - misceffect EF_CHANGEPOISON; - end; -} - -bat_c03,54,124,3 duplicate(CellEffect3) #RedcellA1-3 139 -bat_c03,55,124,3 duplicate(CellEffect3) #RedcellA2-3 139 -bat_c03,56,124,3 duplicate(CellEffect3) #RedcellA3-3 139 -bat_c03,57,124,3 duplicate(CellEffect3) #RedcellA4-3 139 -bat_c03,57,125,3 duplicate(CellEffect3) #RedcellA5-3 139 -bat_c03,57,126,3 duplicate(CellEffect3) #RedcellA6-3 139 -bat_c03,57,127,3 duplicate(CellEffect3) #RedcellA7-3 139 - -bat_c03,145,59,3 duplicate(CellEffect3) #RedcellB1-3 139 -bat_c03,144,59,3 duplicate(CellEffect3) #RedcellB2-3 139 -bat_c03,143,59,3 duplicate(CellEffect3) #RedcellB3-3 139 -bat_c03,142,59,3 duplicate(CellEffect3) #RedcellB4-3 139 -bat_c03,142,56,3 duplicate(CellEffect3) #RedcellB5-3 139 -bat_c03,142,57,3 duplicate(CellEffect3) #RedcellB6-3 139 -bat_c03,142,58,3 duplicate(CellEffect3) #RedcellB7-3 139 - -bat_c03,54,128,3 script #A_camp_start03 139,4,4,{ - end; - -OnInit: - disablenpc "#A_camp_start03"; - end; - -OnEnable: - enablenpc "#A_camp_start03"; - end; - -OnDisable: - disablenpc "#A_camp_start03"; - end; - -OnTouch: - set Bat_Team,1; - setquest 6025; - end; -} - -bat_c03,146,56,3 script #B_camp_start03 139,4,4,{ - end; - -OnInit: - disablenpc "#B_camp_start03"; - end; - -OnEnable: - enablenpc "#B_camp_start03"; - end; - -OnDisable: - disablenpc "#B_camp_start03"; - end; - -OnTouch: - set Bat_Team,2; - setquest 6025; - end; -} - -// Battleground Engine -//============================================================ -- script KvM03_BG -1,{ - end; - -OnInit: - setwall "bat_c03",54,122,6,7,0,"batc03wall_a"; - setwall "bat_c03",55,122,5,7,0,"batc03wall_b"; - setwall "bat_c03",140,56,6,7,0,"batc03wall_c"; - setwall "bat_c03",140,57,5,7,0,"batc03wall_d"; - disablenpc "KVM Officer#KVM03A"; - disablenpc "KVM Officer#KVM03B"; - end; - -OnGuillaumeJoin: -OnCroixJoin: - donpcevent "KvM03_BG::OnReadyCheck"; - end; - -OnGuillaumeQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; -OnGuillaumeDie: - if( $@KvM03BG == 2 ) - { - set .Guillaume_Count, .Guillaume_Count - 1; - bg_updatescore "bat_c03",.Guillaume_Count,.Croix_Count; - if( .Guillaume_Count < 1 ) donpcevent "KvM03_BG::OnCroixWin"; - else { - mapannounce "bat_c03", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c03", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - } - } - end; - -OnCroixQuit: - //set BG_Delay_Tick, gettimetick(2) + 1200; -OnCroixDie: - if( $@KvM03BG == 2 ) - { - set .Croix_Count, .Croix_Count - 1; - bg_updatescore "bat_c03",.Guillaume_Count,.Croix_Count; - if( .Croix_Count < 1 ) donpcevent "KvM03_BG::OnGuillaumeWin"; - else { - mapannounce "bat_c03", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c03", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - } - } - end; - -OnReadyCheck: - if( $@KvM03BG ) - end; - set .@Guillaume, getwaitingroomstate(0,"KvM03R_Guillaume"); - set .@Croix, getwaitingroomstate(0,"KvM03R_Croix"); - - if( .@Guillaume < 5 || .@Croix < 5 ) - end; - - set $@KvM03BG, 1; // Starting - donpcevent "KvM03R_Croix::OnEnterBG"; - donpcevent "KvM03R_Guillaume::OnEnterBG"; - donpcevent "KvM03_BG::OnStart"; - end; - -OnStart: - disablenpc "KVM Officer#KVM03A"; - disablenpc "KVM Officer#KVM03B"; - set $@KvM01BG_Victory, 0; - // Warp Teams - bg_warp $@KvM03BG_id1,"bat_c03",53,128; - bg_warp $@KvM03BG_id2,"bat_c03",146,55; - initnpctimer; - end; - -OnTimer1000: - mapannounce "bat_c03", "In 1 minute, KVM will start.",bc_map,"0x00ff00"; - end; - -OnTimer3000: - mapannounce "bat_c03", "The maximum time for a KVM battle is 5 minutes.",bc_map,"0x00ff00"; - end; - -OnTimer6000: - mapannounce "bat_c03", "Please prepare for the KVM battle.",bc_map,"0x00ff00"; - mapannounce "bat_c03", "You can buff your people.",bc_map,"0x00ff00"; - donpcevent "#A_camp_start03::OnEnable"; - donpcevent "#B_camp_start03::OnEnable"; - end; - -OnTimer13000: - donpcevent "#A_camp_start03::OnDisable"; - donpcevent "#B_camp_start03::OnDisable"; - end; - -OnTimer30000: - mapannounce "bat_c03", "30 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer45000: - mapannounce "bat_c03", "15 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01One"; - end; - -OnTimer50000: - mapannounce "bat_c03", "10 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01Two"; - end; - -OnTimer55000: - mapannounce "bat_c03", "5 seconds remaining to start KVM battle.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01One"; - end; - -OnTimer59000: - mapannounce "bat_c03", "KVM is now commencing.",bc_map,"0x00ff00"; - donpcevent "::OnKvM01Two"; - end; - -OnTimer61000: - // Team Members - set .Guillaume_Count, bg_get_data($@KvM03BG_id1, 0); - set .Croix_Count, bg_get_data($@KvM03BG_id2, 0); - if( .Guillaume_Count < 5 || .Croix_Count < 5 ) - { - set $@KvM03BG_Victory, 3; - set $@KvM03BG, 3; - mapannounce "bat_c03","There are not enough players to start the battle",1,0xC0C0C0; - stopnpctimer; - donpcevent "KvM03_BG::OnStop"; - end; - } - set $@KvM03BG, 2; // Playing - bg_warp $@KvM03BG_id1,"bat_c03",62,119; - bg_warp $@KvM03BG_id2,"bat_c03",137,64; - end; - -OnTimer300000: - mapannounce "bat_c03", "1 minute remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer330000: - mapannounce "bat_c03", "30 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer345000: - mapannounce "bat_c03", "15 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer350000: - mapannounce "bat_c03", "10 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer355000: - mapannounce "bat_c03", "5 seconds remaining to finish the KVM battle.",bc_map,"0x00ff00"; - end; - -OnTimer360000: - mapannounce "bat_c03", "KVM has ended.",bc_map,"0x00ff00"; - if( .Croix_Count > .Guillaume_Count ) - donpcevent "KvM03_BG::OnCroixWin"; - else if( .Croix_Count < .Guillaume_Count ) - donpcevent "KvM03_BG::OnGuillaumeWin"; - else - { // Draw Game - set $@KvM03BG, 3; - set $@KvM03BG_Victory, 3; - mapannounce "bat_c03", "The number of Guillaumes is "+.Guillaume_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c03", "The number of Croixes is "+.Croix_Count+".",bc_map,"0x00ff00"; - mapannounce "bat_c03", "This battle has ended in a draw.",bc_map,"0x00ff00"; - donpcevent "KvM03_BG::OnStop"; - } - end; - -OnGuillaumeWin: - set $@KvM03BG, 3; - set $@KvM03BG_Victory, 1; - mapannounce "bat_c03", "Guillaume wins!",bc_map,"0x00ff00"; - mapannounce "bat_c03", "Congratulations to Guillaume members.",bc_map,"0x00ff00"; - mapannounce "bat_c03", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; - donpcevent "KvM03_BG::OnStop"; - end; - -OnCroixWin: - set $@KvM03BG, 3; - set $@KvM03BG_Victory, 2; - mapannounce "bat_c03", "Croix wins!",bc_map,"0x00ff00"; - mapannounce "bat_c03", "Congratulations to Croix members.",bc_map,"0x00ff00"; - mapannounce "bat_c03", "Everyone will be moved to the start point.",bc_map,"0x00ff00"; - donpcevent "KvM03_BG::OnStop"; - end; - -OnStop: - stopnpctimer; - enablenpc "KVM Officer#KVM03A"; - enablenpc "KVM Officer#KVM03B"; - // Warp Teams - bg_warp $@KvM03BG_id1,"bat_c03",53,128; - bg_warp $@KvM03BG_id2,"bat_c03",146,55; - donpcevent "KvM03_BG_Out::OnBegin"; - end; - -OnReset: - set .Croix_Count, 0; - set .Guillaume_Count, 0; - set $@KvM03BG_Victory, 0; - if( $@KvM03BG_id1 ) { bg_destroy $@KvM03BG_id1; set $@KvM03BG_id1, 0; } - if( $@KvM03BG_id2 ) { bg_destroy $@KvM03BG_id2; set $@KvM03BG_id2, 0; } - disablenpc "KVM Officer#KVM03A"; - disablenpc "KVM Officer#KVM03B"; - mapwarp "bat_c03","bat_room",154,150; - maprespawnguildid "bat_c03",0,3; // Just in case someone else - bg_updatescore "bat_c03",5,5; - set $@KvM03BG, 0; - donpcevent "KvM03_BG::OnReadyCheck"; // Maybe a game is ready to start - end; -} - -- script KvM03_BG_Out -1,{ - end; - -OnBegin: - initnpctimer; - end; - -OnTimer1000: - mapannounce "bat_c03", "Please apply with the Officer to acquire KVM points.",bc_map,"0x00ff00"; - end; - -OnTimer3000: - mapannounce "bat_c03", "The Officer will grant you the points for 30 seconds.",bc_map,"0x00ff00"; - mapannounce "bat_c03", "In 30 seconds, the Officer will be sent away.",bc_map,"0x00ff00"; - end; - -OnTimer5000: - mapannounce "bat_c03", "Unless you talk to the Officer, you cannot gain the points.",bc_map,"0x00ff00"; - mapannounce "bat_c03", "Please be careful.",bc_map,"0x00ff00"; - end; - -OnTimer:55000: - mapannounce "bat_c03", "You will be sent back.",bc_map,"0x00ff00"; - end; - -OnTimer60000: - stopnpctimer; - donpcevent "KvM03_BG::OnReset"; - end; -} - -// Battleground rewards -//============================================================ -bat_c03,51,130,5 script KVM Officer#KVM03A 419,{ - if( $@KvM01BG_Victory ) - { - if( $@KvM03BG_Victory == Bat_Team ) - { // Victory - set kvm_point,kvm_point + 2; - mes "[KVM Officer]"; - mes "Good Game."; - mes "May the glory of KVM be with you."; - mes "You aquire the winning points: 2"; - close2; - } - else - { // - set kvm_point,kvm_point + 1; - mes "[KVM Officer]"; - mes "I am so sorry."; - mes "I wish you better luck next time."; - mes "You aquire the losing points: 1"; - close2; - } - bg_leave; - set Bat_Team,0; - warp "bat_room",154,150; - end; - } - end; -} - -bat_c03,148,53,1 script KVM Officer#KVM03B 415,{ - if( $@KvM01BG_Victory ) - { - if( $@KvM03BG_Victory == Bat_Team ) - { // Victory - set kvm_point,kvm_point + 2; - mes "[KVM Officer]"; - mes "Good Game."; - mes "May the glory of KVM be with you."; - mes "You aquire the winning points: 2"; - close2; - } - else - { // - set kvm_point,kvm_point + 1; - mes "[KVM Officer]"; - mes "I am so sorry."; - mes "I wish you better luck next time."; - mes "You aquire the losing points: 1"; - close2; - } - bg_leave; - set Bat_Team,0; - warp "bat_room",154,150; - end; - } - end; -} diff --git a/npc/re/battleground/kvm/kvm_enter.txt b/npc/re/battleground/kvm/kvm_enter.txt deleted file mode 100644 index d54792bb5..000000000 --- a/npc/re/battleground/kvm/kvm_enter.txt +++ /dev/null @@ -1,218 +0,0 @@ -//===== rAthena Script ======================================= -// BattleGround System - KvM Entrance NPCs -//===== By: ================================================== -//= L0ne_W0lf -//===== Current Version: ===================================== -//= 1.1 -//===== Compatible With: ===================================== -//= rAthena 1.0 -//===== Description: ========================================= -//= [AEGIS Conversion] -//= Kreiger Von Midgard Battleground Entrance NPCs -//= Original NPCs scrapped from bg_common. -//===== Additional Comments: ================================= -//= 1.0 First Version. -//= 1.1 Corrected some typos, and shifted messages around. -//= Corrected iRO style quest log entries, however it's -//= advisable that you not use them, as they conflict. -//============================================================ - -// KvM Officer - Guillaume -//============================================================ -bat_room,164,178,5 script KVM Mercenary Officer#1 418,{ - /* - set .@kvm,checkquest(6026,PLAYTIME); - if ((.@kvm == 0) || (.@kvm == 1)) { - mes "[Croix Mercenary Officer]"; - mes "I know that you've already signed with the Croix. Go back and join their team. We will not accept traitors to fight for us."; - close; - } - else if (.@kvm == 2) erasequest 6026; - */ - set .@permit,checkquest(6025,PLAYTIME); - if ((.@permit == 0) || (.@permit == 1)) { - mes "[Guillaume Mercenary Officer]"; - mes "It seems you have recently participated in a KVM battle. You must wait 5 minutes before signing up again."; - close; - } - else if (.@permit == 2) erasequest 6025; - mes "[Guillaume Mercenary Officer]"; - mes "Let them know the real might of Guillaume!"; - next; - switch(select("I will fight with you.:End Conversation.")) { - case 1: - mes "[Guillaume Mercenary Officer]"; - mes "Show them how strong we are."; - mes "Today, everyone will hear the shout of triumph from Guillaume!"; - close2; - //setquest 6025; - if (BaseLevel > 79) warp "bat_room",169,223; - else if (BaseLevel < 60) warp "bat_room",197,223; - else warp "bat_room",225,223; - close; - case 2: - mes "[Guillaume Mercenary Officer]"; - mes "We will win!"; - close; - } -} - -// Guillaume Knight - KvM -//============================================================ -bat_room,167,178,5 script Guillaume Knight#kvm 417,{ - mes "[Guillaume Knight]"; - mes "Hello."; - mes "What do you want to know?"; - next; - switch(select("Apply for KVM.:What is KVM?:How do I participate in KVM?:I want to know my Kreiger Points.")) { - case 1: - mes "[Guillaume Knight]"; - mes "Applications are not available yet."; - mes "To apply, you need to go to a KVM Mercenary Officer."; - close; - case 2: - mes "[Guillaume Knight]"; - mes "KVM is the abbreviation of Kreiger Von Midgard."; - mes "Adventurer, are you aware that the way to the new world has been opened?"; - next; - mes "[Guillaume Knight]"; - mes "We, the Guillaume Administration, have several plans to advance to the new world."; - mes "And KVM is one of them."; - next; - mes "[Guillaume Knight]"; - mes "It means that we, one of many countries in the Midgard continent,"; - mes "have decided to employ many adventurers for the immediate advance to the new world."; - next; - mes "[Guillaume Knight]"; - mes "Therefore, to select the best adventurers, we are holding the KVM."; - mes "We exspect responses from many adventurers."; - next; - mes "[Guillaume Knight]"; - mes "And we will give them rewards for their participation!"; - mes "As for the rewards, please contact a KVM Logistic Officer."; - close; - case 3: - mes "[Guillaume Knight]"; - mes "Basically, KVM is a 5 on 5 battle."; - mes "First, you apply with a KVM receptionist, in a group or individually."; - next; - mes "[Guillaume Knight]"; - mes "Group applications are for when you intend to enter the KVM with your party members,"; - mes "and a personal application is for when you intend to enter the KVM individually."; - next; - mes "[Guillaume Knight]"; - mes "Please apply with a KVM officer, and he will contact you later when you are in Prontera."; - next; - mes "[Guillaume Knight]"; - mes "Then you enter and follow the instructions in the battlefield."; - next; - mes "[Guillaume Knight]"; - mes "However, please be advised that unless you are in the KVM office, he cannot contact you."; - close; - case 4: - mes "[Guillaume Knight]"; - mes "Your Kreiger Points are:"; - mes ""+kvm_point+"."; - close; - } -} - -// KvM Officer - Croix -//============================================================ -bat_room,164,121,1 script KVM Mercenary Officer#2 414,{ - /* - set .@kvm,checkquest(6025,PLAYTIME); - if ((.@kvm == 0) || (.@kvm == 1)) { - mes "[Croix Mercenary Officer]"; - mes "I know that you've already signed with the Guillaume. Go back and join their team. We will not accept traitors to fight for us."; - close; - } - else if (.@kvm == 2) erasequest 6025; - */ - set .@permit,checkquest(6025,PLAYTIME); - if ((.@permit == 0) || (.@permit == 1)) { - mes "[Croix Mercenary Officer]"; - mes "It seems you have recently participated in a KVM battle. You must wait 5 minutes before signing up again."; - close; - } - else if (.@permit == 2) erasequest 6025; - mes "[Croix Mercenary Officer]"; - mes "Let them know the real might of Croix!"; - next; - switch(select("I will fight with you.:End Conversation.")) { - case 1: - mes "[Croix Mercenary Officer]"; - mes "Show them how strong we are."; - mes "Today, everyone will hear the shout of triumph from Croix!"; - close2; - //setquest 6026; - if (BaseLevel > 79) warp "bat_room",169,207; - else if (BaseLevel < 60) warp "bat_room",197,207; - else warp "bat_room",225,207; - close; - case 2: - mes "[Croix Mercenary Officer]"; - mes "We will win!"; - close; - } -} - -// Croix Knight - KvM -//============================================================ -bat_room,167,121,1 script Croix Knight#kvm 413,{ - mes "[Croix Knight]"; - mes "Hello."; - mes "What do you want to know?"; - next; - switch(select("Apply for KVM.:What is KVM?:How do I participate in KVM?:I want to know my Kreiger Points.")) { - case 1: - mes "[Croix Knight]"; - mes "Applications are not available yet."; - mes "To apply, you need to go to a KVM Mercenary Officer."; - close; - case 2: - mes "[Croix Knight]"; - mes "KVM is the abbreviation of Kreiger Von Midgard."; - mes "Adventurer, are you aware that the way to the new world has been opened?"; - next; - mes "[Croix Knight]"; - mes "We, the Croix Administration, have several plans to advance to the new world."; - mes "And KVM is one of them."; - next; - mes "[Croix Knight]"; - mes "It means that we, one of many countries in the Midgard continent,"; - mes "have decided to employ many adventurers for the immediate advance to the new world."; - next; - mes "[Croix Knight]"; - mes "Therefore, to select the best adventurers, we are holding the KVM."; - mes "We exspect responses from many adventurers."; - next; - mes "[Croix Knight]"; - mes "And we will give them rewards for their participation!"; - mes "As for the rewards, please contact a KVM Logistic Officer."; - close; - case 3: - mes "[Croix Knight]"; - mes "Basically, KVM is a 5 on 5 battle."; - mes "First, you apply with a KVM receptionist, in a group or individually."; - next; - mes "[Croix Knight]"; - mes "Group applications are for when you intend to enter the KVM with your party members,"; - mes "and a personal application is for when you intend to enter the KVM individually."; - next; - mes "[Croix Knight]"; - mes "Please apply with a KVM officer, and he will contact you later when you are in Prontera."; - next; - mes "[Croix Knight]"; - mes "Then you enter and follow the instructions in the battlefield."; - next; - mes "[Croix Knight]"; - mes "However, please be advised that unless you are in the KVM office, he cannot contact you."; - close; - case 4: - mes "[Croix Knight]"; - mes "Your Kreiger Points are:"; - mes ""+kvm_point+"."; - close; - } -} diff --git a/npc/re/battleground/kvm/kvm_item_pay.txt b/npc/re/battleground/kvm/kvm_item_pay.txt deleted file mode 100644 index 3af0c5a1b..000000000 --- a/npc/re/battleground/kvm/kvm_item_pay.txt +++ /dev/null @@ -1,313 +0,0 @@ -//===== rAthena Script ======================================= -// BattleGround System - KvM Item Dealer -//===== By: ================================================== -//= L0ne_W0lf -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= rAthena 1.0 -//===== Description: ========================================= -//= [AEGIS Conversion] -//= Kreiger Von Midgard Battleground Point redemption NPC -//= * NOTE * -//= KvM Does NOT use items, but a character variable to -//= keep track of points. This NPC when talked to will -//= convert already-given tokens and convert them to points. -//= under the player variable kvm_point. -//===== Additional Comments: ================================= -//= 1.0 First Version. -//============================================================ - -bat_room,151,144,3 script KVM Logistic Officer#a 734,{ - if (countitem(7773)) { - set .@pointstoadd,countitem(7773); - delitem 7773,.@pointstoadd; - set kvm_point,kvm_point+.@pointstoadd; - mes "[Logistics]"; - mes "Are those "+getitemname(7773)+"s I see?"; - mes "We no longer accept that currency,"; - mes "but I can exchange those for you,"; - mes "So you have "+.@pointstoadd+" "+getitemname(7773)+"s?"; - mes "Alright, all set, you now have ^580080"+ kvm_point +"^000000 KVM Points."; - next; - } - if (checkweight(1201,1) == 0) { - mes "- Wait a minute !! -"; - mes "- Currently you're carrying -"; - mes "- too many items with you. -"; - mes "- Please try again -"; - mes "- after you loose some weight. -"; - close; - } - mes "[Logistics]"; - mes "Hello?"; - mes "I am in charge of distributing"; - mes "reward items for KVM points. Any"; - mes "wrong selection of items will not"; - mes "be reversed. Please be carefull."; - mes "Select the next step please."; - next; - set .@name$,strcharinfo(0); - switch(select("Read the KVM Catalogue.:Purchase KVM Items.:Confirm KVM Points.:Explanation of KVM Rewards.:Explanation of KVM Points.")) { - case 1: - mes "[Logistics]"; - mes "Here is the catalogue of KVM items."; - mes "Each weapon requires 2,000 points"; - mes "and each armor from 10 to 1,200"; - mes "points. So, be carefull when"; - mes "selecting a reward."; - close2; - ReadBook 11017,1; - end; - case 2: - mes "[Logistics]"; - mes "Wich items do you want to see? As"; - mes "for the detailed specification of"; - mes "the items, please refer to the"; - mes "^3131FFCatalogue^000000."; - next; - switch(select("Weapon:Armor/Accessory:Mass-Production Armor/Accessory:Popularized Armor/Accessory")) { - case 1: - mes "[Logistics]"; - mes "You have selected the Weapon Category."; - mes "Please select a sub-category."; - next; - switch(select("Dagger/Sword/Spear:Staff/Mace/Axe/Shuriken:Bow/Katar/Instrument/Whip:Book/Knuckle:Revolver/Rifle/Gun/Grenade Launcher")) { - case 1: - mes "[Logistics]"; - mes "You have selected the Dagger/Sword/Spear category."; - mes "Please select a sub-category."; - next; - switch(select("Dagger:One-handed Sword:Two-handed Sword:One-handed Spear:Two-handed Spear")) { - case 1: callsub PurchaseItem,13042,0,1; //Krieger_Dagger1 - case 2: - mes "[Logistics]"; - mes "You have selected the 'One-handed Sword' category."; - mes "There are 3 One-handed Swords: Glorious Flamberge, Glorious Rapier and Glorious Holy Avenger."; - mes "If you want their details, please refer to the KVM Catalogue."; - mes "Please select one of them."; - next; - switch(select("Glorious Flamberge:Glorious Rapier:Glorious Holy Avenger")) { - case 1: callsub PurchaseItem,13416,0,0; //Krieger_Onehand_Sword1 - case 2: callsub PurchaseItem,13417,0,0; //Krieger_Onehand_Sword2 - case 3: callsub PurchaseItem,13418,0,0; //Krieger_Onehand_Sword3 - } - case 3: callsub PurchaseItem,1187,0,1; //Krieger_Twohand_Sword1 - case 4: callsub PurchaseItem,1426,0,1; //Krieger_Onehand_Spear1 - case 5: callsub PurchaseItem,1486,0,1; //Krieger_Twohand_Spear1 - } - case 2: - mes "[Logistics]"; - mes "You have selected the 'Staff/Mace/Axe/Shuriken' category."; - mes "Please select a sub-category."; - next; - switch(select("Staff:Mace:One-handed Axe:Two-handed Axe:Shuriken")) { - case 1: - mes "[Logistics]"; - mes "You have selected the 'Staff' category."; - mes "There are 3 Staffs: a Two-handed Weapon Glorious Destruction Staff, a One-handed Glorious Arc Wand and a Glorious Healing Staff."; - mes "If you want their details, please refer to the KVM Catalogue."; - mes "Please select one of them."; - next; - switch(select("Glorious Destruction Staff:Glorious Arc Wand:Glorious Healing Staff")) { - case 1: callsub PurchaseItem,2002,0,0; //Krieger_Twohand_Staff1 - case 2: callsub PurchaseItem,1640,0,0; //Krieger_Onehand_Staff1 - case 3: callsub PurchaseItem,1641,0,0; //Krieger_Onehand_Staff2 - } - case 2: callsub PurchaseItem,1546,0,1; //Krieger_Onehand_Mace1 - case 3: callsub PurchaseItem,1310,0,1; //Krieger_Onehand_Axe1 - case 4: callsub PurchaseItem,1382,0,1; //Krieger_Twohand_Axe1 - case 5: callsub PurchaseItem,13307,0,1; //Krieger_Huuma_Shuriken1 - } - case 3: - mes "[Logistics]"; - mes "You have selected the Bow/Katar/Instrument/Whip category."; - mes "Please select a sub-category."; - next; - switch(select("Bow:Katar:Instrument:Whip")) { - case 1: callsub PurchaseItem,1743,0,1; //Krieger_Bow1 - case 2: - mes "[Logistics]"; - mes "You have selected the 'Katar' category."; - mes "There are 2 Katars: Glorious Bloody Roar and Glorious Jamadhar."; - mes "If you want their details, please refer to the KVM Catalogue."; - mes "Please select one of them."; - next; - switch(select("Glorious Bloody Roar:Glorious Jamadhar")) { - case 1: callsub PurchaseItem,1281,0,0; //Krieger_Katar1 - case 2: callsub PurchaseItem,1282,0,0; //Krieger_Katar2 - } - case 3: callsub PurchaseItem,1927,0,1; //Krieger_Instrument1 - case 4: callsub PurchaseItem,1981,0,1; //Krieger_Whip1 - } - case 4: - mes "[Logistics]"; - mes "You have selected the Book/Knuckle category."; - mes "Please select a sub-category."; - next; - switch(select("Book:Knuckle")) { - case 1: - mes "[Logistics]"; - mes "You have selected 'Book'."; - mes "There are 2 Books: Glorious Tablet and Glorious Apocalypse."; - mes "If you want their details, please refer to the KVM Catalogue."; - mes "Please select one of them."; - next; - switch(select("Glorious Tablet:Glorious Apocalypse")) { - case 1: callsub PurchaseItem,1576,0,0; //Krieger_Book1 - case 2: callsub PurchaseItem,1577,0,0; //Krieger_Book2 - } - case 2: - mes "[Logistics]"; - mes "You have selected the 'Knuckle' category."; - mes "There are 2 Knuckles: Glorious Claw and Glorious Fist."; - mes "If you want their details, please refer to the KVM Catalogue."; - mes "Please select one of them."; - next; - switch(select("Glorious Claw:Glorious Fist")) { - case 1: callsub PurchaseItem,1826,0,0; //Krieger_Knuckle1 - case 2: callsub PurchaseItem,1827,0,0; //Krieger_Knuckle2 - } - } - case 5: - mes "[Logistics]"; - mes "You have selected the 'Revolver/Rifle/Gun/Grenade Launcher' category."; - mes "Please select a sub-category."; - next; - switch(select("Revolver:Rifle:Gatling Gun:Shotgun:Grenade Launcher")) { - case 1: callsub PurchaseItem,13110,0,1; //Krieger_Pistol1 - case 2: callsub PurchaseItem,13176,0,1; //Krieger_Rifle1 - case 3: callsub PurchaseItem,13177,0,1; //Krieger_Gatling1 - case 4: callsub PurchaseItem,13178,0,1; //Krieger_Shotgun1 - case 5: callsub PurchaseItem,13179,0,1; //Krieger_Launcher1 - } - } - case 2: - mes "[Logistics]"; - mes "You have selected the 'Armor/Accessory' category."; - mes "Please select a sub-category."; - next; - switch(select("Armor:Cloak:Shoes:Accessory")) { - case 1: callsub PurchaseItem,2394,1,2; //Krieger_Suit1 - case 2: callsub PurchaseItem,2549,2,2; //Krieger_Muffler1 - case 3: callsub PurchaseItem,2444,3,2; //Krieger_Shoes1 - case 4: callsub PurchaseItem,2772,4,2; //Krieger_Ring1 - } - case 3: - mes "[Logistics]"; - mes "You have selected the 'Mass-Production Armor/Accessory' category."; - mes "Please select a sub-category."; - next; - switch(select("Mass-Production Armor:Mass-Production Shoes:Mass-Production Accessory")) { - case 1: callsub PurchaseItem,2395,5,3; //Krieger_Suit2 - case 2: callsub PurchaseItem,2445,6,3; //Krieger_Shoes2 - case 3: callsub PurchaseItem,2773,7,3; //Krieger_Ring2 - } - case 4: - mes "[Logistics]"; - mes "You have selected the 'Popularized Armor/Accessory' category."; - mes "Please select a sub-category."; - next; - switch(select("Popularized Armor:Popularized Shoes:Popularized Accessory")) { - case 1: callsub PurchaseItem,2396,8,4; //Krieger_Suit3 - case 2: callsub PurchaseItem,2446,9,4; //Krieger_Shoes3 - case 3: callsub PurchaseItem,2774,10,4; //Krieger_Ring3 - } - } - case 3: - mes "[Logistics]"; - mes ""+ .@name$ +", your current points are ^580080"+ kvm_point +"^000000 KVM Points."; - close; - case 4: - mes "[Logistics]"; - mes "There are 3 categories in KVM Rewards: Weapon/Armor.Accessory."; - next; - mes "[Logistics]"; - mes "Weapon rewards require 2,000 KVM points for each."; - mes "There are 3 types of Armor rewards and they require 840/630/580 KVM points fo each."; - mes "Accessory rewards require 1,200 KVM points for each."; - next; - mes "[Logistics]"; - mes "Kreiger Weapons are LV 4 Weapons, they can be upgraded and will have special effects: Slaughter, Destruction and Blessing."; - next; - mes "[Logistics]"; - mes "When you can wear all 3 armors, you can have a special set of options."; - mes "Also, when Kreiger Accessory rewards are worn with medalsm it will bring you special set rewards."; - next; - mes "[Logistics]"; - mes "Finally, there are Mass-Production Armor and Accessory rewards."; - mes "Players whose Lvl is higher than 60 can equip Mass-Production Armors and there is a Lvl limit for Popularized Armor as well."; - close; - case 5: - mes "[Logistics]"; - mes "KVM Points are rewarded when you win, lose or draw in Kreiger Von Midgard (KVM)."; - mes "You can have special Rewards by using these points."; - close; - } - -PurchaseItem: - // Pricing for Weapon, Suit1, Muffler1, Shoes1, Ring1m Suit2, Shoes2, Ring2, Suit3, Shoes3, Ring3 - setarray .@prices[0],2000,840,630,580,1200,120,70,200,15,10,30; - - mes "[Logistics]"; - - if (!getarg(2)) - mes "You have selected ^ff0000"+getitemname(getarg(0))+"^000000."; - else if (getarg(2) == 1) - mes "There is only one "+callfunc("F_GetWeaponType",getarg(0))+": "+getitemname(getarg(0))+"."; - else if (getarg(2) == 2) { - mes "You have selected '"+callfunc("F_GetArmorType",getarg(0))+"'."; - mes "The armor for one whose Lvl is more than 80 is: ^ff0000"+getitemname(getarg(0))+"^000000."; - } - else if (getarg(2) == 3) { - mes "You have selected 'Mass-Production "+callfunc("F_GetArmorType",getarg(0))+"'."; - mes "There is only one Mass-Production "+callfunc("F_GetArmorType",getarg(0))+": ^ff0000"+getitemname(getarg(0))+"^000000."; - } - else if (getarg(2) == 4) { - mes "You have selected 'Popularized "+callfunc("F_GetArmorType",getarg(0))+"'."; - mes "There is only one Popularized "+callfunc("F_GetArmorType",getarg(0))+": ^ff0000"+getitemname(getarg(0))+"^000000."; - } - - if (!getarg(1)) - mes "It requires ^0000ff2,000^000000 KVM Points, and "+ .@name$ +", your points are: ^580080"+ kvm_point +"^000000."; - else if (getarg(1) == 4) - mes "It requires ^0000ff1,200^000000 KVM Points, and "+ .@name$ +", your points are: ^580080"+ kvm_point +"^000000."; - else - mes "It requires ^0000ff"+.@prices[getarg(1)]+"^000000 KVM Points, and "+ .@name$ +", your points are: ^580080"+ kvm_point +"^000000."; - - mes "Are you sure you want this item?"; - next; - switch(select("No, I won't purchase it.:Yes, I will purchase it.")) { - case 1: - mes "[Logistics]"; - mes "You have selected 'I won't purchase it'."; - mes "When purchasing an item, please be careful there are no refunds."; - break; - case 2: - if (kvm_point >= .@prices[getarg(1)]) { - set kvm_point,kvm_point-.@prices[getarg(1)]; - getitem getarg(0),1; - mes "[Logistics]"; - mes "You have purchased a "+getitemname(getarg(0))+"."; - if (!getarg(1)) - mes "Your KVM Points are reduced by ^0000ff"+getarg(1)+"^000000 points, your KVM Points are now ^580080"+kvm_point+"^000000."; - if (getarg(1) == 4) - mes "Your KVM Points are reduced by ^0000ff1,200^000000 points, your KVM Points are now ^580080"+kvm_point+"^000000."; - else - mes "Your KVM Points are reduced by ^0000ff"+.@prices[getarg(1)]+"^000000 points, your KVM Points are now ^580080"+kvm_point+"^000000."; - } - else { - mes "[Logistics]"; - if (!getarg(1)) - mes "You need ^0000ff2,000^000000 KVM Points to purchase this item."; - else if (getarg(1) == 4) - mes "You need ^0000ff1,200^000000 KVM Points to purchase this item."; - else - mes "You need ^0000ff"+.@prices[getarg(1)]+"^000000 KVM Points to purchase this item."; - mes "However, your KVM Points are now ^580080"+ kvm_point +"^000000."; - mes "Which are not enough to buy it."; - mes "When you get enough points, please come back again."; - } - } - close; -} |