functionconfig.pas

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

  EditDogzCount.Value:=g_Config.nDragonCount;
  for I := Low(g_Config.DragonArray) to High(g_Config.DragonArray) do begin
    if g_Config.DragonArray[I].nHumLevel <= 0 then break;
    GridDogz.Cells[0,I + 1]:=IntToStr(g_Config.DragonArray[I].nHumLevel);
    GridDogz.Cells[1,I + 1]:=g_Config.DragonArray[I].sMonName;
    GridDogz.Cells[2,I + 1]:=IntToStr(g_Config.DragonArray[I].nCount);
    GridDogz.Cells[3,I + 1]:=IntToStr(g_Config.DragonArray[I].nLevel);
  end;

  RefMagicSkill();

  RefUpgradeWeapon();
  RefMakeMine();
  RefWinLottery();
  EditMasterOKLevel.Value:=g_Config.nMasterOKLevel;
  EditMasterOKCreditPoint.Value:=g_Config.nMasterOKCreditPoint;
  EditMasterOKBonusPoint.Value:=g_Config.nMasterOKBonusPoint;



  RefReNewLevelConf();
  RefMonUpgrade();
  RefSpiritMutiny();
  RefMonSayMsg();
  RefWeaponMakeLuck();
  boOpened:=True;
  FunctionConfigControl.ActivePageIndex:=0;
  ShowModal;
end;

procedure TfrmFunctionConfig.FormCreate(Sender: TObject);
begin
  GridBoneFamm.Cells[0,0]:='人物等级';
  GridBoneFamm.Cells[1,0]:='怪物名称';
  GridBoneFamm.Cells[2,0]:='数量';
  GridBoneFamm.Cells[3,0]:='等级';

  GridDogz.Cells[0,0]:='人物等级';
  GridDogz.Cells[1,0]:='怪物名称';
  GridDogz.Cells[2,0]:='数量';
  GridDogz.Cells[3,0]:='等级';
  FunctionConfigControl.ActivePageIndex:=0;
  MagicPageControl.ActivePageIndex:=0;
{$IF (SoftVersion = VERPRO) or (SoftVersion = VERENT)}
  CheckBoxHungerDecPower.Visible:=True;
{$ELSE}
  CheckBoxHungerDecPower.Visible:=False;
{$IFEND}

{$IF SoftVersion = VERDEMO}
  Caption:='功能设置[演示版本，所有设置调整有效，但不能保存]'
{$IFEND}
end;

procedure TfrmFunctionConfig.CheckBoxEnablePasswordLockClick(
  Sender: TObject);
begin
  case CheckBoxEnablePasswordLock.Checked of
    True: begin
      CheckBoxLockGetBackItem.Enabled:=True;
      CheckBoxLockLogin.Enabled:=True;
    end;
    False: begin
      CheckBoxLockGetBackItem.Checked:=False;
      CheckBoxLockLogin.Checked:=False;

      CheckBoxLockGetBackItem.Enabled:=False;
      CheckBoxLockLogin.Enabled:=False;
    end;
  end;
  if not boOpened then exit;
  g_Config.boPasswordLockSystem:=CheckBoxEnablePasswordLock.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockGetBackItemClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockGetBackItemAction:=CheckBoxLockGetBackItem.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockDealItemClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockDealAction:=CheckBoxLockDealItem.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockDropItemClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockDropAction:=CheckBoxLockDropItem.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockUseItemClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockUserItemAction:=CheckBoxLockUseItem.Checked;
  ModValue();

end;

