l2 phx SCRIPT

Mindexz · 02/05/2009, 19:11

dont error new scrift l2 phx program enchant weapon

login server you edit name i u char name Name='IPXS' IPXS name edit i u server char name PVZ Name='meName'

PHP Code:


			
//Ąāņīģąņčēąöč˙ ēąņī÷źč ļšåäģåņīā äī ķåīįõīäčģīćī óšīāķ˙ by IPXS

//version 0.7 īņ 20.07.2008ć.

program Enchant;

{********************************************************************************

&#256;īēģīęķīńņč ńźščļņą:

--------------------

0.1

+ &#315;ąķåėü óļšąāėåķč˙;

+ &#274;ąņą÷čāąåģ ļī ī÷åšåäč āńå ļšåäģåņū ń ItemID ļīźą ķå ļåšåėīģąåģ

  &#269;ėč ķå ēąņī÷čģ, īäčķ ļšåäģåņ āńåćäą īńņąøņń˙;

0.2

+ &#269;ńļšąāėåķ āūįīš ķąēāąķčé ļšåäģåņīā čē čķāåķņąš˙;

+ &#311;åįīėüųą˙ ļšąāźą źīäą;

0.3

+ &#315;šīāåšåķī ķą theAbyss (āńå ļšåäģåņū čķāåķņąš˙ ÷ąšą āčäčņ);

+ &#269;ńļšąāėåķą īųčįźą źīäą āūįīšą ńźšīėėīā;

+ &#269;ńļšąāėåķą īųčįźą ļīäń÷åņą ńóģģū ļšåäģåņīā;

0.4

+ &#324;ļåöčąėüķī äė˙ Miler ļšīāåšåķī ķą La2Titan (ēąņą÷čāąė Mantikore Skin Shirt äī +7);

+ &#269;ńļšąāėåķą ļšīöåäóšą InventoryUpdate;

+ &#269;ēģåķåķą ėīćčźą ēąņą÷čāąķč˙;

+ &#275;ąćīņīāźą ļīźóļźč ēąņī÷åź/āåłåé;

0.5

+ &#316;šīāåšåķī ķą L2Fantasy;

+ ä&#299;įąāėåķą ļšīāåšźą, åńėč ēąņī÷źą ńįšąńūāąåņń˙ ā 0 įåē ļīėīģźč āåłč;

+ ä&#299;įąāėåķ źīä, åńėč ķąäī ņī÷čņü īäķó āåłü (īļöčīķąėüķī);

0.6

+ &#269;ēģåķčė āūįīšźó ItemId;

0.7

+ &#269;ńļšąāėåķī ńģåłåķčå ā CreateItemBase äė˙ Ń4, ńļąńčįī Mulder



====================================================================

Š&#261;įīņą ńźščļņą ļšīāåš˙ėąńü ķą ėīźąėüķīģ Čķņåšėžäą ńåšāåšå,

ä&#279;˙ Ń4 ķå ļšīāåš˙ėąńü č ļīääåšęčāąņüń˙ äąėåå ķå įóäåņ.

====================================================================



&#310;åīįõīäčģī ēąņąščņüń˙ īšóęčåģ, ēąņī÷źąģč č āąėåšü˙ķźīé.

Name='IPXS'; //Āļčńąņü ńžäą čģ˙ ÷ąšą

//óńņąķīāčņü źīķńņąķņó ā ēąāčńčģīńņč īņ ņčļą čćšū (Ń4 čėč Čķņåšėžä)

interlude=true; //Interlude - true, C4 - false



&#256;ķčģąķčå!

&#268;ē źīģįīįīźńą īį˙ēąņåėüķī ķąäī āūįšąņü āåłü, ÷ņīįū ńźščļņ óēķąė

ID &#269; źīėč÷åńņāī, ņīėüźī ļīņīģ ńņąāčņü ķąļšīņčā ćąėī÷źó.

&#262;ąėī÷źč ńķčģąņü ķå ķąäī, åńėč źīķ÷čėčńü ēąņī÷źč/āåłč - ģīęķī ńšąēó čäņč

&#316;īźóļąņü č ļšīäīėęąņü ēąņī÷źó.



&#323;źščļņ šąńļšīńņšąķ˙åņń˙ źąź åńņü, č ˙ ķå ķåńó īņāåņńņāåķķīńņč ēą ņī, ÷ņī

&#256;Ū ķąņāīščėč ó ńåį˙, åćī čńļīėüēó˙.



MyICQ 402988808

********************************************************************************}



//............................................

//Ńļčńīź źīķńņąķņ

const

  Name='JUSU NICAS'; //Āļčńąņü ńžäą čģ˙ ÷ąšą

  //óńņąķīāčņü źīķńņąķņó ā ēąāčńčģīńņč īņ ņčļą čćšū (Ń4 čėč Čķņåšėžä)

  interlude=true; //Interlude - true, C4 - false

  //-------------------------

  max=250;     //źīėč÷åńņāī ńėīņīā ā čķāåķņąšå ÷ąšą



//............................................

//Ńļčńīź ļåšåģåķķūõ

var

  Item, scrl:integer;

  ScrollID, ScrollOID:integer;  //ScrollID ńźšīėėą ēąņī÷źč

  ItemID,ItemOID:integer;      //ItemID ēąņą÷čāąåģīćī ļšåäģåņą

  MaxEnchLvl:integer;         //óšīāåķü ēąņī÷źč źīņīšūé ņšåįóåņń˙ äīńņč÷ü

  ItemBase:  array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl

  ready, add : boolean;

  timer : TTimer;

  ItemCount, CurEnchLvl: integer;

  SocialID : integer; // āńļīģīćąņåėüķą˙

  ItemsName, StringList : TStringList;  //ķąēāąķč˙ ļšåäģåņīā, čģåķą ļšīäąāöīā

  FormMain : TForm; //Ńīēäąāąåģą˙ ōīšģą

  Splitter1 : TSplitter;

  Splitter2 : TSplitter;

  Stats : TMemo;

  Msg : TMemo;

  Panel1 : TPanel;

  GroupBox2 : TGroupBox;

  Label2 : TLabel;

  Label4 : TLabel;

  Label12 : TLabel;

  Label13 : TLabel;

  CheckBoxItem : TCheckBox;

  ComboBoxItem : TComboBox;

  ButtonStartEnchant : TButton;

  ButtonStopEnchant : TButton;

  CheckBoxScroll : TCheckBox;

  ComboBoxScroll : TComboBox;

  EditItemVal : TEdit;

  EditScrollVal : TEdit;

  EditScrollOID : TEdit;

  EditItemOID : TEdit;

  Label1 : TLabel;

  Label3 : TLabel;

  Edit1 : TEdit;

  Edit2 : TEdit;

//............................................

//*************************************

//Īįšąįīņ÷čźč ńīįūņčé äė˙ żėåģåķņīā óļšąāėåķč˙ ķą ōīšģå

//......................................

//CheckBoxItem

procedure CheckBoxItem_Click(Sender: TCheckBox);

//Event : OnClick

begin

  if CheckBoxItem.Checked

  then begin

    ItemOID:=ItemBase[1,ComboBoxItem.ItemIndex+1];

    ItemID:=ItemBase[2,ComboBoxItem.ItemIndex+1];

    //ļšīāåšźą

//    EditItemOID.Text:=Inttostr(ItemID);

//    EditItemVal.text:=inttostr(ItemOID);



    ComboBoxItem.Enabled:=false; //āūźėž÷ąåģ

  end else begin

    ItemID:=0;               //īņģåķą

    ItemOID:=0;

    ComboBoxItem.Enabled:=true;  //āźėž÷ąåģ

    //Ļąźåņ RequestItemList

    buf:=hstr('0F');

    SendToServerEx(Name);

  end;

