Yoko

Более окончательный вариант, но еще но откатан - возможны глюки...

Значит скрипт разделен на несколько частей, в каждой части присутствуют переменные VAR где после них указано ; транслитом....
значит число надо править под себя.
Допустим:

VAR MaxWeight=840 ; Maksimal`niy ves na 4are

Здесь вместо 840 надо поставить свой максимальный, вес например 720

Опять же сырец, счас я его тэстирую но это такой гемморой ждать по 15-20 минут + разгрузка

sub max()

; Zapuskaem skript v magazine!!!

   VAR VesPrirost=120 ; posle pokupki skoko vesa pribavlyaetsya
   VAR i
   VAR MaxWeight=840 ; Maksimal`niy ves na 4are

   UO.Set('buydelay','1000') ; 1000 - zaderjka na pokupku
;   UO.Set('injectecho','1') 

   While 1==1
      UO.DeleteJournal()
      UO.Buy('tt2') ; tt2 - buylist s tkaniyu
      HideMax()
      IF UO.InJournal("No item") Then
         UO.Print("OOpS!")
         wait(20000) ; 20 sec
      Else
         If MaxWeight<UO.Weight+VesPrirost Then
            Domoy()
            Magazin()
         Endif
         wait(900000) ;15 min
      EndIf
   Wend
end sub


sub HideMax()
      While NOT UO.Hidden()
         UO.Exec('warmode 0')
         UO.Exec('warmode 0')
;         UO.UseSkill('Stealth')
         UO.UseSkill('Hiding')
         wait(4000)
      Wend
end Sub


sub Domoy()
   VAR Dom="0x4018CE47" ; Id runy k sunduku
   VAR Sunduk="0x40082EBA" ; Id sunduka kuda kidat` tkan`

   UO.DeleteJournal()
   Repeat
      medicMax()
      UO.Cast('Racall',Dom)
      wait(4000)
   Until UO.InJournal("fizz")
   If UO.InJournal("faded") Then
      Repeat
         medicMax()
         UO.DeleteJournal()
         UO.Cast('Mark',Dom)
         wait(5000)
      Until UO.InJournal("fizz")
   Endif
   UO.FindType('0x175D',-1,'backpack') ;tkan`
   wait(1000)
   UO.MoveItem('finditem',0,Sunduk)
   wait(1000)
   UO.FindType('0x0E1D',-1,'backpack') ; balls of yarn
   wait(1000)
   UO.MoveItem('finditem',0,Sunduk)
   wait(1000)
end sub

sub Magazin()
   VAR Magazin="0x4018CE53" ; Id runy v magazin

   UO.DeleteJournal()
   Repeat
      medicMax()
      UO.Cast('Racall',Magazin)
      wait(4000)
   Until UO.InJournal("fizz")
   If UO.InJournal("faded") Then
      Repeat
         medicMax()
         UO.DeleteJournal()
         UO.Cast('Mark',Magazin)
         wait(5000)
      Until UO.InJournal("fizz")
   Endif
end sub


sub medicMax()
   VAR LastTimer
   VAR CharInt=50 ; Int, mana
   while UO.Mana<CharInt
      LastTimer=UO.Timer()
      UO.UseSkill('Meditation')
      repeat
         wait(100)
      until UO.InJournal("You are") OR UO.InJournal("You lose") OR UO.Timer()>LastTimer+200
      UO.DeleteJournal()
      wait(2000)
   wend
end sub

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

_________________
maxim viktorovich

вобщем я убрал эту строчку , у все пучком.

Until UO.InJournal("fizz")

всем спасибо

_________________
maxim viktorovich

Как это ты убрал конец цикла и заработало

Времени нету доделать. Но обнаружил интересную штуку, зачем реколиться если ткань не падает? Вообщем можно покупать пока не надоест а потом разгружаться раз в 3-4 часа

Не на всех шардах.

во бы туда и рекол по рунобуку зделать! кстати зачем тебе катушки? вроде на всё провсё достаточно одной или нет?

народ довёл кто небудь этот скрипт до ума?

ну ненравитса мне ети строки...
чар будет кастовать рекол по рункам до того момента пока будет физл, если магия 100 когда сможем дождатса физла?

UO.Cast('Racall',Dom) 
      wait(4000) 
   Until UO.InJournal("fizz")

так довёл его кто-то до ума или нет если да выложите его здесь плиз!!!