Jump to content
MaxCheaters Official Group on X
MaxCheaters Official Group on Discord
--> Place your ad text here <--

[PHX] SCRIPT ENCHANT NEW

mjst

By mjst
in Hacks and Cheats [Greek]

 Share

Recommended Posts

mjst Enthusiast

mjst

Posted
Posted

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 Enthusiast

mjst

Posted
  • Author
Posted 
    //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 Enthusiast

mjst

Posted
  • Author
Posted 

    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

  • 1 month later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing


  • Posts

    • 911reg
      Happy 2025 Ext IL, Packs and Webs. By Guytis

      By 911reg · Posted

      I do what I like because I don't need to push myself to do things for L2 as a means of income. You, on the other hand, are here trying to scam people for $20k files... But, since you're so talented and competent, I suppose you must be thriving on the fruits of your talents as an L2Off dev, no? Oh wait Guess not
    • Ангел Мечты
      L2JETERNITY Rev. 2201

      By Ангел Мечты · Posted

      If you have error [ERR] 1067 - Invalid default value for 'createDate'   `createDate` date DEFAULT NULL '00-00-0000', need use   `createDate` date DEFAULT NULL,   What game client do you need here? I can't even log in! # Auto account creation # ---------------------------- # Auto account creation # Default: True AutoCreateAccounts = True What did I do wrong? ServerAddr=127.0.0.1    
    • klubuuu
      Improved Classic 1.0 - Lineage II Einhovant

      By klubuuu · Posted

      @Vedi don't give up bro. We are waiting for this project to come back stronger.  
    • Stajirek
      [L2J] L2EpicFail

      By Stajirek · Posted

      Welcome to L2EpicFail Server developed by gamers for gamers!  OBT - 7th March 2024 at 18:00 GMT+0 GRAND OPENING - 14th March 2025 at 18:00 GMT+0 Website : https://l2epic.fail/ Discord : https://discord.gg/6hwhrkrHBG     Server Features and Rates Xp – 15x Sp – 9x Adena – 6x Drop – 2x Spoil - 2x Seal Stones drop -  3x   Epic Raid Boss drop - 1x Regular RBs - EXP 5x, SP 5x, drop 4x   Quest drop - 1x (some quests customized to 3x) Quest reward - 1x, Adena 3x, EXP 3x, SP 3x     Premium Account Xp +20% Sp +20% Adena +20% Drop +20% Spoil +20% Quest reward +20%   get by vote or donate World chat 20 times/day use ">" in chat. Buff Book outside of town. Applies to all accounts.     Special Features Classic interface ActiveAnticheat Vote System Missions Attendance check And more in information below     Noblesse There are 3 ways how to make noblesse 1 - Retail Quest with killing barakiel 2 - Modifed Quest, choose killing mobs for 100 items instead of barakiel 3 - Can be bought for Epic Coins     Raid Rank Killing regular Raids gives points according to the level of the RB to the clan of the player who killed the boss. At the end of every month, there will be rewards for top clans. For more info, follow our Discord.   monthly period killing RB = points to clan according to RB level rewards up to Valakas Necklace (not the first month) current statistics can be checked online     Epic Bosses & Respawns   Queen Ant 20 - 30 hours respawn window 1 hour always displayed in .epic auto PvP zone (max 43 level) HP boosted drop chance 40% guards, nurses lvl 40   Orfen 20 - 30 hours respawn window 1 hour always displayed in .epic auto PvP zone (max 56 level) HP boosted drop chance 40% earring gives +1 WIT, +1 INT   Core 20 - 30 hours respawn window 1 hour always displayed in .epic auto PvP zone (max 56 level) HP boosted drop chance 40% ring gives +1 STR, +1 DEX   Zaken 44 - 54 hours respawn window 1 hour always displayed in .epic auto PvP zone (max A grade) doors opened only 5 mins HP boosted   Baium Every Sunday 20:30 - 21:30 window 1 hour always displayed in .epic auto PvP zone (13 - 14th ToI level) regular HP   Frintezza Every Monday, Wednesday, Friday 20:00 - 21:00 window 1 hour always displayed in .epic auto PvP zone (all IT entrance) max 5 parties to entry max 500 range from NPC   Antharas Every two weeks on Saturday 21:00 - 22:00 window 1 hour always displayed in .epic auto PvP zone (bridge to heart)   Valakas Every two weeks on Saturday 21:00 - 22:00 window 1 hour always displayed in .epic auto PvP zone (Klein to heart)   every Epic RB drops Epic Medals equal to RB level x 10     Regular Bosses all regular RBs HP boosted M. def boosted a bit to give advantage to fighters all regular RBs respawn 24 - 30 hours every RB drops Epic Medals equal to RB level     Added Skills Mass Sweep - All Bounty Hunters 40+ Block Buff - All Characters, toggle Escape: 20 seconds - All Characters, no more SoEs   Skills autolearn. Losing skills after 16 levels of delevel. Max buffs 24 + 4 with books (no autolearn)     Augments NoGrade - 4% chance MidGrade - 5% chance HighGrade - 7% chance TopGrade - 6% chance   GM shop weapon/armor/jwl (max C grade) shots/spiritshots (max C grade) mana potions (500 MP, 5s)     NPC buffer all buffs, songs, dances including 3rd prof + resists 1 hour duration all chars Buff Book in inventory     Global Gatekeeper all towns including cata/necro ToI 3/5/7/10th     Olympiad Thursday to Saturday 18:00 - 23:50 UTC+0 period 7 days no class participants min 5 base class participants min 10 max enchant +6     Class Transfer 1st class 50k adena 2nd class 500k adena 3rd class 20kk adena + 700 Halisha marks (tradeable)     Noblesse Quest Quest retail like. Moonstone Shards, Demons Blood etc. quest drop boosted     Subclass Quest To get the quest, you have to be 75+ on your main character (start Reorin in Giran) Bring item from Cabrio chest Bring items from Hallate, Kernon and Golkonda chests Bring this back to Reorin Bring 984 B-grade crystals and top B weapon to Reorin Get low A-grade weapon as reward Done , you can take subclass (up to 5) from any Master in town     Clans all clan members get clan skills (no need for titles) max clan slots 65, max ppl in PvP zone 63 leave/dismiss penalty 0 hours max clans in ally 3     Others   max 3 windows per HWID (only one in PvP zone) protection after teleport for 20 seconds arrows and spellbooks drop turned off weight limit 10x, stackable enchants and LS champions blue (5x HP) min level for trade = 40, chat = 20 BoM/MoM spawned in towns Edited November 1, 2024 by NevesOma
    • kuty97
      HELP ME

      By kuty97 · Posted

      Im searching to developer to help me 🙂 pm me 🙂

  • Topics

×
×
  • Create New...