Jump to content

Lineage 2


bowcraft


  • You cannot reply to this topic
3 replies to this topic

#1
Fau

Fau

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 395 posts

Привет!

 

Поделитесь, пожалуйста, скриптом на шафты и стрелы.

 

спасибо)



#2
LuckyLuke

LuckyLuke

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 163 posts
  • Location:Msk
  • Interests:Glory Hole

Только на инджу есть такой. Вроде работает.

 

 

#####################################################
###       BowCraf BowBolts Script v. 1.00.        ###
###                                               ###
###  Copyright & tested by cOoler on DRW Shard.   ### 
###                                               ###
### Oficial DRW Shards site - http://www.drw.ru   ###
#####################################################
##################################################### 
###   Инструкция по использованию и настройке.    ###
#####################################################
### 1. Для работы этого скрипта надо: сундук,
### перья,шафты,пила(или другой инструмент).
###
### 2. Описание подготовки к запуску скрипта.
### Берём сундук (можно и backpack),меняем в скрипте
### ID сундука на свой,кладем в него шафты,а к себе в 
### backpack перья и пилу,запускаем скрипт.
###
### 3. При использовании скрипта вам так или иначе 
### придется менять конфигурации скрипта.
### Вот как и где это НУЖНО сделать:
###
### $ Сменa ID сундука и типа шафтов.
### 1) UO.FindType('тип шафтов','0x0000','backpack')- тут вы
### указываете: тип шафтов.
### 2) UO.FindType('тип шафтов','colour сундука','ID сундука')- тут вы
### указываете: тип шафтов,его colour,ID сундука. 
#####################################################  
###               Конец инструкции.               ###
#####################################################
 
sub Bowcraft() 
   repeat 
      UO.FindType('0x1bd4','0x0000','backpack') 
      put: 
      If UO.GetQuantity('finditem')<1 then 
         UO.FindType('0x1bd4','0x0000','0x40EE636F') ;Сериал сундука 
         UO.Grab('1','finditem') 
         wait(400) 
      Endif 
      UO.FindType('0x1bd4','0x0000','backpack') 
      If UO.GetQuantity('finditem')<1 then 
         goto put 
      end if 
      UO.WaitTargetType('0x1bd4')
      UO.Usetype('0x1bd4') 
      UO.WaitTargetType('0x1bd1')
      UO.FindType('0x1bd1','0x0000','backpack')
      UO.DeleteJournal()
      UO.CancelMenu()
      UO.WaitMenu('What','Arrow') 
      wait (1000) 
      UO.DeleteJournal() 
      while not (UO.InJournal("You create") or UO.InJournal("You fail") or UO.InJournal("Success") or UO.InJournal("You destroy")) 
         wait(300) 
      wend 
      UO.UnSetReceivingContainer() 
      wait(200) 
   until UO.Dead() 
end sub


#3
dima

dima

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 294 posts

 

Program BowCraftarrows;

{$Include 'all.inc'}

var i : Integer;

Const                         ////////////////////
ShaftsType = $1BD4;     ///////Все кидаем напол///////       
FeathersType = $1BD1;  ///////////под себя///////////
                               ////////////

procedure FullDisconnect;
begin
SetARStatus(false);
Disconnect;
end;

procedure CheckShafts;
var k : Integer;
begin
WaitConnection(3000);
CheckSave;
findtype(ShaftsType, ground);
if (findfullquantity >= 100) then Exit;
//Disconnect;
//wait(5000);
WaitConnection(3000);
AddToSystemJournal('Мало Shafts! Ждем, пока ктото подкинет');
while findquantity < 100 do
   begin
   WaitConnection(3000);
   CheckSave;
   UOSay('У меня мало Shafts! Подкиньте кто-то Shafts!');
   k := 0;
   while (k < 20) and (findquantity < 100) do
       begin
       wait(10000);
       k := k + 1;
       findtype(ShaftsType, ground);
       end;
   hungry(1,ground);
   wait(500);
   findtype(ShaftsType, ground);
   end;
AddToSystemJournal('Shafts появились! Продолжаем работать дальше!');
end;

procedure CheckFeathers;
var k : Integer;
begin
WaitConnection(3000);
CheckSave;
findtype(FeathersType, ground);
if (findfullquantity >= 100) then Exit;
//Disconnect;
//wait(5000);
WaitConnection(3000);
AddToSystemJournal('Мало Feathers! Ждем, пока ктото подкинет');
while findquantity < 100 do
   begin
   WaitConnection(3000);
   CheckSave;
   UOSay('У меня мало Feathers! Подкиньте кто-то Feathers!');
   k := 0;
   while (k < 20) and (findquantity < 100) do
       begin
       wait(10000);
       k := k + 1;
       findtype(FeathersType, ground);
       end;
   hungry(1, ground);
   wait(500);
   findtype(FeathersType, ground);
   end;
AddToSystemJournal('Feathers появились! Продолжаем работать дальше!');
end;

function GrabShafts : Boolean;
var c : Integer;
stime : TDateTime;
Shaft : Cardinal;
begin
Shaft := FindType(ShaftsType,ground);
if Shaft = 0 then
    begin
    AddToSystemJournal('Error with grab Shafts. Shafts not finded at ground');
    result := false;
    Exit;
    end;
stime := Now;
Grab(Shaft, 1);
repeat
 c := InJournalBetweenTimes('performing|doing', stime, Now);
 wait(100);
until (Now > stime + (1.0/1440)) or (c >= 0) or (FindType(ShaftsType,backpack) <> 0);
wait(100);
result := true;
end;

procedure Make;
var c : Integer;
stime : TDateTime;
Shafts : Cardinal;
Feather : Cardinal;
begin
if GrabShafts = false then
    begin
    wait(1000);
    Exit;
    end;
Shafts := FindType(ShaftsType,backpack);
if Shafts = 0 then
    begin
    AddToSystemJournal('Error with make arrows. Shafts not finded at ground');
    Exit;
    end;
Feather := FindType(FeathersType,ground);
stime := Now;
UseObject(Shafts);
WaitTargetObject(Feather);
wait(100);
repeat
 c := InJournalBetweenTimes('performing|doing', stime, Now);
 InJournalBetweenTimes('create|make|destroy', stime, Now);
 wait(100);
until (LineCount >= 1) or (Now > stime + (1.0/1440)) or (c >= 0);
wait(100);
end;




Begin
AutoMenu('create','Bolt');////Здесь че крафтим Arrow,Bolt////
FindDistance := 2;
WaitConnection(3000);
CheckSave;
//wait(5000);
SetARStatus(true);
while true do
begin
FindType(FeathersType,ground);
AddToSystemJournal('Осталось '+IntToStr(FindFullQuantity)+' перьев.');
WaitConnection(3000);
CheckSave;
CheckTargetError(5, 2);
CheckShafts;
CheckFeathers;
Hungry(1,ground);
wait(500);
i := 0;
while i < 200 do
  begin
  Make;
  i := i + 1;
  end;
end;
End.



#4
Fau

Fau

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 395 posts
Спасибо, парни 😀





0 user(s) are reading this topic

members, guests, anonymous users