Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.05.2009, 11:33   #1
AlekDruzh
 
Регистрация: 22.04.2009
Сообщений: 3
По умолчанию Текстовая игра

Условие задачи:
На площадке : препятствия(3), охотник и 5 цели. Они появляются случайно и случайно бродят. При малом расстоянии - захват и уничтожение.Эффекты(звук,взрыв), счет игры. Обход препятствий. Цели быстрее охотника на 0,8. Движение охотника по направлению с обходом препятствий.

Помогите, пожалуйста! Не знаю как создавать игру в текством режиме
AlekDruzh вне форума Ответить с цитированием
Старый 07.05.2009, 12:09   #2
apromix
PHP, Delphi
Форумчанин
 
Аватар для apromix
 
Регистрация: 07.05.2008
Сообщений: 388
По умолчанию

А что уже сделано? Исходник посмотреть можно?

Я бы делал так: раз площадка - то нужен двумерный массив. В него заносятся коорд. препятствий, охотника и врагов. А дальше все идет как по маслу
Мыши плакали, кололись, но продолжали жрать кактус...
мои проекты
apromix вне форума Ответить с цитированием
Старый 07.05.2009, 12:39   #3
AlekDruzh
 
Регистрация: 22.04.2009
Сообщений: 3
По умолчанию

Я даже пока не знаю с чего начать эту программу, напишите хотя бы эскиз этой проги.Помогите,пожалйста!
AlekDruzh вне форума Ответить с цитированием
Старый 07.05.2009, 14:00   #4
apromix
PHP, Delphi
Форумчанин
 
Аватар для apromix
 
Регистрация: 07.05.2008
Сообщений: 388
По умолчанию

Код:
const
   // Ширина мира
  MaxX = 10;
  // Высота мира
  MaxY = 10;
  // Количество целей
  MaxC = 5;
  // Количество препятствий
  MaxS = 3;
  // Описываем псевдографику
  Empty = ' ';
  Hero  = '*';
  Stone = 'S';
  Cross = 'X';

var
  // Мир
  I, X, Y, K: Byte;
  World: array[1..MaxY, MaxX] of String;

begin



  // Вот как очищаем карту мира
  for X := 1 to MaxX do
  for Y := 1 to MaxY do
  World[Y, X] := Empty;

  // Вот как заносим новые мишени на карту мира
  Randomize;
  K := 0;
  while (K <= MaxC) do
  begin
    X := Random(MaxX) + 1;
    Y := Random(MaxY) + 1;
    if (World[Y, X] = Empty) then
    begin
      World[Y, X] := Cross;
      Inc(K);
    end;
  end;
  // По такому же подобию случайно можно расставить и препятствия, и героя


end;
Мыши плакали, кололись, но продолжали жрать кактус...
мои проекты

Последний раз редактировалось apromix; 07.05.2009 в 14:09.
apromix вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Игра на C# ЧеширскийКот Общие вопросы .NET 3 11.04.2009 11:25
Текстовая формула (не могу додуматься) WIC Microsoft Office Excel 1 26.02.2009 12:35
Текстовая Змейка mutabor Софт 6 28.01.2009 10:43
Компонент TStringGrid - текстовая таблица allmaestro Помощь студентам 1 11.10.2008 17:01