Думаю, что это первая игра, написанная на пилоте (IMG:
style_emoticons/default/laugh.gif)
Суть проста, как борода.
Загружаем все три сценария в порядке имени.
Запускаем сценарий main, задаём номер основного сценария, для запуска остальных.
И можно немножко передохнуть и вспомнить zxspectrum
Удачи (IMG:
style_emoticons/default/biggrin.gif)
main
// Лохотрон
set linedelay 0
set $check no
set #points 100
set $parent prompt (Введите номер сценария(IMG:
style_emoticons/default/smile.gif)
set #first $parent + 1
set #second $parent + 2
set #third $parent + 3
:start
while_not $check = yes
set $bet prompt (Ваша ставка(IMG:
style_emoticons/default/smile.gif)
set #bet hex2dec ($bet)
if #bet < 0 // Если ставка не корректна
gosub error
else
if $bet > #points // Если ставка больше налички
gosub error
else
if $bet <= #points // Всё хорошо
set $check yes
end_if
end_if
end_if
end_while
set #points #points - $bet // Отнимаем ставку от налички
// Вращйте барабан (IMG:
style_emoticons/default/smile.gif) //
start_script #first
start_script #second
start_script #third
while_not #a.#first = 1 and #a.#second = 1 and #a.#third = 1
end_while
// Считаем результат //
if #i.#first = 1 and #i.#second = 1 and #i.#third = 1
set #points #points + 10
msg Три собаки./nВаш выйгрыш 10 очков
end_if
if #i.#first = 2 and #i.#second = 2 and #i.#third = 2
set #points #points + 20
msg Три решетки./nВаш выйгрыш 20 очков
end_if
if #i.#first = 3 and #i.#second = 3 and #i.#third = 3
set #points #points + 30
msg Три бакса./nВаш выйгрыш 30 очков
end_if
if #i.#first = 1 and #i.#second = 2 and #i.#third = 3
set #points #points + 15
msg По возрастанию./nВаш выйгрыш 15 очков
end_if
msg У вас #points очко(-ов)
stop_script #first
stop_script #second
stop_script #third
set $check no
if #points <= 0
msg У вас нет больше очков./nGame Over
end_script
end_if
goto start
:error
msg Ставка не может быть больше #points и меньше 0
return
first
set linedelay 0
set %symbol[1] @
set %symbol[2] #
set %symbol[3] $
set #a 0
while_not #delay > 100
set #i #i + 1
if #i > 3
set #i 1
end_if
hint (50 147, 420 350, 70 -1 (%symbol[#i]))
set #delay #delay + random(5)
set linedelay #delay
end_while
set #a 1
pause_script
end_script
second
set linedelay 0
set %symbol[1] @
set %symbol[2] #
set %symbol[3] $
set #a 0
while_not #delay > 100
set #i #i + 1
if #i > 3
set #i 1
end_if
hint (50 147, 490 350, 70 -1 (%symbol[#i]))
set #delay #delay + random(5)
set linedelay #delay
end_while
set #a 1
pause_script
end_script
third
set linedelay 0
set %symbol[1] @
set %symbol[2] #
set %symbol[3] $
set #a 0
while_not #delay > 100
set #i #i + 1
if #i > 3
set #i 1
end_if
hint (50 147, 560 350, 70 -1 (%symbol[#i]))
set #delay #delay + random(5)
set linedelay #delay
end_while
set #a 1
pause_script
end_script
(IMG:
http://s019.radikal.ru/i622/1204/d7/8f921ec4ba7b.jpg)