Advertisement
Guest User

Untitled

a guest
Dec 9th, 2019
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.33 KB | None | 0 0
  1. ;takie tam prymitywne makro na atakowanie szarych mobow by KFY
  2.  
  3. ;===================================
  4. set %moby OB_JD_KD_UE_SD_QF_EG_ZGB_MG_BK_WJ_KG_LB_YF_RB_W_RO_GE_VF_UE_X_QE_M_JD_AH_BG_PG_VD_PF_HG_ZF_TF_NG_BG_CO_RF_SG_TN_WG_JG_NF_TG ; lista mobow, ktore bije
  5. set %Distance 11 ; dystans ataku
  6. set %STR 61 ;twoje staty z cechy > staty - do blesa
  7. set %DEX 46
  8. set %Int 60
  9. ;==================================
  10.  
  11. set %enemy N/A
  12. event sysmessage Odpalam makro...
  13. gosub bless
  14. start:
  15.  
  16. gosub ScanForEnemies
  17. if #result = 0
  18. {
  19. wait 5
  20. goto start
  21. }
  22. set %target #result
  23. gosub AttackTarget %target
  24. gosub bless
  25.  
  26. goto start
  27. ;------------------------------------------------------
  28. sub ScanForEnemies
  29.  
  30. finditem %moby G_ , %distance
  31. if #findkind = -1
  32. {
  33. wait 5
  34. return 0
  35. }
  36.  
  37. for #findindex 1 #findcnt
  38. {
  39. if #findrep <> 3
  40. {
  41. ignoreitem #findid
  42. continue
  43. }
  44. else
  45. {
  46. return #findid
  47. }
  48. }
  49. return 0
  50. ;-----------------------------------------------------
  51. sub AttackTarget
  52.  
  53. event property %1
  54. if #property = $
  55. return ; to ma zapobiegac jakims dziwnym kwiatkom
  56. set %name #property
  57. str Len %name
  58. set %dl #strRes - 1
  59. str Left %name %dl
  60. set %name #strRes
  61. event sysmessage Nacieram na %name o ID %1
  62. set #ltargetid %1
  63. set #ltargetkind 1
  64. event macro 27 0
  65. sound
  66. wait 20
  67. gosub Flamuj %1
  68. wait 10
  69.  
  70. return
  71. ;---------------------------------------------------
  72. sub Flamuj
  73. while #true
  74. {
  75. if #maxhits - #hits > 15
  76. gosub lecz
  77. if #mana < 15
  78. gosub medytuj2
  79. set %fuse #scnt + 3
  80. event macro 15 17
  81. repeat
  82. until #scnt > %fuse || #targcurs = 1
  83. if #targcurs = 1
  84. {
  85. set #ltargetid %1
  86. event macro 22
  87. wait 10
  88. break
  89. }
  90. }
  91.  
  92. finditem %1 G_10
  93. if #findkind <> -1
  94. gosub Flamuj #findid
  95.  
  96. return
  97. ;---------------------------------------------------
  98. sub medytuj
  99.  
  100. event macro 1 0 .um medytacja
  101.  
  102. set %jrnl #jindex
  103. while #true
  104. {
  105. if #maxhits - #hits > 15
  106. gosub lecz
  107. if #jindex > %jrnl
  108. {
  109. set %jrnl %jrnl + 1
  110. scanjournal %jrnl
  111.  
  112. if skoncentrowac in #journal
  113. gosub medytuj
  114.  
  115. if koncentracje in #journal Konczysz in #journal
  116. break
  117. }
  118. }
  119. if #mana < 15
  120. gosub medytuj
  121. return
  122.  
  123. ;--------------------------------------------------
  124.  
  125. sub lecz
  126.  
  127. while #true
  128. {
  129. if #mana < 15
  130. gosub medytuj2
  131. set %fuse #scnt + 4
  132. event macro 15 28 ;in vas mani
  133. repeat
  134. until #scnt > %fuse || #targcurs = 1
  135. if #targcurs = 1
  136. {
  137. set #ltargetid #charid
  138. event macro 22
  139. wait 5
  140. break
  141. }
  142. }
  143. if #maxhits - #hits > 40
  144. gosub lecz
  145.  
  146. return
  147.  
  148. ;--------------------------------------------------
  149.  
  150. sub bless
  151.  
  152. set %vSTR ( %STR + 20 )
  153. set %vDEX ( %DEX + 20 )
  154. set %vINT ( %INT + 20 )
  155.  
  156. if #STR < %vSTR || #DEX < %vDEX || #INT < %vINT
  157. {
  158. set %cTime #scnt + 5
  159. event macro 15 16 ;bless
  160. repeat
  161. if %cTime < #scnt
  162. {
  163. set %cTime #scnt + 5
  164. event macro 15 16
  165. }
  166. until #targcurs = 1
  167.  
  168. set #ltargetid #charid
  169. set #ltargetkind 1
  170. event macro 22
  171. wait 5
  172. if #targcurs = 1
  173. {
  174. event macro 22
  175. wait 5
  176. }
  177. gosub lecz
  178. gosub medytuj2
  179. }
  180.  
  181. return
  182.  
  183. ;---------------------------------------------
  184.  
  185. sub medytuj2
  186.  
  187. OdNowa:
  188. set %jindex #jindex
  189. event macro 1 0 .um medytacja
  190.  
  191. repeat
  192. set %ji #jindex - %jindex
  193. for %i 1 %ji
  194. {
  195. scanjournal %i
  196. if #maxhits - #hits > 15
  197. {
  198. gosub lecz
  199. return
  200. }
  201. if koncentracje. in #journal || Juz_cos_robisz. in #journal || skoncentrowac in #journal
  202. {
  203. wait 5s
  204. goto OdNowa
  205. }
  206. }
  207. until #MANA = #MAXMANA || Konczysz in #journal
  208.  
  209. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement