Баллы при рандом - перемещении

@Nassy_Mur · Регистрация: 29.11.2019

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

Доброго времени суток! Пишу игру на паскале, возникли некоторые сложности. Суть игры такая: круг, управляемый клавишами, собирает квадраты, за это даются баллы. Я сделала так чтобы квадраты при совмещении с кругом рандомно перемещаются и при этом перемещении выдается 100 баллов. Они то видны, но только в тот момент когда круг и квадрат находятся в одной точке, а когда квадрат перемещается, баллы исчезают. Помогите пожалуйста решить проблему. Вот мой код:

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Uses graphABC;
 Const Image_1='4321.png';
Var
 p:picture;
 x,y,xsqr,ysqr,flag:integer;
 f:boolean;
 
procedure klavisha(key:integer);
 
Begin
 case key of
   VK_Up:y:=y-1;
   VK_Down:y:=y+1;
   VK_Left:x:=x-1;
   VK_Right:x:=x+1;
 end;
end;
 
procedure sharic;
 
Begin
SetBrushColor(clRed);
 If flag=1 then
  begin
   xsqr:=random(0,1292);
   ysqr:=random(0,500);
   flag:=0;
  end;
 If x=xsqr  then flag:=1;
 If y=ysqr then flag:=1;
SetBrushColor(clBlack);
Line(1292,0,1292,1000);
SetBrushColor(clRed);
Rectangle(xsqr-15,ysqr-15,xsqr+15,ysqr+15);
Circle(x,y,30);
FloodFill(0,0,clLightSkyBlue);
SetBrushColor(clWhite);
Rectangle(0,0,180,60);
SetPenColor(clBlack);
SetFontSize(30);
TextOut(25,10,'0 0 0 0');
 If x=xsqr then TextOut(25,10, '0 1 0 0');
 If y=ysqr then TextOut(25,10, '0 1 0 0');
p:=Picture.Create (Image_1);
p.Load(Image_1); 
p.Draw(1080,0);
SetBrushColor(clYellow);
Rectangle(100,150,600,200);
Rectangle(800,150,1100,200);
Rectangle(50,300,400,350);
Rectangle(600,300,1000,350);
Rectangle(200,450,650,500);
Rectangle(900,450,1250,500);
Rectangle(50,600,500,650);
Rectangle(700,600,1150,650);
Rectangle(100,750,600,800);
Rectangle(800,750,1100,800);
SetBrushColor(clGreen);
Rectangle(0,900,1600,1000);
Redraw;
end;
 
Begin
randomize;
flag:=1;
f:=true;
x:=WindowWidth div 2;
y:=WindowHeight div 2;
LockDrawing;
Repeat
ClearWindow;
OnKeyDown:=klavisha; sharic;
Sleep(50);
Redraw;
until not f;
end.

@Ksardas_178 · 05.01.2020, 19:57

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
Uses graphABC;
 
const
  Image_1 = '4321.png';
 
var
  p: picture;
  gamePoints, x, y, xsqr, ysqr: integer;
  (f, flag):= (true, true);
  
 
procedure klavisha(key: integer);
 
begin
  case key of
    VK_Up: y -= 1;
    VK_Down: y += 1;
    VK_Left: x -= 1;
    VK_Right: x += 1;
  end;
end;
 
function getTextPoints(p:Integer):String;
begin
  for var i:=1 to 4 do
    begin
    result+=p mod 10+' ';
    p:=p div 10;
    end;
    result:=result.Inverse;
end;
 
procedure sharic;
 
begin
  SetBrushColor(clRed);
  if (flag) then
  begin
    xsqr := random(0, 1292);
    ysqr := random(0, 500);
    flag := false;
  end;
  if (x = xsqr) or (y = ysqr)  then flag := true;
  SetBrushColor(clBlack);
  Line(1292, 0, 1292, 1000);
  SetBrushColor(clRed);
  Rectangle(xsqr - 15, ysqr - 15, xsqr + 15, ysqr + 15);
  Circle(x, y, 30);
  FloodFill(0, 0, clLightSkyBlue);
  SetBrushColor(clWhite);
  Rectangle(0, 0, 180, 60);
  SetPenColor(clBlack);
  SetFontSize(30);
  if (flag) then gamePoints+=100;
  TextOut(25, 10, getTextPoints(gamePoints));
  p := Picture.Create(Image_1);
  p.Load(Image_1); 
  p.Draw(1080, 0);
  SetBrushColor(clYellow);
  Rectangle(100, 150, 600, 200);
  Rectangle(800, 150, 1100, 200);
  Rectangle(50, 300, 400, 350);
  Rectangle(600, 300, 1000, 350);
  Rectangle(200, 450, 650, 500);
  Rectangle(900, 450, 1250, 500);
  Rectangle(50, 600, 500, 650);
  Rectangle(700, 600, 1150, 650);
  Rectangle(100, 750, 600, 800);
  Rectangle(800, 750, 1100, 800);
  SetBrushColor(clGreen);
  Rectangle(0, 900, 1600, 1000);
  Redraw;
end;
 
begin
  randomize;
  x := WindowWidth div 2;
  y := WindowHeight div 2;
  LockDrawing;
  repeat
    ClearWindow;
    OnKeyDown := klavisha; 
    sharic;
    Sleep(50);
    Redraw;
  until not f;
end.

Добавлено через 1 час 7 минут
И вот эту часть кода можно вынести из цикла перерисовки. Вам не нужно каждый раз загружать картинку в переменную. Только один раз - в самом начале.

Pascal
1
2
  p := Picture.Create(Image_1);
  p.Load(Image_1);

@Nassy_Mur · 05.01.2020, 20:15 **[ТС]**

Большое спасибо

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию 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-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Nassy_Mur 0 / 0 / 0 Регистрация: 29.11.2019 Сообщений: 28
	05.01.2020, 20:15 [ТС]
	Большое спасибо 0

Баллы при рандом - перемещении

Решение