MIDlet Pascal
Поиск по сайту
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Суббота, 24.02.2018, 14.56.35
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Урок №19 - Урок №5 финал - Cosmo_shoter
Здравствуйте, в этом уроке мы научим бота отбиваться, а то жалко как-то его.И так нам нужны переменные содержащие в себе информацию про положение на экране выстрела бота.

xbshot,ybshot:integer;

И так добавим в процедуру newbot перед lifebot:=true

ybshot:=h+1;

теперь в процедуру movbot перед DrawImage(botim,xbot,ybot) такие строки 

ybshot:=ybshot+5;
if ybshot>h then
  begin
    ybshot:=ybot+30;
    xbshot:=xbot+7;
  end;

Но его выстрелы для нас не вредны, давайте это поправим.В процедуре movbot прописываем перед DrawImage(botim,xbot,ybot) следующее:

if (((ybshot>h-30) and (ybshot<h-10)) and ((xbshot<xplayer+30) and (xbshot>xplayer))) or (ybot>h-60) then gameover;

А теперь пропишем эту самую процедуру gameover

Procedure GameOver;
var s:string;
begin
  SetColor(0,0,0);
  FillRect(10,(h-50)/2,w-20,50);
  SetColor(255,255,255);
  DrawRect(10,(h-50)/2,w-20,50);
  s:='Ваш результат'+score;
  DrawText(s,(w-GetStringWidth(s))/2,h-25);
  SetColor(255,0,0);
  s:='Игра окончена';
  DrawText(s,(w-GetStringWidth(s))/2,h-45);
  repaint;
  Delay(5000);
  halt;
end;

А теперь пропишем что бы враг приближался.Для этого в процедуре movbot модифицируем две строчки

if xbot=0 then left:=false;
if xbot=w-15 then left:=true;

на следующие

if xbot=0 then
  begin
    left:=false;
    ybot:=ybot+4;
  end;
if xbot=w-15 then
  begin
    left:=true;
    ybot:=ybot+4;
  end;


ну вот игра работает, и в неё вполне можно пoигратся))Спасибо за внимание!У кого игра не получилась, готовый проэкт можно скачать тут
Автор:Сталник Владимир

← Урок №18Урок №20 →
Если вы нашли ошибки/очепятки в тексте то сообщите о них на форуме
А также можете заказать программу/игру на этой странице

www.parkflyer.ru - радиоуправляемые модели, радиоуправляемые модели самолетов, магазин радиоуправляемых моделей
Роспись стен, скульптуры на заказ
Wladymyr © 2012-2018
Создать бесплатный сайт с uCoz