28 人横排五坑：多职业打钱脚本

1#此版本为通用通缉坑打钱代码，没有法术回蓝职业会冥想。
2#代码默认 mp 下限为 1500，即低于1500就不停冥想。
3#在“攻击法术”处写入打钱职业魔法，比如邪魔的四阶：words，或法王的狮吼：command
4#begin段里(h=19)的数值改成你的裸负重
5#home点定在左边第一坑
6#银行放在第一坑柜台上面，站坑心能看见就可以
7#坑中心 X 坐标 (kx=10)，坑中心 Y 坐标 (ky=20)。按你第一坑的坐标改，代码默认第一坑坐标 10,20
8# 5坑必须横排，相邻两坑距离为标准的 20，也就是两次 run 的距离。如果是 18 的坑距，可以改 (kd=20)
9%var spell
10#攻击法术
11command
12%var npc
13(0,2)
14(0,1)
15(0,3)
16%var b
17(5,8)
18(5,9)
19(6,10)
20(5,11)
21(5,12)
22(4,11)
23(4,10)
24(4,9)

1%scene begin
2#mp下限，每坑完冥想到 mp 到此设定值
3(m=1500)
4#负重
5(h=19)
6#坑中心 X 坐标
7(kx=10)
8#坑中心 Y 坐标
9(ky=20)
10#坑间距
11(kd=20)
12if (%sx < (kx+(kd/2)))
13(z=kx*65536+ky)
14run %vz 10
15endif
16if (%sx < (kx+(kd*1.5)) && %sx > (kx+(kd/2)))
17(z=(kx+kd)*65536+ky)
18run %vz 10
19endif
20if (%sx < (kx+(kd*2.5)) && %sx > (kx+(kd*1.5)))
21(z=(kx+(kd*2))*65536+ky)
22run %vz 10
23endif
24if (%sx < (kx+(kd*3.5)) && %sx > (kx+(kd*2.5)))
25(z=(kx+(kd*3))*65536+ky)
26run %vz 10
27endif
28if (%sx > (kx+(kd*3.5)))
29(z=(kx+(kd*4))*65536+ky)
30run %vz 10
31endif
32loop99
331:test1_bc:recall 0
34endloop
35call money
36jump main

1%scene main
2if (%sx > (kx+(kd*3.5)))
33:recall_bc:home me
40.5::@&click 银行柜台
5(l=%g-1000)
60.5::deposit %vl
7call kill
8call money
9endif
10if (%sx < (kx+(kd*3.5)) && %sx > (kx+(kd*2.5)))
11(z=(kx+(kd*4))*65536+ky)
12run %vz 25
13call kill
14call money
15endif
16if (%sx < (kx+(kd*1.5)) && %sx > (kx+(kd/2)))
17(z=(kx+(kd*2))*65536+ky)
18run %vz 25
19call kill
20call money
21endif
22if (%sx < (kx+(kd/2)))
23(z=(kx+kd)*65536+ky)
24run %vz 25
25call kill
26call money
27endif
28if (%sx > (kx+(kd*1.5)) && %sx < (kx+(kd*2.5)))
29(z=(kx+(kd*3))*65536+ky)
30run %vz 25
31call kill
32call money
33endif

1%scene drop
2if (%heft>h)
30.5::@&click 柜台
4do (%heft>h)
50.3::sell 1
60.3::sell 2
70.3::sell 3
8enddo
9loop
10return

1%scene money
2loadmapvar corpse c
3loop5
41:click_bc:@&click 柜台
5endloop
6loop7
7	remove c %vb
8	3:get_bc:get ALL_ITEM_IN %vb
9	::%ib
10	do(%heft>h)
11		0.33:sell_bc:sell 1
12	enddo
13endloop
142:get_bc:get ALL_ITEM_IN %vb
15::%ib
16greedy c t
17foreach t
18	::@run %vt
19		do(%heft>h)
20		0.34:sell_bc:sell 1
21		enddo
22	run %vt 8
23	loadround c s
24	foreach s
25		remove c %vs
26		do(%heft>h)
27			0.34:sell_bc:sell 1
28		enddo
29		2:get_bc:get ALL_ITEM_IN %vs
30	loop
31loop
32do(%heft>h)
33	0.34:sell_bc:sell 1
34enddo
35clearmapvar corpse
36loadmapvar gold o
37foreach o
38run %vo 10
390.3::get
40loop
41clearmapvar gold
42if(%heft>h)
43call drop
44endif
45do(%M-%m>m)
4615::meditate
47enddo
48return

1%scene kill
2loop370
31:hi_bc:consider %inpc
4endloop
5loop100
61::cast %vspell on
71:test_bc:recall 0
8endloop
9return next

1%scene click
20.7::@&click 柜台
3return

1%bc test1_bc
2break::没有这个地方。

1%scene meditate
220:meditate_bc:meditate
3return retry

1%bc recall_bc
2next:0.3:你在原地跳了跳。
3retry:0.34:你上一个动作没有%*
4retry:3:你刚刚才转换过区域%*
5next::你进入区域%*

1%bc click_bc
2break:0.34:这是一张生意场所经常使用来记帐的柜台。

1%bc test_bc
2break::没有这个地方。

1%bc sell_bc
2break::你不能把这个东西卖掉 !
3call:click:what%*

1%bc get_bc
2retry:0.34:你上一个动作没有%*
3next:0.2:这里没有任何东%*
4next:0.2:你捡起%*

1%bc meditate_bc
2next:0.4:你从冥思中%*
3next:0.4:你的精神还没有恢复平静，不能冥思。
4next:0.3:你现在精神正好，不需要冥思。
5next:0.4:你深深%*

1%bc kill_bc
2next:0.34:你喝道%*
3next:0.34:你想杀谁 ?

1%bc hi_bc
2break::你很热情地对%*
3break::你用挑衅的眼光%*

1%scene recenter
2if (%sx < (kx+(kd/2)))
3(z=kx*65536+ky)
4run %vz 10
5endif
6if (%sx > (kx+(kd/2)) && %sx < (kx+(kd*1.5)))
7(z=(kx+kd)*65536+ky)
8run %vz 10
9endif
10if (%sx > (kx+(kd*1.5)) && %sx < (kx+(kd*2.5)))
11(z=(kx+(kd*2))*65536+ky)
12run %vz 10
13endif
14if (%sx > (kx+(kd*2.5)) && %sx < (kx+(kd*3.5)))
15(z=(kx+(kd*3))*65536+ky)
16run %vz 10
17endif
18if (%sx > (kx+(kd*3.5)))
19(z=(kx+(kd*4))*65536+ky)
20run %vz 10
21endif
22jump begin

1%public_bc
2call:kill:你正在战斗中。
3call:kill:你现在正在战斗中 ...
4retry:0.5:(你发出的命令过多了, 每秒超过3个, 超过的命令将被拒绝)
5retry:1:你刚刚才转换过区域，请稍待一会儿再试 !
6next:0.3:你高兴地唱著：next ...。
7retry:0.3:你上一个%*
8retry:0.3:你正忙%*
9retry:0.3:你正在忙%*
10jump:recenter:你无法与你视线范围外的商店进%*