天堂M免費開源腳本(台/韓版通用): 依據HP或MP自動點擊快捷鍵，解毒，無怪順移，自動回家

version = "v_0.2"

function initSetup()

local hpAnchor = Region(80, 220, 170, 80):exists("teamArrow.png", 0)
if (not hpAnchor) then
upperLeftestRegion:existsClick("team.png", 0)
upLeftestRegion:existsClick("createTeam.png", 1.5)
lowestCenterRegion:existsClick("confirm.png", 1.5)
hpAnchor = Region(80, 220, 170, 80):exists("teamArrow.png", 1)
if (not hpAnchor) then scriptExit("隊伍創見失敗!!") end
end
hpRatioStart = hpAnchor:getCenter():offset(-122, 5)
mpRatioStart = hpRatioStart:offset(0, 11)

local hpRegion = Region(hpRatioStart:getX(), hpRatioStart:getY() -4, 108, 9)
local mpRegion = Region(mpRatioStart:getX(), mpRatioStart:getY() -3, 108, 8)

hpRatioShowRegion = Region(hpAnchor:getX() - 100, hpAnchor:getY() - 25, 100, 25)
mpRatioShowRegion = Region(hpAnchor:getX() - 100, hpAnchor:getY() + 30, 100, 25)

if ( getRatio("HP") < 25) then
hpRegion:highlight(1)
mpRegion:highlight(1)
scriptExit("HP < 25%\n可能腳本不相容於螢幕長寬比!?")
end

end

function getRatio(powerType)

local ratio = 0
local ratioPoint

if (powerType == "HP") then
ratioPoint = hpRatioStart
else
ratioPoint = mpRatioStart
end

usePreviousSnap(false)

local poison = false;

for ratio = 5, 108, 5 do

local loc = ratioPoint:offset(ratio, 0)
local r, g, b = getColor(loc)

if (powerType == "HP" and g > 0x18 and r < 0x40 and ratio == 5) then
poison = true;
end

usePreviousSnap(true)

if (powerType == "HP" and ((not poison and r < 0x80) or (poison and g < 0x18))) then
usePreviousSnap(false)
return math.floor((ratio - 5) * 100/108), poison
end

if (powerType == "MP" and b < 0x70) then
usePreviousSnap(false)
return math.floor((ratio - 5) * 100/108)
end

end

usePreviousSnap(false)
return 95, poison

end

function detectDimension(reg, target, initDimension)

local defaultDimension = preferenceGetNumber("defaultDimension", initDimension)

local dimension = autoResize(target, defaultDimension, true, reg)

if (dimension < 0 and defaultDimension ~= initDimension) then
dimension = autoResize(target, 720, true, reg)
end

if (dimension < 0) then
scriptExit("error:\n 　no talk\n 　\n 　\n 　(1)尚未進入遊戲!?\n 　\n 　(2)不支援的長寬比!?")
end

dimA()

print("")
print("")
print("Ver： " .. version)
print("")
preferencePutNumber("defaultDimension", dimension)
return dimension

end

function setHitTarget()

local auto = talkRegion:wait("talk.png", 0)
local width = 84
local yOffset = -45

local upperLeftCorner = auto:getCenter():offset(125, -80)
shortCutRegion = Region(upperLeftCorner:getX(), upperLeftCorner:getY(), 900, 300)
shortCutHitTable = {}

for i = 1, 4 do
table.insert(shortCutHitTable, auto:offset(175 + (i - 1) * width, yOffset))
if (light0) then
shortCutHitTable:offset(0, 50):highlight(" " .. i)
end
end

for i = 5, 8 do
table.insert(shortCutHitTable, auto:offset(600 + (i - 5) * width, yOffset))
if (light0) then
shortCutHitTable:offset(0, 50):highlight(" " .. i)
end
end

end

function setupRegions(horizontalImmersive, verticalImmersive, width)

local deviceWidth
if (horizontalImmersive) then
deviceWidth = getRealScreenSize():getX()
else
deviceWidth = getAppUsableScreenSize():getX()
end

local deviceHeight
if (verticalImmersive) then
deviceHeight= getRealScreenSize():getY()
else
deviceHeight = getAppUsableScreenSize():getY()
end

local height = deviceHeight * width / deviceWidth

upRegion = Region(0, 0, width, height/2)
upperRegion = Region(0, 0, width, height/3)
uppestRegion = Region(0, 0, width, height/4)

