[PHX] SCRIPT ENCHANT NEW

mjst · November 6, 2009

lipon molis vrika sto http://coderx.ru/ kenourio script enchant kai tora to dokimazo...

dokimaste k esys k pite ti egine telika :)

den xero an to exei kanei alos post edo giati den mporo na do kai ola ta post giati den exo arketa post gia na ta vlepo.

//Aaniganceaoc? eani?zc lsaagania ai kaiioiacgici osiak? by IPXS
//version 0.7 in 20.07.2008c.
program Enchant;
{********************************************************************************
&#256;iegiekinnc nzsclna:
--------------------
0.1
+ &#315;akaeu olsaaeakc?;
+ &#274;ana?caaag li i?asaac ana lsaaganu n ItemID liza ka lasaeigaag
 &#269;ec ka eani?cg, iack lsaagan anacaa innaonn?;
0.2
+ &#269;nlsaaeak auiis kaeaakce lsaagania ce ckaaknas?;
+ &#311;aiieuua? lsaaza ziaa;
0.3
+ &#315;siaasaki ka theAbyss (ana lsaaganu ckaaknas? ?asa acacn);
+ &#269;nlsaaeaka iuciza ziaa auiisa nzsieeia;
+ &#269;nlsaaeaka iuciza lian?ana noggu lsaagania;
0.4
+ &#324;laocaeuki ae? Miler lsiaasaki ka La2Titan (eana?caae Mantikore Skin Shirt ai +7);
+ &#269;nlsaaeaka lsioaaosa InventoryUpdate;
+ &#269;egakaka eiccza eana?caakc?;
+ &#275;aciniaza lizolzc eani?az/aalae;
0.5
+ &#316;siaasaki ka L2Fantasy;
+ a&#299;iaaeaka lsiaasza, anec eani?za nisanuaaann? a 0 iae lieigzc aalc;
+ a&#299;iaaeak zia, anec kaai ni?cnu iako aalu (ilocikaeuki);
0.6
+ &#269;egakce auiiszo ItemId;
0.7
+ &#269;nlsaaeaki ngalakca a CreateItemBase ae? N4, nlancii Mulder

====================================================================
S&#261;iina nzsclna lsiaas?eanu ka eizaeukig Cknasezaa nasaasa,
a&#279;? N4 ka lsiaas?eanu c liaaasecaanun? aaeaa ka ioaan.
====================================================================

&#310;aiioiacgi eanascnun? isoecag, eani?zagc c aaeasu?kzie.
Name='CAPETANFOVERAS'; //Alcnanu nzaa cg? ?asa
//onnakiacnu ziknnakno a eaacncginnc in ncla ccsu (N4 cec Cknaseza)
interlude=true; //Interlude - true, C4 - false

&#256;kcgakca!
&#268;e zigiiiizna ii?eanaeuki kaai auisanu aalu, ?niiu nzscln oekae
ID &#269; ziec?annai, nieuzi linig nnaacnu kalsinca caei?zo.
&#262;aei?zc nkcganu ka kaai, anec zik?cecnu eani?zc/aalc - gieki nsaeo canc
&#316;izolanu c lsiaieeanu eani?zo.

&#323;zscln sanlsinnsak?ann? zaz annu, c ? ka kano inaannnaakkinnc ea ni, ?ni
&#256;U kanaiscec o nai?, aci cnlieueo?.

MyICQ 402988808
********************************************************************************}

//............................................
//Nlcniz ziknnakn
const
 Name='CAPETANFOVERAS'; //Alcnanu nzaa cg? ?asa
 //onnakiacnu ziknnakno a eaacncginnc in ncla ccsu (N4 cec Cknaseza)
 interlude=true; //Interlude - true, C4 - false
 //-------------------------
 max=250;     //ziec?annai neinia a ckaaknasa ?asa

//............................................
//Nlcniz lasagakkuo
var
 Item, scrl:integer;
 ScrollID, ScrollOID:integer;  //ScrollID nzsieea eani?zc
 ItemID,ItemOID:integer;      //ItemID eana?caaagici lsaagana
 MaxEnchLvl:integer;         //osiaaku eani?zc zinisue nsaioann? ainnc?u
 ItemBase:  array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl
 ready, add : boolean;
 timer : TTimer;
 ItemCount, CurEnchLvl: integer;
 SocialID : integer; // anligicanaeuka?
 ItemsName, StringList : TStringList;  //kaeaakc? lsaagania, cgaka lsiaaaoia
 FormMain : TForm; //Nieaaaaaga? oisga
 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;
