项链增加幸运脚本，新手直接复制修改即可
{***************************************************************************************************************************************}
program mir2;
procedure _DoExit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
var
ck_name : arrayof string;
ck_value : array of integer;
procedure OnInitialize;
begin
ck_name :='雷霆项链'
ck_name :='光芒项链';
ck_name :='烈焰项链';
ck_name :='强化雷霆项链';
ck_name :='强化光芒项链';
ck_name :='强化烈焰项链';
//ck_name :='战神项链';
//ck_name :='真魂项链';
//ck_name :='圣魔项链';
ck_value :=500;
ck_value :=500;
ck_value :=500;
ck_value :=1000;
ck_value :=1000;
ck_value :=1000;
ck_value :=2000;
ck_value :=2000;
ck_value :=2000;
end;
procedure _Checkup;
begin
This_Npc.NpcDialog(This_Player,
'可以升级的项链(最高升三点)： |\'
+'<雷霆系列:500元宝升一点/c=red> |\'
+'<强化雷霆系列:1000元宝升一点/c=red> |\'
+'<升级项链幸运可是百分百的哦/c=yellow> |\'
+'|{cmd}<开始升级项链幸运/@Checkup_1> \' );
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 9 do
begin
if ck_name = This_Item.ItemName then
begin
ck_num := This_Item.AddPa2;
ck_gold := ck_value;
if (ck_num > 0) and (ck_num < 9) then
begin
for i:= 1 to ck_num do
begin
ck_gold := ck_gold;
end;
end;
end;
end;
if ck_num > 2 then
begin
This_Player.NotifyClientCommitItem(0,'无法鉴定：你的'+This_Item.ItemName+'已激发出所有属性！');
end else
if ck_gold > 0 then
begin
if This_Player.YBNum>= ck_gold then
begin
ck_rand := random(100);
if ck_rand < 99 then
begin
This_Item.AddPa2 := This_Item.AddPa2 + 1; //幸运+1
ck_str :='幸运+1';
end;
This_Player.PsYBConsum(This_NPC,'ForgeDiaYB',20151,ck_gold,1);
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,'无法鉴定：你的元宝不足，需要'+inttostr(ck_gold)+'元宝。');
end;
end else
begin
This_Player.NotifyClientCommitItem(0,'该物品不可鉴定，请投入可鉴定的装备！');
end;
end;
begin
This_Npc.NpcDialog(This_Player,
'少侠在我这里可以给你的高级项链提升幸运属性 | \'
+'<听说三大职业达到运九.有通天之威/c=red>。|\'
+'当然.我提升项链幸运可以要收费的哦|\'
+'少侠.确定要提高项链的幸运?|\'
+'|{cmd}<确定提升项链幸运/@Checkup>|\'
);
end.
页:
[1]