upLeftRegion = Region(0, 0, width/2, height/2)
upLefterRegion = Region(0, 0, width/3, height/2)
upLeftestRegion = Region(0, 0, width/4, height/2)
upCenterRegion = Region(width/3, 0, width/3, height/2)
upRightRegion = Region(width/2, 0, width/2, height/2)
upRighterRegion = Region(width*2/3, 0, width/3, height/2)
upRightestRegion = Region(width*3/4, 0, width/4, height/2)

upperLeftRegion = Region(0, 0, width/2, height/3)
upperLefterRegion = Region(0, 0, width/3, height/3)
upperLeftestRegion = Region(0, 0, width/4, height/3)
upperCenterRegion = Region(width/3, 0, width/3, height/3)
upperRightRegion = Region(width/2, 0, width/2, height/3)
upperRighterRegion = Region(width*2/3, 0, width/3, height/3)
upperRightestRegion = Region(width*3/4, 0, width/4, height/3)

uppestLeftRegion = Region(0, 0, width/2, height/4)
uppestLefterRegion = Region(0, 0, width/3, height/4)
uppestLeftestRegion = Region(0, 0, width/4, height/4)
uppestCenterRegion = Region(width/3, 0, width/3, height/4)
uppestRightRegion = Region(width/2, 0, width/2, height/4)
uppestRighterRegion = Region(width*2/3, 0, width/3, height/4)
uppestRightestRegion = Region(width*3/4, 0, width/4, height/4)

centerLeftRegion = Region(0, height/3, width/2, height/3)
centerLefterRegion = Region(0, height/3, width/3, height/3)
centerLeftestRegion = Region(0, height/3, width/4, height/3)
centerCenterRegion = Region(width/3, height/3, width/3, height/3)
centerRightRegion = Region(width/2, height/3, width/2, height/3)
centerRighterRegion = Region(width*2/3, height/3, width/3, height/3)
centerRightestRegion = Region(width*3/4, height/3, width/4, height/3)

lowLeftRegion = Region(0, height/2, width/2, height/2)
lowLefterRegion = Region(0, height/2, width/3, height/2)
lowLeftestRegion = Region(0, height/2, width/4, height/2)
lowCenterRegion = Region( width/3, height/2, width/3, height/2)
lowRightRegion = Region( width/2, height/2, width/2, height/2)
lowRighterRegion = Region(width*2/3, height/2, width/3, height/2)
lowRightestRegion = Region(width*3/4, height/2, width/4, height/2)

lowerLeftRegion = Region(0, height*2/3, width/2, height/3)
lowerLefterRegion = Region(0, height*2/3, width/3, height/3)
lowerLeftestRegion = Region(0, height*2/3, width/4, height/3)
lowerCenterRegion = Region(width/3, height*2/3, width/3, height/3)
lowerRightRegion = Region(width/2, height*2/3, width/2, height/3)
lowerRighterRegion = Region(width*2/3, height*2/3, width/3, height/3)
lowerRightestRegion = Region(width*3/4, height*2/3, width/4, height/3)

lowestLeftRegion = Region(0, height*3/4, width/2, height/4)
lowestLefterRegion = Region(0, height*3/4, width/3, height/4)
lowestLeftestRegion = Region(0, height*3/4, width/4, height/4)
lowestCenterRegion = Region( width/3, height*3/4, width/3, height/4)
lowestRightRegion = Region( width/2, height*3/4, width/2, height/4)
lowestRighterRegion = Region(width*2/3, height*3/4, width/3, height/4)
lowestRightestRegion = Region(width*3/4, height*3/4, width/4, height/4)

lowRegion = Region(0, height/2, width, height/2)
lowerRegion = Region(0, height*2/3, width, height/3)
lowestRegion = Region(0, height*3/4, width, height/4)


centerRegion = Region(0, height / 3, width, height / 3)


leftRegion = Region(0, 0, width / 2, height)
lefterRegion = Region(0, 0, width / 3, height)
leftestRegion = Region(0, 0, width / 4, height)

rightRegion = Region(width / 2, 0, width / 2, height)
righterRegion = Region(width *2/3, 0, width / 3, height)
rightestRegion = Region(width * 3 / 4, 0, width / 4, height)

end

function dimA()

if (dim) then
setBrightness(128)
wait(5)
end

end



--參數設定
function fightSetup()

local shortCutTable = {"1", "2", "3", "4", "5", "6", "7", "8" }

dialogInit()
addCheckBox("light0", "Light　", true)

addCheckBox("dim", "Black screen　", false)

newRow()
addCheckBox("attack", "遭敵 -> ", false)
addTextView ("回卷：")
addSpinnerIndex("home1Key", shortCutTable, 1)

addCheckBox("checkKill", "no Kill -> ", true)
addTextView ("瞬卷：")
addSpinnerIndex("home2Key", shortCutTable, 2)

addCheckBox("shortCutEnable9" , "aoto map", false)

addSeparator()
addCheckBox("shortCutEnable5" , "魔：mp > ", false)
addEditNumber("hmpValue5",80)
addTextView ("%：")
addSpinnerIndex("shortCut5",shortCutTable,4)
addTextView ("-wait(")
addEditNumber("hmpSec5",0)
addTextView (")　")

addCheckBox("shortCutEnable2" , "血： hp < ", false)
addEditNumber("hmpValue2",65)
addTextView ("%：")
addSpinnerIndex("shortCut2",shortCutTable,5)
addTextView ("-wait(")
addEditNumber("hmpSec2",0)
addTextView (")")


newRow()
addCheckBox("shortCutEnable6" , "魔：mp > ", false)
addEditNumber("hmpValue6",70)
addTextView ("%：")
addSpinnerIndex("shortCut6",shortCutTable,3)
addTextView ("-wait(")
addEditNumber("hmpSec6",0)
addTextView (")　")

addCheckBox("shortCutEnable3" , "血： hp < ", false)
addEditNumber("hmpValue3",50)
addTextView ("%：")
addSpinnerIndex("shortCut3",shortCutTable,1)
addTextView ("-wait(")
addEditNumber("hmpSec3",9)
addTextView (")")

addSeparator()
addCheckBox("shortCutEnable4" , "魔：mp < ", false)
addEditNumber("hmpValue4",80)
addTextView ("%：")
addSpinnerIndex("shortCut4",shortCutTable,7)
addTextView ("-wait(")
addEditNumber("hmpSec4",0)
addTextView (")　")

addCheckBox("shortCutEnable1" , "血： hp < ", false)
addEditNumber("hmpValue1",85)
addTextView ("%：")
addSpinnerIndex("shortCut1",shortCutTable,6)
addTextView ("-wait(")
addEditNumber("hmpSec1",0)
addTextView (")")

newRow()
addCheckBox("poison1", "解毒：", false)
addSpinnerIndex("poisonKey", shortCutTable, 8)

addCheckBox("curse1", "詛咒：", false)
addSpinnerIndex("curseKey", shortCutTable, 8)

dialogShowFullScreen("設定")
end

-- ========== Settings ================

Settings:setCompareDimension(true, 1280)
Settings:setScriptDimension(true, 1280)
similar = 0.7
Settings:set("MinSimilarity", similar)
localPath = scriptPath()
setImmersiveMode(true)
dofile(localPath .. "lib/commonLib.lua")

--autoRegion = Region(798, 347, 332, 453)
talkRegion = Region(270, 645, 160, 155)
dimension = detectDimension(talkRegion, Pattern("talk.png"):similar(0.65), 1280)

setupRegions(true, false, dimension)

fightSetup()

setHighlightTextStyle(0x80000000, 0xf8fecd43, 12)
--smallIconRegion = Region(55, 80, 315, 100)
--cancelRegion = Region(320, 70, 100, 100)
--if (cancelRegion:existsClick("cancel.png", 2)) then

initSetup()
setHitTarget()

cancelPattern = Pattern("cancel.png"):similar(0.8)
local teamPattern = Pattern("team.png"):similar(0.8)

--left9 = Region(380,150, 180, 40)
--left0 = Region(550,115, 180, 35)
--left2 = Region(550,150, 180, 35)
left0 = Region(1075,70, 180, 30)
left1 = Region(1075,100, 170, 30)
left2 = Region(550,175, 180, 30)

skillSec = 0
skillTimer = Timer()
killTimer = Timer()
waitTimer1 = Timer()
xhpTimer1 = Timer()
hmpTimer1 = Timer()
hmpTimer2 = Timer()
hmpTimer4 = Timer()
hmpTimer5 = Timer()
hmpTimer6 = Timer()

--####################################
mpValue4 = 25
if ( (shortCutEnable4) and (hmpSec4==0) ) then
hmpSec4 = 1.6
end
if ( (shortCutEnable1) and (hmpSec1==0) ) then
hmpSec5 = 0.6
end

if ( (shortCutEnable5) and (hmpSec5==0) ) then
hmpSec5 = 0.6
end
if ( (shortCutEnable2) and (hmpSec2==0) ) then
hmpSec2 = 0.3
end





