r1:= coordinate1.row.as_integer_32
                c1:= coordinate1.column.as_integer_32
                r2:= coordinate2.row.as_integer_32
                c2:= coordinate2.column.as_integer_32

                game_message1:= "OK"

                if (g.board[r1,c1].out ~ "O") or (g.board[r1,c1].out ~ "X") or (g.board[r2,c2].out ~ "O") or (g.board[r2,c2].out ~ "X") then
                    game_message1 := "Already fired there"
                else

                    cur_bombs:= cur_bombs + 1
                    if (g.board[r1,c1].out ~ "h") or (g.board[r1,c1].out ~ "v") then
                        g.board[r1,c1] := create {SHIP_ALPHABET}.make ('X')
                        cur_score:= cur_score + 1
                        update_generated_ships(r1,c1)
                        bomb_state:= true
                    else
                        game_message2:= "Miss!"
                        g.board[r1,c1] := create {SHIP_ALPHABET}.make ('O')
                    end

                    if (g.board[r2,c2].out ~ "h") or (g.board[r2,c2].out ~ "v") then
                        g.board[r2,c2] := create {SHIP_ALPHABET}.make ('X')
                        cur_score:= cur_score + 1
                        update_generated_ships(r2,c2)
                    else
                        game_message2:= "Miss!"
                        g.board[r2,c2] := create {SHIP_ALPHABET}.make ('O')
                    end

                    game_message2.append(message_update_after_shot.out)
                end