Stealth Client Forum

Альтернативный клиент Ultima Online
Текущее время: 23.11.2017 7:44

Часовой пояс: UTC + 2 часа




Начать новую тему Ответить на тему  [ Сообщений: 34 ]  На страницу Пред.  1, 2, 3
Автор Сообщение
 Заголовок сообщения: Re: Попишу скрипты за еду.
СообщениеДобавлено: 20.03.2017 12:16 
Не в сети Apprentice
Apprentice

Зарегистрирован: 13.07.2011 11:23
Сообщения: 312
В скрипте не находит реагенты в ReloadBag


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Попишу скрипты за еду.
СообщениеДобавлено: 06.10.2017 16:16 
Не в сети Neophyte
Neophyte

Зарегистрирован: 15.03.2017 13:12
Сообщения: 10
если не сложно напиши скрипт на стелсе. (образец как исполнен на инжекте)
Код:
sub plavka_rudi()
var t=uo.Timer()
   uo.print('Укажите где лежит руда')
   uo.addobject('gde')
   while uo.Targeting() 
      wait(500)
   wend
   while uo.findtype('0x19B9',-1,'gde')
      uo.moveitem('finditem', 1, 'backpack')
      while not uo.findtype('0x19B9',-1,'backpack')   
         
      wend
      while uo.findtype('0x19B9',-1,'backpack')   
         uo.useobject('finditem')
      wend   
      if t+100 < uo.Timer() then
      uo.waittargettype('0x0F51')
      uo.useskill('Arms Lore')
      t=uo.Timer()
      endif                             
   wend
   
end sub


Собственно сам скрипт на инжекте.
Кому не трудно его сделать на стелс?

Скрипт работает следующим образом:
1. Открывает сумку
2. берет 1 руду
3. кладет в сумку персонажа
4. дабл клик по руде в сумке персонажа
5. кидать армслор на дагер
а потом все заного по кругу

Перемещает очень быстро руду из сумки в сумку персонажа и плавит ее.

Если можно то добавить еще 1 пункт №6 сброс ингот напол или в сумку которая стоит на полу чтоб руда стокалась.

Заранее благодарю ребята!

П.С. Данный скрипт для прокачки мининга.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Попишу скрипты за еду.
СообщениеДобавлено: 06.10.2017 20:29 
Не в сети

Зарегистрирован: 21.04.2014 16:43
Сообщения: 9
Код:
Program OreSmell;
const
sumka = $4000225B;  // Сумка где лежит руда
dagger = $0F52;     // dagger type
_Forge = $0FB1;
ingots = $1BF2;
ore = $19B9;
var
forge:Cardinal;
procedure ArmsLor(item:Word);
begin
  if FindType(item,backpack) > 0 then
  begin
    UseSkill('Arms Lore');
    WaitForTarget(5000);
    if TargetPresent then TargetToObject(FindItem);
    Wait(555);
  end;
end;
procedure DropIngots(ingi:Word);
begin
  if (FindType(ingi,backpack) > 0) and (FindQuantity >=10) then
  begin 
    MoveItem(FindItem,FindQuantity,sumka,0,0,0);
    Wait(555);
  end;
end;
begin
  UseObject(sumka);
  Wait(555);
  AddToSystemJournal('Search Forge');
  FindDistance:=4;
  FindVertical:=20;
  if(FindType(_Forge,ground) > 0) then
  begin
    forge:=FindItem;
    AddToSystemJournal('Forge found');
  end
  else
  begin
    AddToSystemJournal('Forge not found !!!');
    halt;
  end;
  while(FindType(ore,sumka)>0) do
  begin
    MoveItem(FindItem,1,backpack,0,0,0);
    Wait(555);
    UseObject(FindItem);
    WaitForTarget(5000);
    if TargetPresent then TargetToObject(forge);
    Wait(555);
    ArmsLor(dagger);
    DropIngots(ingots);
  end;
end.


Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Попишу скрипты за еду.
СообщениеДобавлено: 25.10.2017 17:47 
Не в сети

Зарегистрирован: 11.09.2017 16:45
Сообщения: 1
Код:
program arms;
{$Include 'all.inc'}
var
i: integer;
const
  meditlvl = 50; // Если мана ниже этого числа, медитируем. (Цена заклинания + 1)
  sbook= $5A4E16CE; // ID Ерч-буки
  buttonnum = '113'; // ID кнопки в ерч буке.
 
  procedure castmyspell;
  begin
 
 
   CancelMenu;CancelMenu;CancelMenu;CancelMenu;
   if TargetPresent then CancelTarget;

   WaitTargetObject(findtype($0E34,backpack));
   UseSkill('Inscription');
   WaitGump(buttonnum);
   WaitForTarget(1000);
   TargetToObject(sbook);
 
   wait(5000);
  end;
 
 
  procedure medit;
  begin
   while (mana < maxmana) do
   begin
   useskill('meditation');
   wait(2000);
   end;
  end;
 
  procedure dosomethingawful;
  begin
  useobject(backpack);
  wait(500);
  FindTypeEx($0E34,$ffff,backpack,False);
  AddToSystemJournal('Осталось '+IntToStr(FindFullQuantity)+' скроллов.');
  Hungry(2,backpack);
  end;
 
 
 
Begin
dosomethingawful;
i:=0;
while (true) do
  begin
   i:=i+1;
   if (mana > meditlvl) then begin castmyspell; end;
   if  (mana < meditlvl) then begin medit; end;
   if i>10 then begin dosomethingawful; i:=0 end;
   wait(500);
  end;
end.


В скриптах не очень силен, прощу помощи, попробовал то, что знаю :), но этого оказалось мало.. Суть того, что он постоянно тыкает на некробуку и пытается скопировать.. А хотелось бы чтоб на скролы, а потом на некробуку.. Спасибо !


Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 34 ]  На страницу Пред.  1, 2, 3

Часовой пояс: UTC + 2 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: Yahoo [Bot] и гости: 11


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron


Тюнинг и аксессуары. Тюнинг внедорожников: магазин 4х4 в Одессе. Интернет магазин "AMAX".
Также, на правах рекламы: школьный сайт: school-work.net и еще один: https://www.youtube.com/channel/UCFSPHKHjP22tEl8Rjcst9Fw.


Рейтинг@Mail.ru
Powered by phpBB® Forum Software © phpBB Group