From fb4775c97532aa931de381a51518edee037f9c8e Mon Sep 17 00:00:00 2001 From: euphyy Date: Fri, 21 Sep 2012 20:36:34 +0000 Subject: * Merged eAthena ea:15187 by ai4rei, effect list improvements (doc\effect_list.txt) * Follow-up r16787, revised documentation and comments on MD5 hash check * Added svn:eol-style=native property on some recent files git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16788 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/custom/quests/hunting_missions.txt | 576 ++++++++++++++++----------------- 1 file changed, 288 insertions(+), 288 deletions(-) (limited to 'npc') diff --git a/npc/custom/quests/hunting_missions.txt b/npc/custom/quests/hunting_missions.txt index 31ee872ca..a3e16f229 100644 --- a/npc/custom/quests/hunting_missions.txt +++ b/npc/custom/quests/hunting_missions.txt @@ -1,289 +1,289 @@ -//===== rAthena Script ======================================= -//= Hunting Missions -//===== By: ================================================== -//= Euphy -//===== Current Version: ===================================== -//= 1.1a -//===== Compatible With: ===================================== -//= rAthena SVN -//===== Description: ========================================= -//= Random hunting missions. -//= Rewards are based on quest difficulty. -//============================================================ - -prontera,152,187,6 script Hunting Missions 951,{ -function Chk; function Cm; - mes "[Hunting Missions]"; - mes "Hello, "+strcharinfo(0)+"!"; - if (!#Mission_Delay) { - next; - mes "[Hunting Missions]"; - mes "I can't find any records..."; - mes "You must be new here!"; - emotion e_omg; - next; - callsub Mission_Info; - emotion e_go; - set #Mission_Delay,1; - close; - } - mes rand(2)?"Working hard, as always...":"Not slacking, I hope..."; - mes "Is there anything I can help"; - mes "you with?"; - mes " "; - mes "^777777~ You've completed ^0055FF"+Mission_Total+"^777777 mission"+((Mission_Total == 1)?"":"s")+". ~^000000"; - next; - switch(select(((!Mission1)?" ~ New Mission::":": ~ Mission Status: ~ Abandon Mission")+": ~ Information: ~ Mission Shop: ~ View Top Hunters: ~ ^777777Cancel^000000")) { - case 1: - mes "[Hunting Missions]"; - if (#Mission_Count) { - mes "You've started a mission"; - mes "on another character."; - close; - } - if (#Mission_Delay > gettimetick(2) && .Delay) { - set .@i, #Mission_Delay-gettimetick(2); - if (.@i > 3600) set .@j$, (.@i/3600)+" hour"+(((.@i/3600) == 1)?"":"s"); - else if (.@i > 60) set .@j$, (.@i/60)+" minute"+(((.@i/60) == 1)?"":"s"); - else set .@j$, (.@i)+" second"+((.@i == 1)?"":"s"); - mes "I'm afraid you'll have to wait "+.@j$+" before taking another mission."; - close; - } - mes "You must hunt:"; - freeloop(1); - set .@size, getarraysize(.NoRange); - for (set .@i,0; .@i<.Quests; set .@i,.@i+1) { - set .@valid,0; - while (!.@valid) { - set .@valid,1; - set .@mob, rand(1001,1999); - // Is mob ID blacklisted? - if (compare(.Restrict$[0],""+.@mob) || compare(.Restrict$[1],""+.@mob)) set .@valid,0; - // Is mob ID interval blacklisted? - if (.@valid) for(set .@j,0; .@j<.@size; set .@j,.@j+2) - if (.@mob > .NoRange[.@j] && .@mob < .NoRange[.@j+1]) { - set .@valid,0; - break; - } - // Is mob a duplicate? - if (.@valid) for(set .@j,0; .@j<.@i; set .@j,.@j+1) - if (strmobinfo(1,.@mob) == strmobinfo(1,getd("Mission"+.@j))) { - set .@valid,0; - break; - } - // Is mob an MVP? - if (.@valid) if (getmonsterinfo(.@mob,22)) set .@valid,0; - } - setd "Mission"+.@i, .@mob; - setd "Mission"+.@i+"_",0; - } - set #Mission_Count, rand(.Count[0],.Count[1]); - freeloop(0); - callsub Mission_Status; - set @f,0; - next; - mes "[Hunting Missions]"; - mes "Report back when"; - mes "you've finished."; - mes "Good luck!"; - close; - case 2: - mes "[Hunting Missions]"; - mes "Mission status:"; - callsub Mission_Status; - if (@f) { set @f,0; close; } - next; - mes "[Hunting Missions]"; - mes "Oh, you're done!"; - mes "Good work."; - mes "Here's your reward."; - emotion e_no1; - specialeffect2 377; - deletearray .@j[0], getarraysize(.@j); - for(set .@i,0; .@i<.Quests; set .@i,.@i+1) { - set .@j[.@i], getd("Mission"+.@i); - set .@j[.Quests], .@j[.Quests]+strmobinfo(3,.@j[.@i]); - set .@j[.Quests+1], .@j[.Quests+1]+strmobinfo(6,.@j[.@i]); - set .@j[.Quests+2], .@j[.Quests+2]+strmobinfo(7,.@j[.@i]); - setd "Mission"+.@i,0; - setd "Mission"+.@i+"_",0; - } - set #Mission_Points, #Mission_Points+(3+(.@j[.Quests]/.Quests/6)); - getexp (#Mission_Count*.@j[.Quests+1]/5),(#Mission_Count*.@j[.Quests+2]/5); - set Zeny, Zeny+(#Mission_Count*.Quests*.@j[.@i]*.Multiplier); - set #Mission_Count,0; - if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600); - set Mission_Total, Mission_Total+1; - if (Mission_Total == 1) query_sql("INSERT INTO `global_reg_value` (`char_id`,`str`,`value`,`type`,`account_id`) VALUES ("+getcharid(0)+",'Mission_Total','1',3,0)"); - else query_sql("UPDATE `global_reg_value` SET `value` = "+Mission_Total+" WHERE char_id = "+getcharid(0)+" AND `str` = 'Mission_Total'"); - close; - case 3: - mes "[Hunting Missions]"; - mes "Do you really want to"; - mes "abandon your mission?"; - if (.Delay) mes "Your delay time will not be reset."; - next; - switch(select(" ~ Abandon...: ~ ^777777Cancel^000000")) { - case 1: - mes "[Hunting Missions]"; - mes "Alright, I've dropped"; - mes "your current mission."; - specialeffect2 462; - for(set .@i,0; .@i<.Quests; set .@i,.@i+1) { - setd "Mission"+.@i,0; - setd "Mission"+.@i+"_",0; - } - set #Mission_Count,0; - if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600); - close; - case 2: - mes "[Hunting Missions]"; - mes "I knew you were kidding!"; - mes "Keep up the good work."; - emotion e_heh; - close; - } - case 4: - callsub Mission_Info; - close; - case 5: - mes "[Hunting Missions]"; - mes "You have ^0055FF"+#Mission_Points+"^000000 Mission Points."; - mes "Use them well!"; - callshop "mission_shop",1; - npcshopattach "mission_shop"; - end; - case 6: - mes "[Hunting Missions]"; - mes "The top hunters are:"; - query_sql("SELECT `name`,CAST(`value` AS SIGNED) FROM `global_reg_value` LEFT JOIN `char` ON `global_reg_value`.char_id = `char`.char_id WHERE `global_reg_value`.str = 'Mission_Total' ORDER BY CAST(`value` AS SIGNED) DESC LIMIT 5",.@name$,.@val); - for(set .@i,0; .@i<5; set .@i,.@i+1) - mes " [Rank "+(.@i+1)+"] "+((.@name$[.@i] == "")?"^777777none":"^0055FF"+.@name$[.@i]+"^000000 : ^FF0000"+.@val[.@i]+" pt.")+"^000000"; - close; - case 7: - mes "[Hunting Missions]"; - mes "Nothing? Okay..."; - emotion e_hmm; - close; - } - -Mission_Status: - set @f,0; - deletearray .@j[0], getarraysize(.@j); - for(set .@i,0; .@i<.Quests; set .@i,.@i+1) { - set .@j[.@i], getd("Mission"+.@i); - set .@j[.Quests], .@j[.Quests]+strmobinfo(3,.@j[.@i]); - set .@j[.Quests+1], .@j[.Quests+1]+strmobinfo(6,.@j[.@i]); - set .@j[.Quests+2], .@j[.Quests+2]+strmobinfo(7,.@j[.@i]); - mes " > "+Chk(getd("Mission"+.@i+"_"),#Mission_Count)+strmobinfo(1,.@j[.@i])+" ("+getd("Mission"+.@i+"_")+"/"+#Mission_Count+")^000000"; - } - set .@Mission_Points, 3+(.@j[.Quests]/.Quests/6); - set .@Base_Exp, #Mission_Count*.@j[.Quests+1]/5; - set .@Job_Exp, #Mission_Count*.@j[.Quests+2]/5; - set .@Zeny, #Mission_Count*.Quests*.@j[.@i]*.Multiplier; - next; - mes "[Hunting Missions]"; - mes "Mission rewards:"; - mes " > Mission Points: ^0055FF"+.@Mission_Points+"^000000"; - mes " > Base Experience: ^0055FF"+Cm(.@Base_Exp)+"^000000"; - mes " > Job Experience: ^0055FF"+Cm(.@Job_Exp)+"^000000"; - mes " > Zeny: ^0055FF"+Cm(.@Zeny)+"^000000"; - return; - -Mission_Info: - mes "[Hunting Missions]"; - mes "If you so choose, I can assign"; - mes "you a random hunting quest."; - mes "Some are easier than others, but"; - mes "the rewards increase with difficulty."; - next; - mes "[Hunting Missions]"; - mes "Missions points are shared"; - mes "amongst all your characters."; - if (.Delay) mes "Delay time is, too."; - mes "You can't take missions on"; - mes "multiple characters at once."; - next; - mes "[Hunting Missions]"; - mes "You can start a quest"; - if (.Delay) mes "every "+((.Delay == 1)?"hour.":.Delay+" hours."); - else mes "whenever you want."; - mes "That's everything~"; - return; - -function Chk { - if (getarg(0) < getarg(1)) { set @f,1; return "^FF0000"; } - else return "^00FF00"; } - -function Cm { - set .@str$, getarg(0); - for(set .@i,getstrlen(.@str$)-3; .@i>0; set .@i,.@i-3) - set .@str$, insertchar(.@str$,",",.@i); - return .@str$; } - -OnBuyItem: - set @cost,0; - for(set .@i,0; .@i #Mission_Points) mes "You don't have enough Mission Points."; - else { - for(set .@i,0; .@i, (about 10~20 points per hunt). - 512,1,513,1,514,1,538,5,539,5,558,10,561,10; - setarray .Restrict$[0], // Blacklisted mob IDs. - "1003,1006,1017,1021,1022,1027,1043,1062,1075,1096,"+ - "1108,1120,1136,1137,1168,1171,1172,1173,1198,1200,"+ - "1203,1204,1205,1210,1212,1217,1218,1244,1245,1247,", - "1250,1259,1262,1268,1270,1311,1313,1388,1407,1411,"+ - "1414,1496,1501,1502,1515,1618,1624,1625,1626,1629,"+ - "1669,1674,1675,1676,1677,1678,1679,1681,1834,1835,"+ - "1868,1990,1991,1996,1997,1998"; - setarray .NoRange[0], // Blacklisted mob ID ranges. - 1077,1094, 1180,1188, 1219,1242, 1282,1310, 1323,1365, - 1392,1400, 1417,1493, 1517,1613, 1639,1652, 1657,1668, - 1682,1692, 1703,1713, 1718,1769, 1784,1829, 1838,1864, - 1870,1986; - - npcshopdelitem "mission_shop",512; - for(set .@i,0; .@i gettimetick(2) && .Delay) { + set .@i, #Mission_Delay-gettimetick(2); + if (.@i > 3600) set .@j$, (.@i/3600)+" hour"+(((.@i/3600) == 1)?"":"s"); + else if (.@i > 60) set .@j$, (.@i/60)+" minute"+(((.@i/60) == 1)?"":"s"); + else set .@j$, (.@i)+" second"+((.@i == 1)?"":"s"); + mes "I'm afraid you'll have to wait "+.@j$+" before taking another mission."; + close; + } + mes "You must hunt:"; + freeloop(1); + set .@size, getarraysize(.NoRange); + for (set .@i,0; .@i<.Quests; set .@i,.@i+1) { + set .@valid,0; + while (!.@valid) { + set .@valid,1; + set .@mob, rand(1001,1999); + // Is mob ID blacklisted? + if (compare(.Restrict$[0],""+.@mob) || compare(.Restrict$[1],""+.@mob)) set .@valid,0; + // Is mob ID interval blacklisted? + if (.@valid) for(set .@j,0; .@j<.@size; set .@j,.@j+2) + if (.@mob > .NoRange[.@j] && .@mob < .NoRange[.@j+1]) { + set .@valid,0; + break; + } + // Is mob a duplicate? + if (.@valid) for(set .@j,0; .@j<.@i; set .@j,.@j+1) + if (strmobinfo(1,.@mob) == strmobinfo(1,getd("Mission"+.@j))) { + set .@valid,0; + break; + } + // Is mob an MVP? + if (.@valid) if (getmonsterinfo(.@mob,22)) set .@valid,0; + } + setd "Mission"+.@i, .@mob; + setd "Mission"+.@i+"_",0; + } + set #Mission_Count, rand(.Count[0],.Count[1]); + freeloop(0); + callsub Mission_Status; + set @f,0; + next; + mes "[Hunting Missions]"; + mes "Report back when"; + mes "you've finished."; + mes "Good luck!"; + close; + case 2: + mes "[Hunting Missions]"; + mes "Mission status:"; + callsub Mission_Status; + if (@f) { set @f,0; close; } + next; + mes "[Hunting Missions]"; + mes "Oh, you're done!"; + mes "Good work."; + mes "Here's your reward."; + emotion e_no1; + specialeffect2 377; + deletearray .@j[0], getarraysize(.@j); + for(set .@i,0; .@i<.Quests; set .@i,.@i+1) { + set .@j[.@i], getd("Mission"+.@i); + set .@j[.Quests], .@j[.Quests]+strmobinfo(3,.@j[.@i]); + set .@j[.Quests+1], .@j[.Quests+1]+strmobinfo(6,.@j[.@i]); + set .@j[.Quests+2], .@j[.Quests+2]+strmobinfo(7,.@j[.@i]); + setd "Mission"+.@i,0; + setd "Mission"+.@i+"_",0; + } + set #Mission_Points, #Mission_Points+(3+(.@j[.Quests]/.Quests/6)); + getexp (#Mission_Count*.@j[.Quests+1]/5),(#Mission_Count*.@j[.Quests+2]/5); + set Zeny, Zeny+(#Mission_Count*.Quests*.@j[.@i]*.Multiplier); + set #Mission_Count,0; + if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600); + set Mission_Total, Mission_Total+1; + if (Mission_Total == 1) query_sql("INSERT INTO `global_reg_value` (`char_id`,`str`,`value`,`type`,`account_id`) VALUES ("+getcharid(0)+",'Mission_Total','1',3,0)"); + else query_sql("UPDATE `global_reg_value` SET `value` = "+Mission_Total+" WHERE char_id = "+getcharid(0)+" AND `str` = 'Mission_Total'"); + close; + case 3: + mes "[Hunting Missions]"; + mes "Do you really want to"; + mes "abandon your mission?"; + if (.Delay) mes "Your delay time will not be reset."; + next; + switch(select(" ~ Abandon...: ~ ^777777Cancel^000000")) { + case 1: + mes "[Hunting Missions]"; + mes "Alright, I've dropped"; + mes "your current mission."; + specialeffect2 462; + for(set .@i,0; .@i<.Quests; set .@i,.@i+1) { + setd "Mission"+.@i,0; + setd "Mission"+.@i+"_",0; + } + set #Mission_Count,0; + if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600); + close; + case 2: + mes "[Hunting Missions]"; + mes "I knew you were kidding!"; + mes "Keep up the good work."; + emotion e_heh; + close; + } + case 4: + callsub Mission_Info; + close; + case 5: + mes "[Hunting Missions]"; + mes "You have ^0055FF"+#Mission_Points+"^000000 Mission Points."; + mes "Use them well!"; + callshop "mission_shop",1; + npcshopattach "mission_shop"; + end; + case 6: + mes "[Hunting Missions]"; + mes "The top hunters are:"; + query_sql("SELECT `name`,CAST(`value` AS SIGNED) FROM `global_reg_value` LEFT JOIN `char` ON `global_reg_value`.char_id = `char`.char_id WHERE `global_reg_value`.str = 'Mission_Total' ORDER BY CAST(`value` AS SIGNED) DESC LIMIT 5",.@name$,.@val); + for(set .@i,0; .@i<5; set .@i,.@i+1) + mes " [Rank "+(.@i+1)+"] "+((.@name$[.@i] == "")?"^777777none":"^0055FF"+.@name$[.@i]+"^000000 : ^FF0000"+.@val[.@i]+" pt.")+"^000000"; + close; + case 7: + mes "[Hunting Missions]"; + mes "Nothing? Okay..."; + emotion e_hmm; + close; + } + +Mission_Status: + set @f,0; + deletearray .@j[0], getarraysize(.@j); + for(set .@i,0; .@i<.Quests; set .@i,.@i+1) { + set .@j[.@i], getd("Mission"+.@i); + set .@j[.Quests], .@j[.Quests]+strmobinfo(3,.@j[.@i]); + set .@j[.Quests+1], .@j[.Quests+1]+strmobinfo(6,.@j[.@i]); + set .@j[.Quests+2], .@j[.Quests+2]+strmobinfo(7,.@j[.@i]); + mes " > "+Chk(getd("Mission"+.@i+"_"),#Mission_Count)+strmobinfo(1,.@j[.@i])+" ("+getd("Mission"+.@i+"_")+"/"+#Mission_Count+")^000000"; + } + set .@Mission_Points, 3+(.@j[.Quests]/.Quests/6); + set .@Base_Exp, #Mission_Count*.@j[.Quests+1]/5; + set .@Job_Exp, #Mission_Count*.@j[.Quests+2]/5; + set .@Zeny, #Mission_Count*.Quests*.@j[.@i]*.Multiplier; + next; + mes "[Hunting Missions]"; + mes "Mission rewards:"; + mes " > Mission Points: ^0055FF"+.@Mission_Points+"^000000"; + mes " > Base Experience: ^0055FF"+Cm(.@Base_Exp)+"^000000"; + mes " > Job Experience: ^0055FF"+Cm(.@Job_Exp)+"^000000"; + mes " > Zeny: ^0055FF"+Cm(.@Zeny)+"^000000"; + return; + +Mission_Info: + mes "[Hunting Missions]"; + mes "If you so choose, I can assign"; + mes "you a random hunting quest."; + mes "Some are easier than others, but"; + mes "the rewards increase with difficulty."; + next; + mes "[Hunting Missions]"; + mes "Missions points are shared"; + mes "amongst all your characters."; + if (.Delay) mes "Delay time is, too."; + mes "You can't take missions on"; + mes "multiple characters at once."; + next; + mes "[Hunting Missions]"; + mes "You can start a quest"; + if (.Delay) mes "every "+((.Delay == 1)?"hour.":.Delay+" hours."); + else mes "whenever you want."; + mes "That's everything~"; + return; + +function Chk { + if (getarg(0) < getarg(1)) { set @f,1; return "^FF0000"; } + else return "^00FF00"; } + +function Cm { + set .@str$, getarg(0); + for(set .@i,getstrlen(.@str$)-3; .@i>0; set .@i,.@i-3) + set .@str$, insertchar(.@str$,",",.@i); + return .@str$; } + +OnBuyItem: + set @cost,0; + for(set .@i,0; .@i #Mission_Points) mes "You don't have enough Mission Points."; + else { + for(set .@i,0; .@i, (about 10~20 points per hunt). + 512,1,513,1,514,1,538,5,539,5,558,10,561,10; + setarray .Restrict$[0], // Blacklisted mob IDs. + "1003,1006,1017,1021,1022,1027,1043,1062,1075,1096,"+ + "1108,1120,1136,1137,1168,1171,1172,1173,1198,1200,"+ + "1203,1204,1205,1210,1212,1217,1218,1244,1245,1247,", + "1250,1259,1262,1268,1270,1311,1313,1388,1407,1411,"+ + "1414,1496,1501,1502,1515,1618,1624,1625,1626,1629,"+ + "1669,1674,1675,1676,1677,1678,1679,1681,1834,1835,"+ + "1868,1990,1991,1996,1997,1998"; + setarray .NoRange[0], // Blacklisted mob ID ranges. + 1077,1094, 1180,1188, 1219,1242, 1282,1310, 1323,1365, + 1392,1400, 1417,1493, 1517,1613, 1639,1652, 1657,1668, + 1682,1692, 1703,1713, 1718,1769, 1784,1829, 1838,1864, + 1870,1986; + + npcshopdelitem "mission_shop",512; + for(set .@i,0; .@i