API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 29th, 2013
156
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.51 KB | None | 0 0
raw download clone embed print report
  1. ;Copyright bY odzi;)
  2. ;Czarowanie z zwoju.
  3. ;Jeżeli skrypt nie znajdzie nam zwoju, automatycznie czaruje normalnie.
  4. ;---------------------------------------------------------------------------------------------
  5.  
  6. set %bind0 ;<---- jux QLX
  7. set %bind1 ;<---- paral KUL
  8. set %bind2 6 ;<---- corp GUL
  9. set %bind3 ;<---- flam NUL
  10. set %bind4 ;<---- vas ort flam FUL
  11. set %bind5 ;<---- pioruny LUL
  12. set %bind6 ;<---- ort XUL
  13. set %bind7 ;<---- mind blast HUL
  14. set %ji #jindex
  15.  
  16. repeat
  17. {
  18. onhotkey %bind0 alt ;jux
  19. {
  20. gosub czaruj QXL jux zwoj
  21. if #result = brak
  22. gosub czaruj 15 0 czar
  23. }
  24. onhotkey %bind1 ;paral
  25. {
  26. gosub czaruj KUL paral zwoj
  27. if #result = brak
  28. gosub czaruj 15 37 czar
  29. }
  30. onhotkey %bind2 ;corp
  31. {
  32. gosub czaruj GUL corp zwoj
  33. if #result = brak
  34. gosub czaruj 15 41 czar
  35. }
  36. onhotkey %bind3 ;flam
  37. {
  38. gosub czaruj NUL flam zwoj
  39. if #result = brak
  40. gosub czaruj 15 50 czar
  41. }
  42. onhotkey %bind4 ;vas ort flam
  43. {
  44. gosub czaruj FUL vasort zwoj
  45. if #result = brak
  46. gosub czaruj 15 42 czar
  47. }
  48. onhotkey %bind5 ;chain lighting
  49. {
  50. gosub czaruj LUL pioruny zwoj
  51. if #result = brak
  52. gosub czaruj 15 48 czar
  53. }
  54. onhotkey %bind6 ; Ort
  55. {
  56. gosub czaruj XUL ORT zwoj
  57. if #result = brak
  58. gosub czaruj 15 52 czar
  59. }
  60. onhotkey %bind7 ; mind blast
  61. {
  62. gosub czaruj HUL mind zwoj
  63. if #result = brak
  64. gosub czaruj 15 36 czar
  65. }
  66. }
  67. until #false
  68.  
  69. sub czaruj
  70. if %3 = zwoj ;czarowanie z zwoju
  71. {
  72. finditem %1 C
  73. for #Findindex 1 #findcnt
  74. {
  75. if #findtype = QXL && %2 = jux
  76. {
  77. set #lobjectid #findid
  78. event macro 17
  79. repeat
  80. {
  81. if %ji < #jindex
  82. {
  83. set %ji %ji + 1
  84. scanjournal %ji
  85. if Zapisywanie in #journal
  86. gosub zapis
  87. if Anulowano in #journal
  88. return
  89. if Juz_cos in #journal
  90. return
  91. }
  92. }
  93. until #targcurs = 1
  94. set #sysmsgcol 77
  95. set %stack #findstack - 1
  96. event sysmessage Zostało jeszcze %stack zwojow %2
  97. return
  98. }
  99. if #findtype = KUL && %2 = paraliz
  100. {
  101. set #lobjectid #findid
  102. event macro 17
  103. repeat
  104. {
  105. if %ji < #jindex
  106. {
  107. set %ji %ji + 1
  108. scanjournal %ji
  109. if Zapisywanie in #journal
  110. gosub zapis
  111. if Anulowano in #journal
  112. return
  113. if Juz_cos in #journal
  114. return
  115. }
  116. }
  117. until #targcurs = 1
  118. set #sysmsgcol 77
  119. set %stack #findstack - 1
  120. event sysmessage Zostało jeszcze %stack zwojow %2
  121. return
  122. }
  123. if #findtype = GUL && %2 = corp
  124. {
  125. set #lobjectid #findid
  126. event macro 17
  127. repeat
  128. {
  129. if %ji < #jindex
  130. {
  131. set %ji %ji + 1
  132. scanjournal %ji
  133. if Zapisywanie in #journal
  134. gosub zapis
  135. if Anulowano in #journal
  136. return
  137. if Juz_cos in #journal
  138. return
  139. }
  140. }
  141. until #targcurs = 1
  142. set #sysmsgcol 77
  143. set %stack #findstack - 1
  144. event sysmessage Zostało jeszcze %stack zwojow %2
  145. return
  146. }
  147. if #findtype = NUL && %2 = flam
  148. {
  149. set #lobjectid #findid
  150. event macro 17
  151. repeat
  152. {
  153. if %ji < #jindex
  154. {
  155. set %ji %ji + 1
  156. scanjournal %ji
  157. if Zapisywanie in #journal
  158. gosub zapis
  159. if Anulowano in #journal
  160. return
  161. if Juz_cos in #journal
  162. return
  163. }
  164. }
  165. until #targcurs = 1
  166. set #sysmsgcol 77
  167. set %stack #findstack - 1
  168. event sysmessage Zostało jeszcze %stack zwojow %2
  169. return
  170. }
  171. if #findtype = FUL && %2 = vasort
  172. {
  173. set #lobjectid #findid
  174. event macro 17
  175. repeat
  176. {
  177. if %ji < #jindex
  178. {
  179. set %ji %ji + 1
  180. scanjournal %ji
  181. if Zapisywanie in #journal
  182. gosub zapis
  183. if Anulowano in #journal
  184. return
  185. if Juz_cos in #journal
  186. return
  187. }
  188. }
  189. until #targcurs = 1
  190. set #sysmsgcol 77
  191. set %stack #findstack - 1
  192. event sysmessage Zostało jeszcze %stack zwojow %2
  193. return
  194. }
  195. if #findtype = LUL && %2 = pioruny
  196. {
  197. set #lobjectid #findid
  198. event macro 17
  199. repeat
  200. {
  201. if %ji < #jindex
  202. {
  203. set %ji %ji + 1
  204. scanjournal %ji
  205. if Zapisywanie in #journal
  206. gosub zapis
  207. if Anulowano in #journal
  208. return
  209. if Juz_cos in #journal
  210. return
  211. }
  212. }
  213. until #targcurs = 1
  214. set #sysmsgcol 77
  215. set %stack #findstack - 1
  216. event sysmessage Zostało jeszcze %stack zwojow %2
  217. return
  218. }
  219. if #findtype = XUL && %2 = ort
  220. {
  221. set #lobjectid #findid
  222. event macro 17
  223. repeat
  224. {
  225. if %ji < #jindex
  226. {
  227. set %ji %ji + 1
  228. scanjournal %ji
  229. if Zapisywanie in #journal
  230. gosub zapis
  231. if Anulowano in #journal
  232. return
  233. if Juz_cos in #journal
  234. return
  235. }
  236. }
  237. until #targcurs = 1
  238. set #sysmsgcol 77
  239. set %stack #findstack - 1
  240. event sysmessage Zostało jeszcze %stack zwojow %2
  241. return
  242. }
  243. if #findtype = HUL && %2 = mind
  244. {
  245. set #lobjectid #findid
  246. event macro 17
  247. repeat
  248. {
  249. if %ji < #jindex
  250. {
  251. set %ji %ji + 1
  252. scanjournal %ji
  253. if Zapisywanie in #journal
  254. gosub zapis
  255. if Anulowano in #journal
  256. return
  257. if Juz_cos in #journal
  258. return
  259. }
  260. }
  261. until #targcurs = 1
  262. set #sysmsgcol 77
  263. set %stack #findstack - 1
  264. event sysmessage Zostało jeszcze %stack zwojow %2
  265. return
  266. }
  267. }
  268. set #sysmsgcol 45
  269. event sysmessage Nie znalazlem zwoju
  270. return brak
  271. }
  272. if %3 = czar ;zwykle czarowanie
  273. {
  274. event macro %1 %2
  275. return
  276. }
  277. return
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!