文章
由 siven » 週日 3月 14, 2004 12:49 pm
//不成熟的作品 不嫌棄的話就用吧~~
//請用32BIT全彩800*600遊戲視窗1024*768系統解析度~
//請騎馬在V城的橋上釣 可增加安全性
//相關的MACRO請自行發問~UOA必備!!
//"排列介面視窗..."的選項請勿勾選!!以及設定開關包包的熱鍵喔~
//晚點PO圖解吧~
//我只用兩個釣場掛一個禮拜就滿了
//應該很好掛~
//這就是我自己使用的版本!
//阿尼絕不藏私~請各位多多指教
//safe button仍然無法解決魚蓋住包包開關的問題 請多注意!!
extvar[2]=0
extvar[3]=0
extvar[9]=0
main:
//=====第一釣場
sendmacro(5)//去第一釣場
extvar[0]=0
if extvar[2]=1
goto 2907,642,16//北上中段
jump area2
end if
if extvar[2]=2
goto 2906,615,16//南下初段
jump area3
end if
if extvar[2]=3
goto 2906,630,16//南下中段
jump area4
end if
area1:
repeat 14
call f1
repeat 2
sendkey(33)
delay(500)
end repeat
end repeat
extvar[2]=1
area2:
repeat 14
call f1
repeat 2
sendkey(33)
delay(500)
end repeat
end repeat
extvar[2]=2
goto 2906,615,16
area3:
repeat 13
call f6
repeat 2
sendkey(35)
delay(500)
end repeat
end repeat
extvar[2]=3
area4:
repeat 13
call f6
repeat 2
sendkey(35)
delay(500)
end repeat
end repeat
extvar[2]=0
//=====第二釣場
fishing2:
sendmacro(6)//去第二釣場
extvar[0]=1
if extvar[3]=1
goto 2881,762,20//北上中段
jump area21
end if
if extvar[2]=2
goto 2906,615,16//南下初段
jump area3
end if
repeat 16
call f1
repeat 2
sendkey(33)
end repeat
end repeat
extvar[3]=1
goto 2881,762,20
area21:
repeat 17
call f6
repeat 2
sendkey(35)
end repeat
end repeat
extvar[3]=0
jump main
f1://北
f2://東北
pos1=XY2pos[461,347]
repeat 10
sendmacro(9)//使用魚竿
left Click pos1
repeat 5
delay 1000
if Hits<str
call combat
end if
if color[35913900] = 8684676
break
end if
end repeat
call loot
if wght>400
call home
end if
pos1=pos1+65536*10+10
end repeat
pos1=pos1-10*10-(65536*10)*10
return
f3://東
f4://東南
f5://南
f6://西南
pos1=XY2pos[367,271]
repeat 8
sendmacro(9)//使用魚竿
left Click pos1
repeat 5
delay 1000
if Hits<str
call combat
end if
if color[35913900] = 8684676
break
end if
end repeat
call loot
if wght>400
call home
end if
pos1=pos1-65536*8-8
end repeat
pos1=pos1+10*8+(65536*10)*8
return
f7://西
f8://西北
//=====Combat
combat:
sendmacro(4)//武裝
sendkey(Alt+s)
delay(4000)
extvar[9]=0
while extvar[9]<3
if hits<30
KeyString "Guard\n"
delay(500)
sendkey(44)
end if
if hits<str
sendkey(Alt+s)
delay(4000)
extvar[9]=0
else
delay(4000)
extvar[9]=extvar[9]+1
end if
wend
return
//=====Loot
loot:
drag all from 19333518 to 15794578
return
//=====Go Home
home:
sendmacro(8)
goto 2035,44
extvar[20]=xy2pos[893,207]
//fish 1
extvar[1]=GetColorPos[5938365,pos7,pos8]
drag all from extvar[1] to 15335860
delay(1000)
if color[extvar[20]]=0
call sb
end if
//fish 2
extvar[1]=GetColorPos[10845076,pos7,pos8]
drag all from extvar[1] to 15335860
delay(1000)
if color[extvar[20]]=0
call sb
end if
//fish 3
extvar[1]=GetColorPos[8096933,pos7,pos8]
drag all from extvar[1] to 15335860
delay(1000)
if color[extvar[20]]=0
call sb
end if
//fish 4
extvar[1]=GetColorPos[6519642,pos7,pos8]
drag all from extvar[1] to 15335860
delay(1000)
if color[extvar[20]]=0
call sb
end if
//bondage
if User1<30
extvar[25]=30 - user1
drag extvar[25] from 17695187 to 15794578
end if
extvar[17] = getcolorpos[3228366,pos7,pos8]
drag all from extvar[17] to 15335860
if color[extvar[20]]=0
call sb
end if
call back
return
//=====Back to Fishing
back:
if extvar[0]=0
//sendmacro(5)//去第一釣場
jump main
end if
if extvar[0]=1
//sendmacro(6)//去第二釣場
jump fishing2
end if
if extvar[0]=2
sendmacro(5)//去第三釣場
end if
return
//=====re-open backpack
//=====safe button
sb:
extvar[21]=xy2pos[884,206]
extvar[22]=xy2pos[896,193]
extvar[23]=xy2pos[909,207]
extvar[24]=xy2pos[897,221]
sendkey(alt+85)
delay(1000)
sendkey(alt+73)
delay(1000)
//drag all from extvar[21] to 15335860
//delay(1500)
drag all from extvar[22] to 15335860
delay(1500)
//drag all from extvar[23] to 15335860
//delay(1500)
//drag all from extvar[24] to 15335860
//delay(1500)
return
HERE LOLITA
GOOD LOLITA
I WON'T HURT YOU
I ALWAYS WANTED A LOLITA LIKE YOU
It seems to accept you as master...XD
Lolita Taming GM了咧~
=========================
嘿嘿嘿...要買火柴嗎?
