Пример реализации простого симулятора дороги на GameLogo .
Пример предложен uiouio в ветке Добавить массивы
Пример симулятора езды по шоссе незначительно доработан. Добавлен элемент случайности в появлении встречного грузовика. Введено ограничение на перемещение автомобиля.
Играет один игрок. Управление с помощью стрелок на клавиатуре.
Стрелки влево и вправо управляют автомобилем.
Стрелики вверх и вниз управляют скоростью.
Для игры необходим файл с фоном, который необходимо поместить в папку "Фоны".
А также файлы с картинками автомобилей и разделительной полосы, которые необходимо положить в папку "Картинки".
фон = road.gif
спрятать черепаху
переменная скорость
переменная расстояние
картинка полоса1
полоса1 = bar.bmp
полоса1.х = 400
полоса1.у = -34
картинка полоса2
полоса2 = bar.bmp
полоса2.х = 400
полоса2.у = 86
картинка полоса3
полоса3 = bar.bmp
полоса3.х = 400
полоса3.у = 206
картинка полоса4
полоса4 = bar.bmp
полоса4.х = 400
полоса4.у = 326
картинка полоса5
полоса5 = bar.bmp
полоса5.х = 400
полоса5.у = 446
картинка полоса6
полоса6 = bar.bmp
полоса6.х = 400
полоса6.у = 566
картинка машина
машина = car.bmp
машина.х = 400
машина.у = 540
картинка грузовик
грузовик = truck.bmp
грузовик.х = 360
грузовик.у = 30
скорость = 5
повторять пока 1 = 1 {
полоса1.у = полоса1.у + скорость
полоса2.у = полоса2.у + скорость
полоса3.у = полоса3.у + скорость
полоса4.у = полоса4.у + скорость
полоса5.у = полоса5.у + скорость
полоса6.у = полоса6.у + скорость
грузовик.у = грузовик.у + скорость + 5
если полоса1.у > 686 то полоса1.у = -34
если полоса2.у > 686 то полоса2.у = -34
если полоса3.у > 686 то полоса3.у = -34
если полоса4.у > 686 то полоса4.у = -34
если полоса5.у > 686 то полоса5.у = -34
если полоса6.у > 686 то полоса6.у = -34
расстояние = (грузовик.х - машина.х)
если расстояние < 0 то расстояние = -расстояние
если расстояние < 40 то если машина.у - грузовик.у < 60 то звук = bom.wav
если грузовик.у > 600 то
грузовик.у = -80
грузовик.x = случайное * 120 + 320
конец условия
}
событие нажата клавиша 37
если машина.х > 320 то машина.х = машина.х - 2.5
конец события
событие нажата клавиша 39
если машина.х < 440 то машина.х = машина.х + 2.5
конец события
событие нажата клавиша 38
если скорость < 10 то скорость = скорость + 0.05
конец события
событие нажата клавиша 40
если скорость > 0 то скорость = скорость - 0.05
конец события |
Описание: Простейший симулятор езды по шоссе
