（要求會不會很複雜·？我是euo白癡···）呵呵··
;===========變量設定===========
;程序重啟時間
SET %time 0
;礦點座標
SET %mingx_1 2556
SET %mingy_1 498
SET %mingx_2 2559
SET %mingy_2 490
SET %mingx_3 2559
SET %mingy_3 487
SET %mingx_4 2560
SET %mingy_4 487
SET %mingx_5 2570
SET %mingy_5 477
SET %mingx_6 2570
SET %mingy_6 477
SET %mingx_7 2579
SET %mingy_7 477
SET %mingx_8 2579
SET %mingy_8 482
SET %mingx_9 2572
SET %mingy_9 482
SET %mingx_10 2564
SET %mingy_10 490
SET %mingx_11 2561
SET %mingy_11 497
;礦點數目
SET %ming_mumber_end 11
;熔礦座標
SET %meltx 2571
SET %melty 481
;拋礦座標
SET %putx_1 362
SET %puty_1 329
SET %putx_2 379
SET %puty_2 310
SET %putx_3 410
SET %puty_3 282
SET %putx_4 435
SET %puty_4 307
SET %putx_5 445
SET %puty_5 330
SET %putx_6 433
SET %puty_6 349
SET %putx_7 403
SET %puty_7 370
SET %putx_8 374
SET %puty_8 352
;====設定日誌信息亂碼對照表====
;===========挖礦相關===========
; 必須稍後一會，你才能使用下一個技能
SET %1 舺
;你挖到了一些鐵礦並把它放到你的背包裡。
SET %2 `0
SET %14 you_dig_some_iron_ore_and_put_it_in_your_backpack
;你想要挖哪裡？
SET %3 `髞晏
;你挖出了一些石頭，但並沒有發現任何可用的礦石
SET %4 `鷨
;你挖到了一些青銅礦並把它放到你的背包裡。
SET %15 you_dig_some_bronze_ore_and_put_it_in_your_backpack
;你挖到了一些影子礦並把它放到你的背包裡。
SET %5 `0
;你必須稍後一會才能進行下一個動作。
SET %6 `舺
;忽略該動作（已置於隊列中）。
SET %7 齟濞\(騨?-).
;隊列完成，（後面省略）
SET %16 ?,
;動作隊列中共有一個動作，（後面省略）
SET %17 ╘-q 1*╘,
;你無法在該處挖礦
SET %8 `嗾(?
;你的背包已經滿了，所以你所挖出的礦物已經消失了。
SET %9 `勌蛳釂@錪@鷦i蛳??
;這裡沒有鐵可供挖出
SET %10 偬?溜??
;你無法在此挖礦
SET %11 `嗾(d
;那東西太遠了
SET %12 ?*軉
;===========熔礦相關===========
;你完全沒有概念應該要如何熔解本礦石！
SET %13 `宧鯏鍋俇斻,?
;選擇要使用那個火爐來融化礦石，或是選擇要與哪一堆礦石合併
SET %18 閬(?k塭??/ 閬?
;=========變量設定結束=========
;==============================
;==========主程序開始==========
INITEVENTS
MSG 你正在使用的是新人懂挖礦腳本
;=======挖礦前的準備工作=======
EVENT MACRO 8 7
DISPLAY OK 等鼠標變圓圈後，$點擊挖礦工具，$注意挖礦工具一定要在角色的包裡！
SET %number 0
MAIN_LOOP1:
SET #TARGCURS 1
SET %number %number + 1
MAIN_LOOP2:
IF #TARGCURS = 1
{
GOTO MAIN_LOOP2
}
FINDITEM #LTARGETID
SET %mining_tools_type . %number #FINDTYPE
SET %mybagid #FINDBAGID
MSG 第 %number 種挖礦工具種類 = %mining_tools_type . %number ，角色包ID = %mybagid 。$
DISPLAY YESNO 還要選擇其他的挖礦工具嗎？
IF #DISPRES = YES
GOTO MAIN_LOOP1
DISPLAY YESNO 沒挖礦工具了關機么？
IF #DISPRES = YES
{
SET %shutdown 1
}
ELSE
{
SET %shutdown 0
}
;===========挖礦開始===========
SET %ironnumber 0
SET %toolsnumber 0
SET %melttime 0
SET %tnumber 1
MAIN_LOOP3:
FINDITEM ENK c_
IF #FINDID = X
{
GOTO MAIN_LOOP4
}
SET %ironnumber %ironnumber + #FINDSTACK
IGNOREITEM #FINDID
GOTO MAIN_LOOP3
MAIN_LOOP4:
MAIN_LOOP5:
FINDITEM %mining_tools_type . %tnumber
IF #FINDID = X
{
IF %tnumber < %number
{
SET %tnumber %tnumber + 1
GOTO MAIN_LOOP5
}
GOTO MAIN_LOOP6
}
SET %toolsnumbeR %toolsnumbeR + #FINDSTACK
IGNOREITEM #FINDID
GOTO MAIN_LOOP5
MAIN_LOOP6:
IGNOREITEM RESET
MENU WINDOW SIZE 200 60
MENU WINDOW TITLE 新人挖礦機器
MENU TEXT name 5 5 當前以挖了 %ironnumber 塊鐵礦
MENU TEXT name 5 25 當前剩餘 %toolsnumber 把挖礦工具
MENU TEXT name 5 45 上次熔礦時間 %melttime
MENU SHOW 800 600
MAIN_START:
GOSUB MOVE
HALT
RETURN
;==========主程序結束==========
;==============================
;============子程序============
;=============移動=============
SUB MOVE
MOVE_LOOP1:
SET %mnumber 1
FOR %mnumber 1 %ming_mumber_end
{
MOVE_LOOP2:
IF ( #WEIGHT > ( #MAXWEIGHT - 24 ) ) || ( #WEIGHT > 300 )
{
GOSUB REMOVE
}
MOVE %mingx_ . %mnumber %mingy_ . %mnumber a 3s
IF ( %mingx_ . %mnumber <> #CHARPOSX ) || ( %mingy_ . %mnumber <> #CHARPOSY )
{
EVENT PATHFIND %mingx_ . %mnumber %mingy_ . %mnumber 0
GOTO MOVE_LOOP2
}
GOSUB DIG
}
GOTO MOVE_LOOP1
RETURN
;===========移動結束===========
;=============挖礦=============
SUB DIG
DIG_LOOP1:
SET %tnumber 1
IF #WEIGHT > ( #MAXWEIGHT - 12 ) || #WEIGHT > 400
{
GOSUB REMOVE
}
SET #LOBJECTID %mybagid
DIG_LOOP2:
EVENT MACRO 8 7
IF #CONTID <> %mybagid
{
GOTO DIG_LOOP2
}
FINDITEM %mining_tools_type . %tnumber
IF #FINDID = X
{
IF %tnumber < %number
{
SET %tnumber %tnumber + 1
GOTO DIG_LOOP2
}
GOSUB REMOVE
IF %time = 0
{
SET %time #SCNT
GOTO MAIN_START
}
SET %time ( #SCNT - %time )
IF %time < 60
{
MSG 沒有挖礦工具，停止工作。$
IF %shutdown = 1
{
SHUTDOWN FORCE
}
HALT
}
GOTO MAIN_START
}
SET #LOBJECTID #FINDID
SET #LTARGETX %mingx_ . %mnumber
SET #LTARGETY %mingy_ . %mnumber
TILE INIT
TILE CNT #LTARGETX #LTARGETY #CURSKIND
TILE GET #LTARGETX #LTARGETY #TILECNT #CURSKIND
SET #LTARGETtile #TILETYPE
SET #LTARGETkind 3
EVENT MACRO 17
DIG_LOOP3:
TARGET
EVENT MACRO 22
DIG_LOOP4:
SCANJOURNAL 1
SET %line01 #JOURNAL
;======需要進行選擇的日誌======
IF %3 in %line01
{
SET #TARGCURS 1
GOTO DIG_LOOP3
}
;======需要進行移動的日誌======
IF %8 in %line01
RETURN
IF %10 in %line01
RETURN
IF %11 in %line01
RETURN
IF %12 in %line01
RETURN
;======需要進行返回的日誌======
IF %9 in %line01
GOSUB REMOVE
;======需要進行等待的日誌======
IF %7 in %line01
GOTO DIG_LOOP4
IF %17 in %line01
GOTO DIG_LOOP4
SET %toolsnumber 0
SET %tnumber 1
DIG_LOOP5:
FINDITEM %mining_tools_type . %tnumber c_
IF #FINDID = X
{
IF %tnumber < %number
{
SET %tnumber %tnumber + 1
GOTO DIG_LOOP5
}
GOTO DIG_LOOP6
}
SET %toolsnumber %toolsnumber + #FINDSTACK
IGNOREITEM #FINDID
GOTO DIG_LOOP5
DIG_LOOP6:
IGNOREITEM RESET
MENU TEXT name 5 5 當前以挖了 %ironnumber 塊鐵礦
MENU TEXT name 5 25 當前剩餘 %toolsnumber 把挖礦工具
MENU TEXT name 5 45 上次熔礦時間 %melttime
MENU SHOW
GOTO DIG_LOOP1
RETURN
;===========挖礦結束===========
;=============返回=============
SUB REMOVE
SET %rnumber %mnumber
REMOVE_LOOP1:
IF #WEIGHT > #MAXWEIGHT
{
GOSUB PUT
GOTO REMOVE_LOOP1
}
MOVE %mingx_ . %rnumber %mingy_ . %rnumber a 1s
IF ( %mingx_ . %rnumber <> #CHARPOSX ) || ( %mingy_ . %rnumber <> #CHARPOSY )
{
EVENT PATHFIND %mingx_ . %rnumber %mingy_ . %rnumber 0
GOTO REMOVE_LOOP1
}
IF %rnumber > 1
{
SET %rnumber %rnumber - 1
GOTO REMOVE_LOOP1
}
REMOVE_LOOP2:
IF #WEIGHT > #MAXWEIGHT
{
GOSUB PUT
GOTO REMOVE_LOOP2
}
MOVE %meltx %melty a 3s
IF ( %meltx <> #CHARPOSX ) || ( %melty <> #CHARPOSY )
{
EVENT PATHFIND %meltx %melty 0
GOTO REMOVE_LOOP2
}
GOSUB MELT
REMOVE_LOOP3:
MOVE %mingx_ . %rnumber %mingy_ . %rnumber a 3s
IF ( %mingx_ . %rnumber <> #CHARPOSX ) || ( %mingy_ . %rnumber <> #CHARPOSY )
{
EVENT PATHFIND %mingx_ . %rnumber %mingy_ . %rnumber 0
GOTO REMOVE_LOOP3
}
IF %rnumber < %mnumber
{
SET %rnumber %rnumber + 1
GOTO REMOVE_LOOP3
}
REMOVE_LOOP4:
IF %putdown = 1
{
MOVE %putdownx %putdowny a 3s
IF ( %putdownx <> #CHARPOSX ) || ( %putdowny <> #CHARPOSY )
{
EVENT PATHFIND %putdownx %putdowny 0
GOTO REMOVE_LOOP4
}
MOVE_LOOP6:
FINDITEM DWJ g_
MOVE #FINDX #FINDY a 3s
IF ( %putdownx <> #CHARPOSX ) || ( %putdowny <> #CHARPOSY )
{
EVENT PATHFIND #FINDX #FINDY 0
GOTO REMOVE_LOOP6
}
EVENT DRAG #FINDID
IF #FINDID = X
{
GOTO REMOVE_LOOP5
}
MSG $
CLICK 406 307 P
GOTO REMOVE_LOOP4
}
REMOVE_LOOP5:
SET %putdown 0
MOVE %mingx_ . %rnumber %mingy_ . %rnumber a 3s
IF ( %mingx_ . %rnumber <> #CHARPOSX ) || ( %mingy_ . %rnumber <> #CHARPOSY )
{
EVENT PATHFIND %mingx_ . %rnumber %mingy_ . %rnumber 0
GOTO REMOVE_LOOP3
}
RETURN
;===========返回結束===========
;=============熔礦=============
SUB MELT
FINDITEM JBG g_2
IF #FINDID = X
{
MSG 沒有可用的熔爐$
GOTO MAIN_START
}
SET %meltid #FINDID
MELT_LOOP1:
EVENT MACRO 8 7
IF #CONTID <> %mybagid
{
GOTO MELT_LOOP1
}
MELT_LOOP2:
FINDITEM DWJ c_
IF #FINDID = X
{
MSG 沒有可熔的礦石$
IGNOREITEM RESET
RETURN
}
SET %nomeltid #FINDID
SET #LOBJECTID #FINDID
SET #LTARGETID %meltid
SET #LTARGETKIND 1
SET %oldweight #WEIGHT
EVENT MACRO 17
MELT_LOOP3:
TARGET
EVENT MACRO 22
SET %ironnumber 0
MELT_LOOP5:
FINDITEM ENK c_
IF #FINDID = X
{
GOTO MELT_LOOP6
}
SET %ironnumber %ironnumber + #FINDSTACK
IGNOREITEM #FINDID
GOTO MELT_LOOP5
MELT_LOOP6:
;IGNOREITEM RESET
SET %melttime #TIME
MENU TEXT name 5 5 當前以挖了 %ironnumber 塊鐵礦
MENU TEXT name 5 25 當前剩餘 %toolsnumber 把挖礦工具
MENU TEXT name 5 45 上次熔礦時間 %melttime
MENU SHOW
MELT_LOOP4:
SCANJOURNAL 1
SET %line01 #JOURNAL
IF %13 in %line01
{
IGNOREITEM %nomeltid
GOTO MELT_LOOP2
}
;======需要進行等待的日誌======
IF %7 in %line01
GOTO MELT_LOOP4
IF %17 in %line01
GOTO MELT_LOOP4
;======需要進行選擇的日誌======
IF %18 in %line01
{
SET #TARGCURS 1
GOTO MELT_LOOP3
}
GOTO MELT_LOOP2
RETURN
;===========熔礦結束===========
;=============拋礦=============
SUB PUT
SET %putdown 1
SET %pnumber 1
PUT_LOOP1:
SET %oldweight #WEIGHT
FINDITEM DWJ c_
EVENT DRAG #FINDID
MSG 1$
CLICK %putx_ . %pnumber %puty_ . %pnumber P
SET %putdownx #CHARPOSX
SET %putdowny #CHARPOSY
IF %oldweight = #WEIGHT
{
IF %pnumber > 8
{
SET %pnumber 0
}
SET %pnumber %pnumber + 1
GOTO PUT_LOOP1
}
MSG 誰撿我的礦， #CHARNAME 很生氣，後果很嚴重！$
RETURN
;===========拋礦結束===========
;==========子程序結束==========
;==============================