procedure TfrmFunctionConfig.CheckBoxLockLoginClick(Sender: TObject);
begin
  case CheckBoxLockLogin.Checked of    //
    True: begin
      CheckBoxLockWalk.Enabled:=True;
      CheckBoxLockRun.Enabled:=True;
      CheckBoxLockHit.Enabled:=True;
      CheckBoxLockSpell.Enabled:=True;
      CheckBoxLockInObMode.Enabled:=True;
      CheckBoxLockSendMsg.Enabled:=True;
      CheckBoxLockDealItem.Enabled:=True;
      CheckBoxLockDropItem.Enabled:=True;
      CheckBoxLockUseItem.Enabled:=True;
    end;
    False: begin
      CheckBoxLockWalk.Checked:=False;
      CheckBoxLockRun.Checked:=False;
      CheckBoxLockHit.Checked:=False;
      CheckBoxLockSpell.Checked:=False;
      CheckBoxLockInObMode.Checked:=False;
      CheckBoxLockSendMsg.Checked:=False;
      CheckBoxLockDealItem.Checked:=False;
      CheckBoxLockDropItem.Checked:=False;
      CheckBoxLockUseItem.Checked:=False;

      CheckBoxLockWalk.Enabled:=False;
      CheckBoxLockRun.Enabled:=False;
      CheckBoxLockHit.Enabled:=False;
      CheckBoxLockSpell.Enabled:=False;
      CheckBoxLockInObMode.Enabled:=False;
      CheckBoxLockSendMsg.Enabled:=False;
      CheckBoxLockDealItem.Enabled:=False;
      CheckBoxLockDropItem.Enabled:=False;
      CheckBoxLockUseItem.Enabled:=False;
    end;
  end;
  if not boOpened then exit;
  g_Config.boLockHumanLogin:=CheckBoxLockLogin.Checked;
  ModValue();

end;

procedure TfrmFunctionConfig.CheckBoxLockWalkClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockWalkAction:=CheckBoxLockWalk.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockRunClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockRunAction:=CheckBoxLockRun.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockHitClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockHitAction:=CheckBoxLockHit.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockSpellClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockSpellAction:=CheckBoxLockSpell.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockSendMsgClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockSendMsgAction:=CheckBoxLockSendMsg.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxLockInObModeClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLockInObModeAction:=CheckBoxLockInObMode.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.EditErrorPasswordCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nPasswordErrorCountLock:=EditErrorPasswordCount.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxErrorCountKickClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nPasswordErrorCountLock:=EditErrorPasswordCount.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.ButtonPasswordLockSaveClick(Sender: TObject);
begin
{$IF SoftVersion <> VERDEMO}
  Config.WriteBool('Setup','PasswordLockSystem',g_Config.boPasswordLockSystem);
  Config.WriteBool('Setup','PasswordLockDealAction',g_Config.boLockDealAction);
  Config.WriteBool('Setup','PasswordLockDropAction',g_Config.boLockDropAction);
  Config.WriteBool('Setup','PasswordLockGetBackItemAction',g_Config.boLockGetBackItemAction);
  Config.WriteBool('Setup','PasswordLockWalkAction',g_Config.boLockWalkAction);
  Config.WriteBool('Setup','PasswordLockRunAction',g_Config.boLockRunAction);
  Config.WriteBool('Setup','PasswordLockHitAction',g_Config.boLockHitAction);
  Config.WriteBool('Setup','PasswordLockSpellAction',g_Config.boLockSpellAction);
  Config.WriteBool('Setup','PasswordLockSendMsgAction',g_Config.boLockSendMsgAction);
  Config.WriteBool('Setup','PasswordLockInObModeAction',g_Config.boLockInObModeAction);
  Config.WriteBool('Setup','PasswordLockUserItemAction',g_Config.boLockUserItemAction);

  Config.WriteBool('Setup','PasswordLockHumanLogin',g_Config.boLockHumanLogin);
  Config.WriteInteger('Setup','PasswordErrorCountLock',g_Config.nPasswordErrorCountLock);

{$IFEND}
  uModValue();
end;


procedure TfrmFunctionConfig.RefGeneral();
begin
  EditPKFlagNameColor.Value:=g_Config.btPKFlagNameColor;
  EditPKLevel1NameColor.Value:=g_Config.btPKLevel1NameColor;
  EditPKLevel2NameColor.Value:=g_Config.btPKLevel2NameColor;
  EditAllyAndGuildNameColor.Value:=g_Config.btAllyAndGuildNameColor;
  EditWarGuildNameColor.Value:=g_Config.btWarGuildNameColor;
  EditInFreePKAreaNameColor.Value:=g_Config.btInFreePKAreaNameColor;
end;

procedure TfrmFunctionConfig.CheckBoxHungerSystemClick(Sender: TObject);
begin
  if CheckBoxHungerSystem.Checked then begin
    CheckBoxHungerDecHP.Enabled:=True;
    CheckBoxHungerDecPower.Enabled:=True;
  end else begin
    CheckBoxHungerDecHP.Checked:=False;
    CheckBoxHungerDecPower.Checked:=False;
    CheckBoxHungerDecHP.Enabled:=False;
    CheckBoxHungerDecPower.Enabled:=False;
  end;
    
  if not boOpened then exit;
  g_Config.boHungerSystem:=CheckBoxHungerSystem.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.CheckBoxHungerDecHPClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boHungerDecHP:=CheckBoxHungerDecHP.Checked;
  ModValue();

