mshare.pas

传奇源代码的delphi版本

                            DItemShopAddFav   :(Image:831;Left:243;Top:430;Width:0;Height:0);
                            DItemShopBye   :(Image:787;Left:284;Top:430;Width:0;Height:0);
                            DItemShopGift   :(Image:789;Left:325;Top:430;Width:0;Height:0);
                            DItemShopPayMoney   :(Image:833;Left:366;Top:430;Width:0;Height:0);
                            DItemShopWear   :(Image:782;Left:539;Top:303;Width:0;Height:0);
                            DItemShopWearLturn   :(Image:784;Left:590;Top:305;Width:0;Height:0);
                            DItemShopWearChange   :(Image:783;Left:616;Top:304;Width:0;Height:0);
                            DItemShopWearRturn   :(Image:785;Left:641;Top:305;Width:0;Height:0);
                            DItemShopListPrev   :(Image:798;Left:345;Top:402;Width:0;Height:0);
                            DItemShopListNext   :(Image:799;Left:412;Top:402;Width:0;Height:0);
                            DShopScrollBarUp   :(Image:815;Left:122;Top:77;Width:0;Height:0);
                            DShopScrollBarDown   :(Image:816;Left:122;Top:403;Width:0;Height:0);
                            DShopScrollBar   :(Image:814;Left:122;Top:94;Width:0;Height:0);
                            DItemShopCaFav   :(Image:834;Left:26;Top:399;Width:0;Height:0);
                            DItemShopInPackBack   :(Image:796;Left:496;Top:78;Width:0;Height:0);
                            DItemShopCashRefresh   :(Image:810;Left:639;Top:435;Width:0;Height:0);
                            DItemShopPackSub1   :(Image:812;Left:216;Top:193;Width:0;Height:0);
                            DItemShopPackSub2   :(Image:812;Left:308;Top:193;Width:0;Height:0);
                            DItemShopPackSub3   :(Image:812;Left:400;Top:193;Width:0;Height:0);
                            DItemShopPackSub4   :(Image:812;Left:492;Top:193;Width:0;Height:0);
                            DItemShopPackSub5   :(Image:812;Left:216;Top:308;Width:0;Height:0);
                            DItemShopPackSub6   :(Image:812;Left:308;Top:308;Width:0;Height:0);
                            DItemShopPackSub7   :(Image:812;Left:400;Top:308;Width:0;Height:0);
                            DItemShopPackSub8   :(Image:812;Left:492;Top:308;Width:0;Height:0);
                            DItemShopFavDel1   :(Image:836;Left:152;Top:208;Width:0;Height:0);
                            DItemShopFavDel2   :(Image:836;Left:244;Top:208;Width:0;Height:0);
                            DItemShopFavDel3   :(Image:836;Left:336;Top:208;Width:0;Height:0);
                            DItemShopFavDel4   :(Image:836;Left:428;Top:208;Width:0;Height:0);
                            DItemShopFavDel5   :(Image:836;Left:152;Top:323;Width:0;Height:0);
                            DItemShopFavDel6   :(Image:836;Left:244;Top:323;Width:0;Height:0);
                            DItemShopFavDel7   :(Image:836;Left:336;Top:323;Width:0;Height:0);
                            DItemShopFavDel8   :(Image:836;Left:428;Top:323;Width:0;Height:0);
                            DItemShopPriceUp   :(Image:794;Left:374;Top:51;Width:0;Height:0);
                            DItemShopPriceDn   :(Image:792;Left:374;Top:51;Width:0;Height:0);
                            DItemShopCheckSort   :(Image:819;Left:354;Top:52;Width:0;Height:0);
                           );
  procedure InitObj();
  procedure LoadWMImagesLib(AOwner: TComponent);
  procedure InitWMImagesLib(DDxDraw: TDxDraw);
  procedure UnLoadWMImagesLib();
  function  GetObjs (nUnit,nIdx:Integer):TDirectDrawSurface;
  function  GetObjsEx (nUnit,nIdx:Integer; var px, py: integer): TDirectDrawSurface;
  function  GetMonImg (nAppr:Integer):TWMImages;
  function  GetMonAction (nAppr:Integer):pTMonsterAction;
  function  GetJobName (nJob:Integer):String;
  function  GetAttatckMode (m_btAttatckMode:Integer):String;
  procedure ClearShowItemList();
  function  GetItemType(ItemType:TItemType):String;
  function  GetShowItem(sItemName:String):pTShowItem;
  procedure LoadUserConfig(sUserName:String);
  procedure SaveUserConfig(sUserName:String);
  procedure SendClientMessage(msg, Recog, param, tag, series: integer; sMsg: String = '');
