{Share}l2phx enchant video + photo for Interlude servers

[˚کe®κ]

hmm if i try a town without ppl its beter? lol i didn't know that :S

yes is better...

[Senone]

nice one ;)

[St0rmy]

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.

[aldorip]

Ola galera so novo aki tentando apreder um pouco como funciona

[aldorip]

conseuqi  800 pointo e qe foda ^^

[geokoul1991]

to English l2phx douleyei to elliniko dn douleyei ..pfff

[muiuc]

nice  ;D

[Sound]

good D:'

[amadeus54]

its  works in offical servers too?i hope yes^^

In l2j servers working fine.ty

[Falling]

Very nicee, Dont play IL anymore thou, btw nice bow ;)

[Tatiana]

Lol script is for phx multi linguage ? and 800 post nice ahhh i need hackied maxcheaters XDXDXD plx givme in pm for i tri in all brs server :)  case not possible it is not spam is only try ask to help ok :)

tancks guys !

[blubb]

I've tested it on 2 good IL servers and it works. Nice Share

 

Edit: didnt worked on ES :P

[nezzeik17]

interlude :S

[unisex69]

it's only for interlude?

[xMarcelo]

Tried it on L2Extreme, L2Off.

Didnt worked :/

The itens goes to WH but without enchant