actor.pas

传奇源代码的delphi版本

    73{1A}: Result:=@MA19; //475E9C
    74{1B}: Result:=@MA19; //475EA8
    75{1C}: Result:=@MA39; //475EB4
    76{1D}: Result:=@MA38; //475EC0
    77{1E}: Result:=@MA39; //475ECC
    78{1F}: Result:=@MA40; //475ED8
    79{20}: Result:=@MA19; //475EE4
    80{21}: Result:=@MA42; //475EF0
    81{22}: Result:=@MA43; //475EFC
    83{23}: Result:=@MA44; //475F08
    84{24}: Result:=@MA47; //475F14
    85{24}: Result:=@MA47; //475F14
    86{24}: Result:=@MA47; //475F14
    87{24}: Result:=@MA47; //475F14
    88{24}: Result:=@MA47; //475F14
    89{24}: Result:=@MA47; //475F14
    90{11}: Result:=@MA47; //475E30
    98{25}: Result:=@MA27; //475F20
    99{26}: Result:=@MA26; //475F29
    101{19}: Result:=@MA33; //475E90
    102: Result:=@MA48;
    103: Result:=@MA49;
    104: Result:=@MA49;
    105: Result:=@MA49;
    106: Result:=@MA50;
    109: Result:=@MA51;
    110: Result:=@MA54;
    111: Result:=@MA51;
    112: Result:=@MA51;
    130: Result:=@MA60;
    131: Result:=@MA61;
    132: Result:=@MA61;
    133: Result:=@MA61;
    150: Result:=@MA61;
    151: Result:=@MA62;
    152: Result:=@MA63;
    149: Result:=@MA64;
    115: Result:=@MA65;
    116: Result:=@MA67;
  end
end;

function aGetMonImg (appr: integer): TWMImages;
var
  WMImage:TWMImages;
begin
   Result := FrmMain.WMonImg;
   case (appr div 10) of
      0: Result := FrmMain.WMonImg;
      1: Result := FrmMain.WMon2Img;
      2: Result := FrmMain.WMon3Img;
      3: Result := FrmMain.WMon4Img;
      4: Result := FrmMain.WMon5Img;
      5: Result := FrmMain.WMon6Img;
      6: Result := FrmMain.WMon7Img;
      7: Result := FrmMain.WMon8Img;
      8: Result := FrmMain.WMon9Img;
      9: Result := FrmMain.WMon10Img;
      10: Result := FrmMain.WMon11Img;
      11: Result := FrmMain.WMon12Img;
      12: Result := FrmMain.WMon13Img;
      13: Result := FrmMain.WMon14Img;
      14: Result := FrmMain.WMon15Img;
      15: Result := FrmMain.WMon16Img;
      16: Result := FrmMain.WMon17Img;
      17: Result := FrmMain.WMon18Img;
      18: Result := FrmMain.WMon19Img;
      19: Result := FrmMain.WMon20Img;
      20: Result := FrmMain.WMon21Img;
      21: Result := FrmMain.WMon22Img;
      22: Result := FrmMain.WMon23Img;
      23: Result := FrmMain.WMon24Img;
      24: Result := FrmMain.WMon25Img;
      25: Result := FrmMain.WMon26Img;
      26: Result := FrmMain.WMon27Img;
      27: Result := FrmMain.WMon28Img;
      28: Result := FrmMain.WMon29Img;
      80: Result := FrmMain.WDragonImg;
      90: Result := FrmMain.WEffectImg;
   end;
   {
   if (appr >= 1000) and FrmMain.GetMonImg(appr,WMImage) then begin
     Result:=WMImage;
   end;
   }
end;

function GetOffset (appr: integer): integer;
var
   nrace, npos: integer;
