АвтоЛут

[t1m3]

Дайте пожалуйста скрипт на авто лут... тоесть еслы кто-то падает и откреваетса его труп так сразу чтоб лутал без нажатия кнопки!
За ранное спасибо!

[klonuk]

Может чтобы когда в журнале появлялься надпись Боди?????

[Nmy]

Code: Select all

sub dasfbfad()
uo.deletejournal()
while true
if uo.injournal('Body') then
uo.deletejournal()
Loot()
else
wait(1000)
end if
wend
end sub

Code: Select all

Sub Loot()
	If uo.getglobal('Loot')=='On' then
	uo.setglobal('Loot',0)
	uo.exec('terminate Loot')
	uo.print(' !!! -= Loot Terminated =- !!! ')
	else
	uo.setglobal('Loot','On')
	uo.print(' !!! -= Looting =- !!! ')

 repeat
  UO.FindType('-1','-1','lastcontainer')
  UO.Print(' !!! Looting Items: '+str(UO.findcount()))
  UO.Ignore('finditem')
  UO.MoveItem('finditem')
  Wait(500)
 until UO.FindCount()==0 
 
uo.setglobal('Loot',0)
uo.print(' !!! -= Done =- !!! ')
end sub

[/code]

[Grin]

Для рботы нужна модификация инжекта;) работать будет на ОЛДП версии
(берет деньги)
Перл

Code: Select all

sub autograb{
	while (!uo::dead()){
		&wait(100);
		if (uo::getserial('lastcorpse') eq uo::getserial('lastcontainer')){
			uo::findtype(0xeed, -1, 'lastcontainer');
			if (uo::findcount){
				uo::grab(0, 'finditem');
				&wait(700);
			}
			uo::set('lastcontainer', uo::getserial);
		}
	}
}

Стандартный

Code: Select all

sub autograb()
	while not uo.dead()
		wait(100)
		if (uo.getserial("lastcorpse") == uo.getserial("lastcontainer")) then
			uo.findtype("0xeed", -1, "lastcontainer")
			if (uo.findcount) then
				uo.grab(0, "finditem")
				wait(700)
			end if
			uo.set("lastcontainer", uo.getserial())
		end if
	wend
end sub

[Horsior]

Code: Select all

sub looting() 
var corpse,i,j 
uo.set('finddistance','2') 
uo.set('distance','2') 
DIM Loot[11] 
Loot[0] = 0x0EED; # Gold 
Loot[1] = 0x0F26; # Diamond 
Loot[2] = 0x0F21; # Star Sapphire 
Loot[3] = 0x0F8C; # Sulfurous Ash 
Loot[4] = 0x0F7B; # Blood Moss 
Loot[5] = 0x0F86; # Mandrake Root 
Loot[6] = 0x0F84; # Garlic 
Loot[7] = 0x0F88; # Nightshade 
Loot[8] = 0x0F8D; # Spiders Silk 
Loot[9] = 0x0F7A; # Black Pearl 
Loot[10] = 0x0F85; # Ginseng 
Loot[11] = 0x0F7E; # Bone

DIM Text[11] 
Text[0] = 'Gold Coins' 
Text[1] = 'Diamons' 
Text[2] = 'Star Sapphires' 
Text[3] = 'Sulfurous Ash' 
Text[4] = 'Blood Moss' 
Text[5] = 'Mandrake Root' 
Text[6] = 'Garlic' 
Text[7] = 'Nightshade' 
Text[8] = 'Spiders Silk' 
Text[9] = 'Black Pearl' 
Text[10] = 'Ginseng' 
Text[11] = 'Bone' 

DIM Vars[11] 
Vars[0] = uo.gold 
Vars[1] = uo.count('0x0F26') 
Vars[2] = uo.count('0x0F21') 
Vars[3] = uo.count('0x0F8C') 
Vars[4] = uo.count('0x0F7B') 
Vars[5] = uo.count('0x0F86') 
Vars[6] = uo.count('0x0F84') 
Vars[7] = uo.count('0x0F88') 
Vars[8] = uo.count('0x0F8D') 
Vars[9] = uo.count('0x0F7A') 
Vars[10] = uo.count('0x0F85') 
Vars[11] = uo.count('0x0F7E')

while true 
while uo.countonground('0x2006') > 0 
if UO.Weight > 40000 then 
uo.print("Too much weight! There're "+STR(UO.Gold)+" gold coins in backpack!") 
uo.waittargettype('0x0EED') 
wait(1000) 
uo.useobject('0x40157FBF') 
wait(1000) 
goto end 
end if 
uo.findtype('0x2006','-1','ground') 
if uo.findcount() > 0 then 
corpse=uo.getserial('finditem') 
uo.print("Found "+str(uo.findcount())+" corpse(s)!") 
for i=0 to 11 
j=0 
repeat 
UO.FindType(Loot[i],-1,corpse) 
if UO.GetQuantity('finditem') then 
UO.MoveItem('finditem','0','backpack') 
uo.print("Looted: "+STR(UO.GetQuantity('finditem'))+" "+Text[i]+"! In All: "+STR(vars[i]+UO.GetQuantity('finditem'))) 
wait(600) 
end if 
j = j + 1 
if j > 15 then 
goto stuck 
end if 
until uo.findcount()==0 
next 
stuck: 
uo.ignore(corpse) 
Else 
uo.print("No Corpses Beside!!!") 
end if 
end: 
wend 
wait(600) 
wend 
end sub 

Подставь нужные тайпы и лутит )

[t1m3]

Всем спасибо... ну самое болшое спасибо последнему Horsior

[ZWERb]

Не советую лут делать авто! Зделай его на кнопку! Просту будет ситуация когда идеш ты по ГЗ и тут бац кто-то падает и ты его лутаеш! Гварды налитают и ты крим!