自己写的简易跑丝活动-战神引擎-虾米宝库

随机话题: 游戏资料单机传奇传奇新天地兴趣杂谈 delphi 精品传奇版本战神引擎 GOM引擎

自己写的简易跑丝活动

夜发布于 2023-7-23

{
*******************************************************************}

program Mir2;
var dd,dd1,kai1,dd2,kai2,dd3,GetMin : string;
today:integer;

procedure _exit;
begin
  This_Npc.CloseDialog(This_Player);
end;

procedure _doexit;
begin
  This_Npc.CloseDialog(This_Player);
end;

procedure shua; 

begin  
 if CheckOtherMapHum('D2070') > 0 then 
   begin
	This_npc.CreateMon('D2070',25,26,20,'幻影蜘蛛',1);
	This_Player.CALLOUT(This_NPC,15,'shua');
  end else
  	This_NPC.ClearMon('D2070');

	end;
	
procedure shua1; 

begin  
 if CheckOtherMapHum('D2070~1') > 0 then 
   begin
	This_npc.CreateMon('D2070~1',25,26,20,'幻影蜘蛛',1);
	This_Player.CALLOUT(This_NPC,15,'shua1');
  end else
	This_NPC.ClearMon('D2070~1');

	end;

procedure shua2; 

begin  
 if CheckOtherMapHum('D2070~2') > 0 then 
   begin
	This_npc.CreateMon('D2070~2',25,26,20,'幻影蜘蛛',1);
	This_Player.CALLOUT(This_NPC,15,'shua2');
  end else
	This_NPC.ClearMon('D2070~2');


	end;

procedure shua3; 

begin  
 if CheckOtherMapHum('D2070~3') > 0 then 
   begin
	This_npc.CreateMon('D2070~3',25,26,20,'幻影蜘蛛',1);
	This_Player.CALLOUT(This_NPC,15,'shua3');
  end else
	This_NPC.ClearMon('D2070~3');

	end;	
	
	
	
	
	
	
	

procedure _hd55; 

begin  
 if CheckOtherMapHum('D2070') < 1 then 
   begin
    This_Player.RandomFlyTo('D2070');
	ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);
    ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);	
	 This_Player.CALLOUT(This_NPC,1,'shua');
	 This_Player.CALLOUTex(This_NPC,180,'hc');
	 
    end 
	else
	This_Player.PlayerNotice('当前地图有人了，请换其他地图', 2);

	end;
	
procedure _hd552; 
begin   
 if CheckOtherMapHum('D2070~1') < 1 then 
   begin
    This_Player.RandomFlyTo('D2070~1');
	ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);
    ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);	
	 This_Player.CALLOUT(This_NPC,1,'shua1');
	 This_Player.CALLOUTex(This_NPC,180,'hc1');
	 	
	 end else
	 	This_Player.PlayerNotice('当前地图有人了，请换其他地图', 2);	
	 
end;
procedure _hd553; 
begin   
 if CheckOtherMapHum('D2070~2') < 1 then 
   begin
    This_Player.RandomFlyTo('D2070~2');
	ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);
    ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);	
	 This_Player.CALLOUT(This_NPC,1,'shua2');
	 This_Player.CALLOUTex(This_NPC,180,'hc2');
	 	
	 end else
	 	This_Player.PlayerNotice('当前地图有人了，请换其他地图', 2);	
	 
end;
procedure _hd554; 
begin   
 if CheckOtherMapHum('D2070~3') < 1 then 
   begin
    This_Player.RandomFlyTo('D2070~3');
	ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);
    ServerSay('玩家<' + This_Player.Name + '>进入了抛尸活动！', 2);	
	 This_Player.CALLOUT(This_NPC,1,'shua3');
	 This_Player.CALLOUTex(This_NPC,180,'hc3');
	 	
	 end else
	 	This_Player.PlayerNotice('当前地图有人了，请换其他地图', 2);	
	 
end;	
	
	


Procedure  hc;
begin
if This_NPC.CheckMapMonByName('D2070' , '爆裂蜘蛛') >= 120 then
 begin
	
	This_Player.Flyto('3',333,333);
	This_Player.Give('千年蛛丝',1);
	

	This_Player.PlayerNotice('你抛尸活动时间到了,成功挑战奖励一个千年蛛丝', 2);	
	 ServerSay('玩家<' + This_Player.Name + '>跑丝成功获得千年蛛丝，！', 2);	
	end else

	This_Player.Flyto('3',333,333);
	

	This_Player.PlayerNotice('你抛尸活动时间到了，你活动失败了', 2);
end;

Procedure  hc1;
begin
if This_NPC.CheckMapMonByName('D2070~1' , '爆裂蜘蛛') >= 120 then
 begin
	
	This_Player.Flyto('3',333,333);
	This_Player.Give('千年蛛丝',1);
	

	This_Player.PlayerNotice('你抛尸活动时间到了,成功挑战奖励一个千年蛛丝', 2);	
		 ServerSay('玩家<' + This_Player.Name + '>跑丝成功获得千年蛛丝，！', 2);
	end else
		
	This_Player.Flyto('3',333,333);
	
	This_Player.PlayerNotice('你抛尸活动时间到了，你活动失败了', 2);
end;

Procedure  hc2;
begin
if This_NPC.CheckMapMonByName('D2070~2' , '爆裂蜘蛛') >= 120 then
 begin
	
	This_Player.Flyto('3',333,333);
	This_Player.Give('千年蛛丝',1);
	
	This_Player.PlayerNotice('你抛尸活动时间到了,成功挑战奖励一个千年蛛丝', 2);		
		 ServerSay('玩家<' + This_Player.Name + '>跑丝成功获得千年蛛丝，！', 2);
	end else
		
	This_Player.Flyto('3',333,333);
	
	This_Player.PlayerNotice('你抛尸活动时间到了，你活动失败了', 2);
