Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > Carpentry+eat, Здоровое питание=хороший труд >
BullPower
сообщение 26.11.2006, 0:29
Сообщение #1


Чувак
Group Icon

Группа: Пользователи
Сообщений: 277
Регистрация: 25.4.2006
Пользователь №: 3 121
Спасибо сказали: 0 раз(а)
Класс: Человек



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

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
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 2) >
pikachu
сообщение 26.11.2006, 3:32
Сообщение #2


Ступивший на тропу
Group Icon

Группа: Пользователи
Сообщений: 770
Регистрация: 4.3.2006
Из: Москва, ЗАО
Пользователь №: 2 884
Спасибо сказали: 15 раз(а)
Класс: Человек



Код
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
сообщение 26.11.2006, 8:02
Сообщение #3


Чувак
Group Icon

Группа: Пользователи
Сообщений: 277
Регистрация: 25.4.2006
Пользователь №: 3 121
Спасибо сказали: 0 раз(а)
Класс: Человек



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

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
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 16.7.2018, 4:22
Design: Fisana  © 2005-2006 IBR Team