Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Напишите кто-то простой лут!
Напишите кто-то простой лут!
Чтоб прописывать тайпы вещей, которые будет лутать, лутать в тайп контейнера в бегпаке (сумка), если не сложно + еще лут вещей по цветам (магик, рар, этерал). Чтоб работал с хоткея, с последнего трупа... Есть такой для инжи, могу выложить для переписки...
Re: Напишите кто-то простой лут!
Ну например, вот:
sub Loot();
var type_s='0x0E75'
var t,l,j,sumka
t=400
uo.findtype(type_s, -1, 'backpack' )
wait(t)
if uo.FindCount()>0 then
sumka = UO.GetSerial( 'finditem' )
end if
uo.UseObject('lastcorpse')
wait(t)
dim LootingItem[1]
LootingItem[1] = 0x0EED # - деньги
LootingItem[2] = 0x0F3F # - стрелы
DIM color[2]
color[1] = '0x09DE'# - искатель
color[2] = '0x0A05'# - крафт
for l=1 to 2
uo.FindType(LootingItem[l],"-1","lastcorpse")
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=2 then
uo.Grab("uo.FindCount","finditem")
wait(t)
end if
next
for j=1 to 2
repeat
uo.FindType(-1,color[j],"lastcorpse")
if UO.GetQuantity('finditem') then
uo.moveitem('finditem', 0, sumka )
wait(200)
end if
until uo.findcount()==0
next
for j=1 to 2
repeat
uo.FindType(-1,color[j],"lastcorpse")
if UO.GetQuantity('finditem') then
uo.Grab("uo.FindCount","finditem")
wait(200)
end if
until uo.findcount()==0
next
end sub
Скрипт не совершенен, но он работает!
sub Loot();
var type_s='0x0E75'
var t,l,j,sumka
t=400
uo.findtype(type_s, -1, 'backpack' )
wait(t)
if uo.FindCount()>0 then
sumka = UO.GetSerial( 'finditem' )
end if
uo.UseObject('lastcorpse')
wait(t)
dim LootingItem[1]
LootingItem[1] = 0x0EED # - деньги
LootingItem[2] = 0x0F3F # - стрелы
DIM color[2]
color[1] = '0x09DE'# - искатель
color[2] = '0x0A05'# - крафт
for l=1 to 2
uo.FindType(LootingItem[l],"-1","lastcorpse")
if uo.FindCount()>0 and uo.GetDistance("lastcorpse")<=2 then
uo.Grab("uo.FindCount","finditem")
wait(t)
end if
next
for j=1 to 2
repeat
uo.FindType(-1,color[j],"lastcorpse")
if UO.GetQuantity('finditem') then
uo.moveitem('finditem', 0, sumka )
wait(200)
end if
until uo.findcount()==0
next
for j=1 to 2
repeat
uo.FindType(-1,color[j],"lastcorpse")
if UO.GetQuantity('finditem') then
uo.Grab("uo.FindCount","finditem")
wait(200)
end if
until uo.findcount()==0
next
end sub
Скрипт не совершенен, но он работает!
-
- Neophyte
- Posts: 31
- Joined: 28.12.2009 9:56
Re: Напишите кто-то простой лут!
Простой лут с разрезкой.
Code: Select all
Program Loot;
const MaxWeightDif = 30;
procedure Loot;
var e : integer;
CorpseID : Cardinal;
Loottype: array of Cardinal;
begin
FindDistance:= 2;
Loottype := [$0EED, $0C7C, $0E40, $0E41, $14EC, $0F3F, $0F84, $0F88, $0F8D, $0F85, $0F7B, $0F8C, $0F86, $0F7A, $0F13, $0F25, $0F13, $0F19, $0F2D, $0F15, $0F26, $0F21, $0F16, $0F10];
while not dead do
begin
if ( Weight < ( MaxWeight - MaxWeightDif ) ) then
begin
If FindType($2006,Ground)>0 Then
begin
CorpseID:=FindItem;
If FindType($2D2F,backpack)>0 Then
begin
UseObject(Finditem);
WaitForTarget(5000);
TargetToObject(CorpseID);
wait(500);
end;
UseObject(CorpseID);
wait(500);
for e := 0 to Length(Loottype) -1 do
begin
while (FindType(Loottype[e],corpseID) > 0) and (GetDistance(CorpseID)<= FindDistance) do
begin
MoveItem(finditem,0,BackPack,0,0,0);
wait(500);
end;
end;
Ignore(CorpseID);
end;
end;
end;
wait(50);
end;
begin
loot;
end.
Re: Напишите кто-то простой лут!
myownstyle
Спасибо за скрипт, с успехом юзаю!=)
Спасибо за скрипт, с успехом юзаю!=)