Yoko

var tkill=4 
var SOSBP = "ground"
var MapBP = "ground"
sub var()
UO.exec('findtype 0x0dbf  -1 ground')
if UO.findcount()<>0 then
UO.SetGlobal('fishing pole','1')
else
UO.exec('findtype 0x0dbf -1 backpack')
if UO.findcount()==0 then
UO.Print(' áýêïàêå óäî÷åê íåò')
UO.exec('terminate main')
endif
endif
endsub

sub main()
DIM FishingStuff[6]
FishingStuff[0] = "0x09CC" # Grey Fish
FishingStuff[1] = "0x09CD" # Green Fish
FishingStuff[2] = "0x09CE" # Blue Fish
FishingStuff[3] = "0x09CF" # Yellow Fish
FishingStuff[4] = "0x099F" # SOS bottle
FishingStuff[5] = "0x14ED" # old tattered map
var()
UO.exec('warmode 0')
var a
UO.exec('terminate reconnector')
UO.exec('exec reconnector')
dim targ[35]
targ[1]="6039 4425 2530 223" 
targ[2]="0 4425 2529 223"
targ[3]="6040 4431 2531 223"
targ[4]="6042 4430 2531 223"
targ[5]="6042 4430 2531 223"
targ[6]="6039 4428 2531 223"
targ[7]="6044 4427 2531 223"
targ[8]="6041 4426 2530 223"
targ[9]="0 4427 2529 223"
targ[10]="6039 4428 2530 223"
targ[11]="6039 4428 2530 223"
targ[12]="6041 4429 2530 223"
targ[13]="6044 4430 2530 223"
targ[14]="6044 4431 2530 223"
targ[15]="0 4427 2523 223"
targ[16]="0 4428 2523 223"
targ[17]="0 4429 2523 223"
targ[18]="0 4429 2522 223"
targ[19]="0 4430 2522 223"
targ[20]="0 4431 2522 223"
targ[21]="0 4432 2523 223"
targ[22]="0 4431 2523 223"
targ[23]="0 4430 2523 223"
targ[24]="0 4429 2523 223"
targ[25]="0 4429 2523 223"
targ[26]="0 4428 2523 223"
targ[27]="0 4427 2523 223"
targ[28]="0 4426 2523 223"
targ[29]="0 4426 2524 223"
targ[30]="0 4427 2524 223"
targ[31]="0 4428 2524 223"
targ[32]="0 4429 2524 223"
targ[33]="6042 4430 2531 223"
targ[34]="6042 4430 2531 223"
targ[35]="6044 4430 2530 223"
UO.deletejournal()
while not UO.dead()
for a=1 to 35
UO.deletejournal()
If (UO.Weight > 370) Then
DropIt(FishingStuff)
EndIf
UO.Print('Nova9 To4ka! #'+str(a))
UO.Print('-------------------------')
save()
while not (uo.injournal("There doesn't seem to be any fish here")) or (uo.injournal("That is too far away")) or (uo.injournal("That location is not in your line of sight!"))
UO.Exec("waittargettile "+targ[a])
if NOT UO.ObjAtLayer("Lhand") then
UO.usefromground('0x0dbf')
else
UO.usetype('0x0dbf')
endif
else
UO.useobject(UO.ObjAtLayer("Lhand"))
endif
WFM("You catch a nice fish!","They don't seem to be biting today","There doesn't seem to be any fish here","You find","You catch some soggy footwear!","Oops, that's not a fish!")
wait(100)
wend
hungry()
next
wend
deathchk()
end sub

sub save()
if UO.injournal('Saving World State') then
UO.print('Çàäåðæêà ñêðèïòà íà 30 ñåê.')
UO.Print('-------------------------')
Wait(5000)
UO.deletejournal()
endif
deathchk()
end sub

sub deathchk()
if UO.dead() then
uo.print('Òû óìåð!')
UO.Print('-------------------------')
UO.Snap()
UO.exec('terminate all')
endif
end sub

sub redtest()
var f=0
var k=tkill
var nick=UO.getname('self')
repeat
repeat
if (uo.isnpc(uo.journalserial(f)) == 1) and (uo.getnotoriety(uo.journalserial(f)) == k) and (uo.getname(uo.journalserial(f))<>nick) then
def(uo.journalserial(f))
k=7
f=21
endif
k=k+1
until (k>6)
f=f+1
until (f>20)
end sub

sub def(h)
var tr=0
UO.serverprint('Òâîé íèê: '+uo.getname(h)+', ó òåáÿ åñòü 1 ñåê. ÷òîáû îòîéòè!')
uo.print('Èìÿ êðàñíîãî: '+uo.getname(h))
UO.snap()
UO.serverprint('.guards')
wait(3000)

UO.exec('warmode 0')
deathchk()
end sub

sub hungry()
uo.deletejournal()
var i
var k=0
var l=0
dim hungry[11]
hungry[0]="You are absolutely stuffed!"
hungry[1]="You are stuffed"
hungry[2]="You aren't hungry at all"
hungry[3]="You are a little hungry"
hungry[4]="You are somewhat hungry"
hungry[5]="You are REALLY hungry"
hungry[6]="Your stomash hurts"
hungry[7]="Your stomash hurts and you feel dizzy"
hungry[8]="You are starving"
hungry[9]="You are almost dying of hunger"
hungry[10]="You are DYING of hunger..."
uo.serverprint('.hungry')
proverka:
for i=0 to 10
if UO.injournal(hungry[i]) then
k=i
else
l=l+1
endif
next
if l==11 then
wait(1000)
goto proverka
endif
if (k<>0) and (k<>1) then
for i=1 to k-1
wait(500)
uo.usetype('0x097b')
wait(500)
next
endif
uo.deletejournal()
end sub

sub WFM(message,message2,message3,message4,message5,message6) 
UO.deletejournal()
var k=0
while not (uo.injournal(message)) and (k<200)
if uo.injournal(message2) then
k=200
endif
if uo.injournal(message3) then
k=200
endif
if uo.injournal(message4) then
k=200
endif
if uo.injournal(message5) then
k=200
endif
if uo.injournal(message6) then
k=200
endif
wait(100)
redtest()
save()
k=k+1
wend 
end sub

sub Reconnector()
var RFlag
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LClick(616,459)
Wait(3000) 
WEnd
Wait(3000)
if (RFlag == 0) Then

RFlag = 1
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 Stack(StackType)
var GroundItem, PackItem
PackItem = ''
GroundItem = ''
if UO.Count(StackType) then
PackItem = '^'+StackType
endif
if UO.CountGround(StackType) then
GroundItem = '~'+StackType
endif
if ((PackItem <> '') and (GroundItem <> '')) then
UO.MoveItem(PackItem,STR(UO.GetQuantity(PackItem)),GroundItem,'0','0','0')
else
UO.DropHere('^'+StackType)
Endif
end sub

sub DropIt(WTF)
var DropCnt
For DropCnt = 0 to 3
if UO.Count(WTF[DropCnt]) Then
Stack(WTF[DropCnt])
EndIf
Next
While (UO.Count(WTF[4]) > 0)
UO.MoveItem('^'+WTF[4],'1',SOSBP)
Wait(400)
WEnd
While (UO.Count(WTF[5]) > 0)
UO.MoveItem('^'+WTF[5],'1',MapBP)
Wait(400)
WEnd
end sub

sub Fishing()
   var MaxRange = 4, TrTime
   for var Y = MaxRange - ( MaxRange * 2 ) to MaxRange
      for var X = MaxRange - ( MaxRange * 2 ) to MaxRange
         if IsWater(UO.GetX()+X, UO.GetY()+Y) then
            repeat
               if UO.Weight >= 40 + UO.STR * 3.5 then
                  return 1
               endif
               if UO.Dead() then
                  return 1
               endif
               UO.WarMode(0)
               while not UO.Hidden()
                  UO.UseSkill('Hiding')
                  repeat
                     wait(100)
                  until UO.InJournal("You have|You can`t")
                  UO.DeleteJournal()
               wend
               UO.WaitTargetTile(IsWater(UO.GetX()+X, UO.GetY()+Y), UO.GetX()+X, UO.GetY()+Y, -5)
               UO.UseObject('_0x0DC0')
               TrTime = UO.Timer()
               repeat
                  wait(100)
               until UO.InJournal("no fish here|You fish a while|location|far away|in water|You pull|elsewhere|found|perform") || UO.Timer() > TrTime+120
               if UO.InJournal("You pull") then
                  UO.MoveItem("~0x09CC")
                  UO.MoveItem("~0x09CF")
                  UO.MoveItem("~0x09CE")
               endif
            until UO.InJournal("no fish here|location|far away|in water|elsewhere") || UO.Timer() > TrTime+120
         endif
      next
   next
   end sub

   sub IsWater(X,Y) 
   if UO.PrivateGetTile(X, Y, -1, 6039, 6065) then 
      for var i=6039 to 6065 
         if UO.PrivateGetTile(X, Y, -1, i, i) then
            if i<>6047 && i<>6051 && i<>6052 && i<>6053 && i<>6054 && i<>6057 && i<>6060 && i<>6063 then
               return i
            endif
         end if 
      next 
   end if 
   return 0 
end sub  

sub fishing() 
var mx, my, mz, i, j 
uo.print('Укажите ведро.') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 

mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal() 
for i = mx-4 to mx+4 
for j = my -4 to my+4 
if UO.dead() then 
return 
endif 
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("hiding...") 
UO.UseSkill("Hiding") 
wait(4000) 
wend 

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;FishingPole 
if UO.dead() then 
return 
endif 
if UO.Weight>660 then 
return 
endif 
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 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x09CC','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CD','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CE','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CF','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish 
UO.grab ('1','finditem') 
wait (200) 
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish 
UO.grab ('1','finditem') 
wait (200) 
UO.UnSetReceivingContainer() 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next 
end sub 

sub Maps_only()  
var mx, my, mz, i, j  
mx = UO.GetX('self')  
my = UO.GetY('self')  
mz = UO.GetZ('self')  
UO.DeleteJournal()  
while true  
for i = mx-6 to mx+6  
for j = my -6 to my+6  
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))  
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water")  
UO.DeleteJournal()  
UO.Waittargettile("6043", str(i), str(j), str(mz))  
UO.Usetype('0x0DBF')  
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")  
wait (100)  
wend  
if UO.InJournal("You pull") then  
#UO.WaitTargetGround('0x09CC') ; fish1  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x09CD') ; fish2  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x09CE') ; fish3  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x09CF') ; fish4  
#wait(500)  
#UO.Grab()  
 
#UO.WaitTargetGround('0x0DD6') ; small fish  
#wait(500)  
#UO.Grab()  
 
UO.WaitTargetGround('0x14EB') ; maps  
wait(500)  
UO.Grab() 
next 
next 
endif 
 
wend  
UO.DeleteJournal()  
next  
next  
endif 
wend  
Endsub