Графика: Как сделать так, чтобы персонаж не мог проходить, пересекать стены? - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Приветствую. Нарисовал лабиринт и персонажа (красный круг), который должен дойти до выхода от старта. Так вот, персонаж может проходить через стены лабиринта. Как сделать так, чтобы персонаж не мог проходить, пересекать стены?

Пожалуйста, помогите с примером хотя бы для 1 стены, дальше я сам по аналогии сделаю.

Код:

Код весь, просто некоторые буквы сначала прозрачные. Не знаю почему так. Выделите код и убедитесь, что он нормальный и полный.

Листинг программы 
  1. Program Labirint;
  2. Uses GraphABC, Crt;
  3.  
  4. Procedure Pers(x,y,r:integer);
  5. Begin
  6. SetPenColor(clRed);
  7. SetPenWidth(2);
  8. Circle(x,y,r);
  9. FloodFill(x,y,clRed);
  10. End;
  11.  
  12. Procedure Lab;
  13. Begin
  14. SetPenWidth(1);
  15. SetPenColor(clBlack);
  16. Rectangle(50,0,100,150);
  17. Rectangle(0,200,100,250);
  18. Rectangle(0,300,50,450);
  19. Rectangle(50,400,100,450);
  20. Rectangle(50,500,100,700);
  21. Rectangle(100,550,200,600);
  22. Rectangle(150,0,350,50);
  23. Rectangle(250,50,300,100);
  24. Rectangle(150,100,200,350);
  25. Rectangle(200,150,400,200);
  26. Rectangle(350,100,400,300);
  27. Rectangle(400,0,450,150);
  28. Rectangle(250,250,300,450);
  29. Rectangle(150,400,300,450);
  30. Rectangle(150,400,200,500);
  31. Rectangle(250,500,350,550);
  32. Rectangle(150,650,300,700);
  33. Rectangle(250,600,450,650);
  34. Rectangle(350,350,450,400);
  35. Rectangle(400,350,450,550);
  36. Rectangle(450,450,600,500);
  37. Rectangle(500,0,650,50);
  38. Rectangle(500,100,550,250);
  39. Rectangle(450,200,500,300);
  40. Rectangle(550,200,600,400);
  41. Rectangle(500,350,600,400);
  42. Rectangle(500,550,550,700);
  43. Rectangle(550,600,600,650);
  44. Rectangle(600,100,750,150);
  45. Rectangle(650,100,700,250);
  46. Rectangle(700,50,850,100);
  47. Rectangle(700,200,750,400);
  48. Rectangle(650,350,700,500);
  49. Rectangle(700,450,750,700);
  50. Rectangle(650,550,700,600);
  51. Rectangle(650,650,700,700);
  52. Rectangle(950,0,1000,50);
  53. Rectangle(900,50,1000,100);
  54. Rectangle(900,50,950,200);
  55. Rectangle(800,150,950,200);
  56. Rectangle(900,250,950,400);
  57. Rectangle(800,350,1000,400);
  58. Rectangle(800,350,850,450);
  59. Rectangle(750,500,950,550);
  60. Rectangle(900,450,950,550);
  61. Rectangle(800,600,1000,650);
  62. Rectangle(750,250,850,300);
  63. Rectangle(100,300,150,350);
  64. SetPenColor(clGreen);
  65. Rectangle(0,0,50,50);
  66. Rectangle(950,650,1000,700);
  67.  
  68. FloodFill(75,30,clBlack);
  69. FloodFill(75,430,clBlack);
  70. FloodFill(75,230,clBlack);
  71. FloodFill(75,530,clBlack);
  72. FloodFill(30,370,clBlack);
  73. FloodFill(375,170,clBlack);
  74. FloodFill(375,375,clBlack);
  75. FloodFill(375,625,clBlack);
  76. FloodFill(170,30,clBlack);
  77. FloodFill(170,230,clBlack);
  78. FloodFill(170,430,clBlack);
  79. FloodFill(170,580,clBlack);
  80. FloodFill(170,680,clBlack);
  81. FloodFill(420,75,clBlack);
  82. FloodFill(420,420,clBlack);
  83. FloodFill(470,250,clBlack);
  84. FloodFill(470,470,clBlack);
  85. FloodFill(270,80,clBlack);
  86. FloodFill(270,160,clBlack);
  87. FloodFill(270,300,clBlack);
  88. FloodFill(270,430,clBlack);
  89. FloodFill(270,530,clBlack);
  90. FloodFill(270,630,clBlack);
  91. FloodFill(530,25,clBlack);
  92. FloodFill(530,150,clBlack);
  93. FloodFill(530,150,clBlack);
  94. FloodFill(530,480,clBlack);
  95. FloodFill(530,630,clBlack);
  96. FloodFill(580,300,clBlack);
  97. FloodFill(580,480,clBlack);
  98. FloodFill(580,630,clBlack);
  99. FloodFill(630,130,clBlack);
  100. FloodFill(670,130,clBlack);
  101. FloodFill(670,440,clBlack);
  102. FloodFill(670,580,clBlack);
  103. FloodFill(670,670,clBlack);
  104. FloodFill(730,75,clBlack);
  105. FloodFill(730,130,clBlack);
  106. FloodFill(730,300,clBlack);
  107. FloodFill(730,550,clBlack);
  108. FloodFill(830,180,clBlack);
  109. FloodFill(830,400,clBlack);
  110. FloodFill(830,530,clBlack);
  111. FloodFill(830,630,clBlack);
  112. FloodFill(930,100,clBlack);
  113. FloodFill(930,170,clBlack);
  114. FloodFill(930,300,clBlack);
  115. FloodFill(930,380,clBlack);
  116. FloodFill(930,500,clBlack);
  117. FloodFill(970,30,clBlack);
  118. FloodFill(970,80,clBlack);
  119. FloodFill(560,380,clBlack);
  120. FloodFill(800,270,clBlack);
  121. FloodFill(125,325,clBlack);
  122. FloodFill(1,1,clGreen);
  123. FloodFill(980,680,clGreen);
  124. End;
  125.  
  126. Var x,y,r,d:integer; k:char;
  127.  
  128. Begin
  129. SetWindowSize(1000,700);
  130. Hidecursor;
  131.  
  132. x:=25;
  133. y:=25;
  134. r:=10;
  135.  
  136. Lab;
  137. Pers(x,y,r);
  138.  
  139. Lockdrawing;
  140.  
  141. Repeat
  142. If Keypressed then
  143.   Begin
  144.     k:=readkey;
  145.     
  146.     If k=#80 then
  147.       Begin
  148.        Clearwindow;
  149.        If y>Windowheight-2*r then d:=0
  150.        else d:=15;
  151.        y:=y+d;
  152.        Lab;
  153.        Pers(x,y,r);
  154.        Delay(1);
  155.        Redraw;
  156.       End;
  157.       
  158.     If k=#72 then
  159.       Begin
  160.         Clearwindow;
  161.         If y<2*r then d:=0
  162.         else d:=15;
  163.         y:=y-d;
  164.         Lab;
  165.         Pers(x,y,r);
  166.         Delay(1);
  167.         Redraw;
  168.        End;
  169.        
  170.     If k=#75 then
  171.       Begin
  172.        Clearwindow;
  173.        If x>windowwidth-2*r then d:=0
  174.        else d:=15;
  175.        x:=x+d;
  176.        Lab;
  177.        Pers(x,y,r);
  178.        Delay(1);
  179.        Redraw;
  180.       End;
  181.       
  182.     If k=#77 then
  183.       Begin
  184.        Clearwindow;
  185.        If x<2*r then d:=0
  186.        else d:=15;
  187.        x:=x-d;
  188.        Lab;
  189.        Pers(x,y,r);
  190.        Delay(1);
  191.        Redraw;
  192.       End;
  193.     if k=#27 then Exit;
  194. End;
  195. Until k=#27;
  196. End.

