Сообщения без ответов | Активные темы Текущее время: Чт янв 18, 2018 4:42 pm



Ответить на тему  [ Сообщений: 638 ]  На страницу Пред.  1 ... 60, 61, 62, 63, 64
Вопросы по скриптам 
Автор Сообщение
Куда я попал
Аватар пользователя

Зарегистрирован: Вт май 03, 2016 2:17 pm
Сообщений: 45
Сообщение Re: Вопросы по скриптам
mrak51 писал(а):
Подскажите как прописать проверку дистанции до цели к примеру если цель в радиусе 100 от персонажа выполняет действие?

Код:
uses SysUtils, Classes, RegExpr;
var
Item: TL2Item;
i: Integer;
obj:  TL2Effect;
buffer, GK: TL2npc;
Buff: TL2Effect;
////
if NpcList.ByID(1234567, buffer) and (buffer.DistTo(User) <1500)
then begin  //1
Print('NPC есть в радиусе 1500');


Пт дек 29, 2017 4:51 pm
Профиль ICQ
Куда я попал
Аватар пользователя

Зарегистрирован: Вт май 03, 2016 2:17 pm
Сообщений: 45
Сообщение Re: Вопросы по скриптам
Вообщем дошли наконецто руки до написания простенькой антикапчи, но сначала тестировать ее конечно лучше не на чарах )) а чисто в боте, для этого мне нужна помощь, я хочу в боте в скрипт загружать из txt или html файла (сохраненые капчи) строки и с ними уже работать, но тут проблемка - у меня парсинг работает с типом string а подгружается данные с типом TStringlist и их надо както подружить - как перевести изстринглист в одну строку для парсинга ? или как подгрузить сразу в виде стринг ?
Код:
uses SysUtils, Classes;
var
  kusok, HTML: string;
  L :TStringlist;     
begin
L := TStringList.Create;   
L.LoadFromFile('C:/1.txt'); 
print(L); // в систем чате не выводит стринглист ?

//L:= HTML; // <=== текущая задача


//HTML:=Engine.DlgText; // потом будет както так

      kusok := Copy(HTML, 1023, 14);  // просто для тестов и настройки
      print(kusok);

      //if kusok = ...
      //...
L.Free;     
end.


Пт дек 29, 2017 5:07 pm
Профиль ICQ
Куда я попал
Аватар пользователя

Зарегистрирован: Вт май 03, 2016 2:17 pm
Сообщений: 45
Сообщение Re: Вопросы по скриптам
Как хорошо пообщатся с умным человеком, самим с собой)))
вот вдруг каму пригодится
Код:
uses SysUtils, Classes, RegExpr;
var L,StrList               :TStringList;
var Str,TempStr,kusok,HTML  :String;

begin
L := TStringList.Create;   
L.LoadFromFile('C:/1.txt');
HTML := L.Text;
print(HTML);

//HTML:=Engine.DlgText; // потом будет както так

      kusok := Copy(HTML, 1023, 14);  // просто для тестов и настройки
      print(kusok);

      //if kusok = ...
      //...
L.Free;     
end.


Пт дек 29, 2017 8:53 pm
Профиль ICQ

Зарегистрирован: Пт авг 26, 2016 3:33 am
Сообщений: 7
Сообщение Re: Вопросы по скриптам
Ребят проблемка,может кто-то сталкилвался с подобным,купил скрипт текстантикаптчу ,скачал уставновил все как по инструкции ну чтот я не догоняю запускаются все скрипты в паке кроме одного который мне нужен а именно CaptchaASCII,ну ни как не реагирует,может кто сталкивался с данной проблемкой или я что-то делаю не так.
p.s отблагодарю если решим : ) писать в личку .
По всему форуму лазить не стал,может есть решение.


Сб дек 30, 2017 11:24 am
Профиль ICQ
Флудер

Зарегистрирован: Чт дек 11, 2014 12:50 pm
Сообщений: 225
Сообщение Re: Вопросы по скриптам
Yri4 писал(а):
Ребят проблемка,может кто-то сталкилвался с подобным,купил скрипт текстантикаптчу ,скачал уставновил все как по инструкции ну чтот я не догоняю запускаются все скрипты в паке кроме одного который мне нужен а именно CaptchaASCII,ну ни как не реагирует,может кто сталкивался с данной проблемкой или я что-то делаю не так.
p.s отблагодарю если решим : ) писать в личку .
По всему форуму лазить не стал,может есть решение.

разрабу скриптов пиши в скайп

_________________
Изображение


Сб дек 30, 2017 7:07 pm
Профиль

Зарегистрирован: Пт авг 26, 2016 3:33 am
Сообщений: 7
Сообщение Re: Вопросы по скриптам
naderta писал(а):
Yri4 писал(а):
Ребят проблемка,может кто-то сталкилвался с подобным,купил скрипт текстантикаптчу ,скачал уставновил все как по инструкции ну чтот я не догоняю запускаются все скрипты в паке кроме одного который мне нужен а именно CaptchaASCII,ну ни как не реагирует,может кто сталкивался с данной проблемкой или я что-то делаю не так.
p.s отблагодарю если решим : ) писать в личку .
По всему форуму лазить не стал,может есть решение.

разрабу скриптов пиши в скайп

Новый год на носу,он же тоже человек,отдохнуть хочет.


Сб дек 30, 2017 7:48 pm
Профиль ICQ

Зарегистрирован: Пт авг 26, 2016 3:33 am
Сообщений: 7
Сообщение Re: Вопросы по скриптам
Yri4 писал(а):
naderta писал(а):
Yri4 писал(а):
Ребят проблемка,может кто-то сталкилвался с подобным,купил скрипт текстантикаптчу ,скачал уставновил все как по инструкции ну чтот я не догоняю запускаются все скрипты в паке кроме одного который мне нужен а именно CaptchaASCII,ну ни как не реагирует,может кто сталкивался с данной проблемкой или я что-то делаю не так.
p.s отблагодарю если решим : ) писать в личку .
По всему форуму лазить не стал,может есть решение.

разрабу скриптов пиши в скайп

Новый год на носу,он же тоже человек,отдохнуть хочет.

Проблема решена : )


Вс дек 31, 2017 5:41 pm
Профиль ICQ
Куда я попал

Зарегистрирован: Пт окт 14, 2016 12:00 pm
Сообщений: 24
Сообщение Re: Вопросы по скриптам
Нужен простой скрипт для юзания руны мавр. ид:23755 . Упаковка руны мавр ид;23758. Как толька в инвентаре исчезнет мавр, скрипт должен распаковать упаковку.


Ср янв 10, 2018 6:15 am
Профиль
Показать сообщения за:  Сортировать по:  
Ответить на тему   [ Сообщений: 638 ]  На страницу Пред.  1 ... 60, 61, 62, 63, 64

Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Разработано: g-yar.
Русская поддержка phpBB