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

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

Code: Select all

Until UO.InJournal("fizz")

всем спасибо

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 часа

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

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

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