itemset.pas

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

    procedure EditRing22MCAddRateChange(Sender: TObject);
    procedure EditRing23DCAddValueMaxLimitChange(Sender: TObject);
    procedure EditRing23DCAddValueRateChange(Sender: TObject);
    procedure EditRing23DCAddRateChange(Sender: TObject);
    procedure EditRing23SCAddValueMaxLimitChange(Sender: TObject);
    procedure EditRing23SCAddValueRateChange(Sender: TObject);
    procedure EditRing23SCAddRateChange(Sender: TObject);
    procedure EditRing23MCAddValueMaxLimitChange(Sender: TObject);
    procedure EditRing23MCAddValueRateChange(Sender: TObject);
    procedure EditRing23MCAddRateChange(Sender: TObject);
    procedure EditHelMetDCAddValueMaxLimitChange(Sender: TObject);
    procedure EditHelMetDCAddValueRateChange(Sender: TObject);
    procedure EditHelMetDCAddRateChange(Sender: TObject);
    procedure EditHelMetSCAddValueMaxLimitChange(Sender: TObject);
    procedure EditHelMetSCAddValueRateChange(Sender: TObject);
    procedure EditHelMetSCAddRateChange(Sender: TObject);
    procedure EditHelMetMCAddValueMaxLimitChange(Sender: TObject);
    procedure EditHelMetMCAddValueRateChange(Sender: TObject);
    procedure EditHelMetMCAddRateChange(Sender: TObject);
    procedure EditGuildRecallTimeChange(Sender: TObject);
    procedure ButtonUnKnowItemSaveClick(Sender: TObject);
    procedure EditUnknowRingDCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowRingDCAddRateChange(Sender: TObject);
    procedure EditUnknowRingMCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowRingMCAddRateChange(Sender: TObject);
    procedure EditUnknowRingSCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowRingSCAddRateChange(Sender: TObject);
    procedure EditUnknowRingACAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowRingACAddRateChange(Sender: TObject);
    procedure EditUnknowRingMACAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowRingMACAddRateChange(Sender: TObject);
    procedure EditUnknowNecklaceDCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowNecklaceDCAddRateChange(Sender: TObject);
    procedure EditUnknowNecklaceMCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowNecklaceMCAddRateChange(Sender: TObject);
    procedure EditUnknowNecklaceSCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowNecklaceSCAddRateChange(Sender: TObject);
    procedure EditUnknowNecklaceACAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowNecklaceACAddRateChange(Sender: TObject);
    procedure EditUnknowNecklaceMACAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowNecklaceMACAddRateChange(Sender: TObject);
    procedure EditUnknowHelMetDCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowHelMetDCAddRateChange(Sender: TObject);
    procedure EditUnknowHelMetMCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowHelMetMCAddRateChange(Sender: TObject);
    procedure EditUnknowHelMetSCAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowHelMetSCAddRateChange(Sender: TObject);
    procedure EditUnknowHelMetACAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowHelMetACAddRateChange(Sender: TObject);
    procedure EditUnknowHelMetMACAddValueMaxLimitChange(Sender: TObject);
    procedure EditUnknowHelMetMACAddRateChange(Sender: TObject);
    procedure EditAttackPosionRateChange(Sender: TObject);
    procedure EditAttackPosionTimeChange(Sender: TObject);
    procedure CheckBoxUserMoveCanDupObjClick(Sender: TObject);
    procedure CheckBoxUserMoveCanOnItemClick(Sender: TObject);
    procedure EditUserMoveTimeChange(Sender: TObject);
  private
    boOpened:Boolean;
    boModValued:Boolean;
    procedure ModValue();
    procedure uModValue();
    procedure RefUnknowItem();
    procedure RefShapeItem();
    { Private declarations }
  public
    procedure Open();
    { Public declarations }
  end;

var
  frmItemSet: TfrmItemSet;

implementation

uses M2Share;

{$R *.dfm}

{ TfrmItemSet }

procedure TfrmItemSet.ModValue;
begin
  boModValued:=True;
  ButtonItemSetSave.Enabled:=True;
  ButtonAddValueSave.Enabled:=True;
  ButtonUnKnowItemSave.Enabled:=True;
end;

