战神引擎边打边回收装备得元宝脚本

战神引擎边打边回收装备得元宝脚本,玩家开启以后,不需要在土城,去其他地图,打装备,爆出来的,捡取到包裹以后,也会自动回收得元宝,脚本是明文版的,可以任何修改回收的物品和元宝数。

战神引擎边打边回收装备得元宝脚本

PROGRAM Mir2;

{$I TaoZhuang.pas}

{$I common.pas}

Procedure _doexit;

begin

This_Npc.CloseDialog(This_Player);

end;

procedure domain;

begin

This_Npc.NpcDialog(This_Player,

'┏━━━━━元宝━━━━经验━━━━━━┓\\'+

'|<火龙装备 c="254"> <元宝2 c="red"> <经验10万 c="250">^ <一键收火龙 1_all="">\\'+

'|<金牛装备 c="254"> <元宝5 c="red"> <经验20万 c="250">^ <一键收金牛 11_all="">\\|'+

'|<炎龙装备 c="254"> <元宝10 c="red"> <经验40万 c="250">^ <一键收炎龙 2_all="">\\'+

'|<荣耀装备 c="254"> <元宝30 c="red"> <经验100万 c="250">^ <一键收荣耀 22_all="">\\|'+

'|<虎威装备 c="254"> <元宝50 c="red"> <经验150万 c="250">^ <一键收虎威 3_all="">\\'+

'|<主宰装备 c="254"> <元宝100 c="red"> <经验250万 c="250">^ <一键收主宰 33_all="">\\|'+

'|<传奇装备 c="254"> <元宝300 c="red"> <经验450万 c="250">^ <一键收传奇 4_all="">\\'+

'|<玉兔装备 c="254"> <元宝500 c="red"> <经验900万 c="250">^ <一键收玉兔 44_all="">\\|'+

'|<赤影装备 c="254"> <元宝800 c="red"> <经验1500万 c="250">^ <一键收赤影 5_all="">\\'+

'|<魅影装备 c="254"> <元宝2000 c="red"> <经验5千万 c="250">^ <一键收魅影 55_all="">\\'+

'|<回收注意 c="245"> <不想回收的装备请放置仓库 c="249">\\'+

'|┗━━━━━━━━━━━━━━━━━━━┛\\'+

'|{cmd}<退出 doexit="">');

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 := '火龙神镯';

6 : result := '火龙神章';

7 : result := '火龙神链';

8 : result := '火龙神盔';

9 : result := '火龙神带';

10 : result := '火龙神靴';

end;

end;

2 :

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 := '金牛魔杖';

end;

end;

3 :

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;

4 :

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 := '荣耀道扇';

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 := '虎威魔链';

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;

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 := '主宰魔衣(女)';

26 : result := '主宰道袍(男)';

27 : 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 := '传奇道链';

28 : result := '传奇道盔';

29 : result := '传奇道带';

30 : 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 := '玉兔道链';

28 : result := '玉兔道盔';

29 : result := '玉兔道带';

30 : 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 := '赤影道靴';

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 := '魅影魔衣(男)';

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 := '魅影道靴';

end;

end;

end;

end;

function getZexpNum(Zlv : integer) : integer;

begin

case Zlv of

1 : result := 100000;

2 : result := 200000;

3 : result := 400000;

4 : result := 1000000;

5 : result := 1500000;

6 : result := 2500000;

7 : result := 4500000;

8 : result := 9000000;

9 : result := 15000000;

10 : result := 50000000;

end;

end;

function getZYBNum(Zlv : integer) : integer;

begin

case Zlv of

1 : result := 2;

2 : result := 5;

3 : result := 10;

4 : result := 30;

5 : result := 50;

6 : result := 100;

7 : result := 300;

8 : result := 500;

9 : result := 800;

10 : result := 2000;

end;

end;

procedure _1_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(100 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件火龙装备,回收可获得:' + inttostr(getZexpNum(1) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(1) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有火龙装备 1_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _1_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(100 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(1));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(1));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _11_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(200 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件金牛装备,回收可获得:' + inttostr(getZexpNum(2) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(2) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有金牛装备 11_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _11_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(200 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(2));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(2));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _2_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(300 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件炎龙装备,回收可获得:' + inttostr(getZexpNum(3) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(3) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有炎龙装备 2_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _2_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(300 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(3));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(3));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _22_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(400 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件荣耀装备,回收可获得:' + inttostr(getZexpNum(4) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(4) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有荣耀装备 22_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _22_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(400 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(4));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(4));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _3_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(500 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件虎威装备,回收可获得:' + inttostr(getZexpNum(5) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(5) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有虎威装备 3_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _3_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(500 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(5));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(5));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _33_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(600 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件主宰装备,回收可获得:' + inttostr(getZexpNum(6) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(6) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有主宰装备 33_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _33_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(600 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(6));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(6));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _4_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(700 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件传奇装备,回收可获得:' + inttostr(getZexpNum(7) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(7) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有传奇装备 4_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _4_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(700 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(7));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(7));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _44_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(800 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件玉兔装备,回收可获得:' + inttostr(getZexpNum(8) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(8) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有玉兔装备 44_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _44_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(800 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(8));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(8));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _5_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(900 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件赤影装备,回收可获得:' + inttostr(getZexpNum(9) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(9) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有赤影装备 5_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _5_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(900 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(9));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(9));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

procedure _55_all;

var ZMnum , i : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(1000 + i);

if Iname <> '' then

begin

if This_Player.GetBagItemCount(Iname) > 0 then

begin

ZMnum := ZMnum + This_Player.GetBagItemCount(Iname);

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'你的包裹中有' + inttostr(ZMnum) + '件魅影装备,回收可获得:' + inttostr(getZexpNum(10) div 10000 * ZMnum) + '万经验,' + inttostr(getZYBNum(10) * ZMnum) + '个元宝\\|'

+'|{cmd}<确认回收所有魅影装备 55_true="">'

+'|{cmd}<返回 main="">');

end;

procedure _55_True;

var ZMnum , i , j , itemNum : integer;

Iname : string;

begin

ZMnum := 0;

for i := 1 to 40 do

begin

Iname := getZBnameById(1000 + i);

if Iname <> '' then

begin

itemNum := This_Player.GetBagItemCount(Iname);

if itemNum > 0 then

begin

ZMnum := ZMnum + itemNum;

This_Player.Take(Iname, itemNum);

for j := 1 to itemNum do

This_Player.ScriptRequestAddYBNum(getZYBNum(10));

begin

for j := 1 to itemNum do

This_Player.Give('经验', getZexpNum(10));

end;

end;

end;

This_NPC.NpcDialog(This_Player,

'恭喜你成功回收!'

+'|{cmd}<返回 main="">');

end;

end;

Begin

TZJH_NPC;

domain;

end.

温馨提示:本文最后更新于2022-06-14 22:55:38,某些文章具有时效性,若有错误或已失效,请在下方留言或联系吾爱游戏迷
------本页内容已结束,喜欢请分享------

感谢您的来访,获取更多优质资源请收藏本站。

© 版权声明
THE END
喜欢就支持一下吧
点赞130 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片