unit1.pas

来自「绝对经典的RPG类游戏」· PAS 代码 · 共 1,954 行 · 第 1/5 页

  Figure05.Centery:=45;
  Figure05.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure05);
  AniView1.SetFigurePos(Figure05,3,14,0);

    {cwbhouse}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\hose5.bmp');
  Figure06.CenterX:=70;
  Figure06.Centery:=50;
  Figure06.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure06);
  AniView1.SetFigurePos(Figure06,5,10,0);


      {zwhouse}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\hose6.bmp');
  Figure07.CenterX:=74;
  Figure07.Centery:=50;
  Figure07.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure07);
  AniView1.SetFigurePos(Figure07,12,2,0);




      {tree01}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree01.bmp');
  Figure08.CenterX:=22;
  Figure08.Centery:=79;
  Figure08.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure08);
  AniView1.SetFigurePos(Figure08,13,5,0);

      {tree02}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree01.bmp');
  Figure09.CenterX:=22;
  Figure09.Centery:=79;
  Figure09.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure09);
  AniView1.SetFigurePos(Figure09,2,2,0);

      {tree03}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree01.bmp');
  Figure10.CenterX:=22;
  Figure10.Centery:=79;
  Figure10.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure10);
  AniView1.SetFigurePos(Figure10,3,20,0);

      {tree03}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree01.bmp');
  Figure11.CenterX:=22;
  Figure11.Centery:=79;
  Figure11.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure11);
  AniView1.SetFigurePos(Figure11,4,27,0);

        {tree04}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree02.bmp');
  Figure12.CenterX:=21;
  Figure12.Centery:=54;
  Figure12.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure12);
  AniView1.SetFigurePos(Figure12,5,24,0);

          {tree04}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree02.bmp');
  Figure13.CenterX:=21;
  Figure13.Centery:=54;
  Figure13.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure13);
  AniView1.SetFigurePos(Figure13,8,16,0);

          {tree05}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree02.bmp');
  Figure14.CenterX:=21;
  Figure14.Centery:=54;
  Figure14.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure14);
  AniView1.SetFigurePos(Figure14,17,17,0);

          {tree06}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree03.bmp');
  Figure15.CenterX:=25;
  Figure15.Centery:=64;
  Figure15.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure15);
  AniView1.SetFigurePos(Figure15,12,16,0);

          {tree07}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree03.bmp');
  Figure16.CenterX:=25;
  Figure16.Centery:=64;
  Figure16.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure16);
  AniView1.SetFigurePos(Figure16,18,27,0);


          {tree08}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree04.bmp');
  Figure17.CenterX:=35;
  Figure17.Centery:=74;
  Figure17.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure17);
  AniView1.SetFigurePos(Figure17,2,30,0);

          {tree09}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree05.bmp');
  Figure18.CenterX:=15;
  Figure18.Centery:=83;
  Figure18.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure18);
  AniView1.SetFigurePos(Figure18,5,35,0);

          {tree10}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree06.bmp');
  Figure19.CenterX:=23;
  Figure19.Centery:=91;
  Figure19.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure19);
  AniView1.SetFigurePos(Figure19,17,36,0);

          {cloud}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree01.bmp');
  Figure20.Shadow:=true;
  Figure20.CenterX:=22;
  Figure20.Centery:=79;
  Figure20.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure20);
  AniView1.SetFigurePos(Figure20,2,16,0);


      {chjhouse}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\hose4.bmp');
  Figure21.CenterX:=56;
  Figure21.Centery:=47;
  Figure21.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure21);
  AniView1.SetFigurePos(Figure21,3,7,0);

      {tdhouse}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\hose8.bmp');
  Figure22.CenterX:=50;
  Figure22.Centery:=50;
  Figure22.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure22);
  AniView1.SetFigurePos(Figure22,14,19,0);


  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\hose9.bmp');
  Figure23.Shadow:=true;
  Figure23.CenterX:=25;
  Figure23.Centery:=34;
  Figure23.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure23);
  AniView1.SetFigurePos(Figure23,7,6,0);


           {tree07}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree03.bmp');
  Figure24.CenterX:=25;
  Figure24.Centery:=64;
  Figure24.Picture[1]:=figureimg.Picture.Bitmap;
  Figure24.Shadow:=true;
  AniView1.AddFigure(Figure24);
  AniView1.SetFigurePos(Figure24,0,8,0);


  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree04.bmp');
  Figure25.CenterX:=35;
  Figure25.Centery:=74;
  Figure25.Shadow:=true;
  Figure25.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure25);
  AniView1.SetFigurePos(Figure25,3,11,0);

  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\tree06.bmp');
  Figure26.CenterX:=23;
  Figure26.Centery:=91;
  Figure26.Shadow:=true;
  Figure26.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure26);
  AniView1.SetFigurePos(Figure26,2,14,0);

  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\skyf.bmp');
  Figure27.CenterX:=40;
  Figure27.Centery:=30;
  Figure27.Shadow:=true;
  Figure27.Passable:=true;
  Figure27.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure27);
  AniView1.SetFigurePos(Figure27,10,30,6);

  Figure28.CenterX:=10;
  Figure28.CenterY:=19;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC74-1.bmp');
  Figure28.Picture[1]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC74-2.bmp');
  Figure28.Picture[2]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC74-3.bmp');
  Figure28.Picture[3]:=imgFigure.Picture.Bitmap;
  Figure28.Shadow:=false;
  Figure28.SetScript(1,[1,1,1,1,2,2,2,2,3,3,3,3,1,1,1,1]);
  AniView1.AddFigure(Figure28);
  AniView1.SetFigurePos(Figure28,3,6,4);
  Figure28.PlayScript(1,True);
  Figure28.Speed:=1.5;

  Figure29.CenterX:=10;
  Figure29.CenterY:=19;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC75-1.bmp');
  Figure29.Picture[1]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC75-2.bmp');
  Figure29.Picture[2]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC75-3.bmp');
  Figure29.Picture[3]:=imgFigure.Picture.Bitmap;
  Figure29.Shadow:=false;
  Figure29.SetScript(1,[1,1,1,1,2,2,2,2,3,3,3,3,1,1,1,1]);
  AniView1.AddFigure(Figure29);
  AniView1.SetFigurePos(Figure29,12,16,4);
  Figure29.PlayScript(1,True);
  Figure29.Speed:=1.5;

  Figure30.CenterX:=10;
  Figure30.CenterY:=19;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC76-1.bmp');
  Figure30.Picture[1]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC76-2.bmp');
  Figure30.Picture[2]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\NPC76-3.bmp');
  Figure30.Picture[3]:=imgFigure.Picture.Bitmap;
  Figure30.Shadow:=false;
  Figure30.SetScript(1,[1,1,1,1,2,2,2,2,3,3,3,3,1,1,1,1]);
  AniView1.AddFigure(Figure30);
  AniView1.SetFigurePos(Figure30,3,26,4);
  Figure30.PlayScript(1,True);
  Figure30.Speed:=1.5;


  AniView1.Active:=True;

        {===================================================================================}
         END;


      1: BEGIN
         {===================================================================================}
            floorimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\imgtile1.bmp');    {地板}
  Colors:=GetDeviceCaps(AniView1.Canvas.handle,NUMCOLORS);
  AniView1.Palette:=floorimg.Picture.Bitmap.Palette;
  AniMap1.Width:=25;
  AniMap1.Height:=22;



  with AniMap1 do
  begin

   Tile[1]:=floorimg.Picture.Bitmap;
   floorimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\imgWall01.bmp');
   Tile[2]:=floorimg.Picture.Bitmap;
   floorimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\imgWall02.bmp');
   Tile[3]:=floorimg.Picture.Bitmap;
   floorimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\Imgwindow1.bmp');
   Tile[4]:=floorimg.Picture.Bitmap;
   floorimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\Imgwindow2.bmp');
   Tile[5]:=floorimg.Picture.Bitmap;











      {扑地皮}
    SetGridRange(0,0,AniMap1.Width-1,AniMap1.Height-1,1,True);

     {四面围墙}
    SetGridRange(24,1,24,21,3,false);  {'/'}
    SetGridRange(1,0,25,0,2,false);  {'\}
    SetGridRange(1,21,25,21,2,false);  {\'}
    SetGridRange(4,10,25,10,2,false);  {'\'}
    SetGridRange(14,11,14,18,3,false);  {'/'}
    SetGridRange(0,7,0,21,3,false);  {'/'}
    SetGridRange(0,1,0,4,3,false);  {'/'}

   {窗户}
      GridTile[0,16]:=4;
      GridTile[14,14]:=4;
      GridTile[18,10]:=5;


  end;


   AniView1.Map:=AniMap1;


  Figure.X:=5;
  Figure.Y:=35;
  Figure.Z:=0;
  Figure.CenterX:=9;
  Figure.CenterY:=49;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy01.bmp');
  Figure.Picture[1]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy02.bmp');
  Figure.Picture[2]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy03.bmp');
  Figure.Picture[3]:=imgFigure.Picture.Bitmap;


  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy11.bmp');
  Figure.Picture[4]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy12.bmp');
  Figure.Picture[5]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy13.bmp');
  Figure.Picture[6]:=imgFigure.Picture.Bitmap;





    imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy21.bmp');
  Figure.Picture[7]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy22.bmp');
  Figure.Picture[8]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy23.bmp');
  Figure.Picture[9]:=imgFigure.Picture.Bitmap;

    imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy31.bmp');
  Figure.Picture[10]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy32.bmp');
  Figure.Picture[11]:=imgFigure.Picture.Bitmap;
  imgFigure.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\humainlxy33.bmp');
  Figure.Picture[12]:=imgFigure.Picture.Bitmap;




  Figure.SetScript(1,[1,1,1,1,2,2,2,2,1,1,1,1,3,3,3,3]);
  AniView1.AddFigure(Figure);
  AniView1.SetFigurePos(Figure,5,5,0);
  Figure.PlayScript(1,True);
  AniView1.SetKeyFigure(Figure);
   Figure.Speed:=1.5;

  {chjdesk}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\imgdesk13.bmp');
  Figure01.CenterX:=46;
  Figure01.Centery:=69;
  Figure01.Picture[1]:=figureimg.Picture.Bitmap;
  Figure01.Shadow:=true;
  AniView1.AddFigure(Figure01);
  AniView1.SetFigurePos(Figure01,20,2,0);


   {chjfontdesk}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\imgdesk11.bmp');
  Figure02.CenterX:=46;
  Figure02.Centery:=60;
  Figure02.Shadow:=true;
  Figure02.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure02);
  AniView1.SetFigurePos(Figure02,11,2,0);


   {ljwleftdesk}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\imgdesk12.bmp');
  Figure03.CenterX:=46;
  Figure03.Centery:=70;
  Figure03.Shadow:=true;
  Figure03.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure03);
  AniView1.SetFigurePos(Figure03,20,8,0);


   {ljwfontdesk}
  figureimg.Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'imgdat\imgdesk7.bmp');
  Figure04.CenterX:=50;
  Figure04.Centery:=60;
  Figure04.Shadow:=true;
  Figure04.Picture[1]:=figureimg.Picture.Bitmap;
  AniView1.AddFigure(Figure04);
  AniView1.SetFigurePos(Figure04,14,8,0);


   {tbdesk}