sm

切换到宽版 登录 立即注册

服务器租用 996 无法下载点击此处反馈
/
美林GM论坛,传奇一条龙,传奇版本库,GM基地»GM论坛 › 资源中心 › 游戏源码交流 › 飘逸引擎Delphi传奇引擎全套源码+网关登陆器源代码 ...
查看: 948|回复: 1

飘逸引擎Delphi传奇引擎全套源码+网关登陆器源代码 [传奇源码]

[复制链接]
夜游神 实名认证 信用认证

826

主题

37

回帖

23万

积分

霸王教主

积分
237197
发表于 2023-8-11 01:16:10 | 显示全部楼层 |阅读模式
飘逸引擎Delphi传奇引擎全套源码+网关登陆器源代码

  1. var
  2.   frmGameConfig: TfrmGameConfig;

  4. implementation

  6. uses M2Share, HUtil32, SDK, ActionSpeedConfig, grobal2;

  8. {$R *.dfm}

  10. { TfrmGameConfig }

  12. procedure TfrmGameConfig.FormCreate(Sender: TObject);
  13. var
  14.   I: Integer;
  15. begin
  16.   try
  17.     ComboBoxLineNoticeColor.Items.Add('红色');
  18.     ComboBoxLineNoticeColor.Items.Add('绿色');
  19.     ComboBoxLineNoticeColor.Items.Add('蓝色');
  20.     GridLevelExp.ColWidths[0] := 30;
  21.     GridLevelExp.ColWidths[1] := 100;
  22.     GridLevelExp.Cells[0, 0] := '等级';
  23.     GridLevelExp.Cells[1, 0] := '经验值';
  24.     for I := 1 to GridLevelExp.RowCount - 1 do
  25.     begin
  26.       GridLevelExp.Cells[0, I] := IntToStr(I);
  27.     end;

  29.     ComboBoxLevelExp.AddItem('原始经验值', TObject(s_OldLevelExp));
  30.     ComboBoxLevelExp.AddItem('标准经验值', TObject(s_StdLevelExp));
  31.     ComboBoxLevelExp.AddItem('当前1/2倍经验', TObject(s_2Mult));
  32.     ComboBoxLevelExp.AddItem('当前1/5倍经验', TObject(s_5Mult));
  33.     ComboBoxLevelExp.AddItem('当前1/8倍经验', TObject(s_8Mult));
  34.     ComboBoxLevelExp.AddItem('当前1/10倍经验', TObject(s_10Mult));
  35.     ComboBoxLevelExp.AddItem('当前1/20倍经验', TObject(s_20Mult));
  36.     ComboBoxLevelExp.AddItem('当前1/30倍经验', TObject(s_30Mult));
  37.     ComboBoxLevelExp.AddItem('当前1/40倍经验', TObject(s_40Mult));
  38.     ComboBoxLevelExp.AddItem('当前1/50倍经验', TObject(s_50Mult));
  39.     ComboBoxLevelExp.AddItem('当前1/60倍经验', TObject(s_60Mult));
  40.     ComboBoxLevelExp.AddItem('当前1/70倍经验', TObject(s_70Mult));
  41.     ComboBoxLevelExp.AddItem('当前1/80倍经验', TObject(s_80Mult));
  42.     ComboBoxLevelExp.AddItem('当前1/90倍经验', TObject(s_90Mult));
  43.     ComboBoxLevelExp.AddItem('当前1/100倍经验', TObject(s_100Mult));
  44.     ComboBoxLevelExp.AddItem('当前1/150倍经验', TObject(s_150Mult));
  45.     ComboBoxLevelExp.AddItem('当前1/200倍经验', TObject(s_200Mult));
  46.     ComboBoxLevelExp.AddItem('当前1/250倍经验', TObject(s_250Mult));
  47.     ComboBoxLevelExp.AddItem('当前1/300倍经验', TObject(s_300Mult));

  49.     EditHitIntervalTime.Hint :=
  50.       '游戏中人物二次攻击间隔时间，此参数默认为 900毫秒。';
  51.     EditMagicHitIntervalTime.Hint :=
  52.       '游戏中人物二次魔法攻击间隔时间，此参数默认为 800毫秒。';
  53.     EditRunIntervalTime.Hint :=
  54.       '游戏中人物二次跑动间隔时间，此参数默认为 600毫秒。';
  55.     EditWalkIntervalTime.Hint :=
  56.       '游戏中人物二次走动间隔时间，此参数默认为 600毫秒。';
  57.     EditTurnIntervalTime.Hint :=
  58.       '游戏中人物二次变方向间隔时间，此参数默认为 600毫秒。';
  59.     EditItemSpeedTime.Hint :=
  60.       '装备加速属性速度控制，数字越小控制越严，此参数默认为 50毫秒。';

  62.     EditStruckTime.Hint :=
  63.       '人物被攻击后弯腰停留时间控制，此参数默认为 100毫秒。';
  64.     CheckBoxDisableStruck.Hint :=
  65.       '人物在被攻击后是否显示弯腰动作。';

  67.     GridLevelExp.Hint := '修改的经验在点击保存按钮后生效。';
  68.     ComboBoxLevelExp.Hint := '选择的经验计划，立即生效。';
  69.     EditKillMonExpMultiple.Hint :=
  70.       '人物杀怪物所得经验值倍，此参数默认为 1，此经验值以怪物数据库里的经验值为基准。';
  71.     CheckBoxHighLevelKillMonFixExp.Hint :=
  72.       '高等级人物杀怪经验是否保持不变，此参数默认为关闭(不打钩)。';
  73.     EditRepairDoorPrice.Hint :=
  74.       '维修城门所需费用，此参数默认为 2000000金币。';
  75.     EditRepairWallPrice.Hint :=
  76.       '维修城墙所需费用，此参数默认为 500000金币。';
  77.     EditHireArcherPrice.Hint :=
  78.       '雇用弓箭手所需费用，此参数默认为 300000金币。';
  79.     EditHireGuardPrice.Hint :=
  80.       '维修守卫所需费用，此参数默认为 300000金币。';
  81.     EditCastleGoldMax.Hint :=
  82.       '城堡内最高可存金币数量，此参数默认为 10000000金币。';
  83.     EditCastleOneDayGold.Hint :=
  84.       '城堡一天内最高收入上限，此参数默认为 2000000金币。';
  85.     EditCastleHomeMap.Hint :=
  86.       '行会回城点默认所在地图号，此参数默认地图号为 3，以城堡配置文件中的参数为准';
  87.     EditCastleHomeX.Hint :=
  88.       '行会回城点默认所在地图座标X，此参数默认座标为 644，以城堡配置文件中的参数为准';
  89.     EditCastleHomeY.Hint :=
  90.       '行会回城点默认所在地图座标Y，此参数默认座标为 290，以城堡配置文件中的参数为准';
  91.     EditCastleName.Hint :=
  92.       '城堡默认的名称，以城堡配置文件中的参数为准。';
  93.     EditWarRangeX.Hint :=
  94.       '攻城区域默认座标X范围大小，此参数默认为 100，以城堡配置文件中的参数为准';
  95.     EditWarRangeY.Hint :=
  96.       '攻城区域默认座标Y范围大小，此参数默认为 100，以城堡配置文件中的参数为准';
  97.     CheckBoxGetAllNpcTax.Hint :=
  98.       '是否收取所有交易NPC的交易税，此参数默认为关闭(不打钩)。';
  99.     EditTaxRate.Hint :=
  100.       '交易税率，此参为默认为 5，也就是 0.05%。';
  101.     chkExpShowConfig.Hint :=
  102.       '打怪所得经验提示在聊天窗口内还是在屏幕上';
  103. {$IF SoftVersion = VERDEMO}
  104.     Caption := '游戏参数[演示版本，所有设置调整有效，但不能保存]'
  105. {$IFEND}

  107.   except
  108.     MainOutMessage('[Exception] TfrmGameConfig.FormCreate');
  109.   end;
  110. end;

  112. procedure TfrmGameConfig.GameConfigControlChanging(Sender: TObject;
  113.   var AllowChange: Boolean);
  114. begin
  115.   try
  116.     if boModValued then
  117.     begin
  118.       if
  119.         Application.MessageBox('参数设置已经被修改，是否确认不保存修改的设置？', '确认信息', MB_YESNO + MB_ICONQUESTION) = IDYES then
  120.       begin
  121.         uModValue
  122.       end
  123.       else
  124.         AllowChange := False;
  125.     end;
  126.   except
  127.     MainOutMessage('[Exception] TfrmGameConfig.GameConfigControlChanging');
  128.   end;
  129. end;

  131. procedure TfrmGameConfig.ModValue;
  132. begin
  133.   try
  134.     boModValued := True;
  135.     ButtonGameSpeedSave.Enabled := True;
  136.     ButtonGeneralSave.Enabled := True;
  137.     ButtonExpSave.Enabled := True;
  138.     ButtonCastleSave.Enabled := True;
  139.     ButtonOptionSave0.Enabled := True;
  140.     ButtonOptionSave.Enabled := True;
  141.     ButtonOptionSave2.Enabled := True;
  142.     ButtonOptionSave3.Enabled := True;
  143.     ButtonTimeSave.Enabled := True;
  144.     ButtonPriceSave.Enabled := True;
  145.     ButtonMsgSave.Enabled := True;
  146.     ButtonMsgColorSave.Enabled := True;
  147.     ButtonHumanDieSave.Enabled := True;
  148.     ButtonCharStatusSave.Enabled := True;
  149.     ButtonWgSave.Enabled := True;
  150.   except
  151.     MainOutMessage('[Exception] TfrmGameConfig.ModValue');
  152.   end;
  153. end;

  155. procedure TfrmGameConfig.uModValue;
  156. begin
  157.   try
  158.     boModValued := False;
  159.     ButtonGameSpeedSave.Enabled := False;
  160.     ButtonGeneralSave.Enabled := False;
  161.     ButtonExpSave.Enabled := False;
  162.     ButtonCastleSave.Enabled := False;
  163.     ButtonOptionSave0.Enabled := False;
  164.     ButtonOptionSave.Enabled := False;
  165.     ButtonOptionSave2.Enabled := False;
  166.     ButtonOptionSave3.Enabled := False;
  167.     ButtonTimeSave.Enabled := False;
  168.     ButtonPriceSave.Enabled := False;
  169.     ButtonMsgSave.Enabled := False;
  170.     ButtonMsgColorSave.Enabled := False;
  171.     ButtonHumanDieSave.Enabled := False;
  172.     ButtonCharStatusSave.Enabled := False;
  173.     ButtonWgSave.Enabled := False;
  174.   except
  175.     MainOutMessage('[Exception] TfrmGameConfig.uModValue');
  176.   end;
  177. end;

  179. procedure TfrmGameConfig.Open;
  180. var
  181.   I: Integer;
  182. begin
  183.   try
  184.     boOpened := False;
  185.     uModValue();
  186.     RefGameSpeedConf();

  188.     EditKillMonExpMultiple.Value := g_Config.dwKillMonExpMultiple;
  189.     CheckBoxHighLevelKillMonFixExp.Checked := g_Config.boHighLevelKillMonFixExp;
  190.     CheckBoxHighLevelGroupFixExp.Checked := g_Config.boHighLevelGroupFixExp;
  191.     CheckBoxGroupSameScreen.Checked := g_Config.boGroupSameScreen;
  192.     CheckBoxGroupSameMap.Checked := g_Config.boGroupSameMap;
  193.     CheckBoxHeroSameMap.Checked:=g_Config.boHeroSameMap;
  194.     CheckBoxGroupSameMap.Enabled := CheckBoxGroupSameScreen.Checked;
  195.     EditRepairDoorPrice.Value := g_Config.nRepairDoorPrice;
  196.     EditRepairWallPrice.Value := g_Config.nRepairWallPrice;
  197.     EditHireArcherPrice.Value := g_Config.nHireArcherPrice;
  198.     EditHireGuardPrice.Value := g_Config.nHireGuardPrice;
  199.     EditPlayMaxLevel.Value := g_Config.nPlayMaxLevel;
  200.     EditHeroMaxLevel.Value := g_Config.nHeroMaxLevel;
  201.     EditHeroExpRate.Value := g_Config.nHeroExpRate;
  202.     EditPlayFixupExp.Text := IntToStr(g_Config.nPlayFixupExp);
  203.     EditHeroFixupExp.Text := IntToStr(g_Config.nHeroFixupExp);
  204.     {ExpConf.WriteInteger('Exp','PlayMaxLevel',g_Config.nPlayMaxLevel);
  205.     ExpConf.WriteInteger('Exp','HeroMaxLevel',g_Config.nHeroMaxLevel);
  206.     ExpConf.WriteInteger('Exp','HeroExpRate',g_Config.nHeroExpRate);
  207.     ExpConf.WriteInteger('Exp','PlayFixupExp',g_Config.nPlayFixupExp);
  208.     ExpConf.WriteInteger('Exp','HeroFixupExp',g_Config.nHeroFixupExp); }

  210.     EditCastleGoldMax.Value := g_Config.nCastleGoldMax;
  211.     EditCastleOneDayGold.Value := g_Config.nCastleOneDayGold;
  212.     EditCastleHomeMap.Text := g_Config.sCastleHomeMap;
  213.     EditCastleHomeX.Value := g_Config.nCastleHomeX;
  214.     EditCastleHomeY.Value := g_Config.nCastleHomeY;
  215.     EditCastleName.Text := g_Config.sCastleName;
  216.     EditWarRangeX.Value := g_Config.nCastleWarRangeX;
  217.     EditWarRangeY.Value := g_Config.nCastleWarRangeY;
  218.     CheckBoxGetAllNpcTax.Checked := g_Config.boGetAllNpcTax;
  219.     EditTaxRate.Value := g_Config.nCastleTaxRate;

  221.     for I := 1 to GridLevelExp.RowCount - 1 do
  222.     begin
  223.       GridLevelExp.Cells[1, I] := IntToStr(g_Config.dwNeedExps[I]);
  224.     end;
  225.     GroupBoxLevelExp.Caption := format('升级经验(最高有效等级%d)',
  226.       [MAXUPLEVEL]);

  228.     CheckBoxDisHumRun.Checked := not g_Config.boDiableHumanRun;
  229.     CheckBoxThink.Checked:=g_Config.boCheckThink;

  231.     CheckBoxRunHum.Checked := g_Config.boRunHuman;
  232.     CheckBoxRunMon.Checked := g_Config.boRunMon;
  233.     CheckBoxRunNpc.Checked := g_Config.boRunNpc;
  234.     CheckBoxRunGuard.Checked := g_Config.boRunGuard;
  235.     CheckBoxWarDisHumRun.Checked := g_Config.boWarDisHumRun;
  236.     CheckBoxWarDisHeroRun.Checked:=g_Config.boWarDisHeroRun;
  237.     CheckBoxGMRunAll.Checked := g_Config.boGMRunAll;
  238.     CheckBoxSafeZoneRunAll.Checked := g_Config.boSafeZoneRunAll;
  239.     CheckBoxDisHumRunClick(CheckBoxDisHumRun);

  241.     EditSafeZoneSize.Value := g_Config.nSafeZoneSize;
  242.     EditStartPointSize.Value := g_Config.nStartPointSize;
  243.     EditGroupMembersMax.Value := g_Config.nGroupMembersMax;

  245.     EditRedHomeMap.Text := g_Config.sRedHomeMap;
  246.     EditRedHomeX.Value := g_Config.nRedHomeX;
  247.     EditRedHomeY.Value := g_Config.nRedHomeY;

  249.     EditRedDieHomeMap.Text := g_Config.sRedDieHomeMap;
  250.     EditRedDieHomeX.Value := g_Config.nRedDieHomeX;
  251.     EditRedDieHomeY.Value := g_Config.nRedDieHomeY;

  253.     EditHomeMap.Text := g_Config.sHomeMap;
  254.     EditHomeX.Value := g_Config.nHomeX;
  255.     EditHomeY.Value := g_Config.nHomeY;

  257.     EditFireDragonGuardX.Value:=g_Config.nFireDragonGuardX;
  258.     EditFireDragonGuardY.Value:=g_Config.nFireDragonGuardY;

  260.     EditDecPkPointTime.Value := g_Config.dwDecPkPointTime div 1000;
  261.     EditDecPkPointCount.Value := g_Config.nDecPkPointCount;
  262.     EditPKFlagTime.Value := g_Config.dwPKFlagTime div 1000;
  263.     EditKillHumanAddPKPoint.Value := g_Config.nKillHumanAddPKPoint;
复制代码


前往下载飘逸引擎Delphi传奇引擎全套源码+网关登陆器源代码

飘逸, 引擎, delphi, 传奇, 全套




上一篇：Gom引擎全套源码传奇引擎GOM源代码首发
下一篇：战神引擎商城明文传奇源代码mir2.scenes.main.panel.shop

相关帖子
回复

使用道具 举报

caonima520

0

主题

7

回帖

1

积分

旋风流星刀

积分
1
发表于 2024-3-21 07:12:38 | 显示全部楼层
:):):)感谢分享哦~~哈哈
回复 支持 反对

使用道具 举报

返回列表 发新帖

© 2001-2024 Discuz! Team. Powered by Discuz! X3.5

GMT+8, 2024-10-8 17:27 , Processed in 0.276941 second(s), 51 queries 手机版|美林GM论坛 ( 蜀ICP备2020030293号-2 )|网站地图

禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.如遇版权问题,请及时QQ联系

快速回复 返回顶部 返回列表