列王大典KING OF KINGS · FAN ARCHIVE
环境声音

轻柔合成氛围，默认关闭。

注册下载
THE KINGDOM CODEX · 挂机工具

通用钱坑v2.1：横五加十、刷新计时与职业分支

脚本参考脚本版本资料查看来源反馈勘误
我的笔记笔记输入即保存；标签离开输入框后保存。内容只保存在当前浏览器，可在随身笔记中导出。
展开法典
18
本篇收录 3 节9,376 字与表格内容
查看本篇的全部关联
打钱与拾取

使用前，先确认这些设置

  • 普通3～5坑可配置横或竖，ks=510额外十只只支持横向月色布局。
  • 需按当前角色改spell、npc名、坐标、负重与恢复缺口；m=300实际指%M-%m，不是绝对MP下限。

来源脚本供研究参考，未在当前游戏环境运行验证。

01用途与执行流程

2019年2月13日版，加入五坑加十只及每轮385秒等待，默认巫妖黑火，仍保留诗人与其他施法职业分支。

  1. 默认中心15,41、间距18、ks=510横五加十、h=50、m=300、jq=1；攻击black_flame。
  2. prepair按位置判断当前坑、清场并等剩余刷新时间，再进入横或竖路线。
  3. 逐坑recall 0检测、施法、捡八格及余尸和地面金币；回home银行存款，快于385秒则等待。
  4. 巫妖独立吸魂，诗人魂飞输出、风之舞恢复，其余职业冥思；特定私讯restart1001重启。

02这份代码的适用限制

03完整代码

