云游商人脚本战神引擎神秘商店代码

夜游神 · 发表于 2022-12-31 21:27:36

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[1..300] of string;
ck_value : array[1..300] 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_name[18] := '玉兔斗笠';
ck_name[19] := '传奇斗笠';
ck_name[20] := '主宰斗笠';
ck_name[21] := '元神神龙斗笠';
ck_name[22] := '元神刺影斗笠';
ck_name[23] := '元神玉兔斗笠';
ck_name[24] := '元神传奇斗笠';
ck_name[25] := '元神主宰斗笠';
ck_name[26] := '转生证明';
ck_name[27] := '麻痹戒指';
ck_name[28] := '护身戒指';
ck_name[29] := '复活戒指';
ck_value[1] :=888;
ck_value[2] :=888;
ck_value[3] :=888;
ck_value[4] :=300;
ck_value[5] :=300;
ck_value[6] :=300;
ck_value[7] :=110;
ck_value[8] :=110;
ck_value[9] :=110;
ck_value[10] :=35;
ck_value[11] :=35;
ck_value[12] :=35;
ck_value[13] :=13;
ck_value[14] :=13;
ck_value[15] :=13;
ck_value[16] :=500;
ck_value[17] :=200;
ck_value[18] :=70;
ck_value[19] :=25;
ck_value[20] :=10;
ck_value[21] :=500;
ck_value[22] :=200;
ck_value[23] :=70;
ck_value[24] :=25;
ck_value[25] :=10;
ck_value[26] :=1;
ck_value[27] :=5;
ck_value[28] :=5;
ck_value[29] :=5;
end;
procedure Execute;
begin
num1:=GetG(33,40);
if GetMin = 01 then
begin
if num1 < 1 then
begin
ck_kind := random(29);
ck_kind1 := random(29);
ck_kind2 := random(29);
ck_kind3 := random(29);
ck_kind4 := random(29);
sjzb := ck_name[ck_kind];
sjzb1 := ck_name[ck_kind1];
sjzb2 := ck_name[ck_kind2];
sjzb3 := ck_name[ck_kind3];
sjzb4 := ck_name[ck_kind4];
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[GetG(33,31)] then
begin
This_Player.DecLF(0, ck_value[GetG(33,31)], 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[GetG(33,32)] then
begin
This_Player.give(sjzb1,1);
This_Player.DecLF(0, ck_value[GetG(33,32)], false);
This_Player.PlayerNotice('提示：购买成功。',5);
end else
This_Npc.NpcDialog(This_Player,'灵符不足哟!\' );
end;
procedure _shangjiao2;
begin
if This_Player.MyLFnum >= ck_value[GetG(33,33)] then
begin
This_Player.DecLF(0, ck_value[GetG(33,33)], 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[GetG(33,34)] then
begin
This_Player.DecLF(0, ck_value[GetG(33,34)], 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[GetG(33,35)] then
begin
This_Player.DecLF(0, ck_value[GetG(33,35)], 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[GetG(33,31)])+'灵符 <购买物品/@shangjiao> |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb1+' ]/c=250> '+inttostr(ck_value[GetG(33,32)])+'灵符 <购买物品/@shangjiao1> |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb2+' ]/c=250> '+inttostr(ck_value[GetG(33,33)])+'灵符 <购买物品/@shangjiao2> |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb3+' ]/c=250> '+inttostr(ck_value[GetG(33,34)])+'灵符 <购买物品/@shangjiao3> |\'
+'<注意:不显示物品是没刷，不要购买，灵符照扣>\'
+'|正在售卖 <[ '+sjzb4+' ]/c=250> '+inttostr(ck_value[GetG(33,35)])+'灵符 <购买物品/@shangjiao4> |\'
+'{cmd}<关闭窗口/@doexit> \' );
end;
begin
domain;
end.
[/mw_shl_code]

复制代码

Chinese.Doll · 发表于 2023-12-26 07:44:20

积分任务

[战神引擎] 云游商人脚本战神引擎神秘商店代码

相关帖子