function borderGuard()
  QuestionBox("ссылка на текст с вопросом", "bgok")
end

function bgok()
  local gold = GetPlayerResource(1, GOLD)
  if gold >= количество_золота then
    SetPlayerResource(1, GOLD, gold - количество_золота)
    RemoveObject("скриптовое имя стража границ")
  else
    MessageBox("ссылка на текст с оповещением о нехватке ресурсов")
  end
end

SetObjectEnabled("скриптовое имя стража границ", nil)
Trigger(4, "скриптовое имя стража границ", "borderGuard")