当前位置
网站首页
私服手游-超油脚本
  • 作者admin
  • 来源传奇手游发布网|传奇私服|传奇手游sf发布网|传奇手游|传奇手游私服
  • 点击75
  • 日期2020/5/23 18:24:20
夜猫一起嗨|原创文章官网|ymyqh.com


以战神引擎为例,我写个脚本用超级祝福油喝幸运,

{********************************************************************

*******************************************************************}

program mir2;

procedure _DoExit;

begin
  This_Npc.CloseDialog(This_Player);
end;

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



var
ck_name : array[1..17] of string;
ck_value : array[1..17] of integer; 
procedure OnInitialize;
begin
ck_name[1] :='镇天';
ck_name[2] :='开天';
ck_name[3] :='玄天';
ck_name[4] :='屠龙';
ck_name[5] :='龙牙';
ck_name[6] :='逍遥扇';
ck_name[7] :='怒斩';
ck_name[8] :='井中月';
ck_name[9] :='裁决之杖';
ck_name[10] :='骨玉权杖';
ck_name[11] :='霸者之刃';
ck_name[12] :='龙纹剑';
ck_name[13] :='血饮';
ck_name[14] :='无极棍';
ck_name[15] :='魔杖';
ck_name[16] :='炼狱';
ck_name[17] :='杀意';


ck_value[1] :=10;
ck_value[2] :=10;
ck_value[3] :=10;
ck_value[4] :=10;
ck_value[5] :=10;
ck_value[6] :=10;
ck_value[7] :=10;
ck_value[8] :=10;
ck_value[9] :=10;
ck_value[10] :=10;
ck_value[11] :=10;
ck_value[12] :=10;
ck_value[13] :=10;
ck_value[14] :=10;
ck_value[15] :=10;
ck_value[16] :=10;
ck_value[17] :=10



end; 

procedure _Checkup;
begin
  This_Npc.NpcDialog(This_Player,
  '以下是可以加幸运的武器:\'
  +'屠龙,霸者之刃,嗜魂法杖,\'
  +'怒斩,龙牙,逍遥扇,\'  
  +'裁决之杖,骨玉权杖,血饮,龙纹剑,\'
  +'井中月,魔杖,无极棍,炼狱,\'
  +'杀意,无常,飞天凤羽,\'
  +'<每升一点幸运需要一瓶金色祝福油,武器幸运最高+7/c=red>\'
  +'|{cmd}<开始升级/@Checkup_1>        ^<关闭/@doexit>' 
  );
end; 

procedure _Checkup_1;
begin
   This_NPC.Click_CommitItem(This_Player,1,'待升级武器:'); 
end; 


procedure CommitItem(AType:word);
var
i,ck_num,ck_kind,ck_gold,ck_rand:integer; 
ck_str,ck_red:string;

begin
     ck_gold := 0;  //初始化 
     ck_str := '';  //初始化
     ck_red := '';  //初始化

     for ck_kind := 1 to 17 do
     
     begin

       if ck_name[ck_kind] = This_Item.ItemName then 
       begin                             
         ck_num := This_Item.AddPa4 ; 
         ck_gold := ck_value[ck_kind];
         if (ck_num > 0) and (ck_num < 7) then
         begin
           for i:= 1 to ck_num do
           begin
           //ck_gold := ck_gold*2;
  ck_gold := 1;
           end;
         end;  
       end;
     end;
     
     if ck_num > 6 then

     begin
     This_Player.NotifyClientCommitItem(0,'您的'+This_Item.ItemName+'幸运已经+7无法再升!');  
     end else
     if ck_gold > 0 then
     begin                                                                                             
       if This_Player.YBNum >= ck_gold then
 
       begin
         ck_rand := random(100);
        
         if ck_rand > 191 then
         begin 
         This_Player.NotifyClientCommitItem(0,'升级失败');
         
         This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
         //This_Player.PsYBConsum(This_NPC,'xin',20150,100,1);
         end else
         //if ck_rand < 79 then
         //begin 
//if (ck_rand < 119) and (This_Player.GetBagItemCount('金色祝福油') > 0) then
if This_Player.GetBagItemCount('金色祝福油') > 0 then
         begin
         This_Player.Take('金色祝福油',1); 
         This_Item.AddPa4 := This_Item.AddPa4 + 1;   //幸运+1 
         //This_Player.PsYBConsum(This_NPC,'xin',20150,100,1);
         ck_str :='1点幸运'; 
         ck_red :='红字公告';
         //end;  
       end else
       begin
       This_Player.NotifyClientCommitItem(0,'你包里没有金色祝福油'+inttostr(ck_gold)+'无法升级!'); 
       end;
         if ck_str <> '' then 
         begin
         This_Player.NotifyClientCommitItem(0,'升级成功:你的'+This_Item.ItemName+'提升了'+ck_str+'!');
         This_NPC.NotifyClientUPdBagItem(This_Player,This_Item);
         end;   
         if ck_red <> '' then This_NPC.NpcNotice('恭喜:'+This_Player.Name+'在幸运长矛兵处把'+This_Item.ItemName+'提升'+ck_str+'!');
         This_Player.AddLogRec(9, This_Item.ItemName, 811152, ck_gold, ck_str);
     end else 
     begin
        This_Player.NotifyClientCommitItem(0,'该物品不可升级,请投入可升级的装备!');   
     end;   
end;
end;

function xin(price, num: Integer):boolean; 
begin
   result := true; 
 
end;

begin
  This_Npc.NpcDialog(This_Player,
  '我可以免费帮你武器加幸运前提是你包里要有,\'
  +'<金色祝福油/c=red>\'
  +'|{cmd}<开始升级幸运/@Checkup>\' 
  );
end.
   
夜猫一起嗨|原创文章官网|ymyqh.com