⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 gameconfig.pas

📁 大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.
💻 PAS
📖 第 1 页 / 共 4 页
字号:
    EditGroupMembersMax: TSpinEdit;
    CheckBoxDisableSelfStruck: TCheckBox;
    CheckBoxCanNotGetBackDeal: TCheckBox;
    CheckBoxDisableDeal: TCheckBox;
    GroupBox64: TGroupBox;
    Label118: TLabel;
    EditCanDropPrice: TSpinEdit;
    CheckBoxControlDropItem: TCheckBox;
    Label119: TLabel;
    EditCanDropGold: TSpinEdit;
    CheckBoxIsSafeDisableDrop: TCheckBox;
    GroupBox65: TGroupBox;
    Label122: TLabel;
    Label123: TLabel;
    LabelCustMsgFColor: TLabel;
    LabelCustMsgBColor: TLabel;
    EditCustMsgFColor: TSpinEdit;
    EditCustMsgBColor: TSpinEdit;
    GroupBox66: TGroupBox;
    Label126: TLabel;
    EditSuperRepairPriceRate: TSpinEdit;
    Label127: TLabel;
    EditRepairItemDecDura: TSpinEdit;
    TabSheet9: TTabSheet;
    ButtonHumanDieSave: TButton;
    GroupBox67: TGroupBox;
    CheckBoxKillByMonstDropUseItem: TCheckBox;
    CheckBoxKillByHumanDropUseItem: TCheckBox;
    CheckBoxDieScatterBag: TCheckBox;
    CheckBoxDieDropGold: TCheckBox;
    CheckBoxDieRedScatterBagAll: TCheckBox;
    GroupBox69: TGroupBox;
    Label130: TLabel;
    Label131: TLabel;
    Label134: TLabel;
    ScrollBarDieDropUseItemRate: TScrollBar;
    EditDieDropUseItemRate: TEdit;
    ScrollBarDieRedDropUseItemRate: TScrollBar;
    EditDieRedDropUseItemRate: TEdit;
    ScrollBarDieScatterBagRate: TScrollBar;
    EditDieScatterBagRate: TEdit;
    CheckBoxGMRunAll: TCheckBox;
    GroupBox68: TGroupBox;
    Label135: TLabel;
    Label138: TLabel;
    EditSayMsgTime: TSpinEdit;
    EditSayMsgCount: TSpinEdit;
    Label139: TLabel;
    EditDisableSayMsgTime: TSpinEdit;
    Label140: TLabel;
    Label141: TLabel;
    Label142: TLabel;
    EditDropOverSpeed: TSpinEdit;
    GroupBox70: TGroupBox;
    Label143: TLabel;
    Label144: TLabel;
    EditGuildWarTime: TSpinEdit;
    GroupBox71: TGroupBox;
    CheckBoxShowPreFixMsg: TCheckBox;
    CheckBoxShowExceptionMsg: TCheckBox;
    TabSheet10: TTabSheet;
    ButtonCharStatusSave: TButton;
    GroupBox72: TGroupBox;
    CheckBoxParalyCanRun: TCheckBox;
    CheckBoxParalyCanWalk: TCheckBox;
    CheckBoxParalyCanHit: TCheckBox;
    CheckBoxParalyCanSpell: TCheckBox;
    ButtonGameSpeedDefault: TButton;
    GroupBox73: TGroupBox;
    CheckBoxCanOldClientLogon: TCheckBox;
    CheckBoxSpellSendUpdateMsg: TCheckBox;
    CheckBoxActionSendActionMsg: TCheckBox;
    RadioButtonDelyMode: TRadioButton;
    RadioButtonFilterMode: TRadioButton;
    ButtonActionSpeedConfig: TButton;
    CheckBoxRunGuard: TCheckBox;
    CheckBoxSafeZoneRunAll: TCheckBox;
    GroupBoxCheckHookTool: TGroupBox;
    CheckBoxCheckHookTool: TCheckBox;
    SpinEditCheckHookTool: TSpinEdit;
    LabelCheckHookTool: TLabel;
    GroupBox75: TGroupBox;
    Label151: TLabel;
    Label152: TLabel;
    SpinEditLimitLevel: TSpinEdit;
    CheckBoxLevelLimit: TCheckBox;
    SpinEditKillMonExpDiv: TSpinEdit;
    CheckBoxHighLevelGroupFixExp: TCheckBox;
    EditNoDropItemGamegold: TSpinEdit;
    Label15: TLabel;
    Label145: TLabel;
    CheckBoxNoDropItemOfGameGold: TCheckBox;
    EditNoScatterBagGamegold: TSpinEdit;
    GroupBox76: TGroupBox;
    CheckBoxDisableDoubleAttack: TCheckBox;
    CheckBoxSafeZonePush: TCheckBox;
    GroupBox81: TGroupBox;
    Label153: TLabel;
    EditGuildMemberMaxLimit: TSpinEdit;
    GroupBox77: TGroupBox;
    GridLimitLevelExp: TStringGrid;
    GroupBox78: TGroupBox;
    GridDieDropGold: TStringGrid;
    CheckBoxDropGoldToPlayBag: TCheckBox;
    EditDoubleAttackCheck: TSpinEdit;
    Label146: TLabel;
    CheckBoxDisableHeroStruck: TCheckBox;
    CheckBoxOnlyHeroClientLogon: TCheckBox;
    GroupBox74: TGroupBox;
    EditHeroLevelExpRate: TSpinEdit;
    Label147: TLabel;
    procedure EditHitIntervalTimeChange(Sender : TObject);
    procedure EditMagicHitIntervalTimeChange(Sender : TObject);
    procedure EditRunIntervalTimeChange(Sender : TObject);
    procedure EditWalkIntervalTimeChange(Sender : TObject);
    procedure EditTurnIntervalTimeChange(Sender : TObject);
    procedure EditMaxHitMsgCountChange(Sender : TObject);
    procedure EditMaxSpellMsgCountChange(Sender : TObject);
    procedure EditMaxRunMsgCountChange(Sender : TObject);
    procedure EditMaxWalkMsgCountChange(Sender : TObject);
    procedure EditMaxTurnMsgCountChange(Sender : TObject);
    procedure EditMaxDigUpMsgCountChange(Sender : TObject);
    procedure EditItemSpeedTimeChange(Sender : TObject);
    procedure ButtonGameSpeedSaveClick(Sender : TObject);
    procedure GameConfigControlChanging(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure EditConsoleShowUserCountTimeChange(Sender : TObject);
    procedure EditShowLineNoticeTimeChange(Sender : TObject);
    procedure ComboBoxLineNoticeColorChange(Sender : TObject);
    procedure EditSoftVersionDateChange(Sender : TObject);
    procedure ButtonGeneralSaveClick(Sender : TObject);
    procedure EditLineNoticePreFixChange(Sender : TObject);
    procedure CheckBoxDisableStruckClick(Sender : TObject);
    procedure EditStruckTimeChange(Sender : TObject);
    procedure EditKillMonExpMultipleChange(Sender : TObject);
    procedure CheckBoxHighLevelKillMonFixExpClick(Sender : TObject);
    procedure ButtonExpSaveClick(Sender : TObject);
    procedure EditRepairDoorPriceChange(Sender : TObject);
    procedure EditRepairWallPriceChange(Sender : TObject);
    procedure EditHireArcherPriceChange(Sender : TObject);
    procedure EditHireGuardPriceChange(Sender : TObject);
    procedure EditCastleGoldMaxChange(Sender : TObject);
    procedure EditCastleOneDayGoldChange(Sender : TObject);
    procedure EditCastleHomeMapChange(Sender : TObject);
    procedure EditCastleHomeXChange(Sender : TObject);
    procedure EditCastleHomeYChange(Sender : TObject);
    procedure EditCastleNameChange(Sender : TObject);
    procedure EditWarRangeXChange(Sender : TObject);
    procedure EditWarRangeYChange(Sender : TObject);
    procedure CheckBoxGetAllNpcTaxClick(Sender : TObject);
    procedure EditTaxRateChange(Sender : TObject);
    procedure ButtonCastleSaveClick(Sender : TObject);
    procedure GridLevelExpSetEditText(Sender : TObject);
    procedure ComboBoxLevelExpClick(Sender : TObject);
    procedure EditOverSpeedKickCountChange(Sender : TObject);
    procedure CheckBoxboKickOverSpeedClick(Sender : TObject);
    procedure CheckBoxDisHumRunClick(Sender : TObject);
    procedure ButtonOptionSaveClick(Sender : TObject);
    procedure CheckBoxRunHumClick(Sender : TObject);
    procedure CheckBoxRunMonClick(Sender : TObject);
    procedure CheckBoxWarDisHumRunClick(Sender : TObject);
    procedure CheckBoxRunNpcClick(Sender : TObject);
    procedure EditSafeZoneSizeChange(Sender : TObject);
    procedure EditStartPointSizeChange(Sender : TObject);
    procedure EditGroupMembersMaxChange(Sender : TObject);
    procedure EditRedHomeXChange(Sender : TObject);
    procedure EditRedHomeYChange(Sender : TObject);
    procedure EditRedHomeMapChange(Sender : TObject);
    procedure EditRedDieHomeMapChange(Sender : TObject);
    procedure EditRedDieHomeXChange(Sender : TObject);
    procedure EditRedDieHomeYChange(Sender : TObject);
    procedure ButtonOptionSave3Click(Sender : TObject);
    procedure EditHomeMapChange(Sender : TObject);
    procedure EditHomeXChange(Sender : TObject);
    procedure EditHomeYChange(Sender : TObject);
    procedure EditDecPkPointTimeChange(Sender : TObject);
    procedure EditDecPkPointCountChange(Sender : TObject);
    procedure EditPKFlagTimeChange(Sender : TObject);
    procedure EditKillHumanAddPKPointChange(Sender : TObject);
    procedure ButtonOptionSave2Click(Sender : TObject);
    procedure EditPosionDecHealthTimeChange(Sender : TObject);
    procedure EditPosionDamagarmorChange(Sender : TObject);
    procedure CheckBoxTestServerClick(Sender : TObject);
    procedure CheckBoxServiceModeClick(Sender : TObject);
    procedure CheckBoxVentureModeClick(Sender : TObject);
    procedure CheckBoxNonPKModeClick(Sender : TObject);
    procedure EditTestLevelChange(Sender : TObject);
    procedure EditTestGoldChange(Sender : TObject);
    procedure EditTestUserLimitChange(Sender : TObject);
    procedure EditStartPermissionChange(Sender : TObject);
    procedure EditUserFullChange(Sender : TObject);
    procedure ButtonOptionSave0Click(Sender : TObject);
    procedure CheckBoxKillHumanWinLevelClick(Sender : TObject);
    procedure CheckBoxKilledLostLevelClick(Sender : TObject);
    procedure CheckBoxKillHumanWinExpClick(Sender : TObject);
    procedure CheckBoxKilledLostExpClick(Sender : TObject);
    procedure EditKillHumanWinLevelChange(Sender : TObject);
    procedure EditKilledLostLevelChange(Sender : TObject);
    procedure EditKillHumanWinExpChange(Sender : TObject);
    procedure EditKillHumanLostExpChange(Sender : TObject);
    procedure EditHumanLevelDifferChange(Sender : TObject);
    procedure EditHumanMaxGoldChange(Sender : TObject);
    procedure EditHumanTryModeMaxGoldChange(Sender : TObject);
    procedure EditTryModeLevelChange(Sender : TObject);
    procedure CheckBoxTryModeUseStorageClick(Sender : TObject);
    procedure CheckBoxShowMakeItemMsgClick(Sender : TObject);
    procedure CbViewHackClick(Sender : TObject);
    procedure CkViewAdmfailClick(Sender : TObject);
    procedure EditSayMsgMaxLenChange(Sender : TObject);
    procedure EditSayRedMsgMaxLenChange(Sender : TObject);
    procedure EditCanShoutMsgLevelChange(Sender : TObject);
    procedure CheckBoxShutRedMsgShowGMNameClick(Sender : TObject);
    procedure EditGMRedMsgCmdChange(Sender : TObject);
    procedure ButtonMsgSaveClick(Sender : TObject);
    procedure EditStartCastleWarDaysChange(Sender : TObject);
    procedure EditStartCastlewarTimeChange(Sender : TObject);
    procedure EditShowCastleWarEndMsgTimeChange(Sender : TObject);
    procedure EditCastleWarTimeChange(Sender : TObject);
    procedure EditGetCastleTimeChange(Sender : TObject);
    procedure EditMakeGhostTimeChange(Sender : TObject);
    procedure EditClearDropOnFloorItemTimeChange(Sender : TObject);
    procedure EditSaveHumanRcdTimeChange(Sender : TObject);
    procedure EditHumanFreeDelayTimeChange(Sender : TObject);
    procedure EditFloorItemCanPickUpTimeChange(Sender : TObject);
    procedure ButtonTimeSaveClick(Sender : TObject);
    procedure EditBuildGuildPriceChange(Sender : TObject);
    procedure EditGuildWarPriceChange(Sender : TObject);
    procedure EditMakeDurgPriceChange(Sender : TObject);
    procedure ButtonPriceSaveClick(Sender : TObject);
    procedure CheckBoxSendOnlineCountClick(Sender : TObject);
    procedure EditSendOnlineCountRateChange(Sender : TObject);
    procedure EditSendOnlineTimeChange(Sender : TObject);
    procedure EditMonsterPowerRateChange(Sender : TObject);
    procedure EditEditItemsPowerRateChange(Sender : TObject);
    procedure EditItemsACPowerRateChange(Sender : TObject);
    procedure EditTryDealTimeChange(Sender : TObject);
    procedure EditDealOKTimeChange(Sender : TObject);
    procedure EditCastleMemberPriceRateChange(Sender : TObject);
    procedure EditHearMsgFColorChange(Sender : TObject);
    procedure EdittHearMsgBColorChange(Sender : TObject);
    procedure EditWhisperMsgFColorChange(Sender : TObject);
    procedure EditWhisperMsgBColorChange(Sender : TObject);
    procedure EditGMWhisperMsgFColorChange(Sender : TObject);
    procedure EditGMWhisperMsgBColorChange(Sender : TObject);
    procedure EditRedMsgFColorChange(Sender : TObject);
    procedure EditRedMsgBColorChange(Sender : TObject);
    procedure EditGreenMsgFColorChange(Sender : TObject);
    procedure EditGreenMsgBColorChange(Sender : TObject);
    procedure EditBlueMsgFColorChange(Sender : TObject);
    procedure EditBlueMsgBColorChange(Sender : TObject);
    procedure EditCryMsgFColorChange(Sender : TObject);
    procedure EditCryMsgBColorChange(Sender : TObject);
    procedure EditGuildMsgFColorChange(Sender : TObject);
    procedure EditGuildMsgBColorChange(Sender : TObject);
    procedure EditGroupMsgFColorChange(Sender : TObject);
    procedure EditGroupMsgBColorChange(Sender : TObject);
    procedure ButtonMsgColorSaveClick(Sender : TObject);
    procedure CheckBoxPKLevelProtectClick(Sender : TObject);
    procedure EditPKProtectLevelChange(Sender : TObject);
    procedure EditRedPKProtectLevelChange(Sender : TObject);
    procedure CheckBoxDisableSelfStruckClick(Sender : TObject);
    procedure CheckBoxCanNotGetBackDealClick(Sender : TObject);
    procedure CheckBoxDisableDealClick(Sender : TObject);
    procedure CheckBoxControlDropItemClick(Sender : TObject);
    procedure EditCanDropPriceChange(Sender : TObject);
    procedure EditCanDropGoldChange(Sender : TObject);
    procedure CheckBoxIsSafeDisableDropClick(Sender : TObject);
    procedure EditCustMsgFColorChange(Sender : TObject);
    procedure EditCustMsgBColorChange(Sender : TObject);
    procedure EditSuperRepairPriceRateChange(Sender : TObject);
    procedure EditRepairItemDecDuraChange(Sender : TObject);
    procedure ButtonHumanDieSaveClick(Sender : TObject);
    procedure ScrollBarDieDropUseItemRateChange(Sender : TObject);
    procedure ScrollBarDieRedDropUseItemRateChange(Sender : TObject);
    procedure ScrollBarDieScatterBagRateChange(Sender : TObject);
    procedure CheckBoxKillByMonstDropUseItemClick(Sender : TObject);
    procedure CheckBoxKillByHumanDropUseItemClick(Sender : TObject);
    procedure CheckBoxDieScatterBagClick(Sender : TObject);
    procedure CheckBoxDieDropGoldClick(Sender : TObject);
    procedure CheckBoxDieRedScatterBagAllClick(Sender : TObject);
    procedure CheckBoxGMRunAllClick(Sender : TObject);
    procedure EditSayMsgTimeChange(Sender : TObject);
    procedure EditSayMsgCountChange(Sender : TObject);
    procedure EditDisableSayMsgTimeChange(Sender : TObject);
    procedure EditDropOverSpeedChange(Sender : TObject);
    procedure EditGuildWarTimeChange(Sender : TObject);
    procedure CheckBoxShowPreFixMsgClick(Sender : TObject);
    procedure CheckBoxShowExceptionMsgClick(Sender : TObject);
    procedure CheckBoxParalyCanRunClick(Sender : TObject);
    procedure CheckBoxParalyCanWalkClick(Sender : TObject);
    procedure CheckBoxParalyCanHitClick(Sender : TObject);
    procedure CheckBoxParalyCanSpellClick(Sender : TObject);
    procedure ButtonCharStatusSaveClick(Sender : TObject);
    procedure ButtonGameSpeedDefaultClick(Sender : TObject);
    procedure CheckBoxCanOldClientLogonClick(Sender : TObject);
    procedure CheckBoxSpellSendUpdateMsgClick(Sender : TObject);
    procedure CheckBoxActionSendActionMsgClick(Sender : TObject);
    procedure RadioButtonDelyModeClick(Sender : TObject);
    procedure RadioButtonFilterModeClick(Sender : TObject);
    procedure EditTestLevelKeyDown(Sender : TObject);
    procedure ButtonActionSpeedConfigClick(Sender : TObject);
    procedure CheckBoxRunGuardClick(Sender : TObject);
    procedure CheckBoxDropGoldToPlayBagClick(Sender : TObject);
    procedure CheckBoxSafeZoneRunAllClick(Sender : TObject);
    procedure CheckBoxCheckHookToolClick(Sender : TObject);
    procedure SpinEditCheckHookToolChange(Sender : TObject);
    procedure CheckBoxHighLevelGroupFixExpClick(Sender : TObject);
    procedure CheckBoxLevelLimitClick(Sender : TObject);
    procedure SpinEditLimitLevelChange(Sender : TObject);
    procedure SpinEditKillMonExpDivChange(Sender : TObject);
    procedure CheckBoxNoDropItemOfGameGoldClick(Sender : TObject);
    procedure EditNoDropItemGamegoldChange(Sender : TObject);
    procedure EditNoScatterBagGamegoldChange(Sender : TObject);
    procedure CheckBoxDisableDoubleAttackClick(Sender : TObject);
    procedure CheckBoxSafeZonePushClick(Sender : TObject);
    procedure EditGuildMemberMaxLimitChange(Sender : TObject);
    procedure GridLimitLevelExpSetEditText(Sender : TObject);
    procedure EditDoubleAttackCheckChange(Sender : TObject);
    procedure CheckBoxDisableHeroStruckClick(Sender : TObject);
    procedure CheckBoxOnlyHeroClientLogonClick(Sender : TObject);
    procedure EditHeroLevelExpRateChange(Sender : TObject);
    procedure _PROC_005245B4(Sender : TObject);
    procedure _PROC_005245C3(Sender : TObject);
    procedure _PROC_005245F0(Sender : TObject);
    procedure _PROC_005246E4(Sender : TObject);
    procedure _PROC_005247D8(Sender : TObject);
    procedure _PROC_00525A81(Sender : TObject);
    procedure _PROC_00525EA3(Sender : TObject);
    procedure _PROC_00525EB1(Sender : TObject);
    procedure _PROC_00526347(Sender : TObject);
    procedure _PROC_00526EE8(Sender : TObject);
    procedure _PROC_005274D0(Sender : TObject);
    procedure _PROC_00528DF9(Sender : TObject);
    procedure _PROC_00529CB8(Sender : TObject);
    procedure _PROC_0052B79F(Sender : TObject);
    procedure _PROC_0052C2C1(Sender : TObject);
    procedure _PROC_0052C8E9(Sender : TObject);
    procedure _PROC_0052DC7C(Sender : TObject);
    procedure _PROC_0052E078(Sender : TObject);
    procedure _PROC_0052EC40(Sender : TObject);
    procedure _PROC_0052EC70(Sender : TObject);
    procedure _PROC_0052EC78(Sender : TObject);
    procedure _PROC_0052ED02(Sender : TObject);
    procedure _PROC_0052ED76(Sender : TObject);
    procedure _PROC_0052EFBD(Sender : TObject);
    procedure _PROC_005301FC(Sender : TObject);
    procedure _PROC_0053054E(Sender : TObject);
    procedure _PROC_005317E0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmGameConfig: TfrmGameConfig;

{This file is generated by DaRk Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmGameConfig.EditHitIntervalTimeChange(Sender : TObject);
begin
(*
00526458   55                     push    ebp
00526459   8BEC                   mov     ebp, esp
0052645B   83C4F8                 add     esp, -$08
0052645E   8955F8                 mov     [ebp-$08], edx
00526461   8945FC                 mov     [ebp-$04], eax
00526464   8B45FC                 mov     eax, [ebp-$04]
00526467   80B8780A000000         cmp     byte ptr [eax+$0A78], $00
0052646E   7422                   jz      00526492
00526470   8B45FC                 mov     eax, [ebp-$04]
00526473   8B8004030000           mov     eax, [eax+$0304]

* Reference to : TTimerSpeedButton._PROC_0051A158()

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -