functionconfig.pas

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

  if not boOpened then exit;
  g_Config.nFireBoomRage:=EditFireBoomRage.Value;
  ModValue();
end;
procedure TfrmFunctionConfig.EditSnowWindRangeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nSnowWindRange:=EditSnowWindRange.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.EditElecBlizzardRangeChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nElecBlizzardRange:=EditElecBlizzardRange.Value;
  ModValue();
end;

procedure TfrmFunctionConfig.EditMagTurnUndeadLevelChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nMagTurnUndeadLevel:=EditMagTurnUndeadLevel.Value;
  ModValue();
end;
procedure TfrmFunctionConfig.GridBoneFammSetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: String);
begin
  if not boOpened then exit;
  ModValue();
end;
procedure TfrmFunctionConfig.EditAmyOunsulPointChange(Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.nAmyOunsulPoint:=EditAmyOunsulPoint.Value;
  ModValue();
end;


procedure TfrmFunctionConfig.CheckBoxFireCrossInSafeZoneClick(
  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boDisableInSafeZoneFireCross:=CheckBoxFireCrossInSafeZone.Checked;
  ModValue();
end;


procedure TfrmFunctionConfig.CheckBoxGroupMbAttackPlayObjectClick(
  Sender: TObject);
begin
  if not boOpened then exit;
  g_Config.boGroupMbAttackPlayObject:=CheckBoxGroupMbAttackPlayObject.Checked;
  ModValue();
end;
procedure TfrmFunctionConfig.ButtonSkillSaveClick(Sender: TObject);
var
  I: Integer;
  RecallArray  :array[0..9] of TRecallMigic;
  Rect: TGridRect;
begin
  FillChar(RecallArray,SizeOf(RecallArray),#0);

  g_Config.sSkeleton:=Trim(EditBoneFammName.Text);

  for I := Low(RecallArray) to High(RecallArray) do begin
    RecallArray[I].nHumLevel:=Str_ToInt(GridBoneFamm.Cells[0,I + 1],-1);
    RecallArray[I].sMonName:=Trim(GridBoneFamm.Cells[1,I + 1]);
    RecallArray[I].nCount:=Str_ToInt(GridBoneFamm.Cells[2,I + 1],-1);
    RecallArray[I].nLevel:=Str_ToInt(GridBoneFamm.Cells[3,I + 1],-1);
    if GridBoneFamm.Cells[0,I + 1] = '' then break;
    if (RecallArray[I].nHumLevel <= 0) then begin
      Application.MessageBox('人物等级设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 0;
      Rect.Top := I + 1;
      Rect.Right := 0;
      Rect.Bottom := I + 1;
      GridBoneFamm.Selection:=Rect;
      exit;
    end;
    if UserEngine.GetMonRace(RecallArray[I].sMonName) <= 0 then begin
      Application.MessageBox('怪物名称设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 1;
      Rect.Top := I + 1;
      Rect.Right := 1;
      Rect.Bottom := I + 1;
      GridBoneFamm.Selection:=Rect;
      exit;
    end;
    if RecallArray[I].nCount <= 0 then begin
      Application.MessageBox('召唤数量设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 2;
      Rect.Top := I + 1;
      Rect.Right := 2;
      Rect.Bottom := I + 1;
      GridBoneFamm.Selection:=Rect;
      exit;
    end;
    if RecallArray[I].nLevel < 0 then begin
      Application.MessageBox('召唤等级设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 3;
      Rect.Top := I + 1;
      Rect.Right := 3;
      Rect.Bottom := I + 1;
      GridBoneFamm.Selection:=Rect;
      exit;
    end;
  end;

  for I := Low(RecallArray) to High(RecallArray) do begin
    RecallArray[I].nHumLevel:=Str_ToInt(GridDogz.Cells[0,I + 1],-1);
    RecallArray[I].sMonName:=Trim(GridDogz.Cells[1,I + 1]);
    RecallArray[I].nCount:=Str_ToInt(GridDogz.Cells[2,I + 1],-1);
    RecallArray[I].nLevel:=Str_ToInt(GridDogz.Cells[3,I + 1],-1);
    if GridDogz.Cells[0,I + 1] = '' then break;
    if (RecallArray[I].nHumLevel <= 0) then begin
      Application.MessageBox('人物等级设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 0;
      Rect.Top := I + 1;
      Rect.Right := 0;
      Rect.Bottom := I + 1;
      GridDogz.Selection:=Rect;
      exit;
    end;
    if UserEngine.GetMonRace(RecallArray[I].sMonName) <= 0 then begin
      Application.MessageBox('怪物名称设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 1;
      Rect.Top := I + 1;
      Rect.Right := 1;
      Rect.Bottom := I + 1;
      GridDogz.Selection:=Rect;
      exit;
    end;
    if RecallArray[I].nCount <= 0 then begin
      Application.MessageBox('召唤数量设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 2;
      Rect.Top := I + 1;
      Rect.Right := 2;
      Rect.Bottom := I + 1;
      GridDogz.Selection:=Rect;
      exit;
    end;
    if RecallArray[I].nLevel < 0 then begin
      Application.MessageBox('召唤等级设置错误！！！','错误信息',MB_OK + MB_ICONERROR);
      Rect.Left := 3;
      Rect.Top := I + 1;
      Rect.Right := 3;
      Rect.Bottom := I + 1;
      GridDogz.Selection:=Rect;
      exit;
    end;
  end;
  FillChar(g_Config.SkeletonArray,SizeOf(g_Config.SkeletonArray),#0);
  for I := Low(g_Config.SkeletonArray) to High(g_Config.SkeletonArray) do begin
    Config.WriteInteger('Setup','SkeletonHumLevel' + IntToStr(I),0);
    Config.WriteString('Names','Skeleton' + IntToStr(I),'');
    Config.WriteInteger('Setup','SkeletonCount' + IntToStr(I),0);
    Config.WriteInteger('Setup','SkeletonLevel' + IntToStr(I),0);
  end;
  for I := Low(g_Config.SkeletonArray) to High(g_Config.SkeletonArray) do begin
    if GridBoneFamm.Cells[0,I + 1] = '' then break;
    g_Config.SkeletonArray[I].nHumLevel:=Str_ToInt(GridBoneFamm.Cells[0,I + 1],-1);
    g_Config.SkeletonArray[I].sMonName:=Trim(GridBoneFamm.Cells[1,I + 1]);
    g_Config.SkeletonArray[I].nCount:=Str_ToInt(GridBoneFamm.Cells[2,I + 1],-1);
    g_Config.SkeletonArray[I].nLevel:=Str_ToInt(GridBoneFamm.Cells[3,I + 1],-1);

    Config.WriteInteger('Setup','SkeletonHumLevel' + IntToStr(I),g_Config.SkeletonArray[I].nHumLevel);
    Config.WriteString('Names','Skeleton' + IntToStr(I),g_Config.SkeletonArray[I].sMonName);
    Config.WriteInteger('Setup','SkeletonCount' + IntToStr(I),g_Config.SkeletonArray[I].nCount);
    Config.WriteInteger('Setup','SkeletonLevel' + IntToStr(I),g_Config.SkeletonArray[I].nLevel);
  end;

  FillChar(g_Config.DragonArray,SizeOf(g_Config.DragonArray),#0);
  for I := Low(g_Config.DragonArray) to High(g_Config.DragonArray) do begin
    Config.WriteInteger('Setup','DragonHumLevel' + IntToStr(I),0);
    Config.WriteString('Names','Dragon' + IntToStr(I),'');
    Config.WriteInteger('Setup','DragonCount' + IntToStr(I),0);
    Config.WriteInteger('Setup','DragonLevel' + IntToStr(I),0);
  end;
  for I := Low(g_Config.DragonArray) to High(g_Config.DragonArray) do begin
    if GridDogz.Cells[0,I + 1] = '' then break;

    g_Config.DragonArray[I].nHumLevel:=Str_ToInt(GridDogz.Cells[0,I + 1],-1);
    g_Config.DragonArray[I].sMonName:=Trim(GridDogz.Cells[1,I + 1]);
    g_Config.DragonArray[I].nCount:=Str_ToInt(GridDogz.Cells[2,I + 1],-1);
    g_Config.DragonArray[I].nLevel:=Str_ToInt(GridDogz.Cells[3,I + 1],-1);

    Config.WriteInteger('Setup','DragonHumLevel' + IntToStr(I),g_Config.DragonArray[I].nHumLevel);
    Config.WriteString('Names','Dragon' + IntToStr(I),g_Config.DragonArray[I].sMonName);
    Config.WriteInteger('Setup','DragonCount' + IntToStr(I),g_Config.DragonArray[I].nCount);
    Config.WriteInteger('Setup','DragonLevel' + IntToStr(I),g_Config.DragonArray[I].nLevel);
  end;

{$IF SoftVersion <> VERDEMO}
  Config.WriteBool('Setup','LimitSwordLong',g_Config.boLimitSwordLong);
  Config.WriteInteger('Setup','SwordLongPowerRate',g_Config.nSwordLongPowerRate);
  Config.WriteInteger('Setup','SkeletonCount',g_Config.nSkeletonCount);
  Config.WriteString('Names','Skeleton',g_Config.sSkeleton);
  Config.WriteInteger('Setup','DragonCount',g_Config.nDragonCount);
  Config.WriteString('Names','Dragon',g_Config.sDragon);
  Config.WriteInteger('Setup','FireBoomRage',g_Config.nFireBoomRage);
  Config.WriteInteger('Setup','SnowWindRange',g_Config.nSnowWindRange);
  Config.WriteInteger('Setup','ElecBlizzardRange',g_Config.nElecBlizzardRange);
  Config.WriteInteger('Setup','AmyOunsulPoint',g_Config.nAmyOunsulPoint);

  Config.WriteInteger('Setup','MagicAttackRage',g_Config.nMagicAttackRage);
  Config.WriteInteger('Setup','MagTurnUndeadLevel',g_Config.nMagTurnUndeadLevel);
  Config.WriteInteger('Setup','MagTammingLevel',g_Config.nMagTammingLevel);
  Config.WriteInteger('Setup','MagTammingTargetLevel',g_Config.nMagTammingTargetLevel);
  Config.WriteInteger('Setup','MagTammingTargetHPRate',g_Config.nMagTammingHPRate);
  Config.WriteInteger('Setup','MagTammingCount',g_Config.nMagTammingCount);

  Config.WriteInteger('Setup','MabMabeHitRandRate',g_Config.nMabMabeHitRandRate);
  Config.WriteInteger('Setup','MabMabeHitMinLvLimit',g_Config.nMabMabeHitMinLvLimit);
  Config.WriteInteger('Setup','MabMabeHitSucessRate',g_Config.nMabMabeHitSucessRate);
  Config.WriteInteger('Setup','MabMabeHitMabeTimeRate',g_Config.nMabMabeHitMabeTimeRate);

  Config.WriteBool('Setup','DisableInSafeZoneFireCross',g_Config.boDisableInSafeZoneFireCross);
  Config.WriteBool('Setup','GroupMbAttackPlayObject',g_Config.boGroupMbAttackPlayObject);
{$IFEND}
  uModValue();
end;
procedure TfrmFunctionConfig.RefUpgradeWeapon();
begin
  ScrollBarUpgradeWeaponDCRate.Position:=g_Config.nUpgradeWeaponDCRate;
  ScrollBarUpgradeWeaponDCTwoPointRate.Position:=g_Config.nUpgradeWeaponDCTwoPointRate;
  ScrollBarUpgradeWeaponDCThreePointRate.Position:=g_Config.nUpgradeWeaponDCThreePointRate;

  ScrollBarUpgradeWeaponMCRate.Position:=g_Config.nUpgradeWeaponMCRate;
  ScrollBarUpgradeWeaponMCTwoPointRate.Position:=g_Config.nUpgradeWeaponMCTwoPointRate;
  ScrollBarUpgradeWeaponMCThreePointRate.Position:=g_Config.nUpgradeWeaponMCThreePointRate;

  ScrollBarUpgradeWeaponSCRate.Position:=g_Config.nUpgradeWeaponSCRate;
  ScrollBarUpgradeWeaponSCTwoPointRate.Position:=g_Config.nUpgradeWeaponSCTwoPointRate;
  ScrollBarUpgradeWeaponSCThreePointRate.Position:=g_Config.nUpgradeWeaponSCThreePointRate;

  EditUpgradeWeaponMaxPoint.Value:=g_Config.nUpgradeWeaponMaxPoint;
  EditUpgradeWeaponPrice.Value:=g_Config.nUpgradeWeaponPrice;
  EditUPgradeWeaponGetBackTime.Value:=g_Config.dwUPgradeWeaponGetBackTime div 1000;
  EditClearExpireUpgradeWeaponDays.Value:=g_Config.nClearExpireUpgradeWeaponDays;
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponDCRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponDCRate.Position;
  EditUpgradeWeaponDCRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponDCRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponDCTwoPointRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponDCTwoPointRate.Position;
  EditUpgradeWeaponDCTwoPointRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponDCTwoPointRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponDCThreePointRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponDCThreePointRate.Position;
  EditUpgradeWeaponDCThreePointRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponDCThreePointRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponSCRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponSCRate.Position;
  EditUpgradeWeaponSCRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponSCRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponSCTwoPointRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponSCTwoPointRate.Position;
  EditUpgradeWeaponSCTwoPointRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponSCTwoPointRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponSCThreePointRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponSCThreePointRate.Position;
  EditUpgradeWeaponSCThreePointRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponSCThreePointRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponMCRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponMCRate.Position;
  EditUpgradeWeaponMCRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponMCRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponMCTwoPointRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponMCTwoPointRate.Position;
  EditUpgradeWeaponMCTwoPointRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponMCTwoPointRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.ScrollBarUpgradeWeaponMCThreePointRateChange(
  Sender: TObject);
var
  nPostion:Integer;
begin
  nPostion:=ScrollBarUpgradeWeaponMCThreePointRate.Position;
  EditUpgradeWeaponMCThreePointRate.Text:=IntToStr(nPostion);
  if not boOpened then exit;
  g_Config.nUpgradeWeaponMCThreePointRate:=nPostion;
  ModValue();
end;

procedure TfrmFunctionConfig.EditUpgradeWeaponMaxPointChange(