Игрушка змейка., Курсавая работа. Срок месяц.Спасайте :) Опции

[DarkMoonSide]

Меня сегодня убили С помощью Вольвы сдала программку с графикой на 5 ^_^
Но сегодня дали курсавик. Змейка. Полистала тут форум, одни исходники.
Хочется написать самой, ну или кусочки кодов украсть.
Объекты еще не проходили, но без них думаю неполучится написать. Если не трудно.
Можете помочь сделать игрушку... Объяснить с чего начать, привести парочку примеров ( Я НЕ КОГО НЕ ЗАСТАВЛЯЮ НИЧЕГО ДЕЛАТЬ, ПРОСТО ПРОШУ ПОМОЧЬ, КОМУ НЕ ТЯЖЕЛО) кусочков кодов и для чего они служат, просто совести не хватит взять чужое, и впихнуть, да и сама должна понять, как такое делается...

Сообщение отредактировано: DarkMoonSide - 18.02.2009 4:53

[TarasBer]

В общем вот примерная реализация того, что я имел в виду:

uses
  CRT;

const
  sLeft = #17;
  sRight = #16;
  sUp = #30;
  sDown = #31;
  sHead = '%';
  sApple = '@';

  kUp = #72;
  kLeft = #75;
  kDown = #80;
  kRight = #77;

type
  TScreenSymbol = record
    Symbol: char;
    Color: byte;
  end;

var
  Key, ScanKey: char;
  Time: longint absolute $0040: $006C;
  T: longint;
  HeadX, HeadY, TailX, TailY: integer;
  Direction: (dUp, dLeft, dDown, dRight);
  Screen: array [0 .. 49, 0 .. 79] of TScreenSymbol absolute $B800: $0000;
  Lost, Win: boolean;
  oldTail: char;
  x, y, c: integer;

begin
  randomize;
  TextMode(259);
  ClrScr;
  HeadX := 40;
  HeadY := 40;
  TailX := 40;
  TailY := 41;
  Direction := dUp;
  Screen[HeadY, HeadX].Symbol := sHead;
  Screen[HeadY, HeadX].Color := 14;
  Screen[TailY, TailX].Symbol := sUp;
  Screen[TailY, TailX].Color := 2;
  Screen[HeadY - 10, HeadX].Symbol := sApple;
  Screen[HeadY - 10, HeadX].Color := 4;
  Lost := false;
  repeat
    if KeyPressed then begin
      Key := ReadKey;
      if Key = #0 then ScanKey := ReadKey
      else ScanKey := #0;
    end else begin
      Key := #0;
      ScanKey := #0;
    end;
    while T = Time do;
    T := Time;
    case ScanKey of
      kUp: if Direction <> dDown then Direction := dUp;
      kLeft: if Direction <> dRight then Direction := dLeft;
      kDown: if Direction <> dUp then Direction := dDown;
      kRight: if Direction <> dLeft then Direction := dRight;
    end;
    case Direction of
      dUp: begin
        Screen[HeadY, HeadX].Symbol := sUp;
        Screen[HeadY, HeadX].Color := 2;
        dec(HeadY);
        if HeadY < 0 then Lost := True;
      end;
      dLeft: begin
        Screen[HeadY, HeadX].Symbol := sLeft;
        Screen[HeadY, HeadX].Color := 2;
        dec(HeadX);
        if HeadX < 0 then Lost := True;
      end;
      dDown: begin
        Screen[HeadY, HeadX].Symbol := sDown;
        Screen[HeadY, HeadX].Color := 2;
        inc(HeadY);
        if HeadY >= 50 then Lost := True;
      end;
      dRight: begin
        Screen[HeadY, HeadX].Symbol := sRight;
        Screen[HeadY, HeadX].Color := 2;
        inc(HeadX);
        if HeadX >= 80 then Lost := True;
      end;
    end;
    case Screen[HeadY, HeadX].Symbol of
      sUp, sLeft, sDown, sRight: Lost := True;
      sApple: begin
        c := 0;
        repeat
          inc©;
          if c = 1000 then Win := True;
          x := random(80);
          y := random(50);
        until (Screen[y, x].Symbol = ' ') or (c >= 1000);
        Screen[y, x].Symbol := sApple;
        Screen[y, x].Color := 4;
      end;
      else begin
        oldTail := Screen[TailY, TailX].Symbol;
        Screen[TailY, TailX].Symbol := ' ';
        case oldTail of
          sUp: dec(TailY);
          sLeft: dec(TailX);
          sDown: inc(TailY);
          sRight: inc(TailX);
        end;
      end;
    end;
    Screen[HeadY, HeadX].Symbol := sHead;
    Screen[HeadY, HeadX].Color := 14;
  until (Key = #27) or Lost or Win;
  if Lost then WriteLn('You have lost!');
  if Win then WriteLn('You win!!!');
end.

В этом коде вы можете не знать слово Textmode - оно принудительно переводит экран в режим 80 на 50 символов, и слово absolute - оно указывает переменной, какой именно адрес ей занимать. Некоторые адреса обладают специальными свойствами, например адрес $0040: $006C содержит системное время (нужно для того, чтобы корректно задавать темп игры), а адрес $B800: $0000 содержит видеопамять, поэтому любое обращение к массиву Screen эквивалентно обращению к видеопамяти. Обратите внимание, что тут приходиться в индексе сначала писать Y, а потом X.