end;

//......................................

//......................................

//ComboBoxItem

procedure ComboBoxItem_Click(Sender: TComboBox);

//Event : OnClick

begin

    ItemOID:=ItemBase[1,ComboBoxItem.ItemIndex+1];

    ItemID:=ItemBase[2,ComboBoxItem.ItemIndex+1];

//    ItemID:=ExtractIDValues(ComboBoxItem.Items.Strings[ComboBoxItem.ItemIndex]);

    EditItemOID.Text:=Inttostr(ItemID);

    EditItemVal.text:=inttostr(sumitem(ItemID));

end;

//......................................

//......................................

//CheckBoxScroll

procedure CheckBoxScroll_Click(Sender: TCheckBox);

//Event : OnClick

begin

  if CheckBoxScroll.Checked

  then begin

    ScrollOID:=ItemBase[1,ComboBoxScroll.ItemIndex+1];

    ScrollID:=ItemBase[2,ComboBoxScroll.ItemIndex+1];

    //ļšīāåšźą

//    EditScrollOID.Text:=Inttostr(ScrollID);

//    EditScrollVal.text:=inttostr(ScrollOID);

    ComboBoxScroll.Enabled:=false; //āūźėž÷ąåģ

  end else begin

    ScrollID:=0;               //īņģåķą

    ScrollOID:=0;

    ComboBoxScroll.Enabled:=true;  //āźėž÷ąåģ

    //Ļąźåņ RequestItemList

    buf:=hstr('0F');

    SendToServerEx(Name);

  end;

end;

//......................................

//......................................

//ComboBoxScroll

procedure ComboBoxScroll_Click(Sender: TComboBox);

//Event : OnClick

begin

    ScrollOID:=ItemBase[1,ComboBoxScroll.ItemIndex+1];

    ScrollID:=ItemBase[2,ComboBoxScroll.ItemIndex+1];

//    ScrollID:=ExtractIDValues(ComboBoxScroll.Items.Strings[ComboBoxScroll.ItemIndex]);

    EditScrollOID.Text:=Inttostr(ScrollID);

    EditScrollVal.text:=inttostr(sumitem(ScrollID));

end;

//......................................

//......................................

//ButtonStartEnchant

procedure ButtonStartEnchant_Click(Sender: TButton);

//Event : OnClick

begin

  CurEnchLvl:=0;

  Edit2.text:=inttostr(CurEnchLvl);

  msg.Lines.Add('Źīģąķäą Ńņąšņ!!!');

  timer.enabled:=true;

end;

//......................................

//......................................

//ButtonStopEnchant

procedure ButtonStopEnchant_Click(Sender: TButton);

//Event : OnClick

begin

  msg.Lines.Add('Źīģąķäą Ńņīļ!!!');

  timer.enabled:=false;

  ready:=false;

end;

//......................................

//......................................

procedure Edit1_Exit(Sender: TEdit);

//Event : OnExit

begin

//  MyHPID:=ExtractIDValues(ComboBoxHPotion.Items.Strings[ComboBoxHPotion.ItemIndex]);

//  EditHPotionVal.Text:=Inttostr(FindItem(MyHPID));

//  EditHPotionOID.text:=inttostr(ItemBase2[1,1]);

end;

//......................................

//*************************************

procedure Free_FormMain;

//Īńāīįīęäąåģ šåńóšńū ...

begin

  TRY

    if FormMain<>NIL then begin

       FormMain.Free;

       FormMain:=NIL;

    end;

  FINALLY

  END;

end; //Free_FormMain

//========================

//========================

function Create_FormMain : TForm;

//Ńīēäąåģ ōīšģó č ńīīņā. źīģļīķåķņū ķą ķåé ...

Var

  Yes : boolean;

