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

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


> > Проблема сбоукрафтом >
dale
сообщение 13.4.2010, 21:31
Сообщение #1


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 66
Регистрация: 24.2.2010
Из: Нерезиновая
Пользователь №: 7 188
Спасибо сказали: 4 раз(а)
Класс: Человек



Имеется скрипт на БК, все хорошо но почти всегда он почемуто 1 лук не кладет в сумку и оставляет в паке,притом это может быть как 50-й так и какойнить 20-й по счету лук.Неподскажите в чем трабла?ато приходится самолично перерывать сумки и докладывать(((
Код
############################### GooD BowCrafting #################################
################################### Crafted by ###################################
################################ Coal aka Brona ##################################
############################# All rights reserved ################################
############################# GuildMaster Sergant ################################
############################# Copyright by [GoBS] ################################
################################################################################



##

VAR sunduk='0x40A52511'; Ñóíäóê - ëîãè, íèòêè, ïóñòûå ìåøêè
VAR sundukk='0x40EEA9F5'; Êóäà êèäàåì
VAR meshok='0x0E76'; Òèï ìåøêîâ
VAR derevo='0x1BDD'
VAR teteva='0x0FA0'
VAR smeshok

VAR a=0


sub mt()

repeat


while not UO.Hidden()


UO.UseSkill("Stealth")
wait(4100)
wend

UO.UnSetCatchBag()


wait(3000)
UO.FindType( derevo, -1, sunduk )
UO.Grab( Str( 305 ), 'finditem' )
wait(5000)



UO.FindType( teteva, -1, sunduk )
UO.Grab( Str( 50 ), 'finditem' )
wait(5000)



UO.FindType( meshok, -1, sunduk )
UO.Grab( Str( 1 ), 'finditem' )
wait(5000)

smeshok=UO.GetSerial('finditem')


a=0

wait(1500)

repeat


wait(800)

UO.SetCatchBag(smeshok)

UO.WaitMenu('What','Bow')
Uo.WaitTargetType(derevo)
UO.UseType('0x0f51')


wait (1500)

UO.DeleteJournal()

while not (UO.InJournal("You put") or UO.InJournal("fail"))
wait(500)
wend

UO.UnSetCatchBag()


if UO.InJournal('You put') then
a=a + 1
wait(800)
endif
UO.DeleteJournal()



until a==50

UO.Unsetcatchbag()

UO.FindType( meshok, -1, -1 )
UO.MoveItem( 'finditem', 0, sundukk )
wait(5000)

UO.FindType( derevo, -1, -1 )
UO.MoveItem( 'finditem', 0, sunduk )
wait(5000)

until FALSE

end sub
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 9) >
CxC
сообщение 14.4.2010, 10:17
Сообщение #2


Местный трепач
Group Icon

Группа: Пользователи
Сообщений: 1 732
Регистрация: 14.1.2009
Из: Краснодар
Пользователь №: 6 081
Спасибо сказали: 223 раз(а)
Класс: Рейнджер



это 56b, увеличь задержки в скрипте
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
dale
сообщение 14.4.2010, 21:17
Сообщение #3


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 66
Регистрация: 24.2.2010
Из: Нерезиновая
Пользователь №: 7 188
Спасибо сказали: 4 раз(а)
Класс: Человек



Цитата(CxC @ 14.4.2010, 14:17) *

это 56b, увеличь задержки в скрипте

попробовал,увеличил все почти в 2 раза, не помогло(
кладет по 49 штук в сумку а один оставляет в паке и все тут(
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Tourus
сообщение 15.4.2010, 4:53
Сообщение #4


Местный трепач
Group Icon

Группа: Пользователи
Сообщений: 1 760
Регистрация: 26.12.2006
Пользователь №: 4 302
Спасибо сказали: 151 раз(а)
Класс: Некромант



Цитата(dale @ 15.4.2010, 1:17) *

попробовал,увеличил все почти в 2 раза, не помогло(
кладет по 49 штук в сумку а один оставляет в паке и все тут(

У меня вроде этот же скрипт.. я не парился.. просто после нескольких полных мешков тупо докладывал туда по луку.. не так уж это и сложно :)

Сообщение отредактировал Tourus - 15.4.2010, 4:54
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Alucard
сообщение 15.4.2010, 13:49
Сообщение #5


ДМ НТ
Group Icon

Группа: Пользователи
Сообщений: 4 801
Регистрация: 13.7.2006
Из: г. Иваново
Пользователь №: 3 276
Спасибо сказали: 351 раз(а)
Класс: Человек



я только хотел скинуть нормальный скрипт а тут "сумка" появилась... нано переделывать придется А может и нет :)
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
dale
сообщение 15.4.2010, 19:23
Сообщение #6


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 66
Регистрация: 24.2.2010
Из: Нерезиновая
Пользователь №: 7 188
Спасибо сказали: 4 раз(а)
Класс: Человек



Цитата(Alucard @ 15.4.2010, 17:49) *

я только хотел скинуть нормальный скрипт а тут "сумка" появилась... нано переделывать придется А может и нет :)

Кидай пока без сумки)какой есть)а с сумкой мона и попозже)
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Casus.death
сообщение 15.4.2010, 19:30
Сообщение #7


