【EasyUO】腳本：練抗魔（魔法吸取）

[ydh2004868]

首先!我會寫用魔吸練抗魔是基於個人認為吸魔比地火練的快
但相對的藥材花費也稍較兇;試試看吧;如果真的有較快;多花一點錢換時間是值得的
玩家在銀行放一個容器;置放藥材後;查詢該容器ID後自行更改ID替換掉第二行那七個字母);
物件ID查詢腳本另篇有PO或採用玩家腳本查詢
玩家變巫妖招暗精 於OB掛機 人越多效果更佳
藥材內定各領300份;玩家可自行更改喜好
抗魔85以上開始掛 (可到120
用英文版掛;測試沒用太多時間;有問題請提出
;================分格線===================
initevents
SET %STOCK TGLAOMD ;←自行查詢後更改銀行放藥材的容器ID
set %reg1 KUF
set %reg2 JUF
set %reg3 MZF
set %reg4 RZF
chooseskill Resi
set %startingskill #skill
set %currentskill #skill

;=========================================
display ok 利人利己.請記得變巫妖 招暗精$

display yesno 我愛黑豬比我愛老婆多 ^^ $

gosub starus
GOTO Main

;=========================================
main:
goSub showmenu
gosub reload
gosub Magery_rs
goto main

;=========================================


sub starus
msg bank $
wait 10
event sysmessage opening backpack
event macro 8 7
wait 30
contpos 100 400
wait 30
event sysmessage opening
event macro 8 2
wait 30
contpos 20 40
return

;=========================================
sub reload
finditem %reg1 C_ , #backpackid
if #findstack < 1
gosub Addbp

finditem %reg2 C_ , #backpackid
if #findstack < 1
gosub Addbm

finditem %reg3 C_ , #backpackid
if #findstack < 1
gosub Addmr

finditem %reg4 C_ , #backpackid
if #findstack < 1
gosub Addss

wait 10
return


;=========================================


sub Magery_rs
if #mana < 40
{
event macro 13 46
wait 5s ;冥想時間 內定5秒 (依個人喜好和環境 自行更改
GOTO Magery_rs
}
event macro 15 52 ;52
event macro 25
event macro 23
;wait 20
return

;=========================================
sub Addbp
Addbp:
finditem %reg1 C_ , %STOCK
wait 6
if #findid = X
{
finditem %STOCK C
wait 6
set #LOBJECTID #FINDID
event macro 17 0
wait 6
goto Addbp
}
exevent drag #FINDID 300 ;拖行 300個BP
wait 6
exevent dropc #backpackid
return

;=========================================
sub Addbm
Addbm:
finditem %reg2 C_ , %STOCK
wait 6
if #findid = X
{
finditem %STOCK C
wait 6
set #LOBJECTID #FINDID
event macro 17 0
wait 6
goto Addbm
}
exevent drag #FINDID 300 ;拖行 300個BM
wait 6
exevent dropc #backpackid
return

;=========================================
sub Addmr
Addmr:
finditem %reg3 C_ , %STOCK
wait 6
if #findid = X
{
finditem %STOCK C
wait 6
set #LOBJECTID #FINDID
event macro 17 0
wait 6
goto Addmr
}
exevent drag #FINDID 300 ;拖行 300個MR
wait 6
exevent dropc #backpackid
return

;=========================================
sub Addss
Addss:
finditem %reg4 C_ , %STOCK
wait 6
if #findid = X
{
finditem %STOCK C
wait 6
set #LOBJECTID #FINDID
event macro 17 0
wait 6
goto Addss
}
exevent drag #FINDID 300 ;拖行 300個SS
wait 6
exevent dropc #backpackid
return

;=========================================
sub showmenu
; This hides euo leaving menu showing
; menu hideeuo
menu clear
menu window title MythicalXTC's Legendary Resist O' Matic
menu window size 325 90
menu window color black
menu font name times
menu font bgcolor black
menu font size 8
menu font color white

menu text start_label 5 20 Starting Skill:
menu set %startingskill
str len %startingskill
str ins %startingskill #dot #strRes
menu text startingskill 70 20 #strRes

menu text skill_label 5 60 Current Skill:
set %currentskill #skill
str len %currentskill
str ins %currentskill #dot #strRes
menu delete currentskill
menu text currentskill 70 60 #strRes

menu text gain_label 5 40 Total Gained:
set %totalgains %currentskill - %startingskill
str len %totalgains
str ins %totalgains #dot #strRes
menu delete totalgains
menu text totalgains 70 40 #strRes

menu show
return