战神引擎-检测指定玩家购买特殊药品，不花任何货币

procedure _taiyang;
begin
          if This_Player.YBNum >= 20 then
begin
if This_Player.FreeBagNum > 10 then
begin
             This_Player.ScriptRequestSubYBNum(20);
This_Player.Give('太阳水包', 10);
end
else
This_NPC.NpcDialog(This_Player,
'背包没有10个空位哦，请清理一下再购买吧 \ \'
);
end else
            This_Player.NpcDialog(This_Player,
'抱歉，你身上没有20个元宝。\\'
);
end;


procedure _taiyang1;
begin
This_Player.Give('太阳水包', 10);
end;