procedure TfrmItemSet.uModValue;
begin
  boModValued:=False;
  ButtonItemSetSave.Enabled:=False;
  ButtonAddValueSave.Enabled:=False;
  ButtonUnKnowItemSave.Enabled:=False;
end;

procedure TfrmItemSet.Open;
begin
  boOpened:=False;
  uModValue();

  EditItemExpRate.Value:=g_Config.nItemExpRate;
  EditItemPowerRate.Value:=g_Config.nItemPowerRate;

  EditMonRandomAddValue.Value:=g_Config.nMonRandomAddValue;
  EditMakeRandomAddValue.Value:=g_Config.nMakeRandomAddValue;

  EditWeaponDCAddValueMaxLimit.Value:=g_Config.nWeaponDCAddValueMaxLimit;
  EditWeaponDCAddValueRate.Value:=g_Config.nWeaponDCAddValueRate;
  EditWeaponMCAddValueMaxLimit.Value:=g_Config.nWeaponMCAddValueMaxLimit;
  EditWeaponMCAddValueRate.Value:=g_Config.nWeaponMCAddValueRate;
  EditWeaponSCAddValueMaxLimit.Value:=g_Config.nWeaponSCAddValueMaxLimit;
  EditWeaponSCAddValueRate.Value:=g_Config.nWeaponSCAddValueRate;

  EditDressDCAddRate.Value:=g_Config.nDressDCAddRate;
  EditDressDCAddValueMaxLimit.Value:=g_Config.nDressDCAddValueMaxLimit;
  EditDressDCAddValueRate.Value:=g_Config.nDressDCAddValueRate;
  EditDressMCAddRate.Value:=g_Config.nDressMCAddRate;
  EditDressMCAddValueMaxLimit.Value:=g_Config.nDressMCAddValueMaxLimit;
  EditDressMCAddValueRate.Value:=g_Config.nDressMCAddValueRate;
  EditDressSCAddRate.Value:=g_Config.nDressSCAddRate;
  EditDressSCAddValueMaxLimit.Value:=g_Config.nDressSCAddValueMaxLimit;
  EditDressSCAddValueRate.Value:=g_Config.nDressSCAddValueRate;

  EditNeckLace19DCAddRate.Value:=g_Config.nNeckLace19DCAddRate;
  EditNeckLace19DCAddValueMaxLimit.Value:=g_Config.nNeckLace19DCAddValueMaxLimit;
  EditNeckLace19DCAddValueRate.Value:=g_Config.nNeckLace19DCAddValueRate;
  EditNeckLace19MCAddRate.Value:=g_Config.nNeckLace19MCAddRate;
  EditNeckLace19MCAddValueMaxLimit.Value:=g_Config.nNeckLace19MCAddValueMaxLimit;
  EditNeckLace19MCAddValueRate.Value:=g_Config.nNeckLace19MCAddValueRate;
  EditNeckLace19SCAddRate.Value:=g_Config.nNeckLace19SCAddRate;
  EditNeckLace19SCAddValueMaxLimit.Value:=g_Config.nNeckLace19SCAddValueMaxLimit;
  EditNeckLace19SCAddValueRate.Value:=g_Config.nNeckLace19SCAddValueRate;

  EditNeckLace202124DCAddRate.Value:=g_Config.nNeckLace202124DCAddRate;
  EditNeckLace202124DCAddValueMaxLimit.Value:=g_Config.nNeckLace202124DCAddValueMaxLimit;
  EditNeckLace202124DCAddValueRate.Value:=g_Config.nNeckLace202124DCAddValueRate;
  EditNeckLace202124MCAddRate.Value:=g_Config.nNeckLace202124MCAddRate;
  EditNeckLace202124MCAddValueMaxLimit.Value:=g_Config.nNeckLace202124MCAddValueMaxLimit;
  EditNeckLace202124MCAddValueRate.Value:=g_Config.nNeckLace202124MCAddValueRate;
  EditNeckLace202124SCAddRate.Value:=g_Config.nNeckLace202124SCAddRate;  
  EditNeckLace202124SCAddValueMaxLimit.Value:=g_Config.nNeckLace202124SCAddValueMaxLimit;
  EditNeckLace202124SCAddValueRate.Value:=g_Config.nNeckLace202124SCAddValueRate;

  EditArmRing26DCAddRate.Value:=g_Config.nArmRing26DCAddRate;
  EditArmRing26DCAddValueMaxLimit.Value:=g_Config.nArmRing26DCAddValueMaxLimit;
  EditArmRing26DCAddValueRate.Value:=g_Config.nArmRing26DCAddValueRate;
  EditArmRing26MCAddRate.Value:=g_Config.nArmRing26MCAddRate;
  EditArmRing26MCAddValueMaxLimit.Value:=g_Config.nArmRing26MCAddValueMaxLimit;
  EditArmRing26MCAddValueRate.Value:=g_Config.nArmRing26MCAddValueRate;
  EditArmRing26SCAddRate.Value:=g_Config.nArmRing26SCAddRate;
  EditArmRing26SCAddValueMaxLimit.Value:=g_Config.nArmRing26SCAddValueMaxLimit;
  EditArmRing26SCAddValueRate.Value:=g_Config.nArmRing26SCAddValueRate;

  EditRing22DCAddRate.Value:=g_Config.nRing22DCAddRate;
  EditRing22DCAddValueMaxLimit.Value:=g_Config.nRing22DCAddValueMaxLimit;
  EditRing22DCAddValueRate.Value:=g_Config.nRing22DCAddValueRate;
  EditRing22MCAddRate.Value:=g_Config.nRing22MCAddRate;
  EditRing22MCAddValueMaxLimit.Value:=g_Config.nRing22MCAddValueMaxLimit;
  EditRing22MCAddValueRate.Value:=g_Config.nRing22MCAddValueRate;
  EditRing22SCAddRate.Value:=g_Config.nRing22SCAddRate;
  EditRing22SCAddValueMaxLimit.Value:=g_Config.nRing22SCAddValueMaxLimit;
  EditRing22SCAddValueRate.Value:=g_Config.nRing22SCAddValueRate;

  EditRing23DCAddRate.Value:=g_Config.nRing23DCAddRate;
  EditRing23DCAddValueMaxLimit.Value:=g_Config.nRing23DCAddValueMaxLimit;
  EditRing23DCAddValueRate.Value:=g_Config.nRing23DCAddValueRate;
  EditRing23MCAddRate.Value:=g_Config.nRing23MCAddRate;
  EditRing23MCAddValueMaxLimit.Value:=g_Config.nRing23MCAddValueMaxLimit;
  EditRing23MCAddValueRate.Value:=g_Config.nRing23MCAddValueRate;
  EditRing23SCAddRate.Value:=g_Config.nRing23SCAddRate;
  EditRing23SCAddValueMaxLimit.Value:=g_Config.nRing23SCAddValueMaxLimit;
  EditRing23SCAddValueRate.Value:=g_Config.nRing23SCAddValueRate;

  EditHelMetDCAddRate.Value:=g_Config.nHelMetDCAddRate;
  EditHelMetDCAddValueMaxLimit.Value:=g_Config.nHelMetDCAddValueMaxLimit;
  EditHelMetDCAddValueRate.Value:=g_Config.nHelMetDCAddValueRate;
  EditHelMetMCAddRate.Value:=g_Config.nHelMetMCAddRate;
  EditHelMetMCAddValueMaxLimit.Value:=g_Config.nHelMetMCAddValueMaxLimit;
  EditHelMetMCAddValueRate.Value:=g_Config.nHelMetMCAddValueRate;
  EditHelMetSCAddRate.Value:=g_Config.nHelMetSCAddRate;
  EditHelMetSCAddValueMaxLimit.Value:=g_Config.nHelMetSCAddValueMaxLimit;
  EditHelMetSCAddValueRate.Value:=g_Config.nHelMetSCAddValueRate;

  EditGuildRecallTime.Value:=g_Config.nGuildRecallTime;

  RefUnknowItem();
  RefShapeItem();    

  boOpened:=True;
  PageControl.ActivePageIndex:=0;
  AddValuePageControl.ActivePageIndex:=0;
  ItemSetPageControl.ActivePageIndex:=0;
  ShowModal;
