主页 / 问题 / 1094776
Accepted
ksilusm
Asked:2020-03-15 04:59:06 +0000 UTC2020-03-15 04:59:06 +0000 UTC

不能从计数器 1 中减去

  • 772

帮助请。我想写一个简单的“游戏”，每 0.5 秒。一个物体以随机坐标出现，用户必须借助RMB“删除”它，但如果屏幕上有10个物体，则游戏停止。问题是当对象出现时，计数器会加 1，但我不知道如何制作，以便在用户删除对象时从计数器中减去 1。我认为问题很清楚。

uses abcobjects, graphabc;

procedure deleteobj(x, y, mb: integer);
begin
  case mb of
    2:
      begin
        var ob := objectunderpoint(x, y);
        if ob <> nil then ob.Destroy;
      end;
    end;
end;

begin
  window.Width := 640;
  window.Height := 360;
  window.Caption := 'MyGame';
  window.Fill('.../font.jpg');
  var i:=0;
  while i<10 do
    begin
      onmousedown := deleteobj;
      var x1 := random(515 - 63 + 1) + 63;
      var y1 := random(254 - 53 + 1) + 53;
      pictureabc.create(x1, y1, '.../object.jpg');
      inc(i);
      sleep(500);
    end;
end.
pascalabc.net

1 个回答

  1. Best Answer
    var i := 0;

procedure deleteobj(x, y, mb: integer);
begin
  case mb of
    2:
      begin
        var ob := objectunderpoint(x, y);
        if ob <> nil then 
        begin
          ob.Destroy;
          Dec(i);
        end;
      end;
    end;
end;

begin
  window.Width := 640;
  window.Height := 360;
  window.Caption := 'MyGame';
  window.Fill('.../font.jpg');
  //var i:=0;
  while i<10 do
    ...
    • 1

相关问题