飘逸引擎Delphi传奇引擎全套源码+网关登陆器源代码

夜游神 · 发表于 2023-8-11 01:16:10

飘逸引擎Delphi传奇引擎全套源码+网关登陆器源代码

var
frmGameConfig: TfrmGameConfig;
implementation
uses M2Share, HUtil32, SDK, ActionSpeedConfig, grobal2;
{$R *.dfm}
{ TfrmGameConfig }
procedure TfrmGameConfig.FormCreate(Sender: TObject);
var
I: Integer;
begin
try
ComboBoxLineNoticeColor.Items.Add('红色');
ComboBoxLineNoticeColor.Items.Add('绿色');
ComboBoxLineNoticeColor.Items.Add('蓝色');
GridLevelExp.ColWidths[0] := 30;
GridLevelExp.ColWidths[1] := 100;
GridLevelExp.Cells[0, 0] := '等级';
GridLevelExp.Cells[1, 0] := '经验值';
for I := 1 to GridLevelExp.RowCount - 1 do
begin
GridLevelExp.Cells[0, I] := IntToStr(I);
end;
ComboBoxLevelExp.AddItem('原始经验值', TObject(s_OldLevelExp));
ComboBoxLevelExp.AddItem('标准经验值', TObject(s_StdLevelExp));
ComboBoxLevelExp.AddItem('当前1/2倍经验', TObject(s_2Mult));
ComboBoxLevelExp.AddItem('当前1/5倍经验', TObject(s_5Mult));
ComboBoxLevelExp.AddItem('当前1/8倍经验', TObject(s_8Mult));
ComboBoxLevelExp.AddItem('当前1/10倍经验', TObject(s_10Mult));
ComboBoxLevelExp.AddItem('当前1/20倍经验', TObject(s_20Mult));
ComboBoxLevelExp.AddItem('当前1/30倍经验', TObject(s_30Mult));
ComboBoxLevelExp.AddItem('当前1/40倍经验', TObject(s_40Mult));
ComboBoxLevelExp.AddItem('当前1/50倍经验', TObject(s_50Mult));
ComboBoxLevelExp.AddItem('当前1/60倍经验', TObject(s_60Mult));
ComboBoxLevelExp.AddItem('当前1/70倍经验', TObject(s_70Mult));
ComboBoxLevelExp.AddItem('当前1/80倍经验', TObject(s_80Mult));
ComboBoxLevelExp.AddItem('当前1/90倍经验', TObject(s_90Mult));
ComboBoxLevelExp.AddItem('当前1/100倍经验', TObject(s_100Mult));
ComboBoxLevelExp.AddItem('当前1/150倍经验', TObject(s_150Mult));
ComboBoxLevelExp.AddItem('当前1/200倍经验', TObject(s_200Mult));
ComboBoxLevelExp.AddItem('当前1/250倍经验', TObject(s_250Mult));
ComboBoxLevelExp.AddItem('当前1/300倍经验', TObject(s_300Mult));
EditHitIntervalTime.Hint :=
'游戏中人物二次攻击间隔时间，此参数默认为 900毫秒。';
EditMagicHitIntervalTime.Hint :=
'游戏中人物二次魔法攻击间隔时间，此参数默认为 800毫秒。';
EditRunIntervalTime.Hint :=
'游戏中人物二次跑动间隔时间，此参数默认为 600毫秒。';
EditWalkIntervalTime.Hint :=
'游戏中人物二次走动间隔时间，此参数默认为 600毫秒。';
EditTurnIntervalTime.Hint :=
'游戏中人物二次变方向间隔时间，此参数默认为 600毫秒。';
EditItemSpeedTime.Hint :=
'装备加速属性速度控制，数字越小控制越严，此参数默认为 50毫秒。';
EditStruckTime.Hint :=
'人物被攻击后弯腰停留时间控制，此参数默认为 100毫秒。';
CheckBoxDisableStruck.Hint :=
'人物在被攻击后是否显示弯腰动作。';
GridLevelExp.Hint := '修改的经验在点击保存按钮后生效。';
ComboBoxLevelExp.Hint := '选择的经验计划，立即生效。';
EditKillMonExpMultiple.Hint :=
'人物杀怪物所得经验值倍，此参数默认为 1，此经验值以怪物数据库里的经验值为基准。';
CheckBoxHighLevelKillMonFixExp.Hint :=
'高等级人物杀怪经验是否保持不变，此参数默认为关闭(不打钩)。';
EditRepairDoorPrice.Hint :=
'维修城门所需费用，此参数默认为 2000000金币。';
EditRepairWallPrice.Hint :=
'维修城墙所需费用，此参数默认为 500000金币。';
EditHireArcherPrice.Hint :=
'雇用弓箭手所需费用，此参数默认为 300000金币。';
EditHireGuardPrice.Hint :=
'维修守卫所需费用，此参数默认为 300000金币。';
EditCastleGoldMax.Hint :=
'城堡内最高可存金币数量，此参数默认为 10000000金币。';
EditCastleOneDayGold.Hint :=
'城堡一天内最高收入上限，此参数默认为 2000000金币。';
EditCastleHomeMap.Hint :=
'行会回城点默认所在地图号，此参数默认地图号为 3，以城堡配置文件中的参数为准';
EditCastleHomeX.Hint :=
'行会回城点默认所在地图座标X，此参数默认座标为 644，以城堡配置文件中的参数为准';
EditCastleHomeY.Hint :=
'行会回城点默认所在地图座标Y，此参数默认座标为 290，以城堡配置文件中的参数为准';
EditCastleName.Hint :=
'城堡默认的名称，以城堡配置文件中的参数为准。';
EditWarRangeX.Hint :=
'攻城区域默认座标X范围大小，此参数默认为 100，以城堡配置文件中的参数为准';
EditWarRangeY.Hint :=
'攻城区域默认座标Y范围大小，此参数默认为 100，以城堡配置文件中的参数为准';
CheckBoxGetAllNpcTax.Hint :=
'是否收取所有交易NPC的交易税，此参数默认为关闭(不打钩)。';
EditTaxRate.Hint :=
'交易税率，此参为默认为 5，也就是 0.05%。';
chkExpShowConfig.Hint :=
'打怪所得经验提示在聊天窗口内还是在屏幕上';
{$IF SoftVersion = VERDEMO}
Caption := '游戏参数[演示版本，所有设置调整有效，但不能保存]'
{$IFEND}
except
MainOutMessage('[Exception] TfrmGameConfig.FormCreate');
end;
end;
procedure TfrmGameConfig.GameConfigControlChanging(Sender: TObject;
var AllowChange: Boolean);
begin
try
if boModValued then
begin
if
Application.MessageBox('参数设置已经被修改，是否确认不保存修改的设置？', '确认信息', MB_YESNO + MB_ICONQUESTION) = IDYES then
begin
uModValue
end
else
AllowChange := False;
end;
except
MainOutMessage('[Exception] TfrmGameConfig.GameConfigControlChanging');
end;
end;
procedure TfrmGameConfig.ModValue;
begin
try
boModValued := True;
ButtonGameSpeedSave.Enabled := True;
ButtonGeneralSave.Enabled := True;
ButtonExpSave.Enabled := True;
ButtonCastleSave.Enabled := True;
ButtonOptionSave0.Enabled := True;
ButtonOptionSave.Enabled := True;
ButtonOptionSave2.Enabled := True;
ButtonOptionSave3.Enabled := True;
ButtonTimeSave.Enabled := True;
ButtonPriceSave.Enabled := True;
ButtonMsgSave.Enabled := True;
ButtonMsgColorSave.Enabled := True;
ButtonHumanDieSave.Enabled := True;
ButtonCharStatusSave.Enabled := True;
ButtonWgSave.Enabled := True;
except
MainOutMessage('[Exception] TfrmGameConfig.ModValue');
end;
end;
procedure TfrmGameConfig.uModValue;
begin
try
boModValued := False;
ButtonGameSpeedSave.Enabled := False;
ButtonGeneralSave.Enabled := False;
ButtonExpSave.Enabled := False;
ButtonCastleSave.Enabled := False;
ButtonOptionSave0.Enabled := False;
ButtonOptionSave.Enabled := False;
ButtonOptionSave2.Enabled := False;
ButtonOptionSave3.Enabled := False;
ButtonTimeSave.Enabled := False;
ButtonPriceSave.Enabled := False;
ButtonMsgSave.Enabled := False;
ButtonMsgColorSave.Enabled := False;
ButtonHumanDieSave.Enabled := False;
ButtonCharStatusSave.Enabled := False;
ButtonWgSave.Enabled := False;
except
MainOutMessage('[Exception] TfrmGameConfig.uModValue');
end;
end;
procedure TfrmGameConfig.Open;
var
I: Integer;
begin
try
boOpened := False;
uModValue();
RefGameSpeedConf();
EditKillMonExpMultiple.Value := g_Config.dwKillMonExpMultiple;
CheckBoxHighLevelKillMonFixExp.Checked := g_Config.boHighLevelKillMonFixExp;
CheckBoxHighLevelGroupFixExp.Checked := g_Config.boHighLevelGroupFixExp;
CheckBoxGroupSameScreen.Checked := g_Config.boGroupSameScreen;
CheckBoxGroupSameMap.Checked := g_Config.boGroupSameMap;
CheckBoxHeroSameMap.Checked:=g_Config.boHeroSameMap;
CheckBoxGroupSameMap.Enabled := CheckBoxGroupSameScreen.Checked;
EditRepairDoorPrice.Value := g_Config.nRepairDoorPrice;
EditRepairWallPrice.Value := g_Config.nRepairWallPrice;
EditHireArcherPrice.Value := g_Config.nHireArcherPrice;
EditHireGuardPrice.Value := g_Config.nHireGuardPrice;
EditPlayMaxLevel.Value := g_Config.nPlayMaxLevel;
EditHeroMaxLevel.Value := g_Config.nHeroMaxLevel;
EditHeroExpRate.Value := g_Config.nHeroExpRate;
EditPlayFixupExp.Text := IntToStr(g_Config.nPlayFixupExp);
EditHeroFixupExp.Text := IntToStr(g_Config.nHeroFixupExp);
{ExpConf.WriteInteger('Exp','PlayMaxLevel',g_Config.nPlayMaxLevel);
ExpConf.WriteInteger('Exp','HeroMaxLevel',g_Config.nHeroMaxLevel);
ExpConf.WriteInteger('Exp','HeroExpRate',g_Config.nHeroExpRate);
ExpConf.WriteInteger('Exp','PlayFixupExp',g_Config.nPlayFixupExp);
ExpConf.WriteInteger('Exp','HeroFixupExp',g_Config.nHeroFixupExp); }
EditCastleGoldMax.Value := g_Config.nCastleGoldMax;
EditCastleOneDayGold.Value := g_Config.nCastleOneDayGold;
EditCastleHomeMap.Text := g_Config.sCastleHomeMap;
EditCastleHomeX.Value := g_Config.nCastleHomeX;
EditCastleHomeY.Value := g_Config.nCastleHomeY;
EditCastleName.Text := g_Config.sCastleName;
EditWarRangeX.Value := g_Config.nCastleWarRangeX;
EditWarRangeY.Value := g_Config.nCastleWarRangeY;
CheckBoxGetAllNpcTax.Checked := g_Config.boGetAllNpcTax;
EditTaxRate.Value := g_Config.nCastleTaxRate;
for I := 1 to GridLevelExp.RowCount - 1 do
begin
GridLevelExp.Cells[1, I] := IntToStr(g_Config.dwNeedExps[I]);
end;
GroupBoxLevelExp.Caption := format('升级经验(最高有效等级%d)',
[MAXUPLEVEL]);
CheckBoxDisHumRun.Checked := not g_Config.boDiableHumanRun;
CheckBoxThink.Checked:=g_Config.boCheckThink;
CheckBoxRunHum.Checked := g_Config.boRunHuman;
CheckBoxRunMon.Checked := g_Config.boRunMon;
CheckBoxRunNpc.Checked := g_Config.boRunNpc;
CheckBoxRunGuard.Checked := g_Config.boRunGuard;
CheckBoxWarDisHumRun.Checked := g_Config.boWarDisHumRun;
CheckBoxWarDisHeroRun.Checked:=g_Config.boWarDisHeroRun;
CheckBoxGMRunAll.Checked := g_Config.boGMRunAll;
CheckBoxSafeZoneRunAll.Checked := g_Config.boSafeZoneRunAll;
CheckBoxDisHumRunClick(CheckBoxDisHumRun);
EditSafeZoneSize.Value := g_Config.nSafeZoneSize;
EditStartPointSize.Value := g_Config.nStartPointSize;
EditGroupMembersMax.Value := g_Config.nGroupMembersMax;
EditRedHomeMap.Text := g_Config.sRedHomeMap;
EditRedHomeX.Value := g_Config.nRedHomeX;
EditRedHomeY.Value := g_Config.nRedHomeY;
EditRedDieHomeMap.Text := g_Config.sRedDieHomeMap;
EditRedDieHomeX.Value := g_Config.nRedDieHomeX;
EditRedDieHomeY.Value := g_Config.nRedDieHomeY;
EditHomeMap.Text := g_Config.sHomeMap;
EditHomeX.Value := g_Config.nHomeX;
EditHomeY.Value := g_Config.nHomeY;
EditFireDragonGuardX.Value:=g_Config.nFireDragonGuardX;
EditFireDragonGuardY.Value:=g_Config.nFireDragonGuardY;
EditDecPkPointTime.Value := g_Config.dwDecPkPointTime div 1000;
EditDecPkPointCount.Value := g_Config.nDecPkPointCount;
EditPKFlagTime.Value := g_Config.dwPKFlagTime div 1000;
EditKillHumanAddPKPoint.Value := g_Config.nKillHumanAddPKPoint;