actor.~pas

来自「2009最新 传奇汉化0599代码 传奇汉化」· ~PAS 代码 · 共 1,480 行 · 第 1/5 页

  case Race of
    9{01}: Result:=@MA9; //475D70
    10{02}: Result:=@MA10; //475D7C
    11{03}: Result:=@MA11; //475D88
    12{04}: Result:=@MA12; //475D94
    13{05}: Result:=@MA14; //475DA0
    14{06}: Result:=@MA14; //475DAC
    15{07}: Result:=@MA15; //475DB8
    16{08}: Result:=@MA16; //475DC4
    17{06}: Result:=@MA14; //475DAC
    18{06}: Result:=@MA14; //475DAC
    19{0A}: Result:=@MA19; //475DDC
    20{0A}: Result:=@MA19; //475DDC
    21{0A}: Result:=@MA19; //475DDC
    22{07}: Result:=@MA15; //475DB8
    23{06}: Result:=@MA14; //475DAC
    24{04}: Result:=@MA12; //475D94
    30{09}: Result:=@MA17; //475DD0
    31{09}: Result:=@MA17; //475DD0
    32{0F}: Result:=@MA24; //475E18
    33{10}: Result:=@MA25; //475E24
    34{11}: Result:=@MA30; //475E30  赤月恶魔
    35{12}: Result:=@MA31; //475E3C
    36{13}: Result:=@MA32; //475E48
    37{0A}: Result:=@MA19; //475DDC
    40{0A}: Result:=@MA19; //475DDC
    41{0B}: Result:=@MA20; //475DE8
    42{0B}: Result:=@MA20; //475DE8
    43{0C}: Result:=@MA21; //475DF4
    45{0A}: Result:=@MA19; //475DDC
    47{0D}: Result:=@MA22; //475E00
    48{0E}: Result:=@MA23; //475E0C
    49{0E}: Result:=@MA23; //475E0C
    50{27}: begin//475F32
      case Appr of
        23{01}: Result := @MA36; //475F77
        24{02}: Result := @MA37; //475F80
        25{02}: Result := @MA37; //475F80
        26{00}: Result := @MA35; //475F9B
        27{02}: Result := @MA37; //475F80
        28{00}: Result := @MA35; //475F9B
        29{00}: Result := @MA35; //475F9B
        30{00}: Result := @MA35; //475F9B
        31{00}: Result := @MA35; //475F9B
        32{02}: Result := @MA37; //475F80
        33{00}: Result := @MA35; //475F9B
        34{00}: Result := @MA35; //475F9B
        35{03}: Result := @MA41; //475F89
        36{03}: Result := @MA41; //475F89
        37{03}: Result := @MA41; //475F89
        38{03}: Result := @MA41; //475F89
        39{03}: Result := @MA41; //475F89
        40{03}: Result := @MA41; //475F89
        41{03}: Result := @MA41; //475F89
        42{04}: Result := @MA46; //475F92
        43{04}: Result := @MA46; //475F92
        44{04}: Result := @MA46; //475F92
        45{04}: Result := @MA46; //475F92
        46{04}: Result := @MA46; //475F92
        47{04}: Result := @MA46; //475F92
        48{03}: Result := @MA41; //4777B3
        49{03}: Result := @MA41; //4777B3
        50{03}: Result := @MA41; //4777B3
        51{00}: Result := @MA35; //4777C5
        52{00}: Result := @MA35; //4777C5

        53{03}: Result := @MA41;
        54{03}: Result := @MA41;
        55{03}: Result := @MA41;
        56{05}: Result := @MA53;
        57{03}: Result := @MA41;
        58{03}: Result := @MA41;
        59{05}: Result := @MA53;
        60{03}: Result := @MA41;
        61{00}: Result := @MA35;
        62{00}: Result := @MA35;
        63{00}: Result := @MA35;
        64{00}: Result := @MA35;
        65{00}: Result := @MA35;
        66{00}: Result := @MA35;
        67{00}: Result := @MA35;
        68{05}: Result := @MA53;
        69{05}: Result := @MA53;
        70{05}: Result := @MA53;
        71{05}: Result := @MA53;
        72{05}: Result := @MA53;
        73{05}: Result := @MA53;
        else Result := @MA35;
      end;
    end;

    52{0A}: Result:=@MA19; //475DDC
    53{0A}: Result:=@MA19; //475DDC
    54{14}: Result:=@MA28; //475E54
    55{15}: Result:=@MA29; //475E60
    60{16}: Result:=@MA33; //475E6C
    61{16}: Result:=@MA33; //475E6C
    62{16}: Result:=@MA33; //475E6C
    63{17}: Result:=@MA34; //475E78
    64{18}: Result:=@MA19; //475E84
    65{18}: Result:=@MA19; //475E84
    66{18}: Result:=@MA19; //475E84
    67{18}: Result:=@MA19; //475E84
    68{18}: Result:=@MA19; //475E84
    69{18}: Result:=@MA19; //475E84
    70{19}: Result:=@MA33; //475E90
    71{19}: Result:=@MA33; //475E90
    72{19}: Result:=@MA33; //475E90
    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;
  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;

      49: Result := FrmMain.WMon50Img;
      50: Result := FrmMain.WMon51Img;
      51: Result := FrmMain.WMon52Img;
      52: Result := FrmMain.WMon53Img;
      53: Result := FrmMain.WMon54Img;
      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;  //8橇贰烙
      1:    Result := npos * 230;
      2,3,7..12:    Result := npos * 360;  //10橇贰烙 扁夯
      4:    begin
               Result := npos * 360;        //
               if npos = 1 then Result := 600;  //厚阜盔面
            end;
      5:    Result := npos * 430;   //
      6:    Result := npos * 440;   //
//      13:   Result := npos * 360;
      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 := 2260;
               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    //Fox mob's need's upto 13 but no point yet.
               0: Result := 0;
               1: Result := 440;
               2: Result := 820;
               {3: Result := 1810;   //Fox mob 3
               4: Result := 2320;    //Fox mob 4
               5: Result := 2920;    //Fox mob 5
               6: Result := 3270;    //Fox mob 6
               7: Result := 3620;  } //Fox mob 7
            end;
      49,50,51,52,53: Result := npos * 360;
      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