Скрипты

Там немного другое: в моём случае проверялось количество золота с уже отнятой суммой, а в вашем - нужно сравнивать не с 0, а с 10000, и тут уже надо >=

Добавлено через 5 минут
Проверку лучше делать ещё в функции b и сразу выдать сообщение о нехватке ресурса.

Добавлено через 7 минут

function b()
    if GetPlayerResource(1, 6) >= 10000 then
        QuestionBox("золото есть.txt", "yes")
    else
        MessageBox("золота нет.txt")
    end
end

function yes()
    SetPlayerResource(1, 6, GetPlayerResource(1, 6) - 10000)
    obs = obs + 10
end

Карты для Героев Меча и Магии 5
Одиночные: Завеса срывается, Посол, Последний рывок, Эхо Пустоты
Кампания: Империя Единорога

Существа NCF
Орден Порядка: 1
Нейтралы: 1 2 3 4