fstate.pas

传奇源代码的delphi版本

    procedure DOptionsCloseClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsSoundOffClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsSoundOnClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsDropViewOnClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsDropViewOffClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsEffectOffClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsEffectOnClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsSkillBarOffClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsSkillBarOnClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsSkillMode1Click(Sender: TObject; X, Y: Integer);
    procedure DOptionsSkillMode2Click(Sender: TObject; X, Y: Integer);
    procedure DSkillBarDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSkillBarMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DUSGroupClick(Sender: TObject; X, Y: Integer);
    procedure DUSFriendClick(Sender: TObject; X, Y: Integer);
    procedure DUSMailClick(Sender: TObject; X, Y: Integer);
    procedure DSalesMailClick(Sender: TObject; X, Y: Integer);
    procedure DSelectChrClick(Sender: TObject; X, Y: Integer);
    procedure DScrollTopClick(Sender: TObject; X, Y: Integer);
    procedure DScrollUpClick(Sender: TObject; X, Y: Integer);
    procedure DScrollDownClick(Sender: TObject; X, Y: Integer);
    procedure DScrollBottomClick(Sender: TObject; X, Y: Integer);
    procedure DInputKeyEscClick(Sender: TObject; X, Y: Integer);
    procedure DLoginViewKeyClick(Sender: TObject; X, Y: Integer);
    procedure DMsgSimpleDlgOkClick(Sender: TObject; X, Y: Integer);
    procedure DMsgSimpleDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DMsgSimpleDlgKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBotHelpDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DInputKeyEscDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DInputKeyEscMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DInputKey0Click(Sender: TObject; X, Y: Integer);
    procedure DInputKeyDelClick(Sender: TObject; X, Y: Integer);
    procedure DInputKeyEnterClick(Sender: TObject; X, Y: Integer);
    procedure DInputKeyRandClick(Sender: TObject; X, Y: Integer);
    procedure DBotHelpClick(Sender: TObject; X, Y: Integer);
    procedure DHelpCloseClick(Sender: TObject; X, Y: Integer);
    procedure DHelpWinDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DOptionsNameAllViewOnClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsNameAllViewOffClick(Sender: TObject; X, Y: Integer);
    procedure DOptionsHPView1Click(Sender: TObject; X, Y: Integer);
    procedure DOptionsHPView2Click(Sender: TObject; X, Y: Integer);
    procedure DHelpPrevClick(Sender: TObject; X, Y: Integer);
    procedure DHelpNextClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DItemShopDlgKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DItemShopDlgMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DItemShopDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DItemShopCloseClick(Sender: TObject; X, Y: Integer);
    procedure DBotItemShopClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopJobAllDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DItemShopJobAllMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure DItemShopJobAllClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopJobWarriorClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopJobWizardClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopJobMonkClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopJobCommonClick(Sender: TObject; X, Y: Integer);
    procedure DGrpPgUpClick(Sender: TObject; X, Y: Integer);
    procedure DGrpPgDnClick(Sender: TObject; X, Y: Integer);
    procedure DGTListMailClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopDlgClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopCaAllDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DItemShopCaAllMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure DCountDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DCountDlgKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DCountDlgOkClick(Sender: TObject; X, Y: Integer);
    procedure DCountDlgCloseClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopGetGiftDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DItemShopGetGiftMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure DShopMenuDlgClick(Sender: TObject; X, Y: Integer);
    procedure DShopMenuDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DShopMenuDlgMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DShopMenuScrollUpClick(Sender: TObject; X, Y: Integer);
    procedure DShopMenuScrollDownClick(Sender: TObject; X, Y: Integer);
    procedure DShopMenuScrollBarMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DShopMenuScrollBarMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure DShopScrollBarMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure DShopScrollBarDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DShopScrollBarMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure DShopMenuOkClick(Sender: TObject; X, Y: Integer);
    procedure DShopMenuCloseClick(Sender: TObject; X, Y: Integer);
    procedure DWemadeBuffMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DDcJunsaBuffDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DItemBagClick(Sender: TObject; X, Y: Integer);
    procedure DItemStoreDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DStoreGridGridMouseMove(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DStoreGridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DStoreGridGridSelect(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DItemStoreCloseClick(Sender: TObject; X, Y: Integer);
    procedure DSafeKeyStorageEscClick(Sender: TObject; X, Y: Integer);
    procedure DSafeKeyStorage0Click(Sender: TObject; X, Y: Integer);
    procedure DSafeKeyStorage0DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DSafeKeyStorageEnterClick(Sender: TObject; X, Y: Integer);
    procedure DSafeKeyStorageDelClick(Sender: TObject; X, Y: Integer);
    procedure DSafeKeyStorageDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DAddBag3DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DAddBag3GridDblClick(Sender: TObject);
    procedure DAddBag3GridGridMouseMove(Sender: TObject; ACol,
      ARow: Integer; Shift: TShiftState);
    procedure DAddBag3GridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DAddBag3GridGridSelect(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DAddBag3CloseClick(Sender: TObject; X, Y: Integer);
    procedure DAddBag3CloseDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBotQuestClick(Sender: TObject; X, Y: Integer);
    procedure DRefineDlgDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DRefineGridGridMouseMove(Sender: TObject; ACol,
      ARow: Integer; Shift: TShiftState);
    procedure DRefineGridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DRefineGridGridSelect(Sender: TObject; ACol, ARow: Integer;
      Shift: TShiftState);
    procedure DRefineDlgCloseClick(Sender: TObject; X, Y: Integer);
    procedure DAddBag4GridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DAddBag7GridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DAddBag5GridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DAddBag6GridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DAddBag8GridGridPaint(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState; dsurface: TDirectDrawSurface);
    procedure DItemShopFindClick(Sender: TObject; X, Y: Integer);
    procedure DItemShopPayMoneyClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassSetDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DStoragePassSetKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DStoragePassSetMouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure DStoragePassSetSafeClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassSetOkClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassSetDelClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DStoragePassKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DStoragePassSetCloseClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DStoragePassOkClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassDelClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassCloseClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassResetDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DStoragePassResetKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DStoragePassResetMouseMove(Sender: TObject;
      Shift: TShiftState; X, Y: Integer);
    procedure DStoragePassResetOkClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassResetDelClick(Sender: TObject; X, Y: Integer);
    procedure DStoragePassResetCloseClick(Sender: TObject; X, Y: Integer);
    procedure DItemStorePassResetClick(Sender: TObject; X, Y: Integer);
    procedure DBankDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBankGoldClick(Sender: TObject; X, Y: Integer);
    procedure DBankSlotAddClick(Sender: TObject; X, Y: Integer);
    procedure DBankCloseClick(Sender: TObject; X, Y: Integer);
    procedure DBankPassSetClick(Sender: TObject; X, Y: Integer);
    procedure DBankCell1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DBankCell1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBankCell1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DBankSlot1Click(Sender: TObject; X, Y: Integer);
    procedure DBankSlot1DirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DScrollBarDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DScrollBarMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure DScrollBarMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DGDWarClick(Sender: TObject; X, Y: Integer);
    procedure DGDCancelWarClick(Sender: TObject; X, Y: Integer);
    procedure DAboutDirectPaint(Sender: TObject;
      dsurface: TDirectDrawSurface);
    procedure DAboutCloseClick(Sender: TObject; X, Y: Integer);
    procedure DBotExpandClick(Sender: TObject; X, Y: Integer);

  private
    DlgTemp: TList;
    magcur, magtop: integer;
    EdDlgEdit: TEdit;
    Memo: TMemo;

    ViewDlgEdit: Boolean;
    msglx, msgly: integer;
    MenuTop: integer;
    ShopMenuTop: integer;

    MagKeyIcon, MagKeyCurKey: integer;
    MagKeyMagName: string;
    MagicPage: integer;

    BlinkTime: longword;
    BlinkCount: integer;  //0..9


    procedure HideAllControls;
    procedure RestoreHideControls;
    procedure PageChanged;
    procedure DealItemReturnBag (mitem: TClientItem);
    procedure DealZeroGold;
  public
    MaxLineHeight: Integer;
    StatePage: integer;
    HelpPage: integer;
    MsgText: string;
    DialogSize: integer;
    {
    m_n66C:Integer;
    m_n688:Integer;
    m_n6A4:Integer;
    m_n6A8:Integer;
    }
//    m_Dicea:array[0..35] of Integer;
    m_boMouseMove:Boolean;

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

    MerchantName: string;
    MerchantFace: integer;
    MDlgStr: string;
    MDlgPoints: TList;
    RequireAddPoints: Boolean;
    SelectMenuStr: string;
    LastestClickTime: longword;
    SpotDlgMode: TSpotDlgMode;

    MenuList: TList; //list of PTClientGoods
    ShopMenuList: TList;
    MenuIndex: integer;
    ShopMenuIndex: integer;
    GameShopMenuIndex: integer;
    CurDetailItem: string;
    AuctionMenuIndex: Integer;
    GTListMenuIndex: Integer;
    MenuTopLine: integer;
    BoDetailMenu: Boolean;
    BoStorageMenu: Boolean;
    BoNoDisplayMaxDura: Boolean;
    BoMakeDrugMenu: Boolean;
    BoMakeGem:Boolean;
    sMakeGemName:String;
    NAHelps: TStringList;
    NewAccountTitle: string;

    DlgEditText: string;
    UserState1: TUserStateInfo;

    Guild: string;
    GuildFlag: string;
    GuildCommanderMode: Boolean;
    GuildStrs: TStringList;
    GuildStrs2: TStringList;
    GuildNotice: TStringList;
    GuildMembers: TStringList;
    GuildTopLine: integer;
    GuildEditHint: string;
    GuildChats: TStringList;
    BoGuildChat: Boolean;
    
    FriendList: Array[0..1] of TList; //List of PTClientFriends
    FriendIndex: Array[0..1] of Integer;
    FriendPage: Integer;
    FriendScreen: Byte; //0 = FriendList, 1 = BlackList

    EdSalesEdit: TMemo;
    EdMemo: TMemo;
    EdMail: TMemo;
    EdMailRead: TMemo;
    BBSMemo: TMemo;    
    EdShopEdit: TMemo;
    EnterPasswd: TEdit;
    EdSetPasswd: TEdit;
    EdSetConfirm: TEdit;
    EdOldPasswd: TEdit;
    EdNewPasswd: TEdit;
    EdConfirm: TEdit;
    
    MailList: TList; //List of pTMailItem
    BlockList: TList; //List of pTBlockItem
    MailIndex: Integer;
    BlockIndex: Integer;    
    MailPage: Integer;
    BlockPage: Integer;

    BBSSticky: integer;

    LastBeltDoubleClick: integer;
    
    procedure Initialize;
    procedure DoBeltSetup;    
    procedure OpenMyStatus;
    procedure OpenUserState (UserState: TUserStateInfo);
    procedure OpenItemBag;
    procedure ViewBottomBox (visible: Boolean);
    procedure CancelItemMoving;
    procedure DropMovingItem;
    procedure OpenAdjustAbility;

    procedure ShowSelectServerDlg;
    function  DMessageDlg (msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
    function  DSimpleMessageDlg (msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
    function  DCountMessageDlg (msgstr: string; DlgButtons: TMsgDlgButtons): TModalResult;
    procedure ShowMDlg (face: integer; mname, msgstr: string);