Delphi 經典遊戲程式設計40例的學習例2

阿新 • • 發佈：2021-11-21

unit rei40_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TRein40_02 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

const
  Yoko = 37;
  Tate = 27;

var
  Rein40_02: TRein40_02;

   Ptmap1: array[0..(37 * 27 - 1)] of Byte = (
    7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
    7,7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 7, 7, 8, 9, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 8, 9, 7, 7, 7, 7, 7,
    7, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1,10, 11, 1, 1, 1, 1, 7,
    7, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 8, 9, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 8, 9, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 8, 9, 7, 7, 7, 7, 7, 7,
    7, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 7,
    7, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      8, 9, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
     10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 8, 9, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
    7, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 8, 9, 7, 7, 7, 7, 7, 7, 7, 7, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 8, 9, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 8, 9, 7, 7, 7, 7, 7,
    7, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 7,
    7, 1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
      1, 1, 1, 1, 1, 1, 1,10,11, 1, 1, 1, 1, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
    7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
      7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7
  );

     Ptmap2: array[0..36, 0..26] of Byte = (
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,4,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,4,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2,12,12,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2,12,12,12,12),
    (2,2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2, 2, 2, 2,12,12,12,12,12,12),
    (2,2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,2,2, 2, 2, 2,12,12,12,12,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2,12,12,12,12),
    (2,2,2,5,6,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2,12,12,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,4,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,12, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,12, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,12, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,12, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,12, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2,12, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,12, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,2,2,12,12,12,12,12,12,12,12,12),
    (2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,2,2,2,12,12,12,12,12,12,12,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,3,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,4,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12),
    (2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2, 2, 2, 2, 2, 2, 2,12,12)
   );

   Load_Bmap : TBitmap;
   Make_Bmap : TBitmap;

   P,PX,PY,GX,GY : Byte;

   Rect_L,Rect_M : TRect;
   

implementation

{$R *.dfm}

procedure TRein40_02.FormCreate(Sender: TObject);
begin
  Rein40_02.Height := 480;
  Rein40_02.Width :=640;

  Button1.Height :=25;
  Button1.Width :=25;
  Button1.Top :=16;
  Button1.Left :=603;

  Button2.Height :=25;
  Button2.Width :=25;
  Button2.Top := 56;
  Button2.Left :=603;

  Load_Bmap := TBitmap.Create;
  Load_Bmap.LoadFromFile(GetCurrentDir + '\Pat_Sample.bmp');

  Make_Bmap := TBitmap.Create;
  Make_Bmap.Width := Yoko * 16;
  Make_Bmap.Height := Tate * 16;
  
end;

procedure TRein40_02.Button1Click(Sender: TObject);

var
  X,Y : Byte;

begin
  Make_Bmap.Canvas.CopyMode := cmSrcCopy ;
  for Y :=0  to (Tate -1) do
    for X :=0  to (Yoko - 1) do
    begin
      p := Ptmap1[ Y* Yoko + X] ;
      if p <> 0 then
      begin
        PX :=(p mod 16) * 16;
        PY :=(p div 16) * 16;

        Rect_L := Rect(PX,PY,PX+16,PY+16);
        Rect_M := Rect(x*16,y*16,x*16+16,y*16+16);

        Make_Bmap.Canvas.CopyRect(Rect_M,Load_Bmap.Canvas,Rect_L);

      end;

    end;

    Rein40_02.Canvas.CopyMode := cmSrcCopy;
    Rein40_02.Canvas.Draw(0,0,Make_Bmap);



end;

procedure TRein40_02.FormPaint(Sender: TObject);
begin
     Rein40_02.Canvas.CopyMode := cmSrcCopy;
    Rein40_02.Canvas.Draw(0,0,Make_Bmap);
end;

procedure TRein40_02.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Load_Bmap.Free;
  Make_Bmap.Free;
end;

end.

學習點：

1，圖樣的概念，pattern

2, 用圖樣組成圖形，

3，TBITMAP 類

4，圖樣做成圖形的資料結構，演算法。

Delphi 經典遊戲程式設計40例的學習 1

2021年11月20日 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Delphi 經典遊戲程式設計40例的學習例2

unit rei40_02; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Delphi 經典遊戲程式設計40例的學習例3 圖樣的重疊與多重地圖01

Xpat_Bmap :=TBitmap.Create; Xpat_Bmap.Width := 256; Xpat_Bmap.Height :=256; Rect_L :=Rect(0,0,256,256); Xpat_Bmap.Canvas.CopyMode :=cmSrcCopy;