implementation
uses FState, HUtil32,clMain,EDCode;

procedure SendClientMessage(msg, Recog, param, tag, series: integer; sMsg: String = '');
var
   dmsg: TDefaultMessage;
begin
   dmsg := MakeDefaultMsg (msg, Recog, param, tag, series);
   if sMsg = '' then frmMain.SendSocket(EncodeMessage(dmsg))
   else frmMain.SendSocket(EncodeMessage(dmsg) + EncodeString(sMsg));
end;

procedure LoadWMImagesLib(AOwner: TComponent);
var
  I:Integer;
begin
  g_WMainImages        := TWMImages.Create(AOwner);
  g_WMain2Images       := TWMImages.Create(AOwner);
  g_WMain3Images       := TWMImages.Create(AOwner);
  g_WChrSelImages      := TWMImages.Create(AOwner);
  g_WMMapImages        := TWMImages.Create(AOwner);
  g_WTilesImages       := TWMImages.Create(AOwner);
  g_WSmTilesImages     := TWMImages.Create(AOwner);
  g_WHumWingImages     := TWMImages.Create(AOwner);
  g_WBagItemImages     := TWMImages.Create(AOwner);
  g_WStateItemImages   := TWMImages.Create(AOwner);
  g_WDnItemImages      := TWMImages.Create(AOwner);
  g_WHumImgImages      := TWMImages.Create(AOwner);
  g_WHum2ImgImages     := TWMImages.Create(AOwner);
  g_WHairImgImages     := TWMImages.Create(AOwner);
  g_WHorseImgImages    := TWMImages.Create(AOwner);
  g_WHelmetImgImages   := TWMImages.Create(AOwner);
  g_WTransFormImages   := TWMImages.Create(AOwner);
  g_WWeaponImages      := TWMImages.Create(AOwner);
  g_WMagIconImages     := TWMImages.Create(AOwner);
  g_WNpcImgImages      := TWMImages.Create(AOwner);
  g_WMagicImages       := TWMImages.Create(AOwner);
  g_WMagic2Images      := TWMImages.Create(AOwner);
  g_WMagic3Images      := TWMImages.Create(AOwner);
  g_WMagic4Images      := TWMImages.Create(AOwner);
  g_WDecoImages        := TWMImages.Create(AOwner);
{$IF CUSTOMLIBFILE = 1}  
  g_WEventEffectImages := TWMImages.Create(AOwner);
{$IFEND}
  FillChar(g_WObjectArr,SizeOf(g_WObjectArr),0);
  FillChar(g_WMonImagesArr,SizeOf(g_WMonImagesArr),0);
end;

procedure InitWMImagesLib(DDxDraw: TDxDraw);
var
  sFileName:String;
  I:Integer;
