Yoko

Code: Select all

sub Fishing() 
var mX, mY, mZ, i, j 
var f 
var a=0 
#################### 
### Ìåíþ/Options ### 
#################### 
######################################################################### 
### 
var TryToHide=0 ## 1 - Âêëþ÷èòü óõîä(ïåðåä ëîâëåé) â õàéä, 0 - âûêëþ÷èòü. 
### 
var TakeFish=1 ## 1 - Âêëþ÷èòü ñáîð îáû÷íîé ðûáû, 0 - âûêëþ÷èòü. 
### 
var TakeMaps=1 ## 1 - Âêëþ÷èòü ñáîð êàðò, 0 - âûêëþ÷èòü. 
### 
var TakeRareFish=1 ## 1 - Âêëþ÷èòü ñáîð ðàðíîé ðûáû, 0 - âûêëþ÷èòü. 
### 
var TakePrizeFish=1 ## 1 - Âêëþ÷èòü ñáîð ïðèç ðûáû, 0 - âûêëþ÷èòü. 
### 
var MaxWeight=430 ## - Âåñ ïðè êîòîðîì ñêðèïò âûêëþ÷èòüñÿ. 
### 
######################################################################### 
################### 
### Ìàññèâ ðûáû ### 
################### 
dim Fish[6] 
Fish[0]=0x09CC  
Fish[1]=0x09CD  
Fish[2]=0x09CE  
Fish[3]=0x09CF 
Fish[4]=0x14EB 
Fish[5]=0x0DD6 
Fish[6]=0x0DD6 




Beginning: 
uo.Set('finddistance','6') 
mX = uo.getX("self") 
mY = uo.getY("self") 
mZ = uo.getZ("self") 
uo.DeleteJournal() 
for i = mX-6 to mX+6 
for j = mY-6 to mY+6  
if uo.Dead() then 
return 
end if 

if TryToHide==1 then 
ToHide() 
end if 

uo.Print("Ñåé÷àñ ëîâèì: "+str(mx-i)+" "+str(my-j)) 

while not uo.InJournal("You pull") and not uo.InJournal("in water") and not uo.InJournal("no fish") and not uo.InJournal("far away") 
uo.DeleteJournal() 
uo.Waittargettile("1341", str(i), str(j), str(mZ)) 
uo.Usetype('0x0DBF') 
if uo.Dead() then 
return 
end if 
if uo.Weight>MaxWeight then 
wait(4000) 
goto Beginning 
end if 
while not uo.InJournal("You pull") and not uo.InJournal("location") and not uo.InJournal("no fish") and not uo.InJournal("but fail") and not uo.InJournal("far away") and not uo.InJournal("in water") 
wait (100) 
if uo.InJournal("You pull") then 

if a>0 then 
uo.print(STR(a)) 
end if 

if TakeFish==1 then 
uo.Print('Ñîáèðàåì ðûáó.') 
for f=0 to 3 
uo.FindType(Fish[f],"-1","ground") 
if uo.Count(Fish[2])> 0 then 
a= a+1 
end if 
uo.MoveItem("finditem","1","Fishs") 
wait(200) 
next 
end if 

if TakeMaps==1 then 
uo.Print('Ñîáèðàåì êàðòû.') 
for f=4 to 4 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","Maps") 
wait(200) 
next 
end if 

if TakeRareFish==1 then 
uo.Print('Ñîáèðàåì ðàð ðûáó.') 
for f=5 to 5 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","RareFish") 
wait(200) 
next 
end if 

if TakePrizeFish==1 then 
uo.Print('Ñîáèðàåì ïðèç ðûáó.') 
for f=6 to 6 
uo.FindType(Fish[f],"-1","ground") 
uo.MoveItem("finditem","-1","PrizeFish") 
wait(200) 
next 
end if 
  
end if 
wend 
wend 
uo.DeleteJournal() 
next 
next 
end sub 

sub ToHide() 
while not uo.Hidden() 
uo.Exec('warmode 0') 
uo.Print('Ïûòàåìñÿ óéòè â õàéä...') 
uo.DeleteJournal() 
uo.UseSkill('Stealth') 
wait(4100) 
wend 
wait(100) 
end sub 

sub Reconnector() 
var ReconnectTime, RFlag 
ReconnectTime = '0' 
RFlag = 1 
Repeat 
While (UO.ObjAtLayer('Bpack') == '') 
if RFlag Then 
ReconnectTime = MakeTime() 
RFlag = 0 
endif 
Wait(20000) # WorldSave Protection 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.Say('') 
Wait(3000) 
UO.LDblClick(357,164) 
UO.LClick(616,459) 
Wait(3000) 
WEnd 
Wait(3000) 
if (RFlag == 0) and (ReconnectTime <> '0') Then 
;UO.Exec('terminate all') 
;UO.Exec('exec autoload') 
UO.TextOpen() 
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
RFlag = 1 
ReconnectTime = '0' 
endif 
Until false 
end sub 

sub MakeTime() 
VAR D, T, Ret, i 
Ret = STR(UO.Time()) 
T = "" 
For i = 0 To Len(Ret) 
T = Ret[Len(Ret)-i] + T 
If (I == 2) OR (I == 4) Then 
T = ":" + T 
EndIf 
Next 
Ret = STR(UO.Date()) 
D = "" 
For i = 0 To Len(Ret) 
D = Ret[Len(Ret)-i] + D 
If (I == 2) OR (I == 4) Then 
D = "." + D 
EndIf 
Next 
Ret = T + " @ " + D 
RETURN Ret 
end sub 

sub rasklad() 
  var map='0x14EB' 
  uo.Exec('addobject meshok') 
  while uo.Targeting() 
    wait(100) 
  wend 
  uo.FindType(map,'-1','backpack') 
  while uo.FindCount() 
    uo.FindType(map,'-1','backpack') 
    uo.moveitem('finditem','1','meshok') 
    wait(500) 
  wend 
end sub