Сообщений: 2688 Вас поблагодарили: 23 раз(а) в 23 сообщениях Зарегистрирован: 24.03.10 Со дня регистрации: 5118
Откуда: Россия
Скрипт на прохождение квеста на Чудесный Кубик.
Условия начала скрипта - наличие по 10 штук Проворных, Толстых и Уродливых Оранжевых рыбок.
Начать скрипт у входа в церковь Гирана.
Без рыбалки.
function CheckItemCount (const itemID: Integer; const quest: Boolean = False) : Integer;
var tempItem: TL2Item;
begin
if quest then Inventory.Quest.ByID(itemID, tempItem)
else Inventory.User.ByID(itemID, tempItem);
Result := tempItem.Count;
end;
procedure RunToHelvetia;
begin
while User.InCombat do //Если в бою, ждем.
begin
print'В бою, жду...';
delay(5000);
end;
if CheckItemCount(6450) or
CheckItemCount(6451) or
CheckItemCount(6452) < 10 then //Нет рыбки - конец.
Print 'Нет рыбки, отбой';
if CheckItemCount(6450) and
CheckItemCount(6451) and
CheckItemCount(6452) >= 10 then //Есть рыбка - погнали.
begin
Print 'Рыбка есть, начинаю';
Engine.BypassToServer('_bbshome'); // TP Giran
Delay(500);
Engine.BypassToServer('_support_teleport_0_0'); // TP Giran
Delay(500);
Engine.BypassToServer('_support_teleport_0_1_0'); // TP Giran
Delay(500);
Engine.BypassToServer('_support_teleport_1_1_0'); // TP Giran
Delay(7000);
Engine.MoveTo(82985, 148436, -3495); //Бежим в Гроцери
Engine.MoveTo(81552, 147509, -3490);
Engine.MoveTo(81496, 147228, -3559);
Engine.MoveTo(81281, 146917, -3559);
Engine.MoveTo(81136, 146956, -3559);
Engine.MoveTo(80018, 147430, -3559);
Engine.MoveTo(79986, 147582, -3559);
Engine.MoveTo(80058, 147640, -3535);
Engine.MoveTo(80102, 147641, -3534);
Engine.MoveTo(80452, 147889, -3533);
start();
end;
end;
procedure start;
begin
Engine.GetMailItems; //Принимаем почту(если работает на вашем серве)
Delay(500);
Engine.Settarget(30081); //Helvetia
Delay(500);
Engine.Dlgopen;
Delay(500);
Engine.DlgSel( 39;Quest');
Delay(500);
Engine.DlgSel(1);
Delay(500);
check();
end;
procedure check;
begin
if Engine.QuestStatus(40,5) then //Если квест на манор - отменяем.
begin
print 'Взял квест на манор, отменяю';
Engine.CancelQuest(40);
start();
end ;
if Engine.QuestStatus(40,2) then //Если квест на рыбку - продолжаем.
begin
print 'Взял квест на рыбку, все норм';
ofulle();
end;
end;
procedure itog; //Проверка на наличие кубика
begin
if CheckItemCount(10632) > 0 then
print 'Готово, кубик у нас!';
if CheckItemCount(10632) < 1 then
print 'Что-то пошло не так, кубика нет(';
end;
begin
if User.level > 0 then RunToHelvetia;
end.
Здесь присутствуют: 1 (пользователей: 0, гостей: 1)