Чувак
Group Icon

Группа: Пользователи
Сообщений: 270
Регистрация: 18.9.2009
Из: Pandemonium
Пользователь №: 6 940
Спасибо сказали: 74 раз(а)



Апдейт скриптов на заказы с использованием сумки был бы к месту. (;
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
dale
сообщение 15.4.2010, 22:09
Сообщение #8


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 66
Регистрация: 24.2.2010
Из: Нерезиновая
Пользователь №: 7 188
Спасибо сказали: 4 раз(а)
Класс: Человек



ща сидел и смарел на работу скрипта,на 46 луке пишет Can't pick up item и оставляет лук в паке...и так всегда.именно на этом месте
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Casus.death
сообщение 15.4.2010, 22:11
Сообщение #9


Чувак
Group Icon

Группа: Пользователи
Сообщений: 270
Регистрация: 18.9.2009
Из: Pandemonium
Пользователь №: 6 940
Спасибо сказали: 74 раз(а)



Цитата(dale @ 16.4.2010, 2:09) *

ща сидел и смарел на работу скрипта,на 46 луке пишет Can't pick up item и оставляет лук в паке...и так всегда.именно на этом месте

Пытается его взять, не завершив предыдущие действие, по ходу; то есть, в процессе крафта. Выстави задержку. Может те, кто тут съел уже десяток свор собак подскажут более конкретно. (:
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Kamikadze
сообщение 16.4.2010, 10:11
Сообщение #10


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



Код
##########################################################
#   Revenant / Antares
###########################################################
sub main()
VAR LastTimer
   VAR Sunduk = '0x404096DF'   ; Сериал сундука с логами
   VAR Sunduk1 = '0x404096DF'  ;сундук с пустыми мешками
   VAR Sunduk2 = '0x400F056E'  ;сундук для приема полных мешков
   VAR Meshok = '0x0E76'       ;тип мешка
   VAR MeshSer, d
   VAR Logi = '0x1BDD'         ; Тип логов
   VAR Nit = '0x0FA0'          ; Тип ниток    
   VAR Dagger = '0x0F51'       ; Тип инструмента
   VAR Item = '0x13B1'         ; Тип лука
   VAR KolL = 60               ; Брать логов
   VAR KolN = 10               ; Брать ниток
   VAR k , n, r , i

while true
  k=0
  UO.FindType( Meshok, -1, Sunduk1 )   ; Ищем мешок в сундуке 1
  MeshSer = UO.GetSerial( 'finditem' )
  UO.Grab( '1', 'finditem' )           ; кладем в бекпак любуясь напоследок
  wait( 2000 )
  UO.MoveItem( MeshSer, 0, Sunduk2 )   ; Кладем его в мешкоприемник

  repeat
    r=0
    while UO.Count(Logi)<KolL
     n=UO.Count(Logi)
     UO.FindType(Logi,-1,Sunduk)
     UO.Grab(str(KolL-n),'finditem')
     wait(100)
     CheckLag()
    wend
    while UO.Count(Nit)<KolN
     n=UO.Count(Nit)
     r=r+1
     UO.FindType(Nit,-1,Sunduk)
     UO.Grab(str(KolN-n),'finditem')
     wait(100)
     CheckLag()
     if r>20 then
        uo.Exec('terminate all')
     endif
    wend

    repeat
      UO.DeleteJournal()
      LastTimer=UO.Timer()
      UO.WaittargetType( Logi )
      UO.Usetype(Dagger)
      UO.WaitMenu('What do you want to carve the wood into?','Bow')
      UO.DeleteJournal()
      repeat
        wait(500)
      until UO.InJournal('You put') or UO.InJournal('fail') or UO.InJournal('target') or UO.Timer()>LastTimer+200
      until UO.Count(Logi)<6 or UO.Count(Nit)<1

       d=uo.Count(Item)
       k=k+d
       while UO.Count( Item ) > 0
             UO.FindType( Item, -1, -1 )
             UO.MoveItem( 'finditem', 0, MeshSer )
             wait( 500 )
       wend
  until k>200
  eat()
wend
end sub
###########################################################
sub CheckLag()
    UO.DeleteJournal()
    UO.Click('backpack')
    repeat
       wait(100)
    until UO.InJournal('Backpack')
end sub
#########################################
sub eat()
    UO.DeleteJournal()
    repeat
      if UO.Count('0x097B')>0 then
         UO.UseType('0x097B')
         wait(500)
      else
         return
      end if
    Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that")
end sub


этот скрипт у банка!Делает всё сам,ты только сдаёшь,вес всё равно уменьшин!
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

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

 

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