切换到宽版
sm

立即登录 | 账号注册

积分: 0 |用户组: 游客

快捷导航
搜索
传奇3
传奇3
热血传奇
热血传奇
一条龙
一条龙
版本库
版本库
服务器租用 传奇3一条龙 支付平台源码 无法下载点击此处反馈
美林GM论坛,传奇一条龙,传奇版本库,GM基地»GM论坛 › 资源中心 › 游戏源码交流 › Gom引擎全套源码传奇引擎GOM源代码首发
123下一页
返回列表 发新帖
查看: 2003|回复: 29

[传奇源码] Gom引擎全套源码传奇引擎GOM源代码首发

[复制链接]
夜游神实名认证 信用认证

826

主题

36

回帖

23万

积分

霸王教主

积分
235297
发表于 2023-8-11 00:54:55 | 显示全部楼层 |阅读模式
作为传奇私服业内最火爆的引擎，Gameofmir引擎(简称Gom引擎)凭借着自身的特色和稳定一直稳居私服引擎榜首。

占据了传奇私服引擎界90%的市场份额，自从2015年11月8日GOM引擎停止更新之后，私服引擎市场的运营者称“Gom之后 再无引擎”可见GOM引擎在私服运营者心中的地位如此之高！

在网络上也有很多源码高手，一直在寻找或者花高价几万几十万几百万寻找GOM引擎源码，可是一直都没有源码放出。

今天就把GOM引擎的源码放出来，让各位喜欢传奇引擎源码的朋友做研究，本引擎源码为Gom商业引擎无错版，今日免费放出，

也希望各位传奇引擎源码爱好者不要再花钱买一些垃圾，也不要被一些打着GOM引擎源码旗号的骗子欺骗，本源码的下载只能做单机研究，如做商业用途产生的一切纠纷，本站不担任何责任！

此源码为商业全套包括注册机源码等，喜欢的就下载吧,语言是采用Delphi的

login的工作原理 我似乎搞清楚了

客户端发送登陆信息到logingate


logingate 处理包 过滤包 过滤IP


在发送给 loginsrv

loginsrv发送信息给logingate


logingate处理数据 然后发送给客户端

iplist.txt 绿色通道 不添加到禁止地址 不过滤cc攻击
IMG_1485(20230604-023008).JPG IMG_1486(20230604-023013).JPG
  1. unit FState;

  3. interface

  5. uses
  6.   Windows, Messages, SysUtils, StrUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DWinCtl, StdCtrls, Textures, Grids, Grobal2, ClFunc, HUtil32, Actor,
  8.   MapUnit, SoundUtil, ComCtrls, EncryptUnit, Share, Wzl, ExtCtrls, RzPanel,DXDraws;

  10. const
  11.   BOTTOMBOARD800 = 371; //主操作介面图形号
  12.   BOTTOMBOARD1024 = 2; //主操作介面图形号
  13.   VIEWCHATLINE = 9;
  14.   MAXSTATEPAGE = 4;
  15.   MAXHEROSTATEPAGE = 4;
  16.   LISTLINEHEIGHT = 13;
  17.   MAXMENU = 10;

  19.   AdjustAbilHints: array[0..8] of string = (
  20.     '攻击力',
  21.     '魔法(魔法师)',
  22.     '道术(道士)',
  23.     '防御',
  24.     '魔法防御',
  25.     '生命值',
  26.     '魔法值',
  27.     '准确',
  28.     '敏捷'
  29.     );

  31. type
  32.   TSpotDlgMode = (dmSell, dmRepair, dmStorage, dmSellOff, dmChange);

  34.   TClickPoint = record
  35.     rc: TRect;
  36.     rstr: string;
  37.   end;
  38.   pTClickPoint = ^TClickPoint;
  39.   TDiceInfo = record
  40.     nDicePoint: Integer;
  41.     nPlayPoint: Integer; //当前骰子点数
  42.     nX: Integer;
  43.     nY: Integer;
  44.     n67C: Integer;
  45.     n680: Integer;
  46.     dwPlayTick: LongWord;
  47.   end;
  48.   pTDiceInfo = ^TDiceInfo;

  50.   TNpcLabel = class(TDLabel)
  51.   private
  52.     m_nColorPosition: Integer;
  53.   public
  54.     m_dwChgColorTick: LongWord;
  55.     m_ColorList: TList;
  56.     m_nRecogId: Integer;
  57.     constructor Create(AOwner: TComponent); override;
  58.     destructor Destroy; override;
  59.     procedure Process; override;
  60.     procedure AddColor(btColor: Byte);
  61.   end;

  63.   TEffectTick = record
  64.     nIndex: Integer;
  65.     dwDrawTick: LongWord;
  66.   end;
  67.   pTEffectTick = ^TEffectTick;

  69.   TItemLabel = class(TDButton)

  71.   private
  72.     FClientItem: TClientItem;
  73.     FClickTimeTick: LongWord;
  74.     FEffectTick: array[0..2] of TEffectTick;
  75.     FGetClientItem: Boolean;
  76.   public
  77.     constructor Create(AOwner: TComponent); override;
  78.     destructor Destroy; override;
  79.     procedure DirectPaint(dsurface: TTexture); override;
  80.     procedure Process; override;
  81.   published
  82.     property ClientItem: TClientItem read FClientItem write FClientItem;
  83.     property ClickTimeTick: LongWord read FClickTimeTick write FClickTimeTick;
  84.     property GetClientItem: Boolean read FGetClientItem write FGetClientItem;
  85.   end;


  88.   TFrmDlg = class(TForm)
  89.     DBackground: TDWindow;
  90.     DStateWin: TDWindow;
  91.     DItemBag: TDWindow;
  92.     DBottom: TDWindow;
  93.     DPrevState: TDButton;
  94.     DCloseState: TDButton;
  95.     DLogIn: TDWindow;
  96.     DNewAccount: TDWindow;
  97.     DSelectChr: TDWindow;
  98.     DscSelect1: TDButton;
  99.     DscSelect2: TDButton;
  100.     DscStart: TDButton;
  101.     DscNewChr: TDButton;
  102.     DscEraseChr: TDButton;
  103.     DscCredits: TDButton;
  104.     DscExit: TDButton;
  105.     DCreateChr: TDWindow;
  106.     DccWarrior: TDButton;
  107.     DccWizzard: TDButton;
  108.     DccMonk: TDButton;
  109.     DccReserved: TDButton;
  110.     DccMale: TDButton;
  111.     DccFemale: TDButton;
  112.     DccLeftHair: TDButton;
  113.     DccRightHair: TDButton;
  114.     DccOk: TDButton;
  115.     DccClose: TDButton;
  116.     DMsgDlg: TDWindow;
  117.     DNextState: TDButton;
  118.     DSWNecklace: TDButton;
  119.     DSWLight: TDButton;
  120.     DSWArmRingR: TDButton;
  121.     DSWArmRingL: TDButton;
  122.     DSWRingR: TDButton;
  123.     DSWRingL: TDButton;
  124.     DSWWeapon: TDButton;
  125.     DSWDress: TDButton;
  126.     DSWHelmet: TDButton;
  127.     DBelt2: TDButton;
  128.     DBelt3: TDButton;
  129.     DBelt4: TDButton;
  130.     DBelt5: TDButton;
  131.     DBelt6: TDButton;
  132.     DChgPw: TDWindow;
  133.     DChgpwOk: TDButton;
  134.     DChgpwCancel: TDButton;
  135.     DMenuDlg: TDWindow;
  136.     DMenuPrev: TDButton;
  137.     DMenuNext: TDButton;
  138.     DMenuBuy: TDButton;
  139.     DMenuClose: TDButton;
  140.     DSellDlg: TDWindow;
  141.     DStMag1: TDButton;
  142.     DStMag2: TDButton;
  143.     DStMag3: TDButton;
  144.     DStMag4: TDButton;
  145.     DStMag5: TDButton;
  146.     DKeySelDlg: TDWindow;
  147.     DKsIcon: TDButton;
  148.     DKsF1: TDButton;
  149.     DKsF2: TDButton;
  150.     DKsF3: TDButton;
  151.     DKsF4: TDButton;
  152.     DKsNone: TDButton;
  153.     DKsOk: TDButton;
  154.     DBotGroup: TDButton;
  155.     DBotTrade: TDButton;
  156.     DBotMiniMap: TDButton;
  157.     DGroupDlg: TDWindow;
  158.     DGrpAllowGroup: TDButton;
  159.     DGrpDlgClose: TDButton;
  160.     DGrpCreate: TDButton;
  161.     DGrpAddMem: TDButton;
  162.     DGrpDelMem: TDButton;
  163.     DBotLogout: TDButton;
  164.     DBotExit: TDButton;
  165.     DBotGuild: TDButton;
  166.     DStPageUp: TDButton;
  167.     DStPageDown: TDButton;
  168.     DDealRemoteDlg: TDWindow;
  169.     DDealDlg: TDWindow;
  170.     DDRGrid: TDGrid;
  171.     DDGrid: TDGrid;
  172.     DDealOk: TDButton;
  173.     DDealClose: TDButton;
  174.     DDGold: TDButton;
  175.     DDRGold: TDButton;
  176.     DSelServerDlg: TDWindow;
  177.     DUserState1: TDWindow;
  178.     DCloseUS1: TDButton;
  179.     DWeaponUS1: TDButton;
  180.     DHelmetUS1: TDButton;
  181.     DNecklaceUS1: TDButton;
  182.     DDressUS1: TDButton;
  183.     DLightUS1: TDButton;
  184.     DArmringRUS1: TDButton;
  185.     DRingRUS1: TDButton;
  186.     DArmringLUS1: TDButton;
  187.     DRingLUS1: TDButton;
  188.     DGuildDlg: TDWindow;
  189.     DGDHome: TDButton;
  190.     DGDList: TDButton;
  191.     DGDChat: TDButton;
  192.     DGDAddMem: TDButton;
  193.     DGDDelMem: TDButton;
  194.     DGDEditNotice: TDButton;
  195.     DGDEditGrade: TDButton;
  196.     DGDAlly: TDButton;
  197.     DGDBreakAlly: TDButton;
  198.     DGDWar: TDButton;
  199.     DGDCancelWar: TDButton;
  200.     DGDUp: TDButton;
  201.     DGDDown: TDButton;
  202.     DGDClose: TDButton;
  203.     DGuildEditNotice: TDWindow;
  204.     DGEClose: TDButton;
  205.     DGEOk: TDButton;
  206.     DAdjustAbility: TDWindow;
  207.     DPlusDC: TDButton;
  208.     DPlusMC: TDButton;
  209.     DPlusSC: TDButton;
  210.     DPlusAC: TDButton;
  211.     DPlusMAC: TDButton;
  212.     DPlusHP: TDButton;
  213.     DPlusMP: TDButton;
  214.     DPlusHit: TDButton;
  215.     DPlusSpeed: TDButton;
  216.     DMinusDC: TDButton;
  217.     DMinusMC: TDButton;
  218.     DMinusSC: TDButton;
  219.     DMinusAC: TDButton;
  220.     DMinusMAC: TDButton;
  221.     DMinusMP: TDButton;
  222.     DMinusHP: TDButton;
  223.     DMinusHit: TDButton;
  224.     DMinusSpeed: TDButton;
  225.     DAdjustAbilClose: TDButton;
  226.     DAdjustAbilOk: TDButton;
  227.     DBotPlusAbil: TDButton;
  228.     DKsF5: TDButton;
  229.     DKsF6: TDButton;
  230.     DKsF7: TDButton;
  231.     DKsF8: TDButton;
  232.     DKsConF1: TDButton;
  233.     DKsConF2: TDButton;
  234.     DKsConF3: TDButton;
  235.     DKsConF4: TDButton;
  236.     DKsConF8: TDButton;
  237.     DKsConF7: TDButton;
  238.     DKsConF6: TDButton;
  239.     DKsConF5: TDButton;
  240.     DSWCharm: TDButton;
  241.     DSWBoots: TDButton;
  242.     DSWBelt: TDButton;
  243.     DSWBujuk: TDButton;
  244.     DBujukUS1: TDButton;
  245.     DBeltUS1: TDButton;
  246.     DBootsUS1: TDButton;
  247.     DCharmUS1: TDButton;
  248.     DBotMemo: TDButton;
  249.     DFriendDlg: TDWindow;
  250.     DFrdFriend: TDButton;
  251.     DFrdBlackList: TDButton;
  252.     DFrdClose: TDButton;
  253.     DFrdPgUp: TDButton;
  254.     DFrdPgDn: TDButton;
  255.     DMailListDlg: TDWindow;
  256.     DMailListClose: TDButton;
  257.     DMailListPgUp: TDButton;
  258.     DMailListPgDn: TDButton;
  259.     DMailDlg: TDWindow;
  260.     DBlockListDlg: TDWindow;
  261.     DBLPgUp: TDButton;
  262.     DBlockListClose: TDButton;
  263.     DBLPgDn: TDButton;
  264.     DMemo: TDWindow;
  265.     DMemoClose: TDButton;
  266.     DConfigDlgClose: TDButton;
  267.     DFrdAdd: TDButton;
  268.     DFrdDel: TDButton;
  269.     DFrdMemo: TDButton;
  270.     DFrdMail: TDButton;
  271.     DFrdWhisper: TDButton;
  272.     DMLReply: TDButton;
  273.     DMLRead: TDButton;
  274.     DMLLock: TDButton;
  275.     DMLDel: TDButton;
  276.     DMLBlock: TDButton;
  277.     DBLDel: TDButton;
  278.     DBLAdd: TDButton;
  279.     DMemoB2: TDButton;
  280.     DMemoB1: TDButton;
  281.     DChgGamePwd: TDWindow;
  282.     DChgGamePwdClose: TDButton;
  283.     DButton2: TDButton;
  284.     DButton1: TDButton;
  285.     DShopExit: TDButton;
  286.     DButtonFriend: TDButton;
  287.     DButtonHeroBag: TDButton;
  288.     DButFunc1: TDButton;
  289.     DButFunc2: TDButton;
  290.     DButFunc3: TDButton;
  291.     DButFunc4: TDButton;
  292.     DButFunc5: TDButton;
  293.     DHeroStateWin: TDWindow;
  294.     DCloseHeroState: TDButton;
  295.     DPrevHeroState: TDButton;
  296.     DNextHeroState: TDButton;
  297.     DHeroSWWeapon: TDButton;
  298.     DHeroSWHelmet: TDButton;
  299.     DHeroSWArmRingR: TDButton;
  300.     DHeroSWRingR: TDButton;
  301.     DHeroSWDress: TDButton;
  302.     DHeroSWNecklace: TDButton;
  303.     DHeroSWLight: TDButton;
  304.     DHeroSWArmRingL: TDButton;
  305.     DHeroSWRingL: TDButton;
  306.     DHeroStMag1: TDButton;
  307.     DHeroStMag2: TDButton;
  308.     DHeroStMag3: TDButton;
  309.     DHeroStMag4: TDButton;
  310.     DHeroStMag5: TDButton;
  311.     DHeroStPageUp: TDButton;
  312.     DHeroStPageDown: TDButton;
  313.     DHeroSWCharm: TDButton;
  314.     DHeroSWBoots: TDButton;
  315.     DHeroSWBelt: TDButton;
  316.     DHeroSWBujuk: TDButton;
  317.     DButtonDuel: TDButton;
  318.     DHeroItemBag: TDWindow;
  319.     DHeroHealthStateWin: TDWindow;
  320.     DShop: TDWindow;
  321.     DMiniMap: TDWindow;
  322.     DUpgrade: TDWindow;
  323.     DItemBox: TDWindow;
  324.     DUserSellOff: TDWindow;
  325.     DBoxItems: TDWindow;
  326.     DBook: TDWindow;
  327.     DFindChr: TDWindow;
  328.     DStoreDlg: TDWindow;
  329.     DUserStore: TDWindow;
  330.     DStoreMsgDlg: TDWindow;
  331.     DEditStore: TDEdit;
  332.     DGStore: TDGrid;
  333.     DStoreName: TDButton;
  334.     DStoreClose: TDButton;
  335.     DStoreOpen: TDButton;
  336.     DStoreCancel: TDButton;
  337.     DStoreMsgDlgOk: TDButton;
  338.     EdStoreDlgEdit: TDEdit;
  339.     DStoreMsgDlgCancel: TDButton;
  340.     DEditUserStore: TDEdit;
  341.     DGUserStore: TDGrid;
  342.     DUserStoreBuy: TDButton;
  343.     DUserStoreClose: TDButton;
  344.     DJewelry: TDButton;
  345.     DMedicine: TDButton;
  346.     DEnhance: TDButton;
  347.     Dfriend: TDButton;
  348.     DLimit: TDButton;
  349.     DShopIntroduce: TDButton;
  350.     DShopItemGrid: TDGrid;
  351.     DSuperShopItemGrid: TDGrid;
  352.     DPrevShop: TDButton;
  353.     DNextShop: TDButton;
  354.     DShopBuy: TDButton;
  355.     DShopFree: TDButton;
  356.     DShopClose: TDButton;
  357.     DNewAccountClose: TDButton;
  358.     DNewAccountCancel: TDButton;
  359.     DNewAccountOk: TDButton;
  360.     DLoginClose: TDButton;
  361.     DLoginChgPw: TDButton;
  362.     DLoginNew: TDButton;
  363.     DLoginOk: TDButton;
  364.     DCloseUpgrade: TDButton;
  365.     DStartUpgrade: TDButton;
  366.     DUpgradeItem3: TDButton;
  367.     DUpgradeItem2: TDButton;
  368.     DUpgradeItem1: TDButton;
  369.     DSellClose: TDButton;
  370.     DCloseSell: TDButton;
  371.     DNextSell: TDButton;
  372.     DSellItem: TDButton;
  373.     DRefreshSell: TDButton;
  374.     DBuySellItem: TDButton;
  375.     DPrevSell: TDButton;
  376.     DSearchSellOff: TDButton;
  377.     EdSearch: TDEdit;
  378.     DItemLock: TDButton;
  379.     DBookPage: TDButton;
  380.     DBookClose: TDButton;
  381.     DBookPrevPage: TDButton;
  382.     DBookNextPage: TDButton;
  383.     DFindChrNext: TDButton;
  384.     DFindChrPrior: TDButton;
  385.     DFindChrClose: TDButton;
  386.     DFindOK: TDButton;
  387.     DSServer2: TDButton;
  388.     DSServer1: TDButton;
  389.     DSSrvClose: TDButton;
  390.     DEngServer1: TDButton;
  391.     DSServer4: TDButton;
  392.     DSServer3: TDButton;
  393.     DSServer6: TDButton;
  394.     DSServer5: TDButton;
  395.     EdDlgEdit: TDEdit;
  396.     DMsgDlgOk: TDButton;
  397.     DMsgDlgYes: TDButton;
  398.     DMsgDlgCancel: TDButton;
  399.     DMsgDlgNo: TDButton;
  400.     DSellDlgSpot: TDButton;
  401.     DSellDlgClose: TDButton;
  402.     DSellDlgOk: TDButton;
  403.     DCloseHeroBag: TDButton;
  404.     DItemGrid: TDGrid;
  405.     DGold: TDButton;
  406.     DOpenUpgrade: TDButton;
  407.     DCloseBag: TDButton;
  408.     EdId: TDEdit;
  409.     EdPasswd: TDEdit;
  410.     DBoxItemGrid: TDGrid;
  411.     DGetBoxItemFlash: TDButton;
  412.     DHeroItemGrid: TDGrid;
  413.     DWDuel: TDWindow;
  414.     DDuelClose: TDButton;
  415.     DDDuelGold: TDButton;
  416.     DDDuelGrid: TDGrid;
  417.     DDRDuelGrid: TDGrid;
  418.     DDRDuelGold: TDButton;
  419.     DDuelCancel: TDButton;
  420.     DDuelOK: TDButton;
  421.     DBelt1: TDButton;
  422.     EdChat: TDEdit;
  423.     DVoice: TDButton;
  424.     DPlayTool: TDButton;
  425.     DOnHouser: TDButton;
  426.     DMyState: TDButton;
  427.     DMyMagic: TDButton;
  428.     DMyBag: TDButton;
  429.     DHelp: TDButton;
  430.     DFirDragon: TDButton;
  431.     DButtonShop: TDButton;
  432.     DButtonReCallHero: TDButton;
  433.     DRanking: TDButton;
  434.     DButtonOption2: TDButton;
  435.     DButtonOption1: TDButton;
  436.     DButtonMP: TDButton;
  437.     DButtonHP: TDButton;
  438.     DButtonHeroState: TDButton;
  439.     DMapTitle: TDWindow;
  440.     DMerchantDlg: TDWindow;
  441.     DMerchantDlgClose: TDButton;
  442.     DWRandomCode: TDWindow;
  443.     DBRandomCodeOK: TDButton;
  444.     DBRandomCodeChg: TDButton;
  445.     DEditRandomCode: TDEdit;
  446.     DButton4: TDButton;
  447.     DRankingDlg: TDWindow;
  448.     DBotCharRanking: TDButton;
  449.     DBotHeroRanking: TDButton;
  450.     DBotMasterRanking: TDButton;
  451.     DBotActorRanking: TDButton;
  452.     DBotWarriorRanking: TDButton;
  453.     DBotWizzardRanking: TDButton;
  454.     DBotMonkRanking: TDButton;
  455.     DBotHeroActorRanking: TDButton;
  456.     DBotHeroWarriorRanking: TDButton;
  457.     DBotHeroWizzardRanking: TDButton;
  458.     DBotHeroMonkRanking: TDButton;
  459.     DBotRankingHome: TDButton;
  460.     DBotRankingUp: TDButton;
  461.     DBotRankingDown: TDButton;
  462.     DBotRankingLast: TDButton;
  463.     DBotRankingSelf: TDButton;
  464.     DBotRankingClose: TDButton;
  465.     DHeroStMag6: TDButton;
  466.     DStMag6: TDButton;
  467.     DMainMenu: TDPopupMenu;
  468.     DMenuBook: TDPopupMenu;
  469.     DMagicMenu: TDPopupMenu;
  470.     DChatDlg: TDWindow;
  471.     DMemoChat: TDMemo;
  472.     DScrollChat: TDScroll;
  473.     DEdChat: TDWindow;
  474.     DShowChat: TDButton;
  475.     DConfigDlg: TDPageControl;
  476.     DWindowTab1: TDWindow;
  477.     DWindowTab2: TDWindow;
  478.     DWindowTab3: TDWindow;
  479.     DWindowTab4: TDWindow;
  480.     DWindowTab5: TDWindow;
  481.     DWindowTab6: TDWindow;
  482.     DWindowTab7: TDWindow;
  483.     DWindowTab8: TDWindow;
  484.     DMemoTab1: TDMemo;
  485.     DScrollTab1: TDScroll;
  486.     DMemoTab2: TDMemo;
  487.     DScrollTab2: TDScroll;
  488.     DButtonTab1: TDButton;
  489.     DButtonTab2: TDButton;
  490.     DButtonTab3: TDButton;
  491.     DButtonTab4: TDButton;
  492.     DButtonTab5: TDButton;
  493.     DButtonTab6: TDButton;
  494.     DButtonTab7: TDButton;
  495.     DButtonTab8: TDButton;
  496.     DMemoTab3: TDMemo;
  497.     DScrollTab3: TDScroll;
  498.     DMemoTab4: TDMemo;
  499.     DScrollTab4: TDScroll;
  500.     DMemoTab5: TDMemo;
  501.     DScrollTab5: TDScroll;
  502.     DMemoTab6: TDMemo;
  503.     DScrollTab6: TDScroll;
  504.     DMemoTab7: TDMemo;
  505.     DScrollTab7: TDScroll;
  506.     DMemoTab8: TDMemo;
  507.     DScrollTab8: TDScroll;
  508.     DCheckBoxShowActorLable: TDCheckBox;
  509.     DCheckBoxHideBlueLable: TDCheckBox;
  510.     DCheckBoxShowNumberLable: TDCheckBox;
  511.     DCheckBoxShowJobAndLevel: TDCheckBox;
  512.     DCheckBoxShowUserName: TDCheckBox;
  513.     DCheckBoxShowMonName: TDCheckBox;
  514.     DCheckBoxShowItemName: TDCheckBox;
  515.     DCheckBoxShowMoveNumberLable: TDCheckBox;
  516.     DCheckBoxShowGreenHint: TDCheckBox;
  517.     DCheckBoxMusic: TDCheckBox;
  518.     DCheckBoxItemHint: TDCheckBox;
  519.     DCheckBoxMagicLock: TDCheckBox;
  520.     DCheckBoxOrderItem: TDCheckBox;
  521.     DCheckBoxOnlyShowCharName: TDCheckBox;
  522.     DCheckBoxCloseGroup: TDCheckBox;
  523.     DCheckBoxItemDuraHint: TDCheckBox;
  524.     DLabelItemName: TDLabel;
  525.     DLabelItemHint: TDLabel;
  526.     DLabelPickUpItem: TDLabel;
  527.     DLabelShowItemName: TDLabel;
  528.     DEditSearchItem: TDEdit;
  529.     DComboboxItemType: TDCombobox;
  530.     DCheckBoxPickUpItemAll: TDCheckBox;
  531.     DLabelOption: TDLabel;
  532.     DLabelBookItem: TDLabel;
  533.     DComboboxBookIndex: TDCombobox;
  534.     DCheckBoxBook: TDCheckBox;
  535.     DLabelBookHP: TDLabel;
  536.     DEditBookHP: TDEdit;
  537.     DCheckBoxClose: TDCheckBox;
  538.     DLabelCloseHP: TDLabel;
  539.     DEditCloseHP: TDEdit;
  540.     DLabelClose: TDLabel;
  541.     DEditBookTime: TDEdit;
  542.     DLabelBookTime: TDLabel;
  543.     DEditCloseTime: TDEdit;
  544.     DLabelCloseTime: TDLabel;
  545.     DLabelBookItemType: TDLabel;
  546.     DLabel1: TDLabel;
  547.     DLabel2: TDLabel;
  548.     DLabel3: TDLabel;
  549.     DLabel10: TDLabel;
  550.     DCheckBoxLongHit: TDCheckBox;
  551.     DCheckBoxWideHit: TDCheckBox;
  552.     DCheckBoxFireHit: TDCheckBox;
  553.     DCheckBoxSWideHit: TDCheckBox;
  554.     DCheckBoxCrsHit: TDCheckBox;
  555.     DCheckBoxKtHit: TDCheckBox;
  556.     DCheckBoxShield: TDCheckBox;
  557.     DCheckBoxSign: TDCheckBox;
  558.     DCheckBoxPoison: TDCheckBox;
  559.     DCheckBoxWjzq: TDCheckBox;
  560.     DCheckBoxAutoUseMagic: TDCheckBox;
  561.     DEditAutoUseMagicTime: TDEdit;
  562.     DComboboxAutoUseMagic: TDCombobox;
  563.     DComboboxPoison: TDCombobox;
  564.     DCheckBoxAutoHideSelf: TDCheckBox;
  565.     DLabel11: TDLabel;
  566.     DLabelKeyOriginal: TDLabel;
  567.     DLabelKeyChange: TDLabel;
  568.     DLabelKey1: TDLabel;
  569.     DLabelKey2: TDLabel;
  570.     DLabelKey3: TDLabel;
  571.     DLabelKey4: TDLabel;
  572.     DLabelKey5: TDLabel;
  573.     DLabelKey6: TDLabel;
  574.     DLabelKey7: TDLabel;
  575.     DLabelHeroCallHero1: TDLabel;
  576.     DLabelHeroSetTarget1: TDLabel;
  577.     DLabelHeroUnionHit1: TDLabel;
  578.     DLabelHeroSetAttackState1: TDLabel;
  579.     DLabelHeroSetGuard1: TDLabel;
  580.     DLabelSwitchAttackMode1: TDLabel;
  581.     DLabelSwitchMiniMap1: TDLabel;
  582.     DLabelSwitchMiniMap: TDLabel;
  583.     DLabelSwitchAttackMode: TDLabel;
  584.     DLabelHeroSetGuard: TDLabel;
  585.     DLabelHeroSetAttackState: TDLabel;
  586.     DLabelHeroUnionHit: TDLabel;
  587.     DLabelHeroSetTarget: TDLabel;
  588.     DLabelHeroCallHero: TDLabel;
  589.     DLabelKeyMemo: TDLabel;
  590.     DCheckBoxUseKey: TDCheckBox;
  591.     DCheckBoxNotNeedShift: TDCheckBox;
  592.     DMenuPoison: TDPopupMenu;
  593.     DMenuItemType: TDPopupMenu;
  594.     DCategorizeSys: TDButton;
  595.     DCategorizeGroup: TDButton;
  596.     DCategorizeGuild: TDButton;
  597.     DCategorizePrivate: TDButton;
  598.     DButOther: TDButton;
  599.     DCheckBoxPok: TDCheckBox;
  600.     DCheckBoxStruckShield: TDCheckBox;
  601.     DCheckBoxSmartPosLongHit: TDCheckBox;
  602.     DCheckBoxSmartWalkLongHit: TDCheckBox;
  603.     DCheckBoxAutoHorse: TDCheckBox;
  604.     DCheckBoxGuaji: TDCheckBox;
  605.     DLabelGuajiQunti: TDLabel;
  606.     DComboboxGuajiQunti: TDCombobox;
  607.     DLabelGuajiGeti: TDLabel;
  608.     DComboboxGuajiGeti: TDCombobox;
  609.     DLabelGuaJiStart: TDLabel;
  610.     DMerchantBigDlg: TDWindow;
  611.     DMerchantBigDlgClose: TDButton;
  612.     DLabelSerieSkill1: TDLabel;
  613.     DLabelKey0: TDLabel;
  614.     DLabelSerieSkill: TDLabel;
  615.     DSerieMagic1: TDButton;
  616.     DLabel12: TDLabel;
  617.     DSerieMagic2: TDButton;
  618.     DSerieMagic3: TDButton;
  619.     DSerieMagic4: TDButton;
  620.     DSerieMagic5: TDButton;
  621.     DSerieMagic6: TDButton;
  622.     DSerieMagic7: TDButton;
  623.     DSerieMagic8: TDButton;
  624.     DSerieMagicMenu: TDPopupMenu;
  625.     DEditSerieMagic: TDButton;
  626.     DCheckBoxCompareItem: TDCheckBox;
  627.     DEditAdjustIncrement: TDEdit;
  628.     DLabelAdjustIncrement: TDLabel;
  629.     DEditHumHPPercent1: TDEdit;
  630.     DCheckBoxHumHP1: TDCheckBox;
  631.     DEditHumHPTime1: TDEdit;
  632.     DCheckBoxHumMP1: TDCheckBox;
  633.     DEditHumMPPercent1: TDEdit;
  634.     DEditHumMPTime1: TDEdit;
  635.     DLabelHumHP1: TDLabel;
  636.     DLabelHumMP1: TDLabel;
  637.     DLabelHeroLogOutTime: TDLabel;
  638.     DEditHeroLogOutTime: TDEdit;
  639.     DEditHeroLogOutHP: TDEdit;
  640.     DLabelHeroLogOutHP: TDLabel;
  641.     DCheckBoxHeroLogOut: TDCheckBox;
  642.     DLabelHeroLogOut: TDLabel;
  643.     DComboboxHumHP1: TDCombobox;
  644.     DMenuHumItem: TDPopupMenu;
  645.     DComboboxHumMP1: TDCombobox;
  646.     DCheckBoxHumHP2: TDCheckBox;
  647.     DCheckBoxHumMP2: TDCheckBox;
  648.     DEditHumHPPercent2: TDEdit;
  649.     DEditHumMPPercent2: TDEdit;
  650.     DComboboxHumHP2: TDCombobox;
  651.     DComboboxHumMP2: TDCombobox;
  652.     DEditHumHPTime2: TDEdit;
  653.     DEditHumMPTime2: TDEdit;
  654.     DLabelHumHP2: TDLabel;
  655.     DLabelHumMP2: TDLabel;
  656.     DCheckBoxHeroHP2: TDCheckBox;
  657.     DCheckBoxHeroMP2: TDCheckBox;
  658.     DEditHeroHPPercent2: TDEdit;
  659.     DEditHeroMPPercent2: TDEdit;
  660.     DComboboxHeroHP2: TDCombobox;
  661.     DComboboxHeroMP2: TDCombobox;
  662.     DEditHeroHPTime2: TDEdit;
  663.     DEditHeroMPTime2: TDEdit;
  664.     DLabelHeroHP2: TDLabel;
  665.     DLabelHeroMP2: TDLabel;
  666.     DLabelHeroMP1: TDLabel;
  667.     DLabelHeroHP1: TDLabel;
  668.     DEditHeroHPTime1: TDEdit;
  669.     DEditHeroMPTime1: TDEdit;
  670.     DComboboxHeroHP1: TDCombobox;
  671.     DComboboxHeroMP1: TDCombobox;
  672.     DEditHeroHPPercent1: TDEdit;
  673.     DEditHeroMPPercent1: TDEdit;
  674.     DCheckBoxHeroHP1: TDCheckBox;
  675.     DCheckBoxHeroMP1: TDCheckBox;
  676.     DMenuHeroItem: TDPopupMenu;
  677.     DSPage1: TDButton;
  678.     DSPage2: TDButton;
  679.     DSPage3: TDButton;
  680.     DSPage4: TDButton;

  682.     procedure DBottomInRealArea(Sender: TObject; X, Y: Integer;
  683.       var IsRealArea: Boolean);
  684.     procedure DBottomDirectPaint(Sender: TObject;
  685.       dsurface: TTexture);
  686.     procedure DMyStateDirectPaint(Sender: TObject;
  687.       dsurface: TTexture);
  688.     procedure DSoundClick();
  689.     procedure DItemBagDirectPaint(Sender: TObject;
  690.       dsurface: TTexture);
  691.     procedure DStateWinDirectPaint(Sender: TObject;
  692.       dsurface: TTexture);
  693.     procedure FormCreate(Sender: TObject);
  694.     procedure DPrevStateDirectPaint(Sender: TObject;
  695.       dsurface: TTexture);
  696.     procedure DLoginNewDirectPaint(Sender: TObject;
  697.       dsurface: TTexture);
  698.     procedure DscSelect1DirectPaint(Sender: TObject;
  699.       dsurface: TTexture);
  700.     procedure DccCloseDirectPaint(Sender: TObject;
  701.       dsurface: TTexture);
  702.     procedure DItemGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  703.       Shift: TShiftState);
  704.     procedure DItemGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  705.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  706.     procedure DItemGridDblClick(Sender: TObject);
  707.     procedure DMsgDlgOkDirectPaint(Sender: TObject;
  708.       dsurface: TTexture);
  709.     procedure DMsgDlgDirectPaint(Sender: TObject;
  710.       dsurface: TTexture);
  711.     procedure DMsgDlgKeyDown(Sender: TObject; var Key: Word;
  712.       Shift: TShiftState);
  713.     procedure DCloseBagDirectPaint(Sender: TObject;
  714.       dsurface: TTexture);
  715.     procedure DBackgroundBackgroundClick(Sender: TObject);
  716.     procedure DItemGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
  717.       Shift: TShiftState);
  718.     procedure DBelt1DirectPaint(Sender: TObject;
  719.       dsurface: TTexture);
  720.     procedure FormDestroy(Sender: TObject);
  721.     procedure DBelt1DblClick(Sender: TObject);
  722.     procedure DLoginCloseClick(Sender: TObject; X, Y: Integer);
  723.     procedure DLoginOkClick(Sender: TObject; X, Y: Integer);
  724.     procedure DLoginNewClick(Sender: TObject; X, Y: Integer);
  725.     procedure DLoginChgPwClick(Sender: TObject; X, Y: Integer);
  726.     procedure DNewAccountOkClick(Sender: TObject; X, Y: Integer);
  727.     procedure DNewAccountCloseClick(Sender: TObject; X, Y: Integer);
  728.     procedure DccCloseClick(Sender: TObject; X, Y: Integer);
  729.     procedure DChgpwOkClick(Sender: TObject; X, Y: Integer);
  730.     procedure DscSelect1Click(Sender: TObject; X, Y: Integer);
  731.     procedure DCloseStateClick(Sender: TObject; X, Y: Integer);
  732.     procedure DPrevStateClick(Sender: TObject; X, Y: Integer);
  733.     procedure DNextStateClick(Sender: TObject; X, Y: Integer);
  734.     procedure DSWWeaponClick(Sender: TObject; X, Y: Integer);
  735.     procedure DMsgDlgOkClick(Sender: TObject; X, Y: Integer);
  736.     procedure DCloseBagClick(Sender: TObject; X, Y: Integer);
  737.     procedure DBelt1Click(Sender: TObject; X, Y: Integer);
  738.     procedure DMyStateClick(Sender: TObject; X, Y: Integer);
  739.     procedure DStateWinClick(Sender: TObject; X, Y: Integer);
  740.     procedure DSWWeaponMouseMove(Sender: TObject; Shift: TShiftState; X,
  741.       Y: Integer);
  742.     procedure DBelt1MouseMove(Sender: TObject; Shift: TShiftState; X,
  743.       Y: Integer);
  744.     procedure DMerchantDlgDirectPaint(Sender: TObject;
  745.       dsurface: TTexture);
  746.     procedure DMerchantDlgCloseClick(Sender: TObject; X, Y: Integer);
  747.     procedure DMerchantDlgMouseUp(Sender: TObject; Button: TMouseButton;
  748.       Shift: TShiftState; X, Y: Integer);
  749.     procedure DMenuCloseClick(Sender: TObject; X, Y: Integer);
  750.     procedure DMenuDlgDirectPaint(Sender: TObject;
  751.       dsurface: TTexture);
  752.     procedure DMenuDlgClick(Sender: TObject; X, Y: Integer);
  753.     procedure DSellDlgDirectPaint(Sender: TObject;
  754.       dsurface: TTexture);
  755.     procedure DSellDlgCloseClick(Sender: TObject; X, Y: Integer);
  756.     procedure DSellDlgSpotClick(Sender: TObject; X, Y: Integer);
  757.     procedure DSellDlgSpotDirectPaint(Sender: TObject;
  758.       dsurface: TTexture);
  759.     procedure DSellDlgSpotMouseMove(Sender: TObject; Shift: TShiftState; X,
  760.       Y: Integer);
  761.     procedure DSellDlgOkClick(Sender: TObject; X, Y: Integer);
  762.     procedure DMenuBuyClick(Sender: TObject; X, Y: Integer);
  763.     procedure DMenuPrevClick(Sender: TObject; X, Y: Integer);
  764.     procedure DMenuNextClick(Sender: TObject; X, Y: Integer);
  765.     procedure DGoldClick(Sender: TObject; X, Y: Integer);
  766.     procedure DSWLightDirectPaint(Sender: TObject;
  767.       dsurface: TTexture);
  768.     procedure DBackgroundMouseDown(Sender: TObject; Button: TMouseButton;
  769.       Shift: TShiftState; X, Y: Integer);
  770.     procedure DStateWinMouseMove(Sender: TObject; Shift: TShiftState; X,
  771.       Y: Integer);
  772.     procedure DLoginNewClickSound(Sender: TObject;
  773.       Clicksound: TClickSound);
  774.     procedure DStMag1DirectPaint(Sender: TObject;
  775.       dsurface: TTexture);
  776.     procedure DStMag1Click(Sender: TObject; X, Y: Integer);
  777.     procedure DKsIconDirectPaint(Sender: TObject;
  778.       dsurface: TTexture);
  779.     procedure DKsF1DirectPaint(Sender: TObject;
  780.       dsurface: TTexture);
  781.     procedure DKsOkClick(Sender: TObject; X, Y: Integer);
  782.     procedure DKsF1Click(Sender: TObject; X, Y: Integer);
  783.     procedure DKeySelDlgDirectPaint(Sender: TObject;
  784.       dsurface: TTexture);
  785.     procedure DBotGroupDirectPaint(Sender: TObject;
  786.       dsurface: TTexture);
  787.     procedure DGrpAllowGroupDirectPaint(Sender: TObject;
  788.       dsurface: TTexture);
  789.     procedure DGrpDlgCloseClick(Sender: TObject; X, Y: Integer);
  790.     procedure DBotGroupClick(Sender: TObject; X, Y: Integer);
  791.     procedure DGrpAllowGroupClick(Sender: TObject; X, Y: Integer);
  792.     procedure DGrpCreateClick(Sender: TObject; X, Y: Integer);
  793.     procedure DGroupDlgDirectPaint(Sender: TObject;
  794.       dsurface: TTexture);
  795.     procedure DGrpAddMemClick(Sender: TObject; X, Y: Integer);
  796.     procedure DGrpDelMemClick(Sender: TObject; X, Y: Integer);
  797.     procedure DBotLogoutClick(Sender: TObject; X, Y: Integer);
  798.     procedure DBotExitClick(Sender: TObject; X, Y: Integer);
  799.     procedure DStPageUpClick(Sender: TObject; X, Y: Integer);
  800.     procedure DBottomMouseDown(Sender: TObject; Button: TMouseButton;
  801.       Shift: TShiftState; X, Y: Integer);
  802.     procedure DDealOkClick(Sender: TObject; X, Y: Integer);
  803.     procedure DDealCloseClick(Sender: TObject; X, Y: Integer);
  804.     procedure DBotTradeClick(Sender: TObject; X, Y: Integer);
  805.     procedure DDealRemoteDlgDirectPaint(Sender: TObject;
  806.       dsurface: TTexture);
  807.     procedure DDealDlgDirectPaint(Sender: TObject;
  808.       dsurface: TTexture);
  809.     procedure DDGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  810.       Shift: TShiftState);
  811.     procedure DDGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  812.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  813.     procedure DDGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
  814.       Shift: TShiftState);
  815.     procedure DDRGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  816.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  817.     procedure DDRGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
  818.       Shift: TShiftState);
  819.     procedure DDGoldClick(Sender: TObject; X, Y: Integer);
  820.     procedure DSServer1Click(Sender: TObject; X, Y: Integer);
  821.     procedure DSSrvCloseClick(Sender: TObject; X, Y: Integer);
  822.     procedure DBotMiniMapClick(Sender: TObject; X, Y: Integer);
  823.     procedure DMenuDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
  824.       Y: Integer);
  825.     procedure DUserState1DirectPaint(Sender: TObject;
  826.       dsurface: TTexture);
  827.     procedure DUserState1MouseMove(Sender: TObject; Shift: TShiftState; X,
  828.       Y: Integer);
  829.     procedure DWeaponUS1MouseMove(Sender: TObject; Shift: TShiftState; X,
  830.       Y: Integer);
  831.     procedure DCloseUS1Click(Sender: TObject; X, Y: Integer);
  832.     procedure DNecklaceUS1DirectPaint(Sender: TObject;
  833.       dsurface: TTexture);
  834.     procedure DBotGuildClick(Sender: TObject; X, Y: Integer);
  835.     procedure DGuildDlgDirectPaint(Sender: TObject;
  836.       dsurface: TTexture);
  837.     procedure DGDUpClick(Sender: TObject; X, Y: Integer);
  838.     procedure DGDDownClick(Sender: TObject; X, Y: Integer);
  839.     procedure DGDCloseClick(Sender: TObject; X, Y: Integer);
  840.     procedure DGDHomeClick(Sender: TObject; X, Y: Integer);
  841.     procedure DGDListClick(Sender: TObject; X, Y: Integer);
  842.     procedure DGDAddMemClick(Sender: TObject; X, Y: Integer);
  843.     procedure DGDDelMemClick(Sender: TObject; X, Y: Integer);
  844.     procedure DGDEditNoticeClick(Sender: TObject; X, Y: Integer);
  845.     procedure DGDEditGradeClick(Sender: TObject; X, Y: Integer);
  846.     procedure DGECloseClick(Sender: TObject; X, Y: Integer);
  847.     procedure DGEOkClick(Sender: TObject; X, Y: Integer);
  848.     procedure DGuildEditNoticeDirectPaint(Sender: TObject;
  849.       dsurface: TTexture);
  850.     procedure DGDChatClick(Sender: TObject; X, Y: Integer);
  851.     procedure DGoldDirectPaint(Sender: TObject;
  852.       dsurface: TTexture);
  853.     procedure DNewAccountDirectPaint(Sender: TObject;
  854.       dsurface: TTexture);
  855.     procedure DAdjustAbilCloseClick(Sender: TObject; X, Y: Integer);
  856.     procedure DAdjustAbilityDirectPaint(Sender: TObject;
  857.       dsurface: TTexture);
  858.     procedure DBotPlusAbilClick(Sender: TObject; X, Y: Integer);
  859.     procedure DPlusDCClick(Sender: TObject; X, Y: Integer);
  860.     procedure DMinusDCClick(Sender: TObject; X, Y: Integer);
  861.     procedure DAdjustAbilOkClick(Sender: TObject; X, Y: Integer);
  862.     procedure DBotPlusAbilDirectPaint(Sender: TObject;
  863.       dsurface: TTexture);
  864.     procedure DAdjustAbilityMouseMove(Sender: TObject; Shift: TShiftState;
  865.       X, Y: Integer);
  866.     procedure DUserState1MouseDown(Sender: TObject; Button: TMouseButton;
  867.       Shift: TShiftState; X, Y: Integer);
  868.     procedure DEngServer1Click(Sender: TObject; X, Y: Integer);
  869.     procedure DGDAllyClick(Sender: TObject; X, Y: Integer);
  870.     procedure DGDBreakAllyClick(Sender: TObject; X, Y: Integer);
  871.     procedure DSelServerDlgDirectPaint(Sender: TObject;
  872.       dsurface: TTexture);
  873.     procedure DBotMouseMove(Sender: TObject; Shift: TShiftState; X,
  874.       Y: Integer);
  875.     procedure DChgGamePwdCloseClick(Sender: TObject; X, Y: Integer);
  876.     procedure DChgGamePwdDirectPaint(Sender: TObject;
  877.       dsurface: TTexture);
  878.     procedure DButtonShopDirectPaint(Sender: TObject;
  879.       dsurface: TTexture);
  880.     procedure DShopDirectPaint(Sender: TObject;
  881.       dsurface: TTexture);
  882.     procedure DJewelryDirectPaint(Sender: TObject;
  883.       dsurface: TTexture);
  884.     procedure DShopExitClick(Sender: TObject; X, Y: Integer);
  885.     procedure DJewelryClick(Sender: TObject; X, Y: Integer);
  886.     procedure DMedicineClick(Sender: TObject; X, Y: Integer);
  887.     procedure DEnhanceClick(Sender: TObject; X, Y: Integer);
  888.     procedure DfriendClick(Sender: TObject; X, Y: Integer);
  889.     procedure DLimitClick(Sender: TObject; X, Y: Integer);
  890.     procedure DBottomMouseMove(Sender: TObject; Shift: TShiftState; X,
  891.       Y: Integer);
  892.     procedure DShopIntroduceDirectPaint(Sender: TObject;
  893.       dsurface: TTexture);
  894.     procedure DPrevShopClick(Sender: TObject; X, Y: Integer);
  895.     procedure DNextShopClick(Sender: TObject; X, Y: Integer);
  896.     procedure DShopBuyClick(Sender: TObject; X, Y: Integer);
  897.     procedure DButtonReCallHeroDirectPaint(Sender: TObject;
  898.       dsurface: TTexture);
  899.     procedure DButFunc1DirectPaint(Sender: TObject;
  900.       dsurface: TTexture);
  901.     procedure DButFunc1Click(Sender: TObject; X, Y: Integer);

  903.     procedure DHeroHealthStateWinDirectPaint(Sender: TObject;
  904.       dsurface: TTexture);
  905.     procedure DHeroStateWinDirectPaint(Sender: TObject;
  906.       dsurface: TTexture);
  907.     procedure DCloseHeroStateDirectPaint(Sender: TObject;
  908.       dsurface: TTexture);
  909.     procedure DHeroSWLightDirectPaint(Sender: TObject;
  910.       dsurface: TTexture);
  911.     procedure DHeroSWWeaponMouseMove(Sender: TObject; Shift: TShiftState;
  912.       X, Y: Integer);
  913.     procedure DHeroSWWeaponClick(Sender: TObject; X, Y: Integer);
  914.     procedure DHeroItemBagDirectPaint(Sender: TObject;
  915.       dsurface: TTexture);
  916.     procedure DCloseHeroBagClick(Sender: TObject; X, Y: Integer);
  917.     procedure DHeroItemGridDblClick(Sender: TObject);
  918.     procedure DHeroItemGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  919.       Shift: TShiftState);
  920.     procedure DHeroItemGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  921.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  922.     procedure DHeroItemGridGridMouseMove(Sender: TObject; ACol,
  923.       ARow: Integer; Shift: TShiftState);
  924.     procedure DButtonReCallHeroClick(Sender: TObject; X, Y: Integer);
  925.     procedure DButtonHeroStateClick(Sender: TObject; X, Y: Integer);
  926.     procedure DButtonHeroBagClick(Sender: TObject; X, Y: Integer);
  927.     procedure DCloseHeroStateClick(Sender: TObject; X, Y: Integer);
  928.     procedure DCloseHeroBagDirectPaint(Sender: TObject;
  929.       dsurface: TTexture);
  930.     procedure DPrevHeroStateClick(Sender: TObject; X, Y: Integer);
  931.     procedure DNextHeroStateClick(Sender: TObject; X, Y: Integer);
  932.     procedure DHeroStMag1DirectPaint(Sender: TObject;
  933.       dsurface: TTexture);
  934.     procedure DHeroStPageUpClick(Sender: TObject; X, Y: Integer);
  935.     procedure DHeroStateWinMouseMove(Sender: TObject; Shift: TShiftState;
  936.       X, Y: Integer);
  937.     procedure DHeroHealthStateWinClick(Sender: TObject; X, Y: Integer);
  938.     procedure DFirDragonDirectPaint(Sender: TObject;
  939.       dsurface: TTexture);
  940.     procedure DSearchSellOffDirectPaint(Sender: TObject;
  941.       dsurface: TTexture);
  942.     procedure DUserSellOffDirectPaint(Sender: TObject;
  943.       dsurface: TTexture);
  944.     procedure DPrevSellDirectPaint(Sender: TObject;
  945.       dsurface: TTexture);
  946.     procedure DBuySellItemDirectPaint(Sender: TObject;
  947.       dsurface: TTexture);
  948.     procedure DCloseSellClick(Sender: TObject; X, Y: Integer);
  949.     procedure DUserSellOffClick(Sender: TObject; X, Y: Integer);
  950.     procedure DPrevSellClick(Sender: TObject; X, Y: Integer);
  951.     procedure DRefreshSellClick(Sender: TObject; X, Y: Integer);
  952.     procedure DNextSellClick(Sender: TObject; X, Y: Integer);
  953.     procedure DSearchSellOffClick(Sender: TObject; X, Y: Integer);
  954.     procedure DBuySellItemClick(Sender: TObject; X, Y: Integer);
  955.     procedure DPrevSellMouseMove(Sender: TObject; Shift: TShiftState; X,
  956.       Y: Integer);
  957.     procedure DUserSellOffMouseDown(Sender: TObject; Button: TMouseButton;
  958.       Shift: TShiftState; X, Y: Integer);
  959.     procedure DBoxItemGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  960.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  961.     procedure DBoxItemsDirectPaint(Sender: TObject;
  962.       dsurface: TTexture);
  963.     procedure DItemBoxDirectPaint(Sender: TObject;
  964.       dsurface: TTexture);
  965.     procedure DBoxItemGridDblClick(Sender: TObject);
  966.     procedure DBoxItemGridGridMouseMove(Sender: TObject; ACol,
  967.       ARow: Integer; Shift: TShiftState);
  968.     procedure DOnHouserClick(Sender: TObject; X, Y: Integer);
  969.     procedure DHelpClick(Sender: TObject; X, Y: Integer);
  970.     procedure DBoxItemsMouseMove(Sender: TObject; Shift: TShiftState; X,
  971.       Y: Integer);
  972.     procedure DUserSellOffMouseMove(Sender: TObject; Shift: TShiftState; X,
  973.       Y: Integer);
  974.     procedure DBookCloseDirectPaint(Sender: TObject;
  975.       dsurface: TTexture);
  976.     procedure DBookPageDirectPaint(Sender: TObject;
  977.       dsurface: TTexture);
  978.     procedure DBookPrevPageClick(Sender: TObject; X, Y: Integer);
  979.     procedure DBookNextPageClick(Sender: TObject; X, Y: Integer);
  980.     procedure DBookNextPageDirectPaint(Sender: TObject;
  981.       dsurface: TTexture);
  982.     procedure DBookDirectPaint(Sender: TObject;
  983.       dsurface: TTexture);
  984.     procedure DBookCloseClick(Sender: TObject; X, Y: Integer);
  985.     procedure DFindOKDirectPaint(Sender: TObject;
  986.       dsurface: TTexture);
  987.     procedure DFindChrCloseClick(Sender: TObject; X, Y: Integer);
  988.     procedure DFindChrClick(Sender: TObject; X, Y: Integer);
  989.     procedure DFindChrDirectPaint(Sender: TObject;
  990.       dsurface: TTexture);
  991.     procedure DFindOKClick(Sender: TObject; X, Y: Integer);
  992.     procedure DBookNextPageInRealArea(Sender: TObject; X, Y: Integer;
  993.       var IsRealArea: Boolean);
  994.     procedure DOpenUpgradeClick(Sender: TObject; X, Y: Integer);
  995.     procedure DCloseUpgradeClick(Sender: TObject; X, Y: Integer);
  996.     procedure DUpgradeItem1MouseMove(Sender: TObject; Shift: TShiftState;
  997.       X, Y: Integer);
  998.     procedure DUpgradeItem1Click(Sender: TObject; X, Y: Integer);
  999.     procedure DUpgradeItem1DirectPaint(Sender: TObject;
  1000.       dsurface: TTexture);
  1001.     procedure DUpgradeMouseMove(Sender: TObject; Shift: TShiftState; X,
  1002.       Y: Integer);
  1003.     procedure DItemBagMouseMove(Sender: TObject; Shift: TShiftState; X,
  1004.       Y: Integer);
  1005.     procedure DOpenUpgradeMouseMove(Sender: TObject; Shift: TShiftState; X,
  1006.       Y: Integer);
  1007.     procedure DStartUpgradeClick(Sender: TObject; X, Y: Integer);
  1008.     procedure DStartUpgradeMouseMove(Sender: TObject; Shift: TShiftState;
  1009.       X, Y: Integer);
  1010.     procedure DButtonDuelClick(Sender: TObject; X, Y: Integer);
  1011.     procedure DDRDuelGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  1012.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  1013.     procedure DDDuelGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  1014.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  1015.     procedure DWDuelDirectPaint(Sender: TObject;
  1016.       dsurface: TTexture);
  1017.     procedure DDRDuelGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
  1018.       Shift: TShiftState);
  1019.     procedure DDDuelGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
  1020.       Shift: TShiftState);
  1021.     procedure DDDuelGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  1022.       Shift: TShiftState);
  1023.     procedure DDDuelGoldClick(Sender: TObject; X, Y: Integer);
  1024.     procedure DDuelCloseClick(Sender: TObject; X, Y: Integer);
  1025.     procedure DWDuelMouseMove(Sender: TObject; Shift: TShiftState; X,
  1026.       Y: Integer);
  1027.     procedure DItemBoxDblClick(Sender: TObject);
  1028.     procedure DItemBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
  1029.       Y: Integer);
  1030.     procedure DGetBoxItemFlashDirectPaint(Sender: TObject;
  1031.       dsurface: TTexture);
  1032.     procedure DHeroItemBagMouseMove(Sender: TObject; Shift: TShiftState; X,
  1033.       Y: Integer);

  1035.     procedure DShopItemGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  1036.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  1037.     procedure DSuperShopItemGridGridPaint(Sender: TObject; ACol,
  1038.       ARow: Integer; Rect: TRect; State: TGridDrawState;
  1039.       dsurface: TTexture);
  1040.     procedure DShopItemGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  1041.       Shift: TShiftState);
  1042.     procedure DSuperShopItemGridGridSelect(Sender: TObject; ACol,
  1043.       ARow: Integer; Shift: TShiftState);
  1044.     procedure DShopItemGridGridMouseMove(Sender: TObject; ACol,
  1045.       ARow: Integer; Shift: TShiftState);
  1046.     procedure DHumManSortMouseMove(Sender: TObject; Shift: TShiftState; X,
  1047.       Y: Integer);
  1048.     procedure DShopMouseMove(Sender: TObject; Shift: TShiftState; X,
  1049.       Y: Integer);
  1050.     procedure DMiniMapDirectPaint(Sender: TObject;
  1051.       dsurface: TTexture);
  1052.     procedure DMiniMapMouseMove(Sender: TObject; Shift: TShiftState; X,
  1053.       Y: Integer);
  1054.     procedure DHeroHealthStateWinMouseMove(Sender: TObject;
  1055.       Shift: TShiftState; X, Y: Integer);
  1056.     procedure DMiniMapMouseDown(Sender: TObject; Button: TMouseButton;
  1057.       Shift: TShiftState; X, Y: Integer);
  1058.     procedure DMapTitleDirectPaint(Sender: TObject;
  1059.       dsurface: TTexture);
  1060.     procedure DButtonOption1Click(Sender: TObject; X, Y: Integer);
  1061.     procedure DEdChatClick(Sender: TObject; X, Y: Integer);
  1062.     procedure DButtonOption1MouseMove(Sender: TObject; Shift: TShiftState;
  1063.       X, Y: Integer);
  1064.     procedure DButtonOption2Click(Sender: TObject; X, Y: Integer);
  1065.     procedure DPlayToolClick(Sender: TObject; X, Y: Integer);
  1066.     procedure DCategorizeSysClick(Sender: TObject; X, Y: Integer);
  1067.     procedure DCategorizeSysDirectPaint(Sender: TObject;
  1068.       dsurface: TTexture);
  1069.     procedure DShowChatClick(Sender: TObject; X, Y: Integer);
  1070.     procedure DEdChatDirectPaint(Sender: TObject;
  1071.       dsurface: TTexture);
  1072.     procedure DEdChatInRealArea(Sender: TObject; X, Y: Integer;
  1073.       var IsRealArea: Boolean);
  1074.     procedure DShowChatMouseMove(Sender: TObject; Shift: TShiftState; X,
  1075.       Y: Integer);
  1076.     procedure DEdChatMouseMove(Sender: TObject; Shift: TShiftState; X,
  1077.       Y: Integer);
  1078.     procedure DListBoxMouseDown(Sender: TObject; Button: TMouseButton;
  1079.       Shift: TShiftState; X, Y: Integer);

  1081.     procedure DButtonShopClick(Sender: TObject; X, Y: Integer);
  1082.     procedure DDuelOKClick(Sender: TObject; X, Y: Integer);
  1083.     procedure DDDuelGoldMouseMove(Sender: TObject; Shift: TShiftState; X,
  1084.       Y: Integer);
  1085.     procedure EdSearchKeyPress(Sender: TObject; var Key: Char);
  1086.     procedure DStoreOpenDirectPaint(Sender: TObject;
  1087.       dsurface: TTexture);
  1088.     procedure DStoreCloseClick(Sender: TObject; X, Y: Integer);
  1089.     procedure DStoreMsgDlgOkClick(Sender: TObject; X, Y: Integer);
  1090.     procedure DStoreMsgDlgDirectPaint(Sender: TObject;
  1091.       dsurface: TTexture);
  1092.     procedure EdStoreDlgEditKeyPress(Sender: TObject; var Key: Char);
  1093.     procedure DStoreDlgClick(Sender: TObject; X, Y: Integer);
  1094.     procedure DUserStoreClick(Sender: TObject; X, Y: Integer);
  1095.     procedure DUserStoreCloseClick(Sender: TObject; X, Y: Integer);
  1096.     procedure DGStoreGridPaint(Sender: TObject; ACol, ARow: Integer;
  1097.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  1098.     procedure DGStoreGridMouseMove(Sender: TObject; ACol, ARow: Integer;
  1099.       Shift: TShiftState);
  1100.     procedure DGStoreGridSelect(Sender: TObject; ACol, ARow: Integer;
  1101.       Shift: TShiftState);
  1102.     procedure DGUserStoreGridMouseMove(Sender: TObject; ACol,
  1103.       ARow: Integer; Shift: TShiftState);
  1104.     procedure DGUserStoreGridPaint(Sender: TObject; ACol, ARow: Integer;
  1105.       Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  1106.     procedure DStoreDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
  1107.       Y: Integer);
  1108.     procedure DUserStoreMouseMove(Sender: TObject; Shift: TShiftState; X,
  1109.       Y: Integer);
  1110.     procedure DStoreDlgDirectPaint(Sender: TObject;
  1111.       dsurface: TTexture);
  1112.     procedure DUserStoreDirectPaint(Sender: TObject;
  1113.       dsurface: TTexture);
  1114.     procedure DStoreOpenClick(Sender: TObject; X, Y: Integer);
  1115.     procedure DStoreCancelClick(Sender: TObject; X, Y: Integer);
  1116.     procedure DGUserStoreGridSelect(Sender: TObject; ACol, ARow: Integer;
  1117.       Shift: TShiftState);
  1118.     procedure DUserStoreBuyClick(Sender: TObject; X, Y: Integer);
  1119.     procedure DStoreMsgDlgClick(Sender: TObject; X, Y: Integer);
  1120.     procedure DMainMenuClick(Sender: TObject; X, Y: Integer);
  1121.     procedure EdIdKeyPress(Sender: TObject; var Key: Char);
  1122.     procedure EdPasswdKeyPress(Sender: TObject; var Key: Char);
  1123.     procedure EdChatKeyPress(Sender: TObject; var Key: Char);
  1124.     procedure EdDlgEditKeyPress(Sender: TObject; var Key: Char);
  1125.     procedure EdChatMouseMove(Sender: TObject; Shift: TShiftState; X,
  1126.       Y: Integer);
  1127.     procedure DGetBoxItemFlashMouseMove(Sender: TObject;
  1128.       Shift: TShiftState; X, Y: Integer);
  1129.     procedure DGetBoxItemMouseMove(Sender: TObject; Shift: TShiftState; X,
  1130.       Y: Integer);
  1131.     procedure DGetBoxItemFlashClick(Sender: TObject; X, Y: Integer);
  1132.     procedure DWRandomCodeDirectPaint(Sender: TObject;
  1133.       dsurface: TTexture);
  1134.     procedure DBRandomCodeOKClick(Sender: TObject; X, Y: Integer);
  1135.     procedure DBRandomCodeChgClick(Sender: TObject; X, Y: Integer);
  1136.     procedure DSWWeaponDblClick(Sender: TObject);
  1137.     procedure EdChatMouseDown(Sender: TObject; Button: TMouseButton;
  1138.       Shift: TShiftState; X, Y: Integer);
  1139.     procedure DMerchantDlgInRealArea(Sender: TObject; X, Y: Integer;
  1140.       var IsRealArea: Boolean);
  1141.     procedure DAdjustAbilOkDirectPaint(Sender: TObject;
  1142.       dsurface: TTexture);
  1143.     procedure DPlusSCDirectPaint(Sender: TObject;
  1144.       dsurface: TTexture);
  1145.     procedure DMinusSCDirectPaint(Sender: TObject;
  1146.       dsurface: TTexture);
  1147.     procedure DMerchantDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
  1148.       Y: Integer);
  1149.     procedure DBotCharRankingDirectPaint(Sender: TObject;
  1150.       dsurface: TTexture);
  1151.     procedure DRankingDlgDirectPaint(Sender: TObject;
  1152.       dsurface: TTexture);
  1153.     procedure DHeroStMag1Click(Sender: TObject; X, Y: Integer);
  1154.     procedure DBotActorRankingDirectPaint(Sender: TObject;
  1155.       dsurface: TTexture);
  1156.     procedure DRankingDlgMouseDown(Sender: TObject; Button: TMouseButton;
  1157.       Shift: TShiftState; X, Y: Integer);
  1158.     procedure DBotCharRankingClick(Sender: TObject; X, Y: Integer);
  1159.     procedure DBotActorRankingClick(Sender: TObject; X, Y: Integer);
  1160.     procedure DBotRankingCloseClick(Sender: TObject; X, Y: Integer);
  1161.     procedure DBotRankingHomeClick(Sender: TObject; X, Y: Integer);
  1162.     procedure DBotRankingUpClick(Sender: TObject; X, Y: Integer);
  1163.     procedure DBotRankingDownClick(Sender: TObject; X, Y: Integer);
  1164.     procedure DBotRankingLastClick(Sender: TObject; X, Y: Integer);
  1165.     procedure DBotRankingSelfClick(Sender: TObject; X, Y: Integer);
  1166.     procedure DRankingClick(Sender: TObject; X, Y: Integer);
  1167.     procedure DScrollScrollDirectPaint(Sender: TObject; dsurface: TTexture);
  1168.     procedure DScrollCenterScrollDirectPaint(Sender: TObject; dsurface: TTexture);


  1171.     procedure DMemoChatClick(Sender: TObject; X, Y: Integer);
  1172.     procedure DChatDlgClick(Sender: TObject; X, Y: Integer);
  1173.     procedure DMemoChatMouseDown(Sender: TObject; Button: TMouseButton;
  1174.       Shift: TShiftState; X, Y: Integer);
  1175.     procedure DButtonTab1DirectPaint(Sender: TObject; dsurface: TTexture);
  1176.     procedure DButtonTab1Click(Sender: TObject; X, Y: Integer);
  1177.     procedure DEditSearchItemDirectPaint(Sender: TObject;
  1178.       dsurface: TTexture);
  1179.     procedure DConfigDlgCloseClick(Sender: TObject; X, Y: Integer);
  1180.     procedure DBookPageInRealArea(Sender: TObject; X, Y: Integer;
  1181.       var IsRealArea: Boolean);
  1182.     procedure DLabelHeroCallHeroDirectPaint(Sender: TObject;
  1183.       dsurface: TTexture);
  1184.     procedure DLabelHeroCallHeroKeyDown(Sender: TObject; var Key: Word;
  1185.       Shift: TShiftState);
  1186.     procedure DLabelHeroCallHeroMouseDown(Sender: TObject;
  1187.       Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  1188.     procedure DMemoChatMouseMove(Sender: TObject; Shift: TShiftState; X,
  1189.       Y: Integer);
  1190.     procedure DMemoChatDirectPaint(Sender: TObject; dsurface: TTexture);
  1191.     procedure DComboboxItemTypeChange(Sender: TObject);
  1192.     procedure DLabelOptionClick(Sender: TObject; X, Y: Integer);
  1193.     procedure DCheckBoxShowActorLableClick(Sender: TObject; X, Y: Integer);
  1194.     procedure DEditSpecialHPChange(Sender: TObject);
  1195.     procedure DComboboxBookIndexChange(Sender: TObject);
  1196.     procedure DComboboxAutoUseMagicChange(Sender: TObject);
  1197.     procedure DComboboxPoisonChange(Sender: TObject);
  1198.     procedure DConfigDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
  1199.       Y: Integer);
  1200.     procedure DEdChatMouseDown(Sender: TObject; Button: TMouseButton;
  1201.       Shift: TShiftState; X, Y: Integer);
  1202.     procedure DConfigDlgKeyDown(Sender: TObject; var Key: Word;
  1203.       Shift: TShiftState);
  1204.     procedure DCheckBoxMusicClick(Sender: TObject; X, Y: Integer);
  1205.     procedure DscStartInRealArea(Sender: TObject; X, Y: Integer;
  1206.       var IsRealArea: Boolean);
  1207.     procedure DEditSearchItemChange(Sender: TObject);
  1208.     procedure DChatDlgDirectPaint(Sender: TObject; dsurface: TTexture);
  1209.     procedure EdSearchDirectPaint(Sender: TObject; dsurface: TTexture);
  1210.     procedure DItemLockClick(Sender: TObject; X, Y: Integer);
  1211.     procedure DMerchantBigDlgCloseClick(Sender: TObject; X, Y: Integer);
  1212.     procedure DSerieMagic1DirectPaint(Sender: TObject; dsurface: TTexture);
  1213.     procedure DSerieMagic1MouseDown(Sender: TObject; Button: TMouseButton;
  1214.       Shift: TShiftState; X, Y: Integer);
  1215.     procedure DSerieMagicMenuClick(Sender: TObject; X, Y: Integer);
  1216.     procedure DEditSerieMagicClick(Sender: TObject; X, Y: Integer);
  1217.     procedure DSerieMagic1MouseMove(Sender: TObject; Shift: TShiftState; X,
  1218.       Y: Integer);
  1219.     procedure DComboboxBookIndexPopup(Sender: TObject);
  1220.     procedure DEditRandomCodeKeyPress(Sender: TObject; var Key: Char);
  1221.     procedure DEditAdjustIncrementChange(Sender: TObject);
  1222.     procedure DComboboxHeroHP1Change(Sender: TObject);
  1223.     procedure DComboboxHeroMP1Change(Sender: TObject);
  1224.     procedure DComboboxHeroHP2Change(Sender: TObject);
  1225.     procedure DComboboxHeroMP2Change(Sender: TObject);
  1226.     procedure DComboboxHumHP1Change(Sender: TObject);
  1227.     procedure DComboboxHumMP1Change(Sender: TObject);
  1228.     procedure DComboboxHumHP2Change(Sender: TObject);
  1229.     procedure DComboboxHumMP2Change(Sender: TObject);
  1230.     procedure DSPage1MouseDown(Sender: TObject; Button: TMouseButton;
  1231.       Shift: TShiftState; X, Y: Integer);
  1232.     procedure DSPage2MouseDown(Sender: TObject; Button: TMouseButton;
  1233.       Shift: TShiftState; X, Y: Integer);
  1234.     procedure DSPage3MouseDown(Sender: TObject; Button: TMouseButton;
  1235.       Shift: TShiftState; X, Y: Integer);
  1236.     procedure DSPage4MouseDown(Sender: TObject; Button: TMouseButton;
  1237.       Shift: TShiftState; X, Y: Integer);
  1238.   private
  1239.     DlgTemp: TList;
  1240.     magcur, magtop: Integer;
  1241.     Heromagcur, Heromagtop: Integer;
  1242.     //EdDlgEdit: TEdit;
  1243.     Memo: TMemo;

  1245.     ViewDlgEdit: Boolean;
  1246.     msglx, msgly: Integer;
  1247.     MenuTop: Integer;

  1249.     MagKeyIcon, MagKeyCurKey: Integer;
  1250.     MagKeyMagName: string;
  1251.     MagicPage: Integer;

  1253.     AbilPage: Integer;

  1255.     HeroMagicPage: Integer;
  1256.     BlinkTime: LongWord;
  1257.     BlinkCount: Integer;
  1258.     GameOptionPage: Integer;

  1260.     //UseNpcLabel: Boolean;

  1262.     m_btSelectShop: Byte;

  1264.     PlayerFullScreen: Boolean;

  1266.     RankingPage: Integer;
  1267.     RankingSelectLine: Integer;

  1269.     ChatDlgLeft: Integer;
  1270.     procedure HideAllControls;
  1271.     procedure RestoreHideControls;
  1272.     procedure PageChanged;
  1273.     procedure HeroPageChanged;
  1274.     procedure DealItemReturnBag(mitem: TClientItem);
  1275.     procedure DealZeroGold;

  1277.     procedure SuperShopItemPrev;
  1278.     procedure SuperShopItemNext;

  1280.     procedure ChgShopSelButton(nType: Integer);
  1281.     procedure DuelItemReturnBag(mitem: TClientItem);

  1283.     procedure NpcLabelClick(Sender: TObject; X, Y: Integer);
  1284.     procedure CharMove(X: Integer);

  1286.     procedure RankingPageChanged(Sender: TObject);

  1288.     procedure DItemLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1289.     procedure DItemLabelClick(Sender: TObject; X, Y: Integer);


  1292.   public
  1293.     StatePage: Integer;
  1294.     HeroStatePage: Integer;
  1295.     ShopTabPage: Integer;
  1296.     ShopPage: array[0..5] of Integer;
  1297.     ShopPageCount: Integer;
  1298.     SortStatePage: Integer;
  1299.     PlayJobSortStatePage: Integer;
  1300.     HeroJobSortStatePage: Integer;
  1301.     SortPage: Integer;
  1302.     SortPageCount: Integer;
  1303.     MsgText: string;
  1304.     DialogSize: Integer;
  1305.     {
  1306.     m_n66C:Integer;
  1307.     m_n688:Integer;
  1308.     m_n6A4:Integer;
  1309.     m_n6A8:Integer;
  1310.     }
  1311. //    m_Dicea:array[0..35] of Integer;

  1313.     m_nDiceCount: Integer;
  1314.     m_boPlayDice: Boolean;
  1315.     m_Dice: array[0..9] of TDiceInfo;

  1317.     MerchantName: string;
  1318.     MerchantFace: Integer;
  1319.     MDlgStr: string;
  1320.     MDlgPoints: TList;
  1321.     RequireAddPoints: Boolean;
  1322.     SelectMenuStr: string;
  1323.     LastestClickTime: LongWord;
  1324.     SpotDlgMode: TSpotDlgMode;

  1326.     MenuList: TList; //list of PTClientGoods
  1327.     menuindex: Integer;
  1328.     SellItemIndex: Integer;
  1329.     MoveSellItemIndex: Integer;
  1330.     CurDetailItem: string;
  1331.     MenuTopLine: Integer;
  1332.     BoDetailMenu: Boolean;
  1333.     BoStorageMenu: Boolean;
  1334.     BoNoDisplayMaxDura: Boolean;
  1335.     BoMakeDrugMenu: Boolean;
  1336.     NAHelps: TStringList;
  1337.     NewAccountTitle: string;

  1339.     DlgEditText: string;
  1340.     StoreDlgEditText: string;
  1341.     UserState1: TUserStateInfo;

  1343.     Guild: string;
  1344.     GuildFlag: string;
  1345.     GuildCommanderMode: Boolean;
  1346.     GuildStrs: TStringList;
  1347.     GuildStrs2: TStringList;
  1348.     GuildNotice: TStringList;
  1349.     GuildMembers: TStringList;
  1350.     GuildTopLine: Integer;
  1351.     GuildEditHint: string;
  1352.     GuildChats: TStringList;
  1353.     BoGuildChat: Boolean;

  1355.     HintList: TStringList;

  1357.     SelItemLabel: TDLabel;
  1358.     Initialized: Boolean;
  1359.     EdChatVisible: Boolean;
  1360.     //procedure Paint; override;

  1362.     procedure DDCheckBoxHintClick(Sender: TObject; X, Y: Integer);
  1363.     procedure DDCheckBoxPickupClick(Sender: TObject; X, Y: Integer);
  1364.     procedure DDCheckBoxShowNameClick(Sender: TObject; X, Y: Integer);

  1366.     procedure Initialize;
  1367.     procedure OpenMyStatus;
  1368.     procedure OpenUserState(UserState: TUserStateInfo);
  1369.     procedure OpenItemBag;
  1370.     procedure ViewBottomBox(Value: Boolean);
  1371.     procedure CancelItemMoving;
  1372.     procedure DropMovingItem;
  1373.     procedure OpenAdjustAbility;

  1375.     procedure ShowSelectServerDlg;
  1376.     function DMessageDlg(msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;


  1379.     procedure DNpcLabelMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  1380.     procedure GetMerchantSayLabel(sData: string; nRecogID: Integer);
  1381.     procedure ShowMDlg(face: Integer; mname, msgstr: string);
  1382.     procedure ShowGuildDlg;
  1383.     procedure ShowGuildEditNotice;
  1384.     procedure ShowGuildEditGrade;

  1386.     procedure ResetMenuDlg;
  1387.     procedure ShowShopMenuDlg;
  1388.     procedure ShowShopSellDlg;
  1389.     procedure CloseDSellDlg;
  1390.     procedure CloseMDlg;
  1391.     procedure CloseBigMDlg;
  1392.     procedure ToggleShowGroupDlg;
  1393.     procedure OpenDealDlg;
  1394.     procedure CloseDealDlg;

  1396.     procedure OpenFriendDlg;

  1398.     procedure SoldOutGoods(itemserverindex: Integer);
  1399.     procedure DelStorageItem(itemserverindex: Integer);

  1401.     procedure GetMouseItemInfo(Actor: TActor; MouseItem: pTClientItem; var iname, line1, line2, line3: string; var useable: Boolean);

  1403.     procedure SetMagicKeyDlg(icon: Integer; magname: string; var curkey: Word);
  1404.     procedure AddGuildChat(Str: string);

  1406.     procedure OpenShopDlg;
  1407.     procedure OpenHeroHealthState;
  1408.     procedure CloseHeroAllWindows;
  1409.     procedure DOptionClick();

  1411.     procedure OpenSellOffDlg;
  1412.     procedure CloseSellOffDlg;

  1414.     procedure OpenStoreDlg;
  1415.     procedure CloseStoreDlg;

  1417.     procedure OpenUserStoreDlg;
  1418.     procedure CloseUserStoreDlg;

  1420.     procedure SetBookType(nType: Integer);
  1421.     procedure OpenDuelDlg;
  1422.     procedure CloseDuelDlg;
  1423.     procedure SetButVisible(Value: Boolean);
  1424.     procedure SetInputVisible(Value: Boolean);
  1425.     procedure SetChatVisible(Value: Boolean);

  1427.     function DStoreMessageDlg(): TModalResult;

  1429.     procedure ShowRandomDlg;
  1430.     procedure CloseRandomDlg;

  1432.     function AddMemoChat(Str: string; FColor, BColor: Integer): string;
  1433.     procedure SetConfigDlg();
  1434.   end;


  1437. var
  1438.   FrmDlg: TFrmDlg;

  1440. implementation

  1442. uses
  1443.   ClMain, MShare;

  1445. {$R *.DFM}

  1447. function GetAddPoint(AddPoint: TValue): Boolean;
  1448. begin
  1449.   Result := (AddPoint[3] > 0) or (AddPoint[4] > 0) or (AddPoint[5] > 0) or (AddPoint[6] > 0) or
  1450.     (AddPoint[7] > 0) or (AddPoint[8] > 0) or (AddPoint[9] > 0) or (AddPoint[10] > 0) or (AddPoint[11] > 0) or (AddPoint[12] > 0) or (AddPoint[13] > 0);
  1451. end;

  1453. constructor TNpcLabel.Create(AOwner: TComponent);
  1454. begin
  1455.   inherited Create(AOwner);
  1456.   m_nColorPosition := -1;
  1457.   m_nRecogId := -1;
  1458.   //m_sClickString := '';
  1459.   m_ColorList := TList.Create;
  1460. end;

  1462. destructor TNpcLabel.Destroy;
  1463. begin
  1464.   m_ColorList.Free;
  1465.   inherited;
  1466. end;

  1468. procedure TNpcLabel.AddColor(btColor: Byte);
  1469. begin
  1470.   m_ColorList.Add(Pointer(btColor));
  1471. end;

  1473. procedure TNpcLabel.Process;
  1474. begin
  1475.   inherited;
  1476.   if GetTickCount - m_dwChgColorTick > 500 then begin
  1477.     m_dwChgColorTick := GetTickCount;
  1478.     if m_ColorList.Count > 0 then begin
  1479.       if (m_nColorPosition >= 0) and (m_nColorPosition < m_ColorList.Count) then begin
  1480.         UpColor := GetRGB(Integer(m_ColorList.Items[m_nColorPosition]));
  1481.         Inc(m_nColorPosition);
  1482.       end else begin
  1483.         m_nColorPosition := 0;
  1484.       end;
  1485.     end;
  1486.   end;
  1487. end;

  1489. constructor TItemLabel.Create(AOwner: TComponent);
  1490. begin
  1491.   inherited Create(AOwner);
  1492.   FillChar(FClientItem, SizeOf(TClientItem), #0);
  1493.   FClientItem.s.Name := '';
  1494.   FClickTimeTick := GetTickCount;
  1495.   FGetClientItem := True;
  1496. end;

  1498. destructor TItemLabel.Destroy;
  1499. begin
  1500.   inherited;
  1501. end;

  1503. procedure TItemLabel.DirectPaint(dsurface: TTexture);
  1504. var
  1505.   d: TTexture;
  1506. begin
  1507.   inherited DirectPaint(dsurface);
  1508.   {if (FClientItem.s.Name <> '') then begin
  1509.     if (FClientItem.s.AddValue[12] in [1, 3]) or (GetAddPoint(FClientItem.s.AddPoint)) then begin
  1510.       if GetTickCount - FEffectTick[0].dwDrawTick >= 200 then begin
  1511.         FEffectTick[0].dwDrawTick := GetTickCount;
  1512.         if FEffectTick[0].nIndex <= 0 then FEffectTick[0].nIndex := 260 - 1;
  1513.         Inc(FEffectTick[0].nIndex);
  1514.         if FEffectTick[0].nIndex > 265 then FEffectTick[0].nIndex := 260;
  1515.       end;
  1516.       d := g_WMain2Images.Images[FEffectTick[0].nIndex];
  1517.       if d <> nil then begin
  1518.         DrawBlend(dsurface, SurfaceX(Left) - Width div 2, SurfaceY(Top) - Height div 2, d);
  1519.       end;
  1520.     end;

  1522.     if FClientItem.s.AddValue[12] >= 2 then begin
  1523.       if GetTickCount - FEffectTick[1].dwDrawTick >= 200 then begin
  1524.         FEffectTick[1].dwDrawTick := GetTickCount;
  1525.         if FEffectTick[1].nIndex <= 0 then FEffectTick[1].nIndex := 600 - 1;
  1526.         Inc(FEffectTick[1].nIndex);
  1527.         if FEffectTick[1].nIndex > 617 then FEffectTick[1].nIndex := 600;
  1528.       end;
  1529.       d := g_WMain3Images.Images[FEffectTick[1].nIndex];
  1530.       if d <> nil then begin
  1531.         DrawBlend(dsurface, SurfaceX(Left) - Width div 2, SurfaceY(Top) - Height div 2, d);
  1532.       end;
  1533.     end;
  1534.   end;}
  1535. end;

  1537. procedure TItemLabel.Process;
  1538. begin

  1540. end;

  1542. procedure TFrmDlg.NpcLabelClick(Sender: TObject; X, Y: Integer);
  1543. var
  1544.   sMsg, Str, sClickString: string;
  1545.   nCode: Integer;
  1546. begin
  1547.   //ShowMessage('TFrmDlg.NpcLabelClick:' + m_sClickString);
  1548.   //ShowMessage('TFrmDlg.NpcLabelClick:' + TNpcLabel(Sender).m_sClickString);
  1549.   nCode := 0;
  1550.   try
  1551.     if GetTickCount < LastestClickTime then Exit;
  1552.     LastestClickTime := GetTickCount + 3000;
  1553.     nCode := 1;
  1554.     sClickString := TNpcLabel(Sender).Text;
  1555.     nCode := 2;
  1556.     PlaySound(s_glass_button_click);
  1557.     if Pos('@http://', sClickString) > 0 then begin
  1558.       sMsg := Copy(sClickString, 2, Length(sClickString) - 1);
  1559.       g_sCurMerchantSay := '';
  1560.       g_nDownWorkCount := 0;
  1561.       g_nDownWorkCountMax := 0;
  1562.       g_sMerchantReadAddr := Trim(sMsg);
  1563.       CloseMDlg;
  1564.       ShowMDlg(g_nCurMerchantFace, g_sCurMerchantName, '正在读取数据，请稍候...');
  1565.       frmMain.HTTPGetString.URL := g_sMerchantReadAddr;
  1566.       frmMain.HTTPGetString.GetString;
  1567.     end else
  1568.       if Pos('@rmst://', sClickString) > 0 then begin
  1569.       sMsg := Copy(sClickString, 9, Length(sClickString) - 8);
  1570.       sMsg := GetValidStr3(sMsg, Str, ['|']);
  1571.       if (sMsg <> '') and (Str <> '') then begin
  1572.         g_boStartPlayMedia := False;
  1573.         g_nWaiteTime := 0;
  1574.         g_sSongName := Str;
  1575.         g_sDownSongAddr := sMsg;

  1577.           MediaStartPlay(g_sDownSongAddr, False, True);

  1579.       end;

  1581.     end else
  1582.       if Pos('@Media://', sClickString) > 0 then begin
  1583.       sMsg := Copy(sClickString, 10, Length(sClickString) - 9);
  1584.       MediaStartPlay(sMsg, True, True);
  1585.     end else begin
  1586.       nCode := 3;
  1587.       frmMain.SendMerchantDlgSelect(g_nCurMerchant {TNpcLabel(Sender).m_nRecogId}, sClickString);
  1588.       nCode := 4;
  1589.     end;

  1591.   except
  1592.     //Showmessage('TFrmDlg.NpcLabelClick Fail:'+IntToStr(nCode));
  1593.   end;
  1594. end;

  1596. procedure TFrmDlg.FormCreate(Sender: TObject);
  1597. begin
  1598.   Initialized := False;
  1599.   StatePage := 0;
  1600.   HeroStatePage := 0;
  1601.   //ShopPage := 0;
  1602.   SafeFillChar(ShopPage, SizeOf(ShopPage), 0);
  1603.   ShopPageCount := 0;
  1604.   ShopTabPage := 0;
  1605.   SortStatePage := 0;
  1606.   SortPage := 0;
  1607.   SortPageCount := 0;
  1608.   PlayJobSortStatePage := 0;
  1609.   HeroJobSortStatePage := 0;
  1610.   DlgTemp := TList.Create;
  1611.   DialogSize := 1;
  1612.   m_nDiceCount := 0;
  1613.   m_boPlayDice := False;
  1614.   magcur := 0;
  1615.   magtop := 0;
  1616.   Heromagcur := 0;
  1617.   Heromagtop := 0;
  1618.   MDlgPoints := TList.Create;
  1619.   SelectMenuStr := '';
  1620.   MenuList := TList.Create;
  1621.   menuindex := -1;
  1622.   SellItemIndex := -1;
  1623.   MoveSellItemIndex := -1;
  1624.   MenuTopLine := 0;
  1625.   BoDetailMenu := False;
  1626.   BoStorageMenu := False;
  1627.   BoNoDisplayMaxDura := False;
  1628.   BoMakeDrugMenu := False;
  1629.   MagicPage := 0;
  1630.   AbilPage := 0;
  1631.   HeroMagicPage := 0;
  1632.   NAHelps := TStringList.Create;
  1633.   BlinkTime := GetTickCount;
  1634.   BlinkCount := 0;
  1635.   GameOptionPage := 0;
  1636.   g_SellDlgItem.s.Name := '';
  1637.   Guild := '';
  1638.   GuildFlag := '';
  1639.   GuildCommanderMode := False;
  1640.   GuildStrs := TStringList.Create;
  1641.   GuildStrs2 := TStringList.Create;
  1642.   GuildNotice := TStringList.Create;
  1643.   GuildMembers := TStringList.Create;
  1644.   GuildChats := TStringList.Create;
  1645.   HintList := TStringList.Create;

  1647.   PlayerFullScreen := False;

  1649.   RankingSelectLine := -1;
  1650.   ChatDlgLeft := 0;
  1651. { EdDlgEdit := TEdit.Create(frmMain.Owner);
  1652.   with EdDlgEdit do begin
  1653.     Parent := frmMain;
  1654.     Color := clblack;
  1655.     Font.Color := clWhite;
  1656.     Font.Size := 10;
  1657.     MaxLength := 200;
  1658.     Height := 16;
  1659.     Ctl3D := False;
  1660.     BorderStyle := bsSingle;
  1661.     Visible := False;
  1662.   end;  }

  1664.   Memo := TMemo.Create(frmMain.Owner);
  1665.   with Memo do begin
  1666.     Parent := frmMain;
  1667.     Color := clblack;
  1668.     Font.Color := clWhite;
  1669.     Font.Size := 10;
  1670.     Ctl3D := False;
  1671.     BorderStyle := bsSingle; {OnKeyPress := EdDlgEditKeyPress;}
  1672.     Visible := False;//不显示
  1673.   end;
  1674.   //UseNpcLabel := True;
  1675.   SelItemLabel := nil;
  1676. end;

  1678. procedure TFrmDlg.FormDestroy(Sender: TObject);
  1679. var
  1680.   I: Integer;
  1681. begin
  1682.   DlgTemp.Free;
  1683.   MDlgPoints.Free;
  1684.   MenuList.Free;
  1685.   NAHelps.Free;
  1686.   GuildStrs.Free;
  1687.   GuildStrs2.Free;
  1688.   GuildNotice.Free;
  1689.   GuildMembers.Free;
  1690.   GuildChats.Free;
  1691.   HintList.Free;
  1692. end;

  1694. {procedure TFrmDlg.Paint;
  1695. begin
  1696.   //if csDesigning in ComponentState then begin
  1697.     inherited;
  1698.   //end;
  1699. end;   }

  1701. procedure TFrmDlg.HideAllControls;//隐藏所有控件
  1702. var
  1703.   I: Integer;
  1704.   c: TControl;
  1705. begin
  1706.   DlgTemp.Clear;
  1707.   with frmMain do
  1708.     for I := 0 to ControlCount - 1 do begin
  1709.       c := Controls[I];
  1710.       if c is TEdit then
  1711.         if (c.Visible) and (c <> EdDlgEdit) then begin
  1712.           DlgTemp.Add(c);
  1713.           c.Visible := False;
  1714.         end;
  1715.     end;
  1716. end;

  1718. procedure TFrmDlg.RestoreHideControls;//还原控件
  1719. var
  1720.   I: Integer;
  1721.   c: TControl;
  1722. begin
  1723.   for I := 0 to DlgTemp.Count - 1 do begin
  1724.     TControl(DlgTemp[I]).Visible := True;
  1725.   end;
  1726. end;

  1728. procedure TFrmDlg.SetBookType(nType: Integer);//读取书
  1729. var
  1730.   d: TTexture;
  1731. begin
  1732.   DBook.Visible := False;//不显示
  1733.   g_nBookType := nType;//页码
  1734.   g_nBookPage := 0;

  1736.   d := nil;
  1737.   if g_nBookType = 0 then begin
  1738.     d := g_WUIBImages.Images[0];
  1739.     if d <> nil then begin
  1740.       DBook.SetImgIndex(g_WUIBImages, 0);
  1741.       DBook.Left := (SCREENWIDTH - d.Width) div 2;
  1742.       DBook.Top := (SCREENHEIGHT - d.Height) div 2 - 90;
  1743.     end;
  1744.   end else begin
  1745.     d := g_WBookImages.Images[g_nBookType + 6];
  1746.     if d <> nil then begin
  1747.       DBook.SetImgIndex(g_WBookImages, g_nBookType + 6);
  1748.       DBook.Left := (SCREENWIDTH - d.Width) div 2;
  1749.       DBook.Top := (SCREENHEIGHT - d.Height) div 2 - 90;
  1750.     end;
  1751.   end;

  1753.   d := g_WUIBImages.Images[1];
  1754.   if d <> nil then begin
  1755.     if g_nBookType = 0 then begin
  1756.       DBookClose.Left := DBook.Width - d.Width - 3;
  1757.       DBookClose.Top := 0;
  1758.     end else begin
  1759.       DBookClose.Left := DBook.Width - d.Width;
  1760.       DBookClose.Top := 0;
  1761.     end;
  1762.   end;

  1764.   if g_nBookPage = 4 then begin
  1765.     d := g_WBookImages.Images[5];
  1766.     if d <> nil then begin
  1767.       DBookNextPage.SetImgIndex(g_WUIBImages, 5);
  1768.       DBookNextPage.Left := 470 - d.Width;
  1769.       DBookNextPage.Top := 318;
  1770.     end;
  1771.   end else begin
  1772.     d := g_WUIBImages.Images[3];
  1773.     if d <> nil then begin
  1774.       DBookNextPage.SetImgIndex(g_WUIBImages, 3);
  1775.       DBookNextPage.Left := 470 - d.Width;
  1776.       DBookNextPage.Top := 318;
  1777.     end;
  1778.   end;

  1780.   case nType of
  1781.     0: begin
  1782.         DBookPrevPage.Visible := False;
  1783.         DBookNextPage.Visible := True;
  1784.         DBookPage.Visible := True;
  1785.       end;
  1786.   else begin
  1787.       DBookPrevPage.Visible := False;
  1788.       DBookNextPage.Visible := False;
  1789.       DBookPage.Visible := False;
  1790.     end;
  1791.   end;
  1792.   DBook.Visible := True;//显示
  1793. end;

  1795. procedure TFrmDlg.Initialize;//初始化
  1796. var
  1797.   d: TTexture;

  1799.   I, II, nIndex: Integer;
  1800.   ItemList: TStringList;
  1801.   DLabel: TDLabel;
  1802.   sText: string;
  1803. begin
  1804.   if csDesigning in ComponentState then Exit;
  1805.   if Initialized then Exit;//是否初始化过

  1807.   DComboboxGuajiQunti.Items.Clear;
  1808.   DComboboxGuajiGeti.Items.Clear;
  1809.   DComboboxAutoUseMagic.Items.Clear;
  1810.   DSerieMagicMenu.Clear;

  1812.   DWinMan.ClearAll; //清理所有
  1813.   //初始化背景
  1814.   DBackground.Left := 0;
  1815.   DBackground.Top := 0;
  1816.   DBackground.Width := SCREENWIDTH;
  1817.   DBackground.Height := SCREENHEIGHT;
  1818.   DBackground.Background := True;

  1820.   DWinMan.AddDControl(DBackground, True);
  1821.   DWinMan.AddDControl(DMainMenu, False);


  1824. {-------------------------------------------------------------------------------}
  1825.   if g_ConfigClient.btMainInterface in [0, 2] then begin //仿盛大
  1826. //{$IF SWH = SWH800}
  1827.     d := g_WMain3Images.Images[BOTTOMBOARD800];
  1828. //{$ELSEIF SWH = SWH1024}
  1829.    // d := g_WMain3Images.Images[BOTTOMBOARD800];
  1830. //{$IFEND}
  1831.     if d <> nil then begin
  1832.       DBottom.Left := (SCREENWIDTH - d.Width) div 2;
  1833.       DBottom.Top := SCREENHEIGHT - d.Height;
  1834.       DBottom.SetImgIndex(g_WMain3Images, 371);
  1835.     end;
  1836. {-------------------------------------------------------------------------------}

  1838.    //底部状态栏的4个快捷按钮
  1839.     DMyState.SetImgIndex(g_WMainImages, 8);
  1840.     DMyState.Left := DBottom.Width div 2 + (DBottom.Width div 2 - (400 - 243)) {643};
  1841.     DMyState.Top := 61;
  1842.     DMyBag.SetImgIndex(g_WMainImages, 9);
  1843.     DMyBag.Left := DBottom.Width div 2 + (DBottom.Width div 2 - (400 - 282)) {682};
  1844.     DMyBag.Top := 41;
  1845.     DMyMagic.SetImgIndex(g_WMainImages, 10);
  1846.     DMyMagic.Left := DBottom.Width div 2 + (DBottom.Width div 2 - (400 - 322)) {722};
  1847.     DMyMagic.Top := 21;
  1848.     DVoice.SetImgIndex(g_WMainImages, 11);
  1849.     DVoice.Left := DBottom.Width div 2 + (DBottom.Width div 2 - (400 - 364)) {764};
  1850.     DVoice.Top := 11;

  1852.   {-----------------------------商铺按钮（Mars）----------------------}
  1853.     DButtonShop.SetImgIndex(g_WMain3Images, 297);
  1854.     DButtonShop.Left := DBottom.Width - 45;
  1855.     DButtonShop.Top := 204;

  1857.   {-----------------------------英雄按钮（Mars）----------------------}
  1858.     DButtonReCallHero.SetImgIndex(g_WMain3Images, 372);
  1859.     DButtonReCallHero.Left := 638;
  1860.     DButtonReCallHero.Top := 107;

  1862.     DButtonHeroState.SetImgIndex(g_WMain3Images, 373);
  1863.     DButtonHeroState.Left := DButtonReCallHero.Left + DButtonReCallHero.Width + 6;
  1864.     DButtonHeroState.Top := 107;

  1866.     DButtonHeroBag.SetImgIndex(g_WMain3Images, 374);
  1867.     DButtonHeroBag.Left := DButtonHeroState.Left + DButtonHeroState.Width + 6 + 1;
  1868.     DButtonHeroBag.Top := 107; ;

  1870.     d := g_WMain3Images.Images[410];
  1871.     if d <> nil then begin
  1872.       DFirDragon.Left := DBottom.Width - 197;
  1873.       DFirDragon.Top := 86;
  1874.       DFirDragon.SetImgIndex(g_WMain3Images, 410);
  1875.       DFirDragon.Visible := False;
  1876.     end;

  1878.   //底部状态栏的小地图、交易、行会、组按钮
  1879.     DBotMiniMap.SetImgIndex(g_WMainImages, 130);
  1880.     DBotMiniMap.Left := 219;
  1881.     DBotMiniMap.Top := 104;
  1882.     DBotTrade.SetImgIndex(g_WMainImages, 132);
  1883.     DBotTrade.Left := 219 + 30; //560 - 30;
  1884.     DBotTrade.Top := 104;
  1885.     DBotGuild.SetImgIndex(g_WMainImages, 134);
  1886.     DBotGuild.Left := 219 + 30 * 2;
  1887.     DBotGuild.Top := 104;
  1888.     DBotGroup.SetImgIndex(g_WMainImages, 128);
  1889.     DBotGroup.Left := 219 + 30 * 3;
  1890.     DBotGroup.Top := 104;
  1891.     DButtonFriend.SetImgIndex(g_WMain3Images, 34); //关系系统
  1892.     DButtonFriend.Left := 219 + 30 * 4;
  1893.     DButtonFriend.Top := 104;
  1894.     DButtonDuel.SetImgIndex(g_WMain3Images, 36); //挑战
  1895.     DButtonDuel.Left := 219 + 30 * 5;
  1896.     DButtonDuel.Top := 104;
  1897.     DRanking.SetImgIndex(g_WMain3Images, 460); //人物排行
  1898.     DRanking.Left := 219 + 30 * 6;
  1899.     DRanking.Top := 104;

  1901.     DOnHouser.SetImgIndex(g_WCqFirImages, 58); //骑马
  1902.     DOnHouser.Left := 219 + 30 * 7;
  1903.     DOnHouser.Top := 104;

  1905.     DHelp.SetImgIndex(g_WCqFirImages, 56); //帮助
  1906.     DHelp.Left := 219 + 30 * 8;
  1907.     DHelp.Top := 104;

  1909.     DBotPlusAbil.SetImgIndex(g_WMainImages, 218);
  1910.     DBotPlusAbil.Left := 219 + 30 * 9;
  1911.     DBotPlusAbil.Top := 104;

  1913.     DBotMemo.SetImgIndex(g_WMainImages, 532);
  1914.     DBotMemo.Left := 753;
  1915.     DBotMemo.Top := 204;

  1917.     DBotExit.SetImgIndex(g_WMainImages, 138);
  1918.     DBotExit.Left := 560;
  1919.     DBotExit.Top := 104;

  1921.     DBotLogout.SetImgIndex(g_WMainImages, 136);
  1922.     DBotLogout.Left := 560 - 30;
  1923.     DBotLogout.Top := 104;

  1925.     DButFunc1.SetImgIndex(g_WMain3Images, 280);
  1926.     DButFunc1.Left := 176;
  1927.     DButFunc1.Top := 120;

  1929.     DButFunc2.SetImgIndex(g_WMain3Images, 282);
  1930.     DButFunc2.Left := 176;
  1931.     DButFunc2.Top := DButFunc1.Top + 25;

  1933.     DButFunc3.SetImgIndex(g_WMain3Images, 284);
  1934.     DButFunc3.Left := 176;
  1935.     DButFunc3.Top := DButFunc1.Top + 25 * 2;

  1937.     DButFunc4.SetImgIndex(g_WMain3Images, 286);
  1938.     DButFunc4.Left := 176;
  1939.     DButFunc4.Top := DButFunc1.Top + 25 * 3;

  1941.     DButFunc5.SetImgIndex(g_WMain3Images, 288);
  1942.     DButFunc5.Left := 176;
  1943.     DButFunc5.Top := DButFunc1.Top + 25 * 4;
  1944.     DButFunc5.Downed := True; //是按钮处于摁住状态

  1946.   {-----------------------------------------------------------}

  1948.   //Belt 快捷栏
  1949.     DBelt1.Left := DBottom.Width div 2 - 115; //285;
  1950.     DBelt1.Width := 32;
  1951.     DBelt1.Top := 59;
  1952.     DBelt1.Height := 29;

  1954.     DBelt2.Left := DBelt1.Left + 43; //328;
  1955.     DBelt2.Width := 32;
  1956.     DBelt2.Top := 59;
  1957.     DBelt2.Height := 29;

  1959.     DBelt3.Left := DBelt2.Left + 43; //371;
  1960.     DBelt3.Width := 32;
  1961.     DBelt3.Top := 59;
  1962.     DBelt3.Height := 29;

  1964.     DBelt4.Left := DBelt3.Left + 43; //415;
  1965.     DBelt4.Width := 32;
  1966.     DBelt4.Top := 59;
  1967.     DBelt4.Height := 29;

  1969.     DBelt5.Left := DBelt4.Left + 43; //459;
  1970.     DBelt5.Width := 32;
  1971.     DBelt5.Top := 59;
  1972.     DBelt5.Height := 29;

  1974.     DBelt6.Left := DBelt5.Left + 43; //503;
  1975.     DBelt6.Width := 32;
  1976.     DBelt6.Top := 59;
  1977.     DBelt6.Height := 29;

  1979.   {-----------------------------------------------------------}
  1980.   //英雄
  1981.     d := g_WMain3Images.Images[385];
  1982.     if d <> nil then begin
  1983.       DHeroHealthStateWin.SetImgIndex(g_WMain3Images, 385);
  1984.       DHeroHealthStateWin.Left := 5;
  1985.       DHeroHealthStateWin.Top := 5;
  1986.     end;


  1989.     DPlayTool.Visible := False;
  1990.     DButtonOption1.Visible := False;
  1991.     DButtonOption2.Visible := False;
  1992.     DButOther.Visible := False;
  1993.     DMapTitle.Visible := False;
  1994.     DCategorizeSys.Visible := False;
  1995.     DCategorizeGuild.Visible := False;
  1996.     DCategorizeGroup.Visible := False;
  1997.     DCategorizePrivate.Visible := False;
  1998.     DShowChat.Visible := False;

  2000. {-------------------------------------------------------------------------------}

  2002.     DChatDlg.Left := 208;
  2003.     DChatDlg.Top := 120; //SCREENHEIGHT - 251 + 118;
  2004.     DChatDlg.Width := 388;
  2005.     DChatDlg.Height := 126;
  2006.     DChatDlg.DParent := DBottom;
  2007.     DChatDlg.Floating := False;

  2009.     DMemoChat.Left := 0;
  2010.     DMemoChat.Top := 0;
  2011.     DMemoChat.Width := 388;
  2012.     DMemoChat.Height := 12 * 9;
  2013.     DMemoChat.SpareSize := DMemoChat.Height - 12 * 2;

  2015.     EdChat.Left := 0;
  2016.     EdChat.Top := 12 * 9 + 4;
  2017.     EdChat.Width := 388;
  2018.     EdChat.Height := 16;
  2019.     EdChat.DParent := DChatDlg;
  2020.     EdChat.Visible := False;
  2021.     EdChat.Text := '';
  2022.     EdChat.SelTextFontColor := clWhite;


  2025.     DScrollChat.SetImgIndex(g_WMain2Images, 291);
  2026.     DScrollChat.LeftButton.SetImgIndex(g_WMain2Images, 292);
  2027.     DScrollChat.RightButton.SetImgIndex(g_WMain2Images, 294);
  2028.     DScrollChat.CenterButton.SetImgIndex(g_WMain2Images, 581);

  2030.     DScrollChat.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  2031.     DScrollChat.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  2032.     DScrollChat.CenterButton.OnDirectPaint := nil;
  2033.     DScrollChat.Left := DMemoChat.Width;
  2034.     DScrollChat.Top := -90;
  2035.     DScrollChat.Increment := 12;
  2036.     DScrollChat.LeftButton.Left := 1;
  2037.     DScrollChat.LeftButton.Top := 1;
  2038.     DScrollChat.RightButton.Left := 1;
  2039.     DScrollChat.RightButton.Top := DScrollChat.Height - DScrollChat.RightButton.Height - 1;
  2040.     DScrollChat.CenterButton.Left := 1;
  2041.     DScrollChat.CenterButton.Top := DScrollChat.LeftButton.Top + DScrollChat.LeftButton.Height;



  2045.     DScrollChat.Left := 0;
  2046.     DScrollChat.Top := 0;
  2047.     DScrollChat.Width := 0;
  2048.     DScrollChat.Height := 0;

  2050.     DScrollChat.VisibleScroll := False;

  2052.     DShowChat.Visible := False;
  2053.   end else begin
  2054.     d := g_WCqFirImages.Images[65];
  2055.     if d <> nil then begin
  2056.       DBottom.Left := (SCREENWIDTH - d.Width) div 2;
  2057.       DBottom.Top := SCREENHEIGHT - d.Height;
  2058.       DBottom.SetImgIndex(g_WCqFirImages, 65);
  2059.     end;
  2060.   {-----------------------------------------------------------}

  2062.    //底部状态栏的4个快捷按钮

  2064.     DMyState.SetImgIndex(g_WCqFirImages, 67); //状态
  2065.     DMyState.Left := 440;
  2066.     DMyState.Top := 3;

  2068.     DMyBag.SetImgIndex(g_WCqFirImages, 66); //包裹
  2069.     DMyBag.Left := 440 + 36;
  2070.     DMyBag.Top := 3;

  2072.     DMyMagic.SetImgIndex(g_WCqFirImages, 68); //魔法
  2073.     DMyMagic.Left := 440 + 36 * 2;
  2074.     DMyMagic.Top := 3;


  2077.     DHelp.SetImgIndex(g_WCqFirImages, 69); //摆摊
  2078.     DHelp.Left := 440 + 36 * 3;
  2079.     DHelp.Top := 3;
  2080.     DHelp.OnDirectPaint := DMyStateDirectPaint;
  2081.     DHelp.ClickCount := csGlass;

  2083.     DButtonReCallHero.SetImgIndex(g_WCqFirImages, 70); //英雄
  2084.     DButtonReCallHero.Left := 440 + 36 * 4;
  2085.     DButtonReCallHero.Top := 3;
  2086.     DButtonReCallHero.ClickCount := csGlass;

  2088.     DButtonShop.Left := 440 + 36 * 5; //607              //商铺
  2089.     DButtonShop.Top := 3;
  2090.     DButtonShop.SetImgIndex(g_WCqFirImages, 71);
  2091.     DButtonShop.ClickCount := csGlass;

  2093.     DPlayTool.SetImgIndex(g_WCqFirImages, 72); //影音
  2094.     DPlayTool.Left := 440 + 36 * 6;
  2095.     DPlayTool.Top := 3;



  2099.     DBotLogout.SetImgIndex(g_WCqFirImages, 127);
  2100.     DBotLogout.Left := 766;
  2101.     DBotLogout.Top := 3;
  2102.     DBotLogout.OnDirectPaint := DMyStateDirectPaint;

  2104.     DBotExit.SetImgIndex(g_WCqFirImages, 128);
  2105.     DBotExit.Left := 766;
  2106.     DBotExit.Top := 21;
  2107.     DBotExit.OnDirectPaint := DMyStateDirectPaint;

  2109.   //英雄
  2110.     d := g_WCqFirImages.Images[129];
  2111.     if d <> nil then begin
  2112.       DHeroHealthStateWin.SetImgIndex(g_WCqFirImages, 129);
  2113.       DHeroHealthStateWin.Left := 5;
  2114.       DHeroHealthStateWin.Top := 5;
  2115.     end;


  2118.     DButtonHeroBag.DParent := DHeroHealthStateWin;
  2119.     DButtonHeroState.DParent := DHeroHealthStateWin;

  2121.     DButtonHeroBag.SetImgIndex(g_WCqFirImages, 134);
  2122.     DButtonHeroBag.Left := 59;
  2123.     DButtonHeroBag.Top := 44;

  2125.     DButtonHeroState.SetImgIndex(g_WCqFirImages, 135);
  2126.     DButtonHeroState.Left := 59 + 22;
  2127.     DButtonHeroState.Top := 45;



  2131.     DFirDragon.Visible := False;
  2132.     DButtonDuel.Visible := False;


  2135.     DBotMiniMap.DParent := DBackground;
  2136.     DOnHouser.DParent := DBackground;
  2137.     DBotTrade.DParent := DBackground;
  2138.     DBotGuild.DParent := DBackground;
  2139.     DBotPlusAbil.DParent := DBackground;
  2140.     DButtonFriend.DParent := DBackground;
  2141.     DRanking.DParent := DBackground;
  2142.     DVoice.DParent := DBackground;
  2143.     DVoice.OnDirectPaint := DBotGroupDirectPaint;

  2145.     DBotGroup.DParent := DBackground;


  2148.   //底部状态栏的小地图、交易、行会、组按钮
  2149.     DBotMiniMap.SetImgIndex(g_WCqFirImages, 76);
  2150.     DBotMiniMap.Left := DBottom.Width - 23 * 9 - 3 * 8 + DBottom.Left;
  2151.     DBotMiniMap.Top := SCREENHEIGHT - 58;


  2154.     DBotTrade.SetImgIndex(g_WCqFirImages, 80);
  2155.     DBotTrade.Left := DBottom.Width - 23 * 8 - 3 * 7 + DBottom.Left;
  2156.     DBotTrade.Top := SCREENHEIGHT - 58;

  2158.     DBotGuild.SetImgIndex(g_WCqFirImages, 82);
  2159.     DBotGuild.Left := DBottom.Width - 23 * 7 - 3 * 6 + DBottom.Left;
  2160.     DBotGuild.Top := SCREENHEIGHT - 58;

  2162.     DBotGroup.SetImgIndex(g_WCqFirImages, 143);
  2163.     DBotGroup.Left := DBottom.Width - 23 * 6 - 3 * 5 + DBottom.Left;
  2164.     DBotGroup.Top := SCREENHEIGHT - 58;

  2166.     DOnHouser.SetImgIndex(g_WCqFirImages, 78); //骑马
  2167.     DOnHouser.Left := DBottom.Width - 23 * 5 - 3 * 4 + DBottom.Left;
  2168.     DOnHouser.Top := SCREENHEIGHT - 58;

  2170.     DButtonFriend.SetImgIndex(g_WCqFirImages, 86); //关系系统
  2171.     DButtonFriend.Left := DBottom.Width - 23 * 4 - 3 * 3 + DBottom.Left;
  2172.     DButtonFriend.Top := SCREENHEIGHT - 58;

  2174.     DRanking.SetImgIndex(g_WCqFirImages, 88); //人物排行
  2175.     DRanking.Left := DBottom.Width - 23 * 3 - 3 * 2 + DBottom.Left;
  2176.     DRanking.Top := SCREENHEIGHT - 58;

  2178.     DVoice.SetImgIndex(g_WCqFirImages, 90);
  2179.     DVoice.Left := DBottom.Width - 23 * 2 - 3 + DBottom.Left;
  2180.     DVoice.Top := SCREENHEIGHT - 58;

  2182.     DButOther.SetImgIndex(g_WCqFirImages, 92);
  2183.     DButOther.Left := DBottom.Width - 23 * 1 + DBottom.Left;
  2184.     DButOther.Top := SCREENHEIGHT - 58;

  2186.     DBotPlusAbil.SetImgIndex(g_WCqFirImages, 84);
  2187.     DBotPlusAbil.Left := DBottom.Width - 23 * 10 - 3 * 9 + DBottom.Left;
  2188.     DBotPlusAbil.Top := SCREENHEIGHT - 58;

  2190.     SetButVisible(False);


  2193.     DMapTitle.SetImgIndex(g_WCqFirImages, 126);
  2194.     DMapTitle.Left := SCREENWIDTH - 139;
  2195.     DMapTitle.Top := 0;
  2196.     DMapTitle.Height := 17;

  2198.     DButFunc1.Visible := False;
  2199.     DButFunc2.Visible := False;
  2200.     DButFunc3.Visible := False;
  2201.     DButFunc4.Visible := False;

  2203.     DButFunc5.DParent := DEdChat;

  2205.     DButFunc5.SetImgIndex(g_WCqFirImages, 94);
  2206.     DButFunc5.Left := 3;
  2207.     DButFunc5.Top := 2;

  2209.     DButFunc5.Downed := True; //是按钮处于摁住状态

  2211.     DCategorizeSys.SetImgIndex(g_WCqFirImages, 106);
  2212.     DCategorizeSys.Left := 150;
  2213.     DCategorizeSys.Top := 520;

  2215.     DCategorizeGuild.SetImgIndex(g_WCqFirImages, 108);
  2216.     DCategorizeGuild.Left := 150 + 36;
  2217.     DCategorizeGuild.Top := 520;

  2219.     DCategorizeGroup.SetImgIndex(g_WCqFirImages, 110);
  2220.     DCategorizeGroup.Left := 150 + 36 * 2;
  2221.     DCategorizeGroup.Top := 520;

  2223.     DCategorizePrivate.SetImgIndex(g_WCqFirImages, 112);
  2224.     DCategorizePrivate.Left := 150 + 36 * 3;
  2225.     DCategorizePrivate.Top := 520;



  2229.     DShowChat.SetImgIndex(g_WCqFirImages, 145);
  2230.     DShowChat.Left := 373;
  2231.     DShowChat.Top := 2;



  2235.   //Belt 快捷栏
  2236.     DBelt1.Left := 224;
  2237.     DBelt1.Width := 30;
  2238.     DBelt1.Top := 4;
  2239.     DBelt1.Height := 30;

  2241.     DBelt2.Left := 224 + 36;
  2242.     DBelt2.Width := 30;
  2243.     DBelt2.Top := 4;
  2244.     DBelt2.Height := 30;

  2246.     DBelt3.Left := 224 + 36 * 2;
  2247.     DBelt3.Width := 30;
  2248.     DBelt3.Top := 4;
  2249.     DBelt3.Height := 30;

  2251.     DBelt4.Left := 224 + 36 * 3;
  2252.     DBelt4.Width := 30;
  2253.     DBelt4.Top := 4;
  2254.     DBelt4.Height := 30;

  2256.     DBelt5.Left := 224 + 36 * 4;
  2257.     DBelt5.Width := 30;
  2258.     DBelt5.Top := 4;
  2259.     DBelt5.Height := 30;

  2261.     DBelt6.Left := 224 + 36 * 5;
  2262.     DBelt6.Width := 30;
  2263.     DBelt6.Top := 4;
  2264.     DBelt6.Height := 30;

  2266.      {
  2267.   //Belt 快捷栏
  2268.     DBelt1.Left := 172;
  2269.     DBelt1.Width := 30;
  2270.     DBelt1.Top := 10;
  2271.     DBelt1.Height := 29;

  2273.     DBelt2.Left := DBelt1.Left + 37;
  2274.     DBelt2.Width := 30;
  2275.     DBelt2.Top := 10;
  2276.     DBelt2.Height := 29;

  2278.     DBelt3.Left := DBelt2.Left + 37;
  2279.     DBelt3.Width := 30;
  2280.     DBelt3.Top := 10;
  2281.     DBelt3.Height := 29;

  2283.     DBelt4.Left := DBelt3.Left + 37;
  2284.     DBelt4.Width := 30;
  2285.     DBelt4.Top := 10;
  2286.     DBelt4.Height := 29;

  2288.     DBelt5.Left := DBelt4.Left + 37;
  2289.     DBelt5.Width := 30;
  2290.     DBelt5.Top := 10;
  2291.     DBelt5.Height := 29;

  2293.     DBelt6.Left := DBelt5.Left + 37;
  2294.     DBelt6.Width := 30;
  2295.     DBelt6.Top := 10;
  2296.     DBelt6.Height := 29;
  2297.       }

  2299.     DButtonOption1.SetImgIndex(g_WCqFirImages, 115);
  2300.     DButtonOption1.Left := DBelt6.Left + 36 + 1;
  2301.     DButtonOption1.Top := 10;

  2303.     DButtonOption2.SetImgIndex(g_WCqFirImages, 117);
  2304.     DButtonOption2.Left := DBelt6.Left + 36 + 1;
  2305.     DButtonOption2.Top := 10 + 18;

  2307.     DButtonOption1.Visible := False;
  2308.     DButtonOption2.Visible := False;

  2310.     DMyState.OnDirectPaint := DButtonShopDirectPaint;
  2311.     DMyBag.OnDirectPaint := DButtonShopDirectPaint;
  2312.     DMyMagic.OnDirectPaint := DButtonShopDirectPaint;
  2313.     DPlayTool.OnDirectPaint := DButtonShopDirectPaint;
  2314.     DHelp.OnDirectPaint := DButtonShopDirectPaint;
  2315.     DButtonReCallHero.OnDirectPaint := DButtonShopDirectPaint;


  2318.     DEdChat.SetImgIndex(g_WCqFirImages, 123);
  2319.     DEdChat.Floating := False;
  2320.     DEdChat.Left := DBottom.Left;
  2321.     DEdChat.Top := SCREENHEIGHT - DEdChat.Height - DBottom.Height;
  2322.     DEdChat.DParent := DBackground;

  2324.     EdChat.Left := 20;
  2325.     EdChat.Top := 3;
  2326.     EdChat.Width := 349;
  2327.     EdChat.Height := 14;
  2328.     EdChat.DParent := DEdChat;
  2329.     EdChat.Visible := False;
  2330.     EdChat.Text := '';
  2331.     EdChat.SelTextColor := $00DC802C;
  2332.     EdChat.SelTextFontColor := clWhite;


  2335.     DChatDlg.Height := 12 * 9 + 2;
  2336.     DChatDlg.Width := DEdChat.Width;
  2337.     DChatDlg.Left := DBottom.Left;
  2338.     DChatDlg.Top := SCREENHEIGHT - DChatDlg.Height - DEdChat.Height - DBottom.Height; //SCREENHEIGHT - 251 + 118;

  2340.     DChatDlg.DParent := DBackground;
  2341.     DChatDlg.Floating := False;
  2342.     DChatDlg.Visible := False;

  2344.     DMemoChat.Left := 2;
  2345.     DMemoChat.Top := 2;
  2346.     DMemoChat.Width := DChatDlg.Width - 18;
  2347.     DMemoChat.Height := 12 * 9;
  2348.     DMemoChat.SpareSize := DMemoChat.Height - 12;
  2349.     //DMemoChat.Border:=True;

  2351.     {DScrollChat.SetImgIndex(g_WMain2Images, 291);
  2352.     DScrollChat.LeftButton.SetImgIndex(g_WMain2Images, 292);
  2353.     DScrollChat.RightButton.SetImgIndex(g_WMain2Images, 294);
  2354.     DScrollChat.CenterButton.SetImgIndex(g_WMain2Images, 581);}

  2356.     DScrollChat.SetImgIndex(g_WCqFirImages, 124);
  2357.     DScrollChat.LeftButton.SetImgIndex(g_WCqFirImages, 119);
  2358.     DScrollChat.RightButton.SetImgIndex(g_WCqFirImages, 121);
  2359.     DScrollChat.CenterButton.SetImgIndex(g_WCqFirImages, 118);

  2361.     DScrollChat.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  2362.     DScrollChat.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  2363.     DScrollChat.OnDirectPaint := DScrollCenterScrollDirectPaint;
  2364.     DScrollChat.Left := DMemoChat.Width + 1;
  2365.     DScrollChat.Top := 0;
  2366.     DScrollChat.Height := DChatDlg.Height;

  2368.     DScrollChat.Increment := 12;
  2369.     DScrollChat.LeftButton.Left := (DScrollChat.Width - DScrollChat.LeftButton.Width) div 2;
  2370.     DScrollChat.LeftButton.Top := 1;
  2371.     DScrollChat.RightButton.Left := (DScrollChat.Width - DScrollChat.RightButton.Width) div 2;
  2372.     DScrollChat.RightButton.Top := DScrollChat.Height - DScrollChat.RightButton.Height - 1;
  2373.     DScrollChat.CenterButton.Left := (DScrollChat.Width - DScrollChat.CenterButton.Width) div 2;
  2374.     DScrollChat.CenterButton.Top := DScrollChat.LeftButton.Top + DScrollChat.LeftButton.Height;

  2376.    { DMemoChat.Left := DScrollChat.Width + 1;
  2377.     DMemoChat.Top := 0;
  2378.     DMemoChat.Width := DChatDlg.Width - 18;
  2379.     DMemoChat.Height := 12 * 9;  }


  2382.     SetInputVisible(False);
  2383.     SetChatVisible(False);
  2384.   end;


  2387.   {-----------------------------------------------------------}
  2388.   d := g_WMainImages.Images[360];
  2389.   if d <> nil then begin
  2390.     DMsgDlg.SetImgIndex(g_WMainImages, 360);
  2391.     DMsgDlg.Left := (SCREENWIDTH - d.Width) div 2;
  2392.     DMsgDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  2393.   end;
  2394.   DMsgDlgOk.SetImgIndex(g_WMainImages, 361);
  2395.   DMsgDlgYes.SetImgIndex(g_WMainImages, 363);
  2396.   DMsgDlgCancel.SetImgIndex(g_WMainImages, 365);
  2397.   DMsgDlgNo.SetImgIndex(g_WMainImages, 367);
  2398.   DMsgDlgOk.Top := 126;
  2399.   DMsgDlgYes.Top := 126;
  2400.   DMsgDlgCancel.Top := 126;
  2401.   DMsgDlgNo.Top := 126;

  2403.   with EdDlgEdit do begin
  2404.     Text := '';
  2405.     Width := DMsgDlg.Width - 70;
  2406.     Left := (DMsgDlg.Width - Width) div 2;
  2407.     Top := (DMsgDlg.Height - Height) div 2 - 10;
  2408.   end;

  2410.   {-----------------------------------------------------------}
  2411.   {d := g_WCqFirImages.Images[49];
  2412.   if d <> nil then begin
  2413.     DIntro.SetImgIndex(g_WCqFirImages, 49);
  2414.     DIntro.Left := (SCREENWIDTH - d.Width) div 2;
  2415.     DIntro.Top := (SCREENHEIGHT - d.Height) div 2;
  2416.     DIntro.Width := d.Width;
  2417.     DIntro.Height := d.Height;
  2418.   end;}


  2421.   d := g_WMainImages.Images[60];
  2422.   if d <> nil then begin
  2423.     DLogIn.SetImgIndex(g_WMainImages, 60);
  2424.     DLogIn.Left := (SCREENWIDTH - d.Width) div 2;
  2425.     DLogIn.Top := (SCREENHEIGHT - d.Height) div 2;
  2426.     DLogIn.Width := d.Width;
  2427.     DLogIn.Height := d.Height;
  2428.   end;
  2429.   DLoginNew.SetImgIndex(g_WMainImages, 61);
  2430.   DLoginNew.Left := 24;
  2431.   DLoginNew.Top := 207;
  2432.   DLoginOk.SetImgIndex(g_WMainImages, 62);
  2433.   DLoginOk.Left := 171;
  2434.   DLoginOk.Top := 165;
  2435.   DLoginChgPw.SetImgIndex(g_WMainImages, 53);
  2436.   DLoginChgPw.Left := 111 + 18;
  2437.   DLoginChgPw.Top := 207;
  2438.   DLoginClose.SetImgIndex(g_WMainImages, 64);
  2439.   DLoginClose.Left := 252;
  2440.   DLoginClose.Top := 28;

  2442.   EdId.Left := 96;
  2443.   EdId.Top := 83;
  2444.   EdId.Width := 137;
  2445.   EdId.Text := '';

  2447.   EdPasswd.Left := 96;
  2448.   EdPasswd.Top := 115;
  2449.   EdPasswd.Width := 137;
  2450.   EdPasswd.Text := '';
  2451.   {-----------------------------------------------------------}
  2452.   //服务器选择窗口
  2453.   d := g_WMainImages.Images[256]; //81];
  2454.   if d <> nil then begin
  2455.     DSelServerDlg.SetImgIndex(g_WMainImages, 256);
  2456.     DSelServerDlg.Left := (SCREENWIDTH - d.Width) div 2;
  2457.     DSelServerDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  2458.   end;
  2459.   DSSrvClose.SetImgIndex(g_WMainImages, 64);
  2460.   DSSrvClose.Left := 245;
  2461.   DSSrvClose.Top := 31;
  2462.     {
  2463.           DEngServer1.SetImgIndex (g_WMainImages, 257);
  2464.           DEngServer1.Left := 65;
  2465.           DEngServer1.Top  := 204;
  2466.     }

  2468.   DSServer1.SetImgIndex(g_WMain3Images, 2);
  2469.   DSServer1.Left := 65;
  2470.   DSServer1.Top := 100;

  2472.   DSServer2.SetImgIndex(g_WMain3Images, 2);
  2473.   DSServer2.Left := 65;
  2474.   DSServer2.Top := 145;

  2476.   DSServer3.SetImgIndex(g_WMain3Images, 2);
  2477.   DSServer3.Left := 65;
  2478.   DSServer3.Top := 190;

  2480.   DSServer4.SetImgIndex(g_WMain3Images, 2);
  2481.   DSServer4.Left := 65;
  2482.   DSServer4.Top := 235;

  2484.   DSServer5.SetImgIndex(g_WMain3Images, 2);
  2485.   DSServer5.Left := 65;
  2486.   DSServer5.Top := 280;

  2488.   DSServer6.SetImgIndex(g_WMain3Images, 2);
  2489.   DSServer6.Left := 65;
  2490.   DSServer6.Top := 325;

  2492.   DEngServer1.Visible := False;
  2493.   DSServer1.Visible := False;
  2494.   DSServer2.Visible := False;
  2495.   DSServer3.Visible := False;
  2496.   DSServer4.Visible := False;
  2497.   DSServer5.Visible := False;
  2498.   DSServer6.Visible := False;

  2500.   {-----------------------------------------------------------}
  2501.   {Res := TResourceStream.Create(HInstance, 'NewAccount', PChar('bmp'));
  2502.   Bitmap:= TBitmap.Create;
  2503.   Bitmap.LoadFromStream(Res);
  2504.   Res.Free;
  2505.   g_WMainImages.SetCachedSurface(63, Res); }
  2506.   //登录窗口
  2507.   d := g_WMainImages.Images[63];
  2508.   if d <> nil then begin
  2509.     DNewAccount.SetImgIndex(g_WMainImages, 63);
  2510.     DNewAccount.Left := (SCREENWIDTH - d.Width) div 2;
  2511.     DNewAccount.Top := (SCREENHEIGHT - d.Height) div 2;
  2512.   end;

  2514.   {d := g_WCqFirImages.Images[0];
  2515.   if d <> nil then begin
  2516.     DNewAccount.SetImgIndex(g_WCqFirImages, 0);
  2517.     DNewAccount.Left := (SCREENWIDTH - d.Width) div 2;
  2518.     DNewAccount.Top := (SCREENHEIGHT - d.Height) div 2;
  2519.   end;}

  2521.   DNewAccountOk.SetImgIndex(g_WMainImages, 62);
  2522.   DNewAccountOk.Left := 160;
  2523.   DNewAccountOk.Top := 417;
  2524.   DNewAccountCancel.SetImgIndex(g_WMainImages, 52);
  2525.   DNewAccountCancel.Left := 448;
  2526.   DNewAccountCancel.Top := 419;
  2527.   DNewAccountClose.SetImgIndex(g_WMainImages, 64);
  2528.   DNewAccountClose.Left := 587;
  2529.   DNewAccountClose.Top := 33;

  2531.   {-----------------------------------------------------------}

  2533.   //修改密码窗口
  2534.   d := g_WMainImages.Images[50];
  2535.   if d <> nil then begin
  2536.     DChgPw.SetImgIndex(g_WMainImages, 50);
  2537.     DChgPw.Left := (SCREENWIDTH - d.Width) div 2;
  2538.     DChgPw.Top := (SCREENHEIGHT - d.Height) div 2;
  2539.   end;
  2540.   DChgpwOk.SetImgIndex(g_WMainImages, 62);
  2541.   DChgpwOk.Left := 182;
  2542.   DChgpwOk.Top := 252;
  2543.   DChgpwCancel.SetImgIndex(g_WMainImages, 52);
  2544.   DChgpwCancel.Left := 277;
  2545.   DChgpwCancel.Top := 251;

  2547.   {-----------------------------------------------------------}

  2549.   //选择角色窗口
  2550.   DSelectChr.Left := 0;
  2551.   DSelectChr.Top := 0;
  2552.   DSelectChr.Width := SCREENWIDTH;
  2553.   DSelectChr.Height := SCREENHEIGHT;
  2554.   DscSelect1.SetImgIndex(g_WMainImages, 66);
  2555.   DscSelect2.SetImgIndex(g_WMainImages, 67);
  2556.   DscStart.SetImgIndex(g_WMain2Images, 481);
  2557.   DscNewChr.SetImgIndex(g_WMainImages, 69);
  2558.   DscEraseChr.SetImgIndex(g_WMainImages, 70);
  2559.   //DscCredits.SetImgIndex(g_WMainImages, 71);
  2560.   DscCredits.SetImgIndex(g_WMain3Images, 405);
  2561.   DscExit.SetImgIndex(g_WMainImages, 72);

  2563.   DscSelect1.Left := (SCREENWIDTH - 800) div 2 + 134 - 1 {134};
  2564.   DscSelect1.Top := (SCREENHEIGHT - 600) div 2 + 454 - 1 {454};
  2565.   DscSelect2.Left := (SCREENWIDTH - 800) div 2 + 685 {685};
  2566.   DscSelect2.Top := (SCREENHEIGHT - 600) div 2 + 454 {454};
  2567.   DscStart.Left := (SCREENWIDTH - 800) div 2 + 385 - 12 {385};
  2568.   DscStart.Top := (SCREENHEIGHT - 600) div 2 + 456 - 4 {456};
  2569.   DscNewChr.Left := (SCREENWIDTH - 800) div 2 + 348 {348};
  2570.   DscNewChr.Top := (SCREENHEIGHT - 600) div 2 + 486 {486};
  2571.   DscEraseChr.Left := (SCREENWIDTH - 800) div 2 + 347 {347};
  2572.   DscEraseChr.Top := (SCREENHEIGHT - 600) div 2 + 506 {506};
  2573.   DscCredits.Left := (SCREENWIDTH - 800) div 2 + 346 {362};
  2574.   DscCredits.Top := (SCREENHEIGHT - 600) div 2 + 527 {527};
  2575.   DscExit.Left := (SCREENWIDTH - 800) div 2 + 379 {379};
  2576.   DscExit.Top := (SCREENHEIGHT - 600) div 2 + 547 {547};

  2578.   {-----------------------------------------------------------}

  2580.   //创建角色窗口
  2581.   d := g_WMainImages.Images[73];
  2582.   if d <> nil then begin
  2583.     DCreateChr.SetImgIndex(g_WMainImages, 73);
  2584.     DCreateChr.Left := (SCREENWIDTH - d.Width) div 2;
  2585.     DCreateChr.Top := (SCREENHEIGHT - d.Height) div 2;
  2586.   end;
  2587.   DccWarrior.SetImgIndex(g_WMainImages, 74);
  2588.   DccWizzard.SetImgIndex(g_WMainImages, 75);
  2589.   DccMonk.SetImgIndex(g_WMainImages, 76);
  2590.   //DccReserved.SetImgIndex (g_WMainImages.Images[76], TRUE);
  2591.   DccMale.SetImgIndex(g_WMainImages, 77);
  2592.   DccFemale.SetImgIndex(g_WMainImages, 78);
  2593.   DccLeftHair.SetImgIndex(g_WMainImages, 79);
  2594.   DccRightHair.SetImgIndex(g_WMainImages, 80);
  2595.   DccOk.SetImgIndex(g_WMainImages, 62);
  2596.   DccClose.SetImgIndex(g_WMainImages, 64);
  2597.   DccWarrior.Left := 48;
  2598.   DccWarrior.Top := 157;
  2599.   DccWizzard.Left := 93;
  2600.   DccWizzard.Top := 157;
  2601.   DccMonk.Left := 138;
  2602.   DccMonk.Top := 157;
  2603.   //DccReserved.Left := 183;
  2604.   //DccReserved.Top := 157;
  2605.   DccMale.Left := 93;
  2606.   DccMale.Top := 231;
  2607.   DccFemale.Left := 138;
  2608.   DccFemale.Top := 231;
  2609.   DccLeftHair.Left := 76;
  2610.   DccLeftHair.Top := 308;
  2611.   DccRightHair.Left := 170;
  2612.   DccRightHair.Top := 308;
  2613.   DccOk.Left := 104;
  2614.   DccOk.Top := 361;
  2615.   DccClose.Left := 248;
  2616.   DccClose.Top := 31;


  2619.   {-----------------------------------------------------------}
  2620.   d := g_WMainImages.Images[50]; //修改密码窗口
  2621.   if d <> nil then begin
  2622.     DChgGamePwd.SetImgIndex(g_WMainImages, 689);
  2623.     DChgGamePwd.Left := (SCREENWIDTH - d.Width) div 2;
  2624.     DChgGamePwd.Top := (SCREENHEIGHT - d.Height) div 2;
  2625.   end;
  2626.   DChgGamePwdClose.Left := 291; // 399;
  2627.   DChgGamePwdClose.Top := 8;
  2628.   DChgGamePwdClose.SetImgIndex(g_WMainImages, 64);

  2630.   //人物状态窗口
  2631.     d := g_WMainImages.Images[806]; //惑怕  370
  2632.     if d <> nil then begin
  2633.       DStateWin.SetImgIndex(g_WMainImages, 806);
  2634.       DStateWin.Left := SCREENWIDTH - d.Width;
  2635.       DStateWin.Top := 0;
  2636.     end;

  2638.   DSWNecklace.Left := 38 + 130;
  2639.   DSWNecklace.Top := 52 + 35;
  2640.   DSWNecklace.Width := 34;
  2641.   DSWNecklace.Height := 31;
  2642.   DSWHelmet.Left := 38 + 77;
  2643.   DSWHelmet.Top := 52 + 41;
  2644.   DSWHelmet.Width := 18;
  2645.   DSWHelmet.Height := 18;
  2646.   DSWLight.Left := 38 + 130;
  2647.   DSWLight.Top := 52 + 73;
  2648.   DSWLight.Width := 34;
  2649.   DSWLight.Height := 31;
  2650.   DSWArmRingR.Left := 38 + 4;
  2651.   DSWArmRingR.Top := 52 + 124;
  2652.   DSWArmRingR.Width := 34;
  2653.   DSWArmRingR.Height := 31;
  2654.   DSWArmRingL.Left := 38 + 130;
  2655.   DSWArmRingL.Top := 52 + 124;
  2656.   DSWArmRingL.Width := 34;
  2657.   DSWArmRingL.Height := 31;
  2658.   DSWRingR.Left := 38 + 4;
  2659.   DSWRingR.Top := 52 + 163;
  2660.   DSWRingR.Width := 34;
  2661.   DSWRingR.Height := 31;
  2662.   DSWRingL.Left := 38 + 130;
  2663.   DSWRingL.Top := 52 + 163;
  2664.   DSWRingL.Width := 34;
  2665.   DSWRingL.Height := 31;
  2666.   DSWWeapon.Left := 38 + 9;
  2667.   DSWWeapon.Top := 52 + 28;
  2668.   DSWWeapon.Width := 47;
  2669.   DSWWeapon.Height := 87;
  2670.   DSWDress.Left := 38 + 58;
  2671.   DSWDress.Top := 52 + 70;
  2672.   DSWDress.Width := 53;
  2673.   DSWDress.Height := 112;

  2675.   DSWBujuk.Left := 42;
  2676.   DSWBujuk.Top := 254;
  2677.   DSWBujuk.Width := 34;
  2678.   DSWBujuk.Height := 31;

  2680.   DSWBelt.Left := 84;
  2681.   DSWBelt.Top := 254;
  2682.   DSWBelt.Width := 34;
  2683.   DSWBelt.Height := 31;

  2685.   DSWBoots.Left := 126;
  2686.   DSWBoots.Top := 254;
  2687.   DSWBoots.Width := 34;
  2688.   DSWBoots.Height := 31;

  2690.   DSWCharm.Left := 168;
  2691.   DSWCharm.Top := 254;
  2692.   DSWCharm.Width := 34;
  2693.   DSWCharm.Height := 31;

  2695.   DStMag1.Left := 38 + 8;
  2696.   DStMag1.Top := 52 + 7;
  2697.   DStMag1.Width := 31;
  2698.   DStMag1.Height := 33;

  2700.   DStMag2.Left := 38 + 8;
  2701.   DStMag2.Top := 52 + 44;
  2702.   DStMag2.Width := 31;
  2703.   DStMag2.Height := 33;

  2705.   DStMag3.Left := 38 + 8;
  2706.   DStMag3.Top := 52 + 82;
  2707.   DStMag3.Width := 31;
  2708.   DStMag3.Height := 33;

  2710.   DStMag4.Left := 38 + 8;
  2711.   DStMag4.Top := 52 + 119;
  2712.   DStMag4.Width := 31;
  2713.   DStMag4.Height := 33;

  2715.   DStMag5.Left := 38 + 8;
  2716.   DStMag5.Top := 52 + 156;
  2717.   DStMag5.Width := 31;
  2718.   DStMag5.Height := 33;

  2720.   DStMag6.Left := 38 + 8;
  2721.   DStMag6.Top := 52 + 195;
  2722.   DStMag6.Width := 31;
  2723.   DStMag6.Height := 33;


  2726.   DStPageUp.SetImgIndex(g_WMainImages, 398);
  2727.   DStPageDown.SetImgIndex(g_WMainImages, 396);
  2728.   DStPageUp.Left := 213;
  2729.   DStPageUp.Top := 113;
  2730.   DStPageDown.Left := 213;
  2731.   DStPageDown.Top := 143;

  2733.   DCloseState.SetImgIndex(g_WMainImages, 371);
  2734.   DCloseState.Left := 8;
  2735.   DCloseState.Top := 39;
  2736.   DPrevState.SetImgIndex(g_WMainImages, 373);
  2737.   DNextState.SetImgIndex(g_WMainImages, 372);
  2738.   DPrevState.Left := 7;
  2739.   DPrevState.Top := 128;
  2740.   DNextState.Left := 7;
  2741.   DNextState.Top := 187;

  2743.   //新的导航
  2744.   //装备
  2745.   DSPage1.Left := 6;
  2746.   DSPage1.Top := 61;
  2747.   DSPage1.Width := 20;
  2748.   DSPage1.Height := 40;
  2749.   //状态
  2750.   DSPage2.Left := 6;
  2751.   DSPage2.Top := 106;
  2752.   DSPage2.Width := 20;
  2753.   DSPage2.Height := 40;
  2754.   //属性
  2755.   DSPage3.Left := 6;
  2756.   DSPage3.Top := 152;
  2757.   DSPage3.Width := 20;
  2758.   DSPage3.Height := 40;
  2759.   //技能
  2760.   DSPage4.Left := 6;
  2761.   DSPage4.Top := 197;
  2762.   DSPage4.Width := 20;
  2763.   DSPage4.Height := 40;


  2766.   {-----------------------------------------------------------}

  2768.   //英雄状态窗口
  2769.   d := g_WMain3Images.Images[384];
  2770.   if d <> nil then begin
  2771.     DHeroStateWin.SetImgIndex(g_WMain3Images, 384);
  2772.     DHeroStateWin.Left := SCREENWIDTH - d.Width;
  2773.     DHeroStateWin.Top := 0;
  2774.   end;

  2776.   DHeroSWNecklace.Left := 38 + 130;
  2777.   DHeroSWNecklace.Top := 52 + 35;
  2778.   DHeroSWNecklace.Width := 34;
  2779.   DHeroSWNecklace.Height := 31;
  2780.   DHeroSWHelmet.Left := 38 + 77;
  2781.   DHeroSWHelmet.Top := 52 + 41;
  2782.   DHeroSWHelmet.Width := 18;
  2783.   DHeroSWHelmet.Height := 18;
  2784.   DHeroSWLight.Left := 38 + 130;
  2785.   DHeroSWLight.Top := 52 + 73;
  2786.   DHeroSWLight.Width := 34;
  2787.   DHeroSWLight.Height := 31;
  2788.   DHeroSWArmRingR.Left := 38 + 4;
  2789.   DHeroSWArmRingR.Top := 52 + 124;
  2790.   DHeroSWArmRingR.Width := 34;
  2791.   DHeroSWArmRingR.Height := 31;
  2792.   DHeroSWArmRingL.Left := 38 + 130;
  2793.   DHeroSWArmRingL.Top := 52 + 124;
  2794.   DHeroSWArmRingL.Width := 34;
  2795.   DHeroSWArmRingL.Height := 31;
  2796.   DHeroSWRingR.Left := 38 + 4;
  2797.   DHeroSWRingR.Top := 52 + 163;
  2798.   DHeroSWRingR.Width := 34;
  2799.   DHeroSWRingR.Height := 31;
  2800.   DHeroSWRingL.Left := 38 + 130;
  2801.   DHeroSWRingL.Top := 52 + 163;
  2802.   DHeroSWRingL.Width := 34;
  2803.   DHeroSWRingL.Height := 31;
  2804.   DHeroSWWeapon.Left := 38 + 9;
  2805.   DHeroSWWeapon.Top := 52 + 28;
  2806.   DHeroSWWeapon.Width := 47;
  2807.   DHeroSWWeapon.Height := 87;
  2808.   DHeroSWDress.Left := 38 + 58;
  2809.   DHeroSWDress.Top := 52 + 70;
  2810.   DHeroSWDress.Width := 53;
  2811.   DHeroSWDress.Height := 112;

  2813.   DHeroSWBujuk.Left := 42;
  2814.   DHeroSWBujuk.Top := 254;
  2815.   DHeroSWBujuk.Width := 34;
  2816.   DHeroSWBujuk.Height := 31;

  2818.   DHeroSWBelt.Left := 84;
  2819.   DHeroSWBelt.Top := 254;
  2820.   DHeroSWBelt.Width := 34;
  2821.   DHeroSWBelt.Height := 31;

  2823.   DHeroSWBoots.Left := 126;
  2824.   DHeroSWBoots.Top := 254;
  2825.   DHeroSWBoots.Width := 34;
  2826.   DHeroSWBoots.Height := 31;

  2828.   DHeroSWCharm.Left := 168;
  2829.   DHeroSWCharm.Top := 254;
  2830.   DHeroSWCharm.Width := 34;
  2831.   DHeroSWCharm.Height := 31;

  2833.   DHeroStMag1.Left := 38 + 8;
  2834.   DHeroStMag1.Top := 52 + 7;
  2835.   DHeroStMag1.Width := 31;
  2836.   DHeroStMag1.Height := 33;

  2838.   DHeroStMag2.Left := 38 + 8;
  2839.   DHeroStMag2.Top := 52 + 44;
  2840.   DHeroStMag2.Width := 31;
  2841.   DHeroStMag2.Height := 33;

  2843.   DHeroStMag3.Left := 38 + 8;
  2844.   DHeroStMag3.Top := 52 + 82;
  2845.   DHeroStMag3.Width := 31;
  2846.   DHeroStMag3.Height := 33;

  2848.   DHeroStMag4.Left := 38 + 8;
  2849.   DHeroStMag4.Top := 52 + 119;
  2850.   DHeroStMag4.Width := 31;
  2851.   DHeroStMag4.Height := 33;

  2853.   DHeroStMag5.Left := 38 + 8;
  2854.   DHeroStMag5.Top := 52 + 156;
  2855.   DHeroStMag5.Width := 31;
  2856.   DHeroStMag5.Height := 33;

  2858.   DHeroStMag6.Left := 38 + 8;
  2859.   DHeroStMag6.Top := 52 + 195;
  2860.   DHeroStMag6.Width := 31;
  2861.   DHeroStMag6.Height := 33;


  2864.   DHeroStPageUp.SetImgIndex(g_WMainImages, 398);
  2865.   DHeroStPageDown.SetImgIndex(g_WMainImages, 396);
  2866.   DHeroStPageUp.Left := 213;
  2867.   DHeroStPageUp.Top := 113;
  2868.   DHeroStPageDown.Left := 213;
  2869.   DHeroStPageDown.Top := 143;

  2871.   DCloseHeroState.SetImgIndex(g_WMainImages, 371);
  2872.   DCloseHeroState.Left := 8;
  2873.   DCloseHeroState.Top := 39;

  2875.   DPrevHeroState.SetImgIndex(g_WMainImages, 373);
  2876.   DNextHeroState.SetImgIndex(g_WMainImages, 372);
  2877.   DPrevHeroState.Left := 7;
  2878.   DPrevHeroState.Top := 128;
  2879.   DNextHeroState.Left := 7;
  2880.   DNextHeroState.Top := 187;

  2882.   {-----------------------------------------------------------}

  2884.   //人物状态窗口(查看别人信息)
  2885.   {d := g_WMain3Images.Images[207]; //惑怕  370
  2886.   if d <> nil then begin
  2887.     DUserState1.SetImgIndex(g_WMain3Images, 207);
  2888.     DUserState1.Left := SCREENWIDTH - d.Width - d.Width;
  2889.     DUserState1.Top := 0;
  2890.   end;
  2891.   }
  2892.   d := g_WUIBImages.Images[10]; //惑怕  370
  2893.   if d <> nil then begin
  2894.     DUserState1.SetImgIndex(g_WUIBImages, 10);
  2895.     DUserState1.Left := SCREENWIDTH - d.Width - d.Width;
  2896.     DUserState1.Top := 0;
  2897.   end else begin
  2898.     d := g_WMain3Images.Images[207]; //惑怕  370
  2899.     if d <> nil then begin
  2900.       DUserState1.SetImgIndex(g_WMain3Images, 207);
  2901.       DUserState1.Left := SCREENWIDTH - d.Width - d.Width;
  2902.       DUserState1.Top := 0;
  2903.     end;
  2904.   end;

  2906.   DNecklaceUS1.Left := 38 + 130;
  2907.   DNecklaceUS1.Top := 52 + 35;
  2908.   DNecklaceUS1.Width := 34;
  2909.   DNecklaceUS1.Height := 31;

  2911.   DHelmetUS1.Left := 38 + 77;
  2912.   DHelmetUS1.Top := 52 + 41;
  2913.   DHelmetUS1.Width := 18;
  2914.   DHelmetUS1.Height := 18;

  2916.   DLightUS1.Left := 38 + 130;
  2917.   DLightUS1.Top := 52 + 73;
  2918.   DLightUS1.Width := 34;
  2919.   DLightUS1.Height := 31;

  2921.   DArmringRUS1.Left := 38 + 4;
  2922.   DArmringRUS1.Top := 52 + 124;
  2923.   DArmringRUS1.Width := 34;
  2924.   DArmringRUS1.Height := 31;

  2926.   DArmringLUS1.Left := 38 + 130;
  2927.   DArmringLUS1.Top := 52 + 124;
  2928.   DArmringLUS1.Width := 34;
  2929.   DArmringLUS1.Height := 31;

  2931.   DRingRUS1.Left := 38 + 4;
  2932.   DRingRUS1.Top := 52 + 163;
  2933.   DRingRUS1.Width := 34;
  2934.   DRingRUS1.Height := 31;

  2936.   DRingLUS1.Left := 38 + 130;
  2937.   DRingLUS1.Top := 52 + 163;
  2938.   DRingLUS1.Width := 34;
  2939.   DRingLUS1.Height := 31;

  2941.   DWeaponUS1.Left := 38 + 9;
  2942.   DWeaponUS1.Top := 52 + 28;
  2943.   DWeaponUS1.Width := 47;
  2944.   DWeaponUS1.Height := 87;

  2946.   DDressUS1.Left := 38 + 58;
  2947.   DDressUS1.Top := 52 + 70;
  2948.   DDressUS1.Width := 53;
  2949.   DDressUS1.Height := 112;

  2951.   DBujukUS1.Left := 42;
  2952.   DBujukUS1.Top := 254;
  2953.   DBujukUS1.Width := 34;
  2954.   DBujukUS1.Height := 31;

  2956.   DBeltUS1.Left := 84;
  2957.   DBeltUS1.Top := 254;
  2958.   DBeltUS1.Width := 34;
  2959.   DBeltUS1.Height := 31;

  2961.   DBootsUS1.Left := 126;
  2962.   DBootsUS1.Top := 254;
  2963.   DBootsUS1.Width := 34;
  2964.   DBootsUS1.Height := 31;

  2966.   DCharmUS1.Left := 168;
  2967.   DCharmUS1.Top := 254;
  2968.   DCharmUS1.Width := 34;
  2969.   DCharmUS1.Height := 31;

  2971.   DCloseUS1.SetImgIndex(g_WMainImages, 371);
  2972.   DCloseUS1.Left := 8;
  2973.   DCloseUS1.Top := 39;

  2975.   {-------------------------------------------------------------}

  2977.    //物品包裹栏
  2978.   d := g_WMain2Images.Images[180];
  2979.   if (d = nil) or ((d <> nil) and (d.Width < 100)) then begin
  2980.     DItemBag.SetImgIndex(g_WMain3Images, 6);
  2981.   end else begin
  2982.     DItemBag.SetImgIndex(g_WMain2Images, 180)
  2983.   end;

  2985.   DItemBag.Left := 0;
  2986.   DItemBag.Top := 80;

  2988.   DItemGrid.Left := 29;
  2989.   DItemGrid.Top := 41;
  2990.   DItemGrid.Width := 286;
  2991.   DItemGrid.Height := 162;

  2993.   DOpenUpgrade.SetImgIndex(g_WMain2Images, 183);
  2994.   DOpenUpgrade.Left := 300 - 1;
  2995.   DOpenUpgrade.Top := 212;

  2997.   DUpgrade.SetImgIndex(g_WMain3Images, 462);
  2998.   DUpgrade.Left := 352;
  2999.   DUpgrade.Top := 83;

  3001.   DCloseUpgrade.SetImgIndex(g_WMainImages, 371);
  3002.   DCloseUpgrade.Left := 231; //248 - 16 - 1;
  3003.   DCloseUpgrade.Top := 0;

  3005.   DUpgradeItem1.Left := 101;
  3006.   DUpgradeItem1.Top := 33;
  3007.   DUpgradeItem1.Width := 36;
  3008.   DUpgradeItem1.Height := 36;

  3010.   DUpgradeItem2.Left := 40;
  3011.   DUpgradeItem2.Top := 110;
  3012.   DUpgradeItem2.Width := 36;
  3013.   DUpgradeItem2.Height := 36;

  3015.   DUpgradeItem3.Left := 160;
  3016.   DUpgradeItem3.Top := 112;
  3017.   DUpgradeItem3.Width := 36;
  3018.   DUpgradeItem3.Height := 36;

  3020.   d := g_WMain3Images.Images[463];
  3021.   if d <> nil then begin
  3022.     DStartUpgrade.SetImgIndex(g_WMain3Images, 463);
  3023.     DStartUpgrade.Left := (248 - 18 - d.Width) div 2 + 2;
  3024.     DStartUpgrade.Top := 212 - 37;
  3025.   end;
  3026.   {-------------------------------------------------------------}

  3028.    //英雄物品包裹栏

  3030.   d := g_WUIBImages.Images[14];

  3032.   if d <> nil then begin
  3033.     DHeroItemBag.SetImgIndex(g_WUIBImages, 14);
  3034.     DHeroItemBag.Left := SCREENWIDTH - d.Width;
  3035.     DHeroItemBag.Top := 0;
  3036.     DHeroItemBag.Width := d.Width;
  3037.     DHeroItemBag.Height := d.Height;
  3038.   end else begin
  3039.     d := g_WMain3Images.Images[375 + 4];
  3040.     if d <> nil then begin
  3041.       DHeroItemBag.SetImgIndex(g_WMain3Images, 375 + 4);
  3042.       DHeroItemBag.Left := SCREENWIDTH - d.Width;
  3043.       DHeroItemBag.Top := 0;
  3044.       DHeroItemBag.Width := d.Width;
  3045.       DHeroItemBag.Height := d.Height;
  3046.     end;
  3047.   end;
  3048.   {DHeroItemBag.Left := SCREENWIDTH - d.Width;
  3049.   DHeroItemBag.Top := 0;}
  3050.   {DHeroItemBag.SetImgIndex(g_WMain3Images, 375);
  3051.   DHeroItemBag.Left := SCREENWIDTH - 10 - DHeroItemBag.Width;
  3052.   DHeroItemBag.Top := 10;}

  3054.   DHeroItemGrid.Left := 15;
  3055.   DHeroItemGrid.Top := 15;

  3057.   DHeroItemGrid.Width := 228 - 50;
  3058.   DHeroItemGrid.Height := 32 * 2;

  3060.   DCloseHeroBag.SetImgIndex(g_WMainImages, 371);
  3061.   //DCloseHeroBag.Downed := True; //??
  3062.   DCloseHeroBag.Left := 228 - 20;
  3063.   DCloseHeroBag.Top := DHeroItemBag.Top;
  3064.   {DCloseHeroBag.Width := 14;
  3065.   DCloseHeroBag.Height := 20;}

  3067.   //黄金、修理物品、关闭包裹按钮
  3068.   DGold.SetImgIndex(g_WMainImages, 29);
  3069.   DGold.Left := 18;
  3070.   DGold.Top := 218;

  3072.   {DRepairItem.SetImgIndex(g_WMainImages, 26);
  3073.   DRepairItem.Left := 254;
  3074.   DRepairItem.Top := 183;
  3075.   DRepairItem.Width := 48;
  3076.   DRepairItem.Height := 22; }
  3077.   DCloseBag.SetImgIndex(g_WMainImages, 371);
  3078.   DCloseBag.Downed := True; //??
  3079.   DCloseBag.Left := 336;
  3080.   DCloseBag.Top := 59;
  3081.   DCloseBag.Width := 14;
  3082.   DCloseBag.Height := 20;


  3085. {  d := g_WUIBImages.Images[11]; //惑怕  370
  3086.   if d <> nil then begin
  3087.     DStateWin.SetImgIndex(g_WUIBImages, 11);
  3088.     DStateWin.Left := SCREENWIDTH - d.Width;
  3089.     DStateWin.Top := 0;
  3090.   end else
  3091.   d := g_WUIBImages.Images[10]; //惑怕  370
  3092.   if d <> nil then begin
  3093.     DStateWin.SetImgIndex(g_WUIBImages, 10);
  3094.     DStateWin.Left := SCREENWIDTH - d.Width;
  3095.     DStateWin.Top := 0;
  3096.   end else begin
  3097.   //人物状态窗口
  3098.     d := g_WMain3Images.Images[207]; //惑怕  370
  3099.     if d <> nil then begin
  3100.       DStateWin.SetImgIndex(g_WMain3Images, 207);
  3101.       DStateWin.Left := SCREENWIDTH - d.Width;
  3102.       DStateWin.Top := 0;
  3103.     end;
  3104.   end;  }

  3106. { d := g_WUIBImages.Images[10]; //惑怕  370
  3107.   if d <> nil then begin
  3108.     DStateWin.SetImgIndex(g_WUIBImages, 10);
  3109.     DStateWin.Left := SCREENWIDTH - d.Width;
  3110.     DStateWin.Top := 0;
  3111.   end else begin
  3112.     d := g_WMain3Images.Images[207]; //惑怕
  3113.     if d <> nil then begin
  3114.       DStateWin.SetImgIndex(g_WMain3Images, 207);
  3115.       DStateWin.Left := SCREENWIDTH - d.Width;
  3116.       DStateWin.Top := 0;
  3117.     end;
  3118.   end; }
  3119.   {-----------------------------------------------------------}

  3121.   //商人对话框
  3122.   d := g_WMainImages.Images[384];
  3123.   if d <> nil then begin
  3124.     DMerchantDlg.Left := 0;
  3125.     DMerchantDlg.Top := 0;
  3126.     DMerchantDlg.SetImgIndex(g_WMainImages, 384);
  3127.   end;
  3128.   DMerchantDlgClose.Left := 399;
  3129.   DMerchantDlgClose.Top := 1;
  3130.   DMerchantDlgClose.SetImgIndex(g_WMainImages, 64);

  3132. //NPC大对话框
  3133.   d := g_WCqFirImages.Images[0];
  3134.   if d <> nil then begin
  3135.     DMerchantBigDlg.Left := 0;
  3136.     DMerchantBigDlg.Top := 0;
  3137.     DMerchantBigDlg.SetImgIndex(g_WCqFirImages, 0);
  3138.   end;
  3139.   DMerchantBigDlgClose.Left := 551;
  3140.   DMerchantBigDlgClose.Top := 1;
  3141.   DMerchantBigDlgClose.SetImgIndex(g_WMainImages, 64);

  3143.   {-----------------------------------------------------------}
  3144.   //菜单对话框
  3145.   d := g_WMainImages.Images[385];
  3146.   if d <> nil then begin
  3147.     DMenuDlg.Left := 138;
  3148.     DMenuDlg.Top := 163;
  3149.     DMenuDlg.SetImgIndex(g_WMainImages, 385);
  3150.   end;
  3151.   DMenuPrev.Left := 43;
  3152.   DMenuPrev.Top := 175;
  3153.   DMenuPrev.SetImgIndex(g_WMainImages, 388);
  3154.   DMenuNext.Left := 90;
  3155.   DMenuNext.Top := 175;
  3156.   DMenuNext.SetImgIndex(g_WMainImages, 387);
  3157.   DMenuBuy.Left := 215;
  3158.   DMenuBuy.Top := 171;
  3159.   DMenuBuy.SetImgIndex(g_WMainImages, 386);
  3160.   DMenuClose.Left := 291;
  3161.   DMenuClose.Top := 0;
  3162.   DMenuClose.SetImgIndex(g_WMainImages, 64);

  3164.   {-----------------------------------------------------------}

  3166.   //出售
  3167.   d := g_WMainImages.Images[392];
  3168.   if d <> nil then begin
  3169.     DSellDlg.Left := 328;
  3170.     DSellDlg.Top := 163;
  3171.     DSellDlg.SetImgIndex(g_WMainImages, 392);
  3172.   end;
  3173.   DSellDlgOk.Left := 85;
  3174.   DSellDlgOk.Top := 150;
  3175.   DSellDlgOk.SetImgIndex(g_WMainImages, 393);
  3176.   DSellDlgClose.Left := 115;
  3177.   DSellDlgClose.Top := 0;
  3178.   DSellDlgClose.SetImgIndex(g_WMainImages, 64);
  3179.   DSellDlgSpot.Left := 27;
  3180.   DSellDlgSpot.Top := 67;
  3181.   DSellDlgSpot.Width := 61;
  3182.   DSellDlgSpot.Height := 52;

  3184.   {-----------------------------------------------------------}

  3186.   //设置魔法快捷对话框
  3187.   d := g_WMain3Images.Images[126];
  3188.   if d <> nil then begin
  3189.     DKeySelDlg.Left := (SCREENWIDTH - d.Width) div 2;
  3190.     DKeySelDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  3191.     DKeySelDlg.SetImgIndex(g_WMain3Images, 126);
  3192.   end;
  3193.   DKsIcon.Left := 51;
  3194.   DKsIcon.Top := 31;
  3195.   DKsF1.SetImgIndex(g_WMainImages, 232);
  3196.   DKsF1.Left := 25;
  3197.   DKsF1.Top := 78;
  3198.   DKsF2.SetImgIndex(g_WMainImages, 234);
  3199.   DKsF2.Left := 57;
  3200.   DKsF2.Top := 78;
  3201.   DKsF3.SetImgIndex(g_WMainImages, 236);
  3202.   DKsF3.Left := 89;
  3203.   DKsF3.Top := 78;
  3204.   DKsF4.SetImgIndex(g_WMainImages, 238);
  3205.   DKsF4.Left := 121;
  3206.   DKsF4.Top := 78;
  3207.   DKsF5.SetImgIndex(g_WMainImages, 240);
  3208.   DKsF5.Left := 160;
  3209.   DKsF5.Top := 78;
  3210.   DKsF6.SetImgIndex(g_WMainImages, 242);
  3211.   DKsF6.Left := 192;
  3212.   DKsF6.Top := 78;
  3213.   DKsF7.SetImgIndex(g_WMainImages, 244);
  3214.   DKsF7.Left := 224;
  3215.   DKsF7.Top := 78;
  3216.   DKsF8.SetImgIndex(g_WMainImages, 246);
  3217.   DKsF8.Left := 256;
  3218.   DKsF8.Top := 78;

  3220.   DKsConF1.SetImgIndex(g_WMain3Images, 132);
  3221.   DKsConF1.Left := 25;
  3222.   DKsConF1.Top := 120;
  3223.   DKsConF2.SetImgIndex(g_WMain3Images, 134);
  3224.   DKsConF2.Left := 57;
  3225.   DKsConF2.Top := 120;
  3226.   DKsConF3.SetImgIndex(g_WMain3Images, 136);
  3227.   DKsConF3.Left := 89;
  3228.   DKsConF3.Top := 120;
  3229.   DKsConF4.SetImgIndex(g_WMain3Images, 138);
  3230.   DKsConF4.Left := 121;
  3231.   DKsConF4.Top := 120;
  3232.   DKsConF5.SetImgIndex(g_WMain3Images, 140);
  3233.   DKsConF5.Left := 160;
  3234.   DKsConF5.Top := 120;
  3235.   DKsConF6.SetImgIndex(g_WMain3Images, 142);
  3236.   DKsConF6.Left := 192;
  3237.   DKsConF6.Top := 120;
  3238.   DKsConF7.SetImgIndex(g_WMain3Images, 144);
  3239.   DKsConF7.Left := 224;
  3240.   DKsConF7.Top := 120;
  3241.   DKsConF8.SetImgIndex(g_WMain3Images, 146);
  3242.   DKsConF8.Left := 256;
  3243.   DKsConF8.Top := 120;


  3246.   DKsNone.SetImgIndex(g_WMain3Images, 129);
  3247.   DKsNone.Left := 296;
  3248.   DKsNone.Top := 78;

  3250.   DKsOk.SetImgIndex(g_WMain3Images, 127);
  3251.   DKsOk.Left := 296;
  3252.   DKsOk.Top := 120;

  3254.   {d := g_WMainImages.Images[229];
  3255.   if d <> nil then begin
  3256.     DKeySelDlg.Left := (SCREENWIDTH - d.Width) div 2;
  3257.     DKeySelDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  3258.     DKeySelDlg.SetImgIndex(g_WMainImages, 229);
  3259.   end;
  3260.   DKsIcon.Left := 52; //DMagIcon...
  3261.   DKsIcon.Top := 29;
  3262.   DKsF1.SetImgIndex(g_WMainImages, 232);
  3263.   DKsF1.Left := 34;
  3264.   DKsF1.Top := 83;
  3265.   DKsF2.SetImgIndex(g_WMainImages, 234);
  3266.   DKsF2.Left := 66;
  3267.   DKsF2.Top := 83;
  3268.   DKsF3.SetImgIndex(g_WMainImages, 236);
  3269.   DKsF3.Left := 98;
  3270.   DKsF3.Top := 83;
  3271.   DKsF4.SetImgIndex(g_WMainImages, 238);
  3272.   DKsF4.Left := 130;
  3273.   DKsF4.Top := 83;
  3274.   DKsF5.SetImgIndex(g_WMainImages, 240);
  3275.   DKsF5.Left := 171;
  3276.   DKsF5.Top := 83;
  3277.   DKsF6.SetImgIndex(g_WMainImages, 242);
  3278.   DKsF6.Left := 203;
  3279.   DKsF6.Top := 83;
  3280.   DKsF7.SetImgIndex(g_WMainImages, 244);
  3281.   DKsF7.Left := 235;
  3282.   DKsF7.Top := 83;
  3283.   DKsF8.SetImgIndex(g_WMainImages, 246);
  3284.   DKsF8.Left := 267;
  3285.   DKsF8.Top := 83;

  3287.   DKsNone.SetImgIndex(g_WMainImages, 230);
  3288.   DKsNone.Left := 299;
  3289.   DKsNone.Top := 83;
  3290.   DKsOk.SetImgIndex(g_WMainImages, 62);
  3291.   DKsOk.Left := 222;
  3292.   DKsOk.Top := 131; }

  3294.   {-----------------------------------------------------------}
  3295.   //组对话框
  3296.   d := g_WMainImages.Images[120];
  3297.   if d <> nil then begin
  3298.     DGroupDlg.Left := (SCREENWIDTH - d.Width) div 2;
  3299.     DGroupDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  3300.     DGroupDlg.SetImgIndex(g_WMainImages, 120);
  3301.   end;
  3302.   DGrpDlgClose.SetImgIndex(g_WMainImages, 64);
  3303.   DGrpDlgClose.Left := 260;
  3304.   DGrpDlgClose.Top := 0;
  3305.   DGrpAllowGroup.SetImgIndex(g_WMainImages, 122);
  3306.   DGrpAllowGroup.Left := 20;
  3307.   DGrpAllowGroup.Top := 18;
  3308.   DGrpCreate.SetImgIndex(g_WMainImages, 123);
  3309.   DGrpCreate.Left := 21 + 1;
  3310.   DGrpCreate.Top := 202 + 1;
  3311.   DGrpAddMem.SetImgIndex(g_WMainImages, 124);
  3312.   DGrpAddMem.Left := 96 + 1;
  3313.   DGrpAddMem.Top := 202 + 1;
  3314.   DGrpDelMem.SetImgIndex(g_WMainImages, 125);
  3315.   DGrpDelMem.Left := 171 + 1;
  3316.   DGrpDelMem.Top := 202 + 1;

  3318.   {-----------------------------------------------------------}
  3319.   //交易对话框
  3320.   d := g_WMainImages.Images[389]; //卖出方
  3321.   if d <> nil then begin
  3322.     DDealDlg.Left := SCREENWIDTH - d.Width;
  3323.     DDealDlg.Top := 0;
  3324.     DDealDlg.SetImgIndex(g_WMainImages, 389);
  3325.   end;
  3326.   DDGrid.Left := 21;
  3327.   DDGrid.Top := 56;
  3328.   DDGrid.Width := 36 * 5;
  3329.   DDGrid.Height := 33 * 2;
  3330.   DDealOk.SetImgIndex(g_WMainImages, 391);
  3331.   DDealOk.Left := 155;
  3332.   DDealOk.Top := 193 - 65;
  3333.   DDealClose.SetImgIndex(g_WMainImages, 64);
  3334.   DDealClose.Left := 220;
  3335.   DDealClose.Top := 42;
  3336.   DDGold.SetImgIndex(g_WMainImages, 28);
  3337.   DDGold.Left := 11;
  3338.   DDGold.Top := 202 - 65;

  3340.   d := g_WMainImages.Images[390]; //买进方
  3341.   if d <> nil then begin
  3342.     DDealRemoteDlg.Left := DDealDlg.Left - d.Width;
  3343.     DDealRemoteDlg.Top := 0;
  3344.     DDealRemoteDlg.SetImgIndex(g_WMainImages, 390);
  3345.   end;
  3346.   DDRGrid.Left := 21;
  3347.   DDRGrid.Top := 56;
  3348.   DDRGrid.Width := 36 * 5;
  3349.   DDRGrid.Height := 33 * 2;
  3350.   DDRGold.SetImgIndex(g_WMainImages, 28);
  3351.   DDRGold.Left := 11;
  3352.   DDRGold.Top := 202 - 65;

  3354. //商铺
  3355.   {-----------------------------------------------------------}

  3357.   d := g_WMain3Images.Images[298];
  3358.   if d <> nil then begin
  3359.     DShop.Left := (SCREENWIDTH - d.Width) div 2;
  3360.     DShop.Top := 0 {(SCREENHEIGHT - d.Height) div 2};
  3361.     DShop.SetImgIndex(g_WMain3Images, 298);
  3362.   end;
  3363.   DJewelry.Left := 176;
  3364.   DJewelry.Top := 13;
  3365.   DJewelry.SetImgIndex(g_WMain3Images, 299); {首饰}

  3367.   DMedicine.Left := 234;
  3368.   DMedicine.Top := 13;
  3369.   DMedicine.SetImgIndex(g_WMain3Images, 300); {补给}

  3371.   DEnhance.Left := 292 + 1;
  3372.   DEnhance.Top := 13;
  3373.   DEnhance.SetImgIndex(g_WMain3Images, 301); {强化}

  3375.   Dfriend.Left := 350 - 1;
  3376.   Dfriend.Top := 13;
  3377.   Dfriend.SetImgIndex(g_WMain3Images, 302); {好友}

  3379.   DLimit.Left := 408 - 1;
  3380.   DLimit.Top := 13;
  3381.   DLimit.SetImgIndex(g_WMain3Images, 303); {限量}

  3383.   DShopExit.SetImgIndex(g_WMainImages, 64);
  3384.   DShopExit.Left := 600 + 6;
  3385.   DShopExit.Top := 5;


  3388.   DPrevShop.Left := 197;
  3389.   DPrevShop.Top := 349;
  3390.   DPrevShop.SetImgIndex(g_WMainImages, 388); {上一页}

  3392.   DNextShop.Left := 287;
  3393.   DNextShop.Top := 349;
  3394.   DNextShop.SetImgIndex(g_WMainImages, 387); {下一页}

  3396.   DShopBuy.Left := 328;
  3397.   DShopBuy.Top := 364;
  3398.   DShopBuy.SetImgIndex(g_WMain3Images, 304); {购买}

  3400.   DShopFree.Left := DShopBuy.Left + 58;
  3401.   DShopFree.Top := 364;
  3402.   DShopFree.SetImgIndex(g_WMain3Images, 305); {赠送}

  3404.   DShopClose.Left := DShopFree.Left + 58;
  3405.   DShopClose.Top := 364;
  3406.   DShopClose.SetImgIndex(g_WMain3Images, 306); {购买}


  3409.   DShopItemGrid.Left := 178;
  3410.   DShopItemGrid.Top := 58;
  3411.   DShopItemGrid.Width := 340;
  3412.   DShopItemGrid.Height := 270;

  3414.   DSuperShopItemGrid.Left := 517;
  3415.   DSuperShopItemGrid.Top := 65;
  3416.   DSuperShopItemGrid.Width := 90;
  3417.   DSuperShopItemGrid.Height := 65 * 5;

  3419.   DShopIntroduce.Left := 15;
  3420.   DShopIntroduce.Width := 150;
  3421.   DShopIntroduce.Top := 25;
  3422.   DShopIntroduce.Height := 180;

  3424.   {-----------------------------------------------------------}
  3425.   //排行

  3427.   d := g_WMain3Images.Images[420];
  3428.   if d <> nil then begin
  3429.     DRankingDlg.Left := (SCREENWIDTH - d.Width) div 2;
  3430.     DRankingDlg.Top := (SCREENHEIGHT - d.Height) div 2 - 80;
  3431.     DRankingDlg.SetImgIndex(g_WMain3Images, 420);
  3432.   end;
  3433.   DBotRankingClose.Left := 326;
  3434.   DBotRankingClose.Top := 46;
  3435.   DBotRankingClose.SetImgIndex(g_WMainImages, 64);


  3438.   DBotCharRanking.Left := 28;
  3439.   DBotCharRanking.Top := 61;
  3440.   DBotCharRanking.SetImgIndex(g_WMain3Images, 443);

  3442.   DBotHeroRanking.Left := 122;
  3443.   DBotHeroRanking.Top := 61;
  3444.   DBotHeroRanking.SetImgIndex(g_WMain3Images, 444);

  3446.   DBotMasterRanking.Left := 220;
  3447.   DBotMasterRanking.Top := 61;
  3448.   DBotMasterRanking.SetImgIndex(g_WMain3Images, 445);


  3451.   d := g_WMain3Images.Images[427];
  3452.   if d <> nil then begin
  3453.     DBotActorRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3454.     DBotActorRanking.Top := 92 + (248 - d.Height * 4) div 5;
  3455.     DBotActorRanking.SetImgIndex(g_WMain3Images, 427);
  3456.   end;

  3458.   d := g_WMain3Images.Images[431];
  3459.   if d <> nil then begin
  3460.     DBotWarriorRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3461.     DBotWarriorRanking.Top := 92 + d.Height + (248 - d.Height * 4) div 5 * 2;
  3462.     DBotWarriorRanking.SetImgIndex(g_WMain3Images, 431);
  3463.   end;

  3465.   d := g_WMain3Images.Images[433];
  3466.   if d <> nil then begin
  3467.     DBotWizzardRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3468.     DBotWizzardRanking.Top := 92 + d.Height * 2 + (248 - d.Height * 4) div 5 * 3;
  3469.     DBotWizzardRanking.SetImgIndex(g_WMain3Images, 433);
  3470.   end;

  3472.   d := g_WMain3Images.Images[435];
  3473.   if d <> nil then begin
  3474.     DBotMonkRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3475.     DBotMonkRanking.Top := 92 + d.Height * 3 + (248 - d.Height * 4) div 5 * 4;
  3476.     DBotMonkRanking.SetImgIndex(g_WMain3Images, 435);
  3477.   end;


  3480.   d := g_WMain3Images.Images[429];
  3481.   if d <> nil then begin
  3482.     DBotHeroActorRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3483.     DBotHeroActorRanking.Top := 92 + (248 - d.Height * 4) div 5;
  3484.     DBotHeroActorRanking.SetImgIndex(g_WMain3Images, 429);
  3485.   end;

  3487.   d := g_WMain3Images.Images[437];
  3488.   if d <> nil then begin
  3489.     DBotHeroWarriorRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3490.     DBotHeroWarriorRanking.Top := 92 + d.Height + (248 - d.Height * 4) div 5 * 2;
  3491.     DBotHeroWarriorRanking.SetImgIndex(g_WMain3Images, 437);
  3492.   end;

  3494.   d := g_WMain3Images.Images[439];
  3495.   if d <> nil then begin
  3496.     DBotHeroWizzardRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3497.     DBotHeroWizzardRanking.Top := 92 + d.Height * 2 + (248 - d.Height * 4) div 5 * 3;
  3498.     DBotHeroWizzardRanking.SetImgIndex(g_WMain3Images, 439);
  3499.   end;

  3501.   d := g_WMain3Images.Images[441];
  3502.   if d <> nil then begin
  3503.     DBotHeroMonkRanking.Left := (DRankingDlg.Width - d.Width) div 2;
  3504.     DBotHeroMonkRanking.Top := 92 + d.Height * 3 + (248 - d.Height * 4) div 5 * 4;
  3505.     DBotHeroMonkRanking.SetImgIndex(g_WMain3Images, 441);
  3506.   end;


  3509.   DBotRankingHome.Left := 22;
  3510.   DBotRankingHome.Top := 344;
  3511.   DBotRankingHome.SetImgIndex(g_WMain3Images, 450);

  3513.   DBotRankingUp.Left := 22 + 55;
  3514.   DBotRankingUp.Top := 344;
  3515.   DBotRankingUp.SetImgIndex(g_WMain3Images, 452);

  3517.   DBotRankingDown.Left := 22 + 55 * 2 - 3;
  3518.   DBotRankingDown.Top := 344;
  3519.   DBotRankingDown.SetImgIndex(g_WMain3Images, 454);

  3521.   DBotRankingLast.Left := 22 + 55 * 3 - 6;
  3522.   DBotRankingLast.Top := 344;
  3523.   DBotRankingLast.SetImgIndex(g_WMain3Images, 456);

  3525.   DBotRankingSelf.Left := 244;
  3526.   DBotRankingSelf.Top := 344;
  3527.   DBotRankingSelf.SetImgIndex(g_WMain3Images, 458);

  3529.   RankingPageChanged(DBotCharRanking);


  3532.   {-----------------------------------------------------------}
  3533.   //拍卖
  3534.   //d := g_WMain3Images.Images[176];
  3535.   //if d <> nil then begin
  3536.   DUserSellOff.Left := 0;
  3537.   DUserSellOff.Top := 0;
  3538.   DUserSellOff.SetImgIndex(g_WMain3Images, 176);
  3539. // end;

  3541.   EdSearch.Left := 12;
  3542.   EdSearch.Top := 328;
  3543.   EdSearch.Width := 136;
  3544.   EdSearch.Text := '';

  3546.   DSellClose.Left := 446;
  3547.   DSellClose.Top := 6;
  3548.   DSellClose.SetImgIndex(g_WMainImages, 64);

  3550.   DSellItem.Left := 224;
  3551.   DSellItem.Top := 262;

  3553.   DSearchSellOff.Left := 146;
  3554.   DSearchSellOff.Top := 325;
  3555.   DSearchSellOff.SetImgIndex(g_WMain3Images, 182);

  3557.   DBuySellItem.Left := 330;
  3558.   DBuySellItem.Top := 325;
  3559.   DBuySellItem.SetImgIndex(g_WMain3Images, 178);

  3561.   DCloseSell.Left := 397;
  3562.   DCloseSell.Top := 325;
  3563.   DCloseSell.SetImgIndex(g_WMain3Images, 180);

  3565.   DPrevSell.Left := 215;
  3566.   DPrevSell.Top := 355;
  3567.   DPrevSell.SetImgIndex(g_WMainImages, 388);

  3569.   DRefreshSell.Left := 259;
  3570.   DRefreshSell.Top := 356;
  3571.   DRefreshSell.SetImgIndex(g_WMain3Images, 177);

  3573.   DNextSell.Left := 302;
  3574.   DNextSell.Top := 355;
  3575.   DNextSell.SetImgIndex(g_WMainImages, 387);

  3577.   {
  3578.   d := g_WCqFirImages.Images[43];
  3579.   if d <> nil then begin
  3580.     DUserSellOff.Left := 0;
  3581.     DUserSellOff.Top := 0 ;
  3582.     DUserSellOff.SetImgIndex(g_WCqFirImages, 43);
  3583.   end;

  3585.   EdSearch.Left := 34;
  3586.   EdSearch.Top := 354;
  3587.   EdSearch.Width := 142;
  3588.   EdSearch.Text := '';

  3590.   DSellClose.Left := DUserSellOff.Width - 25;
  3591.   DSellClose.Top := 5;
  3592.   DSellClose.SetImgIndex(g_WCqFirImages, 55);

  3594.   DSellItem.Left := 392 - 145;
  3595.   DSellItem.Top := 312 - 15;

  3597.   DSearchSellOff.Left := 180;
  3598.   DSearchSellOff.Top := 353;
  3599.   DSearchSellOff.SetImgIndex(g_WCqFirImages, 49);

  3601.   DBuySellItem.Left := 346;
  3602.   DBuySellItem.Top := 353;
  3603.   DBuySellItem.SetImgIndex(g_WCqFirImages, 51);

  3605.   DCloseSell.Left := 416;
  3606.   DCloseSell.Top := 353;
  3607.   DCloseSell.SetImgIndex(g_WCqFirImages, 46);

  3609.   DPrevSell.Left := 198;
  3610.   DPrevSell.Top := 389;
  3611.   DPrevSell.SetImgIndex(g_WCqFirImages, 45);

  3613.   DRefreshSell.Left := 247;
  3614.   DRefreshSell.Top := 388;
  3615.   DRefreshSell.SetImgIndex(g_WCqFirImages, 48);

  3617.   DNextSell.Left := 302;
  3618.   DNextSell.Top := 388;
  3619.   DNextSell.SetImgIndex(g_WCqFirImages, 44);

  3621.   }
  3622.   {-----------------------------------------------------------}

  3624.   d := g_WMain3Images.Images[510];
  3625.   if d <> nil then begin
  3626.     DBoxItems.Left := (SCREENWIDTH - d.Width) div 2;
  3627.     DBoxItems.Top := (SCREENHEIGHT - d.Height) div 2;
  3628.     DBoxItems.SetImgIndex(g_WMain3Images, 510);
  3629.   end;

  3631.   DBoxItemGrid.Left := 22;
  3632.   DBoxItemGrid.Top := 16;
  3633.   DBoxItemGrid.ColWidth := 52;
  3634.   DBoxItemGrid.RowHeight := 48;
  3635.   DBoxItemGrid.Width := DBoxItemGrid.ColWidth * 3;
  3636.   DBoxItemGrid.Height := DBoxItemGrid.RowHeight * 3;

  3638.   {DBoxItemGrid.Width := DBoxItems.Width - 44;
  3639.   DBoxItemGrid.Height := DBoxItems.Height - 44 - 10;  }

  3641.   d := g_WMain3Images.Images[520];
  3642.   if d <> nil then begin
  3643.     DItemBox.Left := (SCREENWIDTH - d.Width) div 2;
  3644.     DItemBox.Top := (SCREENHEIGHT - d.Height) div 2 - 60;
  3645.     DItemBox.SetImgIndex(g_WMain3Images, 520);
  3646.   end;

  3648.   DItemLock.Left := 176;
  3649.   DItemLock.Top := 190;
  3650.   DItemLock.Width := 22;
  3651.   DItemLock.Height := 32;

  3653. { d := g_WMain3Images.Images[510];
  3654.   if d <> nil then begin
  3655.     DGetBoxItem.SetImgIndex(g_WMain3Images, 510);
  3656.     DGetBoxItem.Left := (DBoxItems.Width - d.Width) div 2;
  3657.     DGetBoxItem.Top := DBoxItems.Top - d.Height;
  3658.   end;  }

  3660.   {d := g_WMain3Images.Images[515];
  3661.   if d <> nil then begin
  3662.     DGetBoxItemFlash.Left := (DItemBox.Width - d.Width) div 2;
  3663.     DGetBoxItemFlash.Top := DItemBox.Height - 50 - 2;
  3664.   end;  }

  3666.   DGetBoxItemFlash.Left := (DBoxItems.Width - 20) div 2;
  3667.   DGetBoxItemFlash.Top := 180;
  3668.   DGetBoxItemFlash.Width := 20;
  3669.   DGetBoxItemFlash.Height := 15;

  3671.   d := g_WUIBImages.Images[0];
  3672.   if d <> nil then begin
  3673.     DBook.SetImgIndex(g_WUIBImages, 0);
  3674.     DBook.Left := (SCREENWIDTH - d.Width) div 2;
  3675.     DBook.Top := (SCREENHEIGHT - d.Height) div 2 - 90;
  3676.   end;

  3678.   d := g_WBookImages.Images[0];
  3679.   if d <> nil then begin
  3680.     DBookPage.SetImgIndex(g_WBookImages, 0);
  3681.     DBookPage.Left := (DBook.Width - d.Width) div 2;
  3682.     DBookPage.Top := (DBook.Height - d.Height) div 2;
  3683.   end;

  3685.   d := g_WUIBImages.Images[1];
  3686.   if d <> nil then begin
  3687.     DBookClose.SetImgIndex(g_WUIBImages, 1);
  3688.     DBookClose.Left := DBook.Width - d.Width - 3;
  3689.     DBookClose.Top := 0;
  3690.   end;

  3692.   d := g_WUIBImages.Images[5];
  3693.   if d <> nil then begin
  3694.     DBookPrevPage.SetImgIndex(g_WUIBImages, 5);
  3695.     DBookPrevPage.Left := 48;
  3696.     DBookPrevPage.Top := 318;
  3697.   end;

  3699.   d := g_WUIBImages.Images[3];
  3700.   if d <> nil then begin
  3701.     DBookNextPage.SetImgIndex(g_WUIBImages, 3);
  3702.     DBookNextPage.Left := 470 - d.Width;
  3703.     DBookNextPage.Top := 318;
  3704.   end;

  3706.   //行会
  3707.   d := g_WMainImages.Images[180];
  3708.   if d <> nil then begin
  3709.     DGuildDlg.Left := 0;
  3710.     DGuildDlg.Top := 0;
  3711.     DGuildDlg.SetImgIndex(g_WMainImages, 180);
  3712.   end;
  3713.   DGDClose.Left := 584;
  3714.   DGDClose.Top := 6;
  3715.   DGDClose.SetImgIndex(g_WMainImages, 64);
  3716.   DGDHome.Left := 13;
  3717.   DGDHome.Top := 411;
  3718.   DGDHome.SetImgIndex(g_WMainImages, 198);
  3719.   DGDList.Left := 13;
  3720.   DGDList.Top := 429;
  3721.   DGDList.SetImgIndex(g_WMainImages, 200);
  3722.   DGDChat.Left := 94;
  3723.   DGDChat.Top := 429;
  3724.   DGDChat.SetImgIndex(g_WMainImages, 190);
  3725.   DGDAddMem.Left := 243;
  3726.   DGDAddMem.Top := 411;
  3727.   DGDAddMem.SetImgIndex(g_WMainImages, 182);
  3728.   DGDDelMem.Left := 243;
  3729.   DGDDelMem.Top := 429;
  3730.   DGDDelMem.SetImgIndex(g_WMainImages, 192);
  3731.   DGDEditNotice.Left := 325;
  3732.   DGDEditNotice.Top := 411;
  3733.   DGDEditNotice.SetImgIndex(g_WMainImages, 196);
  3734.   DGDEditGrade.Left := 325;
  3735.   DGDEditGrade.Top := 429;
  3736.   DGDEditGrade.SetImgIndex(g_WMainImages, 194);
  3737.   DGDAlly.Left := 407;
  3738.   DGDAlly.Top := 411;
  3739.   DGDAlly.SetImgIndex(g_WMainImages, 184);
  3740.   DGDBreakAlly.Left := 407;
  3741.   DGDBreakAlly.Top := 429;
  3742.   DGDBreakAlly.SetImgIndex(g_WMainImages, 186);
  3743.   DGDWar.Left := 529;
  3744.   DGDWar.Top := 411;
  3745.   DGDWar.SetImgIndex(g_WMainImages, 202);
  3746.   DGDCancelWar.Left := 529;
  3747.   DGDCancelWar.Top := 429;
  3748.   DGDCancelWar.SetImgIndex(g_WMainImages, 188);

  3750.   DGDUp.Left := 595;
  3751.   DGDUp.Top := 239;
  3752.   DGDUp.SetImgIndex(g_WMainImages, 373);
  3753.   DGDDown.Left := 595;
  3754.   DGDDown.Top := 291;
  3755.   DGDDown.SetImgIndex(g_WMainImages, 372);

  3757.   //行会通告编辑框
  3758.   DGuildEditNotice.SetImgIndex(g_WMainImages, 204);
  3759.   DGEOk.SetImgIndex(g_WMainImages, 361);
  3760.   DGEOk.Left := 514;
  3761.   DGEOk.Top := 287;
  3762.   DGEClose.SetImgIndex(g_WMainImages, 64);
  3763.   DGEClose.Left := 584;
  3764.   DGEClose.Top := 6;


  3767.   {-----------------------------------------------------------}
  3768.   //属性调整对话框
  3769.   DAdjustAbility.SetImgIndex(g_WMainImages, 226);
  3770.   DAdjustAbilClose.SetImgIndex(g_WMainImages, 64);
  3771.   DAdjustAbilClose.Left := 316;
  3772.   DAdjustAbilClose.Top := 1;
  3773.   DAdjustAbilOk.SetImgIndex(g_WMainImages, 224);
  3774.   DAdjustAbilOk.Left := 220;
  3775.   DAdjustAbilOk.Top := 298;

  3777.   DPlusDC.SetImgIndex(g_WMainImages, 212);
  3778.   DPlusDC.Left := 217;
  3779.   DPlusDC.Top := 101;
  3780.   DPlusMC.SetImgIndex(g_WMainImages, 212);
  3781.   DPlusMC.Left := 217;
  3782.   DPlusMC.Top := 121;
  3783.   DPlusSC.SetImgIndex(g_WMainImages, 212);
  3784.   DPlusSC.Left := 217;
  3785.   DPlusSC.Top := 140;
  3786.   DPlusAC.SetImgIndex(g_WMainImages, 212);
  3787.   DPlusAC.Left := 217;
  3788.   DPlusAC.Top := 160;
  3789.   DPlusMAC.SetImgIndex(g_WMainImages, 212);
  3790.   DPlusMAC.Left := 217;
  3791.   DPlusMAC.Top := 181;
  3792.   DPlusHP.SetImgIndex(g_WMainImages, 212);
  3793.   DPlusHP.Left := 217;
  3794.   DPlusHP.Top := 201;
  3795.   DPlusMP.SetImgIndex(g_WMainImages, 212);
  3796.   DPlusMP.Left := 217;
  3797.   DPlusMP.Top := 220;
  3798.   DPlusHit.SetImgIndex(g_WMainImages, 212);
  3799.   DPlusHit.Left := 217;
  3800.   DPlusHit.Top := 240;
  3801.   DPlusSpeed.SetImgIndex(g_WMainImages, 212);
  3802.   DPlusSpeed.Left := 217;
  3803.   DPlusSpeed.Top := 261;

  3805.   DMinusDC.SetImgIndex(g_WMainImages, 214);
  3806.   DMinusDC.Left := 227 + 6;
  3807.   DMinusDC.Top := 101;
  3808.   DMinusMC.SetImgIndex(g_WMainImages, 214);
  3809.   DMinusMC.Left := 227 + 6;
  3810.   DMinusMC.Top := 121;
  3811.   DMinusSC.SetImgIndex(g_WMainImages, 214);
  3812.   DMinusSC.Left := 227 + 6;
  3813.   DMinusSC.Top := 140;
  3814.   DMinusAC.SetImgIndex(g_WMainImages, 214);
  3815.   DMinusAC.Left := 227 + 6;
  3816.   DMinusAC.Top := 160;
  3817.   DMinusMAC.SetImgIndex(g_WMainImages, 214);
  3818.   DMinusMAC.Left := 227 + 6;
  3819.   DMinusMAC.Top := 181;
  3820.   DMinusHP.SetImgIndex(g_WMainImages, 214);
  3821.   DMinusHP.Left := 227 + 6;
  3822.   DMinusHP.Top := 201;
  3823.   DMinusMP.SetImgIndex(g_WMainImages, 214);
  3824.   DMinusMP.Left := 227 + 6;
  3825.   DMinusMP.Top := 220;
  3826.   DMinusHit.SetImgIndex(g_WMainImages, 214);
  3827.   DMinusHit.Left := 227 + 6;
  3828.   DMinusHit.Top := 240;
  3829.   DMinusSpeed.SetImgIndex(g_WMainImages, 214);
  3830.   DMinusSpeed.Left := 227 + 6;
  3831.   DMinusSpeed.Top := 261;

  3833.   DEditAdjustIncrement.Left := 150;
  3834.   DEditAdjustIncrement.Top := 303;
  3835.   DEditAdjustIncrement.Width := 65;

  3837.   DLabelAdjustIncrement.Left := 34;
  3838.   DLabelAdjustIncrement.Top := 304;
  3839.   DLabelAdjustIncrement.Width := 116;
  3840.   DLabelAdjustIncrement.Height := 14;

  3842.   {d := g_WMain3Images.Images[34];
  3843.   if d <> nil then begin
  3844.     DFriendDlg.SetImgIndex(g_WMain3Images, 34);
  3845.     DFriendDlg.Left := 0;
  3846.     DFriendDlg.Top := 0;
  3847.   end;
  3848.   DFrdClose.SetImgIndex(g_WMainImages, 371);
  3849.   DFrdClose.Left := 247;
  3850.   DFrdClose.Top := 5;
  3851.   DFrdPgUp.SetImgIndex(g_WMainImages, 373);
  3852.   DFrdPgUp.Left := 259;
  3853.   DFrdPgUp.Top := 102;
  3854.   DFrdPgDn.SetImgIndex(g_WMainImages, 372);
  3855.   DFrdPgDn.Left := 259;
  3856.   DFrdPgDn.Top := 154;
  3857.   DFrdFriend.SetImgIndex(g_WMain3Images, 42);
  3858.   DFrdFriend.Left := 15;
  3859.   DFrdFriend.Top := 35;
  3860.   DFrdBlackList.SetImgIndex(g_WMainImages, 573);
  3861.   DFrdBlackList.Left := 130;
  3862.   DFrdBlackList.Top := 35;
  3863.   DFrdAdd.SetImgIndex(g_WMainImages, 554);
  3864.   DFrdAdd.Left := 90;
  3865.   DFrdAdd.Top := 233;
  3866.   DFrdDel.SetImgIndex(g_WMainImages, 556);
  3867.   DFrdDel.Left := 124;
  3868.   DFrdDel.Top := 233;
  3869.   DFrdMemo.SetImgIndex(g_WMainImages, 558);
  3870.   DFrdMemo.Left := 158;
  3871.   DFrdMemo.Top := 233;
  3872.   DFrdMail.SetImgIndex(g_WMainImages, 560);
  3873.   DFrdMail.Left := 192;
  3874.   DFrdMail.Top := 233;
  3875.   DFrdWhisper.SetImgIndex(g_WMainImages, 562);
  3876.   DFrdWhisper.Left := 226;
  3877.   DFrdWhisper.Top := 233;  }

  3879.   d := g_WMainImages.Images[536];
  3880.   if d <> nil then begin
  3881.     DMailListDlg.SetImgIndex(g_WMainImages, 536);
  3882.     DMailListDlg.Left := 512;
  3883.     DMailListDlg.Top := 0;
  3884.   end;
  3885.   DMailListClose.SetImgIndex(g_WMainImages, 371);
  3886.   DMailListClose.Left := 247;
  3887.   DMailListClose.Top := 5;
  3888.   DMailListPgUp.SetImgIndex(g_WMainImages, 373);
  3889.   DMailListPgUp.Left := 259;
  3890.   DMailListPgUp.Top := 102;
  3891.   DMailListPgDn.SetImgIndex(g_WMainImages, 372);
  3892.   DMailListPgDn.Left := 259;
  3893.   DMailListPgDn.Top := 154;
  3894.   DMLReply.SetImgIndex(g_WMainImages, 564);
  3895.   DMLReply.Left := 90;
  3896.   DMLReply.Top := 233;
  3897.   DMLRead.SetImgIndex(g_WMainImages, 566);
  3898.   DMLRead.Left := 124;
  3899.   DMLRead.Top := 233;
  3900.   DMLDel.SetImgIndex(g_WMainImages, 556);
  3901.   DMLDel.Left := 158;
  3902.   DMLDel.Top := 233;
  3903.   DMLLock.SetImgIndex(g_WMainImages, 568);
  3904.   DMLLock.Left := 192;
  3905.   DMLLock.Top := 233;
  3906.   DMLBlock.SetImgIndex(g_WMainImages, 570);
  3907.   DMLBlock.Left := 226;
  3908.   DMLBlock.Top := 233;

  3910.   d := g_WMainImages.Images[536];
  3911.   if d <> nil then begin
  3912.     DBlockListDlg.SetImgIndex(g_WMainImages, 536);
  3913.     DBlockListDlg.Left := 512;
  3914.     DBlockListDlg.Top := 0;
  3915.   end;
  3916.   DBlockListClose.SetImgIndex(g_WMainImages, 371);
  3917.   DBlockListClose.Left := 247;
  3918.   DBlockListClose.Top := 5;
  3919.   DBLPgUp.SetImgIndex(g_WMainImages, 373);
  3920.   DBLPgUp.Left := 259;
  3921.   DBLPgUp.Top := 102;
  3922.   DBLPgDn.SetImgIndex(g_WMainImages, 372);
  3923.   DBLPgDn.Left := 259;
  3924.   DBLPgDn.Top := 154;
  3925.   DBLAdd.SetImgIndex(g_WMainImages, 554);
  3926.   DBLAdd.Left := 192;
  3927.   DBLAdd.Top := 233;
  3928.   DBLDel.SetImgIndex(g_WMainImages, 556);
  3929.   DBLDel.Left := 226;
  3930.   DBLDel.Top := 233;

  3932.   d := g_WMainImages.Images[537];
  3933.   if d <> nil then begin
  3934.     DMemo.SetImgIndex(g_WMainImages, 537);
  3935.     DMemo.Left := 290;
  3936.     DMemo.Top := 0;
  3937.   end;
  3938.   DMemoClose.SetImgIndex(g_WMainImages, 371);
  3939.   DMemoClose.Left := 205;
  3940.   DMemoClose.Top := 1;
  3941.   DMemoB1.SetImgIndex(g_WMainImages, 544);
  3942.   DMemoB1.Left := 58;
  3943.   DMemoB1.Top := 114;
  3944.   DMemoB2.SetImgIndex(g_WMainImages, 538);
  3945.   DMemoB2.Left := 126;
  3946.   DMemoB2.Top := 114;

  3948.   DButtonHP.Left := 40;
  3949.   DButtonHP.Top := 91;
  3950.   DButtonHP.Width := 45;
  3951.   DButtonHP.Height := 90;

  3953.   DButtonMP.Left := 40 + 47;
  3954.   DButtonMP.Top := 91;
  3955.   DButtonMP.Width := 45;
  3956.   DButtonMP.Height := 90;
  3957.   {
  3958.      //背包物品窗口
  3959.      DItemBag.SetImgIndex (g_WMain3Images, 6);
  3960.      DItemBag.Left := 0;
  3961.      DItemBag.Top := 0;

  3963.      DItemGrid.Left := 29;
  3964.      DItemGrid.Top  := 41;
  3965.      DItemGrid.Width := 286;
  3966.      DItemGrid.Height := 162;

  3968.      DClosebag.Downed:=True;
  3969.      DCloseBag.Left := 336;
  3970.      DCloseBag.Top := 59;
  3971.      DCloseBag.Width := 14;
  3972.      DCloseBag.Height := 20;

  3974.      DGold.Left := 18;
  3975.      DGold.Top  := 218;
  3976.      d := g_WMain3Images.Images[207];  //惑怕
  3977.      if d <> nil then begin
  3978.         DStateWin.SetImgIndex (g_WMain3Images, 207);
  3979.         DStateWin.Left := SCREENWIDTH - d.Width;
  3980.         DStateWin.Top := 0;
  3981.      end;}

  3983.   d := g_WMain3Images.Images[406];
  3984.   if d <> nil then begin
  3985.     DFindChr.SetImgIndex(g_WMain3Images, 406);
  3986.     DFindChr.Left := (SCREENWIDTH - d.Width) div 2;
  3987.     DFindChr.Top := (SCREENHEIGHT - d.Height) div 2;
  3988.   end;

  3990.   DFindOK.SetImgIndex(g_WMain3Images, 407);
  3991.   DFindChrClose.SetImgIndex(g_WMainImages, 64);

  3993.   DFindOK.Left := 104;
  3994.   DFindOK.Top := 361;
  3995.   DFindChrClose.Left := 248;
  3996.   DFindChrClose.Top := 31;


  3999.   {-----------------------------------------------------------}
  4000.   //挑战对话框
  4001.   d := g_WMain3Images.Images[465]; //挑战方
  4002.   if d <> nil then begin
  4003.     DWDuel.Left := SCREENWIDTH - d.Width;
  4004.     DWDuel.Top := 0;
  4005.     DWDuel.SetImgIndex(g_WMain3Images, 465);
  4006.   end;
  4007.   DDDuelGrid.Left := 27;
  4008.   DDDuelGrid.Top := 156;
  4009.   DDDuelGrid.Width := 38 * 5;
  4010.   DDDuelGrid.Height := 33;

  4012.   DDDuelGold.SetImgIndex(g_WMainImages, 28);
  4013.   DDDuelGold.Left := 27;
  4014.   DDDuelGold.Top := 202 - 4;

  4016.   DDRDuelGrid.Left := 27;
  4017.   DDRDuelGrid.Top := 56;
  4018.   DDRDuelGrid.Width := 38 * 5;
  4019.   DDRDuelGrid.Height := 33;

  4021.   DDRDuelGold.SetImgIndex(g_WMainImages, 28);
  4022.   DDRDuelGold.Left := 27;
  4023.   DDRDuelGold.Top := 56 + 33 + 8;

  4025.   DDuelOK.SetImgIndex(g_WMain3Images, 463);
  4026.   DDuelOK.Left := 76 - 3;
  4027.   DDuelOK.Top := 250 - 20;

  4029.   DDuelCancel.SetImgIndex(g_WMain3Images, 466);
  4030.   DDuelCancel.Left := 128 - 6;
  4031.   DDuelCancel.Top := 250 - 19;

  4033.   DDuelClose.SetImgIndex(g_WMainImages, 64);
  4034.   DDuelClose.Left := 240;
  4035.   DDuelClose.Top := 0;


  4038.   DStoreDlg.SetImgIndex(g_WCqFirImages, 156);
  4039.   DStoreDlg.Left := (SCREENWIDTH - DStoreDlg.Width) div 2;
  4040.   DStoreDlg.Top := (SCREENHEIGHT - DStoreDlg.Height - 50) div 2;

  4042.   DGStore.Left := 20;
  4043.   DGStore.Top := 80;
  4044.   DGStore.Width := 41 * 5;
  4045.   DGStore.Height := 38 * 3;

  4047.   DStoreOpen.SetImgIndex(g_WCqFirImages, 165);
  4048.   DStoreOpen.Left := 95;
  4049.   DStoreOpen.Top := 208;

  4051.   DStoreCancel.SetImgIndex(g_WCqFirImages, 173);
  4052.   DStoreCancel.Left := 163;
  4053.   DStoreCancel.Top := 208;

  4055.   DStoreClose.SetImgIndex(g_WMainImages, 64);
  4056.   DStoreClose.Left := 245;
  4057.   DStoreClose.Top := 1;

  4059.   DStoreName.SetImgIndex(g_WCqFirImages, 171);
  4060.   DStoreName.Left := 16;
  4061.   DStoreName.Top := 52;

  4063.   DEditStore.Left := 25;
  4064.   DEditStore.Top := 306;
  4065.   DEditStore.Width := 190;
  4066.   DEditStore.Text := '';



  4070.   DUserStore.SetImgIndex(g_WCqFirImages, 163);
  4071.   DUserStore.Left := (SCREENWIDTH - DUserStore.Width) div 2;
  4072.   DUserStore.Top := (SCREENHEIGHT - DUserStore.Height - 50) div 2;

  4074.   DUserStoreClose.SetImgIndex(g_WMainImages, 64);
  4075.   DUserStoreClose.Left := 245;
  4076.   DUserStoreClose.Top := 1;

  4078.   DGUserStore.Left := 20;
  4079.   DGUserStore.Top := 52;
  4080.   DGUserStore.Width := 41 * 5;
  4081.   DGUserStore.Height := 38 * 3;


  4084.   DUserStoreBuy.SetImgIndex(g_WCqFirImages, 161);
  4085.   DUserStoreBuy.Left := 170;
  4086.   DUserStoreBuy.Top := 208;

  4088.   DEditUserStore.Left := 25;
  4089.   DEditUserStore.Top := 306;
  4090.   DEditUserStore.Width := 190;
  4091.   DEditUserStore.Text := '';




  4096.   DStoreMsgDlg.SetImgIndex(g_WCqFirImages, 157);
  4097.   DStoreMsgDlg.Left := (SCREENWIDTH - DUserStore.Width) div 2;
  4098.   DStoreMsgDlg.Top := (SCREENHEIGHT - DUserStore.Height - 50) div 2;

  4100.   DStoreMsgDlgOk.SetImgIndex(g_WCqFirImages, 169);
  4101.   DStoreMsgDlgOk.Left := 88;
  4102.   DStoreMsgDlgOk.Top := 97;

  4104.   DStoreMsgDlgCancel.SetImgIndex(g_WCqFirImages, 167);
  4105.   DStoreMsgDlgCancel.Left := 228;
  4106.   DStoreMsgDlgCancel.Top := 97;

  4108.   EdStoreDlgEdit.Left := 132;
  4109.   EdStoreDlgEdit.Top := 66;
  4110.   EdStoreDlgEdit.Width := 152;
  4111.   EdStoreDlgEdit.Text := '';



  4115.   //验证码窗口
  4116.   DWRandomCode.SetImgIndex(g_WMain3Images, 43);
  4117.   DWRandomCode.Left := (SCREENWIDTH - DWRandomCode.Width) div 2;
  4118.   DWRandomCode.Top := (SCREENHEIGHT - DWRandomCode.Height) div 2;

  4120.   DBRandomCodeOK.SetImgIndex(g_WCqFirImages, 183);
  4121.   DBRandomCodeOK.Left := 35;
  4122.   DBRandomCodeOK.Top := 112;

  4124.   DBRandomCodeChg.SetImgIndex(g_WCqFirImages, 185);
  4125.   DBRandomCodeChg.Left := 115;
  4126.   DBRandomCodeChg.Top := 112;

  4128.   DEditRandomCode.Left := 93;
  4129.   DEditRandomCode.Top := 9;
  4130.   DEditRandomCode.Width := 93;
  4131.   DEditRandomCode.Text := '';



  4135.    //配置窗口
  4136.   d := g_WMain2Images.Images[607];
  4137.   if d <> nil then begin
  4138.     DConfigDlg.SetImgIndex(g_WMain2Images, 607);
  4139.     DConfigDlg.Left := (SCREENWIDTH - d.Width) div 2;
  4140.     DConfigDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  4141.   end;
  4142.   DConfigDlgClose.Left := DConfigDlg.Width - 22;
  4143.   DConfigDlgClose.Top := 2;
  4144.   DConfigDlgClose.SetImgIndex(g_WMain2Images, 279);

  4146.   DButtonTab1.Left := 10;
  4147.   DButtonTab1.Top := 12;
  4148.   DButtonTab1.SetImgIndex(g_WMain2Images, 608);
  4149.   DButtonTab2.Left := 10 + 48;
  4150.   DButtonTab2.Top := 12;
  4151.   DButtonTab2.SetImgIndex(g_WMain2Images, 608);
  4152.   DButtonTab3.Left := 10 + 48 * 2;
  4153.   DButtonTab3.Top := 12;
  4154.   DButtonTab3.SetImgIndex(g_WMain2Images, 608);
  4155.   DButtonTab4.Left := 10 + 48 * 3;
  4156.   DButtonTab4.Top := 12;
  4157.   DButtonTab4.SetImgIndex(g_WMain2Images, 608);
  4158.   DButtonTab5.Left := 10 + 48 * 4;
  4159.   DButtonTab5.Top := 12;
  4160.   DButtonTab5.SetImgIndex(g_WMain2Images, 608);
  4161.   DButtonTab6.Left := 10 + 48 * 5;
  4162.   DButtonTab6.Top := 12;
  4163.   DButtonTab6.SetImgIndex(g_WMain2Images, 608);
  4164.   DButtonTab7.Left := 10 + 48 * 6;
  4165.   DButtonTab7.Top := 12;
  4166.   DButtonTab7.SetImgIndex(g_WMain2Images, 608);
  4167.   DButtonTab8.Left := 10 + 48 * 7;
  4168.   DButtonTab8.Top := 12;
  4169.   DButtonTab8.SetImgIndex(g_WMain2Images, 608);



  4173.   DConfigDlg.TabLeft := 14;
  4174.   DConfigDlg.TabTop := 36;
  4175.   DConfigDlg.TabWidth := 384;
  4176.   DConfigDlg.TabHeight := 206;


  4179.   DMemoTab1.Left := 20;
  4180.   DMemoTab1.Top := 20;
  4181.   DMemoTab1.Width := 384 - 16 - 20;
  4182.   DMemoTab1.Height := 208 - 20;

  4184.   DMemoTab2.Left := 12;
  4185.   DMemoTab2.Top := 24 + 4;
  4186.   DMemoTab2.Width := 384 - 16 - 18;
  4187.   DMemoTab2.Height := 206 - 14 - 24 - 10 - 6;


  4190.   DMemoTab3.Left := 10;
  4191.   DMemoTab3.Top := 10;
  4192.   DMemoTab3.Width := 384 - 16 - 10;
  4193.   DMemoTab3.Height := 208 - 10;

  4195.   DMemoTab4.Left := 10;
  4196.   DMemoTab4.Top := 10;
  4197.   DMemoTab4.Width := 384 - 16;
  4198.   DMemoTab4.Height := 208;

  4200.   DMemoTab5.Left := 0;
  4201.   DMemoTab5.Top := 0;
  4202.   DMemoTab5.Width := 384 - 16;
  4203.   DMemoTab5.Height := 208;

  4205.   DMemoTab6.Left := 0;
  4206.   DMemoTab6.Top := 0;
  4207.   DMemoTab6.Width := 384 - 16;
  4208.   DMemoTab6.Height := 208;

  4210.   DMemoTab7.Left := 0;
  4211.   DMemoTab7.Top := 0;
  4212.   DMemoTab7.Width := 384 - 16;
  4213.   DMemoTab7.Height := 208;

  4215.   DMemoTab8.Left := 1;
  4216.   DMemoTab8.Top := 10;
  4217.   DMemoTab8.Width := 384 - 18;
  4218.   DMemoTab8.Height := 208 - 10;

  4220.   //DScrollTab1.VisibleScroll:=False;
  4221.   DScrollTab1.SetImgIndex(g_WMain2Images, 291);
  4222.   DScrollTab1.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4223.   DScrollTab1.RightButton.SetImgIndex(g_WMain2Images, 294);
  4224.   DScrollTab1.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4225.   DScrollTab1.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4226.   DScrollTab1.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4227.   DScrollTab1.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4228.   DScrollTab1.Left := 384 - DScrollTab1.Width + 1;
  4229.   DScrollTab1.Top := 0;
  4230.   DScrollTab1.Height := 208;
  4231.   DScrollTab1.Increment := 12;
  4232.   DScrollTab1.LeftButton.Left := 1;
  4233.   DScrollTab1.LeftButton.Top := 1;
  4234.   DScrollTab1.RightButton.Left := 1;
  4235.   DScrollTab1.RightButton.Top := DScrollTab1.Height - DScrollTab1.RightButton.Height - 1;
  4236.   DScrollTab1.CenterButton.Left := 1;
  4237.   DScrollTab1.CenterButton.Top := DScrollTab1.LeftButton.Top + DScrollTab1.LeftButton.Height;

  4239.   DScrollTab2.SetImgIndex(g_WMain2Images, 291);
  4240.   DScrollTab2.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4241.   DScrollTab2.RightButton.SetImgIndex(g_WMain2Images, 294);
  4242.   DScrollTab2.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4243.   DScrollTab2.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4244.   DScrollTab2.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4245.   DScrollTab2.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4246.   DScrollTab2.Left := 384 - DScrollTab2.Width + 1;
  4247.   DScrollTab2.Top := 0;
  4248.   DScrollTab2.Height := 208;
  4249.   DScrollTab2.Increment := 17;
  4250.   DScrollTab2.LeftButton.Left := 1;
  4251.   DScrollTab2.LeftButton.Top := 1;
  4252.   DScrollTab2.RightButton.Left := 1;
  4253.   DScrollTab2.RightButton.Top := DScrollTab2.Height - DScrollTab2.RightButton.Height - 1;
  4254.   DScrollTab2.CenterButton.Left := 1;
  4255.   DScrollTab2.CenterButton.Top := DScrollTab2.LeftButton.Top + DScrollTab2.LeftButton.Height;

  4257.   DScrollTab3.SetImgIndex(g_WMain2Images, 291);
  4258.   DScrollTab3.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4259.   DScrollTab3.RightButton.SetImgIndex(g_WMain2Images, 294);
  4260.   DScrollTab3.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4261.   DScrollTab3.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4262.   DScrollTab3.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4263.   DScrollTab3.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4264.   DScrollTab3.Left := 384 - DScrollTab3.Width + 1;
  4265.   DScrollTab3.Top := 0;
  4266.   DScrollTab3.Height := 208;
  4267.   DScrollTab3.Increment := 12;
  4268.   DScrollTab3.LeftButton.Left := 1;
  4269.   DScrollTab3.LeftButton.Top := 1;
  4270.   DScrollTab3.RightButton.Left := 1;
  4271.   DScrollTab3.RightButton.Top := DScrollTab3.Height - DScrollTab3.RightButton.Height - 1;
  4272.   DScrollTab3.CenterButton.Left := 1;
  4273.   DScrollTab3.CenterButton.Top := DScrollTab3.LeftButton.Top + DScrollTab3.LeftButton.Height;


  4276.   DScrollTab4.SetImgIndex(g_WMain2Images, 291);
  4277.   DScrollTab4.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4278.   DScrollTab4.RightButton.SetImgIndex(g_WMain2Images, 294);
  4279.   DScrollTab4.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4280.   DScrollTab4.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4281.   DScrollTab4.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4282.   DScrollTab4.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4283.   DScrollTab4.Left := 384 - DScrollTab4.Width + 1;
  4284.   DScrollTab4.Top := 0;
  4285.   DScrollTab4.Height := 208;
  4286.   DScrollTab4.Increment := 12;
  4287.   DScrollTab4.LeftButton.Left := 1;
  4288.   DScrollTab4.LeftButton.Top := 1;
  4289.   DScrollTab4.RightButton.Left := 1;
  4290.   DScrollTab4.RightButton.Top := DScrollTab4.Height - DScrollTab4.RightButton.Height - 1;
  4291.   DScrollTab4.CenterButton.Left := 1;
  4292.   DScrollTab4.CenterButton.Top := DScrollTab4.LeftButton.Top + DScrollTab4.LeftButton.Height;

  4294.   DScrollTab5.SetImgIndex(g_WMain2Images, 291);
  4295.   DScrollTab5.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4296.   DScrollTab5.RightButton.SetImgIndex(g_WMain2Images, 294);
  4297.   DScrollTab5.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4298.   DScrollTab5.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4299.   DScrollTab5.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4300.   DScrollTab5.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4301.   DScrollTab5.Left := 384 - DScrollTab5.Width + 1;
  4302.   DScrollTab5.Top := 0;
  4303.   DScrollTab5.Height := 208;
  4304.   DScrollTab5.Increment := 12;
  4305.   DScrollTab5.LeftButton.Left := 1;
  4306.   DScrollTab5.LeftButton.Top := 1;
  4307.   DScrollTab5.RightButton.Left := 1;
  4308.   DScrollTab5.RightButton.Top := DScrollTab5.Height - DScrollTab5.RightButton.Height - 1;
  4309.   DScrollTab5.CenterButton.Left := 1;
  4310.   DScrollTab5.CenterButton.Top := DScrollTab5.LeftButton.Top + DScrollTab5.LeftButton.Height;

  4312.   DScrollTab6.SetImgIndex(g_WMain2Images, 291);
  4313.   DScrollTab6.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4314.   DScrollTab6.RightButton.SetImgIndex(g_WMain2Images, 294);
  4315.   DScrollTab6.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4316.   DScrollTab6.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4317.   DScrollTab6.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4318.   DScrollTab6.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4319.   DScrollTab6.Left := 384 - DScrollTab6.Width + 1;
  4320.   DScrollTab6.Top := 0;
  4321.   DScrollTab6.Height := 208;
  4322.   DScrollTab6.Increment := 12;
  4323.   DScrollTab6.LeftButton.Left := 1;
  4324.   DScrollTab6.LeftButton.Top := 1;
  4325.   DScrollTab6.RightButton.Left := 1;
  4326.   DScrollTab6.RightButton.Top := DScrollTab6.Height - DScrollTab6.RightButton.Height - 1;
  4327.   DScrollTab6.CenterButton.Left := 1;
  4328.   DScrollTab6.CenterButton.Top := DScrollTab6.LeftButton.Top + DScrollTab6.LeftButton.Height;

  4330.   DScrollTab7.SetImgIndex(g_WMain2Images, 291);
  4331.   DScrollTab7.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4332.   DScrollTab7.RightButton.SetImgIndex(g_WMain2Images, 294);
  4333.   DScrollTab7.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4334.   DScrollTab7.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4335.   DScrollTab7.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4336.   DScrollTab7.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4337.   DScrollTab7.Left := 384 - DScrollTab7.Width + 1;
  4338.   DScrollTab7.Top := 0;
  4339.   DScrollTab7.Height := 208;
  4340.   DScrollTab7.Increment := 12;
  4341.   DScrollTab7.LeftButton.Left := 1;
  4342.   DScrollTab7.LeftButton.Top := 1;
  4343.   DScrollTab7.RightButton.Left := 1;
  4344.   DScrollTab7.RightButton.Top := DScrollTab7.Height - DScrollTab7.RightButton.Height - 1;
  4345.   DScrollTab7.CenterButton.Left := 1;
  4346.   DScrollTab7.CenterButton.Top := DScrollTab7.LeftButton.Top + DScrollTab7.LeftButton.Height;

  4348.   DScrollTab8.SetImgIndex(g_WMain2Images, 291);
  4349.   DScrollTab8.LeftButton.SetImgIndex(g_WMain2Images, 292);
  4350.   DScrollTab8.RightButton.SetImgIndex(g_WMain2Images, 294);
  4351.   DScrollTab8.CenterButton.SetImgIndex(g_WMain2Images, 581);
  4352.   DScrollTab8.LeftButton.OnDirectPaint := DScrollScrollDirectPaint;
  4353.   DScrollTab8.RightButton.OnDirectPaint := DScrollScrollDirectPaint;
  4354.   DScrollTab8.OnDirectPaint := DScrollCenterScrollDirectPaint;
  4355.   DScrollTab8.Left := 384 - DScrollTab8.Width + 1;
  4356.   DScrollTab8.Top := 0;
  4357.   DScrollTab8.Height := 208;
  4358.   DScrollTab8.Increment := 12;
  4359.   DScrollTab8.LeftButton.Left := 1;
  4360.   DScrollTab8.LeftButton.Top := 1;
  4361.   DScrollTab8.RightButton.Left := 1;
  4362.   DScrollTab8.RightButton.Top := DScrollTab8.Height - DScrollTab8.RightButton.Height - 1;
  4363.   DScrollTab8.CenterButton.Left := 1;
  4364.   DScrollTab8.CenterButton.Top := DScrollTab8.LeftButton.Top + DScrollTab8.LeftButton.Height;

  4366. {----------------------DMemoTab1------------------------------}
  4367.   {DMemoTab1.PosX := 20;
  4368.   DMemoTab1.PosY := 20;  }


  4371.   DCheckBoxShowActorLable.SetImgIndex(g_WMain2Images, 228);
  4372.   DCheckBoxHideBlueLable.SetImgIndex(g_WMain2Images, 228);
  4373.   DCheckBoxShowNumberLable.SetImgIndex(g_WMain2Images, 228);
  4374.   DCheckBoxShowJobAndLevel.SetImgIndex(g_WMain2Images, 228);

  4376.   DCheckBoxShowUserName.SetImgIndex(g_WMain2Images, 228);
  4377.   DCheckBoxShowMonName.SetImgIndex(g_WMain2Images, 228);
  4378.   DCheckBoxShowItemName.SetImgIndex(g_WMain2Images, 228);
  4379.   DCheckBoxShowMoveNumberLable.SetImgIndex(g_WMain2Images, 228);


  4382.   DCheckBoxShowGreenHint.SetImgIndex(g_WMain2Images, 228);
  4383.   DCheckBoxMusic.SetImgIndex(g_WMain2Images, 228);
  4384.   DCheckBoxItemHint.SetImgIndex(g_WMain2Images, 228);
  4385.   DCheckBoxMagicLock.SetImgIndex(g_WMain2Images, 228);

  4387.   DCheckBoxOrderItem.SetImgIndex(g_WMain2Images, 228);
  4388.   DCheckBoxOnlyShowCharName.SetImgIndex(g_WMain2Images, 228);
  4389.   DCheckBoxCloseGroup.SetImgIndex(g_WMain2Images, 228);
  4390.   DCheckBoxItemDuraHint.SetImgIndex(g_WMain2Images, 228);

  4392.   DCheckBoxNotNeedShift.SetImgIndex(g_WMain2Images, 228);
  4393.   DCheckBoxAutoHorse.SetImgIndex(g_WMain2Images, 228);
  4394.   DCheckBoxCompareItem.SetImgIndex(g_WMain2Images, 228);

  4396.   DCheckBoxShowActorLable.Left := 0;
  4397.   DCheckBoxHideBlueLable.Left := 68 + 20;
  4398.   DCheckBoxShowNumberLable.Left := 68 * 2 + 20 * 2;
  4399.   DCheckBoxShowJobAndLevel.Left := 68 * 3 + 20 * 3;

  4401.   DCheckBoxShowActorLable.Top := 0;
  4402.   DCheckBoxHideBlueLable.Top := 0;
  4403.   DCheckBoxShowNumberLable.Top := 0;
  4404.   DCheckBoxShowJobAndLevel.Top := 0;


  4407.   DCheckBoxShowUserName.Left := 0;
  4408.   DCheckBoxShowMonName.Left := 68 + 20;
  4409.   DCheckBoxShowItemName.Left := 68 * 2 + 20 * 2;
  4410.   DCheckBoxShowMoveNumberLable.Left := 68 * 3 + 20 * 3;


  4413.   DCheckBoxShowUserName.Top := 30;
  4414.   DCheckBoxShowMonName.Top := 30;
  4415.   DCheckBoxShowItemName.Top := 30;
  4416.   DCheckBoxShowMoveNumberLable.Top := 30;




  4421.   DCheckBoxShowGreenHint.Left := 0;
  4422.   DCheckBoxMusic.Left := 68 + 20;
  4423.   DCheckBoxItemHint.Left := 68 * 2 + 20 * 2;
  4424.   DCheckBoxMagicLock.Left := 68 * 3 + 20 * 3;

  4426.   DCheckBoxShowGreenHint.Top := 30 * 2;
  4427.   DCheckBoxMusic.Top := 30 * 2;
  4428.   DCheckBoxItemHint.Top := 30 * 2;
  4429.   DCheckBoxMagicLock.Top := 30 * 2;



  4433.   DCheckBoxOrderItem.Left := 0;
  4434.   DCheckBoxOnlyShowCharName.Left := 68 + 20;
  4435.   DCheckBoxCloseGroup.Left := 68 * 2 + 20 * 2;
  4436.   DCheckBoxItemDuraHint.Left := 68 * 3 + 20 * 3;

  4438.   DCheckBoxOrderItem.Top := 30 * 3;
  4439.   DCheckBoxOnlyShowCharName.Top := 30 * 3;
  4440.   DCheckBoxCloseGroup.Top := 30 * 3;
  4441.   DCheckBoxItemDuraHint.Top := 30 * 3;

  4443.   DCheckBoxNotNeedShift.Left := 0;
  4444.   DCheckBoxNotNeedShift.Top := 30 * 4;

  4446.   DCheckBoxAutoHorse.Left := 68 + 20;
  4447.   DCheckBoxAutoHorse.Top := 30 * 4;

  4449.   DCheckBoxCompareItem.Left := 68 * 2 + 20 * 2;
  4450.   DCheckBoxCompareItem.Top := 30 * 4;

  4452.   ItemList := DMemoTab1.Add;
  4453.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowActorLable);
  4454.   DMemoTab1.AddSuItem(ItemList, DCheckBoxHideBlueLable);
  4455.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowNumberLable);
  4456.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowJobAndLevel);



  4460.   ItemList := DMemoTab1.Add;
  4461.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowUserName);
  4462.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowMonName);
  4463.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowItemName);
  4464.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowMoveNumberLable);


  4467.   ItemList := DMemoTab1.Add;
  4468.   DMemoTab1.AddSuItem(ItemList, DCheckBoxShowGreenHint);
  4469.   DMemoTab1.AddSuItem(ItemList, DCheckBoxMusic);
  4470.   DMemoTab1.AddSuItem(ItemList, DCheckBoxItemHint);
  4471.   DMemoTab1.AddSuItem(ItemList, DCheckBoxMagicLock);


  4474.   ItemList := DMemoTab1.Add;
  4475.   DMemoTab1.AddSuItem(ItemList, DCheckBoxOrderItem);
  4476.   DMemoTab1.AddSuItem(ItemList, DCheckBoxOnlyShowCharName);
  4477.   DMemoTab1.AddSuItem(ItemList, DCheckBoxCloseGroup);
  4478.   DMemoTab1.AddSuItem(ItemList, DCheckBoxItemDuraHint);

  4480.   ItemList := DMemoTab1.Add;
  4481.   DMemoTab1.AddSuItem(ItemList, DCheckBoxNotNeedShift);
  4482.   DMemoTab1.AddSuItem(ItemList, DCheckBoxAutoHorse);
  4483.   DMemoTab1.AddSuItem(ItemList, DCheckBoxCompareItem);
  4484.   //DebugOutStr('DCheckBoxShowActorLable:' + IntToStr(DCheckBoxShowActorLable.Height));

  4486. // DMemoTab1.ItemSize := 24;

  4488.   //DebugOutStr('DMemoTab1.Height:' + IntToStr(DMemoTab1.Height)+' DScrollTab1.Max:' + IntToStr(DScrollTab1.Max));




  4493. {----------------------DMemoTab2------------------------------}

  4495.   DLabelItemName.Left := 10;
  4496.   DLabelItemName.Top := 10;

  4498.   DLabelItemHint.Left := 147;
  4499.   DLabelItemHint.Top := 10;

  4501.   DLabelPickUpItem.Left := 220;
  4502.   DLabelPickUpItem.Top := 10;

  4504.   DLabelShowItemName.Left := 288;
  4505.   DLabelShowItemName.Top := 10;

  4507.   DComboboxItemType.Left := 10;
  4508.   DComboboxItemType.Top := 206 - 10 - 12;
  4509.   DMenuItemType.Width := DComboboxItemType.Width;


  4512.   DEditSearchItem.Left := 98;
  4513.   DEditSearchItem.Top := 206 - 10 - 12;
  4514.   DEditSearchItem.Width := 120;
  4515.   DEditSearchItem.Text := '';

  4517.   DLabelOption.Left := 230;
  4518.   DLabelOption.Top := 206 - 10 - 12 + 2;
  4519.   DLabelOption.Font.Style := [fsUnderline];

  4521.   DCheckBoxPickUpItemAll.Left := 290;
  4522.   DCheckBoxPickUpItemAll.Top := 206 - 10 - 12 + 2;
  4523.   DCheckBoxPickUpItemAll.SetImgIndex(g_WMain2Images, 228);



  4527.   //DMemoTab2.ItemSize := 24;


  4530. {----------------------DMemoTab3------------------------------}
  4531.   DCheckBoxHumHP1.SetImgIndex(g_WMain2Images, 228);
  4532.   DCheckBoxHumMP1.SetImgIndex(g_WMain2Images, 228);
  4533.   DCheckBoxHumHP2.SetImgIndex(g_WMain2Images, 228);
  4534.   DCheckBoxHumMP2.SetImgIndex(g_WMain2Images, 228);


  4537.   DCheckBoxHumHP1.Left := 8;
  4538.   DCheckBoxHumHP1.Top := 8;

  4540.   DCheckBoxHumMP1.Left := 8;
  4541.   DCheckBoxHumMP1.Top := 8 + 30 * 1;

  4543.   DCheckBoxHumHP2.Left := 8;
  4544.   DCheckBoxHumHP2.Top := 8 + 30 * 2;

  4546.   DCheckBoxHumMP2.Left := 8;
  4547.   DCheckBoxHumMP2.Top := 8 + 30 * 3;


  4550.   DEditHumHPPercent1.Left := 45;
  4551.   DEditHumHPPercent1.Top := 8 - 1;

  4553.   DEditHumMPPercent1.Left := 45;
  4554.   DEditHumMPPercent1.Top := 8 - 1 + 30 * 1;

  4556.   DEditHumHPPercent2.Left := 45;
  4557.   DEditHumHPPercent2.Top := 8 - 1 + 30 * 2;

  4559.   DEditHumMPPercent2.Left := 45;
  4560.   DEditHumMPPercent2.Top := 8 - 1 + 30 * 3;


  4563.   DEditHumHPPercent1.Width := 80;
  4564.   DEditHumMPPercent1.Width := 80;
  4565.   DEditHumHPPercent2.Width := 80;
  4566.   DEditHumMPPercent2.Width := 80;

  4568.   DEditHumHPPercent1.Text := '0';
  4569.   DEditHumMPPercent1.Text := '0';
  4570.   DEditHumHPPercent2.Text := '0';
  4571.   DEditHumMPPercent2.Text := '0';



  4575.   DComboboxHumHP1.Left := 140;
  4576.   DComboboxHumHP1.Top := 8;

  4578.   DComboboxHumMP1.Left := 140;
  4579.   DComboboxHumMP1.Top := 8 + 30 * 1;

  4581.   DComboboxHumHP2.Left := 140;
  4582.   DComboboxHumHP2.Top := 8 + 30 * 2;

  4584.   DComboboxHumMP2.Left := 140;
  4585.   DComboboxHumMP2.Top := 8 + 30 * 3;

  4587.   DComboboxHumHP1.Width := 100;
  4588.   DComboboxHumMP1.Width := 100;
  4589.   DComboboxHumHP2.Width := 100;
  4590.   DComboboxHumMP2.Width := 100;


  4593.   DEditHumHPTime1.Left := 250;
  4594.   DEditHumHPTime1.Top := 8 - 1;

  4596.   DEditHumMPTime1.Left := 250;
  4597.   DEditHumMPTime1.Top := 8 - 1 + 30 * 1;

  4599.   DEditHumHPTime2.Left := 250;
  4600.   DEditHumHPTime2.Top := 8 - 1 + 30 * 2;

  4602.   DEditHumMPTime2.Left := 250;
  4603.   DEditHumMPTime2.Top := 8 - 1 + 30 * 3;


  4606.   DEditHumHPTime1.Width := 46;
  4607.   DEditHumMPTime1.Width := 46;
  4608.   DEditHumHPTime2.Width := 46;
  4609.   DEditHumMPTime2.Width := 46;

  4611.   DEditHumHPTime1.Text := '0';
  4612.   DEditHumMPTime1.Text := '0';
  4613.   DEditHumHPTime2.Text := '0';
  4614.   DEditHumMPTime2.Text := '0';

  4616.   DLabelHumHP1.Left := 305;
  4617.   DLabelHumHP1.Top := 8 + 1;

  4619.   DLabelHumMP1.Left := 305;
  4620.   DLabelHumMP1.Top := 8 + 1 + 30 * 1;

  4622.   DLabelHumHP2.Left := 305;
  4623.   DLabelHumHP2.Top := 8 + 1 + 30 * 2;

  4625.   DLabelHumMP2.Left := 305;
  4626.   DLabelHumMP2.Top := 8 + 1 + 30 * 3;


  4629.   ItemList := DMemoTab3.Add;
  4630.   DMemoTab3.AddSuItem(ItemList, DCheckBoxHumHP1);
  4631.   DMemoTab3.AddSuItem(ItemList, DEditHumHPPercent1);
  4632.   DMemoTab3.AddSuItem(ItemList, DComboboxHumHP1);
  4633.   DMemoTab3.AddSuItem(ItemList, DEditHumHPTime1);
  4634.   DMemoTab3.AddSuItem(ItemList, DLabelHumHP1);

  4636.   ItemList := DMemoTab3.Add;
  4637.   DMemoTab3.AddSuItem(ItemList, DCheckBoxHumMP1);
  4638.   DMemoTab3.AddSuItem(ItemList, DEditHumMPPercent1);
  4639.   DMemoTab3.AddSuItem(ItemList, DComboboxHumMP1);
  4640.   DMemoTab3.AddSuItem(ItemList, DEditHumMPTime1);
  4641.   DMemoTab3.AddSuItem(ItemList, DLabelHumMP1);


  4644.   ItemList := DMemoTab3.Add;
  4645.   DMemoTab3.AddSuItem(ItemList, DCheckBoxHumHP2);
  4646.   DMemoTab3.AddSuItem(ItemList, DEditHumHPPercent2);
  4647.   DMemoTab3.AddSuItem(ItemList, DComboboxHumHP2);
  4648.   DMemoTab3.AddSuItem(ItemList, DEditHumHPTime2);
  4649.   DMemoTab3.AddSuItem(ItemList, DLabelHumHP2);

  4651.   ItemList := DMemoTab3.Add;
  4652.   DMemoTab3.AddSuItem(ItemList, DCheckBoxHumMP2);
  4653.   DMemoTab3.AddSuItem(ItemList, DEditHumMPPercent2);
  4654.   DMemoTab3.AddSuItem(ItemList, DComboboxHumMP2);
  4655.   DMemoTab3.AddSuItem(ItemList, DEditHumMPTime2);
  4656.   DMemoTab3.AddSuItem(ItemList, DLabelHumMP2);

  4658. {-----------------------------------------------------------}
  4659.   DLabelBookItem.Left := 8;
  4660.   DLabelBookItem.Top := 130;
  4661.   ItemList := DMemoTab3.Add;
  4662.   DMemoTab3.AddSuItem(ItemList, DLabelBookItem);

  4664.   DCheckBoxBook.SetImgIndex(g_WMain2Images, 228);
  4665.   DCheckBoxBook.Left := 8;
  4666.   DCheckBoxBook.Top := 130 + 30;


  4669.   DLabelBookHP.Left := 44;
  4670.   DLabelBookHP.Top := 130 + 30 + 1;


  4673.   DEditBookHP.Left := 58;
  4674.   DEditBookHP.Top := 130 + 30;
  4675.   DEditBookHP.Width := 46;
  4676.   DEditBookHP.Text := '0';

  4678.   DEditBookTime.Left := 118;
  4679.   DEditBookTime.Top := 130 + 30;
  4680.   DEditBookTime.Width := 20;
  4681.   DEditBookTime.Text := '0';


  4684.   DLabelBookTime.Left := 144;
  4685.   DLabelBookTime.Top := 130 + 30 + 2;



  4689.   DLabelBookItemType.Left := 144 + 30;
  4690.   DLabelBookItemType.Top := 130 + 30 + 1;

  4692.   DComboboxBookIndex.Left := 144 + 90;
  4693.   DComboboxBookIndex.Top := 130 + 30;
  4694.   DComboboxBookIndex.Width := 80;
  4695.   DMenuBook.Width := DComboboxBookIndex.Width;


  4698.   ItemList := DMemoTab3.Add;
  4699.   DMemoTab3.AddSuItem(ItemList, DCheckBoxBook);
  4700.   DMemoTab3.AddSuItem(ItemList, DLabelBookHP);
  4701.   DMemoTab3.AddSuItem(ItemList, DEditBookHP);
  4702.   DMemoTab3.AddSuItem(ItemList, DEditBookTime);
  4703.   DMemoTab3.AddSuItem(ItemList, DLabelBookTime);

  4705.   DMemoTab3.AddSuItem(ItemList, DLabelBookItemType);
  4706.   DMemoTab3.AddSuItem(ItemList, DComboboxBookIndex);



  4710. {-----------------------------------------------------------}
  4711.   DLabelClose.Left := 8;
  4712.   DLabelClose.Top := 130 + 30 * 2;
  4713.   ItemList := DMemoTab3.Add;
  4714.   DMemoTab3.AddSuItem(ItemList, DLabelClose);

  4716.   DCheckBoxClose.Left := 8;
  4717.   DCheckBoxClose.Top := 130 + 30 * 3;

  4719.   DCheckBoxClose.SetImgIndex(g_WMain2Images, 228);


  4722.   DLabelCloseHP.Left := 44;
  4723.   DLabelCloseHP.Top := 130 + 2 + 30 * 3;

  4725.   DEditCloseHP.Left := 58;
  4726.   DEditCloseHP.Top := 130 + 30 * 3;
  4727.   DEditCloseHP.Width := 46;
  4728.   DEditCloseHP.Text := '0';

  4730.   DEditCloseTime.Left := 118;
  4731.   DEditCloseTime.Top := 130 + 30 * 3;
  4732.   DEditCloseTime.Width := 20;
  4733.   DEditCloseTime.Text := '0';

  4735.   DLabelCloseTime.Left := 144;
  4736.   DLabelCloseTime.Top := 130 + 30 * 3 + 2;


  4739.   ItemList := DMemoTab3.Add;
  4740.   DMemoTab3.AddSuItem(ItemList, DCheckBoxClose);
  4741.   DMemoTab3.AddSuItem(ItemList, DLabelCloseHP);
  4742.   DMemoTab3.AddSuItem(ItemList, DEditCloseHP);
  4743.   DMemoTab3.AddSuItem(ItemList, DEditCloseTime);
  4744.   DMemoTab3.AddSuItem(ItemList, DLabelCloseTime);
  4745.   //DMemoTab3.ItemSize := 100;

  4747.   //DebugOutStr('DMemoTab3.Height:' + IntToStr(DMemoTab3.Height)+' DScrollTab3.Max:' + IntToStr(DScrollTab3.Max));
  4748. {----------------------DMemoTab4------------------------------}
  4749.   DCheckBoxHeroHP1.SetImgIndex(g_WMain2Images, 228);
  4750.   DCheckBoxHeroMP1.SetImgIndex(g_WMain2Images, 228);
  4751.   DCheckBoxHeroHP2.SetImgIndex(g_WMain2Images, 228);
  4752.   DCheckBoxHeroMP2.SetImgIndex(g_WMain2Images, 228);

  4754.   DCheckBoxHeroHP1.Left := 8;
  4755.   DCheckBoxHeroHP1.Top := 8;

  4757.   DCheckBoxHeroMP1.Left := 8;
  4758.   DCheckBoxHeroMP1.Top := 8 + 30 * 1;

  4760.   DCheckBoxHeroHP2.Left := 8;
  4761.   DCheckBoxHeroHP2.Top := 8 + 30 * 2;

  4763.   DCheckBoxHeroMP2.Left := 8;
  4764.   DCheckBoxHeroMP2.Top := 8 + 30 * 3;


  4767.   DEditHeroHPPercent1.Left := 45;
  4768.   DEditHeroHPPercent1.Top := 8 - 1;

  4770.   DEditHeroMPPercent1.Left := 45;
  4771.   DEditHeroMPPercent1.Top := 8 - 1 + 30 * 1;

  4773.   DEditHeroHPPercent2.Left := 45;
  4774.   DEditHeroHPPercent2.Top := 8 - 1 + 30 * 2;

  4776.   DEditHeroMPPercent2.Left := 45;
  4777.   DEditHeroMPPercent2.Top := 8 - 1 + 30 * 3;


  4780.   DEditHeroHPPercent1.Width := 80;
  4781.   DEditHeroMPPercent1.Width := 80;
  4782.   DEditHeroHPPercent2.Width := 80;
  4783.   DEditHeroMPPercent2.Width := 80;

  4785.   DEditHeroHPPercent1.Text := '0';
  4786.   DEditHeroMPPercent1.Text := '0';
  4787.   DEditHeroHPPercent2.Text := '0';
  4788.   DEditHeroMPPercent2.Text := '0';

  4790.   DComboboxHeroHP1.Left := 140;
  4791.   DComboboxHeroHP1.Top := 8;

  4793.   DComboboxHeroMP1.Left := 140;
  4794.   DComboboxHeroMP1.Top := 8 + 30 * 1;

  4796.   DComboboxHeroHP2.Left := 140;
  4797.   DComboboxHeroHP2.Top := 8 + 30 * 2;

  4799.   DComboboxHeroMP2.Left := 140;
  4800.   DComboboxHeroMP2.Top := 8 + 30 * 3;

  4802.   DComboboxHeroHP1.Width := 100;
  4803.   DComboboxHeroMP1.Width := 100;
  4804.   DComboboxHeroHP2.Width := 100;
  4805.   DComboboxHeroMP2.Width := 100;


  4808.   DEditHeroHPTime1.Left := 250;
  4809.   DEditHeroHPTime1.Top := 8 - 1;

  4811.   DEditHeroMPTime1.Left := 250;
  4812.   DEditHeroMPTime1.Top := 8 - 1 + 30 * 1;

  4814.   DEditHeroHPTime2.Left := 250;
  4815.   DEditHeroHPTime2.Top := 8 - 1 + 30 * 2;

  4817.   DEditHeroMPTime2.Left := 250;
  4818.   DEditHeroMPTime2.Top := 8 - 1 + 30 * 3;


  4821.   DEditHeroHPTime1.Width := 46;
  4822.   DEditHeroMPTime1.Width := 46;
  4823.   DEditHeroHPTime2.Width := 46;
  4824.   DEditHeroMPTime2.Width := 46;

  4826.   DEditHeroHPTime1.Text := '0';
  4827.   DEditHeroMPTime1.Text := '0';
  4828.   DEditHeroHPTime2.Text := '0';
  4829.   DEditHeroMPTime2.Text := '0';

  4831.   DLabelHeroHP1.Left := 305;
  4832.   DLabelHeroHP1.Top := 8 + 1;

  4834.   DLabelHeroMP1.Left := 305;
  4835.   DLabelHeroMP1.Top := 8 + 1 + 30 * 1;

  4837.   DLabelHeroHP2.Left := 305;
  4838.   DLabelHeroHP2.Top := 8 + 1 + 30 * 2;

  4840.   DLabelHeroMP2.Left := 305;
  4841.   DLabelHeroMP2.Top := 8 + 1 + 30 * 3;


  4844.   ItemList := DMemoTab4.Add;
  4845.   DMemoTab4.AddSuItem(ItemList, DCheckBoxHeroHP1);
  4846.   DMemoTab4.AddSuItem(ItemList, DEditHeroHPPercent1);
  4847.   DMemoTab4.AddSuItem(ItemList, DComboboxHeroHP1);
  4848.   DMemoTab4.AddSuItem(ItemList, DEditHeroHPTime1);
  4849.   DMemoTab4.AddSuItem(ItemList, DLabelHeroHP1);

  4851.   ItemList := DMemoTab4.Add;
  4852.   DMemoTab4.AddSuItem(ItemList, DCheckBoxHeroMP1);
  4853.   DMemoTab4.AddSuItem(ItemList, DEditHeroMPPercent1);
  4854.   DMemoTab4.AddSuItem(ItemList, DComboboxHeroMP1);
  4855.   DMemoTab4.AddSuItem(ItemList, DEditHeroMPTime1);
  4856.   DMemoTab4.AddSuItem(ItemList, DLabelHeroMP1);

  4858.   ItemList := DMemoTab4.Add;
  4859.   DMemoTab4.AddSuItem(ItemList, DCheckBoxHeroHP2);
  4860.   DMemoTab4.AddSuItem(ItemList, DEditHeroHPPercent2);
  4861.   DMemoTab4.AddSuItem(ItemList, DComboboxHeroHP2);
  4862.   DMemoTab4.AddSuItem(ItemList, DEditHeroHPTime2);
  4863.   DMemoTab4.AddSuItem(ItemList, DLabelHeroHP2);

  4865.   ItemList := DMemoTab4.Add;
  4866.   DMemoTab4.AddSuItem(ItemList, DCheckBoxHeroMP2);
  4867.   DMemoTab4.AddSuItem(ItemList, DEditHeroMPPercent2);
  4868.   DMemoTab4.AddSuItem(ItemList, DComboboxHeroMP2);
  4869.   DMemoTab4.AddSuItem(ItemList, DEditHeroMPTime2);
  4870.   DMemoTab4.AddSuItem(ItemList, DLabelHeroMP2);


  4873.   DLabelHeroLogOut.Left := 8;
  4874.   DLabelHeroLogOut.Top := 130;
  4875.   ItemList := DMemoTab4.Add;
  4876.   DMemoTab4.AddSuItem(ItemList, DLabelHeroLogOut);


  4879.   DCheckBoxHeroLogOut.Left := 8;
  4880.   DCheckBoxHeroLogOut.Top := 130 + 30;
  4881.   DCheckBoxHeroLogOut.SetImgIndex(g_WMain2Images, 228);


  4884.   DLabelHeroLogOutHP.Left := 44;
  4885.   DLabelHeroLogOutHP.Top := 130 + 30 + 1;

  4887.   DEditHeroLogOutHP.Left := 58;
  4888.   DEditHeroLogOutHP.Top := 130 + 30;
  4889.   DEditHeroLogOutHP.Width := 46;
  4890.   DEditHeroLogOutHP.Text := '0';

  4892.   DEditHeroLogOutTime.Left := 118;
  4893.   DEditHeroLogOutTime.Top := 130 + 30;
  4894.   DEditHeroLogOutTime.Width := 20;
  4895.   DEditHeroLogOutTime.Text := '0';

  4897.   DLabelHeroLogOutTime.Left := 144;
  4898.   DLabelHeroLogOutTime.Top := 130 + 30 + 2;


  4901.   ItemList := DMemoTab4.Add;
  4902.   DMemoTab4.AddSuItem(ItemList, DCheckBoxHeroLogOut);
  4903.   DMemoTab4.AddSuItem(ItemList, DLabelHeroLogOutHP);
  4904.   DMemoTab4.AddSuItem(ItemList, DEditHeroLogOutHP);
  4905.   DMemoTab4.AddSuItem(ItemList, DEditHeroLogOutTime);
  4906.   DMemoTab4.AddSuItem(ItemList, DLabelHeroLogOutTime);




  4911. {------------------------DMemoTab5---------------------------}


  4914.   DLabel1.Left := 10;
  4915.   DLabel1.Top := 10;

  4917.   DLabel3.Left := 130;
  4918.   DLabel3.Top := 10;

  4920.   DLabel10.Left := 252;
  4921.   DLabel10.Top := 10;

  4923.   ItemList := DMemoTab5.Add;
  4924.   DMemoTab5.AddSuItem(ItemList, DLabel1);

  4926.   DMemoTab5.AddSuItem(ItemList, DLabel3);
  4927.   DMemoTab5.AddSuItem(ItemList, DLabel10);

  4929.   DCheckBoxLongHit.SetImgIndex(g_WMain2Images, 228);
  4930.   DCheckBoxLongHit.Left := 22;
  4931.   DCheckBoxLongHit.Top := 36;
  4932.   DCheckBoxAutoHideSelf.SetImgIndex(g_WMain2Images, 228);
  4933.   DCheckBoxAutoHideSelf.Left := 140;
  4934.   DCheckBoxAutoHideSelf.Top := 36;
  4935.   DCheckBoxAutoUseMagic.SetImgIndex(g_WMain2Images, 228);
  4936.   DCheckBoxAutoUseMagic.Left := 252;
  4937.   DCheckBoxAutoUseMagic.Top := 36;

  4939.   DEditAutoUseMagicTime.Left := 326;
  4940.   DEditAutoUseMagicTime.Top := 36;
  4941.   DEditAutoUseMagicTime.Width := 22;
  4942.   DEditAutoUseMagicTime.Text := '0';
  4943.   DLabel11.Left := 352;
  4944.   DLabel11.Top := 38;
  4945.   ItemList := DMemoTab5.Add;
  4946.   DMemoTab5.AddSuItem(ItemList, DCheckBoxLongHit);
  4947.   DMemoTab5.AddSuItem(ItemList, DCheckBoxAutoHideSelf);
  4948.   DMemoTab5.AddSuItem(ItemList, DCheckBoxAutoUseMagic);
  4949.   DMemoTab5.AddSuItem(ItemList, DEditAutoUseMagicTime);
  4950.   DMemoTab5.AddSuItem(ItemList, DLabel11);





  4956.   DCheckBoxWideHit.SetImgIndex(g_WMain2Images, 228);
  4957.   DCheckBoxWideHit.Left := 22;
  4958.   DCheckBoxWideHit.Top := 36 + 24;
  4959.   DCheckBoxSign.SetImgIndex(g_WMain2Images, 228);
  4960.   DCheckBoxSign.Left := 140;
  4961.   DCheckBoxSign.Top := 36 + 24;

  4963.   DComboboxAutoUseMagic.Left := 252;
  4964.   DComboboxAutoUseMagic.Top := 36 + 24;
  4965.   DComboboxAutoUseMagic.Width := 100;
  4966.   DMagicMenu.Width := 100;

  4968.   ItemList := DMemoTab5.Add;
  4969.   DMemoTab5.AddSuItem(ItemList, DCheckBoxWideHit);
  4970.   DMemoTab5.AddSuItem(ItemList, DCheckBoxSign);
  4971.   DMemoTab5.AddSuItem(ItemList, DComboboxAutoUseMagic);

  4973. //======================================================
  4974.   DCheckBoxFireHit.SetImgIndex(g_WMain2Images, 228);
  4975.   DCheckBoxFireHit.Left := 22;
  4976.   DCheckBoxFireHit.Top := 36 + 24 * 2;

  4978.   DCheckBoxPoison.SetImgIndex(g_WMain2Images, 228);
  4979.   DCheckBoxPoison.Left := 140;
  4980.   DCheckBoxPoison.Top := 36 + 24 * 2;


  4983.   ItemList := DMemoTab5.Add;
  4984.   DMemoTab5.AddSuItem(ItemList, DCheckBoxFireHit);
  4985.   DMemoTab5.AddSuItem(ItemList, DCheckBoxPoison);

  4987. //======================================================
  4988.   DCheckBoxSWideHit.SetImgIndex(g_WMain2Images, 228);
  4989.   DCheckBoxSWideHit.Left := 22;
  4990.   DCheckBoxSWideHit.Top := 36 + 24 * 3;

  4992.   DComboboxPoison.Left := 140;
  4993.   DComboboxPoison.Top := 36 + 24 * 3;
  4994.   DComboboxPoison.Width := 80;

  4996.   DEditSerieMagic.Left := 252;
  4997.   DEditSerieMagic.Top := 36 + 24 * 3;
  4998.   DEditSerieMagic.SetImgIndex(g_WMainImages, 663);



  5002.   DMenuPoison.Width := 80;

  5004.   ItemList := DMemoTab5.Add;
  5005.   DMemoTab5.AddSuItem(ItemList, DCheckBoxSWideHit);
  5006.   DMemoTab5.AddSuItem(ItemList, DComboboxPoison);
  5007.   DMemoTab5.AddSuItem(ItemList, DEditSerieMagic);
  5008. //======================================================
  5009.   DCheckBoxCrsHit.SetImgIndex(g_WMain2Images, 228);
  5010.   DCheckBoxCrsHit.Left := 22;
  5011.   DCheckBoxCrsHit.Top := 36 + 24 * 4;


  5014.   DCheckBoxWjzq.SetImgIndex(g_WMain2Images, 228);
  5015.   DCheckBoxWjzq.Left := 140;
  5016.   DCheckBoxWjzq.Top := 36 + 24 * 4;




  5021.   ItemList := DMemoTab5.Add;
  5022.   DMemoTab5.AddSuItem(ItemList, DCheckBoxCrsHit);
  5023.   DMemoTab5.AddSuItem(ItemList, DCheckBoxWjzq);
  5024. //==============================================================================

  5026.   DCheckBoxKtHit.SetImgIndex(g_WMain2Images, 228);
  5027.   DCheckBoxKtHit.Left := 22;
  5028.   DCheckBoxKtHit.Top := 36 + 24 * 5;

  5030.   DLabel2.Left := 130;
  5031.   DLabel2.Top := 36 + 24 * 5;

  5033.   ItemList := DMemoTab5.Add;
  5034.   DMemoTab5.AddSuItem(ItemList, DCheckBoxKtHit);
  5035.   DMemoTab5.AddSuItem(ItemList, DLabel2);
  5036. //==============================================================================
  5037.   DCheckBoxPok.SetImgIndex(g_WMain2Images, 228);
  5038.   DCheckBoxPok.Left := 22;
  5039.   DCheckBoxPok.Top := 36 + 24 * 6;


  5042.   DCheckBoxShield.SetImgIndex(g_WMain2Images, 228);
  5043.   DCheckBoxShield.Left := 140;
  5044.   DCheckBoxShield.Top := 36 + 24 * 6;
  5045.   ItemList := DMemoTab5.Add;
  5046.   DMemoTab5.AddSuItem(ItemList, DCheckBoxPok);
  5047.   DMemoTab5.AddSuItem(ItemList, DCheckBoxShield);



  5051.   DCheckBoxSmartPosLongHit.SetImgIndex(g_WMain2Images, 228);
  5052.   DCheckBoxSmartPosLongHit.Left := 22;
  5053.   DCheckBoxSmartPosLongHit.Top := 36 + 24 * 7;

  5055.   DCheckBoxStruckShield.SetImgIndex(g_WMain2Images, 228);
  5056.   DCheckBoxStruckShield.Left := 140;
  5057.   DCheckBoxStruckShield.Top := 36 + 24 * 7;

  5059.   ItemList := DMemoTab5.Add;
  5060.   DMemoTab5.AddSuItem(ItemList, DCheckBoxSmartPosLongHit);
  5061.   DMemoTab5.AddSuItem(ItemList, DCheckBoxStruckShield);


  5064.   DCheckBoxSmartWalkLongHit.SetImgIndex(g_WMain2Images, 228);
  5065.   DCheckBoxSmartWalkLongHit.Left := 22;
  5066.   DCheckBoxSmartWalkLongHit.Top := 36 + 24 * 8;
  5067.   ItemList := DMemoTab5.Add;
  5068.   DMemoTab5.AddSuItem(ItemList, DCheckBoxSmartWalkLongHit);



  5072.   DLabel12.Left := 10;
  5073.   DLabel12.Top := 36 + 24 * 9;
  5074.   ItemList := DMemoTab5.Add;
  5075.   DMemoTab5.AddSuItem(ItemList, DLabel12);
  5076.   DMemoTab5.AddSuItem(ItemList, DSerieMagic1);
  5077.   DMemoTab5.AddSuItem(ItemList, DSerieMagic2);
  5078.   DMemoTab5.AddSuItem(ItemList, DSerieMagic3);
  5079.   DMemoTab5.AddSuItem(ItemList, DSerieMagic4);
  5080.   DMemoTab5.AddSuItem(ItemList, DSerieMagic5);
  5081.   DMemoTab5.AddSuItem(ItemList, DSerieMagic6);
  5082.   DMemoTab5.AddSuItem(ItemList, DSerieMagic7);
  5083.   DMemoTab5.AddSuItem(ItemList, DSerieMagic8);

  5085.   DSerieMagic1.Left := 22;
  5086.   DSerieMagic1.Top := 36 + 24 * 10;
  5087.   DSerieMagic1.Width := 36;
  5088.   DSerieMagic1.Height := 34;

  5090.   DSerieMagic2.Left := 22 + 42;
  5091.   DSerieMagic2.Top := 36 + 24 * 10;
  5092.   DSerieMagic2.Width := 36;
  5093.   DSerieMagic2.Height := 34;

  5095.   DSerieMagic3.Left := 22 + 42 * 2;
  5096.   DSerieMagic3.Top := 36 + 24 * 10;
  5097.   DSerieMagic3.Width := 36;
  5098.   DSerieMagic3.Height := 34;

  5100.   DSerieMagic4.Left := 22 + 42 * 3;
  5101.   DSerieMagic4.Top := 36 + 24 * 10;
  5102.   DSerieMagic4.Width := 36;
  5103.   DSerieMagic4.Height := 34;

  5105.   DSerieMagic5.Left := 22 + 42 * 4;
  5106.   DSerieMagic5.Top := 36 + 24 * 10;
  5107.   DSerieMagic5.Width := 36;
  5108.   DSerieMagic5.Height := 34;

  5110.   DSerieMagic6.Left := 22 + 42 * 5;
  5111.   DSerieMagic6.Top := 36 + 24 * 10;
  5112.   DSerieMagic6.Width := 36;
  5113.   DSerieMagic6.Height := 34;

  5115.   DSerieMagic7.Left := 22 + 42 * 6;
  5116.   DSerieMagic7.Top := 36 + 24 * 10;
  5117.   DSerieMagic7.Width := 36;
  5118.   DSerieMagic7.Height := 34;

  5120.   DSerieMagic8.Left := 22 + 42 * 7;
  5121.   DSerieMagic8.Top := 36 + 24 * 10;
  5122.   DSerieMagic8.Width := 36;
  5123.   DSerieMagic8.Height := 34;
  5124. {-----------------------DMemoTab6---------------------------}
  5125.   DCheckBoxUseKey.SetImgIndex(g_WMain2Images, 228);
  5126.   DCheckBoxUseKey.Left := 10;
  5127.   DCheckBoxUseKey.Top := 6;

  5129.   ItemList := DMemoTab6.Add;
  5130.   DMemoTab6.AddSuItem(ItemList, DCheckBoxUseKey);


  5133.   DLabelKeyMemo.Left := 12;
  5134.   DLabelKeyMemo.Top := 26;
  5135.   DLabelKeyOriginal.Left := 136;
  5136.   DLabelKeyOriginal.Top := 26;
  5137.   DLabelKeyChange.Left := 266;
  5138.   DLabelKeyChange.Top := 26;

  5140.   ItemList := DMemoTab6.Add;
  5141.   DMemoTab6.AddSuItem(ItemList, DLabelKeyMemo);
  5142.   DMemoTab6.AddSuItem(ItemList, DLabelKeyOriginal);
  5143.   DMemoTab6.AddSuItem(ItemList, DLabelKeyChange);


  5146.   DLabelKey0.Left := 12;
  5147.   DLabelKey0.Top := 48;
  5148.   DLabelKey1.Left := 12;
  5149.   DLabelKey1.Top := 48 + 22;
  5150.   DLabelKey2.Left := 12;
  5151.   DLabelKey2.Top := 48 + 22 * 2;
  5152.   DLabelKey3.Left := 12;
  5153.   DLabelKey3.Top := 48 + 22 * 3;
  5154.   DLabelKey4.Left := 12;
  5155.   DLabelKey4.Top := 48 + 22 * 4;
  5156.   DLabelKey5.Left := 12;
  5157.   DLabelKey5.Top := 48 + 22 * 5;
  5158.   DLabelKey6.Left := 12;
  5159.   DLabelKey6.Top := 48 + 22 * 6;
  5160.   DLabelKey7.Left := 12;
  5161.   DLabelKey7.Top := 48 + 22 * 7;



  5165.   DLabelSerieSkill1.Left := 102;
  5166.   DLabelSerieSkill1.Top := 48;
  5167.   DLabelSerieSkill1.Width := 128;

  5169.   DLabelHeroCallHero1.Left := 102;
  5170.   DLabelHeroCallHero1.Top := 48 + 22;
  5171.   DLabelHeroCallHero1.Width := 128;


  5174.   DLabelHeroSetTarget1.Left := 102;
  5175.   DLabelHeroSetTarget1.Top := 48 + 22 * 2;
  5176.   DLabelHeroSetTarget1.Width := 128;

  5178.   DLabelHeroUnionHit1.Left := 102;
  5179.   DLabelHeroUnionHit1.Top := 48 + 22 * 3;
  5180.   DLabelHeroUnionHit1.Width := 128;

  5182.   DLabelHeroSetAttackState1.Left := 102;
  5183.   DLabelHeroSetAttackState1.Top := 48 + 22 * 4;
  5184.   DLabelHeroSetAttackState1.Width := 128;

  5186.   DLabelHeroSetGuard1.Left := 102;
  5187.   DLabelHeroSetGuard1.Top := 48 + 22 * 5;
  5188.   DLabelHeroSetGuard1.Width := 128;


  5191.   DLabelSwitchAttackMode1.Left := 102;
  5192.   DLabelSwitchAttackMode1.Top := 48 + 22 * 6;
  5193.   DLabelSwitchAttackMode1.Width := 128;

  5195.   DLabelSwitchMiniMap1.Left := 102;
  5196.   DLabelSwitchMiniMap1.Top := 48 + 22 * 7;
  5197.   DLabelSwitchMiniMap1.Width := 128;



  5201.   DLabelSerieSkill.Left := 240 - 2;
  5202.   DLabelSerieSkill.Top := 48;
  5203.   DLabelSerieSkill.Width := 128;

  5205.   DLabelHeroCallHero.Left := 240 - 2;
  5206.   DLabelHeroCallHero.Top := 48 + 22;
  5207.   DLabelHeroCallHero.Width := 128;

  5209.   DLabelHeroSetTarget.Left := 240 - 2;
  5210.   DLabelHeroSetTarget.Top := 48 + 22 * 2;
  5211.   DLabelHeroSetTarget.Width := 128;

  5213.   DLabelHeroUnionHit.Left := 240 - 2;
  5214.   DLabelHeroUnionHit.Top := 48 + 22 * 3;
  5215.   DLabelHeroUnionHit.Width := 128;

  5217.   DLabelHeroSetAttackState.Left := 240 - 2;
  5218.   DLabelHeroSetAttackState.Top := 48 + 22 * 4;
  5219.   DLabelHeroSetAttackState.Width := 128;

  5221.   DLabelHeroSetGuard.Left := 240 - 2;
  5222.   DLabelHeroSetGuard.Top := 48 + 22 * 5;
  5223.   DLabelHeroSetGuard.Width := 128;


  5226.   DLabelSwitchAttackMode.Left := 240 - 2;
  5227.   DLabelSwitchAttackMode.Top := 48 + 22 * 6;
  5228.   DLabelSwitchAttackMode.Width := 128;

  5230.   DLabelSwitchMiniMap.Left := 240 - 2;
  5231.   DLabelSwitchMiniMap.Top := 48 + 22 * 7;
  5232.   DLabelSwitchMiniMap.Width := 128;


  5235.   ItemList := DMemoTab6.Add;
  5236.   DMemoTab6.AddSuItem(ItemList, DLabelKey0);
  5237.   DMemoTab6.AddSuItem(ItemList, DLabelSerieSkill1);
  5238.   DMemoTab6.AddSuItem(ItemList, DLabelSerieSkill);

  5240.   ItemList := DMemoTab6.Add;
  5241.   DMemoTab6.AddSuItem(ItemList, DLabelKey1);
  5242.   DMemoTab6.AddSuItem(ItemList, DLabelHeroCallHero1);
  5243.   DMemoTab6.AddSuItem(ItemList, DLabelHeroCallHero);

  5245.   ItemList := DMemoTab6.Add;
  5246.   DMemoTab6.AddSuItem(ItemList, DLabelKey2);
  5247.   DMemoTab6.AddSuItem(ItemList, DLabelHeroSetTarget1);
  5248.   DMemoTab6.AddSuItem(ItemList, DLabelHeroSetTarget);

  5250.   ItemList := DMemoTab6.Add;
  5251.   DMemoTab6.AddSuItem(ItemList, DLabelKey3);
  5252.   DMemoTab6.AddSuItem(ItemList, DLabelHeroUnionHit1);
  5253.   DMemoTab6.AddSuItem(ItemList, DLabelHeroUnionHit);

  5255.   ItemList := DMemoTab6.Add;
  5256.   DMemoTab6.AddSuItem(ItemList, DLabelKey4);
  5257.   DMemoTab6.AddSuItem(ItemList, DLabelHeroSetAttackState1);
  5258.   DMemoTab6.AddSuItem(ItemList, DLabelHeroSetAttackState);

  5260.   ItemList := DMemoTab6.Add;
  5261.   DMemoTab6.AddSuItem(ItemList, DLabelKey5);
  5262.   DMemoTab6.AddSuItem(ItemList, DLabelHeroSetGuard1);
  5263.   DMemoTab6.AddSuItem(ItemList, DLabelHeroSetGuard);


  5266.   ItemList := DMemoTab6.Add;
  5267.   DMemoTab6.AddSuItem(ItemList, DLabelKey6);
  5268.   DMemoTab6.AddSuItem(ItemList, DLabelSwitchAttackMode1);
  5269.   DMemoTab6.AddSuItem(ItemList, DLabelSwitchAttackMode);

  5271.   ItemList := DMemoTab6.Add;
  5272.   DMemoTab6.AddSuItem(ItemList, DLabelKey7);
  5273.   DMemoTab6.AddSuItem(ItemList, DLabelSwitchMiniMap1);
  5274.   DMemoTab6.AddSuItem(ItemList, DLabelSwitchMiniMap);



  5278. {-----------------------DMemoTab7---------------------------}
  5279.   DCheckBoxGuaji.SetImgIndex(g_WMain2Images, 228);
  5280.   DCheckBoxGuaji.Left := 10;
  5281.   DCheckBoxGuaji.Top := 6;

  5283.   DLabelGuaJiStart.Left := 120;
  5284.   DLabelGuaJiStart.Top := 7;
  5285.   //DLabelGuaJiStart.Canvas.Font.Style := [fsBold];

  5287.   ItemList := DMemoTab7.Add;
  5288.   DMemoTab7.AddSuItem(ItemList, DCheckBoxGuaji);
  5289.   DMemoTab7.AddSuItem(ItemList, DLabelGuaJiStart);


  5292.   ItemList := DMemoTab7.Add;
  5293.   DMemoTab7.AddSuItem(ItemList, DLabelGuajiQunti);
  5294.   DMemoTab7.AddSuItem(ItemList, DComboboxGuajiQunti);

  5296.   ItemList := DMemoTab7.Add;
  5297.   DMemoTab7.AddSuItem(ItemList, DLabelGuajiGeti);
  5298.   DMemoTab7.AddSuItem(ItemList, DComboboxGuajiGeti);


  5301.   DLabelGuajiQunti.Left := 12;
  5302.   DLabelGuajiQunti.Top := 38;

  5304.   DLabelGuajiGeti.Left := 12;
  5305.   DLabelGuajiGeti.Top := 38 + 28;

  5307.   DComboboxGuajiQunti.Left := 80;
  5308.   DComboboxGuajiQunti.Top := 36;
  5309.   DComboboxGuajiQunti.Width := 100;

  5311.   DComboboxGuajiGeti.Left := 80;
  5312.   DComboboxGuajiGeti.Top := 36 + 26;
  5313.   DComboboxGuajiGeti.Width := 100;

  5315. {-----------------------DMemoTab8---------------------------}


  5318.   if FileExists(EXPLAIN2FILE) then begin
  5319.     DMemoTab8.LoadFromFile(EXPLAIN2FILE);
  5320.     nIndex := 0;
  5321.     for I := 0 to DMemoTab8.Count - 1 do begin
  5322.       ItemList := TLines(DMemoTab8.Items[I]);
  5323.       sText := ItemList.Strings[0];
  5324.       if (Length(sText) <> Length(Trim(sText))) then begin
  5325.         for II := 0 to ItemList.Count - 1 do begin
  5326.           DLabel := TDLabel(ItemList.Objects[II]);
  5327.           DLabel.Canvas.Font.Style := [];
  5328.           DLabel.Canvas.Font.Color := clSilver;
  5329.           DLabel.Font.Assign(DLabel.Canvas.Font);
  5330.           DLabel.UpColor := clSilver;
  5331.           DLabel.HotColor := clSilver;
  5332.           DLabel.DownColor := clSilver;
  5333.           DLabel.Left := DLabel.Left + 6;
  5334.           //DLabel.Top := DLabel.Top + nIndex;
  5335.         end;
  5336.         //Showmessage('(sText = ''):'+sText);
  5337.       end else begin
  5338.         for II := 0 to ItemList.Count - 1 do begin
  5339.           DLabel := TDLabel(ItemList.Objects[II]);
  5340.           DLabel.Canvas.Font.Style := [fsBold];
  5341.           DLabel.Canvas.Font.Color := clWhite;
  5342.           DLabel.Font.Assign(DLabel.Canvas.Font);
  5343.           DLabel.UpColor := clWhite;
  5344.           DLabel.HotColor := clWhite;
  5345.           DLabel.DownColor := clWhite;
  5346.           //DLabel.Top := DLabel.Top + nIndex;
  5347.         end;
  5348.       end;
  5349.       //TLines(ItemList).GetHeight;
  5350.       //nIndex := nIndex + 4;
  5351.     end;
  5352.     //nIndex := DMemoTab8.MaxHeight;
  5353.   end;

  5355.   DMemoTab1.MaxHeight := DMemoTab1.MaxHeight + 24 * 5;
  5356.   //DMemoTab2.MaxHeight:=DMemoTab2.MaxHeight+24*4;
  5357.   DMemoTab3.MaxHeight := DMemoTab3.MaxHeight + 24 * 4;
  5358.   DMemoTab4.MaxHeight := DMemoTab4.MaxHeight + 24 * 4;
  5359.   DMemoTab5.MaxHeight := DMemoTab5.MaxHeight + 24 * 4;
  5360.   DMemoTab6.MaxHeight := DMemoTab6.MaxHeight + 24 * 4;
  5361.   DMemoTab7.MaxHeight := DMemoTab7.MaxHeight + 24 * 4;
  5362.   DMemoTab8.MaxHeight := DMemoTab8.MaxHeight + 24 * 4;
  5363.   DConfigDlg.ActivePage := 0;
  5364. {-----------------------------------------------------------}
  5365.   Initialized := True;
  5366. end;

  5368. function FastCharPos(const aSource: string; const C: Char; StartPos: Integer): Integer;
  5369. var
  5370.   L: Integer;
  5371. begin
  5372.   //If this assert failed, it is because you passed 0 for StartPos, lowest value is 1 !!
  5373.   Assert(StartPos > 0);

  5375.   Result := 0;
  5376.   L := Length(aSource);
  5377.   if L = 0 then exit;
  5378.   if StartPos > L then exit;
  5379.   Dec(StartPos);
  5380.   asm
  5381.       PUSH EDI                 //Preserve this register

  5383.       mov  EDI, aSource        //Point EDI at aSource
  5384.       add  EDI, StartPos
  5385.       mov  ECX, L              //Make a note of how many chars to search through
  5386.       sub  ECX, StartPos
  5387.       mov  AL,  C              //and which char we want
  5388.     @Loop:
  5389.       cmp  Al, [EDI]           //compare it against the SourceString
  5390.       jz   @Found
  5391.       inc  EDI
  5392.       dec  ECX
  5393.       jnz  @Loop
  5394.       jmp  @NotFound
  5395.     @Found:
  5396.       sub  EDI, aSource        //EDI has been incremented, so EDI-OrigAdress = Char pos !
  5397.       inc  EDI
  5398.       mov  Result,   EDI
  5399.     @NotFound:

  5401.       POP  EDI
  5402.   end;
  5403. end;

  5405. function TFrmDlg.AddMemoChat(Str: string; FColor, BColor: Integer): string;//添加聊天文字
  5406. var
  5407.   I, len, aline, n, nWidth: Integer;
  5408.   dline, temp: string;
  5409.   sData, sItemData, sUrl: string;

  5411.   //sTemp: string;
  5412.   sIdx: string;
  5413.   sName: string;
  5414.   sItemName: string;
  5415.   sLooks: string;
  5416.   sItemMakeIdex: string;
  5417.   nItemMakeIdex: Integer;
  5418.   nIdx: Integer;
  5419.   nLooks: Integer;
  5420.   DLabel: TDLabel;
  5421.   ItemLabel: TItemLabel;
  5422.   d: TTexture;
  5423.   nTop: Integer;
  5424.   ItemList: TStringList;
  5425.   nNextHeight: Integer;
  5426. //const
  5427.   //BOXWIDTH = (SCREENWIDTH div 2 - 214) * 2 {374}; //41 聊天框文字宽度
  5428. label AddText;
  5429. begin
  5430.   Result := '';

  5432.   AddText:
  5433.   nNextHeight := 0;
  5434.   nWidth := 0;
  5435.   len := Length(Str);
  5436.   temp := '';
  5437.   I := 1;
  5438.   nTop := DMemoChat.MaxHeight - DScrollChat.Position;
  5439.   ItemList := DMemoChat.Add;

  5441.   while True do begin
  5442.     if I > len then Break;
  5443.     if (Str[I] = '<') then begin
  5444.       //n := Pos('>', Str);
  5445.       n := FastCharPos(Str, '>', I);
  5446.       if (n > 0) then begin

  5448.         sItemData := Copy(Str, I + 1, n - I - 1);
  5449.         //DebugOutStr('Str:' + Str);
  5450.         //DebugOutStr('sItemData:' + sItemData + ' Length(Str) - n:' + IntToStr(Length(Str) - n));
  5451.         sItemData := GetValidStr3(sItemData, sIdx, ['|']);
  5452.         nIdx := StrToIntDef(sIdx, -1);
  5453.         nItemMakeIdex := 0;

  5455.         case nIdx of
  5456.           0: begin
  5457.               sItemData := GetValidStr3(sItemData, sName, ['|']);
  5458.               sItemData := GetValidStr3(sItemData, sItemName, ['|']);
  5459.               sItemData := GetValidStr3(sItemData, sItemMakeIdex, ['|']);
  5460.               sItemData := GetValidStr3(sItemData, sLooks, ['|']);
  5461.               nItemMakeIdex := StrToIntDef(sItemMakeIdex, 0);
  5462.               nLooks := StrToIntDef(sLooks, -1);
  5463.             end;
  5464.           1: begin
  5465.               sItemData := GetValidStr3(sItemData, sName, ['|']);
  5466.               sItemData := GetValidStr3(sItemData, sItemName, ['|']);
  5467.             end;
  5468.           2: begin
  5469.               sItemData := GetValidStr3(sItemData, sName, ['|']);
  5470.               sItemData := GetValidStr3(sItemData, sItemName, ['|']);
  5471.             end;
  5472.         end;

  5474.         if (nIdx in [0..2]) and (sName <> '') and (sItemName <> '') and (((nIdx = 0) and (nItemMakeIdex <> 0) and (nLooks <> -1)) or ((nIdx > 0) and (nItemMakeIdex = 0))) then begin

  5476.           if temp <> '' then begin

  5478.             DLabel := TDLabel.Create(DMemoChat);
  5479.             DLabel.Font.Assign(MainForm.Canvas.Font);
  5480.             DLabel.Font.Style := [];
  5481.             DLabel.Font.Color := FColor;

  5483.             DLabel.BoldFont := False;
  5484.             DLabel.DParent := DMemoChat;
  5485.             DLabel.UpColor := FColor;
  5486.             DLabel.HotColor := FColor;
  5487.             DLabel.DownColor := FColor;
  5488.             DLabel.DrawBackground := True;
  5489.             DLabel.BackgroundColor := BColor;
  5490.             //DLabel.OnClick := DItemLabelClick;
  5491.             DLabel.OnMouseMove := DItemLabelMouseMove;

  5493.             if BColor = clblack then
  5494.               DLabel.BackgroundColor := $00050505;
  5495.             DLabel.Caption := temp;
  5496.             DLabel.Left := TLines(ItemList).Width;
  5497.             DLabel.Top := nTop;
  5498.             if nNextHeight < DLabel.Height then
  5499.               nNextHeight := DLabel.Height;
  5500.             DMemoChat.AddSuItem(ItemList, DLabel);
  5501.             Result := Result + temp;

  5503.            //temp := '';
  5504.           end;

  5506.           if nIdx = 0 then begin
  5507.             d := g_WBagItemImages.Images[nLooks];
  5508.             if d <> nil then begin
  5509.               aline := nWidth + d.Width + ImageCanvas.TextWidth(temp);
  5510.             end else begin
  5511.               aline := nWidth + ImageCanvas.TextWidth(sItemName) + ImageCanvas.TextWidth(temp);
  5512.             end;
  5513.             if aline > DMemoChat.Width - 6 then begin
  5514.               Str := Copy(Str, I, Length(Str));
  5515.               //Str := Copy(Str, I, len - I + 1);
  5516.               temp := '';
  5517.               Break;
  5518.             end else begin
  5519.               Str := Copy(Str, n + 1, Length(Str));
  5520.               len := Length(Str);
  5521.               //DebugOutStr('Str:' + Str);
  5522.               //Str := Copy(Str, n + 1, len - n + 1);
  5523.               I := 0;

  5525.               if d <> nil then begin
  5526.                 ItemLabel := TItemLabel.Create(DMemoChat);
  5527.                 ItemLabel.DParent := DMemoChat;
  5528.                 ItemLabel.SetImgIndex(g_WBagItemImages, nLooks);
  5529.                 ItemLabel.Idx := nIdx;
  5530.                 ItemLabel.OnClick := DItemLabelClick;
  5531.                 ItemLabel.OnMouseMove := DItemLabelMouseMove;
  5532.                 ItemLabel.Caption := sItemName;
  5533.                 ItemLabel.TData := sName + '|' + sItemName + '|' + sItemMakeIdex;

  5535.                 ItemLabel.Left := TLines(ItemList).Width;
  5536.                 ItemLabel.Top := nTop;
  5537.                 if nNextHeight < ItemLabel.Height then
  5538.                   nNextHeight := ItemLabel.Height;
  5539.                 DMemoChat.AddSuItem(ItemList, ItemLabel);

  5541.                 Inc(nWidth, ItemLabel.Width);
  5542.               end else begin
  5543.                 DLabel := TDLabel.Create(DMemoChat);
  5544.                 DLabel.Idx := nIdx;
  5545.                 DLabel.Font.Assign(MainForm.Canvas.Font);
  5546.                 DLabel.Font.Style := [fsUnderline];
  5547.                 DLabel.Font.Color := FColor;

  5549.                 DLabel.BoldFont := False;
  5550.                 DLabel.DParent := DMemoChat;
  5551.                 DLabel.UpColor := FColor;
  5552.                 DLabel.HotColor := FColor;
  5553.                 DLabel.DownColor := FColor;
  5554.                 DLabel.DrawBackground := True;
  5555.                 DLabel.BackgroundColor := BColor;
  5556.                 DLabel.OnClick := DItemLabelClick;
  5557.                 DLabel.OnMouseMove := DItemLabelMouseMove;
  5558.                 if BColor = clblack then
  5559.                   DLabel.BackgroundColor := $00050505;
  5560.                 DLabel.Style := bsBase;
  5561.                 DLabel.Caption := sItemName;
  5562.                 DLabel.TData := sName + '|' + sItemName + '|' + sItemMakeIdex;
  5563.                 DLabel.Left := TLines(ItemList).Width;
  5564.                 DLabel.Top := nTop;
  5565.                 if nNextHeight < DLabel.Height then
  5566.                   nNextHeight := DLabel.Height;
  5567.                 DMemoChat.AddSuItem(ItemList, DLabel);
  5568.                 Inc(nWidth, DLabel.Width);
  5569.               end;
  5570.               temp := '';
  5571.               Result := Result + sItemName;
  5572.             end;
  5573.           end else begin //if nIdx = 0 then begin
  5574.             aline := nWidth + ImageCanvas.TextWidth(sName) + ImageCanvas.TextWidth(temp);
  5575.             if aline > DMemoChat.Width - 6 then begin
  5576.               Str := Copy(Str, I, Length(Str));
  5577.               temp := '';
  5578.               Break;
  5579.             end else begin
  5580.               Str := Copy(Str, n + 1, Length(Str));
  5581.               len := Length(Str);
  5582.               I := 0;

  5584.               DLabel := TDLabel.Create(DMemoChat);
  5585.               DLabel.Idx := nIdx;
  5586.               DLabel.Font.Assign(MainForm.Canvas.Font);
  5587.               DLabel.Font.Style := [fsUnderline];
  5588.               DLabel.Font.Color := FColor;

  5590.               DLabel.BoldFont := False;
  5591.               DLabel.DParent := DMemoChat;
  5592.               DLabel.UpColor := FColor;
  5593.               DLabel.HotColor := FColor;
  5594.               DLabel.DownColor := FColor;
  5595.               DLabel.DrawBackground := True;
  5596.               DLabel.BackgroundColor := BColor;
  5597.               DLabel.OnClick := DItemLabelClick;
  5598.               DLabel.OnMouseMove := DItemLabelMouseMove;
  5599.               if BColor = clblack then
  5600.                 DLabel.BackgroundColor := $00050505;
  5601.               DLabel.Style := bsBase;
  5602.               DLabel.Caption := sName;
  5603.               DLabel.TData := sItemName;
  5604.               DLabel.Left := TLines(ItemList).Width;
  5605.               DLabel.Top := nTop;
  5606.               if nNextHeight < DLabel.Height then
  5607.                 nNextHeight := DLabel.Height;

  5609.               DMemoChat.AddSuItem(ItemList, DLabel);
  5610.               Result := Result + sName;
  5611.               Inc(nWidth, DLabel.Width);
  5612.               temp := '';
  5613.             end;
  5614.           end;
  5615.         end else begin //if (nIdx in [0..2]) and (sName <> '')
  5616.           temp := temp + Str[I];
  5617.           //nWidth:=ImageCanvas.TextWidth(temp);
  5618.           aline := nWidth + ImageCanvas.TextWidth(temp);
  5619.           if aline > DMemoChat.Width - 6 then begin

  5621.             DLabel := TDLabel.Create(DMemoChat);
  5622.             DLabel.Font.Assign(MainForm.Canvas.Font);
  5623.             DLabel.Font.Color := FColor;
  5624.             DLabel.BoldFont := False;
  5625.             DLabel.DParent := DMemoChat;
  5626.             DLabel.UpColor := FColor;
  5627.             DLabel.HotColor := FColor;
  5628.             DLabel.DownColor := FColor;
  5629.             DLabel.DrawBackground := True;
  5630.             DLabel.BackgroundColor := BColor;
  5631.             DLabel.OnMouseMove := DItemLabelMouseMove;
  5632.             if BColor = clblack then
  5633.               DLabel.BackgroundColor := $00050505;
  5634.             DLabel.Caption := temp;

  5636.             DLabel.Left := TLines(ItemList).Width;
  5637.             DLabel.Top := nTop;
  5638.             if nNextHeight < DLabel.Height then
  5639.               nNextHeight := DLabel.Height;
  5640.             DMemoChat.AddSuItem(ItemList, DLabel);
  5641.             Result := Result + temp;

  5643.             Str := Copy(Str, I + 1, len - I);
  5644.             temp := '';
  5645.             Break;
  5646.           end;
  5647.         end;
  5648.       end else begin //if n > 0 then begin
  5649.         temp := temp + Str[I];
  5650.         aline := nWidth + ImageCanvas.TextWidth(temp);
  5651.         if aline > DMemoChat.Width - 6 then begin

  5653.           DLabel := TDLabel.Create(DMemoChat);
  5654.           DLabel.Font.Assign(MainForm.Canvas.Font);
  5655.           DLabel.Font.Color := FColor;
  5656.           DLabel.BoldFont := False;
  5657.           DLabel.DParent := DMemoChat;
  5658.           DLabel.UpColor := FColor;
  5659.           DLabel.HotColor := FColor;
  5660.           DLabel.DownColor := FColor;
  5661.           DLabel.DrawBackground := True;
  5662.           DLabel.BackgroundColor := BColor;
  5663.           DLabel.OnMouseMove := DItemLabelMouseMove;
  5664.           if BColor = clblack then
  5665.             DLabel.BackgroundColor := $00050505;
  5666.           DLabel.Caption := temp;

  5668.           DLabel.Left := TLines(ItemList).Width;
  5669.           DLabel.Top := nTop;
  5670.           if nNextHeight < DLabel.Height then
  5671.             nNextHeight := DLabel.Height;
  5672.           DMemoChat.AddSuItem(ItemList, DLabel);
  5673.           Result := Result + temp;

  5675.           Str := Copy(Str, I + 1, len - I);
  5676.           temp := '';
  5677.           Break;
  5678.         end;
  5679.       end;
  5680.     end else begin //if (Str[I] = '<') then begin
  5681.       if Byte(Str[I]) >= 128 then begin
  5682.         temp := temp + Str[I];
  5683.         Inc(I);
  5684.         if I <= len then begin
  5685.           temp := temp + Str[I];
  5686.         end else Break;
  5687.       end else begin
  5688.         temp := temp + Str[I];
  5689.       end;
  5690.       aline := nWidth + ImageCanvas.TextWidth(temp);
  5691.       if aline > DMemoChat.Width - 6 then begin

  5693.         DLabel := TDLabel.Create(DMemoChat);
  5694.         DLabel.Font.Assign(MainForm.Canvas.Font);
  5695.         DLabel.Font.Color := FColor;
  5696.         DLabel.BoldFont := False;
  5697.         DLabel.DParent := DMemoChat;
  5698.         DLabel.UpColor := FColor;
  5699.         DLabel.HotColor := FColor;
  5700.         DLabel.DownColor := FColor;
  5701.         DLabel.DrawBackground := True;
  5702.         DLabel.BackgroundColor := BColor;
  5703.         DLabel.OnMouseMove := DItemLabelMouseMove;
  5704.         if BColor = clblack then
  5705.           DLabel.BackgroundColor := $00050505;
  5706.         DLabel.Caption := temp;

  5708.         DLabel.Left := TLines(ItemList).Width;
  5709.         DLabel.Top := nTop;
  5710.         if nNextHeight < DLabel.Height then
  5711.           nNextHeight := DLabel.Height;

  5713.         //DebugOutStr('nTop0:' + IntToStr(nTop) + ' ' + temp);
  5714.         DMemoChat.AddSuItem(ItemList, DLabel);
  5715.         Result := Result + temp;
  5716.         Str := Copy(Str, I + 1, len - I);
  5717.         temp := '';
  5718.         Break;
  5719.       end;
  5720.     end;
  5721.     Inc(I);
  5722.   end;

  5724.   if temp <> '' then begin
  5725.     DLabel := TDLabel.Create(DMemoChat);
  5726.     DLabel.Font.Assign(MainForm.Canvas.Font);
  5727.     DLabel.Font.Color := FColor;
  5728.     DLabel.BoldFont := False;
  5729.     DLabel.DParent := DMemoChat;
  5730.     DLabel.UpColor := FColor;
  5731.     DLabel.HotColor := FColor;
  5732.     DLabel.DownColor := FColor;
  5733.     DLabel.DrawBackground := True;
  5734.     DLabel.BackgroundColor := BColor;
  5735.     DLabel.OnMouseMove := DItemLabelMouseMove;
  5736.     if BColor = clblack then
  5737.       DLabel.BackgroundColor := $00050505;
  5738.     DLabel.Caption := temp;

  5740.     DLabel.Left := TLines(ItemList).Width;
  5741.     DLabel.Top := nTop;
  5742.     //DebugOutStr('nTop1:' + IntToStr(nTop) + ' ' + temp);
  5743.     {DebugOutStr('DLabel SurfaceY:' + IntToStr(DLabel.SurfaceY(DLabel.Top)));
  5744.     DebugOutStr('DMemoChat:' + IntToStr(DMemoChat.SurfaceY(DMemoChat.Top) + DMemoChat.Height));}
  5745.     if nNextHeight < DLabel.Height then
  5746.       nNextHeight := DLabel.Height;

  5748.     DMemoChat.AddSuItem(ItemList, DLabel);
  5749.     Result := Result + temp;
  5750.     Str := '';
  5751.   end;

  5753.   if DMemoChat.Count >= 9 then begin
  5754.     while nNextHeight > 0 do begin
  5755.       DScrollChat.Next;
  5756.       Dec(nNextHeight, DScrollChat.Increment);
  5757.     end;
  5758.     nNextHeight := 0;
  5759.   end;
  5760. // DScrollChat.Position := DScrollChat.Position + nNextHeight;
  5761.   //DScrollChat.Next;
  5762.   while DMemoChat.Count > 200 do begin
  5763.    // DMemoChat.Clear;
  5764.     ItemList := DMemoChat.Items[0];
  5765.     DMemoChat.Delete(0);
  5766.     //DMemoChat.RefreshPos;

  5768.     for I := 0 to ItemList.Count - 1 do begin
  5769.       TDControl(ItemList.Objects[I]).Free;
  5770.     end;
  5771.     ItemList.Free;
  5772.     //DScrollChat.Next;
  5773.     //DScrollChat.Previous;
  5774.     //DebugOutStr('DMemoChat.Count > 200');
  5775.   end;


  5778.   if Str <> '' then begin
  5779.     Str := ' ' + Str;
  5780.     goto AddText;
  5781.   end;
  5782.   //DMemoChat.SpareSize:=DMemoChat.Height - 12;
  5783.   //DScrollChat.Max:=DMemoChat.MaxHeight+DMemoChat.SpareSize;

  5785. end;

  5787. //打开/关闭我的属性对话框

  5789. procedure TFrmDlg.OpenMyStatus;
  5790. begin
  5791.   DStateWin.Visible := not DStateWin.Visible;
  5792.   PageChanged;
  5793. end;
  5794. //显示玩加信息对话框

  5796. procedure TFrmDlg.OpenUserState(UserState: TUserStateInfo);
  5797. begin
  5798.   UserState1 := UserState;
  5799.   DUserState1.Visible := True;
  5800. end;

  5802. //显示/关闭物品对话框

  5804. procedure TFrmDlg.OpenItemBag;
  5805. begin
  5806.   DItemBag.Visible := not DItemBag.Visible;
  5807. end;

  5809. procedure TFrmDlg.SetChatVisible(Value: Boolean);
  5810. begin
  5811.   DChatDlg.Visible := Value;
  5812. end;

  5814. procedure TFrmDlg.SetInputVisible(Value: Boolean);
  5815. begin
  5816.   DEdChat.Visible := Value;
  5817.   if not Value then
  5818.     EdChat.Visible := Value;
  5819. end;


  5822. //底部状态框

  5824. procedure TFrmDlg.ViewBottomBox(Value: Boolean);
  5825. begin
  5826.   DBottom.Visible := Value;
  5827.   DChatDlg.Visible := Value;
  5828.   if g_ConfigClient.btMainInterface = 1 then begin
  5829.     SetButVisible(Value);
  5830.     DMapTitle.Visible := Value;
  5831.     SetInputVisible(Value);
  5832.     SetChatVisible(Value);

  5834.   end else begin

  5836.   end;
  5837.   if (DBottom.Visible) and (not g_boFullScreen) then begin
  5838.     frmMain.Caption := g_sServerName + ' - ' + g_sSelChrName;
  5839.     DBackground.SetFocus;
  5840.   end;
  5841. end;

  5843. // 取消物品移动

  5845. procedure TFrmDlg.CancelItemMoving;
  5846. var
  5847.   Idx, n: Integer;
  5848. begin
  5849.   //if (g_MovingItem.Owner = DHeroItemBag) or (g_MovingItem.Owner = DHeroStateWin) then Exit;
  5850.   if g_boItemMoving then begin
  5851.     g_boItemMoving := False;
  5852.     Idx := g_MovingItem.Index;
  5853.     if Idx < 0 then begin
  5854.       if (Idx <= -20) and (Idx > -30) then begin
  5855.         AddDealItem(g_MovingItem.Item);
  5856.       end else begin
  5857.         n := -(Idx + 1);
  5858.         if n in [0..12] then begin
  5859.           g_UseItems[n] := g_MovingItem.Item;
  5860.         end;
  5861.       end;
  5862.     end else
  5863.       if Idx in [0..MAXBAGITEM - 1] then begin
  5864.       if g_ItemArr[Idx].s.Name = '' then begin
  5865.         g_ItemArr[Idx] := g_MovingItem.Item;
  5866.       end else begin
  5867.         AddItemBag(g_MovingItem.Item);
  5868.       end;
  5869.     end;
  5870.     g_MovingItem.Item.s.Name := '';
  5871.   end;
  5872.   ArrangeItemBag;
  5873. end;

  5875. //把移动的物品放下

  5877. procedure TFrmDlg.DropMovingItem;
  5878. var
  5879.   Idx: Integer;
  5880. begin
  5881.   //if g_btItemMoving in [3, 4] then Exit;
  5882.   if g_boItemMoving then begin
  5883.     g_boItemMoving := False;
  5884.     if g_MovingItem.Item.s.Name <> '' then begin
  5885.       if (g_MovingItem.Owner = DHeroItemBag) then begin
  5886.         frmMain.SendHeroDropItem(g_MovingItem.Item.s.Name, g_MovingItem.Item.MakeIndex);
  5887.         AddDropItem(g_MovingItem.Item);
  5888.         g_MovingItem.Item.s.Name := '';
  5889.       end else
  5890.         if (g_MovingItem.Owner = DItemBag) then begin
  5891.         frmMain.SendDropItem(g_MovingItem.Item.s.Name, g_MovingItem.Item.MakeIndex);
  5892.         AddDropItem(g_MovingItem.Item);
  5893.         g_MovingItem.Item.s.Name := '';
  5894.       end;
  5895.     end;
  5896.   end;
  5897. end;
  5898. //打开属性调整对话框

  5900. procedure TFrmDlg.OpenAdjustAbility;
  5901. begin
  5902.   DAdjustAbility.Left := 0;
  5903.   DAdjustAbility.Top := 0;
  5904.   g_nSaveBonusPoint := g_nBonusPoint;
  5905.   FillChar(g_BonusAbilChg, SizeOf(TNakedAbility), #0);
  5906.   DAdjustAbility.Visible := True;
  5907. end;

  5909. procedure TFrmDlg.DBackgroundBackgroundClick(Sender: TObject);
  5910. var
  5911.   dropgold: Integer;
  5912.   valstr: string;
  5913. begin
  5914.   if g_boItemMoving then begin
  5915.     DBackground.WantReturn := True;
  5916.     if g_MovingItem.Item.s.Name = g_sGoldName {'金币'} then begin
  5917.       g_boItemMoving := False;
  5918.       g_MovingItem.Item.s.Name := '';
  5919.       DialogSize := 1;
  5920.       DMessageDlg('你想放下多少' + g_sGoldName + '数量?', [mbOk, mbAbort]);
  5921.       GetValidStrVal(DlgEditText, valstr, [' ']);
  5922.       dropgold := Str_ToInt(valstr, 0);
  5923.       frmMain.SendDropGold(dropgold);//发送丢掉金币
  5924.     end;
  5925.     if g_MovingItem.Index >= 0 then DropMovingItem;
  5926.   end;
  5927. end;

  5929. procedure TFrmDlg.DBackgroundMouseDown(Sender: TObject;
  5930.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  5931. begin
  5932.   if g_boItemMoving then begin
  5933.     DBackground.WantReturn := True;
  5934.   end;
  5935. end;

  5937. procedure TFrmDlg.DBottomMouseDown(Sender: TObject; Button: TMouseButton;
  5938.   Shift: TShiftState; X, Y: Integer);
  5939. begin

  5941. end;
  5942. {------------------------------------------------------------------------}
  5943. ////显示通用对话框

  5945. function TFrmDlg.DMessageDlg(msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
  5946. const
  5947.   XBase = 324;
  5948. var
  5949.   I: Integer;
  5950.   lx, ly: Integer;
  5951.   d: TTexture;
  5952.   procedure ShowDice();
  5953.   var
  5954.     I: Integer;
  5955.     bo05: Boolean;
  5956.   begin
  5957.     if m_nDiceCount = 1 then begin
  5958.       if m_Dice[0].n67C < 20 then begin
  5959.         if GetTickCount - m_Dice[0].dwPlayTick > 100 then begin
  5960.           if m_Dice[0].n67C div 5 = 4 then begin
  5961.             m_Dice[0].nPlayPoint := Random(6) + 1;
  5962.           end else begin
  5963.             m_Dice[0].nPlayPoint := m_Dice[0].n67C div 5 + 8;
  5964.           end;
  5965.           m_Dice[0].dwPlayTick := GetTickCount();
  5966.           Inc(m_Dice[0].n67C);
  5967.         end;
  5968.         Exit;
  5969.       end;
  5970.       m_Dice[0].nPlayPoint := m_Dice[0].nDicePoint;
  5971.       if GetTickCount - m_Dice[0].dwPlayTick > 1500 then begin
  5972.         DMsgDlg.Visible := False;
  5973.       end;
  5974.       Exit;
  5975.     end;

  5977.     bo05 := True;
  5978.     for I := 0 to m_nDiceCount - 1 do begin
  5979.       if m_Dice[I].n67C < m_Dice[I].n680 then begin
  5980.         if GetTickCount - m_Dice[I].dwPlayTick > 100 then begin
  5981.           if m_Dice[I].n67C div 5 = 4 then begin
  5982.             m_Dice[I].nPlayPoint := Random(6) + 1;
  5983.           end else begin
  5984.             m_Dice[I].nPlayPoint := m_Dice[I].n67C div 5 + 8;
  5985.           end;
  5986.           m_Dice[I].dwPlayTick := GetTickCount();
  5987.           Inc(m_Dice[I].n67C);
  5988.         end;
  5989.         bo05 := False;
  5990.       end else begin
  5991.         m_Dice[I].nPlayPoint := m_Dice[I].nDicePoint;
  5992.         if GetTickCount - m_Dice[I].dwPlayTick < 2000 then begin
  5993.           bo05 := False;
  5994.         end;
  5995.       end;
  5996.     end; //for
  5997.     if bo05 then begin
  5998.       DMsgDlg.Visible := False;
  5999.     end;
  6000.   end;
  6001. begin
  6002.   lx := XBase;
  6003.   ly := 126;
  6004.   case DialogSize of
  6005.     0: {//小对话框} begin
  6006.         d := g_WMainImages.Images[381];
  6007.         if d <> nil then begin
  6008.           DMsgDlg.SetImgIndex(g_WMainImages, 381);
  6009.           DMsgDlg.Left := (SCREENWIDTH - d.Width) div 2;
  6010.           DMsgDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  6011.           msglx := 39;
  6012.           msgly := 38;
  6013.           lx := 90;
  6014.           ly := 36;
  6015.         end;
  6016.       end;
  6017.     1: {//大对话框（横）} begin
  6018.         d := g_WMainImages.Images[360];
  6019.         if d <> nil then begin
  6020.           DMsgDlg.SetImgIndex(g_WMainImages, 360);
  6021.           DMsgDlg.Left := (SCREENWIDTH - d.Width) div 2;
  6022.           DMsgDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  6023.           msglx := 39;
  6024.           msgly := 38;
  6025.           lx := XBase;
  6026.           ly := 126;
  6027.         end;
  6028.       end;
  6029.     2: {//大对话框（竖）} begin
  6030.         d := g_WMainImages.Images[380];
  6031.         if d <> nil then begin
  6032.           DMsgDlg.SetImgIndex(g_WMainImages, 380);
  6033.           DMsgDlg.Left := (SCREENWIDTH - d.Width) div 2;
  6034.           DMsgDlg.Top := (SCREENHEIGHT - d.Height) div 2;
  6035.           msglx := 23;
  6036.           msgly := 20;
  6037.           lx := 90;
  6038.           ly := 305;
  6039.         end;
  6040.       end;
  6041.   end;
  6042.   MsgText := msgstr;
  6043.   ViewDlgEdit := False; //编辑框不可见
  6044.   DMsgDlg.Floating := True; //允许鼠标移动
  6045.   DMsgDlgOk.Visible := False;
  6046.   DMsgDlgYes.Visible := False;
  6047.   DMsgDlgCancel.Visible := False;
  6048.   DMsgDlgNo.Visible := False;
  6049.   DMsgDlg.Left := (SCREENWIDTH - DMsgDlg.Width) div 2;
  6050.   DMsgDlg.Top := (SCREENHEIGHT - DMsgDlg.Height) div 2;

  6052.   for I := 0 to m_nDiceCount - 1 do begin
  6053.     m_Dice[I].n67C := 0;
  6054.     m_Dice[I].n680 := Random(m_nDiceCount + 2) * 5 + 10;
  6055.     m_Dice[I].nPlayPoint := 1;
  6056.     m_Dice[I].dwPlayTick := GetTickCount();
  6057.   end;

  6059.   if mbCancel in DlgButtons then begin
  6060.     DMsgDlgCancel.Left := lx;
  6061.     DMsgDlgCancel.Top := ly;
  6062.     DMsgDlgCancel.Visible := True;
  6063.     lx := lx - 110;
  6064.   end;
  6065.   if mbNo in DlgButtons then begin
  6066.     DMsgDlgNo.Left := lx;
  6067.     DMsgDlgNo.Top := ly;
  6068.     DMsgDlgNo.Visible := True;
  6069.     lx := lx - 110;
  6070.   end;
  6071.   if mbYes in DlgButtons then begin
  6072.     DMsgDlgYes.Left := lx;
  6073.     DMsgDlgYes.Top := ly;
  6074.     DMsgDlgYes.Visible := True;
  6075.     lx := lx - 110;
  6076.   end;
  6077.   if (mbOk in DlgButtons) or (lx = XBase) then begin
  6078.     DMsgDlgOk.Left := lx;
  6079.     DMsgDlgOk.Top := ly;
  6080.     DMsgDlgOk.Visible := True;
  6081.     lx := lx - 110;
  6082.   end;
  6083.   HideAllControls;
  6084.   DMsgDlg.ShowModal;
  6085.   if mbAbort in DlgButtons then begin
  6086.     ViewDlgEdit := True;
  6087.     DMsgDlg.Floating := False;
  6088.     with EdDlgEdit do begin
  6089.       Text := '';
  6090.       Width := DMsgDlg.Width - 70;
  6091.       {Left := (SCREENWIDTH - EdDlgEdit.Width) div 2;
  6092.       Top := (SCREENHEIGHT - EdDlgEdit.Height) div 2 - 10; }
  6093.       Left := (DMsgDlg.Width - Width) div 2;
  6094.       Top := (DMsgDlg.Height - Height) div 2 - 10;
  6095.       //SetFocus;
  6096.       //SetDFocus(EdDlgEdit);
  6097.     end;
  6098.   end;
  6099.   Result := mrOk;

  6101.   while True do begin
  6102.     if not DMsgDlg.Visible then Break;
  6103.     //FrmMain.DXTimerTimer (self, 0);
  6104.     frmMain.ProcOnIdle;
  6105.     Application.ProcessMessages;
  6106.     if m_nDiceCount > 0 then begin
  6107.       m_boPlayDice := True;
  6108.       for I := 0 to m_nDiceCount - 1 do begin
  6109.         m_Dice[I].nX := ((DMsgDlg.Width div 2 + 6) - ((m_nDiceCount * 32 + m_nDiceCount) div 2)) + (I * 32 + I);
  6110.         m_Dice[I].nY := DMsgDlg.Height div 2 - 14;
  6111.       end;
  6112.       ShowDice();
  6113.     end;
  6114.     if Application.Terminated then Exit;
  6115.     Sleep(1);
  6116.   end;

  6118.   EdDlgEdit.Visible := False;
  6119.   RestoreHideControls;
  6120.   DlgEditText := EdDlgEdit.Text;
  6121.   if EdChat.Visible then EdChat.SetFocus;

  6123.   ViewDlgEdit := False;
  6124.   Result := DMsgDlg.DialogResult;
  6125.   DialogSize := 1;
  6126.   m_nDiceCount := 0;
  6127.   m_boPlayDice := False;
  6128. end;

  6130. procedure TFrmDlg.DMsgDlgOkClick(Sender: TObject; X, Y: Integer);
  6131. begin
  6132.   if Sender = DMsgDlgOk then DMsgDlg.DialogResult := mrOk;
  6133.   if Sender = DMsgDlgYes then DMsgDlg.DialogResult := mrYes;
  6134.   if Sender = DMsgDlgCancel then DMsgDlg.DialogResult := mrCancel;
  6135.   if Sender = DMsgDlgNo then DMsgDlg.DialogResult := mrNo;
  6136.   DMsgDlg.Visible := False;
  6137. end;

  6139. procedure TFrmDlg.DMsgDlgKeyDown(Sender: TObject; var Key: Word;
  6140.   Shift: TShiftState);
  6141. begin
  6142.   if Key = 13 then begin
  6143.     if DMsgDlgOk.Visible and not (DMsgDlgYes.Visible or DMsgDlgCancel.Visible or DMsgDlgNo.Visible) then begin
  6144.       DMsgDlg.DialogResult := mrOk;
  6145.       DMsgDlg.Visible := False;
  6146.     end;
  6147.     if DMsgDlgYes.Visible and not (DMsgDlgOk.Visible or DMsgDlgCancel.Visible or DMsgDlgNo.Visible) then begin
  6148.       DMsgDlg.DialogResult := mrYes;
  6149.       DMsgDlg.Visible := False;
  6150.     end;
  6151.   end;
  6152.   if Key = 27 then begin
  6153.     if DMsgDlgCancel.Visible then begin
  6154.       DMsgDlg.DialogResult := mrCancel;
  6155.       DMsgDlg.Visible := False;
  6156.     end;
  6157.   end;
  6158. end;

  6160. procedure TFrmDlg.DMsgDlgOkDirectPaint(Sender: TObject;
  6161.   dsurface: TTexture);
  6162. var
  6163.   d: TTexture;
  6164.   tStr: string;
  6165.   OldColor: TColor;
  6166.   old: Integer;
  6167.   nStatus: Integer;
  6168.   OldFontStyle: TFontStyles;
  6169. begin
  6170.   try
  6171.     nStatus := -1;
  6172.     d := nil;
  6173.     with Sender as TDButton do begin
  6174.       if not Downed then begin
  6175.         if WLib <> nil then
  6176.           d := WLib.Images[FaceIndex]
  6177.       end else begin
  6178.         if WLib <> nil then
  6179.           d := WLib.Images[FaceIndex + 1];
  6180.       end;
  6181.       //if WLib = nil then Exit;
  6182.       if d <> nil then
  6183.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  6184.       if (Name = 'DSServer1') and (g_ServerList.Count >= 1) then begin
  6185.         tStr := g_ServerList.Strings[0];
  6186.         nStatus := Integer(g_ServerList.Objects[0]);
  6187.       end;
  6188.       if (Name = 'DSServer2') and (g_ServerList.Count >= 2) then begin
  6189.         tStr := g_ServerList.Strings[1];
  6190.         nStatus := Integer(g_ServerList.Objects[1]);
  6191.       end;
  6192.       if (Name = 'DSServer3') and (g_ServerList.Count >= 3) then begin
  6193.         tStr := g_ServerList.Strings[2];
  6194.         nStatus := Integer(g_ServerList.Objects[2]);
  6195.       end;
  6196.       if (Name = 'DSServer4') and (g_ServerList.Count >= 4) then begin
  6197.         tStr := g_ServerList.Strings[3];
  6198.         nStatus := Integer(g_ServerList.Objects[3]);
  6199.       end;
  6200.       if (Name = 'DSServer5') and (g_ServerList.Count >= 5) then begin
  6201.         tStr := g_ServerList.Strings[4];
  6202.         nStatus := Integer(g_ServerList.Objects[4]);
  6203.       end;
  6204.       if (Name = 'DSServer6') and (g_ServerList.Count >= 6) then begin
  6205.         tStr := g_ServerList.Strings[5];
  6206.         nStatus := Integer(g_ServerList.Objects[5]);
  6207.       end;
  6208.      case nStatus of    //服务器状态
  6209.        0: begin
  6210.          tStr:=tStr + '(维护)';
  6211.          Color:=clDkGray;
  6212.        end;
  6213.        1: begin
  6214.          tStr:=tStr + '(空闲)';
  6215.          Color:=clLime;
  6216.        end;
  6217.        2: begin
  6218.          tStr:=tStr + '(良好)';
  6219.          Color:=clGreen;
  6220.        end;
  6221.        3: begin
  6222.          tStr:=tStr + '(繁忙)';
  6223.          Color:=clMaroon;
  6224.        end;
  6225.        4: begin
  6226.          tStr:=tStr + '(满员)';
  6227.          Color:=clRed;
  6228.        end;
  6229.      end;
  6230.       if d <> nil then begin
  6231.         old := MainForm.Canvas.Font.Size;
  6232.         OldColor := MainForm.Canvas.Font.Color;
  6233.         OldFontStyle := MainForm.Canvas.Font.Style;

  6235.         MainForm.Canvas.Font.Size := 12;
  6236.         MainForm.Canvas.Font.Style := [fsBold];
  6237.         MainForm.Canvas.Font.Color := GetRGB(150) { clyellow};
  6238.         if TDButton(Sender).Downed then begin  //判断按钮是否按下
  6239.           dsurface.BoldTextOut(SurfaceX(Left + (d.Width - dsurface.TextWidth(tStr)) div 2) + 2, SurfaceY(Top + (d.Height - dsurface.TextHeight(tStr)) div 2) + 2, tStr, GetRGB(150));
  6240.         end else begin
  6241.           dsurface.BoldTextOut(SurfaceX(Left + (d.Width - dsurface.TextWidth(tStr)) div 2), SurfaceY(Top + (d.Height - dsurface.TextHeight(tStr)) div 2), tStr, GetRGB(150));
  6242.         end;
  6243.         MainForm.Canvas.Font.Style := OldFontStyle;
  6244.         MainForm.Canvas.Font.Size := old;
  6245.         MainForm.Canvas.Font.Color := OldColor;
  6246.       end;
  6247.     end;
  6248.   except
  6249.     on E: Exception do begin
  6250.       ShowMessage(E.message);
  6251.     end;
  6252.   end;
  6253. end;

  6255. procedure TFrmDlg.DMsgDlgDirectPaint(Sender: TObject;
  6256.   dsurface: TTexture);
  6257. var
  6258.   I: Integer;
  6259.   d: TTexture;
  6260.   ly: Integer;
  6261.   Str, sData: string;
  6262.   nX, nY: Integer;
  6263. begin
  6264.   d := nil;
  6265.   with Sender as TDWindow do begin
  6266.     if WLib <> nil then
  6267.       d := WLib.Images[FaceIndex];
  6268.     if d <> nil then
  6269.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  6270.     if m_boPlayDice then begin
  6271.       for I := 0 to m_nDiceCount - 1 do begin
  6272.         d := g_WBagItemImages.GetCachedImage(m_Dice[I].nPlayPoint + 376 - 1, nX, nY);
  6273.         if d <> nil then begin
  6274.           dsurface.Draw(SurfaceX(Left) + m_Dice[I].nX + nX - 14, SurfaceY(Top) + m_Dice[I].nY + nY + 38, d.ClientRect, d, True);
  6275.         end;
  6276.       end;
  6277.     end;

  6279.     ly := msgly;
  6280.     Str := MsgText;
  6281.     while True do begin
  6282.       if Str = '' then Break;
  6283.       Str := GetValidStr3(Str, sData, ['\']);
  6284.       if sData <> '' then
  6285.         dsurface.BoldTextOut(SurfaceX(Left + msglx), SurfaceY(Top + ly), sData, clWhite);
  6286.       ly := ly + 14;
  6287.     end;

  6289.   end;
  6290.   if ViewDlgEdit then begin
  6291.     if not EdDlgEdit.Visible then begin
  6292.       EdDlgEdit.Visible := True;
  6293.       EdDlgEdit.SetFocus;
  6294.       //SetDFocus(EdDlgEdit);
  6295.     end;
  6296.   end;
  6297. end;

  6299. {------------------------------------------------------------------------}

  6301. procedure TFrmDlg.DLoginNewDirectPaint(Sender: TObject;
  6302.   dsurface: TTexture);
  6303. var
  6304.   d: TTexture;
  6305. begin
  6306.   with Sender as TDButton do begin
  6307.     if TDButton(Sender).Downed then begin
  6308.       d := nil;
  6309.       if WLib <> nil then
  6310.         d := WLib.Images[FaceIndex];
  6311.       if d <> nil then
  6312.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  6313.     end;
  6314.   end;
  6315. end;

  6317. procedure TFrmDlg.DLoginNewClick(Sender: TObject; X, Y: Integer);
  6318. begin
  6319.   //frmMain.SendGetRandomCode;
  6320.   LoginScene.NewClick;
  6321. end;

  6323. procedure TFrmDlg.DLoginOkClick(Sender: TObject; X, Y: Integer);
  6324. begin
  6325.   LoginScene.OkClick;
  6326. end;

  6328. procedure TFrmDlg.DLoginCloseClick(Sender: TObject; X, Y: Integer);
  6329. begin
  6330.   frmMain.Close;
  6331. end;

  6333. procedure TFrmDlg.DLoginChgPwClick(Sender: TObject; X, Y: Integer);
  6334. begin
  6335.   LoginScene.ChgPwClick;
  6336. end;

  6338. procedure TFrmDlg.DLoginNewClickSound(Sender: TObject;
  6339.   Clicksound: TClickSound);
  6340. begin
  6341.   case Clicksound of
  6342.     csNorm: PlaySound(s_norm_button_click);
  6343.     csStone: PlaySound(s_rock_button_click);
  6344.     csGlass: PlaySound(s_glass_button_click);
  6345.   end;
  6346. end;

  6348. procedure TFrmDlg.ShowSelectServerDlg;
  6349. begin
  6350.   case g_ServerList.Count of  //如果有几个 显示几个服务器登陆框
  6351.     1: begin
  6352.         DSServer1.Visible := True;
  6353.         DSServer1.Top := 204;
  6354.         DSServer2.Visible := False;
  6355.         DSServer3.Visible := False;
  6356.         DSServer4.Visible := False;
  6357.         DSServer5.Visible := False;
  6358.         DSServer6.Visible := False;
  6359.       end;
  6360.     2: begin
  6361.         DSServer1.Visible := True;
  6362.         DSServer1.Top := 190;
  6363.         DSServer2.Visible := True;
  6364.         DSServer2.Top := 235;
  6365.         DSServer3.Visible := False;
  6366.         DSServer4.Visible := False;
  6367.         DSServer5.Visible := False;
  6368.         DSServer6.Visible := False;
  6369.       end;
  6370.     3: begin
  6371.         DSServer1.Visible := True;
  6372.         DSServer2.Visible := True;
  6373.         DSServer3.Visible := True;
  6374.         DSServer4.Visible := False;
  6375.         DSServer5.Visible := False;
  6376.         DSServer6.Visible := False;
  6377.       end;
  6378.     4: begin
  6379.         DSServer1.Visible := True;
  6380.         DSServer2.Visible := True;
  6381.         DSServer3.Visible := True;
  6382.         DSServer4.Visible := True;
  6383.         DSServer5.Visible := False;
  6384.         DSServer6.Visible := False;
  6385.       end;
  6386.     5: begin
  6387.         DSServer1.Visible := True;
  6388.         DSServer2.Visible := True;
  6389.         DSServer3.Visible := True;
  6390.         DSServer4.Visible := True;
  6391.         DSServer5.Visible := True;
  6392.         DSServer6.Visible := False;
  6393.       end;
  6394.     6: begin
  6395.         DSServer1.Visible := True;
  6396.         DSServer2.Visible := True;
  6397.         DSServer3.Visible := True;
  6398.         DSServer4.Visible := True;
  6399.         DSServer5.Visible := True;
  6400.         DSServer6.Visible := True;
  6401.       end;
  6402.   else begin
  6403.       DSServer1.Visible := True;
  6404.       DSServer2.Visible := True;
  6405.       DSServer3.Visible := True;
  6406.       DSServer4.Visible := True;
  6407.       DSServer5.Visible := True;
  6408.       DSServer6.Visible := True;
  6409.     end;
  6410.   end;
  6411.   DSelServerDlg.Visible := True;
  6412. end;

  6414. procedure TFrmDlg.DSelServerDlgDirectPaint(Sender: TObject;
  6415.   dsurface: TTexture);
  6416. var
  6417.   d: TTexture;
  6418. begin

  6420. end;

  6422. procedure TFrmDlg.DSServer1Click(Sender: TObject; X, Y: Integer);//选择服务器按钮
  6423. var
  6424.   svname: string;
  6425. begin
  6426.   svname := '';
  6427.   if Sender = DSServer1 then begin
  6428.     svname := g_ServerList.Strings[0];
  6429.     g_sServerMiniName := svname;
  6430.   end;
  6431.   if Sender = DSServer2 then begin
  6432.     svname := g_ServerList.Strings[1];
  6433.     g_sServerMiniName := svname;
  6434.   end;
  6435.   if Sender = DSServer3 then begin
  6436.     svname := g_ServerList.Strings[2];
  6437.     g_sServerMiniName := svname;
  6438.   end;
  6439.   if Sender = DSServer4 then begin
  6440.     svname := g_ServerList.Strings[3];
  6441.     g_sServerMiniName := svname;
  6442.   end;
  6443.   if Sender = DSServer5 then begin
  6444.     svname := g_ServerList.Strings[4];
  6445.     g_sServerMiniName := svname;
  6446.   end;
  6447.   if Sender = DSServer6 then begin
  6448.     svname := g_ServerList.Strings[5];
  6449.     g_sServerMiniName := svname;
  6450.   end;
  6451.   if svname <> '' then begin
  6452.     if BO_FOR_TEST then begin  //测试模式
  6453.       svname := 'MakeGM';
  6454.       g_sServerMiniName := 'MakeGM';
  6455.     end;
  6456.     frmMain.SendSelectServer(svname);//发送选择服务器
  6457.     DSelServerDlg.Visible := False; //隐藏服务器选择画面
  6458.     g_sServerName := svname;//服务器名称
  6459.     //Showmessage(svname);
  6460.   end;
  6461. end;

  6463. procedure TFrmDlg.DEngServer1Click(Sender: TObject; X, Y: Integer);
  6464. var
  6465.   svname: string;
  6466. begin
  6467.   svname := 'MakeGM';
  6468.   g_sServerMiniName := svname;

  6470.   if svname <> '' then begin
  6471.     frmMain.SendSelectServer(svname);
  6472.     DSelServerDlg.Visible := False;
  6473.     g_sServerName := svname;
  6474.   end;
  6475. end;


  6478. procedure TFrmDlg.DSSrvCloseClick(Sender: TObject; X, Y: Integer);
  6479. begin
  6480.   DSelServerDlg.Visible := False;
  6481.   frmMain.Close;
  6482. end;


  6485. {------------------------------------------------------------------------}


  6488. procedure TFrmDlg.DNewAccountOkClick(Sender: TObject; X, Y: Integer);
  6489. begin
  6490.   LoginScene.NewAccountOk;
  6491. end;

  6493. procedure TFrmDlg.DNewAccountCloseClick(Sender: TObject; X, Y: Integer);
  6494. begin
  6495.   LoginScene.NewAccountClose;
  6496. end;

  6498. procedure TFrmDlg.DNewAccountDirectPaint(Sender: TObject;
  6499.   dsurface: TTexture);
  6500. var
  6501.   d: TTexture;
  6502.   I: Integer;
  6503. begin
  6504.   with dsurface do begin
  6505.     with DNewAccount do begin
  6506.       d := nil;
  6507.       if WLib <> nil then
  6508.         d := WLib.Images[FaceIndex];
  6509.       if d <> nil then
  6510.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  6511.     end;

  6513.     for I := 0 to NAHelps.Count - 1 do begin
  6514.       TextOut((SCREENWIDTH div 2 - 320) + 386 + 10, (SCREENHEIGHT div 2 - 238) + 119 + 5 + I * 14, NAHelps[I], clSilver);
  6515.     end;

  6517.     //TextOut((SCREENWIDTH div 2 - 320) + 290, (SCREENHEIGHT div 2 - 238) + 119 + 5 + 6 * 14, g_sRandomCode, clLime);
  6518.     BoldTextOut(79 + 283, 64 + 57, NewAccountTitle);
  6519.   end;
  6520. end;



  6524. {------------------------------------------------------------------------}

  6526. procedure TFrmDlg.DChgpwOkClick(Sender: TObject; X, Y: Integer);
  6527. begin
  6528.   if Sender = DChgpwOk then LoginScene.ChgpwOk;
  6529.   if Sender = DChgpwCancel then LoginScene.ChgpwCancel;
  6530. end;




  6535. {------------------------------------------------------------------------}
  6536. //某腐磐 急琶


  6539. procedure TFrmDlg.DscSelect1DirectPaint(Sender: TObject;
  6540.   dsurface: TTexture);
  6541. var
  6542.   d: TTexture;
  6543. begin
  6544.   with Sender as TDButton do begin
  6545.     d := nil;
  6546.     if Downed then begin
  6547.       //WLib := g_WMain2Images;
  6548.       if Sender = DscSelect1 then d := g_WMainImages.Images[66];
  6549.       if Sender = DscSelect2 then d := g_WMainImages.Images[67];
  6550.       if Sender = DscStart then d := g_WMain2Images.Images[482];
  6551.       if Sender = DscNewChr then d := g_WMain2Images.Images[485];
  6552.       if Sender = DscEraseChr then d := g_WMain2Images.Images[486];
  6553.       if Sender = DscCredits then d := g_WMain2Images.Images[487];
  6554.       if Sender = DscExit then d := g_WMain2Images.Images[488];
  6555.     end else
  6556.       if MouseMoveing then begin
  6557.       //WLib := g_WMain2Images;
  6558.       if Sender = DscSelect1 then d := g_WMain2Images.Images[483];
  6559.       if Sender = DscSelect2 then d := g_WMain2Images.Images[484];
  6560.       if Sender = DscStart then d := g_WMain2Images.Images[481];
  6561.       if Sender = DscNewChr then d := g_WMainImages.Images[69];
  6562.       if Sender = DscEraseChr then d := g_WMainImages.Images[70];
  6563.       if Sender = DscCredits then d := g_WMain3Images.Images[405];
  6564.       if Sender = DscExit then d := g_WMainImages.Images[72];
  6565.     end else begin
  6566.       if Sender = DscSelect1 then WLib := nil;
  6567.       if Sender = DscSelect2 then WLib := nil;
  6568.       if Sender = DscStart then WLib := nil;
  6569.       if Sender = DscNewChr then WLib := nil;
  6570.       if Sender = DscEraseChr then WLib := nil;
  6571.       if Sender = DscCredits then WLib := nil;
  6572.       if Sender = DscExit then WLib := nil;

  6574.       //WLib := g_WMain2Images;
  6575.       {if Sender = DscSelect1 then d := g_WMain2Images.Images[484];
  6576.       if Sender = DscSelect2 then d := g_WMain2Images.Images[484];
  6577.       if Sender = DscStart then d := g_WMain2Images.Images[484];
  6578.       if Sender = DscNewChr then d := g_WMain2Images.Images[484];
  6579.       if Sender = DscEraseChr then d := g_WMain2Images.Images[484];
  6580.       if Sender = DscCredits then d := g_WMain2Images.Images[484];
  6581.       if Sender = DscExit then d := g_WMain2Images.Images[484];  }
  6582.     end;


  6585.     if (d = nil) and (WLib <> nil) then
  6586.       d := WLib.Images[FaceIndex];
  6587.     if d <> nil then
  6588.       dsurface.Draw(Left, Top, d.ClientRect, d, True);

  6590.     if (Sender = DscStart) and g_boReSelConnect then begin
  6591.       dsurface.FillRectAlpha(g_ClientRect, clblack, 150);
  6592.       if GetTickCount - g_dwReSelConnectTick > 100 then begin
  6593.         g_dwReSelConnectTick := GetTickCount;
  6594.         g_ClientRect.Top := g_ClientRect.Top + 1;
  6595.         if g_ClientRect.Top > g_ClientRect.Bottom then begin
  6596.           g_boReSelConnect := False;
  6597.           Enabled := True;
  6598.         end;
  6599.       end;
  6600.     end;

  6602.   end;
  6603. end;

  6605. procedure TFrmDlg.DscSelect1Click(Sender: TObject; X, Y: Integer);
  6606. begin
  6607.   if Sender = DscSelect1 then SelectChrScene.SelChrSelect1Click;
  6608.   if Sender = DscSelect2 then SelectChrScene.SelChrSelect2Click;
  6609.   if Sender = DscStart then SelectChrScene.SelChrStartClick;
  6610.   if Sender = DscNewChr then SelectChrScene.SelChrNewChrClick;
  6611.   if Sender = DscEraseChr then SelectChrScene.SelChrEraseChrClick;
  6612.   if Sender = DscCredits then SelectChrScene.SelChrQueryDelChrClick; //SelectChrScene.SelChrCreditsClick;
  6613.   if Sender = DscExit then SelectChrScene.SelChrExitClick;
  6614. end;

  6616. procedure TFrmDlg.DccCloseDirectPaint(Sender: TObject;
  6617.   dsurface: TTexture);
  6618. var
  6619.   d: TTexture;
  6620. begin
  6621.   with Sender as TDButton do begin
  6622.     if Downed then begin
  6623.       d := nil;
  6624.       if WLib <> nil then
  6625.         d := WLib.Images[FaceIndex];
  6626.       if d <> nil then
  6627.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  6628.     end else begin
  6629.       d := nil;
  6630.       if Sender = DccWarrior then begin
  6631.         with SelectChrScene do
  6632.           if (ChrArr[NewIndex].UserChr.job = 0) and (WLib <> nil) then d := WLib.Images[55];
  6633.       end;
  6634.       if Sender = DccWizzard then begin
  6635.         with SelectChrScene do
  6636.           if (ChrArr[NewIndex].UserChr.job = 1) and (WLib <> nil) then d := WLib.Images[56];
  6637.       end;
  6638.       if Sender = DccMonk then begin
  6639.         with SelectChrScene do
  6640.           if (ChrArr[NewIndex].UserChr.job = 2) and (WLib <> nil) then d := WLib.Images[57];
  6641.       end;
  6642.       if Sender = DccMale then begin
  6643.         with SelectChrScene do
  6644.           if (ChrArr[NewIndex].UserChr.sex = 0) and (WLib <> nil) then d := WLib.Images[58];
  6645.       end;
  6646.       if Sender = DccFemale then begin
  6647.         with SelectChrScene do
  6648.           if (ChrArr[NewIndex].UserChr.sex = 1) and (WLib <> nil) then d := WLib.Images[59];
  6649.       end;

  6651.       if d <> nil then
  6652.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  6653.     end;
  6654.   end;
  6655. end;

  6657. procedure TFrmDlg.DccCloseClick(Sender: TObject; X, Y: Integer);
  6658. begin
  6659.   if Sender = DccClose then SelectChrScene.SelChrNewClose;
  6660.   if Sender = DccWarrior then SelectChrScene.SelChrNewJob(0);
  6661.   if Sender = DccWizzard then SelectChrScene.SelChrNewJob(1);
  6662.   if Sender = DccMonk then SelectChrScene.SelChrNewJob(2);
  6663.   if Sender = DccReserved then SelectChrScene.SelChrNewJob(3);
  6664.   if Sender = DccMale then SelectChrScene.SelChrNewm_btSex(0);
  6665.   if Sender = DccFemale then SelectChrScene.SelChrNewm_btSex(1);
  6666.   if Sender = DccLeftHair then SelectChrScene.SelChrNewPrevHair;
  6667.   if Sender = DccRightHair then SelectChrScene.SelChrNewNextHair;
  6668.   if Sender = DccOk then SelectChrScene.SelChrNewOk;
  6669. end;


  6672. procedure TFrmDlg.DStateWinDirectPaint(Sender: TObject;
  6673.   dsurface: TTexture);
  6674. var
  6675.   I, L, m, pgidx, magline, bbx, bby, mmx, Idx, ax, ay, trainlv: Integer;
  6676.   pm: PTClientMagic;
  6677.   d: TTexture;
  6678.   hcolor, old, keyimg: Integer;
  6679.   iname, d1, d2, d3: string;
  6680.   useable: Boolean;
  6681.   c: TColor;
  6682. begin
  6683.   if g_MySelf = nil then Exit;
  6684.   with DStateWin do begin
  6685.     d := nil;
  6686.     if WLib <> nil then
  6687.       d := WLib.Images[FaceIndex];
  6688.     if d <> nil then
  6689.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  6690.     case StatePage of
  6691.       0: begin //人物界面
  6692.           pgidx := 29;
  6693.           if g_MySelf <> nil then
  6694.             if g_MySelf.m_btSex = 1 then pgidx := 30;
  6695.           bbx := Left + 38;
  6696.           bby := Top + 52;
  6697.           d := g_WMain3Images.Images[pgidx];
  6698.           if d <> nil then
  6699.             dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);
  6700.           bbx := bbx - 7;
  6701.           bby := bby + 44;
  6702.           if g_MySelf.m_btHair < 4 then begin
  6703.             Idx := 440 + g_MySelf.m_btHair;
  6704.           //idx := 440 + g_MySelf.m_btHair div 2;
  6705.           //if g_MySelf.m_btSex = 1 then idx := 480 + g_MySelf.m_btHair div 2;
  6706.             if Idx > 0 then begin
  6707.               d := g_WMainImages.GetCachedImage(Idx, ax, ay);
  6708.               if d <> nil then
  6709.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  6710.             end;
  6711.           end;

  6713.           if g_UseItems[U_DRESS].s.Name <> '' then begin
  6714.             Idx := g_UseItems[U_DRESS].s.looks; //渴 if Myself.m_btSex = 1 then idx := 80; //咯磊渴
  6715.             if Idx >= 0 then begin
  6716.               //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  6717.               d := GetWStateImg(Idx, ax, ay);
  6718.               if d <> nil then
  6719.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  6720.             end;
  6721.           end;
  6722.           if g_UseItems[U_WEAPON].s.Name <> '' then begin
  6723.             Idx := g_UseItems[U_WEAPON].s.looks;
  6724.             if Idx >= 0 then begin
  6725.               //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  6726.               d := GetWStateImg(Idx, ax, ay);
  6727.               if d <> nil then begin
  6728.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  6729.                 //d.SaveToFile('d.bmp');
  6730.               end;
  6731.               if (g_UseItems[U_WEAPON].s.Shape = 38) and (Idx = 1404) then begin
  6732.                 d := GetWStateImg(Idx - 1, ax, ay);
  6733.                 if d <> nil then
  6734.                   DrawBlend(dsurface, SurfaceX(bbx + ax), SurfaceY(bby + ay), d);
  6735.               end else
  6736.                 if (g_UseItems[U_WEAPON].s.Shape = 56) and (Idx = 1880) then begin
  6737.                 if (g_dwWeapon56Index[0] < 1890) or (g_dwWeapon56Index[0] > 1899) then
  6738.                   g_dwWeapon56Index[0] := 1890;
  6739.                 if GetTickCount - g_dwWeapon56Tick[0] > 100 then begin
  6740.                   g_dwWeapon56Tick[0] := GetTickCount;
  6741.                   g_dwWeapon56Index[0] := g_dwWeapon56Index[0] + 1;
  6742.                 end;
  6743.                 if (g_dwWeapon56Index[0] < 1890) or (g_dwWeapon56Index[0] > 1899) then
  6744.                   g_dwWeapon56Index[0] := 1890;

  6746.                 d := GetWStateImg(g_dwWeapon56Index[0], ax, ay);
  6747.                 if d <> nil then
  6748.                   DrawBlend(dsurface, SurfaceX(bbx + ax), SurfaceY(bby + ay), d);
  6749.               end;
  6750.             end;
  6751.           end;
  6752.           if g_UseItems[U_HELMET].s.Name <> '' then begin
  6753.             Idx := g_UseItems[U_HELMET].s.looks;
  6754.             if Idx >= 0 then begin
  6755.               //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  6756.               d := GetWStateImg(Idx, ax, ay);
  6757.               if d <> nil then
  6758.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  6759.             end;
  6760.           end;

  6762.           //左边按钮图片
  6763.           d := g_WMainImages.Images[792];
  6764.           if d <> nil then
  6765.           dsurface.Draw(Left+3, top+61, d.ClientRect, d, True);
  6766.           //左边字
  6767.           MainForm.Canvas.Font.Style:=[fsBold];
  6768.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 70,'装', clBlack, clBlack);
  6769.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 83,'备', clBlack, clBlack );
  6770.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 72,'装', clBlack, clBlack);
  6771.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 85,'备', clBlack, clBlack );
  6772.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 71,'装', $00A6E1EE, clBlack);
  6773.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 84,'备', $00A6E1EE, clBlack );

  6775.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 117,'状', clBlack , clBlack);
  6776.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 130,'态', clBlack, clBlack);
  6777.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 119,'状', clBlack, clBlack);
  6778.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 132,'态', clBlack, clBlack);
  6779.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 118,'状', $006C85AA , clBlack);
  6780.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 131,'态', $006C85AA , clBlack);

  6782.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 162, '属', clBlack , clBlack);
  6783.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 175,'性', clBlack , clBlack);
  6784.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 164, '属', clBlack , clBlack);
  6785.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 177,'性', clBlack , clBlack);
  6786.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 163, '属', $006C85AA , clBlack);
  6787.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 176,'性', $006C85AA , clBlack);

  6789.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 207,'技', clBlack, clBlack);
  6790.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 220,'能', clBlack , clBlack);
  6791.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 209,'技', clBlack , clBlack);
  6792.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 222,'能', clBlack , clBlack);
  6793.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 208,'技', $006C85AA , clBlack);
  6794.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 221,'能', $006C85AA , clBlack);

  6796.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 252,'待', clBlack , clBlack);
  6797.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 265,'出', clBlack , clBlack);
  6798.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 254,'待', clBlack , clBlack);
  6799.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 267,'出', clBlack , clBlack);
  6800.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 253,'待', $006C85AA , clBlack);
  6801.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 266,'出', $006C85AA , clBlack);
  6802.           MainForm.Canvas.Font.Style:=[];
  6803.         end;
  6804.       1: begin //状态
  6805.           //左边按钮图片
  6806.           d := g_WMainImages.Images[793];
  6807.           if d <> nil then
  6808.           dsurface.Draw(Left+3, top+61, d.ClientRect, d, True);
  6809.           //左边的字
  6810.           MainForm.Canvas.Font.Style:=[fsBold];
  6811.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 70,'装', clBlack, clBlack);
  6812.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 83,'备', clBlack, clBlack );
  6813.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 72,'装', clBlack, clBlack);
  6814.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 85,'备', clBlack, clBlack );
  6815.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 71,'装', $006C85AA, clBlack);
  6816.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 84,'备', $006C85AA, clBlack );

  6818.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 117,'状', clBlack , clBlack);
  6819.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 130,'态', clBlack, clBlack);
  6820.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 119,'状', clBlack, clBlack);
  6821.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 132,'态', clBlack, clBlack);
  6822.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 118,'状', $00A6E1EE , clBlack);
  6823.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 131,'态', $00A6E1EE , clBlack);

  6825.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 162, '属', clBlack , clBlack);
  6826.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 175,'性', clBlack , clBlack);
  6827.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 164, '属', clBlack , clBlack);
  6828.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 177,'性', clBlack , clBlack);
  6829.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 163, '属', $006C85AA , clBlack);
  6830.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 176,'性', $006C85AA , clBlack);

  6832.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 207,'技', clBlack, clBlack);
  6833.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 220,'能', clBlack , clBlack);
  6834.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 209,'技', clBlack , clBlack);
  6835.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 222,'能', clBlack , clBlack);
  6836.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 208,'技', $006C85AA , clBlack);
  6837.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 221,'能', $006C85AA , clBlack);

  6839.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 252,'待', clBlack , clBlack);
  6840.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 265,'出', clBlack , clBlack);
  6841.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 254,'待', clBlack , clBlack);
  6842.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 267,'出', clBlack , clBlack);
  6843.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 253,'待', $006C85AA , clBlack);
  6844.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 266,'出', $006C85AA , clBlack);
  6845.           MainForm.Canvas.Font.Style:=[];
  6846.           L := Left + 112; //66;
  6847.           m := Top + 99;
  6848.           with dsurface do begin
  6849.             TextOut(SurfaceX(L + 0), SurfaceY(m + 0), IntToStr(Loword(g_MySelf.m_Abil.AC)) + '-' + IntToStr(Hiword(g_MySelf.m_Abil.AC)));
  6850.             TextOut(SurfaceX(L + 0), SurfaceY(m + 20), IntToStr(Loword(g_MySelf.m_Abil.MAC)) + '-' + IntToStr(Hiword(g_MySelf.m_Abil.MAC)));
  6851.             TextOut(SurfaceX(L + 0), SurfaceY(m + 40), IntToStr(Loword(g_MySelf.m_Abil.DC)) + '-' + IntToStr(Hiword(g_MySelf.m_Abil.DC)));
  6852.             TextOut(SurfaceX(L + 0), SurfaceY(m + 60), IntToStr(Loword(g_MySelf.m_Abil.MC)) + '-' + IntToStr(Hiword(g_MySelf.m_Abil.MC)));
  6853.             TextOut(SurfaceX(L + 0), SurfaceY(m + 80), IntToStr(Loword(g_MySelf.m_Abil.SC)) + '-' + IntToStr(Hiword(g_MySelf.m_Abil.SC)));
  6854.             TextOut(SurfaceX(L + 0), SurfaceY(m + 100), IntToStr(g_MySelf.m_Abil.HP) + '/' + IntToStr(g_MySelf.m_Abil.MaxHP));
  6855.             TextOut(SurfaceX(L + 0), SurfaceY(m + 120), IntToStr(g_MySelf.m_Abil.MP) + '/' + IntToStr(g_MySelf.m_Abil.MaxMP));
  6856.           end;


  6859.         end;
  6860.       2: begin //属性
  6861.           //左边按钮图片
  6862.           d := g_WMainImages.Images[794];
  6863.           if d <> nil then
  6864.           dsurface.Draw(Left+3, top+61, d.ClientRect, d, True);
  6865.           //左边的字
  6866.           MainForm.Canvas.Font.Style:=[fsBold];
  6867.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 70,'装', clBlack, clBlack);
  6868.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 83,'备', clBlack, clBlack );
  6869.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 72,'装', clBlack, clBlack);
  6870.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 85,'备', clBlack, clBlack );
  6871.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 71,'装', $006C85AA, clBlack);
  6872.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 84,'备', $006C85AA, clBlack );

  6874.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 117,'状', clBlack , clBlack);
  6875.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 130,'态', clBlack, clBlack);
  6876.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 119,'状', clBlack, clBlack);
  6877.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 132,'态', clBlack, clBlack);
  6878.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 118,'状', $006C85AA , clBlack);
  6879.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 131,'态', $006C85AA , clBlack);

  6881.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 162, '属', clBlack , clBlack);
  6882.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 175,'性', clBlack , clBlack);
  6883.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 164, '属', clBlack , clBlack);
  6884.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 177,'性', clBlack , clBlack);
  6885.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 163, '属', $00A6E1EE , clBlack);
  6886.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 176,'性', $00A6E1EE , clBlack);

  6888.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 207,'技', clBlack, clBlack);
  6889.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 220,'能', clBlack , clBlack);
  6890.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 209,'技', clBlack , clBlack);
  6891.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 222,'能', clBlack , clBlack);
  6892.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 208,'技', $006C85AA , clBlack);
  6893.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 221,'能', $006C85AA , clBlack);

  6895.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 252,'待', clBlack , clBlack);
  6896.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 265,'出', clBlack , clBlack);
  6897.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 254,'待', clBlack , clBlack);
  6898.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 267,'出', clBlack , clBlack);
  6899.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 253,'待', $006C85AA , clBlack);
  6900.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 266,'出', $006C85AA , clBlack);
  6901.           MainForm.Canvas.Font.Style:=[];
  6902.           bbx := Left + 38;
  6903.           bby := Top + 52;
  6904.           d := g_WMain3Images.Images[32];
  6905.           if d <> nil then
  6906.             dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);

  6908.           bbx := bbx + 20;
  6909.           bby := bby + 10;

  6911.           if AbilPage = 0 then begin
  6912.             with dsurface do begin
  6913.               mmx := bbx + 85;
  6914.               TextOut(bbx, bby, '当前经验', clSilver);
  6915.             //TextOut(mmx, bby, FloatToStrFixFmt(100 * g_MySelf.m_Abil.Exp / g_MySelf.m_Abil.MaxExp, 3, 2) + '%');
  6916.               c := clSilver;
  6917.               TextOut(mmx, bby, IntToStr(g_MySelf.m_Abil.Exp), clSilver);
  6918.               bby := bby + 14;
  6919.               TextOut(bbx, bby, '升级经验', clSilver);
  6920.               TextOut(mmx, bby, IntToStr(g_MySelf.m_Abil.MaxExp), clSilver);

  6922.               TextOut(bbx, bby + 14 * 1, '背包重量', clSilver);
  6923.               if g_MySelf.m_Abil.Weight > g_MySelf.m_Abil.MaxWeight then
  6924.                 c := clRed
  6925.               else
  6926.                 c := clSilver;
  6927.               TextOut(mmx, bby + 14 * 1, IntToStr(g_MySelf.m_Abil.Weight) + '/' + IntToStr(g_MySelf.m_Abil.MaxWeight), c);

  6929.               TextOut(bbx, bby + 14 * 2, '负量', clSilver);
  6930.               if g_MySelf.m_Abil.WearWeight > g_MySelf.m_Abil.MaxWearWeight then
  6931.                 c := clRed
  6932.               else
  6933.                 c := clSilver;
  6934.               TextOut(mmx, bby + 14 * 2, IntToStr(g_MySelf.m_Abil.WearWeight) + '/' + IntToStr(g_MySelf.m_Abil.MaxWearWeight), c);


  6937.               TextOut(bbx, bby + 14 * 3, '腕力', clSilver);
  6938.               if g_MySelf.m_Abil.HandWeight > g_MySelf.m_Abil.MaxHandWeight then
  6939.                 c := clRed
  6940.               else
  6941.                 c := clSilver;
  6942.               TextOut(mmx, bby + 14 * 3, IntToStr(g_MySelf.m_Abil.HandWeight) + '/' + IntToStr(g_MySelf.m_Abil.MaxHandWeight), c);

  6944.               TextOut(bbx, bby + 14 * 4, '准确度', clSilver);
  6945.               TextOut(mmx, bby + 14 * 4, IntToStr(g_nMyHitPoint), clSilver);

  6947.               TextOut(bbx, bby + 14 * 5, '敏捷', clSilver);
  6948.               TextOut(mmx, bby + 14 * 5, IntToStr(g_nMySpeedPoint), clSilver);

  6950.               TextOut(bbx, bby + 14 * 6, '魔法躲避', clSilver);
  6951.               TextOut(mmx, bby + 14 * 6, '+' + IntToStr(g_nMyAntiMagic * 10) + '%', clSilver);

  6953.               TextOut(bbx, bby + 14 * 7, '毒物躲避', clSilver);
  6954.               TextOut(mmx, bby + 14 * 7, '+' + IntToStr(g_nMyAntiPoison * 10) + '%', clSilver);

  6956.               TextOut(bbx, bby + 14 * 8, '中毒恢复', clSilver);
  6957.               TextOut(mmx, bby + 14 * 8, '+' + IntToStr(g_nMyPoisonRecover * 10) + '%', clSilver);

  6959.               TextOut(bbx, bby + 14 * 9, '体力恢复', clSilver);
  6960.               TextOut(mmx, bby + 14 * 9, '+' + IntToStr(g_nMyHealthRecover * 10) + '%', clSilver);

  6962.               TextOut(bbx, bby + 14 * 10, '魔法恢复', clSilver);
  6963.               TextOut(mmx, bby + 14 * 10, '+' + IntToStr(g_nMySpellRecover * 10) + '%', clSilver);

  6965.               TextOut(bbx, bby + 14 * 11, g_sGameGoldName + '数量', clSilver);
  6966.               TextOut(mmx, bby + 14 * 11, IntToStr(g_MySelf.m_nGameGold), clSilver);

  6968.               TextOut(bbx, bby + 14 * 12, g_sGamePointName + '数量', clSilver);
  6969.               TextOut(mmx, bby + 14 * 12, IntToStr(g_MySelf.m_nGamePoint), clSilver);

  6971.               if {(g_ServerConfig.btShowClientItemStyle = 0) and}  g_ServerConfig.boAllowItemAddPoint then begin
  6972.                 TextOut(bbx, bby + 14 * 13, '移动加速', clSilver);
  6973.                 TextOut(mmx, bby + 14 * 13, '+' + IntToStr(g_MySelf.m_Abil.MoveSpeed) + '%', clSilver);

  6975.                 TextOut(bbx, bby + 14 * 14, '攻击加速', clSilver);
  6976.                 TextOut(mmx, bby + 14 * 14, '+' + IntToStr(g_MySelf.m_Abil.AttackSpeed) + '%', clSilver);
  6977.               end;

  6979.             end;
  6980.           end else begin
  6981.             mmx := bbx + 110;
  6982.             with dsurface do begin
  6983.               TextOut(bbx, bby, '物理伤害减少', clSilver);
  6984.               TextOut(mmx, bby, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[0]) + '%', clSilver);

  6986.               TextOut(bbx, bby + 14 * 1, '魔法伤害减少', clSilver);
  6987.               TextOut(mmx, bby + 14 * 1, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[1]) + '%', clSilver);

  6989.               TextOut(bbx, bby + 14 * 2, '忽视目标防御', clSilver);
  6990.               TextOut(mmx, bby + 14 * 2, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[2]) + '%', clSilver);

  6992.               TextOut(bbx, bby + 14 * 3, '所有伤害反射', clSilver);
  6993.               TextOut(mmx, bby + 14 * 3, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[3]) + '%', clSilver);

  6995.               TextOut(bbx, bby + 14 * 4, '增加攻击伤害', clSilver);
  6996.               TextOut(mmx, bby + 14 * 4, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[4]) + '%', clSilver);


  6999.               TextOut(bbx, bby + 14 * 5, '物理防御增强', clSilver);
  7000.               TextOut(mmx, bby + 14 * 5, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[5]) + '%', clSilver);

  7002.               TextOut(bbx, bby + 14 * 6, '魔法防御增强', clSilver);
  7003.               TextOut(mmx, bby + 14 * 6, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[6]) + '%', clSilver);

  7005.               TextOut(bbx, bby + 14 * 7, '物理攻击增强', clSilver);
  7006.               TextOut(mmx, bby + 14 * 7, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[7]) + '%', clSilver);

  7008.               TextOut(bbx, bby + 14 * 8, '魔法攻击增强', clSilver);
  7009.               TextOut(mmx, bby + 14 * 8, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[8]) + '%', clSilver);

  7011.               TextOut(bbx, bby + 14 * 9, '道术攻击增强', clSilver);
  7012.               TextOut(mmx, bby + 14 * 9, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[9]) + '%', clSilver);

  7014.               TextOut(bbx, bby + 14 * 10, '增加进入失明状态', clSilver);
  7015.               TextOut(mmx, bby + 14 * 10, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[10]) + '%', clSilver);

  7017.               TextOut(bbx, bby + 14 * 11, '增加进入混乱状态', clSilver);
  7018.               TextOut(mmx, bby + 14 * 11, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[11]) + '%', clSilver);

  7020.               TextOut(bbx, bby + 14 * 12, '减少进入失明状态', clSilver);
  7021.               TextOut(mmx, bby + 14 * 12, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[12]) + '%', clSilver);

  7023.               TextOut(bbx, bby + 14 * 13, '减少进入混乱状态', clSilver);
  7024.               TextOut(mmx, bby + 14 * 13, '+' + IntToStr(g_MySelf.m_Abil.AddPoint[13]) + '%', clSilver);
  7025.             end;
  7026.           end;
  7027.         end;
  7028.       3: begin //魔法
  7029.           //左边按钮图片
  7030.           d := g_WMainImages.Images[795];
  7031.           if d <> nil then
  7032.           dsurface.Draw(Left+3, top+61, d.ClientRect, d, True);
  7033.           //左边的字
  7034.           MainForm.Canvas.Font.Style:=[fsBold];
  7035.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 70,'装', clBlack, clBlack);
  7036.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 83,'备', clBlack, clBlack );
  7037.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 72,'装', clBlack, clBlack);
  7038.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 85,'备', clBlack, clBlack );
  7039.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 71,'装', $006C85AA, clBlack);
  7040.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 84,'备', $006C85AA, clBlack );

  7042.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 117,'状', clBlack , clBlack);
  7043.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 130,'态', clBlack, clBlack);
  7044.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 119,'状', clBlack, clBlack);
  7045.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 132,'态', clBlack, clBlack);
  7046.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 118,'状', $006C85AA , clBlack);
  7047.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 131,'态', $006C85AA , clBlack);

  7049.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 162, '属', clBlack , clBlack);
  7050.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 175,'性', clBlack , clBlack);
  7051.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 164, '属', clBlack , clBlack);
  7052.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 177,'性', clBlack , clBlack);
  7053.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 163, '属', $006C85AA , clBlack);
  7054.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 176,'性', $006C85AA , clBlack);

  7056.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 207,'技', clBlack, clBlack);
  7057.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 220,'能', clBlack , clBlack);
  7058.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 209,'技', clBlack , clBlack);
  7059.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 222,'能', clBlack , clBlack);
  7060.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 208,'技', $00A6E1EE , clBlack);
  7061.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 221,'能', $00A6E1EE , clBlack);

  7063.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 252,'待', clBlack , clBlack);
  7064.           dsurface.BoldTextOut(SurfaceX(Left) + 9, SurfaceY(Top) + 265,'出', clBlack , clBlack);
  7065.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 254,'待', clBlack , clBlack);
  7066.           dsurface.BoldTextOut(SurfaceX(Left) + 11, SurfaceY(Top) + 267,'出', clBlack , clBlack);
  7067.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 253,'待', $006C85AA , clBlack);
  7068.           dsurface.BoldTextOut(SurfaceX(Left) + 10, SurfaceY(Top) + 266,'出', $006C85AA , clBlack);
  7069.           MainForm.Canvas.Font.Style:=[];

  7071.           bbx := Left + 38;
  7072.           bby := Top + 52;
  7073.           d := g_WMain2Images.Images[743];
  7074.           if d <> nil then
  7075.             dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);

  7077.           magtop := MagicPage * 6;
  7078.           magline := _MIN(MagicPage * 6 + 6, g_MagicList.Count);
  7079.           for I := magtop to magline - 1 do begin
  7080.             pm := PTClientMagic(g_MagicList[I]);
  7081.             m := I - magtop;
  7082.             keyimg := 0;
  7083.             {case Byte(pm.Key) of
  7084.               Byte('E'): keyimg := 642;
  7085.               Byte('F'): keyimg := 643;
  7086.               Byte('G'): keyimg := 644;
  7087.               Byte('H'): keyimg := 645;
  7088.               Byte('I'): keyimg := 646;
  7089.               Byte('J'): keyimg := 647;
  7090.               Byte('K'): keyimg := 648;
  7091.               Byte('L'): keyimg := 649;


  7094.               Byte('1'): keyimg := 248;
  7095.               Byte('2'): keyimg := 249;
  7096.               Byte('3'): keyimg := 250;
  7097.               Byte('4'): keyimg := 251;
  7098.               Byte('5'): keyimg := 252;
  7099.               Byte('6'): keyimg := 253;
  7100.               Byte('7'): keyimg := 254;
  7101.               Byte('8'): keyimg := 255;


  7104.             end;}
  7105.             case Byte(pm.Key) of
  7106.               Byte('E'): keyimg := 148;
  7107.               Byte('F'): keyimg := 149;
  7108.               Byte('G'): keyimg := 150;
  7109.               Byte('H'): keyimg := 151;
  7110.               Byte('I'): keyimg := 152;
  7111.               Byte('J'): keyimg := 153;
  7112.               Byte('K'): keyimg := 154;
  7113.               Byte('L'): keyimg := 155;


  7116.               Byte('1'): keyimg := 156;
  7117.               Byte('2'): keyimg := 157;
  7118.               Byte('3'): keyimg := 158;
  7119.               Byte('4'): keyimg := 159;
  7120.               Byte('5'): keyimg := 160;
  7121.               Byte('6'): keyimg := 161;
  7122.               Byte('7'): keyimg := 162;
  7123.               Byte('8'): keyimg := 163;
  7124.             end;

  7126.             if keyimg > 0 then begin
  7127.               d := g_WMain3Images.Images[keyimg];
  7128.               if d <> nil then
  7129.                 dsurface.Draw(bbx + 145, bby + 8 + m * 37, d.ClientRect, d, True);
  7130.             end;
  7131.             d := g_WMainImages.Images[112]; //lv
  7132.             if d <> nil then
  7133.               dsurface.Draw(bbx + 48, bby + 8 + 15 + m * 37, d.ClientRect, d, True);
  7134.             d := g_WMainImages.Images[111]; //exp
  7135.             if d <> nil then
  7136.               dsurface.Draw(bbx + 48 + 26, bby + 8 + 15 + m * 37, d.ClientRect, d, True);
  7137.           end;

  7139.           with dsurface do begin
  7140.             c := clSilver;
  7141.             for I := magtop to magline - 1 do begin
  7142.               pm := PTClientMagic(g_MagicList[I]);
  7143.               m := I - magtop;
  7144.              {
  7145.               if not (pm.Level in [0..3]) then pm.Level := 0; //魔法最多3级
  7146.               TextOut(bbx + 48, bby + 8 + m * 37,
  7147.                 pm.Def.sMagicName);
  7148.               if pm.Level in [0..3] then trainlv := pm.Level
  7149.               else trainlv := 0;
  7150.               }
  7151.               if pm.Def.wMagicId in [31] then begin //if pm.Def.wMagicId in [13, 26, 31, 45] then begin
  7152.                 if not (pm.Level in [0..4]) then pm.Level := 0; //魔法最多3级
  7153.               end else begin
  7154.                 if not (pm.Level in [0..3]) then pm.Level := 0; //魔法最多3级
  7155.               end;
  7156.               TextOut(bbx + 48, bby + 8 + m * 37, pm.Def.sMagicName, c);

  7158.               if pm.Def.wMagicId in [31] then begin //if pm.Def.wMagicId in [13, 26, 31, 45] then begin
  7159.                 if pm.Level in [0..4] then begin
  7160.                   trainlv := pm.Level;
  7161.                   if trainlv >= 3 then trainlv := trainlv - 1;
  7162.                 end else trainlv := 0;
  7163.               end else begin
  7164.                 if pm.Level in [0..3] then trainlv := pm.Level
  7165.                 else trainlv := 0;
  7166.               end;

  7168.               TextOut(bbx + 48 + 16, bby + 8 + 15 + m * 37, IntToStr(pm.Level), c);
  7169.               if pm.Def.MaxTrain[trainlv] > 0 then begin
  7170.                 if trainlv < 3 then
  7171.                   TextOut(bbx + 48 + 46, bby + 8 + 15 + m * 37, IntToStr(pm.CurTrain) + '/' + IntToStr(pm.Def.MaxTrain[trainlv]), c)
  7172.                 else TextOut(bbx + 48 + 46, bby + 8 + 15 + m * 37, '-', c);
  7173.               end;
  7174.             end;
  7175.           end;
  7176.         end;
  7177.     end;

  7179.      //原为打开，本代码为显示人物身上所带物品信息，显示位置为人物下方
  7180.     if (g_ServerConfig.btShowClientItemStyle <> 0) then begin
  7181.       if g_MouseStateItem.s.Name <> '' then begin
  7182.         g_MouseItem := g_MouseStateItem;
  7183.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  7184.         if iname <> '' then begin
  7185.           if g_MouseItem.Dura = 0 then hcolor := clRed
  7186.           else hcolor := clWhite;
  7187.           with dsurface do begin
  7188.             old := MainForm.Canvas.Font.Size;
  7189.             MainForm.Canvas.Font.Size := 9;
  7190.             Font.Color := clyellow;
  7191.             bbx := SurfaceX(Left + 37);
  7192.             bby := SurfaceY(Top + 272 + 35);

  7194.             TextOut(bbx, bby, iname, clyellow); //2006-10-24 Mars修改
  7195.             TextOut(bbx + TextWidth(iname), bby, d1, hcolor);
  7196.             TextOut(bbx, bby + TextHeight('A') + 2, d2, hcolor);
  7197.             TextOut(bbx, bby + (TextHeight('A') + 2) * 2, d3, hcolor);

  7199.             if d2 <> '' then
  7200.               bby := bby + TextHeight('A') + 2;
  7201.             if d3 <> '' then
  7202.               bby := bby + TextHeight('A') + 2;

  7204.             bby := bby + TextHeight('A') + 2;

  7206.             for I := 0 to g_ExtractStringList.Count - 1 do begin
  7207.               TextOut(bbx, bby + (TextHeight('A') + 2) * I, g_ExtractStringList.Strings[I], hcolor);
  7208.             end;

  7210.             MainForm.Canvas.Font.Size := old;
  7211.           end;
  7212.         end;
  7213.         //g_MouseItem.s.Name := '';
  7214.       end;
  7215.     end;
  7216.      //玩家名称、行会
  7217.     with dsurface do begin
  7218.       TextOut(SurfaceX(Left + 122 - TextWidth(g_sSelChrName) div 2),
  7219.         SurfaceY(Top + 23), g_MySelf.m_sUserName, g_MySelf.m_nNameColor);
  7220.       if StatePage = 0 then begin
  7221.         TextOut(SurfaceX(Left + 45), SurfaceY(Top + 55),
  7222.           g_sGuildName + ' ' + g_sGuildRankName, clSilver);
  7223.       end;
  7224.     end;
  7225.   end;
  7226. end;

  7228. procedure TFrmDlg.DSWLightDirectPaint(Sender: TObject;
  7229.   dsurface: TTexture);
  7230. var
  7231.   Idx: Integer;
  7232.   d: TTexture;
  7233.   nWhere: Integer;
  7234. begin
  7235.   nWhere := -1;
  7236.   if StatePage = 0 then begin
  7237.     if Sender = DSWNecklace then nWhere := U_NECKLACE;
  7238.     if Sender = DSWLight then nWhere := U_RIGHTHAND;
  7239.     if Sender = DSWArmRingR then nWhere := U_ARMRINGR;
  7240.     if Sender = DSWArmRingL then nWhere := U_ARMRINGL;
  7241.     if Sender = DSWRingR then nWhere := U_RINGR;
  7242.     if Sender = DSWRingL then nWhere := U_RINGL;
  7243.     if Sender = DSWBujuk then nWhere := U_BUJUK;
  7244.     if Sender = DSWBelt then nWhere := U_BELT;
  7245.     if Sender = DSWBoots then nWhere := U_BOOTS;
  7246.     if Sender = DSWCharm then nWhere := U_CHARM;

  7248.     if nWhere >= 0 then begin
  7249.       if g_UseItems[nWhere].s.Name <> '' then begin
  7250.         Idx := g_UseItems[nWhere].s.looks;
  7251.         if Idx >= 0 then begin
  7252.           d := GetWStateImg(Idx);
  7253.           if d <> nil then
  7254.             with TDButton(Sender) do
  7255.               dsurface.Draw(SurfaceX(Left + (Width - d.Width) div 2),
  7256.                 SurfaceY(Top + (Height - d.Height) div 2),
  7257.                 d.ClientRect, d, True);

  7259.           if (g_UseItems[nWhere].s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_UseItems[nWhere].s.AddPoint))} then begin
  7260.             if GetTickCount - g_DrawUseItems[nWhere].dwDrawTick >= 200 then begin
  7261.               g_DrawUseItems[nWhere].dwDrawTick := GetTickCount;
  7262.               if g_DrawUseItems[nWhere].nIndex <= 0 then g_DrawUseItems[nWhere].nIndex := 260 - 1;
  7263.               Inc(g_DrawUseItems[nWhere].nIndex);
  7264.               if g_DrawUseItems[nWhere].nIndex > 265 then g_DrawUseItems[nWhere].nIndex := 260;
  7265.             end;
  7266.             d := g_WMain2Images.Images[g_DrawUseItems[nWhere].nIndex];
  7267.             if d <> nil then begin
  7268.               with TDButton(Sender) do
  7269.                 DrawBlend(dsurface, SurfaceX(Left + (Width - d.Width) div 2),
  7270.                   SurfaceY(Top + (Height - d.Height) div 2), d);
  7271.             end;
  7272.           end;

  7274.           if g_UseItems[nWhere].s.AddValue[12] >= 2 then begin
  7275.             if GetTickCount - g_DrawUseItems_[nWhere].dwDrawTick >= 200 then begin
  7276.               g_DrawUseItems_[nWhere].dwDrawTick := GetTickCount;
  7277.               if g_DrawUseItems_[nWhere].nIndex <= 0 then g_DrawUseItems_[nWhere].nIndex := 600 - 1;
  7278.               Inc(g_DrawUseItems_[nWhere].nIndex);
  7279.               if g_DrawUseItems_[nWhere].nIndex > 617 then g_DrawUseItems_[nWhere].nIndex := 600;
  7280.             end;
  7281.             d := g_WMain3Images.Images[g_DrawUseItems_[nWhere].nIndex];
  7282.             if d <> nil then begin
  7283.               with TDButton(Sender) do
  7284.                 DrawBlend(dsurface, SurfaceX(Left + (Width - d.Width) div 2),
  7285.                   SurfaceY(Top + (Height - d.Height) div 2), d);
  7286.             end;
  7287.           end;
  7288.         end;
  7289.       end;
  7290.     end;
  7291.   end;
  7292. end;

  7294. procedure TFrmDlg.DStateWinClick(Sender: TObject; X, Y: Integer);
  7295. begin
  7296.   if StatePage = 3 then begin
  7297.     X := DStateWin.LocalX(X) - DStateWin.Left;
  7298.     Y := DStateWin.LocalY(Y) - DStateWin.Top;
  7299.     if (X >= 33) and (X <= 33 + 166) and (Y >= 55) and (Y <= 55 + 37 * 5) then begin
  7300.       magcur := (Y - 55) div 37;
  7301.       if (magcur + magtop) >= g_MagicList.Count then
  7302.         magcur := (g_MagicList.Count - 1) - magtop;
  7303.     end;
  7304.   end;
  7305. end;

  7307. procedure TFrmDlg.DCloseStateClick(Sender: TObject; X, Y: Integer);
  7308. begin
  7309.   DStateWin.Visible := False;
  7310. end;

  7312. procedure TFrmDlg.DPrevStateDirectPaint(Sender: TObject;
  7313.   dsurface: TTexture);
  7314. var
  7315.   d: TTexture;
  7316. begin
  7317.   with Sender as TDButton do begin
  7318.     if TDButton(Sender).Downed then begin
  7319.       d := nil;
  7320.       if WLib <> nil then
  7321.         d := WLib.Images[FaceIndex];
  7322.       if d <> nil then
  7323.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  7324.     end;
  7325.   end;
  7326. end;

  7328. procedure TFrmDlg.PageChanged;
  7329. begin
  7330.   DScreen.ClearHint;
  7331.   case StatePage of
  7332.     0: begin
  7333.         DSWWeapon.Visible := True;
  7334.         DSWHelmet.Visible := True;
  7335.         DSWArmRingR.Visible := True;
  7336.         DSWRingR.Visible := True;
  7337.         DSWDress.Visible := True;
  7338.         DSWNecklace.Visible := True;
  7339.         DSWLight.Visible := True;
  7340.         DSWArmRingL.Visible := True;
  7341.         DSWRingL.Visible := True;
  7342.         DSWCharm.Visible := True;
  7343.         DSWBoots.Visible := True;
  7344.         DSWBelt.Visible := True;
  7345.         DSWBujuk.Visible := True;

  7347.         DStPageUp.Visible := False;
  7348.         DStPageDown.Visible := False;

  7350.         DStMag1.Visible := False; DStMag2.Visible := False;
  7351.         DStMag3.Visible := False; DStMag4.Visible := False;
  7352.         DStMag5.Visible := False; DStMag6.Visible := False;
  7353.         DStPageUp.Visible := False;
  7354.         DStPageDown.Visible := False;
  7355.       end;
  7356.     2: begin
  7357.         DSWWeapon.Visible := False;
  7358.         DSWHelmet.Visible := False;
  7359.         DSWArmRingR.Visible := False;
  7360.         DSWRingR.Visible := False;
  7361.         DSWDress.Visible := False;
  7362.         DSWNecklace.Visible := False;
  7363.         DSWLight.Visible := False;
  7364.         DSWArmRingL.Visible := False;
  7365.         DSWRingL.Visible := False;
  7366.         DSWCharm.Visible := False;
  7367.         DSWBoots.Visible := False;
  7368.         DSWBelt.Visible := False;
  7369.         DSWBujuk.Visible := False;

  7371.         DStMag1.Visible := False; DStMag2.Visible := False;
  7372.         DStMag3.Visible := False; DStMag4.Visible := False;
  7373.         DStMag5.Visible := False; DStMag6.Visible := False;
  7374.         DStPageUp.Visible := True;
  7375.         DStPageDown.Visible := True;
  7376.         AbilPage := 0;
  7377.       end;

  7379.     3: begin //魔法快捷键
  7380.         DSWWeapon.Visible := False;
  7381.         DSWHelmet.Visible := False;
  7382.         DSWArmRingR.Visible := False;
  7383.         DSWRingR.Visible := False;
  7384.         DSWDress.Visible := False;
  7385.         DSWNecklace.Visible := False;
  7386.         DSWLight.Visible := False;
  7387.         DSWArmRingL.Visible := False;
  7388.         DSWRingL.Visible := False;
  7389.         DSWCharm.Visible := False;
  7390.         DSWBoots.Visible := False;
  7391.         DSWBelt.Visible := False;
  7392.         DSWBujuk.Visible := False;

  7394.         DStMag1.Visible := True; DStMag2.Visible := True;
  7395.         DStMag3.Visible := True; DStMag4.Visible := True;
  7396.         DStMag5.Visible := True; DStMag6.Visible := True;

  7398.         DStPageUp.Visible := True;
  7399.         DStPageDown.Visible := True;
  7400.         MagicPage := 0;
  7401.       end;
  7402.   else begin
  7403.       DSWWeapon.Visible := False;
  7404.       DSWHelmet.Visible := False;
  7405.       DSWArmRingR.Visible := False;
  7406.       DSWRingR.Visible := False;
  7407.       DSWDress.Visible := False;
  7408.       DSWNecklace.Visible := False;
  7409.       DSWLight.Visible := False;
  7410.       DSWArmRingL.Visible := False;
  7411.       DSWRingL.Visible := False;
  7412.       DSWCharm.Visible := False;
  7413.       DSWBoots.Visible := False;
  7414.       DSWBelt.Visible := False;
  7415.       DSWBujuk.Visible := False;

  7417.       DStMag1.Visible := False; DStMag2.Visible := False;
  7418.       DStMag3.Visible := False; DStMag4.Visible := False;
  7419.       DStMag5.Visible := False; DStMag6.Visible := False;
  7420.       DStPageUp.Visible := False;
  7421.       DStPageDown.Visible := False;

  7423.     end;
  7424.   end;
  7425. end;

  7427. {procedure TFrmDlg.PageChanged;
  7428. begin
  7429.   DScreen.ClearHint;
  7430.   case StatePage of
  7431.     3: begin //魔法 惑怕芒
  7432.         DStMag1.Visible := True; DStMag2.Visible := True;
  7433.         DStMag3.Visible := True; DStMag4.Visible := True;
  7434.         DStMag5.Visible := True; DStMag6.Visible := True;
  7435.         DStPageUp.Visible := True;
  7436.         DStPageDown.Visible := True;
  7437.         MagicPage := 0;
  7438.       end;
  7439.   else begin
  7440.       DStMag1.Visible := False; DStMag2.Visible := False;
  7441.       DStMag3.Visible := False; DStMag4.Visible := False;
  7442.       DStMag5.Visible := False; DStMag6.Visible := False;
  7443.       DStPageUp.Visible := False;
  7444.       DStPageDown.Visible := False;
  7445.     end;
  7446.   end;
  7447. end;    }

  7449. procedure TFrmDlg.HeroPageChanged;
  7450. begin
  7451.   DScreen.ClearHint;
  7452.   case HeroStatePage of
  7453.     0: begin
  7454.         DHeroSWWeapon.Visible := True;
  7455.         DHeroSWHelmet.Visible := True;
  7456.         DHeroSWArmRingR.Visible := True;
  7457.         DHeroSWRingR.Visible := True;
  7458.         DHeroSWDress.Visible := True;
  7459.         DHeroSWNecklace.Visible := True;
  7460.         DHeroSWLight.Visible := True;
  7461.         DHeroSWArmRingL.Visible := True;
  7462.         DHeroSWRingL.Visible := True;
  7463.         DHeroSWCharm.Visible := True;
  7464.         DHeroSWBoots.Visible := True;
  7465.         DHeroSWBelt.Visible := True;
  7466.         DHeroSWBujuk.Visible := True;

  7468.         DHeroStPageUp.Visible := False;
  7469.         DHeroStPageDown.Visible := False;

  7471.         DHeroStMag1.Visible := False; DHeroStMag2.Visible := False;
  7472.         DHeroStMag3.Visible := False; DHeroStMag4.Visible := False;
  7473.         DHeroStMag5.Visible := False; DHeroStMag6.Visible := False;
  7474.         DHeroStPageUp.Visible := False;
  7475.         DHeroStPageDown.Visible := False;
  7476.       end;
  7477.     3: begin //魔法快捷键
  7478.         DHeroSWWeapon.Visible := False;
  7479.         DHeroSWHelmet.Visible := False;
  7480.         DHeroSWArmRingR.Visible := False;
  7481.         DHeroSWRingR.Visible := False;
  7482.         DHeroSWDress.Visible := False;
  7483.         DHeroSWNecklace.Visible := False;
  7484.         DHeroSWLight.Visible := False;
  7485.         DHeroSWArmRingL.Visible := False;
  7486.         DHeroSWRingL.Visible := False;
  7487.         DHeroSWCharm.Visible := False;
  7488.         DHeroSWBoots.Visible := False;
  7489.         DHeroSWBelt.Visible := False;
  7490.         DHeroSWBujuk.Visible := False;

  7492.         DHeroStMag1.Visible := True; DHeroStMag2.Visible := True;
  7493.         DHeroStMag3.Visible := True; DHeroStMag4.Visible := True;
  7494.         DHeroStMag5.Visible := True; DHeroStMag6.Visible := True;

  7496.         DHeroStPageUp.Visible := True;
  7497.         DHeroStPageDown.Visible := True;
  7498.         HeroMagicPage := 0;
  7499.       end;
  7500.   else begin
  7501.       DHeroSWWeapon.Visible := False;
  7502.       DHeroSWHelmet.Visible := False;
  7503.       DHeroSWArmRingR.Visible := False;
  7504.       DHeroSWRingR.Visible := False;
  7505.       DHeroSWDress.Visible := False;
  7506.       DHeroSWNecklace.Visible := False;
  7507.       DHeroSWLight.Visible := False;
  7508.       DHeroSWArmRingL.Visible := False;
  7509.       DHeroSWRingL.Visible := False;
  7510.       DHeroSWCharm.Visible := False;
  7511.       DHeroSWBoots.Visible := False;
  7512.       DHeroSWBelt.Visible := False;
  7513.       DHeroSWBujuk.Visible := False;

  7515.       DHeroStMag1.Visible := False; DHeroStMag2.Visible := False;
  7516.       DHeroStMag3.Visible := False; DHeroStMag4.Visible := False;
  7517.       DHeroStMag5.Visible := False; DHeroStMag6.Visible := False;
  7518.       DHeroStPageUp.Visible := False;
  7519.       DHeroStPageDown.Visible := False;
  7520.     end;
  7521.   end;
  7522. end;

  7524. procedure TFrmDlg.DPrevStateClick(Sender: TObject; X, Y: Integer);
  7525. begin
  7526.   Dec(StatePage);
  7527.   if StatePage < 0 then
  7528.     StatePage := MAXSTATEPAGE - 1;
  7529.   PageChanged;
  7530. end;

  7532. procedure TFrmDlg.DNextStateClick(Sender: TObject; X, Y: Integer);
  7533. begin
  7534.   Inc(StatePage);
  7535.   if StatePage > MAXSTATEPAGE - 1 then
  7536.     StatePage := 0;
  7537.   PageChanged;
  7538. end;

  7540. procedure TFrmDlg.DSWWeaponClick(Sender: TObject; X, Y: Integer);
  7541. var
  7542.   where, n, sel: Integer;
  7543.   flag, movcancel: Boolean;
  7544. begin
  7545.   if g_MySelf = nil then Exit;
  7546.   if StatePage <> 0 then Exit;
  7547.   //if (g_btItemMoving = 3) or (g_btItemMoving = 6) then Exit;
  7548.   if (g_MovingItem.Owner = DDealDlg) or (g_MovingItem.Owner = DHeroStateWin) then Exit;
  7549.   if g_boItemMoving then begin
  7550.     flag := False;
  7551.     movcancel := False;
  7552.     if (g_MovingItem.Index = -97) or (g_MovingItem.Index = -98) then Exit;
  7553.     if (g_MovingItem.Item.s.Name = '') or (g_WaitingUseItem.Item.s.Name <> '') then Exit;
  7554.     where := GetTakeOnPosition(g_MovingItem.Item.s.StdMode);
  7555.     if g_MovingItem.Index >= 0 then begin
  7556.       case where of
  7557.         U_DRESS: begin
  7558.             if Sender = DSWDress then begin
  7559.               if g_MySelf.m_btSex = 0 then
  7560.                 if g_MovingItem.Item.s.StdMode <> 10 then
  7561.                   Exit;
  7562.               if g_MySelf.m_btSex = 1 then
  7563.                 if g_MovingItem.Item.s.StdMode <> 11 then
  7564.                   Exit;
  7565.               flag := True;
  7566.             end;
  7567.           end;
  7568.         U_WEAPON: begin
  7569.             if Sender = DSWWeapon then begin
  7570.               flag := True;
  7571.             end;
  7572.           end;
  7573.         U_NECKLACE: begin
  7574.             if Sender = DSWNecklace then
  7575.               flag := True;
  7576.           end;
  7577.         U_RIGHTHAND: begin
  7578.             if Sender = DSWLight then
  7579.               flag := True;
  7580.           end;
  7581.         U_HELMET: begin
  7582.             if Sender = DSWHelmet then
  7583.               flag := True;
  7584.           end;
  7585.         U_RINGR, U_RINGL: begin
  7586.             if Sender = DSWRingL then begin
  7587.               where := U_RINGL;
  7588.               flag := True;
  7589.             end;
  7590.             if Sender = DSWRingR then begin
  7591.               where := U_RINGR;
  7592.               flag := True;
  7593.             end;
  7594.           end;
  7595.         U_ARMRINGR: begin
  7596.             if Sender = DSWArmRingL then begin
  7597.               where := U_ARMRINGL;
  7598.               flag := True;
  7599.             end;
  7600.             if Sender = DSWArmRingR then begin
  7601.               where := U_ARMRINGR;
  7602.               flag := True;
  7603.             end;
  7604.           end;
  7605.         U_ARMRINGL: begin //25
  7606.             if Sender = DSWArmRingL then begin
  7607.               where := U_ARMRINGL;
  7608.               flag := True;
  7609.             end;
  7610.           end;
  7611.         U_BUJUK: begin
  7612.             if Sender = DSWBujuk then begin
  7613.               where := U_BUJUK;
  7614.               flag := True;
  7615.             end;
  7616.             if Sender = DSWArmRingL then begin
  7617.               where := U_ARMRINGL;
  7618.               flag := True;
  7619.             end;
  7620.           end;
  7621.         U_BELT: begin
  7622.             if Sender = DSWBelt then begin
  7623.               where := U_BELT;
  7624.               flag := True;
  7625.             end;
  7626.           end;
  7627.         U_BOOTS: begin
  7628.             if Sender = DSWBoots then begin
  7629.               where := U_BOOTS;
  7630.               flag := True;
  7631.             end;
  7632.           end;
  7633.         U_CHARM: begin
  7634.             if Sender = DSWCharm then begin
  7635.               where := U_CHARM;
  7636.               flag := True;
  7637.             end;
  7638.           end;
  7639.       end;
  7640.     end else begin
  7641.       if (g_MovingItem.Owner = DStateWin) then begin
  7642.         n := -(g_MovingItem.Index + 1);
  7643.         if n in [0..12] then begin
  7644.           ItemClickSound(g_MovingItem.Item.s);
  7645.           g_UseItems[n] := g_MovingItem.Item;
  7646.           g_MovingItem.Item.s.Name := '';
  7647.           g_boItemMoving := False;
  7648.         end;
  7649.       end;
  7650.     end;
  7651.     if flag then begin
  7652.       if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DHeroItemBag) or (g_MovingItem.Owner = DUpgrade) then begin
  7653.         ItemClickSound(g_MovingItem.Item.s);
  7654.         g_WaitingUseItem := g_MovingItem;
  7655.         g_WaitingUseItem.Index := where;
  7656.         if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DUpgrade) then begin
  7657.           frmMain.SendTakeOnItem(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  7658.         end else
  7659.           if (g_MovingItem.Owner = DHeroItemBag) then begin
  7660.           frmMain.SendTakeOnItemFromHeroBag(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  7661.         end;
  7662.         g_MovingItem.Item.s.Name := '';
  7663.         g_boItemMoving := False;
  7664.       end;
  7665.     end;
  7666.   end else begin
  7667.     ClearMoveRect();
  7668.     flag := False;
  7669.     if (g_MovingItem.Item.s.Name <> '') or (g_WaitingUseItem.Item.s.Name <> '') then Exit;
  7670.     sel := -1;
  7671.     if Sender = DSWDress then sel := U_DRESS;
  7672.     if Sender = DSWWeapon then sel := U_WEAPON;
  7673.     if Sender = DSWHelmet then sel := U_HELMET;
  7674.     if Sender = DSWNecklace then sel := U_NECKLACE;
  7675.     if Sender = DSWLight then sel := U_RIGHTHAND;
  7676.     if Sender = DSWRingL then sel := U_RINGL;
  7677.     if Sender = DSWRingR then sel := U_RINGR;
  7678.     if Sender = DSWArmRingL then sel := U_ARMRINGL;
  7679.     if Sender = DSWArmRingR then sel := U_ARMRINGR;

  7681.     if Sender = DSWBujuk then sel := U_BUJUK;
  7682.     if Sender = DSWBelt then sel := U_BELT;
  7683.     if Sender = DSWBoots then sel := U_BOOTS;
  7684.     if Sender = DSWCharm then sel := U_CHARM;

  7686.     if sel >= 0 then begin
  7687.       if g_UseItems[sel].s.Name <> '' then begin
  7688.         ItemClickSound(g_UseItems[sel].s);
  7689.         g_MovingItem.Index := -(sel + 1);
  7690.         g_MovingItem.Item := g_UseItems[sel];
  7691.         g_UseItems[sel].s.Name := '';
  7692.         g_boItemMoving := True;
  7693.         g_MovingItem.Owner := DStateWin;
  7694.       end;
  7695.     end;
  7696.   end;
  7697. end;

  7699. procedure TFrmDlg.DSWWeaponMouseMove(Sender: TObject; Shift: TShiftState;
  7700.   X, Y: Integer);
  7701. var
  7702.   nLocalX, nLocalY: Integer;
  7703.   nHintX, nHintY: Integer;
  7704.   sel: Integer;
  7705.   iname, d1, d2, d3: string;
  7706.   useable: Boolean;
  7707.   hcolor: TColor;
  7708.   Butt: TDButton;
  7709. begin
  7710.   if StatePage <> 0 then Exit;
  7711.   DScreen.ClearHint;
  7712.   sel := -1;
  7713.   Butt := TDButton(Sender);
  7714.   if Sender = DSWDress then sel := U_DRESS;
  7715.   if Sender = DSWWeapon then sel := U_WEAPON;
  7716.   if Sender = DSWHelmet then sel := U_HELMET;
  7717.   if Sender = DSWNecklace then sel := U_NECKLACE;
  7718.   if Sender = DSWLight then sel := U_RIGHTHAND;
  7719.   if Sender = DSWRingL then sel := U_RINGL;
  7720.   if Sender = DSWRingR then sel := U_RINGR;
  7721.   if Sender = DSWArmRingL then sel := U_ARMRINGL;
  7722.   if Sender = DSWArmRingR then sel := U_ARMRINGR;
  7723.   {
  7724.   if Sender = DSWBujuk then sel := U_RINGL;
  7725.   if Sender = DSWBelt then sel := U_RINGR;
  7726.   if Sender = DSWBoots then sel := U_ARMRINGL;
  7727.   if Sender = DSWCharm then sel := U_ARMRINGR;
  7728.   }

  7730.   if Sender = DSWBujuk then sel := U_BUJUK;
  7731.   if Sender = DSWBelt then sel := U_BELT;
  7732.   if Sender = DSWBoots then sel := U_BOOTS;
  7733.   if Sender = DSWCharm then sel := U_CHARM;

  7735.   g_MoveRect := TDButton(Sender).ClientRect;
  7736.   g_MoveRect.Right := TDButton(Sender).ClientRect.Right + 2;
  7737.   if sel >= 0 then begin
  7738.     g_MouseStateItem := g_UseItems[sel];
  7739.       //原为注释掉 显示人物身上带的物品信息
  7740.     if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  7741.       g_MouseItem := g_UseItems[sel];

  7743.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  7744.       if HintList.Count > 0 then begin
  7745.         with Sender as TDButton do
  7746.           DScreen.ShowHint(SurfaceX(Left - 30),
  7747.             SurfaceY(Top + 50),
  7748.             HintList, False);
  7749.       end;
  7750.       g_MouseItem.s.Name := '';
  7751.     end;
  7752.   end else ClearMoveRect();
  7753. end;

  7755. procedure TFrmDlg.DStateWinMouseMove(Sender: TObject; Shift: TShiftState;
  7756.   X, Y: Integer);
  7757. begin
  7758.   DScreen.ClearHint;//清楚提示
  7759.   HintList.Clear;//清除提示
  7760.   g_MouseStateItem.s.Name := ''; //鼠标状态物品
  7761.   g_MouseHeroItem.s.Name := '';  //鼠标英雄物品
  7762. end;

  7764. procedure TFrmDlg.DStMag1DirectPaint(Sender: TObject;
  7765.   dsurface: TTexture);
  7766. var
  7767.   Idx, icon: Integer;
  7768.   d: TTexture;
  7769.   pm: PTClientMagic;
  7770. begin
  7771.   //DScreen.ClearHint;
  7772.   with Sender as TDButton do begin
  7773.     Idx := _MAX(tag + MagicPage * 6, 0);
  7774.     if Idx < g_MagicList.Count then begin
  7775.       pm := PTClientMagic(g_MagicList[Idx]);
  7776.       icon := pm.Def.btEffect * 2;
  7777.       if pm.Def.btEffect = 50 then icon := 84;
  7778.       //if pm.Def.btEffect = 51 then icon := 94;

  7780.       if pm.Def.btEffect = 70 then icon := 1 * 2;
  7781.       if pm.Def.btEffect = 71 then icon := 3 * 2;
  7782.       if pm.Def.btEffect = 72 then icon := 10 * 2;

  7784.       if pm.Level >= 4 then begin
  7785.         case pm.Def.wMagicId of
  7786.           13: icon := 140;
  7787.           26: icon := 142;
  7788.           31: icon := 104;
  7789.           45: icon := 144;
  7790.         end;
  7791.       end;

  7793.       if icon >= 0 then begin
  7794.         if not Downed then begin
  7795.           d := g_WMagIconImages.Images[icon];
  7796.           if d <> nil then
  7797.             dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  7798.         end else begin
  7799.           d := g_WMagIconImages.Images[icon + 1];
  7800.           if d <> nil then
  7801.             dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  7802.         end;
  7803.       end;
  7804.     end;
  7805.   end;
  7806. end;

  7808. procedure TFrmDlg.DStMag1Click(Sender: TObject; X, Y: Integer);
  7809. var
  7810.   I, Idx: Integer;
  7811.   selkey: Word;
  7812.   keych: Char;
  7813.   pm: PTClientMagic;
  7814. begin
  7815.   if StatePage = 3 then begin
  7816.     Idx := TDButton(Sender).tag + magtop;
  7817.     if (Idx >= 0) and (Idx < g_MagicList.Count) then begin
  7818.       pm := PTClientMagic(g_MagicList[Idx]);
  7819.       selkey := Word(pm.Key);
  7820.       SetMagicKeyDlg(pm.Def.btEffect * 2, pm.Def.sMagicName, selkey);
  7821.       keych := Char(selkey);
  7822.       for I := 0 to g_MagicList.Count - 1 do begin
  7823.         pm := PTClientMagic(g_MagicList[I]);
  7824.         if pm.Key = keych then begin
  7825.           pm.Key := #0;
  7826.           frmMain.SendMagicKeyChange(pm.Def.wMagicId, #0);
  7827.         end;
  7828.       end;
  7829.       pm := PTClientMagic(g_MagicList[Idx]);
  7830.       //if pm.Def.EffectType <> 0 then begin //八过篮 虐汲沥阑 给窃.
  7831.       pm.Key := keych;
  7832.       frmMain.SendMagicKeyChange(pm.Def.wMagicId, keych);
  7833.       //end;
  7834.     end;
  7835.   end;
  7836. end;

  7838. procedure TFrmDlg.DStPageUpClick(Sender: TObject; X, Y: Integer);
  7839. begin
  7840.   if StatePage = 2 then begin
  7841.     if Sender = DStPageUp then begin
  7842.       AbilPage := 0;
  7843.     end else begin
  7844.       AbilPage := 1;
  7845.     end;
  7846.   end else begin
  7847.     if Sender = DStPageUp then begin
  7848.       if MagicPage > 0 then
  7849.         Dec(MagicPage);
  7850.     end else begin
  7851.       if MagicPage < (g_MagicList.Count + 5) div 6 - 1 then
  7852.         Inc(MagicPage);
  7853.     end;
  7854.   end;
  7855. end;
  7856. {------------------------------------------------------------------------}

  7858. {------------------------------------------------------------------------}


  7861. procedure TFrmDlg.DBottomDirectPaint(Sender: TObject;
  7862.   dsurface: TTexture);
  7863. var
  7864.   d: TTexture;
  7865.   rc: TRect;
  7866.   btop, sx, sY, I, FColor, BColor: Integer;
  7867.   r: Real;
  7868.   Str: string;
  7869. begin
  7870.   if g_ConfigClient.btMainInterface in [0, 2] then begin
  7871. //{$IF SWH = SWH800}
  7872.     d := g_WMain3Images.Images[BOTTOMBOARD800];
  7873. //{$ELSEIF SWH = SWH1024}
  7874. //    d := g_WMain3Images.Images[BOTTOMBOARD800];
  7875. //{$IFEND}
  7876.     btop := 0;
  7877.     if d <> nil then begin
  7878.       dsurface.Draw(DBottom.Left, DBottom.Top, d.ClientRect, d, True);

  7880.       btop := SCREENHEIGHT - d.Height;
  7881.     end;
  7882.    { if d <> nil then begin
  7883.       with d.ClientRect do
  7884.         rc := Rect(Left, Top, Right, Top + 120);
  7885.       btop := SCREENHEIGHT - d.Height;

  7887.       dsurface.Draw(0,
  7888.         btop,
  7889.         rc,
  7890.         d, True);

  7892.       with d.ClientRect do
  7893.         rc := Rect(Left, Top + 120, Right, Bottom);
  7894.       dsurface.Draw(0,
  7895.         btop + 120,
  7896.         rc,
  7897.         d, False);
  7898.     end;  }

  7900.     d := nil;
  7901.     case g_nDayBright of
  7902.       0: d := g_WMainImages.Images[15]; //早上
  7903.       1: d := g_WMainImages.Images[12]; //白天
  7904.       2: d := g_WMainImages.Images[13]; //傍晚
  7905.       3: d := g_WMainImages.Images[14]; //晚上
  7906.     end;
  7907.     if d <> nil then
  7908.       dsurface.Draw(DBottom.Left + DBottom.Width div 2 + (DBottom.Width div 2 - (400 - 348)) {748}, 79 + DBottom.Top, d.ClientRect, d, False);

  7910.     if g_MyHero <> nil then begin
  7911.       if g_HeroUseItems[U_BUJUK].s.Name <> '' then begin
  7912.         if (g_HeroUseItems[U_BUJUK].s.StdMode = 25) and (g_HeroUseItems[U_BUJUK].s.Shape = 9) then begin
  7913.           DFirDragon.Visible := True;
  7914.         end else DFirDragon.Visible := False;
  7915.       end else DFirDragon.Visible := False;
  7916.     end else DFirDragon.Visible := False;

  7918.     if g_MySelf <> nil then begin
  7919.     //显示HP及MP 图形
  7920.       if (g_MySelf.m_Abil.MaxHP > 0) and (g_MySelf.m_Abil.MaxMP > 0) then begin
  7921.         if (g_MySelf.m_btJob = 0) and (g_MySelf.m_Abil.Level < 28) then begin //武士
  7922.           d := g_WMainImages.Images[5];
  7923.           if d <> nil then begin
  7924.             rc := d.ClientRect;
  7925.             rc.Right := d.ClientRect.Right - 2;
  7926.             dsurface.Draw(DBottom.Left + 38, btop + 90, rc, d, False);
  7927.           end;
  7928.           d := g_WMainImages.Images[6];
  7929.           if d <> nil then begin
  7930.             rc := d.ClientRect;
  7931.             rc.Right := d.ClientRect.Right - 2;
  7932.             rc.Top := Round(rc.Bottom / g_MySelf.m_Abil.MaxHP * (g_MySelf.m_Abil.MaxHP - g_MySelf.m_Abil.HP));
  7933.             dsurface.Draw(DBottom.Left + 38, btop + 90 + rc.Top, rc, d, False);
  7934.           end;
  7935.         end else begin
  7936.           d := g_WMainImages.Images[4];
  7937.           if d <> nil then begin
  7938.           //HP 图形
  7939.             rc := d.ClientRect;
  7940.             rc.Right := d.ClientRect.Right div 2 - 1;
  7941.             rc.Top := Round(rc.Bottom / g_MySelf.m_Abil.MaxHP * (g_MySelf.m_Abil.MaxHP - g_MySelf.m_Abil.HP));
  7942.             dsurface.Draw(DBottom.Left + 40, btop + 91 + rc.Top, rc, d, False);
  7943.           //MP 图形
  7944.             rc := d.ClientRect;
  7945.             rc.Left := d.ClientRect.Right div 2 + 1;
  7946.             rc.Right := d.ClientRect.Right - 1;
  7947.             rc.Top := Round(rc.Bottom / g_MySelf.m_Abil.MaxMP * (g_MySelf.m_Abil.MaxMP - g_MySelf.m_Abil.MP));
  7948.             dsurface.Draw(DBottom.Left + 40 + rc.Left, btop + 91 + rc.Top, rc, d, False);
  7949.           end;
  7950.         end;
  7951.       end;

  7953.     //等级
  7954.       with dsurface do begin
  7955.         PomiTextOut(dsurface, DBottom.Left + 660, SCREENHEIGHT - 104, IntToStr(g_MySelf.m_Abil.Level));
  7956.       end;
  7957.     //
  7958.       if (g_MySelf.m_Abil.MaxExp > 0) and (g_MySelf.m_Abil.MaxWeight > 0) then begin
  7959.         d := g_WMainImages.Images[7];
  7960.         if d <> nil then begin
  7961.         //经验条
  7962.           rc := d.ClientRect;
  7963.           if g_MySelf.m_Abil.Exp > 0 then r := g_MySelf.m_Abil.MaxExp / g_MySelf.m_Abil.Exp
  7964.           else r := 0;
  7965.           if r > 0 then rc.Right := Round(rc.Right / r)
  7966.           else rc.Right := 0;
  7967.         {
  7968.         dsurface.Draw (666, 527, rc, d, FALSE);
  7969.         PomiTextOut (dsurface, 660, 528, IntToStr(Myself.Abil.Exp));
  7970.         }
  7971.           dsurface.Draw(DBottom.Left + 666, SCREENHEIGHT - 73, rc, d, False);
  7972.         //PomiTextOut (dsurface, SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 260)){660}, SCREENHEIGHT - 72, FloatToStrFixFmt (100 * g_MySelf.m_Abil.Exp / g_MySelf.m_Abil.MaxExp, 3, 2) + '%');
  7973.         //PomiTextOut (dsurface, SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 260)){660}, SCREENHEIGHT - 57, IntToStr(g_MySelf.m_Abil.MaxExp));

  7975.         //背包重量条
  7976.           rc := d.ClientRect;
  7977.           if g_MySelf.m_Abil.Weight > 0 then r := g_MySelf.m_Abil.MaxWeight / g_MySelf.m_Abil.Weight
  7978.           else r := 0;
  7979.           if r > 0 then rc.Right := Round(rc.Right / r)
  7980.           else rc.Right := 0;
  7981.         {
  7982.         dsurface.Draw (666, 560, rc, d, FALSE);
  7983.         PomiTextOut (dsurface, 660, 561, IntToStr(Myself.Abil.Weight));
  7984.         }
  7985.           dsurface.Draw(DBottom.Left + 666, SCREENHEIGHT - 40, rc, d, False);
  7986.         //PomiTextOut (dsurface, SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 260)){660}, SCREENHEIGHT - 39, IntToStr(g_MySelf.m_Abil.Weight) + '/' + IntToStr(g_MySelf.m_Abil.MaxWeight));
  7987.         //PomiTextOut (dsurface, SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 260)){660}, SCREENHEIGHT - 24, IntToStr(g_MySelf.m_Abil.MaxWeight));
  7988.         end;
  7989.       end;
  7990.     //PomiTextOut (dsurface, SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 355)){755}, SCREENHEIGHT - 15, IntToStr(g_nMyHungryState));
  7991.     //饥饿程度
  7992.       if g_nMyHungryState in [1..4] then begin
  7993.         d := g_WMainImages.Images[16 + g_nMyHungryState - 1];
  7994.         if d <> nil then begin
  7995.           dsurface.Draw(DBottom.Left + 754, 553, d.ClientRect, d, True);
  7996.         end;
  7997.       end;
  7998.     end;

  8000.   end else begin
  8001.     d := g_WCqFirImages.Images[65];
  8002.     if d <> nil then begin
  8003.       dsurface.Draw(DBottom.Left, DBottom.Top, d.ClientRect, d, False);
  8004.       btop := SCREENHEIGHT - d.Height;
  8005.     end;

  8007.     {if d <> nil then begin
  8008.       with d.ClientRect do
  8009.         rc := Rect(Left, Top, Right, Top + 120);
  8010.       btop := SCREENHEIGHT - d.Height;
  8011.       dsurface.Draw(0,
  8012.         btop,
  8013.         rc,
  8014.         d, True);
  8015.       with d.ClientRect do
  8016.         rc := Rect(Left, Top + 120, Right, Bottom);
  8017.       dsurface.Draw(0,
  8018.         btop + 120,
  8019.         rc,
  8020.         d, False);
  8021.     end;}

  8023.     d := nil;
  8024.     {case g_nDayBright of
  8025.       0: d := g_WMainImages.Images[15]; //早上
  8026.       1: d := g_WMainImages.Images[12]; //白天
  8027.       2: d := g_WMainImages.Images[13]; //傍晚
  8028.       3: d := g_WMainImages.Images[14]; //晚上
  8029.     end;
  8030.     if d <> nil then
  8031.       dsurface.Draw(SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 348)), 79 + DBottom.Top, d.ClientRect, d, False);

  8033.     if g_MyHero <> nil then begin
  8034.       if g_HeroUseItems[U_BUJUK].s.Name <> '' then begin
  8035.         if (g_HeroUseItems[U_BUJUK].s.StdMode = 25) and (g_HeroUseItems[U_BUJUK].s.Shape = 9) then begin
  8036.           DFirDragon.Visible := True;
  8037.         end else DFirDragon.Visible := False;
  8038.       end else DFirDragon.Visible := False;
  8039.     end else DFirDragon.Visible := False;
  8040.     }


  8043.     if g_MySelf <> nil then begin
  8044.     //显示HP及MP 图形
  8045.       if (g_MySelf.m_Abil.MaxHP > 0) and (g_MySelf.m_Abil.MaxMP > 0) then begin
  8046.         if (g_MySelf.m_btJob = 0) and (g_MySelf.m_Abil.Level < 28) then begin //武士

  8048.           d := g_WCqFirImages.Images[74];
  8049.           if d <> nil then begin
  8050.             rc := d.ClientRect;
  8051.             rc.Right := Round(rc.Right / g_MySelf.m_Abil.MaxHP * g_MySelf.m_Abil.HP);
  8052.             dsurface.Draw(DBottom.Left + 3, btop, rc, d, False);
  8053.           end;
  8054.         end else begin
  8055.           d := g_WCqFirImages.Images[74];
  8056.           if d <> nil then begin
  8057.           //HP 图形
  8058.             rc := d.ClientRect;
  8059.             rc.Right := Round(rc.Right / g_MySelf.m_Abil.MaxHP * g_MySelf.m_Abil.HP);
  8060.             dsurface.Draw(DBottom.Left + 3, btop, rc, d, False);
  8061.           end;
  8062.           d := g_WCqFirImages.Images[73];
  8063.           if d <> nil then begin
  8064.           //MP 图形
  8065.             rc := d.ClientRect;
  8066.             rc.Right := Round(rc.Right / g_MySelf.m_Abil.MaxMP * g_MySelf.m_Abil.MP);
  8067.             dsurface.Draw(DBottom.Left + 3, btop + 3 + rc.Bottom, rc, d, False);
  8068.           end;
  8069.         end;
  8070.       end;
  8071.     //
  8072.       if (g_MySelf.m_Abil.MaxExp > 0) { and (g_MySelf.m_Abil.MaxWeight > 0)} then begin
  8073.         d := g_WCqFirImages.Images[75];
  8074.         if d <> nil then begin
  8075.         //经验条
  8076.           rc := d.ClientRect;
  8077.           {
  8078.           if g_MySelf.m_Abil.Exp > 0 then r := g_MySelf.m_Abil.MaxExp / g_MySelf.m_Abil.Exp
  8079.           else r := 0;
  8080.           if r > 0 then rc.Right := Round(rc.Right / r)
  8081.           else rc.Right := 0;
  8082.           }
  8083.           rc.Right := Round(rc.Right / g_MySelf.m_Abil.MaxExp * g_MySelf.m_Abil.Exp);


  8086.           //dsurface.Draw(DBottom.Left + 2, btop + 1, rc, d, False);
  8087.           dsurface.Draw(DBottom.Left + 2, SCREENHEIGHT - d.Height - 3, rc, d, False);
  8088.          {
  8089.         //背包重量条
  8090.           rc := d.ClientRect;
  8091.           if g_MySelf.m_Abil.Weight > 0 then r := g_MySelf.m_Abil.MaxWeight / g_MySelf.m_Abil.Weight
  8092.           else r := 0;
  8093.           if r > 0 then rc.Right := Round(rc.Right / r)
  8094.           else rc.Right := 0;
  8095.           dsurface.Draw(SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 266)), SCREENHEIGHT - 40, rc, d, False);
  8096.           }
  8097.         end;
  8098.       end;
  8099.     //等级
  8100.       //PomiTextOut(dsurface, 48, btop + 32, IntToStr(g_MySelf.m_Abil.Level));
  8101.       with dsurface do begin
  8102.         BoldTextOut(DBottom.Left + 174, btop + 3, IntToStr(g_MySelf.m_Abil.Level));
  8103.         BoldTextOut(DBottom.Left + 174, btop + 21, GetJobName(g_MySelf.m_btJob));

  8105.         if g_boShowWhiteHint then begin

  8107.           if g_MySelf.m_nGameGold > 10 then begin
  8108.             BoldTextOut(DBottom.Left + 720, SCREENHEIGHT - DBottom.Height + 4, IntToStr(g_MySelf.m_nGameGold));
  8109.           end else begin
  8110.             BoldTextOut(DBottom.Left + 720, SCREENHEIGHT - DBottom.Height + 4, IntToStr(g_MySelf.m_nGameGold), clRed);
  8111.           end;
  8112.           if g_MySelf.m_nGamePoint > 10 then begin
  8113.             BoldTextOut(DBottom.Left + 720, SCREENHEIGHT - DBottom.Height + 21, IntToStr(g_MySelf.m_nGamePoint));
  8114.           end else begin
  8115.             BoldTextOut(DBottom.Left + 720, SCREENHEIGHT - DBottom.Height + 21, IntToStr(g_MySelf.m_nGamePoint), clRed);
  8116.           end;

  8118.           //显示血
  8119.           Str := Format('%d/%d', [g_MySelf.m_Abil.HP, g_MySelf.m_Abil.MaxHP]);
  8120.           BoldTextOut(DBottom.Left + 2 + (140 - TextWidth(Str)) div 2, SCREENHEIGHT - DBottom.Height + 3, Str);

  8122.           //显示魔
  8123.           Str := Format('%d/%d', [g_MySelf.m_Abil.MP, g_MySelf.m_Abil.MaxMP]);
  8124.           BoldTextOut(DBottom.Left + 2 + (140 - TextWidth(Str)) div 2, SCREENHEIGHT - DBottom.Height + 21, Str);
  8125.         end;
  8126.       end;
  8127.     //PomiTextOut (dsurface, SCREENWIDTH div 2 + (SCREENWIDTH div 2 - (400 - 355)){755}, SCREENHEIGHT - 15, IntToStr(g_nMyHungryState));
  8128.     //饥饿程度
  8129.     end;
  8130.   end;
  8131. end;

  8133. {--------------------------------------------------------------}

  8135. procedure TFrmDlg.DBottomInRealArea(Sender: TObject; X, Y: Integer;
  8136.   var IsRealArea: Boolean);
  8137. var
  8138.   d: TTexture;
  8139. begin
  8140.   if g_ConfigClient.btMainInterface in [0, 2] then begin
  8141. //{$IF SWH = SWH800}
  8142.     d := g_WMain3Images.Images[BOTTOMBOARD800];
  8143. //{$ELSEIF SWH = SWH1024}
  8144. //    d := g_WMain3Images.Images[BOTTOMBOARD800];
  8145. //{$IFEND}
  8146.   end else begin
  8147.     d := g_WCqFirImages.Images[65];
  8148.   end;
  8149.   if d <> nil then begin
  8150.     if d.Pixels[X, Y] > 0 then IsRealArea := True
  8151.     else IsRealArea := False;
  8152.   end;
  8153. end;

  8155. procedure TFrmDlg.DMyStateDirectPaint(Sender: TObject;
  8156.   dsurface: TTexture);
  8157. var
  8158.   d: TDButton;
  8159.   dd: TTexture;
  8160. begin
  8161.   if Sender is TDButton then begin
  8162.     d := TDButton(Sender);
  8163.     if d.Downed then begin
  8164.       dd := nil;
  8165.       if d.WLib <> nil then
  8166.         dd := d.WLib.Images[d.FaceIndex];
  8167.       if dd <> nil then
  8168.         dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  8169.     end;
  8170.   end;
  8171. end;

  8173. procedure TFrmDlg.DBotGroupDirectPaint(Sender: TObject;
  8174.   dsurface: TTexture);
  8175. var
  8176.   d: TDButton;
  8177.   dd: TTexture;
  8178. begin
  8179.   if Sender is TDButton then begin
  8180.     d := TDButton(Sender);
  8181.     if d <> nil then begin
  8182.       if not d.Downed then begin
  8183.         dd := nil;
  8184.         if d.WLib <> nil then
  8185.           dd := d.WLib.Images[d.FaceIndex];
  8186.         if dd <> nil then
  8187.           dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  8188.       end else begin
  8189.         dd := nil;
  8190.         if d.WLib <> nil then
  8191.           dd := d.WLib.Images[d.FaceIndex + 1];
  8192.         if dd <> nil then
  8193.           dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  8194.       end;
  8195.     end;
  8196.   end;
  8197. end;

  8199. procedure TFrmDlg.DBotPlusAbilDirectPaint(Sender: TObject;
  8200.   dsurface: TTexture);
  8201. var
  8202.   d: TDButton;
  8203.   dd: TTexture;
  8204. begin
  8205.   if Sender is TDButton then begin
  8206.     dd := nil;
  8207.     d := TDButton(Sender);
  8208.     if g_ConfigClient.btMainInterface in [0, 2] then begin

  8210.       if g_nBonusPoint > 0 then begin
  8211.         case BlinkCount of
  8212.           0: dd := d.WLib.Images[218];
  8213.           1: dd := d.WLib.Images[219];
  8214.           2: dd := d.WLib.Images[220];
  8215.           3: dd := d.WLib.Images[221];
  8216.         end;
  8217.       end else begin
  8218.         dd := d.WLib.Images[222];
  8219.       end;
  8220.       if dd <> nil then
  8221.         dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);

  8223.       if GetTickCount - BlinkTime >= 40 then begin
  8224.         BlinkTime := GetTickCount;
  8225.         Inc(BlinkCount);
  8226.         if BlinkCount >= 3 then BlinkCount := 0;
  8227.       end;
  8228.     end else begin

  8230.       if not d.Downed then begin
  8231.         if ((BlinkCount mod 2 = 0) or DAdjustAbility.Visible) and (d.WLib <> nil) then dd := d.WLib.Images[150]
  8232.         else if (d.WLib <> nil) then dd := d.WLib.Images[151];
  8233.         if dd <> nil then
  8234.           dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  8235.       end else begin
  8236.         dd := nil;
  8237.         if d.WLib <> nil then
  8238.           dd := d.WLib.Images[d.FaceIndex + 1];
  8239.         if dd <> nil then
  8240.           dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  8241.       end;

  8243.       if GetTickCount - BlinkTime >= 500 then begin
  8244.         BlinkTime := GetTickCount;
  8245.         Inc(BlinkCount);
  8246.         if BlinkCount >= 10 then BlinkCount := 0;
  8247.       end;
  8248.     end;
  8249.   end;
  8250. end;

  8252. procedure TFrmDlg.DMyStateClick(Sender: TObject; X, Y: Integer);
  8253. begin
  8254.   if Sender = DMyState then begin
  8255.     StatePage := 0;
  8256.     OpenMyStatus;
  8257.   end;
  8258.   if Sender = DMyBag then OpenItemBag;
  8259.   if Sender = DMyMagic then begin
  8260.     StatePage := 3;
  8261.     OpenMyStatus;
  8262.   end;
  8263.   if Sender = DVoice then DSoundClick;
  8264. end;

  8266. procedure TFrmDlg.DSoundClick();
  8267. begin
  8268.   g_boSound := not g_boSound;
  8269.   if g_boSound then begin
  8270.     DScreen.AddChatBoardString('[打开声音]', clWhite, clblack);
  8271.   end else begin
  8272.     DScreen.AddChatBoardString('[关闭声音]', clWhite, clblack);
  8273.     MediaStopPlay('');
  8274.   end;
  8275. end;
  8276. procedure TFrmDlg.DSPage1MouseDown(Sender: TObject; Button: TMouseButton;
  8277.   Shift: TShiftState; X, Y: Integer);
  8278. begin
  8279.     StatePage := 0;
  8280.     PageChanged;
  8281. end;

  8283. procedure TFrmDlg.DSPage2MouseDown(Sender: TObject; Button: TMouseButton;
  8284.   Shift: TShiftState; X, Y: Integer);
  8285. begin
  8286.     StatePage := 1;
  8287.     PageChanged;
  8288. end;

  8290. procedure TFrmDlg.DSPage3MouseDown(Sender: TObject; Button: TMouseButton;
  8291.   Shift: TShiftState; X, Y: Integer);
  8292. begin
  8293.     StatePage := 2;
  8294.     PageChanged;
  8295. end;

  8297. procedure TFrmDlg.DSPage4MouseDown(Sender: TObject; Button: TMouseButton;
  8298.   Shift: TShiftState; X, Y: Integer);
  8299. begin
  8300.     StatePage := 3;
  8301.     PageChanged;
  8302. end;

  8304. {------------------------------------------------------------------------}

  8306. {------------------------------------------------------------------------}

  8308. procedure TFrmDlg.DBelt1DirectPaint(Sender: TObject;
  8309.   dsurface: TTexture);
  8310. var
  8311.   Idx: Integer;
  8312.   d: TTexture;
  8313. begin
  8314.   with Sender as TDButton do begin
  8315.     Idx := tag;
  8316.     if Idx in [0..5] then begin
  8317.       if g_ItemArr[Idx].s.Name <> '' then begin
  8318.         d := g_WBagItemImages.Images[g_ItemArr[Idx].s.looks];
  8319.         if d <> nil then
  8320.           dsurface.Draw(SurfaceX(Left + (Width - d.Width) div 2), SurfaceY(Top + (Height - d.Height) div 2), d.ClientRect, d, True);
  8321.       end;
  8322.     end;
  8323.     if g_ConfigClient.btMainInterface in [0, 2] then
  8324.       PomiTextOut(dsurface, SurfaceX(Left + 13), SurfaceY(Top + 19), IntToStr(Idx + 1));
  8325.   end;
  8326. end;

  8328. procedure TFrmDlg.DBelt1MouseMove(Sender: TObject; Shift: TShiftState; X,
  8329.   Y: Integer);
  8330. var
  8331.   Idx: Integer;
  8332.   iname, d1, d2, d3: string;
  8333.   useable: Boolean;
  8334. begin
  8335.   DScreen.ClearHint;
  8336.   Idx := TDButton(Sender).tag;
  8337.   if Idx in [0..5] then begin
  8338.     if g_ItemArr[Idx].s.Name <> '' then begin
  8339.       g_MouseItem := g_ItemArr[Idx];
  8340.       //原为注释掉 显示人物身上带的物品信息
  8341.       //
  8342.       if (g_ServerConfig.btShowClientItemStyle = 0) or (not DItemBag.Visible) then begin
  8343.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  8344.         if HintList.Count > 0 then begin
  8345.          //DScreen.AddChatBoardString('TFrmDlg.DBelt1MouseMove', clWhite, clPurple);
  8346.           with Sender as TDButton do
  8347.             DScreen.ShowHint(SurfaceX(Left - 30),
  8348.               SurfaceY(Top - HintList.Count * 14) - 20,
  8349.               HintList, False);
  8350.         end;
  8351.       end;
  8352.       //g_MouseItem.S.Name := '';
  8353.     end;
  8354.     g_MoveRect := TDButton(Sender).ClientRect;
  8355.     g_MoveRect.Right := g_MoveRect.Right + 2;
  8356.   end else ClearMoveRect();
  8357. end;

  8359. procedure TFrmDlg.DBelt1Click(Sender: TObject; X, Y: Integer);
  8360. var
  8361.   Idx: Integer;
  8362.   temp: TClientItem;
  8363. begin
  8364.   Idx := TDButton(Sender).tag;
  8365.   if Idx in [0..5] then begin
  8366.     if not g_boItemMoving then begin
  8367.       ClearMoveRect();
  8368.       if g_ItemArr[Idx].s.Name <> '' then begin
  8369.         ItemClickSound(g_ItemArr[Idx].s);
  8370.         g_boItemMoving := True;
  8371.         g_MovingItem.Index := Idx;
  8372.         g_MovingItem.Item := g_ItemArr[Idx];
  8373.         g_ItemArr[Idx].s.Name := '';
  8374.         g_MovingItem.Owner := DItemBag;
  8375.       end;
  8376.     end else begin
  8377.       if (g_MovingItem.Owner = DStateWin) or (g_MovingItem.Owner = DHeroStateWin) or (g_MovingItem.Owner = DHeroItemBag) or (g_MovingItem.Owner = DDealDlg) or (g_MovingItem.Owner = DUpgrade) then Exit;
  8378.       if (g_MovingItem.Index = -97) or (g_MovingItem.Index = -98) then Exit;
  8379.       if g_MovingItem.Item.s.StdMode <= 3 then begin //器记,澜侥,胶农费
  8380.         //ItemClickSound (MovingItem.Item.S.StdMode);
  8381.         if g_ItemArr[Idx].s.Name <> '' then begin
  8382.           temp := g_ItemArr[Idx];
  8383.           g_ItemArr[Idx] := g_MovingItem.Item;
  8384.           g_MovingItem.Index := Idx;
  8385.           g_MovingItem.Item := temp
  8386.         end else begin
  8387.           g_ItemArr[Idx] := g_MovingItem.Item;
  8388.           g_MovingItem.Item.s.Name := '';
  8389.           g_boItemMoving := False;
  8390.         end;
  8391.       end;
  8392.     end;
  8393.   end;
  8394. end;

  8396. procedure TFrmDlg.DBelt1DblClick(Sender: TObject);
  8397. var
  8398.   Idx: Integer;
  8399. begin
  8400.   Idx := TDButton(Sender).tag;
  8401.   if Idx in [0..5] then begin
  8402.     if g_ItemArr[Idx].s.Name <> '' then begin
  8403.       if (g_ItemArr[Idx].s.StdMode <= 4) or (g_ItemArr[Idx].s.StdMode = 31) then begin //荤侩且 荐 乐绰 酒捞袍
  8404.         frmMain.EatItem(Idx);
  8405.       end;
  8406.     end else begin
  8407.       if g_boItemMoving and (g_MovingItem.Index = Idx) and
  8408.         (g_MovingItem.Item.s.StdMode <= 4) or (g_MovingItem.Item.s.StdMode = 31)
  8409.         then begin
  8410.         frmMain.EatItem(-1);
  8411.       end;
  8412.     end;
  8413.   end;
  8414. end;

  8416. procedure TFrmDlg.GetMouseItemInfo(Actor: TActor; MouseItem: pTClientItem; var iname, line1, line2, line3: string; var useable: Boolean);
  8417.   function GetDuraStr(Dura, maxdura: Integer): string;
  8418.   begin
  8419.     if not BoNoDisplayMaxDura then
  8420.       Result := IntToStr(Round(Dura / 1000)) + '/' + IntToStr(Round(maxdura / 1000))
  8421.     else
  8422.       Result := IntToStr(Round(Dura / 1000));
  8423.   end;
  8424.   function GetDura100Str(Dura, maxdura: Integer): string;
  8425.   begin
  8426.     if not BoNoDisplayMaxDura then
  8427.       Result := IntToStr(Round(Dura / 100)) + '/' + IntToStr(Round(maxdura / 100))
  8428.     else
  8429.       Result := IntToStr(Round(Dura / 100));
  8430.   end;
  8431.   function GetMoveXY(Value: TValue): string;
  8432.   var
  8433.     TempRecord: TTempRecord;
  8434.   begin
  8435.     Move(Value, TempRecord, SizeOf(TTempRecord));
  8436.     Result := IntToStr(TempRecord.nX) + ':' + IntToStr(TempRecord.nY);
  8437.   end;
  8438.   procedure GetAtomStr(Value: TValue);
  8439.   begin
  8440.     if (not g_ServerConfig.boAllowItemAddValue) or (g_ServerConfig.btShowClientItemStyle <> 0) then Exit;
  8441.     if Value[4] > 0 then begin
  8442.       HintList.AddObject('攻击元素: ' + GetAtomTypeStr(Value[1]) + '+' + IntToStr(Value[4]), TObject(GetRGB(222)));
  8443.     end;
  8444.     if Value[5] > 0 then begin
  8445.       HintList.AddObject('强性元素: ' + GetAtomTypeStr(Value[2]) + '+' + IntToStr(Value[5]), TObject(GetRGB(222)));
  8446.     end;
  8447.     if Value[6] > 0 then begin
  8448.       HintList.AddObject('弱性元素: ' + GetAtomTypeStr(Value[3]) + '+' + IntToStr(Value[6]), TObject(GetRGB(254)));
  8449.     end;
  8450.   end;

  8452.   function GetStarsStr(nLevel: Byte): string;
  8453.   var
  8454.     I: Integer;
  8455.   begin
  8456.     Result := '';
  8457.     if nLevel <= 6 then begin
  8458.       for I := 0 to nLevel - 1 do begin
  8459.         Result := Result + '★';
  8460.       end;
  8461.     end;
  8462.   end;

  8464.   function GetStarsColor(nLevel: Byte): TColor;
  8465.   begin
  8466.     case nLevel of
  8467.       1: Result := clWhite;
  8468.       2: Result := clAqua;
  8469.       3: Result := clyellow;
  8470.       4: Result := clLime;
  8471.       5: Result := clPurple;
  8472.       6: Result := clFuchsia;
  8473.     end;
  8474.    { case nLevel of
  8475.       1: Result := clWhite;
  8476.       2: Result := clAqua;
  8477.       3: Result := clAqua;
  8478.       4: Result := clyellow;
  8479.       5: Result := clyellow;
  8480.       6: Result := clLime;
  8481.       7: Result := clLime;
  8482.       8: Result := clTeal;
  8483.       9: Result := clFuchsia;
  8484.       10: Result := clFuchsia;
  8485.     end; }
  8486.   end;
  8487. var
  8488.   sWgt, sTemp, sItemDesc: string;
  8489.   I, nLine: Integer;
  8490.   dwExp, dwMaxExp: LongWord;
  8491. begin
  8492.   HintList.Clear;
  8493.   iname := ''; line1 := ''; line2 := ''; line3 := '';
  8494.   useable := True;
  8495.   if (Actor = nil) or (MouseItem.s.Name = '') then Exit;

  8497.   if MouseItem.s.Name <> '' then begin
  8498.     HintList.AddObject({'★' + } MouseItem.s.Name, {TObject(clyellow)} TObject(MouseItem.s.AddValue[13]));
  8499.     if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  8500.       if g_ServerConfig.boAllowItemAddValue or g_ServerConfig.boAllowItemTime or g_ServerConfig.boAllowItemAddPoint then begin
  8501.         if MouseItem.s.AddValue[13] > 0 then begin
  8502.           sTemp := GetStarsStr(MouseItem.s.AddValue[13]);
  8503.           if sTemp <> '' then
  8504.             HintList.AddObject(sTemp, TObject(GetStarsColor(MouseItem.s.AddValue[13])));
  8505.         end;
  8506.       end;
  8507.     end;

  8509.     iname := MouseItem.s.Name + ' ';
  8510.     sWgt := '重量.';

  8512.     case MouseItem.s.StdMode of
  8513.       0: begin //药品
  8514.           if MouseItem.s.AC > 0 then begin
  8515.             HintList.AddObject('体力恢复: +' + IntToStr(MouseItem.s.AC) + 'HP', TObject(clWhite));
  8516.             line1 := '+' + IntToStr(MouseItem.s.AC) + 'HP ';
  8517.           end;
  8518.           if MouseItem.s.MAC > 0 then begin
  8519.             HintList.AddObject('魔法恢复: +' + IntToStr(MouseItem.s.MAC) + 'MP', TObject(clWhite));
  8520.             line1 := line1 + '+' + IntToStr(MouseItem.s.MAC) + 'MP';
  8521.           end;
  8522.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  8523.           line1 := line1 + ' 重量.' + IntToStr(MouseItem.s.Weight);
  8524.         end;
  8525.       1: begin
  8526.           case MouseItem.s.Shape of
  8527.             1, 2, 5, 6, 7: begin
  8528.                 HintList.AddObject('持续使用: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 小时', TObject(GetRGB(254)));
  8529.                 line2 := '持续使用 ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 小时';
  8530.               end;
  8531.             3, 4, 8, 9, 10: begin
  8532.                 HintList.AddObject('累积使用: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 小时', TObject(GetRGB(254)));
  8533.                 line2 := '累积使用 ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 小时';
  8534.               end;
  8535.           end;
  8536.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  8537.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  8538.         end;
  8539.       2: begin
  8540.           line1 := line1 + '重量. ' + IntToStr(MouseItem.s.Weight);
  8541.           case MouseItem.s.Shape of
  8542.             1: begin
  8543.                 line2 := '使用 ' + GetDura100Str(MouseItem.Dura, MouseItem.DuraMax) + ' 次';
  8544.                 HintList.AddObject('使用: ' + GetDura100Str(MouseItem.Dura, MouseItem.DuraMax) + ' 次', TObject(GetRGB(254)));
  8545.               end;
  8546.             2, 3: begin
  8547.                 line2 := '使用 ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 次';
  8548.                 HintList.AddObject('使用: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 次', TObject(GetRGB(254)));
  8549.               end;
  8550.           end;
  8551.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  8552.         end;
  8553.       3: begin
  8554.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  8555.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  8556.         end;
  8557.       8: begin
  8558.           line2 := '数量: ' + IntToStr(MouseItem.s.Need);
  8559.           HintList.AddObject('数量:' + IntToStr(MouseItem.s.Need), TObject(GetRGB(254)));
  8560.         end;
  8561.       4: begin
  8562.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  8563.           line1 := line1 + '重量. ' + IntToStr(MouseItem.s.Weight);
  8564.           line3 := '所需等级 ' + IntToStr(MouseItem.s.DuraMax);
  8565.           useable := False;
  8566.           case MouseItem.s.Shape of
  8567.             0: begin
  8568.                 line2 := '武士秘技';
  8569.                 if (Actor.m_btJob = 0) and (Actor.m_Abil.Level >= MouseItem.s.DuraMax) then
  8570.                   useable := True;
  8571.               end;
  8572.             1: begin
  8573.                 line2 := '法师秘技';
  8574.                 if (Actor.m_btJob = 1) and (Actor.m_Abil.Level >= MouseItem.s.DuraMax) then
  8575.                   useable := True;
  8576.               end;
  8577.             2: begin
  8578.                 line2 := '道士秘技';
  8579.                 if (Actor.m_btJob = 2) and (Actor.m_Abil.Level >= MouseItem.s.DuraMax) then
  8580.                   useable := True;
  8581.               end;
  8582.             99: begin
  8583.                 line2 := '通用秘技';
  8584.                 if Actor.m_Abil.Level >= MouseItem.s.DuraMax then
  8585.                   useable := True;
  8586.               end;
  8587.           end;
  8588.           if useable then begin
  8589.             HintList.AddObject('所需等级: ' + IntToStr(MouseItem.s.DuraMax), TObject(clWhite));
  8590.             HintList.AddObject(line2, TObject(clWhite));
  8591.           end else begin
  8592.             HintList.AddObject('所需等级: ' + IntToStr(MouseItem.s.DuraMax), TObject(clRed));
  8593.             HintList.AddObject(line2, TObject(clRed));
  8594.           end;
  8595.         end;
  8596.       5..6: {//武器} begin
  8597.           useable := False;
  8598.           if MouseItem.s.Reserved and $01 <> 0 then begin
  8599.             iname := '(*)' + iname;
  8600.             if HintList.Count > 0 then HintList.Delete(0);
  8601.             HintList.InsertObject(0, '★(*)' + MouseItem.s.Name, TObject(MouseItem.s.AddValue[13]));
  8602.           end;

  8604.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight) +
  8605.             ' 持久' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax);

  8607.           HintList.AddObject('持久: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax), TObject(GetRGB(254)));
  8608.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));

  8610.           if MouseItem.s.DC > 0 then begin
  8611.             line2 := '攻击力' + IntToStr(Loword(MouseItem.s.DC)) + '-' + IntToStr(Hiword(MouseItem.s.DC)) + ' ';
  8612.             HintList.AddObject('攻击: ' + IntToStr(Loword(MouseItem.s.DC)) + '-' + IntToStr(Hiword(MouseItem.s.DC)), TObject(clWhite));
  8613.           end;

  8615.           if MouseItem.s.MC > 0 then begin
  8616.             line2 := line2 + '魔法' + IntToStr(Loword(MouseItem.s.MC)) + '-' + IntToStr(Hiword(MouseItem.s.MC)) + ' ';
  8617.             HintList.AddObject('魔法: ' + IntToStr(Loword(MouseItem.s.MC)) + '-' + IntToStr(Hiword(MouseItem.s.MC)), TObject(clWhite));
  8618.           end;

  8620.           if MouseItem.s.SC > 0 then begin
  8621.             HintList.AddObject('道术: ' + IntToStr(Loword(MouseItem.s.SC)) + '-' + IntToStr(Hiword(MouseItem.s.SC)), TObject(clWhite));
  8622.             line2 := line2 + '道术' + IntToStr(Loword(MouseItem.s.SC)) + '-' + IntToStr(Hiword(MouseItem.s.SC)) + ' ';
  8623.           end;

  8625.           if (MouseItem.s.Source <= -1) and (MouseItem.s.Source >= -50) then begin
  8626.             line2 := line2 + '神圣 +' + IntToStr(-MouseItem.s.Source) + ' ';
  8627.             HintList.AddObject('神圣: +' + IntToStr(-MouseItem.s.Source), TObject(GetRGB(254)));
  8628.           end;
  8629.           if (MouseItem.s.Source <= -51) and (MouseItem.s.Source >= -100) then begin
  8630.             line2 := line2 + '神圣 -' + IntToStr(-MouseItem.s.Source - 50) + ' ';
  8631.             HintList.AddObject('神圣: -' + IntToStr(-MouseItem.s.Source - 50), TObject(GetRGB(254)));
  8632.           end;

  8634.           if Hiword(MouseItem.s.AC) > 0 then begin
  8635.             line3 := line3 + '准确+' + IntToStr(Hiword(MouseItem.s.AC)) + ' ';
  8636.             HintList.AddObject('准确: +' + IntToStr(Hiword(MouseItem.s.AC)), TObject(clWhite));
  8637.           end;

  8639.           if Hiword(MouseItem.s.MAC) > 0 then begin
  8640.             if Hiword(MouseItem.s.MAC) > 10 then begin
  8641.               line3 := line3 + '攻击速度 +' + IntToStr(Hiword(MouseItem.s.MAC) - 10) + ' ';
  8642.               HintList.AddObject('攻击速度: +' + IntToStr(Hiword(MouseItem.s.MAC) - 10), TObject(clWhite))
  8643.             end else begin
  8644.               line3 := line3 + '攻击速度 -' + IntToStr(Hiword(MouseItem.s.MAC)) + ' ';
  8645.               HintList.AddObject('攻击速度: -' + IntToStr(Hiword(MouseItem.s.MAC)), TObject(clWhite));
  8646.             end;
  8647.           end;

  8649.           if Loword(MouseItem.s.AC) > 0 then begin
  8650.             line3 := line3 + '幸运+' + IntToStr(Loword(MouseItem.s.AC)) + ' ';
  8651.             HintList.AddObject('幸运: +' + IntToStr(Loword(MouseItem.s.AC)), TObject(GetRGB(254)));
  8652.           end;
  8653.           if Loword(MouseItem.s.MAC) > 0 then begin
  8654.             HintList.AddObject('诅咒: +' + IntToStr(Loword(MouseItem.s.MAC)), TObject(GetRGB(254)));
  8655.             line3 := line3 + '诅咒+' + IntToStr(Loword(MouseItem.s.MAC)) + ' ';
  8656.           end;

  8658.           GetAtomStr(MouseItem.s.AddValue);

  8660.           case MouseItem.s.Need of
  8661.             0: begin
  8662.                 if Actor.m_Abil.Level >= MouseItem.s.NeedLevel then
  8663.                   useable := True;
  8664.                 sTemp := '所需等级: ' + IntToStr(MouseItem.s.NeedLevel);
  8665.                 line3 := line3 + sTemp;
  8666.               end;
  8667.             1: begin
  8668.                 if Hiword(Actor.m_Abil.DC) >= MouseItem.s.NeedLevel then
  8669.                   useable := True;
  8670.                 sTemp := '需要攻击力: ' + IntToStr(MouseItem.s.NeedLevel);
  8671.                 line3 := line3 + sTemp;
  8672.               end;
  8673.             2: begin
  8674.                 if Hiword(Actor.m_Abil.MC) >= MouseItem.s.NeedLevel then
  8675.                   useable := True;
  8676.                 sTemp := '所需魔法值: ' + IntToStr(MouseItem.s.NeedLevel);
  8677.                 line3 := line3 + sTemp;
  8678.               end;
  8679.             3: begin
  8680.                 if Hiword(Actor.m_Abil.SC) >= MouseItem.s.NeedLevel then
  8681.                   useable := True;
  8682.                 sTemp := '所需道术: ' + IntToStr(MouseItem.s.NeedLevel);
  8683.                 line3 := line3 + sTemp;
  8684.               end;
  8685.             4: begin
  8686.                 useable := True;
  8687.                 sTemp := '所需转生等级: ' + IntToStr(MouseItem.s.NeedLevel);
  8688.                 line3 := line3 + sTemp;
  8689.               end;
  8690.             40: begin
  8691.                 useable := True;
  8692.                 sTemp := '所需转生&等级: ' + IntToStr(MouseItem.s.NeedLevel);
  8693.                 line3 := line3 + sTemp;
  8694.               end;
  8695.             41: begin
  8696.                 useable := True;
  8697.                 sTemp := '所需转生&攻击力: ' + IntToStr(MouseItem.s.NeedLevel);
  8698.                 line3 := line3 + sTemp;
  8699.               end;
  8700.             42: begin
  8701.                 useable := True;
  8702.                 sTemp := '所需转生&魔法力: ' + IntToStr(MouseItem.s.NeedLevel);
  8703.                 line3 := line3 + sTemp;
  8704.               end;
  8705.             43: begin
  8706.                 useable := True;
  8707.                 sTemp := '所需转生&道术: ' + IntToStr(MouseItem.s.NeedLevel);
  8708.                 line3 := line3 + sTemp;
  8709.               end;
  8710.             44: begin
  8711.                 useable := True;
  8712.                 sTemp := '所需转生&声望点: ' + IntToStr(MouseItem.s.NeedLevel);
  8713.                 line3 := line3 + sTemp;
  8714.               end;
  8715.             5: begin
  8716.                 useable := True;
  8717.                 sTemp := '所需声望点: ' + IntToStr(MouseItem.s.NeedLevel);
  8718.                 line3 := line3 + sTemp;
  8719.               end;
  8720.             6: begin
  8721.                 useable := True;
  8722.                 sTemp := '行会成员专用';
  8723.                 line3 := line3 + sTemp;
  8724.               end;
  8725.             60: begin
  8726.                 useable := True;
  8727.                 sTemp := '行会掌门专用';
  8728.                 line3 := line3 + sTemp;
  8729.               end;
  8730.             7: begin
  8731.                 useable := True;
  8732.                 sTemp := '沙城成员专用';
  8733.                 line3 := line3 + sTemp;
  8734.               end;
  8735.             70: begin
  8736.                 useable := True;
  8737.                 sTemp := '沙城城主专用';
  8738.                 line3 := line3 + sTemp;
  8739.               end;
  8740.             8: begin
  8741.                 useable := True;
  8742.                 sTemp := '会员专用';
  8743.                 line3 := line3 + sTemp;
  8744.               end;
  8745.             81: begin
  8746.                 useable := True;
  8747.                 sTemp := '会员类型: =' + IntToStr(Loword(MouseItem.s.NeedLevel)) + '会员等级: >=' + IntToStr(Hiword(MouseItem.s.NeedLevel));
  8748.                 line3 := line3 + sTemp;
  8749.               end;
  8750.             82: begin
  8751.                 useable := True;
  8752.                 sTemp := '会员类型: >=' + IntToStr(Loword(MouseItem.s.NeedLevel)) + '会员等级: >=' + IntToStr(Hiword(MouseItem.s.NeedLevel));
  8753.                 line3 := line3 + sTemp;
  8754.               end;
  8755.           end;
  8756.           if useable then begin
  8757.             HintList.AddObject(sTemp, TObject(clWhite));
  8758.           end else begin
  8759.             HintList.AddObject(sTemp, TObject(clRed));
  8760.           end;
  8761.         end;
  8762.       7: begin
  8763.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  8764.           case MouseItem.s.Shape of
  8765.             0: begin
  8766.                 line2 := '使用 ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 次';
  8767.                 HintList.AddObject('使用:' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 次', TObject(GetRGB(254)));
  8768.               end;
  8769.             1: begin
  8770.                 line2 := 'HP ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 万';
  8771.                 HintList.AddObject('HP:' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 万', TObject(GetRGB(254)));
  8772.               end;
  8773.             2: begin
  8774.                 line2 := 'MP ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 万';
  8775.                 HintList.AddObject('MP:' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 万', TObject(GetRGB(254)));
  8776.               end;
  8777.             3: begin
  8778.                 line2 := 'HPMP ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 万';
  8779.                 HintList.AddObject('HPMP:' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 万', TObject(GetRGB(254)));
  8780.               end;
  8781.           end;
  8782.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  8783.         end;
  8784.       10, 11: {//男衣服, 女衣服} begin
  8785.           useable := False;
  8786.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight) +
  8787.             ' 持久' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax);

  8789.           HintList.AddObject('持久: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax), TObject(GetRGB(254)));
  8790.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));

  8792.           if MouseItem.s.AC > 0 then begin
  8793.             HintList.AddObject('防御: ' + IntToStr(Loword(MouseItem.s.AC)) + '-' + IntToStr(Hiword(MouseItem.s.AC)), TObject(clWhite));
  8794.             line2 := '防御' + IntToStr(Loword(MouseItem.s.AC)) + '-' + IntToStr(Hiword(MouseItem.s.AC)) + ' ';
  8795.           end;
  8796.           if MouseItem.s.MAC > 0 then begin
  8797.             HintList.AddObject('魔防: ' + IntToStr(Loword(MouseItem.s.MAC)) + '-' + IntToStr(Hiword(MouseItem.s.MAC)), TObject(clWhite));
  8798.             line2 := line2 + '魔防' + IntToStr(Loword(MouseItem.s.MAC)) + '-' + IntToStr(Hiword(MouseItem.s.MAC)) + ' ';
  8799.           end;
  8800.           if MouseItem.s.DC > 0 then begin
  8801.             HintList.AddObject('攻击: ' + IntToStr(Loword(MouseItem.s.DC)) + '-' + IntToStr(Hiword(MouseItem.s.DC)), TObject(clWhite));
  8802.             line2 := line2 + '攻击力' + IntToStr(Loword(MouseItem.s.DC)) + '-' + IntToStr(Hiword(MouseItem.s.DC)) + ' ';
  8803.           end;
  8804.           if MouseItem.s.MC > 0 then begin
  8805.             HintList.AddObject('魔法: ' + IntToStr(Loword(MouseItem.s.MC)) + '-' + IntToStr(Hiword(MouseItem.s.MC)), TObject(clWhite));
  8806.             line2 := line2 + '魔法' + IntToStr(Loword(MouseItem.s.MC)) + '-' + IntToStr(Hiword(MouseItem.s.MC)) + ' ';
  8807.           end;
  8808.           if MouseItem.s.SC > 0 then begin
  8809.             HintList.AddObject('道术: ' + IntToStr(Loword(MouseItem.s.SC)) + '-' + IntToStr(Hiword(MouseItem.s.SC)), TObject(clWhite));
  8810.             line2 := line2 + '道术' + IntToStr(Loword(MouseItem.s.SC)) + '-' + IntToStr(Hiword(MouseItem.s.SC));
  8811.           end;
  8812.           if LoByte(MouseItem.s.Source) > 0 then begin
  8813.             HintList.AddObject('幸运: +' + IntToStr(LoByte(MouseItem.s.Source)), TObject(GetRGB(254)));
  8814.             line3 := line3 + '幸运+' + IntToStr(LoByte(MouseItem.s.Source)) + ' ';
  8815.           end;
  8816.           if HiByte(MouseItem.s.Source) > 0 then begin
  8817.             HintList.AddObject('诅咒: +' + IntToStr(HiByte(MouseItem.s.Source)), TObject(GetRGB(254)));
  8818.             line3 := line3 + '诅咒+' + IntToStr(HiByte(MouseItem.s.Source)) + ' ';
  8819.           end;
  8820.           GetAtomStr(MouseItem.s.AddValue);

  8822.           case MouseItem.s.Need of
  8823.             0: begin
  8824.                 if Actor.m_Abil.Level >= MouseItem.s.NeedLevel then
  8825.                   useable := True;
  8826.                 sTemp := '所需等级: ' + IntToStr(MouseItem.s.NeedLevel);
  8827.                 line3 := line3 + sTemp;
  8828.               end;
  8829.             1: begin
  8830.                 if Hiword(Actor.m_Abil.DC) >= MouseItem.s.NeedLevel then
  8831.                   useable := True;
  8832.                 sTemp := '需要攻击力: ' + IntToStr(MouseItem.s.NeedLevel);
  8833.                 line3 := line3 + sTemp;
  8834.               end;
  8835.             2: begin
  8836.                 if Hiword(Actor.m_Abil.MC) >= MouseItem.s.NeedLevel then
  8837.                   useable := True;
  8838.                 sTemp := '所需魔法值: ' + IntToStr(MouseItem.s.NeedLevel);
  8839.                 line3 := line3 + sTemp;
  8840.               end;
  8841.             3: begin
  8842.                 if Hiword(Actor.m_Abil.SC) >= MouseItem.s.NeedLevel then
  8843.                   useable := True;
  8844.                 sTemp := '所需道术: ' + IntToStr(MouseItem.s.NeedLevel);
  8845.                 line3 := line3 + sTemp;
  8846.               end;
  8847.             4: begin
  8848.                 useable := True;
  8849.                 sTemp := '所需转生等级: ' + IntToStr(MouseItem.s.NeedLevel);
  8850.                 line3 := line3 + sTemp;
  8851.               end;
  8852.             40: begin
  8853.                 useable := True;
  8854.                 sTemp := '所需转生&等级: ' + IntToStr(MouseItem.s.NeedLevel);
  8855.                 line3 := line3 + sTemp;
  8856.               end;
  8857.             41: begin
  8858.                 useable := True;
  8859.                 sTemp := '所需转生&攻击力: ' + IntToStr(MouseItem.s.NeedLevel);
  8860.                 line3 := line3 + sTemp;
  8861.               end;
  8862.             42: begin
  8863.                 useable := True;
  8864.                 sTemp := '所需转生&魔法力: ' + IntToStr(MouseItem.s.NeedLevel);
  8865.                 line3 := line3 + sTemp;
  8866.               end;
  8867.             43: begin
  8868.                 useable := True;
  8869.                 sTemp := '所需转生&道术: ' + IntToStr(MouseItem.s.NeedLevel);
  8870.                 line3 := line3 + sTemp;
  8871.               end;
  8872.             44: begin
  8873.                 useable := True;
  8874.                 sTemp := '所需转生&声望点: ' + IntToStr(MouseItem.s.NeedLevel);
  8875.                 line3 := line3 + sTemp;
  8876.               end;
  8877.             5: begin
  8878.                 useable := True;
  8879.                 sTemp := '所需声望点: ' + IntToStr(MouseItem.s.NeedLevel);
  8880.                 line3 := line3 + sTemp;
  8881.               end;
  8882.             6: begin
  8883.                 useable := True;
  8884.                 sTemp := '行会成员专用';
  8885.                 line3 := line3 + sTemp;
  8886.               end;
  8887.             60: begin
  8888.                 useable := True;
  8889.                 sTemp := '行会掌门专用';
  8890.                 line3 := line3 + sTemp;
  8891.               end;
  8892.             7: begin
  8893.                 useable := True;
  8894.                 sTemp := '沙城成员专用';
  8895.                 line3 := line3 + sTemp;
  8896.               end;
  8897.             70: begin
  8898.                 useable := True;
  8899.                 sTemp := '沙城城主专用';
  8900.                 line3 := line3 + sTemp;
  8901.               end;
  8902.             8: begin
  8903.                 useable := True;
  8904.                 sTemp := '会员专用';
  8905.                 line3 := line3 + sTemp;
  8906.               end;
  8907.             81: begin
  8908.                 useable := True;
  8909.                 sTemp := '会员类型: =' + IntToStr(Loword(MouseItem.s.NeedLevel)) + '会员等级: >=' + IntToStr(Hiword(MouseItem.s.NeedLevel));
  8910.                 line3 := line3 + sTemp;
  8911.               end;
  8912.             82: begin
  8913.                 useable := True;
  8914.                 sTemp := '会员类型: >=' + IntToStr(Loword(MouseItem.s.NeedLevel)) + '会员等级: >=' + IntToStr(Hiword(MouseItem.s.NeedLevel));
  8915.                 line3 := line3 + sTemp;
  8916.               end;
  8917.           end;
  8918.           if useable then begin
  8919.             HintList.AddObject(sTemp, TObject(clWhite));
  8920.           end else begin
  8921.             HintList.AddObject(sTemp, TObject(clRed));
  8922.           end;
  8923.         end;
  8924.       15, //头盔,捧备
  8925.         19, 20, 21, //项链
  8926.         22, 23, //戒指
  8927.         24, 26, //手镯
  8928.         51,
  8929.         52, 62, //鞋
  8930.         53, 63,
  8931.         54, 64, 30: {//腰带} begin
  8932.           useable := False;
  8933.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight) +
  8934.             ' 持久' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax);

  8936.           HintList.AddObject('持久: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax), TObject(GetRGB(254)));
  8937.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));

  8939.           case MouseItem.s.StdMode of
  8940.             19, 53: {//项链} begin
  8941.                 if MouseItem.s.AC > 0 then begin
  8942.                   sTemp := '魔法躲避: +' + IntToStr(Hiword(MouseItem.s.AC)) + '0%';
  8943.                   line2 := line2 + sTemp + ' ';
  8944.                   HintList.AddObject(sTemp, TObject(clWhite));
  8945.                 end;
  8946.                 if Loword(MouseItem.s.MAC) > 0 then begin
  8947.                   sTemp := '诅咒: +' + IntToStr(Loword(MouseItem.s.MAC));
  8948.                   line2 := line2 + sTemp + ' ';
  8949.                   HintList.AddObject(sTemp, TObject(GetRGB(254)));
  8950.                 end;
  8951.                 if Hiword(MouseItem.s.MAC) > 0 then begin
  8952.                   sTemp := '幸运: +' + IntToStr(Hiword(MouseItem.s.MAC));
  8953.                   line2 := line2 + sTemp + ' ';
  8954.                   HintList.AddObject(sTemp, TObject(GetRGB(254)));
  8955.                 end;
  8956.               end;
  8957.             20, 24, 52: {//项链 及 手镯: MaxAC -> Hit,  MaxMac -> Speed} begin
  8958.                 if MouseItem.s.AC > 0 then begin
  8959.                   line2 := line2 + '准确+' + IntToStr(Hiword(MouseItem.s.AC)) + ' ';
  8960.                   HintList.AddObject('准确: +' + IntToStr(Hiword(MouseItem.s.AC)), TObject(clWhite));
  8961.                 end;
  8962.                 if MouseItem.s.MAC > 0 then begin
  8963.                   line2 := line2 + '敏捷+' + IntToStr(Hiword(MouseItem.s.MAC)) + ' ';
  8964.                   HintList.AddObject('敏捷: +' + IntToStr(Hiword(MouseItem.s.MAC)), TObject(clWhite));
  8965.                 end;
  8966.               end;
  8967.             21, 54: {//项链} begin
  8968.                 if Hiword(MouseItem.s.AC) > 0 then begin
  8969.                   HintList.AddObject('体力恢复: +' + IntToStr(Hiword(MouseItem.s.AC)) + '0%', TObject(clWhite));
  8970.                   line2 := line2 + '体力恢复+' + IntToStr(Hiword(MouseItem.s.AC)) + '0% ';
  8971.                 end;
  8972.                 if Hiword(MouseItem.s.MAC) > 0 then begin
  8973.                   HintList.AddObject('魔法恢复: +' + IntToStr(Hiword(MouseItem.s.MAC)) + '0%', TObject(clWhite));
  8974.                   line2 := line2 + '魔法恢复+' + IntToStr(Hiword(MouseItem.s.MAC)) + '0% ';
  8975.                 end;
  8976.                 if Loword(MouseItem.s.AC) > 0 then begin
  8977.                   HintList.AddObject('攻击速度: +' + IntToStr(Loword(MouseItem.s.AC)), TObject(clWhite));
  8978.                   line2 := line2 + '攻击速度+' + IntToStr(Loword(MouseItem.s.AC)) + ' ';
  8979.                 end;
  8980.                 if Loword(MouseItem.s.MAC) > 0 then begin
  8981.                   HintList.AddObject('攻击速度: -' + IntToStr(Loword(MouseItem.s.MAC)), TObject(clWhite));
  8982.                   line2 := line2 + '攻击速度-' + IntToStr(Loword(MouseItem.s.MAC)) + ' ';
  8983.                 end;
  8984.               end;
  8985.             23: {//戒指} begin
  8986.                 if Hiword(MouseItem.s.AC) > 0 then begin
  8987.                   HintList.AddObject('毒物躲避: +' + IntToStr(Hiword(MouseItem.s.AC)) + '0%', TObject(clWhite));
  8988.                   line2 := line2 + '毒物躲避+' + IntToStr(Hiword(MouseItem.s.AC)) + '0% ';
  8989.                 end;
  8990.                 if Hiword(MouseItem.s.MAC) > 0 then begin
  8991.                   HintList.AddObject('中毒恢复: +' + IntToStr(Hiword(MouseItem.s.MAC)) + '0%', TObject(clWhite));
  8992.                   line2 := line2 + '中毒恢复+' + IntToStr(Hiword(MouseItem.s.MAC)) + '0% ';
  8993.                 end;
  8994.                 if Loword(MouseItem.s.AC) > 0 then begin
  8995.                   HintList.AddObject('攻击速度: +' + IntToStr(Loword(MouseItem.s.AC)), TObject(clWhite));
  8996.                   line2 := line2 + '攻击速度+' + IntToStr(Loword(MouseItem.s.AC)) + ' ';
  8997.                 end;
  8998.                 if Loword(MouseItem.s.MAC) > 0 then begin
  8999.                   HintList.AddObject('攻击速度: -' + IntToStr(Loword(MouseItem.s.MAC)), TObject(clWhite));
  9000.                   line2 := line2 + '攻击速度-' + IntToStr(Loword(MouseItem.s.MAC)) + ' ';
  9001.                 end;
  9002.               end;
  9003.             62: {//Boots} begin
  9004.                 {if Hiword(MouseItem.S.AC) > 0 then
  9005.                   HintList.AddObject('防御: ' + IntToStr(Hiword(MouseItem.S.AC)), TObject(clWhite));
  9006.                 if Hiword(MouseItem.S.MAC) > 0 then
  9007.                   HintList.AddObject('魔防: ' + IntToStr(Hiword(MouseItem.S.MAC)), TObject(clWhite)); }
  9008.                 if MouseItem.s.AC > 0 then begin
  9009.                   HintList.AddObject('防御: ' + IntToStr(Loword(MouseItem.s.AC)) + '-' + IntToStr(Hiword(MouseItem.s.AC)), TObject(clWhite));
  9010.                   line2 := line2 + '防御' + IntToStr(Loword(MouseItem.s.AC)) + '-' + IntToStr(Hiword(MouseItem.s.AC)) + ' ';
  9011.                 end;
  9012.                 if MouseItem.s.MAC > 0 then begin
  9013.                   HintList.AddObject('魔防: ' + IntToStr(Loword(MouseItem.s.MAC)) + '-' + IntToStr(Hiword(MouseItem.s.MAC)), TObject(clWhite));
  9014.                   line2 := line2 + '魔防' + IntToStr(Loword(MouseItem.s.MAC)) + '-' + IntToStr(Hiword(MouseItem.s.MAC)) + ' ';
  9015.                 end;

  9017.                 //if Loword(MouseItem.S.MAC) > 0 then      //2008-3-3去掉鞋子的魔法恢复
  9018.                   //HintList.AddObject('魔法恢复: +' + IntToStr(Loword(MouseItem.S.MAC)), TObject(clWhite));
  9019.                 if MouseItem.s.AniCount * MouseItem.s.Weight > 0 then begin
  9020.                   HintList.AddObject('负重: +' + IntToStr(MouseItem.s.AniCount * MouseItem.s.Weight), TObject(clWhite));
  9021.                   line2 := line2 + '负重+' + IntToStr(MouseItem.s.AniCount * MouseItem.s.Weight) + ' ';
  9022.                 end;
  9023.               end;
  9024.             63: {//Charm} begin
  9025.                 if Loword(MouseItem.s.AC) > 0 then begin
  9026.                   HintList.AddObject('体力: +' + IntToStr(Loword(MouseItem.s.AC)), TObject(GetRGB(254)));
  9027.                   line2 := line2 + '体力+' + IntToStr(Loword(MouseItem.s.AC)) + ' ';
  9028.                 end;
  9029.                 if Hiword(MouseItem.s.AC) > 0 then begin
  9030.                   HintList.AddObject('魔法: +' + IntToStr(Hiword(MouseItem.s.AC)), TObject(GetRGB(254)));
  9031.                   line2 := line2 + '魔法+' + IntToStr(Hiword(MouseItem.s.AC)) + ' ';
  9032.                 end;
  9033.                 if Loword(MouseItem.s.MAC) > 0 then begin
  9034.                   HintList.AddObject('诅咒: +' + IntToStr(Loword(MouseItem.s.MAC)), TObject(GetRGB(254)));
  9035.                   line2 := line2 + '诅咒+' + IntToStr(Loword(MouseItem.s.MAC)) + ' ';
  9036.                 end;
  9037.                 if Hiword(MouseItem.s.MAC) > 0 then begin
  9038.                   HintList.AddObject('幸运: +' + IntToStr(Hiword(MouseItem.s.MAC)), TObject(GetRGB(254)));
  9039.                   line2 := line2 + '幸运+' + IntToStr(Hiword(MouseItem.s.MAC)) + ' ';
  9040.                 end;
  9041.               end;
  9042.           else begin
  9043.               if MouseItem.s.AC > 0 then begin
  9044.                 HintList.AddObject('防御: ' + IntToStr(Loword(MouseItem.s.AC)) + '-' + IntToStr(Hiword(MouseItem.s.AC)), TObject(clWhite));
  9045.                 line2 := line2 + '防御' + IntToStr(Loword(MouseItem.s.AC)) + '-' + IntToStr(Hiword(MouseItem.s.AC)) + ' ';
  9046.               end;
  9047.               if MouseItem.s.MAC > 0 then begin
  9048.                 HintList.AddObject('魔防: ' + IntToStr(Loword(MouseItem.s.MAC)) + '-' + IntToStr(Hiword(MouseItem.s.MAC)), TObject(clWhite));
  9049.                 line2 := line2 + '魔防' + IntToStr(Loword(MouseItem.s.MAC)) + '-' + IntToStr(Hiword(MouseItem.s.MAC)) + ' ';
  9050.               end;
  9051.             end;
  9052.           end;

  9054.           if MouseItem.s.DC > 0 then begin
  9055.             line2 := line2 + '攻击力' + IntToStr(Loword(MouseItem.s.DC)) + '-' + IntToStr(Hiword(MouseItem.s.DC)) + ' ';
  9056.             HintList.AddObject('攻击: ' + IntToStr(Loword(MouseItem.s.DC)) + '-' + IntToStr(Hiword(MouseItem.s.DC)), TObject(clWhite));
  9057.           end;
  9058.           if MouseItem.s.MC > 0 then begin
  9059.             line2 := line2 + '魔法' + IntToStr(Loword(MouseItem.s.MC)) + '-' + IntToStr(Hiword(MouseItem.s.MC)) + ' ';
  9060.             HintList.AddObject('魔法: ' + IntToStr(Loword(MouseItem.s.MC)) + '-' + IntToStr(Hiword(MouseItem.s.MC)), TObject(clWhite));
  9061.           end;
  9062.           if MouseItem.s.SC > 0 then begin
  9063.             line2 := line2 + '道术' + IntToStr(Loword(MouseItem.s.SC)) + '-' + IntToStr(Hiword(MouseItem.s.SC)) + ' ';
  9064.             HintList.AddObject('道术: ' + IntToStr(Loword(MouseItem.s.SC)) + '-' + IntToStr(Hiword(MouseItem.s.SC)), TObject(clWhite));
  9065.           end;
  9066.           if (MouseItem.s.Source <= -1) and (MouseItem.s.Source >= -50) then begin
  9067.             line2 := line2 + '神圣+' + IntToStr(-MouseItem.s.Source);
  9068.             HintList.AddObject('神圣: +' + IntToStr(-MouseItem.s.Source), TObject(GetRGB(254)));
  9069.           end;
  9070.           if (MouseItem.s.Source <= -51) and (MouseItem.s.Source >= -100) then begin
  9071.             line2 := line2 + '神圣-' + IntToStr(-MouseItem.s.Source - 50);
  9072.             HintList.AddObject('神圣: -' + IntToStr(-MouseItem.s.Source - 50), TObject(GetRGB(254)));
  9073.           end;

  9075.           GetAtomStr(MouseItem.s.AddValue);

  9077.           case MouseItem.s.Need of
  9078.             0: begin
  9079.                 if Actor.m_Abil.Level >= MouseItem.s.NeedLevel then
  9080.                   useable := True;
  9081.                 sTemp := '所需等级: ' + IntToStr(MouseItem.s.NeedLevel);
  9082.                 line3 := line3 + sTemp;
  9083.               end;
  9084.             1: begin
  9085.                 if Hiword(Actor.m_Abil.DC) >= MouseItem.s.NeedLevel then
  9086.                   useable := True;
  9087.                 sTemp := '需要攻击力: ' + IntToStr(MouseItem.s.NeedLevel);
  9088.                 line3 := line3 + sTemp;
  9089.               end;
  9090.             2: begin
  9091.                 if Hiword(Actor.m_Abil.MC) >= MouseItem.s.NeedLevel then
  9092.                   useable := True;
  9093.                 sTemp := '所需魔法值: ' + IntToStr(MouseItem.s.NeedLevel);
  9094.                 line3 := line3 + sTemp;
  9095.               end;
  9096.             3: begin
  9097.                 if Hiword(Actor.m_Abil.SC) >= MouseItem.s.NeedLevel then
  9098.                   useable := True;
  9099.                 sTemp := '所需道术: ' + IntToStr(MouseItem.s.NeedLevel);
  9100.                 line3 := line3 + sTemp;
  9101.               end;
  9102.             4: begin
  9103.                 useable := True;
  9104.                 sTemp := '所需转生等级: ' + IntToStr(MouseItem.s.NeedLevel);
  9105.                 line3 := line3 + sTemp;
  9106.               end;
  9107.             40: begin
  9108.                 useable := True;
  9109.                 sTemp := '所需转生&等级: ' + IntToStr(MouseItem.s.NeedLevel);
  9110.                 line3 := line3 + sTemp;
  9111.               end;
  9112.             41: begin
  9113.                 useable := True;
  9114.                 sTemp := '所需转生&攻击力: ' + IntToStr(MouseItem.s.NeedLevel);
  9115.                 line3 := line3 + sTemp;
  9116.               end;
  9117.             42: begin
  9118.                 useable := True;
  9119.                 sTemp := '所需转生&魔法力: ' + IntToStr(MouseItem.s.NeedLevel);
  9120.                 line3 := line3 + sTemp;
  9121.               end;
  9122.             43: begin
  9123.                 useable := True;
  9124.                 sTemp := '所需转生&道术: ' + IntToStr(MouseItem.s.NeedLevel);
  9125.                 line3 := line3 + sTemp;
  9126.               end;
  9127.             44: begin
  9128.                 useable := True;
  9129.                 sTemp := '所需转生&声望点: ' + IntToStr(MouseItem.s.NeedLevel);
  9130.                 line3 := line3 + sTemp;
  9131.               end;
  9132.             5: begin
  9133.                 useable := True;
  9134.                 sTemp := '所需声望点: ' + IntToStr(MouseItem.s.NeedLevel);
  9135.                 line3 := line3 + sTemp;
  9136.               end;
  9137.             6: begin
  9138.                 useable := True;
  9139.                 sTemp := '行会成员专用';
  9140.                 line3 := line3 + sTemp;
  9141.               end;
  9142.             60: begin
  9143.                 useable := True;
  9144.                 sTemp := '行会掌门专用';
  9145.                 line3 := line3 + sTemp;
  9146.               end;
  9147.             7: begin
  9148.                 useable := True;
  9149.                 sTemp := '沙城成员专用';
  9150.                 line3 := line3 + sTemp;
  9151.               end;
  9152.             70: begin
  9153.                 useable := True;
  9154.                 sTemp := '沙城城主专用';
  9155.                 line3 := line3 + sTemp;
  9156.               end;
  9157.             8: begin
  9158.                 useable := True;
  9159.                 sTemp := '会员专用';
  9160.                 line3 := line3 + sTemp;
  9161.               end;
  9162.             81: begin
  9163.                 useable := True;
  9164.                 sTemp := '会员类型: =' + IntToStr(Loword(MouseItem.s.NeedLevel)) + '会员等级: >=' + IntToStr(Hiword(MouseItem.s.NeedLevel));
  9165.                 line3 := line3 + sTemp;
  9166.               end;
  9167.             82: begin
  9168.                 useable := True;
  9169.                 sTemp := '会员类型: >=' + IntToStr(Loword(MouseItem.s.NeedLevel)) + '会员等级: >=' + IntToStr(Hiword(MouseItem.s.NeedLevel));
  9170.                 line3 := line3 + sTemp;
  9171.               end;
  9172.           end;
  9173.           if useable then begin
  9174.             HintList.AddObject(sTemp, TObject(clWhite));
  9175.           end else begin
  9176.             HintList.AddObject(sTemp, TObject(clRed));
  9177.           end;
  9178.         end;
  9179.       25: {//护身符及毒药} begin
  9180.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  9181.           case MouseItem.s.Shape of
  9182.             1, 2, 3, 4, 5, 6: begin
  9183.                 line2 := '数量 ' + GetDura100Str(MouseItem.Dura, MouseItem.DuraMax);
  9184.                 HintList.AddObject('数量: ' + GetDura100Str(MouseItem.Dura, MouseItem.DuraMax), TObject(GetRGB(254)));
  9185.               end;
  9186.             9: begin
  9187.                 line2 := Format('容量 %d/%d', [MouseItem.Dura, MouseItem.DuraMax]);
  9188.                 HintList.AddObject(Format('容量: %d/%d', [MouseItem.Dura, MouseItem.DuraMax]), TObject(GetRGB(254)));
  9189.               end;
  9190.           end;
  9191.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  9192.         end;
  9193.       (*30: {//照明物} begin
  9194.           HintList.AddObject('持久 : ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax), TObject(GETRGB(254)));
  9195.           HintList.AddObject('重量: ' + IntToStr(MouseItem.S.Weight), TObject(clWhite));
  9196.         end;*)
  9197.       40: {//肉} begin
  9198.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  9199.           if not g_MouseHeroItem.s.Shape in [13..16] then begin
  9200.             line1 := line1 + ' 品质' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax);
  9201.             HintList.AddObject('品质: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax), TObject(GetRGB(254)));
  9202.           end;
  9203.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  9204.         end;
  9205.       42: {//药材} begin
  9206.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight) + ' 距犁';
  9207.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  9208.           HintList.AddObject('距犁', TObject(GetRGB(254)));
  9209.         end;
  9210.       43: {//矿石} begin
  9211.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight) + ' 纯度' + IntToStr(Round(MouseItem.Dura / 1000));
  9212.           HintList.AddObject('纯度: ' + IntToStr(Round(MouseItem.Dura / 1000)), TObject(GetRGB(254)));
  9213.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  9214.         end;
  9215.       49: begin
  9216.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  9217.           line2 := Format('经验: %d/%d', [MouseItem.Dura * 10000, MouseItem.DuraMax * 10000]);
  9218.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  9219.           HintList.AddObject(Format('经验: %d/%d', [MouseItem.Dura * 10000, MouseItem.DuraMax * 10000]), TObject(GetRGB(254)));
  9220.           //dwExp := MouseItem.Dura * 10000;
  9221.           //dwMaxExp := MouseItem.DuraMax * 10000;
  9222.           //HintList.AddObject('经验: ' + IntToStr(dwExp) + '/' + IntToStr(dwMaxExp), TObject(GetRGB(254)));
  9223.         end; //
  9224.       31: begin
  9225.           if (MouseItem.s.AniCount <> 0) and (MouseItem.s.Shape = 1) then begin
  9226.             line2 := '使用 ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 次';
  9227.             HintList.AddObject('使用: ' + GetDuraStr(MouseItem.Dura, MouseItem.DuraMax) + ' 次', TObject(GetRGB(254)));
  9228.             {if MouseItem.s.AddValue[1] <> 0 then begin
  9229.               //line2 := '记忆传送: 地图:' + MouseItem.s.sDescr + ' 坐标:' + GetMoveXY(MouseItem.s.AddValue);
  9230.               //HintList.AddObject('记忆传送: 地图: ' + MouseItem.s.sDescr + ' 坐标:' + GetMoveXY(MouseItem.s.AddValue), TObject(GetRGB(254)));
  9231.               line2 := '坐标:' + GetMoveXY(MouseItem.s.AddValue);
  9232.               HintList.AddObject('坐标:' + GetMoveXY(MouseItem.s.AddValue), TObject(GetRGB(254)));
  9233.             end else begin
  9234.               HintList.AddObject('记忆传送: 未记忆', TObject(GetRGB(254)));
  9235.               line2 := '记忆传送: 未记忆';
  9236.             end;}
  9237.           end;
  9238.           line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  9239.           HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  9240.         end;
  9241.     else begin
  9242.         line1 := line1 + '重量.' + IntToStr(MouseItem.s.Weight);
  9243.         HintList.AddObject('重量: ' + IntToStr(MouseItem.s.Weight), TObject(clWhite));
  9244.       end;
  9245.     end;

  9247.     if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  9248.       if g_ServerConfig.boAllowItemAddPoint then begin
  9249.         if MouseItem.s.AddPoint[12] > 0 then HintList.AddObject('移动加速: ' + IntToStr(MouseItem.s.AddPoint[12]) + '%', TObject(GetRGB(68)));
  9250.         if MouseItem.s.AddPoint[13] > 0 then HintList.AddObject('攻击加速: ' + IntToStr(MouseItem.s.AddPoint[13]) + '%', TObject(GetRGB(68)));
  9251.       end;
  9252.     end;

  9254.     if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  9255.       if g_ServerConfig.boAllowItemAddPoint then begin
  9256.         case MouseItem.s.AddPoint[1] of
  9257.           1: HintList.AddObject('物理伤害减少: ' + IntToStr(MouseItem.s.AddPoint[2]) + '%', TObject(clFuchsia));
  9258.           2: HintList.AddObject('魔法伤害减少: ' + IntToStr(MouseItem.s.AddPoint[2]) + '%', TObject(clFuchsia));
  9259.           3: HintList.AddObject('忽视目标防御: ' + IntToStr(MouseItem.s.AddPoint[2]) + '%', TObject(clFuchsia));
  9260.           4: HintList.AddObject('所有伤害反射: ' + IntToStr(MouseItem.s.AddPoint[2]) + '%', TObject(clFuchsia));
  9261.           5: HintList.AddObject('增加攻击伤害: ' + IntToStr(MouseItem.s.AddPoint[2]) + '%', TObject(clFuchsia));
  9262.         end;
  9263.         if MouseItem.s.AddPoint[3] > 0 then HintList.AddObject('物理防御增强: ' + IntToStr(MouseItem.s.AddPoint[3]) + '%', TObject(GetRGB(180)));
  9264.         if MouseItem.s.AddPoint[4] > 0 then HintList.AddObject('魔法防御增强: ' + IntToStr(MouseItem.s.AddPoint[4]) + '%', TObject(GetRGB(180)));
  9265.         if MouseItem.s.AddPoint[5] > 0 then HintList.AddObject('物理攻击增强: ' + IntToStr(MouseItem.s.AddPoint[5]) + '%', TObject(GetRGB(180)));
  9266.         if MouseItem.s.AddPoint[6] > 0 then HintList.AddObject('魔法攻击增强: ' + IntToStr(MouseItem.s.AddPoint[6]) + '%', TObject(GetRGB(180)));
  9267.         if MouseItem.s.AddPoint[7] > 0 then HintList.AddObject('道术攻击增强: ' + IntToStr(MouseItem.s.AddPoint[7]) + '%', TObject(GetRGB(180)));
  9268.         if MouseItem.s.AddPoint[8] > 0 then HintList.AddObject('增加进入失明状态: ' + IntToStr(MouseItem.s.AddPoint[8]) + '%', TObject(GetRGB(180)));
  9269.         if MouseItem.s.AddPoint[9] > 0 then HintList.AddObject('增加进入混乱状态: ' + IntToStr(MouseItem.s.AddPoint[9]) + '%', TObject(GetRGB(180)));
  9270.         if MouseItem.s.AddPoint[10] > 0 then HintList.AddObject('减少进入失明状态: ' + IntToStr(MouseItem.s.AddPoint[10]) + '%', TObject(GetRGB(180)));
  9271.         if MouseItem.s.AddPoint[11] > 0 then HintList.AddObject('减少进入混乱状态: ' + IntToStr(MouseItem.s.AddPoint[11]) + '%', TObject(GetRGB(180)));
  9272.         //if MouseItem.s.AddPoint[12] > 0 then HintList.AddObject('移动加速: ' + IntToStr(MouseItem.s.AddPoint[12]) + '%', TObject(GetRGB(68)));
  9273.         //if MouseItem.s.AddPoint[13] > 0 then HintList.AddObject('攻击加速: ' + IntToStr(MouseItem.s.AddPoint[13]) + '%', TObject(GetRGB(68)));
  9274.       end;
  9275.       if g_ServerConfig.boAllowItemTime then begin
  9276.         if MouseItem.s.AddValue[0] = 1 then begin
  9277.           HintList.AddObject('到期时间: ' + DateToStr(MouseItem.s.MaxDate), TObject(clyellow));
  9278.         end else begin
  9279.           HintList.AddObject('到期时间: 永久使用', TObject(clyellow));
  9280.         end;

  9282.         {
  9283.         if MouseItem.s.sDescr <> '' then begin
  9284.           if (MouseItem.s.StdMode = 31) and (MouseItem.s.AniCount <> 0) and (MouseItem.s.Shape = 1) then Exit;
  9285.           nLine := 0;
  9286.           sTemp := '';
  9287.           sDescr := MouseItem.s.sDescr;
  9288.           while Pos('/', sDescr) > 0 do begin
  9289.             sDescr := GetValidStr3(sDescr, sTemp, ['/']);
  9290.             if nLine = 0 then begin
  9291.               HintList.AddObject('物品说明: ' + sTemp, TObject(clyellow));
  9292.               Inc(nLine);
  9293.             end else begin
  9294.               HintList.AddObject(sTemp, TObject(clyellow));
  9295.               Inc(nLine);
  9296.             end;
  9297.             sTemp := '';
  9298.           end;
  9299.           if sDescr <> '' then begin
  9300.             if nLine = 0 then begin
  9301.               HintList.AddObject('物品说明: ' + sDescr, TObject(clyellow));
  9302.               Inc(nLine);
  9303.             end else begin
  9304.               HintList.AddObject(sDescr, TObject(clyellow));
  9305.               Inc(nLine);
  9306.             end;
  9307.           end;
  9308.         end;
  9309.         }
  9310.       end;
  9311.     end;
  9312.     g_ExtractStringList.Clear;

  9314.     {if (MouseItem.s.StdMode = 31) and
  9315.       (MouseItem.s.AniCount <> 0) and
  9316.       (MouseItem.s.Shape = 1) then Exit; }

  9318.     sItemDesc := GetItemDesc(MouseItem.S.Name);
  9319.     if (sItemDesc <> '') then begin
  9320.       if Pos('\', sItemDesc) > 0 then begin
  9321.         ExtractStrings(['\'], [' '], PChar(sItemDesc), g_ExtractStringList);
  9322.         if g_ExtractStringList.Count > 0 then begin
  9323.           HintList.AddObject(g_ExtractStringList.Strings[0], TObject(clWhite)); //  TObject(clyellow));//
  9324.         end;
  9325.         for I := 1 to g_ExtractStringList.Count - 1 do begin
  9326.           HintList.AddObject(g_ExtractStringList.Strings[I], TObject(clWhite));
  9327.         end;
  9328.       end else begin
  9329.         g_ExtractStringList.Add(sItemDesc);
  9330.           //HintList.AddObject(sItemDesc, TObject(clyellow));
  9331.         HintList.AddObject(sItemDesc, TObject(clWhite));
  9332.       end;
  9333.     end;
  9334.   end;
  9335. end;

  9337. procedure TFrmDlg.DItemBagDirectPaint(Sender: TObject;
  9338.   dsurface: TTexture);
  9339. var
  9340.   d0, d1, d2, d3: string;
  9341.   I, n, nX, nY: Integer;
  9342.   useable: Boolean;
  9343.   d: TTexture;
  9344. begin
  9345.   if g_MySelf = nil then Exit;
  9346.   with DItemBag do begin
  9347.     d := nil;
  9348.     if WLib <> nil then
  9349.       d := WLib.Images[FaceIndex];
  9350.     if d <> nil then
  9351.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  9352.     if (g_ServerConfig.btShowClientItemStyle <> 0) then begin
  9353.       GetMouseItemInfo(g_MySelf, @g_MouseItem, d0, d1, d2, d3, useable);
  9354.       with dsurface do begin
  9355.         //nX := SurfaceX(Left + 71);

  9357.       //TextOut (SurfaceX(Left+64), SurfaceY(Top+185), GetGoldStr(g_MySelf.m_nGold));
  9358.         TextOut(SurfaceX(Left + 71), SurfaceY(Top + 212), GetGoldStr(g_MySelf.m_nGold));
  9359.       //盛大物品栏
  9360.         if d0 <> '' then begin
  9361.           n := TextWidth(d0);
  9362.           nX := SurfaceX(Left + 77);
  9363.           nY := SurfaceY(Top + 243);

  9365.           TextOut(nX, nY, d0, clyellow);
  9366.           TextOut(nX + n, nY, d1);
  9367.           TextOut(nX, nY + 14, d2);
  9368.           if not useable then
  9369.             TextOut(nX, nY + 14 * 2, d3, clRed)
  9370.           else
  9371.             TextOut(nX, nY + 14 * 2, d3);

  9373.           if d2 <> '' then
  9374.             nY := nY + 14;
  9375.           if d3 <> '' then
  9376.             nY := nY + 14;

  9378.           nY := nY + 14;
  9379.           for I := 0 to g_ExtractStringList.Count - 1 do begin
  9380.             TextOut(nX, nY + 14 * I, g_ExtractStringList.Strings[I]);
  9381.           end;

  9383.         end else begin
  9384.           TextOut(SurfaceX(Left + 71), SurfaceY(Top + 212), GetGoldStr(g_MySelf.m_nGold));
  9385.           TextOut(SurfaceX(Left + 77), SurfaceY(Top + 243), '左键双击可以装备');
  9386.           TextOut(SurfaceX(Left + 77), SurfaceY(Top + 243 + 14), 'ALT + R 键刷新包裹');
  9387.         end;
  9388.       end;
  9389.     end else begin
  9390.       with dsurface do begin
  9391.         TextOut(SurfaceX(Left + 71), SurfaceY(Top + 212), GetGoldStr(g_MySelf.m_nGold));
  9392.         TextOut(SurfaceX(Left + 77), SurfaceY(Top + 243), '左键双击可以装备');
  9393.         TextOut(SurfaceX(Left + 77), SurfaceY(Top + 243 + 14), 'ALT + R 键刷新包裹');
  9394.       end;
  9395.     end;
  9396.   end;
  9397. end;

  9399. procedure TFrmDlg.DCloseBagDirectPaint(Sender: TObject;
  9400.   dsurface: TTexture);
  9401. var
  9402.   d: TTexture;
  9403. begin
  9404.   with Sender as TDButton do begin
  9405.     if Downed then begin
  9406.       d := nil;
  9407.       if WLib <> nil then
  9408.         d := WLib.Images[FaceIndex];
  9409.       if d <> nil then
  9410.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  9411.         //DrawBlend(dsurface, SurfaceX(Left), SurfaceY(Top), d, 2);
  9412.     end;
  9413.   end;
  9414. end;

  9416. procedure TFrmDlg.DCloseBagClick(Sender: TObject; X, Y: Integer);
  9417. begin
  9418.   DItemBag.Visible := False;
  9419. end;

  9421. procedure TFrmDlg.DItemGridGridMouseMove(Sender: TObject; ACol,
  9422.   ARow: Integer; Shift: TShiftState);
  9423. var
  9424.   nIdx: Integer;
  9425.   temp: TClientItem;
  9426.   iname, d1, d2, d3: string;
  9427.   useable: Boolean;
  9428.   hcolor: TColor;
  9429.   nWhere: Integer;
  9430.   boShowMsg: Boolean;
  9431.   List: TStringList;
  9432. begin
  9433.   DScreen.ClearHint;
  9434.   boShowMsg := False;
  9435.   if ssRight in Shift then begin
  9436.     if g_boItemMoving then
  9437.       DItemGridGridSelect(Self, ACol, ARow, Shift);
  9438.   end else begin
  9439.     nIdx := ACol + ARow * DItemGrid.ColCount + 6;
  9440.     if nIdx in [6..MAXBAGITEM - 1] then begin
  9441.       g_MoveRect := DItemGrid.ClientRect;
  9442.       g_MoveRect.Right := g_MoveRect.Right - 2;
  9443.       g_MoveRect.Top := g_MoveRect.Top + 2;
  9444.       g_MouseItem := g_ItemArr[nIdx];
  9445.       if (g_MouseItem.s.Name <> '') then begin
  9446.         if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  9447.           nWhere := GetHumUseItemByBagItem(g_MouseItem.s.StdMode);
  9448.           if g_Config.boCompareItem and (nWhere >= 0) then begin

  9450.             List := TStringList.Create;
  9451.             try
  9452.               GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  9453.               List.AddStrings(HintList);

  9455.               GetMouseItemInfo(g_MySelf, @g_UseItems[nWhere], iname, d1, d2, d3, useable);
  9456.               if HintList.Count > 0 then begin
  9457.                 HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  9458.               end;
  9459.               with DItemGrid do
  9460.                 DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  9461.                   SurfaceY(Top + (ARow + 1) * RowHeight),
  9462.                   List, HintList, False);
  9463.               HintList.Clear;
  9464.             finally
  9465.               List.Free;
  9466.             end;
  9467.             g_MouseItem.s.Name := '';
  9468.           end else begin
  9469.             GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  9470.             with DItemGrid do
  9471.               DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  9472.                 SurfaceY(Top + (ARow + 1) * RowHeight),
  9473.                 HintList, False);
  9474.           end;
  9475.         end;
  9476.       end;
  9477.     end else begin
  9478.       ClearMoveRect();
  9479.       g_MouseItem.s.Name := '';
  9480.     end;
  9481.   end;
  9482. end;

  9484. procedure TFrmDlg.DItemGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  9485.   Shift: TShiftState);

  9487. var
  9488.   Idx, mi: Integer;
  9489.   temp: TClientItem;
  9490.   where: Integer;
  9491.   flag: Boolean;
  9492.   sData, sData1, sData2: string;
  9493. begin
  9494.   Idx := ACol + ARow * DItemGrid.ColCount + 6;
  9495.   if Idx in [6..MAXBAGITEM - 1] then begin
  9496.     if not g_boItemMoving then begin
  9497.       ClearMoveRect();
  9498.       {if (ssRight in Shift) then Showmessage('ssRight in Shift');
  9499.       if (ssShift in Shift) then Showmessage('ssShift in Shift');
  9500.       if (ssAlt in Shift) then Showmessage('ssAlt in Shift');
  9501.       if (ssCtrl in Shift) then Showmessage('ssCtrl in Shift');
  9502.       if (ssLeft in Shift) then Showmessage('ssLeft in Shift');}
  9503.       if (ssCtrl in Shift) then begin
  9504.         if g_ItemArr[Idx].s.Name <> '' then begin
  9505.           if not EdChat.Visible then begin
  9506.             SetInputVisible(g_ConfigClient.btMainInterface = 1);
  9507.             EdChat.Visible := True;
  9508.             EdChat.SetFocus;
  9509.           end;
  9510.           if EdChat.SelStart = Length(EdChat.Text) then begin
  9511.             EdChat.Text := EdChat.Text + '<0|' + g_MySelf.m_sUserName + '|' + g_ItemArr[Idx].s.Name + '|' + IntToStr(g_ItemArr[Idx].MakeIndex) + '|' + IntToStr(g_ItemArr[Idx].s.looks) + '>';
  9512.             EdChat.SelStart := Length(EdChat.Text);
  9513.           end else begin
  9514.             sData := Copy(EdChat.Text, 1, EdChat.SelStart);
  9515.             sData1 := Copy(EdChat.Text, EdChat.SelStart + 1, Length(EdChat.Text) - EdChat.SelStart);
  9516.             sData2 := '<0|' + g_MySelf.m_sUserName + '|' + g_ItemArr[Idx].s.Name + '|' + IntToStr(g_ItemArr[Idx].MakeIndex) + '|' + IntToStr(g_ItemArr[Idx].s.looks) + '>';
  9517.             EdChat.Text := sData + sData2 + sData1;
  9518.             EdChat.SelStart := Length(EdChat.Text) - Length(WideString(sData1));
  9519.           end;
  9520.           EdChat.SelLength := 0;
  9521.         end;
  9522.         Exit;
  9523.       end;

  9525.       if g_ItemArr[Idx].s.Name <> '' then begin
  9526.         g_dwMoveItemTick := GetTickCount;
  9527.         g_boItemMoving := True;
  9528.         g_MovingItem.Index := Idx;
  9529.         g_MovingItem.Item := g_ItemArr[Idx];
  9530.         g_MovingItem.Owner := DItemBag;
  9531.         g_ItemArr[Idx].s.Name := '';
  9532.       end;
  9533.       if g_boItemMoving and (g_MovingItem.Owner = DItemBag) and (g_WaitingUseItem.Item.s.Name = '') then begin
  9534.        { if mbRight = Button then begin //右键穿装备
  9535.           flag := False;
  9536.           where := GetTakeOnPosition(g_MovingItem.Item.s.StdMode);
  9537.           if g_MovingItem.Index >= 0 then begin
  9538.             case where of
  9539.               U_DRESS: begin
  9540.                   if g_MySelf.m_btSex = 0 then
  9541.                     if g_MovingItem.Item.s.StdMode <> 10 then
  9542.                       Exit;
  9543.                   if g_MySelf.m_btSex = 1 then
  9544.                     if g_MovingItem.Item.s.StdMode <> 11 then
  9545.                       Exit;
  9546.                   flag := True;
  9547.                 end;
  9548.               U_WEAPON: flag := True;
  9549.               U_NECKLACE: flag := True;
  9550.               U_RIGHTHAND: flag := True;
  9551.               U_HELMET: flag := True;
  9552.               U_RINGR, U_RINGL: flag := True;
  9553.               U_ARMRINGR, U_ARMRINGL: flag := True;
  9554.               U_BUJUK: flag := True;
  9555.               U_BELT: flag := True;
  9556.               U_BOOTS: flag := True;
  9557.               U_CHARM: flag := True;
  9558.             end;
  9559.             if flag then begin
  9560.               if where in [U_RINGR, U_RINGL] then begin
  9561.                 if g_UseItems[U_RINGR].s.Name = '' then where := U_RINGR;
  9562.                 if g_UseItems[U_RINGL].s.Name = '' then where := U_RINGL;
  9563.                 if (g_UseItems[U_RINGR].s.Name <> '') and (g_UseItems[U_RINGL].s.Name <> '') then begin
  9564.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_RINGR].s.Name then where := U_RINGR;
  9565.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_RINGL].s.Name then where := U_RINGL;
  9566.                 end;
  9567.               end;

  9569.               if where in [U_ARMRINGR, U_ARMRINGL] then begin
  9570.                 if g_UseItems[U_ARMRINGR].s.Name = '' then where := U_ARMRINGR;
  9571.                 if g_UseItems[U_ARMRINGL].s.Name = '' then where := U_ARMRINGL;
  9572.                 if (g_UseItems[U_ARMRINGR].s.Name <> '') and (g_UseItems[U_ARMRINGL].s.Name <> '') then begin
  9573.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_ARMRINGR].s.Name then where := U_ARMRINGR;
  9574.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_ARMRINGL].s.Name then where := U_ARMRINGL;
  9575.                 end;
  9576.               end;

  9578.               g_WaitingUseItem := g_MovingItem;
  9579.               g_WaitingUseItem.Index := where;
  9580.               frmMain.SendTakeOnItem(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  9581.               g_MovingItem.Item.s.Name := '';
  9582.               g_MovingItem.Owner := nil;
  9583.               g_boItemMoving := False;
  9584.             end else begin
  9585.               g_ItemArr[idx] := g_MovingItem.Item;
  9586.               g_MovingItem.Item.s.Name := '';
  9587.               g_MovingItem.Owner := nil;
  9588.               g_boItemMoving := False;
  9589.             end;
  9590.           end;
  9591.         end else begin }
  9592.         ItemClickSound(g_ItemArr[Idx].s);
  9593.        // end;
  9594.       end;
  9595.     end else begin

  9597.       mi := g_MovingItem.Index;
  9598.       if (mi = -97) or (mi = -98) then Exit;
  9599.       if (mi < 0) and (mi >= -13 {-9}) and ((g_MovingItem.Owner = DStateWin) or (g_MovingItem.Owner = DHeroStateWin)) then begin //-99:
  9600.         if g_MovingItem.Owner = DStateWin then begin
  9601.           frmMain.SendTakeOffItem(-(g_MovingItem.Index + 1), g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  9602.         end else
  9603.           if g_MovingItem.Owner = DHeroStateWin then begin
  9604.           frmMain.SendTakeOffItemToMasterBag(-(g_MovingItem.Index + 1), g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  9605.         end;
  9606.         g_WaitingUseItem := g_MovingItem;
  9607.         g_MovingItem.Item.s.Name := '';
  9608.         g_boItemMoving := False;
  9609.         g_MovingItem.Owner := nil;
  9610.         ArrangeItemBag;
  9611.         Exit;
  9612.       end;
  9613.       if (mi <= -20) and (mi > -30) then
  9614.         DealItemReturnBag(g_MovingItem.Item);

  9616.       if (mi <= -30) and (mi > -40) then
  9617.         DuelItemReturnBag(g_MovingItem.Item);

  9619.       if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DDealDlg) or (g_MovingItem.Owner = DUpgrade) or (g_MovingItem.Owner = DStoreDlg) then begin
  9620.         if (g_ItemArr[Idx].s.Name <> '') then begin
  9621.           temp := g_ItemArr[Idx];
  9622.           g_ItemArr[Idx] := g_MovingItem.Item;
  9623.           g_MovingItem.Index := Idx;
  9624.           g_MovingItem.Item := temp;
  9625.           g_MovingItem.Owner := DItemBag;
  9626.         end else begin
  9627.           g_ItemArr[Idx] := g_MovingItem.Item;
  9628.           g_MovingItem.Item.s.Name := '';
  9629.           g_boItemMoving := False;
  9630.           g_MovingItem.Owner := nil;
  9631.         end;
  9632.         ArrangeItemBag;
  9633.         Exit;
  9634.       end;
  9635.       if (g_MovingItem.Owner = DHeroStateWin) or (g_MovingItem.Owner = DHeroItemBag) then begin
  9636.         if g_MovingItem.Owner = DHeroStateWin then begin
  9637.           frmMain.SendTakeOffItemToMasterBag(-(g_MovingItem.Index + 1), g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  9638.         end else
  9639.           if g_MovingItem.Owner = DHeroItemBag then begin
  9640.           frmMain.SendItemToMasterBag((g_MovingItem.Index), g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  9641.         end;
  9642.         g_WaitingUseItem := g_MovingItem;
  9643.         g_MovingItem.Item.s.Name := '';
  9644.         g_boItemMoving := False;
  9645.         g_MovingItem.Owner := nil;
  9646.       end;
  9647.     end;
  9648.   end;
  9649.   ArrangeItemBag;
  9650. end;

  9652. procedure TFrmDlg.DItemGridDblClick(Sender: TObject);
  9653. var
  9654.   Idx, I: Integer;
  9655.   keyvalue: TKeyBoardState;
  9656.   cu: TClientItem;
  9657.   where: Integer;
  9658.   flag: Boolean;
  9659. begin
  9660.   Idx := DItemGrid.Col + DItemGrid.Row * DItemGrid.ColCount + 6;
  9661.   if Idx in [6..MAXBAGITEM - 1] then begin
  9662.     if g_ItemArr[Idx].s.Name <> '' then begin
  9663.       FillChar(keyvalue, SizeOf(TKeyBoardState), #0);
  9664.       GetKeyboardState(keyvalue);
  9665.       if keyvalue[VK_CONTROL] = $80 then begin
  9666.         cu := g_ItemArr[Idx];
  9667.         g_ItemArr[Idx].s.Name := '';
  9668.         AddItemBag(cu);
  9669.       end else
  9670.         if (g_ItemArr[Idx].s.StdMode <= 4) or (g_ItemArr[Idx].s.StdMode = 31) or ((g_ItemArr[Idx].s.StdMode = 49) {and (g_ItemArr[idx].Dura >= g_ItemArr[idx].DuraMax)}) then begin
  9671.         frmMain.EatItem(Idx);
  9672.       end else begin
  9673.         if (g_WaitingUseItem.Item.s.Name = '') then begin
  9674.           flag := False;
  9675.           where := GetTakeOnPosition(g_ItemArr[Idx].s.StdMode);
  9676.           case where of
  9677.             U_DRESS: begin
  9678.                 if g_MySelf.m_btSex = 0 then
  9679.                   if g_ItemArr[Idx].s.StdMode = 10 then
  9680.                     flag := True;
  9681.                 if g_MySelf.m_btSex = 1 then
  9682.                   if g_ItemArr[Idx].s.StdMode = 11 then
  9683.                     flag := True;
  9684.               end;
  9685.             U_WEAPON: flag := True;
  9686.             U_NECKLACE: flag := True;
  9687.             U_RIGHTHAND: flag := True;
  9688.             U_HELMET: flag := True;
  9689.             U_RINGR, U_RINGL: flag := True;
  9690.             U_ARMRINGR, U_ARMRINGL: flag := True;
  9691.             U_BUJUK: flag := True;
  9692.             U_BELT: flag := True;
  9693.             U_BOOTS: flag := True;
  9694.             U_CHARM: flag := True;
  9695.           end;
  9696.           if flag then begin
  9697.             if where in [U_RINGR, U_RINGL] then begin
  9698.               if g_UseItems[U_RINGR].s.Name = '' then where := U_RINGR;
  9699.               if g_UseItems[U_RINGL].s.Name = '' then where := U_RINGL;
  9700.               if (g_UseItems[U_RINGR].s.Name <> '') and (g_UseItems[U_RINGL].s.Name <> '') then begin
  9701.                 if g_ItemArr[Idx].s.Name <> g_UseItems[U_RINGR].s.Name then where := U_RINGR;
  9702.                 if g_ItemArr[Idx].s.Name <> g_UseItems[U_RINGL].s.Name then where := U_RINGL;
  9703.               end;
  9704.             end;

  9706.             if where in [U_ARMRINGR, U_ARMRINGL] then begin
  9707.               if g_UseItems[U_ARMRINGR].s.Name = '' then where := U_ARMRINGR;
  9708.               if g_UseItems[U_ARMRINGL].s.Name = '' then where := U_ARMRINGL;
  9709.               if (g_UseItems[U_ARMRINGR].s.Name <> '') and (g_UseItems[U_ARMRINGL].s.Name <> '') then begin
  9710.                 if g_ItemArr[Idx].s.Name <> g_UseItems[U_ARMRINGR].s.Name then where := U_ARMRINGR;
  9711.                 if g_ItemArr[Idx].s.Name <> g_UseItems[U_ARMRINGL].s.Name then where := U_ARMRINGL;
  9712.               end;
  9713.             end;
  9714.             g_WaitingUseItem.Index := where;
  9715.             g_WaitingUseItem.Item := g_ItemArr[Idx];
  9716.             g_ItemArr[Idx].s.Name := '';
  9717.             frmMain.SendTakeOnItem(where, g_WaitingUseItem.Item.MakeIndex, g_WaitingUseItem.Item.s.Name);
  9718.           end;
  9719.         end;
  9720.         {if not g_boItemMoving then begin
  9721.           if g_ItemArr[idx].S.Name <> '' then begin
  9722.             g_btItemMoving := 2;
  9723.             g_boItemMoving := True;
  9724.             g_MovingItem.Index := idx;
  9725.             g_MovingItem.Item := g_ItemArr[idx];
  9726.             g_ItemArr[idx].S.Name := '';
  9727.             ItemClickSound(g_ItemArr[idx].S);
  9728.           end;
  9729.         end; }
  9730.       end;
  9731.     end else begin
  9732.       if g_boItemMoving and (g_MovingItem.Item.s.Name <> '') then begin
  9733.         FillChar(keyvalue, SizeOf(TKeyBoardState), #0);
  9734.         GetKeyboardState(keyvalue);
  9735.         if keyvalue[VK_CONTROL] = $80 then begin
  9736.           cu := g_MovingItem.Item;
  9737.           g_MovingItem.Item.s.Name := '';
  9738.           g_boItemMoving := False;
  9739.           AddItemBag(cu);
  9740.         end else
  9741.           if (g_MovingItem.Index = Idx) and
  9742.           (g_MovingItem.Item.s.StdMode <= 4) or (g_ItemArr[Idx].s.StdMode = 31) or ((g_ItemArr[Idx].s.StdMode = 49) { and (g_ItemArr[idx].Dura >= g_ItemArr[idx].DuraMax)}) then begin
  9743.           frmMain.EatItem(-1);
  9744.         end else
  9745.           if (g_WaitingUseItem.Item.s.Name = '') then begin
  9746.           if g_MovingItem.Index >= 0 then begin
  9747.             flag := False;
  9748.             where := GetTakeOnPosition(g_MovingItem.Item.s.StdMode);
  9749.             case where of
  9750.               U_DRESS: begin
  9751.                   if g_MySelf.m_btSex = 0 then
  9752.                     if g_MovingItem.Item.s.StdMode = 10 then
  9753.                       flag := True;
  9754.                   if g_MySelf.m_btSex = 1 then
  9755.                     if g_MovingItem.Item.s.StdMode = 11 then
  9756.                       flag := True;
  9757.                 end;
  9758.               U_WEAPON: flag := True;
  9759.               U_NECKLACE: flag := True;
  9760.               U_RIGHTHAND: flag := True;
  9761.               U_HELMET: flag := True;
  9762.               U_RINGR, U_RINGL: flag := True;
  9763.               U_ARMRINGR, U_ARMRINGL: flag := True;
  9764.               U_BUJUK: flag := True;
  9765.               U_BELT: flag := True;
  9766.               U_BOOTS: flag := True;
  9767.               U_CHARM: flag := True;
  9768.             end;

  9770.             if flag then begin
  9771.               if where in [U_RINGR, U_RINGL] then begin
  9772.                 if g_UseItems[U_RINGR].s.Name = '' then where := U_RINGR;
  9773.                 if g_UseItems[U_RINGL].s.Name = '' then where := U_RINGL;
  9774.                 if (g_UseItems[U_RINGR].s.Name <> '') and (g_UseItems[U_RINGL].s.Name <> '') then begin
  9775.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_RINGR].s.Name then where := U_RINGR;
  9776.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_RINGL].s.Name then where := U_RINGL;
  9777.                 end;
  9778.               end;

  9780.               if where in [U_ARMRINGR, U_ARMRINGL] then begin
  9781.                 if g_UseItems[U_ARMRINGR].s.Name = '' then where := U_ARMRINGR;
  9782.                 if g_UseItems[U_ARMRINGL].s.Name = '' then where := U_ARMRINGL;
  9783.                 if (g_UseItems[U_ARMRINGR].s.Name <> '') and (g_UseItems[U_ARMRINGL].s.Name <> '') then begin
  9784.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_ARMRINGR].s.Name then where := U_ARMRINGR;
  9785.                   if g_MovingItem.Item.s.Name <> g_UseItems[U_ARMRINGL].s.Name then where := U_ARMRINGL;
  9786.                 end;
  9787.               end;

  9789.               g_WaitingUseItem := g_MovingItem;
  9790.               g_WaitingUseItem.Index := where;
  9791.               frmMain.SendTakeOnItem(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  9792.               g_MovingItem.Item.s.Name := '';
  9793.               g_MovingItem.Owner := nil;
  9794.               g_boItemMoving := False;
  9795.             end;
  9796.           end;
  9797.         end;
  9798.       end;
  9799.     end;
  9800.   end;
  9801. end;

  9803. procedure TFrmDlg.DItemGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  9804.   Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  9805. var
  9806.   nIdx: Integer;
  9807.   d: TTexture;
  9808. begin
  9809.   nIdx := ACol + ARow * DItemGrid.ColCount + 6;
  9810.   if nIdx in [6..MAXBAGITEM - 1] then begin
  9811.     if g_ItemArr[nIdx].s.Name <> '' then begin
  9812.       d := g_WBagItemImages.Images[g_ItemArr[nIdx].s.looks];

  9814.       if d <> nil then
  9815.         with DItemGrid do begin
  9816.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  9817.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  9818.             d.ClientRect,
  9819.             d, True);
  9820.         end;

  9822.       with DItemGrid do begin
  9823.         if (g_ItemArr[nIdx].s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_ItemArr[nIdx].s.AddPoint))} then begin
  9824.           if GetTickCount - g_DrawItemArr[nIdx].dwDrawTick >= 200 then begin
  9825.             g_DrawItemArr[nIdx].dwDrawTick := GetTickCount;
  9826.             if g_DrawItemArr[nIdx].nIndex <= 0 then g_DrawItemArr[nIdx].nIndex := 260 - 1;
  9827.             Inc(g_DrawItemArr[nIdx].nIndex);
  9828.             if g_DrawItemArr[nIdx].nIndex > 265 then g_DrawItemArr[nIdx].nIndex := 260;
  9829.           end;

  9831.           d := g_WMain2Images.Images[g_DrawItemArr[nIdx].nIndex];
  9832.           if d <> nil then begin
  9833.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  9834.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  9835.           end;
  9836.         end;

  9838.         if g_ItemArr[nIdx].s.AddValue[12] >= 2 then begin
  9839.           if GetTickCount - g_DrawItemArr_[nIdx].dwDrawTick >= 200 then begin
  9840.             g_DrawItemArr_[nIdx].dwDrawTick := GetTickCount;
  9841.             if g_DrawItemArr_[nIdx].nIndex <= 0 then g_DrawItemArr_[nIdx].nIndex := 600 - 1;
  9842.             Inc(g_DrawItemArr_[nIdx].nIndex);
  9843.             if g_DrawItemArr_[nIdx].nIndex > 617 then g_DrawItemArr_[nIdx].nIndex := 600;
  9844.           end;

  9846.           d := g_WMain3Images.Images[g_DrawItemArr_[nIdx].nIndex];
  9847.           if d <> nil then begin
  9848.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  9849.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  9850.           end;
  9851.         end;
  9852.       end;
  9853.     end;
  9854.   end;
  9855. end;

  9857. procedure TFrmDlg.DGoldClick(Sender: TObject; X, Y: Integer);
  9858. begin
  9859.   if g_MySelf = nil then Exit;
  9860.   if not g_boItemMoving then begin
  9861.     if g_MySelf.m_nGold > 0 then begin
  9862.       PlaySound(s_money);
  9863.       g_boItemMoving := True;
  9864.       g_MovingItem.Index := -98; //捣
  9865.       g_MovingItem.Item.s.Name := g_sGoldName {'金币'};
  9866.     end;
  9867.   end else begin
  9868.     if (g_MovingItem.Index = -97) or (g_MovingItem.Index = -98) then begin //捣父..
  9869.       g_boItemMoving := False;
  9870.       g_MovingItem.Item.s.Name := '';
  9871.       if g_MovingItem.Index = -97 then begin //背券芒俊辑 颗
  9872.         DealZeroGold;
  9873.       end;
  9874.     end;
  9875.   end;
  9876. end;






  9883. {------------------------------------------------------------------------}

  9885. //惑牢 措拳 芒

  9887. {------------------------------------------------------------------------}

  9889. procedure TFrmDlg.DNpcLabelMouseMove(Sender: TObject;
  9890.   Shift: TShiftState; X, Y: Integer);
  9891. var
  9892.   NpcLabel: TNpcLabel;
  9893. begin
  9894.   if Sender is TNpcLabel then begin
  9895.     NpcLabel := TNpcLabel(Sender);
  9896.     with NpcLabel do
  9897.       DScreen.ShowHintA(SurfaceX(Left + Width), SurfaceY(Top) + 16, Hint, clInfoText, True);
  9898.   end;
  9899. end;

  9901. procedure TFrmDlg.GetMerchantSayLabel(sData: string; nRecogID: Integer);
  9902.   function CreateLabel(nX, nY, nRecogID: Integer; FColor: TColor; sData: string; boClick: Boolean): TNpcLabel;
  9903.   var
  9904.     NpcLabel: TNpcLabel;
  9905.   begin
  9906.     NpcLabel := TNpcLabel.Create(Self);
  9907.     NpcLabel.Font.Assign(frmMain.Font);
  9908.     //NpcLabel.Parent := DMerchantDlg;
  9909.     //NpcLabel.Name := 'Label';
  9910.    { if Pos('|', sData) > 0 then begin
  9911.       NpcLabel.Caption := Copy(sData, 1, Pos('|', sData) - 1);
  9912.       NpcLabel.Hint := Copy(sData, Pos('|', sData) + 1, Length(sData));
  9913.       NpcLabel.OnMouseMove := DNpcLabelMouseMove;
  9914.     end else begin
  9915.       NpcLabel.Caption := sData;
  9916.     end; }
  9917.     NpcLabel.Caption := sData;
  9918.     NpcLabel.Left := nX;
  9919.     NpcLabel.Top := nY;
  9920.     NpcLabel.UpColor := FColor;
  9921.     NpcLabel.HotColor := FColor;
  9922.     NpcLabel.DownColor := FColor;
  9923.   //NPCLabel.Font.Size := 10;
  9924.     NpcLabel.m_nRecogId := nRecogID;
  9925.     if DMerchantBigDlg.Visible then
  9926.       NpcLabel.DParent := DMerchantBigDlg //DMerchantDlg;
  9927.     else
  9928.       NpcLabel.DParent := DMerchantDlg;
  9929.     {NpcLabel.Canvas.Font.Assign(DMerchantDlg.Canvas.Font);
  9930.     NpcLabel.Canvas.Brush.Assign(DMerchantDlg.Canvas.Brush);}
  9931.     NpcLabel.OnClick := nil;

  9933.     if boClick then begin
  9934.       NpcLabel.OnClick := NpcLabelClick;
  9935.       NpcLabel.Cursor := crHandPoint;
  9936.       NpcLabel.HotColor := GetRGB(69); //clPurple;//clGreen;//clBlue;//clRed; //clAqua;//clFuchsia;
  9937.       NpcLabel.DownColor := clLime;
  9938.     end;
  9939.     NpcLabel.EnableFocus := False;
  9940.     Result := NpcLabel;
  9941.   end;

  9943. var
  9944.   Str, data, fdata, cmdstr, cmdmsg, cmdparam: string;
  9945.   lx, ly, sx: Integer;
  9946.   drawcenter: Boolean;
  9947.   nLength: Integer;
  9948.   btColor: Byte;
  9949.   UseColor: TColor;
  9950.   sColor: string;
  9951.   sNPCName: string;
  9952.   TempList: TStringList;
  9953.   I: Integer;
  9954.   NpcLabel: TNpcLabel;
  9955.   NpcLabelCmd: TNpcLabel;
  9956.   nPos: Integer;
  9957.   nAddY: Integer;
  9958.   sHintString: string;
  9959. begin
  9960.   //DebugOutStr('TFrmDlg.GetMerchantSayLabel:'+INTTOSTR(gettickcount - dwtick));

  9962.   TempList := TStringList.Create;
  9963.   try
  9964.     Str := sData;
  9965.   //Str := GetValidStr3(Str, sNPCName, ['/']);
  9966.     UseColor := clRed;

  9968.     lx := 30;
  9969.     ly := 20;

  9971.     drawcenter := False;

  9973.     NpcLabel := nil;
  9974.     NpcLabelCmd := nil;
  9975.     while True do begin
  9976.       if Str = '' then Break;
  9977.       Str := GetValidStr3(Str, data, ['\']);
  9978.       if data <> '' then begin
  9979.         sx := 0;
  9980.         fdata := '';
  9981.         while (Pos('<', data) > 0) and (Pos('>', data) > 0) and (data <> '') do begin
  9982.           if data[1] <> '<' then begin
  9983.             data := '<' + GetValidStr3(data, fdata, ['<']);
  9984.           end;
  9985.           data := ArrestStringEx(data, '<', '>', cmdstr);
  9986.           if cmdstr <> '' then begin
  9987.             cmdparam := GetValidStr3(cmdstr, cmdstr, ['/']); //cmdparam :
  9988.           end else begin
  9989.             Continue;
  9990.           end;
  9991.           if fdata <> '' then begin
  9992.             NpcLabel := CreateLabel(lx + sx, ly, MerchantFace, clWhite, fdata, False);
  9993.             sx := sx + ImageCanvas.TextWidth(fdata);
  9994.           end;
  9995.           if (Length(cmdparam) > 0) and (cmdparam[1] <> '@') then begin
  9996.             nLength := CompareText(cmdparam, 'FCOLOR=');
  9997.             if (nLength > 0) and (Length(cmdparam) > Length('FCOLOR=')) then begin
  9998.               sColor := Copy(cmdparam, Length('FCOLOR=') + 1, nLength);
  9999.               btColor := Str_ToInt(sColor, 100);
  10000.               UseColor := GetRGB(btColor);
  10001.               cmdparam := '';
  10002.             end else
  10003.               nLength := CompareText(cmdparam, 'AUTOCOLOR='); //2007-2-28 Mars增加自动变色NPC字体
  10004.             if (nLength >= 0) and (Length(cmdparam) >= Length('AUTOCOLOR=')) then begin
  10005.               sColor := Copy(cmdparam, Length('AUTOCOLOR=') + 1, nLength);
  10006.               if Pos(',', sColor) > 0 then begin
  10007.                 TempList.Clear;
  10008.                 ExtractStrings([','], [], PChar(sColor), TempList);
  10009.               end;
  10010.               cmdparam := '';
  10011.             end else begin

  10013.             end;
  10014.           end;
  10015.           if (Length(cmdparam) > 0) and (cmdparam[1] = '@') then begin

  10017.             if Pos('|', cmdstr) > 0 then begin
  10018.               sHintString := Copy(cmdstr, Pos('|', cmdstr) + 1, Length(cmdstr));
  10019.               cmdstr := Copy(cmdstr, 1, Pos('|', cmdstr) - 1);

  10021.               if Pos('|', sHintString) > 0 then
  10022.                 for I := 1 to Length(sHintString) - 1 do begin
  10023.                   if sHintString[I] = '|' then sHintString[I] := '\';
  10024.                 end;
  10025.       //NpcLabel.OnMouseMove := DNpcLabelMouseMove;
  10026.             end else begin
  10027.               sHintString := ''
  10028.             end;

  10030.             NpcLabelCmd := CreateLabel(lx + sx, ly, MerchantFace, clyellow, cmdstr, True);
  10031.             NpcLabelCmd.Font.Style := NpcLabelCmd.Font.Style + [fsUnderline];
  10032.             if sHintString <> '' then begin
  10033.               NpcLabelCmd.OnMouseMove := DNpcLabelMouseMove;
  10034.               NpcLabelCmd.Hint := sHintString;
  10035.             end;
  10036.           end else begin
  10037.             if Pos('|', cmdstr) > 0 then begin
  10038.               sHintString := Copy(cmdstr, Pos('|', cmdstr) + 1, Length(cmdstr));
  10039.               cmdstr := Copy(cmdstr, 1, Pos('|', cmdstr) - 1);
  10040.               if Pos('|', sHintString) > 0 then
  10041.                 for I := 1 to Length(sHintString) - 1 do begin
  10042.                   if sHintString[I] = '|' then sHintString[I] := '\';
  10043.                 end;
  10044.       //NpcLabel.OnMouseMove := DNpcLabelMouseMove;
  10045.             end else begin
  10046.               sHintString := ''
  10047.             end;
  10048.             NpcLabelCmd := CreateLabel(lx + sx, ly, MerchantFace, UseColor, cmdstr, False);
  10049.             if sHintString <> '' then begin
  10050.               NpcLabelCmd.OnMouseMove := DNpcLabelMouseMove;
  10051.               NpcLabelCmd.Hint := sHintString;
  10052.             end;
  10053.             if TempList.Count > 0 then begin
  10054.               for I := 0 to TempList.Count - 1 do begin
  10055.                 NpcLabelCmd.AddColor(Str_ToInt(TempList.Strings[I], 100));
  10056.               end;
  10057.               TempList.Clear;
  10058.             end;
  10059.           end;
  10060.           sx := sx + ImageCanvas.TextWidth(cmdstr);
  10061.           NpcLabelCmd.Text := cmdparam;
  10062.         end; // while (Pos('<', data) > 0)
  10063.         if data <> '' then begin
  10064.           NpcLabel := CreateLabel(lx + sx, ly, MerchantFace, clWhite, data, False);
  10065.         end;
  10066.         Inc(ly, 16);
  10067.       end else Inc(ly, 16);
  10068.     end;
  10069.   finally
  10070.     TempList.Free;
  10071.   end;
  10072. end;

  10074. procedure TFrmDlg.ShowMDlg(face: Integer; mname, msgstr: string);
  10075. var
  10076.   I: Integer;
  10077.   c: TControl;
  10078. begin
  10079.   for I := DMerchantDlg.DControls.Count - 1 downto 0 do begin
  10080.     c := TControl(DMerchantDlg.DControls.Items[I]);
  10081.     if (c is TDLabel) or (c is TNpcLabel) then begin
  10082.       c.Free;
  10083.     end;
  10084.   end;

  10086.   for I := DMerchantBigDlg.DControls.Count - 1 downto 0 do begin
  10087.     c := TControl(DMerchantBigDlg.DControls.Items[I]);
  10088.     if (c is TDLabel) or (c is TNpcLabel) then begin
  10089.       c.Free;
  10090.     end;
  10091.   end;

  10093.   GetMerchantSayLabel(msgstr, g_nCurMerchant);

  10095.   DMerchantDlg.Left := 0;
  10096.   DMerchantDlg.Top := 0;

  10098.   DMerchantBigDlg.Left := 0;
  10099.   DMerchantBigDlg.Top := 0;

  10101.   MerchantFace := face;
  10102.   MerchantName := mname;
  10103.   MDlgStr := msgstr;
  10104.   DItemBag.Left := 475;
  10105.   DItemBag.Top := 80;

  10107.   if not DMerchantBigDlg.Visible then begin
  10108.     DMerchantDlg.Floating := True;
  10109.     try
  10110.       DMerchantDlg.Visible := True;
  10111.     finally
  10112.       DMerchantDlg.Floating := False;
  10113.     end;
  10114.   end;

  10116.   RequireAddPoints := True;
  10117.   LastestClickTime := GetTickCount;
  10118. end;

  10120. procedure TFrmDlg.ResetMenuDlg;
  10121. var
  10122.   I: Integer;
  10123. begin
  10124.   CloseDSellDlg;
  10125.   for I := 0 to g_MenuItemList.Count - 1 do
  10126.     Dispose(pTClientItem(g_MenuItemList[I]));
  10127.   g_MenuItemList.Clear;

  10129.   for I := 0 to MenuList.Count - 1 do
  10130.     Dispose(PTClientGoods(MenuList[I]));
  10131.   MenuList.Clear;

  10133.   //CurDetailItem := '';
  10134.   menuindex := -1;
  10135.   MenuTopLine := 0;
  10136.   BoDetailMenu := False;
  10137.   BoStorageMenu := False;
  10138.   BoMakeDrugMenu := False;

  10140.   DSellDlg.Visible := False;
  10141.   DMenuDlg.Visible := False;
  10142.   if EdChat.Visible then EdChat.SetFocus;
  10143. end;

  10145. procedure TFrmDlg.ShowShopMenuDlg;
  10146. begin
  10147.   menuindex := -1;

  10149.   if DMerchantBigDlg.Visible then begin
  10150.     DMerchantBigDlg.Left := 0;
  10151.     DMerchantBigDlg.Top := 0;
  10152.     DMerchantBigDlg.Floating := True;
  10153.     try
  10154.       DMerchantBigDlg.Visible := True;
  10155.     finally
  10156.       DMerchantBigDlg.Floating := False;
  10157.     end;
  10158.   end else begin
  10159.     DMerchantDlg.Left := 0;
  10160.     DMerchantDlg.Top := 0;
  10161.     DMerchantDlg.Floating := True;
  10162.     try
  10163.       DMerchantDlg.Visible := True;
  10164.     finally
  10165.       DMerchantDlg.Floating := False;
  10166.     end;
  10167.   end;
  10168.   DSellDlg.Visible := False;

  10170.   if DMerchantBigDlg.Visible then begin
  10171.     DMenuDlg.Top := 347;
  10172.   end else begin
  10173.     DMenuDlg.Top := 176;
  10174.   end;

  10176.   DMenuDlg.Left := 0;
  10177.   //DMenuDlg.Top := 176;
  10178.   DMenuDlg.Visible := True;
  10179.   MenuTop := 0;

  10181.   if DMerchantBigDlg.Visible then begin
  10182.     DItemBag.Left := 568;
  10183.   end else begin
  10184.     DItemBag.Left := 475;
  10185.   end;
  10186.   DItemBag.Top := 80;
  10187.   DItemBag.Visible := True;

  10189.   LastestClickTime := GetTickCount;
  10190. end;

  10192. procedure TFrmDlg.ShowShopSellDlg;
  10193. begin
  10194.   if DMerchantBigDlg.Visible then begin
  10195.     DSellDlg.Left := DMerchantBigDlg.Width - DSellDlg.Width;
  10196.     DSellDlg.Top := 347;
  10197.   end else begin
  10198.     DSellDlg.Left := 260;
  10199.     DSellDlg.Top := 176;
  10200.   end;
  10201.   DSellDlg.Visible := True;

  10203.   DMenuDlg.Visible := False;

  10205.   if DMerchantBigDlg.Visible then begin
  10206.     DItemBag.Left := 568;
  10207.   end else begin
  10208.     DItemBag.Left := 475;
  10209.   end;
  10210.   DItemBag.Top := 80;
  10211.   DItemBag.Visible := True;

  10213.   LastestClickTime := GetTickCount;
  10214.   g_sSellPriceStr := '';
  10215. end;

  10217. procedure TFrmDlg.CloseMDlg;
  10218. var
  10219.   I: Integer;
  10220. begin
  10221.   MDlgStr := '';
  10222.   DMerchantDlg.Visible := False;
  10223.   for I := 0 to MDlgPoints.Count - 1 do
  10224.     Dispose(pTClickPoint(MDlgPoints[I]));
  10225.   MDlgPoints.Clear;

  10227.   DItemBag.Left := 0;
  10228.   DItemBag.Top := 80;
  10229.   DMenuDlg.Visible := False;
  10230.   CloseDSellDlg;
  10231. end;

  10233. procedure TFrmDlg.CloseBigMDlg;
  10234. var
  10235.   I: Integer;
  10236. begin
  10237.   g_nCurMerchantFaceIdx := -1;
  10238.   MDlgStr := '';
  10239.   DMerchantBigDlg.Visible := False;
  10240.   for I := 0 to MDlgPoints.Count - 1 do
  10241.     Dispose(pTClickPoint(MDlgPoints[I]));
  10242.   MDlgPoints.Clear;

  10244.   DItemBag.Left := 0;
  10245.   DItemBag.Top := 80;
  10246.   DMenuDlg.Visible := False;
  10247.   CloseDSellDlg;
  10248. end;

  10250. procedure TFrmDlg.CloseDSellDlg;
  10251. begin
  10252.   DSellDlg.Visible := False;
  10253.   if g_SellDlgItem.s.Name <> '' then
  10254.     AddItemBag(g_SellDlgItem);
  10255.   g_SellDlgItem.s.Name := '';
  10256. end;

  10258. procedure TFrmDlg.DMerchantDlgDirectPaint(Sender: TObject;
  10259.   dsurface: TTexture);
  10260. var
  10261.   d: TTexture;
  10262. begin
  10263.   with Sender as TDWindow do begin
  10264.     d := nil;
  10265.     if WLib <> nil then
  10266.       d := WLib.Images[FaceIndex];
  10267.     if d <> nil then begin
  10268.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10269.       if (Sender = DMerchantBigDlg) and (g_nCurMerchantFaceIdx >= 0) then begin
  10270.         d := g_WNpcFaceImages.Images[g_nCurMerchantFaceIdx];
  10271.         if d <> nil then
  10272.           dsurface.Draw(SurfaceX(Left + Width - d.Width - 26), SurfaceY(Top + 8), d.ClientRect, d, True);
  10273.       end;
  10274.     end;
  10275.   end;
  10276. end;

  10278. procedure TFrmDlg.DMerchantDlgCloseClick(Sender: TObject; X, Y: Integer);
  10279. begin
  10280.   CloseMDlg;
  10281. end;

  10283. procedure TFrmDlg.DMenuDlgDirectPaint(Sender: TObject;
  10284.   dsurface: TTexture);
  10285.   function sx(X: Integer): Integer;
  10286.   begin
  10287.     Result := DMenuDlg.SurfaceX(DMenuDlg.Left + X);
  10288.   end;
  10289.   function sY(Y: Integer): Integer;
  10290.   begin
  10291.     Result := DMenuDlg.SurfaceY(DMenuDlg.Top + Y);
  10292.   end;
  10293. var
  10294.   I, lh, k, m, menuline: Integer;
  10295.   d: TTexture;
  10296.   pg: PTClientGoods;
  10297.   Str: string;
  10298.   c: TColor;
  10299. begin
  10300.   with dsurface do begin
  10301.     with DMenuDlg do begin
  10302.       d := nil;
  10303.       if DMenuDlg.WLib <> nil then
  10304.         d := DMenuDlg.WLib.Images[FaceIndex];
  10305.       if d <> nil then
  10306.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10307.     end;

  10309.     if not BoStorageMenu then begin
  10310.       TextOut(sx(19), sY(11), '物品列表');
  10311.       TextOut(sx(156), sY(11), '费用');
  10312.       TextOut(sx(245), sY(11), '持久.');
  10313.       lh := LISTLINEHEIGHT;
  10314.       menuline := _MIN(MAXMENU, MenuList.Count - MenuTop);
  10315.       //惑前 府胶飘
  10316.       for I := MenuTop to MenuTop + menuline - 1 do begin
  10317.         m := I - MenuTop;
  10318.         if I = menuindex then begin
  10319.           c := clRed;
  10320.           TextOut(sx(12), sY(32 + m * lh), Char(7), c);
  10321.         end else c := clWhite;
  10322.         pg := PTClientGoods(MenuList[I]);
  10323.         TextOut(sx(19), sY(32 + m * lh), pg.Name, c);
  10324.         if pg.SubMenu >= 1 then
  10325.           TextOut(sx(137), sY(32 + m * lh), #31, c);
  10326.         TextOut(sx(156), sY(32 + m * lh), IntToStr(pg.Price) + ' ' + g_sGoldName {金币'}, c);
  10327.         Str := '';
  10328.         if pg.Grade = -1 then Str := '-'
  10329.         else TextOut(sx(245), sY(32 + m * lh), IntToStr(pg.Grade), c);
  10330.         {else for k:=0 to pg.Grade-1 do
  10331.            str := str + '*';
  10332.         if Length(str) >= 4 then begin
  10333.            Font.Color := clYellow;
  10334.            TextOut (SX(245), SY(32 + m*lh), str);
  10335.         end else
  10336.            TextOut (SX(245), SY(32 + m*lh), str);}
  10337.       end;
  10338.     end else begin
  10339.       TextOut(sx(19), sY(11), '物品列表');
  10340.       TextOut(sx(156), sY(11), '持久');
  10341.       TextOut(sx(245), sY(11), '');
  10342.       lh := LISTLINEHEIGHT;
  10343.       menuline := _MIN(MAXMENU, MenuList.Count - MenuTop);
  10344.       //惑前 府胶飘
  10345.       for I := MenuTop to MenuTop + menuline - 1 do begin
  10346.         m := I - MenuTop;
  10347.         if I = menuindex then begin
  10348.           c := clRed;
  10349.           TextOut(sx(12), sY(32 + m * lh), Char(7), c);
  10350.         end else c := clWhite;
  10351.         pg := PTClientGoods(MenuList[I]);
  10352.         TextOut(sx(19), sY(32 + m * lh), pg.Name, c);
  10353.         if pg.SubMenu >= 1 then
  10354.           TextOut(sx(137), sY(32 + m * lh), #31, c);
  10355.         TextOut(sx(156), sY(32 + m * lh), IntToStr(pg.Stock) + '/' + IntToStr(pg.Grade), c);
  10356.       end;
  10357.     end;
  10358.   end;
  10359. end;

  10361. procedure TFrmDlg.DMenuDlgClick(Sender: TObject; X, Y: Integer);
  10362. var
  10363.   lx, ly, Idx: Integer;
  10364.   iname, d1, d2, d3: string;
  10365.   useable: Boolean;
  10366. begin
  10367.   DScreen.ClearHint;
  10368.   lx := DMenuDlg.LocalX(X) - DMenuDlg.Left;
  10369.   ly := DMenuDlg.LocalY(Y) - DMenuDlg.Top;
  10370.   if (lx >= 14) and (lx <= 279) and (ly >= 32) then begin
  10371.     Idx := (ly - 32) div LISTLINEHEIGHT + MenuTop;
  10372.     if Idx < MenuList.Count then begin
  10373.       PlaySound(s_glass_button_click);
  10374.       menuindex := Idx;
  10375.     end;
  10376.   end;

  10378.   if BoStorageMenu then begin
  10379.     if (menuindex >= 0) and (menuindex < g_SaveItemList.Count) then begin
  10380.       g_MouseItem := pTClientItem(g_SaveItemList[menuindex])^;
  10381.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  10382.       if HintList.Count > 0 then begin
  10383.         lx := 240;
  10384.         ly := 32 + (menuindex - MenuTop) * LISTLINEHEIGHT;
  10385.         with Sender as TDButton do
  10386.           DScreen.ShowHint(DMenuDlg.SurfaceX(Left + lx),
  10387.             DMenuDlg.SurfaceY(Top + ly),
  10388.             HintList, False);
  10389.       end;
  10390.       g_MouseItem.s.Name := '';
  10391.     end;
  10392.   end else begin
  10393.     if (menuindex >= 0) and (menuindex < g_MenuItemList.Count) and (PTClientGoods(MenuList[menuindex]).SubMenu = 0) then begin
  10394.       g_MouseItem := pTClientItem(g_MenuItemList[menuindex])^;
  10395.       BoNoDisplayMaxDura := True;
  10396.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  10397.       BoNoDisplayMaxDura := False;
  10398.       if HintList.Count > 0 then begin
  10399.         lx := 240;
  10400.         ly := 32 + (menuindex - MenuTop) * LISTLINEHEIGHT;
  10401.         with Sender as TDButton do
  10402.           DScreen.ShowHint(DMenuDlg.SurfaceX(Left + lx),
  10403.             DMenuDlg.SurfaceY(Top + ly),
  10404.             HintList, False);
  10405.       end;
  10406.       g_MouseItem.s.Name := '';
  10407.     end;
  10408.   end;
  10409. end;

  10411. procedure TFrmDlg.DMenuDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
  10412.   Y: Integer);
  10413. begin
  10414.   with DMenuDlg do
  10415.     if (X < SurfaceX(Left + 10)) or (X > SurfaceX(Left + Width - 20)) or (Y < SurfaceY(Top + 30)) or (Y > SurfaceY(Top + Height - 50)) then begin
  10416.       DScreen.ClearHint;
  10417.     end;
  10418. end;

  10420. procedure TFrmDlg.DMenuBuyClick(Sender: TObject; X, Y: Integer);
  10421. var
  10422.   pg: PTClientGoods;
  10423. begin
  10424.   if GetTickCount < LastestClickTime then Exit; //努腐阑 磊林 给窍霸 力茄
  10425.   if (menuindex >= 0) and (menuindex < MenuList.Count) then begin
  10426.     pg := PTClientGoods(MenuList[menuindex]);
  10427.     LastestClickTime := GetTickCount + 5000;
  10428.     if pg.SubMenu > 0 then begin
  10429.       frmMain.SendGetDetailItem(g_nCurMerchant, 0, pg.Name);
  10430.       MenuTopLine := 0;
  10431.       CurDetailItem := pg.Name;
  10432.     end else begin
  10433.       if BoStorageMenu then begin
  10434.         frmMain.SendTakeBackStorageItem(g_nCurMerchant, pg.Price {MakeIndex}, pg.Name);
  10435.         Exit;
  10436.       end;
  10437.       if BoMakeDrugMenu then begin
  10438.         frmMain.SendMakeDrugItem(g_nCurMerchant, pg.Name);
  10439.         Exit;
  10440.       end;
  10441.       frmMain.SendBuyItem(g_nCurMerchant, pg.Stock, pg.Name)
  10442.     end;
  10443.   end;
  10444. end;

  10446. procedure TFrmDlg.DMenuPrevClick(Sender: TObject; X, Y: Integer);
  10447. begin
  10448.   if not BoDetailMenu then begin
  10449.     if MenuTop > 0 then Dec(MenuTop, MAXMENU - 1);
  10450.     if MenuTop < 0 then MenuTop := 0;
  10451.   end else begin
  10452.     if MenuTopLine > 0 then begin
  10453.       MenuTopLine := _MAX(0, MenuTopLine - 10);
  10454.       frmMain.SendGetDetailItem(g_nCurMerchant, MenuTopLine, CurDetailItem);
  10455.     end;
  10456.   end;
  10457. end;

  10459. procedure TFrmDlg.DMenuNextClick(Sender: TObject; X, Y: Integer);
  10460. begin
  10461.   if not BoDetailMenu then begin
  10462.     if MenuTop + MAXMENU < MenuList.Count then Inc(MenuTop, MAXMENU - 1);
  10463.   end else begin
  10464.     MenuTopLine := MenuTopLine + 10;
  10465.     frmMain.SendGetDetailItem(g_nCurMerchant, MenuTopLine, CurDetailItem);
  10466.   end;
  10467. end;

  10469. procedure TFrmDlg.SoldOutGoods(itemserverindex: Integer);
  10470. var
  10471.   I: Integer;
  10472.   pg: PTClientGoods;
  10473. begin
  10474.   for I := 0 to MenuList.Count - 1 do begin
  10475.     pg := PTClientGoods(MenuList[I]);
  10476.     if (pg.Grade >= 0) and (pg.Stock = itemserverindex) then begin
  10477.       Dispose(pg);
  10478.       MenuList.Delete(I);
  10479.       if I < g_MenuItemList.Count then g_MenuItemList.Delete(I);
  10480.       if menuindex > MenuList.Count - 1 then menuindex := MenuList.Count - 1;
  10481.       Break;
  10482.     end;
  10483.   end;
  10484. end;

  10486. procedure TFrmDlg.DelStorageItem(itemserverindex: Integer);
  10487. var
  10488.   I: Integer;
  10489.   pg: PTClientGoods;
  10490. begin
  10491.   for I := 0 to MenuList.Count - 1 do begin
  10492.     pg := PTClientGoods(MenuList[I]);
  10493.     if (pg.Price = itemserverindex) then begin //焊包格废牢版款 Price = ItemServerIndex烙.
  10494.       Dispose(pg);
  10495.       MenuList.Delete(I);
  10496.       if I < g_SaveItemList.Count then g_SaveItemList.Delete(I);
  10497.       if menuindex > MenuList.Count - 1 then menuindex := MenuList.Count - 1;
  10498.       Break;
  10499.     end;
  10500.   end;
  10501. end;

  10503. procedure TFrmDlg.DMenuCloseClick(Sender: TObject; X, Y: Integer);
  10504. begin
  10505.   DMenuDlg.Visible := False;
  10506. end;

  10508. procedure TFrmDlg.DMerchantDlgMouseUp(Sender: TObject;
  10509.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  10510. begin
  10511.   SelectMenuStr := '';
  10512. end;

  10514. procedure TFrmDlg.DSellDlgDirectPaint(Sender: TObject;
  10515.   dsurface: TTexture);
  10516. var
  10517.   d: TTexture;
  10518.   actionname: string;
  10519. begin
  10520.   with DSellDlg do begin
  10521.     d := nil;
  10522.     if DMenuDlg.WLib <> nil then
  10523.       d := DMenuDlg.WLib.Images[FaceIndex];
  10524.     if d <> nil then
  10525.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  10527.     with dsurface do begin
  10528.       actionname := '';
  10529.       case SpotDlgMode of
  10530.         dmSell: actionname := '出售: ';
  10531.         dmRepair: actionname := '修理: ';
  10532.         dmStorage: actionname := ' 保管物品';
  10533.         dmSellOff: actionname := '寄售物品: ';
  10534.         dmChange: actionname := '修改物品: ';
  10535.       end;
  10536.       if SpotDlgMode = dmSellOff then begin
  10537.         TextOut(SurfaceX(Left + 8), SurfaceY(Top + 6), actionname + g_sSellPriceStr + ' ' + g_sGameGoldName);
  10538.       end else begin
  10539.         TextOut(SurfaceX(Left + 8), SurfaceY(Top + 6), actionname + g_sSellPriceStr);
  10540.       end;
  10541.     end;
  10542.   end;
  10543. end;

  10545. procedure TFrmDlg.DSellDlgCloseClick(Sender: TObject; X, Y: Integer);
  10546. begin
  10547.   CloseDSellDlg;
  10548. end;

  10550. procedure TFrmDlg.DSellDlgSpotClick(Sender: TObject; X, Y: Integer);
  10551. var
  10552.   temp: TClientItem;
  10553.   sSellPriceStr: string;
  10554. begin
  10555.   g_sSellPriceStr := '';
  10556.   if not g_boItemMoving then begin
  10557.     if g_SellDlgItem.s.Name <> '' then begin
  10558.       ItemClickSound(g_SellDlgItem.s);
  10559.       g_boItemMoving := True;
  10560.       g_MovingItem.Index := -99; //sell
  10561.       g_MovingItem.Item := g_SellDlgItem;
  10562.       g_SellDlgItem.s.Name := '';
  10563.     end;
  10564.   end else begin
  10565.     if (g_MovingItem.Owner = DHeroItemBag) or (g_MovingItem.Owner = DHeroStateWin) then Exit;
  10566.     if (g_MovingItem.Index = -97) or (g_MovingItem.Index = -98) then Exit;
  10567.     if (g_MovingItem.Index >= 0) or (g_MovingItem.Index = -99) then begin
  10568.       ItemClickSound(g_MovingItem.Item.s);
  10569.       if g_SellDlgItem.s.Name <> '' then begin
  10570.         temp := g_SellDlgItem;
  10571.         g_SellDlgItem := g_MovingItem.Item;
  10572.         g_MovingItem.Index := -99; //sell
  10573.         g_MovingItem.Item := temp;
  10574.         if SpotDlgMode = dmChange then begin
  10575.           g_sSellPriceStr := g_SellDlgItem.s.Name;
  10576.           frmMain.SendChangeItem(g_nCurMerchant, g_SellDlgItem.MakeIndex, g_SellDlgItem.s.Name);
  10577.         end;
  10578.       end else begin
  10579.         g_SellDlgItem := g_MovingItem.Item;
  10580.         g_MovingItem.Item.s.Name := '';
  10581.         g_boItemMoving := False;
  10582.         if SpotDlgMode = dmSellOff then begin
  10583.           DMessageDlg('输入出售价格：', [mbOk, mbAbort]);
  10584.           g_sSellPriceStr := IntToStr(Str_ToInt(Trim(DlgEditText), -1));
  10585.           {if StrToInt(g_sSellPriceStr) < 0 then begin
  10586.             g_MovingItem.Item := g_SellDlgItem;
  10587.             g_SellDlgItem.S.Name := '';
  10588.             g_boItemMoving := True;
  10589.           end; }
  10590.         end else
  10591.           if SpotDlgMode = dmChange then begin
  10592.           g_sSellPriceStr := g_SellDlgItem.s.Name;
  10593.           frmMain.SendChangeItem(g_nCurMerchant, g_SellDlgItem.MakeIndex, g_SellDlgItem.s.Name);
  10594.         end;
  10595.       end;
  10596.       g_boQueryPrice := True;
  10597.       g_dwQueryPriceTime := GetTickCount;
  10598.     end;
  10599.   end;

  10601. end;

  10603. procedure TFrmDlg.DSellDlgSpotDirectPaint(Sender: TObject;
  10604.   dsurface: TTexture);
  10605. var
  10606.   d: TTexture;
  10607. begin
  10608.   if g_SellDlgItem.s.Name <> '' then begin
  10609.     d := g_WBagItemImages.Images[g_SellDlgItem.s.looks];
  10610.     if d <> nil then
  10611.       with DSellDlgSpot do
  10612.         dsurface.Draw(SurfaceX(Left + (Width - d.Width) div 2),
  10613.           SurfaceY(Top + (Height - d.Height) div 2),
  10614.           d.ClientRect,
  10615.           d, True);
  10616.   end;
  10617. end;

  10619. procedure TFrmDlg.DSellDlgSpotMouseMove(Sender: TObject;
  10620.   Shift: TShiftState; X, Y: Integer);
  10621. var
  10622.   iname, d1, d2, d3: string;
  10623.   useable: Boolean;
  10624. begin
  10625.   g_MouseItem := g_SellDlgItem;
  10626.   if g_MouseItem.s.Name <> '' then begin
  10627.     GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  10628.     if HintList.Count > 0 then begin
  10629.       with DSellDlgSpot do
  10630.         DScreen.ShowHint(SurfaceX(Left),
  10631.           SurfaceY(Top),
  10632.           HintList, False);
  10633.     end;
  10634.   end;
  10635. end;

  10637. procedure TFrmDlg.DSellDlgOkClick(Sender: TObject; X, Y: Integer);
  10638. begin
  10639.   if (g_SellDlgItem.s.Name = '') and (g_SellDlgItemSellWait.s.Name = '') then Exit;
  10640.   if GetTickCount < LastestClickTime then Exit;
  10641.   case SpotDlgMode of
  10642.     dmSell: frmMain.SendSellItem(g_nCurMerchant, g_SellDlgItem.MakeIndex, g_SellDlgItem.s.Name);
  10643.     dmRepair: frmMain.SendRepairItem(g_nCurMerchant, g_SellDlgItem.MakeIndex, g_SellDlgItem.s.Name);
  10644.     dmStorage: frmMain.SendStorageItem(g_nCurMerchant, g_SellDlgItem.MakeIndex, g_SellDlgItem.s.Name);
  10645.     dmSellOff: begin
  10646.         if StrToInt(g_sSellPriceStr) < 0 then Exit;
  10647.         frmMain.SendSellOffItem(g_nCurMerchant, g_SellDlgItem.MakeIndex, g_sSellPriceStr + '/' + g_SellDlgItem.s.Name);
  10648.       end;
  10649.     dmChange: frmMain.SendChangeItem(g_nCurMerchant, g_SellDlgItem.MakeIndex, g_SellDlgItem.s.Name);
  10650.   end;
  10651.   if SpotDlgMode <> dmChange then begin //DSellDlg.Visible := False;
  10652.     g_SellDlgItemSellWait := g_SellDlgItem;
  10653.     g_SellDlgItem.s.Name := '';
  10654.     g_sSellPriceStr := '';
  10655.   end;
  10656.   LastestClickTime := GetTickCount + 5000;
  10657. end;





  10663. {------------------------------------------------------------------------}

  10665. //魔法 虐 汲沥 芒 (促捞倔 肺弊)

  10667. {------------------------------------------------------------------------}


  10670. procedure TFrmDlg.SetMagicKeyDlg(icon: Integer; magname: string; var curkey: Word);
  10671. begin
  10672.   MagKeyIcon := icon;
  10673.   MagKeyMagName := magname;
  10674.   MagKeyCurKey := curkey;


  10677.   DKeySelDlg.Left := (SCREENWIDTH - DKeySelDlg.Width) div 2;
  10678.   DKeySelDlg.Top := (SCREENHEIGHT - DKeySelDlg.Height) div 2;
  10679.   HideAllControls;
  10680.   DKeySelDlg.ShowModal;

  10682.   while True do begin
  10683.     if not DKeySelDlg.Visible then Break;
  10684.     //FrmMain.DXTimerTimer (self, 0);
  10685.     frmMain.ProcOnIdle;
  10686.     Application.ProcessMessages;
  10687.     if Application.Terminated then Exit;
  10688.     Sleep(1);
  10689.   end;

  10691.   RestoreHideControls;
  10692.   curkey := MagKeyCurKey;
  10693. end;

  10695. procedure TFrmDlg.DKeySelDlgDirectPaint(Sender: TObject;
  10696.   dsurface: TTexture);
  10697. var
  10698.   d: TTexture;
  10699. begin
  10700.   with DKeySelDlg do begin
  10701.     d := nil;
  10702.     if WLib <> nil then
  10703.       d := WLib.Images[FaceIndex];
  10704.     if d <> nil then
  10705.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10706.     //魔法快捷键
  10707.     with dsurface do begin
  10708.       TextOut(SurfaceX(Left + 95), SurfaceY(Top + 38), MagKeyMagName + ' 快捷键', clSilver);
  10709.     end;
  10710.   end;
  10711. end;

  10713. procedure TFrmDlg.DKsIconDirectPaint(Sender: TObject;
  10714.   dsurface: TTexture);
  10715. var
  10716.   d: TTexture;
  10717. begin
  10718.   with DKsIcon do begin
  10719.     d := g_WMagIconImages.Images[MagKeyIcon];
  10720.     if d <> nil then
  10721.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10722.   end;
  10723. end;

  10725. procedure TFrmDlg.DKsF1DirectPaint(Sender: TObject;
  10726.   dsurface: TTexture);
  10727. var
  10728.   b: TDButton;
  10729.   d: TTexture;
  10730. begin
  10731.   b := nil;
  10732.   case MagKeyCurKey of
  10733.     Word('1'): b := DKsF1;
  10734.     Word('2'): b := DKsF2;
  10735.     Word('3'): b := DKsF3;
  10736.     Word('4'): b := DKsF4;
  10737.     Word('5'): b := DKsF5;
  10738.     Word('6'): b := DKsF6;
  10739.     Word('7'): b := DKsF7;
  10740.     Word('8'): b := DKsF8;
  10741.     Word('E'): b := DKsConF1;
  10742.     Word('F'): b := DKsConF2;
  10743.     Word('G'): b := DKsConF3;
  10744.     Word('H'): b := DKsConF4;
  10745.     Word('I'): b := DKsConF5;
  10746.     Word('J'): b := DKsConF6;
  10747.     Word('K'): b := DKsConF7;
  10748.     Word('L'): b := DKsConF8;
  10749.   else b := DKsNone;
  10750.   end;
  10751.   {case MagKeyCurKey of
  10752.     Word('1'): b := DKsF1;
  10753.     Word('2'): b := DKsF2;
  10754.     Word('3'): b := DKsF3;
  10755.     Word('4'): b := DKsF4;
  10756.     Word('5'): b := DKsF5;
  10757.     Word('6'): b := DKsF6;
  10758.     Word('7'): b := DKsF7;
  10759.     Word('8'): b := DKsF8;
  10760.   else b := DKsNone;
  10761.   end;}
  10762.   if b = Sender then begin
  10763.     with b do begin
  10764.       d := nil;
  10765.       if WLib <> nil then
  10766.         d := WLib.Images[FaceIndex + 1];
  10767.       if d <> nil then
  10768.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10769.     end;
  10770.   end;
  10771.   with Sender as TDButton do begin
  10772.     if Downed then begin
  10773.       d := nil;
  10774.       if WLib <> nil then
  10775.         d := WLib.Images[FaceIndex];
  10776.       if d <> nil then
  10777.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10778.     end;
  10779.   end;
  10780. end;

  10782. procedure TFrmDlg.DKsOkClick(Sender: TObject; X, Y: Integer);
  10783. begin
  10784.   DKeySelDlg.Visible := False;
  10785. end;

  10787. procedure TFrmDlg.DKsF1Click(Sender: TObject; X, Y: Integer);
  10788. begin
  10789.   if Sender = DKsF1 then MagKeyCurKey := Integer('1');
  10790.   if Sender = DKsF2 then MagKeyCurKey := Integer('2');
  10791.   if Sender = DKsF3 then MagKeyCurKey := Integer('3');
  10792.   if Sender = DKsF4 then MagKeyCurKey := Integer('4');
  10793.   if Sender = DKsF5 then MagKeyCurKey := Integer('5');
  10794.   if Sender = DKsF6 then MagKeyCurKey := Integer('6');
  10795.   if Sender = DKsF7 then MagKeyCurKey := Integer('7');
  10796.   if Sender = DKsF8 then MagKeyCurKey := Integer('8');
  10797.   if Sender = DKsConF1 then MagKeyCurKey := Integer('E');
  10798.   if Sender = DKsConF2 then MagKeyCurKey := Integer('F');
  10799.   if Sender = DKsConF3 then MagKeyCurKey := Integer('G');
  10800.   if Sender = DKsConF4 then MagKeyCurKey := Integer('H');
  10801.   if Sender = DKsConF5 then MagKeyCurKey := Integer('I');
  10802.   if Sender = DKsConF6 then MagKeyCurKey := Integer('J');
  10803.   if Sender = DKsConF7 then MagKeyCurKey := Integer('K');
  10804.   if Sender = DKsConF8 then MagKeyCurKey := Integer('L');
  10805.   if Sender = DKsNone then MagKeyCurKey := 0;
  10806. end;
  10807. {------------------------------------------------------------------------}

  10809. //扁夯芒狼 固聪 滚瓢

  10811. {------------------------------------------------------------------------}


  10814. procedure TFrmDlg.DBotMiniMapClick(Sender: TObject; X, Y: Integer);
  10815. begin
  10816.   if not g_boViewMiniMap then begin
  10817.     if GetTickCount > g_dwQueryMsgTick then begin
  10818.       g_dwQueryMsgTick := GetTickCount + 3000;
  10819.       frmMain.SendWantMiniMap;
  10820.       g_nViewMinMapLv := 1;
  10821.     end;
  10822.   end else begin
  10823.     if g_nViewMinMapLv >= 3 then begin
  10824.       g_nViewMinMapLv := 0;
  10825.       g_boViewMiniMap := False;
  10826.     end else Inc(g_nViewMinMapLv);
  10827.   end;
  10828.   DMiniMap.Visible := g_boViewMiniMap;
  10829.   if not DMiniMap.Visible then begin
  10830.     DMiniMap.Width := DMapTitle.Width;
  10831.     DMiniMap.Height := 120;
  10832.   end;
  10833. end;

  10835. procedure TFrmDlg.DBotTradeClick(Sender: TObject; X, Y: Integer);
  10836. begin
  10837.   if GetTickCount > g_dwQueryMsgTick then begin
  10838.     g_dwQueryMsgTick := GetTickCount + 3000;
  10839.     frmMain.SendDealTry;
  10840.   end;
  10841. end;

  10843. procedure TFrmDlg.DBotGuildClick(Sender: TObject; X, Y: Integer);
  10844. begin
  10845.   if DGuildDlg.Visible then begin
  10846.     DGuildDlg.Visible := False;
  10847.   end else
  10848.     if GetTickCount > g_dwQueryMsgTick then begin
  10849.     g_dwQueryMsgTick := GetTickCount + 3000;
  10850.     frmMain.SendGuildDlg;
  10851.   end;
  10852. end;

  10854. procedure TFrmDlg.DBotGroupClick(Sender: TObject; X, Y: Integer);
  10855. begin
  10856.   ToggleShowGroupDlg;
  10857. end;


  10860. {------------------------------------------------------------------------}

  10862. //弊缝 促捞倔肺弊

  10864. {------------------------------------------------------------------------}

  10866. procedure TFrmDlg.ToggleShowGroupDlg;
  10867. begin
  10868.   DGroupDlg.Visible := not DGroupDlg.Visible;
  10869. end;

  10871. procedure TFrmDlg.DGroupDlgDirectPaint(Sender: TObject;
  10872.   dsurface: TTexture);
  10873. var
  10874.   d: TTexture;
  10875.   lx, ly, n: Integer;
  10876. begin
  10877.   with DGroupDlg do begin
  10878.     d := nil;
  10879.     if WLib <> nil then
  10880.       d := WLib.Images[FaceIndex];
  10881.     if d <> nil then
  10882.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10883.     if g_GroupMembers.Count > 0 then begin
  10884.       with dsurface do begin
  10885.         lx := SurfaceX(28) + Left;
  10886.         ly := SurfaceY(80) + Top;
  10887.         TextOut(lx, ly, g_GroupMembers[0], clSilver);
  10888.         for n := 1 to g_GroupMembers.Count - 1 do begin
  10889.           lx := SurfaceX(28) + Left + ((n - 1) mod 2) * 100;
  10890.           ly := SurfaceY(80 + 16) + Top + ((n - 1) div 2) * 16;
  10891.           TextOut(lx, ly, g_GroupMembers[n], clSilver);
  10892.         end;
  10893.       end;
  10894.     end;
  10895.   end;
  10896. end;

  10898. procedure TFrmDlg.DGrpDlgCloseClick(Sender: TObject; X, Y: Integer);
  10899. begin
  10900.   DGroupDlg.Visible := False;
  10901. end;

  10903. procedure TFrmDlg.DGrpAllowGroupDirectPaint(Sender: TObject;
  10904.   dsurface: TTexture);
  10905. var
  10906.   d: TTexture;
  10907. begin
  10908.   with Sender as TDButton do begin
  10909.     if Downed then begin
  10910.       d := nil;
  10911.       if WLib <> nil then
  10912.         d := WLib.Images[FaceIndex - 1];
  10913.       if d <> nil then
  10914.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10915.     end else begin
  10916.       if g_boAllowGroup then begin
  10917.         d := nil;
  10918.         if WLib <> nil then
  10919.           d := WLib.Images[FaceIndex];
  10920.         if d <> nil then
  10921.           dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  10922.       end;
  10923.     end;
  10924.   end;
  10925. end;

  10927. procedure TFrmDlg.DGrpAllowGroupClick(Sender: TObject; X, Y: Integer);
  10928. begin
  10929.   if GetTickCount > g_dwChangeGroupModeTick then begin
  10930.     g_boAllowGroup := not g_boAllowGroup;
  10931.     g_dwChangeGroupModeTick := GetTickCount + 5000; //timeout 5檬
  10932.     frmMain.SendGroupMode(g_boAllowGroup);
  10933.   end;
  10934. end;

  10936. procedure TFrmDlg.DGrpCreateClick(Sender: TObject; X, Y: Integer);
  10937. var
  10938.   who: string;
  10939. begin
  10940.   if (GetTickCount > g_dwChangeGroupModeTick) and (g_GroupMembers.Count = 0) then begin
  10941.     DialogSize := 1;
  10942.     DMessageDlg('输入想加入编组人物名称：', [mbOk, mbAbort]);
  10943.     who := Trim(DlgEditText);
  10944.     if who <> '' then begin
  10945.       g_dwChangeGroupModeTick := GetTickCount + 5000; //timeout 5檬
  10946.       frmMain.SendCreateGroup(Trim(DlgEditText));
  10947.     end;
  10948.   end;
  10949. end;

  10951. procedure TFrmDlg.DGrpAddMemClick(Sender: TObject; X, Y: Integer);
  10952. var
  10953.   who: string;
  10954. begin
  10955.   if (GetTickCount > g_dwChangeGroupModeTick) and (g_GroupMembers.Count > 0) then begin
  10956.     DialogSize := 1;
  10957.     DMessageDlg('输入想加入编组人物名称：', [mbOk, mbAbort]);
  10958.     who := Trim(DlgEditText);
  10959.     if who <> '' then begin
  10960.       g_dwChangeGroupModeTick := GetTickCount + 5000; //timeout 5檬
  10961.       frmMain.SendAddGroupMember(Trim(DlgEditText));
  10962.     end;
  10963.   end;
  10964. end;

  10966. procedure TFrmDlg.DGrpDelMemClick(Sender: TObject; X, Y: Integer);
  10967. var
  10968.   who: string;
  10969. begin
  10970.   if (GetTickCount > g_dwChangeGroupModeTick) and (g_GroupMembers.Count > 0) then begin
  10971.     DialogSize := 1;
  10972.     DMessageDlg('输入想退出编组人物名称：', [mbOk, mbAbort]);
  10973.     who := Trim(DlgEditText);
  10974.     if who <> '' then begin
  10975.       g_dwChangeGroupModeTick := GetTickCount + 5000; //timeout 5檬
  10976.       frmMain.SendDelGroupMember(Trim(DlgEditText));
  10977.     end;
  10978.   end;
  10979. end;

  10981. procedure TFrmDlg.DBotLogoutClick(Sender: TObject; X, Y: Integer);
  10982. begin
  10983.   //强行退出
  10984.   g_dwLatestStruckTick := GetTickCount() + 10001;
  10985.   g_dwLatestMagicTick := GetTickCount() + 10001;
  10986.   g_dwLatestHitTick := GetTickCount() + 10001;
  10987.   //
  10988.   if (GetTickCount - g_dwLatestStruckTick > 10000) and
  10989.     (GetTickCount - g_dwLatestMagicTick > 10000) and
  10990.     (GetTickCount - g_dwLatestHitTick > 10000) or
  10991.     (g_MySelf.m_boDeath) then begin
  10992.     frmMain.AppLogout;
  10993.   end else
  10994.     DScreen.AddChatBoardString('你在战斗当中不能退出游戏.', clyellow, clRed);
  10995. end;

  10997. procedure TFrmDlg.DBotExitClick(Sender: TObject; X, Y: Integer);
  10998. begin
  10999.   //强行退出
  11000.   g_dwLatestStruckTick := GetTickCount() + 10001;
  11001.   g_dwLatestMagicTick := GetTickCount() + 10001;
  11002.   g_dwLatestHitTick := GetTickCount() + 10001;
  11003.   //
  11004.   if (GetTickCount - g_dwLatestStruckTick > 10000) and
  11005.     (GetTickCount - g_dwLatestMagicTick > 10000) and
  11006.     (GetTickCount - g_dwLatestHitTick > 10000) or
  11007.     (g_MySelf.m_boDeath) then begin
  11008.     //frmMain.AppExit;
  11009.     frmMain.Close;
  11010.   end else
  11011.     DScreen.AddChatBoardString('你在战斗当中不能退出游戏.', clyellow, clRed);
  11012. end;

  11014. procedure TFrmDlg.DBotPlusAbilClick(Sender: TObject; X, Y: Integer);
  11015. begin
  11016.   if g_nBonusPoint > 0 then
  11017.     FrmDlg.OpenAdjustAbility;
  11018. end;


  11021. {------------------------------------------------------------------------}

  11023. //背券 促捞倔肺弊

  11025. {------------------------------------------------------------------------}


  11028. procedure TFrmDlg.OpenDealDlg;
  11029. var
  11030.   d: TTexture;
  11031. begin
  11032.   DDealRemoteDlg.Left := SCREENWIDTH - 236 - 100;
  11033.   DDealRemoteDlg.Top := 0;
  11034.   DDealDlg.Left := SCREENWIDTH - 236 - 100;
  11035.   DDealDlg.Top := DDealRemoteDlg.Height - 15;
  11036.   DItemBag.Left := 0; //475;
  11037.   DItemBag.Top := 80;
  11038.   DItemBag.Visible := True;
  11039.   DDealDlg.Visible := True;
  11040.   DDealRemoteDlg.Visible := True;

  11042.   SafeFillChar(g_DealItems, SizeOf(TClientItem) * 10, #0);
  11043.   SafeFillChar(g_DealRemoteItems, SizeOf(TClientItem) * 20, #0);
  11044.   g_nDealGold := 0;
  11045.   g_nDealRemoteGold := 0;
  11046.   g_boDealEnd := False;

  11048.   //酒捞袍 啊规俊 儡惑捞 乐绰瘤 八荤
  11049.   ArrangeItemBag;
  11050. end;

  11052. procedure TFrmDlg.CloseDealDlg;
  11053. begin
  11054.   DDealDlg.Visible := False;
  11055.   DDealRemoteDlg.Visible := False;

  11057.   //酒捞袍 啊规俊 儡惑捞 乐绰瘤 八荤
  11058.   ArrangeItemBag;
  11059. end;

  11061. procedure TFrmDlg.DDealOkClick(Sender: TObject; X, Y: Integer);
  11062. var
  11063.   mi: Integer;
  11064. begin
  11065.   if GetTickCount > g_dwDealActionTick then begin
  11066.     //CloseDealDlg;
  11067.     frmMain.SendDealEnd;
  11068.     g_dwDealActionTick := GetTickCount + 4000;
  11069.     g_boDealEnd := True;
  11070.     //掉 芒俊辑 付快胶肺 缠绊 乐绰 巴阑 掉芒栏肺 持绰促. 付快胶俊 巢绰 儡惑(汗荤)阑 绝矩促.
  11071.     if g_boItemMoving then begin
  11072.       mi := g_MovingItem.Index;
  11073.       if (mi <= -20) and (mi > -30) then begin //掉 芒俊辑 柯巴父
  11074.         AddDealItem(g_MovingItem.Item);
  11075.         g_boItemMoving := False;
  11076.         g_MovingItem.Item.s.Name := '';
  11077.       end;
  11078.     end;
  11079.   end;
  11080. end;

  11082. procedure TFrmDlg.DDealCloseClick(Sender: TObject; X, Y: Integer);
  11083. begin
  11084.   if GetTickCount > g_dwDealActionTick then begin
  11085.     CloseDealDlg;
  11086.     frmMain.SendCancelDeal;
  11087.   end;
  11088. end;

  11090. procedure TFrmDlg.DDealRemoteDlgDirectPaint(Sender: TObject;
  11091.   dsurface: TTexture);
  11092. var
  11093.   d: TTexture;
  11094. begin
  11095.   with DDealRemoteDlg do begin
  11096.     d := nil;
  11097.     if WLib <> nil then
  11098.       d := WLib.Images[FaceIndex];
  11099.     if d <> nil then
  11100.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  11101.     with dsurface do begin
  11102.       TextOut(SurfaceX(Left + 64), SurfaceY(Top + 196 - 65), GetGoldStr(g_nDealRemoteGold));
  11103.       TextOut(SurfaceX(Left + 59 + (106 - TextWidth(g_sDealWho)) div 2), SurfaceY(Top + 3) + 3, g_sDealWho);
  11104.     end;
  11105.   end;
  11106. end;

  11108. procedure TFrmDlg.DDealDlgDirectPaint(Sender: TObject;
  11109.   dsurface: TTexture);
  11110. var
  11111.   d: TTexture;
  11112. begin
  11113.   with DDealDlg do begin
  11114.     d := nil;
  11115.     if WLib <> nil then
  11116.       d := WLib.Images[FaceIndex];
  11117.     if d <> nil then
  11118.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  11119.     with dsurface do begin
  11120.       TextOut(SurfaceX(Left + 64), SurfaceY(Top + 196 - 65), GetGoldStr(g_nDealGold));
  11121.       TextOut(SurfaceX(Left + 59 + (106 - TextWidth(g_sSelChrName)) div 2), SurfaceY(Top + 3) + 3, g_sSelChrName);
  11122.     end;
  11123.   end;
  11124. end;

  11126. procedure TFrmDlg.DealItemReturnBag(mitem: TClientItem);
  11127. begin
  11128.   if not g_boDealEnd then begin
  11129.     g_DealDlgItem := mitem;
  11130.     frmMain.SendDelDealItem(g_DealDlgItem);
  11131.     g_dwDealActionTick := GetTickCount + 4000;
  11132.   end;
  11133. end;

  11135. procedure TFrmDlg.DuelItemReturnBag(mitem: TClientItem);
  11136. begin
  11137.   if not g_boDuelEnd then begin
  11138.     g_DuelDlgItem := mitem;
  11139.     frmMain.SendDelDuelItem(g_DuelDlgItem);
  11140.     g_dwDuelActionTick := GetTickCount + 4000;
  11141.   end;
  11142. end;

  11144. procedure TFrmDlg.DDGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  11145.   Shift: TShiftState);
  11146. var
  11147.   temp: TClientItem;
  11148.   mi, Idx: Integer;
  11149. begin
  11150.   if not g_boDealEnd and (GetTickCount > g_dwDealActionTick) then begin
  11151.     if not g_boItemMoving then begin
  11152.       Idx := ACol + ARow * DDGrid.ColCount;
  11153.       if Idx in [0..9] then begin
  11154.         ClearMoveRect();
  11155.         if g_DealItems[Idx].s.Name <> '' then begin
  11156.           g_boItemMoving := True;
  11157.           g_MovingItem.Owner := DDealDlg;
  11158.           g_MovingItem.Index := -Idx - 20;
  11159.           g_MovingItem.Item := g_DealItems[Idx];
  11160.           g_DealItems[Idx].s.Name := '';
  11161.           ItemClickSound(g_MovingItem.Item.s);
  11162.         end;
  11163.       end;
  11164.     end else begin
  11165.       if (g_MovingItem.Owner = DHeroItemBag) or (g_MovingItem.Owner = DStateWin) or (g_MovingItem.Owner = DHeroStateWin) then Exit;
  11166.       mi := g_MovingItem.Index;
  11167.       if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DUpgrade) then begin
  11168.         if (mi >= 0) or (mi <= -20) and (mi > -30) then begin
  11169.           ItemClickSound(g_MovingItem.Item.s);
  11170.           g_boItemMoving := False;
  11171.           if mi >= 0 then begin
  11172.             g_DealDlgItem := g_MovingItem.Item;
  11173.             frmMain.SendAddDealItem(g_DealDlgItem);
  11174.             g_dwDealActionTick := GetTickCount + 4000;
  11175.           end else
  11176.             AddDealItem(g_MovingItem.Item);
  11177.           g_MovingItem.Item.s.Name := '';
  11178.           g_MovingItem.Owner := nil;
  11179.         end;
  11180.         if mi = -98 then DDGoldClick(Self, 0, 0);
  11181.       end;
  11182.     end;
  11183.     ArrangeItemBag;
  11184.   end;
  11185. end;

  11187. procedure TFrmDlg.DDGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  11188.   Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  11189. var
  11190.   nIdx: Integer;
  11191.   d: TTexture;
  11192. begin
  11193.   nIdx := ACol + ARow * DDGrid.ColCount;
  11194.   if nIdx in [0..9] then begin
  11195.     if g_DealItems[nIdx].s.Name <> '' then begin
  11196.       d := g_WBagItemImages.Images[g_DealItems[nIdx].s.looks];
  11197.       if d <> nil then
  11198.         with DDGrid do begin
  11199.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  11200.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  11201.             d.ClientRect,
  11202.             d, True);
  11203.         end;
  11204.       with DDGrid do begin
  11205.         if (g_DealItems[nIdx].s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_DealItems[nIdx].s.AddPoint))} then begin
  11206.           if GetTickCount - g_DrawDealItems[nIdx].dwDrawTick >= 200 then begin
  11207.             g_DrawDealItems[nIdx].dwDrawTick := GetTickCount;
  11208.             if g_DrawDealItems[nIdx].nIndex <= 0 then g_DrawDealItems[nIdx].nIndex := 260 - 1;
  11209.             Inc(g_DrawDealItems[nIdx].nIndex);
  11210.             if g_DrawDealItems[nIdx].nIndex > 265 then g_DrawDealItems[nIdx].nIndex := 260;
  11211.           end;
  11212.           d := g_WMain2Images.Images[g_DrawDealItems[nIdx].nIndex];
  11213.           if d <> nil then begin
  11214.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  11215.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  11216.           end;
  11217.         end;

  11219.         if g_DealItems[nIdx].s.AddValue[12] >= 2 then begin
  11220.           if GetTickCount - g_DrawDealItems_[nIdx].dwDrawTick >= 200 then begin
  11221.             g_DrawDealItems_[nIdx].dwDrawTick := GetTickCount;
  11222.             if g_DrawDealItems_[nIdx].nIndex <= 0 then g_DrawDealItems_[nIdx].nIndex := 600 - 1;
  11223.             Inc(g_DrawDealItems_[nIdx].nIndex);
  11224.             if g_DrawDealItems_[nIdx].nIndex > 617 then g_DrawDealItems_[nIdx].nIndex := 600;
  11225.           end;
  11226.           d := g_WMain3Images.Images[g_DrawDealItems_[nIdx].nIndex];
  11227.           if d <> nil then begin
  11228.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  11229.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  11230.           end;
  11231.         end;

  11233.       end;
  11234.     end;
  11235.   end;
  11236. end;

  11238. procedure TFrmDlg.DDGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
  11239.   Shift: TShiftState);
  11240. var
  11241.   nIdx: Integer;
  11242.   iname, d1, d2, d3: string;
  11243.   useable: Boolean;

  11245.   nWhere: Integer;
  11246.   List: TStringList;
  11247. begin
  11248.   DScreen.ClearHint;
  11249.   nIdx := ACol + ARow * DDGrid.ColCount;
  11250.   if nIdx in [0..9] then begin
  11251.     g_MoveRect := DDGrid.ClientRect;
  11252.     g_MouseItem := g_DealItems[nIdx];

  11254.     if g_MouseItem.s.Name <> '' then begin
  11255.       nWhere := GetHumUseItemByBagItem(g_MouseItem.s.StdMode);
  11256.       if g_Config.boCompareItem and (nWhere >= 0) then begin

  11258.         List := TStringList.Create;
  11259.         try
  11260.           GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11261.           List.AddStrings(HintList);

  11263.           GetMouseItemInfo(g_MySelf, @g_UseItems[nWhere], iname, d1, d2, d3, useable);
  11264.           if HintList.Count > 0 then begin
  11265.             HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  11266.           end;
  11267.           with DDGrid do
  11268.             DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  11269.               SurfaceY(Top + (ARow + 1) * RowHeight),
  11270.               List, HintList, False);
  11271.           HintList.Clear;
  11272.         finally
  11273.           List.Free;
  11274.         end;
  11275.         g_MouseItem.s.Name := '';
  11276.       end else begin
  11277.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11278.         with DDGrid do
  11279.           DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  11280.             SurfaceY(Top + (ARow + 1) * RowHeight),
  11281.             HintList, False);
  11282.       end;

  11284.     end;

  11286.     {if g_MouseItem.s.Name <> '' then begin
  11287.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11288.       with DDGrid do
  11289.         DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  11290.           SurfaceY(Top + (ARow + 1) * RowHeight),
  11291.           HintList, False);
  11292.     end;}
  11293.   end;
  11294. end;

  11296. procedure TFrmDlg.DDRGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  11297.   Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  11298. var
  11299.   nIdx: Integer;
  11300.   d: TTexture;
  11301. begin
  11302.   nIdx := ACol + ARow * DDRGrid.ColCount;
  11303.   if nIdx in [0..19] then begin
  11304.     if g_DealRemoteItems[nIdx].s.Name <> '' then begin
  11305.       d := g_WBagItemImages.Images[g_DealRemoteItems[nIdx].s.looks];
  11306.       if d <> nil then
  11307.         with DDRGrid do begin
  11308.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  11309.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  11310.             d.ClientRect,
  11311.             d, True);
  11312.         end;
  11313.       with DDRGrid do begin
  11314.         if (g_DealRemoteItems[nIdx].s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_DealRemoteItems[nIdx].s.AddPoint))} then begin
  11315.           if GetTickCount - g_DrawDealRemoteItems[nIdx].dwDrawTick >= 200 then begin
  11316.             g_DrawDealRemoteItems[nIdx].dwDrawTick := GetTickCount;
  11317.             if g_DrawDealRemoteItems[nIdx].nIndex <= 0 then g_DrawDealRemoteItems[nIdx].nIndex := 260 - 1;
  11318.             Inc(g_DrawDealRemoteItems[nIdx].nIndex);
  11319.             if g_DrawDealRemoteItems[nIdx].nIndex > 265 then g_DrawDealRemoteItems[nIdx].nIndex := 260;
  11320.           end;
  11321.           d := g_WMain2Images.Images[g_DrawDealRemoteItems[nIdx].nIndex];
  11322.           if d <> nil then begin
  11323.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  11324.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  11325.           end;
  11326.         end;

  11328.         if g_DealRemoteItems[nIdx].s.AddValue[12] >= 2 then begin
  11329.           if GetTickCount - g_DrawDealRemoteItems_[nIdx].dwDrawTick >= 200 then begin
  11330.             g_DrawDealRemoteItems_[nIdx].dwDrawTick := GetTickCount;
  11331.             if g_DrawDealRemoteItems_[nIdx].nIndex <= 0 then g_DrawDealRemoteItems_[nIdx].nIndex := 600 - 1;
  11332.             Inc(g_DrawDealRemoteItems_[nIdx].nIndex);
  11333.             if g_DrawDealRemoteItems_[nIdx].nIndex > 617 then g_DrawDealRemoteItems_[nIdx].nIndex := 600;
  11334.           end;
  11335.           d := g_WMain3Images.Images[g_DrawDealRemoteItems_[nIdx].nIndex];
  11336.           if d <> nil then begin
  11337.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  11338.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  11339.           end;
  11340.         end;
  11341.       end;
  11342.     end;
  11343.   end;
  11344. end;

  11346. procedure TFrmDlg.DDRGridGridMouseMove(Sender: TObject; ACol,
  11347.   ARow: Integer; Shift: TShiftState);
  11348. var
  11349.   nIdx: Integer;
  11350.   iname, d1, d2, d3: string;
  11351.   useable: Boolean;

  11353.   nWhere: Integer;
  11354.   List: TStringList;
  11355. begin
  11356.   DScreen.ClearHint;
  11357.   nIdx := ACol + ARow * DDRGrid.ColCount;
  11358.   if nIdx in [0..19] then begin
  11359.     g_MouseItem := g_DealRemoteItems[nIdx];

  11361.     if g_MouseItem.s.Name <> '' then begin
  11362.       nWhere := GetHumUseItemByBagItem(g_MouseItem.s.StdMode);
  11363.       if g_Config.boCompareItem and (nWhere >= 0) then begin

  11365.         List := TStringList.Create;
  11366.         try
  11367.           GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11368.           List.AddStrings(HintList);

  11370.           GetMouseItemInfo(g_MySelf, @g_UseItems[nWhere], iname, d1, d2, d3, useable);
  11371.           if HintList.Count > 0 then begin
  11372.             HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  11373.           end;
  11374.           with DDRGrid do
  11375.             DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  11376.               SurfaceY(Top + (ARow + 1) * RowHeight),
  11377.               List, HintList, False);
  11378.           HintList.Clear;
  11379.         finally
  11380.           List.Free;
  11381.         end;
  11382.         g_MouseItem.s.Name := '';
  11383.       end else begin
  11384.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11385.         with DDRGrid do
  11386.           DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  11387.             SurfaceY(Top + (ARow + 1) * RowHeight),
  11388.             HintList, False);
  11389.       end;

  11391.     end;
  11392.     {if g_MouseItem.s.Name <> '' then begin
  11393.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11394.       with DDRGrid do
  11395.         DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  11396.           SurfaceY(Top + (ARow + 1) * RowHeight),
  11397.           HintList, False);
  11398.     end;}
  11399.   end;
  11400. end;

  11402. procedure TFrmDlg.DealZeroGold;
  11403. begin
  11404.   if not g_boDealEnd and (g_nDealGold > 0) then begin
  11405.     g_dwDealActionTick := GetTickCount + 4000;
  11406.     frmMain.SendChangeDealGold(0);
  11407.   end;
  11408. end;

  11410. procedure TFrmDlg.DDGoldClick(Sender: TObject; X, Y: Integer);
  11411. var
  11412.   DGold: Integer;
  11413.   valstr: string;
  11414. begin
  11415.   if g_MySelf = nil then Exit;
  11416.   if not g_boDealEnd and (GetTickCount > g_dwDealActionTick) then begin
  11417.     if not g_boItemMoving then begin
  11418.       if g_nDealGold > 0 then begin
  11419.         PlaySound(s_money);
  11420.         g_boItemMoving := True;
  11421.         g_MovingItem.Index := -97; //背券 芒俊辑狼 捣
  11422.         g_MovingItem.Item.s.Name := g_sGoldName {'金币'};
  11423.       end;
  11424.     end else begin
  11425.       if (g_MovingItem.Index = -97) or (g_MovingItem.Index = -98) then begin //捣父..
  11426.         if (g_MovingItem.Index = -98) then begin //啊规芒俊辑 柯 捣
  11427.           if g_MovingItem.Item.s.Name = g_sGoldName {'金币'} then begin
  11428.             //倔付甫 滚副 扒瘤 拱绢夯促.
  11429.             DialogSize := 1;
  11430.             g_boItemMoving := False;
  11431.             g_MovingItem.Item.s.Name := '';
  11432.             DMessageDlg('请输入要' + g_sGoldName + '数量：', [mbOk, mbAbort]);
  11433.             GetValidStrVal(DlgEditText, valstr, [' ']);
  11434.             DGold := Str_ToInt(valstr, 0);
  11435.             if (DGold <= (g_nDealGold + g_MySelf.m_nGold)) and (DGold > 0) then begin
  11436.               frmMain.SendChangeDealGold(DGold);
  11437.               g_dwDealActionTick := GetTickCount + 4000;
  11438.             end else
  11439.               DGold := 0;
  11440.           end;
  11441.         end;
  11442.         g_boItemMoving := False;
  11443.         g_MovingItem.Item.s.Name := '';
  11444.       end;
  11445.     end;
  11446.   end;
  11447. end;



  11451. {--------------------------------------------------------------}


  11454. procedure TFrmDlg.DUserState1DirectPaint(Sender: TObject;
  11455.   dsurface: TTexture);
  11456. var
  11457.   I, L, m, pgidx, bbx, bby, Idx, ax, ay: Integer;
  11458.   sex, hair: Byte;
  11459.   d: TTexture;
  11460.   hcolor, keyimg, old: Integer;
  11461.   iname, d1, d2, d3: string;
  11462.   useable: Boolean;
  11463. begin
  11464.   with DUserState1 do begin
  11465.     d := nil;
  11466.     if WLib <> nil then
  11467.       d := WLib.Images[FaceIndex];
  11468.     if d <> nil then
  11469.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  11471.     sex := DRESSfeature(UserState1.feature) mod 2;
  11472.     hair := HAIRfeature(UserState1.feature); //?
  11473.     hair := (hair - sex) div 2;
  11474.     if sex = 1 then pgidx := 30 //377 Mars 修改
  11475.     else pgidx := 29; //376 Mars 修改
  11476.     bbx := Left + 38;
  11477.     bby := Top + 52;
  11478.     d := g_WMain3Images.Images[pgidx]; //Mars 修改
  11479.     if d <> nil then
  11480.       dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);
  11481.     bbx := bbx - 7;
  11482.     bby := bby + 44;
  11483.     Idx := 440 + hair;
  11484.     //显示发型
  11485.    // idx := 440 + hair div 2;
  11486.     Idx := 440 + hair;
  11487.     //if sex = 1 then idx := 480 + hair div 2;
  11488.     if Idx > 0 then begin
  11489.       d := g_WMainImages.GetCachedImage(Idx, ax, ay);
  11490.       if d <> nil then
  11491.         dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  11492.     end;
  11493.     if UserState1.UseItems[U_DRESS].s.Name <> '' then begin
  11494.       Idx := UserState1.UseItems[U_DRESS].s.looks;
  11495.       if Idx >= 0 then begin
  11496.         //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  11497.         d := GetWStateImg(Idx, ax, ay);
  11498.         if d <> nil then
  11499.           dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  11500.       end;
  11501.     end;
  11502.     if UserState1.UseItems[U_WEAPON].s.Name <> '' then begin
  11503.       Idx := UserState1.UseItems[U_WEAPON].s.looks;
  11504.       if Idx >= 0 then begin
  11505.         //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  11506.         d := GetWStateImg(Idx, ax, ay);
  11507.         if d <> nil then
  11508.           dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);

  11510.         if (UserState1.UseItems[U_WEAPON].s.Shape = 38) and (Idx = 1404) then begin
  11511.           d := GetWStateImg(Idx - 1, ax, ay);
  11512.           if d <> nil then
  11513.             DrawBlend(dsurface, SurfaceX(bbx + ax), SurfaceY(bby + ay), d);
  11514.         end else
  11515.           if (UserState1.UseItems[U_WEAPON].s.Shape = 56) and (Idx = 1880) then begin
  11516.           if (g_dwWeapon56Index[2] < 1890) or (g_dwWeapon56Index[2] > 1899) then
  11517.             g_dwWeapon56Index[2] := 1890;
  11518.           if GetTickCount - g_dwWeapon56Tick[2] > 100 then begin
  11519.             g_dwWeapon56Tick[2] := GetTickCount;
  11520.             g_dwWeapon56Index[2] := g_dwWeapon56Index[2] + 1;
  11521.           end;
  11522.           if (g_dwWeapon56Index[2] < 1890) or (g_dwWeapon56Index[2] > 1899) then
  11523.             g_dwWeapon56Index[2] := 1890;

  11525.           d := GetWStateImg(g_dwWeapon56Index[2], ax, ay);
  11526.           if d <> nil then
  11527.             DrawBlend(dsurface, SurfaceX(bbx + ax), SurfaceY(bby + ay), d);
  11528.         end;
  11529.       end;
  11530.     end;
  11531.     if UserState1.UseItems[U_HELMET].s.Name <> '' then begin
  11532.       Idx := UserState1.UseItems[U_HELMET].s.looks;
  11533.       if Idx >= 0 then begin
  11534.         //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  11535.         d := GetWStateImg(Idx, ax, ay);
  11536.         if d <> nil then
  11537.           dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  11538.       end;
  11539.     end;

  11541.     //原为打开，本代码为显示人物身上所带物品信息，显示位置为人物下方
  11542.     if (g_ServerConfig.btShowClientItemStyle <> 0) then begin
  11543.       if g_MouseUserStateItem.s.Name <> '' then begin
  11544.         g_MouseItem := g_MouseUserStateItem;
  11545.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11546.         if iname <> '' then begin
  11547.           if g_MouseItem.Dura = 0 then hcolor := clRed
  11548.           else hcolor := clWhite;
  11549.           with dsurface do begin
  11550.             old := MainForm.Canvas.Font.Size;
  11551.             MainForm.Canvas.Font.Size := 9;
  11552.             bbx := SurfaceX(Left + 37);
  11553.             bby := SurfaceY(Top + 272 + 35);
  11554.             TextOut(bbx, bby, iname, clyellow); //2006-10-24 Mars修改
  11555.             TextOut(bbx + TextWidth(iname), bby, d1, hcolor);
  11556.             TextOut(bbx, bby + TextHeight('A') + 2, d2, hcolor);
  11557.             TextOut(bbx, bby + (TextHeight('A') + 2) * 2, d3, hcolor);

  11559.             if d2 <> '' then
  11560.               bby := bby + TextHeight('A') + 2;
  11561.             if d3 <> '' then
  11562.               bby := bby + TextHeight('A') + 2;

  11564.             bby := bby + TextHeight('A') + 2;
  11565.             for I := 0 to g_ExtractStringList.Count - 1 do begin
  11566.               TextOut(bbx, bby + (TextHeight('A') + 2) * I, g_ExtractStringList.Strings[I], hcolor);
  11567.             end;
  11568.             MainForm.Canvas.Font.Size := old;
  11569.           end;
  11570.         end;
  11571.         g_MouseItem.s.Name := '';
  11572.       end;
  11573.     end;

  11575.     with dsurface do begin
  11576.       TextOut(SurfaceX(Left + 122 - TextWidth(UserState1.UserName) div 2),
  11577.         SurfaceY(Top + 23), UserState1.UserName, UserState1.NameColor);
  11578.       TextOut(SurfaceX(Left + 45), SurfaceY(Top + 58),
  11579.         UserState1.GuildName + ' ' + UserState1.GuildRankName, clSilver);
  11580.     end;
  11581.   end;
  11582. end;

  11584. procedure TFrmDlg.DUserState1MouseDown(Sender: TObject;
  11585.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  11586. begin
  11587.   X := DUserState1.LocalX(X) - DUserState1.Left;
  11588.   Y := DUserState1.LocalY(Y) - DUserState1.Top;
  11589.   if (X > 42) and (X < 201) and (Y > 54) and (Y < 71) then begin
  11590.     //DScreen.AddSysMsg (IntToStr(X) + ' ' + IntToStr(Y) + ' ' + UserState1.GuildName);
  11591.     if UserState1.GuildName <> '' then begin
  11592.       SetInputVisible(g_ConfigClient.btMainInterface = 1);
  11593.       EdChat.Visible := True;
  11594.       EdChat.SetFocus;
  11595.       SetImeMode(EdChat.Handle, LocalLanguage);
  11596.       EdChat.Text := UserState1.GuildName;
  11597.       EdChat.SelStart := Length(EdChat.Text);
  11598.       EdChat.SelLength := 0;
  11599.     end;
  11600.   end;
  11601. end;

  11603. procedure TFrmDlg.DUserState1MouseMove(Sender: TObject; Shift: TShiftState;
  11604.   X, Y: Integer);
  11605. begin
  11606.   DScreen.ClearHint;
  11607.   g_MouseUserStateItem.s.Name := '';
  11608.   g_MouseItem.s.Name := '';
  11609.   HintList.Clear;
  11610. end;

  11612. procedure TFrmDlg.DWeaponUS1MouseMove(Sender: TObject; Shift: TShiftState;
  11613.   X, Y: Integer);
  11614. var
  11615.   sel: Integer;
  11616.   iname, d1, d2, d3: string;
  11617.   useable: Boolean;
  11618. begin
  11619.   sel := -1;
  11620.   if Sender = DDressUS1 then sel := U_DRESS;
  11621.   if Sender = DWeaponUS1 then sel := U_WEAPON;
  11622.   if Sender = DHelmetUS1 then sel := U_HELMET;
  11623.   if Sender = DNecklaceUS1 then sel := U_NECKLACE;
  11624.   if Sender = DLightUS1 then sel := U_RIGHTHAND;
  11625.   if Sender = DRingLUS1 then sel := U_RINGL;
  11626.   if Sender = DRingRUS1 then sel := U_RINGR;
  11627.   if Sender = DArmringLUS1 then sel := U_ARMRINGL;
  11628.   if Sender = DArmringRUS1 then sel := U_ARMRINGR;
  11629.   if Sender = DBujukUS1 then sel := U_BUJUK;
  11630.   if Sender = DBeltUS1 then sel := U_BELT;
  11631.   if Sender = DBootsUS1 then sel := U_BOOTS;
  11632.   if Sender = DCharmUS1 then sel := U_CHARM;

  11634.   if sel >= 0 then begin
  11635.     g_MouseUserStateItem := UserState1.UseItems[sel];
  11636.     if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  11637.       g_MouseItem := UserState1.UseItems[sel];
  11638.     //原为注释掉 显示人物身上带的物品信息
  11639.     //GetMouseItemInfo(HintList);
  11640.    { with Sender as TDButton do
  11641.       DScreen.ShowHint(SurfaceX(Left - 30), SurfaceY(Top + 50), HintList, False);
  11642.     }
  11643.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  11644.       if HintList.Count > 0 then begin
  11645.         with Sender as TDButton do
  11646.           DScreen.ShowHint(SurfaceX(Left - 30),
  11647.             SurfaceY(Top + 50),
  11648.             HintList, False);
  11649.       end;
  11650.       g_MouseItem.s.Name := '';
  11651.     end;
  11652.   end;
  11653. end;

  11655. procedure TFrmDlg.DCloseUS1Click(Sender: TObject; X, Y: Integer);
  11656. begin
  11657.   DUserState1.Visible := False;
  11658. end;

  11660. procedure TFrmDlg.DNecklaceUS1DirectPaint(Sender: TObject;
  11661.   dsurface: TTexture);
  11662. var
  11663.   Idx: Integer;
  11664.   d: TTexture;
  11665.   nWhere: Integer;
  11666. begin
  11667.   nWhere := -1;
  11668.   if Sender = DNecklaceUS1 then nWhere := U_NECKLACE;
  11669.   if Sender = DLightUS1 then nWhere := U_RIGHTHAND;
  11670.   if Sender = DArmringRUS1 then nWhere := U_ARMRINGR;
  11671.   if Sender = DArmringLUS1 then nWhere := U_ARMRINGL;
  11672.   if Sender = DRingRUS1 then nWhere := U_RINGR;
  11673.   if Sender = DRingLUS1 then nWhere := U_RINGL;
  11674.   if Sender = DBujukUS1 then nWhere := U_BUJUK;
  11675.   if Sender = DBeltUS1 then nWhere := U_BELT;
  11676.   if Sender = DBootsUS1 then nWhere := U_BOOTS;
  11677.   if Sender = DCharmUS1 then nWhere := U_CHARM;

  11679.   if nWhere >= 0 then begin
  11680.     if UserState1.UseItems[nWhere].s.Name <> '' then begin
  11681.       Idx := UserState1.UseItems[nWhere].s.looks;
  11682.       if Idx >= 0 then begin
  11683.         d := GetWStateImg(Idx);
  11684.         if d <> nil then
  11685.           with TDButton(Sender) do
  11686.             dsurface.Draw(SurfaceX(Left + (Width - d.Width) div 2),
  11687.               SurfaceY(Top + (Height - d.Height) div 2),
  11688.               d.ClientRect, d, True);

  11690.         if (UserState1.UseItems[nWhere].s.AddValue[12] in [1, 3]) {or (GetAddPoint(UserState1.UseItems[nWhere].s.AddPoint))} then begin
  11691.           if GetTickCount - g_DrawUseItems1[nWhere].dwDrawTick >= 200 then begin
  11692.             g_DrawUseItems1[nWhere].dwDrawTick := GetTickCount;
  11693.             if g_DrawUseItems1[nWhere].nIndex <= 0 then g_DrawUseItems1[nWhere].nIndex := 260 - 1;
  11694.             Inc(g_DrawUseItems1[nWhere].nIndex);
  11695.             if g_DrawUseItems1[nWhere].nIndex > 265 then g_DrawUseItems1[nWhere].nIndex := 260;
  11696.           end;
  11697.           d := g_WMain2Images.Images[g_DrawUseItems1[nWhere].nIndex];
  11698.           if d <> nil then begin
  11699.             with TDButton(Sender) do
  11700.               DrawBlend(dsurface, SurfaceX(Left + (Width - d.Width) div 2),
  11701.                 SurfaceY(Top + (Height - d.Height) div 2), d);
  11702.           end;
  11703.         end;

  11705.         if UserState1.UseItems[nWhere].s.AddValue[12] >= 2 then begin
  11706.           if GetTickCount - g_DrawUseItems1_[nWhere].dwDrawTick >= 200 then begin
  11707.             g_DrawUseItems1_[nWhere].dwDrawTick := GetTickCount;
  11708.             if g_DrawUseItems1_[nWhere].nIndex <= 0 then g_DrawUseItems1_[nWhere].nIndex := 600 - 1;
  11709.             Inc(g_DrawUseItems1_[nWhere].nIndex);
  11710.             if g_DrawUseItems1_[nWhere].nIndex > 617 then g_DrawUseItems1_[nWhere].nIndex := 600;
  11711.           end;
  11712.           d := g_WMain3Images.Images[g_DrawUseItems1_[nWhere].nIndex];
  11713.           if d <> nil then begin
  11714.             with TDButton(Sender) do
  11715.               DrawBlend(dsurface, SurfaceX(Left + (Width - d.Width) div 2),
  11716.                 SurfaceY(Top + (Height - d.Height) div 2), d);
  11717.           end;
  11718.         end;
  11719.       end;
  11720.     end;
  11721.   end;
  11722. end;

  11724. procedure TFrmDlg.ShowGuildDlg;
  11725. begin
  11726.   DGuildDlg.Visible := True; //not DGuildDlg.Visible;
  11727.   DGuildDlg.Top := -3;
  11728.   DGuildDlg.Left := 0;
  11729.   if DGuildDlg.Visible then begin
  11730.     if GuildCommanderMode then begin
  11731.       DGDAddMem.Visible := True;
  11732.       DGDDelMem.Visible := True;
  11733.       DGDEditNotice.Visible := True;
  11734.       DGDEditGrade.Visible := True;
  11735.       DGDAlly.Visible := True;
  11736.       DGDBreakAlly.Visible := True;
  11737.       DGDWar.Visible := True;
  11738.       DGDCancelWar.Visible := True;
  11739.     end else begin
  11740.       DGDAddMem.Visible := False;
  11741.       DGDDelMem.Visible := False;
  11742.       DGDEditNotice.Visible := False;
  11743.       DGDEditGrade.Visible := False;
  11744.       DGDAlly.Visible := False;
  11745.       DGDBreakAlly.Visible := False;
  11746.       DGDWar.Visible := False;
  11747.       DGDCancelWar.Visible := False;
  11748.     end;
  11749.   end;
  11750.   GuildTopLine := 0;
  11751. end;

  11753. procedure TFrmDlg.ShowGuildEditNotice;
  11754. var
  11755.   d: TTexture;
  11756.   I: Integer;
  11757.   sData: string;
  11758. begin
  11759.   with DGuildEditNotice do begin
  11760.     d := nil;
  11761.     if WLib <> nil then
  11762.       d := WLib.Images[FaceIndex];
  11763.     if d <> nil then begin
  11764.       Left := (SCREENWIDTH - d.Width) div 2;
  11765.       Top := (SCREENHEIGHT - d.Height) div 2;
  11766.     end;
  11767.     HideAllControls;
  11768.     DGuildEditNotice.ShowModal;

  11770.     Memo.Left := SurfaceX(Left + 16);
  11771.     Memo.Top := SurfaceY(Top + 36);
  11772.     Memo.Width := 571;
  11773.     Memo.Height := 246;
  11774.     Memo.Lines.Assign(GuildNotice);
  11775.     Memo.Visible := True;

  11777.     while True do begin
  11778.       if not DGuildEditNotice.Visible then Break;
  11779.       frmMain.ProcOnIdle;
  11780.       Application.ProcessMessages;
  11781.       if Application.Terminated then Exit;
  11782.       Sleep(1);
  11783.     end;

  11785.     DGuildEditNotice.Visible := False;
  11786.     RestoreHideControls;

  11788.     if DMsgDlg.DialogResult = mrOk then begin
  11789.       sData := '';
  11790.       for I := 0 to Memo.Lines.Count - 1 do begin
  11791.         if Memo.Lines[I] = '' then
  11792.           sData := sData + Memo.Lines[I] + ' '#13
  11793.         else sData := sData + Memo.Lines[I] + #13;
  11794.       end;
  11795.       if Length(sData) > 4000 then begin
  11796.         sData := Copy(sData, 1, 4000);
  11797.         DMessageDlg('公告内容超过限制大小，公告内容将被截短！', [mbOk]);
  11798.       end;
  11799.       frmMain.SendGuildUpdateNotice(sData);
  11800.     end;
  11801.   end;
  11802. end;

  11804. procedure TFrmDlg.ShowGuildEditGrade;
  11805. var
  11806.   d: TTexture;
  11807.   sData: string;
  11808.   I: Integer;
  11809. begin
  11810.   if GuildMembers.Count <= 0 then begin
  11811.     DMessageDlg('请先打开成员列表。', [mbOk]);
  11812.     Exit;
  11813.   end;

  11815.   with DGuildEditNotice do begin
  11816.     d := nil;
  11817.     if WLib <> nil then
  11818.       d := WLib.Images[FaceIndex];
  11819.     if d <> nil then begin
  11820.       Left := (SCREENWIDTH - d.Width) div 2;
  11821.       Top := (SCREENHEIGHT - d.Height) div 2;
  11822.     end;
  11823.     HideAllControls;
  11824.     DGuildEditNotice.ShowModal;

  11826.     Memo.Left := SurfaceX(Left + 16);
  11827.     Memo.Top := SurfaceY(Top + 36);
  11828.     Memo.Width := 571;
  11829.     Memo.Height := 246;
  11830.     Memo.Lines.Assign(GuildMembers);
  11831.     Memo.Visible := True;

  11833.     while True do begin
  11834.       if not DGuildEditNotice.Visible then Break;
  11835.       frmMain.ProcOnIdle;
  11836.       Application.ProcessMessages;
  11837.       if Application.Terminated then Exit;
  11838.       Sleep(1);
  11839.     end;

  11841.     DGuildEditNotice.Visible := False;
  11842.     RestoreHideControls;

  11844.     if DMsgDlg.DialogResult = mrOk then begin
  11845.       //GuildMembers.Assign (Memo.Lines);
  11846.       sData := '';
  11847.       for I := 0 to Memo.Lines.Count - 1 do begin
  11848.         sData := sData + Memo.Lines[I] + #13;
  11849.       end;
  11850.       if Length(sData) > 5000 then begin
  11851.         sData := Copy(sData, 1, 5000);
  11852.         DMessageDlg('内容超过限制大小，内容将被截短！', [mbOk]);
  11853.       end;
  11854.       frmMain.SendGuildUpdateGrade(sData);
  11855.     end;
  11856.   end;
  11857. end;

  11859. procedure TFrmDlg.DGuildDlgDirectPaint(Sender: TObject;
  11860.   dsurface: TTexture);
  11861. var
  11862.   d: TTexture;
  11863.   I, n, bx, by: Integer;
  11864.   c: TColor;
  11865. begin
  11866.   with DGuildDlg do begin
  11867.     d := nil;
  11868.     if WLib <> nil then
  11869.       d := WLib.Images[FaceIndex];
  11870.     if d <> nil then
  11871.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  11872.     with dsurface do begin
  11873.       c := clWhite;
  11874.       TextOut(Left + 320, Top + 13, Guild, c);
  11875.       bx := Left + 24;
  11876.       by := Top + 41;
  11877.       for I := GuildTopLine to GuildStrs.Count - 1 do begin
  11878.         n := I - GuildTopLine;
  11879.         if n * 14 > 356 then Break;
  11880.         if Integer(GuildStrs.Objects[I]) <> 0 then c := TColor(GuildStrs.Objects[I])
  11881.         else begin
  11882.           if BoGuildChat then c := GetRGB(2)
  11883.           else c := clSilver;
  11884.         end;
  11885.         TextOut(bx, by + n * 14, GuildStrs[I], c);
  11886.       end;
  11887.     end;
  11888.   end;
  11889. end;

  11891. procedure TFrmDlg.DGDUpClick(Sender: TObject; X, Y: Integer);
  11892. begin
  11893.   if GuildTopLine > 0 then Dec(GuildTopLine, 3);
  11894.   if GuildTopLine < 0 then GuildTopLine := 0;
  11895. end;

  11897. procedure TFrmDlg.DGDDownClick(Sender: TObject; X, Y: Integer);
  11898. begin
  11899.   if GuildTopLine + 12 < GuildStrs.Count then Inc(GuildTopLine, 3);
  11900. end;

  11902. procedure TFrmDlg.DGDCloseClick(Sender: TObject; X, Y: Integer);
  11903. begin
  11904.   DGuildDlg.Visible := False;
  11905.   BoGuildChat := False;
  11906. end;

  11908. procedure TFrmDlg.DGDHomeClick(Sender: TObject; X, Y: Integer);
  11909. begin
  11910.   if GetTickCount > g_dwQueryMsgTick then begin
  11911.     g_dwQueryMsgTick := GetTickCount + 3000;
  11912.     frmMain.SendGuildHome;
  11913.     BoGuildChat := False;
  11914.   end;
  11915. end;

  11917. procedure TFrmDlg.DGDListClick(Sender: TObject; X, Y: Integer);
  11918. begin
  11919.   if GetTickCount > g_dwQueryMsgTick then begin
  11920.     g_dwQueryMsgTick := GetTickCount + 3000;
  11921.     frmMain.SendGuildMemberList;
  11922.     BoGuildChat := False;
  11923.   end;
  11924. end;

  11926. procedure TFrmDlg.DGDAddMemClick(Sender: TObject; X, Y: Integer);
  11927. begin
  11928.   DMessageDlg('请输入想加入' + Guild + '的人物名称：', [mbOk, mbAbort]);
  11929.   if DlgEditText <> '' then
  11930.     frmMain.SendGuildAddMem(DlgEditText);
  11931. end;

  11933. procedure TFrmDlg.DGDDelMemClick(Sender: TObject; X, Y: Integer);
  11934. begin
  11935.   DMessageDlg('请输入想要开除的人物名称：', [mbOk, mbAbort]);
  11936.   if DlgEditText <> '' then
  11937.     frmMain.SendGuildDelMem(DlgEditText);
  11938. end;

  11940. procedure TFrmDlg.DGDEditNoticeClick(Sender: TObject; X, Y: Integer);
  11941. begin
  11942.   GuildEditHint := '[修改行会公告内容。]';
  11943.   ShowGuildEditNotice;
  11944. end;

  11946. procedure TFrmDlg.DGDEditGradeClick(Sender: TObject; X, Y: Integer);
  11947. begin
  11948.   GuildEditHint := '[修改行会成员的等级和职位。 # 警告 : 不能增加行会成员/删除行会成员。]';
  11949.   ShowGuildEditGrade;
  11950. end;

  11952. procedure TFrmDlg.DGDAllyClick(Sender: TObject; X, Y: Integer);
  11953. begin
  11954.   if mrOk = DMessageDlg('对方结盟行会必需在 [允许结盟]状态下。\' +
  11955.     '而且二个行会的掌门必须面对面。\' +
  11956.     '是否确认行会结盟？', [mbOk, mbCancel])
  11957.     then
  11958.     frmMain.SendSay('@联盟');
  11959. end;

  11961. procedure TFrmDlg.DGDBreakAllyClick(Sender: TObject; X, Y: Integer);
  11962. begin
  11963.   DMessageDlg('请输入您想取消结盟的行会的名字：', [mbOk, mbAbort]);
  11964.   if DlgEditText <> '' then
  11965.     frmMain.SendSay('@取消联盟 ' + DlgEditText);
  11966. end;



  11970. procedure TFrmDlg.DGuildEditNoticeDirectPaint(Sender: TObject;
  11971.   dsurface: TTexture);
  11972. var
  11973.   d: TTexture;
  11974. begin
  11975.   with DGuildEditNotice do begin
  11976.     d := nil;
  11977.     if WLib <> nil then
  11978.       d := WLib.Images[FaceIndex];
  11979.     if d <> nil then
  11980.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  11982.     with dsurface do begin
  11983.       TextOut(Left + 18, Top + 291, GuildEditHint, clSilver);
  11984.     end;
  11985.   end;
  11986. end;

  11988. procedure TFrmDlg.DGECloseClick(Sender: TObject; X, Y: Integer);
  11989. begin
  11990.   DGuildEditNotice.Visible := False;
  11991.   Memo.Visible := False;
  11992.   DMsgDlg.DialogResult := mrCancel;
  11993. end;

  11995. procedure TFrmDlg.DGEOkClick(Sender: TObject; X, Y: Integer);
  11996. begin
  11997.   DGECloseClick(Self, 0, 0);
  11998.   DMsgDlg.DialogResult := mrOk;
  11999. end;

  12001. procedure TFrmDlg.AddGuildChat(Str: string);
  12002. var
  12003.   I: Integer;
  12004. begin
  12005.   GuildChats.Add(Str);
  12006.   if GuildChats.Count > 500 then begin
  12007.     for I := 0 to 100 do GuildChats.Delete(0);
  12008.   end;
  12009.   if BoGuildChat then
  12010.     GuildStrs.Assign(GuildChats);
  12011. end;

  12013. procedure TFrmDlg.DGDChatClick(Sender: TObject; X, Y: Integer);
  12014. begin
  12015.   BoGuildChat := not BoGuildChat;
  12016.   if BoGuildChat then begin
  12017.     GuildStrs2.Assign(GuildStrs);
  12018.     GuildStrs.Assign(GuildChats);
  12019.   end else
  12020.     GuildStrs.Assign(GuildStrs2);
  12021. end;

  12023. procedure TFrmDlg.DGoldDirectPaint(Sender: TObject;
  12024.   dsurface: TTexture);
  12025. var
  12026.   d: TTexture;
  12027. begin
  12028.   if g_MySelf = nil then Exit;
  12029.   with DGold do begin
  12030.     d := nil;
  12031.     if WLib <> nil then
  12032.       d := WLib.Images[FaceIndex];
  12033.     if d <> nil then
  12034.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  12035.   end;
  12036. end;


  12039. {--------------------------------------------------------------}
  12040. //瓷仿摹 炼沥 芒

  12042. procedure TFrmDlg.DAdjustAbilCloseClick(Sender: TObject; X, Y: Integer);
  12043. begin
  12044.   DAdjustAbility.Visible := False;
  12045.   g_nBonusPoint := g_nSaveBonusPoint;
  12046. end;

  12048. procedure TFrmDlg.DAdjustAbilityDirectPaint(Sender: TObject;
  12049.   dsurface: TTexture);
  12050.   procedure AdjustAb(abil: Word; Val: Word; var lov, hiv: Word);
  12051.   var
  12052.     Lo, Hi: Byte;
  12053.     I: Integer;
  12054.   begin
  12055.     Lo := LoByte(abil);
  12056.     Hi := HiByte(abil);
  12057.     lov := 0; hiv := 0;
  12058.     for I := 1 to Val do begin
  12059.       if Lo + 1 < Hi then begin
  12060.         Inc(Lo); Inc(lov);
  12061.       end else begin
  12062.         Inc(Hi); Inc(hiv); end;
  12063.     end;
  12064.   end;
  12065. var
  12066.   d: TTexture;
  12067.   L, m, adc, amc, asc, aac, amac: Integer;
  12068.   ldc, lmc, lsc, lac, lmac, hdc, hmc, hsc, hac, hmac: Word;
  12069.   c: TColor;
  12070. begin
  12071.   if g_MySelf = nil then Exit;
  12072.   with dsurface do begin
  12073.     with DAdjustAbility do begin
  12074.       d := nil;
  12075.       if DMenuDlg.WLib <> nil then
  12076.         d := DMenuDlg.WLib.Images[FaceIndex];
  12077.       if d <> nil then
  12078.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  12079.     end;
  12080.     L := DAdjustAbility.SurfaceX(DAdjustAbility.Left) + 36;
  12081.     m := DAdjustAbility.SurfaceY(DAdjustAbility.Top) + 22;

  12083.     TextOut(L, m, '你当前还有剩余部份属性点未分配。', clSilver);
  12084.     TextOut(L, m + 14, '请根据自己的意向，调整自己的属性值。', clSilver);
  12085.     TextOut(L, m + 14 * 2, '些属性点数，下不可以重新分配。', clSilver);
  12086.     TextOut(L, m + 14 * 3, '在分配时要小心选择。', clSilver);

  12088.     L := DAdjustAbility.SurfaceX(DAdjustAbility.Left) + 100; //66;
  12089.     m := DAdjustAbility.SurfaceY(DAdjustAbility.Top) + 101;

  12091.     {
  12092.     adc := (g_BonusAbil.DC + g_BonusAbilChg.DC) div g_BonusTick.DC;
  12093.     amc := (g_BonusAbil.MC + g_BonusAbilChg.MC) div g_BonusTick.MC;
  12094.     asc := (g_BonusAbil.SC + g_BonusAbilChg.SC) div g_BonusTick.SC;
  12095.     aac := (g_BonusAbil.AC + g_BonusAbilChg.AC) div g_BonusTick.AC;
  12096.     amac := (g_BonusAbil.MAC + g_BonusAbilChg.MAC) div g_BonusTick.MAC;
  12097.     }

  12099.     if g_BonusTick.HP = 0 then g_BonusTick.HP := 1;
  12100.     if g_BonusTick.MP = 0 then g_BonusTick.MP := 1;

  12102.     if g_BonusTick.DC = 0 then g_BonusTick.DC := 1;
  12103.     if g_BonusTick.MC = 0 then g_BonusTick.MC := 1;
  12104.     if g_BonusTick.SC = 0 then g_BonusTick.SC := 1;
  12105.     if g_BonusTick.AC = 0 then g_BonusTick.AC := 1;
  12106.     if g_BonusTick.MAC = 0 then g_BonusTick.MAC := 1;

  12108.     adc := (g_BonusAbilChg.DC) div g_BonusTick.DC;
  12109.     amc := (g_BonusAbilChg.MC) div g_BonusTick.MC;
  12110.     asc := (g_BonusAbilChg.SC) div g_BonusTick.SC;
  12111.     aac := (g_BonusAbilChg.AC) div g_BonusTick.AC;
  12112.     amac := (g_BonusAbilChg.MAC) div g_BonusTick.MAC;

  12114.     AdjustAb(g_NakedAbil.DC, adc, ldc, hdc);
  12115.     AdjustAb(g_NakedAbil.MC, amc, lmc, hmc);
  12116.     AdjustAb(g_NakedAbil.SC, asc, lsc, hsc);
  12117.     AdjustAb(g_NakedAbil.AC, aac, lac, hac);
  12118.     AdjustAb(g_NakedAbil.MAC, amac, lmac, hmac);
  12119.     //lac  := 0;  hac := aac;
  12120.     //lmac := 0;  hmac := amac;

  12122.     TextOut(L + 0, m + 0, IntToStr(_MIN(High(Word), Loword(g_MySelf.m_Abil.DC) + ldc)) + '-' + IntToStr(_MIN(High(Word), Hiword(g_MySelf.m_Abil.DC) + hdc)));
  12123.     TextOut(L + 0, m + 20, IntToStr(_MIN(High(Word), Loword(g_MySelf.m_Abil.MC) + lmc)) + '-' + IntToStr(_MIN(High(Word), Hiword(g_MySelf.m_Abil.MC) + hmc)));
  12124.     TextOut(L + 0, m + 40, IntToStr(_MIN(High(Word), Loword(g_MySelf.m_Abil.SC) + lsc)) + '-' + IntToStr(_MIN(High(Word), Hiword(g_MySelf.m_Abil.SC) + hsc)));
  12125.     TextOut(L + 0, m + 60, IntToStr(_MIN(High(Word), Loword(g_MySelf.m_Abil.AC) + lac)) + '-' + IntToStr(_MIN(High(Word), Hiword(g_MySelf.m_Abil.AC) + hac)));
  12126.     TextOut(L + 0, m + 80, IntToStr(_MIN(High(Word), Loword(g_MySelf.m_Abil.MAC) + lmac)) + '-' + IntToStr(_MIN(High(Word), Hiword(g_MySelf.m_Abil.MAC) + hmac)));

  12128.     //m_WAbil.MaxHP := MinLong(g_ServerConfig.nMaxLevel, g_MySelf.m_Abil.MaxHP + (g_BonusAbil.HP + g_BonusAbilChg.HP) div g_BonusTick.HP);
  12129.     //m_WAbil.MaxMP := MinLong(g_ServerConfig.nMaxLevel, g_MySelf.m_Abil.MaxMP + (g_BonusAbil.MP + g_BonusAbilChg.MP) div g_BonusTick.MP);

  12131.     //TextOut(L + 0, m + 100, IntToStr(g_MySelf.m_Abil.MaxHP + (g_BonusAbil.HP + g_BonusAbilChg.HP) div g_BonusTick.HP));
  12132.     //TextOut(L + 0, m + 120, IntToStr(g_MySelf.m_Abil.MaxMP + (g_BonusAbil.MP + g_BonusAbilChg.MP) div g_BonusTick.MP));

  12134.     TextOut(L + 0, m + 100, IntToStr(MinLong(g_ServerConfig.nMaxLevel, g_MySelf.m_Abil.MaxHP + (g_BonusAbil.HP + g_BonusAbilChg.HP) div g_BonusTick.HP)));
  12135.     TextOut(L + 0, m + 120, IntToStr(MinLong(g_ServerConfig.nMaxLevel, g_MySelf.m_Abil.MaxMP + (g_BonusAbil.MP + g_BonusAbilChg.MP) div g_BonusTick.MP)));


  12138.     TextOut(L + 0, m + 140, IntToStr(g_nMyHitPoint + (g_BonusAbil.Hit + g_BonusAbilChg.Hit) div g_BonusTick.Hit));
  12139.     TextOut(L + 0, m + 160, IntToStr(g_nMySpeedPoint + (g_BonusAbil.Speed + g_BonusAbilChg.Speed) div g_BonusTick.Speed));

  12141.     TextOut(L + 0, m + 180, IntToStr(g_nBonusPoint), clyellow);

  12143.     c := clWhite;
  12144.     L := DAdjustAbility.SurfaceX(DAdjustAbility.Left) + 155; //66;
  12145.     m := DAdjustAbility.SurfaceY(DAdjustAbility.Top) + 101;

  12147.     if g_BonusAbilChg.DC > 0 then c := clWhite
  12148.     else c := clSilver;
  12149.     TextOut(L + 0, m + 0, IntToStr(g_BonusAbilChg.DC + g_BonusAbil.DC) + '/' + IntToStr(g_BonusTick.DC), c);

  12151.     if g_BonusAbilChg.MC > 0 then c := clWhite
  12152.     else c := clSilver;
  12153.     TextOut(L + 0, m + 20, IntToStr(g_BonusAbilChg.MC + g_BonusAbil.MC) + '/' + IntToStr(g_BonusTick.MC), c);

  12155.     if g_BonusAbilChg.SC > 0 then c := clWhite
  12156.     else c := clSilver;
  12157.     TextOut(L + 0, m + 40, IntToStr(g_BonusAbilChg.SC + g_BonusAbil.SC) + '/' + IntToStr(g_BonusTick.SC), c);

  12159.     if g_BonusAbilChg.AC > 0 then c := clWhite
  12160.     else c := clSilver;
  12161.     TextOut(L + 0, m + 60, IntToStr(g_BonusAbilChg.AC + g_BonusAbil.AC) + '/' + IntToStr(g_BonusTick.AC), c);

  12163.     if g_BonusAbilChg.MAC > 0 then c := clWhite
  12164.     else c := clSilver;
  12165.     TextOut(L + 0, m + 80, IntToStr(g_BonusAbilChg.MAC + g_BonusAbil.MAC) + '/' + IntToStr(g_BonusTick.MAC), c);

  12167.     if g_BonusAbilChg.HP > 0 then c := clWhite
  12168.     else c := clSilver;
  12169.     TextOut(L + 0, m + 100, IntToStr(MinLong(g_ServerConfig.nMaxLevel, g_BonusAbilChg.HP + g_BonusAbil.HP)) + '/' + IntToStr(g_BonusTick.HP), c);

  12171.     if g_BonusAbilChg.MP > 0 then c := clWhite
  12172.     else c := clSilver;
  12173.     TextOut(L + 0, m + 120, IntToStr(MinLong(g_ServerConfig.nMaxLevel, g_BonusAbilChg.MP + g_BonusAbil.MP)) + '/' + IntToStr(g_BonusTick.MP), c);

  12175.     if g_BonusAbilChg.Hit > 0 then c := clWhite
  12176.     else c := clSilver;
  12177.     TextOut(L + 0, m + 140, IntToStr(g_BonusAbilChg.Hit + g_BonusAbil.Hit) + '/' + IntToStr(g_BonusTick.Hit), c);

  12179.     if g_BonusAbilChg.Speed > 0 then c := clWhite
  12180.     else c := clSilver;
  12181.     TextOut(L + 0, m + 160, IntToStr(g_BonusAbilChg.Speed + g_BonusAbil.Speed) + '/' + IntToStr(g_BonusTick.Speed), c);
  12182.   end;

  12184. end;

  12186. procedure TFrmDlg.DPlusDCClick(Sender: TObject; X, Y: Integer);
  12187. var
  12188.   incp, nValue: Integer;
  12189. begin
  12190.   //if g_MySelf = nil then Exit;
  12191.   incp := Str_ToInt(DEditAdjustIncrement.Text, -1);
  12192.   if incp <= 0 then incp := 1;
  12193.   if incp > g_nBonusPoint then incp := g_nBonusPoint;

  12195.   if g_nBonusPoint > 0 then begin
  12196.    { if IsKeyPressed(VK_CONTROL) and (g_nBonusPoint > 10) then incp := 10
  12197.     else incp := 1;
  12198.     }
  12199.     if Sender = DPlusDC then begin
  12200.       if g_BonusAbilChg.DC + g_BonusAbil.DC < High(Word) then begin
  12201.         if g_BonusAbilChg.DC + g_BonusAbil.DC + incp <= High(Word) then begin
  12202.           Inc(g_BonusAbilChg.DC, incp);
  12203.           Dec(g_nBonusPoint, incp);
  12204.         end else begin
  12205.           nValue := _MIN(High(Word) - g_BonusAbilChg.DC - g_BonusAbil.DC, 0);
  12206.           Inc(g_BonusAbilChg.DC, nValue);
  12207.           Dec(g_nBonusPoint, nValue);
  12208.         end;
  12209.       end;
  12210.     end else
  12211.       if Sender = DPlusMC then begin
  12212.       if g_BonusAbilChg.MC + g_BonusAbil.MC < High(Word) then begin
  12213.         if g_BonusAbilChg.MC + g_BonusAbil.MC + incp <= High(Word) then begin
  12214.           Inc(g_BonusAbilChg.MC, incp);
  12215.           Dec(g_nBonusPoint, incp);
  12216.         end else begin
  12217.           nValue := _MIN(High(Word) - g_BonusAbilChg.MC - g_BonusAbil.MC, 0);
  12218.           Inc(g_BonusAbilChg.MC, nValue);
  12219.           Dec(g_nBonusPoint, nValue);
  12220.         end;
  12221.       end
  12222.     end else
  12223.       if Sender = DPlusSC then begin
  12224.       if g_BonusAbilChg.SC + g_BonusAbil.SC < High(Word) then begin
  12225.         if g_BonusAbilChg.SC + g_BonusAbil.SC + incp <= High(Word) then begin
  12226.           Inc(g_BonusAbilChg.SC, incp);
  12227.           Dec(g_nBonusPoint, incp);
  12228.         end else begin
  12229.           nValue := _MIN(High(Word) - g_BonusAbilChg.SC - g_BonusAbil.SC, 0);
  12230.           Inc(g_BonusAbilChg.SC, nValue);
  12231.           Dec(g_nBonusPoint, nValue);
  12232.         end;
  12233.       end;
  12234.     end else
  12235.       if Sender = DPlusAC then begin
  12236.       if g_BonusAbilChg.AC + g_BonusAbil.AC < High(Word) then begin
  12237.         if g_BonusAbilChg.AC + g_BonusAbil.AC + incp <= High(Word) then begin
  12238.           Inc(g_BonusAbilChg.AC, incp);
  12239.           Dec(g_nBonusPoint, incp);
  12240.         end else begin
  12241.           nValue := _MIN(High(Word) - g_BonusAbilChg.AC - g_BonusAbil.AC, 0);
  12242.           Inc(g_BonusAbilChg.AC, nValue);
  12243.           Dec(g_nBonusPoint, nValue);
  12244.         end;
  12245.       end;
  12246.     end else
  12247.       if Sender = DPlusMAC then begin
  12248.       if g_BonusAbilChg.MAC + g_BonusAbil.MAC < High(Word) then begin
  12249.         if g_BonusAbilChg.MAC + g_BonusAbil.MAC + incp <= High(Word) then begin
  12250.           Inc(g_BonusAbilChg.MAC, incp);
  12251.           Dec(g_nBonusPoint, incp);
  12252.         end else begin
  12253.           nValue := _MIN(High(Word) - g_BonusAbilChg.MAC - g_BonusAbil.MAC, 0);
  12254.           Inc(g_BonusAbilChg.MAC, nValue);
  12255.           Dec(g_nBonusPoint, nValue);
  12256.         end;
  12257.       end;
  12258.     end else
  12259.       if Sender = DPlusHP then begin
  12260.       if g_BonusAbilChg.HP + g_BonusAbil.HP < High(Word) then begin
  12261.         if g_BonusAbilChg.HP + g_BonusAbil.HP + incp <= High(Word) then begin
  12262.           Inc(g_BonusAbilChg.HP, incp);
  12263.           Dec(g_nBonusPoint, incp);
  12264.         end else begin
  12265.           nValue := _MIN(High(Word) - g_BonusAbilChg.HP - g_BonusAbil.HP, 0);
  12266.           Inc(g_BonusAbilChg.HP, nValue);
  12267.           Dec(g_nBonusPoint, nValue);
  12268.         end;
  12269.       end;
  12270.     end else
  12271.       if Sender = DPlusMP then begin
  12272.       if g_BonusAbilChg.MP + g_BonusAbil.MP < High(Word) then begin
  12273.         if g_BonusAbilChg.MP + g_BonusAbil.MP + incp <= High(Word) then begin
  12274.           Inc(g_BonusAbilChg.MP, incp);
  12275.           Dec(g_nBonusPoint, incp);
  12276.         end else begin
  12277.           nValue := _MIN(High(Word) - g_BonusAbilChg.MP - g_BonusAbil.MP, 0);
  12278.           Inc(g_BonusAbilChg.MP, nValue);
  12279.           Dec(g_nBonusPoint, nValue);
  12280.         end;
  12281.       end;
  12282.     end else
  12283.       if Sender = DPlusHit then begin
  12284.       if g_BonusAbilChg.Hit + g_BonusAbil.Hit < High(Word) then begin
  12285.         if g_BonusAbilChg.Hit + g_BonusAbil.Hit + incp <= High(Word) then begin
  12286.           Inc(g_BonusAbilChg.Hit, incp);
  12287.           Dec(g_nBonusPoint, incp);
  12288.         end else begin
  12289.           nValue := _MIN(High(Word) - g_BonusAbilChg.Hit - g_BonusAbil.Hit, 0);
  12290.           Inc(g_BonusAbilChg.Hit, nValue);
  12291.           Dec(g_nBonusPoint, nValue);
  12292.         end;
  12293.       end;
  12294.     end else
  12295.       if Sender = DPlusSpeed then begin
  12296.       if g_BonusAbilChg.Speed + g_BonusAbil.Speed < High(Word) then begin
  12297.         if g_BonusAbilChg.Speed + g_BonusAbil.Speed + incp <= High(Word) then begin
  12298.           Inc(g_BonusAbilChg.Speed, incp);
  12299.           Dec(g_nBonusPoint, incp);
  12300.         end else begin
  12301.           nValue := _MIN(High(Word) - g_BonusAbilChg.Speed - g_BonusAbil.Speed, 0);
  12302.           Inc(g_BonusAbilChg.Speed, nValue);
  12303.           Dec(g_nBonusPoint, nValue);
  12304.         end;
  12305.       end;
  12306.     end;
  12307.   end;
  12308. end;

  12310. procedure TFrmDlg.DMinusDCClick(Sender: TObject; X, Y: Integer);
  12311. var
  12312.   decp: Integer;
  12313. begin
  12314. { if IsKeyPressed(VK_CONTROL) and (g_nBonusPoint - 10 > 0) then decp := 10
  12315.   else decp := 1;
  12316.   }
  12317.   decp := Str_ToInt(DEditAdjustIncrement.Text, -1);
  12318.   if decp <= 0 then decp := 1;

  12320.   if Sender = DMinusDC then begin
  12321.     if decp > g_BonusAbilChg.DC then decp := g_BonusAbilChg.DC;
  12322.     if g_BonusAbilChg.DC >= decp then begin
  12323.       Dec(g_BonusAbilChg.DC, decp);
  12324.       Inc(g_nBonusPoint, decp);
  12325.     end;
  12326.   end else
  12327.     if Sender = DMinusMC then begin
  12328.     if decp > g_BonusAbilChg.MC then decp := g_BonusAbilChg.MC;
  12329.     if g_BonusAbilChg.MC >= decp then begin
  12330.       Dec(g_BonusAbilChg.MC, decp);
  12331.       Inc(g_nBonusPoint, decp);
  12332.     end;
  12333.   end else
  12334.     if Sender = DMinusSC then begin
  12335.     if decp > g_BonusAbilChg.SC then decp := g_BonusAbilChg.SC;
  12336.     if g_BonusAbilChg.SC >= decp then begin
  12337.       Dec(g_BonusAbilChg.SC, decp);
  12338.       Inc(g_nBonusPoint, decp);
  12339.     end;
  12340.   end else
  12341.     if Sender = DMinusAC then begin
  12342.     if decp > g_BonusAbilChg.AC then decp := g_BonusAbilChg.AC;
  12343.     if g_BonusAbilChg.AC >= decp then begin
  12344.       Dec(g_BonusAbilChg.AC, decp);
  12345.       Inc(g_nBonusPoint, decp);
  12346.     end;
  12347.   end else
  12348.     if Sender = DMinusMAC then begin
  12349.     if decp > g_BonusAbilChg.MAC then decp := g_BonusAbilChg.MAC;
  12350.     if g_BonusAbilChg.MAC >= decp then begin
  12351.       Dec(g_BonusAbilChg.MAC, decp);
  12352.       Inc(g_nBonusPoint, decp);
  12353.     end;
  12354.   end else
  12355.     if Sender = DMinusHP then begin
  12356.     if decp > g_BonusAbilChg.HP then decp := g_BonusAbilChg.HP;
  12357.     if g_BonusAbilChg.HP >= decp then begin
  12358.       Dec(g_BonusAbilChg.HP, decp);
  12359.       Inc(g_nBonusPoint, decp);
  12360.     end;
  12361.   end else
  12362.     if Sender = DMinusMP then begin
  12363.     if decp > g_BonusAbilChg.MP then decp := g_BonusAbilChg.MP;
  12364.     if g_BonusAbilChg.MP >= decp then begin
  12365.       Dec(g_BonusAbilChg.MP, decp);
  12366.       Inc(g_nBonusPoint, decp);
  12367.     end;
  12368.   end else
  12369.     if Sender = DMinusHit then begin
  12370.     if decp > g_BonusAbilChg.Hit then decp := g_BonusAbilChg.Hit;
  12371.     if g_BonusAbilChg.Hit >= decp then begin
  12372.       Dec(g_BonusAbilChg.Hit, decp);
  12373.       Inc(g_nBonusPoint, decp);
  12374.     end;
  12375.   end else
  12376.     if Sender = DMinusSpeed then begin
  12377.     if decp > g_BonusAbilChg.Speed then decp := g_BonusAbilChg.Speed;
  12378.     if g_BonusAbilChg.Speed >= decp then begin
  12379.       Dec(g_BonusAbilChg.Speed, decp);
  12380.       Inc(g_nBonusPoint, decp);
  12381.     end;
  12382.   end;
  12383. end;

  12385. procedure TFrmDlg.DAdjustAbilOkClick(Sender: TObject; X, Y: Integer);
  12386. begin
  12387.   frmMain.SendAdjustBonus(g_nBonusPoint, g_BonusAbilChg);
  12388.   DAdjustAbility.Visible := False;
  12389. end;

  12391. procedure TFrmDlg.DAdjustAbilityMouseMove(Sender: TObject;
  12392.   Shift: TShiftState; X, Y: Integer);
  12393. var
  12394.   I, lx, ly: Integer;
  12395.   flag: Boolean;
  12396. begin
  12397.   with DAdjustAbility do begin
  12398.     lx := LocalX(X - Left);
  12399.     ly := LocalY(Y - Top);
  12400.     flag := False;
  12401.     if (lx >= 50) and (lx < 150) then
  12402.       for I := 0 to 8 do begin //DC,MC,SC..狼 腮飘啊 唱坷霸 茄促.
  12403.         if (ly >= 98 + I * 20) and (ly < 98 + (I + 1) * 20) then begin
  12404.           DScreen.ShowHint(SurfaceX(Left) + lx + 10,
  12405.             SurfaceY(Top) + ly + 5,
  12406.             AdjustAbilHints[I],
  12407.             clWhite,
  12408.             False);
  12409.           flag := True;
  12410.           Break;
  12411.         end;
  12412.       end;
  12413.     if not flag then
  12414.       DScreen.ClearHint;
  12415.   end;
  12416. end;

  12418. procedure TFrmDlg.DBotMouseMove(Sender: TObject; Shift: TShiftState;
  12419.   X, Y: Integer);
  12420. var
  12421.   nLocalX, nLocalY: Integer;
  12422.   nHintX, nHintY: Integer;
  12423.   Butt: TDButton;
  12424.   sMsg: string;
  12425. begin
  12426.   DScreen.ClearHint;
  12427.   Butt := TDButton(Sender);
  12428.   nHintX := Butt.SurfaceX(Butt.Left);
  12429.   if g_ConfigClient.btMainInterface in [0, 2] then begin
  12430.     nHintY := DBottom.Top + Butt.Top - 20;
  12431.   end else begin
  12432.     nHintY := DBottom.Top + Butt.Top - 25;
  12433.     if (Sender = DBotMiniMap) or (Sender = DOnHouser) or (Sender = DBotTrade)
  12434.       or (Sender = DBotGuild) or (Sender = DButtonFriend) or (Sender = DRanking)
  12435.       or (Sender = DVoice) or (Sender = DBotGroup) or (Sender = DButOther) then
  12436.       nHintY := DBottom.SurfaceY(Butt.Top) - 25;
  12437.     if (Sender = DButtonHeroState) or (Sender = DButtonHeroBag) then
  12438.       nHintY := DBottom.SurfaceY(Butt.Top) + 30;
  12439.   end;
  12440.   if Sender = DBotMiniMap then sMsg := '小地图(Tab)';
  12441.   if Sender = DBotTrade then sMsg := '交易(T)';
  12442.   if Sender = DBotGuild then sMsg := '行会(G)';
  12443.   if Sender = DBotGroup then sMsg := '编组(P)';
  12444.   if Sender = DBotPlusAbil then sMsg := '属性(M)';
  12445.   if Sender = DBotLogout then sMsg := '退出角色Alt-X';
  12446.   if Sender = DBotExit then sMsg := '退出游戏Alt-Q';
  12447.   if Sender = DMyState then sMsg := '状态(F10)';
  12448.   if Sender = DMyBag then sMsg := '包裹(F9)';
  12449.   if Sender = DMyMagic then sMsg := '技能(F11)';
  12450.   if Sender = DVoice then sMsg := '声效';
  12451.   if Sender = DButtonShop then sMsg := '商铺';
  12452.   if Sender = DButtonFriend then sMsg := '关系系统';
  12453.   if (Sender = DButtonDuel) or (Sender = DButOther) then sMsg := '挑战';
  12454.   if Sender = DRanking then sMsg := '人物排行';
  12455.   if Sender = DButtonReCallHero then sMsg := '召唤英雄';
  12456.   if Sender = DButtonHeroState then sMsg := '英雄状态信息';
  12457.   if Sender = DButtonHeroBag then sMsg := '英雄包裹';

  12459.   //if (g_MySelf.m_btHorse > 0) and (g_NewStatus > sNone) then Exit;
  12460.   if Sender = DOnHouser then sMsg := '骑马(CTRL+M)';
  12461.   if Sender = DHelp then sMsg := '摆摊';
  12462.   if Sender = DPlayTool then sMsg := '影音播放器(Alt + P)';

  12464.   DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite {clYellow}, False);
  12465.   if g_ConfigClient.btMainInterface in [0, 2] then begin
  12466.     nHintX := Butt.Left - 100;
  12467.     nHintY := DBottom.Top + Butt.Top;
  12468.   end else begin
  12469.     nHintX := Butt.SurfaceX(Butt.Left);
  12470.     nHintY := Butt.SurfaceY(Butt.Top) - 20;
  12471.   end;

  12473.   if Sender = DButFunc1 then begin
  12474.     if DButFunc1.Downed then sMsg := '允许所有公聊信息' else sMsg := '拒绝所有公聊信息';
  12475.     DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite {clYellow}, False);
  12476.   end;
  12477.   if Sender = DButFunc2 then begin
  12478.     if DButFunc2.Downed then sMsg := '允许所有喊话信息' else sMsg := '拒绝所有喊话信息';
  12479.     DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite {clYellow}, False);
  12480.   end;
  12481.   if Sender = DButFunc3 then begin
  12482.     if DButFunc3.Downed then sMsg := '允许所有私聊信息' else sMsg := '拒绝所有私聊信息';
  12483.     DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite {clYellow}, False);
  12484.   end;
  12485.   if Sender = DButFunc4 then begin
  12486.     if DButFunc4.Downed then sMsg := '允许行会聊天信息' else sMsg := '拒绝行会聊天信息';
  12487.     DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite {clYellow}, False);
  12488.   end;
  12489.   if Sender = DButFunc5 then begin
  12490.     sMsg := '自动喊话开关';
  12491.     DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite {clYellow}, False);
  12492.   end;
  12493.   {nLocalX := Butt.LocalX(X - Butt.Left);
  12494.   nLocalY := Butt.LocalY(Y - Butt.Top);
  12495.   nHintX := Butt.SurfaceX(Butt.Left) + DBottom.SurfaceX(DBottom.Left) + nLocalX;
  12496.   nHintY := Butt.SurfaceY(Butt.Top) + DBottom.SurfaceY(DBottom.Top) + nLocalY; }
  12497. end;

  12499. procedure TFrmDlg.SetButVisible(Value: Boolean);
  12500. begin
  12501.   DBotMiniMap.Visible := Value;
  12502.   DOnHouser.Visible := Value;
  12503.   DBotTrade.Visible := Value;
  12504.   DBotGuild.Visible := Value;
  12505.   DButtonFriend.Visible := Value;
  12506.   DRanking.Visible := Value;
  12507.   DVoice.Visible := Value;
  12508.   DButOther.Visible := Value;
  12509.   if (g_ConfigClient.btMainInterface = 1) then
  12510.     DBotPlusAbil.Visible := (g_nBonusPoint > 0) and Value;
  12511.   DBotGroup.Visible := Value;
  12512. end;


  12515. procedure TFrmDlg.OpenFriendDlg();
  12516. begin

  12518. end;

  12520. procedure TFrmDlg.DChgGamePwdCloseClick(Sender: TObject; X, Y: Integer);
  12521. begin
  12522.   DChgGamePwd.Visible := False;
  12523. end;

  12525. procedure TFrmDlg.DChgGamePwdDirectPaint(Sender: TObject;
  12526.   dsurface: TTexture);
  12527. var
  12528.   d: TTexture;
  12529.   lx, ly, sx: Integer;
  12530. begin
  12531.   with Sender as TDWindow do begin
  12532.     d := nil;
  12533.     if WLib <> nil then
  12534.       d := WLib.Images[FaceIndex];
  12535.     if d <> nil then
  12536.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  12538.     with dsurface do begin
  12539.       BoldTextOut(SurfaceX(Left + 15), SurfaceY(Top + 13), g_sGameGoldName);

  12541.       MainForm.Canvas.Font.Style := MainForm.Canvas.Font.Style + [fsUnderline];
  12542.       BoldTextOut(SurfaceX(Left + 12), SurfaceY(Top + 190), g_sGamePointName);
  12543.       MainForm.Canvas.Font.Style := MainForm.Canvas.Font.Style - [fsUnderline];
  12544.     end;
  12545.   end;
  12546. end;

  12548. procedure TFrmDlg.DButtonShopDirectPaint(Sender: TObject;
  12549.   dsurface: TTexture);
  12550. var
  12551.   d: TDButton;
  12552.   dd: TTexture;
  12553. begin
  12554.   if Sender is TDButton then begin
  12555.     d := TDButton(Sender);
  12556.     //d.DrawQuad(dsurface, Bounds(d.SurfaceX(d.Left), d.SurfaceY(d.Top), d.Width, d.Height), clRed, False, 150);
  12557.     if d.Downed then begin
  12558.       dd := nil;
  12559.       if d.WLib <> nil then
  12560.         dd := d.WLib.Images[d.FaceIndex];
  12561.       if dd <> nil then
  12562.         dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, g_ConfigClient.btMainInterface in [0, 2]);
  12563.     end;
  12564.   end;
  12565. end;

  12567. procedure TFrmDlg.DShopDirectPaint(Sender: TObject;
  12568.   dsurface: TTexture);
  12569. var
  12570.   d: TTexture;
  12571.   iname, d1, d2, d3: string;
  12572.   useable: Boolean;
  12573.   I, old, nIndex, n: Integer;
  12574.   sMemo: string;
  12575.   TempList: TStringList;
  12576.   StringArray: array[0..9] of string[24];
  12577.   c: TColor;
  12578. begin
  12579.   with DShop do begin
  12580.     d := nil;
  12581.     if WLib <> nil then
  12582.       d := WLib.Images[FaceIndex];
  12583.     if d <> nil then
  12584.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  12585.   end;
  12586.   if g_MouseShopItems.ShopItem.StdItem.Name <> '' then begin
  12587.     sMemo := g_MouseShopItems.ShopItem.sMemo2;
  12588.     if sMemo = '' then begin
  12589.       g_MouseItem.s := g_MouseShopItems.ShopItem.StdItem;
  12590.       g_MouseItem.DuraMax := g_MouseItem.s.DuraMax;
  12591.       g_MouseItem.Dura := g_MouseItem.s.DuraMax;
  12592.       {TempList := TStringList.Create;
  12593.       GetMouseItemInfo(TempList);
  12594.       }
  12595.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  12596.       TempList := HintList;
  12597.       g_MouseItem.s.Name := '';
  12598.       if TempList.Count > 0 then begin
  12599.         with dsurface do begin
  12600.           old := MainForm.Canvas.Font.Size;
  12601.           MainForm.Canvas.Font.Size := 9;
  12602.           nIndex := 0;
  12603.           n := 1;
  12604.           if TempList.Count >= 5 then begin
  12605.             TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) - TextHeight('A')), TempList.Strings[0], clyellow);
  12606.             for I := 1 to TempList.Count - 2 do begin
  12607.               if nIndex = 0 then begin
  12608.                 TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) * n), TempList.Strings[I], TColor(TempList.Objects[I]));
  12609.                 Inc(nIndex);
  12610.               end else begin
  12611.                 TextOut(DShop.SurfaceX(DShop.Left + 20) + TextWidth('A') + TextWidth(TempList.Strings[I - 1]), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) * n), TempList.Strings[I], TColor(TempList.Objects[I]));
  12612.                 nIndex := 0;
  12613.                 Inc(n);
  12614.               end
  12615.             end;
  12616.             if nIndex <> 0 then Inc(n);
  12617.             TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) * n), TempList.Strings[TempList.Count - 1], TColor(TempList.Objects[TempList.Count - 1]));
  12618.           end else begin
  12619.             for I := 0 to TempList.Count - 1 do begin
  12620.               if I = 0 then c := clyellow
  12621.               else c := TColor(TempList.Objects[I]);
  12622.               TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) * n - TextHeight('A')), TempList.Strings[I], c);
  12623.               Inc(n);
  12624.             end;
  12625.           end;
  12626.           MainForm.Canvas.Font.Size := old;
  12627.         end;
  12628.       end;
  12629.       //TempList.Free;
  12630.     end else begin
  12631.       nIndex := 0;
  12632.       SafeFillChar(StringArray, SizeOf(StringArray), #0);
  12633.       TempList := TStringList.Create;
  12634.       ExtractStrings(['\'], [], PChar(sMemo), TempList);
  12635.       for nIndex := 0 to TempList.Count - 1 do begin
  12636.         if nIndex > 9 then Break;
  12637.         StringArray[nIndex] := TempList.Strings[nIndex];
  12638.       end;
  12639.       TempList.Free;

  12641.       with dsurface do begin
  12642.         old := MainForm.Canvas.Font.Size;
  12643.         MainForm.Canvas.Font.Size := 9;
  12644.         c := clyellow;
  12645.         TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150), '★' + g_MouseShopItems.ShopItem.StdItem.Name, c);
  12646.         c := clWhite;
  12647.         n := 0;
  12648.         for nIndex := Low(StringArray) to High(StringArray) do begin
  12649.           if StringArray[nIndex] <> '' then begin
  12650.             if n = 0 then
  12651.               TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + TextHeight('A') + 2), StringArray[nIndex], c);
  12652.             if n > 0 then
  12653.               TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) * n) + TextHeight('A'), StringArray[nIndex], c);
  12654.             Inc(n);
  12655.           end;
  12656.         end;
  12657.         Inc(n);
  12658.         c := clyellow;
  12659.         if g_MouseShopItems.ShopItem.StdItem.AddValue[0] = 0 then begin
  12660.           TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) * n), '到期时间: 永久使用', c);
  12661.         end else begin
  12662.           TextOut(DShop.SurfaceX(DShop.Left + 20), DShop.SurfaceY(DShop.Top + DShop.Height - 150 + (TextHeight('A') + 2) * n), '到期时间: ' + DateToStr(g_MouseShopItems.ShopItem.StdItem.MaxDate), c);
  12663.         end;
  12664.         MainForm.Canvas.Font.Size := old;
  12665.       end;
  12666.     end;
  12667.   end;
  12668. end;

  12670. procedure TFrmDlg.DJewelryDirectPaint(Sender: TObject;
  12671.   dsurface: TTexture);
  12672. var
  12673.   d: TDButton;
  12674.   dd: TTexture;
  12675. begin
  12676.   if Sender is TDButton then begin
  12677.     d := TDButton(Sender);
  12678.     if d.Downed then begin
  12679.       dd := nil;
  12680.       if d.WLib <> nil then
  12681.         dd := d.WLib.Images[d.FaceIndex];
  12682.       if dd <> nil then
  12683.         dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  12684.     end;
  12685.   end;
  12686. end;

  12688. procedure TFrmDlg.DShopExitClick(Sender: TObject; X, Y: Integer);
  12689. begin
  12690.   DShop.Visible := False;
  12691. end;

  12693. procedure TFrmDlg.ChgShopSelButton(nType: Integer);
  12694. begin
  12695.   case nType of
  12696.     0: begin
  12697.         DJewelry.Downed := True;
  12698.         DMedicine.Downed := False;
  12699.         DEnhance.Downed := False;
  12700.         Dfriend.Downed := False;
  12701.         DLimit.Downed := False;
  12702.       end;
  12703.     1: begin
  12704.         DJewelry.Downed := False;
  12705.         DMedicine.Downed := True;
  12706.         DEnhance.Downed := False;
  12707.         Dfriend.Downed := False;
  12708.         DLimit.Downed := False;
  12709.       end;
  12710.     2: begin
  12711.         DJewelry.Downed := False;
  12712.         DMedicine.Downed := False;
  12713.         DEnhance.Downed := True;
  12714.         Dfriend.Downed := False;
  12715.         DLimit.Downed := False;
  12716.       end;
  12717.     3: begin
  12718.         DJewelry.Downed := False;
  12719.         DMedicine.Downed := False;
  12720.         DEnhance.Downed := False;
  12721.         Dfriend.Downed := True;
  12722.         DLimit.Downed := False;
  12723.       end;
  12724.     4: begin
  12725.         DJewelry.Downed := False;
  12726.         DMedicine.Downed := False;
  12727.         DEnhance.Downed := False;
  12728.         Dfriend.Downed := False;
  12729.         DLimit.Downed := True;
  12730.       end;
  12731.   end;
  12732. end;

  12734. procedure TFrmDlg.DJewelryClick(Sender: TObject; X, Y: Integer);
  12735. begin
  12736.   ShopTabPage := 0;
  12737.   g_MouseShopItems.ShopItem.StdItem.Name := '';
  12738.   g_MouseShopItems.nPicturePosition := -1;
  12739.   g_MouseShopItems.dwPlaySpeedTick := GetTickCount;
  12740.   ChgShopSelButton(ShopTabPage);
  12741.   if g_ShopItems[ShopTabPage, 0].StdItem.Name = '' then begin
  12742.     frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  12743.   end;
  12744. end;

  12746. procedure TFrmDlg.DMedicineClick(Sender: TObject; X, Y: Integer);
  12747. begin
  12748.   ShopTabPage := 1;
  12749.   g_MouseShopItems.ShopItem.StdItem.Name := '';
  12750.   g_MouseShopItems.nPicturePosition := -1;
  12751.   g_MouseShopItems.dwPlaySpeedTick := GetTickCount;
  12752.   ChgShopSelButton(ShopTabPage);
  12753.   if g_ShopItems[ShopTabPage, 0].StdItem.Name = '' then begin
  12754.     frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  12755.   end;
  12756. end;

  12758. procedure TFrmDlg.DEnhanceClick(Sender: TObject; X, Y: Integer);
  12759. begin
  12760.   ShopTabPage := 2;
  12761.   g_MouseShopItems.ShopItem.StdItem.Name := '';
  12762.   g_MouseShopItems.nPicturePosition := -1;
  12763.   g_MouseShopItems.dwPlaySpeedTick := GetTickCount;
  12764.   ChgShopSelButton(ShopTabPage);
  12765.   if g_ShopItems[ShopTabPage, 0].StdItem.Name = '' then begin
  12766.     frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  12767.   end;
  12768. end;

  12770. procedure TFrmDlg.DfriendClick(Sender: TObject; X, Y: Integer);
  12771. begin
  12772.   ShopTabPage := 3;
  12773.   g_MouseShopItems.ShopItem.StdItem.Name := '';
  12774.   g_MouseShopItems.nPicturePosition := -1;
  12775.   g_MouseShopItems.dwPlaySpeedTick := GetTickCount;
  12776.   ChgShopSelButton(ShopTabPage);
  12777.   if g_ShopItems[ShopTabPage, 0].StdItem.Name = '' then begin
  12778.     frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  12779.   end;
  12780. end;

  12782. procedure TFrmDlg.DLimitClick(Sender: TObject; X, Y: Integer);
  12783. begin
  12784.   ShopTabPage := 4;
  12785.   g_MouseShopItems.ShopItem.StdItem.Name := '';
  12786.   g_MouseShopItems.nPicturePosition := -1;
  12787.   g_MouseShopItems.dwPlaySpeedTick := GetTickCount;
  12788.   ChgShopSelButton(ShopTabPage);
  12789.   if g_ShopItems[ShopTabPage, 0].StdItem.Name = '' then begin
  12790.     frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  12791.   end;
  12792. end;

  12794. procedure TFrmDlg.DBottomMouseMove(Sender: TObject; Shift: TShiftState; X,
  12795.   Y: Integer);
  12796. var
  12797.   sStr: string;
  12798. begin
  12799.   if g_ConfigClient.btMainInterface in [0, 2] then begin
  12800.     if (X >= DBottom.Left + 666) and (Y >= SCREENHEIGHT - 73) and
  12801.       (X <= DBottom.Left + 730) and (Y <= SCREENHEIGHT - 73 + 13) then begin
  12802.       if g_MySelf.m_Abil.MaxExp > 0 then begin
  12803.         sStr := '当前经验' + FloatToStrFixFmt(100 * g_MySelf.m_Abil.Exp / g_MySelf.m_Abil.MaxExp, 3, 2) + '%\';
  12804.         DScreen.ShowHint(DBottom.Left + 666, SCREENHEIGHT - 73 + 13, sStr, clWhite, False);
  12805.       end;
  12806.     end else
  12807.       if (X >= DBottom.Left + 666) and (X <= DBottom.Left + 730) and
  12808.       (Y >= SCREENHEIGHT - 40) and (Y <= SCREENHEIGHT - 40 + 13) then begin
  12809.       sStr := '包裹负重' + IntToStr(g_MySelf.m_Abil.Weight) + '/' + IntToStr(g_MySelf.m_Abil.MaxWeight);
  12810.       DScreen.ShowHint(DBottom.Left + 666, SCREENHEIGHT - 40 + 13, sStr, clWhite, False);
  12811.     end else begin
  12812.       DScreen.ClearHint;
  12813.     end;
  12814.   end else begin
  12815.     if (Y >= SCREENHEIGHT - 8) and (Y <= SCREENHEIGHT) then begin
  12816.       if EdChat.Visible then begin
  12817.         if (X >= EdChat.SurfaceX(EdChat.Left)) and (X <= EdChat.SurfaceX(EdChat.Left) + EdChat.Width) then begin
  12818.           DScreen.ClearHint;
  12819.           Exit;
  12820.         end;
  12821.       end;
  12822.       if g_MySelf.m_Abil.MaxExp > 0 then begin
  12823.         sStr := '当前经验' + FloatToStrFixFmt(100 * g_MySelf.m_Abil.Exp / g_MySelf.m_Abil.MaxExp, 3, 2) + '%\';
  12824.         DScreen.ShowHint(X, SCREENHEIGHT, sStr, clWhite, True);
  12825.       end;
  12826.     end else
  12827.       DScreen.ClearHint;
  12828.   end;
  12829. end;

  12831. procedure TFrmDlg.OpenShopDlg;
  12832. begin
  12833.   if not DShop.Visible then begin
  12834.     DShop.Visible := True;
  12835.   end;
  12836. end;

  12838. procedure TFrmDlg.DShopIntroduceDirectPaint(Sender: TObject;
  12839.   dsurface: TTexture);
  12840. var
  12841.   nIdx: Integer;
  12842.   d: TTexture;
  12843. begin
  12844.   nIdx := -1;
  12845.   if g_MouseShopItems.ShopItem.StdItem.Name <> '' then begin
  12846.     if g_MouseShopItems.ShopItem.nBeginIdx = g_MouseShopItems.ShopItem.nEndIdx then begin
  12847.       nIdx := g_MouseShopItems.ShopItem.nBeginIdx;
  12848.     end else
  12849.       if g_MouseShopItems.ShopItem.nBeginIdx < g_MouseShopItems.ShopItem.nEndIdx then begin
  12850.       if g_MouseShopItems.nPicturePosition >= 0 then begin
  12851.         if GetTickCount > g_MouseShopItems.dwPlaySpeedTick then begin
  12852.           g_MouseShopItems.dwPlaySpeedTick := GetTickCount + 400;
  12853.           Inc(g_MouseShopItems.nPicturePosition);
  12854.         end;
  12855.         if g_MouseShopItems.nPicturePosition > g_MouseShopItems.ShopItem.nEndIdx then
  12856.           g_MouseShopItems.nPicturePosition := g_MouseShopItems.ShopItem.nBeginIdx;
  12857.         nIdx := g_MouseShopItems.nPicturePosition;
  12858.       end else begin
  12859.         g_MouseShopItems.nPicturePosition := g_MouseShopItems.ShopItem.nBeginIdx;
  12860.         nIdx := g_MouseShopItems.nPicturePosition;
  12861.         g_MouseShopItems.dwPlaySpeedTick := GetTickCount + 400;
  12862.       end;
  12863.     end;
  12864.   end;
  12865.   if nIdx = -1 then nIdx := 380;
  12866.   d := g_WEffectImg.Images[nIdx];
  12867.   if d <> nil then
  12868.     dsurface.Draw(DShopIntroduce.SurfaceX(DShopIntroduce.Left + (DShopIntroduce.Width - d.Width) div 2),
  12869.       DShopIntroduce.SurfaceY(DShopIntroduce.Top + (DShopIntroduce.Height - d.Height) div 2),
  12870.       d.ClientRect, d, True);
  12871. end;

  12873. procedure TFrmDlg.SuperShopItemPrev;
  12874. begin
  12875.   if ShopPage[5] > 0 then begin
  12876.     Dec(ShopPage[5]);
  12877.     g_MouseShopItems.ShopItem.StdItem.Name := '';
  12878.     g_MouseShopItems.nPicturePosition := -1;
  12879.     frmMain.SendShopDlg(ShopPage[5], 5, 5);
  12880.   end;
  12881. end;

  12883. procedure TFrmDlg.SuperShopItemNext;
  12884. begin
  12885.   if ShopPage[5] < ShopPageCount then begin
  12886.     Inc(ShopPage[5]);
  12887.     g_MouseShopItems.ShopItem.StdItem.Name := '';
  12888.     g_MouseShopItems.nPicturePosition := -1;
  12889.     frmMain.SendShopDlg(ShopPage[5], 5, 5);
  12890.   end;
  12891. end;

  12893. procedure TFrmDlg.DPrevShopClick(Sender: TObject; X, Y: Integer);
  12894. begin
  12895.   if GetTickCount > g_dwQueryMsgTick then begin
  12896.     g_dwQueryMsgTick := GetTickCount + 1000;
  12897.     SuperShopItemPrev;
  12898.     if ShopPage[ShopTabPage] > 0 then begin
  12899.       Dec(ShopPage[ShopTabPage]);
  12900.       if ShopPage[ShopTabPage] < 0 then ShopPage[ShopTabPage] := 0;
  12901.       g_MouseShopItems.ShopItem.StdItem.Name := '';
  12902.       g_MouseShopItems.nPicturePosition := -1;
  12903.       frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  12904.     end;
  12905.   end;
  12906. end;

  12908. procedure TFrmDlg.DNextShopClick(Sender: TObject; X, Y: Integer);
  12909. begin
  12910.   if GetTickCount > g_dwQueryMsgTick then begin
  12911.     g_dwQueryMsgTick := GetTickCount + 1000;
  12912.     SuperShopItemNext;
  12913.     if ShopPage[ShopTabPage] < ShopPageCount then begin
  12914.       Inc(ShopPage[ShopTabPage]);
  12915.       g_MouseShopItems.ShopItem.StdItem.Name := '';
  12916.       g_MouseShopItems.nPicturePosition := -1;
  12917.       frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  12918.     end;
  12919.   end;
  12920. end;

  12922. procedure TFrmDlg.DShopBuyClick(Sender: TObject; X, Y: Integer);
  12923. begin
  12924.   if g_MouseShopItems.ShopItem.StdItem.Name <> '' then begin
  12925.     if mrOk = DMessageDlg('是否确实购买 ' + g_MouseShopItems.ShopItem.StdItem.Name + ' ？', [mbOk, mbCancel]) then begin
  12926.       frmMain.SendBuyShopItem(g_MouseShopItems.ShopItem.StdItem.Name, g_MouseShopItems.ShopItem.btItemType);
  12927.     end;
  12928.   end;
  12929. end;

  12931. procedure TFrmDlg.DButtonReCallHeroDirectPaint(Sender: TObject;
  12932.   dsurface: TTexture);
  12933. var
  12934.   d: TDButton;
  12935.   dd: TTexture;
  12936. begin
  12937.   if Sender is TDButton then begin
  12938.     d := TDButton(Sender);
  12939.     if d.Downed then begin
  12940.       dd := d.WLib.Images[d.FaceIndex];
  12941.       if dd <> nil then
  12942.         dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  12943.     end;
  12944.   end;
  12945. end;

  12947. procedure TFrmDlg.DButFunc1DirectPaint(Sender: TObject;
  12948.   dsurface: TTexture);
  12949. var
  12950.   d: TDButton;
  12951.   dd: TTexture;
  12952. begin
  12953.   if Sender is TDButton then begin
  12954.     d := TDButton(Sender);
  12955.     if d.Downed then begin
  12956.       dd := d.WLib.Images[d.FaceIndex + 1];
  12957.     end else begin
  12958.       dd := d.WLib.Images[d.FaceIndex];
  12959.     end;
  12960.     if dd <> nil then
  12961.       dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, True);
  12962.   end;
  12963. end;

  12965. procedure TFrmDlg.DButFunc1Click(Sender: TObject; X, Y: Integer);
  12966. var
  12967.   d: TDButton;
  12968.   sMsg: string;
  12969. begin
  12970. { if Sender is TDButton then begin
  12971.     d := TDButton(Sender);
  12972.     if d <> nil then begin
  12973.       if d.Downed then begin
  12974.         Dec(d.FaceIndex)
  12975.       end else begin
  12976.         Inc(d.FaceIndex);
  12977.       end;
  12978.     end;
  12979.   end; }
  12980.   if Sender = DButFunc1 then begin
  12981.     g_boShowGroupMsg := not DButFunc1.Downed;
  12982.     if g_boShowGroupMsg then begin
  12983.       sMsg := '允许接受公聊信息';
  12984.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(255));
  12985.     end else begin
  12986.       sMsg := '拒绝接受公聊信息';
  12987.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(0));
  12988.     end;
  12989.   end else
  12990.     if Sender = DButFunc2 then begin
  12991.     g_boShowHearMsg := not DButFunc2.Downed;
  12992.     if g_boShowHearMsg then begin
  12993.       sMsg := '允许接受（黄色字体）喊话';
  12994.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(255));
  12995.     end else begin
  12996.       sMsg := '拒绝接受（黄色字体）喊话';
  12997.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(0));
  12998.     end;
  12999.   end else
  13000.     if Sender = DButFunc3 then begin
  13001.     g_boShowWhisperMsg := not DButFunc3.Downed;
  13002.     if g_boShowWhisperMsg then begin
  13003.       sMsg := '允许接受私聊信息';
  13004.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(255));
  13005.     end else begin
  13006.       sMsg := '拒绝接受私聊信息';
  13007.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(0));
  13008.     end;
  13009.   end else
  13010.     if Sender = DButFunc4 then begin
  13011.     g_boShowGuildMsg := not DButFunc4.Downed;
  13012.     if g_boShowGuildMsg then begin
  13013.       sMsg := '允许接受行会喊话信息';
  13014.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(255));
  13015.     end else begin
  13016.       sMsg := '拒绝接受行会喊话信息';
  13017.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(0));
  13018.     end;
  13019.   end else
  13020.     if Sender = DButFunc5 then begin
  13021.     g_boAutoShowHearMsg := not DButFunc5.Downed;
  13022.     if g_boAutoShowHearMsg then begin
  13023.       sMsg := '启用了自动喊话功能，聊天框中内容已记录为喊话内容';
  13024.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(255));
  13025.       g_dwAutoShowMsgTick := GetTickCount;
  13026.       g_sAutoShowMsg := EdChat.Text;
  13027.     end else begin
  13028.       sMsg := '自动喊话功能已关闭';
  13029.       DScreen.AddChatBoardString(sMsg, GetRGB(222), GetRGB(255));
  13030.     end;
  13031.   end;
  13032. end;

  13034. procedure TFrmDlg.DHeroHealthStateWinDirectPaint(Sender: TObject;
  13035.   dsurface: TTexture);
  13036. var
  13037.   d: TTexture;
  13038.   old: Integer;
  13039.   rc: TRect;
  13040.   OldColor: TColor;
  13041.   Idx: Integer;
  13042. begin
  13043.   if g_MyHero = nil then Exit;
  13044.   {case g_MyHero.m_btSex of
  13045.     0: begin
  13046.         if g_ConfigClient.btMainInterface in [0, 2] then begin
  13047.           case g_MyHero.m_btJob of
  13048.             0: idx := 365;
  13049.             1: idx := 366;
  13050.             2: idx := 367;
  13051.           end;
  13052.         end else begin
  13053.           case g_MyHero.m_btJob of
  13054.             0: idx := 136;
  13055.             1: idx := 137;
  13056.             2: idx := 138;
  13057.           end;
  13058.         end;
  13059.       end;
  13060.     1: begin
  13061.         if g_ConfigClient.btMainInterface in [0, 2] then begin
  13062.           case g_MyHero.m_btJob of
  13063.             0: idx := 368;
  13064.             1: idx := 369;
  13065.             2: idx := 370;
  13066.           end;
  13067.         end else begin
  13068.           case g_MyHero.m_btJob of
  13069.             0: idx := 139;
  13070.             1: idx := 140;
  13071.             2: idx := 141;
  13072.           end;
  13073.         end;
  13074.       end;
  13075.   end;
  13076.   d := nil;
  13077.   with DHeroHealthStateWin do begin
  13078.     if idx > 0 then begin
  13079.       if g_ConfigClient.btMainInterface in [0, 2] then begin
  13080.         d := g_WMain3Images.Images[idx];
  13081.         if d <> nil then begin
  13082.           if g_MyHero.m_boDeath then begin
  13083.             g_ImgMixSurface.SetSize(d.Width, d.Height);
  13084.             g_ImgMixSurface.Fill(0);
  13085.             g_ImgMixSurface.Draw(0, 0, d.ClientRect, d, False);
  13086.             DrawEffect(0, 0, g_ImgMixSurface, d, ceGrayScale);
  13087.             d := g_ImgMixSurface;
  13088.           end;

  13090.           dsurface.Draw(SurfaceX(Left) + 16,
  13091.             SurfaceY(Top) + 16,
  13092.             d.ClientRect, d, True);
  13093.         end;
  13094.       end else begin
  13095.         d := g_WCqFirImages.Images[idx];
  13096.         if d <> nil then begin
  13097.           if g_MyHero.m_boDeath then begin
  13098.             g_ImgMixSurface.SetSize(d.Width, d.Height);
  13099.             g_ImgMixSurface.Fill(0);
  13100.             g_ImgMixSurface.Draw(0, 0, d.ClientRect, d, False);
  13101.             DrawEffect(0, 0, g_ImgMixSurface, d, ceGrayScale);
  13102.             d := g_ImgMixSurface;
  13103.           end;
  13104.           //dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  13105.           dsurface.Draw(SurfaceX(Left) + 6,
  13106.             SurfaceY(Top) + 8,
  13107.             d.ClientRect, d, True);
  13108.         end;
  13109.       end;
  13110.     end;
  13111.     if g_ConfigClient.btMainInterface in [0, 2] then begin
  13112.     //显示英雄等级     clBtnFace
  13113.       with dsurface do begin
  13114.         TextOut(SurfaceX(Left) + 2, SurfaceY(Top) + 56, IntToStr(g_MyHero.m_Abil.Level), g_MyHero.m_nNameColor);
  13115.       end;
  13116.     end;
  13117.   end;  }

  13119.   if g_ConfigClient.btMainInterface in [0, 2] then begin

  13121.     with DHeroHealthStateWin do begin
  13122.       d := nil;
  13123.       if WLib <> nil then
  13124.         d := WLib.Images[FaceIndex];
  13125.       if d <> nil then
  13126.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  13128.       Idx := -1;
  13129.       case g_MyHero.m_btSex of
  13130.         0:
  13131.           case g_MyHero.m_btJob of
  13132.             0: Idx := 365;
  13133.             1: Idx := 366;
  13134.             2: Idx := 367;
  13135.           end;
  13136.         1:
  13137.           case g_MyHero.m_btJob of
  13138.             0: Idx := 368;
  13139.             1: Idx := 369;
  13140.             2: Idx := 370;
  13141.           end;
  13142.       end;
  13143.       if Idx > 0 then begin
  13144.         d := g_WMain3Images.Images[Idx];
  13145.         if d <> nil then begin
  13146.           if g_MyHero.m_boDeath then begin
  13147.             g_ImgMixSurface.SetSize(d.Width, d.Height);
  13148.             g_ImgMixSurface.Fill(0);
  13149.             g_ImgMixSurface.Draw(0, 0, d.ClientRect, d, False);
  13150.             DrawEffect(0, 0, g_ImgMixSurface, d, ceGrayScale);
  13151.             d := g_ImgMixSurface;
  13152.           end;
  13153.           dsurface.Draw(SurfaceX(Left) + 16, SurfaceY(Top) + 16, d.ClientRect, d, True);
  13154.         end;
  13155.       end;

  13157.       d := g_WMain3Images.Images[386]; //显示英雄HP
  13158.       if d <> nil then begin
  13159.         rc := d.ClientRect;
  13160.         if g_MyHero.m_Abil.MaxHP > 0 then
  13161.           rc.Right := Round((rc.Right - rc.Left) / g_MyHero.m_Abil.MaxHP * g_MyHero.m_Abil.HP);
  13162.         dsurface.Draw(Left + 75, Top + 25, rc, d, False);
  13163.       end;

  13165.       d := g_WMain3Images.Images[387]; //显示英雄MP
  13166.       if d <> nil then begin
  13167.         rc := d.ClientRect;
  13168.         if g_MyHero.m_Abil.MaxMP > 0 then
  13169.           rc.Right := Round((rc.Right - rc.Left) / g_MyHero.m_Abil.MaxMP * g_MyHero.m_Abil.MP);
  13170.         dsurface.Draw(Left + 80, Top + 38, rc, d, False);
  13171.       end;

  13173.       d := g_WMain3Images.Images[388]; //显示英雄EXP
  13174.       if d <> nil then begin
  13175.         rc := d.ClientRect;
  13176.         if g_MyHero.m_Abil.MaxExp > 0 then
  13177.           rc.Right := Round((rc.Right - rc.Left) / g_MyHero.m_Abil.MaxExp * g_MyHero.m_Abil.Exp);
  13178.         dsurface.Draw(Left + 80, Top + 50, rc, d, False);
  13179.       end;

  13181.     //显示英雄名称
  13182.       with dsurface do begin
  13183.         old := MainForm.Canvas.Font.Size;
  13184.         MainForm.Canvas.Font.Size := 9;

  13186.         TextOut(Left + 80, Top + 6, g_MyHero.m_sUserName, g_MyHero.m_nNameColor);

  13188.     //显示英雄等级     clBtnFace
  13189.         TextOut(SurfaceX(Left) + 2, SurfaceY(Top) + 60, IntToStr(g_MyHero.m_Abil.Level), g_MyHero.m_nNameColor);
  13190.         MainForm.Canvas.Font.Size := old;
  13191.       end;
  13192.     end;

  13194.   end else begin

  13196.     with DHeroHealthStateWin do begin
  13197.       d := nil;
  13198.       if WLib <> nil then
  13199.         d := WLib.Images[FaceIndex];
  13200.       if d <> nil then
  13201.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  13203.       Idx := -1;
  13204.       case g_MyHero.m_btSex of
  13205.         0:
  13206.           case g_MyHero.m_btJob of
  13207.             0: Idx := 136;
  13208.             1: Idx := 137;
  13209.             2: Idx := 138;
  13210.           end;
  13211.         1:
  13212.           case g_MyHero.m_btJob of
  13213.             0: Idx := 139;
  13214.             1: Idx := 140;
  13215.             2: Idx := 141;
  13216.           end;
  13217.       end;
  13218.       if Idx > 0 then begin
  13219.         d := g_WCqFirImages.Images[Idx];
  13220.         if d <> nil then begin
  13221.           if g_MyHero.m_boDeath then begin
  13222.             g_ImgMixSurface.SetSize(d.Width, d.Height);
  13223.             g_ImgMixSurface.Fill(0);
  13224.             g_ImgMixSurface.Draw(0, 0, d.ClientRect, d, False);
  13225.             DrawEffect(0, 0, g_ImgMixSurface, d, ceGrayScale);
  13226.             d := g_ImgMixSurface;
  13227.           end;
  13228.           dsurface.Draw(SurfaceX(Left) + 8, SurfaceY(Top) + 10, d.ClientRect, d, True);
  13229.         end;
  13230.       end;

  13232.       if g_HeroUseItems[U_BUJUK].s.Name <> '' then begin
  13233.         if (g_HeroUseItems[U_BUJUK].s.StdMode = 25) and (g_HeroUseItems[U_BUJUK].s.Shape = 9) then begin

  13235.           if g_MyHero.m_nAngryValue >= g_MyHero.m_nMaxAngryValue then begin
  13236.             if GetTickCount - g_dwFirDragonTick > 500 then begin
  13237.               g_dwFirDragonTick := GetTickCount;
  13238.               Inc(g_nFirDragon);
  13239.               if g_nFirDragon > 1 then g_nFirDragon := 0;
  13240.             end;
  13241.             if g_nFirDragon > 0 then
  13242.               d := g_WCqFirImages.Images[130]
  13243.             else d := g_WCqFirImages.Images[149];
  13244.           end else begin
  13245.             d := g_WCqFirImages.Images[130]; //显示怒槽
  13246.           end;

  13248.           if d <> nil then begin
  13249.             rc := d.ClientRect;
  13250.             if g_MyHero.m_nMaxAngryValue > 0 then
  13251.               rc.Right := Round((rc.Right - rc.Left) / g_MyHero.m_nMaxAngryValue * g_MyHero.m_nAngryValue);
  13252.             dsurface.Draw(Left + 56, Top + 32, rc, d, False);
  13253.           end;
  13254.         end;
  13255.       end;

  13257.       d := g_WCqFirImages.Images[131]; //显示英雄HP
  13258.       if d <> nil then begin
  13259.         rc := d.ClientRect;
  13260.         if g_MyHero.m_Abil.MaxHP > 0 then
  13261.           rc.Right := Round((rc.Right - rc.Left) / g_MyHero.m_Abil.MaxHP * g_MyHero.m_Abil.HP);
  13262.         dsurface.Draw(Left + 103, Top + 47, rc, d, False);
  13263.       end;

  13265.       d := g_WCqFirImages.Images[132]; //显示英雄MP
  13266.       if d <> nil then begin
  13267.         rc := d.ClientRect;
  13268.         if g_MyHero.m_Abil.MaxMP > 0 then
  13269.           rc.Right := Round((rc.Right - rc.Left) / g_MyHero.m_Abil.MaxMP * g_MyHero.m_Abil.MP);
  13270.         dsurface.Draw(Left + 106, Top + 57, rc, d, False);
  13271.       end;

  13273.       d := g_WCqFirImages.Images[133]; //显示英雄EXP
  13274.       if d <> nil then begin
  13275.         rc := d.ClientRect;
  13276.         if g_MyHero.m_Abil.MaxExp > 0 then
  13277.           rc.Right := Round((rc.Right - rc.Left) / g_MyHero.m_Abil.MaxExp * g_MyHero.m_Abil.Exp);
  13278.         dsurface.Draw(Left + 103, Top + 66, rc, d, False);
  13279.       end;

  13281.     //显示英雄名称
  13282.       with dsurface do begin
  13283.         TextOut(Left + 62 + (88 - TextWidth(g_MyHero.m_sUserName)) div 2, Top + 6 + 12, g_MyHero.m_sUserName, g_MyHero.m_nNameColor);
  13284.         TextOut(Left + 148 + (44 - TextWidth(IntToStr(g_MyHero.m_Abil.Level))) div 2, Top + 6 + 12, IntToStr(g_MyHero.m_Abil.Level), g_MyHero.m_nNameColor);
  13285.       end;
  13286.     end;
  13287.   end;
  13288. end;

  13290. procedure TFrmDlg.DHeroStateWinDirectPaint(Sender: TObject;
  13291.   dsurface: TTexture);
  13292. var
  13293.   I, L, m, pgidx, magline, bbx, bby, mmx, Idx, ax, ay, trainlv: Integer;
  13294.   pm: PTClientMagic;
  13295.   d: TTexture;
  13296.   hcolor, old, keyimg: Integer;
  13297.   iname, d1, d2, d3: string;
  13298.   useable: Boolean;

  13300. begin
  13301.   if g_MyHero = nil then Exit;
  13302.   with DHeroStateWin do begin
  13303.     d := nil;
  13304.     if WLib <> nil then
  13305.       d := WLib.Images[FaceIndex];
  13306.     if d <> nil then
  13307.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  13308.     case HeroStatePage of
  13309.       0: begin
  13310.           pgidx := 380;
  13311.           if g_MyHero <> nil then
  13312.             if g_MyHero.m_btSex = 1 then pgidx := 381;
  13313.           bbx := Left + 38;
  13314.           bby := Top + 52;
  13315.           d := g_WMain3Images.Images[pgidx];
  13316.           if d <> nil then
  13317.             dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);

  13319.           bbx := bbx - 7;
  13320.           bby := bby + 44;
  13321.           if g_MyHero.m_btHair < 4 then begin
  13322.             Idx := 440 + g_MyHero.m_btHair;
  13323.           //显示发型
  13324.             if Idx > 0 then begin
  13325.               d := g_WMainImages.GetCachedImage(Idx, ax, ay);
  13326.               if d <> nil then
  13327.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  13328.             end;
  13329.           end;
  13330.           if g_HeroUseItems[U_DRESS].s.Name <> '' then begin
  13331.             Idx := g_HeroUseItems[U_DRESS].s.looks;
  13332.             if Idx >= 0 then begin
  13333.               //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  13334.               d := GetWStateImg(Idx, ax, ay);
  13335.               if d <> nil then
  13336.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  13337.             end;
  13338.           end;
  13339.           if g_HeroUseItems[U_WEAPON].s.Name <> '' then begin
  13340.             Idx := g_HeroUseItems[U_WEAPON].s.looks;
  13341.             if Idx >= 0 then begin
  13342.               //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  13343.               d := GetWStateImg(Idx, ax, ay);
  13344.               if d <> nil then
  13345.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);

  13347.               if (g_HeroUseItems[U_WEAPON].s.Shape = 38) and (Idx = 1404) then begin
  13348.                 d := GetWStateImg(Idx - 1, ax, ay);
  13349.                 if d <> nil then
  13350.                   DrawBlend(dsurface, SurfaceX(bbx + ax), SurfaceY(bby + ay), d);
  13351.               end else
  13352.                 if (g_HeroUseItems[U_WEAPON].s.Shape = 56) and (Idx = 1880) then begin
  13353.                 if (g_dwWeapon56Index[1] < 1890) or (g_dwWeapon56Index[1] > 1899) then
  13354.                   g_dwWeapon56Index[1] := 1890;
  13355.                 if GetTickCount - g_dwWeapon56Tick[1] > 100 then begin
  13356.                   g_dwWeapon56Tick[1] := GetTickCount;
  13357.                   g_dwWeapon56Index[1] := g_dwWeapon56Index[1] + 1;
  13358.                 end;
  13359.                 if (g_dwWeapon56Index[1] < 1890) or (g_dwWeapon56Index[1] > 1899) then
  13360.                   g_dwWeapon56Index[1] := 1890;

  13362.                 d := GetWStateImg(g_dwWeapon56Index[1], ax, ay);
  13363.                 if d <> nil then
  13364.                   DrawBlend(dsurface, SurfaceX(bbx + ax), SurfaceY(bby + ay), d);
  13365.               end;

  13367.             end;
  13368.           end;
  13369.           if g_HeroUseItems[U_HELMET].s.Name <> '' then begin
  13370.             Idx := g_HeroUseItems[U_HELMET].s.looks;
  13371.             if Idx >= 0 then begin
  13372.               //d := FrmMain.WStateItem.GetCachedImage (idx, ax, ay);
  13373.               d := GetWStateImg(Idx, ax, ay);
  13374.               if d <> nil then
  13375.                 dsurface.Draw(SurfaceX(bbx + ax), SurfaceY(bby + ay), d.ClientRect, d, True);
  13376.             end;
  13377.           end;
  13378.         end;
  13379.       1: begin
  13380.           L := Left + 112; //66;
  13381.           m := Top + 99;
  13382.           bbx := Left + 38;
  13383.           bby := Top + 52;
  13384.           //d := g_WMain3Images.Images[383];
  13385.           d := g_WUIBImages.Images[9];
  13386.           if d = nil then d := g_WMain3Images.Images[383];

  13388.           if d <> nil then
  13389.             dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);
  13390.           with dsurface do begin
  13391.             TextOut(SurfaceX(L + 0), SurfaceY(m + 0), IntToStr(Loword(g_MyHero.m_Abil.AC)) + '-' + IntToStr(Hiword(g_MyHero.m_Abil.AC)));
  13392.             TextOut(SurfaceX(L + 0), SurfaceY(m + 20), IntToStr(Loword(g_MyHero.m_Abil.MAC)) + '-' + IntToStr(Hiword(g_MyHero.m_Abil.MAC)));
  13393.             TextOut(SurfaceX(L + 0), SurfaceY(m + 40), IntToStr(Loword(g_MyHero.m_Abil.DC)) + '-' + IntToStr(Hiword(g_MyHero.m_Abil.DC)));
  13394.             TextOut(SurfaceX(L + 0), SurfaceY(m + 60), IntToStr(Loword(g_MyHero.m_Abil.MC)) + '-' + IntToStr(Hiword(g_MyHero.m_Abil.MC)));
  13395.             TextOut(SurfaceX(L + 0), SurfaceY(m + 80), IntToStr(Loword(g_MyHero.m_Abil.SC)) + '-' + IntToStr(Hiword(g_MyHero.m_Abil.SC)));
  13396.             TextOut(SurfaceX(L + 0), SurfaceY(m + 100), IntToStr(g_MyHero.m_Abil.HP) + '/' + IntToStr(g_MyHero.m_Abil.MaxHP));
  13397.             TextOut(SurfaceX(L + 0), SurfaceY(m + 120), IntToStr(g_MyHero.m_Abil.MP) + '/' + IntToStr(g_MyHero.m_Abil.MaxMP));
  13398.           end;
  13399.         end;
  13400.       2: begin
  13401.           bbx := Left + 38;
  13402.           bby := Top + 52;
  13403.           d := g_WMain3Images.Images[32];
  13404.           if d <> nil then
  13405.             dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);

  13407.           bbx := bbx + 20;
  13408.           bby := bby + 10;
  13409.           with dsurface do begin
  13410.             mmx := bbx + 85;
  13411.             hcolor := clSilver;
  13412.             TextOut(bbx, bby, '当前经验', hcolor);
  13413.             //TextOut(mmx, bby, FloatToStrFixFmt(100 * g_MyHero.m_Abil.Exp / g_MyHero.m_Abil.MaxExp, 3, 2) + '%');

  13415.             TextOut(mmx, bby, IntToStr(g_MyHero.m_Abil.Exp), hcolor);
  13416.             bby := bby + 14;
  13417.             TextOut(bbx, bby, '升级经验', hcolor);
  13418.             TextOut(mmx, bby, IntToStr(g_MyHero.m_Abil.MaxExp), hcolor);

  13420.             TextOut(bbx, bby + 14 * 1, '背包重量', hcolor);
  13421.             if g_MyHero.m_Abil.Weight > g_MyHero.m_Abil.MaxWeight then
  13422.               hcolor := clRed;
  13423.             TextOut(mmx, bby + 14 * 1, IntToStr(g_MyHero.m_Abil.Weight) + '/' + IntToStr(g_MyHero.m_Abil.MaxWeight), hcolor);

  13425.             hcolor := clSilver;
  13426.             TextOut(bbx, bby + 14 * 2, '负重', hcolor);
  13427.             if g_MyHero.m_Abil.WearWeight > g_MyHero.m_Abil.MaxWearWeight then
  13428.               hcolor := clRed;
  13429.             TextOut(mmx, bby + 14 * 2, IntToStr(g_MyHero.m_Abil.WearWeight) + '/' + IntToStr(g_MyHero.m_Abil.MaxWearWeight), hcolor);

  13431.             hcolor := clSilver;
  13432.             TextOut(bbx, bby + 14 * 3, '腕力', hcolor);
  13433.             if g_MyHero.m_Abil.HandWeight > g_MyHero.m_Abil.MaxHandWeight then
  13434.               hcolor := clRed;
  13435.             TextOut(mmx, bby + 14 * 3, IntToStr(g_MyHero.m_Abil.HandWeight) + '/' + IntToStr(g_MyHero.m_Abil.MaxHandWeight), hcolor);

  13437.             hcolor := clSilver;
  13438.             TextOut(bbx, bby + 14 * 4, '准确度', hcolor);
  13439.             TextOut(mmx, bby + 14 * 4, IntToStr(g_nMyHeroHitPoint), hcolor);

  13441.             TextOut(bbx, bby + 14 * 5, '敏捷', hcolor);
  13442.             TextOut(mmx, bby + 14 * 5, IntToStr(g_nMyHeroSpeedPoint), hcolor);

  13444.             TextOut(bbx, bby + 14 * 6, '魔法躲避', hcolor);
  13445.             TextOut(mmx, bby + 14 * 6, '+' + IntToStr(g_nMyHeroAntiMagic * 10) + '%', hcolor);

  13447.             TextOut(bbx, bby + 14 * 7, '毒物躲避', hcolor);
  13448.             TextOut(mmx, bby + 14 * 7, '+' + IntToStr(g_nMyHeroAntiPoison * 10) + '%', hcolor);

  13450.             TextOut(bbx, bby + 14 * 8, '中毒恢复', hcolor);
  13451.             TextOut(mmx, bby + 14 * 8, '+' + IntToStr(g_nMyHeroPoisonRecover * 10) + '%', hcolor);

  13453.             TextOut(bbx, bby + 14 * 9, '体力恢复', hcolor);
  13454.             TextOut(mmx, bby + 14 * 9, '+' + IntToStr(g_nMyHeroHealthRecover * 10) + '%', hcolor);

  13456.             TextOut(bbx, bby + 14 * 10, '魔法恢复', hcolor);
  13457.             TextOut(mmx, bby + 14 * 10, '+' + IntToStr(g_nMyHeroSpellRecover * 10) + '%', hcolor);
  13458.           end;
  13459.         end;
  13460.       3: begin //魔法
  13461.           bbx := Left + 38;
  13462.           bby := Top + 52;
  13463.           d := g_WMain2Images.Images[751];
  13464.           if d <> nil then
  13465.             dsurface.Draw(SurfaceX(bbx), SurfaceY(bby), d.ClientRect, d, False);
  13466.           Heromagtop := HeroMagicPage * 6;
  13467.           magline := _MIN(HeroMagicPage * 6 + 6, g_HeroMagicList.Count);
  13468.           for I := Heromagtop to magline - 1 do begin
  13469.             pm := PTClientMagic(g_HeroMagicList[I]);
  13470.             m := I - Heromagtop;
  13471.             keyimg := 0;
  13472.             case Byte(pm.Key) of
  13473.               Byte('1'): keyimg := 248;
  13474.               Byte('2'): keyimg := 249;
  13475.               Byte('3'): keyimg := 250;
  13476.               Byte('4'): keyimg := 251;
  13477.               Byte('5'): keyimg := 252;
  13478.               Byte('6'): keyimg := 253;
  13479.               Byte('7'): keyimg := 254;
  13480.               Byte('8'): keyimg := 255;
  13481.             end;
  13482.             if keyimg > 0 then begin
  13483.               d := g_WMainImages.Images[keyimg];
  13484.               if d <> nil then
  13485.                 dsurface.Draw(bbx + 145, bby + 8 + m * 37, d.ClientRect, d, True);
  13486.             end;
  13487.             d := g_WMainImages.Images[112]; //lv
  13488.             if d <> nil then
  13489.               dsurface.Draw(bbx + 48, bby + 8 + 15 + m * 37, d.ClientRect, d, True);
  13490.             d := g_WMainImages.Images[111]; //exp
  13491.             if d <> nil then
  13492.               dsurface.Draw(bbx + 48 + 26, bby + 8 + 15 + m * 37, d.ClientRect, d, True);
  13493.           end;

  13495.           with dsurface do begin
  13496.             for I := Heromagtop to magline - 1 do begin
  13497.               pm := PTClientMagic(g_HeroMagicList[I]);
  13498.               m := I - Heromagtop;

  13500.               hcolor := clWhite;
  13501.               if Ord(pm.Key) = 0 then hcolor := clGray;

  13503.               if pm.Def.wMagicId in [13, 26, 31, 45] then begin
  13504.                 if not (pm.Level in [0..4]) then pm.Level := 0; //魔法最多4级
  13505.               end else begin
  13506.                 if not (pm.Level in [0..3]) then pm.Level := 0; //魔法最多3级
  13507.               end;
  13508.               TextOut(bbx + 48, bby + 8 + m * 37, pm.Def.sMagicName, hcolor);

  13510.               if pm.Def.wMagicId in [13, 26, 31, 45] then begin
  13511.                 if pm.Level in [0..4] then begin
  13512.                   trainlv := pm.Level;
  13513.                   if trainlv >= 3 then trainlv := trainlv - 1;
  13514.                 end else trainlv := 0;
  13515.               end else begin
  13516.                 if pm.Level in [0..3] then trainlv := pm.Level
  13517.                 else trainlv := 0;
  13518.               end;

  13520.               TextOut(bbx + 48 + 16, bby + 8 + 15 + m * 37, IntToStr(pm.Level), hcolor);
  13521.               if pm.Def.MaxTrain[trainlv] > 0 then begin
  13522.                { if pm.Def.wMagicId in [13, 26, 45] then begin
  13523.                   if trainlv < 4 then
  13524.                     TextOut(bbx + 48 + 46, bby + 8 + 15 + m * 37, IntToStr(pm.CurTrain) + '/' + IntToStr(pm.Def.MaxTrain[trainlv]))
  13525.                   else TextOut(bbx + 48 + 46, bby + 8 + 15 + m * 37, '-');
  13526.                 end else begin }
  13527.                 if trainlv < 3 then
  13528.                   TextOut(bbx + 48 + 46, bby + 8 + 15 + m * 37, IntToStr(pm.CurTrain) + '/' + IntToStr(pm.Def.MaxTrain[trainlv]), hcolor)
  13529.                 else TextOut(bbx + 48 + 46, bby + 8 + 15 + m * 37, '-', hcolor);
  13530.                 //end;
  13531.               end;
  13532.             end;
  13533.           end;
  13534.         end;
  13535.     end;
  13536.     if (g_ServerConfig.btShowClientItemStyle <> 0) then begin
  13537.       if g_MouseHeroStateItem.s.Name <> '' then begin
  13538.         g_MouseHeroItem := g_MouseHeroStateItem;
  13539.         GetMouseItemInfo(g_MyHero, @g_MouseHeroItem, iname, d1, d2, d3, useable);
  13540.         if iname <> '' then begin
  13541.           if g_MouseHeroItem.Dura = 0 then hcolor := clRed
  13542.           else hcolor := clWhite;
  13543.           with dsurface do begin
  13544.             bbx := SurfaceX(Left + 37);
  13545.             bby := SurfaceY(Top + 272 + 35);
  13546.             TextOut(bbx, bby, iname, clyellow);
  13547.             TextOut(bbx + TextWidth(iname), bby, d1, hcolor);
  13548.             TextOut(bbx, bby + TextHeight('A') + 2, d2, hcolor);
  13549.             TextOut(bbx, bby + (TextHeight('A') + 2) * 2, d3, hcolor);
  13550.             if d2 <> '' then
  13551.               bby := bby + TextHeight('A') + 2;
  13552.             if d3 <> '' then
  13553.               bby := bby + TextHeight('A') + 2;

  13555.             bby := bby + TextHeight('A') + 2;
  13556.             for I := 0 to g_ExtractStringList.Count - 1 do begin
  13557.               TextOut(bbx, bby + (TextHeight('A') + 2) * I, g_ExtractStringList.Strings[I], hcolor);
  13558.             end;
  13559.           end;
  13560.         end;
  13561.         g_MouseHeroItem.s.Name := '';
  13562.       end;
  13563.     end;
  13564.      //玩家名称、行会
  13565.     if HeroStatePage = 0 then begin
  13566.       dsurface.TextOut(SurfaceX(Left + (Width - dsurface.TextWidth(g_MyHero.m_sUserName)) div 2),
  13567.         SurfaceY(Top + 60), g_MyHero.m_sUserName, g_MyHero.m_nNameColor);
  13568.     end;
  13569.   end;
  13570. end;

  13572. procedure TFrmDlg.DCloseHeroStateDirectPaint(Sender: TObject;
  13573.   dsurface: TTexture);
  13574. var
  13575.   d: TTexture;
  13576. begin
  13577.   with Sender as TDButton do begin
  13578.     if TDButton(Sender).Downed then begin
  13579.       d := nil;
  13580.       if WLib <> nil then
  13581.         d := WLib.Images[FaceIndex];
  13582.       if d <> nil then
  13583.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  13584.     end;
  13585.   end;
  13586. end;

  13588. procedure TFrmDlg.DHeroSWLightDirectPaint(Sender: TObject;
  13589.   dsurface: TTexture);
  13590. var
  13591.   Idx: Integer;
  13592.   d: TTexture;
  13593.   nWhere: Integer;
  13594. begin
  13595.   if g_MyHero = nil then Exit;
  13596.   nWhere := -1;
  13597.   if HeroStatePage = 0 then begin
  13598.     if Sender = DHeroSWNecklace then nWhere := U_NECKLACE;
  13599.     if Sender = DHeroSWLight then nWhere := U_RIGHTHAND;
  13600.     if Sender = DHeroSWArmRingR then nWhere := U_ARMRINGR;
  13601.     if Sender = DHeroSWArmRingL then nWhere := U_ARMRINGL;
  13602.     if Sender = DHeroSWRingR then nWhere := U_RINGR;
  13603.     if Sender = DHeroSWRingL then nWhere := U_RINGL;
  13604.     if Sender = DHeroSWBujuk then nWhere := U_BUJUK;
  13605.     if Sender = DHeroSWBelt then nWhere := U_BELT;
  13606.     if Sender = DHeroSWBoots then nWhere := U_BOOTS;
  13607.     if Sender = DHeroSWCharm then nWhere := U_CHARM;

  13609.     if nWhere >= 0 then begin
  13610.       if g_HeroUseItems[nWhere].s.Name <> '' then begin
  13611.         Idx := g_HeroUseItems[nWhere].s.looks;
  13612.         if Idx >= 0 then begin
  13613.           d := GetWStateImg(Idx);
  13614.           if d <> nil then
  13615.             with TDButton(Sender) do
  13616.               dsurface.Draw(SurfaceX(Left + (Width - d.Width) div 2),
  13617.                 SurfaceY(Top + (Height - d.Height) div 2),
  13618.                 d.ClientRect, d, True);

  13620.           if (g_HeroUseItems[nWhere].s.AddValue[12] in [1, 3]) { or (GetAddPoint(g_HeroUseItems[nWhere].s.AddPoint))} then begin
  13621.             if GetTickCount - g_DrawHeroUseItems[nWhere].dwDrawTick >= 200 then begin
  13622.               g_DrawHeroUseItems[nWhere].dwDrawTick := GetTickCount;
  13623.               if g_DrawHeroUseItems[nWhere].nIndex <= 0 then g_DrawHeroUseItems[nWhere].nIndex := 260 - 1;
  13624.               Inc(g_DrawHeroUseItems[nWhere].nIndex);
  13625.               if g_DrawHeroUseItems[nWhere].nIndex > 265 then g_DrawHeroUseItems[nWhere].nIndex := 260;
  13626.             end;
  13627.             d := g_WMain2Images.Images[g_DrawHeroUseItems[nWhere].nIndex];
  13628.             if d <> nil then begin
  13629.               with TDButton(Sender) do
  13630.                 DrawBlend(dsurface, SurfaceX(Left + (Width - d.Width) div 2),
  13631.                   SurfaceY(Top + (Height - d.Height) div 2), d);
  13632.             end;
  13633.           end;

  13635.           if g_HeroUseItems[nWhere].s.AddValue[12] >= 2 then begin
  13636.             if GetTickCount - g_DrawHeroUseItems_[nWhere].dwDrawTick >= 200 then begin
  13637.               g_DrawHeroUseItems_[nWhere].dwDrawTick := GetTickCount;
  13638.               if g_DrawHeroUseItems_[nWhere].nIndex <= 0 then g_DrawHeroUseItems_[nWhere].nIndex := 600 - 1;
  13639.               Inc(g_DrawHeroUseItems_[nWhere].nIndex);
  13640.               if g_DrawHeroUseItems_[nWhere].nIndex > 617 then g_DrawHeroUseItems_[nWhere].nIndex := 600;
  13641.             end;
  13642.             d := g_WMain3Images.Images[g_DrawHeroUseItems_[nWhere].nIndex];
  13643.             if d <> nil then begin
  13644.               with TDButton(Sender) do
  13645.                 DrawBlend(dsurface, SurfaceX(Left + (Width - d.Width) div 2),
  13646.                   SurfaceY(Top + (Height - d.Height) div 2), d);
  13647.             end;
  13648.           end;
  13649.         end;
  13650.       end;
  13651.     end;
  13652.   end;
  13653. end;

  13655. procedure TFrmDlg.DHeroSWWeaponMouseMove(Sender: TObject;
  13656.   Shift: TShiftState; X, Y: Integer);
  13657. var
  13658.   nLocalX, nLocalY: Integer;
  13659.   nHintX, nHintY: Integer;
  13660.   sel: Integer;
  13661.   iname, d1, d2, d3: string;
  13662.   useable: Boolean;
  13663.   hcolor: TColor;
  13664.   Butt: TDButton;
  13665. begin
  13666.   if HeroStatePage <> 0 then Exit;
  13667.   DScreen.ClearHint;
  13668.   sel := -1;
  13669.   Butt := TDButton(Sender);
  13670.   if Sender = DHeroSWDress then sel := U_DRESS;
  13671.   if Sender = DHeroSWWeapon then sel := U_WEAPON;
  13672.   if Sender = DHeroSWHelmet then sel := U_HELMET;
  13673.   if Sender = DHeroSWNecklace then sel := U_NECKLACE;
  13674.   if Sender = DHeroSWLight then sel := U_RIGHTHAND;
  13675.   if Sender = DHeroSWRingL then sel := U_RINGL;
  13676.   if Sender = DHeroSWRingR then sel := U_RINGR;
  13677.   if Sender = DHeroSWArmRingL then sel := U_ARMRINGL;
  13678.   if Sender = DHeroSWArmRingR then sel := U_ARMRINGR;

  13680.   if Sender = DHeroSWBujuk then sel := U_BUJUK;
  13681.   if Sender = DHeroSWBelt then sel := U_BELT;
  13682.   if Sender = DHeroSWBoots then sel := U_BOOTS;
  13683.   if Sender = DHeroSWCharm then sel := U_CHARM;

  13685.   g_MoveRect := TDButton(Sender).ClientRect;
  13686.   g_MoveRect.Right := g_MoveRect.Right + 4;

  13688.   if sel >= 0 then begin
  13689.     g_MouseHeroStateItem := g_HeroUseItems[sel];
  13690.       //原为注释掉 显示人物身上带的物品信息
  13691.     if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  13692.       g_MouseHeroItem := g_HeroUseItems[sel];
  13693.       GetMouseItemInfo(g_MyHero, @g_MouseHeroItem, iname, d1, d2, d3, useable);
  13694.       if HintList.Count > 0 then begin
  13695.         with Sender as TDButton do
  13696.           DScreen.ShowHint(SurfaceX(Left - 30),
  13697.             SurfaceY(Top + 50),
  13698.             HintList, False);
  13699.       end;
  13700.       g_MouseHeroItem.s.Name := '';
  13701.     end;
  13702.   end else ClearMoveRect();
  13703. end;

  13705. procedure TFrmDlg.DHeroSWWeaponClick(Sender: TObject; X, Y: Integer);
  13706. var
  13707.   where, n, sel: Integer;
  13708.   flag, movcancel: Boolean;
  13709. begin
  13710.   if g_MyHero = nil then Exit;
  13711.   if HeroStatePage <> 0 then Exit;
  13712.   if (g_MovingItem.Owner = DStateWin) then Exit;
  13713.   if g_boItemMoving then begin
  13714.     flag := False;
  13715.     movcancel := False;
  13716.     if (g_MovingItem.Index = -97) or (g_MovingItem.Index = -98) then Exit;
  13717.     if (g_MovingItem.Owner = DDealDlg) then Exit;
  13718.     if (g_MovingItem.Item.s.Name = '') or (g_WaitingUseItem.Item.s.Name <> '') then Exit;
  13719.     where := GetTakeOnPosition(g_MovingItem.Item.s.StdMode);
  13720.     if g_MovingItem.Index >= 0 then begin
  13721.       case where of
  13722.         U_DRESS: begin
  13723.             if Sender = DHeroSWDress then begin
  13724.               if g_MyHero.m_btSex = 0 then
  13725.                 if g_MovingItem.Item.s.StdMode <> 10 then
  13726.                   Exit;
  13727.               if g_MyHero.m_btSex = 1 then
  13728.                 if g_MovingItem.Item.s.StdMode <> 11 then
  13729.                   Exit;
  13730.               flag := True;
  13731.             end;
  13732.           end;
  13733.         U_WEAPON: begin
  13734.             if Sender = DHeroSWWeapon then begin
  13735.               flag := True;
  13736.             end;
  13737.           end;
  13738.         U_NECKLACE: begin
  13739.             if Sender = DHeroSWNecklace then
  13740.               flag := True;
  13741.           end;
  13742.         U_RIGHTHAND: begin
  13743.             if Sender = DHeroSWLight then
  13744.               flag := True;
  13745.           end;
  13746.         U_HELMET: begin
  13747.             if Sender = DHeroSWHelmet then
  13748.               flag := True;
  13749.           end;
  13750.         U_RINGR, U_RINGL: begin
  13751.             if Sender = DHeroSWRingL then begin
  13752.               where := U_RINGL;
  13753.               flag := True;
  13754.             end;
  13755.             if Sender = DHeroSWRingR then begin
  13756.               where := U_RINGR;
  13757.               flag := True;
  13758.             end;
  13759.           end;
  13760.         U_ARMRINGR: begin
  13761.             if Sender = DHeroSWArmRingL then begin
  13762.               where := U_ARMRINGL;
  13763.               flag := True;
  13764.             end;
  13765.             if Sender = DHeroSWArmRingR then begin
  13766.               where := U_ARMRINGR;
  13767.               flag := True;
  13768.             end;
  13769.           end;
  13770.         U_ARMRINGL: begin
  13771.             if Sender = DHeroSWArmRingL then begin
  13772.               where := U_ARMRINGL;
  13773.               flag := True;
  13774.             end;
  13775.           end;
  13776.         U_BUJUK: begin
  13777.             if Sender = DHeroSWBujuk then begin
  13778.               where := U_BUJUK;
  13779.               flag := True;
  13780.             end;
  13781.             if Sender = DHeroSWArmRingL then begin
  13782.               where := U_ARMRINGL;
  13783.               flag := True;
  13784.             end;
  13785.           end;
  13786.         U_BELT: begin
  13787.             if Sender = DHeroSWBelt then begin
  13788.               where := U_BELT;
  13789.               flag := True;
  13790.             end;
  13791.           end;
  13792.         U_BOOTS: begin
  13793.             if Sender = DHeroSWBoots then begin
  13794.               where := U_BOOTS;
  13795.               flag := True;
  13796.             end;
  13797.           end;
  13798.         U_CHARM: begin
  13799.             if Sender = DHeroSWCharm then begin
  13800.               where := U_CHARM;
  13801.               flag := True;
  13802.             end;
  13803.           end;
  13804.       end;
  13805.     end else begin
  13806.       if (g_MovingItem.Owner = DHeroStateWin) then begin
  13807.         n := -(g_MovingItem.Index + 1);
  13808.         if n in [0..12] then begin
  13809.           ItemClickSound(g_MovingItem.Item.s);
  13810.           g_HeroUseItems[n] := g_MovingItem.Item;
  13811.           g_MovingItem.Item.s.Name := '';
  13812.           g_MovingItem.Owner := nil;
  13813.           g_boItemMoving := False;
  13814.         end;
  13815.       end;
  13816.     end;
  13817.     if flag then begin
  13818.       if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DUpgrade) or (g_MovingItem.Owner = DHeroItemBag) then begin
  13819.         ItemClickSound(g_MovingItem.Item.s);
  13820.         g_WaitingUseItem := g_MovingItem;
  13821.         g_WaitingUseItem.Index := where;
  13822.         if (g_MovingItem.Owner = DUpgrade) or (g_MovingItem.Owner = DItemBag) then begin
  13823.           frmMain.SendTakeOnItemFromMasterBag(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  13824.         end else
  13825.           if (g_MovingItem.Owner = DHeroItemBag) then begin
  13826.           frmMain.SendHeroTakeOnItem(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  13827.         end;
  13828.         g_MovingItem.Item.s.Name := '';
  13829.         g_MovingItem.Owner := nil;
  13830.         g_boItemMoving := False;
  13831.       end;
  13832.     end else begin
  13833.       if (Sender = DHeroSWBujuk) and (g_MovingItem.Owner = DHeroItemBag) then begin
  13834.         if (g_HeroUseItems[U_BUJUK].s.Name <> '') and (g_HeroUseItems[U_BUJUK].s.StdMode = 25) and (g_HeroUseItems[U_BUJUK].s.Shape = 9) then begin
  13835.           if g_MovingItem.Item.s.StdMode = 42 then begin
  13836.             ItemClickSound(g_MovingItem.Item.s);
  13837.             g_WaitingUseItem := g_MovingItem;
  13838.             g_WaitingUseItem.Index := U_BUJUK;
  13839.             if (g_MovingItem.Owner = DItemBag) then begin
  13840.               frmMain.SendRepairFirDragon(2, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  13841.             end else
  13842.               if (g_MovingItem.Owner = DHeroItemBag) then begin
  13843.               frmMain.SendRepairFirDragon(4, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  13844.             end;
  13845.             g_MovingItem.Item.s.Name := '';
  13846.             g_boItemMoving := False;
  13847.             g_MovingItem.Owner := nil;
  13848.           end;
  13849.         end;
  13850.       end;
  13851.     end;
  13852.   end else begin
  13853.     ClearMoveRect();
  13854.     flag := False;
  13855.     if (g_MovingItem.Item.s.Name <> '') or (g_WaitingUseItem.Item.s.Name <> '') then Exit;
  13856.     sel := -1;
  13857.     if Sender = DHeroSWDress then sel := U_DRESS;
  13858.     if Sender = DHeroSWWeapon then sel := U_WEAPON;
  13859.     if Sender = DHeroSWHelmet then sel := U_HELMET;
  13860.     if Sender = DHeroSWNecklace then sel := U_NECKLACE;
  13861.     if Sender = DHeroSWLight then sel := U_RIGHTHAND;
  13862.     if Sender = DHeroSWRingL then sel := U_RINGL;
  13863.     if Sender = DHeroSWRingR then sel := U_RINGR;
  13864.     if Sender = DHeroSWArmRingL then sel := U_ARMRINGL;
  13865.     if Sender = DHeroSWArmRingR then sel := U_ARMRINGR;

  13867.     if Sender = DHeroSWBujuk then sel := U_BUJUK;
  13868.     if Sender = DHeroSWBelt then sel := U_BELT;
  13869.     if Sender = DHeroSWBoots then sel := U_BOOTS;
  13870.     if Sender = DHeroSWCharm then sel := U_CHARM;

  13872.     if sel >= 0 then begin
  13873.       if g_HeroUseItems[sel].s.Name <> '' then begin
  13874.         ItemClickSound(g_HeroUseItems[sel].s);
  13875.         g_MovingItem.Index := -(sel + 1);
  13876.         g_MovingItem.Item := g_HeroUseItems[sel];
  13877.         g_HeroUseItems[sel].s.Name := '';
  13878.         g_boItemMoving := True;
  13879.         g_MovingItem.Owner := DHeroStateWin;
  13880.       end;
  13881.     end;
  13882.   end;
  13883. end;

  13885. procedure TFrmDlg.DHeroItemBagDirectPaint(Sender: TObject;
  13886.   dsurface: TTexture);
  13887. var
  13888.   d0, d1, d2, d3: string;
  13889.   I, n, nX, nY: Integer;
  13890.   useable: Boolean;
  13891.   d: TTexture;
  13892.   nFaceIndex: Integer;
  13893. begin
  13894.   if g_MyHero = nil then Exit;
  13895.   with DHeroItemBag do begin
  13896.     d := nil;
  13897.     nFaceIndex := 375;
  13898.     case g_MyHero.m_nBagCount of
  13899.       10: nFaceIndex := 375;
  13900.       20: nFaceIndex := 376;
  13901.       30: nFaceIndex := 377;
  13902.       35: nFaceIndex := 378;
  13903.       40: nFaceIndex := 379;
  13904.     end;

  13906.     if FaceIndex <> nFaceIndex then begin
  13907.       SetImgIndex(g_WMain3Images, nFaceIndex);
  13908.     end;

  13910.     if WLib <> nil then
  13911.       d := WLib.Images[nFaceIndex];
  13912.     if d <> nil then begin
  13913.       //if Height <> d.Height then begin
  13914.      { Height := d.Height;
  13915.       Width := d.Width;
  13916.       DHeroItemGrid.RowCount := 2;
  13917.       DHeroItemGrid.Height := DHeroItemGrid.RowHeight * 2;}
  13918.       case g_MyHero.m_nBagCount of
  13919.         10: begin
  13920.             DHeroItemGrid.RowCount := 2;
  13921.             DHeroItemGrid.Height := DHeroItemGrid.RowHeight * 2;
  13922.           end;
  13923.         20: begin
  13924.             DHeroItemGrid.RowCount := 4;
  13925.             DHeroItemGrid.Height := DHeroItemGrid.RowHeight * 4;
  13926.           end;
  13927.         30: begin
  13928.             DHeroItemGrid.RowCount := 6;
  13929.             DHeroItemGrid.Height := DHeroItemGrid.RowHeight * 6;
  13930.           end;
  13931.         35: begin
  13932.             DHeroItemGrid.RowCount := 7;
  13933.             DHeroItemGrid.Height := DHeroItemGrid.RowHeight * 7;
  13934.           end;
  13935.         40: begin
  13936.             DHeroItemGrid.RowCount := 8;
  13937.             DHeroItemGrid.Height := DHeroItemGrid.RowHeight * 8;
  13938.           end;
  13939.       end;
  13940.       //end;
  13941.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  13942.     end;

  13944.     if (g_ServerConfig.btShowClientItemStyle <> 0) then begin
  13945.       GetMouseItemInfo(g_MyHero, @g_MouseHeroItem, d0, d1, d2, d3, useable);
  13946.       with dsurface do begin
  13947.       //英雄包裹装备信息
  13948.         if d0 <> '' then begin
  13949.           n := TextWidth(d0);

  13951.           nX := DHeroItemGrid.SurfaceX(DHeroItemGrid.Left) - 2;
  13952.           nY := DHeroItemGrid.SurfaceY(DHeroItemGrid.Top + DHeroItemGrid.Height + 24);

  13954.           TextOut(nX, nY, d0, clyellow);
  13955.           TextOut(nX + n, nY, d1);
  13956.           TextOut(nX, nY + 14, d2);
  13957.           if not useable then
  13958.             TextOut(nX, nY + 14 * 2, d3, clRed)
  13959.           else
  13960.             TextOut(nX, nY + 14 * 2, d3);
  13961.           if d2 <> '' then
  13962.             nY := nY + 14;
  13963.           if d3 <> '' then
  13964.             nY := nY + 14;

  13966.           nY := nY + 14;
  13967.           for I := 0 to g_ExtractStringList.Count - 1 do begin
  13968.             TextOut(nX, nY + 14 * I, g_ExtractStringList.Strings[I]);
  13969.           end;

  13971.         end else begin
  13972.           TextOut(DHeroItemGrid.SurfaceX(DHeroItemGrid.Left) - 2, DHeroItemGrid.SurfaceY(DHeroItemGrid.Top + DHeroItemGrid.Height + 24), '左键双击可以装备');
  13973.           TextOut(DHeroItemGrid.SurfaceX(DHeroItemGrid.Left) - 2, DHeroItemGrid.SurfaceY(DHeroItemGrid.Top + DHeroItemGrid.Height + 24 + 14), 'ALT + R 键刷新包裹');
  13974.           //TextOut(DHeroItemGrid.SurfaceX(DHeroItemGrid.Left) - 2, DHeroItemGrid.SurfaceY(DHeroItemGrid.Top + DHeroItemGrid.Height + 24 + 14 * 2), 'CTRL + B 英雄挂机');
  13975.         end;
  13976.       end;
  13977.     end else begin
  13978.       with dsurface do begin
  13979.         TextOut(DHeroItemGrid.SurfaceX(DHeroItemGrid.Left) - 2, DHeroItemGrid.SurfaceY(DHeroItemGrid.Top + DHeroItemGrid.Height + 24), '左键双击可以装备');
  13980.         TextOut(DHeroItemGrid.SurfaceX(DHeroItemGrid.Left) - 2, DHeroItemGrid.SurfaceY(DHeroItemGrid.Top + DHeroItemGrid.Height + 24 + 14), 'ALT + R 键刷新包裹');
  13981.         //TextOut(DHeroItemGrid.SurfaceX(DHeroItemGrid.Left) - 2, DHeroItemGrid.SurfaceY(DHeroItemGrid.Top + DHeroItemGrid.Height + 24 + 14 * 2), 'CTRL + B 英雄挂机');
  13982.       end;
  13983.     end;
  13984.   end;
  13985. end;

  13987. procedure TFrmDlg.DCloseHeroBagClick(Sender: TObject; X, Y: Integer);
  13988. begin
  13989.   DHeroItemBag.Visible := False;
  13990. end;

  13992. procedure TFrmDlg.DHeroItemGridDblClick(Sender: TObject);
  13993. var
  13994.   Idx, I, where: Integer;
  13995.   keyvalue: TKeyBoardState;
  13996.   cu: TClientItem;
  13997.   flag: Boolean;
  13998. begin
  13999.   Idx := DHeroItemGrid.Col + DHeroItemGrid.Row * DHeroItemGrid.ColCount;
  14000.   if Idx in [0..MAXHEROBAGITEM - 1] then begin
  14001.     if g_HeroItemArr[Idx].s.Name <> '' then begin
  14002.       FillChar(keyvalue, SizeOf(TKeyBoardState), #0);
  14003.       GetKeyboardState(keyvalue);
  14004.       if keyvalue[VK_CONTROL] = $80 then begin
  14005.         cu := g_HeroItemArr[Idx];
  14006.         g_HeroItemArr[Idx].s.Name := '';
  14007.         AddHeroItemBag(cu);
  14008.       end else
  14009.         if (g_HeroItemArr[Idx].s.StdMode <= 4) or (g_HeroItemArr[Idx].s.StdMode = 31) then begin
  14010.         frmMain.HeroEatItem(Idx);
  14011.       end else begin
  14012.         if (g_WaitingUseItem.Item.s.Name = '') then begin
  14013.           flag := False;
  14014.           where := GetTakeOnPosition(g_HeroItemArr[Idx].s.StdMode);
  14015.           case where of
  14016.             U_DRESS: begin
  14017.                 if g_MyHero.m_btSex = 0 then
  14018.                   if g_HeroItemArr[Idx].s.StdMode = 10 then
  14019.                     flag := True;
  14020.                 if g_MyHero.m_btSex = 1 then
  14021.                   if g_HeroItemArr[Idx].s.StdMode = 11 then
  14022.                     flag := True;
  14023.               end;
  14024.             U_WEAPON: flag := True;
  14025.             U_NECKLACE: flag := True;
  14026.             U_RIGHTHAND: flag := True;
  14027.             U_HELMET: flag := True;
  14028.             U_RINGR, U_RINGL: flag := True;
  14029.             U_ARMRINGR, U_ARMRINGL: flag := True;
  14030.             U_BUJUK: flag := True;
  14031.             U_BELT: flag := True;
  14032.             U_BOOTS: flag := True;
  14033.             U_CHARM: flag := True;
  14034.           end;
  14035.           if flag then begin
  14036.             if where in [U_RINGR, U_RINGL] then begin
  14037.               if g_HeroUseItems[U_RINGR].s.Name = '' then where := U_RINGR;
  14038.               if g_HeroUseItems[U_RINGL].s.Name = '' then where := U_RINGL;
  14039.               if (g_HeroUseItems[U_RINGR].s.Name <> '') and (g_HeroUseItems[U_RINGL].s.Name <> '') then begin
  14040.                 if g_HeroItemArr[Idx].s.Name <> g_HeroUseItems[U_RINGR].s.Name then where := U_RINGR;
  14041.                 if g_HeroItemArr[Idx].s.Name <> g_HeroUseItems[U_RINGL].s.Name then where := U_RINGL;
  14042.               end;
  14043.             end;

  14045.             if where in [U_ARMRINGR, U_ARMRINGL] then begin
  14046.               if g_HeroUseItems[U_ARMRINGR].s.Name = '' then where := U_ARMRINGR;
  14047.               if g_HeroUseItems[U_ARMRINGL].s.Name = '' then where := U_ARMRINGL;
  14048.               if (g_HeroUseItems[U_ARMRINGR].s.Name <> '') and (g_HeroUseItems[U_ARMRINGL].s.Name <> '') then begin
  14049.                 if g_HeroItemArr[Idx].s.Name <> g_HeroUseItems[U_ARMRINGR].s.Name then where := U_ARMRINGR;
  14050.                 if g_HeroItemArr[Idx].s.Name <> g_HeroUseItems[U_ARMRINGL].s.Name then where := U_ARMRINGL;
  14051.               end;
  14052.             end;
  14053.             g_WaitingUseItem.Index := where;
  14054.             g_WaitingUseItem.Item := g_HeroItemArr[Idx];
  14055.             g_HeroItemArr[Idx].s.Name := '';
  14056.             frmMain.SendHeroTakeOnItem(where, g_WaitingUseItem.Item.MakeIndex, g_WaitingUseItem.Item.s.Name);
  14057.           end;
  14058.         end;
  14059.       end;
  14060.     end else begin
  14061.       if g_boItemMoving and (g_MovingItem.Item.s.Name <> '') then begin
  14062.         FillChar(keyvalue, SizeOf(TKeyBoardState), #0);
  14063.         GetKeyboardState(keyvalue);
  14064.         if keyvalue[VK_CONTROL] = $80 then begin
  14065.           cu := g_MovingItem.Item;
  14066.           g_MovingItem.Item.s.Name := '';
  14067.           g_boItemMoving := False;
  14068.           AddHeroItemBag(cu);
  14069.         end else
  14070.           if (g_MovingItem.Index = Idx) and
  14071.           (g_MovingItem.Item.s.StdMode <= 4) or (g_HeroItemArr[Idx].s.StdMode = 31)
  14072.           then begin
  14073.           frmMain.HeroEatItem(-1);
  14074.         end else
  14075.           if (g_WaitingUseItem.Item.s.Name = '') then begin
  14076.           if g_MovingItem.Index >= 0 then begin
  14077.             flag := False;
  14078.             where := GetTakeOnPosition(g_MovingItem.Item.s.StdMode);
  14079.             case where of
  14080.               U_DRESS: begin
  14081.                   if g_MyHero.m_btSex = 0 then
  14082.                     if g_MovingItem.Item.s.StdMode = 10 then
  14083.                       flag := True;
  14084.                   if g_MyHero.m_btSex = 1 then
  14085.                     if g_MovingItem.Item.s.StdMode = 11 then
  14086.                       flag := True;
  14087.                 end;
  14088.               U_WEAPON: flag := True;
  14089.               U_NECKLACE: flag := True;
  14090.               U_RIGHTHAND: flag := True;
  14091.               U_HELMET: flag := True;
  14092.               U_RINGR, U_RINGL: flag := True;
  14093.               U_ARMRINGR, U_ARMRINGL: flag := True;
  14094.               U_BUJUK: flag := True;
  14095.               U_BELT: flag := True;
  14096.               U_BOOTS: flag := True;
  14097.               U_CHARM: flag := True;
  14098.             end;

  14100.             if flag then begin
  14101.               if where in [U_RINGR, U_RINGL] then begin
  14102.                 if g_HeroUseItems[U_RINGR].s.Name = '' then where := U_RINGR;
  14103.                 if g_HeroUseItems[U_RINGL].s.Name = '' then where := U_RINGL;
  14104.                 if (g_HeroUseItems[U_RINGR].s.Name <> '') and (g_HeroUseItems[U_RINGL].s.Name <> '') then begin
  14105.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_RINGR].s.Name then where := U_RINGR;
  14106.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_RINGL].s.Name then where := U_RINGL;
  14107.                 end;
  14108.               end;

  14110.               if where in [U_ARMRINGR, U_ARMRINGL] then begin
  14111.                 if g_HeroUseItems[U_ARMRINGR].s.Name = '' then where := U_ARMRINGR;
  14112.                 if g_HeroUseItems[U_ARMRINGL].s.Name = '' then where := U_ARMRINGL;
  14113.                 if (g_HeroUseItems[U_ARMRINGR].s.Name <> '') and (g_HeroUseItems[U_ARMRINGL].s.Name <> '') then begin
  14114.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_ARMRINGR].s.Name then where := U_ARMRINGR;
  14115.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_ARMRINGL].s.Name then where := U_ARMRINGL;
  14116.                 end;
  14117.               end;

  14119.               g_WaitingUseItem := g_MovingItem;
  14120.               g_WaitingUseItem.Index := where;
  14121.               frmMain.SendHeroTakeOnItem(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  14122.               g_MovingItem.Item.s.Name := '';
  14123.               g_MovingItem.Owner := nil;
  14124.               g_boItemMoving := False;
  14125.             end;
  14126.           end;
  14127.         end;
  14128.       end;
  14129.     end;
  14130.   end;
  14131.   ArrangeHeroItemBag;
  14132. end;

  14134. procedure TFrmDlg.DHeroItemGridGridSelect(Sender: TObject; ACol,
  14135.   ARow: Integer; Shift: TShiftState);
  14136. var
  14137.   Idx, mi: Integer;
  14138.   temp: TClientItem;
  14139.   where: Integer;
  14140.   flag: Boolean;
  14141. begin
  14142.   if g_MyHero = nil then Exit;
  14143.   //if g_btItemMoving = 5 then Exit;
  14144.   Idx := ACol + ARow * DHeroItemGrid.ColCount;
  14145.   if Idx in [0..MAXHEROBAGITEM - 1] then begin
  14146.     if not g_boItemMoving then begin
  14147.       ClearMoveRect();
  14148.       if g_HeroItemArr[Idx].s.Name <> '' then begin
  14149.         g_boItemMoving := True;
  14150.         g_MovingItem.Owner := DHeroItemBag;
  14151.         g_MovingItem.Index := Idx;
  14152.         g_MovingItem.Item := g_HeroItemArr[Idx];
  14153.         g_HeroItemArr[Idx].s.Name := '';
  14154.         ItemClickSound(g_HeroItemArr[Idx].s);
  14155.       end;
  14156.      { if g_boItemMoving and (g_MovingItem.Owner = DHeroItemBag) and (g_WaitingUseItem.Item.s.Name = '') then begin
  14157.         if mbRight = Button then begin //右键穿装备
  14158.           flag := False;
  14159.           where := GetTakeOnPosition(g_MovingItem.Item.s.StdMode);
  14160.           if g_MovingItem.Index >= 0 then begin
  14161.             case where of
  14162.               U_DRESS: begin
  14163.                   if g_MyHero.m_btSex = 0 then
  14164.                     if g_MovingItem.Item.s.StdMode <> 10 then
  14165.                       Exit;
  14166.                   if g_MyHero.m_btSex = 1 then
  14167.                     if g_MovingItem.Item.s.StdMode <> 11 then
  14168.                       Exit;
  14169.                   flag := True;
  14170.                 end;
  14171.               U_WEAPON: flag := True;
  14172.               U_NECKLACE: flag := True;
  14173.               U_RIGHTHAND: flag := True;
  14174.               U_HELMET: flag := True;
  14175.               U_RINGR, U_RINGL: flag := True;
  14176.               U_ARMRINGR, U_ARMRINGL: flag := True;
  14177.               U_BUJUK: flag := True;
  14178.               U_BELT: flag := True;
  14179.               U_BOOTS: flag := True;
  14180.               U_CHARM: flag := True;
  14181.             end;
  14182.             if flag then begin
  14183.               if where in [U_RINGR, U_RINGL] then begin
  14184.                 if g_HeroUseItems[U_RINGR].s.Name = '' then where := U_RINGR;
  14185.                 if g_HeroUseItems[U_RINGL].s.Name = '' then where := U_RINGL;
  14186.                 if (g_HeroUseItems[U_RINGR].s.Name <> '') and (g_HeroUseItems[U_RINGL].s.Name <> '') then begin
  14187.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_RINGR].s.Name then where := U_RINGR;
  14188.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_RINGL].s.Name then where := U_RINGL;
  14189.                 end;
  14190.               end;

  14192.               if where in [U_ARMRINGR, U_ARMRINGL] then begin
  14193.                 if g_HeroUseItems[U_ARMRINGR].s.Name = '' then where := U_ARMRINGR;
  14194.                 if g_HeroUseItems[U_ARMRINGL].s.Name = '' then where := U_ARMRINGL;
  14195.                 if (g_HeroUseItems[U_ARMRINGR].s.Name <> '') and (g_HeroUseItems[U_ARMRINGL].s.Name <> '') then begin
  14196.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_ARMRINGR].s.Name then where := U_ARMRINGR;
  14197.                   if g_MovingItem.Item.s.Name <> g_HeroUseItems[U_ARMRINGL].s.Name then where := U_ARMRINGL;
  14198.                 end;
  14199.               end;

  14201.               g_WaitingUseItem := g_MovingItem;
  14202.               g_WaitingUseItem.Index := where;
  14203.               frmMain.SendHeroTakeOnItem(where, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  14204.               g_MovingItem.Item.s.Name := '';
  14205.               g_boItemMoving := False;
  14206.             end else begin
  14207.               g_HeroItemArr[idx] := g_MovingItem.Item;
  14208.               g_MovingItem.Item.s.Name := '';
  14209.               g_boItemMoving := False;
  14210.             end;
  14211.           end;
  14212.         end else begin
  14213.           ItemClickSound(g_HeroItemArr[idx].s);
  14214.         end;
  14215.       end;}
  14216.     end else begin
  14217.       //ItemClickSound (MovingItem.Item.S.StdMode);
  14218.       mi := g_MovingItem.Index;
  14219.       if (g_MovingItem.Owner = DDealDlg) or (g_MovingItem.Owner = DUpgrade) then Exit;
  14220.       if (mi = -97) or (mi = -98) then Exit;
  14221.       if (mi < 0) and (mi >= -13 {-9}) and ((g_MovingItem.Owner = DHeroStateWin) or (g_MovingItem.Owner = DStateWin)) then begin //-99: 脱装备
  14222.         if (g_MovingItem.Owner = DStateWin) then begin
  14223.           frmMain.SendTakeOffItemToHeroBag(-(g_MovingItem.Index + 1), g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  14224.         end else
  14225.           if (g_MovingItem.Owner = DHeroStateWin) then begin
  14226.           frmMain.SendHeroTakeOffItem(-(g_MovingItem.Index + 1), g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  14227.         end;
  14228.         g_WaitingUseItem := g_MovingItem;
  14229.         g_MovingItem.Item.s.Name := '';
  14230.         g_boItemMoving := False;
  14231.         ArrangeHeroItemBag;
  14232.         Exit;
  14233.       end;

  14235.       if (g_MovingItem.Owner = DHeroItemBag) then begin //英雄包裹装备交换
  14236.         if (g_HeroItemArr[Idx].s.Name <> '') then begin
  14237.           temp := g_HeroItemArr[Idx];
  14238.           g_HeroItemArr[Idx] := g_MovingItem.Item;
  14239.           g_MovingItem.Index := Idx;
  14240.           g_MovingItem.Item := temp;
  14241.         end else begin
  14242.           g_boItemMoving := False;
  14243.           g_HeroItemArr[Idx] := g_MovingItem.Item;
  14244.           g_MovingItem.Item.s.Name := '';
  14245.           g_MovingItem.Owner := nil;
  14246.         end;
  14247.         ArrangeHeroItemBag;
  14248.         Exit;
  14249.       end;

  14251.       if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DUpgrade) then begin //英雄和主人包裹装备交换
  14252.         frmMain.SendItemToHeroBag((g_MovingItem.Index), g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  14253.         g_boItemMoving := False;
  14254.         g_WaitingUseItem := g_MovingItem;
  14255.         g_MovingItem.Item.s.Name := '';
  14256.         ArrangeHeroItemBag;
  14257.         Exit;
  14258.       end;
  14259.     end;
  14260.   end;
  14261.   ArrangeHeroItemBag;
  14262. end;

  14264. procedure TFrmDlg.DHeroItemGridGridPaint(Sender: TObject; ACol,
  14265.   ARow: Integer; Rect: TRect; State: TGridDrawState;
  14266.   dsurface: TTexture);
  14267. var
  14268.   nIdx: Integer;
  14269.   d: TTexture;
  14270. begin
  14271.   if g_MyHero = nil then Exit;
  14272.   nIdx := ACol + ARow * DHeroItemGrid.ColCount;
  14273.   if nIdx in [0..MAXHEROBAGITEM - 1] then begin
  14274.     if g_HeroItemArr[nIdx].s.Name <> '' then begin
  14275.       d := g_WBagItemImages.Images[g_HeroItemArr[nIdx].s.looks];
  14276.       if d <> nil then
  14277.         with DHeroItemGrid do begin
  14278.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  14279.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  14280.             d.ClientRect,
  14281.             d, True);
  14282.         end;

  14284.       with DHeroItemGrid do begin
  14285.         if (g_HeroItemArr[nIdx].s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_HeroItemArr[nIdx].s.AddPoint))} then begin
  14286.           if GetTickCount - g_DrawHeroItemArr[nIdx].dwDrawTick >= 200 then begin
  14287.             g_DrawHeroItemArr[nIdx].dwDrawTick := GetTickCount;
  14288.             if g_DrawHeroItemArr[nIdx].nIndex <= 0 then g_DrawHeroItemArr[nIdx].nIndex := 260 - 1;
  14289.             Inc(g_DrawHeroItemArr[nIdx].nIndex);
  14290.             if g_DrawHeroItemArr[nIdx].nIndex > 265 then g_DrawHeroItemArr[nIdx].nIndex := 260;
  14291.           end;
  14292.           d := g_WMain2Images.Images[g_DrawHeroItemArr[nIdx].nIndex];
  14293.           if d <> nil then begin
  14294.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  14295.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  14296.           end;
  14297.         end;

  14299.         if g_HeroItemArr[nIdx].s.AddValue[12] >= 2 then begin
  14300.           if GetTickCount - g_DrawHeroItemArr_[nIdx].dwDrawTick >= 200 then begin
  14301.             g_DrawHeroItemArr_[nIdx].dwDrawTick := GetTickCount;
  14302.             if g_DrawHeroItemArr_[nIdx].nIndex <= 0 then g_DrawHeroItemArr_[nIdx].nIndex := 600 - 1;
  14303.             Inc(g_DrawHeroItemArr_[nIdx].nIndex);
  14304.             if g_DrawHeroItemArr_[nIdx].nIndex > 617 then g_DrawHeroItemArr_[nIdx].nIndex := 600;
  14305.           end;
  14306.           d := g_WMain3Images.Images[g_DrawHeroItemArr_[nIdx].nIndex];
  14307.           if d <> nil then begin
  14308.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  14309.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  14310.           end;
  14311.         end;
  14312.       end;
  14313.     end;
  14314.   end;
  14315. end;

  14317. procedure TFrmDlg.DHeroItemGridGridMouseMove(Sender: TObject; ACol,
  14318.   ARow: Integer; Shift: TShiftState);
  14319. var
  14320.   nIdx: Integer;
  14321.   temp: TClientItem;
  14322.   iname, d1, d2, d3: string;
  14323.   useable: Boolean;
  14324.   hcolor: TColor;
  14325.   nWhere: Byte;
  14326.   boShowMsg: Boolean;
  14327.   List: TStringList;
  14328. begin
  14329.   DScreen.ClearHint;
  14330.   boShowMsg := False;
  14331.   if ssRight in Shift then begin
  14332.     if g_boItemMoving then
  14333.       DHeroItemGridGridSelect(Self, ACol, ARow, Shift);
  14334.   end else begin
  14335.     nIdx := ACol + ARow * DHeroItemGrid.ColCount;
  14336.     if nIdx in [0..MAXHEROBAGITEM - 1] then begin
  14337.       g_MoveRect := DHeroItemGrid.ClientRect;
  14338.      {g_MoveRect.Right := g_MoveRect.Right - 4;
  14339.       g_MoveRect.Top := g_MoveRect.Top + 2;}

  14341.       g_MouseHeroItem := g_HeroItemArr[nIdx];
  14342.       if (g_MouseHeroItem.s.Name <> '') then begin
  14343.         if (g_ServerConfig.btShowClientItemStyle = 0) then begin
  14344.           nWhere := GetHeroUseItemByBagItem(g_MouseHeroItem.s.StdMode);
  14345.           if g_Config.boCompareItem and (nWhere >= 0) then begin

  14347.             List := TStringList.Create;
  14348.             try
  14349.               GetMouseItemInfo(g_MyHero, @g_MouseHeroItem, iname, d1, d2, d3, useable);
  14350.               List.AddStrings(HintList);

  14352.               GetMouseItemInfo(g_MyHero, @g_HeroUseItems[nWhere], iname, d1, d2, d3, useable);
  14353.               if HintList.Count > 0 then begin
  14354.                 HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  14355.               end;
  14356.               with DHeroItemGrid do
  14357.                 DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  14358.                   SurfaceY(Top + (ARow + 1) * RowHeight),
  14359.                   List, HintList, False);
  14360.               HintList.Clear;
  14361.             finally
  14362.               List.Free;
  14363.             end;
  14364.             g_MouseHeroItem.s.Name := '';
  14365.           end else begin
  14366.             GetMouseItemInfo(g_MyHero, @g_MouseHeroItem, iname, d1, d2, d3, useable);
  14367.             if HintList.Count > 0 then begin
  14368.               with DHeroItemGrid do
  14369.                 DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  14370.                   SurfaceY(Top + (ARow + 1) * RowHeight),
  14371.                   HintList, False);
  14372.             end;
  14373.           end;

  14375.           {GetMouseItemInfo(g_MyHero, @g_MouseHeroItem, iname, d1, d2, d3, useable);
  14376.           if (HintList.Count > 0) then begin
  14377.             with DHeroItemGrid do
  14378.               DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  14379.                 SurfaceY(Top + (ARow + 1) * RowHeight),
  14380.                 HintList, False);
  14381.           end;}
  14382.         end;
  14383.       end;
  14384.     end else ClearMoveRect();
  14385.   end;
  14386. end;

  14388. procedure TFrmDlg.DButtonReCallHeroClick(Sender: TObject; X, Y: Integer);
  14389. begin
  14390.   if g_MyHero = nil then begin
  14391.     if GetTickCount - g_dwRecallHeroTick > 500 then begin
  14392.       g_dwRecallHeroTick := GetTickCount;
  14393.       frmMain.SendClientMessage(CM_HEROLOGON, 0, 0, 0, 0);
  14394.     end;
  14395.   end else begin
  14396.     frmMain.SendClientMessage(CM_HEROLOGOUT, g_MyHero.m_nRecogId, 0, 0, 0);
  14397.   end;
  14398. end;

  14400. procedure TFrmDlg.DButtonHeroStateClick(Sender: TObject; X, Y: Integer);
  14401. begin
  14402.   if g_MyHero = nil then Exit;
  14403.   DHeroStateWin.Visible := not DHeroStateWin.Visible;
  14404. end;

  14406. procedure TFrmDlg.DButtonHeroBagClick(Sender: TObject; X, Y: Integer);
  14407. begin
  14408.   if g_MyHero = nil then Exit;
  14409.   DHeroItemBag.Visible := not DHeroItemBag.Visible;
  14410.   //DBoxItemGrid.Visible := DHeroItemBag.Visible;
  14411. end;

  14413. procedure TFrmDlg.OpenHeroHealthState;
  14414. begin
  14415.   if not DHeroHealthStateWin.Visible then
  14416.     DHeroHealthStateWin.Visible := True;
  14417.   if DMerchantDlg.Visible then begin
  14418.     DMerchantDlg.Floating := True;
  14419.     try
  14420.       DMerchantDlg.Visible := True;
  14421.     finally
  14422.       DMerchantDlg.Floating := False;
  14423.     end;
  14424.   end;
  14425. end;

  14427. procedure TFrmDlg.CloseHeroAllWindows;
  14428. begin
  14429.   DHeroHealthStateWin.Visible := False;
  14430.   DHeroItemBag.Visible := False;
  14431.   DHeroStateWin.Visible := False;
  14432. end;

  14434. procedure TFrmDlg.DCloseHeroStateClick(Sender: TObject; X, Y: Integer);
  14435. begin
  14436.   DHeroStateWin.Visible := False;
  14437. end;

  14439. procedure TFrmDlg.DCloseHeroBagDirectPaint(Sender: TObject;
  14440.   dsurface: TTexture);
  14441. var
  14442.   d: TTexture;
  14443. begin
  14444.   with DCloseHeroBag do begin
  14445.     if Downed then begin
  14446.       d := nil;
  14447.       if WLib <> nil then
  14448.         d := WLib.Images[FaceIndex];
  14449.       if d <> nil then
  14450.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14451.     end;
  14452.   end;
  14453. end;

  14455. procedure TFrmDlg.DPrevHeroStateClick(Sender: TObject; X, Y: Integer);
  14456. begin
  14457.   Dec(HeroStatePage);
  14458.   if HeroStatePage < 0 then
  14459.     HeroStatePage := MAXHEROSTATEPAGE - 1;
  14460.   HeroPageChanged;
  14461. end;

  14463. procedure TFrmDlg.DNextHeroStateClick(Sender: TObject; X, Y: Integer);
  14464. begin
  14465.   Inc(HeroStatePage);
  14466.   if HeroStatePage > MAXHEROSTATEPAGE - 1 then
  14467.     HeroStatePage := 0;
  14468.   HeroPageChanged;
  14469. end;

  14471. procedure TFrmDlg.DHeroStMag1DirectPaint(Sender: TObject;
  14472.   dsurface: TTexture);
  14473. var
  14474.   Idx, icon: Integer;
  14475.   d: TTexture;
  14476.   pm: PTClientMagic;
  14477. begin
  14478.   if g_MyHero = nil then Exit;
  14479.   with Sender as TDButton do begin
  14480.     Idx := _MAX(tag + HeroMagicPage * 6, 0);
  14481.     if Idx < g_HeroMagicList.Count then begin
  14482.       pm := PTClientMagic(g_HeroMagicList[Idx]);
  14483.       icon := pm.Def.btEffect * 2;
  14484.      { if pm.Level >= 4 then begin
  14485.         case pm.Def.wMagicId of
  14486.           13: icon := 140;
  14487.           26: icon := 142;
  14488.           31: icon := 104;
  14489.           45: icon := 144;
  14490.         end;
  14491.       end;
  14492.       }
  14493.       if pm.Def.btEffect = 50 then icon := 84;
  14494.       //if pm.Def.btEffect = 51 then icon := 94;

  14496.       if pm.Def.btEffect = 70 then icon := 1 * 2;
  14497.       if pm.Def.btEffect = 71 then icon := 3 * 2;
  14498.       if pm.Def.btEffect = 72 then icon := 10 * 2;

  14500.       if pm.Level >= 4 then begin
  14501.         case pm.Def.wMagicId of
  14502.           13: icon := 140;
  14503.           26: icon := 142;
  14504.           31: icon := 104;
  14505.           45: icon := 144;
  14506.         end;
  14507.       end;

  14509.       if icon >= 0 then begin
  14510.         if not Downed then begin
  14511.           d := g_WMagIconImages.Images[icon];

  14513.           if (Ord(pm.Key) = 0) and (d <> nil) then begin
  14514.             g_ImgMixSurface.SetSize(d.Width, d.Height);
  14515.             g_ImgMixSurface.Fill(0);
  14516.             g_ImgMixSurface.Draw(0, 0, d.ClientRect, d, False);
  14517.             DrawEffect(0, 0, g_ImgMixSurface, d, ceGrayScale);
  14518.             d := g_ImgMixSurface;
  14519.           end;

  14521.           if d <> nil then
  14522.             dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14523.         end else begin
  14524.           d := g_WMagIconImages.Images[icon + 1];

  14526.           if (Ord(pm.Key) = 0) and (d <> nil) then begin
  14527.             g_ImgMixSurface.SetSize(d.Width, d.Height);
  14528.             g_ImgMixSurface.Fill(0);
  14529.             g_ImgMixSurface.Draw(0, 0, d.ClientRect, d, False);
  14530.             DrawEffect(0, 0, g_ImgMixSurface, d, ceGrayScale);
  14531.             d := g_ImgMixSurface;
  14532.           end;

  14534.           if d <> nil then
  14535.             dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14536.         end;
  14537.       end;
  14538.     end;
  14539.   end;
  14540. end;

  14542. procedure TFrmDlg.DHeroStPageUpClick(Sender: TObject; X, Y: Integer);
  14543. begin
  14544.   if Sender = DHeroStPageUp then begin
  14545.     if HeroMagicPage > 0 then
  14546.       Dec(HeroMagicPage);
  14547.   end else begin
  14548.     if HeroMagicPage < (g_HeroMagicList.Count + 5) div 6 - 1 then
  14549.       Inc(HeroMagicPage);
  14550.   end;
  14551. end;

  14553. procedure TFrmDlg.DOptionClick();
  14554. var
  14555.   I: Integer;
  14556. begin
  14557.   DConfigDlg.Visible := not DConfigDlg.Visible;
  14558.   if DConfigDlg.Visible then begin
  14559.     DComboboxBookIndex.Items.Clear;
  14560.     for I := Low(g_ItemArr) to High(g_ItemArr) do begin
  14561.       if g_ItemArr[I].s.Name <> '' then
  14562.         DComboboxBookIndex.Items.Add(g_ItemArr[I].s.Name);
  14563.     end;
  14564.     if g_Config.sRenewBookNowBookItem <> '' then begin
  14565.       if (g_Config.nRenewBookNowBookIndex >= 0) and (g_Config.nRenewBookNowBookIndex < DComboboxBookIndex.Items.Count) then begin
  14566.         if g_Config.sRenewBookNowBookItem = DComboboxBookIndex.Items.Strings[g_Config.nRenewBookNowBookIndex] then Exit;
  14567.       end;
  14568.       g_Config.nRenewBookNowBookIndex := -1;
  14569.       DComboboxBookIndex.ItemIndex := -1;
  14570.       for I := 0 to DComboboxBookIndex.Items.Count - 1 do begin
  14571.         if CompareText(g_Config.sRenewBookNowBookItem, DComboboxBookIndex.Items.Strings[I]) = 0 then begin
  14572.           g_Config.nRenewBookNowBookIndex := I;
  14573.           DComboboxBookIndex.ItemIndex := I;
  14574.           Break;
  14575.         end;
  14576.       end;
  14577.       SaveUserConfig();
  14578.     end;
  14579.     DComboboxBookIndex.Text := g_Config.sRenewBookNowBookItem;
  14580.   end;
  14581. end;

  14583. procedure TFrmDlg.DHeroStateWinMouseMove(Sender: TObject;
  14584.   Shift: TShiftState; X, Y: Integer);
  14585. begin
  14586.   DScreen.ClearHint;
  14587.   HintList.Clear;
  14588.   g_MouseHeroStateItem.s.Name := '';
  14589.   g_MouseHeroItem.s.Name := '';
  14590.   g_MouseItem.s.Name := '';
  14591. end;

  14593. procedure TFrmDlg.DHeroHealthStateWinClick(Sender: TObject; X, Y: Integer);
  14594. begin
  14595.   if ((g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DUpgrade)) and (g_MovingItem.Item.s.Name <> '') then begin
  14596.     g_boItemMoving := False;
  14597.     g_WaitingUseItem := g_MovingItem;
  14598.     frmMain.SendItemToHeroBag(g_MovingItem.Index, g_MovingItem.Item.MakeIndex, g_MovingItem.Item.s.Name);
  14599.     ItemClickSound(g_MovingItem.Item.s);
  14600.     g_MovingItem.Item.s.Name := '';
  14601.     g_MovingItem.Owner := nil;
  14602.   end;
  14603. end;

  14605. procedure TFrmDlg.DFirDragonDirectPaint(Sender: TObject;
  14606.   dsurface: TTexture);
  14607. var
  14608.   d: TTexture;
  14609.   rc: TRect;
  14610. begin
  14611.   with DFirDragon do begin
  14612.     d := nil;
  14613.     if WLib <> nil then
  14614.       d := WLib.Images[FaceIndex];
  14615.     if d <> nil then
  14616.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  14618.     d := nil;
  14619.     if g_MyHero <> nil then begin
  14620.       if g_HeroUseItems[U_BUJUK].s.Name <> '' then begin
  14621.         if (g_HeroUseItems[U_BUJUK].s.StdMode = 25) and (g_HeroUseItems[U_BUJUK].s.Shape = 9) then begin
  14622.           if g_MyHero.m_nAngryValue >= g_MyHero.m_nMaxAngryValue then begin
  14623.             if GetTickCount - g_dwFirDragonTick > 500 then begin
  14624.               g_dwFirDragonTick := GetTickCount;
  14625.               Inc(g_nFirDragon);
  14626.               if g_nFirDragon > 1 then g_nFirDragon := 0;
  14627.             end;
  14628.             d := g_WMain3Images.Images[411 + g_nFirDragon];
  14629.           end else begin
  14630.             d := g_WMain3Images.Images[411];
  14631.           end;
  14632.           if g_MyHero.m_nMaxAngryValue > 0 then begin
  14633.             if d <> nil then begin
  14634.           //火龙之心
  14635.               rc := d.ClientRect;
  14636.               rc.Top := Round(rc.Bottom / g_MyHero.m_nMaxAngryValue * (g_MyHero.m_nMaxAngryValue - g_MyHero.m_nAngryValue));

  14638.               dsurface.Draw(SurfaceX(Left) + 2, SurfaceY(Top) + rc.Top + 20 {SCREENHEIGHT - d.Height}, rc, d, True);
  14639.             //DebugOutStr('dsurface.Draw');
  14640.             end;
  14641.           end;
  14642.         end;
  14643.       end;
  14644.     end;
  14645.   end;
  14646. end;

  14648. procedure TFrmDlg.OpenSellOffDlg;
  14649. begin
  14650.   SellItemIndex := -1;
  14651.   MoveSellItemIndex := -1;
  14652.   DUserSellOff.Visible := True;
  14653.   EdSearch.SetFocus;
  14654. end;

  14656. procedure TFrmDlg.CloseSellOffDlg;
  14657. begin
  14658.   DUserSellOff.Visible := False;
  14659.   ReleaseDFocus;
  14660.   if EdChat.Visible then EdChat.SetFocus;
  14661. end;

  14663. procedure TFrmDlg.OpenStoreDlg;
  14664. begin
  14665.   if not g_MySelf.m_boStartStore then begin
  14666.     DItemBag.Left := SCREENWIDTH - DItemBag.Width - 40; //475;
  14667.     DItemBag.Top := 20;
  14668.     DItemBag.Visible := True;

  14670.     DStoreDlg.Left := DItemBag.Left - DStoreDlg.Width - 30;
  14671.     DStoreDlg.Top := 45;
  14672.   end;
  14673.   DStoreDlg.Visible := True;
  14674.   DEditStore.SetFocus;
  14675. end;

  14677. procedure TFrmDlg.CloseStoreDlg;
  14678. var
  14679.   I: Integer;
  14680. begin
  14681.   if (g_MySelf <> nil) and (not g_MySelf.m_boStartStore) and (not g_boStartStoreing) then begin
  14682.     for I := 0 to 14 do begin
  14683.       if g_StoreItems[I].Item.s.Name <> '' then begin
  14684.         AddItemBag(g_StoreItems[I].Item);
  14685.       end;
  14686.       g_StoreItems[I].Item.s.Name := '';
  14687.     end;
  14688.   end;
  14689.   DItemBag.Left := 0;
  14690.   DItemBag.Top := 80;

  14692.   DStoreDlg.Visible := False;
  14693.   ReleaseDFocus;
  14694.   if EdChat.Visible then EdChat.SetFocus;
  14695. end;

  14697. procedure TFrmDlg.OpenUserStoreDlg;
  14698. begin
  14699.   g_SelectStoreItem.Item.s.Name := '';
  14700.   DUserStore.Visible := True;
  14701.   DEditUserStore.SetFocus;
  14702. end;

  14704. procedure TFrmDlg.CloseUserStoreDlg;
  14705. begin
  14706.   g_SelectStoreItem.Item.s.Name := '';
  14707.   DUserStore.Visible := False;
  14708.   ReleaseDFocus;
  14709.   if EdChat.Visible then EdChat.SetFocus;
  14710. end;

  14712. procedure TFrmDlg.DSearchSellOffDirectPaint(Sender: TObject;
  14713.   dsurface: TTexture);
  14714. var
  14715.   d: TTexture;
  14716. begin
  14717.   with Sender as TDButton do begin
  14718.     if TDButton(Sender).Downed then begin
  14719.       d := nil;
  14720.       if WLib <> nil then
  14721.         d := WLib.Images[FaceIndex + 1];
  14722.       if d <> nil then
  14723.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14724.     end else begin
  14725.       d := nil;
  14726.       if WLib <> nil then
  14727.         d := WLib.Images[FaceIndex];
  14728.       if d <> nil then
  14729.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14730.     end;
  14731.   end;
  14732. end;

  14734. procedure TFrmDlg.DUserSellOffDirectPaint(Sender: TObject;
  14735.   dsurface: TTexture);
  14736. var
  14737.   d: TTexture;
  14738.   I: Integer;
  14739.   //lh: Integer;
  14740.   nPrice: Integer;
  14741.   sPage: string;
  14742.   sName: string;
  14743.   sPrice: string;
  14744.   sCharName: string;
  14745.   nX1, nX2, nX3: Integer;
  14746.   nIndex, nX, nY: Integer;
  14747.   hcolor, keyimg, old: Integer;
  14748.   iname, d1, d2, d3: string;
  14749.   useable: Boolean;
  14750.   TempList: TStringList;
  14751. begin
  14752.   with DUserSellOff do begin
  14753.     d := WLib.Images[FaceIndex];
  14754.     if d <> nil then
  14755.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14756.     //Font.Color := clWhite;
  14757.     case g_nSellItemType of
  14758.       0: sName := '所有物品';
  14759.       1: sName := '所有衣服';
  14760.       2: sName := '所有武器';
  14761.       3: sName := '所有首饰';
  14762.       4: sName := '所有宝石';
  14763.       5: sName := '其他物品';
  14764.       6: sName := '我的物品';
  14765.       7: sName := '取款';
  14766.       8: sName := '查询物品';
  14767.     end;

  14769.     with dsurface do begin
  14770.       TextOut(SurfaceX(Left) + 222 - TextWidth(sName) div 2, SurfaceY(Top) + 14, sName);

  14772.       if g_nSellItemPageCount = 0 then begin
  14773.         sPage := Format('%d/%d', [g_nSellItemPage, g_nSellItemPageCount]);
  14774.       end else begin
  14775.         sPage := Format('%d/%d', [g_nSellItemPage + 1, g_nSellItemPageCount]);
  14776.       end;

  14778.       TextOut(SurfaceX(Left) + 410 - TextWidth(sPage) div 2, SurfaceY(Top) + 14, sPage);
  14779.       TextOut(SurfaceX(Left) + 73 - TextWidth('AA'), SurfaceY(Top) + 45, '物品');
  14780.       TextOut(SurfaceX(Left) + 233 - TextWidth('AA'), SurfaceY(Top) + 45, '价格');

  14782.       if g_nSellItemType in [6, 7] then begin
  14783.         TextOut(SurfaceX(Left) + 394 - TextWidth('AA'), SurfaceY(Top) + 45, '状态');
  14784.       end else begin
  14785.         TextOut(SurfaceX(Left) + 394 - TextWidth('AA'), SurfaceY(Top) + 45, '卖家');
  14786.       end;
  14787.     end;


  14790.     nX1 := SurfaceX(Left) + 28;
  14791.     nX2 := SurfaceX(Left) + 195;
  14792.     nX3 := SurfaceX(Left) + 343;
  14793.     nY := SurfaceY(Top) + 69;

  14795.     nIndex := 1;
  14796.     sName := '';
  14797.     sPrice := '';
  14798.     for I := Low(g_SellItems) to High(g_SellItems) do begin
  14799.       with dsurface do begin
  14800.         if (g_SellItems[I].sCharName <> '') and (g_SellItems[I].SellItem.s.Name <> '') then begin
  14801.           sName := '';
  14802.           sPrice := '';
  14803.           nPrice := g_SellItems[I].SellItem.s.Price;
  14804.           if nIndex = SellItemIndex then begin
  14805.             g_MouseSellItems := g_SellItems[I];
  14806.             hcolor := clRed;
  14807.           end else begin
  14808.             if nPrice < 0 then hcolor := clLime
  14809.             else hcolor := clWhite;
  14810.           end;

  14812.           if I = MoveSellItemIndex then hcolor := GetRGB(253) {clyellow};

  14814.           sName := g_SellItems[I].SellItem.s.Name;
  14815.           sPrice := IntToStr(abs(nPrice));
  14816.           if g_nSellItemType = 6 then begin
  14817.             sCharName := '未售出';
  14818.           end else
  14819.             if g_nSellItemType = 7 then begin
  14820.             sCharName := '已售出';
  14821.           end else begin
  14822.             sCharName := g_SellItems[I].sCharName;
  14823.           end;

  14825.           TextOut(nX1, nY, sName, hcolor);
  14826.           TextOut(nX2, nY, sPrice, hcolor);
  14827.           TextOut(nX3, nY, sCharName, hcolor);
  14828.           Inc(nY, 19);
  14829.           Inc(nIndex);
  14830.         end;
  14831.       end;
  14832.     end;
  14833.     if (g_MouseSellItems.sCharName <> '') and (g_MouseSellItems.SellItem.s.Name <> '') then begin
  14834.       d := g_WBagItemImages.Images[g_MouseSellItems.SellItem.s.looks];
  14835.       if d <> nil then
  14836.         dsurface.Draw(SurfaceX(DSellItem.Left), SurfaceY(DSellItem.Top), d.ClientRect, d, True);
  14837.       with dsurface do begin
  14838.         sName := '寄售日期：' + DateTimeToStr(g_MouseSellItems.dSellDateTime);
  14839.         TextOut(SurfaceX(Left) + 19, SurfaceY(Top) + 274, sName);
  14840.       end;
  14841.       with dsurface do begin
  14842.         g_MouseItem := g_MouseSellItems.SellItem;
  14843.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);

  14845.         nX := SurfaceX(DSellItem.Left) + 36;
  14846.         nY := SurfaceY(DSellItem.Top) + 2;

  14848.         TempList := HintList;
  14849.         if TempList.Count > 0 then begin
  14850.           with dsurface do begin
  14851.             TextOut(nX, nY, TempList.Strings[0], clyellow);
  14852.            { for I := 1 to TempList.Count - 1 do begin
  14853.               TextOut(nX, nY + TextHeight('A') * I, TempList.Strings[I], TColor(TempList.Objects[I]));
  14854.             end;   }
  14855.             if TempList.Count > 1 then begin
  14856.               TextOut(nX, nY + TextHeight('A') + 2, TempList.Strings[1], TColor(TempList.Objects[1]));
  14857.             end;
  14858.             if TempList.Count > 2 then begin
  14859.               TextOut(nX, nY + (TextHeight('A') + 2) * 2, TempList.Strings[TempList.Count - 1], TColor(TempList.Objects[TempList.Count - 1]));
  14860.             end;
  14861.           end;
  14862.         end;
  14863.         g_MouseItem.s.Name := '';
  14864.       end;
  14865.     end;
  14866.   end;
  14867. end;

  14869. procedure TFrmDlg.DPrevSellDirectPaint(Sender: TObject;
  14870.   dsurface: TTexture);
  14871. var
  14872.   d: TTexture;
  14873. begin
  14874.   with Sender as TDButton do begin
  14875.     if TDButton(Sender).Downed then begin
  14876.       d := WLib.Images[FaceIndex];
  14877.       if d <> nil then
  14878.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14879.     end;
  14880.   end;
  14881. end;

  14883. procedure TFrmDlg.DBuySellItemDirectPaint(Sender: TObject;
  14884.   dsurface: TTexture);
  14885. var
  14886.   d: TTexture;
  14887. begin
  14888.   with Sender as TDButton do begin
  14889.     if TDButton(Sender).Downed then begin
  14890.       d := WLib.Images[FaceIndex + 1];
  14891.       if d <> nil then
  14892.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14893.     end else begin
  14894.       d := WLib.Images[FaceIndex];
  14895.       if d <> nil then
  14896.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  14897.     end;
  14898.   end;
  14899. end;

  14901. procedure TFrmDlg.DCloseSellClick(Sender: TObject; X, Y: Integer);
  14902. begin
  14903.   CloseSellOffDlg;
  14904. end;

  14906. procedure TFrmDlg.DUserSellOffClick(Sender: TObject; X, Y: Integer);
  14907. var
  14908.   lx, ly, Idx: Integer;
  14909. begin
  14910.   lx := X;
  14911.   ly := Y;
  14912.   if (lx >= 12) and (lx <= 455) and (ly >= 69) then begin
  14913.     Idx := (ly - 69) div 19 + 1;
  14914.     if Idx in [Low(g_SellItems)..High(g_SellItems)] then begin
  14915.       SellItemIndex := Idx;
  14916.       //g_MouseSellItems := g_SellItems[SellItemIndex];
  14917.       //Move(g_SellItems[SellItemIndex], g_MouseSellItems, SizeOf(TClientSellItem));
  14918.       //g_MouseItem := g_SellItems[SellItemIndex].SellItem;
  14919.       PlaySound(s_glass_button_click);
  14920.     end else begin
  14921.       SellItemIndex := -1;
  14922.       g_MouseSellItems.sCharName := '';
  14923.       g_MouseSellItems.SellItem.s.Name := '';
  14924.     end;
  14925.   end;
  14926. end;

  14928. procedure TFrmDlg.DPrevSellClick(Sender: TObject; X, Y: Integer);
  14929. begin
  14930.   if g_nSellItemPage > 0 then begin
  14931.     Dec(g_nSellItemPage);
  14932.     frmMain.SendQuerySellItems(g_nSellItemType, g_nSellItemPage, g_sSellItem);
  14933.   end;
  14934. end;

  14936. procedure TFrmDlg.DRefreshSellClick(Sender: TObject; X, Y: Integer);
  14937. begin
  14938.   frmMain.SendQuerySellItems(g_nSellItemType, g_nSellItemPage, g_sSellItem);
  14939. end;

  14941. procedure TFrmDlg.DNextSellClick(Sender: TObject; X, Y: Integer);
  14942. begin
  14943.   if g_nSellItemPage + 1 < g_nSellItemPageCount then begin
  14944.     Inc(g_nSellItemPage);
  14945.     frmMain.SendQuerySellItems(g_nSellItemType, g_nSellItemPage, g_sSellItem);
  14946.   end;
  14947. end;

  14949. procedure TFrmDlg.DSearchSellOffClick(Sender: TObject; X, Y: Integer);
  14950. begin
  14951.   g_sSellItem := Trim(EdSearch.Text);
  14952.   g_nSellItemType := 8;
  14953.   if g_sSellItem <> '' then begin
  14954.     frmMain.SendQuerySellItems(g_nSellItemType, g_nSellItemPage, g_sSellItem);
  14955.   end else begin
  14956.     g_nSellItemType := 0;
  14957.     frmMain.SendQuerySellItems(g_nSellItemType, g_nSellItemPage, g_sSellItem);
  14958.   end;
  14959. end;

  14961. procedure TFrmDlg.DBuySellItemClick(Sender: TObject; X, Y: Integer);
  14962. var
  14963.   sHintString: string;
  14964. begin
  14965.   if (g_MouseSellItems.sCharName <> '') and (g_MouseSellItems.SellItem.s.Name <> '') then begin
  14966.     if g_nSellItemType = 6 then begin
  14967.       sHintString := '你是否要取回 ' + g_MouseSellItems.SellItem.s.Name + ' ?';
  14968.     end else
  14969.       if g_nSellItemType = 7 then begin
  14970.       sHintString := '你是否要取回 ' + g_MouseSellItems.SellItem.s.Name + ' 的寄售款？';
  14971.     end else begin
  14972.       sHintString := '你是否确认购买 ' + g_MouseSellItems.SellItem.s.Name + ' ?';
  14973.     end;
  14974.     if mrOk = FrmDlg.DMessageDlg(sHintString, [mbOk, mbCancel]) then begin
  14975.       if g_nSellItemType = 7 then begin
  14976.         frmMain.SendGetSellItemGold(g_MouseSellItems.SellItem.MakeIndex, g_MouseSellItems.SellItem.s.Name);
  14977.         Exit;
  14978.       end;
  14979.       frmMain.SendBuySellItem(g_MouseSellItems.SellItem.MakeIndex, g_MouseSellItems.SellItem.s.Name);
  14980.     end;
  14981.   end;
  14982. end;

  14984. procedure TFrmDlg.DPrevSellMouseMove(Sender: TObject; Shift: TShiftState;
  14985.   X, Y: Integer);
  14986. var
  14987.   nLocalX, nLocalY: Integer;
  14988.   nHintX, nHintY: Integer;
  14989.   Butt: TDButton;
  14990.   sMsg: string;
  14991. begin
  14992.   Butt := TDButton(Sender);
  14993.   nHintX := Butt.Left;
  14994.   nHintY := DUserSellOff.Top + DUserSellOff.Height;
  14995.   if Sender = DPrevSell then sMsg := '上一页';
  14996.   if Sender = DRefreshSell then sMsg := '刷新';
  14997.   if Sender = DNextSell then sMsg := '下一页';
  14998.   DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite, False);
  14999. end;

  15001. procedure TFrmDlg.DUserSellOffMouseDown(Sender: TObject;
  15002.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  15003. begin
  15004.   DScreen.ClearHint;
  15005. end;

  15007. procedure TFrmDlg.DBoxItemGridGridPaint(Sender: TObject; ACol,
  15008.   ARow: Integer; Rect: TRect; State: TGridDrawState;
  15009.   dsurface: TTexture);
  15010.   function GetNextIndex(nIndex: Integer): Integer;
  15011.   begin
  15012.     case nIndex of
  15013.       0: Result := 1;
  15014.       1: Result := 2;
  15015.       2: Result := 5;
  15016.       3: Result := 0;
  15017.       5: Result := 8;
  15018.       6: Result := 3;
  15019.       7: Result := 6;
  15020.       8: Result := 7;
  15021.     else Result := 0;
  15022.     end;
  15023.   end;
  15024. var
  15025.   d: TTexture;
  15026.   nX, nY: Integer;
  15027.   nRandomBoxItem: Integer;
  15028.   nnIndex, nIndex: Integer;
  15029. begin
  15030.   nIndex := ACol + ARow * DBoxItemGrid.ColCount;
  15031.   if nIndex in [Low(g_BoxItems)..(High(g_BoxItems))] then begin
  15032.     if g_BoxItems[nIndex].s.Name <> '' then begin
  15033.       with DBoxItemGrid do begin
  15034.         if nIndex = 4 then begin //中间格的处理
  15035.           if g_boGetBoxItem then begin //开启转动
  15036.             d := g_WMain3Images.Images[513];
  15037.             if d <> nil then
  15038.               dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15039.                 SurfaceY(Rect.Top + (RowHeight - d.Height - 20) div 2 + 1) + 10,
  15040.                 d.ClientRect,
  15041.                 d, True);
  15042.           end else begin
  15043.             d := g_WMain3Images.Images[514];
  15044.             if d <> nil then begin
  15045.               dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15046.                 SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15047.                 d.ClientRect,
  15048.                 d, True);
  15049.             end;
  15050.             if GetTickCount - g_dwBoxFlashTick > 500 then begin //发光闪烁
  15051.               g_dwBoxFlashTick := GetTickCount;
  15052.               if g_nBoxFlashIdx <> 600 then g_nBoxFlashIdx := 600
  15053.               else Inc(g_nBoxFlashIdx);
  15054.             end;
  15055.             d := g_WMain3Images.Images[g_nBoxFlashIdx];
  15056.             if d <> nil then
  15057.               dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15058.                 SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15059.                 d.ClientRect,
  15060.                 d, True);
  15061.           end;
  15062.         end else begin
  15063.           if g_boGetBoxItem then begin //开启转动
  15064.             if (nIndex = g_btSelBoxItemIndex) and (g_nBoxTrunCount = g_btSelBoxItemIndex) and g_boOpenItemBox then begin //转动结束
  15065.               g_boSelItemOK := True;
  15066.               if GetTickCount - g_dwBoxFlashTick > 500 then begin //发光闪烁
  15067.                 g_dwBoxFlashTick := GetTickCount;
  15068.                 nnIndex := (602 + (g_btBoxType - 1) * 2);
  15069.                 if g_nBoxFlashIdx <> nnIndex then g_nBoxFlashIdx := nnIndex
  15070.                 else Inc(g_nBoxFlashIdx);
  15071.               end;
  15072.               d := g_WMain3Images.Images[514];
  15073.               if d <> nil then begin
  15074.                 dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15075.                   SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15076.                   d.ClientRect,
  15077.                   d, True);
  15078.               end;
  15079.               d := g_WMain3Images.Images[g_nBoxFlashIdx];
  15080.               if d <> nil then
  15081.                 dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15082.                   SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15083.                   d.ClientRect,
  15084.                   d, True);
  15085.             end else begin
  15086.               if not g_boSelItemOK then begin
  15087.                 if (g_nChgCount > 9) and (g_dwChgSpeed < 1200) then begin //转完三圈后开始减速
  15088.                   Inc(g_dwChgSpeed, 120); //调整旋转速度
  15089.                   g_nChgCount := 5;
  15090.                 end;
  15091.                 if (g_boOpenItemBox and (g_nBoxTrunCount <> g_btSelBoxItemIndex)) or (not g_boOpenItemBox) then begin
  15092.                   if GetTickCount - g_dwRandomBoxItemTick > g_dwChgSpeed then begin
  15093.                     g_dwRandomBoxItemTick := GetTickCount;
  15094.                     g_nBoxTrunCount := GetNextIndex(g_nBoxTrunCount);
  15095.                     Inc(g_nChgCount);
  15096.                     PlaySound(s_Flashbox);
  15097.                   end;
  15098.                 end;
  15099.                 nnIndex := 602 + (g_btBoxType - 1) * 2;
  15100.                 if nIndex = g_nBoxTrunCount then begin
  15101.                   d := g_WMain3Images.Images[514];
  15102.                   if d <> nil then begin
  15103.                     dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15104.                       SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15105.                       d.ClientRect,
  15106.                       d, True);
  15107.                   end;
  15108.                   d := g_WMain3Images.Images[nnIndex];
  15109.                   if d <> nil then
  15110.                     dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15111.                       SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15112.                       d.ClientRect,
  15113.                       d, True);
  15114.                 end else begin
  15115.                   d := g_WMain3Images.Images[514];
  15116.                   if d <> nil then
  15117.                     dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15118.                       SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15119.                       d.ClientRect,
  15120.                       d, True);
  15121.                 end;
  15122.               end else begin
  15123.                 d := g_WMain3Images.Images[514];
  15124.                 if d <> nil then
  15125.                   dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15126.                     SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15127.                     d.ClientRect,
  15128.                     d, True);
  15129.               end;
  15130.             end;
  15131.           end else begin
  15132.             d := g_WMain3Images.Images[514];
  15133.             if d <> nil then
  15134.               dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15135.                 SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15136.                 d.ClientRect,
  15137.                 d, True);
  15138.           end;
  15139.         end;
  15140.         d := g_WBagItemImages.Images[g_BoxItems[nIndex].s.looks];
  15141.         if d <> nil then
  15142.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15143.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15144.             d.ClientRect,
  15145.             d, True);
  15146.       end;
  15147.     end;
  15148.   end;
  15149. end;

  15151. procedure TFrmDlg.DBoxItemsDirectPaint(Sender: TObject;
  15152.   dsurface: TTexture);
  15153. var
  15154.   d: TTexture;
  15155.   sMsg: string;
  15156. begin
  15157.   with DBoxItems do begin
  15158.     d := nil;
  15159.     if WLib <> nil then
  15160.       d := WLib.Images[FaceIndex];
  15161.     if d <> nil then
  15162.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);

  15164.     if g_boGetBoxItemMouseMove then begin
  15165.       sMsg := '启动乾坤挪移换取一件圈外宝物';
  15166.       with dsurface do begin
  15167.         TextOut(SurfaceX(Left) + 16, SurfaceY(Top) + 160, sMsg);
  15168.       end;
  15169.     end;
  15170.   end;
  15171. end;

  15173. procedure TFrmDlg.DItemBoxDirectPaint(Sender: TObject;
  15174.   dsurface: TTexture);
  15175. var
  15176.   d, d1: TTexture;
  15177.   nIndex: Integer;
  15178. begin
  15179.   if g_btBoxType > 0 then begin
  15180.     with DItemBox do begin
  15181.       if g_boShowItemBox and (not g_boOpenItemBox) then begin
  15182.         d := g_WMain3Images.Images[520 + (g_btBoxType - 1) * 20];
  15183.         if d <> nil then
  15184.           dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15185.       end else
  15186.         if g_boShowItemBox and g_boOpenItemBox then begin
  15187.         if g_nBoxIndex < 7 then begin
  15188.           if GetTickCount - g_dwOpenBoxTick > 300 then begin
  15189.             g_dwOpenBoxTick := GetTickCount;
  15190.             Inc(g_nBoxIndex);
  15191.           end;
  15192.           nIndex := 520 + (g_btBoxType - 1) * 20 + g_nBoxIndex;
  15193.           if g_nBoxIndex < 4 then begin
  15194.             d := g_WMain3Images.Images[nIndex];
  15195.             if d <> nil then
  15196.               dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15197.           end else begin
  15198.             d := g_WMain3Images.Images[nIndex];
  15199.             d1 := g_WMain3Images.Images[nIndex + 7];
  15200.             if d <> nil then
  15201.               dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15202.             if d1 <> nil then
  15203.               DrawBlend(dsurface, Left, Top, d1);
  15204.           end;
  15205.         end else begin
  15206.          //g_boBoxItemsVisible := True;
  15207.           DItemBox.Visible := False;
  15208.           DBoxItems.Visible := True;
  15209.           //DBoxItemGrid.Visible := DBoxItems.Visible;
  15210.         end;
  15211.       end;
  15212.     end;
  15213.   end;
  15214. end;

  15216. procedure TFrmDlg.DBoxItemGridDblClick(Sender: TObject);
  15217. var
  15218.   Idx: Integer;
  15219. begin
  15220.   Idx := DBoxItemGrid.Col + DBoxItemGrid.Row * DBoxItemGrid.ColCount;
  15221.   //Showmessage(IntToStr(idx));
  15222.   if (Idx in [Low(g_BoxItems)..(High(g_BoxItems))]) and (Idx = g_btSelBoxItemIndex) then begin
  15223.     //Showmessage('frmMain.SendClientMessage');
  15224.     frmMain.SendClientMessage(CM_GETSELBOXITEM, Idx, 0, 0, 0);
  15225.     DBoxItems.Visible := False;
  15226.   end;
  15227. end;

  15229. procedure TFrmDlg.DBoxItemGridGridMouseMove(Sender: TObject; ACol,
  15230.   ARow: Integer; Shift: TShiftState);
  15231. var
  15232.   Index: Integer;
  15233.   iname, d1, d2, d3: string;
  15234.   useable: Boolean;

  15236.   nWhere: Integer;
  15237.   List: TStringList;
  15238. begin
  15239.   g_boGetBoxItemMouseMove := False;
  15240.   Index := ACol + ARow * DBoxItemGrid.ColCount;
  15241.   if Index in [0..8] then begin
  15242.     g_MouseItem := g_BoxItems[Index];
  15243.     if g_MouseItem.s.Name <> '' then begin
  15244.       nWhere := GetHumUseItemByBagItem(g_MouseItem.s.StdMode);
  15245.       if g_Config.boCompareItem and (nWhere >= 0) then begin

  15247.         List := TStringList.Create;
  15248.         try
  15249.           GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15250.           List.AddStrings(HintList);

  15252.           GetMouseItemInfo(g_MySelf, @g_UseItems[nWhere], iname, d1, d2, d3, useable);
  15253.           if HintList.Count > 0 then begin
  15254.             HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  15255.           end;
  15256.           with DBoxItemGrid do
  15257.             DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15258.               SurfaceY(Top + (ARow + 1) * RowHeight),
  15259.               List, HintList, False);
  15260.           HintList.Clear;
  15261.         finally
  15262.           List.Free;
  15263.         end;
  15264.         g_MouseItem.s.Name := '';
  15265.       end else begin
  15266.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15267.         with DBoxItemGrid do
  15268.           DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15269.             SurfaceY(Top + (ARow + 1) * RowHeight),
  15270.             HintList, False);
  15271.       end;

  15273.     end;

  15275.     {GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15276.     if HintList.Count > 0 then begin
  15277.       with DBoxItemGrid do
  15278.         DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15279.           SurfaceY(Top + (ARow + 1) * RowHeight),
  15280.           HintList, False);
  15281.     end; }
  15282.     g_MouseItem.s.Name := '';
  15283.   end;
  15284. end;

  15286. procedure TFrmDlg.DOnHouserClick(Sender: TObject; X, Y: Integer);
  15287. begin
  15288.   frmMain.SendOnHorse();
  15289. end;

  15291. procedure TFrmDlg.DHelpClick(Sender: TObject; X, Y: Integer);
  15292. begin
  15293.   if (g_MySelf = nil) then Exit;
  15294.   if DStoreDlg.Visible then begin
  15295.     CloseStoreDlg;
  15296.   end else begin
  15297.     OpenStoreDlg;
  15298.   end;
  15299. end;

  15301. procedure TFrmDlg.DBoxItemsMouseMove(Sender: TObject; Shift: TShiftState;
  15302.   X, Y: Integer);
  15303. begin
  15304.   g_boGetBoxItemMouseMove := False;
  15305.   DScreen.ClearHint;
  15306. end;

  15308. procedure TFrmDlg.DUserSellOffMouseMove(Sender: TObject;
  15309.   Shift: TShiftState; X, Y: Integer);
  15310. var
  15311.   lx, ly, Idx: Integer;
  15312.   iname, d1, d2, d3: string;
  15313.   useable: Boolean;
  15314. begin
  15315.   //lx := DUserSellOff.LocalX(X) - DUserSellOff.Left;
  15316.   //ly := DUserSellOff.LocalY(Y) - DUserSellOff.Top - DUserSellOff.SurfaceY(97);
  15317.   lx := X;
  15318.   ly := Y;
  15319.   if (lx >= 12) and (lx <= 455) and (ly >= 69) then begin
  15320.     Idx := (ly - 69) div 19 + 1;
  15321.     if Idx in [Low(g_SellItems)..High(g_SellItems)] then begin
  15322.       MoveSellItemIndex := Idx;
  15323.       g_MouseItem := g_SellItems[Idx].SellItem;
  15324.       with DUserSellOff do begin
  15325.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15326.         if HintList.Count > 0 then begin
  15327.           DScreen.ShowHint(SurfaceX(lx),
  15328.             SurfaceY(ly) + ImageCanvas.TextHeight('A') * 8,
  15329.             HintList, False);
  15330.         end;
  15331.       end;
  15332.       g_MouseItem.s.Name := '';
  15333.       Exit;
  15334.     end;
  15335.   end;
  15336.   DScreen.ClearHint;
  15337.   MoveSellItemIndex := -1;
  15338. end;

  15340. procedure TFrmDlg.DBookCloseDirectPaint(Sender: TObject;
  15341.   dsurface: TTexture);
  15342. var
  15343.   d: TTexture;
  15344. begin
  15345.   with Sender as TDButton do begin
  15346.     d := nil;
  15347.     if TDButton(Sender).Downed then begin
  15348.       if WLib <> nil then
  15349.         d := WLib.Images[FaceIndex + 1];
  15350.     end else begin
  15351.       if WLib <> nil then
  15352.         d := WLib.Images[FaceIndex];
  15353.     end;
  15354.     if d <> nil then
  15355.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15356.   end;
  15357. end;

  15359. procedure TFrmDlg.DBookPageDirectPaint(Sender: TObject;
  15360.   dsurface: TTexture);
  15361. var
  15362.   d: TTexture;
  15363. begin
  15364.   with DBookPage do begin
  15365.     if g_nBookType > 0 then begin
  15366.       d := nil;
  15367.       if WLib <> nil then
  15368.         d := WLib.Images[FaceIndex];
  15369.       if d <> nil then
  15370.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15371.     end else begin
  15372.       d := nil;
  15373.       if WLib <> nil then
  15374.         d := WLib.Images[FaceIndex + g_nBookPage];
  15375.       if d <> nil then
  15376.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15377.     end;
  15378.   end;
  15379. end;

  15381. procedure TFrmDlg.DBookPrevPageClick(Sender: TObject; X, Y: Integer);
  15382. var
  15383.   d: TTexture;
  15384. begin
  15385.   if g_nBookPage > 0 then begin
  15386.     Dec(g_nBookPage);
  15387.   end else begin
  15388.     DBookPrevPage.Visible := False;
  15389.   end;
  15390.   if g_nBookPage = 0 then DBookPrevPage.Visible := False;
  15391.   d := g_WUIBImages.Images[3];
  15392.   if d <> nil then begin
  15393.     DBookNextPage.SetImgIndex(g_WUIBImages, 3);
  15394.     DBookNextPage.Left := 470 - d.Width;
  15395.     DBookNextPage.Top := 318;
  15396.   end;
  15397. end;

  15399. procedure TFrmDlg.DBookNextPageClick(Sender: TObject; X, Y: Integer);
  15400. var
  15401.   d: TTexture;
  15402. begin
  15403.   if g_nBookPage < 5 then begin
  15404.     Inc(g_nBookPage);
  15405.     DBookPrevPage.Visible := True;
  15406.   end;

  15408.   if g_nBookPage = 5 then begin
  15409.     DBook.Visible := False;
  15410.     g_nBookPage := 0;
  15411.     frmMain.SendMerchantDlgSelect(g_nCurMerchant, '@GotoVillage');
  15412.     Exit;
  15413.   end;

  15415.   if g_nBookPage = 4 then begin
  15416.     d := g_WBookImages.Images[5];
  15417.     if d <> nil then begin
  15418.       DBookNextPage.SetImgIndex(g_WUIBImages, 5);
  15419.       DBookNextPage.Left := 470 - d.Width;
  15420.       DBookNextPage.Top := 318;
  15421.     end;
  15422.   end else begin
  15423.     d := g_WUIBImages.Images[3];
  15424.     if d <> nil then begin
  15425.       DBookNextPage.SetImgIndex(g_WUIBImages, 3);
  15426.       DBookNextPage.Left := 470 - d.Width;
  15427.       DBookNextPage.Top := 318;
  15428.     end;
  15429.   end;
  15430. end;

  15432. procedure TFrmDlg.DBookNextPageDirectPaint(Sender: TObject;
  15433.   dsurface: TTexture);
  15434. var
  15435.   d: TTexture;
  15436. begin
  15437.   with Sender as TDButton do begin
  15438.     d := nil;
  15439.     if TDButton(Sender).Downed then begin
  15440.       if g_nBookPage = 4 then begin
  15441.         d := g_WBookImages.Images[5 + 1];
  15442.       end else begin
  15443.         d := g_WUIBImages.Images[3 + 1];
  15444.       end;
  15445.     end else begin
  15446.       if g_nBookPage = 4 then begin
  15447.         d := g_WBookImages.Images[5];
  15448.       end else begin
  15449.         d := g_WUIBImages.Images[3];
  15450.       end;
  15451.     end;
  15452.     if d <> nil then begin
  15453.     {  Height := d.Height;
  15454.       Width := d.Width;        }
  15455.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15456.     end;
  15457.   end;
  15458. end;

  15460. procedure TFrmDlg.DBookDirectPaint(Sender: TObject;
  15461.   dsurface: TTexture);
  15462. var
  15463.   d: TTexture;
  15464. begin
  15465.   with DBook do begin
  15466.     d := nil;
  15467.     if g_nBookType = 0 then begin
  15468.       d := g_WUIBImages.Images[0];
  15469.     end else begin
  15470.       d := g_WBookImages.Images[g_nBookType + 6];
  15471.     end;
  15472.     if d <> nil then begin
  15473.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15474.     end;
  15475.   end;
  15476. end;

  15478. procedure TFrmDlg.DBookCloseClick(Sender: TObject; X, Y: Integer);
  15479. begin
  15480.   DBook.Visible := False;
  15481. end;

  15483. procedure TFrmDlg.DFindOKDirectPaint(Sender: TObject;
  15484.   dsurface: TTexture);
  15485. var
  15486.   d: TTexture;
  15487. begin
  15488.   with Sender as TDButton do begin
  15489.     d := nil;
  15490.     if Downed then begin
  15491.       if WLib <> nil then
  15492.         d := WLib.Images[FaceIndex + 1];
  15493.     end else begin
  15494.       if WLib <> nil then
  15495.         d := WLib.Images[FaceIndex];
  15496.     end;
  15497.     if d <> nil then
  15498.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15499.   end;
  15500. end;

  15502. procedure TFrmDlg.DFindChrCloseClick(Sender: TObject; X, Y: Integer);
  15503. begin
  15504.   DFindChr.Visible := False;
  15505. end;

  15507. procedure TFrmDlg.DFindChrClick(Sender: TObject; X, Y: Integer);
  15508. var
  15509.   lx, ly, Idx: Integer;
  15510. begin
  15511.   lx := DFindChr.LocalX(X) - DFindChr.Left;
  15512.   ly := DFindChr.LocalY(Y) - DFindChr.SurfaceY(140);
  15513.   if (lx >= 35) and (lx < DFindChr.Width - 40) and
  15514.     (ly > 0) and (ly < DFindChr.Height - 140) then begin
  15515.     Idx := ly div (LISTLINEHEIGHT + 9);
  15516.     with SelectChrScene do begin
  15517.       if Idx in [Low(DelCharArray)..High(DelCharArray)] then begin
  15518.         SelDelChar := Idx;
  15519.       end;
  15520.     end;
  15521.   end;
  15522. end;

  15524. procedure TFrmDlg.DFindChrDirectPaint(Sender: TObject;
  15525.   dsurface: TTexture);
  15526. var
  15527.   I, fy: Integer;
  15528.   d: TTexture;
  15529. begin
  15530.   with DFindChr do begin
  15531.     d := nil;
  15532.     if WLib <> nil then
  15533.       d := WLib.Images[FaceIndex];
  15534.     if d <> nil then
  15535.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15536.     with SelectChrScene do begin
  15537.       fy := 0;
  15538.       DelChrCount := 0;

  15540.       with dsurface do begin
  15541.         for I := Low(DelCharArray) to High(DelCharArray) do begin
  15542.           if DelCharArray[I].sChrName <> '' then begin
  15543.             if I = SelDelChar then begin
  15544.               BoldTextOut(DFindChr.Left + 30, 140 + fy, '√' + DelCharArray[I].sChrName, clRed);
  15545.               BoldTextOut(DFindChr.Left + 125, 140 + fy, IntToStr(DelCharArray[I].wLevel), clRed);
  15546.               BoldTextOut(DFindChr.Left + 168, 140 + fy, GetJobName(DelCharArray[I].btJob), clRed);
  15547.               BoldTextOut(DFindChr.Left + 218, 140 + fy, GetSexName(DelCharArray[I].btSex), clRed);
  15548.             end else begin
  15549.               BoldTextOut(DFindChr.Left + 30, 140 + fy, DelCharArray[I].sChrName);
  15550.               BoldTextOut(DFindChr.Left + 125, 140 + fy, IntToStr(DelCharArray[I].wLevel));
  15551.               BoldTextOut(DFindChr.Left + 168, 140 + fy, GetJobName(DelCharArray[I].btJob));
  15552.               BoldTextOut(DFindChr.Left + 218, 140 + fy, GetSexName(DelCharArray[I].btSex));
  15553.             end;
  15554.             Inc(fy, TextHeight('A') + 9);
  15555.             Inc(DelChrCount);
  15556.           end;
  15557.         end;
  15558.       end;
  15559.     end;
  15560.   end;
  15561. end;

  15563. procedure TFrmDlg.DFindOKClick(Sender: TObject; X, Y: Integer);
  15564. begin
  15565.   SelectChrScene.SelChrRestoreChrClick;
  15566. end;

  15568. procedure TFrmDlg.DBookNextPageInRealArea(Sender: TObject; X, Y: Integer;
  15569.   var IsRealArea: Boolean);
  15570. begin
  15571.   IsRealArea := True;
  15572. end;

  15574. procedure TFrmDlg.DOpenUpgradeClick(Sender: TObject; X, Y: Integer);
  15575. begin
  15576.   DUpgrade.Visible := not DUpgrade.Visible;
  15577. end;

  15579. procedure TFrmDlg.DCloseUpgradeClick(Sender: TObject; X, Y: Integer);
  15580. var
  15581.   I: Integer;
  15582. begin
  15583.   for I := 0 to 2 do begin
  15584.     if g_UpgradeItems[I].s.Name <> '' then begin
  15585.       AddItemBag(g_UpgradeItems[I]);
  15586.       g_UpgradeItems[I].s.Name := '';
  15587.     end;
  15588.   end;
  15589.   DUpgrade.Visible := False;
  15590. end;

  15592. procedure TFrmDlg.DUpgradeItem1MouseMove(Sender: TObject;
  15593.   Shift: TShiftState; X, Y: Integer);
  15594. var
  15595.   Idx: Integer;
  15596.   iname, d1, d2, d3: string;
  15597.   useable: Boolean;
  15598. begin
  15599.   DScreen.ClearHint;
  15600.   if g_boItemMoving then begin
  15601.     if Sender = DUpgradeItem1 then
  15602.       g_MoveRect := DUpgradeItem1.ClientRect;
  15603.     if Sender = DUpgradeItem2 then
  15604.       g_MoveRect := DUpgradeItem2.ClientRect;
  15605.     if Sender = DUpgradeItem3 then
  15606.       g_MoveRect := DUpgradeItem3.ClientRect;
  15607.   end;
  15608.   if Sender = DUpgradeItem1 then Idx := 0;
  15609.   if Sender = DUpgradeItem2 then Idx := 1;
  15610.   if Sender = DUpgradeItem3 then Idx := 2;
  15611.   if Idx in [0..2] then begin
  15612.     g_MouseItem := g_UpgradeItems[Idx];
  15613.     if g_MouseItem.s.Name <> '' then begin
  15614.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15615.       with Sender as TDButton do
  15616.         DScreen.ShowHint(SurfaceX(Left - 30),
  15617.           SurfaceY(Top + 50),
  15618.           HintList, False);
  15619.     end;
  15620.   end;
  15621. end;

  15623. procedure TFrmDlg.DUpgradeItem1Click(Sender: TObject; X, Y: Integer);
  15624. var
  15625.   Idx: Integer;
  15626.   temp: TClientItem;
  15627. begin
  15628.   if (g_UpgradeItemsWait[0].s.Name <> '') or (g_UpgradeItemsWait[1].s.Name <> '') or (g_UpgradeItemsWait[2].s.Name <> '') then Exit;
  15629.   if Sender = DUpgradeItem1 then Idx := 0;
  15630.   if Sender = DUpgradeItem2 then Idx := 1;
  15631.   if Sender = DUpgradeItem3 then Idx := 2;
  15632.   if Idx in [0..2] then begin
  15633.     if not g_boItemMoving then begin
  15634.       ClearMoveRect();
  15635.       if g_UpgradeItems[Idx].s.Name <> '' then begin
  15636.         g_MovingItem.Owner := DUpgrade;
  15637.         g_boItemMoving := True;
  15638.         //g_MovingItem.Index := idx;
  15639.         g_MovingItem.Item := g_UpgradeItems[Idx];
  15640.         g_UpgradeItems[Idx].s.Name := '';
  15641.         ItemClickSound(g_MovingItem.Item.s);
  15642.       end;
  15643.     end else begin
  15644.       if (g_MovingItem.Index < 0) or (g_MovingItem.Owner = DDealDlg) or (g_MovingItem.Owner = DHeroItemBag) or (g_MovingItem.Owner = DStateWin) or (g_MovingItem.Owner = DHeroStateWin) then Exit;
  15645.       if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DUpgrade) then begin
  15646.         if (g_UpgradeItems[Idx].s.Name <> '') then begin
  15647.           temp := g_UpgradeItems[Idx];
  15648.           g_UpgradeItems[Idx] := g_MovingItem.Item;
  15649.         //g_MovingItem.Index := idx;
  15650.           g_MovingItem.Item := temp;
  15651.           g_MovingItem.Owner := DUpgrade;
  15652.         end else begin
  15653.           g_UpgradeItems[Idx] := g_MovingItem.Item;
  15654.           g_MovingItem.Item.s.Name := '';
  15655.           g_boItemMoving := False;
  15656.           g_MovingItem.Owner := nil;
  15657.         end;
  15658.       end;
  15659.     end;
  15660.   end;
  15661. end;

  15663. procedure TFrmDlg.DUpgradeItem1DirectPaint(Sender: TObject;
  15664.   dsurface: TTexture);
  15665. var
  15666.   Idx: Integer;
  15667.   d: TTexture;
  15668. begin
  15669.   if Sender = DUpgradeItem1 then begin
  15670.     if g_UpgradeItems[0].s.Name <> '' then begin
  15671.       Idx := g_UpgradeItems[0].s.looks;
  15672.       if Idx >= 0 then begin
  15673.         d := g_WBagItemImages.Images[Idx];
  15674.         if d <> nil then
  15675.           dsurface.Draw(DUpgradeItem1.SurfaceX(DUpgradeItem1.Left + (DUpgradeItem1.Width - d.Width) div 2),
  15676.             DUpgradeItem1.SurfaceY(DUpgradeItem1.Top + (DUpgradeItem1.Height - d.Height) div 2),
  15677.             d.ClientRect, d, True);
  15678.       end;
  15679.     end;
  15680.   end;

  15682.   if Sender = DUpgradeItem2 then begin
  15683.     if g_UpgradeItems[1].s.Name <> '' then begin
  15684.       Idx := g_UpgradeItems[1].s.looks;
  15685.       if Idx >= 0 then begin
  15686.         d := g_WBagItemImages.Images[Idx];
  15687.         if d <> nil then
  15688.           dsurface.Draw(DUpgradeItem2.SurfaceX(DUpgradeItem2.Left + (DUpgradeItem2.Width - d.Width) div 2),
  15689.             DUpgradeItem2.SurfaceY(DUpgradeItem2.Top + (DUpgradeItem2.Height - d.Height) div 2),
  15690.             d.ClientRect, d, True);
  15691.       end;
  15692.     end;
  15693.   end;

  15695.   if Sender = DUpgradeItem3 then begin
  15696.     if g_UpgradeItems[2].s.Name <> '' then begin
  15697.       Idx := g_UpgradeItems[2].s.looks;
  15698.       if Idx >= 0 then begin
  15699.         d := g_WBagItemImages.Images[Idx];
  15700.         if d <> nil then
  15701.           dsurface.Draw(DUpgradeItem3.SurfaceX(DUpgradeItem3.Left + (DUpgradeItem3.Width - d.Width) div 2),
  15702.             DUpgradeItem3.SurfaceY(DUpgradeItem3.Top + (DUpgradeItem3.Height - d.Height) div 2),
  15703.             d.ClientRect, d, True);
  15704.       end;
  15705.     end;
  15706.   end;
  15707. end;

  15709. procedure TFrmDlg.DUpgradeMouseMove(Sender: TObject; Shift: TShiftState; X,
  15710.   Y: Integer);
  15711. begin
  15712.   DScreen.ClearHint;
  15713. end;

  15715. procedure TFrmDlg.DItemBagMouseMove(Sender: TObject; Shift: TShiftState; X,
  15716.   Y: Integer);
  15717. begin
  15718.   g_MouseItem.s.Name := '';
  15719.   g_MouseHeroItem.s.Name := '';
  15720.   HintList.Clear;
  15721.   DScreen.ClearHint;
  15722. end;

  15724. procedure TFrmDlg.DOpenUpgradeMouseMove(Sender: TObject;
  15725.   Shift: TShiftState; X, Y: Integer);
  15726. var
  15727.   nHintX, nHintY: Integer;
  15728. begin
  15729.   nHintX := DOpenUpgrade.SurfaceX(DOpenUpgrade.Left);
  15730.   nHintY := DOpenUpgrade.SurfaceY(DOpenUpgrade.Top);
  15731.   DScreen.ShowHint(nHintX, nHintY, '装备升级', clWhite, True);
  15732. end;

  15734. procedure TFrmDlg.DStartUpgradeClick(Sender: TObject; X, Y: Integer);
  15735. var
  15736.   I: Integer;
  15737.   UpgradeItemIndexs: TUpgradeItemIndexs;
  15738. begin
  15739.   if (g_UpgradeItemsWait[0].s.Name <> '') or (g_UpgradeItemsWait[1].s.Name <> '') or (g_UpgradeItemsWait[2].s.Name <> '') then begin
  15740.     if GetTickCount - g_dwUpgradeItemsWaitTick >= 1000 * 5 then begin
  15741.       g_UpgradeItemsWait[0].s.Name := '';
  15742.       g_UpgradeItemsWait[1].s.Name := '';
  15743.       g_UpgradeItemsWait[2].s.Name := '';
  15744.     end;
  15745.   end;
  15746.   if (g_UpgradeItemsWait[0].s.Name <> '') or (g_UpgradeItemsWait[1].s.Name <> '') or (g_UpgradeItemsWait[2].s.Name <> '') then Exit;
  15747.   if (g_UpgradeItems[0].s.Name = '') or (g_UpgradeItems[1].s.Name = '') or (g_UpgradeItems[2].s.Name = '') then Exit;
  15748.   g_dwUpgradeItemsWaitTick := GetTickCount;
  15749.   g_UpgradeItemsWait := g_UpgradeItems;

  15751.   g_UpgradeItems[0].s.Name := '';
  15752.   g_UpgradeItems[1].s.Name := '';
  15753.   g_UpgradeItems[2].s.Name := '';
  15754.   for I := 0 to 2 do
  15755.     UpgradeItemIndexs[I] := g_UpgradeItemsWait[I].MakeIndex;
  15756.   frmMain.SendUpgradeItem(UpgradeItemIndexs);
  15757. end;

  15759. procedure TFrmDlg.DStartUpgradeMouseMove(Sender: TObject;
  15760.   Shift: TShiftState; X, Y: Integer);
  15761. var
  15762.   nHintX, nHintY: Integer;
  15763. begin
  15764.   nHintX := DStartUpgrade.SurfaceX(DStartUpgrade.Left);
  15765.   nHintY := DStartUpgrade.SurfaceY(DStartUpgrade.Top);
  15766.   DScreen.ShowHint(nHintX, nHintY, '开始升级装备', clWhite, True);
  15767. end;

  15769. procedure TFrmDlg.DButtonDuelClick(Sender: TObject; X, Y: Integer);
  15770. begin
  15771.   if GetTickCount > g_dwQueryMsgTick then begin
  15772.     g_dwQueryMsgTick := GetTickCount + 3000;
  15773.     frmMain.SendDuelTry;
  15774.   end;
  15775. end;

  15777. procedure TFrmDlg.DDRDuelGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  15778.   Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  15779. var
  15780.   nIdx: Integer;
  15781.   d: TTexture;
  15782. begin
  15783.   nIdx := ACol + ARow * DDRDuelGrid.ColCount;
  15784.   if nIdx in [0..4] then begin
  15785.     if g_DuelRemoteItems[nIdx].s.Name <> '' then begin
  15786.       d := g_WBagItemImages.Images[g_DuelRemoteItems[nIdx].s.looks];
  15787.       if d <> nil then
  15788.         with DDRDuelGrid do begin
  15789.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15790.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15791.             d.ClientRect,
  15792.             d, True);
  15793.         end;
  15794.       with DDRDuelGrid do begin
  15795.         if (g_DuelRemoteItems[nIdx].s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_DuelRemoteItems[nIdx].s.AddPoint))} then begin
  15796.           if GetTickCount - g_DrawDuelRemoteItems[nIdx].dwDrawTick >= 200 then begin
  15797.             g_DrawDuelRemoteItems[nIdx].dwDrawTick := GetTickCount;
  15798.             if g_DrawDuelRemoteItems[nIdx].nIndex <= 0 then g_DrawDuelRemoteItems[nIdx].nIndex := 260 - 1;
  15799.             Inc(g_DrawDuelRemoteItems[nIdx].nIndex);
  15800.             if g_DrawDuelRemoteItems[nIdx].nIndex > 265 then g_DrawDuelRemoteItems[nIdx].nIndex := 260;
  15801.           end;
  15802.           d := g_WMain2Images.Images[g_DrawDuelRemoteItems[nIdx].nIndex];
  15803.           if d <> nil then begin
  15804.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15805.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  15806.           end;
  15807.         end;

  15809.         if g_DuelRemoteItems[nIdx].s.AddValue[12] >= 2 then begin
  15810.           if GetTickCount - g_DrawDuelRemoteItems_[nIdx].dwDrawTick >= 200 then begin
  15811.             g_DrawDuelRemoteItems_[nIdx].dwDrawTick := GetTickCount;
  15812.             if g_DrawDuelRemoteItems_[nIdx].nIndex <= 0 then g_DrawDuelRemoteItems_[nIdx].nIndex := 600 - 1;
  15813.             Inc(g_DrawDuelRemoteItems_[nIdx].nIndex);
  15814.             if g_DrawDuelRemoteItems_[nIdx].nIndex > 617 then g_DrawDuelRemoteItems_[nIdx].nIndex := 600;
  15815.           end;
  15816.           d := g_WMain3Images.Images[g_DrawDuelRemoteItems_[nIdx].nIndex];
  15817.           if d <> nil then begin
  15818.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15819.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  15820.           end;
  15821.         end;
  15822.       end;
  15823.     end;
  15824.   end;
  15825. end;

  15827. procedure TFrmDlg.DDDuelGridGridPaint(Sender: TObject; ACol, ARow: Integer;
  15828.   Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  15829. var
  15830.   nIdx: Integer;
  15831.   d: TTexture;
  15832. begin
  15833.   nIdx := ACol + ARow * DDDuelGrid.ColCount;
  15834.   if nIdx in [0..4] then begin
  15835.     if g_DuelItems[nIdx].s.Name <> '' then begin
  15836.       d := g_WBagItemImages.Images[g_DuelItems[nIdx].s.looks];
  15837.       if d <> nil then
  15838.         with DDDuelGrid do begin
  15839.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15840.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  15841.             d.ClientRect,
  15842.             d, True);
  15843.         end;

  15845.       with DDDuelGrid do begin
  15846.         if (g_DuelItems[nIdx].s.AddValue[12] in [1, 3]) { or (GetAddPoint(g_DuelItems[nIdx].s.AddPoint))} then begin
  15847.           if GetTickCount - g_DrawDuelItems[nIdx].dwDrawTick >= 200 then begin
  15848.             g_DrawDuelItems[nIdx].dwDrawTick := GetTickCount;
  15849.             if g_DrawDuelItems[nIdx].nIndex <= 0 then g_DrawDuelItems[nIdx].nIndex := 260 - 1;
  15850.             Inc(g_DrawDuelItems[nIdx].nIndex);
  15851.             if g_DrawDuelItems[nIdx].nIndex > 265 then g_DrawDuelItems[nIdx].nIndex := 260;
  15852.           end;
  15853.           d := g_WMain2Images.Images[g_DrawDuelItems[nIdx].nIndex];
  15854.           if d <> nil then begin
  15855.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15856.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  15857.           end;
  15858.         end;

  15860.         if g_DuelItems[nIdx].s.AddValue[12] >= 2 then begin
  15861.           if GetTickCount - g_DrawDuelItems_[nIdx].dwDrawTick >= 200 then begin
  15862.             g_DrawDuelItems_[nIdx].dwDrawTick := GetTickCount;
  15863.             if g_DrawDuelItems_[nIdx].nIndex <= 0 then g_DrawDuelItems_[nIdx].nIndex := 600 - 1;
  15864.             Inc(g_DrawDuelItems_[nIdx].nIndex);
  15865.             if g_DrawDuelItems_[nIdx].nIndex > 617 then g_DrawDuelItems_[nIdx].nIndex := 600;
  15866.           end;
  15867.           d := g_WMain3Images.Images[g_DrawDuelItems_[nIdx].nIndex];
  15868.           if d <> nil then begin
  15869.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  15870.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  15871.           end;
  15872.         end;
  15873.       end;
  15874.     end;
  15875.   end;
  15876. end;

  15878. procedure TFrmDlg.DWDuelDirectPaint(Sender: TObject;
  15879.   dsurface: TTexture);
  15880. var
  15881.   d: TTexture;
  15882. begin
  15883.   with DWDuel do begin
  15884.     d := nil;
  15885.     if WLib <> nil then
  15886.       d := WLib.Images[FaceIndex];
  15887.     if d <> nil then
  15888.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  15889.     with dsurface do begin
  15890.       TextOut(SurfaceX(Left + 83), SurfaceY(Top + 101), GetGoldStr(g_nDuelRemoteGold));
  15891.       TextOut(SurfaceX(Left + 27 + (90 - TextWidth(g_sDuelWho)) div 2), SurfaceY(Top + 32) + 3, g_sDuelWho);

  15893.       TextOut(SurfaceX(Left + 83), SurfaceY(Top + 202), GetGoldStr(g_nDuelGold));
  15894.       TextOut(SurfaceX(Left + 27 + (90 - TextWidth(g_sSelChrName)) div 2), SurfaceY(Top + 134) + 3, g_sSelChrName);
  15895.     end;
  15896.   end;
  15897. end;

  15899. procedure TFrmDlg.DDRDuelGridGridMouseMove(Sender: TObject; ACol,
  15900.   ARow: Integer; Shift: TShiftState);
  15901. var
  15902.   nIdx: Integer;
  15903.   iname, d1, d2, d3: string;
  15904.   useable: Boolean;

  15906.   nWhere: Integer;
  15907.   List: TStringList;
  15908. begin
  15909.   DScreen.ClearHint;
  15910.   nIdx := ACol + ARow * DDRDuelGrid.ColCount;
  15911.   if nIdx in [0..4] then begin
  15912.     g_MouseItem := g_DuelRemoteItems[nIdx];
  15913.     if g_MouseItem.s.Name <> '' then begin

  15915.       nWhere := GetHumUseItemByBagItem(g_MouseItem.s.StdMode);
  15916.       if g_Config.boCompareItem and (nWhere >= 0) then begin

  15918.         List := TStringList.Create;
  15919.         try
  15920.           GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15921.           List.AddStrings(HintList);

  15923.           GetMouseItemInfo(g_MySelf, @g_UseItems[nWhere], iname, d1, d2, d3, useable);
  15924.           if HintList.Count > 0 then begin
  15925.             HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  15926.           end;
  15927.           with DDRDuelGrid do
  15928.             DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15929.               SurfaceY(Top + (ARow + 1) * RowHeight),
  15930.               List, HintList, False);
  15931.           HintList.Clear;
  15932.         finally
  15933.           List.Free;
  15934.         end;
  15935.         g_MouseItem.s.Name := '';
  15936.       end else begin
  15937.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15938.         with DDRDuelGrid do
  15939.           DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15940.             SurfaceY(Top + (ARow + 1) * RowHeight),
  15941.             HintList, False);
  15942.       end;
  15943.       {GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15944.       with DDRDuelGrid do
  15945.         DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15946.           SurfaceY(Top + (ARow + 1) * RowHeight),
  15947.           HintList, False);}
  15948.     end;
  15949.   end;
  15950. end;

  15952. procedure TFrmDlg.DDDuelGridGridMouseMove(Sender: TObject; ACol,
  15953.   ARow: Integer; Shift: TShiftState);
  15954. var
  15955.   nIdx: Integer;
  15956.   iname, d1, d2, d3: string;
  15957.   useable: Boolean;

  15959.   nWhere: Integer;
  15960.   List: TStringList;
  15961. begin
  15962.   DScreen.ClearHint;
  15963.   nIdx := ACol + ARow * DDDuelGrid.ColCount;
  15964.   if nIdx in [0..4] then begin
  15965.     g_MoveRect := DDDuelGrid.ClientRect;
  15966.     g_MouseItem := g_DuelItems[nIdx];
  15967.     if g_MouseItem.s.Name <> '' then begin
  15968.       nWhere := GetHumUseItemByBagItem(g_MouseItem.s.StdMode);
  15969.       if g_Config.boCompareItem and (nWhere >= 0) then begin

  15971.         List := TStringList.Create;
  15972.         try
  15973.           GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15974.           List.AddStrings(HintList);

  15976.           GetMouseItemInfo(g_MySelf, @g_UseItems[nWhere], iname, d1, d2, d3, useable);
  15977.           if HintList.Count > 0 then begin
  15978.             HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  15979.           end;
  15980.           with DDDuelGrid do
  15981.             DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15982.               SurfaceY(Top + (ARow + 1) * RowHeight),
  15983.               List, HintList, False);
  15984.           HintList.Clear;
  15985.         finally
  15986.           List.Free;
  15987.         end;
  15988.         g_MouseItem.s.Name := '';
  15989.       end else begin
  15990.         GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15991.         with DDDuelGrid do
  15992.           DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  15993.             SurfaceY(Top + (ARow + 1) * RowHeight),
  15994.             HintList, False);
  15995.       end;

  15997.       {GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  15998.       with DDDuelGrid do
  15999.         DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  16000.           SurfaceY(Top + (ARow + 1) * RowHeight),
  16001.           HintList, False);
  16002.           }
  16003.     end else DScreen.ClearHint;
  16004.   end else DScreen.ClearHint;
  16005. end;

  16007. procedure TFrmDlg.DDDuelGridGridSelect(Sender: TObject; ACol, ARow: Integer;
  16008.   Shift: TShiftState);
  16009. var
  16010.   temp: TClientItem;
  16011.   mi, nIdx: Integer;
  16012. begin
  16013.   //if mbLeft = Button then begin
  16014.   if not g_boDuelEnd and (GetTickCount > g_dwDuelActionTick) then begin
  16015.     if not g_boItemMoving then begin
  16016.       nIdx := ACol + ARow * DDDuelGrid.ColCount;
  16017.       if nIdx in [0..4] then begin
  16018.         ClearMoveRect();
  16019.         if g_DuelItems[nIdx].s.Name <> '' then begin
  16020.           g_boItemMoving := True;
  16021.           g_MovingItem.Owner := DWDuel;
  16022.           g_MovingItem.Index := -nIdx - 30;
  16023.           g_MovingItem.Item := g_DuelItems[nIdx];
  16024.           g_DuelItems[nIdx].s.Name := '';
  16025.           ItemClickSound(g_MovingItem.Item.s);
  16026.         end;
  16027.       end;
  16028.     end else begin
  16029.       if (g_MovingItem.Owner = DHeroItemBag) or (g_MovingItem.Owner = DDealDlg) or (g_MovingItem.Owner = DHeroStateWin) or (g_MovingItem.Owner = DStateWin) then Exit;
  16030.       mi := g_MovingItem.Index;
  16031.       if (mi >= 0) or (mi <= -30) and (mi > -40) then begin
  16032.         ItemClickSound(g_MovingItem.Item.s);
  16033.         g_boItemMoving := False;
  16034.         if mi >= 0 then begin
  16035.           g_DuelDlgItem := g_MovingItem.Item;
  16036.           frmMain.SendAddDuelItem(g_DuelDlgItem);
  16037.           g_dwDuelActionTick := GetTickCount + 4000;
  16038.         end else
  16039.           AddDuelItem(g_MovingItem.Item);
  16040.         g_MovingItem.Item.s.Name := '';
  16041.         g_MovingItem.Owner := nil;
  16042.       end;
  16043.       if mi = -98 then DDDuelGoldClick(Self, 0, 0);
  16044.     end;
  16045.     ArrangeItemBag;
  16046.   end;
  16047.   //end;
  16048. end;

  16050. procedure TFrmDlg.DDDuelGoldClick(Sender: TObject; X, Y: Integer);
  16051. var
  16052.   DGold: Integer;
  16053.   valstr: string;
  16054. begin
  16055.   if g_MySelf = nil then Exit;
  16056.   if not g_boDuelEnd and (GetTickCount > g_dwDuelActionTick) then begin
  16057.     if not g_boItemMoving then begin
  16058.       DialogSize := 1;
  16059.       DMessageDlg('请输入要' + g_sGameGoldName + '数量：', [mbOk, mbAbort]);
  16060.       GetValidStrVal(DlgEditText, valstr, [' ']);
  16061.       DGold := Str_ToInt(valstr, 0);
  16062.       if (DGold <= (g_nDuelGold + g_MySelf.m_nGameGold)) and (DGold > 0) then begin
  16063.         frmMain.SendChangeDuelGold(DGold);
  16064.               //DScreen.AddChatBoardString('frmMain.SendChangeDuelGold(DGold): ' + IntToStr(DGold), clWhite, clPurple);
  16065.         g_dwDuelActionTick := GetTickCount + 4000;
  16066.       end else begin
  16067.         DMessageDlg('你的元宝不足 ' + IntToStr(DGold) + ' ！', [mbOk]);
  16068.         DGold := 0;
  16069.       end;
  16070.     end;
  16071.   end;
  16072. end;
  16073. (*var
  16074.   DGold: Integer;
  16075.   valstr: string;
  16076. begin
  16077.   if g_MySelf = nil then Exit;
  16078.   if not g_boDuelEnd and (GetTickCount > g_dwDuelActionTick) then begin
  16079.     if not g_boItemMoving then begin
  16080.       if g_nDuelGold > 0 then begin
  16081.         PlaySound(s_money);
  16082.         g_boItemMoving := True;
  16083.         g_MovingItem.Index := -97;
  16084.         g_MovingItem.Item.s.Name := g_sGoldName {'金币'};
  16085.       end;
  16086.     end else begin
  16087.       if (g_MovingItem.Index = -97) or (g_MovingItem.Index = -98) then begin
  16088.         if (g_MovingItem.Index = -98) then begin
  16089.           if g_MovingItem.Item.s.Name = g_sGoldName {'金币'} then begin

  16091.             DialogSize := 1;
  16092.             g_boItemMoving := False;
  16093.             g_MovingItem.Item.s.Name := '';
  16094.             DMessageDlg('请输入要' + g_sGameGoldName + '数量：', [mbOk, mbAbort]);
  16095.             GetValidStrVal(DlgEditText, valstr, [' ']);
  16096.             DGold := Str_ToInt(valstr, 0);
  16097.             if (DGold <= (g_nDuelGold + g_MySelf.m_nGameGold)) and (DGold > 0) then begin
  16098.               frmMain.SendChangeDuelGold(DGold);
  16099.               //DScreen.AddChatBoardString('frmMain.SendChangeDuelGold(DGold): ' + IntToStr(DGold), clWhite, clPurple);
  16100.               g_dwDuelActionTick := GetTickCount + 4000;
  16101.             end else DGold := 0;
  16102.           end;
  16103.         end;
  16104.         g_boItemMoving := False;
  16105.         g_MovingItem.Item.s.Name := '';
  16106.       end;
  16107.     end;
  16108.   end;
  16109. end;*)

  16111. procedure TFrmDlg.DDuelCloseClick(Sender: TObject; X, Y: Integer);
  16112. begin
  16113.   if GetTickCount > g_dwDuelActionTick then begin
  16114.     CloseDuelDlg;
  16115.     frmMain.SendCancelDuel;
  16116.   end;
  16117. end;

  16119. procedure TFrmDlg.OpenDuelDlg;
  16120. var
  16121.   d: TTexture;
  16122. begin
  16123.   //DWDuel.Left := SCREENWIDTH - 236 - 100;
  16124.   DItemBag.Left := 0;
  16125.   DItemBag.Top := 80;
  16126.   DItemBag.Visible := True;

  16128.   DWDuel.Visible := True;

  16130.   SafeFillChar(g_DuelItems, SizeOf(TClientItem) * 5, #0);
  16131.   SafeFillChar(g_DuelRemoteItems, SizeOf(TClientItem) * 5, #0);
  16132.   g_nDuelGold := 0;
  16133.   g_nDuelRemoteGold := 0;
  16134.   g_boDuelEnd := False;
  16135.   ArrangeItemBag;
  16136. end;

  16138. procedure TFrmDlg.CloseDuelDlg;
  16139. begin
  16140.   DWDuel.Visible := False;
  16141.   ArrangeItemBag;
  16142. end;

  16144. procedure TFrmDlg.DWDuelMouseMove(Sender: TObject; Shift: TShiftState;
  16145.   X, Y: Integer);
  16146. begin
  16147.   DScreen.ClearHint;
  16148. end;

  16150. procedure TFrmDlg.DItemBoxDblClick(Sender: TObject);
  16151. begin
  16152.   if g_boShowItemBox and (not g_boOpenItemBox) and (g_btBoxType > 0) and (not g_boGetBoxItemOK) then begin
  16153.     frmMain.SendClientMessage(CM_GETBACKITEMBOX, 0, 0, 0, 0);
  16154.   end;
  16155. end;

  16157. procedure TFrmDlg.DItemLockClick(Sender: TObject; X, Y: Integer);
  16158. begin
  16159.   if g_boShowItemBox and (not g_boOpenItemBox) and (g_btBoxType > 0) and (not g_boGetBoxItemOK) then begin
  16160.     if (g_nBoxIndex <= 0) and (FrmDlg.DItemBox.Visible) and g_boItemMoving and (g_MovingItem.Owner = DItemBag) and (g_MovingItem.Item.s.Name <> '') and
  16161.       (g_MovingItem.Item.s.StdMode = 40) and (g_MovingItem.Item.s.Shape in [13..16]) then begin
  16162.       if (g_OpenBoxingItem.s.Name <> '') and (GetTickCount - g_dwOpenBoxTime > 5 * 1000) then begin
  16163.         g_OpenBoxingItem.s.Name := '';
  16164.       end;
  16165.       if g_OpenBoxingItem.s.Name = '' then begin
  16166.         g_boItemMoving := False;
  16167.         g_OpenBoxingItem := g_MovingItem.Item;
  16168.         g_MovingItem.Item.s.Name := '';
  16169.         g_MovingItem.Owner := nil;
  16170.         g_dwOpenBoxTime := GetTickCount;
  16171.         frmMain.SendOpenBox(g_OpenBoxingItem.s.Name, g_OpenBoxingItem.MakeIndex);
  16172.       end;
  16173.     end;
  16174.   end;
  16175. end;

  16177. procedure TFrmDlg.DItemBoxMouseMove(Sender: TObject; Shift: TShiftState; X,
  16178.   Y: Integer);
  16179. begin
  16180.   if g_boShowItemBox and (not g_boOpenItemBox) and (g_btBoxType > 0) and (not g_boGetBoxItemOK) then begin
  16181.     DScreen.ShowHint(X, Y, '双击收回宝箱', clWhite, True);
  16182.   end else DScreen.ClearHint;
  16183. end;

  16185. procedure TFrmDlg.DGetBoxItemFlashDirectPaint(Sender: TObject;
  16186.   dsurface: TTexture);
  16187. var
  16188.   d: TTexture;
  16189. begin
  16190.   if g_boGetBoxItemMouseMove then begin
  16191.     if GetTickCount - g_dwShowGetBoxItemButtonTick > 200 then begin
  16192.       g_dwShowGetBoxItemButtonTick := GetTickCount;
  16193.       Inc(g_nBoxButtonIndex);
  16194.     end;
  16195.     if (g_nBoxButtonIndex < 515) or (g_nBoxButtonIndex > 518) then g_nBoxButtonIndex := 515;

  16197.     d := g_WMain3Images.Images[g_nBoxButtonIndex];
  16198.     if d <> nil then
  16199.       DrawBlend(dsurface, DBoxItems.SurfaceX(DBoxItems.Left) + 68, DBoxItems.SurfaceY(Top) + 160 + 120, d);
  16200.   end;
  16201. end;

  16203. procedure TFrmDlg.DHeroItemBagMouseMove(Sender: TObject;
  16204.   Shift: TShiftState; X, Y: Integer);
  16205. begin
  16206.   HintList.Clear;
  16207.   DScreen.ClearHint;
  16208.   g_MouseHeroItem.s.Name := '';
  16209.   g_MouseItem.s.Name := '';
  16210. end;

  16212. procedure TFrmDlg.DShopItemGridGridPaint(Sender: TObject; ACol,
  16213.   ARow: Integer; Rect: TRect; State: TGridDrawState;
  16214.   dsurface: TTexture);
  16215. var
  16216.   nIdx: Integer;
  16217.   d: TTexture;
  16218.   hcolor: TColor;
  16219.   old: Integer;
  16220.   sMemo1: string;
  16221. begin
  16222.   nIdx := ACol + ARow * DShopItemGrid.ColCount;
  16223.   if nIdx in [0..10 - 1] then begin
  16224.     if g_ShopItems[ShopTabPage, nIdx].StdItem.Name <> '' then begin
  16225.       d := g_WBagItemImages.Images[g_ShopItems[ShopTabPage, nIdx].StdItem.looks];
  16226.       if d <> nil then
  16227.         with DShopItemGrid do begin
  16228.           dsurface.Draw(SurfaceX(Rect.Left + 10 + (32 - d.Width) div 2 - 1),
  16229.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  16230.             d.ClientRect,
  16231.             d, True);
  16232.         end;

  16234.       if (m_btSelectShop = 0) and (gdSelected in State) and (g_MouseShopItems.ShopItem.StdItem.Name <> '') then hcolor := clRed else hcolor := clWhite;

  16236.       with dsurface do begin
  16237.         TextOut(DShopItemGrid.SurfaceX(Rect.Left + 8 + 36 + 8), DShopItemGrid.SurfaceY(Rect.Top + 10), g_ShopItems[ShopTabPage, nIdx].StdItem.Name, clyellow);
  16238.         sMemo1 := g_ShopItems[ShopTabPage, nIdx].sMemo1;
  16239.         if sMemo1 <> '' then begin
  16240.           TextOut(DShopItemGrid.SurfaceX(Rect.Left + 8 + 36 + 8), DShopItemGrid.SurfaceY(Rect.Top + 10 + TextHeight('A')), sMemo1, hcolor);
  16241.         end;
  16242.         TextOut(DShopItemGrid.SurfaceX(Rect.Left + 8 + 36 + 8), DShopItemGrid.SurfaceY(Rect.Top + 10 + TextHeight('A') * 2), IntToStr(g_ShopItems[ShopTabPage, nIdx].StdItem.Price) + ' ' + g_sGameGoldName, hcolor);
  16243.       end;

  16245.     end;
  16246.   end;
  16247. end;

  16249. procedure TFrmDlg.DSuperShopItemGridGridPaint(Sender: TObject; ACol,
  16250.   ARow: Integer; Rect: TRect; State: TGridDrawState;
  16251.   dsurface: TTexture);
  16252. var
  16253.   nIdx: Integer;
  16254.   d: TTexture;
  16255.   hcolor: TColor;
  16256.   old: Integer;
  16257. begin
  16258.   nIdx := ACol + ARow * DSuperShopItemGrid.ColCount;
  16259.   if nIdx in [0..5 - 1] then begin
  16260.     if g_SuperShopItems[nIdx].StdItem.Name <> '' then begin
  16261.       d := g_WBagItemImages.Images[g_SuperShopItems[nIdx].StdItem.looks];
  16262.       if d <> nil then
  16263.         with DSuperShopItemGrid do begin
  16264.           dsurface.Draw(SurfaceX(Rect.Left + 39 + (42 - d.Width) div 2 - 1),
  16265.             SurfaceY(Rect.Top + (32 - d.Height) div 2 + 1),
  16266.             d.ClientRect,
  16267.             d, True);
  16268.         end;
  16269.       if (m_btSelectShop = 1) and (gdSelected in State) and (g_MouseShopItems.ShopItem.StdItem.Name <> '') then hcolor := clRed else hcolor := clWhite;

  16271.       with dsurface do begin
  16272.         TextOut(DSuperShopItemGrid.SurfaceX(Rect.Left + 1), DSuperShopItemGrid.SurfaceY(Rect.Top + 36), g_SuperShopItems[nIdx].StdItem.Name, clLime);
  16273.         TextOut(DSuperShopItemGrid.SurfaceX(Rect.Left + 1), DSuperShopItemGrid.SurfaceY(Rect.Top + 36 + TextHeight('A')), IntToStr(g_SuperShopItems[nIdx].StdItem.Price) + ' ' + g_sGameGoldName, hcolor);
  16274.       end;
  16275.     end;
  16276.   end;
  16277. end;

  16279. procedure TFrmDlg.DShopItemGridGridSelect(Sender: TObject; ACol,
  16280.   ARow: Integer; Shift: TShiftState);
  16281. var
  16282.   Idx: Integer;
  16283. begin
  16284.   Idx := ACol + ARow * DShopItemGrid.ColCount;
  16285.   if (ShopTabPage >= 0) and (ShopTabPage <= 4) and (Idx in [0..9]) then begin
  16286.     m_btSelectShop := 0;
  16287.     g_MouseShopItems.nPicturePosition := -1;
  16288.     g_MouseShopItems.ShopItem := g_ShopItems[ShopTabPage, Idx];
  16289.     PlaySound(s_norm_button_click);
  16290.   end;
  16291. end;

  16293. procedure TFrmDlg.DSuperShopItemGridGridSelect(Sender: TObject; ACol,
  16294.   ARow: Integer; Shift: TShiftState);
  16295. var
  16296.   Idx: Integer;
  16297. begin
  16298.   Idx := ACol + ARow * DSuperShopItemGrid.ColCount;
  16299.   if (Idx in [0..4]) then begin
  16300.     m_btSelectShop := 1;
  16301.     g_MouseShopItems.nPicturePosition := -1;
  16302.     g_MouseShopItems.ShopItem := g_SuperShopItems[Idx];
  16303.     PlaySound(s_norm_button_click);
  16304.   end;
  16305. end;

  16307. procedure TFrmDlg.DShopItemGridGridMouseMove(Sender: TObject; ACol,
  16308.   ARow: Integer; Shift: TShiftState);
  16309. var
  16310.   Idx: Integer;
  16311. begin
  16312.   {idx := ACol + ARow * DShopItemGrid.ColCount;
  16313.   if (ShopTabPage >= 0) and (ShopTabPage <= 4) and (idx in [0..9]) then begin
  16314.     with DShopItemGrid do begin
  16315.       g_MoveRect.Left := SurfaceX(Left + ACol * ColWidth);
  16316.       g_MoveRect.Top := SurfaceY(Top + ARow * RowHeight);
  16317.       g_MoveRect.Right := g_MoveRect.Left + ColWidth;
  16318.       g_MoveRect.Bottom := g_MoveRect.Top + RowHeight;
  16319.     end;
  16320.   end;}
  16321. end;

  16323. procedure TFrmDlg.DHumManSortMouseMove(Sender: TObject; Shift: TShiftState;
  16324.   X, Y: Integer);
  16325. begin
  16326.   DScreen.ClearHint;
  16327. end;

  16329. procedure TFrmDlg.DShopMouseMove(Sender: TObject; Shift: TShiftState; X,
  16330.   Y: Integer);
  16331. begin
  16332.   DScreen.ClearHint;
  16333. end;

  16335. procedure TFrmDlg.DMiniMapDirectPaint(Sender: TObject;
  16336.   dsurface: TTexture);
  16337. var
  16338.   d, dd: TTexture;
  16339.   v: Boolean;
  16340.   mx, my, nX, nY, I: Integer;
  16341.   rc: TRect;
  16342.   Actor: TActor;
  16343.   X, Y: Integer;
  16344.   btColor: Byte;
  16345.   Color: TColor;
  16346.   sText: string;

  16348.   MapDescInfo: pTMapDescInfo;
  16349.   DescList: TList;

  16351.   nMinX, nMinY, nMaxX, nMaxY: Integer;

  16353.   OldColor: TColor;
  16354.   old: Integer;
  16355.   nStatus: Integer;
  16356.   OldFontStyle: TFontStyles;
  16357.   CartInfo: pTCartInfo;
  16358. begin
  16359.   if g_MySelf = nil then Exit;
  16360.   if g_nMiniMapIndex < 0 then Exit; //g_nViewMinMapLv=1 局部地图 2全景地图 3全景大地图

  16362.   d := nil;
  16363.   dd := nil;
  16364.   case g_nMiniMapIndex of
  16365.     300: d := g_WMiniMapImages.Images[0];
  16366.     105, 301: d := g_WMiniMapImages.Images[1];
  16367.     302: d := g_WMiniMapImages.Images[2];
  16368.     303: d := g_WMiniMapImages.Images[3];
  16369.     305: d := g_WMiniMapImages.Images[4];
  16370.     306..318: d := g_WMiniMapImages.Images[g_nMiniMapIndex - 301];
  16371.     320..323: d := g_WMiniMapImages.Images[g_nMiniMapIndex - 302];
  16372.   end;

  16374.   if d = nil then
  16375.     d := g_WMMapImages.Images[g_nMiniMapIndex];

  16377.   if d = nil then Exit;

  16379.   if (not LegendMap.StartFind) and (Length(LegendMap.Path) > 0) then begin
  16380.     dd := TTexture.Create;
  16381.     dd.SetSize(d.Width, d.Height);
  16382.     dd.Draw(0, 0, d, False);
  16383.     d := dd;
  16384.     for X := 0 to Length(LegendMap.Path) - 1 do begin
  16385.       ActorXYToMapXY(LegendMap.Path[X].X, LegendMap.Path[X].Y, mx, my);
  16386.       dd.Pixels[mx, my] := clRed;
  16387.       dd.Pixels[mx + 1, my] := clRed;
  16388.       dd.Pixels[mx - 1, my] := clRed;
  16389.       dd.Pixels[mx, my + 1] := clRed;
  16390.       dd.Pixels[mx, my - 1] := clRed;
  16391.     end;
  16392.   end;

  16394.   g_nMapWidth := d.Width;
  16395.   g_nMapHeight := d.Height;
  16396.   if g_nViewMinMapLv <= 2 then begin
  16397.     DMiniMap.Floating := False;
  16398.     if g_nViewMinMapLv = 1 then begin

  16400.       ActorXYToMapXY(g_MySelf.m_nCurrX, g_MySelf.m_nCurrY, mx, my);

  16402.       rc.Left := _MAX(0, mx - 60);
  16403.       rc.Top := _MAX(0, my - 60);
  16404.       rc.Right := _MIN(d.ClientRect.Right, rc.Left + 120);
  16405.       rc.Bottom := _MIN(d.ClientRect.Bottom, rc.Top + 120);

  16407.       if g_ConfigClient.btMainInterface in [0, 2] then begin
  16408.         DMiniMap.Top := 0;
  16409.       end else begin
  16410.         DMiniMap.Top := DMapTitle.Height;
  16411.       end;

  16413.       DMiniMap.Width := rc.Right - rc.Left;
  16414.       DMiniMap.Height := rc.Bottom - rc.Top;
  16415.       DMiniMap.Left := SCREENWIDTH - DMiniMap.Width;

  16417.       if g_boShowMiniMapXY then begin
  16418.         mx := (g_nMinMapX - DMiniMap.Left + rc.Left);
  16419.         if g_ConfigClient.btMainInterface in [0, 2] then begin
  16420.           my := g_nMinMapY + rc.Top;
  16421.         end else begin
  16422.           my := g_nMinMapY - DMapTitle.Height + rc.Top;
  16423.         end;
  16424.         MapXYToActorXY(mx, my, mx, my);

  16426.         sText := IntToStr(mx) + ':' + IntToStr(my);
  16427.         g_nMinMapMoveX := mx;
  16428.         g_nMinMapMoveY := my;
  16429.       end;
  16430.       dsurface.Draw(DMiniMap.SurfaceX(DMiniMap.Left), DMiniMap.SurfaceY(DMiniMap.Top), rc, d, False);
  16431.     end else begin //全景地图
  16432.       rc.Left := SCREENWIDTH - 200;
  16433.       rc.Top := 0;
  16434.       rc.Right := rc.Left + 200;
  16435.       rc.Bottom := 200;

  16437.       if g_ConfigClient.btMainInterface in [0, 2] then begin
  16438.         DMiniMap.Top := 0;
  16439.       end else begin
  16440.         DMiniMap.Top := DMapTitle.Height;
  16441.         rc.Top := DMapTitle.Height;
  16442.         rc.Bottom := rc.Top + rc.Bottom;
  16443.       end;

  16445.       DMiniMap.Width := 200;
  16446.       DMiniMap.Height := 200;
  16447.       DMiniMap.Left := SCREENWIDTH - DMiniMap.Width;

  16449.       if g_boShowMiniMapXY then begin
  16450.         ScreenToMap(d.Width, DMiniMap.Width, g_nMinMapX - DMiniMap.Left, mx);
  16451.         ScreenToMap(d.Height, DMiniMap.Height, g_nMinMapY - DMiniMap.Top, my);

  16453.         MapXYToActorXY(mx, my, mx, my);
  16454.         sText := IntToStr(mx) + ':' + IntToStr(my);
  16455.         g_nMinMapMoveX := mx;
  16456.         g_nMinMapMoveY := my;
  16457.       end;

  16459.       dsurface.StretchDraw(rc, d.ClientRect, d, False);
  16460.     end;

  16462.     if g_nViewMinMapLv = 1 then begin
  16463.       ActorXYToMapXY(g_MySelf.m_nCurrX, g_MySelf.m_nCurrY, mx, my);
  16464.       mx := mx - rc.Left;
  16465.       my := my - rc.Top;
  16466.     end else begin
  16467.       ActorXYToMapXY(g_MySelf.m_nCurrX, g_MySelf.m_nCurrY, mx, my);
  16468.       MapToScreen(d.Width, DMiniMap.Width, mx, mx);
  16469.       MapToScreen(d.Height, DMiniMap.Height, my, my);
  16470.     end;

  16472.     dsurface.FrameRect(Bounds(DMiniMap.Left + mx - 3, DMiniMap.Top + my - 3, 3, 3), clLime);
  16473.     dsurface.FrameRect(Bounds(DMiniMap.Left + mx - 2, DMiniMap.Top + my - 2, 2, 2), clLime);

  16475.     for nX := g_MySelf.m_nCurrX - 12 to g_MySelf.m_nCurrX + 12 do begin
  16476.       for nY := g_MySelf.m_nCurrY - 12 to g_MySelf.m_nCurrY + 12 do begin
  16477.         Actor := PlayScene.FindActorXY(nX, nY);
  16478.         if (Actor <> nil) and (Actor <> g_MySelf) and (not Actor.m_boDeath) then begin
  16479.           if g_nViewMinMapLv = 1 then begin
  16480.             ActorXYToMapXY(Actor.m_nCurrX, Actor.m_nCurrY, mx, my);
  16481.             mx := mx - rc.Left;
  16482.             my := my - rc.Top;
  16483.           end else begin
  16484.             ActorXYToMapXY(Actor.m_nCurrX, Actor.m_nCurrY, mx, my);
  16485.             MapToScreen(d.Width, DMiniMap.Width, mx, mx);
  16486.             MapToScreen(d.Height, DMiniMap.Height, my, my);
  16487.           end;

  16489.           case Actor.m_btRace of
  16490.             0, 50: btColor := 250; //clLime;
  16491.             // btColor := 255;
  16492.           else btColor := 249; //clRed;
  16493.           end;

  16495.           {
  16496.           case Actor.m_btRace of
  16497.             50, 45, 12: btColor := 250; //clLime;
  16498.             0: btColor := 255;
  16499.           else btColor := 249; //clRed;
  16500.           end;
  16501.           }

  16503.           if (g_MyHero <> nil) and (g_MyHero = Actor) then
  16504.             btColor := 251;

  16506.           for X := -1 to 1 do
  16507.             for Y := -1 to 1 do
  16508.               dsurface.Pixels[DMiniMap.Left + mx + X, DMiniMap.Top + my + Y] := GetRGB(btColor);
  16509.         end;
  16510.       end;
  16511.     end;

  16513.     if g_boShowMiniMapXY and (sText <> '') then begin
  16514.       with dsurface do begin
  16515.         BoldTextOut(DMiniMap.Left + (DMiniMap.Width - TextWidth(sText)) - 1, DMiniMap.Top + DMiniMap.Height - TextWidth('A') * 2, sText);
  16516.       end;
  16517.     end;
  16518.   end else begin
  16519.     DMiniMap.Floating := True;
  16520.     DMiniMap.Top := 40;
  16521.     DMiniMap.Left := 60;
  16522.     DMiniMap.Width := SCREENWIDTH - 120;
  16523.     DMiniMap.Height := SCREENHEIGHT - 220;

  16525.     with DMiniMap do
  16526.       dsurface.StretchDraw(Bounds(SurfaceX(Left), SurfaceY(Top), Width, Height), d.ClientRect, d, False);

  16528.     ActorXYToMapXY(g_MySelf.m_nCurrX, g_MySelf.m_nCurrY, mx, my);


  16531.     MapToScreen(g_nMapWidth, DMiniMap.Width, mx, mx);
  16532.     MapToScreen(g_nMapHeight, DMiniMap.Height, my, my);
  16533.     mx := DMiniMap.Left + mx;
  16534.     my := DMiniMap.Top + my;

  16536.     for X := -3 to 3 do
  16537.       for Y := -3 to 3 do
  16538.         dsurface.Pixels[mx + X, my + Y] := clLime;

  16540.     sText := IntToStr(g_MySelf.m_nCurrX) + ':' + IntToStr(g_MySelf.m_nCurrY);
  16541.     dsurface.BoldTextOut(mx + 10, my - 3, sText);

  16543.    { if (not LegendMap.StartFind) then begin
  16544.       for X := 0 to Length(LegendMap.Path) - 1 do begin

  16546.         ActorXYToMapXY(LegendMap.Path[X].X, LegendMap.Path[X].Y, mx, my);
  16547.         MapToScreen(g_nMapWidth, DMiniMap.Width, mx, mx);
  16548.         MapToScreen(g_nMapHeight, DMiniMap.Height, my, my);
  16549.         mx := DMiniMap.Left + mx;
  16550.         my := DMiniMap.Top + my;

  16552.         dsurface.Pixels[mx, my] := clRed;
  16553.       end;
  16554.     end;   }

  16556.     for X := -3 to 3 do
  16557.       for Y := -3 to 3 do
  16558.         dsurface.Pixels[g_nScreenMoveX + X, g_nScreenMoveY + Y] := clRed;

  16560.     sText := IntToStr(g_nMapMoveX) + ':' + IntToStr(g_nMapMoveY);
  16561.     dsurface.BoldTextOut(g_nScreenMoveX + 15, g_nScreenMoveY - 3, sText);
  16562.   end;

  16564.   if g_MapDesc.Get(g_sMapTitle, g_nViewMinMapLv >= 2, DescList) and (DescList.Count > 0) then begin
  16565.     if g_nViewMinMapLv = 1 then begin
  16566.       MapXYToActorXY(rc.Left, rc.Top, nMinX, nMinY);
  16567.       MapXYToActorXY(rc.Right, rc.Bottom, nMaxX, nMaxY);
  16568.       for I := 0 to DescList.Count - 1 do begin
  16569.         MapDescInfo := DescList[I];
  16570.         if (MapDescInfo.nX >= nMinX) and (MapDescInfo.nX <= nMaxX) and (MapDescInfo.nY >= nMinY) and (MapDescInfo.nY <= nMaxY) then begin
  16571.           ActorXYToMapXY(MapDescInfo.nX, MapDescInfo.nY, mx, my);
  16572.           mx := mx - rc.Left;
  16573.           my := my - rc.Top;
  16574.           sText := MapDescInfo.sDescName;
  16575.           dsurface.BoldTextOut(DMiniMap.Left + mx - dsurface.TextWidth(sText) div 2, DMiniMap.Top + my, sText, MapDescInfo.FColor);
  16576.         end;
  16577.       end;
  16578.     end else begin
  16579.       for I := 0 to DescList.Count - 1 do begin
  16580.         MapDescInfo := DescList[I];
  16581.         ActorXYToMapXY(MapDescInfo.nX, MapDescInfo.nY, mx, my);
  16582.         MapToScreen(d.Width, DMiniMap.Width, mx, mx);
  16583.         MapToScreen(d.Height, DMiniMap.Height, my, my);
  16584.         sText := MapDescInfo.sDescName;
  16585.         dsurface.BoldTextOut(DMiniMap.Left + mx - dsurface.TextWidth(sText) div 2, DMiniMap.Top + my, sText, MapDescInfo.FColor);
  16586.       end;
  16587.     end;
  16588.   end;

  16590. //==============================================================================
  16591.   if g_nViewMinMapLv > 1 then begin //显示镖车信息
  16592.     old := MainForm.Canvas.Font.Size;
  16593.     OldColor := MainForm.Canvas.Font.Color;
  16594.     OldFontStyle := MainForm.Canvas.Font.Style;

  16596.     MainForm.Canvas.Font.Size := 12;
  16597.     MainForm.Canvas.Font.Style := [fsBold];
  16598.     MainForm.Canvas.Font.Color := clWhite;
  16599.     g_CartInfoList.Lock;
  16600.     try
  16601.       for I := 0 to g_CartInfoList.Count - 1 do begin
  16602.         CartInfo := g_CartInfoList.Items[I];
  16603.         sText := CartInfo.sCharName;
  16604.         Actor := PlayScene.FindActor(CartInfo.nRecogId);
  16605.         if Actor = nil then begin
  16606.           nX := CartInfo.nX;
  16607.           nY := CartInfo.nY;
  16608.         end else begin
  16609.           nX := Actor.m_nCurrX;
  16610.           nY := Actor.m_nCurrY;
  16611.         end;
  16612.         if g_nViewMinMapLv = 1 then begin
  16613.           ActorXYToMapXY(nX, nY, mx, my);
  16614.           mx := mx - rc.Left;
  16615.           my := my - rc.Top;
  16616.         end else begin
  16617.           ActorXYToMapXY(nX, nY, mx, my);
  16618.           MapToScreen(d.Width, DMiniMap.Width, mx, mx);
  16619.           MapToScreen(d.Height, DMiniMap.Height, my, my);
  16620.         end;

  16622.         if { (Actor = nil) or }(g_nViewMinMapLv > 1) then begin
  16623.           if (g_nViewMinMapLv = 3) then begin
  16624.             for X := 2 to 10 do
  16625.               dsurface.FrameRect(Bounds(DMiniMap.Left + mx - X, DMiniMap.Top + my - X, X, X), clFuchsia);
  16626.           end else
  16627.             if (g_nViewMinMapLv = 2) then begin
  16628.             for X := 2 to 6 do
  16629.               dsurface.FrameRect(Bounds(DMiniMap.Left + mx - X, DMiniMap.Top + my - X, X, X), clFuchsia);
  16630.           end;
  16631.         end;
  16632.         dsurface.BoldTextOut(DMiniMap.Left + mx - dsurface.TextWidth(sText) div 2, DMiniMap.Top + my, sText, clWhite);
  16633.       end;
  16634.     finally
  16635.       g_CartInfoList.UnLock;
  16636.     end;
  16637.     MainForm.Canvas.Font.Style := OldFontStyle;
  16638.     MainForm.Canvas.Font.Size := old;
  16639.     MainForm.Canvas.Font.Color := OldColor;
  16640.   end;
  16641. //==============================================================================


  16644.   if dd <> nil then dd.Free;
  16645. end;

  16647. procedure TFrmDlg.DMiniMapMouseMove(Sender: TObject; Shift: TShiftState; X,
  16648.   Y: Integer);
  16649. var
  16650.   nX, nY: Integer;
  16651.   Button: TMouseButton;
  16652. begin
  16653.   if g_nViewMinMapLv > 2 then begin
  16654.     g_nOScreenMoveX := X;
  16655.     g_nOScreenMoveY := Y;

  16657.     //if (g_nScreenMoveX <> g_nOScreenMoveX) or (g_nScreenMoveY <> g_nOScreenMoveY) or (Length(LegendMap.Path) <= 0) then begin
  16658.     g_nScreenMoveX := X;
  16659.     g_nScreenMoveY := Y;
  16660.     nX := X - DMiniMap.Left;
  16661.     nY := Y - DMiniMap.Top;
  16662.     nX := Round(nX * g_nMapWidth / DMiniMap.Width);
  16663.     nY := Round(nY * g_nMapHeight / DMiniMap.Height);
  16664.     nX := nX * 32 div 48;
  16665.     nY := nY * 32 div 32;
  16666.     g_nMapMoveX := nX;
  16667.     g_nMapMoveY := nY;

  16669.     if g_GuaJi.Started or (g_NewStatus <> sNone) then Exit;
  16670.     if (ssLeft in Shift) or (ssRight in Shift) then Exit;

  16672.     if {LegendMap.StartFind and }(LegendMap.FindX = g_nMapMoveX) and (LegendMap.FindY = g_nMapMoveY) then Exit;

  16674.     if (Length(LegendMap.Path) > 0) and
  16675.       (LegendMap.Path[Length(LegendMap.Path) - 1].X = g_nMapMoveX) and
  16676.     (LegendMap.Path[Length(LegendMap.Path) - 1].Y = g_nMapMoveY) then Exit;

  16678.     if (g_MySelf <> nil) and ((LegendMap.EndX < 0) or (LegendMap.EndY < 0)) then begin
  16679.       if GetTickCount - g_dwFindPathTick > 500 then begin
  16680.           //DScreen.AddChatBoardString(Format('(%d:%d) LoadAllOk:%s', [nX, nY, BoolToStr(Map.m_boLoadAllOk)]), clRed, clWhite);
  16681.         if Map.NewCanMove(nX, nY) then
  16682.           LegendMap.Find(g_MySelf.m_nCurrX, g_MySelf.m_nCurrY, nX, nY);
  16683.         g_dwFindPathTick := GetTickCount;
  16684.       end;
  16685.     end;
  16686.     Exit;
  16687.   end;
  16688.   if ssRight in Shift then begin
  16689.     frmMain.DXDrawMouseMove_(mbRight, Shift, X, Y);
  16690.   end else begin
  16691.     g_boShowMiniMapXY := True;
  16692.     g_nMinMapX := X;
  16693.     g_nMinMapY := Y;
  16694.   end;
  16695. end;

  16697. procedure TFrmDlg.DHeroHealthStateWinMouseMove(Sender: TObject;
  16698.   Shift: TShiftState; X, Y: Integer);
  16699. var
  16700.   sStr: string;
  16701. begin
  16702.   if g_MyHero = nil then Exit;
  16703.   if g_ConfigClient.btMainInterface in [0, 2] then begin
  16704.     if g_MyHero.m_Abil.MaxExp > 0 then begin
  16705.       sStr := '体力值: ' + IntToStr(g_MyHero.m_Abil.HP) + '/' + IntToStr(g_MyHero.m_Abil.MaxHP) + '\' +
  16706.         '魔法值: ' + IntToStr(g_MyHero.m_Abil.MP) + '/' + IntToStr(g_MyHero.m_Abil.MaxMP) + '\' +
  16707.         '经验值: ' + FloatToStrFixFmt(100 * g_MyHero.m_Abil.Exp / g_MyHero.m_Abil.MaxExp, 3, 2) + '%\';

  16709.       with DHeroHealthStateWin do
  16710.         DScreen.ShowHint(Left + Width, 25, sStr, clWhite, False);
  16711.     end;
  16712.   end else begin
  16713.     if g_MyHero.m_Abil.MaxExp > 0 then begin
  16714.       sStr := '体力值: ' + IntToStr(g_MyHero.m_Abil.HP) + '/' + IntToStr(g_MyHero.m_Abil.MaxHP) + '\' +
  16715.         '魔法值: ' + IntToStr(g_MyHero.m_Abil.MP) + '/' + IntToStr(g_MyHero.m_Abil.MaxMP) + '\' +
  16716.         '经验值: ' + FloatToStrFixFmt(100 * g_MyHero.m_Abil.Exp / g_MyHero.m_Abil.MaxExp, 3, 2) + '%\';

  16718.       with DHeroHealthStateWin do
  16719.         DScreen.ShowHint(Left + Width, Top + 32, sStr, clWhite, False);
  16720.     end;
  16721.   end;
  16722. end;

  16724. procedure TFrmDlg.DMiniMapMouseDown(Sender: TObject; Button: TMouseButton;
  16725.   Shift: TShiftState; X, Y: Integer);
  16726. var
  16727.   pt: TPoint;
  16728. begin
  16729.   if g_GuaJi.Started or (g_NewStatus <> sNone) then Exit;
  16730.   if Button = mbLeft then begin
  16731.     if g_nViewMinMapLv >= 3 then begin
  16732.       if (Length(LegendMap.Path) > 0) and (LegendMap.EndX < 0) and (LegendMap.EndY < 0) and (not LegendMap.StartFind) then begin
  16733.         //LegendMap.Path := LegendMap.WalkToRun(LegendMap.Path);
  16734.         LegendMap.BeginX := g_MySelf.m_nCurrX;
  16735.         LegendMap.BeginY := g_MySelf.m_nCurrY;
  16736.         LegendMap.EndX := LegendMap.Path[Length(LegendMap.Path) - 1].X;
  16737.         LegendMap.EndY := LegendMap.Path[Length(LegendMap.Path) - 1].Y;
  16738.         DScreen.AddChatBoardString(Format('自动移动至坐标(%d:%d)，点击鼠标任意键停止...', [LegendMap.EndX, LegendMap.EndY]), GetRGB(154), clWhite);
  16739.         Exit;
  16740.       end;
  16741.     end;
  16742.     if g_nViewMinMapLv >= 3 then g_nViewMinMapLv := 1
  16743.     else Inc(g_nViewMinMapLv);
  16744.   end else begin
  16745.     GetCursorPos(pt);
  16746.     pt := frmMain.ScreenToClient(pt);
  16747.     frmMain.DXDrawMouseDown_(Button, Shift, pt.X, pt.Y);
  16748.   end;
  16749. end;

  16751. procedure TFrmDlg.DMapTitleDirectPaint(Sender: TObject;
  16752.   dsurface: TTexture);
  16753. var
  16754.   d: TTexture;
  16755.   lx, ly, sx: Integer;
  16756.   Str: string;
  16757.   rc: TRect;
  16758. begin
  16759.   with Sender as TDWindow do begin
  16760.     d := nil;
  16761.     if WLib <> nil then
  16762.       d := WLib.Images[FaceIndex];
  16763.     if d <> nil then begin
  16764.       if DMiniMap.Visible then begin
  16765.         if g_nViewMinMapLv <= 2 then begin
  16766.           rc := Bounds(SCREENWIDTH - DMiniMap.Width, Top, DMiniMap.Width, Height);
  16767.         end else begin
  16768.           rc := DMapTitle.ClientRect;
  16769.         end;
  16770.         dsurface.StretchDraw(rc, d.ClientRect, d, True);
  16771.       end else begin
  16772.         //Left := SCREENWIDTH - Width;
  16773.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  16774.       end;
  16775.       if g_MySelf = nil then Exit;

  16777.       Str := g_sMapTitle + ' ' + IntToStr(g_MySelf.m_nCurrX) + ':' + IntToStr(g_MySelf.m_nCurrY);
  16778.       with dsurface do begin
  16779.         if DMiniMap.Visible then begin
  16780.           if g_nViewMinMapLv <= 2 then begin
  16781.             BoldTextOut(SurfaceX(rc.Left + (DMiniMap.Width - TextWidth(Str)) div 2), SurfaceY(Top + (17 - TextHeight('A')) div 2), Str);
  16782.           end else begin
  16783.             BoldTextOut(SurfaceX(rc.Left + (DMapTitle.Width - TextWidth(Str)) div 2), SurfaceY(Top + (17 - TextHeight('A')) div 2), Str);
  16784.           end;
  16785.         end else begin
  16786.           BoldTextOut(SurfaceX(Left + (139 - TextWidth(Str)) div 2), SurfaceY(Top + (17 - TextHeight('A')) div 2), Str);
  16787.         end;
  16788.       end;
  16789.     end;
  16790.   end;
  16791. end;

  16793. procedure TFrmDlg.DButtonOption1Click(Sender: TObject; X, Y: Integer);
  16794. begin
  16795.   if DEdChat.Visible then begin
  16796.     SetChatVisible(False);
  16797.     SetInputVisible(False);
  16798.   end else begin
  16799.     //SetChatVisible(True);
  16800.     SetInputVisible(True);
  16801.     SetChatVisible(True);
  16802.   end;
  16803. end;

  16805. procedure TFrmDlg.DEdChatClick(Sender: TObject; X, Y: Integer);
  16806. begin
  16807.   //PlayScene.EdChat.Visible := not PlayScene.EdChat.Visible;
  16808. end;

  16810. procedure TFrmDlg.DButtonOption1MouseMove(Sender: TObject;
  16811.   Shift: TShiftState; X, Y: Integer);
  16812. var
  16813.   nLocalX, nLocalY: Integer;
  16814.   nHintX, nHintY: Integer;
  16815.   Butt: TDButton;
  16816.   sMsg: string;
  16817. begin
  16818.   DScreen.ClearHint;
  16819.   Butt := TDButton(Sender);
  16820.   nHintX := Butt.Left;
  16821.   nHintY := Butt.SurfaceY(Butt.Top) - 25;
  16822.   if Sender = DButtonOption1 then sMsg := '显示/隐藏聊天栏';
  16823.   if Sender = DButtonOption2 then sMsg := '显示/隐藏控制按钮';
  16824.   DScreen.ShowHint(nHintX, nHintY, sMsg, clWhite {clYellow}, False);
  16825. end;

  16827. procedure TFrmDlg.DButtonOption2Click(Sender: TObject; X, Y: Integer);
  16828. begin
  16829.   if DBotMiniMap.Visible then
  16830.     SetButVisible(False)
  16831.   else SetButVisible(True)
  16832. end;

  16834. procedure TFrmDlg.DPlayToolClick(Sender: TObject; X, Y: Integer);
  16835. begin
  16836.     MediaStartPlay('', True, False);
  16837. end;


  16840. procedure TFrmDlg.DCategorizeSysClick(Sender: TObject; X, Y: Integer);
  16841. var
  16842.   d: TDButton;
  16843. begin
  16844. { if Sender is TDButton then begin
  16845.     d := TDButton(Sender);
  16846.     if d <> DCategorizeSys then begin
  16847.       if DCategorizeSys.Downed then begin
  16848.         DCategorizeSys.Downed := False;
  16849.         Dec(DCategorizeSys.FaceIndex)
  16850.       end;
  16851.     end;
  16852.     if d <> DCategorizeGuild then begin
  16853.       if DCategorizeGuild.Downed then begin
  16854.         DCategorizeGuild.Downed := False;
  16855.         Dec(DCategorizeGuild.FaceIndex)
  16856.       end;
  16857.     end;
  16858.     if d <> DCategorizeGroup then begin
  16859.       if DCategorizeGroup.Downed then begin
  16860.         DCategorizeGroup.Downed := False;
  16861.         Dec(DCategorizeGroup.FaceIndex)
  16862.       end;
  16863.     end;
  16864.     if d <> DCategorizePrivate then begin
  16865.       if DCategorizePrivate.Downed then begin
  16866.         DCategorizePrivate.Downed := False;
  16867.         Dec(DCategorizePrivate.FaceIndex)
  16868.       end;
  16869.     end;
  16870.     if d <> nil then begin
  16871.       if d.Downed then begin
  16872.         d.Downed := False;
  16873.         Dec(d.FaceIndex)
  16874.       end else begin
  16875.         d.Downed := True;
  16876.         Inc(d.FaceIndex);
  16877.       end;
  16878.     end;
  16879.   end; }
  16880. end;

  16882. procedure TFrmDlg.DCategorizeSysDirectPaint(Sender: TObject;
  16883.   dsurface: TTexture);
  16884. var
  16885.   d: TDButton;
  16886.   dd: TTexture;
  16887. begin
  16888.   if Sender is TDButton then begin
  16889.     d := TDButton(Sender);
  16890.     dd := d.WLib.Images[d.FaceIndex];
  16891.     if dd <> nil then
  16892.       dsurface.Draw(d.SurfaceX(d.Left), d.SurfaceY(d.Top), dd.ClientRect, dd, False);
  16893.   end;
  16894. end;

  16896. procedure TFrmDlg.DShowChatClick(Sender: TObject; X, Y: Integer);
  16897. begin
  16898.   if DChatDlg.Visible then begin
  16899.     if DMemoChat.Height = 12 * 14 then begin
  16900.       DShowChat.SetImgIndex(g_WCqFirImages, 145);
  16901.       SetChatVisible(False);
  16902.     end else
  16903.       if DMemoChat.Height = 12 * 9 then begin
  16904.       DChatDlg.Height := 12 * 14 + 2;
  16905.       DMemoChat.Height := 12 * 14;
  16906.       DChatDlg.Top := SCREENHEIGHT - DChatDlg.Height - DEdChat.Height - DBottom.Height; //SCREENHEIGHT - 251 + 118;

  16908.       DScrollChat.Height := DChatDlg.Height;
  16909.       DScrollChat.RightButton.Top := DScrollChat.Height - DScrollChat.RightButton.Height - 1;

  16911.       DMemoChat.RefreshPos;

  16913.       DScrollChat.Max := DMemoChat.MaxHeight + (DMemoChat.Height - 12);

  16915.       DShowChat.SetImgIndex(g_WCqFirImages, 147);
  16916.       SetChatVisible(True);
  16917.     end
  16918.   end else begin
  16919.     DChatDlg.Height := 12 * 9 + 2;
  16920.     DMemoChat.Height := 12 * 9;
  16921.     DChatDlg.Top := SCREENHEIGHT - DChatDlg.Height - DEdChat.Height - DBottom.Height; //SCREENHEIGHT - 251 + 118;

  16923.     DScrollChat.Height := DChatDlg.Height;
  16924.     DScrollChat.RightButton.Top := DScrollChat.Height - DScrollChat.RightButton.Height - 1;

  16926.     DMemoChat.RefreshPos;

  16928.     DScrollChat.Max := DMemoChat.MaxHeight + (DMemoChat.Height - 12);


  16931.     DShowChat.SetImgIndex(g_WCqFirImages, 145);
  16932.     SetChatVisible(True);
  16933.   end;
  16934.   DMemoChat.SpareSize := DMemoChat.Height - 12;
  16935. end;

  16937. procedure TFrmDlg.DEdChatDirectPaint(Sender: TObject;
  16938.   dsurface: TTexture);
  16939. var
  16940.   d: TTexture;
  16941. begin
  16942.   with DEdChat do begin
  16943.     d := nil;
  16944.     if WLib <> nil then
  16945.       d := WLib.Images[FaceIndex];
  16946.     if d <> nil then
  16947.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, False);
  16948.   end;
  16949. end;

  16951. procedure TFrmDlg.DEdChatInRealArea(Sender: TObject; X, Y: Integer;
  16952.   var IsRealArea: Boolean);
  16953. begin
  16954.   //IsRealArea := False;
  16955. end;

  16957. procedure TFrmDlg.DShowChatMouseMove(Sender: TObject; Shift: TShiftState;
  16958.   X, Y: Integer);
  16959. var
  16960.   sMsg: string;
  16961. begin
  16962.   if (g_nShowChatMemoCount < 5) then begin
  16963.     if not DChatDlg.Visible then begin
  16964.       sMsg := '显示';
  16965.     end else begin
  16966.       if DMemoChat.Height = 12 * 9 then begin
  16967.         sMsg := '展开';
  16968.       end else begin
  16969.         sMsg := '隐藏';
  16970.       end;
  16971.     end;
  16972.     if (GetTickCount - g_dwShowChatMemoTick > 1000) then begin
  16973.       g_dwShowChatMemoTick := GetTickCount;
  16974.       Inc(g_nShowChatMemoCount);
  16975.     end else g_dwShowChatMemoTick := GetTickCount;
  16976.     DScreen.ShowHint(DShowChat.SurfaceX(DShowChat.Left), DShowChat.SurfaceY(DShowChat.Top) - 20, sMsg, clWhite {clYellow}, False);
  16977.   end;
  16978. end;

  16980. procedure TFrmDlg.CharMove(X: Integer);
  16981. begin
  16982.   if g_ConfigClient.btMainInterface in [0, 2] then Exit;
  16983.   if ChatDlgLeft > X then begin
  16984.     if DChatDlg.Left <= 0 then begin
  16985.       ChatDlgLeft := X;
  16986.       Exit;
  16987.     end;
  16988.     DChatDlg.Left := _MAX(DChatDlg.Left - (ChatDlgLeft - X), 0);
  16989.     DEdChat.Left := DChatDlg.Left;
  16990.   end else begin
  16991.     if DChatDlg.Left + DChatDlg.Width >= SCREENWIDTH then begin
  16992.       ChatDlgLeft := X;
  16993.       Exit;
  16994.     end;
  16995.     DChatDlg.Left := _MIN(DChatDlg.Left + (X - ChatDlgLeft), SCREENWIDTH - DChatDlg.Width);
  16996.     DEdChat.Left := DChatDlg.Left;
  16997.   end;
  16998.   ChatDlgLeft := X;
  16999.   //DEdChat.Top := SCREENHEIGHT - 20 - 44;
  17000.   {if DEdChat.Left + DEdChat.Width > SCREENWIDTH then begin //SCREENWIDTH - 23 * 9 - 3 * 8
  17001.     DEdChat.Left := SCREENWIDTH - DEdChat.Width;
  17002.   end;
  17003.   if DEdChat.Left < 0 then DEdChat.Left := 0;
  17004.   //PlayScene.EdChat.Top := 539;
  17005.   //PlayScene.EdChat.Left := DEdChat.Left + 21;
  17006.   DScroll.Left := DEdChat.Left;
  17007.   DListBox.Left := DScroll.Left + 15; }
  17008. end;

  17010. procedure TFrmDlg.DEdChatMouseMove(Sender: TObject; Shift: TShiftState; X,
  17011.   Y: Integer);
  17012. begin
  17013.   if ssLeft in Shift then CharMove(X);
  17014.   DScreen.ClearHint;
  17015.   if g_ConfigClient.btMainInterface <> 0 then begin
  17016.     if not EdChat.Visible then begin
  17017.       if (g_nShowEditChatCount < 5) then begin
  17018.         if (GetTickCount - g_dwShowEditChatTick > 1000) then begin
  17019.           g_dwShowEditChatTick := GetTickCount;
  17020.           Inc(g_nShowEditChatCount);
  17021.         end else g_dwShowEditChatTick := GetTickCount;
  17022.         DScreen.ShowHint(DEdChat.SurfaceX(X), DEdChat.SurfaceY(DEdChat.Top), '鼠标左键点击拖动，可以移动聊天框', clWhite {clYellow}, False);
  17023.       end;
  17024.     end;
  17025.   end;
  17026. end;

  17028. procedure TFrmDlg.DListBoxMouseDown(Sender: TObject; Button: TMouseButton;
  17029.   Shift: TShiftState; X, Y: Integer);
  17030. begin
  17031.   if Button = mbRight then
  17032.     frmMain.DXDrawMouseDown_(Button, Shift, X, Y);
  17033. end;

  17035. procedure TFrmDlg.DButtonShopClick(Sender: TObject; X, Y: Integer);
  17036. begin
  17037.   if not DShop.Visible then begin
  17038.     ChgShopSelButton(ShopTabPage);
  17039.     if g_ShopItems[ShopTabPage, 0].StdItem.Name = '' then begin
  17040.       if g_SuperShopItems[0].StdItem.Name = '' then begin
  17041.         frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 5);
  17042.       end else begin
  17043.         frmMain.SendShopDlg(ShopPage[ShopTabPage], ShopTabPage, 0);
  17044.       end;
  17045.     end;
  17046.     {if g_SuperShopItems[0].StdItem.Name = '' then begin
  17047.       frmMain.SendShopDlg(ShopPage[ShopTabPage], 5);
  17048.     end;  }
  17049.     OpenShopDlg;
  17050.   end else begin
  17051.     DShop.Visible := False;
  17052.   end;
  17053.   //Showmessage(TDButton(Sender).Name+' Left:'+IntToStr(TDButton(Sender).Left)+' Top:'+IntToStr(TDButton(Sender).Top));
  17054. end;

  17056. procedure TFrmDlg.DDuelOKClick(Sender: TObject; X, Y: Integer);
  17057. var
  17058.   mi: Integer;
  17059. begin
  17060.   if GetTickCount > g_dwDuelActionTick then begin
  17061.     //CloseDealDlg;
  17062.     frmMain.SendDuelEnd;
  17063.     g_dwDuelActionTick := GetTickCount + 4000;
  17064.     g_boDuelEnd := True;
  17065.     if g_boItemMoving then begin
  17066.       mi := g_MovingItem.Index;
  17067.       if (mi <= -30) and (mi > -40) then begin
  17068.         AddDuelItem(g_MovingItem.Item);
  17069.         g_boItemMoving := False;
  17070.         g_MovingItem.Item.s.Name := '';
  17071.       end;
  17072.     end;
  17073.   end;
  17074. end;

  17076. procedure TFrmDlg.DDDuelGoldMouseMove(Sender: TObject; Shift: TShiftState;
  17077.   X, Y: Integer);
  17078. begin
  17079.   DScreen.ShowHint(DDDuelGold.SurfaceX(DDDuelGold.Left),
  17080.     DDDuelGold.SurfaceY(DDDuelGold.Top) - 20, '单击增加元宝', clWhite {clYellow}, False);
  17081. end;

  17083. procedure TFrmDlg.EdSearchKeyPress(Sender: TObject; var Key: Char);
  17084. begin
  17085.   //if Length(EdSearch.Text) > 30 then EdSearch.Text := '';
  17086. end;

  17088. procedure TFrmDlg.DStoreOpenDirectPaint(Sender: TObject;
  17089.   dsurface: TTexture);
  17090. var
  17091.   d: TTexture;
  17092. begin
  17093.   d := nil;
  17094.   with Sender as TDButton do begin
  17095.     if not Downed then begin
  17096.       if WLib <> nil then
  17097.         d := WLib.Images[FaceIndex]
  17098.     end else begin
  17099.       if WLib <> nil then
  17100.         d := WLib.Images[FaceIndex + 1];
  17101.     end;
  17102.     if d <> nil then
  17103.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17104.   end;
  17105. end;

  17107. procedure TFrmDlg.DStoreCloseClick(Sender: TObject; X, Y: Integer);
  17108. begin
  17109.   CloseStoreDlg;
  17110. end;

  17112. procedure TFrmDlg.DStoreMsgDlgOkClick(Sender: TObject; X, Y: Integer);
  17113. begin
  17114.   if Sender = DStoreMsgDlgOk then DStoreMsgDlg.DialogResult := mrOk;
  17115.   if Sender = DStoreMsgDlgCancel then DStoreMsgDlg.DialogResult := mrCancel;
  17116.   DStoreMsgDlg.Visible := False;
  17117. end;

  17119. function TFrmDlg.DStoreMessageDlg(): TModalResult;
  17120. const
  17121.   XBase = 324;
  17122. var
  17123.   I: Integer;
  17124.   lx, ly: Integer;
  17125.   d: TTexture;
  17126.   procedure ShowDice();
  17127.   var
  17128.     I: Integer;
  17129.     bo05: Boolean;
  17130.   begin
  17131.     if m_nDiceCount = 1 then begin
  17132.       if m_Dice[0].n67C < 20 then begin
  17133.         if GetTickCount - m_Dice[0].dwPlayTick > 100 then begin
  17134.           if m_Dice[0].n67C div 5 = 4 then begin
  17135.             m_Dice[0].nPlayPoint := Random(6) + 1;
  17136.           end else begin
  17137.             m_Dice[0].nPlayPoint := m_Dice[0].n67C div 5 + 8;
  17138.           end;
  17139.           m_Dice[0].dwPlayTick := GetTickCount();
  17140.           Inc(m_Dice[0].n67C);
  17141.         end;
  17142.         Exit;
  17143.       end;
  17144.       m_Dice[0].nPlayPoint := m_Dice[0].nDicePoint;
  17145.       if GetTickCount - m_Dice[0].dwPlayTick > 1500 then begin
  17146.         DStoreMsgDlg.Visible := False;
  17147.       end;
  17148.       Exit;
  17149.     end;

  17151.     bo05 := True;
  17152.     for I := 0 to m_nDiceCount - 1 do begin
  17153.       if m_Dice[I].n67C < m_Dice[I].n680 then begin
  17154.         if GetTickCount - m_Dice[I].dwPlayTick > 100 then begin
  17155.           if m_Dice[I].n67C div 5 = 4 then begin
  17156.             m_Dice[I].nPlayPoint := Random(6) + 1;
  17157.           end else begin
  17158.             m_Dice[I].nPlayPoint := m_Dice[I].n67C div 5 + 8;
  17159.           end;
  17160.           m_Dice[I].dwPlayTick := GetTickCount();
  17161.           Inc(m_Dice[I].n67C);
  17162.         end;
  17163.         bo05 := False;
  17164.       end else begin
  17165.         m_Dice[I].nPlayPoint := m_Dice[I].nDicePoint;
  17166.         if GetTickCount - m_Dice[I].dwPlayTick < 2000 then begin
  17167.           bo05 := False;
  17168.         end;
  17169.       end;
  17170.     end; //for
  17171.     if bo05 then begin
  17172.       DStoreMsgDlg.Visible := False;
  17173.     end;
  17174.   end;
  17175. begin
  17176.   //DStoreMsgDlg.Visible := True;
  17177.   for I := 0 to m_nDiceCount - 1 do begin
  17178.     m_Dice[I].n67C := 0;
  17179.     m_Dice[I].n680 := Random(m_nDiceCount + 2) * 5 + 10;
  17180.     m_Dice[I].nPlayPoint := 1;
  17181.     m_Dice[I].dwPlayTick := GetTickCount();
  17182.   end;

  17184.   DStoreMsgDlg.ShowModal;
  17185.   SetDFocus(EdStoreDlgEdit);
  17186.   Result := mrOk;

  17188.   while True do begin
  17189.     if not DStoreMsgDlg.Visible then Break;
  17190.     frmMain.ProcOnIdle;
  17191.     Application.ProcessMessages;
  17192.     if m_nDiceCount > 0 then begin
  17193.       m_boPlayDice := True;
  17194.       for I := 0 to m_nDiceCount - 1 do begin
  17195.         m_Dice[I].nX := ((DStoreMsgDlg.Width div 2 + 6) - ((m_nDiceCount * 32 + m_nDiceCount) div 2)) + (I * 32 + I);
  17196.         m_Dice[I].nY := DStoreMsgDlg.Height div 2 - 14;
  17197.       end;
  17198.       ShowDice();
  17199.     end;
  17200.     if Application.Terminated then Exit;
  17201.     Sleep(1);
  17202.   end;

  17204.   StoreDlgEditText := Trim(EdStoreDlgEdit.Text);
  17205.   if EdChat.Visible then EdChat.SetFocus;
  17206.   Result := DStoreMsgDlg.DialogResult;
  17207.   m_nDiceCount := 0;
  17208.   m_boPlayDice := False;
  17209. end;

  17211. procedure TFrmDlg.DStoreMsgDlgDirectPaint(Sender: TObject;
  17212.   dsurface: TTexture);
  17213. var
  17214.   I: Integer;
  17215.   nX, nY: Integer;
  17216.   d: TTexture;
  17217. begin
  17218.   d := nil;
  17219.   with Sender as TDWindow do begin
  17220.     if WLib <> nil then
  17221.       d := WLib.Images[FaceIndex];
  17222.     if d <> nil then
  17223.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17224.     if m_boPlayDice then begin
  17225.       for I := 0 to m_nDiceCount - 1 do begin
  17226.         d := g_WBagItemImages.GetCachedImage(m_Dice[I].nPlayPoint + 376 - 1, nX, nY);
  17227.         if d <> nil then begin
  17228.           dsurface.Draw(SurfaceX(Left) + m_Dice[I].nX + nX - 14, SurfaceY(Top) + m_Dice[I].nY + nY + 38, d.ClientRect, d, True);
  17229.         end;
  17230.       end;
  17231.     end;
  17232.   end;
  17233. end;

  17235. procedure TFrmDlg.EdStoreDlgEditKeyPress(Sender: TObject; var Key: Char);
  17236. begin
  17237.   if Key = #13 then begin
  17238.     DStoreMsgDlgOkClick(DStoreMsgDlgOk, 0, 0);
  17239.   end;
  17240. end;

  17242. procedure TFrmDlg.DStoreDlgClick(Sender: TObject; X, Y: Integer);
  17243. begin
  17244.   ReleaseDFocus;
  17245. end;

  17247. procedure TFrmDlg.DUserStoreClick(Sender: TObject; X, Y: Integer);
  17248. begin
  17249.   ReleaseDFocus;
  17250. end;

  17252. procedure TFrmDlg.DUserStoreCloseClick(Sender: TObject; X, Y: Integer);
  17253. begin
  17254.   CloseUserStoreDlg;
  17255. end;

  17257. procedure TFrmDlg.DGStoreGridPaint(Sender: TObject; ACol, ARow: Integer;
  17258.   Rect: TRect; State: TGridDrawState; dsurface: TTexture);
  17259. var
  17260.   nIdx: Integer;
  17261.   d: TTexture;
  17262. begin
  17263.   nIdx := ACol + ARow * DGStore.ColCount;
  17264.   if nIdx in [0..15 - 1] then begin
  17265.     if g_StoreItems[nIdx].Item.s.Name <> '' then begin
  17266.       d := g_WBagItemImages.Images[g_StoreItems[nIdx].Item.s.looks];
  17267.       if d <> nil then
  17268.         with DGStore do begin
  17269.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  17270.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  17271.             d.ClientRect,
  17272.             d, True);
  17273.         end;

  17275.       with DGStore do begin
  17276.         if (g_StoreItems[nIdx].Item.s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_StoreItems[nIdx].Item.s.AddPoint))} then begin
  17277.           if GetTickCount - g_DrawStoreItems[nIdx].dwDrawTick >= 200 then begin
  17278.             g_DrawStoreItems[nIdx].dwDrawTick := GetTickCount;
  17279.             if g_DrawStoreItems[nIdx].nIndex <= 0 then g_DrawStoreItems[nIdx].nIndex := 260 - 1;
  17280.             Inc(g_DrawStoreItems[nIdx].nIndex);
  17281.             if g_DrawStoreItems[nIdx].nIndex > 265 then g_DrawStoreItems[nIdx].nIndex := 260;
  17282.           end;
  17283.           d := g_WMain2Images.Images[g_DrawItemArr[nIdx].nIndex];
  17284.           if d <> nil then begin
  17285.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  17286.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  17287.           end;
  17288.         end;

  17290.         if g_StoreItems[nIdx].Item.s.AddValue[12] >= 2 then begin
  17291.           if GetTickCount - g_DrawStoreItems_[nIdx].dwDrawTick >= 200 then begin
  17292.             g_DrawStoreItems_[nIdx].dwDrawTick := GetTickCount;
  17293.             if g_DrawStoreItems_[nIdx].nIndex <= 0 then g_DrawStoreItems_[nIdx].nIndex := 600 - 1;
  17294.             Inc(g_DrawStoreItems_[nIdx].nIndex);
  17295.             if g_DrawStoreItems_[nIdx].nIndex > 617 then g_DrawStoreItems_[nIdx].nIndex := 600;
  17296.           end;
  17297.           d := g_WMain3Images.Images[g_DrawStoreItems_[nIdx].nIndex];
  17298.           if d <> nil then begin
  17299.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  17300.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  17301.           end;
  17302.         end;
  17303.       end;

  17305.     end;
  17306.   end;
  17307. end;

  17309. procedure TFrmDlg.DGStoreGridMouseMove(Sender: TObject; ACol,
  17310.   ARow: Integer; Shift: TShiftState);
  17311. var
  17312.   Idx: Integer;
  17313.   Button: TMouseButton;
  17314.   iname, d1, d2, d3: string;
  17315.   useable: Boolean;

  17317.   nWhere: Integer;
  17318.   List: TStringList;
  17319. begin
  17320.   DScreen.ClearHint;
  17321.   if ssRight in Shift then begin
  17322.     if g_boItemMoving then
  17323.       DGStoreGridSelect(Self, ACol, ARow, Shift);
  17324.   end else begin
  17325.     Idx := ACol + ARow * DGStore.ColCount;
  17326.     if Idx in [0..15 - 1] then begin
  17327.       g_MoveRect := DGStore.ClientRect;
  17328.       g_MoveRect.Right := g_MoveRect.Right - 1;
  17329.       g_MoveRect.Top := g_MoveRect.Top + 2;
  17330.       g_MoveRect.Bottom := g_MoveRect.Bottom - 1;
  17331.       g_MouseItem := g_StoreItems[Idx].Item;
  17332.       if (g_MouseItem.s.Name <> '') then begin

  17334.         nWhere := GetHumUseItemByBagItem(g_MouseItem.s.StdMode);
  17335.         if g_Config.boCompareItem and (nWhere >= 0) then begin

  17337.           List := TStringList.Create;
  17338.           try
  17339.             GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  17340.             HintList.AddObject('售价: ' + IntToStr(g_MouseItem.s.Price) + ' ' + GetStorePriceName(g_StoreItems[Idx].btSellType), TObject(clLime));
  17341.             List.AddStrings(HintList);

  17343.             GetMouseItemInfo(g_MySelf, @g_UseItems[nWhere], iname, d1, d2, d3, useable);
  17344.             if HintList.Count > 0 then begin
  17345.               HintList.Strings[0] := GetUseItemName(nWhere) + ' ' + HintList.Strings[0];
  17346.             end;
  17347.             with DGStore do
  17348.               DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  17349.                 SurfaceY(Top + (ARow + 1) * RowHeight),
  17350.                 List, HintList, False);
  17351.             HintList.Clear;
  17352.           finally
  17353.             List.Free;
  17354.           end;
  17355.           g_MouseItem.s.Name := '';
  17356.         end else begin
  17357.           GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  17358.           with DGStore do
  17359.             DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  17360.               SurfaceY(Top + (ARow + 1) * RowHeight),
  17361.               HintList, False);
  17362.         end;

  17364.         {GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  17365.         HintList.AddObject('售价: ' + IntToStr(g_MouseItem.s.Price) + ' ' + GetStorePriceName(g_StoreItems[Idx].btSellType), TObject(clLime));
  17366.         with DGStore do
  17367.           DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  17368.             SurfaceY(Top + (ARow + 1) * RowHeight),
  17369.             HintList, False); }
  17370.       end;
  17371.     end else begin
  17372.       ClearMoveRect();
  17373.       g_MouseItem.s.Name := '';
  17374.     end;
  17375.   end;
  17376. end;

  17378. procedure TFrmDlg.DGStoreGridSelect(Sender: TObject; ACol, ARow: Integer;
  17379.   Shift: TShiftState);
  17380. var
  17381.   Idx, Price: Integer;
  17382. label InPutPrice;
  17383. begin
  17384.   if g_MySelf.m_boStartStore or g_boStartStoreing then Exit;
  17385.   Idx := ACol + ARow * DGStore.ColCount;
  17386.   if Idx in [0..15 - 1] then begin
  17387.     if not g_boItemMoving then begin
  17388.       ClearMoveRect();
  17389.       if g_StoreItems[Idx].Item.s.Name <> '' then begin
  17390.         g_boItemMoving := True;
  17391.         g_MovingItem.Index := Idx;
  17392.         g_MovingItem.Index2 := g_StoreItems[Idx].btSellType;
  17393.         g_MovingItem.Item := g_StoreItems[Idx].Item;
  17394.         g_MovingItem.Owner := DStoreDlg;
  17395.         ItemClickSound(g_StoreItems[Idx].Item.s);
  17396.         g_StoreItems[Idx].Item.s.Name := '';
  17397.       end;
  17398.     end else begin
  17399.       if (g_MovingItem.Owner = DItemBag) or (g_MovingItem.Owner = DStoreDlg) then begin
  17400.         if g_StoreItems[Idx].Item.s.Name = '' then begin
  17401.           if (g_MovingItem.Owner = DItemBag) then begin
  17402.             g_WaitingStoreItem := g_MovingItem;
  17403.             g_boItemMoving := False;
  17404.             g_MovingItem.Item.s.Name := '';
  17405.             g_MovingItem.Owner := nil;
  17406.             ClearMoveRect();
  17407.             InPutPrice:
  17408.             if DStoreMessageDlg = mrOk then begin
  17409.               Price := Str_ToInt(StoreDlgEditText, 0);
  17410.               if Price > 0 then begin
  17411.                 case DStoreMsgDlg.FaceIndex of
  17412.                   157: g_StoreItems[Idx].btSellType := 0;
  17413.                   158: g_StoreItems[Idx].btSellType := 1;
  17414.                   159: g_StoreItems[Idx].btSellType := 2;
  17415.                   160: g_StoreItems[Idx].btSellType := 3;
  17416.                 end;
  17417.                 g_StoreItems[Idx].Item := g_WaitingStoreItem.Item;
  17418.                 g_StoreItems[Idx].Item.s.Price := Price;
  17419.                 g_WaitingStoreItem.Item.s.Name := '';
  17420.                 g_boItemMoving := False;
  17421.                 g_WaitingStoreItem.Owner := nil;
  17422.               end else begin
  17423.                 goto InPutPrice;
  17424.                 Exit;
  17425.               end;
  17426.             end else begin
  17427.               AddItemBag(g_WaitingStoreItem.Item);
  17428.               g_WaitingStoreItem.Item.s.Name := '';
  17429.               g_boItemMoving := False;
  17430.               g_WaitingStoreItem.Owner := nil;
  17431.             end;
  17432.           end else begin
  17433.             g_StoreItems[Idx].Item := g_MovingItem.Item;
  17434.             g_StoreItems[Idx].btSellType := g_MovingItem.Index2;
  17435.             g_MovingItem.Item.s.Name := '';
  17436.             g_boItemMoving := False;
  17437.             g_MovingItem.Owner := nil;
  17438.           end;
  17439.         end;
  17440.       end;
  17441.     end;
  17442.   end;
  17443.   ArrangeItemBag;
  17444. end;

  17446. procedure TFrmDlg.DGUserStoreGridMouseMove(Sender: TObject; ACol,
  17447.   ARow: Integer; Shift: TShiftState);
  17448. var
  17449.   Idx: Integer;
  17450.   iname, d1, d2, d3: string;
  17451.   useable: Boolean;
  17452. begin
  17453.   DScreen.ClearHint;
  17454.   Idx := ACol + ARow * DGUserStore.ColCount;
  17455.   if Idx in [0..14] then begin
  17456.     g_MouseItem := g_StoreRemoteItems[Idx].Item;
  17457.     if g_MouseItem.s.Name <> '' then begin
  17458.       GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  17459.       HintList.AddObject('售价: ' + IntToStr(g_MouseItem.s.Price) + ' ' + GetStorePriceName(g_StoreRemoteItems[Idx].btSellType), TObject(clLime));
  17460.       with DGUserStore do
  17461.         DScreen.ShowHint(SurfaceX(Left + ACol * ColWidth),
  17462.           SurfaceY(Top + (ARow + 1) * RowHeight),
  17463.           HintList, False);
  17464.     end;
  17465.   end;
  17466. end;

  17468. procedure TFrmDlg.DGUserStoreGridPaint(Sender: TObject; ACol,
  17469.   ARow: Integer; Rect: TRect; State: TGridDrawState;
  17470.   dsurface: TTexture);
  17471. var
  17472.   nIdx: Integer;
  17473.   d: TTexture;
  17474. begin
  17475.   nIdx := ACol + ARow * DGUserStore.ColCount;
  17476.   if nIdx in [0..14] then begin
  17477.     if g_StoreRemoteItems[nIdx].Item.s.Name <> '' then begin
  17478.       d := g_WBagItemImages.Images[g_StoreRemoteItems[nIdx].Item.s.looks];
  17479.       if d <> nil then
  17480.         with DGUserStore do begin
  17481.           dsurface.Draw(SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  17482.             SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1),
  17483.             d.ClientRect,
  17484.             d, True);
  17485.         end;

  17487.       if (g_SelectStoreItem.Item.s.Name <> '') and (gdSelected in State) then begin
  17488.         dsurface.FillRectAlpha(g_MoveRect, clGreen, 150);
  17489.       end;

  17491.       with DGUserStore do begin
  17492.         if (g_StoreRemoteItems[nIdx].Item.s.AddValue[12] in [1, 3]) {or (GetAddPoint(g_StoreRemoteItems[nIdx].Item.s.AddPoint))} then begin
  17493.           if GetTickCount - g_DrawStoreRemoteItems[nIdx].dwDrawTick >= 200 then begin
  17494.             g_DrawStoreRemoteItems[nIdx].dwDrawTick := GetTickCount;
  17495.             if g_DrawStoreRemoteItems[nIdx].nIndex <= 0 then g_DrawStoreRemoteItems[nIdx].nIndex := 260 - 1;
  17496.             Inc(g_DrawStoreRemoteItems[nIdx].nIndex);
  17497.             if g_DrawStoreRemoteItems[nIdx].nIndex > 265 then g_DrawStoreRemoteItems[nIdx].nIndex := 260;
  17498.           end;
  17499.           d := g_WMain2Images.Images[g_DrawStoreRemoteItems[nIdx].nIndex];
  17500.           if d <> nil then begin
  17501.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  17502.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  17503.           end;
  17504.         end;

  17506.         if g_StoreRemoteItems[nIdx].Item.s.AddValue[12] >= 2 then begin
  17507.           if GetTickCount - g_DrawStoreRemoteItems_[nIdx].dwDrawTick >= 200 then begin
  17508.             g_DrawStoreRemoteItems_[nIdx].dwDrawTick := GetTickCount;
  17509.             if g_DrawStoreRemoteItems_[nIdx].nIndex <= 0 then g_DrawStoreRemoteItems_[nIdx].nIndex := 600 - 1;
  17510.             Inc(g_DrawStoreRemoteItems_[nIdx].nIndex);
  17511.             if g_DrawStoreRemoteItems_[nIdx].nIndex > 617 then g_DrawStoreRemoteItems_[nIdx].nIndex := 600;
  17512.           end;
  17513.           d := g_WMain3Images.Images[g_DrawStoreRemoteItems_[nIdx].nIndex];
  17514.           if d <> nil then begin
  17515.             DrawBlend(dsurface, SurfaceX(Rect.Left + (ColWidth - d.Width) div 2 - 1),
  17516.               SurfaceY(Rect.Top + (RowHeight - d.Height) div 2 + 1), d);
  17517.           end;
  17518.         end;
  17519.       end;
  17520.     end;

  17522.   end;
  17523. end;

  17525. procedure TFrmDlg.DStoreDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
  17526.   Y: Integer);
  17527. begin
  17528.   DScreen.ClearHint;
  17529. end;

  17531. procedure TFrmDlg.DUserStoreMouseMove(Sender: TObject; Shift: TShiftState;
  17532.   X, Y: Integer);
  17533. begin
  17534.   DScreen.ClearHint;
  17535. end;

  17537. procedure TFrmDlg.DStoreDlgDirectPaint(Sender: TObject;
  17538.   dsurface: TTexture);
  17539. var
  17540.   d: TTexture;
  17541.   sStoreName: string;
  17542.   old: Integer;
  17543. begin
  17544.   with DStoreDlg do begin
  17545.     d := nil;
  17546.     if WLib <> nil then
  17547.       d := WLib.Images[FaceIndex];
  17548.     if d <> nil then
  17549.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17550.     if g_MySelf.m_boStartStore then begin
  17551.       sStoreName := g_MySelf.m_sUserName + '的摊位';
  17552.       with dsurface do begin
  17553.         TextOut(SurfaceX(Left) + 86, SurfaceY(Top) + 56, sStoreName);
  17554.       end;
  17555.     end;
  17556.   end;
  17557. end;

  17559. procedure TFrmDlg.DUserStoreDirectPaint(Sender: TObject;
  17560.   dsurface: TTexture);
  17561. var
  17562.   d: TTexture;
  17563.   old: Integer;
  17564. begin
  17565.   with DUserStore do begin
  17566.     d := nil;
  17567.     if WLib <> nil then
  17568.       d := WLib.Images[FaceIndex];
  17569.     if d <> nil then
  17570.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17571.     if g_sStoreMasterName <> '' then begin
  17572.       with dsurface do begin
  17573.         TextOut(SurfaceX(Left) + 50 + (140 - TextWidth(g_sStoreMasterName)) div 2, SurfaceY(Top) + 26, g_sStoreMasterName);
  17574.       end;
  17575.     end;
  17576.   end;
  17577. end;

  17579. procedure TFrmDlg.DStoreOpenClick(Sender: TObject; X, Y: Integer);
  17580. begin
  17581.   if (GetTickCount - g_dwStartStoreTick > 1000 * 5) and g_boStartStoreing then begin
  17582.     g_boStartStoreing := False;
  17583.   end;

  17585.   if g_MySelf.m_boStartStore or g_boStartStoreing then Exit;
  17586.   if g_boItemMoving then begin
  17587.     DMessageDlg('请先放下移动的物品！', [mbOk]);
  17588.     Exit;
  17589.   end;

  17591.   if GetTickCount - g_dwStartStoreTick > 1000 * 3 then begin
  17592.     g_dwStartStoreTick := GetTickCount;
  17593.     g_boStartStoreing := True;
  17594.     {g_TargetCret := nil;
  17595.     g_FocusCret := nil;
  17596.     g_MagicTarget := nil;  }
  17597.     frmMain.SendStartStore;
  17598.   end;
  17599. end;

  17601. procedure TFrmDlg.DStoreCancelClick(Sender: TObject; X, Y: Integer);
  17602. begin
  17603.   if not g_MySelf.m_boStartStore then Exit;
  17604.   if GetTickCount - g_dwStartStoreTick > 1000 * 3 then begin
  17605.     g_dwStartStoreTick := GetTickCount;
  17606.     frmMain.SendClientMessage(CM_STOPSTORE, g_MySelf.m_nRecogId, 0, 0, 0);
  17607.   end;
  17608. end;

  17610. procedure TFrmDlg.DGUserStoreGridSelect(Sender: TObject; ACol,
  17611.   ARow: Integer; Shift: TShiftState);
  17612. var
  17613.   Idx, Price: Integer;
  17614. begin
  17615.   ClearMoveRect();
  17616.   g_SelectStoreItem.Item.s.Name := '';
  17617.   Idx := ACol + ARow * DGUserStore.ColCount;
  17618.   if Idx in [0..15 - 1] then begin
  17619.     if g_StoreRemoteItems[Idx].Item.s.Name <> '' then begin
  17620.       with DGUserStore do begin
  17621.         g_MoveRect.Left := SurfaceX(Left) + ACol * ColWidth;
  17622.         g_MoveRect.Top := SurfaceY(Top) + ARow * RowHeight;
  17623.         g_MoveRect.Right := g_MoveRect.Left + ColWidth;
  17624.         g_MoveRect.Bottom := g_MoveRect.Top + RowHeight;
  17625.       end;
  17626.       {g_MoveRect := DGUserStore.ClientRect;
  17627.       g_MoveRect.Right := g_MoveRect.Right - 1;
  17628.       g_MoveRect.Top := g_MoveRect.Top + 2;
  17629.       g_MoveRect.Bottom := g_MoveRect.Bottom - 1; }
  17630.       g_SelectStoreItem := g_StoreRemoteItems[Idx];
  17631.     end;
  17632.   end;
  17633. end;

  17635. procedure TFrmDlg.DUserStoreBuyClick(Sender: TObject; X, Y: Integer);
  17636. begin
  17637.   if g_nStoreMasterRecogId = g_MySelf.m_nRecogId then Exit;
  17638.   if g_SelectStoreItem.Item.s.Name <> '' then begin
  17639.     if mrOk = DMessageDlg('是否确实购买' + g_sStoreMasterName + '的 ' + g_SelectStoreItem.Item.s.Name + ' ？', [mbOk, mbCancel]) then begin
  17640.       frmMain.SendBuyStoreItem(g_SelectStoreItem.Item.s.Name, g_SelectStoreItem.Item.MakeIndex, g_nStoreMasterRecogId);
  17641.     end;
  17642.   end;
  17643. end;

  17645. procedure TFrmDlg.DStoreMsgDlgClick(Sender: TObject; X, Y: Integer);
  17646. var
  17647.   nX, nY: Integer;
  17648. begin
  17649.   nX := X - DStoreMsgDlg.Left;
  17650.   nY := Y - DStoreMsgDlg.Top;
  17651.   if (nY >= 25) and (nY <= 45) then begin
  17652.     if (nX >= 22) and (nX <= 105) then DStoreMsgDlg.FaceIndex := 157;
  17653.     if (nX >= 106) and (nX <= 188) then DStoreMsgDlg.FaceIndex := 158;
  17654.     if (nX >= 189) and (nX <= 270) then DStoreMsgDlg.FaceIndex := 159;
  17655.     if (nX >= 271) and (nX <= 354) then DStoreMsgDlg.FaceIndex := 160;
  17656.   end;
  17657. end;

  17659. procedure TFrmDlg.DMainMenuClick(Sender: TObject; X, Y: Integer);
  17660. begin
  17661.   if DMainMenu.DControl <> nil then begin
  17662.     if DMainMenu.DControl is TDEdit then begin
  17663.       case DMainMenu.itemindex of
  17664.         0: TDEdit(DMainMenu.DControl).CutText;
  17665.         1: TDEdit(DMainMenu.DControl).CopyText;
  17666.         2: TDEdit(DMainMenu.DControl).PasteText;
  17667.         3: TDEdit(DMainMenu.DControl).DeleteText;
  17668.         5: TDEdit(DMainMenu.DControl).SelectAll;
  17669.       end;
  17670.     end;
  17671.   end;
  17672. end;

  17674. procedure TFrmDlg.EdIdKeyPress(Sender: TObject; var Key: Char);
  17675. begin
  17676.   if Key = #13 then begin
  17677.     Key := #0;
  17678.     LoginScene.m_sLoginId := LowerCase(EdId.Text);
  17679.     if LoginScene.m_sLoginId <> '' then begin
  17680.       EdPasswd.SetFocus;
  17681.       EdPasswd.SelectAll;
  17682.     end;
  17683.   end else
  17684.     if Key = #9 then begin //VK_TAB
  17685.     Key := #0;
  17686.     EdPasswd.SetFocus;
  17687.     EdPasswd.SelectAll;
  17688.   end;
  17689. end;

  17691. procedure TFrmDlg.EdPasswdKeyPress(Sender: TObject; var Key: Char);
  17692. begin
  17693.   if (Key = '~') or (Key = '''') then Key := '_';
  17694.   if Key = #13 then begin
  17695.     Key := #0;
  17696.     LoginScene.m_sLoginId := LowerCase(EdId.Text);
  17697.     LoginScene.m_sLoginPasswd := EdPasswd.Text;
  17698.     if (LoginScene.m_sLoginId <> '') and (LoginScene.m_sLoginPasswd <> '') then begin
  17699.       frmMain.SendLogin(LoginScene.m_sLoginId, LoginScene.m_sLoginPasswd);
  17700.       EdId.Text := '';
  17701.       EdPasswd.Text := '';
  17702.     end else
  17703.       if (EdId.Visible) and (EdId.Text = '') then EdId.SetFocus;
  17704.   end else
  17705.     if Key = #9 then begin
  17706.     Key := #0;
  17707.     EdId.SetFocus;
  17708.     EdId.SelectAll;
  17709.   end;
  17710. end;

  17712. procedure TFrmDlg.EdChatKeyPress(Sender: TObject; var Key: Char);
  17713. begin
  17714.   if DScreen.CurrentScene = PlayScene then begin
  17715.     if Key = #13 then begin
  17716.       frmMain.SendSay(EdChat.Text);
  17717.       EdChat.Text := '';
  17718.       EdChat.Visible := False;
  17719.       Key := #0;
  17720.     end;
  17721.     if Key = #27 then begin
  17722.       EdChat.Text := '';
  17723.       EdChat.Visible := False;
  17724.       Key := #0;
  17725.     end;
  17726.   end;
  17727. end;

  17729. procedure TFrmDlg.EdDlgEditKeyPress(Sender: TObject; var Key: Char);
  17730. begin
  17731.   if Key = #13 then begin
  17732.     if DMsgDlgOk.Visible then begin
  17733.       DMsgDlgOkClick(DMsgDlgOk, 0, 0);
  17734.     end else
  17735.       if DMsgDlgYes.Visible then begin
  17736.       DMsgDlgOkClick(DMsgDlgYes, 0, 0);
  17737.     end;
  17738.   end;
  17739. end;

  17741. procedure TFrmDlg.EdChatMouseMove(Sender: TObject; Shift: TShiftState; X,
  17742.   Y: Integer);
  17743. begin
  17744.   DScreen.ClearHint;
  17745. end;

  17747. procedure TFrmDlg.DGetBoxItemFlashMouseMove(Sender: TObject;
  17748.   Shift: TShiftState; X, Y: Integer);
  17749. begin
  17750.   g_boGetBoxItemMouseMove := not g_boGetBoxItem;
  17751. { if not g_boGetBoxItem then begin
  17752.     g_boGetBoxItemMouseMove := True;
  17753.     //DScreen.ShowHint(DGetBoxItem.SurfaceX(X), DGetBoxItem.SurfaceY(Y), '试试运气', clLime, False);
  17754.   end;}
  17755.   //Showmessage('TFrmDlg.DGetBoxItemFlashMouseMove');
  17756. end;

  17758. procedure TFrmDlg.DGetBoxItemMouseMove(Sender: TObject; Shift: TShiftState;
  17759.   X, Y: Integer);
  17760. begin
  17761.   g_boGetBoxItemMouseMove := True;
  17762. end;

  17764. procedure TFrmDlg.DGetBoxItemFlashClick(Sender: TObject; X, Y: Integer);
  17765. begin
  17766.   if g_boGetBoxItem then Exit;
  17767.   g_boGetBoxItem := True;
  17768.   PlaySound(s_SelectBoxFlash);
  17769.   frmMain.SendClientMessage(CM_GETSELBOXITEMNUM, 0, 0, 0, 0);
  17770. end;

  17772. procedure TFrmDlg.ShowRandomDlg;
  17773. begin
  17774.   DWRandomCode.Visible := True;
  17775.   DEditRandomCode.Visible := True;
  17776.   DEditRandomCode.Text := '';
  17777.   DEditRandomCode.SetFocus;
  17778. end;

  17780. procedure TFrmDlg.CloseRandomDlg;
  17781. begin
  17782.   DWRandomCode.Visible := False;
  17783.   DEditRandomCode.Visible := False;
  17784. end;

  17786. procedure TFrmDlg.DWRandomCodeDirectPaint(Sender: TObject;
  17787.   dsurface: TTexture);
  17788. var
  17789.   d: TTexture;
  17790.   rc: TRect;
  17791. begin
  17792.   with DWRandomCode do begin
  17793.     d := WLib.Images[FaceIndex];
  17794.     if d <> nil then
  17795.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17796.     rc := g_RandomSurface.ClientRect;
  17797.     rc.Top := rc.Top + 5;
  17798.     dsurface.Draw(SurfaceX(Left) + 40, SurfaceY(Top) + 45, rc, g_RandomSurface, True);
  17799.    // dsurface.StretchDraw(Bounds(SurfaceX(Left) + 35, SurfaceY(Top) + 48, 135, 42), g_RandomSurface.ClientRect, g_RandomSurface, True);
  17800.   end;
  17801. end;

  17803. procedure TFrmDlg.DBRandomCodeOKClick(Sender: TObject; X, Y: Integer);
  17804. var
  17805.   sRandomCode: string;
  17806. begin
  17807.   sRandomCode := Trim(DEditRandomCode.Text);
  17808.   if sRandomCode <> '' then begin
  17809.     frmMain.SendRandomCode(sRandomCode);
  17810.     CloseRandomDlg;
  17811.   end;
  17812. end;

  17814. procedure TFrmDlg.DBRandomCodeChgClick(Sender: TObject; X, Y: Integer);
  17815. begin
  17816.   frmMain.SendGetRandomBuffer();
  17817. end;

  17819. procedure TFrmDlg.DSWWeaponDblClick(Sender: TObject);
  17820. var
  17821.   where: Integer;
  17822. begin
  17823.   if g_MySelf = nil then Exit;
  17824.   if StatePage <> 0 then Exit;
  17825.   if g_boItemMoving or (g_WaitingUseItem.Item.s.Name <> '') then Exit;
  17826.   where := -1;
  17827.   if Sender = DSWDress then where := U_DRESS;
  17828.   if Sender = DSWWeapon then where := U_WEAPON;
  17829.   if Sender = DSWHelmet then where := U_HELMET;
  17830.   if Sender = DSWNecklace then where := U_NECKLACE;
  17831.   if Sender = DSWLight then where := U_RIGHTHAND;
  17832.   if Sender = DSWRingL then where := U_RINGL;
  17833.   if Sender = DSWRingR then where := U_RINGR;
  17834.   if Sender = DSWArmRingL then where := U_ARMRINGL;
  17835.   if Sender = DSWArmRingR then where := U_ARMRINGR;

  17837.   if Sender = DSWBujuk then where := U_BUJUK;
  17838.   if Sender = DSWBelt then where := U_BELT;
  17839.   if Sender = DSWBoots then where := U_BOOTS;
  17840.   if Sender = DSWCharm then where := U_CHARM;

  17842.   if where in [U_DRESS..U_CHARM] then begin
  17843.     if g_UseItems[where].s.Name <> '' then begin
  17844.       ItemClickSound(g_UseItems[where].s);
  17845.       g_WaitingUseItem.Item := g_UseItems[where];
  17846.       g_MovingItem.Index := -(where + 1);
  17847.       g_UseItems[where].s.Name := '';
  17848.       frmMain.SendTakeOffItem(-(g_WaitingUseItem.Index + 1), g_WaitingUseItem.Item.MakeIndex, g_WaitingUseItem.Item.s.Name);
  17849.       ArrangeItemBag;
  17850.     end;
  17851.   end;
  17852. end;

  17854. procedure TFrmDlg.EdChatMouseDown(Sender: TObject; Button: TMouseButton;
  17855.   Shift: TShiftState; X, Y: Integer);
  17856. begin
  17857.   //DScreen.AddChatBoardString('TFrmDlg.EdChatMouseDown', clyellow, clRed);
  17858. end;

  17860. procedure TFrmDlg.DMerchantDlgInRealArea(Sender: TObject; X, Y: Integer;
  17861.   var IsRealArea: Boolean);
  17862. var
  17863.   d: TTexture;
  17864. begin
  17865.   IsRealArea := True;
  17866.   with TDControl(Sender) do begin
  17867.     if WLib <> nil then begin
  17868.       d := WLib.Images[FaceIndex];
  17869.       if d <> nil then begin
  17870.         if d.Pixels[X, Y] = 0 then
  17871.           IsRealArea := False;
  17872.       end;
  17873.     end;
  17874.   end;
  17875. end;

  17877. procedure TFrmDlg.DAdjustAbilOkDirectPaint(Sender: TObject;
  17878.   dsurface: TTexture);
  17879. var
  17880.   d: TTexture;
  17881. begin
  17882.   with Sender as TDButton do begin
  17883.     if Downed then begin
  17884.       d := nil;
  17885.       if WLib <> nil then
  17886.         d := WLib.Images[FaceIndex + 1];
  17887.       if d <> nil then
  17888.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17889.     end else begin
  17890.       d := WLib.Images[FaceIndex];
  17891.       if d <> nil then
  17892.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17893.     end;
  17894.   end;
  17895. end;

  17897. procedure TFrmDlg.DPlusSCDirectPaint(Sender: TObject;
  17898.   dsurface: TTexture);
  17899. var
  17900.   d: TTexture;
  17901. begin
  17902.   with Sender as TDButton do begin
  17903.     if g_nBonusPoint > 0 then begin
  17904.       FaceIndex := 212;
  17905.     end else begin
  17906.       FaceIndex := 216;
  17907.     end;
  17908.     if Downed and (g_nBonusPoint > 0) then begin
  17909.       d := nil;
  17910.       if WLib <> nil then
  17911.         d := WLib.Images[FaceIndex + 1];
  17912.       if d <> nil then
  17913.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17914.     end else begin
  17915.       d := WLib.Images[FaceIndex];
  17916.       if d <> nil then
  17917.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17918.     end;
  17919.   end;
  17920. end;


  17923. procedure TFrmDlg.DMinusSCDirectPaint(Sender: TObject;
  17924.   dsurface: TTexture);
  17925. var
  17926.   d: TTexture;

  17928.   decp: Integer;
  17929.   boDec: Boolean;
  17930. begin
  17931.   boDec := False;
  17932.   with Sender as TDButton do begin
  17933.     if IsKeyPressed(VK_CONTROL) and (g_nBonusPoint - 10 > 0) then decp := 10
  17934.     else decp := 1;
  17935.     if Sender = DMinusDC then
  17936.       if g_BonusAbilChg.DC >= decp then begin
  17937.         boDec := True;
  17938.       end;
  17939.     if Sender = DMinusMC then
  17940.       if g_BonusAbilChg.MC >= decp then begin
  17941.         boDec := True;
  17942.       end;
  17943.     if Sender = DMinusSC then
  17944.       if g_BonusAbilChg.SC >= decp then begin
  17945.         boDec := True;
  17946.       end;
  17947.     if Sender = DMinusAC then
  17948.       if g_BonusAbilChg.AC >= decp then begin
  17949.         boDec := True;
  17950.       end;
  17951.     if Sender = DMinusMAC then
  17952.       if g_BonusAbilChg.MAC >= decp then begin
  17953.         boDec := True;
  17954.       end;
  17955.     if Sender = DMinusHP then
  17956.       if g_BonusAbilChg.HP >= decp then begin
  17957.         boDec := True;
  17958.       end;
  17959.     if Sender = DMinusMP then
  17960.       if g_BonusAbilChg.MP >= decp then begin
  17961.         boDec := True;
  17962.       end;
  17963.     if Sender = DMinusHit then
  17964.       if g_BonusAbilChg.Hit >= decp then begin
  17965.         boDec := True;
  17966.       end;
  17967.     if Sender = DMinusSpeed then
  17968.       if g_BonusAbilChg.Speed >= decp then begin
  17969.         boDec := True;
  17970.       end;

  17972.     if boDec then begin
  17973.       FaceIndex := 214;
  17974.     end else begin
  17975.       FaceIndex := 217;
  17976.     end;

  17978.     if Downed and (boDec) then begin
  17979.       d := nil;
  17980.       if WLib <> nil then
  17981.         d := WLib.Images[FaceIndex + 1];
  17982.       if d <> nil then
  17983.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17984.     end else begin
  17985.       d := WLib.Images[FaceIndex];
  17986.       if d <> nil then
  17987.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  17988.     end;
  17989.   end;
  17990. end;


  17993. procedure TFrmDlg.DMerchantDlgMouseMove(Sender: TObject;
  17994.   Shift: TShiftState; X, Y: Integer);
  17995. begin
  17996.   DScreen.ClearHint;
  17997. end;

  17999. procedure TFrmDlg.DBotCharRankingDirectPaint(Sender: TObject;
  18000.   dsurface: TTexture);
  18001. var
  18002.   d: TTexture;
  18003. begin
  18004.   with Sender as TDButton do begin
  18005.     d := nil;
  18006.     if TDButton(Sender).Downed then begin
  18007.       if WLib <> nil then
  18008.         d := WLib.Images[FaceIndex];
  18009.       if d <> nil then
  18010.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  18011.     end;
  18012.   end;
  18013. end;

  18015. procedure TFrmDlg.RankingPageChanged(Sender: TObject);
  18016. begin
  18017.   RankingPage := -1;
  18018.   if Sender = DBotCharRanking then begin
  18019.     DBotCharRanking.Downed := True;
  18020.     DBotHeroRanking.Downed := False;
  18021.     DBotMasterRanking.Downed := False;

  18023.     DBotHeroActorRanking.Visible := False;
  18024.     DBotHeroWarriorRanking.Visible := False;
  18025.     DBotHeroWizzardRanking.Visible := False;
  18026.     DBotHeroMonkRanking.Visible := False;
  18027.     DBotActorRanking.Visible := True;
  18028.     DBotWarriorRanking.Visible := True;
  18029.     DBotWizzardRanking.Visible := True;
  18030.     DBotMonkRanking.Visible := True;
  18031.     g_nRankingsTablePage := 0;

  18033.   end else
  18034.     if Sender = DBotHeroRanking then begin
  18035.     DBotCharRanking.Downed := False;
  18036.     DBotHeroRanking.Downed := True;
  18037.     DBotMasterRanking.Downed := False;

  18039.     DBotActorRanking.Visible := False;
  18040.     DBotWarriorRanking.Visible := False;
  18041.     DBotWizzardRanking.Visible := False;
  18042.     DBotMonkRanking.Visible := False;
  18043.     DBotHeroActorRanking.Visible := True;
  18044.     DBotHeroWarriorRanking.Visible := True;
  18045.     DBotHeroWizzardRanking.Visible := True;
  18046.     DBotHeroMonkRanking.Visible := True;
  18047.     g_nRankingsTablePage := 1;

  18049.   end else
  18050.     if Sender = DBotMasterRanking then begin
  18051.     DBotCharRanking.Downed := False;
  18052.     DBotHeroRanking.Downed := False;
  18053.     DBotMasterRanking.Downed := True;

  18055.     DBotActorRanking.Visible := False;
  18056.     DBotWarriorRanking.Visible := False;
  18057.     DBotWizzardRanking.Visible := False;
  18058.     DBotMonkRanking.Visible := False;

  18060.     DBotHeroActorRanking.Visible := False;
  18061.     DBotHeroWarriorRanking.Visible := False;
  18062.     DBotHeroWizzardRanking.Visible := False;
  18063.     DBotHeroMonkRanking.Visible := False;
  18064.     g_nRankingsTablePage := 2;

  18066.     RankingPage := 0;
  18067.     FillChar(g_UserMasterRankings, SizeOf(TUserMasterRanking) * 10, #0);
  18068.     frmMain.SendGetRanking(g_nRankingsTablePage, 0, 0);
  18069.   end;
  18070. end;

  18072. procedure TFrmDlg.DRankingDlgDirectPaint(Sender: TObject;
  18073.   dsurface: TTexture);
  18074. var
  18075.   d: TTexture;
  18076.   I, lx, ly, n, old: Integer;
  18077.   CColor: TColor;
  18078. begin
  18079.   with DRankingDlg do begin
  18080.     d := WLib.Images[FaceIndex];
  18081.     if d <> nil then
  18082.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  18083.     if DBotCharRanking.Downed then begin
  18084.       if RankingPage >= 0 then begin
  18085.         d := g_WMain3Images.Images[423];
  18086.         if d <> nil then
  18087.           dsurface.Draw(SurfaceX(Left + 26), SurfaceY(Top + 91), d.ClientRect, d, True);
  18088.         n := 0;

  18090.         with dsurface do begin
  18091.           CColor := clWhite;
  18092.           for I := 0 to Length(g_UserLevelRankings) - 1 do begin
  18093.             if I = RankingSelectLine - 1 then CColor := clyellow else CColor := clWhite;
  18094.             if g_UserLevelRankings[I].sChrName <> '' then begin
  18095.               TextOut(SurfaceX(Left + 52), SurfaceY(Top + 118 + n), IntToStr(g_UserLevelRankings[I].nIndex), CColor);
  18096.               TextOut(SurfaceX(Left + 114), SurfaceY(Top + 118 + n), g_UserLevelRankings[I].sChrName, CColor);
  18097.               TextOut(SurfaceX(Left + 258), SurfaceY(Top + 118 + n), IntToStr(g_UserLevelRankings[I].nLevel), CColor);
  18098.               Inc(n, LISTLINEHEIGHT + 9);
  18099.             end;
  18100.           end;
  18101.         end;
  18102.       end;
  18103.     end else
  18104.       if DBotHeroRanking.Downed then begin
  18105.       if RankingPage >= 0 then begin
  18106.         d := g_WMain3Images.Images[424];
  18107.         if d <> nil then
  18108.           dsurface.Draw(SurfaceX(Left + 26), SurfaceY(Top + 91), d.ClientRect, d, True);
  18109.         n := 0;

  18111.         with dsurface do begin
  18112.           CColor := clWhite;
  18113.           for I := 0 to Length(g_HeroLevelRankings) - 1 do begin
  18114.             if I = RankingSelectLine - 1 then CColor := clyellow else CColor := clWhite;
  18115.             if g_HeroLevelRankings[I].sChrName <> '' then begin
  18116.               TextOut(SurfaceX(Left + 34), SurfaceY(Top + 118 + n), IntToStr(g_HeroLevelRankings[I].nIndex), CColor);
  18117.               TextOut(SurfaceX(Left + 69), SurfaceY(Top + 118 + n), g_HeroLevelRankings[I].sHeroName, CColor);
  18118.               TextOut(SurfaceX(Left + 165), SurfaceY(Top + 118 + n), g_HeroLevelRankings[I].sChrName, CColor);
  18119.               TextOut(SurfaceX(Left + 274), SurfaceY(Top + 118 + n), IntToStr(g_HeroLevelRankings[I].nLevel), CColor);
  18120.               Inc(n, LISTLINEHEIGHT + 9);
  18121.             end;
  18122.           end;
  18123.         end;
  18124.       end;
  18125.     end else
  18126.       if DBotMasterRanking.Downed then begin
  18127.       d := g_WMain3Images.Images[425];
  18128.       if d <> nil then
  18129.         dsurface.Draw(SurfaceX(Left + 26), SurfaceY(Top + 91), d.ClientRect, d, True);

  18131.       n := 0;
  18132.       with dsurface do begin
  18133.         CColor := clWhite;
  18134.         for I := 0 to Length(g_UserMasterRankings) - 1 do begin
  18135.           if I = RankingSelectLine - 1 then CColor := clyellow else CColor := clWhite;
  18136.           if g_UserMasterRankings[I].sChrName <> '' then begin
  18137.             TextOut(SurfaceX(Left + 52), SurfaceY(Top + 118 + n), IntToStr(g_UserMasterRankings[I].nIndex), CColor);
  18138.             TextOut(SurfaceX(Left + 114), SurfaceY(Top + 118 + n), g_UserMasterRankings[I].sChrName, CColor);
  18139.             TextOut(SurfaceX(Left + 258), SurfaceY(Top + 118 + n), IntToStr(g_UserMasterRankings[I].nMasterCount), CColor);
  18140.             Inc(n, LISTLINEHEIGHT + 9);
  18141.           end;
  18142.         end;
  18143.       end;
  18144.     end;
  18145.   end;
  18146. end;

  18148. procedure TFrmDlg.DHeroStMag1Click(Sender: TObject; X, Y: Integer);
  18149. var
  18150.   I, Idx: Integer;
  18151.   selkey: Word;
  18152.   keych: Char;
  18153.   pm: PTClientMagic;
  18154. begin
  18155.   if HeroStatePage = 3 then begin
  18156.     Idx := TDButton(Sender).tag + Heromagtop;
  18157.     if (Idx >= 0) and (Idx < g_HeroMagicList.Count) then begin
  18158.       pm := PTClientMagic(g_HeroMagicList[Idx]);
  18159.       if Ord(pm.Key) = VK_F1 then pm.Key := Chr(0) else pm.Key := Chr(VK_F1);
  18160.       frmMain.SendHeroMagicKeyChange(pm.Def.wMagicId);
  18161.       //ShowMessage(pm.Key);
  18162.     end;
  18163.   end;
  18164. end;

  18166. procedure TFrmDlg.DBotActorRankingDirectPaint(Sender: TObject;
  18167.   dsurface: TTexture);
  18168. var
  18169.   d: TTexture;
  18170. begin
  18171.   with Sender as TDButton do begin
  18172.     d := nil;
  18173.     if TDButton(Sender).Downed then begin
  18174.       if WLib <> nil then
  18175.         d := WLib.Images[FaceIndex + 1];
  18176.     end else begin
  18177.       if WLib <> nil then
  18178.         d := WLib.Images[FaceIndex];
  18179.     end;
  18180.     if d <> nil then
  18181.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  18182.   end;
  18183. end;

  18185. procedure TFrmDlg.DRankingDlgMouseDown(Sender: TObject;
  18186.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  18187. var
  18188.   lx, ly, Idx: Integer;
  18189. begin
  18190.   lx := DRankingDlg.LocalX(X) - DRankingDlg.Left;
  18191.   ly := DRankingDlg.LocalY(Y) - DRankingDlg.Top - DRankingDlg.SurfaceY(97);
  18192.   if (lx >= 55) and (lx <= 300) and (ly >= 0) then begin
  18193.     Idx := ly div (LISTLINEHEIGHT + 9);
  18194.     if Idx <= 10 then begin
  18195.       PlaySound(s_glass_button_click);
  18196.       RankingSelectLine := Idx;

  18198.       if (Button = mbRight) and (RankingSelectLine > 0) then begin
  18199.         if DBotCharRanking.Downed then begin
  18200.           if RankingPage >= 0 then begin
  18201.             SetInputVisible(g_ConfigClient.btMainInterface = 1);
  18202.             EdChat.Visible := True;
  18203.             EdChat.SetFocus;
  18204.             EdChat.Text := '/' + g_UserLevelRankings[RankingSelectLine - 1].sChrName;
  18205.           end;
  18206.         end else
  18207.           if DBotHeroRanking.Downed then begin
  18208.           if RankingPage >= 0 then begin
  18209.             SetInputVisible(g_ConfigClient.btMainInterface = 1);
  18210.             EdChat.Visible := True;
  18211.             EdChat.SetFocus;
  18212.             EdChat.Text := '/' + g_HeroLevelRankings[RankingSelectLine - 1].sChrName;
  18213.           end;
  18214.         end else
  18215.           if DBotMasterRanking.Downed then begin
  18216.           SetInputVisible(g_ConfigClient.btMainInterface = 1);
  18217.           EdChat.Visible := True;
  18218.           EdChat.SetFocus;
  18219.           EdChat.Text := '/' + g_UserMasterRankings[RankingSelectLine - 1].sChrName;
  18220.         end;
  18221.       end;
  18222.     end;
  18223.   end;
  18224. end;

  18226. procedure TFrmDlg.DBotCharRankingClick(Sender: TObject; X, Y: Integer);
  18227. begin
  18228.   RankingPageChanged(Sender);
  18229. end;

  18231. procedure TFrmDlg.DBotActorRankingClick(Sender: TObject; X, Y: Integer);
  18232. begin
  18233.   RankingPage := TDButton(Sender).tag;

  18235.   DBotActorRanking.Visible := False;
  18236.   DBotWarriorRanking.Visible := False;
  18237.   DBotWizzardRanking.Visible := False;
  18238.   DBotMonkRanking.Visible := False;

  18240.   DBotHeroActorRanking.Visible := False;
  18241.   DBotHeroWarriorRanking.Visible := False;
  18242.   DBotHeroWizzardRanking.Visible := False;
  18243.   DBotHeroMonkRanking.Visible := False;

  18245.   SafeFillChar(g_UserLevelRankings, SizeOf(TUserLevelRanking) * 10, #0);
  18246.   SafeFillChar(g_HeroLevelRankings, SizeOf(THeroLevelRanking) * 10, #0);
  18247.   SafeFillChar(g_UserMasterRankings, SizeOf(TUserMasterRanking) * 10, #0);

  18249.   if RankingPage >= 0 then
  18250.     frmMain.SendGetRanking(g_nRankingsTablePage, RankingPage, 0);
  18251. end;

  18253. procedure TFrmDlg.DBotRankingCloseClick(Sender: TObject; X, Y: Integer);
  18254. begin
  18255.   DRankingDlg.Visible := False;
  18256. end;

  18258. procedure TFrmDlg.DBotRankingHomeClick(Sender: TObject; X, Y: Integer);
  18259. begin
  18260.   if (RankingPage >= 0) and (g_nRankingsPage > 0) and (g_nRankingsPageCount > 10) then
  18261.     frmMain.SendGetRanking(g_nRankingsTablePage, RankingPage, 0);
  18262. end;

  18264. procedure TFrmDlg.DBotRankingUpClick(Sender: TObject; X, Y: Integer);
  18265. begin
  18266.   if (RankingPage >= 0) and (g_nRankingsPage > 0) then
  18267.     frmMain.SendGetRanking(g_nRankingsTablePage, RankingPage, _MAX(g_nRankingsPage - 10, 0));
  18268. end;

  18270. procedure TFrmDlg.DBotRankingDownClick(Sender: TObject; X, Y: Integer);
  18271. begin
  18272.   if (RankingPage >= 0) and (g_nRankingsPage + 10 < g_nRankingsPageCount - 1) then
  18273.     frmMain.SendGetRanking(g_nRankingsTablePage, RankingPage, _MIN(g_nRankingsPage + 10, g_nRankingsPageCount - 1));
  18274. end;

  18276. procedure TFrmDlg.DBotRankingLastClick(Sender: TObject; X, Y: Integer);
  18277. begin
  18278.   if (RankingPage >= 0) and (g_nRankingsPageCount > 10) and (g_nRankingsPage < g_nRankingsPageCount - 10) then begin
  18279.     if g_nRankingsPageCount mod 10 = 0 then begin
  18280.       frmMain.SendGetRanking(g_nRankingsTablePage, RankingPage, _MIN(_MAX(g_nRankingsPageCount - 10, 0), g_nRankingsPageCount - 1));
  18281.     end else begin
  18282.       frmMain.SendGetRanking(g_nRankingsTablePage, RankingPage, _MIN(_MAX(g_nRankingsPageCount - g_nRankingsPageCount mod 10, 0), g_nRankingsPageCount - 1));
  18283.     end;
  18284.   end;
  18285. end;

  18287. procedure TFrmDlg.DBotRankingSelfClick(Sender: TObject; X, Y: Integer);
  18288. begin
  18289.   if RankingPage >= 0 then begin
  18290.     g_nRankingsPage := 0;
  18291.     g_nRankingsPageCount := 0;
  18292.     FillChar(g_UserLevelRankings, SizeOf(TUserLevelRanking) * 10, #0);
  18293.     FillChar(g_HeroLevelRankings, SizeOf(THeroLevelRanking) * 10, #0);
  18294.     FillChar(g_UserMasterRankings, SizeOf(TUserMasterRanking) * 10, #0);
  18295.     frmMain.SendGetMyRanking(g_nRankingsTablePage, RankingPage);
  18296.   end;
  18297. end;

  18299. procedure TFrmDlg.DRankingClick(Sender: TObject; X, Y: Integer);
  18300. begin
  18301.   DRankingDlg.Visible := not DRankingDlg.Visible;
  18302. end;

  18304. procedure TFrmDlg.DScrollScrollDirectPaint(Sender: TObject;
  18305.   dsurface: TTexture);
  18306. var
  18307.   d: TTexture;
  18308. begin
  18309.   d := nil;
  18310.   with Sender as TDButton do begin
  18311.     if not Downed then begin
  18312.       if WLib <> nil then
  18313.         d := WLib.Images[FaceIndex]
  18314.     end else begin
  18315.       if WLib <> nil then
  18316.         d := WLib.Images[FaceIndex + 1];
  18317.     end;
  18318.     if d <> nil then begin
  18319.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d);
  18320.     end;
  18321.   end;
  18322. end;

  18324. procedure TFrmDlg.DScrollCenterScrollDirectPaint(Sender: TObject;
  18325.   dsurface: TTexture);
  18326. var
  18327.   d: TTexture;
  18328. begin
  18329.   d := nil;
  18330.   with Sender as TDScroll do begin
  18331.     if VisibleScroll then begin
  18332.       if WLib <> nil then
  18333.         d := WLib.Images[FaceIndex];
  18334.       if d <> nil then begin
  18335.         dsurface.StretchDraw(Bounds(SurfaceX(Left), SurfaceY(Top), Width, Height), d, False);
  18336.       end;
  18337.     end;
  18338.   end;
  18339. end;

  18341. procedure TFrmDlg.DMemoChatClick(Sender: TObject; X, Y: Integer);
  18342.   function ExtractUserName(line: string): string;
  18343.   var
  18344.     uname: string;
  18345.   begin
  18346.     GetValidStr3(line, line, ['(', '!', '*', '/', ')']);
  18347.     GetValidStr3(line, uname, [' ', '=', ':']);
  18348.     if uname <> '' then
  18349.       if (uname[1] = '/') or (uname[1] = '(') or (uname[1] = ' ') or (uname[1] = '[') then
  18350.         uname := '';
  18351.     Result := uname;
  18352.   end;
  18353. begin
  18354. { Showmessage(IntToStr(DMemoChat.ItemIndex));
  18355.   if (DMemoChat.ItemIndex >= 0) and (DMemoChat.ItemIndex < DMemoChat.Count) then begin
  18356.     if not EdChat.Visible then begin
  18357.       SetInputVisible(g_ConfigClient.btMainInterface <> 0);
  18358.       EdChat.Visible := True;
  18359.       EdChat.SetFocus;
  18360.     end;
  18361.     EdChat.Text := '/' + ExtractUserName(DMemoChat.Strings[DMemoChat.ItemIndex]) + ' ';
  18362.     EdChat.SelStart := Length(EdChat.Text);
  18363.     EdChat.SelLength := 0;
  18364.     Showmessage(EdChat.Text);
  18365.   end else EdChat.Text := '';  }
  18366. end;


  18369. procedure TFrmDlg.DItemLabelClick(Sender: TObject; X, Y: Integer);
  18370. var
  18371.   sItemData: string;
  18372.   sName: string;
  18373.   sData: string;
  18374.   nIndex: Integer;
  18375.   ItemLabel: TItemLabel;
  18376. begin
  18377.   nIndex := TDControl(Sender).Idx;
  18378.   if (nIndex = 0) and (GetTickCount - g_dwLatestFindItemTick < 1000) then Exit;

  18380.   case nIndex of
  18381.     0: begin
  18382.         ItemLabel := TItemLabel(Sender);
  18383.         if ItemLabel.ClientItem.s.Name = '' then begin
  18384.           g_dwLatestFindItemTick := GetTickCount;
  18385.           frmMain.SendFindUserItem(Integer(ItemLabel), ItemLabel.TData);
  18386.         end;
  18387.       end;
  18388.     1: begin
  18389.         sItemData := TDLabel(Sender).TData;
  18390.         MediaStartPlay(Trim(sItemData), False, True);
  18391.       end;
  18392.     2: begin
  18393.         sItemData := TDLabel(Sender).TData;
  18394.         BrowserNavigate(Trim(sItemData));
  18395.       end;
  18396.   end;
  18397. end;

  18399. procedure TFrmDlg.DItemLabelMouseMove(Sender: TObject; Shift: TShiftState;
  18400.   X, Y: Integer);
  18401. var
  18402.   iname, d1, d2, d3: string;
  18403.   useable: Boolean;
  18404.   nIndex: Integer;
  18405.   d: TDControl;
  18406.   ItemLabel: TItemLabel;
  18407. begin
  18408.   d := TDControl(Sender);
  18409.   with d do begin
  18410.     case Idx of
  18411.       -1: DScreen.ClearHint;
  18412.       0: begin
  18413.           ItemLabel := TItemLabel(Sender);
  18414.           if (Trim(ItemLabel.ClientItem.s.Name) <> '') {and ItemLabel.GetClientItem} then begin
  18415.             g_MouseItem := ItemLabel.ClientItem;
  18416.             //Move(ClientItem,g_MouseItem,SizeOf(TClientItem));
  18417.             if g_MouseItem.s.Name <> '' then begin
  18418.               GetMouseItemInfo(g_MySelf, @g_MouseItem, iname, d1, d2, d3, useable);
  18419.               //HintList.Insert(0, Caption);
  18420.               if HintList.Count > 0 then begin
  18421.                 DScreen.ShowHint(SurfaceX(Left),
  18422.                   SurfaceY(Top),
  18423.                   HintList, True);
  18424.               end;
  18425.               g_MouseItem.s.Name := '';
  18426.             end;
  18427.           end else begin
  18428.             DScreen.ShowHintA(SurfaceX(Left + Width), SurfaceY(Top) + 16, '点击查询 ' + Caption + ' 的信息', clInfoText, True);
  18429.           end;
  18430.         end;
  18431.       1: DScreen.ShowHintA(SurfaceX(Left + Width), SurfaceY(Top) + 16, '点击播放 ' + Caption, clInfoText, True); //clWhite
  18432.       2: DScreen.ShowHintA(SurfaceX(Left + Width), SurfaceY(Top) + 16, '点击打开 ' + Caption, clInfoText, True);
  18433.     end;
  18434.   end;
  18435. end;

  18437. procedure TFrmDlg.DChatDlgClick(Sender: TObject; X, Y: Integer);
  18438. begin
  18439. //  Showmessage('TFrmDlg.DChatDlgClick:'+IntToStr(DMemoChat.ItemIndex));
  18440. end;

  18442. procedure TFrmDlg.DMemoChatMouseDown(Sender: TObject; Button: TMouseButton;
  18443.   Shift: TShiftState; X, Y: Integer);
  18444.   function ExtractUserName(line: string): string;
  18445.   var
  18446.     uname: string;
  18447.   begin
  18448.     GetValidStr3(line, line, ['(', '!', '*', '/', ')']);
  18449.     GetValidStr3(line, uname, [' ', '=', ':']);
  18450.     if uname <> '' then
  18451.       if (uname[1] = '/') or (uname[1] = '(') or (uname[1] = ' ') or (uname[1] = '[') then
  18452.         uname := '';
  18453.     Result := uname;
  18454.   end;
  18455. var
  18456.   pt: TPoint;
  18457. begin
  18458.   if Button = mbLeft then begin
  18459.   //Showmessage(IntToStr(DMemoChat.ItemIndex));
  18460.     if (DMemoChat.itemindex >= 0) and (DMemoChat.itemindex < DMemoChat.Count) then begin
  18461.       if not EdChat.Visible then begin
  18462.         SetInputVisible(g_ConfigClient.btMainInterface = 1);
  18463.         EdChat.Visible := True;
  18464.         EdChat.SetFocus;
  18465.       end;
  18466.       EdChat.Text := '/' + ExtractUserName(DMemoChat.Strings[DMemoChat.itemindex]) + ' ';
  18467.       EdChat.SelStart := Length(EdChat.Text);
  18468.       EdChat.SelLength := 0;
  18469.     //Self.AddMemoChat(DMemoChat.Strings[DMemoChat.ItemIndex] + ' ItemIndex:' + IntToStr(DMemoChat.ItemIndex), clWhite, clFuchsia);
  18470.     //Self.AddMemoChat('ItemIndex:' + IntToStr(DMemoChat.ItemIndex), clWhite, clFuchsia);
  18471.     //Showmessage(DMemoChat.Strings[DMemoChat.ItemIndex]);
  18472.     end else EdChat.Text := '';
  18473.   end else begin
  18474.     if g_ConfigClient.btMainInterface = 1 then begin
  18475.       GetCursorPos(pt);
  18476.       pt := frmMain.ScreenToClient(pt);
  18477.       frmMain.DXDrawMouseDown_(Button, Shift, pt.X, pt.Y);
  18478.     //DScreen.AddChatBoardString(Format('X:%d, Y:%d, SX:%d, SY:%d',[DMemoChat.SurfaceX(X), DMemoChat.SurfaceY(Y), pt.X, pt.Y]), clyellow, clRed);
  18479.     end;
  18480.   end;
  18481. end;

  18483. procedure TFrmDlg.DButtonTab1DirectPaint(Sender: TObject;
  18484.   dsurface: TTexture);
  18485. var
  18486.   d: TTexture;
  18487. begin
  18488.   with Sender as TDButton do begin
  18489.     if WLib <> nil then begin
  18490.       d := nil;
  18491.       if Downed then begin
  18492.         d := WLib.Images[FaceIndex + 1];
  18493.       end else begin
  18494.         d := WLib.Images[FaceIndex];
  18495.       end;
  18496.       if d <> nil then
  18497.         dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, True);
  18498.     end;
  18499.   end;
  18500. end;

  18502. procedure TFrmDlg.DButtonTab1Click(Sender: TObject; X, Y: Integer);
  18503. begin
  18504.   DConfigDlg.ActivePage := TDButton(Sender).tag;
  18505. end;

  18507. procedure TFrmDlg.DEditSearchItemDirectPaint(Sender: TObject;
  18508.   dsurface: TTexture);
  18509. begin
  18510.   with Sender as TDEdit do
  18511.     if Text = '' then
  18512.       dsurface.TextOut(SurfaceX(Left), SurfaceY(Top) + (Height - dsurface.TextHeight('0')) div 2, '[输入物品关键字查找]', clGray);
  18513. end;

  18515. procedure TFrmDlg.DConfigDlgCloseClick(Sender: TObject; X, Y: Integer);
  18516. begin
  18517.   DOptionClick();
  18518. end;

  18520. procedure TFrmDlg.DBookPageInRealArea(Sender: TObject; X, Y: Integer;
  18521.   var IsRealArea: Boolean);
  18522. begin
  18523.   IsRealArea := True;
  18524. end;

  18526. procedure TFrmDlg.DLabelHeroCallHeroDirectPaint(Sender: TObject;
  18527.   dsurface: TTexture);
  18528. begin
  18529.   with TDLabel(Sender) do
  18530.     if Downed then begin
  18531.       dsurface.FrameRect(Bounds(SurfaceX(Left), SurfaceY(Top), Width, Height), $005894B8);
  18532.       dsurface.FrameRect(Bounds(SurfaceX(Left) + 1, SurfaceY(Top) + 1, Width - 2, Height - 2), $005894B8);
  18533.     end;
  18534. end;

  18536. procedure TFrmDlg.DLabelHeroCallHeroKeyDown(Sender: TObject; var Key: Word;
  18537.   Shift: TShiftState);
  18538. var
  18539.   nKey: Integer;
  18540.   sKey: string;
  18541. begin
  18542.   sKey := GetKeyDownStr(Key, Shift, nKey);
  18543.   if nKey > 0 then begin

  18545.     if (nKey = g_Config.nSerieSkill) then begin
  18546.       g_Config.nSerieSkill := 0;
  18547.       DLabelSerieSkill.Caption := '';
  18548.     end;

  18550.     if (nKey = g_Config.nHeroCallHero) then begin
  18551.       g_Config.nHeroCallHero := 0;
  18552.       DLabelHeroCallHero.Caption := '';
  18553.     end;

  18555.     if (nKey = g_Config.nHeroSetTarget) then begin
  18556.       g_Config.nHeroSetTarget := 0;
  18557.       DLabelHeroSetTarget.Caption := '';
  18558.     end;

  18560.     if (nKey = g_Config.nHeroUnionHit) then begin
  18561.       g_Config.nHeroUnionHit := 0;
  18562.       DLabelHeroUnionHit.Caption := '';
  18563.     end;

  18565.     if (nKey = g_Config.nHeroSetAttackState) then begin
  18566.       g_Config.nHeroSetAttackState := 0;
  18567.       DLabelHeroSetAttackState.Caption := '';
  18568.     end;

  18570.     if (nKey = g_Config.nHeroSetGuard) then begin
  18571.       g_Config.nHeroSetGuard := 0;
  18572.       DLabelHeroSetGuard.Caption := '';
  18573.     end;

  18575.     if (nKey = g_Config.nSwitchAttackMode) then begin
  18576.       g_Config.nSwitchAttackMode := 0;
  18577.       DLabelSwitchAttackMode.Caption := '';
  18578.     end;

  18580.     if (nKey = g_Config.nSwitchMiniMap) then begin
  18581.       g_Config.nSwitchMiniMap := 0;
  18582.       DLabelSwitchMiniMap.Caption := '';
  18583.     end;
  18584.   end;

  18586.   if Sender = DLabelSerieSkill then begin
  18587.     g_Config.nSerieSkill := nKey;
  18588.     DLabelSerieSkill.Caption := sKey;
  18589.   end;
  18590.   if Sender = DLabelHeroCallHero then begin
  18591.     g_Config.nHeroCallHero := nKey;
  18592.     DLabelHeroCallHero.Caption := sKey;
  18593.   end;
  18594.   if Sender = DLabelHeroSetTarget then begin
  18595.     g_Config.nHeroSetTarget := nKey;
  18596.     DLabelHeroSetTarget.Caption := sKey;
  18597.   end;
  18598.   if Sender = DLabelHeroUnionHit then begin
  18599.     g_Config.nHeroUnionHit := nKey;
  18600.     DLabelHeroUnionHit.Caption := sKey;
  18601.   end;
  18602.   if Sender = DLabelHeroSetAttackState then begin
  18603.     g_Config.nHeroSetAttackState := nKey;
  18604.     DLabelHeroSetAttackState.Caption := sKey;
  18605.   end;
  18606.   if Sender = DLabelHeroSetGuard then begin
  18607.     g_Config.nHeroSetGuard := nKey;
  18608.     DLabelHeroSetGuard.Caption := sKey;
  18609.   end;
  18610.   if Sender = DLabelSwitchAttackMode then begin
  18611.     g_Config.nSwitchAttackMode := nKey;
  18612.     DLabelSwitchAttackMode.Caption := sKey;
  18613.   end;
  18614.   if Sender = DLabelSwitchMiniMap then begin
  18615.     g_Config.nSwitchMiniMap := nKey;
  18616.     DLabelSwitchMiniMap.Caption := sKey;
  18617.   end;

  18619.   SaveUserConfig();
  18620. end;

  18622. procedure TFrmDlg.DLabelHeroCallHeroMouseDown(Sender: TObject;
  18623.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  18624. begin
  18625.   if Button = mbRight then begin
  18626.     if Sender = DLabelSerieSkill then begin
  18627.       g_Config.nSerieSkill := 0;
  18628.       DLabelSerieSkill.Caption := '';
  18629.     end;
  18630.     if Sender = DLabelHeroCallHero then begin
  18631.       g_Config.nHeroCallHero := 0;
  18632.       DLabelHeroCallHero.Caption := '';
  18633.     end;
  18634.     if Sender = DLabelHeroSetTarget then begin
  18635.       g_Config.nHeroSetTarget := 0;
  18636.       DLabelHeroSetTarget.Caption := '';
  18637.     end;
  18638.     if Sender = DLabelHeroUnionHit then begin
  18639.       g_Config.nHeroUnionHit := 0;
  18640.       DLabelHeroUnionHit.Caption := '';
  18641.     end;
  18642.     if Sender = DLabelHeroSetAttackState then begin
  18643.       g_Config.nHeroSetAttackState := 0;
  18644.       DLabelHeroSetAttackState.Caption := '';
  18645.     end;
  18646.     if Sender = DLabelHeroSetGuard then begin
  18647.       g_Config.nHeroSetGuard := 0;
  18648.       DLabelHeroSetGuard.Caption := '';
  18649.     end;
  18650.     if Sender = DLabelSwitchAttackMode then begin
  18651.       g_Config.nSwitchAttackMode := 0;
  18652.       DLabelSwitchAttackMode.Caption := '';
  18653.     end;
  18654.     if Sender = DLabelSwitchMiniMap then begin
  18655.       g_Config.nSwitchMiniMap := 0;
  18656.       DLabelSwitchMiniMap.Caption := '';
  18657.     end;
  18658.     SaveUserConfig();
  18659.   end;
  18660. end;

  18662. procedure TFrmDlg.SetConfigDlg();
  18663. var
  18664.   I, II: Integer;
  18665.   //DLabel: TDLabel;
  18666.   DCheckBox: TDCheckBox;
  18667.   ItemList: TStringList;
  18668.   ShowItem: pTShowItem;
  18669.   Shift: TShiftState;
  18670.   nKey: Integer;
  18671. begin
  18672.   if g_MySelf = nil then Exit;

  18674.   DCheckBoxShowActorLable.OnClick := nil;
  18675.   DCheckBoxHideBlueLable.OnClick := nil;
  18676.   DCheckBoxShowNumberLable.OnClick := nil;
  18677.   DCheckBoxShowJobAndLevel.OnClick := nil;
  18678.   DCheckBoxShowUserName.OnClick := nil;
  18679.   DCheckBoxShowMonName.OnClick := nil;
  18680.   DCheckBoxShowItemName.OnClick := nil;
  18681.   DCheckBoxShowMoveNumberLable.OnClick := nil;
  18682.   DCheckBoxShowGreenHint.OnClick := nil;
  18683.   DCheckBoxMagicLock.OnClick := nil;
  18684.   DCheckBoxOrderItem.OnClick := nil;
  18685.   DCheckBoxMagicLock.OnClick := nil;
  18686.   DCheckBoxCloseGroup.OnClick := nil;
  18687.   DCheckBoxItemDuraHint.OnClick := nil;
  18688.   DCheckBoxNotNeedShift.OnClick := nil;
  18689.   DCheckBoxAutoHorse.OnClick := nil;
  18690.   DCheckBoxPickUpItemAll.OnClick := nil;
  18691.   DCheckBoxOnlyShowCharName.OnClick := nil;
  18692.   DCheckBoxItemHint.OnClick := nil;

  18694.   DCheckBoxBook.OnClick := nil;
  18695.   DCheckBoxClose.OnClick := nil;

  18697.   DCheckBoxHeroLogOut.OnClick := nil;


  18700.   DCheckBoxLongHit.OnClick := nil;
  18701.   DCheckBoxWideHit.OnClick := nil;
  18702.   DCheckBoxFireHit.OnClick := nil;
  18703.   DCheckBoxSWideHit.OnClick := nil;
  18704.   DCheckBoxCrsHit.OnClick := nil;
  18705.   DCheckBoxKtHit.OnClick := nil;
  18706.   DCheckBoxPok.OnClick := nil;
  18707.   DCheckBoxShield.OnClick := nil;
  18708.   DCheckBoxWjzq.OnClick := nil;
  18709.   DCheckBoxSmartWalkLongHit.OnClick := nil;
  18710.   DCheckBoxSmartPosLongHit.OnClick := nil;
  18711.   DCheckBoxStruckShield.OnClick := nil;
  18712.   DCheckBoxAutoHideSelf.OnClick := nil;
  18713.   DCheckBoxAutoUseMagic.OnClick := nil;
  18714.   DCheckBoxUseKey.OnClick := nil;
  18715.   DCheckBoxSign.OnClick := nil;
  18716.   DCheckBoxPoison.OnClick := nil;
  18717.   DCheckBoxGuaji.OnClick := nil;


  18720.   DEditBookHP.OnChange := nil;
  18721.   DEditCloseHP.OnChange := nil;

  18723.   DEditHeroLogOutHP.OnChange := nil;
  18724.   DEditBookTime.OnChange := nil;
  18725.   DEditCloseTime.OnChange := nil;

  18727.   DEditHeroLogOutTime.OnChange := nil;

  18729.   DEditAutoUseMagicTime.OnChange := nil;



  18733.   DCheckBoxHumHP1.OnClick := nil;
  18734.   DCheckBoxHumMP1.OnClick := nil;
  18735.   DCheckBoxHumHP2.OnClick := nil;
  18736.   DCheckBoxHumMP2.OnClick := nil;

  18738.   DCheckBoxHeroHP1.OnClick := nil;
  18739.   DCheckBoxHeroMP1.OnClick := nil;
  18740.   DCheckBoxHeroHP2.OnClick := nil;
  18741.   DCheckBoxHeroMP2.OnClick := nil;


  18744.   DEditHumHPPercent1.OnChange := nil;
  18745.   DEditHumMPPercent1.OnChange := nil;
  18746.   DEditHumHPPercent2.OnChange := nil;
  18747.   DEditHumMPPercent2.OnChange := nil;

  18749.   DEditHeroHPPercent1.OnChange := nil;
  18750.   DEditHeroMPPercent1.OnChange := nil;
  18751.   DEditHeroHPPercent2.OnChange := nil;
  18752.   DEditHeroMPPercent2.OnChange := nil;

  18754.   DEditHumHPTime1.OnChange := nil;
  18755.   DEditHumMPTime1.OnChange := nil;
  18756.   DEditHumHPTime2.OnChange := nil;
  18757.   DEditHumMPTime2.OnChange := nil;

  18759.   DEditHeroHPTime1.OnChange := nil;
  18760.   DEditHeroMPTime1.OnChange := nil;
  18761.   DEditHeroHPTime2.OnChange := nil;
  18762.   DEditHeroMPTime2.OnChange := nil;

  18764.   DComboboxHumHP1.OnChange := nil;
  18765.   DComboboxHumMP1.OnChange := nil;
  18766.   DComboboxHumHP2.OnChange := nil;
  18767.   DComboboxHumMP2.OnChange := nil;

  18769.   DComboboxHeroHP1.OnChange := nil;
  18770.   DComboboxHeroMP1.OnChange := nil;
  18771.   DComboboxHeroHP2.OnChange := nil;
  18772.   DComboboxHeroMP2.OnChange := nil;




  18777.   DCheckBoxShowActorLable.Checked := g_Config.boShowActorLable;
  18778.   DCheckBoxHideBlueLable.Checked := g_Config.boHideBlueLable;
  18779.   DCheckBoxShowNumberLable.Checked := g_Config.boShowNumberLable;
  18780.   DCheckBoxShowJobAndLevel.Checked := g_Config.boShowJobAndLevel;
  18781.   DCheckBoxShowUserName.Checked := g_Config.boShowUserName;
  18782.   DCheckBoxShowMonName.Checked := g_Config.boShowMonName;
  18783.   DCheckBoxShowMoveNumberLable.Checked := g_Config.boShowMoveLable;
  18784.   DCheckBoxShowGreenHint.Checked := g_Config.boShowGreenHint;
  18785.   DCheckBoxMusic.Checked := g_Config.boBGSound;
  18786.   DCheckBoxMagicLock.Checked := g_Config.boMagicLock;
  18787.   DCheckBoxOrderItem.Checked := g_Config.boOrderItem;
  18788.   DCheckBoxMagicLock.Checked := g_Config.boMagicLock;
  18789.   DCheckBoxCloseGroup.Checked := g_Config.boCloseGroup;
  18790.   DCheckBoxItemDuraHint.Checked := g_Config.boDuraWarning;
  18791.   DCheckBoxNotNeedShift.Checked := g_Config.boNotNeedShift;
  18792.   DCheckBoxAutoHorse.Checked := g_Config.boAutoHorse;
  18793.   DCheckBoxCompareItem.Checked := g_Config.boCompareItem;

  18795.   DCheckBoxPickUpItemAll.Checked := g_Config.boPickUpItemAll;
  18796.   DCheckBoxShowItemName.Checked := g_Config.boShowItemName;
  18797.   DCheckBoxOnlyShowCharName.Checked := g_Config.boOnlyShowCharName;
  18798.   //DCheckBoxPickItem.Enabled := False;
  18799.   DCheckBoxItemHint.Checked := g_Config.boItemHint;


  18802.   DCheckBoxBook.Checked := g_Config.boRenewBookIsAuto;
  18803.   DCheckBoxClose.Checked := g_Config.boRenewCloseIsAuto;
  18804.   DCheckBoxHeroLogOut.Checked := g_Config.boRenewHeroLogOutIsAuto;



  18808.   DEditBookHP.Text := IntToStr(g_Config.nRenewBookPercent);
  18809.   DEditCloseHP.Text := IntToStr(g_Config.nRenewClosePercent);
  18810.   DEditHeroLogOutHP.Text := IntToStr(g_Config.nRenewHeroLogOutPercent);


  18813.   DEditBookTime.Text := IntToStr(g_Config.nRenewBookTime);
  18814.   DEditCloseTime.Text := IntToStr(g_Config.nRenewCloseTime);
  18815.   DEditHeroLogOutTime.Text := IntToStr(g_Config.nRenewHeroLogOutTime);



  18819.   DCheckBoxHumHP1.Checked := g_Config.boRenewHumHPIsAuto1;
  18820.   DCheckBoxHumMP1.Checked := g_Config.boRenewHumMPIsAuto1;
  18821.   DCheckBoxHumHP2.Checked := g_Config.boRenewHumHPIsAuto2;
  18822.   DCheckBoxHumMP2.Checked := g_Config.boRenewHumMPIsAuto2;

  18824.   DCheckBoxHeroHP1.Checked := g_Config.boRenewHeroHPIsAuto1;
  18825.   DCheckBoxHeroMP1.Checked := g_Config.boRenewHeroMPIsAuto1;
  18826.   DCheckBoxHeroHP2.Checked := g_Config.boRenewHeroHPIsAuto2;
  18827.   DCheckBoxHeroMP2.Checked := g_Config.boRenewHeroMPIsAuto2;


  18830.   DEditHumHPPercent1.Text := IntToStr(g_Config.nRenewHumHPPercent1);
  18831.   DEditHumMPPercent1.Text := IntToStr(g_Config.nRenewHumMPPercent1);
  18832.   DEditHumHPPercent2.Text := IntToStr(g_Config.nRenewHumHPPercent2);
  18833.   DEditHumMPPercent2.Text := IntToStr(g_Config.nRenewHumMPPercent2);

  18835.   DEditHeroHPPercent1.Text := IntToStr(g_Config.nRenewHeroHPPercent1);
  18836.   DEditHeroMPPercent1.Text := IntToStr(g_Config.nRenewHeroMPPercent1);
  18837.   DEditHeroHPPercent2.Text := IntToStr(g_Config.nRenewHeroHPPercent2);
  18838.   DEditHeroMPPercent2.Text := IntToStr(g_Config.nRenewHeroMPPercent2);

  18840.   DEditHumHPTime1.Text := IntToStr(g_Config.nRenewHumHPTime1);
  18841.   DEditHumMPTime1.Text := IntToStr(g_Config.nRenewHumMPTime1);
  18842.   DEditHumHPTime2.Text := IntToStr(g_Config.nRenewHumHPTime2);
  18843.   DEditHumMPTime2.Text := IntToStr(g_Config.nRenewHumMPTime2);

  18845.   DEditHeroHPTime1.Text := IntToStr(g_Config.nRenewHeroHPTime1);
  18846.   DEditHeroMPTime1.Text := IntToStr(g_Config.nRenewHeroMPTime1);
  18847.   DEditHeroHPTime2.Text := IntToStr(g_Config.nRenewHeroHPTime2);
  18848.   DEditHeroMPTime2.Text := IntToStr(g_Config.nRenewHeroMPTime2);


  18851.   DComboboxHumHP1.ItemIndex := g_Config.nRenewHumHPIndex1;
  18852.   DComboboxHumMP1.ItemIndex := g_Config.nRenewHumMPIndex1;
  18853.   DComboboxHumHP2.ItemIndex := g_Config.nRenewHumHPIndex2;
  18854.   DComboboxHumMP2.ItemIndex := g_Config.nRenewHumMPIndex2;

  18856.   DComboboxHeroHP1.ItemIndex := g_Config.nRenewHeroHPIndex1;
  18857.   DComboboxHeroMP1.ItemIndex := g_Config.nRenewHeroMPIndex1;
  18858.   DComboboxHeroHP2.ItemIndex := g_Config.nRenewHeroHPIndex2;
  18859.   DComboboxHeroMP2.ItemIndex := g_Config.nRenewHeroMPIndex2;



  18863.   DCheckBoxLongHit.Checked := g_Config.boSmartLongHit;
  18864.   DCheckBoxWideHit.Checked := g_Config.boSmartWideHit;
  18865.   DCheckBoxFireHit.Checked := g_Config.boSmartFireHit;
  18866.   DCheckBoxSWideHit.Checked := g_Config.boSmartSWordHit;
  18867.   DCheckBoxCrsHit.Checked := g_Config.boSmartCrsHit;
  18868.   DCheckBoxKtHit.Checked := g_Config.boSmartKaitHit;
  18869.   DCheckBoxPok.Checked := g_Config.boSmartPokHit;

  18871.   DCheckBoxShield.Checked := g_Config.boSmartShield;
  18872.   DCheckBoxWjzq.Checked := g_Config.boSmartWjzq;
  18873.   DCheckBoxStruckShield.Checked := g_Config.boStruckShield;
  18874.   DCheckBoxAutoHideSelf.Checked := g_Config.boAutoHideMode;


  18877.   DCheckBoxSmartWalkLongHit.Checked := g_Config.boSmartWalkLongHit;
  18878.   DCheckBoxSmartPosLongHit.Checked := g_Config.boSmartPosLongHit;

  18880.   DCheckBoxAutoUseMagic.Checked := g_Config.boAutoUseMagic;
  18881.   DEditAutoUseMagicTime.Text := IntToStr(g_Config.nAutoUseMagicTime);


  18884.   DCheckBoxSign.Checked := g_Config.boChangeSign;
  18885.   DCheckBoxPoison.Checked := g_Config.boChangePoison;
  18886.   DComboboxPoison.ItemIndex := g_Config.nPoisonIndex;

  18888.   DCheckBoxGuaji.Checked := g_Config.boGuaji;

  18890.   DCheckBoxUseKey.Checked := g_Config.boUseHotkey;
  18891.   DLabelSerieSkill.Idx := g_Config.nSerieSkill;
  18892.   DLabelHeroCallHero.Idx := g_Config.nHeroCallHero;
  18893.   DLabelHeroSetTarget.Idx := g_Config.nHeroSetTarget;
  18894.   DLabelHeroUnionHit.Idx := g_Config.nHeroUnionHit;
  18895.   DLabelHeroSetAttackState.Idx := g_Config.nHeroSetAttackState;
  18896.   DLabelHeroSetGuard.Idx := g_Config.nHeroSetGuard;
  18897.   DLabelSwitchAttackMode.Idx := g_Config.nSwitchAttackMode;
  18898.   DLabelSwitchMiniMap.Idx := g_Config.nSwitchMiniMap;

  18900.   DComboboxBookIndex.ItemIndex := g_Config.nRenewBookNowBookIndex;
  18901.   DComboboxBookIndex.Text := g_Config.sRenewBookNowBookItem;
  18902.   DComboboxAutoUseMagic.ItemIndex := g_Config.nAutoUseMagicIdx;

  18904.   nKey := GetInputKey(g_Config.nSerieSkill, Shift);
  18905.   DLabelSerieSkill.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18907.   nKey := GetInputKey(g_Config.nHeroCallHero, Shift);
  18908.   DLabelHeroCallHero.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18910.   nKey := GetInputKey(g_Config.nHeroSetTarget, Shift);
  18911.   DLabelHeroSetTarget.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18913.   nKey := GetInputKey(g_Config.nHeroUnionHit, Shift);
  18914.   DLabelHeroUnionHit.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18916.   nKey := GetInputKey(g_Config.nHeroSetAttackState, Shift);
  18917.   DLabelHeroSetAttackState.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18919.   nKey := GetInputKey(g_Config.nHeroSetGuard, Shift);
  18920.   DLabelHeroSetGuard.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18922.   nKey := GetInputKey(g_Config.nSwitchAttackMode, Shift);
  18923.   DLabelSwitchAttackMode.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18925.   nKey := GetInputKey(g_Config.nSwitchMiniMap, Shift);
  18926.   DLabelSwitchMiniMap.Caption := GetKeyDownStr(nKey, Shift, nKey);

  18928.   for I := 0 to DMemoTab2.Count - 1 do begin
  18929.     ItemList := DMemoTab2.Items[I];
  18930.     //for II := 1 to ItemList.Count - 1 do begin
  18931.     DCheckBox := TDCheckBox(ItemList.Objects[1]);
  18932.     DCheckBox.Checked := pTShowItem(DCheckBox.data).boHintMsg;

  18934.     DCheckBox := TDCheckBox(ItemList.Objects[2]);
  18935.     DCheckBox.Checked := pTShowItem(DCheckBox.data).boPickup;

  18937.     DCheckBox := TDCheckBox(ItemList.Objects[3]);
  18938.     DCheckBox.Checked := pTShowItem(DCheckBox.data).boShowName;
  18939.     //end;
  18940.   end;

  18942.   DCheckBoxShowActorLable.OnClick := DCheckBoxShowActorLableClick;
  18943.   DCheckBoxHideBlueLable.OnClick := DCheckBoxShowActorLableClick;
  18944.   DCheckBoxShowNumberLable.OnClick := DCheckBoxShowActorLableClick;
  18945.   DCheckBoxShowJobAndLevel.OnClick := DCheckBoxShowActorLableClick;
  18946.   DCheckBoxShowUserName.OnClick := DCheckBoxShowActorLableClick;
  18947.   DCheckBoxShowMonName.OnClick := DCheckBoxShowActorLableClick;
  18948.   DCheckBoxShowItemName.OnClick := DCheckBoxShowActorLableClick;
  18949.   DCheckBoxShowMoveNumberLable.OnClick := DCheckBoxShowActorLableClick;
  18950.   DCheckBoxShowGreenHint.OnClick := DCheckBoxShowActorLableClick;
  18951.   DCheckBoxMagicLock.OnClick := DCheckBoxShowActorLableClick;
  18952.   DCheckBoxOrderItem.OnClick := DCheckBoxShowActorLableClick;
  18953.   DCheckBoxMagicLock.OnClick := DCheckBoxShowActorLableClick;
  18954.   DCheckBoxCloseGroup.OnClick := DCheckBoxShowActorLableClick;
  18955.   DCheckBoxItemDuraHint.OnClick := DCheckBoxShowActorLableClick;
  18956.   DCheckBoxNotNeedShift.OnClick := DCheckBoxShowActorLableClick;
  18957.   DCheckBoxAutoHorse.OnClick := DCheckBoxShowActorLableClick;
  18958.   DCheckBoxPickUpItemAll.OnClick := DCheckBoxShowActorLableClick;
  18959.   DCheckBoxOnlyShowCharName.OnClick := DCheckBoxShowActorLableClick;
  18960.   DCheckBoxItemHint.OnClick := DCheckBoxShowActorLableClick;

  18962.   DCheckBoxBook.OnClick := DCheckBoxShowActorLableClick;
  18963.   DCheckBoxClose.OnClick := DCheckBoxShowActorLableClick;
  18964.   DCheckBoxHeroLogOut.OnClick := DCheckBoxShowActorLableClick;

  18966.   DCheckBoxLongHit.OnClick := DCheckBoxShowActorLableClick;
  18967.   DCheckBoxWideHit.OnClick := DCheckBoxShowActorLableClick;
  18968.   DCheckBoxFireHit.OnClick := DCheckBoxShowActorLableClick;
  18969.   DCheckBoxSWideHit.OnClick := DCheckBoxShowActorLableClick;
  18970.   DCheckBoxCrsHit.OnClick := DCheckBoxShowActorLableClick;
  18971.   DCheckBoxKtHit.OnClick := DCheckBoxShowActorLableClick;
  18972.   DCheckBoxPok.OnClick := DCheckBoxShowActorLableClick;
  18973.   DCheckBoxShield.OnClick := DCheckBoxShowActorLableClick;
  18974.   DCheckBoxWjzq.OnClick := DCheckBoxShowActorLableClick;
  18975.   DCheckBoxSmartWalkLongHit.OnClick := DCheckBoxShowActorLableClick;
  18976.   DCheckBoxSmartPosLongHit.OnClick := DCheckBoxShowActorLableClick;
  18977.   DCheckBoxStruckShield.OnClick := DCheckBoxShowActorLableClick;
  18978.   DCheckBoxAutoHideSelf.OnClick := DCheckBoxShowActorLableClick;
  18979.   DCheckBoxAutoUseMagic.OnClick := DCheckBoxShowActorLableClick;
  18980.   DCheckBoxUseKey.OnClick := DCheckBoxShowActorLableClick;
  18981.   DCheckBoxSign.OnClick := DCheckBoxShowActorLableClick;
  18982.   DCheckBoxPoison.OnClick := DCheckBoxShowActorLableClick;
  18983.   DCheckBoxGuaji.OnClick := DCheckBoxShowActorLableClick;


  18986.   DEditBookHP.OnChange := DEditSpecialHPChange;
  18987.   DEditCloseHP.OnChange := DEditSpecialHPChange;

  18989.   DEditHeroLogOutHP.OnChange := DEditSpecialHPChange;

  18991.   DEditBookTime.OnChange := DEditSpecialHPChange;
  18992.   DEditCloseTime.OnChange := DEditSpecialHPChange;

  18994.   DEditHeroLogOutTime.OnChange := DEditSpecialHPChange;

  18996.   DEditAutoUseMagicTime.OnChange := DEditSpecialHPChange;


  18999.   DCheckBoxHumHP1.OnClick := DCheckBoxShowActorLableClick;
  19000.   DCheckBoxHumMP1.OnClick := DCheckBoxShowActorLableClick;
  19001.   DCheckBoxHumHP2.OnClick := DCheckBoxShowActorLableClick;
  19002.   DCheckBoxHumMP2.OnClick := DCheckBoxShowActorLableClick;

  19004.   DCheckBoxHeroHP1.OnClick := DCheckBoxShowActorLableClick;
  19005.   DCheckBoxHeroMP1.OnClick := DCheckBoxShowActorLableClick;
  19006.   DCheckBoxHeroHP2.OnClick := DCheckBoxShowActorLableClick;
  19007.   DCheckBoxHeroMP2.OnClick := DCheckBoxShowActorLableClick;


  19010.   DEditHumHPPercent1.OnChange := DEditSpecialHPChange;
  19011.   DEditHumMPPercent1.OnChange := DEditSpecialHPChange;
  19012.   DEditHumHPPercent2.OnChange := DEditSpecialHPChange;
  19013.   DEditHumMPPercent2.OnChange := DEditSpecialHPChange;

  19015.   DEditHeroHPPercent1.OnChange := DEditSpecialHPChange;
  19016.   DEditHeroMPPercent1.OnChange := DEditSpecialHPChange;
  19017.   DEditHeroHPPercent2.OnChange := DEditSpecialHPChange;
  19018.   DEditHeroMPPercent2.OnChange := DEditSpecialHPChange;

  19020.   DEditHumHPTime1.OnChange := DEditSpecialHPChange;
  19021.   DEditHumMPTime1.OnChange := DEditSpecialHPChange;
  19022.   DEditHumHPTime2.OnChange := DEditSpecialHPChange;
  19023.   DEditHumMPTime2.OnChange := DEditSpecialHPChange;

  19025.   DEditHeroHPTime1.OnChange := DEditSpecialHPChange;
  19026.   DEditHeroMPTime1.OnChange := DEditSpecialHPChange;
  19027.   DEditHeroHPTime2.OnChange := DEditSpecialHPChange;
  19028.   DEditHeroMPTime2.OnChange := DEditSpecialHPChange;


  19031.   DComboboxHumHP1.OnChange := DComboboxHumHP1Change;
  19032.   DComboboxHumMP1.OnChange := DComboboxHumMP1Change;
  19033.   DComboboxHumHP2.OnChange := DComboboxHumHP2Change;
  19034.   DComboboxHumMP2.OnChange := DComboboxHumMP2Change;

  19036.   DComboboxHeroHP1.OnChange := DComboboxHeroHP1Change;
  19037.   DComboboxHeroMP1.OnChange := DComboboxHeroMP1Change;
  19038.   DComboboxHeroHP2.OnChange := DComboboxHeroHP2Change;
  19039.   DComboboxHeroMP2.OnChange := DComboboxHeroMP2Change;
  19040. end;

  19042. procedure TFrmDlg.DMemoChatMouseMove(Sender: TObject; Shift: TShiftState;
  19043.   X, Y: Integer);
  19044. var
  19045.   pt: TPoint;
  19046. begin
  19047.   if ssRight in Shift then begin
  19048.     GetCursorPos(pt);
  19049.     pt := frmMain.ScreenToClient(pt);
  19050.     frmMain.DXDrawMouseMove_(mbRight, Shift, pt.X, pt.Y);
  19051.   end else
  19052.     if (ssLeft in Shift) and (g_ConfigClient.btMainInterface = 1) then begin
  19053.     {DEdChat.Left:=DEdChat.SurfaceX(X);
  19054.     CharMove();}
  19055.   end;
  19056. end;

  19058. procedure TFrmDlg.DMemoChatDirectPaint(Sender: TObject;
  19059.   dsurface: TTexture);
  19060. begin
  19061.   if g_ConfigClient.btMainInterface = 1 then begin
  19062.     with TDControl(Sender) do
  19063.       dsurface.FillRectAlpha(Bounds(SurfaceX(Left), SurfaceY(Top), Width, Height), $00608490, 150); //$005894B8
  19064.   end;
  19065. end;

  19067. procedure TFrmDlg.DComboboxItemTypeChange(Sender: TObject);
  19068. var
  19069.   I, II, nTop: Integer;
  19070.   DLabel: TDLabel;
  19071.   DCheckBox: TDCheckBox;
  19072.   ItemList: TStringList;
  19073.   ShowItem: pTShowItem;
  19074.   ItemType: TItemType;
  19075. begin
  19076.   if DEditSearchItem.Text <> '' then Exit;
  19077.   if DComboboxItemType.ItemIndex <= 0 then begin
  19078.     ItemType := i_All;
  19079.   end else begin
  19080.     ItemType := TItemType(DComboboxItemType.ItemIndex - 1);
  19081.   end;
  19082.   nTop := 1;
  19083.   DScrollTab2.First;
  19084.   for I := 0 to DMemoTab2.Count - 1 do begin
  19085.     ItemList := DMemoTab2.Items[I];
  19086.     ShowItem := TLines(ItemList).data;
  19087.     if (ShowItem.ItemType = ItemType) or (ItemType = i_All) then begin
  19088.       DLabel := TDLabel(ItemList.Objects[0]);
  19089.       DLabel.Top := nTop;
  19090.       DLabel.Visible := True;

  19092.       DCheckBox := TDCheckBox(ItemList.Objects[1]);
  19093.       DCheckBox.Top := nTop;
  19094.       DCheckBox.Checked := pTShowItem(DCheckBox.data).boHintMsg;
  19095.       DCheckBox.Visible := True;

  19097.       DCheckBox := TDCheckBox(ItemList.Objects[2]);
  19098.       DCheckBox.Top := nTop;
  19099.       DCheckBox.Checked := pTShowItem(DCheckBox.data).boPickup;
  19100.       DCheckBox.Visible := True;

  19102.       DCheckBox := TDCheckBox(ItemList.Objects[3]);
  19103.       DCheckBox.Top := nTop;
  19104.       DCheckBox.Checked := pTShowItem(DCheckBox.data).boShowName;
  19105.       DCheckBox.Visible := True;

  19107.       TLines(ItemList).GetHeight;
  19108.       TLines(ItemList).Visible := True;
  19109.       Inc(nTop, 17);
  19110.     end else begin
  19111.       TLines(ItemList).Visible := False;
  19112.       for II := 0 to ItemList.Count - 1 do begin
  19113.         TDControl(ItemList.Objects[II]).Visible := False;
  19114.       end;
  19115.     end;
  19116.   end;

  19118.   DScrollTab2.Max := DMemoTab2.MaxHeight;
  19119. end;

  19121. procedure TFrmDlg.DLabelOptionClick(Sender: TObject; X, Y: Integer);
  19122. var
  19123.   I: Integer;
  19124.   DCheckBox: TDCheckBox;
  19125.   ItemList: TStringList;
  19126.   ShowItem: pTShowItem;
  19127. begin
  19128.   if mrOk = FrmDlg.DMessageDlg('你想恢复成系统默认设置吗 ?', [mbOk, mbCancel]) then begin
  19129.     g_ShowItemList.BackUp;
  19130.     for I := 0 to DMemoTab2.Count - 1 do begin
  19131.       ItemList := DMemoTab2.Items[I];

  19133.       DCheckBox := TDCheckBox(ItemList.Objects[1]);
  19134.       DCheckBox.Checked := pTShowItem(DCheckBox.data).boHintMsg;

  19136.       DCheckBox := TDCheckBox(ItemList.Objects[2]);
  19137.       DCheckBox.Checked := pTShowItem(DCheckBox.data).boPickup;

  19139.       DCheckBox := TDCheckBox(ItemList.Objects[3]);
  19140.       DCheckBox.Checked := pTShowItem(DCheckBox.data).boShowName;
  19141.     end;
  19142.     g_ShowItemList.SaveToFile;
  19143.   end;
  19144. end;

  19146. procedure TFrmDlg.DDCheckBoxHintClick(Sender: TObject; X, Y: Integer);
  19147. var
  19148.   DCheckBox: TDCheckBox;
  19149.   ShowItem: pTShowItem;
  19150. begin
  19151.   DCheckBox := TDCheckBox(Sender);
  19152.   ShowItem := DCheckBox.data;
  19153.   ShowItem.boHintMsg := DCheckBox.Checked;
  19154.   g_ShowItemList.SaveToFile;
  19155. end;

  19157. procedure TFrmDlg.DDCheckBoxPickupClick(Sender: TObject; X, Y: Integer);
  19158. var
  19159.   DCheckBox: TDCheckBox;
  19160.   ShowItem: pTShowItem;
  19161. begin
  19162.   DCheckBox := TDCheckBox(Sender);
  19163.   ShowItem := DCheckBox.data;
  19164.   ShowItem.boPickup := DCheckBox.Checked;
  19165.   g_ShowItemList.SaveToFile;
  19166. end;

  19168. procedure TFrmDlg.DDCheckBoxShowNameClick(Sender: TObject; X, Y: Integer);
  19169. var
  19170.   DCheckBox: TDCheckBox;
  19171.   ShowItem: pTShowItem;
  19172. begin
  19173.   DCheckBox := TDCheckBox(Sender);
  19174.   ShowItem := DCheckBox.data;
  19175.   ShowItem.boShowName := DCheckBox.Checked;
  19176.   g_ShowItemList.SaveToFile;
  19177. end;

  19179. procedure TFrmDlg.DCheckBoxShowActorLableClick(Sender: TObject; X,
  19180.   Y: Integer);
  19181. begin
  19182.   if (g_MySelf = nil) or (not g_boLoadUserConfig) then Exit;
  19183.   if Sender = DCheckBoxShowActorLable then
  19184.     g_Config.boShowActorLable := DCheckBoxShowActorLable.Checked;
  19185.   if Sender = DCheckBoxHideBlueLable then
  19186.     g_Config.boHideBlueLable := DCheckBoxHideBlueLable.Checked;
  19187.   if Sender = DCheckBoxShowNumberLable then
  19188.     g_Config.boShowNumberLable := DCheckBoxShowNumberLable.Checked;
  19189.   if Sender = DCheckBoxShowJobAndLevel then
  19190.     g_Config.boShowJobAndLevel := DCheckBoxShowJobAndLevel.Checked;
  19191.   if Sender = DCheckBoxShowUserName then
  19192.     g_Config.boShowUserName := DCheckBoxShowUserName.Checked;
  19193.   if Sender = DCheckBoxShowMonName then
  19194.     g_Config.boShowMonName := DCheckBoxShowMonName.Checked;
  19195.   if Sender = DCheckBoxShowItemName then
  19196.     g_Config.boShowItemName := DCheckBoxShowItemName.Checked;
  19197.   if Sender = DCheckBoxShowMoveNumberLable then
  19198.     g_Config.boShowMoveLable := DCheckBoxShowMoveNumberLable.Checked;
  19199.   if Sender = DCheckBoxShowGreenHint then
  19200.     g_Config.boShowGreenHint := DCheckBoxShowGreenHint.Checked;
  19201.   if Sender = DCheckBoxMagicLock then
  19202.     g_Config.boMagicLock := DCheckBoxMagicLock.Checked;
  19203.   if Sender = DCheckBoxOrderItem then
  19204.     g_Config.boOrderItem := DCheckBoxOrderItem.Checked;
  19205.   if Sender = DCheckBoxMagicLock then
  19206.     g_Config.boMagicLock := DCheckBoxMagicLock.Checked;
  19207.   if Sender = DCheckBoxCloseGroup then
  19208.     g_Config.boCloseGroup := DCheckBoxCloseGroup.Checked;
  19209.   if Sender = DCheckBoxItemDuraHint then
  19210.     g_Config.boDuraWarning := DCheckBoxItemDuraHint.Checked;
  19211.   if Sender = DCheckBoxNotNeedShift then
  19212.     g_Config.boNotNeedShift := DCheckBoxNotNeedShift.Checked;
  19213.   if Sender = DCheckBoxAutoHorse then
  19214.     g_Config.boAutoHorse := DCheckBoxAutoHorse.Checked;
  19215.   if Sender = DCheckBoxCompareItem then
  19216.     g_Config.boCompareItem := DCheckBoxCompareItem.Checked;


  19219.   if Sender = DCheckBoxPickUpItemAll then
  19220.     g_Config.boPickUpItemAll := DCheckBoxPickUpItemAll.Checked;
  19221.   if Sender = DCheckBoxOnlyShowCharName then
  19222.     g_Config.boOnlyShowCharName := DCheckBoxOnlyShowCharName.Checked;
  19223.   if Sender = DCheckBoxItemHint then
  19224.     g_Config.boItemHint := DCheckBoxItemHint.Checked;


  19227.   if Sender = DCheckBoxBook then
  19228.     g_Config.boRenewBookIsAuto := DCheckBoxBook.Checked;
  19229.   if Sender = DCheckBoxClose then
  19230.     g_Config.boRenewCloseIsAuto := DCheckBoxClose.Checked;

  19232.   if Sender = DCheckBoxHeroLogOut then
  19233.     g_Config.boRenewHeroLogOutIsAuto := DCheckBoxHeroLogOut.Checked;

  19235.   if Sender = DCheckBoxLongHit then
  19236.     g_Config.boSmartLongHit := DCheckBoxLongHit.Checked;
  19237.   if Sender = DCheckBoxWideHit then
  19238.     g_Config.boSmartWideHit := DCheckBoxWideHit.Checked;
  19239.   if Sender = DCheckBoxFireHit then
  19240.     g_Config.boSmartFireHit := DCheckBoxFireHit.Checked;
  19241.   if Sender = DCheckBoxSWideHit then
  19242.     g_Config.boSmartSWordHit := DCheckBoxSWideHit.Checked;
  19243.   if Sender = DCheckBoxCrsHit then
  19244.     g_Config.boSmartCrsHit := DCheckBoxCrsHit.Checked;
  19245.   if Sender = DCheckBoxKtHit then
  19246.     g_Config.boSmartKaitHit := DCheckBoxKtHit.Checked;
  19247.   if Sender = DCheckBoxPok then
  19248.     g_Config.boSmartPokHit := DCheckBoxPok.Checked;
  19249.   if Sender = DCheckBoxShield then
  19250.     g_Config.boSmartShield := DCheckBoxShield.Checked;
  19251.   if Sender = DCheckBoxWjzq then
  19252.     g_Config.boSmartWjzq := DCheckBoxWjzq.Checked;
  19253.   if Sender = DCheckBoxSmartWalkLongHit then
  19254.     g_Config.boSmartWalkLongHit := DCheckBoxSmartWalkLongHit.Checked;
  19255.   if Sender = DCheckBoxSmartPosLongHit then
  19256.     g_Config.boSmartPosLongHit := DCheckBoxSmartPosLongHit.Checked;

  19258.   if Sender = DCheckBoxStruckShield then
  19259.     g_Config.boStruckShield := DCheckBoxStruckShield.Checked;
  19260.   if Sender = DCheckBoxAutoHideSelf then
  19261.     g_Config.boAutoHideMode := DCheckBoxAutoHideSelf.Checked;
  19262.   if Sender = DCheckBoxAutoUseMagic then
  19263.     g_Config.boAutoUseMagic := DCheckBoxAutoUseMagic.Checked;

  19265.   if Sender = DCheckBoxUseKey then
  19266.     g_Config.boUseHotkey := DCheckBoxUseKey.Checked;

  19268.   if Sender = DCheckBoxSign then
  19269.     g_Config.boChangeSign := DCheckBoxSign.Checked;
  19270.   if Sender = DCheckBoxPoison then
  19271.     g_Config.boChangePoison := DCheckBoxPoison.Checked;

  19273.   if Sender = DCheckBoxGuaji then
  19274.     g_Config.boGuaji := DCheckBoxGuaji.Checked;

  19276.   if Sender = DCheckBoxHumHP1 then
  19277.     g_Config.boRenewHumHPIsAuto1 := DCheckBoxHumHP1.Checked;
  19278.   if Sender = DCheckBoxHumMP1 then
  19279.     g_Config.boRenewHumMPIsAuto1 := DCheckBoxHumMP1.Checked;
  19280.   if Sender = DCheckBoxHumHP2 then
  19281.     g_Config.boRenewHumHPIsAuto2 := DCheckBoxHumHP2.Checked;
  19282.   if Sender = DCheckBoxHumMP2 then
  19283.     g_Config.boRenewHumMPIsAuto2 := DCheckBoxHumMP2.Checked;
  19284.   if Sender = DCheckBoxHeroHP1 then
  19285.     g_Config.boRenewHeroHPIsAuto1 := DCheckBoxHeroHP1.Checked;
  19286.   if Sender = DCheckBoxHeroMP1 then
  19287.     g_Config.boRenewHeroMPIsAuto1 := DCheckBoxHeroMP1.Checked;
  19288.   if Sender = DCheckBoxHeroHP2 then
  19289.     g_Config.boRenewHeroHPIsAuto2 := DCheckBoxHeroHP2.Checked;
  19290.   if Sender = DCheckBoxHeroMP2 then
  19291.     g_Config.boRenewHeroMPIsAuto2 := DCheckBoxHeroMP2.Checked;


  19294.   if not g_Config.boGuaji then begin
  19295.     g_GuaJi.Stop;
  19296.   end;
  19297.   SaveUserConfig();
  19298. end;

  19300. procedure TFrmDlg.DEditSpecialHPChange(Sender: TObject);
  19301. begin
  19302.   if (g_MySelf = nil) or (not g_boLoadUserConfig) then Exit;

  19304.   if Sender = DEditBookHP then
  19305.     g_Config.nRenewBookPercent := Str_ToInt(Trim(DEditBookHP.Text), 0);
  19306.   if Sender = DEditCloseHP then
  19307.     g_Config.nRenewClosePercent := Str_ToInt(Trim(DEditCloseHP.Text), 0);
  19308.   if Sender = DEditHeroLogOutHP then
  19309.     g_Config.nRenewHeroLogOutPercent := Str_ToInt(Trim(DEditHeroLogOutHP.Text), 0);
  19310.   if Sender = DEditBookTime then
  19311.     g_Config.nRenewBookTime := Str_ToInt(Trim(DEditBookTime.Text), 0);
  19312.   if Sender = DEditCloseTime then
  19313.     g_Config.nRenewCloseTime := Str_ToInt(Trim(DEditCloseTime.Text), 0);

  19315.   if Sender = DEditHeroLogOutTime then
  19316.     g_Config.nRenewHeroLogOutTime := Str_ToInt(Trim(DEditHeroLogOutTime.Text), 0);

  19318.   if Sender = DEditAutoUseMagicTime then
  19319.     g_Config.nAutoUseMagicTime := _MAX(Str_ToInt(Trim(DEditAutoUseMagicTime.Text), 1), 1);

  19321.   if Sender = DEditHumHPPercent1 then
  19322.     g_Config.nRenewHumHPPercent1 := Str_ToInt(DEditHumHPPercent1.Text, 1);
  19323.   if Sender = DEditHumMPPercent1 then
  19324.     g_Config.nRenewHumMPPercent1 := Str_ToInt(DEditHumMPPercent1.Text, 1);
  19325.   if Sender = DEditHumHPPercent2 then
  19326.     g_Config.nRenewHumHPPercent2 := Str_ToInt(DEditHumHPPercent2.Text, 1);
  19327.   if Sender = DEditHumMPPercent2 then
  19328.     g_Config.nRenewHumMPPercent2 := Str_ToInt(DEditHumMPPercent2.Text, 1);

  19330.   if Sender = DEditHeroHPPercent1 then
  19331.     g_Config.nRenewHeroHPPercent1 := Str_ToInt(DEditHeroHPPercent1.Text, 1);
  19332.   if Sender = DEditHeroMPPercent1 then
  19333.     g_Config.nRenewHeroMPPercent1 := Str_ToInt(DEditHeroMPPercent1.Text, 1);
  19334.   if Sender = DEditHeroHPPercent2 then
  19335.     g_Config.nRenewHeroHPPercent2 := Str_ToInt(DEditHeroHPPercent2.Text, 1);
  19336.   if Sender = DEditHeroMPPercent2 then
  19337.     g_Config.nRenewHeroMPPercent2 := Str_ToInt(DEditHeroMPPercent2.Text, 1);
  19338.   if Sender = DEditHumHPTime1 then
  19339.     g_Config.nRenewHumHPTime1 := _MAX(Str_ToInt(DEditHumHPTime1.Text, 1), 100);
  19340.   if Sender = DEditHumMPTime1 then
  19341.     g_Config.nRenewHumMPTime1 := _MAX(Str_ToInt(DEditHumMPTime1.Text, 1), 100);
  19342.   if Sender = DEditHumHPTime2 then
  19343.     g_Config.nRenewHumHPTime2 := _MAX(Str_ToInt(DEditHumHPTime2.Text, 1), 100);
  19344.   if Sender = DEditHumMPTime2 then
  19345.     g_Config.nRenewHumMPTime2 := _MAX(Str_ToInt(DEditHumMPTime2.Text, 1), 100);
  19346.   if Sender = DEditHeroHPTime1 then
  19347.     g_Config.nRenewHeroHPTime1 := _MAX(Str_ToInt(DEditHeroHPTime1.Text, 1), 100);
  19348.   if Sender = DEditHeroMPTime1 then
  19349.     g_Config.nRenewHeroMPTime1 := _MAX(Str_ToInt(DEditHeroMPTime1.Text, 1), 100);
  19350.   if Sender = DEditHeroHPTime2 then
  19351.     g_Config.nRenewHeroHPTime2 := _MAX(Str_ToInt(DEditHeroHPTime2.Text, 1), 100);
  19352.   if Sender = DEditHeroMPTime2 then
  19353.     g_Config.nRenewHeroMPTime2 := _MAX(Str_ToInt(DEditHeroMPTime2.Text, 1), 100);

  19355.   SaveUserConfig();
  19356. end;

  19358. procedure TFrmDlg.DComboboxBookIndexChange(Sender: TObject);
  19359. begin
  19360.   if (g_MySelf = nil) or (not g_boLoadUserConfig) then Exit;
  19361.   g_Config.nRenewBookNowBookIndex := DComboboxBookIndex.ItemIndex;
  19362.   if (DComboboxBookIndex.ItemIndex >= 0) and (DComboboxBookIndex.ItemIndex < DComboboxBookIndex.Items.Count) then
  19363.     g_Config.sRenewBookNowBookItem := DComboboxBookIndex.Items.Strings[DComboboxBookIndex.ItemIndex];
  19364.   {else
  19365.     g_Config.sRenewBookNowBookItem := '';  }
  19366.   SaveUserConfig();
  19367. end;

  19369. procedure TFrmDlg.DComboboxAutoUseMagicChange(Sender: TObject);
  19370. begin
  19371.   if (g_MySelf = nil) or (not g_boLoadUserConfig) then Exit;
  19372.   g_Config.nAutoUseMagicIdx := DComboboxAutoUseMagic.ItemIndex;
  19373.   SaveUserConfig();
  19374. end;

  19376. procedure TFrmDlg.DComboboxPoisonChange(Sender: TObject);
  19377. begin
  19378.   if (g_MySelf = nil) or (not g_boLoadUserConfig) then Exit;
  19379.   g_Config.nPoisonIndex := DComboboxPoison.ItemIndex;
  19380.   SaveUserConfig();
  19381. end;

  19383. procedure TFrmDlg.DConfigDlgMouseMove(Sender: TObject; Shift: TShiftState;
  19384.   X, Y: Integer);
  19385. begin
  19386.   DScreen.ClearHint;
  19387. end;

  19389. procedure TFrmDlg.DEdChatMouseDown(Sender: TObject; Button: TMouseButton;
  19390.   Shift: TShiftState; X, Y: Integer);
  19391. begin
  19392.   ChatDlgLeft := X;
  19393. end;

  19395. procedure TFrmDlg.DConfigDlgKeyDown(Sender: TObject; var Key: Word;
  19396.   Shift: TShiftState);
  19397. begin
  19398.   case Key of
  19399.     VK_HOME, {VK_MULTIPLY,} VK_F12: begin
  19400.         DOptionClick();
  19401.         Key := 0;
  19402.       end;
  19403.   end;
  19404. end;

  19406. procedure TFrmDlg.DCheckBoxMusicClick(Sender: TObject; X, Y: Integer);
  19407. begin
  19408.   if (g_MySelf = nil) or (not g_boLoadUserConfig) then Exit;
  19409.   g_Config.boBGSound := DCheckBoxMusic.Checked;
  19410.   g_boBGSound := g_Config.boBGSound;
  19411.   PlayMapMusic(g_boBGSound);
  19412.   SaveUserConfig();
  19413. end;

  19415. procedure TFrmDlg.DscStartInRealArea(Sender: TObject; X, Y: Integer;
  19416.   var IsRealArea: Boolean);
  19417. begin
  19418.   IsRealArea := True;
  19419. end;

  19421. procedure TFrmDlg.DEditSearchItemChange(Sender: TObject);
  19422. var
  19423.   sText: string;

  19425.   I, II, nTop: Integer;
  19426.   DLabel: TDLabel;
  19427.   DCheckBox: TDCheckBox;
  19428.   ItemList: TStringList;
  19429. begin
  19430.   if (g_MySelf = nil) or (not g_boLoadUserConfig) then Exit;
  19431.   if DEditSearchItem.Text = '' then begin
  19432.     DComboboxItemTypeChange(Sender);
  19433.   end else begin
  19434.     sText := DEditSearchItem.Text;

  19436.     nTop := 1;
  19437.     DScrollTab2.First;
  19438.     for I := 0 to DMemoTab2.Count - 1 do begin
  19439.       ItemList := DMemoTab2.Items[I];
  19440.       if AnsiContainsText(sText, TLines(ItemList).Text) or AnsiContainsText(TLines(ItemList).Text, sText) then begin
  19441.         DLabel := TDLabel(ItemList.Objects[0]);
  19442.         DLabel.Top := nTop;
  19443.         DLabel.Visible := True;

  19445.         DCheckBox := TDCheckBox(ItemList.Objects[1]);
  19446.         DCheckBox.Top := nTop;
  19447.         //DCheckBox.Checked := pTShowItem(DCheckBox.Data).boHintMsg;
  19448.         DCheckBox.Visible := True;

  19450.         DCheckBox := TDCheckBox(ItemList.Objects[2]);
  19451.         DCheckBox.Top := nTop;
  19452.         //DCheckBox.Checked := pTShowItem(DCheckBox.Data).boPickup;
  19453.         DCheckBox.Visible := True;

  19455.         DCheckBox := TDCheckBox(ItemList.Objects[3]);
  19456.         DCheckBox.Top := nTop;
  19457.         //DCheckBox.Checked := pTShowItem(DCheckBox.Data).boShowName;
  19458.         DCheckBox.Visible := True;

  19460.         TLines(ItemList).GetHeight;
  19461.         TLines(ItemList).Visible := True;
  19462.         Inc(nTop, 17);
  19463.       end else begin
  19464.         TLines(ItemList).Visible := False;
  19465.         for II := 0 to ItemList.Count - 1 do begin
  19466.           TDControl(ItemList.Objects[II]).Visible := False;
  19467.         end;
  19468.       end;
  19469.     end;

  19471.     DScrollTab2.Max := DMemoTab2.MaxHeight;
  19472.   end;
  19473. end;

  19475. procedure TFrmDlg.DChatDlgDirectPaint(Sender: TObject; dsurface: TTexture);
  19476. begin
  19477.   if g_ConfigClient.btMainInterface = 1 then begin
  19478.     with TDControl(Sender) do begin
  19479.       dsurface.FillRect(Bounds(SurfaceX(Left), SurfaceY(Top), 2, Height), 11064552); //$00486FA8
  19480.       dsurface.FillRect(Bounds(SurfaceX(Left), SurfaceY(Top), Width - 16, 2), 11064552); //$00486FA8
  19481.     end;
  19482.   end;
  19483. end;

  19485. procedure TFrmDlg.EdSearchDirectPaint(Sender: TObject; dsurface: TTexture);
  19486. begin
  19487.   if EdSearch.Text = '' then
  19488.     with EdSearch do
  19489.       dsurface.TextOut(SurfaceX(Left) + 2, SurfaceY(Top) + 2, '[输入物品名称]', $005894B8);
  19490. end;


  19493. procedure TFrmDlg.DMerchantBigDlgCloseClick(Sender: TObject; X,
  19494.   Y: Integer);
  19495. begin
  19496.   CloseBigMDlg;
  19497. end;

  19499. procedure TFrmDlg.DSerieMagic1DirectPaint(Sender: TObject;
  19500.   dsurface: TTexture);
  19501. var
  19502.   d: TTexture;
  19503.   nFaceIndex: Integer;
  19504. begin
  19505.   with Sender as TDButton do begin
  19506.     d := g_WCqFirImages.Images[43];
  19507.     if d <> nil then
  19508.       dsurface.Draw(SurfaceX(Left), SurfaceY(Top), d);
  19509.     if g_SerieMagic[Tag].nMagicID >= 0 then begin
  19510.       if g_SerieMagic[Tag].nMagicID = 0 then begin
  19511.         nFaceIndex := 909;
  19512.       end else begin
  19513.         case g_SerieMagic[Tag].nMagicID of
  19514.           100: nFaceIndex := 952;
  19515.           101: nFaceIndex := 950;
  19516.           102: nFaceIndex := 956;
  19517.           103: nFaceIndex := 954;
  19518.           104: nFaceIndex := 944;
  19519.           105: nFaceIndex := 942;
  19520.           106: nFaceIndex := 946;
  19521.           107: nFaceIndex := 940;
  19522.           108: nFaceIndex := 934;
  19523.           109: nFaceIndex := 936;
  19524.           110: nFaceIndex := 932;
  19525.           111: nFaceIndex := 930;
  19526.         end;
  19527.       end;
  19528.       //nFaceIndex := (Tag + 930) + Tag * 2;
  19529.       if Downed then begin
  19530.         d := g_WMainImages.Images[nFaceIndex + 1];
  19531.       end else begin
  19532.         d := g_WMainImages.Images[nFaceIndex];
  19533.       end;
  19534.       if d <> nil then
  19535.         dsurface.Draw(SurfaceX(Left) + 3, SurfaceY(Top) + 2, d.ClientRect, d, True);
  19536.     end;
  19537.   end;
  19538. end;

  19540. procedure TFrmDlg.DSerieMagic1MouseDown(Sender: TObject;
  19541.   Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  19542. var
  19543.   D: TDButton;
  19544. begin
  19545.   if not (g_boSerieMagic or g_boSerieMagicing) then begin
  19546.     D := TDButton(Sender);
  19547.     if D.SurfaceX(D.Left) + DSerieMagicMenu.Width > SCREENWIDTH then
  19548.       DSerieMagicMenu.Left := D.SurfaceX(D.Left) - DSerieMagicMenu.Width
  19549.     else DSerieMagicMenu.Left := D.SurfaceX(D.Left);
  19550.     if D.SurfaceY(D.Top) + DSerieMagicMenu.Height > SCREENHEIGHT then
  19551.       DSerieMagicMenu.Top := D.SurfaceY(D.Top) - DSerieMagicMenu.Height
  19552.     else DSerieMagicMenu.Top := D.SurfaceY(D.Top) + D.Height;
  19553.     DSerieMagicMenu.Show(D);
  19554.     DScreen.ClearHint;
  19555.     HintList.Clear;
  19556.   end;
  19557. end;

  19559. procedure TFrmDlg.DSerieMagicMenuClick(Sender: TObject; X, Y: Integer);
  19560. var
  19561.   sMagicName: string;
  19562.   pcm: PTClientMagic;
  19563. begin
  19564.   if not (g_boSerieMagic or g_boSerieMagicing) then begin
  19565.     if DSerieMagicMenu.DControl <> nil then begin
  19566.       if DSerieMagicMenu.DControl is TDButton then begin
  19567.         with DSerieMagicMenu.DControl as TDButton do begin
  19568.           if (DSerieMagicMenu.ItemIndex = 0) then begin
  19569.             g_SerieMagic[Tag].Magic.Def.sMagicName := '';
  19570.             g_SerieMagic[Tag].Magic.Def.wMagicId := 0;
  19571.             g_SerieMagic[Tag].nMagicID := -1;
  19572.           end else
  19573.             if (DSerieMagicMenu.ItemIndex = 1) then begin
  19574.             g_SerieMagic[Tag].nMagicID := 0;
  19575.             g_SerieMagic[Tag].Magic.Def.sMagicName := '';
  19576.             g_SerieMagic[Tag].Magic.Def.wMagicId := 0;
  19577.           end else
  19578.             if (DSerieMagicMenu.ItemIndex - 3 >= 0) and (DSerieMagicMenu.ItemIndex - 3 < g_SerieMagicList.Count) then begin
  19579.             pcm := g_SerieMagicList.Items[DSerieMagicMenu.ItemIndex - 3];
  19580.             if pcm <> nil then begin
  19581.               g_SerieMagic[Tag].Magic := pcm^;
  19582.               g_SerieMagic[Tag].nMagicID := pcm.Def.wMagicId;
  19583.             end else begin
  19584.               g_SerieMagic[Tag].Magic.Def.sMagicName := '';
  19585.               g_SerieMagic[Tag].Magic.Def.wMagicId := 0;
  19586.             end;
  19587.           end;
  19588.         end;
  19589.       end;
  19590.     end;
  19591.   end;
  19592.   SaveUserConfig();
  19593. end;

  19595. procedure TFrmDlg.DSerieMagic1MouseMove(Sender: TObject;
  19596.   Shift: TShiftState; X, Y: Integer);
  19597. var
  19598.   sStr: string;
  19599. begin
  19600.   DScreen.ClearHint;
  19601.   HintList.Clear;
  19602.   if not DSerieMagicMenu.Visible then begin
  19603.     with Sender as TDButton do begin
  19604.       if g_SerieMagic[Tag].Magic.Def.sMagicName <> '' then begin
  19605.         sStr := g_SerieMagic[Tag].Magic.Def.sMagicName + '\';
  19606.         sStr := sStr + '等级:' + IntToStr(g_SerieMagic[Tag].Magic.Level) + '\';
  19607.         sStr := sStr + '经验:' + IntToStr(g_SerieMagic[Tag].Magic.CurTrain) + '/' + IntToStr(g_SerieMagic[Tag].Magic.Def.MaxTrain[g_SerieMagic[Tag].Magic.Level]);
  19608.         DScreen.ShowHint(SurfaceX(Left), SurfaceY(Top + Height), sStr, clWhite, False);
  19609.         {HintList.AddObject(g_SerieMagic[Tag].Magic.Def.sMagicName, TObject(0)); //TObject(clWhite)
  19610.         HintList.AddObject('等级:' + IntToStr(g_SerieMagic[Tag].Magic.Level), TObject(clWhite)); //TObject(clWhite)
  19611.         HintList.AddObject('经验:' + IntToStr(g_SerieMagic[Tag].Magic.CurTrain) + '/' + IntToStr(g_SerieMagic[Tag].Magic.Def.MaxTrain[g_SerieMagic[Tag].Magic.Level]), TObject(clWhite)); //TObject(clWhite)
  19612.         DScreen.ShowHintA(SurfaceX(Left),
  19613.           SurfaceY(Top + Height),
  19614.           HintList, False);
  19615.           }
  19616.       end;
  19617.     end;
  19618.   end;
  19619. end;

  19621. procedure TFrmDlg.DEditSerieMagicClick(Sender: TObject; X, Y: Integer);
  19622. begin
  19623.   DScrollTab5.Position := DScrollTab5.Max;
  19624. end;

  19626. procedure TFrmDlg.DComboboxBookIndexPopup(Sender: TObject);
  19627. var
  19628.   I: Integer;
  19629. begin
  19630.   DComboboxBookIndex.Items.Clear;
  19631.   for I := Low(g_ItemArr) to High(g_ItemArr) do begin
  19632.     if g_ItemArr[I].s.Name <> '' then
  19633.       DComboboxBookIndex.Items.Add(g_ItemArr[I].s.Name);
  19634.   end;
  19635.   if g_Config.sRenewBookNowBookItem <> '' then begin
  19636.     if (g_Config.nRenewBookNowBookIndex >= 0) and (g_Config.nRenewBookNowBookIndex < DComboboxBookIndex.Items.Count) then begin
  19637.       if g_Config.sRenewBookNowBookItem = DComboboxBookIndex.Items.Strings[g_Config.nRenewBookNowBookIndex] then Exit;
  19638.     end;
  19639.     g_Config.nRenewBookNowBookIndex := -1;
  19640.     DComboboxBookIndex.ItemIndex := -1;
  19641.     for I := 0 to DComboboxBookIndex.Items.Count - 1 do begin
  19642.       if g_Config.sRenewBookNowBookItem = DComboboxBookIndex.Items.Strings[I] then begin
  19643.         g_Config.nRenewBookNowBookIndex := I;
  19644.         DComboboxBookIndex.ItemIndex := I;
  19645.         Break;
  19646.       end;
  19647.     end;
  19648.     SaveUserConfig();
  19649.   end;
  19650.   DComboboxBookIndex.Text := g_Config.sRenewBookNowBookItem;
  19651. end;

  19653. procedure TFrmDlg.DEditRandomCodeKeyPress(Sender: TObject; var Key: Char);
  19654. var
  19655.   sRandomCode: string;
  19656. begin
  19657.   if Key = #13 then begin
  19658.     sRandomCode := Trim(DEditRandomCode.Text);
  19659.     if sRandomCode <> '' then begin
  19660.       frmMain.SendRandomCode(sRandomCode);
  19661.       CloseRandomDlg;
  19662.     end;
  19663.     Key := #0;
  19664.   end;
  19665. end;

  19667. procedure TFrmDlg.DEditAdjustIncrementChange(Sender: TObject);
  19668. begin
  19669.   if Str_ToInt(DEditAdjustIncrement.Text, -1) <= 0 then DEditAdjustIncrement.Text := '1';
  19670. end;

  19672. procedure TFrmDlg.DComboboxHeroHP1Change(Sender: TObject);
  19673. begin
  19674.   if (not g_boLoadUserConfig) then Exit;
  19675.   g_Config.nRenewHeroHPIndex1 := DComboboxHeroHP1.ItemIndex;
  19676.   SaveUserConfig();
  19677. end;

  19679. procedure TFrmDlg.DComboboxHeroMP1Change(Sender: TObject);
  19680. begin
  19681.   if (not g_boLoadUserConfig) then Exit;
  19682.   g_Config.nRenewHeroMPIndex1 := DComboboxHeroMP1.ItemIndex;
  19683.   SaveUserConfig();
  19684. end;

  19686. procedure TFrmDlg.DComboboxHeroHP2Change(Sender: TObject);
  19687. begin
  19688.   if (not g_boLoadUserConfig) then Exit;
  19689.   g_Config.nRenewHeroHPIndex2 := DComboboxHeroHP2.ItemIndex;
  19690.   SaveUserConfig();
  19691. end;

  19693. procedure TFrmDlg.DComboboxHeroMP2Change(Sender: TObject);
  19694. begin
  19695.   if (not g_boLoadUserConfig) then Exit;
  19696.   g_Config.nRenewHeroMPIndex2 := DComboboxHeroMP2.ItemIndex;
  19697.   SaveUserConfig();
  19698. end;

  19700. procedure TFrmDlg.DComboboxHumHP1Change(Sender: TObject);
  19701. begin
  19702.   if (not g_boLoadUserConfig) then Exit;
  19703.   g_Config.nRenewHumHPIndex1 := DComboboxHumHP1.ItemIndex;
  19704.   SaveUserConfig();
  19705. end;

  19707. procedure TFrmDlg.DComboboxHumMP1Change(Sender: TObject);
  19708. begin
  19709.   if (not g_boLoadUserConfig) then Exit;
  19710.   g_Config.nRenewHumMPIndex1 := DComboboxHumMP1.ItemIndex;
  19711.   SaveUserConfig();
  19712. end;

  19714. procedure TFrmDlg.DComboboxHumHP2Change(Sender: TObject);
  19715. begin
  19716.   if (not g_boLoadUserConfig) then Exit;
  19717.   g_Config.nRenewHumHPIndex2 := DComboboxHumHP2.ItemIndex;
  19718.   SaveUserConfig();
  19719. end;

  19721. procedure TFrmDlg.DComboboxHumMP2Change(Sender: TObject);
  19722. begin
  19723.   if (not g_boLoadUserConfig) then Exit;
  19724.   g_Config.nRenewHumMPIndex2 := DComboboxHumMP2.ItemIndex;
  19725.   SaveUserConfig();
  19726. end;

  19728. end.
复制代码

分享名称：传奇Gom引擎商业全套源码.rar
分享链接：http://pan.zxdll.cn:188/#s/9iw69IlQ
访问密码：
游客，如果您要查看本帖隐藏内容请回复


引擎, 全套, 源码, 传奇, 源代码




上一篇：C++传奇3EI3.0客户端 Mir3Ei ClientEx客户端源代码
下一篇：飘逸引擎Delphi传奇引擎全套源码+网关登陆器源代码

相关帖子
回复

使用道具 举报

s304185

0

主题

5

回帖

220

积分

旋风流星刀

积分
220
发表于 2023-8-12 11:26:48 | 显示全部楼层
感谢分享
回复

使用道具 举报

yh21cn

0

主题

19

回帖

257

积分

旋风流星刀

积分
257
发表于 2023-8-16 13:56:52 | 显示全部楼层
厉害啊我的哥！
回复 支持 反对

使用道具 举报

sgldjw

0

主题

6

回帖

208

积分

旋风流星刀

积分
208
发表于 2023-8-17 21:32:40 来自手机 | 显示全部楼层
真的吗太好了
回复 支持 反对

使用道具 举报

sgldjw

0

主题

6

回帖

208

积分

旋风流星刀

积分
208
发表于 2023-8-17 21:51:03 来自手机 | 显示全部楼层
看了下是烂大街那个
回复 支持 反对

使用道具 举报

616126447

1

主题

434

回帖

598

积分

旋风流星刀

积分
598
发表于 2023-8-22 15:55:41 | 显示全部楼层
感谢分享
回复

使用道具 举报

1557938768

0

主题

24

回帖

82

积分

旋风流星刀

积分
82
发表于 2023-10-5 22:01:19 | 显示全部楼层
6666666666666
回复 支持 反对

使用道具 举报

colyin

0

主题

3

回帖

4

积分

旋风流星刀

积分
4
发表于 2023-10-8 12:55:38 | 显示全部楼层
000000gggggg
回复 支持 反对

使用道具 举报

70190481

0

主题

2

回帖

221

积分

旋风流星刀

积分
221
发表于 2023-10-11 13:33:17 | 显示全部楼层
真的假的？
回复

使用道具 举报

gjljrmir3

0

主题

18

回帖

103

积分

旋风流星刀

积分
103
发表于 2023-10-20 16:39:21 | 显示全部楼层
好像很牛逼
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

GMT+8, 2024-4-27 18:55 , Processed in 0.530359 second(s), 95 queries .

Powered by Discuz! X3.5

Copyright © 2001-2024, Tencent Cloud.

快速回复 返回顶部 返回列表