英雄論壇

底下的挖礦程式
是我在某一天很閒的情形下寫的....@@"

弁遄G
一、能將彩礦留在背包，把鐵礦放在腳下
二、能判斷挖的點是否挖完，挖完就挖下一個點
三、挖到鐵礦後、馬上換挖下一個點，不會等待時

缺點：畫面不能縮小(也就是不能逛網頁^^")



<font size=-1>[ 這篇文章被編輯過: joedarty 在 2001-12-12 19:46 ]</font>

還沒好 ~~ @@" what is this ?

[variable]
var1=0 // 暫存「沒有礦」訊息color值
var2=500 // 使用挖礦工具delay時間
var3=1000 // 同var2
var4=
var5=
var6=
var7=
var8=2104352 // 訊息回應「沒有礦」的color

pos1=28246225 // 「沒有礦」訊息的出現點
pos2=44237459 // 背包右下的位置
pos3=40501846 // 背包鐵礦的位置(不需設定)
pos4=16515394 // 腳下放鐵礦的位置
pos5=31457767 // 背包左上的位置
pos6=
pos7=
pos8=
[script]
//(1)
delay(1000)
sendkey(f8)
delay(var2)
left click 19923293
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

pos3 = GetColorPos[3159152,pos5,pos2]
delay(500)
drag all from pos3 to pos4
delay(500)
//(2)
sendkey(f8)
delay(var2)
left click 19071331
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(3)
sendkey(f8)
delay(var2)
left click 18022774
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(4)
delay(1000)
sendkey(f8)
delay(var2)
left click 15991184
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(5)
sendkey(f8)
delay(var2)
left click 14811541
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(6)
sendkey(f8)
delay(var2)
left click 20316468
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(7)
sendkey(f8)
delay(var2)
left click 18350413
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(8)
delay(1000)
sendkey(f8)
delay(var2)
left click 16974176
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

pos3 = GetColorPos[3159152,pos5,pos2]
delay(500)
drag all from pos3 to pos4
delay(500)

//(9)
sendkey(f8)
delay(var2)
left click 15204726
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(10)
sendkey(f8)
delay(var2)
left click 13894025
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(11)
sendkey(f8)
delay(var2)
left click 18153737
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(12)
sendkey(f8)
delay(var2)
left click 16908588
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(13)
delay(1000)
sendkey(f8)
delay(var2)
left click 15991120
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

pos3 = GetColorPos[3159152,pos5,pos2]
delay(500)
drag all from pos3 to pos4
delay(500)

//(14)
sendkey(f8)
delay(var2)
left click 13238626
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(15)
delay(500)
sendkey(f8)
delay(var2)
left click 12583282
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(16)
sendkey(f8)
delay(var2)
left click 16711936
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(17)
sendkey(f8)
delay(var2)
left click 15663378
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(18)
sendkey(f8)
delay(var2)
left click 13893931
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

pos3 = GetColorPos[3159152,pos5,pos2]
delay(500)
drag all from pos3 to pos4
delay(500)

//(19)
sendkey(f8)
delay(var2)
left click 12910900
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(20)
delay(500)
sendkey(f8)
delay(var2)
left click 11469148
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(21)
sendkey(f8)
delay(var2)
left click 15139068
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(22)
sendkey(f8)
delay(var2)
left click 13435143
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(23)
sendkey(f8)
delay(var2)
left click 12648734
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(24)
sendkey(f8)
delay(var2)
left click 11862311
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if

//(25)
sendkey(f8)
delay(var2)
left click 9830713
delay(var3)
var1=Color[pos1]
if var1 != var8
WaitForWghtChange(16000)
end if


pos3 = GetColorPos[3159152,pos5,pos2]
delay(500)
drag all from pos3 to pos4
delay(500)


<font size=-1>[ 這篇文章被編輯過: joedarty 在 2001-12-12 18:59 ]</font>

康康，你的icq 還沒好嗎?

包無 ~~ 包無 ~~

....@0@

var5=1000
var6=11000
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)
sendkey(f9)
delay(var5)
left click at pos2
delay(var6)
var2=var2+1
end repeat
var1=var1+1
end repeat