И даже не знаю в чем проблема, но большинство найденных мной здесь скриптов тупо не работает. Будем переписывать)
Все скрипты переписываю под DRW.
Начнем с магии: оригинал: http://stealth.od.ua/forum/viewtopic.php?t=576
Magery + meditation
Code: Select all
Program MagicResistance;
// v.1.04 (c) Edred
//upd by Unholy (DRW, 8.01.2013)
{$Include 'all.inc'}
var
i:integer;
k:integer;
const
// ID корыта с водой.
derSunduk=$400D0339;
TypeCast='Poison';
// Реги
//BPreg=$0F7A;
//BMreg=$0F7B;
//GAreg=$0F84;
//GSreg=$0F85;
//MRreg=$0F86;
NSreg=$0F88;
//SAreg=$0F8C;
//SSreg=$0F8D;
castTime = 5000; //Время на каст
procedure getitems(item:cardinal);
// процедура берет из контейнера 20 шт указанного предмета
begin
if (count(item)=0) then
begin
UseObject(derSunduk);
wait(100);
findType(item,derSunduk);
if (FindCount > 0) then
begin
k := FindQuantity;
Grab(finditem,20);
wait(1000);
checksave;
addtosystemjournal('Добрали регов ' + inttostr(item));
end
else
begin
addtosystemjournal('Закончились ' + inttostr(item));
wait(5000);
checksave;
getitems(item); // Собственно я понятия не имею зачем в оригинале был повтор, но раз был значит надо. А раз надо значит сделаем вот так.
end;
end;
end;
procedure Medita;
begin
waitconnection(5000);
if (mana <= MaxMana) then
begin
i:=0;
repeat
useskill('meditation');
wait(1000);
i:=i+1;
checksave;
until (Mana >= MaxMana);
addtosystemjournal('медитация закончена');
end;
end;
procedure Cast2Self;
begin
waitconnection(5000);
getitems(NSreg); // добор регов
checksave;
TargetToObject(self);
cast(TypeCast);
WaitForTarget(5000);
if targetpresent then
begin
TargetToObject(self);
end;
wait(castTime + 100);
end;
Begin
while true do
begin
waitconnection(5000);
Cast2Self;
Medita;
end;
End.