战神引擎-装备首爆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][43]:='皇龙项链(法)';EquipType[1][44]:='皇龙项链(道)'; EquipType[1][45]:='皇龙腰带(战)';EquipType[1][46]:='皇龙腰带(法)';EquipType[1][47]:='皇龙腰带(道)';EquipType[1][48]:='皇龙战靴';
EquipType[1][49]:='皇龙魔靴';EquipType[1][50]:='皇龙道靴';EquipType[1][51]:='皇龙战盔';EquipType[1][52]:='皇龙魔盔'; EquipType[1][53]:='皇龙道盔';EquipType[1][54]:='刺影战刃';EquipType[1][55]:='刺影魔杖';EquipType[1][56]:='刺影道扇'; EquipType[1][57]:='刺影战甲';EquipType[1][58]:='刺影战袍';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[1][69]:='皇龙道剑';;EquipType[1][70]:='皇龙道甲';EquipType[1][71]:='皇龙道衣'; //---------------------------------------- EquipType[2][1]:='5';EquipType[2][2]:='5';EquipType[2][3]:='5';EquipType[2][4]:='5'; EquipType[2][5]:='5';EquipType[2][6]:='5';EquipType[2][7]:='5';EquipType[2][8]:='5'; EquipType[2][9]:='5';EquipType[2][10]:='5';EquipType[2][11]:='5';EquipType[2][12]:='5'; EquipType[2][13]:='5';EquipType[2][14]:='5';EquipType[2][15]:='5';EquipType[2][16]:='5'; EquipType[2][17]:='5';EquipType[2][18]:='5';EquipType[2][19]:='20';EquipType[2][20]:='20'; EquipType[2][21]:='20';EquipType[2][22]:='20';EquipType[2][23]:='20';EquipType[2][24]:='20'; EquipType[2][25]:='20';EquipType[2][26]:='20';EquipType[2][27]:='20';EquipType[2][28]:='20'; EquipType[2][29]:='20';EquipType[2][30]:='20';EquipType[2][31]:='20';EquipType[2][32]:='20'; EquipType[2][33]:='20';EquipType[2][34]:='20';EquipType[2][35]:='20';EquipType[2][36]:='50';
EquipType[2][37]:='50';EquipType[2][38]:='50';EquipType[2][39]:='50';EquipType[2][40]:='50'; EquipType[2][41]:='50';EquipType[2][42]:='50';EquipType[2][43]:='50';EquipType[2][44]:='50'; EquipType[2][45]:='50';EquipType[2][46]:='50';EquipType[2][47]:='50';EquipType[2][48]:='50'; EquipType[2][49]:='50';EquipType[2][50]:='50';EquipType[2][51]:='50';EquipType[2][52]:='50'; EquipType[2][53]:='50';EquipType[2][54]:='50';EquipType[2][55]:='50';EquipType[2][56]:='50'; EquipType[2][57]:='50';EquipType[2][58]:='50';EquipType[2][59]:='50';EquipType[2][60]:='50'; EquipType[2][61]:='50';EquipType[2][62]:='50';EquipType[2][63]:='200';EquipType[2][64]:='200'; EquipType[2][65]:='200';EquipType[2][66]:='200';EquipType[2][67]:='200';EquipType[2][68]:='200'; EquipType[2][69]:='200';EquipType[2][70]:='200';EquipType[2][71]:='200'; 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; x := x + 8; Tempnum:=Tempnum + 8; This_Npc.NpcDialog(This_Player, '<═════════><合区后关闭此功能/fcolor=243><════════>|' + '装备名字 首爆奖励 领取人|'+ +showstr+ '{cmd}<下一页/@domain~'+inttostr(x)+'>^<[关闭界面]/@exit>'); if x >= Tempnum then begin This_Npc.NpcDialog(This_Player,'已到达最后一页| |'+'{cmd}<[返回主页]/@domain~1>^<[关闭界面]/@exit>'); end; end; procedure _Awards(astr:string); var j,truenum:integer; begin for j:=1 to 100 do begin if EquipDrop(1,j) = '' then break; if astr = EquipDrop(1,j) then begin truenum:=j; end; end; if ReadIniSectionStr('装备首爆.ini', '奖励数据', inttostr(truenum)) = '' then begin if This_Player.GetBagItemCount(astr) >= 1 then begin This_Player.AddLF(0,StrToIntDef(EquipDrop(2,truenum),0)); WriteIniSectionStr('装备首爆.ini', '奖励数据', inttostr(truenum), This_Player.Name); ServerSay('恭喜玩家【'+This_Player.Name+'】获得了['+astr+']首爆奖励传奇点['+inttostr(StrToIntDef(EquipDrop(2,truenum),0))+']个',3); _domain('1'); end else begin This_NPC.InputDialog(This_Player,' 你没有'+astr+'无法领取此奖励！',1,100); end; end else begin This_NPC.InputDialog(This_Player,' 当前奖励已被领取！',1,100); end; end; begin _domain('1'); end. |
