📄 functionconfig.pas
字号:
GroupBox44: TGroupBox;
Label105: TLabel;
Label106: TLabel;
Label107: TLabel;
Label108: TLabel;
Label109: TLabel;
ScrollBarWeaponMakeUnLuckRate: TScrollBar;
EditWeaponMakeUnLuckRate: TEdit;
ScrollBarWeaponMakeLuckPoint1: TScrollBar;
EditWeaponMakeLuckPoint1: TEdit;
ScrollBarWeaponMakeLuckPoint2: TScrollBar;
EditWeaponMakeLuckPoint2: TEdit;
ScrollBarWeaponMakeLuckPoint2Rate: TScrollBar;
EditWeaponMakeLuckPoint2Rate: TEdit;
EditWeaponMakeLuckPoint3: TEdit;
ScrollBarWeaponMakeLuckPoint3: TScrollBar;
Label110: TLabel;
ScrollBarWeaponMakeLuckPoint3Rate: TScrollBar;
EditWeaponMakeLuckPoint3Rate: TEdit;
ButtonWeaponMakeLuckDefault: TButton;
ButtonWeaponMakeLuckSave: TButton;
GroupBox45: TGroupBox;
Label111: TLabel;
EditTammingCount: TSpinEdit;
GroupBox46: TGroupBox;
CheckBoxFireCrossInSafeZone: TCheckBox;
GroupBox47: TGroupBox;
Label112: TLabel;
CheckBoxBBMonAutoChangeColor: TCheckBox;
EditBBMonAutoChangeColorTime: TSpinEdit;
TabSheet43: TTabSheet;
GroupBox48: TGroupBox;
CheckBoxGroupMbAttackPlayObject: TCheckBox;
CheckBoxGroupMbAttackBaobao: TCheckBox;
TabSheet44: TTabSheet;
GroupBox49: TGroupBox;
Label113: TLabel;
Label114: TLabel;
EditSellCount: TSpinEdit;
EditSellTax: TSpinEdit;
ButtonSellSave: TButton;
TabSheet45: TTabSheet;
GroupBox50: TGroupBox;
Label115: TLabel;
Label116: TLabel;
Label117: TLabel;
ScrollBarMakeItemWQRate: TScrollBar;
EditMkaeItemWQRate: TEdit;
ScrollBarMakeItemTKRate: TScrollBar;
EditMkaeItemTKRate: TEdit;
ScrollBarMakeItemXLRate: TScrollBar;
EditMkaeItemXLRate: TEdit;
Label118: TLabel;
ScrollBarMakeItemXZRate: TScrollBar;
EditMkaeItemXZRate: TEdit;
EditMkaeItemJZRate: TEdit;
ScrollBarMakeItemJZRate: TScrollBar;
Label119: TLabel;
Label120: TLabel;
ScrollBarMakeItemSZRate: TScrollBar;
EditMkaeItemSZRate: TEdit;
Label121: TLabel;
ScrollBarMakeItemPZRate: TScrollBar;
EditMkaeItemPZRate: TEdit;
EditMkaeItemYDRate: TEdit;
ScrollBarMakeItemYDRate: TScrollBar;
Label122: TLabel;
Label123: TLabel;
ScrollBarMakeItemYFRate: TScrollBar;
EditMkaeItemYFRate: TEdit;
Label124: TLabel;
ScrollBarMakeItemBZRate: TScrollBar;
EditMkaeItemBZRate: TEdit;
ButtonMakeItemSave: TButton;
EditMakeMineHitRate: TSpinEdit;
EditMakeMineRate: TSpinEdit;
ListViewMapofMine: TListView;
StringGridofMapMine: TStringGrid;
Button1: TButton;
EditMapName: TEdit;
procedure CheckBoxEnablePasswordLockClick(Sender: TObject);
procedure CheckBoxLockGetBackItemClick(Sender: TObject);
procedure CheckBoxLockDealItemClick(Sender: TObject);
procedure CheckBoxLockDropItemClick(Sender: TObject);
procedure CheckBoxLockWalkClick(Sender: TObject);
procedure CheckBoxLockRunClick(Sender: TObject);
procedure CheckBoxLockHitClick(Sender: TObject);
procedure CheckBoxLockSpellClick(Sender: TObject);
procedure CheckBoxLockSendMsgClick(Sender: TObject);
procedure CheckBoxLockInObModeClick(Sender: TObject);
procedure EditErrorPasswordCountChange(Sender: TObject);
procedure ButtonPasswordLockSaveClick(Sender: TObject);
procedure CheckBoxErrorCountKickClick(Sender: TObject);
procedure CheckBoxLockLoginClick(Sender: TObject);
procedure CheckBoxLockUseItemClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure CheckBoxHungerSystemClick(Sender: TObject);
procedure CheckBoxHungerDecHPClick(Sender: TObject);
procedure CheckBoxHungerDecPowerClick(Sender: TObject);
procedure ButtonGeneralSaveClick(Sender: TObject);
procedure CheckBoxLimitSwordLongClick(Sender: TObject);
procedure ButtonSkillSaveClick(Sender: TObject);
procedure EditBoneFammNameChange(Sender: TObject);
procedure EditBoneFammCountChange(Sender: TObject);
procedure EditSwordLongPowerRateChange(Sender: TObject);
procedure EditFireBoomRageChange(Sender: TObject);
procedure EditSnowWindRangeChange(Sender: TObject);
procedure EditElecBlizzardRangeChange(Sender: TObject);
procedure EditDogzCountChange(Sender: TObject);
procedure EditDogzNameChange(Sender: TObject);
procedure GridBoneFammSetEditText(Sender: TObject; ACol, ARow: Integer;
const Value: string);
procedure EditAmyOunsulPointChange(Sender: TObject);
procedure EditMagicAttackRageChange(Sender: TObject);
procedure ScrollBarUpgradeWeaponDCRateChange(Sender: TObject);
procedure ScrollBarUpgradeWeaponDCTwoPointRateChange(Sender: TObject);
procedure ScrollBarUpgradeWeaponDCThreePointRateChange(
Sender: TObject);
procedure ScrollBarUpgradeWeaponSCRateChange(Sender: TObject);
procedure ScrollBarUpgradeWeaponSCTwoPointRateChange(Sender: TObject);
procedure ScrollBarUpgradeWeaponSCThreePointRateChange(
Sender: TObject);
procedure ScrollBarUpgradeWeaponMCRateChange(Sender: TObject);
procedure ScrollBarUpgradeWeaponMCTwoPointRateChange(Sender: TObject);
procedure ScrollBarUpgradeWeaponMCThreePointRateChange(
Sender: TObject);
procedure EditUpgradeWeaponMaxPointChange(Sender: TObject);
procedure EditUpgradeWeaponPriceChange(Sender: TObject);
procedure EditUPgradeWeaponGetBackTimeChange(Sender: TObject);
procedure EditClearExpireUpgradeWeaponDaysChange(Sender: TObject);
procedure ButtonUpgradeWeaponSaveClick(Sender: TObject);
procedure EditMasterOKLevelChange(Sender: TObject);
procedure ButtonMasterSaveClick(Sender: TObject);
procedure EditMasterOKCreditPointChange(Sender: TObject);
procedure EditMasterOKBonusPointChange(Sender: TObject);
procedure ButtonMakeMineSaveClick(Sender: TObject);
procedure EditStoneMinDuraChange(Sender: TObject);
procedure EditStoneGeneralDuraRateChange(Sender: TObject);
procedure EditStoneAddDuraRateChange(Sender: TObject);
procedure EditStoneAddDuraMaxChange(Sender: TObject);
procedure ButtonWinLotterySaveClick(Sender: TObject);
procedure EditWinLottery1GoldChange(Sender: TObject);
procedure EditWinLottery2GoldChange(Sender: TObject);
procedure EditWinLottery3GoldChange(Sender: TObject);
procedure EditWinLottery4GoldChange(Sender: TObject);
procedure EditWinLottery5GoldChange(Sender: TObject);
procedure EditWinLottery6GoldChange(Sender: TObject);
procedure ScrollBarWinLottery1MaxChange(Sender: TObject);
procedure ScrollBarWinLottery2MaxChange(Sender: TObject);
procedure ScrollBarWinLottery3MaxChange(Sender: TObject);
procedure ScrollBarWinLottery4MaxChange(Sender: TObject);
procedure ScrollBarWinLottery5MaxChange(Sender: TObject);
procedure ScrollBarWinLottery6MaxChange(Sender: TObject);
procedure ScrollBarWinLotteryRateChange(Sender: TObject);
procedure ButtonReNewLevelSaveClick(Sender: TObject);
procedure EditReNewNameColor1Change(Sender: TObject);
procedure EditReNewNameColor2Change(Sender: TObject);
procedure EditReNewNameColor3Change(Sender: TObject);
procedure EditReNewNameColor4Change(Sender: TObject);
procedure EditReNewNameColor5Change(Sender: TObject);
procedure EditReNewNameColor6Change(Sender: TObject);
procedure EditReNewNameColor7Change(Sender: TObject);
procedure EditReNewNameColor8Change(Sender: TObject);
procedure EditReNewNameColor9Change(Sender: TObject);
procedure EditReNewNameColor10Change(Sender: TObject);
procedure EditReNewNameColorTimeChange(Sender: TObject);
procedure FunctionConfigControlChanging(Sender: TObject;
var AllowChange: Boolean);
procedure ButtonMonUpgradeSaveClick(Sender: TObject);
procedure EditMonUpgradeColor1Change(Sender: TObject);
procedure EditMonUpgradeColor2Change(Sender: TObject);
procedure EditMonUpgradeColor3Change(Sender: TObject);
procedure EditMonUpgradeColor4Change(Sender: TObject);
procedure EditMonUpgradeColor5Change(Sender: TObject);
procedure EditMonUpgradeColor6Change(Sender: TObject);
procedure EditMonUpgradeColor7Change(Sender: TObject);
procedure EditMonUpgradeColor8Change(Sender: TObject);
procedure EditMonUpgradeColor9Change(Sender: TObject);
procedure CheckBoxReNewChangeColorClick(Sender: TObject);
procedure CheckBoxReNewLevelClearExpClick(Sender: TObject);
procedure EditPKFlagNameColorChange(Sender: TObject);
procedure EditPKLevel1NameColorChange(Sender: TObject);
procedure EditPKLevel2NameColorChange(Sender: TObject);
procedure EditAllyAndGuildNameColorChange(Sender: TObject);
procedure EditWarGuildNameColorChange(Sender: TObject);
procedure EditInFreePKAreaNameColorChange(Sender: TObject);
procedure EditMonUpgradeKillCount1Change(Sender: TObject);
procedure EditMonUpgradeKillCount2Change(Sender: TObject);
procedure EditMonUpgradeKillCount3Change(Sender: TObject);
procedure EditMonUpgradeKillCount4Change(Sender: TObject);
procedure EditMonUpgradeKillCount5Change(Sender: TObject);
procedure EditMonUpgradeKillCount6Change(Sender: TObject);
procedure EditMonUpgradeKillCount7Change(Sender: TObject);
procedure EditMonUpLvNeedKillBaseChange(Sender: TObject);
procedure EditMonUpLvRateChange(Sender: TObject);
procedure CheckBoxMasterDieMutinyClick(Sender: TObject);
procedure EditMasterDieMutinyRateChange(Sender: TObject);
procedure EditMasterDieMutinyPowerChange(Sender: TObject);
procedure EditMasterDieMutinySpeedChange(Sender: TObject);
procedure ButtonSpiritMutinySaveClick(Sender: TObject);
procedure CheckBoxSpiritMutinyClick(Sender: TObject);
procedure EditSpiritMutinyTimeChange(Sender: TObject);
procedure EditSpiritPowerRateChange(Sender: TObject);
procedure EditMagTurnUndeadLevelChange(Sender: TObject);
procedure EditMagTammingLevelChange(Sender: TObject);
procedure EditMagTammingTargetLevelChange(Sender: TObject);
procedure EditMagTammingHPRateChange(Sender: TObject);
procedure ButtonMonSayMsgSaveClick(Sender: TObject);
procedure CheckBoxMonSayMsgClick(Sender: TObject);
procedure ButtonUpgradeWeaponDefaulfClick(Sender: TObject);
procedure ButtonWinLotteryDefaultClick(Sender: TObject);
procedure EditMabMabeHitRandRateChange(Sender: TObject);
procedure EditMabMabeHitMinLvLimitChange(Sender: TObject);
procedure EditMabMabeHitSucessRateChange(Sender: TObject);
procedure EditMabMabeHitMabeTimeRateChange(Sender: TObject);
procedure ButtonWeaponMakeLuckDefaultClick(Sender: TObject);
procedure ButtonWeaponMakeLuckSaveClick(Sender: TObject);
procedure ScrollBarWeaponMakeUnLuckRateChange(Sender: TObject);
procedure ScrollBarWeaponMakeLuckPoint1Change(Sender: TObject);
procedure ScrollBarWeaponMakeLuckPoint2Change(Sender: TObject);
procedure ScrollBarWeaponMakeLuckPoint2RateChange(Sender: TObject);
procedure ScrollBarWeaponMakeLuckPoint3Change(Sender: TObject);
procedure ScrollBarWeaponMakeLuckPoint3RateChange(Sender: TObject);
procedure EditTammingCountChange(Sender: TObject);
procedure CheckBoxFireCrossInSafeZoneClick(Sender: TObject);
procedure CheckBoxBBMonAutoChangeColorClick(Sender: TObject);
procedure EditBBMonAutoChangeColorTimeChange(Sender: TObject);
procedure CheckBoxGroupMbAttackPlayObjectClick(Sender: TObject);
procedure CheckBoxGroupMbAttackBaobaoClick(Sender: TObject);
procedure EditSellCountChange(Sender: TObject);
procedure ButtonSellSaveClick(Sender: TObject);
procedure ScrollBarMakeItemWQRateChange(Sender: TObject);
procedure ScrollBarMakeItemTKRateChange(Sender: TObject);
procedure ScrollBarMakeItemXLRateChange(Sender: TObject);
procedure ScrollBarMakeItemSZRateChange(Sender: TObject);
procedure ScrollBarMakeItemJZRateChange(Sender: TObject);
procedure ScrollBarMakeItemXZRateChange(Sender: TObject);
procedure ScrollBarMakeItemYFRateChange(Sender: TObject);
procedure ScrollBarMakeItemYDRateChange(Sender: TObject);
procedure ScrollBarMakeItemPZRateChange(Sender: TObject);
procedure ScrollBarMakeItemBZRateChange(Sender: TObject);
procedure ButtonMakeItemSaveClick(Sender: TObject);
procedure ListViewMapofMineClick(Sender: TObject);
procedure ButtonMakeMineAddClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure EditMakeMineHitRateChange(Sender: TObject);
procedure EditMakeMineRateChange(Sender: TObject);
private
boOpened: Boolean;
boModValued: Boolean;
procedure ModValue();
procedure uModValue();
procedure RefReNewLevelConf;
procedure RefUpgradeWeapon;
procedure RefMakeItem;
procedure RefMakeMine;
procedure RefWinLottery;
procedure RefMonUpgrade;
procedure RefGeneral;
procedure RefSpiritMutiny;
procedure RefMagicSkill;
procedure RefMonSayMsg;
procedure RefWeaponMakeLuck();
procedure LoadMapofMine();
procedure RefStringGridofMine(MapName:String);
{ Private declarations }
public
procedure Open;
{ Public declarations }
end;
var
frmFunctionConfig : TfrmFunctionConfig;
CurEnvir : TEnvirnoment;
implementation
uses M2Share, HUtil32;
{$R *.dfm}
{ TfrmFunctionConfig }
procedure TfrmFunctionConfig.ModValue;
begin
boModValued := True;
ButtonPasswordLockSave.Enabled := True;
ButtonGeneralSave.Enabled := True;
ButtonSkillSave.Enabled := True;
ButtonUpgradeWeaponSave.Enabled := True;
ButtonMasterSave.Enabled := True;
ButtonMakeMineSave.Enabled := True;
ButtonWinLotterySave.Enabled := True;
ButtonReNewLevelSave.Enabled := True;
ButtonMonUpgradeSave.Enabled := True;
ButtonSpiritMutinySave.Enabled := True;
ButtonMonSayMsgSave.Enabled := True;
ButtonSellSave.Enabled := True;
ButtonMakeItemSave.Enabled:= True;
end;
procedure TfrmFunctionConfig.uModValue;
begin
boModValued := False;
ButtonPasswordLockSave.Enabled := False;
ButtonGeneralSave.Enabled := False;
ButtonSkillSave.Enabled := False;
ButtonUpgradeWeaponSave.Enabled := False;
ButtonMasterSave.Enabled := False;
ButtonMakeMineSave.Enabled := False;
ButtonWinLotterySave.Enabled := False;
ButtonReNewLevelSave.Enabled := False;
ButtonMonUpgradeSave.Enabled := False;
ButtonSpiritMutinySave.Enabled := False;
ButtonMonSayMsgSave.Enabled := False;
ButtonSellSave.Enabled := False;
ButtonMakeItemSave.Enabled:=False;
end;
procedure TfrmFunctionConfig.FunctionConfigControlChanging(Sender: TObject;
var AllowChange: Boolean);
begin
if boModValued then
begin
if Application.MessageBox('参数设置已经被修改，是否确认不保存修改的设置？',
'确认信息', MB_YESNO + MB_ICONQUESTION) = IDYES then
begin
uModValue
end
else
AllowChange := False;
end;
end;
procedure TfrmFunctionConfig.Open;
var
i : Integer;
begin
boOpened := False;
uModValue();
RefGeneral();
CheckBoxHungerSystem.Checked := g_Config.boHungerSystem;
CheckBoxHungerDecHP.Checked := g_Config.boHungerDecHP;
CheckBoxHungerDecPower.Checked := g_Config.boHungerDecPower;
CheckBoxHungerSystemClick(CheckBoxHungerSystem);
CheckBoxEnablePasswordLock.Checked := g_Config.boPasswordLockSystem;
CheckBoxLockGetBackItem.Checked := g_Config.boLockGetBackItemAction;
CheckBoxLockDealItem.Checked := g_Config.boLockDealAction;
CheckBoxLockDropItem.Checked := g_Config.boLockDropAction;
CheckBoxLockWalk.Checked := g_Config.boLockWalkAction;
CheckBoxLockRun.Checked := g_Config.boLockRunAction;
CheckBoxLockHit.Checked := g_Config.boLockHitAction;
CheckBoxLockSpell.Checked := g_Config.boLockSpellAction;
CheckBoxLockSendMsg.Checked := g_Config.boLockSendMsgAction;
CheckBoxLockInObMode.Checked := g_Config.boLockInObModeAction;
CheckBoxLockLogin.Checked := g_Config.boLockHumanLogin;
CheckBoxLockUseItem.Checked := g_Config.boLockUserItemAction;
CheckBoxEnablePasswordLockClick(CheckBoxEnablePasswordLock);
CheckBoxLockLoginClick(CheckBoxLockLogin);
EditErrorPasswordCount.Value := g_Config.nPasswordErrorCountLock;
EditBoneFammName.Text := g_Config.sBoneFamm;
EditBoneFammCount.Value := g_Config.nBoneFammCount;
for i := Low(g_Config.BoneFammArray) to High(g_Config.BoneFammArray) do
begin
if g_Config.BoneFammArray[i].nHumLevel <= 0 then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -