API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 25th, 2017
247
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.91 KB | None | 0 0
raw download clone embed print report
  1. //===== rAthena Script =======================================
  2. //= Hunting Missions
  3. //===== By: ==================================================
  4. //= Euphy
  5. //===== Current Version: =====================================
  6. //= 1.1a - eAthena
  7. //===== Description: =========================================
  8. //= Random hunting missions.
  9. //= Rewards are based on quest difficulty.
  10. //============================================================
  11.  
  12. prontera,160,160,6 script Missões de Caça 99,{
  13. function Chk; function Cm;
  14. mes "[Missões Caça]";
  15. mes "Olá, "+strcharinfo(0)+"!";
  16. if (!#Mission_Delay) {
  17. next;
  18. mes "[Missões Caça]";
  19. mes "Eu não consigo encontrar nenhum registro ...";
  20. mes "Você deve ser novo aqui!";
  21. emotion e_omg;
  22. next;
  23. callsub Mission_Info;
  24. emotion e_go;
  25. set #Mission_Delay,1;
  26. close;
  27. }
  28. mes rand(2)?"Trabalhando duro, como sempre ...": "Você não é acomodado né?";
  29. mes "Bom tenho muitas missões aqui para você.";
  30. mes "Você tem ^0055FF"+#Mission_Points+"^000000 pontos de missão";
  31. mes " ";
  32. mes "^777777~ Você completou ^0055FF"+Mission_Total+"^777777 missão"+((Mission_Total == 1)?"":"s")+". ~^000000";
  33. next;
  34. switch(select(((!Mission1)?" ~ Nova Missão::":": ~ Status da Missão: ~ Abandonar a Missão")+": ~ Information: ~ Loja da Missão: ~ Ver Principais Caçadores: ~ ^777777Cancelar^000000")) {
  35. case 1:
  36. mes "[Hunting Missions]";
  37. if (#Mission_Count) {
  38. mes "Você iniciou uma missão";
  39. mes "Sobre outro personagem.";
  40. close;
  41. }
  42. if (#Mission_Delay > gettimetick(2) && .Delay) {
  43. set .@i, #Mission_Delay-gettimetick(2);
  44. if (.@i > 3600) set .@j$, (.@i/3600)+" hour"+(((.@i/3600) == 1)?"":"s");
  45. else if (.@i > 60) set .@j$, (.@i/60)+" minute"+(((.@i/60) == 1)?"":"s");
  46. else set .@j$, (.@i)+" second"+((.@i == 1)?"":"s");
  47. mes "I'm afraid you'll have to wait "+.@j$+" before taking another mission.";
  48. close;
  49. }
  50. mes "Você deve caçar:";
  51. set .@size, getarraysize(.NoRange);
  52. for (set .@i,0; .@i<.Quests; set .@i,.@i+1) {
  53. set .@valid,0;
  54. while (!.@valid) {
  55. sleep2 5;
  56. set .@valid,1;
  57. set .@mob, rand(1001,1999);
  58. // Is mob ID blacklisted?
  59. if (compare(.Restrict$[0],""+.@mob) || compare(.Restrict$[1],""+.@mob)) set .@valid,0;
  60. // Is mob ID interval blacklisted?
  61. if (.@valid) for(set .@j,0; .@j<.@size; set .@j,.@j+2)
  62. if (.@mob > .NoRange[.@j] && .@mob < .NoRange[.@j+1]) {
  63. set .@valid,0;
  64. break;
  65. }
  66. // Is mob a duplicate?
  67. if (.@valid) for(set .@j,0; .@j<.@i; set .@j,.@j+1)
  68. if (strmobinfo(1,.@mob) == strmobinfo(1,getd("Mission"+.@j))) {
  69. set .@valid,0;
  70. break;
  71. }
  72. // Is mob an MVP?
  73. if (.@valid) if (compare(.NoMVP$,""+.@mob)) set .@valid,0;
  74. }
  75. setd "Mission"+.@i, .@mob;
  76. setd "Mission"+.@i+"_",0;
  77. }
  78. set #Mission_Count, rand(.Count[0],.Count[1]);
  79. callsub Mission_Status;
  80. set @f,0;
  81. next;
  82. mes "[Hunting Missions]";
  83. mes "me avise quando";
  84. mes "Você terminar.";
  85. mes "Boa Sorte!";
  86. close;
  87. case 2:
  88. mes "[Hunting Missions]";
  89. mes "Status da Missão:";
  90. callsub Mission_Status;
  91. if (@f) { set @f,0; close; }
  92. next;
  93. mes "[Hunting Missions]";
  94. mes "Oh, you're done!";
  95. mes "Good work.";
  96. mes "Here's your reward.";
  97. emotion e_no1;
  98. specialeffect2 377;
  99. deletearray .@j[0], getarraysize(.@j);
  100. for(set .@i,0; .@i<.Quests; set .@i,.@i+1) {
  101. set .@j[.@i], getd("Mission"+.@i);
  102. set .@j[.Quests], .@j[.Quests]+strmobinfo(3,.@j[.@i]);
  103. set .@j[.Quests+1], .@j[.Quests+1]+strmobinfo(6,.@j[.@i]);
  104. set .@j[.Quests+2], .@j[.Quests+2]+strmobinfo(7,.@j[.@i]);
  105. setd "Mission"+.@i,0;
  106. setd "Mission"+.@i+"_",0;
  107. }
  108. set #Mission_Points, #Mission_Points+(3+(.@j[.Quests]/.Quests/6));
  109. getexp (#Mission_Count*.@j[.Quests+1]/5),(#Mission_Count*.@j[.Quests+2]/5);
  110. set Zeny, Zeny+(#Mission_Count*.Quests*.@j[.@i]*.Multiplier);
  111. set #Mission_Count,0;
  112. if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600);
  113. set Mission_Total, Mission_Total+1;
  114. 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)");
  115. else query_sql("UPDATE `global_reg_value` SET `value` = "+Mission_Total+" WHERE char_id = "+getcharid(0)+" AND `str` = 'Mission_Total'");
  116. close;
  117. case 3:
  118. mes "[Hunting Missions]";
  119. mes "Você realmente quer";
  120. mes "Abandonar sua missão?";
  121. if (.Delay) mes "Your delay time will not be reset.";
  122. next;
  123. switch(select(" ~ Abandonar...: ~ ^777777Cancelar^000000")) {
  124. case 1:
  125. mes "[Hunting Missions]";
  126. mes "Tudo bem, voce abandonou";
  127. mes "Sua missão atual.";
  128. specialeffect2 462;
  129. for(set .@i,0; .@i<.Quests; set .@i,.@i+1) {
  130. setd "Mission"+.@i,0;
  131. setd "Mission"+.@i+"_",0;
  132. }
  133. set #Mission_Count,0;
  134. if (.Delay) set #Mission_Delay, gettimetick(2)+(.Delay*3600);
  135. close;
  136. case 2:
  137. mes "[Hunting Missions]";
  138. mes "I knew you were kidding!";
  139. mes "Keep up the good work.";
  140. emotion e_heh;
  141. close;
  142. }
  143. case 4:
  144. callsub Mission_Info;
  145. close;
  146. case 5:
  147. mes "[Hunting Missions]";
  148. mes "You have ^0055FF"+#Mission_Points+"^000000 Mission Points.";
  149. mes "Use them well!";
  150. callshop "mission_shop",1;
  151. npcshopattach "mission_shop";
  152. end;
  153. case 6:
  154. mes "[Hunting Missions]";
  155. mes "Os melhores caçadores são:";
  156. 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);
  157. for(set .@i,0; .@i<5; set .@i,.@i+1)
  158. mes " [Rank "+(.@i+1)+"] "+((.@name$[.@i] == "")?"^777777none":"^0055FF"+.@name$[.@i]+"^000000 : ^FF0000"+.@val[.@i]+" pt.")+"^000000";
  159. close;
  160. case 7:
  161. mes "[Hunting Missions]";
  162. mes "Nothing? Okay...";
  163. emotion e_hmm;
  164. close;
  165. }
  166.  
  167. Mission_Status:
  168. set @f,0;
  169. deletearray .@j[0], getarraysize(.@j);
  170. for(set .@i,0; .@i<.Quests; set .@i,.@i+1) {
  171. set .@j[.@i], getd("Mission"+.@i);
  172. set .@j[.Quests], .@j[.Quests]+strmobinfo(3,.@j[.@i]);
  173. set .@j[.Quests+1], .@j[.Quests+1]+strmobinfo(6,.@j[.@i]);
  174. set .@j[.Quests+2], .@j[.Quests+2]+strmobinfo(7,.@j[.@i]);
  175. mes " > "+Chk(getd("Mission"+.@i+"_"),#Mission_Count)+strmobinfo(1,.@j[.@i])+" ("+getd("Mission"+.@i+"_")+"/"+#Mission_Count+")^000000";
  176. }
  177. set .@Mission_Points, 3+(.@j[.Quests]/.Quests/6);
  178. set .@Base_Exp, #Mission_Count*.@j[.Quests+1]/5;
  179. set .@Job_Exp, #Mission_Count*.@j[.Quests+2]/5;
  180. set .@Zeny, #Mission_Count*.Quests*.@j[.@i]*.Multiplier;
  181. next;
  182. mes "[Hunting Missions]";
  183. mes "Recompensas da missão:";
  184. mes " > Pontos de Missão: ^0055FF"+.@Mission_Points+"^000000";
  185. mes " > Zeny: ^0055FF"+Cm(.@Zeny)+"^000000";
  186. return;
  187.  
  188. Mission_Info:
  189. mes "[Hunting Missions]";
  190. mes "Se você assim escolher, eu posso atribuir";
  191. mes "Você uma busca aleatória de caça.";
  192. mes "Alguns são mais fáceis do que outros, mas";
  193. mes "As recompensas aumentam com dificuldade.";
  194. next;
  195. mes "[Hunting Missions]";
  196. mes "Os pontos de missões são compartilhados";
  197. mes "Entre todos os seus personagens.";
  198. if (.Delay) mes "Tempo de atraso é, também.";
  199. mes "Você não pode fazer missões";
  200. mes "Vários caracteres ao mesmo tempo.";
  201. next;
  202. mes "[Hunting Missions]";
  203. mes "Você pode começar uma missão";
  204. if (.Delay) mes "every "+((.Delay == 1)?"hour.":.Delay+" hours.");
  205. else mes "quando você quiser.";
  206. mes "Isso é tudo~";
  207. return;
  208.  
  209. function Chk {
  210. if (getarg(0) < getarg(1)) { set @f,1; return "^FF0000"; }
  211. else return "^00FF00"; }
  212.  
  213. function Cm {
  214. set .@str$, getarg(0);
  215. for(set .@i,getstrlen(.@str$)-3; .@i>0; set .@i,.@i-3)
  216. set .@str$, insertchar(.@str$,",",.@i);
  217. return .@str$; }
  218.  
  219. OnBuyItem:
  220. set @cost,0;
  221. for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1)
  222. for(set .@j,0; .@j<getarraysize(.Shop); set .@j,.@j+2)
  223. if (@bought_nameid[.@i] == .Shop[.@j]) {
  224. set @cost, @cost+(.Shop[.@j+1]*@bought_quantity[.@i]);
  225. break;
  226. }
  227. mes "[Hunting Missions]";
  228. if (@cost > #Mission_Points) mes "Você não tem pontos de missão suficientes.";
  229. else {
  230. for(set .@i,0; .@i<getarraysize(@bought_nameid); set .@i,.@i+1) {
  231. getitem @bought_nameid[.@i], @bought_quantity[.@i];
  232. dispbottom "Purchased "+@bought_quantity[.@i]+"x "+getitemname(@bought_nameid[.@i])+".";
  233. }
  234. set #Mission_Points, #Mission_Points-@cost;
  235. mes "Deal completed.";
  236. emotion e_cash;
  237. }
  238. set @cost,0;
  239. deletearray @bought_nameid[0], getarraysize(@bought_nameid);
  240. deletearray @bought_quantity[0], getarraysize(@bought_quantity);
  241. close;
  242.  
  243. OnNPCKillEvent:
  244. if (!#Mission_Count || !Mission1) end;
  245. for(set .@i,0; .@i<.Quests; set .@i,.@i+1) {
  246. if (strmobinfo(1,killedrid) == strmobinfo(1,getd("Mission"+.@i))) {
  247. if (getd("Mission"+.@i+"_") < #Mission_Count) {
  248. set .@j, getd("Mission"+.@i+"_")+1;
  249. setd "Mission"+.@i+"_", .@j;
  250. dispbottom "[Missão de Caça] Matou "+.@j+" Restam "+#Mission_Count+" "+strmobinfo(1,killedrid)+".";
  251. }
  252. break;
  253. }
  254. }
  255. end;
  256.  
  257. OnInit:
  258. set .Delay,0; // Quest delay, in hours (0 to disable).
  259. set .Quests,4; // Number of subquests per quest (increases rewards).
  260. set .Multiplier,850; // Multiplier for Zeny reward calculation.
  261. setarray .Count[0], // Min and max monsters per subquest (increases rewards).
  262. 40,70;
  263. setarray .Shop[0], // Reward items: <ID>,<point cost> (about 10~20 points per hunt).
  264. 7087,1,6152,1,7470,1,538,5,539,5,558,10,561,10;
  265. setarray .Restrict$[0], // Blacklisted mob IDs.
  266. "1003,1006,1017,1021,1022,1027,1043,1062,1075,1096,"+
  267. "1108,1120,1136,1137,1168,1171,1172,1173,1198,1200,"+
  268. "1203,1204,1205,1210,1212,1217,1218,1244,1245,1247,",
  269. "1250,1259,1262,1268,1270,1311,1313,1388,1407,1411,"+
  270. "1414,1496,1501,1502,1515,1618,1624,1625,1626,1629,"+
  271. "1669,1674,1675,1676,1677,1678,1679,1681,1834,1835,"+
  272. "1868,1990,1991,1996,1997,1998";
  273. setarray .NoRange[0], // Blacklisted mob ID ranges.
  274. 1077,1094, 1180,1188, 1219,1242, 1282,1310, 1323,1365,
  275. 1392,1400, 1417,1493, 1517,1613, 1639,1652, 1657,1668,
  276. 1682,1692, 1703,1713, 1718,1769, 1784,1829, 1838,1864,
  277. 1870,1986;
  278. set .NoMVP$, // Blacklisted MVPs.
  279. "1038,1039,1046,1059,1112,1115,1147,1150,1157,1159,1190,"+
  280. "1251,1252,1272,1312,1373,1389,1511,1623,1630,1779,1832";
  281.  
  282. npcshopdelitem "mission_shop",512;
  283. for(set .@i,0; .@i<getarraysize(.Shop); set .@i,.@i+2)
  284. npcshopadditem "mission_shop", .Shop[.@i], .Shop[.@i+1];
  285. end;
  286. }
  287. - shop mission_shop -1,512:-1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!