Хоть бы в начале программы какие-то закомментированные строчки вставил, показывающие управление в игре.
Навскидку:
Нужно убрать из функции
updateshut() строчку
B\Life=B\Life-10,
так как условие
If EntityCollided(S\Entity,Bottype) Then
не зависит от условий внешних циклов и будет выполнено для всех ботов, если было попадание в любого. Обработка попаданий в ботов должна выполняться в функции
updatebot().