战神引擎元宝+声望+金刚石回收装备Npc脚本

用于战神引擎的元宝+声望+金刚石回收Npc教程，脚本支持一键回收，支持三种货币，文件是明文版的，可以任何修改里面的回收的装备名单和对应的回收货币，脚本自带放挂机验证设置，使用之前，需要输入正确的答案才能进行操作。

部分脚本

This_Player.PlayerNotice('回收系统：恭喜您获得声望['+inttostr(getZLFNum(1) div 1 * ZMnum)+']点！',2);
ServerSay('玩家：[' + This_Player.Name + ']回收装备获得['+inttostr(getZLFNum(1) div 1 * ZMnum)+']点声望！', 3);
end;
procedure _cuowu;
begin
  if This_Player.GetV(9, 91) <= 9 then
  begin
  This_Player.SetV(9,91,This_Player.GetV(9,91)+1);
  This_Player.PlayerNotice('挂机验证系统：验证失败！！！,请重新验证',0);	
  This_Player.PlayerNotice('挂机验证系统：验证失败！！！,请重新验证',0);	
  This_Player.PlayerNotice('挂机验证系统：验证失败！！！,请重新验证',0);	
    This_NPC.NpcDialog(This_Player,          
    '<防挂机功能：><当前错误次数/fcolor=254> '+inttostr(This_Player.GetV(9,91))+' <次/fcolor=254>.<超10次封号/fcolor=242>|\' 
    +'|你当前验证失败<请重新验证/fcolor=250>              <重新验证/@main>|      \'); 
   end;
  if This_Player.GetV(9, 91) >= 10 then
  begin
This_Player.RandomFlyTo('SD000');
//This_Npc.AddStrToFile('小黑屋.txt', This_Player.Name);   //写入该玩家名字后关闭小黑屋
This_Player.PlayerNotice('挂机验证系统：当前验证错误次数+ '+inttostr(This_Player.GetV(9,91))+' 次.被关禁闭.请联系管理员',8);  
This_Player.PlayerNotice('挂机验证系统：当前验证错误次数+ '+inttostr(This_Player.GetV(9,91))+' 次.被关禁闭.请联系管理员',8);  
This_Player.PlayerNotice('挂机验证系统：当前验证错误次数+ '+inttostr(This_Player.GetV(9,91))+' 次.被关禁闭.请联系管理员',8);  
end;		 
end;
procedure domain;
var
ditux,dituy,suiji : integer; 
begin	  
suiji := random(100);
//This_Player.SetV(9,91,1);
    if (suiji >= 0) and (suiji <= 25) then
    begin 
    This_NPC.NpcDialog(This_Player,          
    '<防挂机功能：><当前错误次数/fcolor=254> '+inttostr(This_Player.GetV(9,91))+' <次/fcolor=254>.<超10次封号/fcolor=242>|\' 
    +'你当前坐标为【<'+inttostr(This_Player.My_x)+'/fcolor=250>     <'+inttostr(This_Player.My_y)+'/fcolor=250> 】请选择<绿色答案/fcolor=250>|      \' 
	+'|    A：'+inttostr(This_Player.My_x + 55)+', '+inttostr(This_Player.My_y + 55)+'                         <选择答案 A/@cuowu>|\' 
	+'|    B：'+inttostr(This_Player.My_x + 99)+', '+inttostr(This_Player.My_y + 99)+'                         <选择答案 B/@cuowu>|\' 
	+'|    C：'+inttostr(This_Player.My_x - 44)+', '+inttostr(This_Player.My_y - 44)+'                         <选择答案 C/@cuowu>|\' 
	+'|    <D：'+inttostr(This_Player.My_x)+', '+inttostr(This_Player.My_y)+'/fcolor=250>                        <选择答案 D/@shoushikaishi>|\' 
	);
		 end else				 
		 begin
    if (suiji >= 26) and (suiji <= 50) then
    begin 
    This_NPC.NpcDialog(This_Player,          
    '<防挂机功能：><当前错误次数/fcolor=254> '+inttostr(This_Player.GetV(9,91))+' <次/fcolor=254>.<超10次封号/fcolor=242>|\' 
    +'你当前坐标为【<'+inttostr(This_Player.My_x)+'/fcolor=250>     <'+inttostr(This_Player.My_y)+'/fcolor=250> 】请选择<绿色答案/fcolor=250>|      \' 
	+'|    A：'+inttostr(This_Player.My_x + 55)+', '+inttostr(This_Player.My_y + 55)+'                         <选择答案 A/@cuowu>|\' 
	+'|    B：'+inttostr(This_Player.My_x + 99)+', '+inttostr(This_Player.My_y + 99)+'                         <选择答案 B/@cuowu>|\'
	+'|    <C：'+inttostr(This_Player.My_x)+', '+inttostr(This_Player.My_y)+'/fcolor=250>                        <选择答案 C/@shoushikaishi>|\' 	
	+'|    D：'+inttostr(This_Player.My_x - 44)+', '+inttostr(This_Player.My_y - 44)+'                         <选择答案 D/@cuowu>|\' 
	);		 
		 end else				 
		 begin
    if (suiji >= 51) and (suiji <= 75) then
    begin 
    This_NPC.NpcDialog(This_Player,          
    '<防挂机功能：><当前错误次数/fcolor=254> '+inttostr(This_Player.GetV(9,91))+' <次/fcolor=254>.<超10次封号/fcolor=242>|\' 
    +'你当前坐标为【<'+inttostr(This_Player.My_x)+'/fcolor=250>     <'+inttostr(This_Player.My_y)+'/fcolor=250> 】请选择<绿色答案/fcolor=250>|      \' 
	+'|    A：'+inttostr(This_Player.My_x + 50)+', '+inttostr(This_Player.My_y + 50)+'                         <选择答案 A/@cuowu>|\' 
	+'|    <B：'+inttostr(This_Player.My_x)+', '+inttostr(This_Player.My_y)+'/fcolor=250>                        <选择答案 B/@shoushikaishi>|\' 	
	+'|    C：'+inttostr(This_Player.My_x + 90)+', '+inttostr(This_Player.My_y + 90)+'                         <选择答案 C/@cuowu>|\' 
	+'|    D：'+inttostr(This_Player.My_x - 50)+', '+inttostr(This_Player.My_y - 50)+'                         <选择答案 D/@cuowu>|\' 
	);			 
		 end else				 
		 begin
    if (suiji >= 76) and (suiji <= 100) then
    begin 
    This_NPC.NpcDialog(This_Player,          
    '<防挂机功能：><当前错误次数/fcolor=254> '+inttostr(This_Player.GetV(9,91))+' <次/fcolor=254>.<超10次封号/fcolor=242>|\' 
    +'你当前坐标为【<'+inttostr(This_Player.My_x)+'/fcolor=250>     <'+inttostr(This_Player.My_y)+'/fcolor=250> 】请选择<绿色答案/fcolor=250>|      \' 
	+'|    <A：'+inttostr(This_Player.My_x)+', '+inttostr(This_Player.My_y)+'/fcolor=250>                        <选择答案 A/@shoushikaishi>|\'
	+'|    B：'+inttostr(This_Player.My_x + 90)+', '+inttostr(This_Player.My_y + 90)+'                         <选择答案 B/@cuowu>|\' 
	+'|    C：'+inttostr(This_Player.My_x - 50)+', '+inttostr(This_Player.My_y - 50)+'                         <选择答案 C/@cuowu>|\' 
	+'|    D：'+inttostr(This_Player.My_x + 50)+', '+inttostr(This_Player.My_y + 50)+'                         <选择答案 D/@cuowu>|\' 
	);			 
end;		 
end;
end;
end;
end;
Begin
if This_Player.GetV(9,91) < 0 then This_Player.SetV(9,91,0);
  domain;
end.

分享到：

赞(0)