end;

procedure TfrmItemSet.ButtonItemSetSaveClick(Sender: TObject);
begin
{$IF SoftVersion <> VERDEMO}
  Config.WriteInteger('Setup','ItemPowerRate',g_Config.nItemPowerRate);
  Config.WriteInteger('Setup','ItemExpRate',g_Config.nItemExpRate);
  Config.WriteInteger('Setup','GuildRecallTime', g_Config.nGuildRecallTime);
  Config.WriteInteger('Setup','GroupRecallTime', g_Config.nGroupRecallTime);
  Config.WriteInteger('Setup','GroupRecallTime', g_Config.nAttackPosionRate);
  Config.WriteInteger('Setup','AttackPosionRate',g_Config.nAttackPosionRate);
  Config.WriteInteger('Setup','AttackPosionTime',g_Config.nAttackPosionTime);
  Config.WriteBool('Setup','UserMoveCanDupObj',g_Config.boUserMoveCanDupObj);
  Config.WriteBool('Setup','UserMoveCanOnItem',g_Config.boUserMoveCanOnItem);
  Config.WriteInteger('Setup','UserMoveTime',g_Config.dwUserMoveTime);
{$IFEND}
  uModValue();
end;

procedure TfrmItemSet.EditItemExpRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nItemExpRate:=EditItemExpRate.Value;
  ModValue();
