Движение противника.

22.12.2010, 14:14. Показов 860. Ответов 0

Метки нет (Все метки)

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

Пишу игру-типичный и самый обычный лабиринт.
Столкнулся с такой проблемой, захотел сделать движение врага по картинкам(тоесть направление вверх одна картинка, вниз другая, и т.д.).
Прописал, и нормально работает только с одним противником, а вот когда больше 1-ого, то старое положение противника не закрашивается, и остаётся на экране.
Помогите это исправить.
Вот код процедуры движения противника:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
procedure move_vrag(var i,k:integer; p;pointer);
 begin
  x:=x0+(k-1)*dx;
  y:=y0+(i-1)*dx;
  putimage(x,y,vrag^,xorput);
  r:=1+random(4);
   case r of
    1:  if(k<n) and(lab[i,k+1]<>1) then begin k:=k+1;
        vrag:=vrag_r;
        vrag_r:=vrag_r2;
        vrag_r2:=vrag;
        vrag:=vrag;
 
       end;
    2: if(k<n) and(lab[i,k-1]<>1) then begin k:=k-1;
       vrag:=vrag_l;
        vrag_l:=vrag_l2;
        vrag_l2:=vrag;
        vrag:=vrag;
 
       end;
 
    3: if(i>1) and(lab[i-1,k]<>1) then begin i:=i-1;
       vrag:=vrag_up;
        vrag_up:=vrag_up2;
        vrag_up2:=vrag;
        vrag:=vrag;
       end;
    4: if(i<n) and(lab[i+1,k]<>1) then begin i:=i+1;
       vrag:=vrag_d;
        vrag_d:=vrag_d2;
        vrag_d2:=vrag;
        vrag:=vrag;
 
       end;
   end;
  x:=x0+(k-1)*dx;
  y:=y0+(i-1)*dx;
  vrag:=vrag;
  putimage(x,y,vrag^,xorput);
  delay(100);
end;

Заранее спасибо.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

22.12.2010, 14:14

Ответы с готовыми решениями:

Возможно ли сделать движение зрачков, реагирующее на движение какого-либо объекта
Вообщем благодаря модеру удалось разукрасить картинку,за что ему спасибо. Нужна анимация для нее. Возможно ли сделать движение...

Анимация: движение спутника, движение планет
Составьте программу, которая демонстрирует: а) прямолинейное движение спутника на фоне неба и Земли; б) движение планет вокруг Солнца...

Движение противника в игровом цикле
Здравствуйте! Пишу простенькую игру на sfml. Не буду вдаваться в подробности - опишу кратко, как все реализовано. У меня есть...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

22.12.2010, 14:14

Помогаю со студенческими работами здесь

Съедание шашки противника
Пишу программу на си "шашки", все по-немного получается, но проблемка возникла. Помогите с вопросом: как мне сделать так, чтобы когда шашка...

Алгоритм выбора противника
дано 1 противник сила,ловкость,интеллект,защита. представление 8635 соответственно. генерируются 4 противника, с параметрами от 3 до 9....

Скрипт движения противника в лабиринте
Добрый день. Я написал скрип генерации рандомного лабиринта в Unity3d, добавил туда игрока и дрона, который будет атаковать персонажа,...

Плавное передвижение пребафов противника
Всем привет. Подскажите может кто встречался с данной проблемой У меня проект связанный с самолетами. Так вот я хочу чтоб они...

Радиус стрельбы, выбор противника
Сейчас я сделал вот так: Если в радиусе есть ест враг, то создается пуля void Shoot() { shoot =...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

Наверх