//............................................
//*************************************
//Iisaiin?czc niiunce ae? zeagaknia olsaaeakc? ka oisga
//......................................
//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];
   //lsiaasza
//    EditItemOID.Text:=Inttostr(ItemID);
//    EditItemVal.text:=inttostr(ItemOID);

   ComboBoxItem.Enabled:=false; //auzez?aag
 end else begin
   ItemID:=0;               //ingaka
   ItemOID:=0;
   ComboBoxItem.Enabled:=true;  //azez?aag
   //Lazan 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];
   //lsiaasza
//    EditScrollOID.Text:=Inttostr(ScrollID);
//    EditScrollVal.text:=inttostr(ScrollOID);
   ComboBoxScroll.Enabled:=false; //auzez?aag
 end else begin
   ScrollID:=0;               //ingaka
   ScrollOID:=0;
   ComboBoxScroll.Enabled:=true;  //azez?aag
   //Lazan 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('Zigakaa Nnasn!!!');
 timer.enabled:=true;
end;
//......................................
//......................................
//ButtonStopEnchant
procedure ButtonStopEnchant_Click(Sender: TButton);
//Event : OnClick
begin
 msg.Lines.Add('Zigakaa Nnil!!!');
 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;
//Inaiiieaaag sanosnu ...
begin
 TRY
   if FormMain<>NIL then begin
      FormMain.Free;
      FormMain:=NIL;
   end;
 FINALLY
 END;
end; //Free_FormMain
//========================
//========================
function Create_FormMain : TForm;
//Nieaaag oisgo c niina. ziglikaknu ka kae ...
Var
 Yes : boolean;
begin
 Yes := FALSE;
 Result := TForm.Create(nil);

 TRY
   //------------------------
   //Naiennaa oisgu
   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;
   //......................................
   //......................................

mjst · November 6, 2009

    //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    := 'Kannsiezc';
   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     := 'Osiaaku Gazn.:';
   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     := 'Gck.:';
   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     := 'Aaaac eaeaague osiaaku eani?zc';
   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     := 'Zazici osiak? ngicec ainnc?u';
   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     := 'un.';
   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     := 'un.';
   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     := 'Zie-ai';
   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     := 'Linnaacnu caei?zo anec auisaec lsaagan';
   CheckBoxItem.ShowHint := TRUE;
   CheckBoxItem.Caption    := 'Lsaagan';
   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     := 'Auiasc ce nlcnza eana?caaague lsaagan';
   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     := 'Linnaacnu caei?zo anec auisaec nzsiee eani?zc';
   CheckBoxScroll.ShowHint := TRUE;
   CheckBoxScroll.Caption    := 'Eani?za';
   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     := 'Auiasc ce nlcnza nzsiee eani?zc';
   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;

mjst · November 6, 2009

    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
      //Inaiiieaaag sanosnu, anec kaoaa?ki ...
      if Result<>NIL then begin
         Result.Free;
         Result:=NIL;
      end;
   end;
 END;
 msg.Lines.Add('Aaniganceaoc? eani?zc by NLObP!');
 Result.Show;
end; //Create_FormMain
//========================
//========================
procedure Init; //Aueuaaann? lsc azez?akcc nzsclna
var
 i:integer;
begin
 FormMain:=Create_FormMain;
 //Enchant:=false;
 CurEnchLvl:=0;
 timer:=TTimer.Create(nil);
 timer.OnTimer:=@OnTimer;
 timer.enabled:=false;
 timer.interval:=1000; //asag? eaaasezc
 ready:=false;
 add:=false;
 //Lazan RequestItemList
 buf:=hstr('0F');
 SendToServerEx(Name);
 StringList:=TStringList.Create;
 ItemsName:=TStringList.Create;
 try
   ItemsName.LoadFromFile('itemsid.ini');
 except
   msg.Lines.Add('itemsid.ini ka kaeaak!');
   exit;
 end;
