on *:text:*:#newbot: {
  if (*iDM* iswm $nick) {
    if ($gettok($strip($1-),2,32) != $me && *HEALING* iswm $strip($1-)) {
      set %tok $calc($numtok($strip($1-),32) - 5)
      msg #newbot HP: $remove($gettok($strip($1-),%tok,32),:,.)
    }
    if ($gettok($strip($1-),2,32) == $me) {
      msg #newbot HP: $remove($gettok($strip($1-),$numtok($strip($1-),32),32),:,.)
    }
    if ((*ready* iswm $strip($1-)) || (*has requested* iswm $strip($1-) && $gettok($strip($1-),2,32) != $me)) {
      msg $chan .dm
      set %spec 100
    }
    if ($gettok($strip($1-),15,32) == $me && *first move* iswm $strip($1-)) {
      msg # . [ $+ [ $iif($rand(1,2) == 1, gmaul, bgs) ] ]
      set %spec 0
      halt
    }
    if ($gettok($strip($1-),15,32) != $me && *first move* iswm $strip($1-)) { halt }
    if (*ready* iswm $strip($1-)) { halt }
    if ($gettok($strip($1-),2,32) != $me && *has received* !iswm $strip($1-) && *KO* !iswm $strip($1-)) {
      if (%spec == 100) {
        set %rand $rand(1,8)
        if (%rand == 1) { msg # .dclaws | dec %spec 50 | halt }
        if (%rand == 2) { msg # .ags | dec %spec 50 | halt }
        if (%rand == 3) { msg # .dds | dec %spec 25 | halt }
        if (%rand == 4) { msg # .sgs | dec %spec 50 | halt }
        if (%rand == 5) { msg # .dmace | dec %spec 50 | halt }
        if (%rand == 6) { msg # .bgs | dec %spec 100 | halt }
        if (%rand == 7) { msg # .gmaul | dec %spec 100 | halt }
        if (%rand == 8) { msg # . [ $+ [ $iif($rand(1,2) == 1, fsurge, bbolt) ] ] | dec %spec 50 | halt }
      }
      if (%spec == 75) {
        set %rand $rand(1,7)
        if (%rand == 1) { msg # .dclaws | dec %spec 50 | halt }
        if (%rand == 2) { msg # .ags | dec %spec 50 | halt }
        if (%rand == 3) { msg # .dds | dec %spec 25 | halt }
        if (%rand == 4) { msg # .sgs | dec %spec 50 | halt }
        if (%rand == 5) { msg # .dmace | dec %spec 50 | halt }
        if (%rand == 6) { msg # .dbow | dec %spec 75 | halt }
        if (%rand == 7) { msg # . [ $+ [ $iif($rand(1,2) == 1, fsurge, bbolt) ] ] | dec %spec 50 | halt }
      }
      if (%spec == 50) {
        set %rand $rand(1,6)
        if (%rand == 1) { msg # .dclaws | dec %spec 50 | halt }
        if (%rand == 2) { msg # .ags | dec %spec 50 | halt }
        if (%rand == 3) { msg # .dds | dec %spec 25 | halt }
        if (%rand == 4) { msg # .sgs | dec %spec 50 | halt }
        if (%rand == 5) { msg # .dmace | dec %spec 50 | halt }
        if (%rand == 6) { msg # . [ $+ [ $iif($rand(1,2) == 1, fsurge, bbolt) ] ] | dec %spec 50 | halt }
      }
      if (%spec == 25) { msg # .dds | dec %spec 50 | halt }
      msg # . [ $+ [ $gettok(%weapons,$rand(1,5),32) ] ]
    }
  }
}