begin
   Result := 0;
   if (appr >= 1000) then exit;
   nrace := appr div 10;
   npos := appr mod 10;
   case nrace of
      0:    Result := npos * 280;
      1:    begin
               Result := npos * 350;
               if npos = 3 then Result := 740;
               if npos = 4 then Result := 1100;
            end;
      2,3,7..12:    Result := npos * 360;
      4:    begin
               Result := npos * 360;
               if npos = 1 then Result := 600;
            end;
      5:    Result := npos * 430;
      6:    Result := npos * 440;
      13: case npos of
            0: Result:= 0;
            1: Result:= 360;
            2: Result:= 440;
            3: Result:= 550;
            else Result:= npos * 360;
          end;
      14:   Result := npos * 360;
      15:   Result := npos * 360;
      16:   Result := npos * 360;
      17:   case npos of
               2: Result := 920;
               else Result := npos * 350;
            end;
      18:   case npos of
               0: Result := 0;
               1: Result := 520;
               2: Result := 950;
            end;
      19:   case npos of
               0: Result := 0;
               1: Result := 370;
               2: Result := 810;
               3: Result := 1250;
               4: Result := 1630;
               5: Result := 2010;
               6: Result := 2390;
            end;
      20:   case npos of
               0: Result := 0;
               1: Result := 360;
               2: Result := 720;
               3: Result := 1080;
               4: Result := 1440;
               5: Result := 1800;
               6: Result := 2350;
               7: Result := 3060;
            end;
      21:   case npos of
               0: Result := 0;
               1: Result := 460;
               2: Result := 820;
               3: Result := 1180;
               4: Result := 1540;
               5: Result := 1900;
               6: Result := 2440;
               7: Result := 2570;
               8: Result := 2700;
            end;
      22:   case npos of
               0: Result := 0;
               1: Result := 430;
               2: Result := 1290;
               3: Result := 1810;
               4: Result := 2320;
               5: Result := 2920;
               6: Result := 3270;
               7: Result := 3620;
            end;
      23:   case npos of
               0: Result := 0;
               1: Result := 440;
               2: Result := 820;
               3: Result := 1360;
               4: Result := 1420;
               5: Result := 1450;
               6: Result := 1560;
               7: Result := 1670;
               8: Result := 2270;
               9: Result := 2700;
            end;
      24:   case npos of
               0: Result := 0;
               1: Result := 350;
               2: Result := 700;
               3: Result := 1050;
               4: Result := 1650;
               5: Result := 3100;
               6: Result := 3450;
               7: Result := 3880;
               8: Result := 4230;
               9: Result := 4580;
            end;
      25:   case npos of
               0: Result := 0;
               1: Result := 350;
               2: Result := 700;
               3: Result := 1050;
               4: Result := 1400;
               5: Result := 1750;
               6: Result := 2180;
               7: Result := 2530;
               8: Result := 3000;
               9: Result := 3810;
            end;
      26:   case npos of
               0: Result := 0;
               1: Result := 370;
               2: Result := 720;
               3: Result := 1080;
               4: Result := 1430;
               5: Result := 1780;
               6: Result := 2290;
               7: Result := 2720;
               8: Result := 3150;
               9: Result := 4000;
            end;
      27:   case npos of
               0: Result := 0;
               1: Result := 350;
               2: Result := 700;
               3: Result := 1210;
               4: Result := 1720;
               5: Result := 2170;
               6: Result := 2250;
               7: Result := 2720;
               8: Result := 3390;
               9: Result := 3740;
            end;
      28:   case npos of
               0: Result := 0;
               1: Result := 510;
               2: Result := 1020;
               3: Result := 1370;
               4: Result := 1720;
               5: Result := 2070;
               6: Result := 2740;
               7: Result := 3780;
               8: Result := 3820;
            end;
      80:   case npos of
               0: Result := 0;
               1: Result := 80;
               2: Result := 300;
               3: Result := 301;
               4: Result := 302;
               5: Result := 320;
               6: Result := 321;
               7: Result := 322;
               8: Result := 321;
            end;
      90:   case npos of
               0: Result := 80;
               1: Result := 168;
               2: Result := 184;
               3: Result := 200;
            end;
      end;
end;

function GetNpcOffset(nAppr:Integer):Integer;
begin
  Result := 0;

  case nAppr of
    0..22: Result  := nAppr * 60;
    23: Result     := 1380;
    24, 25: Result := (nAppr - 24) * 60 + 1470;
    27, 32: Result := (nAppr - 26) * 60 + 1620 - 30;
    26, 28, 29, 30, 31, 33..41: Result := (nAppr - 26) * 60 + 1620;
    42, 43: Result := 2580;
    44..47: Result := 2640;
    48..50: Result := (nAppr - 48) * 60 + 2700;
    51: Result:=2880;
    52: Result:=2960;
    53..55: Result := (nAppr - 53) * 60 +