Вар Пак

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Вар Пак

Post by crutch »

Люди есть ли такой скрипт чтобы собирал вар пак например подходил к сундуку и брал от туда реги бутылки и т.д заранее спасибо
Successful
Posts: 174
Joined: 2008-12-13 00:00:15

Post by Successful »

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
точняк
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Вар Пак

Post by crutch »

Он вобще не чего не берет(,что делает Yohoho???
Successful
Posts: 174
Joined: 2008-12-13 00:00:15

Post by Successful »

Code: Select all

var Chest='0x40112118' 
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Вар Пак

Post by crutch »

Я поставил id ящика ну все равно не берет(((
Successful
Posts: 174
Joined: 2008-12-13 00:00:15

Post by Successful »

какой шард? %)скинь типы и цвета бутылок )
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Вар Пак

Post by crutch »

Шард руо myruo.ru
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Вар Пак

Post by crutch »

Какие кинуть типы?
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Вар Пак

Post by crutch »

Type=0x0F0C Name=
Quantity: 20 Colour: 0x0000
crutch
Posts: 22
Joined: 2009-02-09 13:30:13
Contact:

Вар Пак

Post by crutch »

up
Post Reply