begin

  Yes := FALSE;

  Result := TForm.Create(nil);



  TRY

    //------------------------

    //Ńāīéńņāą ōīšģū

    Result.Caption     := 'Enchant by NLObP v.0.7';

    Result.Left        := 397;

    Result.Top         := 233;

    Result.Width       := 581;

    Result.Height      := 205;

    Result.FormStyle   := fsNormal;

    Result.Position    := poDesigned;

    Result.BorderStyle := bsSizeable;

    Result.BorderWidth := 0;

    Result.WindowState := wsNormal;

    Result.Color       := clBtnFace;

    Result.Font.Name   := 'Tahoma';

    Result.Font.Size   := 8;

    Result.Font.Color  := clWindowText;

    Result.Font.CharSet:= 1;

    //------------------------

    //......................................

    //Splitter1

    Splitter1 := TSplitter.Create(Result);

    Splitter1.Parent := Result;

    Splitter1.Align := alBottom;

    Splitter1.Color := clBtnFace;

    Splitter1.Left    := 0;

    Splitter1.Top     := 103;

    Splitter1.Width   := 573;

    Splitter1.Height  := 3;

    Splitter1.Visible := TRUE;

    Splitter1.Tag     := 0;

    //......................................

    //......................................

    //Splitter2

    Splitter2 := TSplitter.Create(Result);

    Splitter2.Parent := Result;

    Splitter2.Align := alRight;

    Splitter2.Color := clBtnFace;

    Splitter2.Left    := 442;

    Splitter2.Top     := 0;

    Splitter2.Width   := 1;

    Splitter2.Height  := 103;

    Splitter2.Visible := TRUE;

    Splitter2.Tag     := 0;

    //......................................

    //......................................

    //Stats

    Stats := TMemo.Create(Result);

    Stats.Parent := Result;

    Stats.Left    := 443;

    Stats.Top     := 0;

    Stats.Width   := 130;

    Stats.Height  := 103;

    Stats.Visible := TRUE;

    Stats.Tag     := 0;

    Stats.Enabled  := TRUE;

    Stats.Hint     := '';

    Stats.ShowHint := FALSE;

    Stats.Font.Name  := 'Tahoma';

    Stats.Font.Size  := 8;

    Stats.Font.Color := clWindowText;

    Stats.Color         := clWindow;

    Stats.TabOrder      := 0;

    Stats.TabStop       := TRUE;

    Stats.Align         := alRight;

    Stats.WordWrap      := TRUE;

    Stats.Alignment     := taLeftJustify;

    Stats.WantTabs      := FALSE;

    Stats.WantReturns   := TRUE;

    Stats.HideSelection := TRUE;

    Stats.MaxLength     := 0;

    Stats.OEMConvert    := FALSE;

    Stats.ReadOnly      := FALSE;

    Stats.ScrollBars    := ssNone;

    //......................................

    //......................................

    //Msg

    Msg := TMemo.Create(Result);

    Msg.Parent := Result;

    Msg.Left    := 0;

    Msg.Top     := 106;

    Msg.Width   := 573;

    Msg.Height  := 65;

    Msg.Visible := TRUE;

    Msg.Tag     := 0;

    Msg.Enabled  := TRUE;

    Msg.Hint     := '';

    Msg.ShowHint := FALSE;

    Msg.Font.Name  := 'Tahoma';

    Msg.Font.Size  := 8;

    Msg.Font.Color := clWindowText;

    Msg.Color         := clWindow;

    Msg.TabOrder      := 1;

    Msg.TabStop       := TRUE;

    Msg.Align         := alBottom;

    Msg.WordWrap      := TRUE;

    Msg.Alignment     := taLeftJustify;

    Msg.WantTabs      := FALSE;

    Msg.WantReturns   := TRUE;

    Msg.HideSelection := TRUE;

    Msg.MaxLength     := 0;

    Msg.OEMConvert    := FALSE;

    Msg.ReadOnly      := FALSE;

    Msg.ScrollBars    := ssNone;

    //......................................

    //......................................

    //Panel1

    Panel1 := TPanel.Create(Result);

    Panel1.Parent := Result;

    Panel1.Left    := 0;

    Panel1.Top     := 0;

    Panel1.Width   := 442;

    Panel1.Height  := 103;

    Panel1.Visible := TRUE;

    Panel1.Tag     := 0;

    Panel1.Enabled  := TRUE;

    Panel1.Hint     := '';

    Panel1.ShowHint := FALSE;

    Panel1.Caption    := '';

    Panel1.Align      := alClient;

    Panel1.Color      := clBtnFace;

    Panel1.Font.Name  := 'Tahoma';

    Panel1.Font.Size  := 8;

    Panel1.Font.Color := clWindowText;

    Panel1.Font.CharSet := 1;

    Panel1.BevelWidth   := 1;

    Panel1.BorderWidth  := 0;

    Panel1.BevelInner   := bvNone;

    Panel1.BevelOuter   := bvRaised;

    Panel1.TabOrder     := 2;

    Panel1.TabStop      := FALSE;

    Panel1.AutoSize     := FALSE;

    //......................................

    //......................................

    //GroupBox2

    GroupBox2 := TGroupBox.Create(Result);

    GroupBox2.Parent := Panel1;

    GroupBox2.Left    := 1;

    GroupBox2.Top     := 1;

    GroupBox2.Width   := 440;

    GroupBox2.Height  := 101;

    GroupBox2.Visible := TRUE;

    GroupBox2.Tag     := 0;

    GroupBox2.Enabled  := TRUE;

    GroupBox2.Hint     := '';

    GroupBox2.ShowHint := FALSE;

    GroupBox2.Caption    := 'Ķąńņšīéźč';

    GroupBox2.Align      := alClient;

    GroupBox2.Color      := clBtnFace;

    GroupBox2.Font.Name  := 'Tahoma';

    GroupBox2.Font.Size  := 8;

    GroupBox2.Font.Color := clWindowText;

    GroupBox2.Font.CharSet := 1;

    GroupBox2.TabOrder     := 0;

    GroupBox2.TabStop      := FALSE;

    //......................................

    //......................................

    //Label1

    Label1 := TLabel.Create(Result);

    Label1.Parent := GroupBox2;

    Label1.Left    := 10;

    Label1.Top     := 70;

    Label1.Width   := 58;

    Label1.Height  := 13;

    Label1.Visible := TRUE;

    Label1.Tag     := 0;

    Label1.Enabled  := TRUE;

    Label1.Hint     := '';

    Label1.ShowHint := FALSE;

    Label1.Caption     := 'Óšīāåķü Ģąźń.:';

    Label1.Transparent := TRUE;

    Label1.WordWrap    := FALSE;

    Label1.Alignment   := taLeftJustify;

    Label1.Layout      := tlTop;

    Label1.AutoSize    := TRUE;

    Label1.Align       := alNone;

    Label1.Font.Name   := 'Tahoma';

    Label1.Font.Size   := 8;

    Label1.Font.Color  := clWindowText;

    Label1.Color       := clBtnFace;

    //......................................

    //......................................

    //Label1

    Label3 := TLabel.Create(Result);

    Label3.Parent := GroupBox2;

    Label3.Left    := 170;

    Label3.Top     := 70;

    Label3.Width   := 58;

    Label3.Height  := 13;

    Label3.Visible := TRUE;

    Label3.Tag     := 0;

    Label3.Enabled  := TRUE;

    Label3.Hint     := '';

    Label3.ShowHint := FALSE;

    Label3.Caption     := 'Ģčķ.:';

    Label3.Transparent := TRUE;

    Label3.WordWrap    := FALSE;

    Label3.Alignment   := taLeftJustify;

    Label3.Layout      := tlTop;

    Label3.AutoSize    := TRUE;

    Label3.Align       := alNone;

    Label3.Font.Name   := 'Tahoma';

    Label3.Font.Size   := 8;

    Label3.Font.Color  := clWindowText;

    Label3.Color       := clBtnFace;

    //......................................

    //......................................

    //Edit1

    Edit1 := TEdit.Create(Result);

    Edit1.Parent := GroupBox2;

    Edit1.Left    := 90;

    Edit1.Top     := 67;

    Edit1.Width   := 60;

    Edit1.Height  := 21;

    Edit1.Visible := TRUE;

    Edit1.Tag     := 0;

    Edit1.Enabled  := TRUE;

    Edit1.Hint     := 'Āāåäč ęåėąåģūé óšīāåķü ēąņī÷źč';

    Edit1.ShowHint := TRUE;

    Edit1.Text       := '65535';

    Edit1.Font.Name  := 'Tahoma';

    Edit1.Font.Size  := 8;

    Edit1.Font.Color := clWindowText;

    Edit1.Color        := clWindow;

    Edit1.TabOrder     := 5;

    Edit1.TabStop      := TRUE;

    Edit1.ReadOnly     := FALSE;

    Edit1.MaxLength    := 0;

    Edit1.AutoSize     := TRUE;

    Edit1.OnExit     := @Edit1_Exit;

    //......................................

    //......................................

    //Edit2

    Edit2 := TEdit.Create(Result);

    Edit2.Parent := GroupBox2;

    Edit2.Left    := 199;

    Edit2.Top     := 67;

    Edit2.Width   := 60;

    Edit2.Height  := 21;

    Edit2.Visible := TRUE;

    Edit2.Tag     := 0;

    Edit2.Enabled  := TRUE;

    Edit2.Hint     := 'Źąźīćī óšīāķ˙ ńģīćėč äīńņč÷ü';

    Edit2.ShowHint := TRUE;

    Edit2.Text       := '0';

    Edit2.Font.Name  := 'Tahoma';

    Edit2.Font.Size  := 8;

    Edit2.Font.Color := clWindowText;

    Edit2.Color        := clWindow;

    Edit2.TabOrder     := 5;

    Edit2.TabStop      := FALSE;

    Edit2.ReadOnly     := TRUE;

    Edit2.MaxLength    := 0;

    Edit2.AutoSize     := TRUE;

    //......................................

    //......................................

    //Label2

    Label2 := TLabel.Create(Result);

    Label2.Parent := GroupBox2;

    Label2.Left    := 416;

    Label2.Top     := 19;

    Label2.Width   := 18;

    Label2.Height  := 13;

    Label2.Visible := TRUE;

    Label2.Tag     := 0;

    Label2.Enabled  := TRUE;

    Label2.Hint     := '';

    Label2.ShowHint := FALSE;

    Label2.Caption     := 'ųņ.';

    Label2.Transparent := TRUE;

    Label2.WordWrap    := FALSE;

    Label2.Alignment   := taLeftJustify;

    Label2.Layout      := tlTop;

    Label2.AutoSize    := TRUE;

    Label2.Align       := alNone;

    Label2.Font.Name   := 'Tahoma';

    Label2.Font.Size   := 8;

    Label2.Font.Color  := clWindowText;

    Label2.Color       := clBtnFace;

    //......................................

    //......................................

    //Label4

    Label4 := TLabel.Create(Result);

    Label4.Parent := GroupBox2;

    Label4.Left    := 416;

    Label4.Top     := 43;

    Label4.Width   := 18;

    Label4.Height  := 13;

    Label4.Visible := TRUE;

    Label4.Tag     := 0;

    Label4.Enabled  := TRUE;

    Label4.Hint     := '';

    Label4.ShowHint := FALSE;

    Label4.Caption     := 'ųņ.';

    Label4.Transparent := TRUE;

    Label4.WordWrap    := FALSE;

    Label4.Alignment   := taLeftJustify;

    Label4.Layout      := tlTop;

    Label4.AutoSize    := TRUE;

    Label4.Align       := alNone;

    Label4.Font.Name   := 'Tahoma';

    Label4.Font.Size   := 8;

    Label4.Font.Color  := clWindowText;

    Label4.Color       := clBtnFace;

    //......................................

    //......................................

    //Label12

    Label12 := TLabel.Create(Result);

    Label12.Parent := GroupBox2;

    Label12.Left    := 273;

    Label12.Top     := 3;

    Label12.Width   := 33;

    Label12.Height  := 13;

    Label12.Visible := TRUE;

    Label12.Tag     := 0;

    Label12.Enabled  := TRUE;

    Label12.Hint     := '';

    Label12.ShowHint := FALSE;

    Label12.Caption     := 'ItemID';

    Label12.Transparent := TRUE;

    Label12.WordWrap    := FALSE;

    Label12.Alignment   := taLeftJustify;

    Label12.Layout      := tlTop;

    Label12.AutoSize    := TRUE;

    Label12.Align       := alNone;

    Label12.Font.Name   := 'Tahoma';

    Label12.Font.Size   := 8;

    Label12.Font.Color  := clWindowText;

    Label12.Color       := clBtnFace;

    //......................................

    //......................................

    //Label13

    Label13 := TLabel.Create(Result);

    Label13.Parent := GroupBox2;

    Label13.Left    := 349;

    Label13.Top     := 3;

    Label13.Width   := 35;

    Label13.Height  := 13;

    Label13.Visible := TRUE;

    Label13.Tag     := 0;

    Label13.Enabled  := TRUE;

    Label13.Hint     := '';

    Label13.ShowHint := FALSE;

    Label13.Caption     := 'Źīė-āī';

    Label13.Transparent := TRUE;

    Label13.WordWrap    := FALSE;

    Label13.Alignment   := taLeftJustify;

    Label13.Layout      := tlTop;

    Label13.AutoSize    := TRUE;

    Label13.Align       := alNone;

    Label13.Font.Name   := 'Tahoma';

    Label13.Font.Size   := 8;

    Label13.Font.Color  := clWindowText;

    Label13.Color       := clBtnFace;

    //......................................

    //......................................

    //CheckBoxItem

    CheckBoxItem := TCheckBox.Create(Result);

    CheckBoxItem.Parent := GroupBox2;

    CheckBoxItem.Left    := 18;

    CheckBoxItem.Top     := 18;

    CheckBoxItem.Width   := 66;

    CheckBoxItem.Height  := 17;

    CheckBoxItem.Visible := TRUE;

    CheckBoxItem.Tag     := 0;

    CheckBoxItem.Enabled  := TRUE;

    CheckBoxItem.Hint     := 'Ļīńņąāčņü ćąėī÷źó åńėč āūįšąėč ļšåäģåņ';

    CheckBoxItem.ShowHint := TRUE;

    CheckBoxItem.Caption    := 'Ļšåäģåņ';

    CheckBoxItem.Font.Name  := 'Tahoma';

    CheckBoxItem.Font.Size  := 8;

    CheckBoxItem.Font.Color := clWindowText;

    CheckBoxItem.Color       := clBtnFace;

    CheckBoxItem.TabOrder    := 0;

    CheckBoxItem.TabStop     := TRUE;

    CheckBoxItem.Checked     := FALSE;

    CheckBoxItem.AllowGrayed := FALSE;

    CheckBoxItem.State       := cbUnchecked;

    CheckBoxItem.OnClick     := @CheckBoxItem_Click;

    //......................................

    //......................................

    //ComboBoxItem

    ComboBoxItem := TComboBox.Create(Result);

    ComboBoxItem.Parent := GroupBox2;

    ComboBoxItem.Left    := 90;

    ComboBoxItem.Top     := 16;

    ComboBoxItem.Width   := 169;

    ComboBoxItem.Height  := 21;

    ComboBoxItem.Visible := TRUE;

    ComboBoxItem.Tag     := 0;

    ComboBoxItem.Enabled  := TRUE;

    ComboBoxItem.Hint     := 'Āūįåšč čē ńļčńźą ēąņą÷čāąåģūé ļšåäģåņ';

    ComboBoxItem.ShowHint := TRUE;

    ComboBoxItem.Text       := 'ComboBoxItem';

    ComboBoxItem.Font.Name  := 'Tahoma';

    ComboBoxItem.Font.Size  := 8;

    ComboBoxItem.Font.Color := clWindowText;

    ComboBoxItem.Color          := clWindow;

    ComboBoxItem.TabOrder       := 1;

    ComboBoxItem.TabStop        := TRUE;

    ComboBoxItem.ItemIndex          := -1;

    ComboBoxItem.Sorted         := FALSE;

    ComboBoxItem.ItemHeight     := 13;

    ComboBoxItem.OnClick     := @ComboBoxItem_Click;

    //......................................

    //......................................

    //ButtonStartEnchant

    ButtonStartEnchant := TButton.Create(Result);

    ButtonStartEnchant.Parent := GroupBox2;

    ButtonStartEnchant.Left    := 265;

    ButtonStartEnchant.Top     := 67;

    ButtonStartEnchant.Width   := 75;

    ButtonStartEnchant.Height  := 25;

    ButtonStartEnchant.Visible := TRUE;

    ButtonStartEnchant.Tag     := 0;

    ButtonStartEnchant.Enabled  := TRUE;

    ButtonStartEnchant.Hint     := '';

    ButtonStartEnchant.ShowHint := FALSE;

    ButtonStartEnchant.Caption    := 'Start';

    ButtonStartEnchant.Font.Name  := 'Tahoma';

    ButtonStartEnchant.Font.Size  := 8;

    ButtonStartEnchant.Font.Color := clWindowText;

    ButtonStartEnchant.Font.CharSet := 1;

    ButtonStartEnchant.TabOrder     := 2;

    ButtonStartEnchant.TabStop      := TRUE;

    ButtonStartEnchant.Cancel       := FALSE;

    ButtonStartEnchant.ModalResult  := 0;

    ButtonStartEnchant.OnClick     := @ButtonStartEnchant_Click;

    //......................................

    //......................................

    //ButtonStopEnchant

    ButtonStopEnchant := TButton.Create(Result);

    ButtonStopEnchant.Parent := GroupBox2;

    ButtonStopEnchant.Left    := 341;

    ButtonStopEnchant.Top     := 67;

    ButtonStopEnchant.Width   := 75;

    ButtonStopEnchant.Height  := 25;

    ButtonStopEnchant.Visible := TRUE;

    ButtonStopEnchant.Tag     := 0;

    ButtonStopEnchant.Enabled  := TRUE;

    ButtonStopEnchant.Hint     := '';

    ButtonStopEnchant.ShowHint := FALSE;

    ButtonStopEnchant.Caption    := 'Stop';

    ButtonStopEnchant.Font.Name  := 'Tahoma';

    ButtonStopEnchant.Font.Size  := 8;

    ButtonStopEnchant.Font.Color := clWindowText;

    ButtonStopEnchant.Font.CharSet := 1;

    ButtonStopEnchant.TabOrder     := 3;

    ButtonStopEnchant.TabStop      := TRUE;

    ButtonStopEnchant.Cancel       := FALSE;

    ButtonStopEnchant.ModalResult  := 0;

    ButtonStopEnchant.OnClick     := @ButtonStopEnchant_Click;

    //......................................

    //......................................

    //CheckBoxScroll

    CheckBoxScroll := TCheckBox.Create(Result);

    CheckBoxScroll.Parent := GroupBox2;

    CheckBoxScroll.Left    := 18;

    CheckBoxScroll.Top     := 41;

    CheckBoxScroll.Width   := 66;

    CheckBoxScroll.Height  := 23;

    CheckBoxScroll.Visible := TRUE;

    CheckBoxScroll.Tag     := 0;

    CheckBoxScroll.Enabled  := TRUE;

    CheckBoxScroll.Hint     := 'Ļīńņąāčņü ćąėī÷źó åńėč āūįšąėč ńźšīėė ēąņī÷źč';

    CheckBoxScroll.ShowHint := TRUE;

    CheckBoxScroll.Caption    := 'Ēąņī÷źą';

    CheckBoxScroll.Font.Name  := 'Tahoma';

    CheckBoxScroll.Font.Size  := 8;

    CheckBoxScroll.Font.Color := clWindowText;

    CheckBoxScroll.Color       := clBtnFace;

    CheckBoxScroll.TabOrder    := 4;

    CheckBoxScroll.TabStop     := TRUE;

    CheckBoxScroll.Checked     := FALSE;

    CheckBoxScroll.AllowGrayed := FALSE;

    CheckBoxScroll.State       := cbUnchecked;

    CheckBoxScroll.OnClick     := @CheckBoxScroll_Click;

    //......................................

    //......................................

    //ComboBoxScroll

    ComboBoxScroll := TComboBox.Create(Result);

    ComboBoxScroll.Parent := GroupBox2;

    ComboBoxScroll.Left    := 90;

    ComboBoxScroll.Top     := 40;

    ComboBoxScroll.Width   := 169;

    ComboBoxScroll.Height  := 21;

    ComboBoxScroll.Visible := TRUE;

    ComboBoxScroll.Tag     := 0;

    ComboBoxScroll.Enabled  := TRUE;

    ComboBoxScroll.Hint     := 'Āūįåšč čē ńļčńźą ńźšīėė ēąņī÷źč';

    ComboBoxScroll.ShowHint := TRUE;

    ComboBoxScroll.Text       := 'ComboBoxScroll';

    ComboBoxScroll.Font.Name  := 'Tahoma';

    ComboBoxScroll.Font.Size  := 8;

    ComboBoxScroll.Font.Color := clWindowText;

    ComboBoxScroll.Color          := clWindow;

    ComboBoxScroll.TabOrder       := 5;

    ComboBoxScroll.TabStop        := TRUE;

    ComboBoxScroll.ItemIndex          := -1;

    ComboBoxScroll.Sorted         := FALSE;

    ComboBoxScroll.ItemHeight     := 13;

    ComboBoxScroll.OnClick     := @ComboBoxScroll_Click;

    //......................................

    //......................................

    //EditItemVal

    EditItemVal := TEdit.Create(Result);

    EditItemVal.Parent := GroupBox2;

    EditItemVal.Left    := 341;

    EditItemVal.Top     := 16;

    EditItemVal.Width   := 72;

    EditItemVal.Height  := 21;

    EditItemVal.Visible := TRUE;

    EditItemVal.Tag     := 0;

    EditItemVal.Enabled  := TRUE;

    EditItemVal.Hint     := '';

    EditItemVal.ShowHint := FALSE;

    EditItemVal.Text       := '0';

    EditItemVal.Font.Name  := 'Tahoma';

    EditItemVal.Font.Size  := 8;

    EditItemVal.Font.Color := clWindowText;

    EditItemVal.Color        := clWindow;

    EditItemVal.TabOrder     := 6;

    EditItemVal.TabStop      := TRUE;

    EditItemVal.ReadOnly     := TRUE;

    EditItemVal.MaxLength    := 0;

    EditItemVal.AutoSize     := TRUE;

    //......................................

    //......................................

    //EditScrollVal

    EditScrollVal := TEdit.Create(Result);

    EditScrollVal.Parent := GroupBox2;

    EditScrollVal.Left    := 341;

    EditScrollVal.Top     := 40;

    EditScrollVal.Width   := 72;

    EditScrollVal.Height  := 21;

    EditScrollVal.Visible := TRUE;

    EditScrollVal.Tag     := 0;

    EditScrollVal.Enabled  := TRUE;

    EditScrollVal.Hint     := '';

    EditScrollVal.ShowHint := FALSE;

    EditScrollVal.Text       := '0';

    EditScrollVal.Font.Name  := 'Tahoma';

    EditScrollVal.Font.Size  := 8;

    EditScrollVal.Font.Color := clWindowText;

    EditScrollVal.Color        := clWindow;

    EditScrollVal.TabOrder     := 7;

    EditScrollVal.TabStop      := TRUE;

    EditScrollVal.ReadOnly     := TRUE;

    EditScrollVal.MaxLength    := 0;

    EditScrollVal.AutoSize     := TRUE;

    //......................................

    //......................................

    //EditScrollOID

    EditScrollOID := TEdit.Create(Result);

    EditScrollOID.Parent := GroupBox2;

    EditScrollOID.Left    := 263;

    EditScrollOID.Top     := 40;

    EditScrollOID.Width   := 72;

    EditScrollOID.Height  := 21;

    EditScrollOID.Visible := TRUE;

    EditScrollOID.Tag     := 0;

    EditScrollOID.Enabled  := TRUE;

    EditScrollOID.Hint     := '';

    EditScrollOID.ShowHint := FALSE;

    EditScrollOID.Text       := '0';

    EditScrollOID.Font.Name  := 'Tahoma';

    EditScrollOID.Font.Size  := 8;

    EditScrollOID.Font.Color := clWindowText;

    EditScrollOID.Color        := clWindow;

    EditScrollOID.TabOrder     := 8;

    EditScrollOID.TabStop      := TRUE;

    EditScrollOID.ReadOnly     := TRUE;

    EditScrollOID.MaxLength    := 0;

    EditScrollOID.AutoSize     := TRUE;

    //......................................

    //......................................

    //EditItemOID

    EditItemOID := TEdit.Create(Result);

    EditItemOID.Parent := GroupBox2;

    EditItemOID.Left    := 264;

    EditItemOID.Top     := 16;

    EditItemOID.Width   := 72;

    EditItemOID.Height  := 21;

    EditItemOID.Visible := TRUE;

    EditItemOID.Tag     := 0;

    EditItemOID.Enabled  := TRUE;

    EditItemOID.Hint     := '';

    EditItemOID.ShowHint := FALSE;

    EditItemOID.Text       := '0';

    EditItemOID.Font.Name  := 'Tahoma';

    EditItemOID.Font.Size  := 8;

    EditItemOID.Font.Color := clWindowText;

    EditItemOID.Color        := clWindow;

    EditItemOID.TabOrder     := 9;

    EditItemOID.TabStop      := TRUE;

    EditItemOID.ReadOnly     := TRUE;

    EditItemOID.MaxLength    := 0;

    EditItemOID.AutoSize     := TRUE;

    //......................................

    Yes := TRUE;

  FINALLY

    if not Yes then begin

       //Īńāīįīęäąåģ šåńóšńū, åńėč ķåóäą÷ķī ...

       if Result<>NIL then begin

          Result.Free;

          Result:=NIL;

       end;

    end;

  END;

  msg.Lines.Add('Ąāņīģąņčēąöč˙ ēąņī÷źč by NLObP!');

  Result.Show;

