fstate.pas

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

unit FState;

interface

uses
  svn, Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DWinCtl, StdCtrls, DXDraws, Grids, Grobal2, EdCode, clFunc, hUtil32, cliUtil,
  MapUnit, SoundUtil, Actor, nixtime, DateUtils, StrUtils;

const
   BOTTOMBOARD800 = 1;
   BOTTOMBOARD1024 = 2;
   VIEWCHATLINE = 9;
   MAXSTATEPAGE = 4;
   LISTLINEHEIGHT = 13;
   MAXMENU = 10;

   AdjustAbilHints : array[0..8] of string = (
      'Destructive power',
      'Magic power (for Wizard)',
      'Zen power (for Taoist)',
      'Defense ability',
      'Magical defense strength',
      'Physical strength',
      'Magic power',
      'Accuracy',
      'Evasion ability'
   );

type
  TSpotDlgMode = (dmSell, dmRepair, dmStorage, dmConsign);

  TClickPoint = record
     rc: TRect;
     RStr: string;
  end;
  pTClickPoint = ^TClickPoint;
  TDiceInfo = record
    nDicePoint :Integer;      //0x66C
    nPlayPoint :Integer;      //0x670
    nX         :Integer;      //0x674
    nY         :Integer;      //0x678
    n67C       :Integer;      //0x67C
    n680       :Integer;      //0x680
    dwPlayTick :LongWord;     //0x684
  end;
  pTDiceInfo = ^TDiceInfo;
  TFrmDlg = class(TForm)
    DStateWin: TDWindow;
    DBackground: TDWindow;
    DItemBag: TDWindow;
    DBottom: TDWindow;
    DMyState: TDButton;
    DMyBag: TDButton;
    DMyMagic: TDButton;
    DOption: TDButton;
    DGold: TDButton;
    DPrevState: TDButton;
    DRepairItem: TDButton;
    DCloseBag: TDButton;
    DCloseState: TDButton;
    DLogIn: TDWindow;
    DLoginNew: TDButton;
    DLoginOk: TDButton;
    DNewAccount: TDWindow;
    DNewAccountOk: TDButton;
    DLoginClose: TDButton;
    DNewAccountClose: TDButton;
    DSelectChr: TDWindow;
    DscSelect1: TDButton;
    DscSelect2: TDButton;
    DscStart: TDButton;
    DscNewChr: TDButton;
    DscEraseChr: TDButton;
    DscCredits: TDButton;
    DscExit: TDButton;
    DCreateChr: TDWindow;
    DccWarrior: TDButton;
    DccWizzard: TDButton;
    DccMonk: TDButton;
    DccReserved: TDButton;
    DccMale: TDButton;
    DccFemale: TDButton;
    DccOk: TDButton;
    DccClose: TDButton;
    DItemGrid: TDGrid;
    DLoginChgPw: TDButton;
    DMsgDlg: TDWindow;
    DMsgDlgOk: TDButton;
    DMsgDlgYes: TDButton;
    DMsgDlgCancel: TDButton;
    DMsgDlgNo: TDButton;
    DNextState: TDButton;
    DSWNecklace: TDButton;
    DSWLight: TDButton;
    DSWArmRingR: TDButton;
    DSWArmRingL: TDButton;
    DSWRingR: TDButton;
    DSWRingL: TDButton;
    DSWWeapon: TDButton;
    DSWDress: TDButton;
    DSWHelmet: TDButton;
    DSWBujuk: TDButton;
    DSWBelt: TDButton;
    DSWBoots: TDButton;
    DSWCharm: TDButton;
    DChgPw: TDWindow;
    DChgpwOk: TDButton;
    DChgpwCancel: TDButton;
    DMerchantDlg: TDWindow;
    DMerchantDlgClose: TDButton;
    DMenuDlg: TDWindow;
    DMenuPrev: TDButton;
    DMenuNext: TDButton;
    DMenuBuy: TDButton;
    DMenuClose: TDButton;
    DSellDlg: TDWindow;
    DSellDlgOk: TDButton;
    DSellDlgClose: TDButton;
    DSellDlgSpot: TDButton;
    DStMag1: TDButton;
    DStMag2: TDButton;
    DStMag3: TDButton;
    DStMag4: TDButton;
    DStMag5: TDButton;
    DKeySelDlg: TDWindow;
    DKsIcon: TDButton;
    DKsF1: TDButton;
    DKsF2: TDButton;
    DKsF3: TDButton;
    DKsF4: TDButton;
    DKsNone: TDButton;
    DKsOk: TDButton;
    DBotGroup: TDButton;
    DBotTrade: TDButton;
    DBotMiniMap: TDButton;
    DBotFriend: TDButton;
    DGroupDlg: TDWindow;
    DGrpAllowGroup: TDButton;
    DGrpDlgClose: TDButton;
    DGrpCreate: TDButton;
    DGrpAddMem: TDButton;
    DGrpDelMem: TDButton;
    DBotLogout: TDButton;
    DBotExit: TDButton;
    DBotGuild: TDButton;
    DStPageUp: TDButton;
    DStPageDown: TDButton;
    DDealRemoteDlg: TDWindow;
    DDealDlg: TDWindow;
    DDRGrid: TDGrid;
    DDGrid: TDGrid;
    DDealOk: TDButton;
    DDealClose: TDButton;
    DDGold: TDButton;
    DDRGold: TDButton;
    DSelServerDlg: TDWindow;
    DSSrvClose: TDButton;
    DSServer1: TDButton;
    DSServer2: TDButton;
    DUserState1: TDWindow;
    DCloseUS1: TDButton;
    DWeaponUS1: TDButton;
    DHelmetUS1: TDButton;
    DNecklaceUS1: TDButton;
    DDressUS1: TDButton;
    DLightUS1: TDButton;
    DArmringRUS1: TDButton;
    DRingRUS1: TDButton;
    DArmringLUS1: TDButton;
    DRingLUS1: TDButton;

    DBujukUS1: TDButton;
    DBeltUS1: TDButton;
    DBootsUS1: TDButton;
    DCharmUS1: TDButton;

    DSServer3: TDButton;
    DSServer4: TDButton;
    DGuildDlg: TDWindow;
    DGDHome: TDButton;
    DGDList: TDButton;
    DGDChat: TDButton;
    DGDAddMem: TDButton;
    DGDDelMem: TDButton;
    DGDEditNotice: TDButton;
    DGDEditGrade: TDButton;
    DGDAlly: TDButton;
    DGDBreakAlly: TDButton;
    DGDWar: TDButton;
    DGDCancelWar: TDButton;
    DGDUp: TDButton;
    DGDDown: TDButton;
    DGDClose: TDButton;
    DGuildEditNotice: TDWindow;
    DGEClose: TDButton;
    DGEOk: TDButton;
    DSServer5: TDButton;
    DSServer6: TDButton;
    DNewAccountCancel: TDButton;
    DAdjustAbility: TDWindow;
    DPlusDC: TDButton;
    DPlusMC: TDButton;
    DPlusSC: TDButton;
    DPlusAC: TDButton;
    DPlusMAC: TDButton;
    DPlusHP: TDButton;
    DPlusMP: TDButton;
    DPlusHit: TDButton;
    DPlusSpeed: TDButton;
    DMinusDC: TDButton;
    DMinusMC: TDButton;
    DMinusSC: TDButton;
    DMinusAC: TDButton;
    DMinusMAC: TDButton;
    DMinusMP: TDButton;
    DMinusHP: TDButton;
    DMinusHit: TDButton;
    DMinusSpeed: TDButton;
    DAdjustAbilClose: TDButton;
    DAdjustAbilOk: TDButton;
    DBotPlusAbil: TDButton;
    DKsF5: TDButton;
    DKsF6: TDButton;
    DKsF7: TDButton;
    DKsF8: TDButton;
    DEngServer1: TDButton;
    DConfigDlg: TDWindow;
    DConfigDlgClose: TDButton;
    DConfigDlgOK: TDButton;
    DKsConF1: TDButton;
    DKsConF2: TDButton;
    DKsConF3: TDButton;
    DKsConF4: TDButton;
    DKsConF5: TDButton;
    DKsConF6: TDButton;
    DKsConF7: TDButton;
    DKsConF8: TDButton;
    DBotMemo: TDButton;
    DFriendDlg: TDWindow;
    DFrdFriend: TDButton;
    DFrdBlackList: TDButton;
    DFrdClose: TDButton;
    DFrdPgUp: TDButton;
    DFrdPgDn: TDButton;
    DFrdAdd: TDButton;
    DFrdDel: TDButton;
    DFrdMemo: TDButton;
    DFrdMail: TDButton;
    DFrdWhisper: TDButton;
    DBLDel: TDButton;
    DBLAdd: TDButton;
    DMemoB2: TDButton;
    DMemoB1: TDButton;
    DMailListDlg: TDWindow;
    DMailDlg: TDWindow;
    DBlockListDlg: TDWindow;
    DBLPgUp: TDButton;
    DBLPgDn: TDButton;
    DBlockListClose: TDButton;
    DMemo: TDWindow;
    DMemoClose: TDButton;
    DChgGamePwd: TDWindow;
    DChgGamePwdClose: TDButton;
    DButtonHP: TDButton;
    DButtonMP: TDButton;
    DGemMakeItem: TDWindow;
    DGemMakeOK: TDButton;
    DGemMakeCancel: TDButton;
    DGemSlot1: TDButton;
    DGemSlot2: TDButton;
    DGemSlot3: TDButton;
    DGemSlot4: TDButton;
    DGemSlot5: TDButton;
    DGemSlot6: TDButton;
    DGemCancel: TDButton;
    DSales: TDWindow;
    DSalesFind: TDButton;
    DSalesBuy: TDButton;
    DSalesCancel: TDButton;
    DSalesClose: TDButton;
    DSalesPrevPage: TDButton;
    DSalesRefresh: TDButton;
    DSalesNextPage: TDButton;
    DAuctionImg: TDButton;
    DMLReply: TDButton;
    DMailListPgDn: TDButton;
    DMLRead: TDButton;
    DMailListPgUp: TDButton;
    DMLLock: TDButton;
    DMLDel: TDButton;
    DMLBlock: TDButton;
    DMailListClose: TDButton;
    DMailDlgClose: TDButton;
    DMailDlgB1: TDButton;
    DMailDlgb2: TDButton;
    DMailName: TDButton;
    DMemoName: TDButton;
    DMailListTitle: TDButton;
    DMailListStatus: TDButton;
    DBotLover: TDButton;
    DBeltWindow: TDWindow;
    DBelt1: TDButton;
    DBelt2: TDButton;
    DBelt3: TDButton;
    DBelt4: TDButton;
    DBelt5: TDButton;
    DBelt6: TDButton;
    DBeltClose: TDButton;
    DBeltSwap: TDButton;
    DscSelect3: TDButton;
    DLoverWindow: TDWindow;
    DLoverLogo: TDButton;
    DLoverAvailable: TDButton;
    DLoverAsk: TDButton;
    DLoverDivorce: TDButton;
    DLoverExit: TDButton;
    DLoverCaption: TDButton;
    DMasterCaption: TDButton;
    DLoverHeart: TDButton;
    DMailRead: TDWindow;
    DMailReadClose: TDButton;
    DMailReadB1: TDButton;
    DMailReadName: TDButton;
    DHeartMyState: TDButton;
    DChgGamePwdB2: TDButton;
    DChgGamePwdB1: TDButton;
    DUSGroup: TDButton;
    DUSFriend: TDButton;
    DUSMail: TDButton;
    DHold: TDButton;
    DBlockListTitle: TDButton;
    DGTList: TDWindow;
    DGTListClose: TDButton;
    DGTListPrev: TDButton;
    DGTListNext: TDButton;
    DGTListMail: TDButton;
    DDecoListDlg: TDWindow;
    DDecoListExit: TDButton;
    DDecoListPrev: TDButton;
    DDecoListNext: TDButton;
    DDecoListCancel: TDButton;
    DDecoListBuy: TDButton;
    DBBSListDlg: TDWindow;
    DBBSListClose: TDButton;
    DBBSListPrev: TDButton;
    DBBSListNext: TDButton;
    DBBSListRefresh: TDButton;
    DBBSListOK: TDButton;
    DBBSListWrite: TDButton;
    DBBSListNotice: TDButton;
    DBBSMsgDlg: TDWindow;
    DBBSMsgClose: TDButton;
    DBBSMsgOk: TDButton;
    DBBSMsgMail: TDButton;
    DBBSMsgReply: TDButton;
    DBBSMsgCancel: TDButton;
    DBBSMsgDelete: TDButton;
    DOptions: TDWindow;
    DOptionsClose: TDButton;
    DOptionsSoundOn: TDButton;
    DOptionsSoundOff: TDButton;
    DOptionsEffectOn: TDButton;
    DOptionsEffectOff: TDButton;
    DOptionsSkillBarOn: TDButton;
    DOptionsSkillBarOff: TDButton;
    DOptionsDropViewOn: TDButton;
    DOptionsDropViewOff: TDButton;
    DOptionsSkillMode2: TDButton;
    DOptionsSkillMode1: TDButton;
    DSkillBar: TDWindow;
    DSkillBar1: TDButton;
    DSkillBar2: TDButton;
    DSkillBar3: TDButton;
    DSkillBar4: TDButton;
    DSkillBar5: TDButton;
    DSkillBar6: TDButton;
    DSkillBar7: TDButton;
    DSkillBar8: TDButton;
    DSalesMail: TDButton;

    procedure DBottomInRealArea(Sender: TObject; X, Y: Integer;
      var IsRealArea: Boolean);
    procedure DBottomDirectPaint(Sender: TObject;