functionconfig.pas

翎风世界..传奇服务端..DELPHI源代码 包括DBServer,LogDataServer,LoginGate,LoginSrv,M2Server等..内容齐全.

  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nUpgradeWeaponMaxPoint:=EditUpgradeWeaponMaxPoint.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.EditUpgradeWeaponPriceChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nUpgradeWeaponPrice:=EditUpgradeWeaponPrice.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.EditUPgradeWeaponGetBackTimeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.dwUPgradeWeaponGetBackTime:=EditUPgradeWeaponGetBackTime.Value * 1000;
  ModValue();
end;

procedure TfrmFunctionConfig.EditClearExpireUpgradeWeaponDaysChange(
  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nClearExpireUpgradeWeaponDays:=EditClearExpireUpgradeWeaponDays.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.ButtonUpgradeWeaponSaveClick(Sender: TObject);
begin
{$IF SoftVersion <> VERDEMO}
  Config.WriteInteger('Setup','UpgradeWeaponMaxPoint',g_Config.nUpgradeWeaponMaxPoint);
  Config.WriteInteger('Setup','UpgradeWeaponPrice',g_Config.nUpgradeWeaponPrice);
  Config.WriteInteger('Setup','ClearExpireUpgradeWeaponDays',g_Config.nClearExpireUpgradeWeaponDays);
  Config.WriteInteger('Setup','UPgradeWeaponGetBackTime',g_Config.dwUPgradeWeaponGetBackTime);

  Config.WriteInteger('Setup','UpgradeWeaponDCRate',g_Config.nUpgradeWeaponDCRate);
  Config.WriteInteger('Setup','UpgradeWeaponDCTwoPointRate',g_Config.nUpgradeWeaponDCTwoPointRate);
  Config.WriteInteger('Setup','UpgradeWeaponDCThreePointRate',g_Config.nUpgradeWeaponDCThreePointRate);

  Config.WriteInteger('Setup','UpgradeWeaponMCRate',g_Config.nUpgradeWeaponMCRate);
  Config.WriteInteger('Setup','UpgradeWeaponMCTwoPointRate',g_Config.nUpgradeWeaponMCTwoPointRate);
  Config.WriteInteger('Setup','UpgradeWeaponMCThreePointRate',g_Config.nUpgradeWeaponMCThreePointRate);

  Config.WriteInteger('Setup','UpgradeWeaponSCRate',g_Config.nUpgradeWeaponSCRate);
  Config.WriteInteger('Setup','UpgradeWeaponSCTwoPointRate',g_Config.nUpgradeWeaponSCTwoPointRate);
  Config.WriteInteger('Setup','UpgradeWeaponSCThreePointRate',g_Config.nUpgradeWeaponSCThreePointRate);
{$IFEND}
  uModValue();
end;

procedure TfrmFunctionConfig.ButtonUpgradeWeaponDefaulfClick(
  Sender: TObject);
begin
  if Application.MessageBox('是否确认恢复默认设置？', '确认信息', MB_YESNO + MB_ICONQUESTION) <> IDYES then begin
    exit;
  end;
  g_Config.nUpgradeWeaponMaxPoint:=20;
  g_Config.nUpgradeWeaponPrice:=10000;
  g_Config.nClearExpireUpgradeWeaponDays:=8;
  g_Config.dwUPgradeWeaponGetBackTime:=60 * 60 * 1000;

  g_Config.nUpgradeWeaponDCRate:=100;
  g_Config.nUpgradeWeaponDCTwoPointRate:=30;
  g_Config.nUpgradeWeaponDCThreePointRate:=200;

  g_Config.nUpgradeWeaponMCRate:=100;
  g_Config.nUpgradeWeaponMCTwoPointRate:=30;
  g_Config.nUpgradeWeaponMCThreePointRate:=200;

  g_Config.nUpgradeWeaponSCRate:=100;
  g_Config.nUpgradeWeaponSCTwoPointRate:=30;
  g_Config.nUpgradeWeaponSCThreePointRate:=200;
  RefUpgradeWeapon();
end;

procedure TfrmFunctionConfig.EditMasterOKLevelChange(Sender: TObject);
begin
  if EditMasterOKLevel.Text = '' then begin
    EditMasterOKLevel.Text:='0';
    exit;
  end;
  if not boOpened then exit;
  g_Config.nMasterOKLevel:=EditMasterOKLevel.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.EditMasterOKCreditPointChange(
  Sender: TObject);
begin
  if EditMasterOKCreditPoint.Text = '' then begin
    EditMasterOKCreditPoint.Text:='0';
    exit;
  end;
  if not boOpened then exit;
  g_Config.nMasterOKCreditPoint:=EditMasterOKCreditPoint.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.EditMasterOKBonusPointChange(Sender: TObject);
begin
  if EditMasterOKBonusPoint.Text = '' then begin
    EditMasterOKBonusPoint.Text:='0';
    exit;
  end;
  if not boOpened then exit;
  g_Config.nMasterOKBonusPoint:=EditMasterOKBonusPoint.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.ButtonMasterSaveClick(Sender: TObject);
begin
{$IF SoftVersion <> VERDEMO}
  Config.WriteInteger('Setup','MasterOKLevel',g_Config.nMasterOKLevel);
  Config.WriteInteger('Setup','MasterOKCreditPoint',g_Config.nMasterOKCreditPoint);
  Config.WriteInteger('Setup','MasterOKBonusPoint',g_Config.nMasterOKBonusPoint);
{$IFEND}  
  uModValue();
end;

procedure TfrmFunctionConfig.ButtonMakeMineSaveClick(Sender: TObject);
begin
{$IF SoftVersion <> VERDEMO}
  Config.WriteInteger('Setup','MakeMineHitRate', g_Config.nMakeMineHitRate);
  Config.WriteInteger('Setup','MakeMineRate', g_Config.nMakeMineRate);
  Config.WriteInteger('Setup','StoneTypeRate', g_Config.nStoneTypeRate);
  Config.WriteInteger('Setup','StoneTypeRateMin', g_Config.nStoneTypeRateMin);
  Config.WriteInteger('Setup','GoldStoneMin', g_Config.nGoldStoneMin);
  Config.WriteInteger('Setup','GoldStoneMax', g_Config.nGoldStoneMax);
  Config.WriteInteger('Setup','SilverStoneMin', g_Config.nSilverStoneMin);
  Config.WriteInteger('Setup','SilverStoneMax', g_Config.nSilverStoneMax);
  Config.WriteInteger('Setup','SteelStoneMin', g_Config.nSteelStoneMin);
  Config.WriteInteger('Setup','SteelStoneMax', g_Config.nSteelStoneMax);
  Config.WriteInteger('Setup','BlackStoneMin', g_Config.nBlackStoneMin);
  Config.WriteInteger('Setup','BlackStoneMax', g_Config.nBlackStoneMax);
  Config.WriteInteger('Setup','StoneMinDura', g_Config.nStoneMinDura);
  Config.WriteInteger('Setup','StoneGeneralDuraRate', g_Config.nStoneGeneralDuraRate);
  Config.WriteInteger('Setup','StoneAddDuraRate', g_Config.nStoneAddDuraRate);
  Config.WriteInteger('Setup','StoneAddDuraMax', g_Config.nStoneAddDuraMax);
{$IFEND}
  uModValue();
end;


procedure TfrmFunctionConfig.ButtonMakeMineDefaultClick(Sender: TObject);
begin
  if Application.MessageBox('是否确认恢复默认设置？', '确认信息', MB_YESNO + MB_ICONQUESTION) <> IDYES then begin
    exit;
  end;
  g_Config.nMakeMineHitRate:=4;
  g_Config.nMakeMineRate:=12;
  g_Config.nStoneTypeRate:=120;
  g_Config.nStoneTypeRateMin:=56;
  g_Config.nGoldStoneMin:=1;
  g_Config.nGoldStoneMax:=2;
  g_Config.nSilverStoneMin:=3;
  g_Config.nSilverStoneMax:=20;
  g_Config.nSteelStoneMin:=21;
  g_Config.nSteelStoneMax:=45;
  g_Config.nBlackStoneMin:=46;
  g_Config.nBlackStoneMax:=56;
  g_Config.nStoneMinDura:=3000;
  g_Config.nStoneGeneralDuraRate:=13000;
  g_Config.nStoneAddDuraRate:=20;
  g_Config.nStoneAddDuraMax:=10000;
  RefMakeMine();
end;

procedure TfrmFunctionConfig.RefMakeMine();
begin
  ScrollBarMakeMineHitRate.Position:=g_Config.nMakeMineHitRate;
  ScrollBarMakeMineHitRate.Min:=0;
  ScrollBarMakeMineHitRate.Max:=10;

  ScrollBarMakeMineRate.Position:=g_Config.nMakeMineRate;
  ScrollBarMakeMineRate.Min:=0;
  ScrollBarMakeMineRate.Max:=50;

  ScrollBarStoneTypeRate.Position:=g_Config.nStoneTypeRate;
  ScrollBarStoneTypeRate.Min:=g_Config.nStoneTypeRateMin;
  ScrollBarStoneTypeRate.Max:=500;

  ScrollBarGoldStoneMax.Min:=1;
  ScrollBarGoldStoneMax.Max:=g_Config.nSilverStoneMax;

  ScrollBarSilverStoneMax.Min:=g_Config.nGoldStoneMax;
  ScrollBarSilverStoneMax.Max:=g_Config.nSteelStoneMax;

  ScrollBarSteelStoneMax.Min:=g_Config.nSilverStoneMax;
  ScrollBarSteelStoneMax.Max:=g_Config.nBlackStoneMax;

  ScrollBarBlackStoneMax.Min:=g_Config.nSteelStoneMax;
  ScrollBarBlackStoneMax.Max:=g_Config.nStoneTypeRate;

  ScrollBarGoldStoneMax.Position:=g_Config.nGoldStoneMax;
  ScrollBarSilverStoneMax.Position:=g_Config.nSilverStoneMax;
  ScrollBarSteelStoneMax.Position:=g_Config.nSteelStoneMax;
  ScrollBarBlackStoneMax.Position:=g_Config.nBlackStoneMax;

  EditStoneMinDura.Value:=g_Config.nStoneMinDura div 1000;
  EditStoneGeneralDuraRate.Value:=g_Config.nStoneGeneralDuraRate div 1000;
  EditStoneAddDuraRate.Value:=g_Config.nStoneAddDuraRate;
  EditStoneAddDuraMax.Value:=g_Config.nStoneAddDuraMax div 1000;  
end;

procedure TfrmFunctionConfig.ScrollBarMakeMineHitRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarMakeMineHitRate.Position;
  EditMakeMineHitRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nMakeMineHitRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarMakeMineRateChange(Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarMakeMineRate.Position;
  EditMakeMineRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nMakeMineRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarStoneTypeRateChange(Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarStoneTypeRate.Position;
  EditStoneTypeRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  ScrollBarBlackStoneMax.Max:=nPostion;
  g_Config.nStoneTypeRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarGoldStoneMaxChange(Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarGoldStoneMax.Position;
  EditGoldStoneMax.Text:=IntToStr(g_Config.nGoldStoneMin) + '-' + IntToStr(g_Config.nGoldStoneMax);
  if not boOpened then exit;
  g_Config.nSilverStoneMin:=nPostion + 1;
  ScrollBarSilverStoneMax.Min:=nPostion + 1;
  g_Config.nGoldStoneMax:=nPostion;
  EditSilverStoneMax.Text:=IntToStr(g_Config.nSilverStoneMin) + '-' + IntToStr(g_Config.nSilverStoneMax);
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarSilverStoneMaxChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarSilverStoneMax.Position;
  EditSilverStoneMax.Text:=IntToStr(g_Config.nSilverStoneMin) + '-' + IntToStr(g_Config.nSilverStoneMax);
  if not boOpened then exit;
  ScrollBarGoldStoneMax.Max:=nPostion - 1;
  g_Config.nSteelStoneMin:=nPostion + 1;
  ScrollBarSteelStoneMax.Min:=nPostion + 1;
  g_Config.nSilverStoneMax:=nPostion;
  EditGoldStoneMax.Text:=IntToStr(g_Config.nGoldStoneMin) + '-' + IntToStr(g_Config.nGoldStoneMax);
  EditSteelStoneMax.Text:=IntToStr(g_Config.nSteelStoneMin) + '-' + IntToStr(g_Config.nSteelStoneMax);
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarSteelStoneMaxChange(Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarSteelStoneMax.Position;
  EditSteelStoneMax.Text:=IntToStr(g_Config.nSteelStoneMin) + '-' + IntToStr(g_Config.nSteelStoneMax);
  if not boOpened then exit;
  ScrollBarSilverStoneMax.Max:=nPostion - 1;
  g_Config.nBlackStoneMin:=nPostion + 1;
  ScrollBarBlackStoneMax.Min:=nPostion + 1;
  g_Config.nSteelStoneMax:=nPostion;
  EditSilverStoneMax.Text:=IntToStr(g_Config.nSilverStoneMin) + '-' + IntToStr(g_Config.nSilverStoneMax);
  EditBlackStoneMax.Text:=IntToStr(g_Config.nBlackStoneMin) + '-' + IntToStr(g_Config.nBlackStoneMax);
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarBlackStoneMaxChange(Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarBlackStoneMax.Position;
  EditBlackStoneMax.Text:=IntToStr(g_Config.nBlackStoneMin) + '-' + IntToStr(g_Config.nBlackStoneMax);
  if not boOpened then exit;
  ScrollBarSteelStoneMax.Max:=nPostion - 1;
  ScrollBarStoneTypeRate.Min:=nPostion;
  g_Config.nBlackStoneMax:=nPostion;
  EditSteelStoneMax.Text:=IntToStr(g_Config.nSteelStoneMin) + '-' + IntToStr(g_Config.nSteelStoneMax);
  ModValue();
end;

procedure TfrmFunctionConfig.EditStoneMinDuraChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nStoneMinDura:=EditStoneMinDura.Value * 1000;
  ModValue();
end;

procedure TfrmFunctionConfig.EditStoneGeneralDuraRateChange(
  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nStoneGeneralDuraRate:=EditStoneGeneralDuraRate.Value * 1000;
  ModValue();
end;

procedure TfrmFunctionConfig.EditStoneAddDuraRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nStoneAddDuraRate:=EditStoneAddDuraRate.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.EditStoneAddDuraMaxChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nStoneAddDuraMax:=EditStoneAddDuraMax.Value * 1000;
  ModValue();
end;
procedure TfrmFunctionConfig.RefWinLottery;
begin
  ScrollBarWinLotteryRate.Max:=100000;
  ScrollBarWinLotteryRate.Position:=g_Config.nWinLotteryRate;
  ScrollBarWinLottery1Max.Max:=g_Config.nWinLotteryRate;
  ScrollBarWinLottery1Max.Min:=g_Config.nWinLottery1Min;
  ScrollBarWinLottery2Max.Max:=g_Config.nWinLottery1Max;
  ScrollBarWinLottery2Max.Min:=g_Config.nWinLottery2Min;
  ScrollBarWinLottery3Max.Max:=g_Config.nWinLottery2Max;
  ScrollBarWinLottery3Max.Min:=g_Config.nWinLottery3Min;
  ScrollBarWinLottery4Max.Max:=g_Config.nWinLottery3Max;
  ScrollBarWinLottery4Max.Min:=g_Config.nWinLottery4Min;
  ScrollBarWinLottery5Max.Max:=g_Config.nWinLottery4Max;
  ScrollBarWinLottery5Max.Min:=g_Config.nWinLottery5Min;
  ScrollBarWinLottery6Max.Max:=g_Config.nWinLottery5Max;
  ScrollBarWinLottery6Max.Min:=g_Config.nWinLottery6Min;
  ScrollBarWinLotteryRate.Min:=g_Config.nWinLottery1Max;

  ScrollBarWinLottery1Max.Positi