装备首爆npc脚本(可领取元宝奖励)

战神引擎装备首爆npc脚本,玩家打到装备以后,可以到装备首爆npc上面提交对应的物品奖励1万元宝,npc脚本是明文版,可以任意修改里面的奖品内容,脚本是单文件版,添加比较方便,里面的物品名单也很充足,当然,添加之前,记得根据自己的版本情况,针对性的修改奖励的元宝数量和物品名单。

注意:装备首爆.ini文件放到Mir200\Share\config文件下面,清空里面的记录。

装备首爆npc脚本(可领取元宝奖励)

部分脚本

program mir2;
var EquipType:Array[1..2] of array [1..100] of string;
function EquipDrop(arrid,itemId:integer):string;
begin
    EquipType[1][1]:='真魂项链';EquipType[1][2]:='战神戒指';EquipType[1][3]:='真魂戒指';EquipType[1][4]:='圣魔戒指';
	EquipType[1][5]:='真魂手镯';EquipType[1][6]:='战神手镯';EquipType[1][7]:='圣魔手镯';EquipType[1][8]:='战神项链';
	EquipType[1][9]:='圣魔项链';EquipType[1][10]:='圣魔腰带';EquipType[1][11]:='战神腰带';EquipType[1][12]:='真魂头盔';
	EquipType[1][13]:='圣魔头盔';EquipType[1][14]:='战神项链';EquipType[1][15]:='战神手镯';EquipType[1][16]:='真魂腰带';
	EquipType[1][17]:='真魂靴子';EquipType[1][18]:='战神头盔';EquipType[1][19]:='圣魔靴子';EquipType[1][20]:='战神靴子';
	EquipType[1][21]:='开天';
	EquipType[1][22]:='星王战盔';EquipType[1][23]:='星王战靴';EquipType[1][24]:='星王腰带(战)';EquipType[1][25]:='星王法冠';
	EquipType[1][26]:='星王道盔';EquipType[1][27]:='星王法靴';EquipType[1][28]:='星王道靴';EquipType[1][29]:='星王腰带(法)';
	EquipType[1][30]:='星王腰带(道)';EquipType[1][31]:='星王战戒';EquipType[1][32]:='星王护腕(战)';EquipType[1][33]:='星王项链(战)';
	EquipType[1][34]:='星王魔戒';EquipType[1][35]:='星王护腕(法)';EquipType[1][36]:='烈焰魔衣(男)';EquipType[1][37]:='星王项链(法)';
	EquipType[1][38]:='星王道戒';EquipType[1][39]:='星王护腕(道)';EquipType[1][40]:='星王项链(道)';EquipType[1][41]:='镇天';
	EquipType[1][42]:='玄天';
//	EquipType[1][59]:='藐视一切法靴';EquipType[1][60]:='藐视一切道靴';
    EquipType[1][61]:='凤天魔甲';EquipType[1][62]:='凰天魔衣';
    EquipType[1][63]:='星王战衣(女)';EquipType[1][64]:='星王战甲(男)';
    EquipType[1][65]:='星王战刃';
