1 頁 (共 1 頁)

半自動四格挖礦SCRIPT

發表於 : 週四 8月 15, 2002 8:14 pm
KleMenT
今天發覺在礦動以外的地方挖礦彩礦會比較多
可能是太無聊的關係所以寫了個半自動又常要坐在電腦前看著又沒什麼用的SCRIPT@@"
很麻煩簡單幾個動作卻又一大段~ 不過還是希望對某些人會有點用^^||

最這一段@@"
[variable]
var1=217
var2=2101264
var3=8421504
var4=1
var5=0
var6=0
var7=1
var8=0
pos1=27787338
pos2=27918414
pos3=7602475
pos4=7799140
pos5=9699691
pos6=
pos7=
pos8=4
[script]
var1=wght
pos8=0
while 1=1
//-----------------------------------------------------
mining:

if wght > Str*4
repeat 5
beep
delay(1500)
end repeat
end if
//-----------------------------------------------------
if hits!=str
sendkey(f4)
delay(3000)
sendkey(9)
end if
//-----------------------------------------------------
delay(1000)
sendkey(f2)
delay(2000)
//-----------------------------------------------------
if getcolorpos[var2,pos1,pos2] > 0
delay(100)
var4=1
var7=1
else
var4=0
end if
//-----------------------------------------------------
if GetColorPos[var3,pos3,pos4] > 0
var7=0
end if
//-----------------------------------------------------
if var4=0
var7=0
var4=0
WaitForWghtInc(15000)
end if
//-----------------------------------------------------
if var7=0
call mining
end if
pos8=pos8+1
call walk
//-----------------------------------------------------
walk:
if pos8=1
repeat 2
SendKey(219)
delay(500)
end repeat
end if
//-----------------------------------------------------
if pos8=2
repeat 2
SendKey(222)
delay(500)
end repeat
end if
//-----------------------------------------------------
if pos8=3
repeat 2
SendKey(221)
delay(500)
end repeat
end if
//-----------------------------------------------------
if pos8=4
repeat 5
beep
delay(1500)
end repeat
stop
end if
wend


下面是解釋^^||
_________________________________________________________________________________________
var1=217 //現在重量
var2=2101264 //頭上失敗時的顏色
var3=8421504 //沒礦時左下的訊息顏色
var4=1 //判斷有沒有礦 1=沒有 0=有
var7=1 //判斷是否繼續挖
pos1=27787338 //頭上左上的顏色位置
pos2=27918414 //頭上右下的顏色位置
pos3=7602475 //左下訊息的左上顏色位置
pos4=7799140 //左下訊息的右下顏色位置
pos8=4 //判斷走的方向

var1=wght
pos8=0
while 1=1
//-----------------------------------------------------
mining:

if wght > STR*4 //判斷重比自己STR大四倍時告訴妳
repeat 5
beep
delay(1500)
end repeat
end if
//-----------------------------------------------------
iron ele: //當有扣血時會一直補血和拿劍盾 在6秒內沒扣血就會繼續挖礦
if hits!=str
sendkey(f4) //f4 用uoa崩帶補血
delay(3000)
sendkey(9) //uoa劍和盾
delay(3000)
call iron ele
end if
//-----------------------------------------------------
delay(1000)
sendkey(f2) //uo設定成挖礦工具 目標自己
delay(2000)
//-----------------------------------------------------
if getcolorpos[var2,pos1,pos2] > 0 //判斷腳下的礦挖完了沒
delay(100)
var4=1
var7=1
else
var4=0
end if
//-----------------------------------------------------
if GetColorPos[var3,pos3,pos4] > 0 //判斷有沒有挖礦失敗
var7=0
end if
//-----------------------------------------------------
if var4=0 //有礦的情況下或有(沒有)失敗的情況下
var7=0
var4=0
WaitForWghtInc(15000) //等待15秒 如果身上重量沒變的話
end if
//-----------------------------------------------------
if var7=0 //判斷腳下的礦還字挖完時繼續挖
call mining
end if
pos8=pos8+1 //判斷行走到別的礦石上
call walk
//-----------------------------------------------------
walk:
if pos8=1
repeat 2
SendKey(219) //219 = 行走左下方向 [S]
delay(500)
end repeat
end if
//-----------------------------------------------------
if pos8=2
repeat 2
SendKey(222) //222 = 行走右下方向 [E]
delay(500)
end repeat
end if
//-----------------------------------------------------
if pos8=3
repeat 2
SendKey(221) //221 = 行走左上方向 [N]
delay(500)
end repeat
end if
//-----------------------------------------------------
if pos8=4 //四格都挖完之後會叫5聲告訴妳
repeat 5
beep
delay(1500)
end repeat
stop
end if
wend