[77M2] 传奇引擎 充值服务 脚本

duke123

[77M2] 传奇引擎 充值服务 脚本

给会使用的朋友. 我不做任何解答. 77M2上手难度++++++

引擎的链接具体大家可以搜索一下 就不发类似广告的链接了.

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

interface
  uses Classes, SysUtils, DefiniensConst, ExtendFuns;
  
procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
procedure PayDesc(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
procedure OpenPayPage(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
procedure ObtainGold(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
procedure DoObtainGold(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);

implementation

procedure Main(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
S=
[[

亲爱的{S=<$Name$>;C=253}：\
　　我是本游戏的充值服务员，您有什么需要尽管来找我。\ \
[ <充值说明/@PayDesc>  ]     -----------------------------------\
[ <我要充值/@OpenPayPage>  ]        <{S=【点击进入官网查看充值说明】;C=250}/@Link:<$PayURL$>>\
[ <领取元宝/@ObtainGold>  ]     -----------------------------------\\\
<{S=结束对话}/@exit>\
]];
var
    AMessage: String;
begin
    AMessage    :=    ReplaceStr(S, '<$Name$>', Player.Name);
  AMessage    :=    ReplaceStr(AMessage, '<$PayURL$>',Web_PayPageURL);
    Npc.Say(Player, AMessage);
end;

procedure PayDesc(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
S=
[[
请你在充值前阅读以下充值说明：\
　　本服{S=元宝购买比例为1：100;C=249}，支持多种充值方式，比如手机短信、\
网银、支付宝、手机缴费卡、多种游戏点卡等等方式，但是不同的充值\
方式本服额外赠送的元宝比例也是不一样的。具体比例如下：\
　　首选：{S=网银：15%;C=251}　  {S=支付宝：15%;C=251}\
　　{S=各种游戏卡：10%;C=251}　　{S=各种手机充值卡：10%;C=251}\
　　{S=Q币卡：5%;C=251}　　      {S=手机短信：0%;C=251}\
    <{S=点击进入官网查看充值说明;C=250}/@Link:<$PayURL$>>\
<充值/@OpenPayPage>  <返回/@main>
]];
var
    AMessage: String;
begin
  AMessage    :=    ReplaceStr(S, '<$PayURL$>', Web_PayPageURL);
    Npc.Say(Player, AMessage);
end;

procedure OpenPayPage(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
begin
  Player.OpenURL(Web_PayPageURL, 800, 600);
end;

procedure ObtainGold(Npc: TNormNpc; Player: TPlayObject; Args: TArgs);
const
S=
[[
{S=%s;C=243}：\
　　如果您通过本服在线充值平台充值后，那就可以在这里领取对应\
的元宝。多次充值系统会自动累加元宝数量。{S=如果你领取到的元宝数;C=249}\
{S=量和你充值数量不一致，请多执行几次领取。;C=249}\\
当前元宝为:{S=%d;C=253} 个\
<领取元宝/@DoObtainGold>\\
<返回/@main>  <关闭/@Exit>\
]];
begin
    Npc.Say(Player, Format(S, [Player.Name, Player.GameGold]));
end;

//检查账号在指定充值文件中存在的行数，并删除，返回行数*比例
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 WriteGameGoldLog(const Account: String; GameGold: Integer);
begin
  //此次可将领取元宝的信息写入到指定的位置，如文本文件、数据库
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\充值积分\yb03.txt', Player.Account, 0.3);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb04.txt', Player.Account, 0.4);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb05.txt', Player.Account, 0.5);
        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\充值积分\yb3.txt', Player.Account, 3);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb4.txt', Player.Account, 4);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb5.txt', Player.Account, 5);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb6.txt', Player.Account, 6);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb7.txt', Player.Account, 7);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb8.txt', Player.Account, 8);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb9.txt', Player.Account, 9);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb10.txt', Player.Account, 10);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb20.txt', Player.Account, 20);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb30.txt', Player.Account, 30);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb40.txt', Player.Account, 40);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb50.txt', Player.Account, 50);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb60.txt', Player.Account, 60);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb70.txt', Player.Account, 70);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb80.txt', Player.Account, 80);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb90.txt', Player.Account, 90);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb100.txt', Player.Account, 100);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb200.txt', Player.Account, 200);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb300.txt', Player.Account, 300);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb400.txt', Player.Account, 400);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb500.txt', Player.Account, 500);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb600.txt', Player.Account, 600);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb700.txt', Player.Account, 700);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb800.txt', Player.Account, 800);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb900.txt', Player.Account, 900);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb1000.txt', Player.Account, 1000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb2000.txt', Player.Account, 2000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb3000.txt', Player.Account, 3000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb4000.txt', Player.Account, 4000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb5000.txt', Player.Account, 5000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb6000.txt', Player.Account, 6000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb7000.txt', Player.Account, 7000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb8000.txt', Player.Account, 8000);
        AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb9000.txt', Player.Account, 9000);
      AGoldSum    :=    AGoldSum + CheckAccount('Envir\QuestDiary\充值积分\yb10000.txt', Player.Account, 10000);
    if AGoldSum > 0 then
    begin
      //如果玩家领取到的元宝数量大于0   
        AGoldSum    :=    AGoldSum * 100;                          
        Player.GameGold    :=    Player.GameGold + Round(AGoldSum);
      Player.GoldChanged;
            Player.SendCenterMessage('元宝领取成功，一共领取元宝'+IntToStr(Round(AGoldSum))+'个！！！', 0);
      ObtainGold(Npc, Player, Args); //跳转到领取元宝的对话框界面
      WriteGameGoldLog(Player.Account, Round(AGoldSum));
    end
    else
            Player.SendCenterMessage('元宝领取失败，暂时没有你的充值信息！！！', 0);
  finally                  
    //领取结束，将G_GoldLocked置为False
    G_GoldLocked    :=    False;
  end;
end;

end.

夜丶冷殇

不明觉厉~

lechaxiang

直接晕了！！！！！！！！！！