gameconfig.pas

原版翎风(LF)引擎(M2)源码(Delphi)

  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;
  ModValue();
end;

procedure TfrmGameConfig.EditSendOnlineTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwSendOnlineTime:=EditSendOnlineTime.Value * 1000;
  ModValue();
end;
procedure TfrmGameConfig.EditMonsterPowerRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMonsterPowerRate:=EditMonsterPowerRate.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditEditItemsPowerRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nItemsPowerRate:=EditEditItemsPowerRate.Value;
  ModValue();
end;

procedure TfrmGameConfig.EditItemsACPowerRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nItemsACPowerRate:=EditItemsACPowerRate.Value;
  ModValue();
end;
procedure TfrmGameConfig.CheckBoxDisableStruckClick(Sender: TObject);
begin
  EditStruckTime.Enabled:=not CheckBoxDisableStruck.Checked;
  if not boOpened then exit;
  g_Config.boDisableStruck:=CheckBoxDisableStruck.Checked;
  ModValue();
end;
procedure TfrmGameConfig.CheckBoxDisableSelfStruckClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boDisableSelfStruck:=CheckBoxDisableSelfStruck.Checked;
  ModValue();
end;
procedure TfrmGameConfig.EditStruckTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwStruckTime:=EditStruckTime.Value;
  ModValue();
end;

procedure TfrmGameConfig.RefGameVarConf;
begin
  EditSoftVersionDate.Text:=IntToStr(g_Config.nSoftVersionDate);
  EditConsoleShowUserCountTime.Value:=g_Config.dwConsoleShowUserCountTime div 1000;
  EditShowLineNoticeTime.Value:=g_Config.dwShowLineNoticeTime div 1000;
  ComboBoxLineNoticeColor.ItemIndex:=_MAX(0,_MIN(3,g_Config.nLineNoticeColor));
  EditLineNoticePreFix.Text:=g_Config.sLineNoticePreFix;

  CheckBoxShowMakeItemMsg.Checked:=g_Config.boShowMakeItemMsg;
  CbViewHack.Checked:=g_Config.boViewHackMessage;
  CkViewAdmfail.Checked:=g_Config.boViewAdmissionFailure;
  CheckBoxShowExceptionMsg.Checked:=g_Config.boShowExceptionMsg;