DRW (2009) by Dark Enemy - Обсуждение, вопросы и ответы...

Nmy · Post by **Nmy** » 2009-11-17 20:55:14

TarantuL wrote:Можно добавить в килл элемов, В отчет, скоко он руды с него поднял?)
А то я вообще не понимаю, убил, убежал или чё)

Code: Select all

sub checkelem()
	var n
	var flagvortex, Elemental, flaginvis
	Dim ore[2]
	ore[1]='0x19B8'
	ore[2]='0x19B9'
	uo.set('finddistance','3')
	uo.findtype('0x0010',-1,'ground')
	while uo.findcount()
		Elemental=uo.getserial('finditem')
		if checkcolor(Elemental)==1 then
			flagvortex=1
			if not flaginvis==1 then
				invis()
				flaginvis=1
			endif
			castvortex()
			uo.textopen()
			uo.textprint(uo.getname(Elemental)+' @ '+MakeTime())
			for n=0 to 10
				wait(1000)
				checkpk()
				if flagpk==1 then
					return
				endif
			next
		else
			uo.ignore(Elemental)
		endif
		uo.findtype('0x0010',-1,'ground')
	wend
	if flagvortex==1 then
		repeat
			checklag()
			while uo.mana<22
				wait(500)
			wend
			uo.waittargetobject('self')
			uo.cast('Mass Dispel')
			WaitForMana()
			wait(1000)
		until not uo.injournal('The spell fizzles')
		for n=1 to 2
			uo.findtype(ore[n],-1,'ground')
			while uo.findcount()
				uo.textprint(uo.getname('finditem'))
				uo.moveitem('finditem',-1,'backpack')
				checklag()
				wait(700)
				uo.findtype(ore[n],-1,'ground')
			wend
		next
		return 1
	endif
endsub

TarantuL · Post by **TarantuL** » 2009-11-18 05:58:21

сутки нон-стоп... я в шоке

Tiny · Post by **Tiny** » 2009-11-18 06:50:41

спасибо...

Code: Select all

sub main() 
   while NOT UO.Dead() 
      if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then 
         uo.warmode(0) 
      endif 
      UO.WaitTargetObject('self') 
      UO.UseSkill('Evaluating Intelligence') 
      wait(5000) 
   wend 
endsub

дело было поздним вечером
Вроде посмотрел скрипты для ДРВ 2009
проблем быть не должно
нашёл то что нужно, включил скрипт пошёл спать...

на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...

И почему вы не хотите добавить первым во все свои труды приостановку скрипта при WorldSave...?
________
просто для меня не понятно всё это дело

TarantuL · Post by **TarantuL** » 2009-11-18 08:21:29

Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как

Mirage · Post by **Mirage** » 2009-11-18 09:33:15