end;
//......................................
//******************************************************************************
procedure Free; //Aueuaaann? lsc auzez?akcc nzsclna
begin
//  ItemBase:=nil; //kaeue? naz aaeanu n ganncaig
 timer.Free;
 StringList.Clear;
 ItemsName.Clear;
 //ainnani?ki inaiiiacnu oisgo
 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; //lazan 1B, Nieaaan iaeo ObjectID li 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
   //i?claag ganca
   ItemBase[1,i]:=0;     //OID
   ItemBase[2,i]:=0;    //ID
   ItemBase[3,i]:=0;   //kol-vo
   ItemBase[4,i]:=0;  //lvl
 end;
 j:=4; //ngalakca ae? ListCount
 ListCount:=ReadH(j); //ziec?annai cnagia ka aieeki lsaauuanu max!
 //if ListCount>maxitems then msg.Lines.Add('Akcgakca! Ka ana aalc aeaeec a gannca. ListCount>Max='+IntToStr(ListCount)+'/'+IntToStr(maxitems));
 j:=8; //ngalakca ae? ObjectID
 //Lsiiacaag li Ckaaknasz c niosak?ag ObjectID niinaannnaozlca kaiioiacgug 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);  //zie-ai
   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;
 //akincg cegakakc? a ?aziiznu
 StringList.Clear;
 try
   for i:=1 to ListCount do begin
     try
       //StringList.Add(ItemsName[itemBase[2,i]-1]); //ealcnuaaag kaeaakca aalae ce ckaaknas?
       StringList.Add(ItemsName.Values[intToStr(ItemBase[2,i])]); //ealcnuaaag kaeaakca aalae ce ckaaknas?
     except;
       msg.Lines.Add('Lsilonzaag! Kan ItemID='+inttostr(ItemBase[2,i])+' a itemsid.ini');
     end
   end;
 except;
   msg.Lines.Add('iuciza a CreateItemBase->StringList.Add()');
   msg.Lines.Add(inttostr(ItemBase[2,i]));
   exit;
 end;
 if not CheckBoxItem.Checked then begin //kaliek?ag zigiiiizn
   with ComboBoxItem do
   begin
     Items.Clear;
     Items.Assign(StringList);
     ItemIndex:=0;
   end;
 end;
 if not CheckBoxScroll.Checked then begin //kaliek?ag zigiiiizn
   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; //lazan 27, iikiae?an iaeo ObjectID li ItemID
var
 i, ii, j, ItemOID, ItemID, ItemCount, ListCount, UpdType, Itemlvl: integer;
 add : boolean;
begin
 add:=false;
 ListCount:=ReadH(2); //ziec?annai cnagia
 //Lsiiacaag li Ckaaknasz c niosak?ag lasu ObjectID - lvl
 j:=4; //ngalakca ae? aaennac? n lsaaganig 1-aiiaaeak 2-cegakak 3-oaaeak
 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); //zie-ai
   inc(j,10);
   Itemlvl:=ReadH(j);
   case UpdType of
     //aiiaaeak
     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('Aiiaacec lsaagan!');
            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;
     //cegakak
     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('Cegak?ag lasagansu lsaagana!');
            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;
     //oaaeak
     3: begin
        for i:=1 to max do begin
          if ItemBase[1,i]=ItemOID then begin
            msg.Lines.Add('Oaae?ag lsaagan!');
            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;
//......................................
//******************************************************************************
//kaoiacg a ckaaknasa lsaagan n ItemID c aieasalaag aci ObjectID
function GetItem(item:integer; lvl:integer) : integer;
var
 i : integer;
begin
 for i:=1 to max do begin
   //kaoiacg liaoia?lce lsaagan li ItemID
   if (ItemBase[2,i]=item) and (ItemBase[4,i]=lvl) then begin
     //anec kauec, ni aieasalaag ObjectID lsaagana
     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;
 //kc?aci ka kauec
 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;
 //kaoiacg liaoia?lce lsaagan li ItemID
 for i:=1 to max do begin
   if (ItemBase[2,i]=item) then begin