end; //Create_FormMain

//========================

//========================

procedure Init; //Āūēūāąåņń˙ ļšč āźėž÷åķčč ńźščļņą

var

  i:integer;

begin

  FormMain:=Create_FormMain;

  //Enchant:=false;

  CurEnchLvl:=0;

  timer:=TTimer.Create(nil);

  timer.OnTimer:=@OnTimer;

  timer.enabled:=false;

  timer.interval:=1000; //āšåģ˙ ēąäåšęźč

  ready:=false;

  add:=false;

  //Ļąźåņ RequestItemList

  buf:=hstr('0F');

  SendToServerEx(Name);

  StringList:=TStringList.Create;

  ItemsName:=TStringList.Create;

  try

    ItemsName.LoadFromFile('itemsid.ini');

  except

    msg.Lines.Add('itemsid.ini ķå ķąéäåķ!');

    exit;

  end;

end;

//......................................

//******************************************************************************

procedure Free; //Āūēūāąåņń˙ ļšč āūźėž÷åķčč ńźščļņą

begin

//  ItemBase:=nil; //ķåėüē˙ ņąź äåėąņü ń ģąńńčāīģ

  timer.Free;

  StringList.Clear;

  ItemsName.Clear;

  //äīńņąņī÷ķī īńāīįīäčņü ōīšģó

  Free_FormMain;

