Code: Select all
Столкнулся я с маленькой проблемой на ДРВ. Нужно было создать левача, и прокачать ему силу до 150 (с 45)... Может у меня руки кривые, но поиск не помог. И вот решил я написать свой скрипт!- 1.Создаем левочара.
2.Кушаем 1 свенью.
3.Берем в пак 7 курсовых шмоток.
4.Заполняем массив с курсой типами этих шмоток.
5.Идем к тренировочной кукле.
6.Вписываем ID куклы.
7.Лочим боевые скиллы которые будут использоваться (Изначально Wrestling, если вы будете использовать курсованную кирку то и Macefighting)
8.Запускаем скрипт.
9.Сворачиваем в трей, и забиваем на скрипт часиков этак на 15-16!
Code: Select all
Program Kach_statov;
//Прокачка силы до 156 и Хидинга
//Для ДРВ (DRW.ru)
//by Unholy
const Grysha = $4003B62E; // ID груши
var odejda: array [0..6] of word;
Veshch : integer;
procedure Ydar; //Юзаем грушу
begin
UseObject(Grysha);
wait(1500);
AddToSystemJournal('Ударил грушу.');
end;
procedure Kach_Hid; // Пока груша качается - используем хайдинг
begin
useskill('Hiding');
wait(3000);
AddToSystemJournal('Ушол в хайд.');
end;
procedure Check_mudak; //Если кто-то ударил - зовем охрану.
begin
if (HP < MaxHP) then
begin
AddToSystemJournal('Нашлась крыса!');
uosay('Guards');
wait(1000);
SetWarMode(false);
end;
end;
procedure Check_World_Save;
var k : integer;
begin
if InJournal('saving')<>-1 then
begin
ClearJournal;
k:=0;
repeat
wait(10000)
k:=k+1;
AddToSystemJournal('World is saving more than '+IntToStr(k*10)+' seconds.');
until (InJournal('data')<>-1) or (k>30)
end
end;
procedure Check_str; //Если силы = 100, одеваем курсу.
begin
//Массив курсовой одежды. Вставляем типы своей курсы!
odejda[0]:= $1F03; //robe
odejda[1]:= $1539; //long pants
odejda[2]:= $13CC; //leather tunic
odejda[3]:= $13C5; //leather sleeves
odejda[4]:= $170D; //sandals
odejda[5]:= $1515; //cloak
odejda[6]:= $13C6; //leather gloves
if (Str > 99) then
begin
UseObject(FindType(odejda[Veshch],Backpack));
Veshch := Veshch + 1;
AddToSystemJournal('Одели курсу.');
end;
end;
Begin
ClearJournal;
while not Dead do
Begin
Check_str;
Ydar;
Check_World_Save;
Kach_Hid;
Check_mudak;
wait(200);
End;
end.
1)Чтоб он сам искал какая курса присутствует в паке, и использовал ее.
2)Чтоб можно было прокачивать Все статы.
3)Чтоб все что нужно было сделать пользователю - это вписать ID куклы, и значения статов до которых персонажу нужно докачаться!
Но это будет не скоро
Ребяты, я на этом скрипте 2 левачей прокачал, сейчас третьего качаю!