From e3afdc2af4c5e50c79237ee092e25f39b7428e47 Mon Sep 17 00:00:00 2001 From: Michieru Date: Thu, 24 Oct 2013 12:10:43 +0200 Subject: Update to last rAthena npc. Fix some typos change sc_bleeding to -> sc_blooding Updated RE EXP for quests_brasilis.txt --- npc/other/arena/arena_room.txt | 802 ++++++++++++++++++----------------------- 1 file changed, 354 insertions(+), 448 deletions(-) (limited to 'npc/other/arena/arena_room.txt') diff --git a/npc/other/arena/arena_room.txt b/npc/other/arena/arena_room.txt index 925976f3b..2e067cd28 100644 --- a/npc/other/arena/arena_room.txt +++ b/npc/other/arena/arena_room.txt @@ -3,26 +3,28 @@ //===== By: ================================================== //= SinSloth //===== Current Version: ===================================== -//= 1.1 +//= 1.4 //===== Description: ========================================= //= Izlude Battle Arena Main Room //===== Additional Comments: ================================= //= 1.0 First version. //= 1.1 Fixed a small reward typo (was giving potato.) [L0ne_W0lf] +//= 1.2 Label standardization, disabled GM NPCs. [Euphy] +//= 1.2a Added Renewal level checksk. [Euphy] +//= 1.3 Script updates. [Euphy] +//= 1.4 Added GM management function. [Euphy] //============================================================ arena_room,94,93,5 script Vendigos 97,{ - mes "[Vendigos]"; mes "Welcome to the world of Arena, the battle against a time limit."; mes "My name is Vendigos, I am here to help you."; next; mes "[Vendigos]"; mes "If you have any questions, feel free to ask me."; -L_Menu: next; - switch( select( "How to challenge","About Arena Points","My Current Arena Points","Cancel" ) ) - { + while(1) { + switch(select("How to challenge:About Arena Points:My Current Arena Points:Cancel")) { case 1: mes "[Vendigos]"; mes "There are two different kinds of arena mode such as ^3131FFPlayer Mode^000000 and ^3131FFParty Mode^000000."; @@ -38,7 +40,6 @@ L_Menu: mes "There are the NPCs for Player Mode Stages from 12 o'clock direction to the reversed clock direction."; mes "While you're waiting in a chat room, you will be automatically guided to an arena room by the waiting order."; break; - case 2: mes "[Vendigos]"; mes "Let me explain about the ^3131FFArena Point^000000."; @@ -51,7 +52,6 @@ L_Menu: mes "Regarding the use of Arena Points,"; mes "we are providing various services such as souvenir photograph services through an NPC named Givu."; break; - case 3: mes "[Vendigos]"; mes "Let me check "+strcharinfo(0)+"'s current arena points."; @@ -62,45 +62,46 @@ L_Menu: mes "[Vendigos]"; mes "If you wish to know how to use arena points, please refer to the 2nd menu ^3131FF'About Arena Points'^000000."; break; - case 4: mes "[Vendigos]"; - mes "Okay, please have a good time."; + mes "Okay then,"; + mes "please have"; + mes "a good time."; close; + } + next; + mes "[Vendigos]"; + mes "Is there anything"; + mes "more I can help you with?"; + next; } - next; - mes "[Vendigos]"; - mes "Is there anything I can help you more?"; - goto L_Menu; + close; -Onlinerec_50: +OnLineRec_50: mapannounce "arena_room",""+$arena_50topn$+" has renewed the top record in the Arena Time Force Battle level 50. Congratulations!",0; end; -Onlinerec_60: +OnLineRec_60: mapannounce "arena_room",""+$arena_60topn$+" has renewed the top record in the Arena Time Force Battle level 60. Congratulations!",0; end; -Onlinerec_70: +OnLineRec_70: mapannounce "arena_room",""+$arena_70topn$+" has renewed the top record in the Arena Time Force Battle level 70. Congratulations!",0; end; -Onlinerec_80: +OnLineRec_80: mapannounce "arena_room",""+$arena_80topn$+" has renewed the top record in the Arena Time Force Battle level 80. Congratulations!",0; end; -Onlinerec_pt: +OnLineRec_pt: mapannounce "arena_room","Party "+$arena_pttopn$+" has renewed the top record in the Arena Time Force Battle. Congratulations!",0; end; -//OnCommand: "linerec_vs" -// var vs_winner = GetGlobalStr "040611_arn_vstopn" -// broadcastinmap "Party "+vs_winner+" has renewed the top record in the Arena Time Force Battle. Congratulations!" -// end; - +//OnLineRec_vs: +// mapannounce "arena_room","Party "+$040611_arn_vstopn$+" has renewed the top record in the Arena Time Force Battle. Congratulations!",0; +// end; } arena_room,105,82,5 script Arena Record Staff 57,{ - mes "[Owen Kheuv]"; mes "Hello, my name is Own Kheuv"; mes "in charge of every arena stage record of players."; @@ -109,43 +110,37 @@ arena_room,105,82,5 script Arena Record Staff 57,{ mes "Would you like to check the top record players in each stage?"; mes "If so, please choose a menu below."; next; - switch( select( "lvl 50 Stage","lvl 60 Stage","lvl 70 Stage","lvl 80 Stage","Party Stage" ) ) - { - case 1: - mes "[Owen Kheuv]"; - mes "Currently the top player of the arena lvl 50 stage is ^3131FF "+$arena_50topn$+"^000000, the top record is ^3131FF"+$top_50min+"^000000 minutes ^3131FF"+$top_50sec+"^000000 seconds."; - close; - - case 2: - mes "[Owen Kheuv]"; - mes "Currenly the top player of the arena lvl 60 stage is ^3131FF"+$arena_60topn$+"^000000, the top record is ^3131FF"+$top_60min+"^000000 minutes ^3131FF"+$top_60sec+"^000000 seconds."; - close; - - case 3: - mes "[Owen Kheuv]"; - mes "Currenly the top player of the arena lvl 70 stage is ^3131FF"+$arena_70topn$+"^000000, the top record is ^3131FF"+$top_70min+"^000000 minutes ^3131FF"+$top_70sec+"^000000 seconds."; - close; - - case 4: - mes "[Owen Kheuv]"; - mes "Currenly the top player of the arena lvl 80 stage is ^3131FF"+$arena_80topn$+"^000000, the top record is ^3131FF"+$top_80min+"^000000 minutes ^3131FF"+$top_80sec+"^000000 seconds."; - close; - - case 5: - mes "[Owen Kheuv]"; - mes "Currenly the top party is ^3131FF"+$arena_pttopn$+"^000000, the top record is ^3131FF"+$top_ptmin+"^000000 minutes ^3131FF"+$top_ptsec+"^000000 seconds."; - close; + switch(select("Lv 50 Stage:Lv 60 Stage:Lv 70 Stage:Lv 80 Stage:Party Stage")) { + case 1: + mes "[Owen Kheuv]"; + mes "Currently the top player of the arena Lv 50 stage is ^3131FF "+$arena_50topn$+"^000000, the top record is ^3131FF"+$top_50min+"^000000 minutes ^3131FF"+$top_50sec+"^000000 seconds."; + close; + case 2: + mes "[Owen Kheuv]"; + mes "Currenly the top player of the arena Lv 60 stage is ^3131FF"+$arena_60topn$+"^000000, the top record is ^3131FF"+$top_60min+"^000000 minutes ^3131FF"+$top_60sec+"^000000 seconds."; + close; + case 3: + mes "[Owen Kheuv]"; + mes "Currenly the top player of the arena Lv 70 stage is ^3131FF"+$arena_70topn$+"^000000, the top record is ^3131FF"+$top_70min+"^000000 minutes ^3131FF"+$top_70sec+"^000000 seconds."; + close; + case 4: + mes "[Owen Kheuv]"; + mes "Currenly the top player of the arena Lv 80 stage is ^3131FF"+$arena_80topn$+"^000000, the top record is ^3131FF"+$top_80min+"^000000 minutes ^3131FF"+$top_80sec+"^000000 seconds."; + close; + case 5: + mes "[Owen Kheuv]"; + mes "Currenly the top party is ^3131FF"+$arena_pttopn$+"^000000, the top record is ^3131FF"+$top_ptmin+"^000000 minutes ^3131FF"+$top_ptsec+"^000000 seconds."; + close; } } arena_room,68,135,3 script Helper Pat 726,{ - mes "[Pat]"; mes "Welcome, welcome."; - mes "I am a helper of the lvl 50 arena stage."; + mes "I am a helper of the Lv 50 arena stage."; next; mes "[Pat]"; - mes "This ^3131FFlvl 50 arena stage^000000"; + mes "This ^3131FFLv 50 arena stage^000000"; mes "is accessable to characters from ^FF0000level 50^000000 to ^FF0000level 69^000000."; next; mes "[Pat]"; @@ -179,13 +174,12 @@ arena_room,68,135,3 script Helper Pat 726,{ } arena_room,41,93,5 script Helper Ben 750,{ - mes "[Ben]"; mes "Welcome, welcome."; - mes "I am a helper of the lvl 60 arena stage."; + mes "I am a helper of the Lv 60 arena stage."; next; mes "[Ben]"; - mes "This ^3131FFlvl 60 arena stage^000000"; + mes "This ^3131FFLv 60 arena stage^000000"; mes "is accessable to characters from ^FF0000level 60^000000 to ^FF0000level 79^000000."; next; mes "[Ben]"; @@ -219,14 +213,13 @@ arena_room,41,93,5 script Helper Ben 750,{ } arena_room,53,49,5 script Helper Vicious 730,{ - mes "[Vicious]"; mes "Hey there."; - mes "My name is Vicious, I am a helper of lvl 70 arena stage."; + mes "My name is Vicious, I am a helper of Lv 70 arena stage."; mes "(...I have no clue how the hell I put myself into this crappy work...mumble mumble...grumble grumble..)"; next; mes "[Vicious]"; - mes "This ^3131FFlvl 70 arena stage^000000"; + mes "This ^3131FFLv 70 arena stage^000000"; mes "is accessable to characters from ^FF0000level 70^000000 to ^FF0000level 89^000000."; next; mes "[Vicious]"; @@ -260,10 +253,9 @@ arena_room,53,49,5 script Helper Vicious 730,{ } arena_room,147,49,3 script Helper Epin 727,{ - mes "[Epin]"; mes "Good day,"; - mes "I am a helper of lvl 80 arena stage and my name is Epin."; + mes "I am a helper of Lv 80 arena stage and my name is Epin."; mes "I like reading and I am 19 years old...huh...? Don't you want to hear about me...?"; next; emotion e_cry,0; @@ -271,8 +263,8 @@ arena_room,147,49,3 script Helper Epin 727,{ mes "Okay..."; next; mes "[Epin]"; - mes "This ^3131FFlvl 80 arena stage^000000"; - mes "is accessable to characters from ^FF0000level 80^000000 to ^FF0000level 99^000000."; + mes "This ^3131FFLv 80 arena stage^000000"; + mes "is accessable to characters from ^FF0000level 80^000000 to ^FF0000level "+(checkre(0)?"160":"99")+"^000000."; next; mes "[Epin]"; mes "This level limitation is to prevent high level characters abusing low level arena stages. I hope you will understand."; @@ -305,7 +297,6 @@ arena_room,147,49,3 script Helper Epin 727,{ } arena_room,158,93,5 script Helper Lunic 828,{ - mes "[Lunic]"; mes "Welcome to party arena stage."; mes "I hope you will listen carefully to my introduction"; @@ -313,7 +304,7 @@ arena_room,158,93,5 script Helper Lunic 828,{ next; mes "[Lunic]"; mes "^3131FFParty Arena Stage^000000"; - mes "is accessible to players from ^FF0000level 10^000000 to ^FF0000level 99^000000."; + mes "is accessible to players from ^FF0000level 10^000000 to ^FF0000level "+(checkre(0)?"160":"99")+"^000000."; next; mes "[Lunic]"; mes "Also, arena will be not be started until all of 5 party members enter the room. We accept an entrance fee 1,000 zeny."; @@ -375,7 +366,6 @@ arena_room,158,93,5 script Helper Lunic 828,{ } arena_room,158,82,1 script Helper Lonik 828,{ - emotion e_no1,0; mes "[Lonik]"; mes "Tah dah! Here I am!"; @@ -386,17 +376,14 @@ arena_room,158,82,1 script Helper Lonik 828,{ mes "[Lonik]"; mes "My answer is..."; mes "............."; - if(getmapusers("force_1-2")) - { + if (getmapusers("force_1-2")) { emotion e_oh,0; mes "Yes!"; mes "There is someone inside."; next; mes "[Lonik]"; mes "You'd better wait a little bit longer!"; - } - else - { + } else { emotion e_x,0; mes "No!"; mes "Go for it, good luck!"; @@ -405,235 +392,185 @@ arena_room,158,82,1 script Helper Lonik 828,{ } sec_in02,72,180,3 script Arena Manager#arena 802,{ - - if (!getgmlevel()) end; - - input .@arena; - if(!.@arena) - { + set .@i, callfunc("F_GM_NPC",1357,0); + if (.@i == -1) { mes "[Arena Manager]"; mes "Command has been canceled."; close; - } - else if(.@arena == 1357) - { + } else if (.@i == 0) { + mes "Password is incorrect."; + close; + } else { mes "[Arena Manager]"; mes "Select an option."; next; - switch( select( "Restart arena","Rearrange the Ranking Time" ) ) - { + switch(select("Restart arena:Rearrange the Ranking Time")) { + case 1: + switch(select("Lv 50:Lv 60:Lv 70:Lv 80:Party Mode")) { case 1: - switch( select( "lvl 50","lvl 60","lvl 70","lvl 80","Party Mode" ) ) - { - case 1: - set .@arena,50; - break; - case 2: - set .@arena,60; - break; - case 3: - set .@arena,70; - break; - case 4: - set .@arena,80; - break; - case 5: - mes "[Arena Manager]"; - mes "== Caution =="; - mes "You have chosen to restart party arena stage."; - mes "Do you wish to proceed?"; - next; - switch( select( "Yes","No" ) ) - { - case 1: - donpcevent "Ponox::Onstart"; - mes "[Arena Manager]"; - mes "The arena stage has been successfuly reactivated."; - close; - - case 2: - mes "[Arena Manager]"; - mes "Command has been canceled."; - close; - } - } + set .@arena,50; + break; + case 2: + set .@arena,60; + break; + case 3: + set .@arena,70; + break; + case 4: + set .@arena,80; + break; + case 5: mes "[Arena Manager]"; mes "== Caution =="; - mes "You have chosen to restart lvl "+.@arena+" arena stage."; + mes "You have chosen to restart party arena stage."; mes "Do you wish to proceed?"; next; - switch( select( "Yes","No" ) ) - { - case 1: - donpcevent "lvl "+.@arena+"s Waiting Room::Onstart"; - mes "[Arena Manager]"; - mes "The arena stage has been successfuly reactivated."; - close; + switch(select("Yes:No")) { + case 1: + donpcevent "Ponox::OnStart"; + mes "[Arena Manager]"; + mes "The arena stage has been successfuly reactivated."; + close; - case 2: - mes "[Arena Manager]"; - mes "Command has been canceled."; - close; + case 2: + mes "[Arena Manager]"; + mes "Command has been canceled."; + close; } - + } + mes "[Arena Manager]"; + mes "== Caution =="; + mes "You have chosen to restart Lv "+.@arena+" arena stage."; + mes "Do you wish to proceed?"; + next; + switch(select("Yes:No")) { + case 1: + donpcevent "Lv"+.@arena+" Waiting Room::OnStart"; + mes "[Arena Manager]"; + mes "The arena stage has been successfuly reactivated."; + close; case 2: mes "[Arena Manager]"; - mes "== Caution =="; - mes "^CE0000You have chosen to rearrange the ranking time. Make sure this is not a good decision unless if something serious was happened!^000000"; - next; + mes "Command has been canceled."; + close; + } + case 2: + mes "[Arena Manager]"; + mes "== Caution =="; + mes "^CE0000You have chosen to rearrange the ranking time. Make sure this is not a good decision unless if something serious was happened!^000000"; + next; + mes "[Arena Manager]"; + mes "Are you sure you want to rearrange the ranking time?"; + next; + switch(select("No:Yes")) { + case 1: mes "[Arena Manager]"; - mes "Are you sure you want to rearrange the ranking time?"; - next; - switch( select( "No","Yes" ) ) - { - case 1: - mes "[Arena Manager]"; - mes "Phew~ :)"; - close; - - case 2: - switch( select( "lvl 50","lvl 60","lvl 70","lvl 80","Party Mode" ) ) - { - case 1: - mes "[Arena Manager]"; - mes "Please enter 0 to cancel."; - mes "If not, please enter a value for minutes first and then seconds."; - next; - input .@arenamin; - set $top_50min,.@arenamin; - input .@arenasec; - set $top_50sec,.@arenasec; - mes "[Arena Manager]"; - mes "Current lvl 50 ranker's play time has been rearranged to ^FF0000"+$top_50min+"^000000 minutes and ^FF0000"+$top_50sec+"^000000 seconds."; - close; - case 2: - mes "[Arena Manager]"; - mes "Please enter 0 to cancel."; - mes "If not, please enter a value for minutes first and then seconds."; - next; - input .@arenamin; - set $top_60min,.@arenamin; - input .@arenasec; - set $top_60sec,.@arenasec; - mes "[Arena Manager]"; - mes "Current lvl 60 ranker's play time has been rearranged to ^FF0000"+$top_60min+"^000000 minutes and ^FF0000"+$top_60sec+"^000000 seconds."; - close; - case 3: - mes "[Arena Manager]"; - mes "Please enter 0 to cancel."; - mes "If not, please enter a value for minutes first and then seconds."; - next; - input .@arenamin; - set $top_70min,.@arenamin; - input .@arenasec; - set $top_70sec,.@arenasec; - mes "[Arena Manager]"; - mes "Current lvl 70 ranker's play time has been rearranged to ^FF0000"+$top_70min+"^000000 minutes and ^FF0000"+$top_70sec+"^000000 seconds."; - close; - case 4: - mes "[Arena Manager]"; - mes "Please enter 0 to cancel."; - mes "If not, please enter a value for minutes first and then seconds."; - next; - input .@arenamin; - set $top_80min,.@arenamin; - input .@arenasec; - set $top_80sec,.@arenasec; - mes "[Arena Manager]"; - mes "Current lvl 80 ranker's play time has been rearranged to ^FF0000"+$top_80min+"^000000 minutes and ^FF0000"+$top_80sec+"^000000 seconds."; - close; - case 5: - mes "[Arena Manager]"; - mes "Please enter 0 to cancel."; - mes "If not, please enter a value for minutes first and then seconds."; - next; - input .@arenamin; - set $top_ptmin,.@arenamin; - input .@arenasec; - set $top_ptsec,.@arenasec; - mes "[Arena Manager]"; - mes "Current party ranker's play time has been rearranged to ^FF0000"+$top_ptmin+"^000000 minutes and ^FF0000"+$top_ptsec+"^000000 seconds."; - close; - } + mes "Phew~ :)"; + close; + case 2: + switch(select("Lv 50:Lv 60:Lv 70:Lv 80:Party Mode")) { + case 1: + set .@min$,"$top50min"; + set .@sec$,"$top50sec"; + set .@mode$,"Lv 50"; + break; + case 2: + set .@min$,"$top60min"; + set .@sec$,"$top60sec"; + set .@mode$,"Lv 60"; + break; + case 3: + set .@min$,"$top70min"; + set .@sec$,"$top70sec"; + set .@mode$,"Lv 70"; + break; + case 4: + set .@min$,"$top80min"; + set .@sec$,"$top80sec"; + set .@mode$,"Lv 80"; + break; + case 5: + set .@min$,"$top_ptmin"; + set .@sec$,"$top_ptsec"; + set .@mode$,"party"; + break; } + mes "[Arena Manager]"; + // Doesn't work with Athena's implementation. + //mes "Please enter 0 to cancel."; + //mes "If not, please enter a value for minutes first and then seconds."; + mes "Please enter a value for minutes first and then seconds."; + next; + input .@arenamin; + setd .@min$,.@arenamin; + input .@arenasec; + setd .@sec$,.@arenasec; + mes "[Arena Manager]"; + mes "Current "+.@mode$+" ranker's play time has been rearranged to ^FF0000"+getd(.@min$)+"^000000 minutes and ^FF0000"+getd(.@sec$)+"^000000 seconds."; + close; + } } } - mes "Password is incorrect."; - close; } sec_in02,79,171,3 script Reward Manager#arena 802,{ - - if (!getgmlevel()) end; - - input .@arena; - if(!.@arena) - { + set .@i, callfunc("F_GM_NPC",1357,0); + if (.@i == -1) { mes "[Reward Manager]"; mes "Command has been canceled."; close; - } - else if(.@arena == 1357) - { + } else if (.@i == 0) { + mes "[Reward Manager]"; + mes "Password is incorrect."; + close; + } else { mes "[Reward Manager]"; mes "You have chosen to hide the teleporter NPC."; next; - switch( select( "Cancel","Yes","Turn on" ) ) - { - case 1: - mes "[Reward Manager]"; - mes "You have canceled the command."; - close; - - case 2: - mes "[Reward Manager]"; - mes "NPC has been hidden"; - disablenpc "Teleporter#arena"; - close; - - case 3: - mes "[Reward Manager]"; - mes "NPC has been enabled."; - enablenpc "Teleporter#arena"; - close; + switch(select("Cancel:Yes:Turn on")) { + case 1: + mes "[Reward Manager]"; + mes "You have canceled the command."; + close; + case 2: + mes "[Reward Manager]"; + mes "NPC has been hidden."; + disablenpc "Teleporter#arena"; + close; + case 3: + mes "[Reward Manager]"; + mes "NPC has been enabled."; + enablenpc "Teleporter#arena"; + close; } } - mes "[Reward Manager]"; - mes "Password is incorrect."; - close; } arena_room,105,93,5 script Teleporter#arena 55,{ - mes "[Teleporter]"; mes "I can move you to the reward arena!"; mes "Would you like to go there?"; next; - switch( select( "Yes.","No." ) ) - { - case 1: - mes "[Teleporter]"; - mes "Let me guide you."; - close2; - warp "prt_are_in",60,14; - end; - - case 2: - mes "[Teleporter]"; - mes "No problem, feel free to come back any time."; - close; + switch(select("Yes:No.")) { + case 1: + mes "[Teleporter]"; + mes "Let me guide you."; + close2; + warp "prt_are_in",60,14; + end; + case 2: + mes "[Teleporter]"; + mes "No problem, feel free to come back any time."; + close; } } prt_are_in,98,14,3 script Givu#arena 728,{ - - - if(checkweight(526,5) != 1) - { + if (checkweight(526,5) == 0) { mes "- Wait a moment! -"; mes "- Currently you're carrying -"; mes "- too many items with you. -"; - mes "- Please enlighten your weight -"; + mes "- Please lighten your weight -"; mes "- and try again. -"; close; } @@ -645,149 +582,139 @@ prt_are_in,98,14,3 script Givu#arena 728,{ mes "You can exchange your arena points with various stuffs."; mes "Please choose a menu below."; next; - switch( select( "Exchange with Consumable items","Exchange with EXP points","Take a Souvenir Picture","Check Current Arena Points" ) ) - { + switch(select("Exchange with Consumable items:Exchange with EXP points:Take a Souvenir Picture:Check Current Arena Points")) { + case 1: + mes "[Givu]"; + mes "What consumable item do you wish to exchange?"; + next; + switch(select("Honey:Royal Jelly:Mastela Fruit:Condensed White Potion:Anodyne:Yggdrasil Seed:Yggdrasilberry:Old Blue Box:Old Purple Box:Old Card Album")) { + case 1: callfunc "Func_Are_Rew",518,5,20; + case 2: callfunc "Func_Are_Rew",526,5,30; + case 3: callfunc "Func_Are_Rew",522,5,30; + case 4: callfunc "Func_Are_Rew",547,8,30; + case 5: callfunc "Func_Are_Rew",605,3,20; + case 6: callfunc "Func_Are_Rew",608,1,20; + case 7: callfunc "Func_Are_Rew",607,1,40; + case 8: callfunc "Func_Are_Rew",603,1,100; + case 9: callfunc "Func_Are_Rew",617,1,300; + case 10: callfunc "Func_Are_Rew",616,1,1000; + } + case 2: + mes "[Givu]"; + mes "Would you like to exchange your arena points with experience points?"; + mes "It requires 40 arena points."; + next; + switch(select("Cancel:Yes")) { case 1: mes "[Givu]"; - mes "What consumable item do you wish to exchange?"; - next; - switch( select( "Honey","Royal Jelly","Mastela Fruit","Condensed White Potion","Anodyne","Yggdrasil Seed","Yggdrasilberry","Old Blue Box","Old Purple Box","Old Card Album" ) ) - { - case 1: callfunc "Func_Are_Rew",518,5,20; - case 2: callfunc "Func_Are_Rew",526,5,30; - case 3: callfunc "Func_Are_Rew",522,5,30; - case 4: callfunc "Func_Are_Rew",547,8,30; - case 5: callfunc "Func_Are_Rew",605,3,20; - case 6: callfunc "Func_Are_Rew",608,1,20; - case 7: callfunc "Func_Are_Rew",607,1,40; - case 8: callfunc "Func_Are_Rew",603,1,100; - case 9: callfunc "Func_Are_Rew",617,1,300; - case 10: callfunc "Func_Are_Rew",616,1,1000; - } - + mes "You have canceled your request."; + close; case 2: + if (arena_point < 40) { + mes "[Givu]"; + mes "You do not have enough arena points."; + mes "Please check the total amount of arena points you have."; + close; + } + set arena_point, arena_point-40; + if (checkre(3)) { + if (BaseLevel < 70) getexp 300,0; + else if (BaseLevel < 80) getexp 900,0; + else if (BaseLevel < 90) getexp 1000,0; + else getexp 3000,0; + } else { + if (BaseLevel < 70) getexp 3000,0; + else if (BaseLevel < 80) getexp 9000,0; + else if (BaseLevel < 90) getexp 10000,0; + else getexp 30000,0; + } mes "[Givu]"; - mes "Would you like to exchange your arena points with experience points?"; - mes "It requires 40 arena points."; + mes "You have gained experience points. Thank you."; + close; + } + case 3: + mes "[Givu]"; + mes "You have chosen a souvenir picture services."; + next; + switch(select("About souvenir Picture Services:Take a picture")) { + case 1: + mes "[Givu]"; + mes "Do you see stairs at the right side of me?"; next; - switch( select( "Cancel","Yes" ) ) - { - case 1: - mes "[Givu]"; - mes "You have canceled your request."; - close; - - case 2: - if(arena_point < 40) - { - mes "[Givu]"; - mes "You do not have enough arena points."; - mes "Please check the total amount of arena points you have."; - close; - } - set arena_point,arena_point -40; - if(BaseLevel < 70) getexp 3000,0; - else if(BaseLevel < 80) getexp 9000,0; - else if(BaseLevel < 90) getexp 10000,0; - else if(BaseLevel < 100) getexp 30000,0; - mes "[Givu]"; - mes "You have gained experience points. Thank you."; - close; - } - - case 3: mes "[Givu]"; - mes "You have chosen a souvenir picture services."; + mes "At the stairs, you can take a screenshot with an NPC or a monster."; next; - switch( select( "About souvenir Picture Services","Take a picture" ) ) - { - case 1: - mes "[Givu]"; - mes "Do you see stairs at the right side of me?"; - next; - mes "[Givu]"; - mes "At the stairs, you can take a screenshot with an NPC or a monster."; - next; - mes "[Givu]"; - mes "When you choose an NPC or a monster, it will show some emotion icons ^FF0000for 1 minute^000000."; - next; - mes "[Givu]"; - mes "Don't miss the chance to take a picture with your favorite NPC!"; - close; - - case 2: - if($arenapic) - { - mes "[Givu]"; - mes "A souvenir picture services is on progress. Please wait."; - close; - } - mes "[Givu]"; - mes "Please choose an NPC at below."; - mes "The NPC will appear for 1 minute and this service requires 10 arena points."; - next; - switch( select( "Baphomet","Dark Lord","Doppelganger","Eddga","Dracula","Samurai","Stormy Knight","Phreeoni","Girl","Valkyrie" ) ) - { - case 1: set $@arenapic,1039; break; - case 2: set $@arenapic,1272; break; - case 3: set $@arenapic,1046; break; - case 4: set $@arenapic,1115; break; - case 5: set $@arenapic,1389; break; - case 6: set $@arenapic,1492; break; - case 7: set $@arenapic,1251; break; - case 8: set $@arenapic,1159; break; - case 9: set $@arenapic,6969; break; - case 10: set $@arenapic,7777; break; - } - if(arena_point < 10) - { - mes "[Givu]"; - mes "You do not have enough arena points."; - mes "Please check the total amount of arena points you have."; - close; - } - mes "[Givu]"; - if($@arenapic == 6969) mes "Would you like to take a picture with pretty girls?"; - else if($@arenapic == 7777) mes "Would you like to take a picture with a Valkyrie?"; - else mes "Would you like to take a picture with a "+getmonsterinfo($@arenapic,0)+"?"; - next; - switch( select( "Yes","No" ) ) - { - case 1: - set arena_point,arena_point -10; - set $arenapic,1; - enablenpc "#arena_"+$@arenapic+""; - movenpc "#arena_"+$@arenapic+"",96,28; - if($@arenapic == 6969) - { - enablenpc "#arena_ss_2"; - enablenpc "#arena_ss_3"; - enablenpc "#arena_ss_4"; - } - donpcevent "npctime#arena::OnStart"; - mes "[Givu]"; - mes "Thank you."; - close; - - case 2: - mes "[Givu]"; - mes "Would you like to consider a little longer?"; - close; - } - } - - case 4: mes "[Givu]"; - mes "Let me check "+strcharinfo(0)+"'s current arena points."; + mes "When you choose an NPC or a monster, it will show some emotion icons ^FF0000for 1 minute^000000."; next; mes "[Givu]"; - mes ""+strcharinfo(0)+" has total ^3131FF"+arena_point+"^000000 points."; + mes "Don't miss the chance to take a picture with your favorite NPC!"; close; + case 2: + if ($@arena_picture) { + mes "[Givu]"; + mes "A souvenir picture services is on progress. Please wait."; + close; + } + mes "[Givu]"; + mes "Please choose an NPC at below."; + mes "The NPC will appear for 1 minute and this service requires 10 arena points."; + next; + switch(select("Baphomet:Dark Lord:Doppelganger:Eddga:Dracula:Samurai:Stormy Knight:Phreeoni:Girl:Valkyrie")) { + case 1: set $@arena_picture_id,1039; break; + case 2: set $@arena_picture_id,1272; break; + case 3: set $@arena_picture_id,1046; break; + case 4: set $@arena_picture_id,1115; break; + case 5: set $@arena_picture_id,1389; break; + case 6: set $@arena_picture_id,1492; break; + case 7: set $@arena_picture_id,1251; break; + case 8: set $@arena_picture_id,1159; break; + case 9: set $@arena_picture_id,6969; break; + case 10: set $@arena_picture_id,7777; break; + } + if (arena_point < 10) { + mes "[Givu]"; + mes "You do not have enough arena points."; + mes "Please check the total amount of arena points you have."; + close; + } + mes "[Givu]"; + if ($@arena_picture_id == 6969) + mes "Would you like to take a picture with pretty girls?"; + else if ($@arena_picture_id == 7777) + mes "Would you like to take a picture with a Valkyrie?"; + else + mes "Would you like to take a picture with a "+getmonsterinfo($@arena_picture_id,0)+"?"; + next; + switch(select("Yes:No")) { + case 1: + set arena_point, arena_point-10; + set $@arena_picture,1; + enablenpc "#arena_"+$@arena_picture_id+""; + movenpc "#arena_"+$@arena_picture_id+"",96,28; + if ($@arena_picture_id == 6969) { + enablenpc "#arena_ss_2"; + enablenpc "#arena_ss_3"; + enablenpc "#arena_ss_4"; + } + donpcevent "npctime#arena::OnStart"; + mes "[Givu]"; + mes "Thank you."; + close; + case 2: + mes "[Givu]"; + mes "Would you like to consider a little longer?"; + close; + } + } + case 4: + mes "[Givu]"; + mes "Let me check "+strcharinfo(0)+"'s current arena points."; + next; + mes "[Givu]"; + mes ""+strcharinfo(0)+" has total ^3131FF"+arena_point+"^000000 points."; + close; } - -OnInit: - set $arenapic,0; - end; } prt_are_in,1,1,5 script #arena_1039 1039,{ @@ -828,7 +755,6 @@ OnKis: emotion e_kis,0; end; } - prt_are_in,1,1,5 duplicate(#arena_1039) #arena_6969 714 prt_are_in,94,26,5 duplicate(#arena_1039) #arena_ss_2 714 prt_are_in,100,28,3 duplicate(#arena_1039) #arena_ss_3 714 @@ -843,7 +769,6 @@ prt_are_in,1,1,5 duplicate(#arena_1039) #arena_1159 1159 prt_are_in,1,1,5 duplicate(#arena_1039) #arena_7777 811 - script npctime#arena -1,{ - OnStop: stopnpctimer; end; @@ -874,9 +799,8 @@ OnTimer9000: OnTimer10000: mapannounce "prt_are_in"," ",1,0xFFCE00; - donpcevent "#arena_"+$@arenapic+"::OnHeart"; - if($@arenapic == 6969) - { + donpcevent "#arena_"+$@arena_picture_id+"::OnHeart"; + if ($@arena_picture_id == 6969) { donpcevent "#arena_ss_2::OnHeart"; donpcevent "#arena_ss_3::OnHeart"; donpcevent "#arena_ss_4::OnHeart"; @@ -901,9 +825,8 @@ OnTimer19000: OnTimer20000: mapannounce "prt_are_in"," ",1,0xFFCE00; - donpcevent "#arena_"+$@arenapic+"::OnSci"; - if($@arenapic == 6969) - { + donpcevent "#arena_"+$@arena_picture_id+"::OnSci"; + if ($@arena_picture_id == 6969) { donpcevent "#arena_ss_2::OnSci"; donpcevent "#arena_ss_3::OnSci"; donpcevent "#arena_ss_4::OnSci"; @@ -928,9 +851,8 @@ OnTimer29000: OnTimer30000: mapannounce "prt_are_in"," ",1,0xFFCE00; - donpcevent "#arena_"+$@arenapic+"::OnBest"; - if($@arenapic == 6969) - { + donpcevent "#arena_"+$@arena_picture_id+"::OnBest"; + if ($@arena_picture_id == 6969) { donpcevent "#arena_ss_2::OnBest"; donpcevent "#arena_ss_3::OnBest"; donpcevent "#arena_ss_4::OnBest"; @@ -955,9 +877,8 @@ OnTimer39000: OnTimer40000: mapannounce "prt_are_in"," ",1,0xFFCE00; - donpcevent "#arena_"+$@arenapic+"::OnOmg"; - if($@arenapic == 6969) - { + donpcevent "#arena_"+$@arena_picture_id+"::OnOmg"; + if ($@arena_picture_id == 6969) { donpcevent "#arena_ss_2::OnOmg"; donpcevent "#arena_ss_3::OnOmg"; donpcevent "#arena_ss_4::OnOmg"; @@ -982,9 +903,8 @@ OnTimer49000: OnTimer50000: mapannounce "prt_are_in"," ",1,0xFFCE00; - donpcevent "#arena_"+$@arenapic+"::OnKik"; - if($@arenapic == 6969) - { + donpcevent "#arena_"+$@arena_picture_id+"::OnKik"; + if ($@arena_picture_id == 6969) { donpcevent "#arena_ss_2::OnKik"; donpcevent "#arena_ss_3::OnKik"; donpcevent "#arena_ss_4::OnKik"; @@ -1009,9 +929,8 @@ OnTimer59000: OnTimer60000: mapannounce "prt_are_in"," ",1,0xFFCE00; - donpcevent "#arena_"+$@arenapic+"::OnKis"; - if($@arenapic == 6969) - { + donpcevent "#arena_"+$@arena_picture_id+"::OnKis"; + if ($@arena_picture_id == 6969) { donpcevent "#arena_ss_2::OnKis"; donpcevent "#arena_ss_3::OnKis"; donpcevent "#arena_ss_4::OnKis"; @@ -1020,89 +939,76 @@ OnTimer60000: OnTimer62000: mapannounce "prt_are_in","Time is over. Thank you for using my services.",1,0xFFCE00; - movenpc "#arena_"+$@arenapic+"",1,1; + movenpc "#arena_"+$@arena_picture_id+"",1,1; donpcevent "#arena_1039::OnInit"; - set $arenapic,0; + set $@arena_picture,0; stopnpctimer; end; } sec_in02,72,171,3 script Picture Manager#arena 802,{ - - if (!getgmlevel()) end; - - input .@arena; - if(!.@arena) - { + set .@i, callfunc("F_GM_NPC",1357,0); + if (.@i == -1) { mes "[Picture Manager]"; mes "Command has been canceled."; close; - } - else if(.@arena == 1357) - { + } else if (.@i == 0) { + mes "[Picture Manager]"; + mes "Password is incorrect."; + close; + } else { mes "[Picture Manager]"; mes "Would you like to reset Picture Reward variable to 0?"; next; - switch( select( "Cancel","Yes" ) ) - { - case 1: - mes "[Picture Manager]"; - mes "You have canceled your request."; - close; - - case 2: - mes "[Picture Manager]"; - mes "Picture rewarding reseted."; - set $arenapic,0; - close; + switch(select("Cancel:Yes")) { + case 1: + mes "[Picture Manager]"; + mes "You have canceled your request."; + close; + case 2: + mes "[Picture Manager]"; + mes "Picture rewarding reseted."; + set $@arena_picture,0; + close; } } - mes "[Picture Manager]"; - mes "Password is incorrect."; - close; } sec_in02,76,176,5 script Live Broadcast#arena 802,{ - + callfunc "F_GM_NPC"; mes "[Live Broadcast]"; - mes "Currently there are "+getmapusers("force_1-1")+" people in lvl 50s map."; - mes "Currently there are "+getmapusers("force_2-1")+" people in lvl 60s map."; - mes "Currently there are "+getmapusers("force_3-1")+" people in lvl 70s map."; - mes "Currently there are "+getmapusers("force_4-1")+" people in lvl 80s map."; + mes "Currently there are "+getmapusers("force_1-1")+" people in Lv 50s map."; + mes "Currently there are "+getmapusers("force_2-1")+" people in Lv 60s map."; + mes "Currently there are "+getmapusers("force_3-1")+" people in Lv 70s map."; + mes "Currently there are "+getmapusers("force_4-1")+" people in Lv 80s map."; mes "Currently there are "+getmapusers("force_1-2")+" people in party map."; mes "Currently there are "+getmapusers("arena_room")+" people in the waiting room."; close; } function script Func_Are_Rew { - mes "[Givu]"; mes "Would you like to exchange your arena points with "+getitemname(getarg(0))+"?"; mes "You can exchange ^3131FF"+getarg(2)+" arena points with "+getarg(1)+" "+getitemname(getarg(0))+"^000000."; mes "If you wish to cancel, please enter 0. If you don't, please enter how many ^3131FFtimes^000000 of arena points you wish to spend."; next; input .@reward; - if(!.@reward) - { + if (.@reward == 0) { mes "[Givu]"; mes "You have canceled your request."; close; - - } - else if(.@reward > 1500) - { + } else if (.@reward > 1500) { mes "[Givu]"; mes "You have exceeded the maximum capacity."; close; } - if(arena_point < .@reward * getarg(2)) - { + if (arena_point < .@reward * getarg(2)) { mes "[Givu]"; mes "You do not have enough arena points."; mes "Please check the total amount of arena points you have."; close; } - set arena_point,arena_point - (.@reward * getarg(2)); + set arena_point, arena_point - (.@reward * getarg(2)); getitem getarg(0),.@reward * getarg(1); mes "[Givu]"; mes "Thank you, please come again."; -- cgit v1.2.3-60-g2f50