[dale]

Имеется скрипт на БК, все хорошо но почти всегда он почемуто 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

[CxC]

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

[dale]

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

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

[Tourus]

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

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

Сообщение отредактировал Tourus - 15.4.2010, 4:54

[Alucard]

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

[dale]

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

Кидай пока без сумки)какой есть)а с сумкой мона и попозже)

[Casus.death]

Апдейт скриптов на заказы с использованием сумки был бы к месту. (;

[dale]

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

[Casus.death]

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

Пытается его взять, не завершив предыдущие действие, по ходу; то есть, в процессе крафта. Выстави задержку. Может те, кто тут съел уже десяток свор собак подскажут более конкретно. (:

[Kamikadze]

Код

##########################################################
#   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

этот скрипт у банка!Делает всё сам,ты только сдаёшь,вес всё равно уменьшин!