英雄論壇

會自動打怪, 但東西得自己撿

[variable]
var1=3
var2=2
var3=22
var4=22
var5=500
var6=12000
var7=5
var8=
pos1=19005840
pos2=20447610
pos3=
pos4=
[script]
//
// 挖礦和釣魚通用程式
//
// 設 F11 為 拿工具 的UOA熱鍵
// 設 F7 為 拿武器 的UOA熱鍵
// 設 F8 為 補繃帶 的UOA熱鍵
//
// 設 pos1為你站的位置
//
// var5 為 等待工具時間
// var6 為 等待動作時間
// 挖礦 12000，釣魚 3000
// var7 設 5 是挖礦，設 13 是釣魚
//
// ---------- 改變項目修改此處 ----------
var5=500
var6=12000
var7=5
var1=0
// ----------------------------------------------

repeat var7

var2=0

repeat var7
var3=(var1-var2)*22
var4=(var1+var2-var7+1)*22
pos2=pos1-x(var3)+y(var4)

if hits < str
repeat 10
sendkey(f8)
delay(100)
sendkey(f7)
delay(3000)
end repeat
end if

sendkey(f6)
delay(var5)

left click at pos2
delay(var6)

var2=var2+1
end repeat

var1=var1+1
end repeat

While Var1<=3
sendmacro(14)
delay 1000
var1=var1+1
wend

repeat 3
drag all from pos1 to pos2
delay 1000
sendkey(F7)
delay 4000
end repeat
var1=0

------------------------------------------------------------
//Pos1 腳下魚的位置
//Pos2 自己身上
//Pos5 門口上鎖箱位置
//Pos7 背包左上角
//Pos8 背包右上角

[variable]
Var1=0

On Hits<STR Jump Heal

While Var1<=3

goto 3616,2657
Call Fish

goto 3625,2657
Call Fish

goto 3634,2657
Call Fish

goto 3643,2657
Call Fish

goto 3643,2665
Call Fish

goto 3646,2676
Call Fish

goto 3646,2683
Call Fish

goto 3650,2683
Call Fish

goto 3650,2676
Call Fish

goto 3650,2665
Call Fish

goto 3650,2657

Var1=Var1+1
wend

repeat 3
sendkey(9)
sendkey(F7)
delay 4000
end repeat
var1=0

stop

//Heal myself
Heal:
If Hits<STR
Say "救命啊！殺人喔！"
Sendkey(Ctrl+65)
Delay 3000
End If
Sendkey(27)
Resume

Fish:
sendmacro(14) //釣魚的巨集
delay 500

//如果重量沒超重，拖魚到身上
If wght<=410
drag all from pos1 to pos2
delay 1000
drag all from pos1 to pos2
delay 1000
drag all from pos1 to pos2
delay 1000
drag all from pos1 to pos2
delay 1000
Sendkey(27)

else if wght>=410
Call Put
end if

end if

\\拖寶圖到身上
While GetColorPos[8107751,pos7,pos8]!=-1
drag all from pos1 to pos2
Wend

return

Put:
sendkey(Ctrl+75)
delay 1000
sendmacro(13)
Delay 5000
//Drag fish
If GetColorPos[8099443,pos7,pos8]!=-1
Drag All from GetColorPos[8099443,pos7,pos8] to pos5
Delay 1000
End IF
If GetColorPos[4872555,pos7,pos8]!=-1
Drag All from GetColorPos[4872555,pos7,pos8] to pos5
Delay 1000
End IF
If GetColorPos[5410493,pos7,pos8]!=-1
Drag All from GetColorPos[5410493,pos7,pos8] to pos5
Delay 1000
End IF
If GetColorPos[9726340,pos7,pos8]!=-1
Drag All from GetColorPos[9726340,pos7,pos8] to pos5
Delay 1000
End IF

sendmacro(12)
delay 5000
return
----------------------------------------------------------------------------------------------------