Delphi 經典遊戲程式設計40例的學習例3 圖樣的重疊與多重地圖03

背景圖 + 前圖程式碼 unit rei40_02; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Delphi 經典遊戲程式設計40例的學習例7 星星的誕生與隕落

unit rei4007; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

Delphi 經典遊戲程式設計40例的學習例9 可大可小隨處移動的聚光燈處理

unit rei09; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;

Delphi 經典遊戲程式設計40例的學習例10 自動滾動功能與簡易零件貼圖

unit rei10; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;

SYSU-SSE 3D遊戲程式設計與設計學習筆記（5）--物理系統與碰撞

簡易打飛碟--改進版遊戲程式碼: 遊戲程式碼遊戲演示視訊: 演示視訊程式設計內容

Python經典程式設計習題100例：第2例

技術標籤：Python經典程式設計100例python圖論django字串程式語言不要自卑，去提升實力網際網路行業誰技術牛誰是爹如果文章可以帶給你能量，那是最好的事！請相信自己加油o~

Java經典程式設計習題100例：第7例：求2/1+3/2+5/3+8/5+13/8.....前20項之和

技術標籤：Java體系java演算法C語言c++python 不要自卑，去提升實力網際網路行業誰技術牛誰是爹如果文章可以帶給你能量，那是最好的事！請相信自己加油o~

Java經典程式設計習題100例：第2例：給定一個百分制的分數，輸出相應的等級

技術標籤：Java體系演算法javapythonc語言資料結構不要自卑，去提升實力網際網路行業誰技術牛誰是爹如果文章可以帶給你能量，那是最好的事！請相信自己加油o~

強化學習筆記10：經典遊戲示例 classic games

1、前沿 state of art 學習經典遊戲的原因規則簡單，細思又很深入歷史悠久，已經被研究了幾百年

QT學習例程1—翻金幣教程（教學視訊連結：https://www.bilibili.com/video/BV1g4411H78N?p=61）

1、專案簡介如圖所示，將所有的金幣都翻轉為金色，即可取得勝利。 2、專案基本配置

JAVA——以ReentrantLock為例學習重入鎖以及公平性問題

關注微信公眾號：CodingTechWork，一起學習交流進步。引言重入鎖，顧名思義在於這個重字。開發過程中，我們在用到鎖時，可能會用於遞迴的方法上加鎖，此時，那同一個方法物件去重複加鎖，是怎麼加的呢？本文一

【python】以souhu郵箱為例學習DDT資料驅動測試

前言 DDT（Data-Driven Tests）是針對 unittest 單元測試框架設計的擴充套件庫。允許使用不同的測試資料來執行一個測試用例，並將其展示為多個測試用例。通俗理解為相同的測試指令碼使用不同的測試資料來執行，測試

經典C記憶體管理疑難雜例（轉載）

一定要弄懂GetMemory 堆疊棧中分配區域性變數空間，是系統自動分配空間。定義一個 char a；系統會自動在棧上為其開闢空間。由於棧上的空間是自動分配自動回收的，所以棧上的資料的生存週期只是在函式的執行過程中，

對瀏覽器的工作原理的理解( 以chrome瀏覽器為例 ) --學習總結

首先，在瀏覽器中輸入網址（伺服器地址），瀏覽器會去下載相對應的靜態資原始檔，第一個下載的是html檔案（一般為index.html）,在html檔案中遇到類似的link標以及script標籤的時候，會去下載相對應的css檔案和javaSc

ENVI深度學習1.2版本物件檢測教程——以尋找特殊路面標誌為例

遙感中深度學習的一個常見用途是物件檢測（目標識別）。也就是說，識別特定物件，例如車輛和人造結構。物件檢測將特徵定位在物件級別，而不是畫素級別。物件是具有相似空間、光譜和紋理特徵的畫素組。相比之下，畫素

javascript實現貪吃蛇經典遊戲

js面向物件程式設計之貪吃蛇，供大家參考，具體內容如下首先：面向物件程式設計，我們要找到專案中具體的物件，此處為（食物（food），蛇（snake），遊戲本身（game））也可不把遊戲本身作為物件，邏輯體現出來即可

Python學習筆記(2)——函式與面向物件程式設計

目錄函式引數形參形參：函式完成其工作所需要的一項資訊實參返回值可變引數模組與函式匯入指定別名函式編寫規範面向物件類屬性與方法繼承模組與類python標準庫類程式設計規範

Delphi 經典遊戲程式設計40例 的學習 例2

相關推薦

Delphi 經典遊戲程式設計40例的學習例2