СКРИПТ НА ТМ ДЛЯ ДРВ

[Nasty Nay]

Заделитесь пожалусто буду очень благодарна..

[v26RuS]

Code: Select all

var t : Integer;
      enemy, staff : Cardinal;
 STime: TDateTime;

{$Include 'all.inc'}

Begin
Enemy := $003258E8; // ID NPC
staff := $003258E8; // ID Taming Staff
SetARStatus(true);
{Hungry(1,backpack);}
clearjournal;
while not Dead do
 begin
   WaitTargetObject(Enemy);
   UseObject(staff);
  STime := Now;
  WaitJournalLine(STime,'You fail|accept',100000);
  UOSay('all release');
  wait(1000);
  If WarMode Then
   begin
    SetWarMode(False);
    UOSay('guards');
    wait(1000)
   end;
 end;
End.

[Nasty Nay]

Простите вы меня не так поняли, я имела ввиду варить тотал маны)

[Nasty Nay]

хотя и за этот скрипт вам преогромнейшее спасибо)

[ShraM]

Простите вы меня не так поняли, я имела ввиду варить тотал маны)

Это то выразилась не так:)

[v26RuS]

Немного пошевелив мозгами написал скриптик на алхимию под ДРВ... честно скажу не тестировал попробуй расскажешь как)

Code: Select all

Program AlchemyDRW; 
{$Include 'all.inc'}

var
 STime: TDateTime;
 q: integer;
 AlchemyFlag : Boolean;  

const 
WhatYouDo = 'Total Mana'; // Что делаем
TypBottles = $0F0E;  // Тип пустых бутылок
TypPotion = $0F0A;   // Тип готовых бутылок
TypReag= $0F87;  // Тип реагентов из которых делаем
CountRegs = 10; // Какое количество реагентов брать
CountBottles = 5; // Какое количество пустых бутылок брать
Sunduk_reags_bottels = $40053D27; // ИД сундука с которого берем бутылки и реагенты
Sunduk_craft = $40053D27;  // ИД сундука в который кладем готовый продукт


procedure check_reag; 
 begin 
  FindType(TypReag,Backpack); 
  if (FindCount=0) OR (Count(TypReag)<10) then 
    begin 
      UseObject(Sunduk_reags_bottels); 
      wait(250); 
      FindType(TypReag,Sunduk_reags_bottels); 
      if (FindCount>0) and (CountEx(TypReag,$0000,Sunduk_reags_bottels)>100) then 
        begin 
          MoveItem(FindItem,CountRegs,Backpack,0,0,0); 
          wait(250); 
          AddToSystemJournal('Добрали '+IntToStr(CountRegs)+' реагентов. На данный момент имеем '+IntToStr(Count(TypReag))+' штук. Осталось ещё '+IntToStr(CountEx(TypReag,$0000,Sunduk_reags_bottels))+' реагентов.'); 
        end 
      else 
        AddToSystemJournal('Ошибка во время добора реагентов.'); 
	AlchemyFlag := false;
    end 
 end; 

procedure check_bootle; 
 begin 
  FindType(TypBottles,Backpack); 
  if (FindCount=0) OR (Count(TypBottles)<10) then 
    begin 
      UseObject(Sunduk_reags_bottels); 
      wait(250); 
      FindType(TypBottles,Sunduk_reags_bottels); 
      if (FindCount>0) and (CountEx(TypBottles,$0000,Sunduk_reags_bottels)>100) then 
        begin 
          MoveItem(FindItem,CountBottles,Backpack,0,0,0); 
          wait(250); 
          AddToSystemJournal('Добрали '+IntToStr(CountBottles)+' бутылок. На данный момент имеем '+IntToStr(Count(TypBottles))+' штук. Осталось ещё '+IntToStr(CountEx(TypBottles,$0000,Sunduk_reags_bottels))+' бутылок.'); 
        end 
      else 
        AddToSystemJournal('Ошибка во время добора реагентов.'); 
	AlchemyFlag := false;
    end 
 end; 

procedure craft_bottle; 
 begin 
      FindType(TypPotion,Backpack); 
      if (FindCount>0) AND (Count(TypPotion) > 9) then 
        begin 
          MoveItem(FindItem,1,Sunduk_craft,0,0,0); 
          wait(800); 
      end; 
 end; 


Begin
AlchemyFlag := true;
CancelMenu;
wait(500)
Automenu('What',WhatYouDo);
repeat

check_reag;
check_bootle;

UseObject(FindType(TypReag,Backpack))
Wait(500);
STime := Now;
	repeat
	wait(500)
	q := q+1;
	checksave;
	until (InJournalBetweenTimes('You put', STime, Now)<>-1) or (InJournalBetweenTimes('You toss', STime, Now)<>-1) or (AlchemyFlag = false) or (q > 300);

craft_bottle;

until (AlchemyFlag = false) or Dead;

FullDisconnect;

End.