end;


Procedure  hc3;
begin
if This_NPC.CheckMapMonByName('D2070~3' , '爆裂蜘蛛') >= 120 then
 begin
	
	This_Player.Flyto('3',333,333);
	This_Player.Give('千年蛛丝',1);
	

	This_Player.PlayerNotice('你抛尸活动时间到了,成功挑战奖励一个千年蛛丝', 2);	
		 ServerSay('玩家<' + This_Player.Name + '>跑丝成功获得千年蛛丝，！', 2);
	end else
		
	This_Player.Flyto('3',333,333);
	
	This_Player.PlayerNotice('你抛尸活动时间到了，你活动失败了', 2);	
end;

Procedure  _zaisa;
begin
if (This_Player.GetBagItemCount ('千年蛛丝') >= 10)and(CheckOtherMapHum('D2070~3') < 1  ) then
 begin
	
	This_Player.RandomFlyTo('0139~3');
  This_NPC.ClearMon('0139~3');
    ServerSay('玩家<' + This_Player.Name + '>去斩杀BOSS爆好东西去了！', 2);	
	end else
		

	This_Player.PlayerNotice('你没有10个千年蛛丝！或里面暂时有人', 2);	
end;

begin

 if CheckOtherMapHum('D2070~2') < 1 then 
    begin
	dd1:= '<[空闲]/fcolor=250>';
	end else
	begin
	dd1:= '<[有人]/fcolor=249>'
	end;
 if CheckOtherMapHum('D2070') < 1 then 
    begin
	dd:= '<[空闲]/fcolor=250>';
	end else
	begin
	dd:= '<[有人]/fcolor=249>'
	end; 
 if CheckOtherMapHum('D2070~1') < 1 then 
    begin
	dd3:= '<[空闲]/fcolor=250>';
	end else
	begin
	dd3:= '<[有人]/fcolor=249>'
	end;
 if CheckOtherMapHum('D2070~3') < 1 then 
    begin
	dd2:= '<[空闲]/fcolor=250>';
	end else
	begin
	dd2:= '<[有人]/fcolor=249>'
	end;
	

	
   This_Npc.NpcDialog(This_Player,
   +'|三分钟要求场面三爆裂蜘蛛有120个以上！\' 
   +'|不管场面上有没有120个以上点蜘蛛都会传送回土城！\' 
   +'|暂时不开放，需要10人到达元婴时候开放！\' 
   +'|注意，注意，注意\' 
   +'|进了活动地图，未满3分钟，回来回来点务必小腿一次，！\' 
   +'|出现问题后果自负！\' 
   
   +'|房间一 '+dd+'   房间二 '+dd3+'\' 
   +'|房间三 '+dd1+'   房间四 '+dd1+'\' 
   +'|{cmd}<进入地图一/@hd55>^<进入地图二 /@hd552>/\'
   +'|{cmd}<进入地图三 /@hd553><进入地图四 /@hd554>/\'
   );
end.

搭配下面跑丝刷boss

{
*******************************************************************}

program Mir2;

procedure _exit;
begin
  This_Npc.CloseDialog(This_Player);
end;

procedure _doexit;
begin
  This_Npc.CloseDialog(This_Player);
end;

procedure  _zhusi;
var ps: integer;
	boss : string;
 begin 
 
  ps:=random(20);
	boss:='';
                 case ps of  
					0 : boss := '鹿大王1';
                    1 : boss := '草人王1';
					2 : boss := '野人首领1';
					3 : boss := '兽人首领1';
					4 : boss := '猫妖王后1';
					5 : boss := '花后1';
                    6 : boss := '洪湖牛蛙王1';
					7 : boss := '花纹珠王1';
					8 : boss := '雪人王1';
					9 : boss := '皮皮蛇1';
					10 : boss := '好黄好蛇王1';					
					11 : boss := '淫1';					
					12 : boss := '荣耀精灵王1';					
					13 : boss := '射射1';					
					14 : boss := '射手王1';
				    15 : boss := '小七1';
					16 : boss := '昔日将军1';
					17 : boss := '昔日国王1';
					18 : boss := '邪恶教主1';
					19 : boss := '大恶魔1';					
					20 : boss := '万虫王1';	
					21 : boss := '恶魔教主1';	
					22 : boss := '黑暗精王1';	
				end; 
	if CheckOtherMapMon('0139~3') < 1 then
		begin
			if This_Player.GetBagItemCount ('千年蛛丝') >= 10 then
				begin
				This_NPC.CreateMon('0139~3', 23, 26, 10, boss, 1);
				This_Player.Take('千年蛛丝',10);
				 This_NPC.NpcDialog(This_Player,
		'你的点数是'+ inttostr(ps) +'召唤的是('+ boss +')!'); 
		ServerSay('玩家<' + This_Player.Name + '>使用千年蛛丝召唤了('+ boss +')！', 2);	
          end else
				
					 This_NPC.NpcDialog(This_Player,
		'你没有千年蛛丝!'); 
			
			end else
							 This_NPC.NpcDialog(This_Player,
		'请先杀死boss再来!'); 
		
	end;






begin
   This_Npc.NpcDialog(This_Player,
   +'|凭活动物品蛛丝召唤BOSS\'     
   +'|一个BOSS召唤一次\'     

   +'|{cmd}<我要召唤 /@zhusi>\'
   );
end.

上一篇：盘古插件脚本触发
下一篇：自己写的彩票压点数

dgfddddd ➦

随便看看

最新回复 (1)

1425055908
5月前 2楼

面对如此强贴，论遇到多大阻力，只要我一息上尚存，就绝不会让它沉沦下去，这一点请楼主放心。

夜

TAG

作者主题