云游商人脚本战神引擎神秘商店代码
program mir2;var
sjzb, sjzb1, sjzb2, sjzb3, sjzb4: string;
num,num1, jxz, ck_jydd, ck_kind,ck_kind1,ck_kind2,ck_kind3,ck_kind4:integer;
ck_name : array of 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_name := '传奇麻痹神戒';
ck_name := '传奇复活神戒';
ck_name := '传奇护身神戒';
ck_name := '主宰护身神戒';
ck_name := '主宰复活神戒';
ck_name := '主宰麻痹神戒';
ck_name := '神龙斗笠';
ck_name := '刺影斗笠';
ck_name := '玉兔斗笠';
ck_name := '传奇斗笠';
ck_name := '主宰斗笠';
ck_name := '元神神龙斗笠';
ck_name := '元神刺影斗笠';
ck_name := '元神玉兔斗笠';
ck_name := '元神传奇斗笠';
ck_name := '元神主宰斗笠';
ck_name := '转生证明';
ck_name := '麻痹戒指';
ck_name := '护身戒指';
ck_name := '复活戒指';
ck_value :=888;
ck_value :=888;
ck_value :=888;
ck_value :=300;
ck_value :=300;
ck_value :=300;
ck_value :=110;
ck_value :=110;
ck_value :=110;
ck_value :=35;
ck_value :=35;
ck_value :=35;
ck_value :=13;
ck_value :=13;
ck_value :=13;
ck_value :=500;
ck_value :=200;
ck_value :=70;
ck_value :=25;
ck_value :=10;
ck_value :=500;
ck_value :=200;
ck_value :=70;
ck_value :=25;
ck_value :=10;
ck_value :=1;
ck_value :=5;
ck_value :=5;
ck_value :=5;
end;
procedure Execute;
begin
num1:=GetG(33,40);
ifGetMin = 01 then
begin
ifnum1 < 1then
begin
ck_kind := random(29);
ck_kind1 := random(29);
ck_kind2 := random(29);
ck_kind3 := random(29);
ck_kind4 := random(29);
sjzb := ck_name;
sjzb1 := ck_name;
sjzb2 := ck_name;
sjzb3 := ck_name;
sjzb4 := ck_name;
SetG(33,31,ck_kind);
SetG(33,32,ck_kind1);
SetG(33,33,ck_kind2);
SetG(33,34,ck_kind3);
SetG(33,35,ck_kind4);
SetG(33,40,num1 + 1);
This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb+' ]抓紧时间购买把！');
This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb1+' ]抓紧时间购买把！');
This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb2+' ]抓紧时间购买把！');
This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb3+' ]抓紧时间购买把！');
This_NPC.NpcNotice('东瀛奸商:新到一批物资[ '+sjzb4+' ]抓紧时间购买把！');
end else
begin
SetG(33,40,0);
end;
end;
end;
procedure _shangjiao;
begin
if This_Player.MyLFnum >= ck_value then
begin
This_Player.DecLF(0, ck_value, false);
This_Player.give(sjzb,1);
This_Player.PlayerNotice('提示：购买成功。',5);
end else
This_Npc.NpcDialog(This_Player,'灵符不足哟!\');
end;
procedure _shangjiao1;
begin
if This_Player.MyLFnum >= ck_value then
begin
This_Player.give(sjzb1,1);
This_Player.DecLF(0, ck_value, false);
This_Player.PlayerNotice('提示：购买成功。',5);
end else
This_Npc.NpcDialog(This_Player,'灵符不足哟!\');
end;
procedure _shangjiao2;
begin
if This_Player.MyLFnum >= ck_value then
begin
This_Player.DecLF(0, ck_value, false);
This_Player.give(sjzb2,1);
This_Player.PlayerNotice('提示：购买成功。',5);
end else
This_Npc.NpcDialog(This_Player,'灵符不足哟!\');
end;
procedure _shangjiao3;
begin
if This_Player.MyLFnum >= ck_value then
begin
This_Player.DecLF(0, ck_value, false);
This_Player.give(sjzb3,1);
This_Player.PlayerNotice('提示：购买成功。',5);
end else
This_Npc.NpcDialog(This_Player,'灵符不足哟!\');
end;
procedure _shangjiao4;
begin
if This_Player.MyLFnum >= ck_value then
begin
This_Player.DecLF(0, ck_value, false);
This_Player.give(sjzb4,1);
This_Player.PlayerNotice('提示：购买成功。',5);
end else
This_Npc.NpcDialog(This_Player,'灵符不足哟!\');
end;
Procedure _doexit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure _Exit;
begin
This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
num := This_Player.MyLFnum;
if sjzb1 = '' then
begin
This_Npc.NpcDialog(This_Player,
+'|东瀛奸商:您当前充值灵符: <'+inttostr(num)+'> 灵符！\'
+'|<谢谢您的大力支持！我这里提供灵符购买服务！>\'
+'|每次只随机刷新<5>个！\'
+'|每个<整点零1分-2分之间>刷新 \'
+'|<注意：>请等2分钟过后再进行购买，以免出现正在点击够买出现刷新物品买错的情况！ \'
+'|正在售卖 <[ 暂无]/c=250> 0灵符 |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ 暂无]/c=250> 0灵符|\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ 暂无]/c=250> 0灵符|\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ 暂无]/c=250> 0灵符|\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ 暂无]/c=250> 0灵符|\'
+'{cmd}<关闭窗口/@doexit> \' );
end else
This_Npc.NpcDialog(This_Player,
+'|东瀛奸商:您当前拥有灵符: <'+inttostr(num)+'> 灵符！\'
+'|<谢谢您的大力支持！我这里提供灵符购买服务！>\'
+'|共<200>件物品！每次随机刷新<5>个！\'
+'|只会在每个<整点零1分-2分之间>刷新 \'
+'|<注意：>请等2分钟过后再进行购买，以免出现正在点击够买出现刷新物品买错的情况！ \'
+'|正在售卖 <[ '+sjzb+']/c=250> '+inttostr(ck_value)+'灵符 <购买物品/@shangjiao>|\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb1+']/c=250> '+inttostr(ck_value)+'灵符 <购买物品/@shangjiao1> |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb2+']/c=250> '+inttostr(ck_value)+'灵符 <购买物品/@shangjiao2> |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb3+']/c=250> '+inttostr(ck_value)+'灵符 <购买物品/@shangjiao3> |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb4+']/c=250> '+inttostr(ck_value)+'灵符 <购买物品/@shangjiao4> |\'
+'{cmd}<关闭窗口/@doexit> \' );
end;
begin
domain;
end.
积分任务
页:
[1]