resetOtherTails :: Int -> WormsAction ()
resetOtherTails n | (n == initTailSize + maxFood) = return ()
                  | otherwise = do tailn <- findObject ("tail" ++ (show n)) "tail"
                                   setObjectAsleep True tailn
                                   resetOtherTails (n + 1)
resetOtherTails :: Int -> WormsAction ()
resetOtherTails n | (n == initTailSize + maxFood) = return ()
                  | otherwise = do tailn <- findObject ("tail" ++ (show n)) "tail"
                                   setObjectAsleep True tailn
                                   resetOtherTails (n + 1)
resetOtherTails n | (n == initTailSize + maxFood) = return ()
                  | otherwise = do tailn <- findObject ("tail" ++ (show n)) "tail"
                                   setObjectAsleep True tailn
                                   resetOtherTails (n + 1)