end;

procedure TfrmItemSet.EditItemPowerRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nItemPowerRate:=EditItemPowerRate.Value;
  ModValue();
end;

procedure TfrmItemSet.ButtonAddValueSaveClick(Sender: TObject);
begin
  Config.WriteInteger('Setup','MonRandomAddValue', g_Config.nMonRandomAddValue);
  Config.WriteInteger('Setup','MakeRandomAddValue', g_Config.nMakeRandomAddValue);
  Config.WriteInteger('Setup','WeaponDCAddValueMaxLimit', g_Config.nWeaponDCAddValueMaxLimit);
  Config.WriteInteger('Setup','WeaponDCAddValueRate', g_Config.nWeaponDCAddValueRate);
  Config.WriteInteger('Setup','WeaponMCAddValueMaxLimit', g_Config.nWeaponMCAddValueMaxLimit);
  Config.WriteInteger('Setup','WeaponMCAddValueRate', g_Config.nWeaponMCAddValueRate);
  Config.WriteInteger('Setup','WeaponSCAddValueMaxLimit', g_Config.nWeaponSCAddValueMaxLimit);
  Config.WriteInteger('Setup','WeaponSCAddValueRate', g_Config.nWeaponSCAddValueRate);

  Config.WriteInteger('Setup','DressDCAddRate', g_Config.nDressDCAddRate);
  Config.WriteInteger('Setup','DressDCAddValueMaxLimit', g_Config.nDressDCAddValueMaxLimit);
  Config.WriteInteger('Setup','DressDCAddValueRate', g_Config.nDressDCAddValueRate);
  Config.WriteInteger('Setup','DressMCAddRate', g_Config.nDressMCAddRate);
  Config.WriteInteger('Setup','DressMCAddValueMaxLimit', g_Config.nDressMCAddValueMaxLimit);
  Config.WriteInteger('Setup','DressMCAddValueRate', g_Config.nDressMCAddValueRate);
  Config.WriteInteger('Setup','DressSCAddRate', g_Config.nDressSCAddRate);
  Config.WriteInteger('Setup','DressSCAddValueMaxLimit', g_Config.nDressSCAddValueMaxLimit);
  Config.WriteInteger('Setup','DressSCAddValueRate', g_Config.nDressSCAddValueRate);

  Config.WriteInteger('Setup','NeckLace19DCAddRate', g_Config.nNeckLace19DCAddRate);
  Config.WriteInteger('Setup','NeckLace19DCAddValueMaxLimit', g_Config.nNeckLace19DCAddValueMaxLimit);
  Config.WriteInteger('Setup','NeckLace19DCAddValueRate', g_Config.nNeckLace19DCAddValueRate);
  Config.WriteInteger('Setup','NeckLace19MCAddRate', g_Config.nNeckLace19MCAddRate);
  Config.WriteInteger('Setup','NeckLace19MCAddValueMaxLimit', g_Config.nNeckLace19MCAddValueMaxLimit);
  Config.WriteInteger('Setup','NeckLace19MCAddValueRate', g_Config.nNeckLace19MCAddValueRate);
  Config.WriteInteger('Setup','NeckLace19SCAddRate', g_Config.nNeckLace19SCAddRate);
  Config.WriteInteger('Setup','NeckLace19SCAddValueMaxLimit', g_Config.nNeckLace19SCAddValueMaxLimit);
  Config.WriteInteger('Setup','NeckLace19SCAddValueRate', g_Config.nNeckLace19SCAddValueRate);

  Config.WriteInteger('Setup','NeckLace202124DCAddRate', g_Config.nNeckLace202124DCAddRate);
  Config.WriteInteger('Setup','NeckLace202124DCAddValueMaxLimit', g_Config.nNeckLace202124DCAddValueMaxLimit);
  Config.WriteInteger('Setup','NeckLace202124DCAddValueRate', g_Config.nNeckLace202124DCAddValueRate);
  Config.WriteInteger('Setup','NeckLace202124MCAddRate', g_Config.nNeckLace202124MCAddRate);
  Config.WriteInteger('Setup','NeckLace202124MCAddValueMaxLimit', g_Config.nNeckLace202124MCAddValueMaxLimit);
  Config.WriteInteger('Setup','NeckLace202124MCAddValueRate', g_Config.nNeckLace202124MCAddValueRate);
  Config.WriteInteger('Setup','NeckLace202124SCAddRate', g_Config.nNeckLace202124SCAddRate);
  Config.WriteInteger('Setup','NeckLace202124SCAddValueMaxLimit', g_Config.nNeckLace202124SCAddValueMaxLimit);
  Config.WriteInteger('Setup','NeckLace202124SCAddValueRate', g_Config.nNeckLace202124SCAddValueRate);

  Config.WriteInteger('Setup','Ring22DCAddValueMaxLimit', g_Config.nRing22DCAddValueMaxLimit);
  Config.WriteInteger('Setup','Ring22DCAddValueRate', g_Config.nRing22DCAddValueRate);
  Config.WriteInteger('Setup','Ring22DCAddRate', g_Config.nRing22DCAddRate);
  Config.WriteInteger('Setup','Ring22MCAddValueMaxLimit', g_Config.nRing22MCAddValueMaxLimit);
  Config.WriteInteger('Setup','Ring22MCAddValueRate', g_Config.nRing22MCAddValueRate);
  Config.WriteInteger('Setup','Ring22MCAddRate', g_Config.nRing22MCAddRate);
  Config.WriteInteger('Setup','Ring22SCAddValueMaxLimit', g_Config.nRing22SCAddValueMaxLimit);
  Config.WriteInteger('Setup','Ring22SCAddValueRate', g_Config.nRing22SCAddValueRate);
  Config.WriteInteger('Setup','Ring22SCAddRate', g_Config.nRing22SCAddRate);

  Config.WriteInteger('Setup','ArmRing26DCAddRate', g_Config.nArmRing26DCAddRate);
  Config.WriteInteger('Setup','ArmRing26DCAddValueMaxLimit', g_Config.nArmRing26DCAddValueMaxLimit);
  Config.WriteInteger('Setup','ArmRing26DCAddValueRate', g_Config.nArmRing26DCAddValueRate);
  Config.WriteInteger('Setup','ArmRing26MCAddRate', g_Config.nArmRing26MCAddRate);
  Config.WriteInteger('Setup','ArmRing26MCAddValueMaxLimit', g_Config.nArmRing26MCAddValueMaxLimit);
  Config.WriteInteger('Setup','ArmRing26MCAddValueRate', g_Config.nArmRing26MCAddValueRate);
  Config.WriteInteger('Setup','ArmRing26SCAddRate', g_Config.nArmRing26SCAddRate);
  Config.WriteInteger('Setup','ArmRing26SCAddValueMaxLimit', g_Config.nArmRing26SCAddValueMaxLimit);
  Config.WriteInteger('Setup','ArmRing26SCAddValueRate', g_Config.nArmRing26SCAddValueRate);

  Config.WriteInteger('Setup','Ring23DCAddRate', g_Config.nRing23DCAddRate);
  Config.WriteInteger('Setup','Ring23DCAddValueMaxLimit', g_Config.nRing23DCAddValueMaxLimit);
  Config.WriteInteger('Setup','Ring23DCAddValueRate', g_Config.nRing23DCAddValueRate);
  Config.WriteInteger('Setup','Ring23MCAddRate', g_Config.nRing23MCAddRate);
  Config.WriteInteger('Setup','Ring23MCAddValueMaxLimit', g_Config.nRing23MCAddValueMaxLimit);
  Config.WriteInteger('Setup','Ring23MCAddValueRate', g_Config.nRing23MCAddValueRate);
  Config.WriteInteger('Setup','Ring23SCAddRate', g_Config.nRing23SCAddRate);
  Config.WriteInteger('Setup','Ring23SCAddValueMaxLimit', g_Config.nRing23SCAddValueMaxLimit);
  Config.WriteInteger('Setup','Ring23SCAddValueRate', g_Config.nRing23SCAddValueRate);

  Config.WriteInteger('Setup','HelMetDCAddRate', g_Config.nHelMetDCAddRate);
  Config.WriteInteger('Setup','HelMetDCAddValueMaxLimit', g_Config.nHelMetDCAddValueMaxLimit);
  Config.WriteInteger('Setup','HelMetDCAddValueRate', g_Config.nHelMetDCAddValueRate);
  Config.WriteInteger('Setup','HelMetMCAddRate', g_Config.nHelMetMCAddRate);
  Config.WriteInteger('Setup','HelMetMCAddValueMaxLimit', g_Config.nHelMetMCAddValueMaxLimit);
  Config.WriteInteger('Setup','HelMetMCAddValueRate', g_Config.nHelMetMCAddValueRate);
  Config.WriteInteger('Setup','HelMetSCAddRate', g_Config.nHelMetSCAddRate);
  Config.WriteInteger('Setup','HelMetSCAddValueMaxLimit', g_Config.nHelMetSCAddValueMaxLimit);
  Config.WriteInteger('Setup','HelMetSCAddValueRate', g_Config.nHelMetSCAddValueRate);          
    
  uModValue();
