Сброник полезных скриптов

Модератор: IvaniuS

Аватара пользователя
squiz
Какие наркотики ?
Сообщения: 354
Зарегистрирован: Пн фев 02, 2015 11:28 pm

Сб апр 02, 2016 4:29 am

Отбиваемся и выходим из игры в указанное время

Код: Выделить всё

uses SysUtils, Classes;

const
  offtime = '04:57'; //указываем время отключения

//Сравниваем текущее время с offtime
function TT: boolean;
var
  Date : TDateTime;
begin
  Date := time;
  if (FormatDateTime('hh:nn', now) >= offtime) then
  begin
    Print('time to relax '+FormatDateTime('hh:nn', date));
    Result:= True;
  end else Result:= False;
end;

//Проверка на агров
function Fight: boolean;
var
  i: integer;
begin
  for i:=0 to NpcList.count-1 do
  begin
   if (NpcList.Items(i).Target = User)
    and not NpcList.Items(i).Dead then
    begin
    Print('agr true');
    Result:= true;
    end else Result:= false;
  end;
end;

//Отбиваемся
procedure Combat;
var
  i: integer;
begin
  while Fight do begin
    delay(100);
    for i:= 0 to NpcList.count-1 do
      begin
        if (NpcList.Items(i).Target = User) and not NpcList.Items(i).Dead then
        begin
        Engine.SetTarget(NpcList.Items(i));
    
          while not User.Target.Dead do begin
            //Тут пишем код, как будем отбиваться от мобов, юзать банки и т.д.
          end;
      
        end;
    end;
    
  end;
end;

//Потоковый цикл проверки ТТ + выполнение требуемого действия
procedure TTOff;
begin
  while true do begin
  delay(500);
    if TT then begin
    Engine.FaceControl(1, false); //выключаем интерфейс
    Combat; //отбиваемся
    Engine.Restart;
    Delay(5000);
    Engine.GameClose;
    Script.Stop;
    end;
  end;
end;



begin
Script.NewThread(@TTOff);
Delay(-1);
end.
Аватара пользователя
IvaniuS
Администратор
Сообщения: 1372
Зарегистрирован: Пн янв 12, 2015 10:58 am
Контактная информация:

Пт янв 20, 2017 1:43 pm

Nike писал(а):

Код: Выделить всё

var
i: integer;
begin
  for i := 0 to LearnList2.count-1 do
  if LearnList2(I).NeedLevel <= User.Level then
  begin
    print('Учим: ' + LearnList2(I).name);
    if Engine.LearnSkill(LearnList2(I).ID) then
      print('Успешно')
  end;  
end.

Мой Сайт, Тут есть все скрипты: 1-85, Заточка, Аугмент и много чего другого
skype: live:ivanius51
вопросы по СКРИПТАМ, не программированию - БЕСПЛАТНО!

Ответить