Yoko
http://forum.yoko.com.ua/

Посмотрите что не так лагает из за скрипта
http://forum.yoko.com.ua/viewtopic.php?f=20&t=17495
Page 1 of 1

Author:  tyca7 [ 2014-10-10 11:45:46 ]
Post subject:  Посмотрите что не так лагает из за скрипта

Code:
sub Cloth()
   UO.Print("SELECT YOU CHEST")
   UO.Exec('addobject Chest')
   While UO.Targeting()
      Wait(300)
   Wend
   UO.Set('grabdelay',STR(GrabDelay))
   UO.UseObject('Chest')
   REPEAT
      If UO.Count(Bolts) Then
         UO.WaitTargetType(Bolts,'-1')
         UO.UseType('0x0F9E')
         UO.DeleteJournal()
         REPEAT
            Wait(300)
         Until UO.InJournal("You put") or UO.Dead()
      EndIf
      UO.FindType(Cloth,'-1','1')
      If UO.FindCount() Then
         UO.MoveItem('finditem','all','Chest')
         Wait(1000)
      EndIf
      UO.FindType(Bolts,'-1','Chest')
      While UO.GetQuantity('finditem')==0
         UO.Print("ERROR: Low quantity of the Bolts of cloth!!!")
         Wait(5000)
         UO.FindType(Bolts,'-1','Chest')
      Wend
      UO.MoveItem('finditem',CountBolts,'-1')
      Wait(1000)
   Until UO.Dead()
end sub

Author:  Mirage [ 2014-10-10 16:22:42 ]
Post subject:  Re: Посмотрите что не так лагает из за скрипта

Пробуй вот так. Запускай с пустым паком.
Code:
sub Cloth()
   UO.Print("SELECT YOU CHEST")
   UO.Exec('addobject Chest')
   While UO.Targeting()
      Wait(300)
   Wend
   UO.Set('grabdelay',STR(GrabDelay))
   UO.UseObject('Chest')
   Wait(300)
   REPEAT
      UO.FindType(Bolts,'-1','Chest')
      While UO.GetQuantity('finditem')==0
         UO.Print("ERROR: Low quantity of the Bolts of cloth!!!")
         Wait(5000)
         UO.FindType(Bolts,'-1','Chest')
      Wend
      UO.MoveItem('finditem',CountBolts,'backpack')
      Wait(1000)
      If UO.Count(Bolts) Then
         UO.DeleteJournal()
         UO.WaitTargetType(Bolts)
         UO.UseType('0x0F9E')
         REPEAT
            Wait(300)
         Until UO.InJournal("You put") or UO.Dead()
      EndIf
      UO.FindType(Cloth,'-1','backpack')
      If UO.FindCount() Then
         UO.MoveItem('finditem',0,'Chest')
         Wait(1000)
      EndIf
   Until UO.Dead()
end sub

Author:  tyca7 [ 2014-10-10 17:54:40 ]
Post subject:  Re: Посмотрите что не так лагает из за скрипта

Да так на много лучше спасибо!!

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/