Yoko

Posted: **2005-04-19 22:44:15**

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

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

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

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

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

Code: Select all

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

Posted: **2005-04-20 16:03:01**

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

Posted: **2005-04-20 17:15:32**

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

Code: Select all

Until UO.InJournal("fizz")

всем спасибо :oops:

Posted: **2005-04-20 17:50:26**

maximka4 wrote:вобщем я убрал эту строчку , у все пучком.
Code: Select all
Until UO.InJournal("fizz")
всем спасибо

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

Posted: **2005-04-21 20:15:01**

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

Posted: **2005-04-21 21:10:00**

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

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

Posted: **2005-04-30 23:40:35**

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

Posted: **2005-05-06 20:15:27**

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

Posted: **2005-05-09 16:32:15**

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

Code: Select all

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

Posted: **2005-05-09 21:54:06**

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

Yoko

покупка вещей.