BOSS直达Npc脚本(省去玩家找Boss的时间)

用于战神引擎的BoSS直达脚本，脚本主要是用于方便充值或者RMB玩家，通过消费元宝，直接传到BOSS所在的位置，这样节约了玩家进入地图去找BOSS的时间，另外也可以在NPC上看到该地图、该BOSS是不是刷出来了，不至于让玩家白跑一趟，浪费时间。脚本是明文版，里面的地图、怪物、进入扣除的元宝都可以任意修改。

部分脚本

procedure _GoMonMap(str:string);
begin
     if This_Player.GetBagItemCount('远古卷轴') > 0 then
	 begin
	      This_Player.Take('远古卷轴',1);
          This_Player.Flyto(printStr(str,2),strtoint(printStr(str,3)),strtoint(printStr(str,4)));
	      ServerSay('玩家'+This_Player.Name+'使用了1个远古卷轴进入'+printStr(str,1)+'寻找BOSS',0);
	      end
		else
	 begin
	 if This_Player.YBNum >= 5000 then
	 begin
	      This_Player.ScriptRequestSubYBNum(5000);;
          This_Player.Flyto(printStr(str,2),strtoint(printStr(str,3)),strtoint(printStr(str,4)));
	      ServerSay('玩家'+This_Player.Name+'使用了5000元宝进入'+printStr(str,1)+'寻找BOSS',0);
	      end
		else
	 begin
	 This_Npc.NpcDialog(This_Player,'你没有5000元宝不能进入！| |'+'{cmd}<返回主页/@domain~1>^<关闭界面/@exit>');
	 end;
  end;
end;
Procedure _domain(str:string);
var x,iboss,Tempnum:integer;BossStr,GMStr:string;
BossHave:array [1..100] of string;
begin
     BossStr:='';
	 x := StrToIntDef(str,0);
     for iboss:= x to x + 5 do
	 begin
	      if MonDate(1,iboss) <> '' then
		  begin
               if This_NPC.CheckMapMonByName(printStr(MonDate(2,iboss),1),MonDate(1,iboss)) = 1 then
               begin
               BossHave[iboss] := '<有/fcolor=250>';
		       end else begin
                   BossHave[iboss] := '<无/fcolor=248>';
		           end;
		     BossStr:=BossStr + '<'+MonDate(3,iboss)+'/fcolor=254>^<'+MonDate(1,iboss)+'/@GoMonMap~'+MonDate(3,iboss)+','+MonDate(2,iboss)+'>^      '+BossHave[iboss]+'^<'+inttostr(GetG(64,iboss))+'/fcolor=70>|'
             Tempnum:=iboss;
		     end else begin
	         BossStr:=BossStr + '<暂无信息/fcolor=242>...|';
	         end;
	    end;
		if This_Player.GMLevel > 5 then
		begin
		GMStr:='<清理变量/@GMql>';
		end;
	 Tempnum:=Tempnum + 7;
	 x:=x + 6;
	 if x > Tempnum then
	 begin
	 This_Npc.NpcDialog(This_Player,'已到达最后一页| |'+'{cmd}<返回主页/@domain~1>^<关闭界面/@exit>');
	 end else begin
     This_Npc.NpcDialog(This_Player,
	 '<花5000元宝><点击boss名字可以直接传到boss身边/s=250>|'+
	 '<我这里可以看boss刷怪状态/s=250>|'+
	 '<boss每3小一刷/s=253>|'+
     '地图名字　 BOSS名字　　状态　　状态|'+
     +BossStr+
     '{cmd}<下一页/@domain~'+inttostr(x)+'>'+GMStr+'<关闭界面/@exit>');
	 end;
end;
Begin
  _domain('1');
end.

分享到：

赞(0)