Процедура game для игры

@slawa · Регистрация: 23.09.2010

Author24 — интернет-сервис помощи студентам

Здравствуйте! прошу помочь мне вот с такой проблемой.
Я пишу такую игру:
По лабиринту, заданному матрицей, бегает кошка. Она собирает призы, и есть один суперприз.
Там же по лабиринту бегают 4 мыши и 2 крысы.
Мыши наносят урон кошке в 50%, если кошка не сможет убить мышь(пробел). Тогда мышь исчезает.
Крысу кошка убить не может.
Кошка должна добраться до конца лабиринта(призы собирать необязательно, приз дает кошке 50% здоровья, суперприз-100%).
Так вот, я застрял на процедуре game, ничего в голову не приходит, не знаю как написать.
вот пока все что есть.

Pascal

program labirint;
uses graph,crt;
var
        gd,gm,errcode:integer;
        count:        integer;      ///счетчик очков///
        key:          char;
        p:            pointer; ///указатель на образ///
        nx,ny,dx,dy,x,y,k,
        ik,jk,i,j:      integer; //индексы определяющие положение//
 
const
        n_strok = 22;
        n_stolb = 22;
        dx = 30;
        dy = 30;
        left = #75;
        up = #72;
        esc = #27;
        right = #77;
        down = #80;
 
        type masslab=array[1..n_strok,1..n_stolb] of integer;
 
 
    const lab1:=((1,1,1,1,1,1,1,1,1,1,0,0,1,1,1,1,1,1,1,1,1,1),
                 (1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1),
                 (1,0,4,0,0,0,0,0,0,0,0,0,0,0,1,2,0,0,0,0,0,1),
                 (1,1,1,1,1,1,0,0,1,0,0,0,1,1,1,0,0,1,1,0,0,1),
                 (1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,1,0,0,1),
                 (1,0,0,0,0,1,0,0,0,0,0,0,0,0,5,1,4,0,1,0,0,1),
                 (1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,1,0,0,1),
                 (1,0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,1),
                 (1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1),
                 (1,1,1,0,0,1,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,1),
                 (1,0,0,0,0,0,0,0,1,1,1,1,1,0,0,1,2,0,1,0,0,1),
                 (1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,1,1,1,0,0,1),
                 (1,0,0,0,1,1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,1),
                 (1,1,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,1),
                 (1,0,0,5,0,1,0,0,0,0,0,1,0,0,1,1,1,0,0,1,1,1),
                 (1,0,0,0,0,1,0,0,1,0,0,1,0,0,0,0,1,0,0,1,1,1),
                 (1,1,1,1,1,1,0,0,1,0,0,1,0,0,4,0,1,0,0,1,1,1),
                 (1,0,0,0,0,0,0,0,1,0,0,1,1,1,1,1,1,0,0,1,1,1),
                 (1,0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,1),
                 (1,0,0,1,0,0,1,1,1,0,0,0,2,0,1,3,0,4,0,0,2,1),
                 (1,0,6,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1));
 
////=========================печать очков==============================///
procedure PrCount(count:integer);
var
        st:string[3];
begin
        setcolor(1,4);     STR(count,st);
        setfillstyle(1,0);
        bar(370,310,640,340);
        settextstyle(0,0,2);
        outtextxy(400,320,'Заработано очков - ' +st);
end;
///========================рисование кошки=============================///
procedure DrawCat;
var
        size:integer;
begin
        /////надо вписать процедуру именно для кошака, вставить рисунок///
 
end;
 
 
////=====================анализ клавиш================================////
 
procedure AnalyseKey(var key:char; var i,j,ik,jk:integer);
begin
        key:=readkey;
        if key = #0 then
          begin
             key:=readkey;
             case key of
               left: j:=jk-1;
               right: j:= jk+1;
               up: i:=ik-1;
               down: i:=ik+1;
          end;
 
end;
        setcolor(0);
        settextstyle(0,0,3);
        outtextxy(450,200,'стена');
end;
////====================рисование лабиринта===========================////
 
        Procedure DrawLab
        var i,k,x,y:integer;
       begin
                lab:=lab1;
                for i:=1 to n_strok do
                for k:=1 to n_stolb do
                        begin
                          x:=x+(k-1)*dx;
                          y:=y+(i-1)*dy;
                          case lab[i,k] of
                               1: putimage(x,y,p_stena^,xorput);
                               2: putimage(x,y,p_priz^,xorput);
                               3: putimage(x,y,p_suppriz^,xorput);
                               4: putimage(x,y,p_mish^,xorput);
                               5: putimage(x,y,p_krysa^,xorput);
                               6: putimage(x,y,p_koshka^,xorput);
                               7: begin
 
                          end;
                end;
end;
////====================================================================//
 
procedure game=?

Добавлено через 1 минуту
в матрице
0-пустое место
1-стена
2-приз
3-суперприз
4-мышь
5-крыса
6-кошка

Добавлено через 2 минуты
Комментарии в коде я сам для себя оставил)

Добавлено через 36 минут
ну помогите пожалуйста! хоть образец дайте...

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

	11.11.2010, 16:29