Advertisement
Guest User

Untitled

a guest
Mar 10th, 2012
243
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.13 KB | None | 0 0
  1. sub raise_magery()
  2. var mhp=UO.GetMaxHP('self')
  3. var aids='0x0E21'
  4. var bb='0x0E20'
  5. while 1==1
  6. if UO.Life==mhp AND UO.Mana==UO.Int then
  7. repeat
  8. UO.WaitTargetSelf()
  9. UO.Cast('Magic Arrow')
  10. wait(1100)
  11. until UO.Life<41 OR UO.Mana<4 OR UO.Count('0x0F8C')<10
  12. endif
  13. if UO.Life<mhp then
  14. repeat
  15. UO.BandageSelf()
  16. wait(3000)
  17. until UO.Life==mhp
  18. endif
  19. if UO.Mana<UO.Int then
  20. UO.DeleteJournal()
  21. repeat
  22. UO.UseSkill('Meditation')
  23. wait(3000)
  24. if UO.InJournal('You are preoccupied') then
  25. UO.Warmode(0)
  26. endif
  27. until UO.Mana==UO.Int
  28. endif
  29. wait(100)
  30. if UO.Count('0x0F8C')<10 then
  31. Restock_SA()
  32. endif
  33. if aids<10 OR bb>50 then
  34. check_aids()
  35. endif
  36. wend
  37. endsub
  38. sub check_aids()
  39. if UO.Count('0x0E21') < 30 then
  40. UO.FindType(0x0E21,-1,'ground')
  41. UO.Moveitem('finditem','150','backpack')
  42. wait(1000)
  43. endif
  44. if UO.Count('0x0E20') > 20 then
  45. UO.WaitTargetType('0x1F9D')
  46. UO.UseType('0x0E20')
  47. wait(500)
  48. endif
  49. EndSub
  50. Sub Restock_SA()
  51. UO.FindType(0x0F8C,-1,'ground')
  52. UO.Moveitem('finditem','150','backpack')
  53. wait(1000)
  54. endsub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement