{
*******************************************************************}

program Mir2;

 

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

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

//*******************锻造金刚石***********************
procedure _ForgeDiamond;
begin
This_Npc.NpcDialog(This_Player,
‘锻造金刚石需要用强大的意志力,并且等级达到15级,\’+
‘金刚石可以用来锻造武器和衣服,首饰等装备,十分\’+
‘有用,金刚石可以打BOSS和活动获得,也可以元宝锻造。\ \’+
‘|{cmd}<我要开始金刚石锻造/@ForgeDiamondStart>’ );

end;

 

procedure _ForgeDiamondStart;
begin
if This_Player.Level < 15 then
begin
This_Npc.NpcDialog(This_Player,
‘你的等级不满15级,不可锻造金刚石。’
);
end else
This_Npc.NpcDialog(This_Player,
‘一旦开始锻造,就会收取元宝,请确保你的包裹有足够的空间。\’+ //这里 巴拉巴一堆话 自己改
‘|如果因为包裹满,无法获得金刚石,将不予退还元宝!!!。\ \’+ //这里也是
‘|{cmd}<使用5元宝锻造10颗金刚石/@ForgeDiamondStart_YB1>\’+
‘|{cmd}<使用10元宝锻造200颗金刚石/@ForgeDiamondStart_YB2>\’+
‘|{cmd}<使用20元宝锻造40颗金刚石/@ForgeDiamondStart_YB3>\’+
‘|{cmd}<使用50元宝锻造100颗金刚石/@ForgeDiamondStart_YB4>\’+
‘|{cmd}<使用100元宝锻造200颗金刚石/@ForgeDiamondStart_Y5>\’

);
end;

procedure _ForgeDiamondStart_YB1;

begin
begin
if This_Player.YBNum >= 50 then //这里检测元宝数量 由于我没找到元宝的函数接口 ,点击 了M2会提示
begin
This_Player.Give(‘经验’,10000); //给多少经验
This_Player.Give(‘金刚石’,5); //给多少金刚石
This_Player.MyShengwan := This_Player.MyShengwan + 10; // 这里加声望

This_Player.PsYBConsum(This_NPC,’ForgeDiaYB’,20150,50,1); //这里减多少元宝
begin
This_Player.NotifyClientCommitItem(0,’锻造成功!’); //这里成功提示可以写上获得了多少颗
end;
end else
begin
This_Player.NotifyClientCommitItem(0,’无法锻造:你的元宝不足,需要’+inttostr(50)+’元宝。’); //这里写不足是需要多少元宝

end;
end;
end;

procedure _ForgeDiamondStart_YB2;
begin
begin
if This_Player.YBNum >= 100 then //这里检测元宝数量
begin
This_Player.Give(‘经验’,20000); //给多少经验
This_Player.Give(‘金刚石’,10); //给多少金刚石
This_Player.MyShengwan := This_Player.MyShengwan + 10; // 这里加声望
This_Player.PsYBConsum(This_NPC,’ForgeDiaYB’,20150,100,1); //这里减多少元宝
begin
This_Player.NotifyClientCommitItem(0,’锻造成功!’); //这里成功提示
end;
end else
begin
This_Player.NotifyClientCommitItem(0,’无法锻造:你的元宝不足,需要’+inttostr(100)+’元宝。’); //这里写不足是需要多少元宝

end;
end;
end;

procedure _ForgeDiamondStart_YB3;
begin
begin
if This_Player.YBNum >= 200 then //这里检测元宝数量
begin
This_Player.Give(‘经验’,100000); //给多少经验
This_Player.Give(‘金刚石’,20); //给多少金刚石
This_Player.MyShengwan := This_Player.MyShengwan + 10; // 这里加声望
This_Player.PsYBConsum(This_NPC,’ForgeDiaYB’,20150,200,1); //这里减多少元宝
begin
This_Player.NotifyClientCommitItem(0,’锻造成功!’); //这里成功提示
end;
end else
begin
This_Player.NotifyClientCommitItem(0,’无法锻造:你的元宝不足,需要’+inttostr(200)+’元宝。’); //这里写不足是需要多少元宝

end;
end;
end;

procedure _ForgeDiamondStart_YB4;
begin
begin
if This_Player.YBNum >= 500 then //这里检测元宝数量
begin
This_Player.Give(‘经验’,10000); //给多少经验
This_Player.Give(‘金刚石’,50); //给多少金刚石
This_Player.MyShengwan := This_Player.MyShengwan + 10; // 这里加声望
This_Player.PsYBConsum(This_NPC,’ForgeDiaYB’,20150,500,1); //这里减多少元宝
begin
This_Player.NotifyClientCommitItem(0,’锻造成功!’); //这里成功提示
end;
end else
begin
This_Player.NotifyClientCommitItem(0,’无法锻造:你的元宝不足,需要’+inttostr(500)+’元宝。’); //这里写不足是需要多少元宝

end;
end;
end;

procedure _ForgeDiamondStart_YB5;
begin
begin
if This_Player.YBNum >= 1000 then //这里检测元宝数量
begin
This_Player.Give(‘经验’,1000000); //给多少经验
This_Player.Give(‘金刚石’,150); //给多少金刚石
This_Player.MyShengwan := This_Player.MyShengwan + 10; // 这里加声望
This_Player.PsYBConsum(This_NPC,’ForgeDiaYB’,20150,1000,1); //这里减多少元宝
begin
This_Player.NotifyClientCommitItem(0,’锻造成功!’); //这里成功提示
end;
end else
begin
This_Player.NotifyClientCommitItem(0,’无法锻造:你的元宝不足,需要’+inttostr(1000)+’元宝。’); //这里写不足是需要多少元宝

end;
end;
end;

 

 

begin

This_Npc.NpcDialog(This_Player,
‘|{cmd}<金刚石锻造/@ForgeDiamond> \ \’
);
end.