1. ;*************************************************

  2. ;Macro controlar regs resist by OverQueen

  3. ;*************************************************

  4. set #SYSMSGCOL 10

  5. event sysmessage Macro controlar regs resist by OverQueen

  6. 

  7. ;*************************************************

  8. ;            CONFIGURACIONES (EDITAR)

  9. ;*************************************************

  10. set %contenedor JGDPUND ; ID del contenedor con todos los regs (seguridad propietario)

  11. set %cofre1 HUHEYND ; ID del contenedor para el macreador 5 (seguridad amigo)

  12. set %cofre2 UHWHOQD ; ID del contenedor para el macreador 1 (seguridad amigo)

  13. set %cofre3 UXJPIOD ; ID del contenedor para el macreador 2 (seguridad amigo)

  14. set %cofre4 AJZTUND ; ID del contenedor para el macreador 3 (seguridad amigo)

  15. set %cofre5 BEXFOQD ; ID del contenedor para el macreador 4 (seguridad amigo)

  16. set %cofre6 ERTFOQD ; ID del contenedor para el macreador 4 (seguridad amigo)

  17. set %cofre7 ZTWHOQD ; ID del contenedor para el macreador 4 (seguridad amigo)

  18. set %cast SZF ; ID del reg: SZF o ID del perga: CYL

  19. set %regs 100 ; cantidad mínima de regs que debe haber en los cofres (añade 50)

  20. set %food 15 ; cantidad de comida que debe haber en los cofres (añade 5)

  21. set %comida QQD_YSD

  22. 

  23. inicio:

  24. gosub abrircontenedores

  25. gosub comprobarR

  26. gosub comprobarC

  27. gosub comer

  28. gosub anatomia

  29. goto inicio:

  30. 

  31. ;*************************************************

  32. ;               ABRIR CONTENEDORES

  33. ;*************************************************

  34. sub abrircontenedores

  35. set #LOBJECTID %contenedor

  36. wait 10

  37. event macro 17 0

  38. wait 10

  39. set #LOBJECTID %cofre1

  40. wait 10

  41. event macro 17 0

  42. wait 1s

  43. set #LOBJECTID %cofre2

  44. wait 10

  45. event macro 17 0

  46. wait 10

  47. set #LOBJECTID %cofre3

  48. wait 10

  49. event macro 17 0

  50. wait 10

  51. set #LOBJECTID %cofre4

  52. wait 10

  53. event macro 17 0

  54. wait 1s

  55. set #LOBJECTID %cofre5

  56. wait 10

  57. event macro 17 0

  58. wait 1s

  59. set #LOBJECTID %cofre6

  60. wait 10

  61. event macro 17 0

  62. wait 1s

  63. set #LOBJECTID %cofre7

  64. wait 10

  65. event macro 17 0

  66. wait 1s

  67. return

  68. 

  69. ;*************************************************

  70. ;         COMPROBAR REGS/PERGAS Y REPONER

  71. ;*************************************************

  72. sub comprobarR

  73. finditem %cast c_ , %cofre1

  74. wait 10

  75. if #FINDSTACK <= %regs

  76. {

  77. finditem %cast c_ , %contenedor

  78. exevent drag #FINDID 50

  79. wait 8

  80. exevent dropc %cofre1

  81. wait 20

  82. }

  83. finditem %cast c_ , %cofre2

  84. wait 10

  85. if #FINDSTACK <= %regs

  86. {

  87. finditem %cast c_ , %contenedor

  88. exevent drag #FINDID 50

  89. wait 8

  90. exevent dropc %cofre2

  91. wait 20

  92. }

  93. finditem %cast c_ , %cofre3

  94. wait 10

  95. if #FINDSTACK <= %regs

  96. {

  97. finditem %cast c_ , %contenedor

  98. exevent drag #FINDID 50

  99. wait 8

  100. exevent dropc %cofre3

  101. wait 1s

  102. }

  103. finditem %cast c_ , %cofre4

  104. wait 10

  105. if #FINDSTACK <= %regs

  106. {

  107. finditem %cast c_ , %contenedor

  108. exevent drag #FINDID 50

  109. wait 8

  110. exevent dropc %cofre4

  111. wait 1s

  112. }

  113. finditem %cast c_ , %cofre5

  114. wait 10

  115. if #FINDSTACK <= %regs

  116. {

  117. finditem %cast c_ , %contenedor

  118. exevent drag #FINDID 50

  119. wait 8

  120. exevent dropc %cofre5

  121. wait 1s

  122. }

  123. finditem %cast c_ , %cofre6

  124. wait 10

  125. if #FINDSTACK <= %regs

  126. {

  127. finditem %cast c_ , %contenedor

  128. exevent drag #FINDID 50

  129. wait 8

  130. exevent dropc %cofre6

  131. wait 1s

  132. }

  133. finditem %cast c_ , %cofre7

  134. wait 10

  135. if #FINDSTACK <= %regs

  136. {

  137. finditem %cast c_ , %contenedor

  138. exevent drag #FINDID 50

  139. wait 8

  140. exevent dropc %cofre7

  141. wait 1s

  142. }

  143. 

  144. return

  145. 

  146. ;*************************************************

  147. ;          COMPROBAR Y REPONER COMIDA

  148. ;*************************************************

  149. sub comprobarC

  150. finditem QQD c_ , %cofre1

  151. wait 10

  152. if #FINDSTACK <= %food

  153. {

  154. finditem QQD c_ , %contenedor

  155. exevent drag #FINDID 5

  156. wait 8

  157. exevent dropc %cofre1

  158. wait 1s

  159. }

  160. finditem QQD c_ , %cofre2

  161. wait 10

  162. if #FINDSTACK <= %food

  163. {

  164. finditem QQD c_ , %contenedor

  165. exevent drag #FINDID 5

  166. wait 8

  167. exevent dropc %cofre2

  168. wait 1s

  169. }

  170. finditem QQD c_ , %cofre3

  171. wait 10

  172. if #FINDSTACK <= %food

  173. {

  174. finditem QQD c_ , %contenedor

  175. exevent drag #FINDID 5

  176. wait 8

  177. exevent dropc %cofre3

  178. wait 1s

  179. }

  180. finditem QQD c_ , %cofre4

  181. wait 10

  182. if #FINDSTACK <= %food

  183. {

  184. finditem QQD c_ , %contenedor

  185. exevent drag #FINDID 5

  186. wait 8

  187. exevent dropc %cofre4

  188. wait 1s

  189. }

  190. finditem QQD c_ , %cofre5

  191. wait 10

  192. if #FINDSTACK <= %food

  193. {

  194. finditem QQD c_ , %contenedor

  195. exevent drag #FINDID 5

  196. wait 8

  197. exevent dropc %cofre5

  198. wait 1s

  199. }

  200. finditem QQD c_ , %cofre6

  201. wait 10

  202. if #FINDSTACK <= %food

  203. {

  204. finditem QQD c_ , %contenedor

  205. exevent drag #FINDID 5

  206. wait 8

  207. exevent dropc %cofre6

  208. wait 1s

  209. }

  210. finditem QQD c_ , %cofre7

  211. wait 10

  212. if #FINDSTACK <= %food

  213. {

  214. finditem QQD c_ , %contenedor

  215. exevent drag #FINDID 5

  216. wait 8

  217. exevent dropc %cofre7

  218. wait 1s

  219. }

  220. 

  221. return

  222. 

  223. ;*************************************************

  224. ;                    COMER

  225. ;*************************************************

  226. sub comer

  227. set #LOBJECTID #FINDID

  228. findItem %comida C_ , #BACKPACKID

  229. if #FINDSTACK <= %food

  230. {

  231. finditem QQD c_ , %contenedor

  232. exevent drag #FINDID %food

  233. wait 8

  234. exevent dropc #BACKPACKID

  235. wait 1s

  236. }

  237. set #LOBJECTID #FINDID

  238. wait 10

  239. event macro 17

  240. return