Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Напишите кто-то простой лут!

тут можно задать вопрос по скриптингу
Post Reply
Urloku
Posts: 2
Joined: 19.11.2017 22:32

Напишите кто-то простой лут!

Post by Urloku »

Чтоб прописывать тайпы вещей, которые будет лутать, лутать в тайп контейнера в бегпаке (сумка), если не сложно + еще лут вещей по цветам (магик, рар, этерал). Чтоб работал с хоткея, с последнего трупа... Есть такой для инжи, могу выложить для переписки...
Urloku
Posts: 2
Joined: 19.11.2017 22:32

Re: Напишите кто-то простой лут!

Post by Urloku »

Ну например, вот:

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

Скрипт не совершенен, но он работает!
myownstyle
Neophyte
Neophyte
Posts: 31
Joined: 28.12.2009 9:56

Re: Напишите кто-то простой лут!

Post by myownstyle »

Простой лут с разрезкой.

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.
Oasis
Novice
Novice
Posts: 52
Joined: 02.01.2014 14:15

Re: Напишите кто-то простой лут!

Post by Oasis »

myownstyle
Спасибо за скрипт, с успехом юзаю!=)
Post Reply