if (dim) then
setBrightness(1)
end

left0:highlight("自動戰鬥中")
wait(2)
if (dim) then
setBrightness(1)
end
--//////////////////////////////////////////////////////////////////////////

while (true) do
while (true) do
usePreviousSnap(false)
local hpRatioInt, poisoned = getRatio("HP")
local hpRatio = hpRatioInt / 100
local mpRatioInt = getRatio("MP")
local mpRatio = mpRatioInt / 100
left2:highlightOff()
left1:highlightOff()

if (attack) then
if ( exists("attack.png", 0) and hpRatioInt>75 ) then
killTimer:set()
if ( hpRatioInt <5 or (poisoned) ) then
break
else
if ( hpRatioInt > 75 ) then
left2:highlight("!　戰鬥中　!")
else
click(shortCutHitTable[home1Key])
dimA()
scriptExit("受辱 !　回城")
end
end
end
end

if (hpRatioInt<5 or (poisoned))then
if (not exists("talk.png", 0) ) then
left2:highlight("Time out (5)")
wait(5)
killTimer:set()
break
end
end

wait(0.2)

if (poisoned) then
killTimer:set()
if ( exists("gg02.png", 0) ) then
if (poison1) then
if (skillTimer:check() > skillSec) then
click(shortCutHitTable[poisonKey])
left2:highlight("!　解毒術　! " .. poisonKey)
wait(1)
skillSec = xhpSec1
skillTimer:set()
break
end
end
left2:highlight("!　中毒　!")
wait(1.5)
end
if ( exists("gg01.png", 0) ) then
if (curse1) then
if (skillTimer:check() > skillSec) then
click(shortCutHitTable[curseKey])
left2:highlight("!　聖潔之光　! " .. curseKey)
wait(1)
skillSec = xhpSec1
skillTimer:set()
break
end
end
left2:highlight("!　詛咒　!")
wait(1.5)
end
end
if (shortCutEnable3) then
if (hpRatioInt<hmpValue3 and hpRatioInt>5) then
if (poisoned) and (not exists("talk.png", 0) ) then
left2:highlight("!　? HP ?　!")
else
click(shortCutHitTable[shortCut3])
dimA()
scriptExit("!　命危　!" )
end
end
end

if (shortCutEnable2) then
if (hpRatioInt<hmpValue2 and hmpTimer2:check() > hmpSec2) then
click(shortCutHitTable[shortCut2])
left1:highlight("HP: " .. hpRatioInt .. "%")
left2:highlight("!　澄水 + +　! " .. shortCut2)
hmpTimer2:set()
break
end
end

if (shortCutEnable1) then
if (hpRatioInt<hmpValue1 and mpRatioInt>mpValue4 and skillTimer:check() > skillSec ) then
left2:highlightOff()
left1:highlight("HP: " .. hpRatioInt .. "%")
left2:highlight("!　高治　! " .. shortCut1)
click(shortCutHitTable[shortCut1])
skillSec = hmpSec1
skillTimer:set()
end
end

if (shortCutEnable4) then
if ( ( mpRatioInt<hmpValue4 ) and skillTimer:check() > skillSec ) then
left1:highlight("MP: " .. mpRatioInt .. "%")
left2:highlight("!　混體　! " .. shortCut4)
click(shortCutHitTable[shortCut4])
skillSec = hmpSec4
skillTimer:set()
end
end


--MP 攻擊 1 & 2
if (shortCutEnable6) then
if (mpRatioInt>hmpValue6) then
if (skillTimer:check() > skillSec) then
left2:highlightOff()
left2:highlight("!　MP skill 2　! " .. shortCut6)
click(shortCutHitTable[shortCut6])
skillSec = hmpSec6
skillTimer:set()
end
end
end
if (shortCutEnable5) then
if (mpRatioInt>hmpValue5) then
if (skillTimer:check() > skillSec) then
left2:highlightOff()
left2:highlight("!　三重矢　! " .. shortCut5)
click(shortCutHitTable[shortCut5])
skillSec = hmpSec5
skillTimer:set()
end
end
end

if (checkKill) then
if (centerRightestRegion:exists("kill.png", 0)) then
left1:highlightOff()
killTimer:set()
else
kiss1 = killTimer:check()
left1:highlight(" " .. killTimer:check())
if (killTimer:check() > 30) then
click(shortCutHitTable[home2Key])
wait(3)
killTimer:set()
left1:highlightOff()
end
end
end
end
end