Решение задачи: «Графика: Как сделать так, чтобы персонаж не мог проходить, пересекать стены?»

textual
Листинг программы 
  1. program Labirint;
  2. uses GraphABC, Crt;
  3.  
  4. Procedure Pers(x,y,r:integer);
  5. Begin
  6. SetPenColor(clRed);
  7. SetBrushColor(clRed);
  8. Circle(x,y,r);
  9. End;
  10.  
  11. procedure Lab;
  12. begin
  13. SetPenColor(clBlack);
  14. SetBrushColor(clBlack);
  15. Rectangle(50,0,100,150);
  16. Rectangle(0,200,100,250);
  17. Rectangle(0,300,50,450);
  18. Rectangle(50,400,100,450);
  19. Rectangle(50,500,100,700);
  20. Rectangle(100,550,200,600);
  21. Rectangle(150,0,350,50);
  22. Rectangle(250,50,300,100);
  23. Rectangle(150,100,200,350);
  24. Rectangle(200,150,400,200);
  25. Rectangle(350,100,400,300);
  26. Rectangle(400,0,450,150);
  27. Rectangle(250,250,300,450);
  28. Rectangle(150,400,300,450);
  29. Rectangle(150,400,200,500);
  30. Rectangle(250,500,350,550);
  31. Rectangle(150,650,300,700);
  32. Rectangle(250,600,450,650);
  33. Rectangle(350,350,450,400);
  34. Rectangle(400,350,450,550);
  35. Rectangle(450,450,600,500);
  36. Rectangle(500,0,650,50);
  37. Rectangle(500,100,550,250);
  38. Rectangle(450,200,500,300);
  39. Rectangle(550,200,600,400);
  40. Rectangle(500,350,600,400);
  41. Rectangle(500,550,550,700);
  42. Rectangle(550,600,600,650);
  43. Rectangle(600,100,750,150);
  44. Rectangle(650,100,700,250);
  45. Rectangle(700,50,850,100);
  46. Rectangle(700,200,750,400);
  47. Rectangle(650,350,700,500);
  48. Rectangle(700,450,750,700);
  49. Rectangle(650,550,700,600);
  50. Rectangle(650,650,700,700);
  51. Rectangle(950,0,1000,50);
  52. Rectangle(900,50,1000,100);
  53. Rectangle(900,50,950,200);
  54. Rectangle(800,150,950,200);
  55. Rectangle(900,250,950,400);
  56. Rectangle(800,350,1000,400);
  57. Rectangle(800,350,850,450);
  58. Rectangle(750,500,950,550);
  59. Rectangle(900,450,950,550);
  60. Rectangle(800,600,1000,650);
  61. Rectangle(750,250,850,300);
  62. Rectangle(100,300,150,350);
  63. SetPenColor(clGreen);
  64. SetbrushColor(clGreen);
  65. Rectangle(0,0,50,50);
  66. Rectangle(950,650,1000,700);
  67. end;
  68.  
  69. Var x,y,r,d:integer;
  70.     k:char;
  71. Begin
  72. SetWindowSize(1000,700);
  73. CenterWindow;
  74. Hidecursor;
  75. x:=25;
  76. y:=25;
  77. r:=25;
  78. d:=5;
  79. Lab;
  80. Pers(x,y,r);
  81. Lockdrawing;
  82. repeat
  83. k:=readkey;
  84. if k=#0 then k:=readkey; //если первый код символа=0, то определяем второй
  85.                          //коды стрелок 075,077,072,080, 72,75,77.80 это  H,K,M,P
  86. case k of
  87. #80:begin
  88.     Clearwindow;
  89.     if (y=Windowheight-r)or (GetPixel(x,y+2*r)=clBlack) then d:=0//если край или впереди черный цвет
  90.     else d:=50;
  91.     y:=y+d;
  92.     Lab;
  93.     Pers(x,y,r);
  94.     Delay(1);
  95.     Redraw;
  96.     end;
  97. #72:begin
  98.     Clearwindow;
  99.     If (y=r) or (Getpixel(x,y-2*r)=clBlack)  then d:=0
  100.     else d:=50;
  101.     y:=y-d;
  102.     Lab;
  103.     Pers(x,y,r);
  104.     Delay(1);
  105.     Redraw;
  106.     end;
  107. #75:begin
  108.     Clearwindow;
  109.     if (x=windowwidth-r)or (GetPixel(x+2*r,y)=clBlack)then d:=0
  110.     else d:=50;
  111.     x:=x+d;
  112.     Lab;
  113.     Pers(x,y,r);
  114.     Delay(1);
  115.     Redraw;
  116.     end;
  117. #77:begin
  118.     Clearwindow;
  119.     if (x=r)or (GetPixel(x-2*r,y)=clBlack)then d:=0
  120.     else d:=50;
  121.     x:=x-d;
  122.     Lab;
  123.     Pers(x,y,r);
  124.     Delay(1);
  125.     Redraw;
  126.     end;
  127. #27:exit;
  128. end;
  129. until k=#27;
  130. End.

Объяснение кода листинга программы

В представленном коде используется графический интерфейс GraphABC для создания окна и рисования фигур. Процесс начинается с объявления переменных x, y и r, которые представляют координаты и радиус круга, который будет нарисован. Переменная d используется для определения направления движения персонажа. Затем следует процедура Lab, которая создает прямоугольники на экране с помощью функций SetPenColor и SetBrushColor из библиотеки GraphABC. Эти прямоугольники образуют границы лабиринта, в котором будет перемещаться персонаж. Далее идет процедура Pers, которая рисует круг с заданными координатами и радиусом. Если персонаж пытается пересечь стену (то есть если его текущие координаты равны координатам границы лабиринта или если на границе есть черный цвет), то переменная d устанавливается в 0, что означает, что персонаж не может двигаться в этом направлении. В основной части программы происходит цикл, в котором считывается символ с клавиатуры. В зависимости от этого символа выполняются различные действия: перемещение влево, вправо, вверх или вниз. Если считанный символ - это символ выхода (#27), то программа завершается. Таким образом, данный код реализует игру, в которой персонаж перемещается по лабиринту, избегая пересечения стен.

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.286 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы