Перейти к содержимому

Фотография
- - - - -

Сбор точек респа и запись их в файл



  • Авторизуйтесь для ответа в теме
Сообщений в теме: 3

#1
SARCAZM

SARCAZM
uses SysUtils, Classes;

const resp = 'E:\NewResp.txt';
      City = 'Гиран'; //Название города

var
    q: integer;
    pos: string;
    NewResp: TStringList;

procedure OnFree;
begin
NewResp.SaveToFile(resp);
NewResp.free;
end;

begin
NewResp:= TStringList.Create;
if not FileExists(resp) then NewResp.SaveToFile(resp);
NewResp.LoadFromFile(resp);
  while Engine.Status = lsOnline do begin
    Engine.UseItem(736);
    Delay(22000);
    pos:= City+': '+IntToStr(User.X)+', '+IntToStr(User.Y)+', '+IntToStr(User.Z);
    q:=NewResp.IndexOf(pos);
    if q=-1 then begin
      NewResp.Add(City+': '+IntToStr(User.X)+', '+IntToStr(User.Y)+', '+IntToStr(User.Z));
      Print(pos+' Добавлено в базу');
      NewResp.SaveToFile(resp);
      Print(inttostr(NewResp.Count));
      delay(1000);
    end;
  end;
end.

post-1-0-74388000-1448840273.png

С форума л2бот.нет, от squiz


  • 1

#2
lorenso

lorenso
  • 5
    0
    Не выбрано
    • Lvl 3
    • Пользователь

Т.Е. он схораняет маршруты дя каждой точки респа после воскрешения или как? 


  • 0

#3
platemate

platemate
  • 36
    2
    Не выбрано
    • Lvl 21
    • Пользователь

Thank you :)


  • -2

#4
sasha282

sasha282
  • 233
    71
    Не выбрано
    • Lvl 40
    • Пользователь
    Skype
    Sanya628292
    Город
    Днепропетровск

[

Т.Е. он схораняет маршруты дя каждой точки респа после воскрешения или как? 
 

Как я понял он сохраняет точки респа после тп. Тоесть для того чтобы прописать путь к нпс после тп, нужно узнать все точки респа (в этом и поможет скрипт), и потом прийти на каждую из них и дописать вручную путь от каждой точки.


  • 0

Skype: Sanya628292 




Темы с аналогичным тегами Готовый скрипт

Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных

Rawr.su - Сделано с для игроков.