end;

//......................................

//******************************************************************************

procedure Say(msg:string);

begin

  buf:=hstr('4A 00 00 00 00');

  WriteD(2);

  WriteS(Name);

  WriteS(msg);

  SendToClientEx(Name);

end;

//......................................

//***************************************************************

procedure CreateItemBase; //ļąźåņ 1B, Ńīēäąåņ įąēó ObjectID ļī ItemID

//1B=ItemListPacket:w(window)w(ListCount)w(itemType1)h(ObjectID)i(ItemID)d(count)w(itemType2)w(CustType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(CustType2)d(Augment)d(--)

var

  i, j, ListCount: integer;

begin

  for i:=1 to max do begin

    //ī÷čłąåģ ģąńčā

    ItemBase[1,i]:=0;     //OID

    ItemBase[2,i]:=0;    //ID

    ItemBase[3,i]:=0;   //kol-vo

    ItemBase[4,i]:=0;  //lvl

  end;

  j:=4; //ńģåłåķčå äė˙ ListCount

  ListCount:=ReadH(j); //źīėč÷åńņāī čņåģīā ķå äīėęķī ļšåāūųąņü max!

  //if ListCount>maxitems then msg.Lines.Add('Āķčģąķčå! Ķå āńå āåłč āėåēėč ā ģąńńčā. ListCount>Max='+IntToStr(ListCount)+'/'+IntToStr(maxitems));

  j:=8; //ńģåłåķčå äė˙ ObjectID

  //Ļšīįåćąåģ ļī Čķāåķņąšž č ńīõšąķ˙åģ ObjectID ńīīņāåņńņāóžłčå ķåīįõīäčģūģ ItemID

  for i:=1 to ListCount do begin

    itemBase[1,i]:=ReadD(j);    //OID

    itemBase[2,i]:=ReadD(j);   //ItemID

    itemBase[3,i]:=ReadD(j);  //źīė-āī

    inc(j,10);

    itemBase[4,i]:=ReadH(j);//EnchantLevel

//    msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));

    if interlude then inc(j,12) else inc(j,4);

    //msg.Lines.Add('j='+inttostr(j));

  end;

  //āķīńčģ čēģåķåķč˙ ā ÷åźįīźńū

  StringList.Clear;

  try

    for i:=1 to ListCount do begin

      try

        //StringList.Add(ItemsName[ItemBase[2,i]-1]); //ēąļčńūāąåģ ķąēāąķčå āåłåé čē čķāåķņąš˙

        StringList.Add(ItemsName.Values[IntToStr(ItemBase[2,i])]); //ēąļčńūāąåģ ķąēāąķčå āåłåé čē čķāåķņąš˙

      except;

        msg.Lines.Add('Ļšīļóńźąåģ! Ķåņ ItemID='+inttostr(ItemBase[2,i])+' ā itemsid.ini');

      end

    end;

  except;

    msg.Lines.Add('īųčįźą ā CreateItemBase->StringList.Add()');

    msg.Lines.Add(inttostr(ItemBase[2,i]));

    exit;

  end;

  if not CheckBoxItem.Checked then begin //ķąļīėķ˙åģ źīģįīįīźń

    with ComboBoxItem do

    begin

      Items.Clear;

      Items.Assign(StringList);

      ItemIndex:=0;

    end;

  end;

  if not CheckBoxScroll.Checked then begin //ķąļīėķ˙åģ źīģįīįīźń

    with ComboBoxScroll do

    begin

      Items.Clear;

      Items.Assign(StringList);

      ItemIndex:=0;

    end;

  end;

end;

//......................................

//******************************************************************************

//27=InventoryUpdate:w(count)w(1add2mod3remove)w(itemType1)d(ObjectID)i(ItemId)d(Count)w(itemType2)w(cusType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(cusType2)-(8)

procedure InventoryUpdate; //ļąźåņ 27, īįķīāė˙åņ įąēó ObjectID ļī ItemID

var

  i, ii, j, ItemOID, ItemID, ItemCount, ListCount, UpdType, Itemlvl: integer;

  add : boolean;

begin

  add:=false;

  ListCount:=ReadH(2); //źīėč÷åńņāī čņåģīā

  //Ļšīįåćąåģ ļī Čķāåķņąšž č ńīõšąķ˙åģ ļąšū ObjectID - lvl

  j:=4; //ńģåłåķčå äė˙ äåéńņāč˙ ń ļšåäģåņīģ 1-äīįąāėåķ 2-čēģåķåķ 3-óäąėåķ

  for ii:=1 to ListCount do begin

    UpdType:=ReadH(j);

    //inc(j,2);

    ReadH(j);               //ItemType1

    ItemOID:=ReadD(j);     //ObjectID

    ItemID:=ReadD(j);     //ItemID

    itemCount:=ReadD(j); //źīė-āī

    inc(j,10);

    Itemlvl:=ReadH(j);

    case UpdType of

      //äīįąāėåķ

      1: begin

         for i:=1 to max do begin

           if (ItemBase[1,i]=0) and (add=false) then begin

             ItemBase[1,i]:=ItemOID;

             ItemBase[2,i]:=ItemID;

             ItemBase[3,i]:=ItemCount;

             ItemBase[4,i]:=Itemlvl;

             msg.Lines.Add('Äīįąāčėč ļšåäģåņ!');

             msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));

             add:=true;

           end;

         end;

      end;

      //čēģåķåķ

      2: begin

         for i:=1 to max do begin

           if ItemBase[1,i]=ItemOID then begin

             ItemBase[3,i]:=ItemCount;

             ItemBase[4,i]:=Itemlvl;

             msg.Lines.Add('Čēģåķ˙åģ ļąšąģåņšū ļšåäģåņą!');

             msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));

           end;

         end;

      end;

      //óäąėåķ

      3: begin

         for i:=1 to max do begin

           if ItemBase[1,i]=ItemOID then begin

             msg.Lines.Add('Óäąė˙åģ ļšåäģåņ!');

             msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));

             ItemBase[1,i]:=0;

             ItemBase[2,i]:=0;

             ItemBase[3,i]:=0;

             ItemBase[4,i]:=0;

           end;

         end;

      end;

    end;

    if interlude then inc(j,10) else inc(j,2);

    //msg.Lines.Add('j='+inttostr(j));

  end;