Tiny wrote:на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...
(

TarantuL избавился от ошибки путем внедрения дуаллаунчера

TarantuL · Post by **TarantuL** » 2009-11-18 09:45:29

Mirage wrote:
Tiny wrote:на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...
(
TarantuL избавился от ошибки путем внедрения дуаллаунчера

не только. в первую очередь твой скрипт обкопа без

Code: Select all

go to

TarantuL · Post by **TarantuL** » 2009-11-18 14:17:03

TarantuL wrote:Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как

чёта я пришёл или как то так, но не одного слова в текстовом окне

и окна даже нет.

Mirage · Post by **Mirage** » 2009-11-18 15:18:05

TarantuL wrote:
TarantuL wrote:Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как

чёта я пришёл или как то так, но не одного слова в текстовом окне и окна даже нет.

Админы ДРВ пропалили тему и убрали элементалей. Теперь будут барлоги выкапываться. Бедные минеры.

Nmy · Post by **Nmy** » 2009-11-18 15:26:50

Mirage wrote:
TarantuL wrote:
TarantuL wrote:Сенкс, зарядил дописывалку к отчету о убийстве, вечером покажу, что и как

чёта я пришёл или как то так, но не одного слова в текстовом окне и окна даже нет.
Админы ДРВ пропалили тему и убрали элементалей. Теперь будут барлоги выкапываться. Бедные минеры.

не пугай народ

Code: Select all

Obsidian Elemental @ 2:50:16 @ 9.11.18
Plutonium Elemental @ 3:01:36 @ 9.11.18
Dragon Elemental @ 5:48:07 @ 9.11.18
Dragon Elemental @ 5:48:28 @ 9.11.18
Dragon Elemental @ 5:49:44 @ 9.11.18
 @ 5:51:13 @ 9.11.18
- dead - @ 5:51:14 @ 9.11.18
Gorgan Elemental @ 7:05:22 @ 9.11.18
Gorgan Elemental @ 7:05:43 @ 9.11.18
Vulcan Elemental @ 7:26:05 @ 9.11.18
Vulcan Elemental @ 7:26:26 @ 9.11.18
Steel Elemental @ 11:32:01 @ 9.11.18
Fuckmachine @ 12:27:53 @ 9.11.18

Nmy · Post by **Nmy** » 2009-11-18 15:28:01

Tiny wrote:спасибо...
Code: Select all
sub main() 
   while NOT UO.Dead() 
      if uo.Journal(0)=='You are preoccupied with thoughts of battle.' then 
         uo.warmode(0) 
      endif 
      UO.WaitTargetObject('self') 
      UO.UseSkill('Evaluating Intelligence') 
      wait(5000) 
   wend 
endsub
дело было поздним вечером
Вроде посмотрел скрипты для ДРВ 2009
проблем быть не должно
нашёл то что нужно, включил скрипт пошёл спать...

на утро Parse Error по значению скила видно что скрипт отработал 2 час от силы ...

И почему вы не хотите добавить первым во все свои труды приостановку скрипта при WorldSave...?
________
просто для меня не понятно всё это дело

ок пересмотрю все лоры и добавлю чеклаг это спасет

Mirage · Post by **Mirage** » 2009-11-18 15:53:56

Не подумайте что я придираюсь - мне просто реально интересно.

Code: Select all

        while uo.mana<22 ; вот ЭТО зачем тут? Мана копится сама разве?
            wait(500)
         wend

зачем в касте ворта пауза цикличная пока маны меньше 13 и 20 с чемто? Если сделать ЕСЛИ маны столько то И нет элема и ПК то медитируем или пьем тоталку и кастуем ворта дальше.

Могу ошибиться. но помоему алгоритм каста вортексов немного не в порядке.

У автора:
до тех пор пока есть элем
кастуем вортекса
в касте идет каст со свитка если мало маны или каст с книги если маны много ЗАТЕМ проверка маны
Если не ошибаюсь каст ворта достаточно маноемкое заклинание и если например вызвать 2 то на 3 может маны не хватить. НО проверка то стоит ПОСЛЕ каста а не перед.

PS
из косметики можно ввести 2 функции для "взять item\положить item" и использовать в скрипте просто GET(type)\PUT(type)

Code: Select all

sub main()
put(ore1, sund)
put(ore2, sund)
put(ore3, sund)
put(ore4, sund)
get(eda, backpack, 1, 50)
eda()
put(eda, sund)
get(kirka, backpack, 2, 1)
get(kirka, backpack, 2, 1)
end sub

Sub GET(item, cont, min, max)          ;    предмет, откуда, минимум, сколько брать
	If UO.Count( item ) < min Then
		#       UO.Print("Кончилось сырье в рукзаке")
		UO.FindType( item, '-1', cont )
		if UO.FindCount() > 0 Then
			#        UO.Print('Сырья в сундуке: ' + Str( UO.FindCount( item ) ) )
			uo.moveitem('finditem', max, 'backpack')
			checklag()
		else
			#           UO.Print( 'Полностью кончилось сырье' )
			UO.CancelMenu()
			return
		endif
	Endif
end sub
Sub PUT(item, cont)
	while UO.Count( item ) > 0
		UO.FindType( item, -1, -1 )
		UO.MoveItem( 'finditem', 0, cont )
		checklag()
	wend
end sub

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

Nmy · Post by **Nmy** » 2009-11-18 16:29:50

Так как у моего минера 180 маны, я не обращал внимание на такие вещи, но проблема в том, если кастуеш 2й или 3й раз и маны не хватает, то ты не можешь медитировать тк елем тебя убьет. если будет реальна нужда брать тотал маны, это можно дописать

Code: Select all

sub castvortex()
	repeat
		checklag()
		uo.waittargettile('1341',str(uo.getx()),str(uo.gety()),str(uo.getz()))
ставим прицел
		uo.findtype('0x1F66',-1,'backpack')
ищем скрол
		if uo.findcount() then
если есть скрол и маны больше 12 юзаем скролл или ждем
			while uo.mana<13
				wait(500)
			wend
			uo.useobject('finditem')
		else
скролл не нашли, ждем ману или кастуем магию
			while uo.mana<27
				wait(500)
			wend
			uo.cast('Energy Vortex')
		endif
ждем завиршение каста
		WaitForMana()
кастуем пока нету физла
	until not uo.injournal('The spell fizzles')
endsub

stickman · Post by **stickman** » 2009-11-18 22:55:09

Nmy wrote:
Mirage wrote:
TarantuL wrote:
чёта я пришёл или как то так, но не одного слова в текстовом окне и окна даже нет.
Админы ДРВ пропалили тему и убрали элементалей. Теперь будут барлоги выкапываться. Бедные минеры.
не пугай народ

Obsidian Elemental @ 2:50:16 @ 9.11.18
Plutonium Elemental @ 3:01:36 @ 9.11.18
Dragon Elemental @ 5:48:07 @ 9.11.18
Dragon Elemental @ 5:48:28 @ 9.11.18
Dragon Elemental @ 5:49:44 @ 9.11.18
@ 5:51:13 @ 9.11.18
- dead - @ 5:51:14 @ 9.11.18
Gorgan Elemental @ 7:05:22 @ 9.11.18
Gorgan Elemental @ 7:05:43 @ 9.11.18
Vulcan Elemental @ 7:26:05 @ 9.11.18
Vulcan Elemental @ 7:26:26 @ 9.11.18
Steel Elemental @ 11:32:01 @ 9.11.18
Fuckmachine @ 12:27:53 @ 9.11.18

он такой бесявый чел, ет чтото ))

