Там немного другое: в моём случае проверялось количество золота с уже отнятой суммой, а в вашем - нужно сравнивать не с 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