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



Ответить на тему  [ Сообщений: 18 ]  На страницу Пред.  1, 2
Проверка квеста 
Автор Сообщение
Администратор
Аватар пользователя

Зарегистрирован: Пн янв 12, 2015 10:58 am
Сообщений: 1338
Сообщение Re: Проверка квеста
Через ини файл лучший вариант - считаю

_________________

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



Сб фев 21, 2015 4:13 pm
Профиль WWW
Куда я попал
Аватар пользователя

Зарегистрирован: Ср дек 24, 2014 3:33 pm
Сообщений: 56
Откуда: Центр Мира
Сообщение Re: Проверка квеста
Ну так через ини и есть ) Но чот запал с каждым днем угасает ) Надо мотивацию :mrgreen:

_________________
Живу бедно... ем сыр с плесенью,пью старое вино и машина у меня без крыши (:


Сб фев 21, 2015 9:05 pm
Профиль ICQ
Аватар пользователя

Зарегистрирован: Ср апр 27, 2016 5:45 pm
Сообщений: 18
Сообщение Re: Проверка квеста
Можно пожалуйста функцию или процедуру на одевание двух колец серег ?


Пн июн 25, 2018 10:39 am
Профиль
Аватар пользователя

Зарегистрирован: Ср апр 27, 2016 5:45 pm
Сообщений: 18
Сообщение Re: Проверка квеста
выложите эту функцию или процедуру на одевание двух сережек и колец


Пн июн 25, 2018 10:40 am
Профиль
Куда я попал

Зарегистрирован: Чт мар 29, 2018 8:12 am
Сообщений: 49
Сообщение Re: Проверка квеста
benevirm писал(а):
выложите эту функцию или процедуру на одевание двух сережек и колец

Мама волшебным словам не учила? :lol:

_________________
Оказываю помощь бесплатно только публично на форуме, цените свои и мое время.
AdrenalineScript.com - премиум плагины и скрипты


Пн июн 25, 2018 12:32 pm
Профиль WWW
Куда я попал

Зарегистрирован: Пт ноя 20, 2015 5:43 am
Сообщений: 53
Сообщение Re: Проверка квеста
lanmiller писал(а):
Ну так через ини и есть ) Но чот запал с каждым днем угасает ) Надо мотивацию :mrgreen:


а как через ини это делается? тоже хотел бы проверять статус того или иного квеста что бы легче было писать условия, можешь научить? пример кода бы...


Ср июн 27, 2018 2:16 pm
Профиль ICQ
Куда я попал

Зарегистрирован: Чт мар 29, 2018 8:12 am
Сообщений: 49
Сообщение Re: Проверка квеста
Отмена квеста под любые хроники.

Код:
uses
  SysUtils;
 
type
  TNetworkPacket = class
  public
    Current: Integer;
    procedure WriteQ(value: int64);
    procedure WriteD(value: Cardinal);
    procedure WriteH(value: Word);
    procedure WriteC(value: Byte);
    procedure WriteS(value: String);
    function ReadQ(): int64;
    function ReadD(): Cardinal;
    function ReadH(): Word;
    function ReadC(): Byte;
    function ReadS(): String;
    function ToHex(): String;
    constructor Create(pData: PChar; size: Word); overload;
    constructor Create(); overload;
  private
    data: Array[0..10240] of Byte;
  end;

constructor TNetworkPacket.Create(pData: PChar; size: Word);
begin
    inherited Create;
    Move(pData^, PChar(@data[0])^, size);
end;

constructor TNetworkPacket.Create();
begin
    inherited Create;
end;

function TNetworkPacket.ReadQ;
begin
    result:= PInt64(@data[Current])^;
    Current:= Current + sizeof(int64);
end;

function TNetworkPacket.ReadD;
begin
    result:= PCardinal(@data[Current])^;
    Current:= Current + sizeof(Cardinal);
end;
 
function TNetworkPacket.ReadH;
begin
    result:= PWord(@data[Current])^;
    Current:= Current + sizeof(Word);
end;
 
function TNetworkPacket.ReadC;
begin
    result:= PByte(@data[Current])^;
    Current:= Current + sizeof(Byte);
end;
 
function TNetworkPacket.ReadS;
begin
    result:= string(PChar(@data[Current]));
    Current:= Current + (length(result) + 1) * sizeof(Char);
end;

procedure TNetworkPacket.WriteQ;
begin
  (PInt64(@data[Current])^):= value;
  Current:= Current + sizeof(int64);
end;
 
procedure TNetworkPacket.WriteD;
begin
  (PCardinal(@data[Current])^):= value;
  Current:= Current + sizeof(Cardinal);
end;
 
procedure TNetworkPacket.WriteH;
begin
  (PWord(@data[Current])^):= value;
  Current:= Current + sizeof(Word);
end;
 
procedure TNetworkPacket.WriteC;
begin
  (PByte(@data[Current])^):= value;
  Current:= Current + sizeof(Byte);
end;
 
procedure TNetworkPacket.WriteS;
begin
  Move(value^, PChar(@data[Current])^, (length(value) + 1) * sizeof(Char));
  Current:= Current + (length(value) + 1) * sizeof(Char);
end;
 
function TNetworkPacket.ToHex;
var
  i: Cardinal;
begin
  result:= '';
  for i:= 0 to Current - 1 do
  begin
    result:= result + IntToHex(data[i], 2);
  end;
end;

procedure OnPacket(ID1, ID2: Cardinal; Data: Pointer; Size: Word);
begin
 
end;

procedure OnCliPacket(ID1, ID2: Cardinal; Data: Pointer; Size: Word);
begin

end;

procedure RequestQuestAbort(Control: TL2Control; ID: cardinal);
var
  Pck: TNetworkPacket;
begin
  Pck:= TNetworkPacket.Create;

  if (Engine.GameVersion <= 74) then
    Pck.WriteC($64)
  else
    Pck.WriteC($63);
  Pck.WriteD(ID);

  Control.SendToServer(Pck.ToHex);
  Pck.Free;
end;

procedure CancelQuest(Control: TL2Control; ID: cardinal);
begin
  RequestQuestAbort(Control, ID); 
end;

begin
  CancelQuest(Engine, 777);
end.

_________________
Оказываю помощь бесплатно только публично на форуме, цените свои и мое время.
AdrenalineScript.com - премиум плагины и скрипты


Ср июн 27, 2018 4:42 pm
Профиль WWW
Куда я попал

Зарегистрирован: Пт апр 01, 2016 11:23 am
Сообщений: 72
Сообщение Re: Проверка квеста
Krickt01 писал(а):
procedure RequestQuestAbort(Control: TL2Control; ID: cardinal);
var
Pck: TNetworkPacket;
begin
Pck:= TNetworkPacket.Create;

if (
Engine.GameVersion <= 74) then
Pck.WriteC($64)
else
Pck.WriteC($63);
Pck.WriteD(ID);

Control.SendToServer(Pck.ToHex);
Pck.Free;
end;


кто будет тупо копировать, обратите внимание.

_________________
Скрипты любой сложности: Изображениеmuhebpa
Скрипт фарма на ГВЕ
Скрипт 1-40 для Классика


Чт июн 28, 2018 6:22 am
Профиль
Показать сообщения за:  Сортировать по:  
Ответить на тему   [ Сообщений: 18 ]  На страницу Пред.  1, 2

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

Сейчас этот форум просматривают: Google [Bot] и гости: 5


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

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