装备分解获得金刚石Npc脚本

玩家把多余的装备,通过npc分解,获得或者换取一些其他的材料的战神引擎脚本。这样可以增加游戏的可玩性,玩家打到装备以后,不但可以通过回收换取元宝,还可以换取材料,这样对一些不想充值的玩家,比较友好。脚本是明文版的,默认是分解之后得到金刚石,可以任意修改里面的分解装备名单和金刚石数量。

装备分解获得金刚石Npc脚本

装备分解获得金刚石Npc脚本

部分脚本

PROGRAM Mir2;
{$I common.pas}
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);  
end;
procedure domain;
begin
  This_Npc.NpcDialog(This_Player,
   '|< ¤╭⌒╮╭⌒╮ 战神传奇>\'+
   '|<╱◥██◣ ╭⌒╮>\'+
   '|<︱田︱田田丨╰------------->\'+
   '|<╬╬╬╬╬╬╬╬╬╬╬╬╬>\'+
   '|<熔炼装备可以获得金刚石:>\'+
   '| <传奇剑甲>:<30金刚石>      <一键分解/@1>\'+
   '| <玉兔装备>:<15金刚石>      <一键分解/@2>\'+
   '| <玉兔剑甲>:<100金刚石>    <一键分解/@3>\'+
   '| <刺影装备>:<60金刚石>      <一键分解/@4>\'+
   '| <刺影剑甲>:<500金刚石>    <一键分解/@5>\'+
   '| <多余的装备可以在我这里分解掉/c=250>\'+
   '| <分解后能获得一定的金刚石数量/c=250>\'+
   '|<温馨提示:重要的装备请放仓库分解后果自负>\');
end;
function getZBnameById(ZBid : integer) : string;
var ZBlv , ZBlvId : integer;
begin
    ZBlv := ZBid div 100;
    ZBlvId := ZBid mod 100;
    result := '';
    case ZBlv of
        1 : 
        begin
            case ZBlvId of
                1 : result := '传奇神甲(男)';
		        2 : result := '传奇神甲(女)';
                3 : result := '传奇战刃';
				4 : result := '传奇魔杖';
				5 : result := '传奇道扇';
            end;
        end;
        2 : 
        begin
            case ZBlvId of
				4 : result := '玉兔战戒';
				5 : result := '玉兔魔戒';
				6 : result := '玉兔道戒';
				7 : result := '玉兔战镯';
				8 : result := '玉兔魔镯';
				9 : result := '玉兔道镯';
			   10 : result := '玉兔勋章(战)';
			   11 : result := '玉兔勋章(魔)';
			   12 : result := '玉兔勋章(道)';
			   13 : result := '玉兔战链';
			   14 : result := '玉兔魔链';
			   15 : result := '玉兔道链';
		       16 : result := '玉兔战盔';
			   17 : result := '玉兔魔盔';
			   18 : result := '玉兔道盔';
			   19 : result := '玉兔战带';
			   20 : result := '玉兔魔带';
			   21 : result := '玉兔道带';
			   22 : result := '玉兔战靴';
			   23 : result := '玉兔魔靴';
			   24 : result := '玉兔道靴';
			   25 : result := '玉兔神石'; 	
            end;
        end;
		        3 : 
        begin
            case ZBlvId of
                1 : result := '玉兔神甲(男)';
		        2 : result := '玉兔神甲(女)';
                3 : result := '玉兔战刃';
				4 : result := '玉兔魔杖';
				5 : result := '玉兔道扇';		   
            end;
        end;
	   4 : 
        begin
            case ZBlvId of
				4 : result := '刺影战戒';
				5 : result := '刺影魔戒';
				6 : result := '刺影道戒';
				7 : result := '刺影战镯';
				8 : result := '刺影魔镯';
				9 : result := '刺影道镯';
			   10 : result := '刺影勋章(战)';
			   11 : result := '刺影勋章(魔)';
			   12 : result := '刺影勋章(道)';
			   13 : result := '刺影战链';
			   14 : result := '刺影魔链';
			   15 : result := '刺影道链';
		       16 : result := '刺影战盔';
			   17 : result := '刺影魔盔';
			   18 : result := '刺影道盔';
			   19 : result := '刺影战带';
			   20 : result := '刺影魔带';
			   21 : result := '刺影道带';
			   22 : result := '刺影战靴';
			   23 : result := '刺影魔靴';
			   24 : result := '刺影道靴';
			   25 : result := '刺影神石';
		   end;
		   end;
		  5 : 
        begin
            case ZBlvId of
				1 : result := '刺影战甲';
		        2 : result := '刺影战袍';
                3 : result := '刺影战刃';
				4 : result := '刺影魔杖';
				5 : result := '刺影道扇';
				6 : result := '刺影魔甲';
				7 : result := '刺影魔袍';
				8 : result := '刺影道甲';
				9 : result := '刺影道袍';
		   end;
		   end;
		 6 : 
        begin
            case ZBlvId of
				1 : result := '主宰神甲(男)';
		        2 : result := '主宰神甲(女)';
                3 : result := '主宰神剑';
				4 : result := '主宰战戒';
				5 : result := '主宰魔戒';
				6 : result := '主宰道戒';
				7 : result := '主宰战镯';
				8 : result := '主宰魔镯';
				9 : result := '主宰道镯';
			   10 : result := '主宰勋章(战)';
			   11 : result := '主宰勋章(魔)';
			   12 : result := '主宰勋章(道)';
			   13 : result := '主宰战链';
			   14 : result := '主宰魔链';
			   15 : result := '主宰道链';
		       16 : result := '主宰战盔';
			   17 : result := '主宰魔盔';
			   18 : result := '主宰道盔';
			   19 : result := '主宰战带';
			   20 : result := '主宰魔带';
			   21 : result := '主宰道带';
			   22 : result := '主宰战靴';
			   23 : result := '主宰魔靴';
			   24 : result := '主宰道靴';
			   25 : result := '主宰神石';
		   end;
		   end;
		   7 : 
        begin
            case ZBlvId of
				1 : result := '传奇神甲(男)';
		        2 : result := '传奇神甲(女)';
                3 : result := '传奇战刃';
				4 : result := '传奇魔杖';
				5 : result := '传奇道扇';
				6 : result := '传奇道戒';
				7 : result := '传奇战镯';
				8 : result := '传奇魔镯';
				9 : result := '传奇道镯';
			   10 : result := '传奇勋章(战)';
			   11 : result := '传奇勋章(魔)';
			   12 : result := '传奇勋章(道)';
			   13 : result := '传奇战链';
			   14 : result := '传奇魔链';
			   15 : result := '传奇道链';
		       16 : result := '传奇战盔';
			   17 : result := '传奇魔盔';
			   18 : result := '传奇道盔';
			   19 : result := '传奇战带';
			   20 : result := '传奇魔带';
			   21 : result := '传奇道带';
			   22 : result := '传奇战靴';
			   23 : result := '传奇魔靴';
			   24 : result := '传奇道靴';
			   25 : result := '传奇神石';
               26 : result := '传奇魔杖';  
               27 : result := '传奇道扇';  			   
		   end;
		   end;
		   8 : 
        begin
            case ZBlvId of
				1 : result := '玉兔神甲(男)';
		        2 : result := '玉兔神甲(女)';
                3 : result := '玉兔战刃';
				4 : result := '玉兔战戒';
				5 : result := '玉兔魔戒';
				6 : result := '玉兔道戒';
				7 : result := '玉兔战镯';
				8 : result := '玉兔魔镯';
				9 : result := '玉兔道镯';
			   10 : result := '玉兔勋章(战)';
			   11 : result := '玉兔勋章(魔)';
			   12 : result := '玉兔勋章(道)';
			   13 : result := '玉兔战链';
			   14 : result := '玉兔魔链';
			   15 : result := '玉兔道链';
		       16 : result := '玉兔战盔';
			   17 : result := '玉兔魔盔';
			   18 : result := '玉兔道盔';
			   19 : result := '玉兔战带';
			   20 : result := '玉兔魔带';
			   21 : result := '玉兔道带';
			   22 : result := '玉兔战靴';
			   23 : result := '玉兔魔靴';
			   24 : result := '玉兔道靴';
			   25 : result := '玉兔神石';
               26 : result := '玉兔魔杖';  
               27 : result := '玉兔道扇';  	
		   end;
		   end;
		   9 : 
        begin
            case ZBlvId of
				1 : result := '刺影战甲';
		        2 : result := '刺影战袍';
                3 : result := '刺影战刃';
				4 : result := '刺影战戒';
				5 : result := '刺影魔戒';
				6 : result := '刺影道戒';
				7 : result := '刺影战镯';
				8 : result := '刺影魔镯';
				9 : result := '刺影道镯';
			   10 : result := '刺影勋章(战)';
			   11 : result := '刺影勋章(魔)';
			   12 : result := '刺影勋章(道)';
			   13 : result := '刺影战链';
			   14 : result := '刺影魔链';
			   15 : result := '刺影道链';
		       16 : result := '刺影战盔';
			   17 : result := '刺影魔盔';
			   18 : result := '刺影道盔';
			   19 : result := '刺影战带';
			   20 : result := '刺影魔带';
			   21 : result := '刺影道带';
			   22 : result := '刺影战靴';
			   23 : result := '刺影魔靴';
			   24 : result := '刺影道靴';
			   25 : result := '刺影神石';
               26 : result := '刺影魔杖';  
               27 : result := '刺影道扇';
               28 : result := '刺影魔甲';
               29 : result := '刺影魔袍';
               30 : result := '刺影道甲';
               31 : result := '刺影道袍';			   
		   end;
		   end;
		   10 : 
        begin
            case ZBlvId of
				1 : result := '麻痹戒指';
                2 : result := '护身戒指';
                3 : result := '复活戒指';
                4 : result := '高级麻痹神戒';
                5 : result := '高级复活神戒';
                6 : result := '高级护身神戒';
                7 : result := '精品麻痹神戒';
				8 : result := '精品护身神戒';
				9 : result := '精品复活神戒';
			   10 : result := '终极麻痹神戒';
			   11 : result := '终极护身神戒';
			   12 : result := '终极复活神戒';
		   end;
		   end;
		   11 : 
        begin
            case ZBlvId of
                1 : result := '一级神力符文';
                2 : result := '二级神力符文';
                3 : result := '三级神力符文';
                4 : result := '四级神力符文';
                5 : result := '五级神力符文';
                6 : result := '六级神力符文';
                7 : result := '七级神力符文'; 		
                8 : result := '八级神力符文';
                9 : result := '九级神力符文';
               10 : result := '十级神力符文';	   								
		   end;
		   end;
		   12 : 
        begin
            case ZBlvId of
                1 : result := '荣耀神剑';
                2 : result := '荣耀神甲(男)';
                3 : result := '荣耀神甲(女)';
                4 : result := '金牛战剑';
                5 : result := '金牛道扇';
                6 : result := '金牛魔杖';
                7 : result := '金牛战甲(男)';
                8 : result := '金牛战甲(女)';
                9 : result := '金牛魔衣(男)';
               10 : result := '金牛魔衣(女)';
               11 : result := '金牛道袍(男)';
               12 : result := '金牛道袍(女)';
		   end;
		   end;
    end;
end;
function getZexpNum(Zlv : integer) : integer;
begin
    case Zlv of
        1 : result := 0;
        2 : result := 0;
        3 : result := 0;
	    4 : result := 0;
        5 : result := 0;
    end;
end;
function getZYBNum(Zlv : integer) : integer;
begin
    case Zlv of
        1 : result := 30;
        2 : result := 15;
        3 : result := 100;
	    4 : result := 60;
        5 : result := 500;
        6 : result := 100;
		7 : result := 300;
        8 : result := 800;
	    9 : result := 3000;
       10 : result := 10000;
       11 : result := 1500;
	   12 : result := 100;
    end;
end;
分享到:
赞(0)