按此版本原顺序保留；多个独立版本应分别阅读和使用
580 行原文
输入后定位命中行
#------------------------------------------------------------------------------------------
#此版本為通用通緝坑打錢代碼，沒有法術回藍職業會冥想。
#------------------------------------------------------------------------------------------
#代碼預設 mp 下限為 1500，即低於1500就不停冥想。
#------------------------------------------------------------------------------------------
#在“攻擊法術”處寫入打錢職業魔法，比如邪魔的四階：words，或法王的獅吼：command
#------------------------------------------------------------------------------------------
#begin段裡(h=19)的數值改成你的裸負重
#------------------------------------------------------------------------------------------
#橫5坑請把home點定在左邊第一坑，豎5坑請把home點定位在上面第一坑。
#------------------------------------------------------------------------------------------
#銀行放在第一坑櫃檯上面，站坑心能看見就可以
#------------------------------------------------------------------------------------------
#坑中心 X 座標 (kx=10)，坑中心 Y 座標 (ky=20)。按你第一坑的座標改，代碼預設第一坑座標 10,20
#------------------------------------------------------------------------------------------
#相鄰兩坑距離為標準的 20，也就是兩次 run 的距離。如果是 18 的坑距，可以改 (kd=18)
#------------------------------------------------------------------------------------------
#12/13/2018 更新，增加詩人魂飛打坑
#------------------------------------------------------------------------------------------
#12/15/2018 更新，增加撿錢功能開關，預設為開
#------------------------------------------------------------------------------------------
#12/20/2018 增加坑數設定，預設為5坑 (ks=5)。可以自行調整變數 ks 值,最少3坑，最多5坑。
#------------------------------------------------------------------------------------------
#12/20/2018 增加巫妖吸魂補mp
#------------------------------------------------------------------------------------------
#01/01/2019 修復無法執行的錯誤，和一些小BUG。感謝 卡丹師兄 提供測試
#------------------------------------------------------------------------------------------
#01/01/2019 增加記錄每輪耗時，所得金幣
#------------------------------------------------------------------------------------------
#01/01/2019 簡化代碼，修復第一次執行卡戰鬥不殺怪
#------------------------------------------------------------------------------------------
#01/01/2019 增加 5坑+10個NPC，坑數設定 ks=510，必須為橫五坑，10個NPC按月色的5+10標準造
#------------------------------------------------------------------------------------------
#02/13/2019 最佳化計時跑坑，預設每輪時間 385 秒，如需調整，請調整變數 (rndtime=385)
#------------------------------------------------------------------------------------------
%var spell
#攻擊法術
black_flame
%scene begin
#mp下限，每坑完冥想到 mp 到此設定值
(m=300)
#負重
(h=50)
#坑中心 X 座標
(kx=15)
#坑中心 Y 座標
(ky=41)
#坑間距
(kd=18)
#坑數
(ks=510)
#橫坑 k=1，豎坑 k=2
(k=1)
#撿錢開關，開: jq=1，關: jq=0
(jq=1)
#一輪正常需要時間
(rndtime=385)
if (%k == "詩人")
0.34::volume both
if (%m<700)
5::play wind_dance on
endif
endif
jump prepair
#NPC ID，用來判斷重新整理或巫妖吸魂，隨便 28 中的一個就可以，巫妖的話，多填幾個。
%var npc
da
db
dc
dd
de
df
dg
%var b
(5,8)
(5,9)
(6,10)
(5,11)
(5,12)
(4,11)
(4,10)
(4,9)
%scene main1
if (ks==510 && %sy < ky-(kd/2))
3:recall_bc:home me
do(true)
0.5:click_bc:@&click 銀行櫃檯
enddo
(t2=%now-t1)
#log 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！
0.5::deposit %g
if (t2<rndtime)
(t3=rndtime-t2)
loop200
3::say 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！^[33m打快了，等待 ^[32m%vt3 ^[33m秒。
(t3=t3-3)
if (t3<=3)
0.1::
break
endif
endloop
endif
jump prepair
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks>=5 && %sx>(kx+(kd*3.5)) && %sy>(ky-(kd/2)))
(z=(kx+(kd*4)+2)*65536+ky-18)
run %vz 25
loop20
2:test_bc:recall 0
endloop
(z2=z+4)
1::s
run %vz2 2
call kill
call money
endif
if (ks==5 && %sx > (kx+(kd*3.5)))
3:recall_bc:home me
do(true)
0.5:click_bc:@&click 銀行櫃檯
enddo
(t2=%now-t1)
#log 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！
0.5::deposit %g
if (t2<rndtime)
(t3=rndtime-t2)
loop200
3::say 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！^[33m打快了，等待 ^[32m%vt3 ^[33m秒。
(t3=t3-3)
if (t3<=3)
0.1::
break
endif
endloop
endif
jump prepair
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks>=5 && %sx < (kx+(kd*3.5)) && %sx > (kx+(kd*2.5)))
(z=(kx+(kd*4))*65536+ky)
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks==4 && %sx > (kx+(kd*2.5)))
3:recall_bc:home me
do(true)
0.5:click_bc:@&click 銀行櫃檯
enddo
(t2=%now-t1)
#log 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！
0.5::deposit %g
if (t2<rndtime)
(t3=rndtime-t2)
loop200
3::say 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！^[33m打快了，等待 ^[32m%vt3 ^[33m秒。
(t3=t3-3)
if (t3<=3)
0.1::
break
endif
endloop
endif
jump prepair
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks>=4 && %sx > (kx+(kd*1.5)) && %sx < (kx+(kd*2.5)))
(z=(kx+(kd*3))*65536+ky)
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks==3 && %sx > (kx+(kd*1.5)))
3:recall_bc:home me
do(true)
0.5:click_bc:@&click 銀行櫃檯
enddo
(t2=%now-t1)
#log 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！
0.5::deposit %g
if (t2<rndtime)
(t3=rndtime-t2)
loop200
3::say 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！^[33m打快了，等待 ^[32m%vt3 ^[33m秒。
(t3=t3-3)
if (t3<=3)
0.1::
break
endif
endloop
endif
jump prepair
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks>=3 && %sx < (kx+(kd*1.5)) && %sx > (kx+(kd/2)))
(z=(kx+(kd*2))*65536+ky)
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (%sx < (kx+(kd/2)) && %sx > kx-(kd/2))
(z=(kx+kd)*65536+ky)
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (%sx < (kx-(kd/2)))
(z=kx*65536+ky)
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
%scene main2
if (ks==5 && %sy > (ky+(kd*3.5)))
3:recall_bc:home me
do(true)
0.5:click_bc:@&click 銀行櫃檯
enddo
(t2=%now-t1)
#log 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！
0.5::deposit %g
if (t2<rndtime)
(t3=rndtime-t2)
loop200
3::say 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！^[33m打快了，等待 ^[32m%vt3 ^[33m秒。
(t3=t3-3)
if (t3<=3)
0.1::
break
endif
endloop
endif
jump prepair
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks==5 && %sy < (ky+(kd*3.5)) && %sy > (ky+(kd*2.5)))
(z=kx*65536+ky+(kd*4))
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks==4 && %sy > (ky+(kd*2.5)))
3:recall_bc:home me
do(true)
0.5:click_bc:@&click 銀行櫃檯
enddo
(t2=%now-t1)
#log 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！
0.5::deposit %g
if (t2<rndtime)
(t3=rndtime-t2)
loop200
3::say 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！^[33m打快了，等待 ^[32m%vt3 ^[33m秒。
(t3=t3-3)
if (t3<=3)
0.1::
break
endif
endloop
endif
jump prepair
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks>=4 && %sy > (ky+(kd*1.5)) && %sy < (ky+(kd*2.5)))
(z=kx*65536+ky+(kd*3))
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks==3 && %sy > (ky+(kd*1.5)))
3:recall_bc:home me
do(true)
0.5:click_bc:@&click 銀行櫃檯
enddo
(t2=%now-t1)
#log 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！
0.5::deposit %g
if (t2<rndtime)
(t3=rndtime-t2)
loop200
3::say 第 %il 輪耗時 %vt2 秒！此輪收入 %g 金幣！^[33m打快了，等待 ^[32m%vt3 ^[33m秒。
(t3=t3-3)
if (t3<=3)
0.1::
break
endif
endloop
endif
jump prepair
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (ks>=3 && %sy < (ky+(kd*1.5)) && %sy > (ky+(kd/2)))
(z=kx*65536+ky+(kd*2))
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (%sy < (ky+(kd/2)))
(z=kx*65536+ky+kd)
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
if (%sy < (ky-(kd/2)))
(z=kx*65536+ky)
run %vz 25
loop20
2:test_bc:recall 0
endloop
call kill
call money
endif
%scene drop
if (%heft>h)
0.5::@&click 櫃檯
foreach zb
0.34:drop_bc:drop %vzb
0.34::get
0.34::sell 1
loop
endif
return
%scene money
if (jq==0)
return next
endif
loadmapvar corpse c
loop5
1:click_bc:@&click 櫃檯
endloop
do (%heft>h)
0.34::sell 5
0.34::sell 4
0.34::sell 3
0.34::sell 2
0.34::sell 1
enddo
loop7
	remove c %vb
	3:get_bc:get ALL_ITEM_IN %vb
	::%ib
	do(%heft>h)
		0.33:sell_bc:sell 1
	enddo
endloop
remove c %vb
2:get_bc:get ALL_ITEM_IN %vb
::%ib
greedy c t
foreach t
	::@run %vt
		do(%heft>h)
		0.34:sell_bc:sell 1
		enddo
	run %vt 30
	loadround c s
	foreach s
		remove c %vs
		do(%heft>h)
			0.34:sell_bc:sell 1
		enddo
		2:get_bc:get ALL_ITEM_IN %vs
	loop
loop
do(%heft>h)
	0.34:sell_bc:sell 1
enddo
clearmapvar corpse
loadmapvar gold o
foreach o
run %vo 10
0.3::get
loop
clearmapvar gold
if(%heft>h)
call drop
endif
if (%k != "巫妖")
do (%M-%m>m)
if (%k == "詩人")
5::play wind_dance on
else
5::meditate
endif
enddo
endif
return
%scene kill
if (%k == "巫妖")
do (%M-%m>m)
1::soul_steal %ib
enddo
endif
loop100
if (%k == "詩人")
1::play stray_soul on %ib
else
0.5::cast %vspell on %ib
endif
0.5:testr_bc:recall 0
if (i>30)
0.1::
jump prepair
endif
endloop
::%zi
return
%scene click
0.7::@&click 櫃檯
return
%scene meditate
20:meditate_bc:meditate
return retry
%bc recall_bc
retry:0.3:你上一個%*
retry:0.3:你正忙%*
retry:0.3:你正在忙%*
call:kill:你正在戰鬥中。
call:kill:你現在正在戰鬥中 ...
break:0.3:你在原地跳了跳。
retry:0.34:你上一個動作沒有%*
retry:3:你剛剛才轉換過區域%*
next::你進入區域%*
%bc cast_bc
jump:prepair:但是什麼事也沒發生。
%bc click_bc
break:0.34:這是一張%*
%bc test_bc
break::你現在正在戰鬥中 ...
%bc testr_bc
break::沒有這個地方。
next::%ii你現在正在戰鬥中 ...
%bc drop_bc
break::你身上沒有這樣東西。
%bc sell_bc
break::你不能把這個東西賣掉 !
break::what%*
%bc get_bc
retry:0.34:你上一個動作沒有%*
next:0.2:這裡沒有任何東%*
next:0.2:你撿起%*
%bc meditate_bc
retry:0.3:你上一個%*
retry:0.3:你正忙%*
retry:0.3:你正在忙%*
call:kill:你正在戰鬥中。
call:kill:你現在正在戰鬥中 ...
next:0.4:你從冥思中%*
next:0.4:你的精神還沒有恢復平靜，不能冥思。
next:0.3:你現在精神正好，不需要冥思。
next:0.4:你深深%*
%bc kill_bc
next:0.34:你喝道%*
next:0.34:你想殺誰 ?
%bc consider_bc
break::你很熱情地對%*
break::你用挑釁的眼光%*
%scene prepair
loop3
::%zi
(kw=0)
if (%sx < (kx+(kd/2)) && %sx > (kx-(kd/2)))
(z=kx*65536+ky)
run %vz 10
(kw=1)
endif
if (%sx > (kx+(kd/2)) && %sx < (kx+(kd*1.5)))
(z=(kx+kd)*65536+ky)
run %vz 10
(kw=2)
endif
if (%sx > (kx+(kd*1.5)) && %sx < (kx+(kd*2.5)))
(z=(kx+(kd*2))*65536+ky)
run %vz 10
(kw=3)
endif
if (%sx > (kx+(kd*2.5)) && %sx < (kx+(kd*3.5)))
(z=(kx+(kd*3))*65536+ky)
run %vz 10
(kw=4)
endif
if (%sx > (kx+(kd*3.5)) && %sy > (ky-(kd/2)))
(z=(kx+(kd*4))*65536+ky)
run %vz 10
(kw=5)
endif
if (%sy < (ky-(kd/2)))
(z=(kx+(kd*4)+2)*65536+ky-18)
run %vz 10
(kw=6)
endif
2:testr_bc:recall 0
call kill
call money
endloop
loop30
2:recall_bc:home me
endloop
if (kw>0)
(wtime=384-((kw-1)*64))
loop96
4::say 等待 %vwtime 秒 NPC 重生
(wtime=wtime-4)
if (wtime<=1)
break
endif
endloop
endif
(t1=%now)
if (k == 1)
0.1::say 啟動橫五坑模式，開始跑坑開打...
jump main1
endif
if (k == 2)
0.1::say 啟動豎五坑模式，開始跑坑開打...
jump main2
endif
%public_bc
retry:0.5:(你發出的命令過多了, 每秒超過3個, 超過的命令將被拒絕)
retry:1:你剛剛才轉換過區域，請稍待一會兒再試 !
next:0.3:你高興地唱著：next ...。
restart:begin:%*(%$)告訴你 : restart1001
jump:prepair:你無法與你視線範圍外的商店進%*
#none::%ikLevel 25喊道 :「通緝犯小旋風, %* !!」

↗来源与版本

飞梦／17KOK、渔夫与2001年典藏版出现数值或机制冲突时，以飞梦所记相应服务器的后续有效规则为正文依据；同站更新按明确生效日期处理。旧规则保留年代与服别，未明日期的差异就近说明；原资料对照用于追溯。

对照原资料
查看 1 份来源与保存记录
台湾渔夫资料站

打钱28人五坑通缉坑多职业通用版可调坑数v2.1

查看保存记录
来源编号
k56
资料集
ikok代码
保存时间
2026-09-07
原始位置
打錢代碼/打钱28人五坑通缉坑多职业通用版可调坑数v2.1.txt
查看来源