begin
  g_WMainImages.DxDraw    := DDxDraw;
  g_WMainImages.DDraw     := DDxDraw.DDraw;
  g_WMainImages.FileName  := MAINIMAGEFILE;
  g_WMainImages.LibType   := ltUseCache;
  g_WMainImages.Initialize;

  g_WMain2Images.DxDraw   := DDxDraw;
  g_WMain2Images.DDraw    := DDxDraw.DDraw;
  g_WMain2Images.FileName := MAINIMAGEFILE2;
  g_WMain2Images.LibType  := ltUseCache;
  g_WMain2Images.Initialize;

  g_WMain3Images.DxDraw   := DDxDraw;
  g_WMain3Images.DDraw    := DDxDraw.DDraw;
  g_WMain3Images.FileName := MAINIMAGEFILE3;
  g_WMain3Images.LibType  := ltUseCache;
  g_WMain3Images.Initialize;

  g_WChrSelImages.DxDraw   := DDxDraw;
  g_WChrSelImages.DDraw    := DDxDraw.DDraw;
  g_WChrSelImages.FileName := CHRSELIMAGEFILE;
  g_WChrSelImages.LibType  := ltUseCache;
  g_WChrSelImages.Initialize;

  g_WMMapImages.DxDraw     := DDxDraw;
  g_WMMapImages.DDraw      := DDxDraw.DDraw;
  g_WMMapImages.FileName   := MINMAPIMAGEFILE;
  g_WMMapImages.LibType    := ltUseCache;
  g_WMMapImages.Initialize;

  g_WTilesImages.DxDraw    := DDxDraw;
  g_WTilesImages.DDraw     := DDxDraw.DDraw;
  g_WTilesImages.FileName  := TITLESIMAGEFILE;
  g_WTilesImages.LibType   := ltUseCache;
  g_WTilesImages.Initialize;

  g_WSmTilesImages.DxDraw   := DDxDraw;
  g_WSmTilesImages.DDraw    := DDxDraw.DDraw;
  g_WSmTilesImages.FileName := SMLTITLESIMAGEFILE;
  g_WSmTilesImages.LibType  := ltUseCache;
  g_WSmTilesImages.Initialize;

  g_WHumWingImages.DxDraw   := DDxDraw;
  g_WHumWingImages.DDraw    := DDxDraw.DDraw;
  g_WHumWingImages.FileName := HUMWINGIMAGESFILE;
  g_WHumWingImages.LibType  := ltUseCache;
  g_WHumWingImages.Initialize;

  g_WBagItemImages.DxDraw   := DDxDraw;
  g_WBagItemImages.DDraw    := DDxDraw.DDraw;
  g_WBagItemImages.FileName := BAGITEMIMAGESFILE;
  g_WBagItemImages.LibType  := ltUseCache;
  g_WBagItemImages.Initialize;

  g_WStateItemImages.DxDraw   := DDxDraw;
  g_WStateItemImages.DDraw    := DDxDraw.DDraw;
  g_WStateItemImages.FileName := STATEITEMIMAGESFILE;
  g_WStateItemImages.LibType  := ltUseCache;
  g_WStateItemImages.Initialize;

  g_WDnItemImages.DxDraw:=DDxDraw;
  g_WDnItemImages.DDraw:=DDxDraw.DDraw;
  g_WDnItemImages.FileName:=DNITEMIMAGESFILE;
  g_WDnItemImages.LibType:=ltUseCache;
  g_WDnItemImages.Initialize;

  g_WHumImgImages.DxDraw:=DDxDraw;
  g_WHumImgImages.DDraw:=DDxDraw.DDraw;
  g_WHumImgImages.FileName:=HUMIMGIMAGESFILE;
  g_WHumImgImages.LibType:=ltUseCache;
  g_WHumImgImages.Initialize;

  g_WHum2ImgImages.DxDraw:=DDxDraw;
  g_WHum2ImgImages.DDraw:=DDxDraw.DDraw;
  g_WHum2ImgImages.FileName:=HUM2IMGIMAGESFILE;
  g_WHum2ImgImages.LibType:=ltUseCache;
  g_WHum2ImgImages.Initialize;

  g_WHairImgImages.DxDraw:=DDxDraw;
  g_WHairImgImages.DDraw:=DDxDraw.DDraw;
  g_WHairImgImages.FileName:=HAIRIMGIMAGESFILE;
  g_WHairImgImages.LibType:=ltUseCache;
  g_WHairImgImages.Initialize;

  g_WHorseImgImages.DxDraw:=DDxDraw;
  g_WHorseImgImages.DDraw:=DDxDraw.DDraw;
  g_WHorseImgImages.FileName:=HORSEIMAGEFILE;
  g_WHorseImgImages.LibType:=ltUseCache;
  g_WHorseImgImages.Initialize;

  g_WHelmetImgImages.DxDraw:=DDxDraw;
  g_WHelmetImgImages.DDraw:=DDxDraw.DDraw;
  g_WHelmetImgImages.FileName:=HELMETIMAGEFILE;
  g_WHelmetImgImages.LibType:=ltUseCache;
  g_WHelmetImgImages.Initialize;

  g_WTransFormImages.DxDraw:=DDxDraw;
  g_WTransFormImages.DDraw:=DDxDraw.DDraw;
  g_WTransFormImages.FileName:=TRANSFORMIMAGEFILE;
  g_WTransFormImages.LibType:=ltUseCache;
  g_WTransFormImages.Initialize;

  g_WWeaponImages.DxDraw:=DDxDraw;
  g_WWeaponImages.DDraw:=DDxDraw.DDraw;
  g_WWeaponImages.FileName:=WEAPONIMAGESFILE;
  g_WWeaponImages.LibType:=ltUseCache;
  g_WWeaponImages.Initialize;

  g_WMagIconImages.DxDraw:=DDxDraw;
  g_WMagIconImages.DDraw:=DDxDraw.DDraw;
  g_WMagIconImages.FileName:=MAGICONIMAGESFILE;
  g_WMagIconImages.LibType:=ltUseCache;
  g_WMagIconImages.Initialize;

  g_WNpcImgImages.DxDraw:=DDxDraw;
  g_WNpcImgImages.DDraw:=DDxDraw.DDraw;
  g_WNpcImgImages.FileName:=NPCIMAGESFILE;
  g_WNpcImgImages.LibType:=ltUseCache;
  g_WNpcImgImages.Initialize;

  g_WMagicImages.DxDraw:=DDxDraw;
  g_WMagicImages.DDraw:=DDxDraw.DDraw;
  g_WMagicImages.FileName:=MAGICIMAGESFILE;
  g_WMagicImages.LibType:=ltUseCache;
  g_WMagicImages.Initialize;

  g_WMagic2Images.DxDraw:=DDxDraw;
  g_WMagic2Images.DDraw:=DDxDraw.DDraw;
  g_WMagic2Images.FileName:=MAGIC2IMAGESFILE;
  g_WMagic2Images.LibType:=ltUseCache;
  g_WMagic2Images.Initialize;

  g_WMagic3Images.DxDraw:=DDxDraw;
  g_WMagic3Images.DDraw:=DDxDraw.DDraw;
  g_WMagic3Images.FileName:=MAGIC3IMAGESFILE;
  g_WMagic3Images.LibType:=ltUseCache;
  g_WMagic3Images.Initialize;

  g_WMagic4Images.DxDraw:=DDxDraw;
  g_WMagic4Images.DDraw:=DDxDraw.DDraw;
  g_WMagic4Images.FileName:=MAGIC4IMAGESFILE;
  g_WMagic4Images.LibType:=ltUseCache;
  g_WMagic4Images.Initialize;

  g_WDecoImages.DxDraw:=DDxDraw;
  g_WDecoImages.DDraw:=DDxDraw.DDraw;
  g_WDecoImages.FileName:=DECOIMAGEFILE;
  g_WDecoImages.LibType:=ltUseCache;
  g_WDecoImages.Initialize;
{$IF CUSTOMLIBFILE = 1}
  g_WEventEffectImages.DxDraw:=DDxDraw;
  g_WEventEffectImages.DDraw:=DDxDraw.DDraw;
  g_WEventEffectImages.FileName:=EVENTEFFECTIMAGESFILE;
  g_WEventEffectImages.LibType:=ltUseCache;
  g_WEventEffectImages.Initialize;
{$IFEND}

