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

[nah nah]

В скрипте не находит реагенты в ReloadBag

[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]

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]

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]

ТС занимаешься ещё скриптами? дай коордианты как стобой связаться!

[Keksolog]

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