Nmy · Post by **Nmy** » 2009-11-19 00:16:14

http://drw.ru/forum/showthread.php?t=12529

Это когда я начал копать на скрипте. Рун уже было где то 40, шахт примерно на шахту 2-3 руны, это 13-20 шахт

Щас заметил - игроков больше,но по шахтам меньше бегают т.к. шанс меня убить крайне мал - это надо под vas ort grav забегать в каждую шахту, надеется что я там

Nmy · Post by **Nmy** » 2009-11-19 14:54:39

добавил тинкер для стелса и поправил мининг - убийство елема ждет теперь не 11 секунд а 16

Nmy · Post by **Nmy** » 2009-11-19 15:00:17

попробую отследить почему другой раз когда кастует елем - елем попадает в скалу на верху

Mirage · Post by **Mirage** » 2009-11-19 15:31:51

,resend вставь перед прицелом.

Program Tinkering;
чего то ты не в тему

TarantuL · Post by **TarantuL** » 2009-11-19 22:12:43

МОжет стоит сделать в мининге, чтобы замарченную новую руну в пещеру сразу относил в сейф? просто такие вещи на вес золота.. проще потратить 6 регов и 2 прыжка, имхо

или, раз такое дело, в рунбуку кидал

TarantuL · Post by **TarantuL** » 2009-11-20 08:13:10

Code: Select all

while uo.findcount()
            uo.textprint(uo.getname('finditem'))
            uo.moveitem('finditem',-1,'backpack')

Как я понял, тут нужно либо добавить чтобы кликал на найденное, либо какую-то галку в инжекте выставить, ибо у меня пустой строчкой в Логе отображается...
Ну и вообще, всегда, в инжекте, когда посредством ,info что-то пытаешься вынюхать, пока не кликнешь на айтем, в строчке Name= будет пустота.

TarantuL · Post by **TarantuL** » 2009-11-20 09:26:42

Интересную штучку (всем известную, но всё же) сделал из твоего скрипта на куклу... Тут еще хайд, без потери во времени на юз куклы.. То бишь должна расти ловкость еще))) Но это будет интересно только новичкам, или бото-качателям.

Code: Select all

sub main()
   uo.addobject('doll')
   while uo.targeting()
      wait(500)
   wend
   while 1
      uo.useskill( 'Hiding' )
	wait(2501)
          checklag()
      uo.useobject('doll')
      wait(1851)
      if uo.str>99 then
         uo.findtype( -1 , -1 ,'backpack')
         uo.deletejournal()
         uo.click('finditem')
         wait(1500)
         if uo.injournal('of Curse') then
            uo.useobject('finditem')
         else
            if uo.journal(0)<>"" then
               uo.ignore('finditem')
            endif
         endif
      endif
      if uo.dead() then
         uo.playwav("C:\Program Files\Dragon World\Ultima Online\music\FlyinOff.wav")
      endif
   wend
end sub 


sub checklag()
   repeat
      UO.DeleteJournal()
      UO.Click('backpack')
   until backpack()==1
endsub
sub backpack()
   var n
   for n=0 to 200
      if uo.injournal('a backpack') then
         return 1
      endif
      wait(200)
   next
endsub