Yoko

Code: Select all

sub Yohoho()
	var Chest='0x40112118'
	var RegsQuanity = 65
	var GreaterHealQuanity = 22
	var TotalManaQuanity = 28
	var TotalRefreshQuanity = 16
	var DeadlyPoisonQuanity = 7
	var InvisibilitylQuanity = 1
	var BandageQuanity = 120
	var ParalyzeScrollQuanity = 30
	var FlameStrikeScrollQuanity = 10
	var k = 0, n
	uo.useobject(Chest)
	Checklag()
	dim Regs[8]
	Regs = RegsMassive(Regs)
	for n = 1 to 8
		uo.findtype(Regs[n],-1,Chest)
		Checklag()
		if uo.findcount() >= 1 then
			uo.moveitem('finditem',RegsQuanity,'backpack', 150, 25, 0)
			wait(700)
			Checklag()
		end if
	next
	uo.print('Реги Есть =ъ')
	uo.useobject(Chest)
	dim BottlesColor[5]
	BottlesColor = BottlesColorMassive(BottlesColor)
	for k = 1 to 5
		uo.findtype('0x0F0E',BottlesColor[k],Chest)
		Checklag()
		if uo.findcount() >= 1 then
			if k == 1 then
				uo.moveitem('finditem',GreaterHealQuanity,'backpack', 96, 26, 0)
				wait(700)
				Checklag()
			end if
			if k == 2 then
				uo.moveitem('finditem',TotalManaQuanity,'backpack', 103, 26, 0)
				wait(700)
				Checklag()
			end if
			if k == 3 then
				uo.moveitem('finditem',TotalRefreshQuanity,'backpack', 110, 26, 0)
				wait(700)
				Checklag()
			end if
			if k == 4 then
				uo.moveitem('finditem',DeadlyPoisonQuanity,'backpack', 117, 26, 0)
				wait(700)
				Checklag()
			end if
			if k == 5 then
				uo.moveitem('finditem',InvisibilitylQuanity,'backpack', 124, 26, 0)
				wait(700)
				Checklag()
			end if
		end if
	next
	uo.print('Бутылки тоже =]')
	uo.findtype('0x0E21',-1,Chest)
	if uo.findcount() then
		uo.moveitem('finditem',BandageQuanity,'backpack', 79, 26, 0)
		wait(700)
		Checklag()
	end if
	uo.findtype('0x1F5F',-1,Chest)
	if uo.findcount() then
		uo.moveitem('finditem',FlameStrikeScrollQuanity,'backpack', 69, 26, 0)
		wait(700)
		Checklag()
	end if
	uo.findtype('0x1F52',-1,Chest)
	if uo.findcount() then
		uo.moveitem('finditem',ParalyzeScrollQuanity,'backpack', 69, 26, 0)
		wait(700)
		Checklag()
		uo.print('Ну и Бинты со Скроллами =]')
	end if
	CheckCount()
end sub

Sub RegsMassive(Regs)
	Regs[1]='0x0F86'
	Regs[2]='0x0F8D'
	Regs[3]='0x0F88'
	Regs[4]='0x0F7A'
	Regs[5]='0x0F85'
	Regs[6]='0x0F84'
	Regs[7]='0x0F8C'
	Regs[8]='0x0F7B'
	return Regs
end sub


Sub BottlesColorMassive(BottlesColor)
	BottlesColor[1]='0x09BB'
	BottlesColor[2]='0x09DF'
	BottlesColor[3]='0x0997'
	BottlesColor[4]='0x0998'
	BottlesColor[5]='0x0631'
	return BottlesColor
end sub

Sub Checklag()
	uo.deletejournal()
	uo.click('backpack')
	repeat
		wait(100)
	until uo.injournal('backpack')
end sub

sub CheckCount()
	uo.useobject('backpack')
	wait(500)
	uo.concolor('0x0000')
	uo.print(str(uo.count('0x0F0E','0x09BB'))+" Great Heals")
	wait(100)
	uo.print(str(uo.count('0x0F0E','0x09DF'))+" Total Mana")
	wait(100)
	uo.print(str(uo.count('0x0F0E','0x0997'))+" Total Refresh")
	wait(100)
	uo.print(str(uo.count('0x0F0E','0x0998'))+" Deadly Poison")
	wait(100)
	uo.print(str(uo.count('0x0F0E','0x0631'))+" Invisibility")
	wait(100)
	uo.print(str(uo.count('0x0F0E','0x09A6'))+" Greater Cure")
	wait(100)
	uo.print(str(uo.count('0x0E21','0x0000'))+" Bandages")
	wait(100)
	uo.print(str(uo.count('0x1F52','0x0000'))+" Paralyze Scroll")
end sub

Code: Select all

var Chest='0x40112118'