cljbot-druid.clj

(define-class-ai druid
  (spell moonfire "moonfire")
  (spell roots "roots")
  (spell wrath "wrath")
  (spell mark-of-the-wild "mark of the wild")
  (spell thorns "thorns")
  (spell rejuvenate "rejuvenation")
  (spell regrowth "regrowth")
  ;; Feral
  (spell dire-bear "dire bear")
  (spell bear "bear")
  (spell pref-bear dire-bear bear)
  (spell cat-form "Cat Form")
  (spell maul "Maul")
  (spell mangle "Mangle")
  (spell demoralizing-roar "Demoralizing roar")
  (spell bash "Bash")
  (spell swipe "Swipe")
  (spell tigers-fury  "tiger's fury")
  (spell claw "Claw")
  (spell rip "rip")

  ;; Modes
  ;; 0 - Trash mode
  ;; 1 - AoE
  ;; 2 - Tank mode; Bear form
  ;; 3 - Balance dps
  ;; 4 - Heal Master
  ;; 5 - Healer
  ;; 6 - Cat Dps
  
  (combat
   (if (mode 0 4 5)
     (cast rejuvenate :target master :target-min-health -95)
     (cast regrowth :target self :min-health -60)
     (cast regrowth :target master :target-min-health -65))
   (if (mode 0 1 3)
     ;; Heal Group
     (cast rejuvenate :target group :target-min-health -80)
     (cast regrowth :target group :target-min-health -50))
   (if (mode 5)                         ; Healer
     ;; Heal Group
     (cast rejuvenate :target group :target-min-health -90)
     (cast regrowth :target group :target-min-health -60)
     (stop))
   (if (mode 0 1 2 3)
     (move-in-front))
   (if (mode 2)                         ; Feral Attack / Tank
     (cast pref-bear)
     (chase)
     (cast demoralizing-roar)
     (cast mangle)
     (if target-is-casting
       (cast bash))
     (cast swipe)
     (cast maul :min-mana 30))
   (if (mode 6)                         ; Cat DPS
     (cast cat-form)
     (chase)
     (sequence
      (cast tigers-fury)
      (cast claw)
      (cast claw :target-min-health 25)
      (cast claw :target-min-health 25)
      (cast rip)))
   ;; balance
   (sequence
    (cast moonfire  :min-mana 50   :mode [0 1 3])
    (cast roots     :min-mana 60   :mode [3])
    (cast wrath     :min-mana 50   :mode [0 1 3])))

  (non-combat
   (if (not (mode 2))
     (remove-aura :aura dire-bear)
     (remove-aura :aura bear))
   (if (not (mode 6))
     (remove-aura :aura cat-form))
   (if (mode 0 4)
     (cast rejuvenate :target master :target-min-health -98))
   (if (mode 0 5)
     (cast rejuvenate :target group :target-min-health -90))
   (if (mode 2)
     (cast pref-bear))
   (if (mode 6)
     (cast cat-form))
   (cast mark-of-the-wild :target group)
   (cast thorns)))