//	EquipType[1][66]:='藐视一切战甲';EquipType[1][67]:='藐视一切战衣';
//	EquipType[1][68]:='藐视一切刃';
    // 赤月
	EquipType[2][1]:='10000';EquipType[2][2]:='10000';EquipType[2][3]:='10000';EquipType[2][4]:='10000';
	EquipType[2][5]:='10000';EquipType[2][6]:='10000';EquipType[2][7]:='10000';EquipType[2][8]:='10000';
	EquipType[2][9]:='10000';EquipType[2][10]:='10000';EquipType[2][11]:='10000';EquipType[2][12]:='10000';
	EquipType[2][13]:='10000';EquipType[2][14]:='10000';EquipType[2][15]:='10000';EquipType[2][16]:='10000';
	EquipType[2][17]:='10000';EquipType[2][18]:='10000';EquipType[2][19]:='10000';EquipType[2][20]:='10000';
	EquipType[2][21]:='30000';
	// 雷霆
	EquipType[2][22]:='20000';EquipType[2][23]:='20000';EquipType[2][24]:='20000';EquipType[2][25]:='20000';
	EquipType[2][26]:='20000';EquipType[2][27]:='20000';EquipType[2][28]:='20000';EquipType[2][29]:='20000';
	EquipType[2][30]:='20000';EquipType[2][31]:='20000';EquipType[2][32]:='20000';EquipType[2][33]:='20000';
	EquipType[2][34]:='20000';EquipType[2][35]:='20000';EquipType[2][36]:='20000';EquipType[2][37]:='20000';
	EquipType[2][38]:='20000';EquipType[2][39]:='20000';EquipType[2][40]:='20000';EquipType[2][41]:='30000';
	EquipType[2][42]:='30000';
	// 战神
	EquipType[2][43]:='10000';EquipType[2][44]:='10000';EquipType[2][45]:='10000';EquipType[2][46]:='10000';
	EquipType[2][47]:='10000';EquipType[2][48]:='10000';EquipType[2][49]:='10000';EquipType[2][50]:='10000';
	EquipType[2][51]:='10000';EquipType[2][52]:='10000';EquipType[2][53]:='10000';EquipType[2][54]:='10000';
	EquipType[2][55]:='10000';EquipType[2][56]:='10000';EquipType[2][57]:='10000';EquipType[2][58]:='10000';
	EquipType[2][59]:='10000';EquipType[2][60]:='10000';EquipType[2][61]:='10000';EquipType[2][62]:='10000';
    // 神龙
	EquipType[2][63]:='50000';EquipType[2][64]:='50000';EquipType[2][65]:='50000';EquipType[2][66]:='80000';
	EquipType[2][67]:='80000';EquipType[2][68]:='80000';
		EquipType[2][69]:='100000';EquipType[2][70]:='100000';EquipType[2][71]:='20000';EquipType[2][72]:='20000';
	EquipType[2][73]:='20000';EquipType[2][74]:='20000';
		EquipType[2][75]:='20000';EquipType[2][76]:='20000';EquipType[2][77]:='100000';
	result := EquipType[arrid][itemId];
end;
Procedure _exit;
begin
   This_Npc.CloseDialog(This_Player);
end;
procedure P100;
begin
end;
function showname(nameid:integer):string;
var t:integer;
tempstr:array[1..100] of string;
begin
	for t:=1 to 100 do
    begin
	tempstr[t]:=EquipDrop(1,t);
	result := tempstr[nameid];
	end;
end;
function shownum(numid:integer):integer;
var p:integer;
tempnum:array[1..100] of integer;
begin
	for p:=1 to 100 do
	begin
	tempnum[p]:=StrToIntDef(EquipDrop(2,p),0);
	result := tempnum[numid];
    end;
end;
procedure _domain(str:string);
var q,x,Tempnum:integer;tempname,showstr,tempastr:string;
begin
	 x := StrToIntDef(str,0);
	 for q:=x to x + 7 do
	 begin
	     if showname(q) <> '' then
	     begin
	     if ReadIniSectionStr('装备首爆.ini', '奖励数据', inttostr(q)) <> '' then
	     begin
	          tempname:=ReadIniSectionStr('装备首爆.ini', '奖励数据', inttostr(q));
			  tempname:='<'+tempname+'>'; tempastr:='';
	          end
		  else
	  begin
	  tempname:='<未领取/fcolor=248>';
	  tempastr:='<[提交]/@Awards~'+showname(q)+'>';
	  end;
	    showstr:=showstr + '<'+showname(q)+'/fcolor=250>^   <'+inttostr(shownum(q))+'元宝/fcolor=253>^'+tempname+'^'+tempastr+'|';
	      Tempnum:=q;
	      end
	    else
     begin
	 showstr:=showstr + '<暂无信息.../fcolor=242>|';
	 end;
 end;
分享到:
赞(0)