战神引擎战士购买宝宝Npc脚本

用于战神引擎的战士购买宝宝Npc脚本，在之前看到的都是法道才能召唤宠物，今天发现了这个战士的，提取出来。脚本默认货币为金币，GM可以根据自己的要求，换成自己想要的货币和任意修改里面购买宝宝的名单。

战神引擎战士购买宝宝Npc脚本

部分脚本

procedure _MonDialog(MidStr : string);
var Mid : integer;
begin
    Mid := StrToIntDef(MidStr,0);
    This_Npc.NpcDialog(This_Player, 
   // '你已召唤怪物：' + inttostr(This_Player.RegisterMethod('')) + '/5:\|'     
    +'召唤怪物：' + getMonNameByid(Mid) + '\|'
    +'召唤等级：' + inttostr(getMonLvbyId(Mid)) + '级\|' 
    +'需要金币：' + inttostr(getMonGoldbyId(Mid)) + '\|' 
    +'剩余数量：' + getMonNumStr(Mid) + '\|'  
    +'{cmd}<我要召唤/@CallmobNow~' + MidStr + '>');
end;
procedure CallMobTrue(Mid : integer);
var needGold : integer;
MName : string;
begin
    needGold := getMonGoldbyId(Mid);
    MName := getMonNameByid(Mid);
    if This_Player.GoldNum >= needGold then
    begin
        This_Player.DecGold(needGold);
        This_Player.MakeSlaveEx(getMonTrueNameByid(Mid) , 1 ,0);
        getMonNum(Mid , 1)
         This_Npc.NpcDialog(This_Player,          
        MName + '我已帮你召唤了，还有什么事吗？|\'
        +'{cmd}<继续召唤' + MName + '/@CallmobNow~' + inttostr(Mid) + '>      ^<返回/@GoldCallmob>');  
    end else
    This_Npc.NpcDialog(This_Player, 
    '没钱我也没办法！');
end; 
procedure _CallmobNow(MidStr : string);
var Mid : integer;
begin
    Mid := StrToIntDef(MidStr,0);
    if This_Player.Job = 0 then
    begin
        if This_Player.Level >= getMonLvbyId(Mid) then
        begin 
            if This_Player.GetSlaveCount('') < 1 then
            begin
                if getMonMaxNumbyId(Mid) < 0 then exit else if getMonMaxNumbyId(Mid) = 0 then CallMobTrue(Mid) else if getMonNum(Mid , 0) > 0 then
                CallMobTrue(Mid) else
                This_Npc.NpcDialog(This_Player,          
                '我已体力不支，无法召唤' + getMonNameByid(Mid) + '了！');
            end else 
            This_Npc.NpcDialog(This_Player,          
            '战士每人最多只能召唤1个怪物！');
        end else
        This_Npc.NpcDialog(This_Player,          
        '请修炼到' + inttostr(getMonLvbyId(Mid)) + '级再尝试召唤' + getMonNameByid(Mid)  + '吧！');  
    end else
    This_Npc.NpcDialog(This_Player,          
    '战士才可以在我这里召唤怪物！');
end;
procedure Execute;
var nowTime : integer;
begin
    nowTime := (GetHour * 100) + GetMin;
    setgTask(nowTime);
end;
begin
 TZJH_NPC;
This_Npc.NpcDialog(This_Player,          
    '有些宝宝需要召唤时间，数量有限，先到先得\'
    +'|本服为了平衡法师职业，只要<服务器不重启/fcolor=254>'
    +'或者宝宝<不被大刀和怪杀死/fcolor=254>，<上线/fcolor=254>宝宝依然存在'
    //+'|战士<'+inttostr(slevel-2)+'级/fcolor=250>前可以购买一只<蝎子王/fcolor=red>\'
    //+'|打开<首充礼包/fcolor=250>的玩家可领取<首充宝宝/fcolor=250>\'
    +'|{cmd}<金币召唤宝宝/@GoldCallmob>'
	);
end.

分享到：

赞(0)