信用分修改

laopao

D:\mud2.0\Mir200\Envir\PsMapQuest

LogonQuest.pas

longer

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 >= 50 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(      '验证失败，您的传奇信用分不足50分。\ \'+       '|{cmd}<了解增强传奇信用分的方式/@AboutActive>\'        );     end else    This_Player.PlayerDialog(    '您是验证用户，无需再次验证，祝您游戏愉快！\'      );  end;