end;

procedure TfrmItemSet.EditMonRandomAddValueChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMonRandomAddValue:=EditMonRandomAddValue.Value;
  ModValue();
end;

procedure TfrmItemSet.EditMakeRandomAddValueChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMakeRandomAddValue:=EditMakeRandomAddValue.Value;
  ModValue();
end;

procedure TfrmItemSet.EditWeaponDCAddValueMaxLimitChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nWeaponDCAddValueMaxLimit:=EditWeaponDCAddValueMaxLimit.Value;
  ModValue();
end;

procedure TfrmItemSet.EditWeaponDCAddValueRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nWeaponDCAddValueRate:=EditWeaponDCAddValueRate.Value;
  ModValue();
end;

procedure TfrmItemSet.EditWeaponMCAddValueMaxLimitChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nWeaponMCAddValueMaxLimit:=EditWeaponMCAddValueMaxLimit.Value;
  ModValue();
end;

procedure TfrmItemSet.EditWeaponMCAddValueRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nWeaponMCAddValueRate:=EditWeaponMCAddValueRate.Value;
  ModValue();
end;

procedure TfrmItemSet.EditWeaponSCAddValueMaxLimitChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nWeaponSCAddValueMaxLimit:=EditWeaponSCAddValueMaxLimit.Value;
  ModValue();
end;

procedure TfrmItemSet.EditWeaponSCAddValueRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nWeaponSCAddValueRate:=EditWeaponSCAddValueRate.Value;
  ModValue();
end;

procedure TfrmItemSet.EditDressDCAddValueMaxLimitChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nDressDCAddValueMaxLimit:=EditDressDCAddValueMaxLimit.Value;
  ModValue();
end;

procedure TfrmItemSet.EditDressDCAddValueRateChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nDressDCAddValueRate:=EditDressDCAddValueRate.Value;
  ModValue();
end;

procedure TfrmItemSet.EditDressMCAddValueMaxLimitChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nDressMCAddValueMaxLimit:=EditDressMCAddValueMaxLimit.Value;
  ModValue();