gameconfig.pas

传世源码可编译的,功能齐全.是学习的好模版,会DELPHI的朋友们也可以自己修改,弄个自己的引擎.

  RefGameVarConf();
  RefCharStatusConf();

  boOpened:=True;
  GameConfigControl.ActivePageIndex:=0;
  ShowModal;
end;
procedure TfrmGameConfig.RefGameSpeedConf;
begin
  EditHitIntervalTime.Value:=g_Config.dwHitIntervalTime;
  EditMagicHitIntervalTime.Value:=g_Config.dwMagicHitIntervalTime;
  EditRunIntervalTime.Value:=g_Config.dwRunIntervalTime;
  EditWalkIntervalTime.Value:=g_Config.dwWalkIntervalTime;
  EditTurnIntervalTime.Value:=g_Config.dwTurnIntervalTime;

  EditItemSpeedTime.Value:=g_Config.ClientConf.btItemSpeed;
  EditMaxHitMsgCount.Value:=g_Config.nMaxHitMsgCount;
  EditMaxSpellMsgCount.Value:=g_Config.nMaxSpellMsgCount;
  EditMaxRunMsgCount.Value:=g_Config.nMaxRunMsgCount;
  EditMaxWalkMsgCount.Value:=g_Config.nMaxWalkMsgCount;
  EditMaxTurnMsgCount.Value:=g_Config.nMaxTurnMsgCount;
  EditMaxDigUpMsgCount.Value:=g_Config.nMaxDigUpMsgCount;
  CheckBoxboKickOverSpeed.Checked:=g_Config.boKickOverSpeed;
  EditOverSpeedKickCount.Value:=g_Config.nOverSpeedKickCount;
  EditDropOverSpeed.Value:=g_Config.dwDropOverSpeed;
  CheckBoxboKickOverSpeedClick(CheckBoxboKickOverSpeed);

  CheckBoxSpellSendUpdateMsg.Checked:=g_Config.boSpellSendUpdateMsg;
  CheckBoxActionSendActionMsg.Checked:=g_Config.boActionSendActionMsg;

  if g_Config.btSpeedControlMode = 0 then begin
    RadioButtonDelyMode.Checked:=True;
    RadioButtonFilterMode.Checked:=False;
  end else begin
    RadioButtonDelyMode.Checked:=False;
    RadioButtonFilterMode.Checked:=True;
  end;

  CheckBoxDisableStruck.Checked:=g_Config.boDisableStruck;
  CheckBoxDisableSelfStruck.Checked:=g_Config.boDisableSelfStruck;
  EditStruckTime.Value:=g_Config.dwStruckTime;

end;


procedure TfrmGameConfig.ButtonGameSpeedDefaultClick(Sender: TObject);
begin
  if Application.MessageBox('是否确认恢复默认设置？', '确认信息', MB_YESNO + MB_ICONQUESTION) <> IDYES then begin
    exit;
  end;
  g_Config.dwHitIntervalTime:=850;
  g_Config.dwMagicHitIntervalTime:=1350;
  g_Config.dwRunIntervalTime:=600;
  g_Config.dwWalkIntervalTime:=600;
  g_Config.dwTurnIntervalTime:=600;

  g_Config.nMaxHitMsgCount:=1;
  g_Config.nMaxSpellMsgCount:=1;
  g_Config.nMaxRunMsgCount:=1;
  g_Config.nMaxWalkMsgCount:=1;
  g_Config.nMaxTurnMsgCount:=1;
  g_Config.nMaxDigUpMsgCount:=1;
  g_Config.nOverSpeedKickCount:=2;
  g_Config.dwDropOverSpeed:=200;
  g_Config.boKickOverSpeed:=True;
  g_Config.ClientConf.btItemSpeed:=25;
  g_Config.boDisableStruck:=False;
  g_Config.boDisableSelfStruck:=False;
  g_Config.dwStruckTime:=300;
  g_Config.boSpellSendUpdateMsg:=True;
  g_Config.boActionSendActionMsg:=True;
  g_Config.btSpeedControlMode:=0;
  RefGameSpeedConf();
  ModValue();
