Yoko

Code: Select all

sub zakupka()
	var sklad = '0x76B70E69'
    var book = '0x766C998A'
    var gold = '0x0EED'
    var take_count = 0
    var i = 0
    var j = 0
    var it_count

    dim items[4]
    items[0] = '0x0F3F' # Arrows
    items[1] = '0x1BFB' # Bolts
    items[2] = '0x13B1' # Bows
    items[3] = '0x0F4F' # Crossbow

    dim no_buy[4]
    no_buy[0] = 0
    no_buy[1] = 0
    no_buy[2] = 0
    no_buy[3] = 0

    dim items_max[4]
    items_max[0] = 300
    items_max[1] = 300
    items_max[2] = 4
    items_max[3] = 2

    dim take[4]
    take[0] = 6000
    take[1] = 6000
    take[2] = 1400
    take[3] = 1400

    dim buy_fraza[4]
	buy_fraza[0] = ",buy arrow"
	buy_fraza[1] = ",buy bolt"
    buy_fraza[2] = ",buy bows"
    buy_fraza[3] = ",buy cross"

    #Проверяем чё надо
    uo.exec('terminate detect')
    uo.print("ПРОВЕРЯЕМ чё нада купить!")
    uo.IgnoreReset()
    uo.useobject(sklad)
    wait(500)
    CheckLag()
    for i = 0 to 3
    	it_count = 0
    	uo.findtype(items[i], -1, sklad)
    	while uo.findcount()
        	it_count = it_count + uo.getquantity('finditem')
			uo.ignore('finditem')
            uo.findtype(items[i], -1, sklad)
        wend
        if it_count >= items_max[i] then
        	no_buy[i] = 1
        else
        	take_count = take_count + take[i]
    	endif
    next
    uo.IgnoreReset()

    #Если ничё ненада то никуда не идём
    if take_count == 0 then
    	uo.print('ВСЁ НА МАЗИ ОСТАЯЁМСЯ ДОМА!')
    	return uo.Exec('exec medved')
    endif


     # Берём бабки

    uo.findtype(gold, -1, sklad)
    while uo.gold < take_count and uo.findcount()
    	uo.moveitem('finditem', (take_count - uo.gold))
        wait(500)
        CheckLag()
        uo.findtype(gold, -1, sklad)
    wend

    if uo.gold <  take_count then
    	CheckLag()
        uo.print("БАБЛА НЕТ! СКАЧАЕМСЯ ДАЛЬШЕ!")
   	    return uo.Exec('exec medved')
    endif

    #Раздеваемся

    uo.disarm()
    wait(1000)
    CheckLag()
    for i = 0 to 3
    	uo.findtype(items[i], -1)
        while uo.FindCount()
        	uo.moveitem('finditem', 0,  sklad)
            wait(500)
            CheckLag()
            uo.findtype(items[i], -1)
        wend
    next

    #Начинаем реколиться по шопам
    for i = 0 to 4
   		CheckLag()
		recall(i, book)
        wait(6500)
        uo.UseSkill("Detect Hidden")
        wait(1000)
        uo.sayu('Guards!!!')
        for j = 0 to 3
        	if no_buy[j] == 0 then
            	uo.sayu(buy_fraza[j])
                wait(2500)
            endif
        next
    next

    #Пиздуем домой
    CheckLag()
    recall(5, book)
    wait(7000)

    #Разгружаемся
    uo.useobject(sklad)
    for i = 0 to 3
    	uo.findtype(items[i], -1)
        while uo.FindCount()
        	uo.moveitem('finditem', 0,  sklad)
            wait(500)
            CheckLag()
            uo.findtype(items[i], -1)
        wend
    next


    #Перезарядка буки
    CheckLag()
    UO.FindType('0x1F4C', -1, sklad)
	wait(1000)
	uo.useobject(book)
	wait(2000)
	CheckLag()
	uo.waittargetobject('finditem')
	uo.lclick(243,22)
	wait(10000)
    CheckLag()
    return uo.Exec('exec medved')

endsub


sub medved()
     var sklad = '0x76B70E69'
     var timerz, i
     var medvedz_count = 0
     dim medvedz[256]
     var timeout = 10200

     dim patroni[2]
     dim oruzie[2]

     var j = 0

     patroni[0] = '0x0F3F' # Arrows
     patroni[1] = '0x1BFB' # Bolts
     oruzie[0] = '0x13B1' # Bows
     oruzie[1] = '0x0F4F' # Crossbow


     timerz = uo.Timer()

     uo.exec('exec detect')
     uo.print('Ищем МЕДВЕДЕЙ!')
     uo.useobject(sklad)
     uo.IgnoreReset()
     uo.set( 'finddistance', 10 )
     UO.FindType('0x00D4', -1, 'ground')
     while UO.FindCount()
    	medvedz[medvedz_count] = UO.GetSerial('finditem')
        UO.Ignore(medvedz[medvedz_count])
        medvedz_count = medvedz_count + 1
       UO.FindType('0x00D4', -1, 'ground')
     wend
     uo.set( 'finddistance', 32 )

     uo.print('Начинаем КАЧ!')

     j = 0

     while 1
     	for i = 0 to (medvedz_count - 1)
        	uo.warmode(0)
        	if uo.getHP(medvedz[i]) > ((uo.getMaxHP(medvedz[i]) / 3 * 2)) then
            	check:
                CheckLag()
                if uo.count(patroni[j]) < 1 then
                	uo.findtype(patroni[j], -1, sklad)
                    if uo.findcount() then
                    	uo.moveitem('finditem', 300)
                        wait(500)
                    else
                    	if j == 0 then
                        	j = 1
                            uo.disarm()
                            wait(500)
                            CheckLag()
                            goto check
                        else
                        	uo.warmode(0)
                            return
                        endif
                    endif
                endif
                CheckLag()
                if uo.ObjAtLayer('Rhand') == "" then
                	uo.findtype(oruzie[j], -1, sklad)
                    wait(500)
                    if uo.findcount() then
                    	uo.moveitem('finditem', 0)
                        wait(500)
                        CheckLag()
        				uo.Equipt('Rhand', oruzie[j])
                    else
                     	if j == 0 then
                        	j = 1
                            wait(500)
                            CheckLag()
                            goto check
                        else
                        	uo.warmode(0)
                            return
                        endif
                    endif
        		endif
     			uo.warmode(1)
				uo.attack(medvedz[i])
            	wait(2000)
        	endif
        	if (timerz + timeout) <= uo.Timer() then
            	uo.warmode(0)
                CheckLag()
                uo.print("Идём ЗАКУПАЦО")
                return uo.Exec('exec zakupka')
            endif
            wait(500)
            uo.print("До закупки: " + str((timerz + timeout) - uo.Timer()))
      	next
     wend

endsub




sub recall(id, runebook)
	var y
	var x = 63
	y = 68 + (id * 14)
	repeat
		CheckLag()
		uo.rclick(198,128)
		wait(500)
		uo.useobject(runebook)
		wait(2000)
		uo.lclick(x, y)
		wait(500)
	until uo.InJournal("Kal Ort Por")
end sub


sub CheckLag()
	if uo.Waiting()>0 then
		uo.Exec('canceltarget')
	end if
	uo.DeleteJournal()
	uo.Click('backpack')
	repeat
		wait(50)
	until uo.InJournal('backpack')
end sub

sub Detect()
  while uo.SkillVal("Detect Hidden") < 1000
    uo.UseSkill("Detect Hidden")
    wait(2000)
  wend
  end sub