end;

procedure TfrmFunctionConfig.CheckBoxHungerDecPowerClick(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boHungerDecPower:=CheckBoxHungerDecPower.Checked;
  ModValue();
end;

procedure TfrmFunctionConfig.ButtonGeneralSaveClick(Sender: TObject);
begin
{$IF SoftVersion <> VERDEMO}
  Config.WriteBool('Setup','HungerSystem',g_Config.boHungerSystem);
  Config.WriteBool('Setup','HungerDecHP',g_Config.boHungerDecHP);
  Config.WriteBool('Setup','HungerDecPower',g_Config.boHungerDecPower);

  Config.WriteInteger('Setup','PKFlagNameColor',g_Config.btPKFlagNameColor);
  Config.WriteInteger('Setup','AllyAndGuildNameColor',g_Config.btAllyAndGuildNameColor);
  Config.WriteInteger('Setup','WarGuildNameColor',g_Config.btWarGuildNameColor);
  Config.WriteInteger('Setup','InFreePKAreaNameColor',g_Config.btInFreePKAreaNameColor);
  Config.WriteInteger('Setup','PKLevel1NameColor',g_Config.btPKLevel1NameColor);
  Config.WriteInteger('Setup','PKLevel2NameColor',g_Config.btPKLevel2NameColor);
{$IFEND}  
  uModValue();
end;

procedure TfrmFunctionConfig.EditMagicAttackRageChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMagicAttackRage:=EditMagicAttackRage.Value;
  ModValue();

end;
procedure TfrmFunctionConfig.RefMagicSkill;
begin
  EditSwordLongPowerRate.Value:=g_Config.nSwordLongPowerRate;
  CheckBoxLimitSwordLong.Checked:=g_Config.boLimitSwordLong;
  EditFireBoomRage.Value:=g_Config.nFireBoomRage;
  EditSnowWindRange.Value:=g_Config.nSnowWindRange;
  EditElecBlizzardRange.Value:=g_Config.nElecBlizzardRange;
  EditMagicAttackRage.Value:=g_Config.nMagicAttackRage;
  EditAmyOunsulPoint.Value:=g_Config.nAmyOunsulPoint;
  EditMagTurnUndeadLevel.Value:=g_Config.nMagTurnUndeadLevel;
  EditMagTammingLevel.Value:=g_Config.nMagTammingLevel;
  EditMagTammingTargetLevel.Value:=g_Config.nMagTammingTargetLevel;
  EditMagTammingHPRate.Value:=g_Config.nMagTammingHPRate;
  EditTammingCount.Value:=g_Config.nMagTammingCount;
  EditMabMabeHitRandRate.Value:=g_Config.nMabMabeHitRandRate;
  EditMabMabeHitMinLvLimit.Value:=g_Config.nMabMabeHitMinLvLimit;
  EditMabMabeHitSucessRate.Value:=g_Config.nMabMabeHitSucessRate;
  EditMabMabeHitMabeTimeRate.Value:=g_Config.nMabMabeHitMabeTimeRate;
  CheckBoxFireCrossInSafeZone.Checked:=g_Config.boDisableInSafeZoneFireCross;
  CheckBoxGroupMbAttackPlayObject.Checked:=g_Config.boGroupMbAttackPlayObject;
end;

procedure TfrmFunctionConfig.EditBoneFammCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nSkeletonCount:=EditBoneFammCount.Value;
  ModValue();
end;
procedure TfrmFunctionConfig.EditDogzCountChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nDragonCount:=EditDogzCount.Value;
  ModValue();
end;
procedure TfrmFunctionConfig.CheckBoxLimitSwordLongClick(
  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boLimitSwordLong:=CheckBoxLimitSwordLong.Checked;
  ModValue();
end;
procedure TfrmFunctionConfig.EditSwordLongPowerRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nSwordLongPowerRate:=EditSwordLongPowerRate.Value;
  ModValue()
end;
procedure TfrmFunctionConfig.EditBoneFammNameChange(Sender: TObject);
begin
  if not boOpened then exit;
  ModValue();
end;
procedure TfrmFunctionConfig.EditDogzNameChange(Sender: TObject);
begin
  if not boOpened then exit;
  ModValue();
end;
procedure TfrmFunctionConfig.EditFireBoomRageChange(Sender: TObject);
begin