本篇收录 3 节8,327 字与表格内容
查看本篇的全部关联 使用前，先确认这些设置
- 填写sid收款名单、ss打手位置、q钱装、ra六个中心及nick。
- 不死练习需另一个打手配合，涉及有意受击；普通打钱不应误把此分支当自动保命。
来源脚本供研究参考，未在当前游戏环境运行验证。
01用途与执行流程
以nick选择全坑、上下半坑、三组、单组或十人坑，逐个狂暴拾卖，并附收租与不死练习。
- nick支持一至五、各上／下、各3／1及十；ra为五个90列中心加90,178十人坑。
- 将所选区域转换为28／14／21／7／10个目标和对应站位，逐个kill、狂暴、拾取、出售；狂魔另feast corpse。
- 战将、狂魔、斗狂在MP缺口不足100时转“不死”：到ss受击点、look切状态、sing开打，依不死回复回准备。
- 收租／money仅向sid名单对象交身上金币；死亡按时空门路线与原死亡信息祈祷回城拾尸。
02这份代码的适用限制
03完整代码
711 行原文
#記得給人物nick 坑位
#目前支援的是一、二、三、四、五、一上、一下、二上、二下、三上、三下、四上、四下、五上、五下、十、一3、二3、三3、四3、五3、一1、二1、三1、四1、五1
#你要打哪坑，就給人物nick對於的坑位。比如打第二坑全坑，你就nick 二；如果打第三坑上半坑，nick 三上；如果是打第四坑下半坑，就nick 四下。如果是打10人坑，就nick 十
#你需要修改的就是收錢ID、錢裝ID
#按順序對應修改坑座標
#////////////////////////////////////////////////////////////////////////////////////
#記得修改收錢ID、錢裝ID以及對應的坑中心點。要練不死的，請搜尋“不死”段落進行修改。
#記得修改收錢ID、錢裝ID以及對應的坑中心點。要練不死的，請搜尋“不死”段落進行修改。
#記得修改收錢ID、錢裝ID以及對應的坑中心點。要練不死的，請搜尋“不死”段落進行修改。
#////////////////////////////////////////////////////////////////////////////////////
#收錢id 制定ID在人物旁邊sing 收租 或者sing money可以收租。
%var sid
#送死座標
%var ss
#錢裝ID
%var q
a
b
c
d
#坑座標點
%var ra
90,18
90,54
90,90
90,126
90,162
90,178
%scene 不死
run %vh 20
do (%M-%m >50 )
wait10
enddo
#送死座標
run %vss
#關鐵甲化和鬥氣，如果你的打手夠厲害可以去掉。
0.34::l
#打手動手口令
1::sing 開打
30::wait 等啊等啊等！
jump 準備
#下面別改了
#真的下面別改了。
#記得別改了。
%scene begin
call 暱稱判斷
call 判斷中心點
run %vh 80
show %vfz
1:click_bc:@&click 櫃檯
loop8
::%iq
0.5:drop_bc:drop %vq
0.5:get_bc:get
0.4:sell:sell 1
endloop
(t1=%now)
(g1=%g)
if (%K == "十")
jump maint
endif
jump main
stop
%scene main
loop%vw
run %vf 20
call kill
::%if
endloop
#重置b和f
::%zb
::%zf
(t2=%now-t1)
(g2=%g-g1)
(gt=g2/t2*3600)
show 第%inn輪。累計打錢%vg2，耗時%vt2秒，效率為%vgt元/小時。
if (%k == "戰將" || %k == "狂魔" || %k == "鬥狂")
if(%M-%m<100)
jump 不死
endif
endif
%scene kill
loop7
#防止打得快導致佔著NPC重新整理點導致卡位。
run %vf 20
loop99
7.5:kill_bc:kill %vb
endloop
loop4
0.4::sell 1
endloop
if (%k == "狂魔")
call ber
else
call berserk
endif
1:get_bc:get ALL_ITEM_IN %vb
if (%k == "狂魔")
5:chi:feast corpse
endif
::%ib
endloop
return
%scene 準備
run %vh 20
10:l:l
jump main
%bc l
next:0.34:你凝神將你的皮膚鐵甲化。
retry:0.34:你的鐵甲化失去了作用，身上的皮膚慢慢地恢復正常 ...
retry:5:你的法力不夠了%*
retry:1:你感到身體虛弱, 無法放出鬥氣。
retry:1:籠罩在你身上的鬥氣漸漸地散去 ...
next:0.4:你放出你的鬥氣。
%scene berserk
do(true)
if (%h<%H-600)
1:power_bc:powerup
endif
#如果不練映象，記得把下面去掉。
#if (%k == "戰將")
#1:mirror_bc:mirror_image
#endif
5:br_bc:berserk
enddo
return
%scene ber
do(true)
5:br:berserk
enddo
return
%scene power
1:power:powerup
return retry
%scene sell
#2:click_bc:@&click 櫃檯(counter)
loop12
0.4:sell_bc:sell 1
endloop
return retry
%bc mirror_bc
next:0.4:你的敵人已經不在了 ...
next:0.4:你目前的映象分身數已經到達極限 ...
next:0.4:你狂吼一聲, 全身散射出金色的光芒 ...
next:0.4:只有在戰鬥中才能使用映象分身絕技 ...
next:0.4:你的精神無法集中, 無法再使用分身 ...
#以下3個為10人坑專用
%scene maint
loop2
run %vf 20
call killt
::%if
endloop
#重置b和f
::%zb
::%zf
(t2=%now-t1)
(g2=%g-g1)
(gt=g2/t2*3600)
show 第%inn輪。累計打錢%vg2，耗時%vt2秒，效率為%vgt元/小時。
%scene killt
loop5
loop99
7.5:kill_bc:kill %vb
endloop
call berserk
1:get_bc:get ALL_ITEM_IN %vb
call sellt
::%ib
if (%k == "狂魔")
5:chi:feast corpse
endif
endloop
return
%scene sellt
run %vhh 10
1:click_bc:@&click 櫃檯(counter)
loop9
0.34:sell_bc:sell 1
endloop
run %vf 20
return
#以上為十人坑專用
%scene money
if (%1 in sid)
log 身上有 %g 元錢，準備交租給%1
1:get_bc:give %g %1
0.34::tell %1 包租婆你好，這是這個月房租，請笑納！！！
else
0.34::tell %1 你不是包租婆，這是我的血汗錢不能給你！
endif
return retry
%scene 暱稱判斷
if(%K not in kkk)
jump 暱稱提示
else
show 暱稱對了
endif
return
%scene 暱稱提示
1:nick:tell %n 代碼是透過暱稱判斷坑位的，目前暱稱無法判斷坑位，請使用nick修改暱稱！
15:nick:tell %n 目前支援的是一、二、三、四、五、一上、一下、二上、二下、三上、三下、四上、四下、五上、五下、十、一3、二3、三3、四3、五3、一1、二1、三1、四1、五1
%var kkk
一
二
三
四
五
一上
一下
二上
二下
三上
三下
四上
四下
五上
五下
十
一3
二3
三3
四3
五3
一1
二1
三1
四1
五1
%bc nick
jump:暱稱判斷:從現在起，您的綽號叫%*
%bc drop_bc
next:0.5:你丟下%*
continue:0.5:你身上沒有%*
%bc con_bc
retry:2:這裡沒有這種%*
retry:2:這裡沒有任何%*
retry:2:你要打量%*
next:0.5:你用挑釁的眼光上下打量著%*
%bc kill_bc
retry:1:這裡沒有任何生物%*
break:0.35:你喝道%*
retry:0.34:你正忙著呢%*
%bc power_bc
retry:0.5:你正忙著%*
retry:0.35:what ?
retry:0.35:你上一個動作還%*
next:0.35:你狂嚎不止%*
next:0.35:你現在的體力充沛%*
next:0.35:你突然仰天狂嘯%*
break:0.35:你並不在戰鬥%*
break:0.35:%*你得到 %*點經驗%*
%bc power
retry:0.5:你正忙著%*
retry:0.35:what ?
retry:0.35:你上一個動作還%*
next:0.35:你狂嚎不止%*
next:0.35:你現在的體力充沛%*
next:0.35:你突然仰天狂嘯%*
next:0.35:你並不在戰鬥%*
next:0.35:%*你得到 %*點經驗%*
%bc br_bc
retry:0.5:你正忙著%*
retry:0.5:what ?
next:0.35:你狂吼一聲%*
next:0.35:你已經沒有體力%*
break:0.35:你並不在戰鬥%*
break:0.35:(你在收益時間外%*
break:0.35:(你得到%*
%bc br
retry:0.5:你正忙著%*
retry:0.5:what ?
next:0.35:你狂吼一聲%*
call:power:你已經沒有體力%*
break:0.35:你並不在戰鬥%*
break:0.35:(你在收益時間外%*
break:0.35:(你得到%*
%bc get_bc
retry:0.35:你正忙著%*
retry:0.35:你上一個動作還%*
next:0.35:這裡沒有任何東西%*
next:0.35:你的附近沒有這種東西%*
call:sell:你拿不動了 !
%bc sell_bc
break:0.35:你不能把這個東西%*
break:0.35:這個東西你正裝備著 !
%bc sell
next:0.35:你不能把這個東西%*
next:0.35:這個東西你正裝備著 !
%bc chi
retry:1:%*你現在正在%*
next:0.34:%*你吃得滿臉鮮血%*
next:0.34:%*你覺得自己還有幾分飽意%*
next:0.34:%*你四處張望自言自語著%*
%bc click_bc
next:0.5:這是一張生意場所經常使用來記帳的櫃檯。
%scene revive
priority
30::wait 30秒後去買復活
do(true)
3:recall_bc:recall 1
enddo
2::cast retime on
2::time_blink
run 342,652 15
run 366,703 60
5::look 1@23790279
5:quqian:withdraw 9000
1::look 2@24117945
2::buy_protect
jump begin
%bc recall_bc
retry:1:你正忙%*
retry:1:你上一個動作沒有%*
retry:3:你剛剛才轉換過區域%*
retry:3:你現在正在戰鬥中%*
break:1:你祈求神把你帶回%*
break:1:你進入區域%*
break:1:你已經不適合再去新手教學區了%*
break:1:你還沒有愛的小屋呢%*
break:0.34:(你得到 %* 點經驗。)
%bc recall
next:1:你進入區域%*
%scene timegate
10:recall:recall 2
run 45,155 15
run 45,152 10
run 43,145 10
run 95,49
run 86,31 10
1::sing 到了
2:look_bc:look 1@5636124
stop
%root_bc
shutdown::%b%+(%$)告訴你 : 滾下去
reboot:900:%b%+(%$)告訴你 : 下線休息
reboot:30:第6次檢查賦值變數是否正確。檢查到6次會重啟。
%public_bc
jump:tgate:%b死亡地點 %*(%$) 座標 %*
log::你死了。
jump:準備:(你進入了不死狂暴的狀態)
jump:準備:%*痛楚與死亡喚起了你潛在的狂暴生命力%*
retry:0.34:(你發出的命令過多了, 每秒超過3個, 超過的命令將被拒絕)
next:0.34:你要往哪個方向 ?
next::%+(%$)告訴你 : next
next::%+(%$)告訴你 : 下一步
break::%+(%$)告訴你 : break
break::%+(%$)告訴你 : 跳出
call:money:%b%*(%$)高興地唱著：收租
call:money:%b%*(%$)高興地唱著：money
break:0.35:%*你得到 %*點經驗%*
%scene tgate
priority
wait25
do(true)
2:回城模板:recall 1
enddo
run 343,649 20
run 353,669 15
run 362,694 30
0.4::look 1@23528127
0.4::withdraw 10000
run 365,694 10
0.4::look 2@24117945
0.34::buy_protect
5:dropling_bc:drop protection order
do(true)
2:回城模板:recall 7
enddo
run 151,455 8
0.5:recall_bc:@&look 車伕(carter)
2:recall_bc:pay 50 for 6
0.5:recall_bc:@&click 時空魔法陣
do(true)
5:回城:pray %1
enddo
run %2 60
3::get ALL_ITEM_IN (5,10)
3::get ALL_ITEM_IN (5,12)
jump begin
%bc dropling_bc
jump:tgate:%*身上沒有%*
next:0.34:這樣東西不能隨意丟棄%*
%bc 回城模板
retry:0.34:你上一個動作沒有%*
retry:3:你剛剛才轉換過區域%*
break:1:你祈求神把你帶回%*
break:1:你進入區域%*
%scene 判斷中心點
show 讀取暱稱引數判斷中心點位置
show 座標坑位【%K】，準備蹲坑！
if (%K == "一")
(&ra = 0)
call 全坑
endif
if (%K == "二")
(&ra = 1)
call 全坑
endif
if (%K == "三")
(&ra = 2)
call 全坑
endif
if (%K == "四")
(&ra = 3)
call 全坑
endif
if (%K == "五")
(&ra = 4)
call 全坑
endif
if (%K == "一3")
(&ra = 0)
call 3半坑
endif
if (%K == "一1")
(&ra = 0)
call 1半坑
endif
if (%K == "二3")
(&ra = 1)
call 3半坑
endif
if (%K == "二1")
(&ra = 1)
call 1半坑
endif
if (%K == "三3")
(&ra = 2)
call 3半坑
endif
if (%K == "三1")
(&ra = 2)
call 1半坑
endif
if (%K == "四3")
(&ra = 3)
call 3半坑
endif
if (%K == "四1")
(&ra = 3)
call 1半坑
endif
if (%K == "五3")
(&ra = 4)
call 3半坑
endif
if (%K == "五1")
(&ra = 4)
call 1半坑
endif
if (%K == "一上")
(&ra = 0)
call 上半坑
endif
if (%K == "一下")
(&ra = 0)
call 下半坑
endif
if (%K == "二上")
(&ra = 1)
call 上半坑
endif
if (%K == "二下")
(&ra = 1)
call 下半坑
endif
if (%K == "三上")
(&ra = 2)
call 上半坑
endif
if (%K == "三下")
(&ra = 2)
call 下半坑
endif
if (%K == "四上")
(&ra = 3)
call 上半坑
endif
if (%K == "四下")
(&ra = 3)
call 下半坑
endif
if (%K == "五上")
(&ra = 4)
call 上半坑
endif
if (%K == "五下")
(&ra = 4)
call 下半坑
endif
if (%K == "十")
(&ra = 5)
toreal %vra cb h
toreal %vra ac b
toreal %vra db f
toreal %vra cd hh
show 第%iu次檢查賦值變數是否正確。
show %lh
show %lb
show %lf
show %lhh
if($lh!=1 || $lb!=10 || $lf!=2 || $lhh!=1)
show 賦值變數有問題，重新判斷。
jump 判斷中心點
endif
endif
return
%scene 全坑
toreal %vra cb h
toreal %vra a b
toreal %vra d f
show 第%iu次檢查賦值變數是否正確。檢查到6次會重啟。
show %lh
show %lb
show %lf
(w=4)
if($lh!=1 || $lb!=28 || $lf!=4)
show 賦值變數有問題，重新判斷。
jump 判斷中心點
endif
return
%scene 上半坑
toreal %vra ca h
toreal %vra aa b
toreal %vra da f
show 第%iu次檢查賦值變數是否正確。檢查到6次會重啟。
show %lh
show %lb
show %lf
if($lh!=1 || $lb!=14 || $lf!=2)
show 賦值變數有問題，重新判斷。
jump 判斷中心點
endif
(w=2)
return
%scene 下半坑
toreal %vra cb h
toreal %vra ab b
toreal %vra db f
show 第%iu次檢查賦值變數是否正確。檢查到6次會重啟。
show %lh
show %lb
show %lf
(w=2)
if($lh!=1 || $lb!=14 || $lf!=2)
show 賦值變數有問題，重新判斷。
jump 判斷中心點
endif
return
%scene 3半坑
toreal %vra ca h
toreal %vra ad b
toreal %vra dc f
show 第%iu次檢查賦值變數是否正確。檢查到6次會重啟。
show %lh
show %lb
show %lf
(w=3)
if($lh!=1 || $lb!=21 || $lf!=3)
show 賦值變數有問題，重新判斷。
jump 判斷中心點
endif
return
%scene 1半坑
toreal %vra cb h
toreal %vra ae b
toreal %vra dd f
show 第%iu次檢查賦值變數是否正確。檢查到6次會重啟。
show %lh
show %lb
show %lf
(w=1)
if($lh!=1 || $lb!=7 || $lf!=1)
show 賦值變數有問題，重新判斷。
jump 判斷中心點
endif
return
%var ca
(5,8)
%var cb
(5,12)
%var cd
(5,0)
%var a
#左上7個
(2,0)
(1,1)
(1,0)
(1,2)
(0,1)
(0,0)
(0,2)
#左下7個
(0,18)
(0,20)
(0,19)
(1,18)
(1,20)
(1,19)
(2,20)
#右下7個
(8,20)
(8,19)
(9,20)
(9,18)
(9,19)
(10,20)
(10,18)
#右上7個
(8,0)
(8,1)
(9,0)
(9,2)
(9,1)
(10,0)
(10,2)
%var aa
(2,0)
(1,1)
(1,0)
(1,2)
(0,1)
(0,0)
(0,2)
(8,0)
(8,1)
(9,0)
(9,2)
(9,1)
(10,0)
(10,2)
%var ab
(0,18)
(0,20)
(0,19)
(1,18)
(1,20)
(1,19)
(2,20)
(8,20)
(8,19)
(9,20)
(9,18)
(9,19)
(10,20)
(10,18)
%var ac
(0,18)
(0,20)
(0,19)
(1,20)
(2,20)
(8,20)
(9,20)
(9,19)
(10,20)
(10,18)
%var ad
#左上7個
(2,0)
(1,1)
(1,0)
(1,2)
(0,1)
(0,0)
(0,2)
#左下7個
(0,18)
(0,20)
(0,19)
(1,18)
(1,20)
(1,19)
(2,20)
#右上7個
(8,0)
(8,1)
(9,0)
(9,2)
(9,1)
(10,0)
(10,2)
%var ae
#右下7個
(8,20)
(8,19)
(9,20)
(9,18)
(9,19)
(10,20)
(10,18)
%var d
(2,1)
(0,16)
(7,19)
(8,4)
%var da
(2,1)
(8,4)
%var db
(0,16)
(7,19)
%var dc
(2,1)
(0,16)
(8,4)
%var dd
(7,19)
#迴圈次數
%var w↗来源与版本
飞梦／17KOK、渔夫与2001年典藏版出现数值或机制冲突时，以飞梦所记相应服务器的后续有效规则为正文依据；同站更新按明确生效日期处理。旧规则保留年代与服别，未明日期的差异就近说明；原资料对照用于追溯。