end;

procedure TfrmGameConfig.ButtonGameSpeedSaveClick(Sender: TObject);
begin
{$IF SoftVersion <> VERDEMO}
  Config.WriteInteger('Setup','HitIntervalTime',g_Config.dwHitIntervalTime);
  Config.WriteInteger('Setup','MagicHitIntervalTime',  g_Config.dwMagicHitIntervalTime);
  Config.WriteInteger('Setup','RunIntervalTime',  g_Config.dwRunIntervalTime);
  Config.WriteInteger('Setup','WalkIntervalTime',  g_Config.dwWalkIntervalTime);
  Config.WriteInteger('Setup','TurnIntervalTime',  g_Config.dwTurnIntervalTime);

  Config.WriteInteger('Setup','ItemSpeedTime',g_Config.ClientConf.btItemSpeed);
  Config.WriteInteger('Setup','MaxHitMsgCount',g_Config.nMaxHitMsgCount);
  Config.WriteInteger('Setup','MaxSpellMsgCount',g_Config.nMaxSpellMsgCount);
  Config.WriteInteger('Setup','MaxRunMsgCount',g_Config.nMaxRunMsgCount);
  Config.WriteInteger('Setup','MaxWalkMsgCount',g_Config.nMaxWalkMsgCount);
  Config.WriteInteger('Setup','MaxTurnMsgCount',g_Config.nMaxTurnMsgCount);
  Config.WriteInteger('Setup','MaxSitDonwMsgCount',  g_Config.nMaxSitDonwMsgCount);
  Config.WriteInteger('Setup','MaxDigUpMsgCount',  g_Config.nMaxDigUpMsgCount);
  Config.WriteInteger('Setup','OverSpeedKickCount',  g_Config.nOverSpeedKickCount);
  Config.WriteBool('Setup','KickOverSpeed',  g_Config.boKickOverSpeed);
  Config.WriteBool('Setup','SpellSendUpdateMsg',  g_Config.boSpellSendUpdateMsg);
  Config.WriteBool('Setup','ActionSendActionMsg',  g_Config.boActionSendActionMsg);
  Config.WriteInteger('Setup','DropOverSpeed',  g_Config.dwDropOverSpeed);
  Config.WriteBool('Setup','DisableStruck',  g_Config.boDisableStruck);
  Config.WriteBool('Setup','DisableSelfStruck',  g_Config.boDisableSelfStruck);
  Config.WriteInteger('Setup','StruckTime',  g_Config.dwStruckTime);
  Config.WriteInteger('Setup','SpeedControlMode',g_Config.btSpeedControlMode);
{$IFEND}
  uModValue();
end;

procedure TfrmGameConfig.EditHitIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwHitIntervalTime:=EditHitIntervalTime.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditMagicHitIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwMagicHitIntervalTime:=EditMagicHitIntervalTime.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditRunIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwRunIntervalTime:=EditRunIntervalTime.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditWalkIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwWalkIntervalTime:=EditWalkIntervalTime.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditTurnIntervalTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwTurnIntervalTime:=EditTurnIntervalTime.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditMaxHitMsgCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMaxHitMsgCount:=EditMaxHitMsgCount.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditMaxSpellMsgCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMaxSpellMsgCount:=EditMaxSpellMsgCount.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditMaxRunMsgCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMaxRunMsgCount:=EditMaxRunMsgCount.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditMaxWalkMsgCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMaxWalkMsgCount:=EditMaxWalkMsgCount.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditMaxTurnMsgCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMaxTurnMsgCount:=EditMaxTurnMsgCount.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditMaxDigUpMsgCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMaxDigUpMsgCount:=EditMaxDigUpMsgCount.Value;
  ModValue();
end;
procedure TfrmGameConfig.EditOverSpeedKickCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nOverSpeedKickCount:=EditOverSpeedKickCount.Value;
  ModValue();

end;
procedure TfrmGameConfig.EditDropOverSpeedChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwDropOverSpeed:=EditDropOverSpeed.Value;
  ModValue();