end;

//......................................

//******************************************************************************

//ķąõīäčģ ā čķāåķņąšå ļšåäģåņ ń ItemID č āīēāšąłąåģ åćī ObjectID

function GetItem(item:integer; lvl:integer) : integer;

var

  i : integer;

begin

  for i:=1 to max do begin

    //ķąõīäčģ ļīäõīä˙łčé ļšåäģåņ ļī ItemID

    if (ItemBase[2,i]=item) and (ItemBase[4,i]=lvl) then begin

      //åńėč ķąųėč, ņī āīēāšąłąåģ ObjectID ļšåäģåņą

      result:=ItemBase[1,i]; // itemOID

      ItemCount:=ItemBase[3,i];

      //Itemlvl:=ItemBase[4,i];

      //msg.Lines.Add('<item='+inttostr(item)+' lvl='+inttostr(lvl)+'> i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));

      exit;

    end;

  end;

  //ķč÷åćī ķå ķąųėč

  result:=0;

end;

//......................................

//******************************************************************************

procedure UseItem(ObjectID: integer);

begin

  buf:=#$14;

  WriteD(ObjectID);

  WriteD(0);

  SendToServerEx(Name);

end;

//......................................

//******************************************************************************

function SumItem(Item: integer):integer;

var

  sum, i : integer;

begin

  result:=0;

  //ķąõīäčģ ļīäõīä˙łčé ļšåäģåņ ļī ItemID

  for i:=1 to max do begin

    if (ItemBase[2,i]=item) then begin

//      msg.Lines.Add('Ķąųėč ļšåäģåņ ItemOID='+inttostr(ItemBase[1,i])+' ItemID='+inttostr(ItemBase[2,i])+' ItemCol='+inttostr(ItemBase[3,i])+' EnchantLvl='+inttostr(ItemBase[4,i]));

//      msg.Lines.Add('i='+inttostr(i));

      result:=result+ItemBase[3,i];

      //inc(result);

    end;

  end;

end;

//......................................

//******************************************************************************

procedure RequestEnchantItem(ObjectID: integer);

begin

  buf:=#$58;

  WriteD(ObjectID);

  SendToServerEx(Name);

  //*********** čńļīėüēīāąņü ÷čņ ń ļåņīģ ************************

{  buf:=#$8B;

  WriteD(ObjectID);

  writed(1);

  SendToServerEx(Name);

}  //***********

end;

//......................................

