unit2.pas

来自「1.四个角分别被恐怖份子埋好了炸弹！你必须在限制的时间内和服从反恐专家的意见来解」· PAS 代码 · 共 47 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, OleCtrls, SHDocVw, StdCtrls;

type
  TForm2 = class(TForm)
    Shape1: TShape;
    Memo1: TMemo;
    Shape2: TShape;
    Memo2: TMemo;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
memo1.Text:='';
memo2.Text:='';
memo1.Text:='四个角分别被恐怖份子埋好了炸弹!你必须在限制的时间内和服从反恐专家的意见来解除炸弹!如果时间到了或你擅自进行行动将引起炸弹的爆炸,你必须对你的行为负责!注:解救时恐怖份子会不时的出现的!!';
//memo1.Lines.Add('按开始后你可以按(A、W、S、D默认的)来移动你的人物,在玩的时候请注意交通安全和上方屏幕给你提示,否则你会带来警察或者车祸！');

memo2.Lines.Add('第一关,时间*s,正确*处,红灯时间*s,专家解救方案(形式):');
memo2.Lines.Add('1.*灯+hand向下=解除*方');
 memo2.Lines.Add('2.*灯+hand向上=解除*方');
 memo2.Lines.Add('3.*灯+hand向左=解除*方');
 memo2.Lines.Add('4.第四处可要你自己判断了');
 memo2.Lines.Add('- - - - - - - - - - - - - - - - - - -');
 
 memo2.Lines.Add('第二关,时间?s,正确?处,红灯时间?s,增加其他颜色的灯,更换地图乡村篇,此版本为测试版,有好的建议QQ联系！');
 end;

end.