战神引擎qt和npc文件验证信用分
超凡 2021-8-7

LogonQuest文件

procedure _ValidateActive;
var StorageNum_b , StorageNum_N : integer;
begin
   if This_Player.CheckAuthen(1,100) = false then
   begin
     if This_Player.GetActivePoint + This_Player.GetTmpActivePoint >= 0 then
     begin
      StorageNum_b := This_Player.GetStorageSpaceCount;
      if This_Player.ActiveAuthen(1,100) = 1 then
      begin
      StorageNum_N := This_Player.GetStorageSpaceCount;
      
      This_Player.ExpandStorageSpace(StorageNum_b + 24 - StorageNum_N);
      
      This_Player.PlayerDialog(
      '验证成功!\'+
      '您已成为验证用户,祝您游戏愉快!'  
      ); 
      end else
      This_Player.PlayerDialog(
      '验证失败,请稍后再试。\ \'  
      ); 
     end else 
     This_Player.PlayerDialog(
     '验证失败,您的传奇信用分不足30分。\ \'+ 
     '|{cmd}<了解增强传奇信用分的方式/@AboutActive>\'  
     ); 
   end else
   This_Player.PlayerDialog(
   '您是验证用户,无需再次验证,祝您游戏愉快!\'  
   ); 
end;

NPC文件

rogram mir2;
{$I common.pas}
{$I WarehouseAndMbind.pas}
{$I ActiveValidateCom.pas}
{$I goToMonMap.pas}
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
    This_NPC.NpcDialog(This_Player,
    '比奇城是玛法大陆上最繁华的城市\'
    +'|{cmd}<验证/@PlayerActiveValidate>            ^<提升信用分/@xinyong>\'
    );
end;
Procedure _xinyong;
Begin
    if This_Player.GoldNum >= 10000 then
    This_Player.DecGold(10000);
     This_Player.IncActivePoint(999999);  //增加信用分1
end;
begin
domain;
end.


最新回复 (0)
返回