end;


procedure TfrmGameConfig.CheckBoxSpellSendUpdateMsgClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boSpellSendUpdateMsg:=CheckBoxSpellSendUpdateMsg.Checked;
  ModValue();
end;

procedure TfrmGameConfig.CheckBoxActionSendActionMsgClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boActionSendActionMsg:=CheckBoxActionSendActionMsg.Checked;
  ModValue();
end;

procedure TfrmGameConfig.CheckBoxboKickOverSpeedClick(Sender: TObject);
begin
  EditOverSpeedKickCount.Enabled:=CheckBoxboKickOverSpeed.Checked;
  if not boOpened then exit;
  g_Config.boKickOverSpeed:=CheckBoxboKickOverSpeed.Checked;
  ModValue();
end;


procedure TfrmGameConfig.RadioButtonDelyModeClick(Sender: TObject);
var
  boFalg:Boolean;
begin
  if not boOpened then exit;
  boFalg:=RadioButtonDelyMode.Checked;
  if boFalg then begin
    g_Config.btSpeedControlMode:=0;
  end else begin
    g_Config.btSpeedControlMode:=1;
  end;
  ModValue();
end;

procedure TfrmGameConfig.RadioButtonFilterModeClick(Sender: TObject);
var
  boFalg:Boolean;
begin
  if not boOpened then exit;
  boFalg:=RadioButtonFilterMode.Checked;
  if boFalg then begin
    g_Config.btSpeedControlMode:=1;
  end else begin
    g_Config.btSpeedControlMode:=0;
  end;
  ModValue();
end;

procedure TfrmGameConfig.EditItemSpeedTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.ClientConf.btItemSpeed:=EditItemSpeedTime.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditConsoleShowUserCountTimeChange(
  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwConsoleShowUserCountTime:=EditConsoleShowUserCountTime.Value * 1000;
  ModValue();
end;

procedure TfrmGameConfig.EditShowLineNoticeTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwShowLineNoticeTime:=EditShowLineNoticeTime.Value * 1000;
  ModValue();
end;

procedure TfrmGameConfig.ComboBoxLineNoticeColorChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nLineNoticeColor:=ComboBoxLineNoticeColor.ItemIndex;
  ModValue();
end;

procedure TfrmGameConfig.EditSoftVersionDateChange(Sender: TObject);
begin
  if not boOpened then exit;
  ModValue();
end;
procedure TfrmGameConfig.EditLineNoticePreFixChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.sLineNoticePreFix:=Trim(EditLineNoticePreFix.Text);
  ModValue();
end;

procedure TfrmGameConfig.CheckBoxShowMakeItemMsgClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boShowMakeItemMsg:=CheckBoxShowMakeItemMsg.Checked;
  ModValue();
end;

procedure TfrmGameConfig.CbViewHackClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boViewHackMessage:=CbViewHack.Checked;
  ModValue();
end;

procedure TfrmGameConfig.CkViewAdmfailClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boViewAdmissionFailure:=CkViewAdmfail.Checked;
  ModValue();
end;


procedure TfrmGameConfig.CheckBoxShowExceptionMsgClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boShowExceptionMsg:=CheckBoxShowExceptionMsg.Checked;
  ModValue();
end;

procedure TfrmGameConfig.CheckBoxCanOldClientLogonClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boCanOldClientLogon:=CheckBoxCanOldClientLogon.Checked;
  ModValue();
end;

procedure TfrmGameConfig.CheckBoxSendOnlineCountClick(Sender: TObject);
var
  boStatus:Boolean;
begin
  boStatus:=CheckBoxSendOnlineCount.Checked;
  EditSendOnlineCountRate.Enabled:=boStatus;
  EditSendOnlineTime.Enabled:=boStatus;
  if not boOpened then exit;
  g_Config.boSendOnlineCount:=boStatus;
  ModValue();
end;

procedure TfrmGameConfig.EditSendOnlineCountRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nSendOnlineCountRate:=EditSendOnlineCountRate.Value;