极品属性转移+幸运转移Npc脚本

用于战神引擎属性转移NPC脚本，这个脚本是帮主第一次看到，脚本的功能是把原先玩家升级到极品的属性，保存下来，然后转移新的装备上，总共是3个脚本，支持了装备、武器和项链的幸运，是不是要使用到盘古，这个我不确定，需要你们自己核对脚本里面的语法。脚本为单文件版，里面有支持转移的物品名单，根据自己的需要，针对性的修改。

极品属性转移+幸运转移Npc脚本

部分脚本

procedure _gotos; 
 begin
 This_Npc.NpcDialog(This_Player,
  '<极品属性含+1：> 每次100元宝 '
 +'|<极品属性含+2：> 每次200元宝\'
 +'|<极品属性含+3：> 每次300元宝\'
 +'|<极品属性含+4：> 每次400元宝\'
 +'|<极品属性含+5：> 每次800元宝\'
 +'|<极品属性含+6：> 每次1600元宝\'
 +'|<极品属性含+7：> 每次3200元宝\'
 );
 end;
procedure _goto(s:string); 
var i,num,a: integer;
    name:string;
begin
i:=StrToIntDef(s,-1);
if This_Player.gets(199,i) > 0 then
begin
if i = 1 then
begin
name:= '戒指';
end else
if i = 2 then
begin
name:= '手镯';
end else
if i = 3 then
begin
name:= '项链';
end else
if i = 4 then
begin
name:= '头盔';
end else
if i =5 then
begin
name:= '衣服';
end else
if i = 6 then
begin
name:= '武器';
end
 This_Npc.NpcDialog(This_Player,
 '你的'+name+'上次还有转移属性没有使用，请使用后再来'
 +'|{cmd}<开始转移/@zhuanyi><返回/@main>'
 );
end else
begin
This_Player.sets(200,1,0)
This_Player.sets(198,1,i)
//This_Player.PlayerNotice(' !!'+inttostr(i)+'!!',0);
This_NPC.Click_CommitItem(This_Player,1,'请放入'+name+'装备：'); 
end
 end;
 procedure _sgoto(s:string); 
var i,num,a: integer;
    name:string;
begin
i:=StrToIntDef(s,-1);
if i = 1 then
begin
name:= '戒指';
end else
if i = 2 then
begin
name:= '手镯';
end else
if i = 3 then
begin
name:= '项链';
end else
if i = 4 then
begin
name:= '头盔';
end else
if i =5 then
begin
name:= '武器';
end else
if i = 6 then
begin
name:= '衣服';
end
if This_Player.gets(199,i) >= 1 then 
begin
This_Player.sets(200,1,i) 
This_NPC.Click_CommitItem(This_Player,1,'请放入'+name+'装备：'); 
end else
This_Npc.NpcDialog(This_Player,''+name+'没有保存的有可转移的属性')
end;
procedure _zhuanyi;
var i:integer;
str: string;
begin
str := '';
if This_Player.gets(199,1) = 1 then 
begin
str := str+ +'|{cmd}<转移到新戒指/@sgoto~1>\' ;
end 
if This_Player.gets(199,2) = 1 then 
begin
str := str+ +'|{cmd}<转移到新手镯/@sgoto~2>\' ;
end 
if This_Player.gets(199,3) = 1 then 
begin
str := str+ +'|{cmd}<转移到新项链/@sgoto~3>\' ;
end 
if This_Player.gets(199,4) = 1 then 
begin
str := str+ +'|{cmd}<转移到新头盔/@sgoto~4>\' ;
end 
if This_Player.gets(199,5) = 1 then 
begin
str := str+ +'|{cmd}<转移到新衣服/@sgoto~5>\' ;
end 
if This_Player.gets(199,6) = 1 then 
begin
str := str+ +'|{cmd}<转移到新武器/@sgoto~6>\' ;
end 
 This_Npc.NpcDialog(This_Player,
'请选择你要转移点装备类型，\'
+'如果下面没有可点击按钮，及你没有可以转移的属性\' 
+str
);
end;
function setv:boolean;
begin
if This_Player.gets(198,10) = 1 then
begin
result := true;
end else
result := false;
end;
procedure getv(s:integer);
var a1,a2,a3,a4,a5,a6: integer;
s1,s2,s3,s4,s5,s6,num: integer;
begin
for a1:= 1 to 99 do
begin
if s = 1 then  //戒指
begin
if ck_jiez[a1] = This_Item.ItemName then
begin
num:= 0;
for s1 := 1 to 7 do
begin
if This_Item.AddPa1 = s1 then
begin
num:= 1;
This_Player.sets(197,1,s1)
end 
if This_Item.AddPa2 = s1 then
begin
num:= 1;
This_Player.sets(197,2,s1)
end
if This_Item.AddPa3 = s1 then
begin
num:= 1;
This_Player.sets(197,3,s1)
end
if This_Item.AddPa4 = s1 then
begin
num:= 1;
This_Player.sets(197,4,s1)
end
if This_Item.AddPa5 = s1 then
begin
num:= 1;
This_Player.sets(197,5,s1)
end
end
This_Player.sets(198,10,num)
end 
end
if s = 2 then //手镯
begin
if ck_shouz[a1] = This_Item.ItemName then
begin
num:= 0;
for s1 := 1 to 7 do
begin
if This_Item.AddPa1 = s1 then
begin
num:= 1;
This_Player.sets(196,1,s1)
end 
if This_Item.AddPa2 = s1 then
begin
num:= 1;
This_Player.sets(196,2,s1)
end
if This_Item.AddPa3 = s1 then
begin
num:= 1;
This_Player.sets(196,3,s1)
end
if This_Item.AddPa4 = s1 then
begin
num:= 1;
This_Player.sets(196,4,s1)
end
if This_Item.AddPa5 = s1 then
begin
num:= 1;
This_Player.sets(196,5,s1)
end
end
This_Player.sets(198,10,num)
end 
end
if s = 3 then //项链
begin
if ck_xiangl[a1] = This_Item.ItemName then

分享到：

赞(3)