挖礦程式

[HorseLp]

現在伐木點一次都2支或4支
好少 點也好少 不知該怎麼半
不好意思跟sobo要

[sobo]

@@已經看到你在掛了,有問題再跟我講吧。

[carol]

伐木的也貼一下可以嗎>"<不好意思跟SOBO直接拿
boan1986@gmail.com
或寄給我 謝謝您

[sobo]

display 製作人：SOBO
set %a `Oc0R
set %b `O鏞?c燘?
set %c ?l g5Sc ;(換點)
set %d `Oc
return

開頭有一些亂碼

那些是EUO將UO系統的訊息擷取的結果，因為EUO本文是英文的，所以中文訊息會顯示亂碼。
那些訊息是用來判斷是不是這個點沒礦了，或是繼續挖。

[Rock]

有興趣的一起研究吧..

不要叫我幫忙寫=_=

謝謝提供伐木程式 很厲害!!
想研究但實在是不在行 囧

[frand]

display 製作人：SOBO
set %a `Oc0R
set %b `O鏞?c燘?
set %c ?l g5Sc ;(換點)
set %d `Oc
return

開頭有一些亂碼

[sobo]

有興趣的一起研究吧..

不要叫我幫忙寫=_=

[sobo]

display 製作人：SOBO
set %a `Oc0R
set %b `O鏞?c燘?
set %c ?l g5Sc ;(換點)
set %d `Oc
FINDITEM QPF ;尋找找礦工具工具
if #FINDKIND <> 0 ;沒找到工具
{
msg 身上沒工具=口= $
KEY F10
WAIT 25
}
a:
move 1727 971 0
gosub minning
gosub home1
move 1727 972 0
gosub minning
gosub home1
move 1724 974 0
gosub minning
gosub home1
move 1723 976 0
gosub minning
gosub home1
move 1721 977 0
gosub minning
gosub home1
MOVE 1720 978 0
gosub minning
gosub home1
MOVE 1718 989 0 ;轉折

move 1712 991 0
gosub minning
gosub home1
MOVE 1719 991 0 ;轉折

move 1715 997 0
gosub minning
gosub home1
move 1715 1001 0
gosub minning
gosub home1
MOVE 1722 1004 0 ;轉折
msg 點$
move 1718 1008 0
gosub minning
gosub home1
move 1718 1010 0
gosub minning
gosub home1
move 1719 1012 0
gosub minning
gosub home1
move 1720 1014 0
gosub minning
gosub home1
move 1725 1018 0
gosub minning
gosub home1
MOVE 1732 1020 0 ;轉折

move 1728 1022 0
gosub minning
gosub home1
move 1729 1027 0
gosub minning
gosub home1
MOVE 1733 1037 0
gosub minning
gosub home1
MOVE 1734 972 0
gosub minning
gosub home1
move 1735 971 0
gosub minning
gosub home1
goto b

b:
MOVE 1759 967 0
gosub minning3
gosub home33
MOVE 1759 971 0
gosub minning3
gosub home33
MOVE 1756 974 0 ;轉
MOVE 1758 976 0
gosub minning3
gosub home33
MOVE 1756 976 0 ;轉
MOVE 1756 979 0
gosub minning3
gosub home33
MOVE 1756 983 0
gosub minning3
gosub home33
MOVE 1756 987 0
gosub minning3
gosub home33
MOVE 1756 991 0
gosub minning3
gosub home33
MOVE 1757 993 0 ;第一段
gosub minning3
gosub home33

MOVE 1758 996 0 ;第二段
gosub minning3
gosub home33
MOVE 1758 998 0
gosub minning3
gosub home33
MOVE 1760 999 0
gosub minning3
gosub home33
MOVE 1762 1003 0
gosub minning3
gosub home33
MOVE 1766 1007 0
gosub minning3
gosub home33
MOVE 1768 1010 0
gosub minning3
gosub home33
MOVE 1770 1014 0
gosub minning3
gosub home33
MOVE 1771 1016 0
gosub minning3
gosub home33
MOVE 1773 1019 0
gosub minning3
gosub home33
move 1774 1021 0
gosub minning3
gosub home33
move 1775 1024 0
gosub minning3
gosub home33
move 1775 1028 0
gosub minning3
gosub home33
move 1775 1031 0
gosub minning3
gosub home33
move 1759 998 0
move 1755 994 0
move 1755 972 0
move 1736 967 0
goto c

c:
move 1731 971 0 ;轉折點
move 1728 967 0
gosub minning77
gosub home77
move 1728 965 0
gosub minning77
gosub home77
move 1728 963 0
gosub minning77
gosub home77
move 1728 961 0
gosub minning77
gosub home77
move 1728 959 0
gosub minning77
gosub home77
move 1728 957 0
gosub minning77
gosub home77
move 1728 955 0
gosub minning77
gosub home77
move 1727 952 0
gosub minning77
gosub home77
move 1726 950 0
gosub minning77
gosub home77
move 1725 948 0
gosub minning77
gosub home77
move 1724 946 0
gosub minning77
gosub home77
move 1722 944 0
gosub minning77
gosub home77
move 1720 942 0
gosub minning77
gosub home77
move 1720 940 0
gosub minning77
gosub home77
move 1720 938 0
gosub minning77
gosub home77
move 1720 936 0
gosub minning77
gosub home77
move 1720 935 0
gosub minning77
gosub home77
move 1731 971 0;回家點
goto a



sub home1
FINDITEM QPF ;尋找找礦工具工具
if #FINDKIND <> 0 ;沒找到工具
{
msg 沒工具了，回家補@_@ $
gosub gohome2
return
}
if weight > 350
{
msg 太重了 $
gosub gohome1
return
}

sub minning
set #LOBJECTID #findid
event macro 17 0
target
WAIT 10
set #LTARGETX ( #charposx - 1 )
set #LTARGETy ( #charposy )
set #LTARGETKIND 2
event macro 22 0
WAIT 2S
if #weight > 350
{
msg 太重了 $
gosub gohome1
gosub minning
return
}
if %a in #sysmsg
{
gosub minning
return
}
if %b in #sysmsg
{
gosub minning
return
}
if %d in #sysmsg
{
msg 發現彩礦^口^$
gosub minning
return
}
if %c in #sysmsg
{
msg 這裡沒有礦了 =口=$
return
}
return

sub gohome1
move 1735 971 0
move 1737 967 0
key f11 ;放礦
wait 4s
move 1735 971 0
move 1730 972 0
return

sub gohome2
move 1735 971 0
move 1735 967 0
key f10
wait 1s
move 1735 971 0
move 1730 972 0
return

sub home22
FINDITEM QPF ;尋找找礦工具工具
if #FINDKIND <> 0 ;沒找到工具
{
msg 沒工具了，回家補@_@ $
gosub gohome11
return
}
if weight > 350
{
msg 太重了 $
gosub gohome22
return
}
return

sub home33
FINDITEM QPF ;尋找找礦工具工具
if #FINDKIND <> 0 ;沒找到工具
{
msg 沒工具了，回家補@_@ $
gosub gohome44
return
}
if weight > 350
{
msg 太重了 $
gosub gohome33
return
}
return

sub gohome22
move 1756 970 0
move 1734 970 0
move 1737 967 0
key f11
wait 4s
move 1734 970 0
move 1756 970 0
return

sub gohome33
move 1759 998 0
move 1755 994 0
move 1755 972 0
move 1737 967 0
key f11
wait 4s
move 1755 972 0
move 1755 994 0
move 1759 998 0
return

sub gohome11
move 1756 993 0
move 1756 970 0
move 1734 970 0
move 1736 967 0
key f10
wait 1s
move 1734 970 0
move 1756 970 0
return

sub gohome44
move 1759 998 0
move 1755 994 0
move 1755 972 0
move 1736 967 0
key f10
wait 1s
move 1755 972 0
move 1755 994 0
move 1759 998 0
return

sub minning2
set #LOBJECTID #findid
event macro 17 0
target
WAIT 10
set #LTARGETX ( #charposx + 1 )
set #LTARGETy ( #charposy - 1 )
set #LTARGETKIND 2
event macro 22 0
WAIT 2S
if #weight > 350
{
msg 太重了 $
gosub gohome22
gosub minning2
return
}
if %a in #sysmsg
{
gosub minning2
return
}
if %b in #sysmsg
{
gosub minning2
return
}
if %d in #sysmsg
{
msg 發現彩礦^口^$
gosub minning2
return
}
if %c in #sysmsg
{
msg 這裡沒有礦了 =口=$
return
}
return

sub minning3
set #LOBJECTID #findid
event macro 17 0
target
WAIT 10
set #LTARGETX ( #charposx + 1 )
set #LTARGETy ( #charposy - 1 )
set #LTARGETKIND 2
event macro 22 0
WAIT 2S
if #weight > 350
{
msg 太重了 $
gosub gohome33
gosub minning3
return
}
if %a in #sysmsg
{
gosub minning3
return
}
if %b in #sysmsg
{
gosub minning3
return
}
if %d in #sysmsg
{
msg 發現彩礦^口^$
gosub minning3
return
}
if %c in #sysmsg
{
msg 這裡沒有礦了 =口=$
return
}
return

sub home77
FINDITEM QPF ;尋找找礦工具工具
if #FINDKIND <> 0 ;沒找到工具
{
msg 沒工具了，回家補@_@ $
gosub gohome66
return
}
if weight > 350
{
msg 太重了 $
gosub gohome77
return
}

sub minning77
set #LOBJECTID #findid
event macro 17 0
target
WAIT 10
set #LTARGETX ( #charposx - 1 )
set #LTARGETy ( #charposy )
set #LTARGETKIND 2
event macro 22 0
WAIT 2S
if #weight > 350
{
msg 太重了 $
gosub gohome1
gosub minning77
return
}
if %a in #sysmsg
{
gosub minning77
return
}
if %b in #sysmsg
{
gosub minning77
return
}
if %d in #sysmsg
{
msg 發現彩礦^口^$
gosub minning77
return
}
if %c in #sysmsg
{
msg 這裡沒有礦了 =口=$
return
}
return

sub gohome77
move 1731 971 0
move 1737 967 0
key f11 ;放礦
wait 4s
move 1731 971 0
return

sub gohome66
move 1731 971 0
move 1736 967 0
key f10
wait 1s
move 1731 971 0
return

[kean]

如題:
請問有人有挖礦程式ㄇ?
我建議一下:看誰有什ㄇ程式把它PO上來
大家都可以很方便ㄉ使用