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

Попишу скрипты за еду.

тут можно задать вопрос по скриптингу
nah nah
Developer
Developer
Posts: 414
Joined: 13.07.2011 11:23
Contact:

Re: Попишу скрипты за еду.

Post by nah nah »

В скрипте не находит реагенты в ReloadBag
Daimond
Neophyte
Neophyte
Posts: 10
Joined: 15.03.2017 13:12

Re: Попишу скрипты за еду.

Post by Daimond »

если не сложно напиши скрипт на стелсе. (образец как исполнен на инжекте)

Code: Select all

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 сброс ингот напол или в сумку которая стоит на полу чтоб руда стокалась.

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

П.С. Данный скрипт для прокачки мининга.
maza
Neophyte
Neophyte
Posts: 14
Joined: 21.04.2014 16:43

Re: Попишу скрипты за еду.

Post by maza »

Code: Select all

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.
Malaysia
Posts: 1
Joined: 11.09.2017 16:45

Re: Попишу скрипты за еду.

Post by Malaysia »

Code: Select all

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.
В скриптах не очень силен, прощу помощи, попробовал то, что знаю :), но этого оказалось мало.. Суть того, что он постоянно тыкает на некробуку и пытается скопировать.. А хотелось бы чтоб на скролы, а потом на некробуку.. Спасибо !
old oskom free
Posts: 1
Joined: 01.12.2018 16:48

Re: Попишу скрипты за еду.

Post by old oskom free »

ТС занимаешься ещё скриптами? дай коордианты как стобой связаться!
Keksolog
Posts: 1
Joined: 11.10.2019 20:50

Re: Попишу скрипты за еду.

Post by Keksolog »

народ пишет кто еще скрипты на заказ?
интересуют скрипты на этот шард http://zuluhotel.net/
Post Reply