[EZS-Marco]釣魚專用-bata1.0

[秋天]

還是失敗耶
不行
程式一直跑人物就是不動

[Ziku]

可以幫忙加段 如果損血
裝備武器 開始打怪嬤

常常掛網 被水元素 或海怪打死

[zoune]

有看沒董阿用不起來可否說明一下阿....謝

[Amosa]

原始檔:ody_fish.ezs (請按右鍵>另存新檔)
必要檔案:
EZscript2.1.1.1 + uop.dll
UOAssist
不知道有人用成功嗎??
現在已存在問題好像是WIN98跑這個程式會有問題..
不直到其他版本的作業系統會不會也如此!!

我又把程式做了一點修改~
希望對大家有點幫助..防止不肖人士偷魚!!

代碼: 選擇全部

//----[EZS-Marco]釣魚專用-bata1.1------------------
//作者:Amosa(war-Amosa)
//ICQ:71081376
//環境: win2000-pro;
           ELSA 511 64mb
           256rambus MDI japen
//>the lastest update:
//>>新增來回釣魚
//>>更正魚片數量的錯誤
//>>更正顏色問題
//pos1,var1,pos2,var2,pos5,var5不要變 
//pos3 釣魚的點 
//pos4 沒魚的時候走的方向 
//pos6 走的方向
//pos7 回走的方向
//var4 走var4步後,迴轉方向走pos5 or pos6
//UOA >macro(15) >set使用 '釣魚杆'
//UOA >macro(16) >set使用'小刀'
//UOA >資源> user2 set為 '魚片'
//-----------------------------------------------------------

//*取得座標顏色 
pos1 = 19792272 
pos2 = 19530139 
pos5 = 18743682 

var1 = color[pos1] 
var3 = color[pos3] 
var5 = color[pos5] 

while var7 < var4
    if color[pos1] != var1 
        sendmacro(16) 
        delay(500) 
        left click pos1 
        delay(1000) 
        if color[pos2] = var2 
            Drag all From pos2 to pos8 
        end if 
        delay(500)
        echo "共有$[user2]塊生魚片,負重$[wght]/$[maxwght]\n" 
        echo "Fishing skill = $[sskill[18]/10].$[sskill[18]%10]\n" 
        delay(1000) 
    end if 

    if color[pos5] != var5 
        sendmacro(16) 
        delay(500) 
        left click pos5 
        delay(500) 
        if color[pos2] = var2 
            Drag all From pos2 to pos8 
            delay(1000) 
        end if 
    end if 

    if color[pos1] = var1 
        sendmacro(15) 
        delay(400) 
        left click pos3 
        var8=1 
        repeat 20 
            if color[pos3] = var3 
                var8 = var8+1 
            end if 
            if color[pos3] != var3 
                var8 = var8-1 
            end if 
            if var8 >= 20 || var8 <= -19
                right DBclick pos4 
                delay(1000) 
                var1 = color[pos1] 
                var3 = color[pos3] 
                var5 = color[pos5] 
                var7 = var7+1
                break 
            end if 
            delay(200) 
        end repeat 
    end if 
wend 
var7 = 0
var6 = var6+1
if (var6%2 = 0)
    pos4 = pos6
else
    pos4 = pos7
end if

[DS]

什麼是"uop.dll"呢？ ??
我找了好久呢...

給你連結..
快抓..
UOP.dll

[Molly]

什麼是"uop.dll"呢？ ??
我找了好久呢...

[Amosa]

-程式主要功能:
1.釣魚...(廢話..)
2.假使釣到魚,會把地上的魚切片,然後拖入背包
3.假使釣的地點沒有魚了,會走向你設定的畫面地點
-程式需求:
1.EZScript2.1.1.1 + uop.dll
2.UOA
3.將macro(15) 設為 使用釣魚杆
4.將macro(16) 設為 使用切魚肉工具
---code---------------------------------

代碼: 選擇全部

//----[EZS-Marco]釣魚專用-bata1.0-----
//
// pos1,var1,pos2,var2,pos5,var5不要變
//pos3 釣魚的點
//pos4 沒魚的時候走的方向
//-------------------------------------------

//*取得座標顏色
var1 = color[pos1]
var3 = color[pos3]
var5 = color[pos5]
pos1 = 19792272
pos2 = 19530139
pos5 = 18743682


while 1
if color[pos1] != var1
    sendmacro(16)
    delay(500)
    left click pos1
    delay(1000)
    if color[pos2] = var2
        Drag all From pos2 to pos8
    end if
    echo "共有$[user2]塊生魚片,負重$[wght]/$[maxwght]\n"
    echo "Fishing skill = $[sskill[18]/10].$[sskill[18]%10]\n"
    delay(1000)
end if

if color[pos5] != var5
    sendmacro(16)
    delay(500)
    left click pos5
    delay(500)
    if color[pos2] = var2
        Drag all From pos2 to pos8
        delay(1000)
    end if
end if

if color[pos1] = var1
    sendmacro(15)
    delay(400)
    left click pos3
    var8=1
    repeat 20
        if color[pos3] = var3
            var8 = var8+1
        end if
        if color[pos3] != var3
            var8 = var8-1
        end if
        if var8 >= 20
            right DBclick pos4
            delay(1000)
            var1 = color[pos1]
            var3 = color[pos3]
            var5 = color[pos5]
            break
        end if
        delay(200)
    end repeat
end if
wend

使用上如有問題,請回post上來,小弟會幫您解決!!!!