91M2引擎如何实现充值平台对接，91M2传奇版本开区设置充值平台的方法

游戏中充值平台是一个很重要的环节，基于77访问文件及数据库的功能，通过变通处理能支持任何的充值平台，对于充值平台本身就是写文件或数据库的模式则更是易如反掌。

在示范版本中我们只做了基于写文件的充值模式，下面则是玩家充值后领取元宝的核心代码：

unit Q4;
{
    充值模块说明：
  本模块适用于在"Mir200\Envir\QuestDiary\充值积分"文件夹里对应的文本中写入充值账号信息的充值方式
}

inte**ce
  uses Classes, SysUtils, DefiniensConst, ExtendFuns;

procedure DoObtainGold(Npc: TNormNpc; Player: TPlayObject; Args: TArgs); //领取元宝入口函数

implementation

//检查账号在指定充值文件中存在的行数，并删除，返回行数*比例
function CheckAccount(const TxtFile, Account: String; Rate: Double): Double;
var
  LS: TStrings;
  Idx: Integer;   
  ASum: Integer;
begin
  Result    :=    0;              
  //检查是否存在文件
  if FileExists(TxtFile) then
  begin
    LS    :=    TStringList.Create;     
    ASum:=    0; //初始取到的行数为0
    try            
      //将文件加载到TStrings对象
      LS.LoadFromFile(TxtFile);
      while true do
      begin
        Idx    :=    LS.IndexOf(Account);
        //取出一条账号记录
       if Idx <> -1 then
        begin            
          //如果取到了记录，则删除这条记录，并增加取到的行数
          LS.Delete(Idx);
          Inc(ASum);         
        end
        else   
          //没取到则直接跳出循环
          Break;
      end;      
      if ASum > 0 then
        //如果取到的行数大于0，则说明对列表有做过更新，需要保存
        LS.SaveToFile(TxtFile);
      //返回元宝数量(取到的行数x比例)   
      Result:= ASum    * Rate;
    finally
      LS.Free;
    end;   
  end;
end;

//领取充值元宝
procedure DoObtainGold(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
var
  AGoldSum: Double;
begin
if G_GoldLocked then
  begin
    //如果G_GoldLocked为True，则表示正在为其他玩家发放元宝，为了不引起并发读写问题，当前此次请求无效
    //此类处理方法可有效避免并发文本读写造成的数据错乱
    Player.SendCenterMessage('我正在为其他玩家发放元宝，请稍后！！！', 0);
    Exit;
  end;   
  //将G_GoldLocked置为True
  G_GoldLocked    :=    True;
  try      
    //初始化当前领取到的元宝总数为0，然后从每个文件中去读取元宝数量
    //示范版本中以常见的充值方式处理元宝处理，如果是读取数据库充值记录，则可以采用Gamelib.DBEngine对象来处理   
    AGoldSum    :=    0;
    AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb01.txt', Player.Account, 0.1);
    AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb02.txt', Player.Account, 0.2);
    AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb1.txt', Player.Account, 1);
    AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb2.txt', Player.Account, 2);
    AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb6.txt', Player.Account, 6);
    //作为演示,这里省略更多的元宝比例文件
    if AGoldSum > 0 then
    begin
      //如果玩家领取到的元宝数量大于0   
      AGoldSum    :=    AGoldSum * 100;                          
      Player.GameGold    :=    Player.GameGold + Round(AGoldSum);
      Player.GoldChanged;
      Player.SendCenterMessage('元宝领取成功，一共领取元宝'+IntToStr(Round(AGoldSum))+'个！！！', 0);
    end
    else
      Player.SendCenterMessage('元宝领取失败，暂时没有你的充值信息！！！', 0);
  finally                  
    //领取结束,将G_GoldLocked置为False,此时其他玩家可执行元宝领取了
    G_GoldLocked    :=    False;
  end;
end;

end.
上面代码中，CheckAccount函数就是检查文本文件中是否存在某账号记录，如果存在则全部取出来，算出对应的元宝数量并返回。

DoObtainGold函数则是一个普通的入口函数，即玩家点击客户端界面可触发的函数，这个函数先是提取出玩家有多少元宝，然后将元宝发放给玩家

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

很多架设问题在这里可以找到，真是太好啦。

感谢站长分享开区一条龙教程，新手能学习到很多知识。

这东西我收了！

开传奇一条龙不求人，自己学习架设。

楼主发贴辛苦了，谢谢楼主分享！

楼主发贴辛苦了，谢谢楼主分享！

感谢楼主提供这么好的论坛！

这东西我收了！谢谢楼主！

比较全的传奇教程分享网站，站长辛苦了。