resetTails :: WormsAction ()
resetTails = do
  tail0 <- findObject "tail0" "tail"
  setObjectPosition tail0Pos tail0
  setObjectAttribute (Tail 0) tail0
  tail1 <- findObject "tail1" "tail"
  setObjectPosition tail1Pos tail1
  setObjectAttribute (Tail 1) tail1
  resetOtherTails initTailSize
resetTails :: WormsAction ()
resetTails = do
  tail0 <- findObject "tail0" "tail"
  setObjectPosition tail0Pos tail0
  setObjectAttribute (Tail 0) tail0
  tail1 <- findObject "tail1" "tail"
  setObjectPosition tail1Pos tail1
  setObjectAttribute (Tail 1) tail1
  resetOtherTails initTailSize
resetTails = do
  tail0 <- findObject "tail0" "tail"
  setObjectPosition tail0Pos tail0
  setObjectAttribute (Tail 0) tail0
  tail1 <- findObject "tail1" "tail"
  setObjectPosition tail1Pos tail1
  setObjectAttribute (Tail 1) tail1
  resetOtherTails initTailSize