Yoko

Code: Select all

sub peria()
g:
          uo.print('1')
           uo.waittargetobject('0x4002ECDC')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('2')
           uo.waittargetobject('0x400C00CC')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('3')
           uo.waittargetobject('0x400DC3F8')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('4')
           uo.waittargetobject('0x40074B90')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('5')
           uo.waittargetobject('0x400D3C91')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('6')
           uo.waittargetobject('0x400C00A3')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('7')
           uo.waittargetobject('0x400CD44C')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('8')
           uo.waittargetobject('0x400A1A60')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('9')
           uo.waittargetobject('0x40103261')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('10')
           uo.waittargetobject('0x400EE5A6')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('11')
           uo.waittargetobject('0x400CA16C')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############
          uo.print('12')
           uo.waittargetobject('0x400A1273')
        uo.cast('Recall')
        wait(3000)
        Attack666()
#############            
          uo.print('дом!')
           uo.waittargetobject('0x40107536')
        uo.cast('Recall')
        wait(5000)
         uo.exec('exec dom')
         uo.exec('exec MyMessage')
end sub
######################
sub book()
uo.cast('Recall', '0x4005CD85')
end sub
###############################################
sub Loot4() 
   VAR i,Exit 
   DIM Loot[2] 
    
  
Loot[0]=0x1BD1 ; gp 
Loot[1]=0x1BD1 ; BM 
Loot[2]=0x0F7A ; BP 

UO.SetReceivingContainer('0x40064E29') ;ID backpacka 
   uo.waittargetobject('lastcorpse')
   uo.useobject('lastcorpse')
   uo.UseType('0x13F6')
   wait(2000) 
   For i=0 to 0
      Exit=0 
      repeat 
       UO.FindType(Loot[i],-1,'lastcontainer')            
        if UO.GetQuantity('finditem') then 
         UO.Grab('0','finditem') 
          wait(100) 
          Else 
         Exit=1 
        endif 
      until Exit==1 OR uo.injournal("loot")
      wait(1000)
   Next 
UO.UnSetReceivingContainer()
wait(1000)
end sub

###############################################
sub dom()
UO.Exec ("setreceivingcontainer 0x400AC775")
while UO.Count ("0x1BD1") > 0
uo.exec("findtype 0x1BD1")
UO.Exec ("grab 500 finditem")
wait (500)
wend
end sub


sub MyMessage()
r:
VAR ky = 15
repeat
UO.Print( "До полёта осталось: " + str( ky )) 
ky = ky - 1 
wait( 60000 )
Until ky == 0
uo.exec('exec peria')
endsub
##########################
#############################################################
sub Attack666()
wait(1000)
uo.set('finddistance','18') 
DIM R[5] 
R[1] = 0x0006 # Oei caa?y. 
R[2] = 0x00D0 
R[3] = 0x0005 
R[4] = 0x00CD 
R[5] = 0x00E9 
VAR LastTimer, Attack 
var a 
repeat 
for a=1 to 3 
UO.DeleteJournal()
ggg:
UO.FindType(R[a],-1,'ground') 
if UO.FindCount("finditem")>0 then 
Attack=UO.GetSerial('finditem') 
UO.Exec('warmode 1')
wait(1000)
UO.Attack(Attack)
wait(1000)
WalkN(0,0,Attack) 
LastTimer=UO.Timer() 
repeat 
wait(2000) 
until uo.dead(Attack) or UO.InJournal('Body') OR LastTimer+300<UO.Timer() 
endif 
wait(500)
uo.exec('exec Loot4')
wait(5000)
UO.DeleteJournal()
UO.FindType(R[a],-1,'ground')
if UO.FindCount("finditem") then
goto ggg
next
endif
wait(50)
next
wait(200)
until a==3
end sub 


UO.DeleteJournal() 
repeat 
repeat 
wait(100) 
until UO.InJournal("Body of") 
UO.JournalSerial(UO.InJournal("Body of")-1) 
UO.DeleteJournal() 


sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub 

sub WalkN(x,y,Target) 
VAR i,StepSucess 
VAR dx,dy,Exit=0 

While Exit<>1 
If Target<>"" Then 
dx=UO.GetX(Target)-UO.GetX() 
dy=UO.GetY(Target)-UO.GetY() 
If UO.GetDistance(Target)<2 Then 
Exit=1 
Endif 
Else 
dx=x-UO.GetX() 
dy=y-UO.GetY() 
If dx==0 AND dy==0 Then 
Exit=1 
Endif 

Endif 

If dx<>0 AND dy<>0 Then 
If dx>0 AND dy>0 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
Endif 

If dx>0 AND dy<0 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
Endif 

If dx<0 AND dy>0 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
Endif 

If dx<0 AND dy<0 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
Endif 

Endif 

If dx<>0 AND dy==0 Then 
If dx>0 Then 
StepSucess=Go(2,34,300);E - PgDown 
If StepSucess==-1 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
If StepSucess==-1 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
Endif 
Endif 
Endif 

If dx<0 Then 
StepSucess=Go(6,36,300);W - Home 
If StepSucess==-1 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
If StepSucess==-1 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
Endif 
Endif 
Endif 
Endif 


If dx==0 AND dy<>0 Then 
If dy>0 Then 
StepSucess=Go(4,35,300);S - End 
If StepSucess==-1 Then 
StepSucess=Go(3,40,300);SE - DownArrow 
If StepSucess==-1 Then 
StepSucess=Go(5,37,300);SW - LeftArrow 
Endif 
Endif 
Endif 

If dy<0 Then 
StepSucess=Go(0,33,300);N - PgUp 
If StepSucess==-1 Then 
StepSucess=Go(7,38,300);WN - UpArrow 
If StepSucess==-1 Then 
StepSucess=Go(1,39,300);NE - RightArrow 
Endif 
Endif 
Endif 
Endif 
Wend 
end sub 


sub Go(dir,key,walkwait) 
VAR x,y 

x=UO.GetX() 
y=UO.GetY() 

while UO.GetDir()<>dir 
UO.Press(key) 
wait(walkwait) 
If UO.GetDir()<>dir Then
Endif 
wend 

UO.Press(key) 
wait(walkwait) 

If x==UO.GetX() AND y==UO.GetY() Then 
Endif 

If x==UO.GetX() AND y==UO.GetY() Then 
return -1 
Else 
return 1 
Endif 
end sub

sub main() 
UO.Exec('terminate Reconnector') 
  UO.Exec('exec Reconnector') 
  wait(5000) 

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 main') 
            UO.Exec('exec main') 
            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 CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('cliloc# 0x9ED5') 
end sub