[BullPower]

Вообщем нужно в етот скрипт карпентри, вставить скрипт еды.А то чтото у меня башка не варит. Вот скрипт карпентри

Код

var Container='0x40E2C1EA'
  VAR Sunduk1 = '0x40E2C1EA' ;Пустые мешки
  VAR Sunduk2 = '0x40E2C09A' ;Полные
  VAR Meshok = '0x0E76'      ;мешки
  VAR MeshSer, d
  VAR k

###################
sub main()
VAR LastTimer
repeat
UO.FindType( Meshok, -1, Sunduk1 )  
MeshSer = UO.GetSerial( 'finditem' )
UO.Grab( '1', 'finditem' )          
wait( 2000 )
UO.MoveItem( MeshSer, 0, Sunduk2 )
k=0
repeat
    if UO.Count( '0x1BDD' ) < 15 then  
       take()
    endif  
    UO.DeleteJournal()
     UO.WaitMenu ('Carpentry', 'Weapons', 'Weapons', 'Club' )
    CheckLag()
    UO.UseType( '0x1034' )
    LastTimer=UO.Timer()
    repeat
       wait(300)
    until UO.InJournal("You put") or UO.InJournal("fail") OR UO.Timer()>LastTimer+200
    if UO.InJournal("You put") then
      while UO.Count( '0x13B3' ) > 0
         UO.FindType( '0x13B3', -1, -1 )
         UO.MoveItem( 'finditem', 0, MeshSer )
         wait( 500 )
         k=k+1
         uo.print('k='+str(k))
         CheckLag()
      wend
    endif
until k>=250
until UO.DEAD()
end sub
####################
sub take()
DIM reg[1]
var i,n
reg[1]='0x1BDD'; logs

     CheckLag()
     while UO.Count(reg[1])<100
         UO.FindType(reg[1],-1,Container)
         n=UO.Count(reg[1])
         UO.Grab(str(100-n),'finditem')
         wait(100)
     wend

end sub
####################
sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      wait(100)
   until UO.InJournal('ackpack')
end sub

А вот скрипт еды

Код

sub eat()

   UO.DeleteJournal()

   repeat

     if UO.Count('0x097B')>0 then ;еда ( fish stakes )

        UO.UseType('0x097B') ; еда

        wait(500)

     else

        return

     end if

   Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that")

end sub

Ну или может есть у кого карпентри с самостоятельным питанием?

Сообщение отредактировал BullPower - 26.11.2006, 0:32

[pikachu]

Код

var Container='0x40E2C1EA'
VAR Sunduk1 = '0x40E2C1EA' #Пустые мешки
VAR Sunduk2 = '0x40E2C09A' #Полные
VAR Meshok = '0x0E76' #мешки
VAR MeshSer, d
VAR k

sub main()
VAR LastTimer
  repeat
  eat()
  UO.FindType( Meshok, -1, Sunduk1 )  
  MeshSer = UO.GetSerial( 'finditem' )
  UO.Grab( '1', 'finditem' )          
  wait( 2000 )
  UO.MoveItem( MeshSer, 0, Sunduk2 )
  k=0
    repeat
      if UO.Count( '0x1BDD' ) < 15 then  
      take()
      endif  
    UO.DeleteJournal()
    UO.WaitMenu ('Carpentry', 'Weapons', 'Weapons', 'Club' )
    CheckLag()
    UO.UseType( '0x1034' )
    LastTimer=UO.Timer()
      repeat
      wait(300)
      until UO.InJournal("You put") or UO.InJournal("fail") OR UO.Timer()>LastTimer+200
      if UO.InJournal("You put") then
        while UO.Count( '0x13B3' ) > 0
        UO.FindType( '0x13B3', -1, -1 )
        UO.MoveItem( 'finditem', 0, MeshSer )
        wait( 500 )
        k=k+1
        uo.print('k='+str(k))
        CheckLag()
        wend
      endif
    until k>=250
  until UO.DEAD()
end sub
####################
sub take()
DIM reg[1]
var i,n
reg[1]='0x1BDD' #logs
CheckLag()
  while UO.Count(reg[1])<100
  UO.FindType(reg[1],-1,Container)
  n=UO.Count(reg[1])
  UO.Grab(str(100-n),'finditem')
  wait(100)
  wend
end sub
####################
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
  repeat
  wait(100)
  until UO.InJournal('ackpack')
end sub
####################
sub eat()
UO.DeleteJournal()
  repeat
    if UO.Count('0x097B')>0 then #еда ( fish stakes )
    UO.UseType('0x097B') #еда
    wait(500)
    else
    return
    end if
  Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that")
end sub

вот так думаю немного походит на правду: добавил процедуру еды перед возней с мешочками, так как там ей думаю самое место и, на последок, поправил лесенку для удобства.

Сообщение отредактировал pikachu - 26.11.2006, 3:42

[BullPower]

Ок. Огромное спасибо. У меня появилась мысля и я немного его доделал. Он очень мало есть в связи с тем, что делает 250 штук дубинок в один мешочек. Ето очень долго. Теперь он и кушает нормально и заодно прячетса чтоб никто рыбку не отобрал

Код

var Container='0x40E2C1EA'
VAR Sunduk1 = '0x40E2C1EA' #пустые мешки
VAR Sunduk2 = '0x40E2C09A' #полные
VAR Meshok = '0x0E76' #мешки
VAR MeshSer, d
VAR k

sub main()
VAR LastTimer
  repeat
  while not UO.Hidden()
  UO.UseSkill("Stealth")
  wait(4100)
  wend
  eat()
  UO.FindType( Meshok, -1, Sunduk1 )  
  MeshSer = UO.GetSerial( 'finditem' )
  UO.Grab( '1', 'finditem' )          
  wait( 2000 )
  UO.MoveItem( MeshSer, 0, Sunduk2 )
  k=0
    repeat
      if UO.Count( '0x1BDD' ) < 15 then  
      take()
      endif  
    UO.DeleteJournal()
    UO.WaitMenu ('Carpentry', 'Weapons', 'Weapons', 'Club' )
    CheckLag()
    UO.UseType( '0x1034' )
    LastTimer=UO.Timer()
      repeat
      wait(300)
      until UO.InJournal("You put") or UO.InJournal("fail") OR UO.Timer()>LastTimer+200
      if UO.InJournal("You put") then
        while UO.Count( '0x13B3' ) > 0
        UO.FindType( '0x13B3', -1, -1 )
        UO.MoveItem( 'finditem', 0, MeshSer )
        wait( 500 )
        k=k+1
        uo.print('k='+str(k))
        CheckLag()
        wend
      endif
    until k>=250
  until UO.DEAD()
end sub
####################
sub take()
DIM reg[1]
var i,n
reg[1]='0x1BDD' #logs
CheckLag()
  while UO.Count(reg[1])<100
  UO.FindType(reg[1],-1,Container)
  n=UO.Count(reg[1])
  UO.Grab(str(100-n),'finditem')
  wait(100)
  wend
end sub
####################
sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
  repeat
  wait(100)
  until UO.InJournal('ackpack')
end sub
####################
sub eat()
UO.DeleteJournal()
  repeat
    if UO.Count('0x097B')>0 then #еда(fish stakes)
    UO.UseType('0x097B') #еда
    UO.UseType('0x097B') #еда
    wait(500)
    else
    return
    end if
  Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that")
end sub

Сообщение отредактировал BullPower - 26.11.2006, 8:54