//      msg.Lines.Add('Kauec lsaagan 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);
 //*********** cnlieueiaanu ?cn n lanig ************************
{  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('Ka?aci ni?cnu! Lsasaaki!');
   timer.enabled:=false;
   exit;
 end;
 if (sumitem(ItemID)<=1) then begin
//  if (sumitem(ItemID)<=0) then begin //anec kaai ni?cnu iako aalu
   msg.Lines.Add('Lsasaaki!');
   timer.enabled:=false;
   exit;
 end;
 ScrollOID:=GetItem(ScrollID,0);
 if ScrollOID=0 then begin
   msg.Lines.Add('Kan eani?zc! Lsasaaki!');
   timer.enabled:=false;
   exit;
 end;
 UseItem(ScrollOID);
 msg.Lines.Add('Eaaaennaiaaec nzsiee ScrollID='+IntToStr(scrollID)+' ScrollOID='+IntToStr(ScrollOID));
 ready:=true; //ciniau eana?caanu
//    delay(1000);
//    RequestEnchantItem(Item);
//    delay(1000);
   //************************************************
//    msg.Lines.Add('Lsiioag oeo?ucnu ItemID='+IntToStr(Item));
//  end;
end;
//......................................
//***************************************************************
// An? nisciae? eaanu!!!
//***************************************************************
{procedure OnTrade1(Sender: TObject);
begin
 case trade of
   //-------------------------------------------------
   //lizolaag o Misc Trader  ce ganncaa TradeBuyItem1
   //-------------------------------------------------
   100: begin
     if ReadyToBuy then exit; //anec ala zolcec lsaauaoloz aalu, ni auoiacg nsaeo
     //gu o ocuasgaka, lizolaag zsz?zc
     if FishermanOID=0 then begin
       Trade1.enabled:=false; //innakaaecaaag nisciaez
       msg.Lines.Add('Ka ciniau z nisciaea, kan OID ocuasgaka! Nsaioann? iniaeanu liaaeuua c aaskonun?.');
       exit; //auoiacg
     end;
     if TradeCount=TradeBuyItemCount then begin //lsiaasza ka auoia ce ganncaa
       trade:=400;
       msg.Lines.Add('Ano zolcec!');
       msg.Lines.Add('Lasaoia z iigako...');
       TradeCount:=0; //ka?kag nka?aea ganncaa
     end else begin
       if FindItem(TradeBuyItem[TradeCount])<strtoint(EditLure.text) then begin
         TargetAttacker(FishermanOID); //ocuasgaka a nascan
         msg.Lines.Add('Ciniau zolcnu:'+inttostr(TradeBuyItem[TradeCount]));
         ReadyToBuy:=true; //ciniau lsiaaaanu
         NeedBuy:=strtoint(EditLure.text)-colvoitm2; //aizolaag ai 50
         msg.Lines.Add('Nsaioann? aizolcn zsz?zia:'+inttostr(NeedBuy));
       end else msg.Lines.Add('Ka kaai lizolanu, oea annu:'+inttostr(colvoitm2));
       Trd:=TradeCount;
       inc(TradeCount);
       msg.Lines.Add('TradeCount/TradeBuyItemCount:'+inttostr(TradeCount)+'/'+inttostr(TradeBuyItemCount-1));
     end;
   //-------------------------------------------------
   //lizolaag o Armor Trader  ce ganncaa TradeBuyItem2
   //-------------------------------------------------
   200: begin
     if ReadyToBuy then exit; //anec ala zolcec lsaauaoloz aalu, ni auoiacg nsaeo
     //gu o ocuasgaka, lizolaag zsz?zc
     if FishermanOID=0 then begin
       Trade1.enabled:=false; //innakaaecaaag nisciaez
       msg.Lines.Add('Ka ciniau z nisciaea, kan OID ocuasgaka! Nsaioann? iniaeanu liaaeuua c aaskonun?.');
       exit; //auoiacg
     end;
     if TradeCount=TradeBuyItemCount then begin //lsiaasza ka auoia ce ganncaa
       trade:=400;
       msg.Lines.Add('Ano zolcec!');
       msg.Lines.Add('Lasaoia z iigako...');
       TradeCount:=0; //ka?kag nka?aea ganncaa
     end else begin
       if FindItem(TradeBuyItem[TradeCount])<strtoint(EditLure.text) then begin
         TargetAttacker(FishermanOID); //ocuasgaka a nascan
         msg.Lines.Add('Ciniau zolcnu:'+inttostr(TradeBuyItem[TradeCount]));
         ReadyToBuy:=true; //ciniau lsiaaaanu
         NeedBuy:=strtoint(EditLure.text)-colvoitm2; //aizolaag ai 50
         msg.Lines.Add('Nsaioann? aizolcn zsz?zia:'+inttostr(NeedBuy));
       end else msg.Lines.Add('Ka kaai lizolanu, oea annu:'+inttostr(colvoitm2));
       Trd:=TradeCount;
       inc(TradeCount);
       msg.Lines.Add('TradeCount/TradeBuyItemCount:'+inttostr(TradeCount)+'/'+inttostr(TradeBuyItemCount-1));
     end;
   end;
 end;
end;
}//......................................
//******************************************************************************
// aueuaaann? lsc lscoiaa zaeaici lazana, anec nzscln azez?ak
//******************************************************************************
begin
 //****************************************************************************
 //ka iisaianuaaag lonnua lazanu
 if pck='' then exit;
 //****************************************************************************
 //lizolza ninnicn ce neaaozlco uacia:
 //1. nascan  ka lsiaaaoa, laoea, nkiaa nascan c04=Action, c04=Action
 //2. lscoiacn s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
 //3. ueag auisakkue lokzn ce gakz c21=RequestBypassToServer:s(Cmd)
 //4. lscoiacn 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) kaeaag OID, Count koekie aalc li ID
 //6. ueag 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
       //linea nici zaz gu ae?ec a nascan lsiaaaoa lscoiacn znin lazan
       //s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
       #$0F: begin
         msg.Lines.Add('S>Lazan NpcHtmlMessage #$0F');
         if ReadD(2)=FishermanOID then begin
           //ueag ealsin auiisa lokzna - lsiaaea
           //c21=RequestBypassToServer:s(Cmd)
           delay(1000);
           RequestByPassToServer(getbuylist);
           msg.Lines.Add('C>Lazan RequestBypassToServer #$21 (sell)');
         end;
       end;
       //linea auiisa lokzna - lsiaaea, lscoiacn znin lazan
       //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>Lazan BuyList #$11');
         ListID:=ReadD(6); //ealigckaag, ik ana asag? saekue
         msg.Lines.Add('ListID='+inttostr(ListID));
         //ueag ealsin ka lsiaaeo
         //1F=RequestBuyItem:h(ListID)d(BuyCount)i(ItemID)d(Count)
         msg.Lines.Add('C>Lazan RequestBuyItem #$1F');
         //lsiaaacg lasaue ce nlcnza
         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
    //......................................
   //Lazan ItemList
   #$1B: CreateItemBase; //nieaakca iaeu lsaagania
    //......................................
   //anec oaaecec lsaaganu, nncsaag a iaea lsaagania lasu ObjectID - ItemID
   #$27: InventoryUpdate; //Iikiaeakca iaeu
    //......................................
   //Lazan ChooseInventory
   #$6F: if ready then begin //and (readd(2)=itemid)
     //clag liaoia?lce lsaagan ae? eani?zc
     timer.enabled:=false; //inzez?aag liza ka kaeaag lsaagan ae? eani?zc
     repeat
       ItemOID:=GetItem(ItemID,CurEnchLvl);
       if ItemOID=0 then begin
         inc(CurEnchLvl);
         Edit2.text:=inttostr(CurEnchLvl);
       end;
     until ItemOID<>0;
     //************************************************
     msg.Lines.Add('Lsiioag oeo?ucnu ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));
     RequestEnchantItem(ItemOID);
     ready:=false;
     timer.enabled:=true; //liza a nanna inzez?aag (aze. linea eani?zc lsaagana)
   end;
   #$81: if readd(2)=0 then begin
         CurEnchLvl:=0; //ka?kag n ka?aea
   end;
 end;
end.

sorry alla den xorousan ola se ena post :/ kanonika eprepe na to anevaso se ena arxio word..

ola afta ta pernete kai ta kanete me tin sira epikolisi mesa sto kenourio script pou kanete....

to trexete..

vazete to onoma sassto " Name='CAPETANFOVERAS'; "

akoma den mporesa na kano tpt.. :/ dite k esys k an vgalete akri pite...

http://img16.imageshack.us/img16/5931/phx.jpg

an iparxi idi sto forum delete kadeto

la8osman · December 24, 2009

re meiwse ligo ta posts na to dw plzz

[PHX] SCRIPT ENCHANT NEW

Recommended Posts

mjst

mjst

mjst

la8osman

Join the conversation

Posts

Topics

Browse

Activity

Store