Advertisement
Guest User

Untitled

a guest
Apr 25th, 2019
87
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.38 KB | None | 0 0
  1. //set to do not auto interrupt
  2. if not listexists 'BodyTypes'
  3. createlist 'BodyTypes'
  4. //human
  5. pushlist 'BodyTypes' 0x190
  6. pushlist 'BodyTypes' 0x191
  7. //wraith
  8. pushlist 'BodyTypes' 0x2ec
  9. pushlist 'BodyTypes' 0x2eb
  10. //elf
  11. pushlist 'BodyTypes' 0x25d
  12. pushlist 'BodyTypes' 0x25e
  13. //lich
  14. pushlist 'BodyTypes' 0x2ed
  15. //vamp
  16. pushlist 'BodyTypes' 0x2e9
  17. pushlist 'BodyTypes' 0x2e8
  18. endif
  19. if not listexists 'ghosts'
  20. createlist 'ghosts'
  21. pushlist 'ghosts' 0x192
  22. pushlist 'ghosts' 0x193
  23. pushlist 'ghosts' 0x260
  24. pushlist 'ghosts' 0x25f
  25. endif
  26. //res dead friends if res precast
  27. clearignorelist
  28. if targetexists 'beneficial'
  29. for 0 to 'ghosts'
  30. while @findtype ghosts[] 'any' ground 1 1
  31. if @infriendlist 'found'
  32. target! 'found'
  33. endif
  34. ignoreobject 'found'
  35. endwhile
  36. endfor
  37. endif
  38. //paralyzed friends
  39. clearignorelist
  40. ignoreobject 'self'
  41. for 0 to 'BodyTypes'
  42. while @findtype BodyTypes[] 'any' ground 0 10
  43. if @infriendlist 'found' and paralyzed 'found'
  44. cast 'clumsy' 'found'
  45. endif
  46. ignoreobject 'found'
  47. endwhile
  48. endfor
  49. //find lowest hp friend
  50. clearignorelist
  51. ignoreobject 'self'
  52. @setalias 'buddy' 'self'
  53. for 0 to 'BodyTypes'
  54. while @findtype BodyTypes[] 'any' ground 0 10
  55. if not @findalias 'buddy' and @infriendlist 'found'
  56. if murderer 'found' and @inregion 'guards' 'found' 10
  57. headmsg 'Murderer in guards!' 33 'found'
  58. elseif criminal 'found' and @inregion 'guards' 'found' 10
  59. headmsg 'Criminal in guards!' 1000 'found'
  60. else
  61. @setalias 'buddy' 'found'
  62. endif
  63. endif
  64. if @infriendlist 'found' and hits 'found' < hits 'buddy'
  65. if not yellowhits 'found'
  66. if murderer 'found' and @inregion 'guards' 'found' 10
  67. headmsg 'Murderer in guards!' 33 'found'
  68. elseif criminal 'found' and @inregion 'guards' 'found' 10
  69. headmsg 'Criminal in guards!' 1000 'found'
  70. else
  71. @setalias 'buddy' 'found'
  72. endif
  73. else
  74. headmsg 'Mortaled!' 54 'found'
  75. endif
  76. endif
  77. ignoreobject 'found'
  78. endwhile
  79. endfor
  80. if targetexists 'harmful'
  81. target! 'enemy'
  82. elseif targetexists 'beneficial'
  83. target! 'buddy'
  84. endif
  85. @canceltarget
  86. if poisoned 'buddy' and @inrange 'buddy' 10
  87. cast 'cure' 'buddy'
  88. elseif hits 'buddy' < 95 and @inrange 'buddy' 10
  89. cast 'heal' 'buddy'
  90. endif
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement