Yoko

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

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

Code: Select all

go to

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

Code: Select all

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

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

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

Code: Select all

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

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