{//***************************************************************

function ExtractIDValues(sData: string): integer;

var

  s: string;

  i,j: integer;

begin

  i:=0;

  s:=sData;

  i:=pos('=',s);

  if i>=0 then

    s:=copy(s,1,i-1);

  try

    result:=strtoint(s);

  except

    result:=0;

  end;

end;

//............................................}

//******************************************************************************

procedure OnTimer(Sender: TObject);

begin

  EditItemVal.text:=inttostr(sumitem(ItemID));

  EditScrollVal.text:=inttostr(sumitem(ScrollID));

  if (CurEnchLvl>=strtoint(Edit1.Text)) then begin

    msg.Lines.Add('Ķå÷åćī ņī÷čņü! Ļšåšāąķī!');

    timer.enabled:=false;

    exit;

  end;

  if (sumitem(ItemID)<=1) then begin

//  if (sumitem(ItemID)<=0) then begin //åńėč ķąäī ņī÷čņü īäķó āåłü

    msg.Lines.Add('Ļšåšāąķī!');

    timer.enabled:=false;

    exit;

  end;

  ScrollOID:=GetItem(ScrollID,0);

  if ScrollOID=0 then begin

    msg.Lines.Add('Ķåņ ēąņī÷źč! Ļšåšāąķī!');

    timer.enabled:=false;

    exit;

  end;

  UseItem(ScrollOID);

  msg.Lines.Add('Ēąäåéńņāīāąėč ńźšīėė ScrollID='+IntToStr(scrollID)+' ScrollOID='+IntToStr(ScrollOID));

  ready:=true; //ćīņīāū ēąņą÷čāąņü

//    delay(1000);

//    RequestEnchantItem(Item);

//    delay(1000);

    //************************************************

//    msg.Lines.Add('Ļšīįóåģ óėó÷ųčņü ItemID='+IntToStr(Item));

//  end;

end;

//......................................

//***************************************************************

// Āń˙ ņīšćīāė˙ ēäåńü!!!

//***************************************************************

{procedure OnTrade1(Sender: TObject);

begin

  case trade of

    //-------------------------------------------------

    //ļīźóļąåģ ó Misc Trader  čē ģąńńčāą TradeBuyItem1

    //-------------------------------------------------

    100: begin

      if ReadyToBuy then exit; //åńėč åłå źóļčėč ļšåäūäółóž āåłü, ņī āūõīäčģ ńšąēó

      //ģū ó ōčųåšģąķą, ļīźóļąåģ źšž÷źč

      if FishermanOID=0 then begin

        Trade1.enabled:=false; //īńņąķąāėčāąåģ ņīšćīāėž

        msg.Lines.Add('Ķå ćīņīāū ź ņīšćīāėå, ķåņ OID ōčųåšģąķą! Ņšåįóåņń˙ īņįåęąņü ļīäąėüųå č āåšķóņüń˙.');

        exit; //āūõīäčģ

      end;

      if TradeCount=TradeBuyItemCount then begin //ļšīāåšźą ķą āūõīä čē ģąńńčāą

        trade:=400;

        msg.Lines.Add('Āńø źóļčėč!');

        msg.Lines.Add('Ļåšåõīä ź īįģåķó...');

        TradeCount:=0; //ķą÷ķåģ ńķą÷ąėą ģąńńčāą

      end else begin

        if FindItem(TradeBuyItem[TradeCount])<strtoint(EditLure.text) then begin

          TargetAttacker(FishermanOID); //ōčųåšģąķą ā ņąšćåņ

          msg.Lines.Add('Ćīņīāū źóļčņü:'+inttostr(TradeBuyItem[TradeCount]));

          ReadyToBuy:=true; //ćīņīāū ļšīäąāąņü

          NeedBuy:=strtoint(EditLure.text)-colvoitm2; //äīźóļąåģ äī 50

          msg.Lines.Add('Ņšåįóåņń˙ äīźóļčņ źšž÷źīā:'+inttostr(NeedBuy));

        end else msg.Lines.Add('Ķå ķąäī ļīźóļąņü, óęå åńņü:'+inttostr(colvoitm2));

        Trd:=TradeCount;

        inc(TradeCount);

        msg.Lines.Add('TradeCount/TradeBuyItemCount:'+inttostr(TradeCount)+'/'+inttostr(TradeBuyItemCount-1));

      end;

    //-------------------------------------------------

    //ļīźóļąåģ ó Armor Trader  čē ģąńńčāą TradeBuyItem2

    //-------------------------------------------------

    200: begin

      if ReadyToBuy then exit; //åńėč åłå źóļčėč ļšåäūäółóž āåłü, ņī āūõīäčģ ńšąēó

      //ģū ó ōčųåšģąķą, ļīźóļąåģ źšž÷źč

      if FishermanOID=0 then begin

        Trade1.enabled:=false; //īńņąķąāėčāąåģ ņīšćīāėž

        msg.Lines.Add('Ķå ćīņīāū ź ņīšćīāėå, ķåņ OID ōčųåšģąķą! Ņšåįóåņń˙ īņįåęąņü ļīäąėüųå č āåšķóņüń˙.');

        exit; //āūõīäčģ

      end;

      if TradeCount=TradeBuyItemCount then begin //ļšīāåšźą ķą āūõīä čē ģąńńčāą

        trade:=400;

        msg.Lines.Add('Āńø źóļčėč!');

        msg.Lines.Add('Ļåšåõīä ź īįģåķó...');

        TradeCount:=0; //ķą÷ķåģ ńķą÷ąėą ģąńńčāą

      end else begin

        if FindItem(TradeBuyItem[TradeCount])<strtoint(EditLure.text) then begin

          TargetAttacker(FishermanOID); //ōčųåšģąķą ā ņąšćåņ

          msg.Lines.Add('Ćīņīāū źóļčņü:'+inttostr(TradeBuyItem[TradeCount]));

          ReadyToBuy:=true; //ćīņīāū ļšīäąāąņü

          NeedBuy:=strtoint(EditLure.text)-colvoitm2; //äīźóļąåģ äī 50

          msg.Lines.Add('Ņšåįóåņń˙ äīźóļčņ źšž÷źīā:'+inttostr(NeedBuy));

        end else msg.Lines.Add('Ķå ķąäī ļīźóļąņü, óęå åńņü:'+inttostr(colvoitm2));

        Trd:=TradeCount;

        inc(TradeCount);

        msg.Lines.Add('TradeCount/TradeBuyItemCount:'+inttostr(TradeCount)+'/'+inttostr(TradeBuyItemCount-1));

      end;

    end;

  end;

end;

}//......................................

//******************************************************************************

// āūēūāąåņń˙ ļšč ļščõīäå źąęäīćī ļąźåņą, åńėč ńźščļņ āźėž÷åķ

//******************************************************************************

begin

  //****************************************************************************

  //ķå īįšąįąņūāąåģ ļóńņūå ļąźåņū

  if pck='' then exit;

  //****************************************************************************

  //ļīźóļźą ńīńņīčņ čē ńėåäóžłčõ ųąćīā:

  //1. ņąšćåņ  ķą ļšīäąāöå, ļąóēą, ńķīāą ņąšćåņ c04=Action, c04=Action

  //2. ļščõīäčņ s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)

  //3. ųėåģ āūįšąķķūé ļóķźņ čē ģåķž c21=RequestBypassToServer:s(Cmd)

  //4. ļščõīäčņ s11=BuyList:d(Money)h(ListID)w(ListCount)w(ItemType1)h(ObjectID)i(ItemID)d(maxcnt)w(ItemType2)w(h)d(ItemBodyPart)

  //5. FindItem(ID) ķąéäåģ OID, Count ķóęķīé āåłč ļī ID

  //6. ųėåģ c1F=RequestBuyItem:h(ListID)d(BuyCount)i(ItemID)d(Count)

  //****************************************************************************

{  if ReadyToBuy and (FishermanOID<>0) then begin

    if (ConnectName=Name) and FromServer then begin

      case pck[1] of

        //ļīńėå ņīćī źąź ģū āē˙ėč ā ņąšćåņ ļšīäąāöą ļščõīäčņ żņīņ ļąźåņ

        //s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)

        #$0F: begin

          msg.Lines.Add('S>Ļąźåņ NpcHtmlMessage #$0F');

          if ReadD(2)=FishermanOID then begin

            //ųėåģ ēąļšīń āūįīšą ļóķźņą - ļšīäąęą

            //c21=RequestBypassToServer:s(Cmd)

            delay(1000);

            RequestByPassToServer(getbuylist);

            msg.Lines.Add('C>Ļąźåņ RequestBypassToServer #$21 (sell)');

          end;

        end;

        //ļīńėå āūįīšą ļóķźņą - ļšīäąęą, ļščõīäčņ żņīņ ļąźåņ

        //s11=BuyList:d(Money)h(ListID)w(ListCount)w(ItemType1)h(ObjectID)i(ItemID)d(maxcnt)w(ItemType2)w(h)d(ItemBodyPart)

        #$11: begin

          msg.Lines.Add('S>Ļąźåņ BuyList #$11');

          ListID:=ReadD(6); //ēąļīģčķąåģ, īķ āńå āšåģ˙ šąēķūé

          msg.Lines.Add('ListID='+inttostr(ListID));

          //ųėåģ ēąļšīń ķą ļšīäąęó

          //1F=RequestBuyItem:h(ListID)d(BuyCount)i(ItemID)d(Count)

          msg.Lines.Add('C>Ļąźåņ RequestBuyItem #$1F');

          //ļšīäąäčģ ļåšāūé čē ńļčńźą

          msg.Lines.Add('Item: ID:'+IntToStr(TradeBuyItem[Trd])+' Count:'+IntToStr(NeedBuy));

          delay(1000);

          RequestBuyItem(TradeBuyItem[Trd],NeedBuy);

          ReadyToBuy:=false;

        end;

      end;

    end;

  end;

}  //......................................

  //****************************************************************************

  if FromServer then

  case pck[1] of

     //......................................

    //Ļąźåņ ItemList

    #$1B: CreateItemBase; //ńīēäąķčå įąēū ļšåäģåņīā

     //......................................

    //åńėč óäąėčėč ļšåäģåņū, ńņčšąåģ ā įąēå ļšåäģåņīā ļąšū ObjectID - ItemID

    #$27: InventoryUpdate; //Īįķīāėåķčå įąēū

     //......................................

    //Ļąźåņ ChooseInventory

    #$6F: if ready then begin //and (readd(2)=itemid)

      //čłåģ ļīäõīä˙łčé ļšåäģåņ äė˙ ēąņī÷źč

      timer.enabled:=false; //īņźėž÷ąåģ ļīźą ķå ķąéäåģ ļšåäģåņ äė˙ ēąņī÷źč

      repeat

        ItemOID:=GetItem(ItemID,CurEnchLvl);

        if ItemOID=0 then begin

          inc(CurEnchLvl);

          Edit2.text:=inttostr(CurEnchLvl);

        end;

      until ItemOID<>0;

      //************************************************

      msg.Lines.Add('Ļšīįóåģ óėó÷ųčņü ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));

      RequestEnchantItem(ItemOID);

      ready:=false;

      timer.enabled:=true; //ļīźą ā ņåńņå īņźėž÷ąåģ (āźė. ļīńėå ēąņī÷źč ļšåäģåņą)

    end;

    #$81: if readd(2)=0 then begin

          CurEnchLvl:=0; //ķą÷ķåģ ń ķą÷ąėą

    end;

  end;

end.

Give vote l2 server. thx

By GameHack

bazun · 02/06/2009, 20:16

i cant download it pity

ozzy_7 · 02/07/2009, 09:26

i need a totally guide for all the program

Kiesha · 02/07/2009, 14:33

Reupload plz cannot don;t load it. That chronicle is that for anyways?

waterflyfire · 02/08/2009, 16:17

interlude?

Mindexz · 03/23/2009, 17:04

yes Interliude

Liuss · 03/24/2009, 22:16

I cannot understand too much of your explanation, but I tried to run the script and look what I've got:

hellium · 05/03/2009, 19:37

yes me too

KissMyDarkAss · 05/05/2009, 01:43

me too, pls help

realyman · 06/16/2009, 21:21

and me too

Mindexz · 06/18/2009, 21:22

new scrift editon good dont error

login l2 server plz edit u char name Name='IPXS' IPXS= you name

1213 · 09/04/2009, 09:09

m etoo