Jump to content

St0rmy

Members
  • Posts

    11
  • Credits

  • Joined

  • Last visited

  • Feedback

    0%

Posts posted by St0rmy

  1. Script by TilerDerton

    who knows Russian, let will translate for other. to me laziness :)

    {Баг-энчантер by TilerDerton - самая говеная версия}

    const

      name='TilerDerton'; // Ник

     

    var

    i:integer;

    UseItem, UseScroll, Ench, Dep, Withd, BypassD, BypassW: string;

     

    {******************************************************************************}

    procedure Say(msg:string);

    begin

      buf:=#$4A;

      WriteD(0);

      WriteD(10);

      WriteS('');

      WriteS(msg);

      SendToClient;

    end;

    {******************************************************************************}

     

    procedure Init; //Вызывается при включении скрипта

    begin

    say('Use item to enchant=)');

    end;

     

    procedure Free; //Вызывается при выключении скрипта

    begin

     

    end;

     

    procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения

    begin

     

    end;

     

    procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения

    begin

     

    end;

     

    //основная часть скрипта

    //вызывается при приходе каждого пакета если скрипт включен

    begin

    if pck='' then exit;

     

    if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (UseItem='') then begin

    UseItem:=pck; /// Випон

    say('Item is ready, now use scroll...');

    end;

    if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (UseItem<>pck) and (UseScroll='') then begin

    UseScroll:=pck; /// точка

    say('Nice, now enchant your item...');

    end;

    if FromClient and (ConnectName=Name) and (pck[1]=#$58) and (Ench='') then begin

    Ench:=pck; //Энч

    say('Sweet! Open deposit window please...');

    end;

    if FromClient and (ConnectName=Name) and (pck[1]=#$21) and (BypassD='') then begin

    BypassD:=pck; // Bdep

    say('Deposit your item (only it)')

    end;

    if FromClient and (ConnectName=Name) and (pck[1]=#$31) and (Dep='') then begin

    Dep:=pck; // dep

    say('Well done! So you shoud withdraw your item, eqip it, use scroll and make social "Yes"=)')

    end;

    if (FromClient) and (ConnectName=Name) and (pck=hstr('1B 06 00 00 00')) then begin

    pck:='';

    buf:=UseScroll;

    SendToServer;

    buf:=Ench;

    SendToServer;

    buf:=UseItem;

    SendToServer;

    buf:=BypassD;

    SendToServer;

    buf:=Dep;

    SendToServer;

    end;

     

    end.

×
×
  • Create New...

AdBlock Extension Detected!

Our website is made possible by displaying online advertisements to our members.

Please disable AdBlock browser extension first, to be able to use our community.

I've Disabled AdBlock