會自動打怪, 但東西得自己撿
[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
33 後面罰站
-
- 高級玩家
- 文章: 308
- 註冊時間: 週五 8月 21, 2009 4:13 am
33 後面罰站
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
----------------------------------------------------------------------------------------------------
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
----------------------------------------------------------------------------------------------------
腳色:KIN-snake
誰在線上
正在瀏覽這個版面的使用者:沒有註冊會員 和 3 位訪客