prtg_treas.txt 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175
  1. //===== eAthena Script =======================================
  2. //= War of Emperium Treasure Rooms for Prontera Guild Castles
  3. //===== By: ==================================================
  4. //= jAthena - kalen (1.0)
  5. //= 1.1 by Akaru, ho|yAnge|X, and Valaris
  6. //===== Current Version: =====================================
  7. //= 1.3
  8. //===== Compatible With: =====================================
  9. //= eAthena 0.1+; RO Episode 4+
  10. //===== Description: =========================================
  11. //=
  12. //===== Additional Comments: =================================
  13. //= v1.2 Optimized with functions.[kobra_k88]
  14. //============================================================
  15. //<=============================== Castle 1 =================================>\\
  16. // Treasure Spawn ----------------------------------------------------------
  17. prtg_cas01,1,1,0 script Treasure_Pt01 -1,{
  18. OnRecvCastlePt01:
  19. end;
  20. OnInit:
  21. if($boxNumPt01 == 0) end;
  22. set $@bxPt01, $boxNumPt01;
  23. callfunc "F_GldTreas","prtg_cas01","Pt01",$boxNumPt01,$@bxPt01,$@boxIdPt01,1354,6,204,15,213,1;
  24. end;
  25. OnDied:
  26. mapannounce "prtg_cas01","Treasure Chest Broken Open",17;
  27. set $boxNumPt01, $boxNumPt01 -1;
  28. if($boxNumPt01 == 0) mapannounce "prtg_cas01", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0;
  29. end;
  30. }
  31. // Treasure Room Switch ----------------------------------------------------
  32. prtg_cas01,15,209,0 script Switch#TresPt01 111,{
  33. callfunc "F_GldTreasSw", "prtg_cas01",109,179;
  34. end;
  35. }
  36. // Treasure Room Protection ------------------------------------------------
  37. prtg_cas01,11,208,0 script ban_warp#1 -1,6,6,{
  38. OnTouch:
  39. callfunc "F_TreasProtect", "prtg_cas01", "prontera",109,179;
  40. end;
  41. }
  42. //<================================= Castle 2 ===============================>\\
  43. // Treasure Spawn ----------------------------------------------------------
  44. prtg_cas02,1,1,0 script Treasure_Pt02 -1,{
  45. OnRecvCastlePt02:
  46. end;
  47. OnInit:
  48. if($boxNumPt02 == 0) end;
  49. set $@bxPt02, $boxNumPt02;
  50. callfunc "F_GldTreas","prtg_cas02","Pt02",$boxNumPt02,$@bxPt02,$@boxIdPt02,1356,198,224,207,233,1;
  51. end;
  52. OnDied:
  53. mapannounce "prtg_cas02","Treasure Chest Broken Open",17;
  54. set $boxNumPt02, $boxNumPt02 -1;
  55. if($boxNumPt02 == 0) mapannounce "prtg_cas02", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0;
  56. end;
  57. }
  58. // Treasure Room Switch ----------------------------------------------------
  59. prtg_cas02,207,228,0 script Switch#TresPt02 111,{
  60. callfunc "F_GldTreasSw", "prtg_cas02",94,62;
  61. end;
  62. }
  63. // Treasure Room Protection ------------------------------------------------
  64. prtg_cas02,202,228,0 script ban_warp#2 -1,6,6,{
  65. OnTouch:
  66. callfunc "F_TreasProtect", "prtg_cas02", "prontera",109,179;
  67. end;
  68. }
  69. //<================================ Castle 3 ================================>\\
  70. // Treasure Spawn ----------------------------------------------------------
  71. prtg_cas03,1,1,0 script Treasure_Pt03 -1,{
  72. OnRecvCastlePt03:
  73. end;
  74. OnInit:
  75. if($boxNumPt03 == 0) end;
  76. set $@bxPt03, $boxNumPt03;
  77. callfunc "F_GldTreas","prtg_cas03","Pt03",$boxNumPt03,$@bxPt03,$@boxIdPt03,1358,184,128,193,135,1;
  78. end;
  79. OnDied:
  80. mapannounce "prtg_cas03","Treasure Chest Broken Open",17;
  81. set $boxNumPt03, $boxNumPt03 -1;
  82. if($boxNumPt03 == 0) mapannounce "prtg_cas03", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0;
  83. end;
  84. }
  85. // Treasure Room Switch ----------------------------------------------------
  86. prtg_cas03,193,130,0 script Switch#TresPt03 111,{
  87. callfunc "F_GldTreasSw", "prtg_cas03",45,99;
  88. end;
  89. }
  90. // Treasure Room Protection ------------------------------------------------
  91. prtg_cas03,189,132,0 script ban_warp#3 -1,6,6,{
  92. OnTouch:
  93. callfunc "F_TreasProtect", "prtg_cas03", "prontera",109,179;
  94. end;
  95. }
  96. //<================================ Castle 4 ================================>\\
  97. // Treasure Spawn ----------------------------------------------------------
  98. prtg_cas04,1,1,0 script Treasure_Pt04 -1,{
  99. OnRecvCastlePt04:
  100. end;
  101. OnInit:
  102. if($boxNumPt04 == 0) end;
  103. set $@bxPt04, $boxNumPt04;
  104. callfunc "F_GldTreas","prtg_cas04","Pt04",$boxNumPt04,$@bxPt04,$@boxIdPt04,1360,266,158,275,167,1;
  105. end;
  106. OnDied:
  107. mapannounce "prtg_cas04","Treasure Chest Broken Open",17;
  108. set $boxNumPt04, $boxNumPt04 -1;
  109. if($boxNumPt04 == 0) mapannounce "prtg_cas04", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0;
  110. end;
  111. }
  112. // Treasure Room Switch ----------------------------------------------------
  113. prtg_cas04,275,160,0 script Switch#TresPt04 111,{
  114. callfunc "F_GldTreasSw", "prtg_cas04",259,265;
  115. end;
  116. }
  117. // Treasure Room Protection ------------------------------------------------
  118. prtg_cas04,271,162,0 script ban_warp#4 -1,6,6,{
  119. OnTouch:
  120. callfunc "F_TreasProtect", "prtg_cas04", "prontera",109,179;
  121. end;
  122. }
  123. //<================================ Castle 5 ================================>\\
  124. // Treasure Spawn ----------------------------------------------------------
  125. prtg_cas05,1,1,0 script Treasure_Pt05 -1,{
  126. OnRecvCastlePt05:
  127. end;
  128. OnInit:
  129. if($boxNumPt05 == 0) end;
  130. set $@bxPt05, $boxNumPt05;
  131. callfunc "F_GldTreas","prtg_cas05","Pt05",$boxNumPt05,$@bxPt05,$@boxIdPt05,1362,272,174,279,181,1;
  132. end;
  133. OnDied:
  134. mapannounce "prtg_cas05","Treasure Chest Broken Open",17;
  135. set $boxNumPt05, $boxNumPt05 -1;
  136. if($boxNumPt05 == 0) mapannounce "prtg_cas05", "All of the treasure boxes have been opened. You must wait untill the next day for them to appear again.",0;
  137. end;
  138. }
  139. // Treasure Room Switch ----------------------------------------------------
  140. prtg_cas05,281,176,0 script Switch#TresPt05 111,{
  141. callfunc "F_GldTreasSw", "prtg_cas05",34,30;
  142. end;
  143. }
  144. // Treasure Room Protection ------------------------------------------------
  145. prtg_cas05,276,178,0 script ban_warp#5 -1,6,6,{
  146. OnTouch:
  147. callfunc "F_TreasProtect", "prtg_cas05", "prontera",109,179;
  148. end;
  149. }