1. ;*************************************************
  2. ;Macro controlar regs resist by OverQueen
  3. ;*************************************************
  4. set #SYSMSGCOL 10
  5. event sysmessage Macro controlar regs resist by OverQueen
  6. ;*************************************************
  7. ; CONFIGURACIONES (EDITAR)
  8. ;*************************************************
  9. set %contenedor JGDPUND ; ID del contenedor con todos los regs (seguridad propietario)
  10. set %cofre1 HUHEYND ; ID del contenedor para el macreador 5 (seguridad amigo)
  11. set %cofre2 UHWHOQD ; ID del contenedor para el macreador 1 (seguridad amigo)
  12. set %cofre3 UXJPIOD ; ID del contenedor para el macreador 2 (seguridad amigo)
  13. set %cofre4 AJZTUND ; ID del contenedor para el macreador 3 (seguridad amigo)
  14. set %cofre5 BEXFOQD ; ID del contenedor para el macreador 4 (seguridad amigo)
  15. set %cofre6 ERTFOQD ; ID del contenedor para el macreador 4 (seguridad amigo)
  16. set %cofre7 ZTWHOQD ; ID del contenedor para el macreador 4 (seguridad amigo)
  17. set %cast SZF ; ID del reg: SZF o ID del perga: CYL
  18. set %regs 100 ; cantidad mínima de regs que debe haber en los cofres (añade 50)
  19. set %food 15 ; cantidad de comida que debe haber en los cofres (añade 5)
  20. set %comida QQD_YSD
  21. inicio:
  22. gosub abrircontenedores
  23. gosub comprobarR
  24. gosub comprobarC
  25. gosub comer
  26. gosub anatomia
  27. goto inicio:
  28. ;*************************************************
  29. ; ABRIR CONTENEDORES
  30. ;*************************************************
  31. sub abrircontenedores
  32. set #LOBJECTID %contenedor
  33. wait 10
  34. event macro 17 0
  35. wait 10
  36. set #LOBJECTID %cofre1
  37. wait 10
  38. event macro 17 0
  39. wait 1s
  40. set #LOBJECTID %cofre2
  41. wait 10
  42. event macro 17 0
  43. wait 10
  44. set #LOBJECTID %cofre3
  45. wait 10
  46. event macro 17 0
  47. wait 10
  48. set #LOBJECTID %cofre4
  49. wait 10
  50. event macro 17 0
  51. wait 1s
  52. set #LOBJECTID %cofre5
  53. wait 10
  54. event macro 17 0
  55. wait 1s
  56. set #LOBJECTID %cofre6
  57. wait 10
  58. event macro 17 0
  59. wait 1s
  60. set #LOBJECTID %cofre7
  61. wait 10
  62. event macro 17 0
  63. wait 1s
  64. return
  65. ;*************************************************
  66. ; COMPROBAR REGS/PERGAS Y REPONER
  67. ;*************************************************
  68. sub comprobarR
  69. finditem %cast c_ , %cofre1
  70. wait 10
  71. if #FINDSTACK <= %regs
  72. {
  73. finditem %cast c_ , %contenedor
  74. exevent drag #FINDID 50
  75. wait 8
  76. exevent dropc %cofre1
  77. wait 20
  78. }
  79. finditem %cast c_ , %cofre2
  80. wait 10
  81. if #FINDSTACK <= %regs
  82. {
  83. finditem %cast c_ , %contenedor
  84. exevent drag #FINDID 50
  85. wait 8
  86. exevent dropc %cofre2
  87. wait 20
  88. }
  89. finditem %cast c_ , %cofre3
  90. wait 10
  91. if #FINDSTACK <= %regs
  92. {
  93. finditem %cast c_ , %contenedor
  94. exevent drag #FINDID 50
  95. wait 8
  96. exevent dropc %cofre3
  97. wait 1s
  98. }
  99. finditem %cast c_ , %cofre4
  100. wait 10
  101. if #FINDSTACK <= %regs
  102. {
  103. finditem %cast c_ , %contenedor
  104. exevent drag #FINDID 50
  105. wait 8
  106. exevent dropc %cofre4
  107. wait 1s
  108. }
  109. finditem %cast c_ , %cofre5
  110. wait 10
  111. if #FINDSTACK <= %regs
  112. {
  113. finditem %cast c_ , %contenedor
  114. exevent drag #FINDID 50
  115. wait 8
  116. exevent dropc %cofre5
  117. wait 1s
  118. }
  119. finditem %cast c_ , %cofre6
  120. wait 10
  121. if #FINDSTACK <= %regs
  122. {
  123. finditem %cast c_ , %contenedor
  124. exevent drag #FINDID 50
  125. wait 8
  126. exevent dropc %cofre6
  127. wait 1s
  128. }
  129. finditem %cast c_ , %cofre7
  130. wait 10
  131. if #FINDSTACK <= %regs
  132. {
  133. finditem %cast c_ , %contenedor
  134. exevent drag #FINDID 50
  135. wait 8
  136. exevent dropc %cofre7
  137. wait 1s
  138. }
  139. return
  140. ;*************************************************
  141. ; COMPROBAR Y REPONER COMIDA
  142. ;*************************************************
  143. sub comprobarC
  144. finditem QQD c_ , %cofre1
  145. wait 10
  146. if #FINDSTACK <= %food
  147. {
  148. finditem QQD c_ , %contenedor
  149. exevent drag #FINDID 5
  150. wait 8
  151. exevent dropc %cofre1
  152. wait 1s
  153. }
  154. finditem QQD c_ , %cofre2
  155. wait 10
  156. if #FINDSTACK <= %food
  157. {
  158. finditem QQD c_ , %contenedor
  159. exevent drag #FINDID 5
  160. wait 8
  161. exevent dropc %cofre2
  162. wait 1s
  163. }
  164. finditem QQD c_ , %cofre3
  165. wait 10
  166. if #FINDSTACK <= %food
  167. {
  168. finditem QQD c_ , %contenedor
  169. exevent drag #FINDID 5
  170. wait 8
  171. exevent dropc %cofre3
  172. wait 1s
  173. }
  174. finditem QQD c_ , %cofre4
  175. wait 10
  176. if #FINDSTACK <= %food
  177. {
  178. finditem QQD c_ , %contenedor
  179. exevent drag #FINDID 5
  180. wait 8
  181. exevent dropc %cofre4
  182. wait 1s
  183. }
  184. finditem QQD c_ , %cofre5
  185. wait 10
  186. if #FINDSTACK <= %food
  187. {
  188. finditem QQD c_ , %contenedor
  189. exevent drag #FINDID 5
  190. wait 8
  191. exevent dropc %cofre5
  192. wait 1s
  193. }
  194. finditem QQD c_ , %cofre6
  195. wait 10
  196. if #FINDSTACK <= %food
  197. {
  198. finditem QQD c_ , %contenedor
  199. exevent drag #FINDID 5
  200. wait 8
  201. exevent dropc %cofre6
  202. wait 1s
  203. }
  204. finditem QQD c_ , %cofre7
  205. wait 10
  206. if #FINDSTACK <= %food
  207. {
  208. finditem QQD c_ , %contenedor
  209. exevent drag #FINDID 5
  210. wait 8
  211. exevent dropc %cofre7
  212. wait 1s
  213. }
  214. return
  215. ;*************************************************
  216. ; COMER
  217. ;*************************************************
  218. sub comer
  219. set #LOBJECTID #FINDID
  220. findItem %comida C_ , #BACKPACKID
  221. if #FINDSTACK <= %food
  222. {
  223. finditem QQD c_ , %contenedor
  224. exevent drag #FINDID %food
  225. wait 8
  226. exevent dropc #BACKPACKID
  227. wait 1s
  228. }
  229. set #LOBJECTID #FINDID
  230. wait 10
  231. event macro 17
  232. return