DIALOGBOX можно сделать удобнее.
DIALOGBOX (message, buttons1, buttons2, buttons3, [icon])
Параметры
message - сообщение диалогового окна
buttons1,2,3... - порядковый номер кнопки
$inscription(buttons n) - надпись на соответствующей кнопке
icon - код иконки
Теперь коды наборов кнопок не нужны, их заменят надписи на кнопках. Возвращаемые коды равны порядковым номерам кнопок. Коды иконок остаются. Количество кнопок можно ограничить до 6, а можно и без ограничений.
Пример
// Выводит диалоговое окно с тремя кнопками - Пиво, Сок, Вода.
$message = "Что будем пить?"
$inscription(buttons1) = "Пиво"
$inscription(buttons2) = "Сок"
$inscription(buttons2) = "Вода"
$mr = DIALOGBOX($message, buttons1, buttons2, buttons2, [2])