if @findalias 'buddy'
  @unsetalias 'buddy'
endif
if @findalias 'castnemico'
  @unsetalias 'castnemico'
endif
if not listexists 'BodyTypes'
  createlist 'BodyTypes'
  //human
  pushlist 'BodyTypes' 0x190
  pushlist 'BodyTypes' 0x191
  //elf
  pushlist 'BodyTypes' 0x25d
  pushlist 'BodyTypes' 0x25e
endif
//paralyzed friends
clearignorelist
ignoreobject 'self'
for 0 to 'BodyTypes'
  while @findtype BodyTypes[] 'any' ground 0 10
    if @infriendlist 'found' and paralyzed 'found'
      cast 'clumsy' 'found'
      while waitingfortarget 'harmful'
      endwhile
      warmode 'off'
      warmode 'on'
      warmode 'off'
    endif
    ignoreobject 'found'
  endwhile
endfor
//find lowest hp friend
clearignorelist
ignoreobject 'self'
for 0 to 'BodyTypes'
  while @findtype BodyTypes[] 'any' ground 0 10
    if not @findalias 'buddy'
      if @infriendlist 'found'
        if murderer 'found' and @inregion 'guards' 'found' 10
          headmsg 'Murderer in guards!' 33 'found'
        elseif criminal 'found' and @inregion 'guards' 'found' 10
          headmsg 'Criminal in guards!' 1000 'found'
        else
          @setalias 'buddy' 'found'
        endif
      elseif not @infriendlist 'found'
        @setalias 'castnemico' 'found'
      endif
    endif
    if @infriendlist 'found' and hits 'found' < hits 'buddy'
      if not yellowhits 'found'
        if murderer 'found' and @inregion 'guards' 'found' 10
          headmsg 'Murderer in guards!' 33 'found'
        elseif criminal 'found' and @inregion 'guards' 'found' 10
          headmsg 'Criminal in guards!' 1000 'found'
        else
          @setalias 'buddy' 'found'
          headmsg 'Low!' 54 'found'
        endif
      else
        @setalias 'buddy''found'
        headmsg 'Mortaled!' 54 'found'
      endif
    elseif not @infriendlist 'found' and hits 'found' < hits 'castnemico'
      @setalias 'castnemico' 'found'
    endif
    ignoreobject 'found'
  endwhile
endfor
if targetexists 'beneficial' or targetexists 'neutral'
  target! 'buddy'
elseif targetexists 'harmful'
  target! 'castnemico'
endif
//heal+removecurse friend lowest hp
if @inrange 'buddy' 10 and @findalias 'buddy'
  if yellowhits 'buddy' and @inrange 'buddy' 10
    headmsg "..MORTAL.." 123 'buddy'
    cast 'remove curse' 'buddy'
  elseif poisoned 'buddy' and @inrange 'buddy' 10
    cast 'cure' 'buddy'
  elseif hits 'buddy' < 95
    cast 'heal' 'buddy'
  endif
endif
//magic+fireball on lowest hp
if @inrange 'castnemico' 10
  // Dump existing harmful target on enemy
  if targetexists 'harmful'
    target! 'castnemico'
    // Harm if enemy is standing next to you
  elseif @inrange 'castnemico' 1
    cast 'Harm' 'castnemico'
  else
    // Handle sequence, using alias trick
    if not @findalias 'Sequencing'
      cast 'Magic Arrow' 'castnemico'
      @setalias 'Sequencing' 'self'
    else
      cast 'Fireball' 'castnemico'
      @unsetalias 'Sequencing'
    endif
    // Wait until cast is finished
    while waitingfortarget 'harmful'
    endwhile
  endif
endif
//flizz injournal
if @injournal 'In Vas Mani' "Drayf" or "Kal Vas Flam" "Drayf" or @injournal 'Corp Por' "Drayf" or @injournal 'Extermo Vomica' "Drayf" or @injournal 'Obsu Vulni' "Drayf"
  //serial id drayfus
  @setalias 'fliznemico' 0x2001
elseif @injournal 'In Vas Mani' "KaRaS" or @injournal 'Kal Vas Flam' "KaRaS" or @injournal 'Corp Por' "KaRaS" or @injournal 'Extermo Vomica' "KaRaS" or @injournal 'Obsu Vulni' "KaRaS" or @injournal 'In Vas Mani' "EviL" or @injournal 'Kal Vas Flam' "EviL" or @injournal 'Corp Por' "EviL" or @injournal 'Extermo Vomica' "EviL" or @injournal 'Obsu Vulni' "EviL"
  //serial id karasho
  @setalias 'fliznemico' 0x2001
elseif @injournal 'In Vas Mani' "MaRg" or @injournal 'Kal Vas Flam' "MaRg" or @injournal 'Corp Por' "MaRg" or @injournal 'Extermo Vomica' "MaRg" or @injournal 'Obsu Vulni' "MaRg"
  //serial id marghe
  @setalias 'fliznemico' 0x2001
elseif @injournal 'In Vas Mani' "KasHm" or @injournal 'Kal Vas Flam' "KasHm" or @injournal 'Corp Por' "KasHm" or @injournal 'Extermo Vomica' "KasHm" or @injournal 'Obsu Vulni' "KasHm"
  //serial id kashmir
  @setalias 'fliznemico' 0x15678
elseif @injournal 'In Vas Mani' "Jack" or @injournal 'Kal Vas Flam' "Jack" or @injournal 'Corp Por' "Jack" or @injournal 'Extermo Vomica' "Jack" or @injournal 'Obsu Vulni' "Jack"
  //serial id jack
  @setalias 'fliznemico' 0x2cd78
elseif @injournal 'In Vas Mani' "SoulBlaDe" or @injournal 'Kal Vas Flam' "SoulBlaDe" or @injournal 'Corp Por' "SoulBlaDe" or @injournal 'Extermo Vomica' "SoulBlaDe" or @injournal 'Obsu Vulni' "SoulBlaDe"
  //serial id end
  @setalias 'fliznemico' 0x3838f
elseif @injournal 'In Vas Mani' "God" or @injournal 'Kal Vas Flam' "God" or @injournal 'Corp Por' "God" or @injournal 'Extermo Vomica' "God" or @injournal 'Obsu Vulni' "God" or @injournal 'In Vas Mani' "Bhang" or @injournal 'Kal Vas Flam' "Bhang" or @injournal 'Corp Por' "Bhang" or @injournal 'Extermo Vomica' "Bhang" or @injournal 'Obsu Vulni' "Bhang"
  //serial id god
  @setalias 'fliznemico' 0x32869
elseif @injournal 'In Vas Mani' "Abadam" or @injournal 'Kal Vas Flam' "Abadam" or @injournal 'Corp Por' "Abadam" or @injournal 'Extermo Vomica' "Abadam" or @injournal 'Obsu Vulni' "Abadam" or @injournal 'In Vas Mani' "Abadam" or @injournal 'Kal Vas Flam' "Abadam" or @injournal 'Corp Por' "Abadam" or @injournal 'Extermo Vomica' "Abadam" or @injournal 'Obsu Vulni' "Abadam"
  //serial id abadam
  @setalias 'fliznemico' 0x22267
endif
if not @findalias 'fliznemico'
elseif @findalias 'fliznemico' and @inrange 'fliznemico' 10
  cast "Clumsy" 'fliznemico'
  while waitingfortarget 'harmful'
  endwhile
  @unsetalias 'fliznemico'
  clearjournal
endif