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.