end;

procedure UnLoadWMImagesLib();
var
  I:Integer;
begin
  for I := Low(g_WObjectArr) to High(g_WObjectArr) do begin
    if g_WObjectArr[I] <> nil then begin
      g_WObjectArr[I].Finalize;
      g_WObjectArr[I].Free;
    end;
  end;
  for I := Low(g_WMonImagesArr) to High(g_WMonImagesArr) do begin
    if g_WMonImagesArr[I] <> nil then begin
      g_WMonImagesArr[I].Finalize;
      g_WMonImagesArr[I].Free;
    end;
  end;

  g_WMainImages.Finalize;
  g_WMainImages.Free;

  g_WMain2Images.Finalize;
  g_WMain2Images.Free;

  g_WMain3Images.Finalize;
  g_WMain3Images.Free;
  
  g_WChrSelImages.Finalize;
  g_WChrSelImages.Free;

  g_WMMapImages.Finalize;
  g_WMMapImages.Free;

  g_WTilesImages.Finalize;
  g_WTilesImages.Free;

  g_WSmTilesImages.Finalize;
  g_WSmTilesImages.Free;

  g_WHumWingImages.Finalize;
  g_WHumWingImages.Free;

  g_WBagItemImages.Finalize;
  g_WBagItemImages.Free;

  g_WStateItemImages.Finalize;
  g_WStateItemImages.Free;

  g_WDnItemImages.Finalize;
  g_WDnItemImages.Free;

  g_WHumImgImages.Finalize;
  g_WHumImgImages.Free;

  g_WHum2ImgImages.Finalize;
  g_WHum2ImgImages.Free;

  g_WHairImgImages.Finalize;
  g_WHairImgImages.Free;

  g_WHorseImgImages.Finalize;
  g_WHorseImgImages.Free;

  g_WHelmetImgImages.Finalize;
  g_WHelmetImgImages.Free;

  g_WTransFormImages.Finalize;
  g_WTransFormImages.Free;

  g_WWeaponImages.Finalize;
  g_WWeaponImages.Free;

  g_WMagIconImages.Finalize;
  g_WMagIconImages.Free;

  g_WNpcImgImages.Finalize;
  g_WNpcImgImages.Free;

  g_WMagicImages.Finalize;