Jump to content

Lineage 2

Не пропустите!

ВАЖНЫЕ ОБСУЖДЕНИЯ НА ФОРУМЕ:
ZULUHOTEL СНОВА ONLINE! РЕГИСТРАЦИЯ ОТКРЫТА!

Все последние новости, информация о событиях на Zuluhotel, чат с админами и игроками в нашем телеграм канале: @ZuluhotelRussia
А еще у нас есть канал в Discord!
 
К сожалению, форумный формат общения себя изживает и активности на форуме с каждым днем всё меньше.
Самый быстрый способ получить ответ на вопрос - воспользоваться нашим Telegram каналом или Discord'oм.

Присоединяйся! Общайся!

Хеллоу! Общежитие слушает.

ШАРД РАБОТАЕТ! ЗАХОДИ К НАМ В ДИСКОРД И В ТЕЛЕГРАМ!


bowcraft


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

#1
Fau

Fau

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

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

Привет!

 

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

 

спасибо)



#2
LuckyLuke

LuckyLuke

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

  • Пользователи
  • PipPipPipPipPip
  • 168 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