login server you edit name i u char name Name='IPXS' IPXS name edit i u server char name PVZ Name='meName'
PHP Code:
//Ąāņīģąņčēąöč˙ ēąņī÷źč ļšåäģåņīā äī ķåīįõīäčģīćī óšīāķ˙ by IPXS
//version 0.7 īņ 20.07.2008ć.
program Enchant;
{********************************************************************************
Āīēģīęķīńņč ńźščļņą:
--------------------
0.1
+ Ļąķåėü óļšąāėåķč˙;
+ Ēąņą÷čāąåģ ļī ī÷åšåäč āńå ļšåäģåņū ń ItemID ļīźą ķå ļåšåėīģąåģ
čėč ķå ēąņī÷čģ, īäčķ ļšåäģåņ āńåćäą īńņąøņń˙;
0.2
+ čńļšąāėåķ āūįīš ķąēāąķčé ļšåäģåņīā čē čķāåķņąš˙;
+ ķåįīėüųą˙ ļšąāźą źīäą;
0.3
+ Ļšīāåšåķī ķą theAbyss (āńå ļšåäģåņū čķāåķņąš˙ ÷ąšą āčäčņ);
+ čńļšąāėåķą īųčįźą źīäą āūįīšą ńźšīėėīā;
+ čńļšąāėåķą īųčįźą ļīäń÷åņą ńóģģū ļšåäģåņīā;
0.4
+ ńļåöčąėüķī äė˙ Miler ļšīāåšåķī ķą La2Titan (ēąņą÷čāąė Mantikore Skin Shirt äī +7);
+ čńļšąāėåķą ļšīöåäóšą InventoryUpdate;
+ čēģåķåķą ėīćčźą ēąņą÷čāąķč˙;
+ ēąćīņīāźą ļīźóļźč ēąņī÷åź/āåłåé;
0.5
+ ļšīāåšåķī ķą L2Fantasy;
+ äīįąāėåķą ļšīāåšźą, åńėč ēąņī÷źą ńįšąńūāąåņń˙ ā 0 įåē ļīėīģźč āåłč;
+ äīįąāėåķ źīä, åńėč ķąäī ņī÷čņü īäķó āåłü (īļöčīķąėüķī);
0.6
+ čēģåķčė āūįīšźó ItemId;
0.7
+ čńļšąāėåķī ńģåłåķčå ā CreateItemBase äė˙ Ń4, ńļąńčįī Mulder
====================================================================
Šąįīņą ńźščļņą ļšīāåš˙ėąńü ķą ėīźąėüķīģ Čķņåšėžäą ńåšāåšå,
äė˙ Ń4 ķå ļšīāåš˙ėąńü č ļīääåšęčāąņüń˙ äąėåå ķå įóäåņ.
====================================================================
Ķåīįõīäčģī ēąņąščņüń˙ īšóęčåģ, ēąņī÷źąģč č āąėåšü˙ķźīé.
Name='IPXS'; //Āļčńąņü ńžäą čģ˙ ÷ąšą
//óńņąķīāčņü źīķńņąķņó ā ēąāčńčģīńņč īņ ņčļą čćšū (Ń4 čėč Čķņåšėžä)
interlude=true; //Interlude - true, C4 - false
Āķčģąķčå!
Čē źīģįīįīźńą īį˙ēąņåėüķī ķąäī āūįšąņü āåłü, ÷ņīįū ńźščļņ óēķąė
ID č źīėč÷åńņāī, ņīėüźī ļīņīģ ńņąāčņü ķąļšīņčā ćąėī÷źó.
Ćąėī÷źč ńķčģąņü ķå ķąäī, åńėč źīķ÷čėčńü ēąņī÷źč/āåłč - ģīęķī ńšąēó čäņč
ļīźóļąņü č ļšīäīėęąņü ēąņī÷źó.
Ńźščļņ šąńļšīńņšąķ˙åņń˙ źąź åńņü, č ˙ ķå ķåńó īņāåņńņāåķķīńņč ēą ņī, ÷ņī
ĀŪ ķąņāīščėč ó ńåį˙, åćī čńļīėüēó˙.
MyICQ 402988808
********************************************************************************}
//............................................
//Ńļčńīź źīķńņąķņ
const
Name='JUSU NICAS'; //Āļčńąņü ńžäą čģ˙ ÷ąšą
//óńņąķīāčņü źīķńņąķņó ā ēąāčńčģīńņč īņ ņčļą čćšū (Ń4 čėč Čķņåšėžä)
interlude=true; //Interlude - true, C4 - false
//-------------------------
max=250; //źīėč÷åńņāī ńėīņīā ā čķāåķņąšå ÷ąšą
//............................................
//Ńļčńīź ļåšåģåķķūõ
var
Item, scrl:integer;
ScrollID, ScrollOID:integer; //ScrollID ńźšīėėą ēąņī÷źč
ItemID,ItemOID:integer; //ItemID ēąņą÷čāąåģīćī ļšåäģåņą
MaxEnchLvl:integer; //óšīāåķü ēąņī÷źč źīņīšūé ņšåįóåņń˙ äīńņč÷ü
ItemBase: array[1..4,1..max] of integer; //ItemOID, ItemID, Kol-vo, ItemLvl
ready, add : boolean;
timer : TTimer;
ItemCount, CurEnchLvl: integer;
SocialID : integer; // āńļīģīćąņåėüķą˙
ItemsName, StringList : TStringList; //ķąēāąķč˙ ļšåäģåņīā, čģåķą ļšīäąāöīā
FormMain : TForm; //Ńīēäąāąåģą˙ ōīšģą
Splitter1 : TSplitter;
Splitter2 : TSplitter;
Stats : TMemo;
Msg : TMemo;
Panel1 : TPanel;
GroupBox2 : TGroupBox;
Label2 : TLabel;
Label4 : TLabel;
Label12 : TLabel;
Label13 : TLabel;
CheckBoxItem : TCheckBox;
ComboBoxItem : TComboBox;
ButtonStartEnchant : TButton;
ButtonStopEnchant : TButton;
CheckBoxScroll : TCheckBox;
ComboBoxScroll : TComboBox;
EditItemVal : TEdit;
EditScrollVal : TEdit;
EditScrollOID : TEdit;
EditItemOID : TEdit;
Label1 : TLabel;
Label3 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
//............................................
//*************************************
//Īįšąįīņ÷čźč ńīįūņčé äė˙ żėåģåķņīā óļšąāėåķč˙ ķą ōīšģå
//......................................
//CheckBoxItem
procedure CheckBoxItem_Click(Sender: TCheckBox);
//Event : OnClick
begin
if CheckBoxItem.Checked
then begin
ItemOID:=ItemBase[1,ComboBoxItem.ItemIndex+1];
ItemID:=ItemBase[2,ComboBoxItem.ItemIndex+1];
//ļšīāåšźą
// EditItemOID.Text:=Inttostr(ItemID);
// EditItemVal.text:=inttostr(ItemOID);
ComboBoxItem.Enabled:=false; //āūźėž÷ąåģ
end else begin
ItemID:=0; //īņģåķą
ItemOID:=0;
ComboBoxItem.Enabled:=true; //āźėž÷ąåģ
//Ļąźåņ RequestItemList
buf:=hstr('0F');
SendToServerEx(Name);
end;
end;
//......................................
//......................................
//ComboBoxItem
procedure ComboBoxItem_Click(Sender: TComboBox);
//Event : OnClick
begin
ItemOID:=ItemBase[1,ComboBoxItem.ItemIndex+1];
ItemID:=ItemBase[2,ComboBoxItem.ItemIndex+1];
// ItemID:=ExtractIDValues(ComboBoxItem.Items.Strings[ComboBoxItem.ItemIndex]);
EditItemOID.Text:=Inttostr(ItemID);
EditItemVal.text:=inttostr(sumitem(ItemID));
end;
//......................................
//......................................
//CheckBoxScroll
procedure CheckBoxScroll_Click(Sender: TCheckBox);
//Event : OnClick
begin
if CheckBoxScroll.Checked
then begin
ScrollOID:=ItemBase[1,ComboBoxScroll.ItemIndex+1];
ScrollID:=ItemBase[2,ComboBoxScroll.ItemIndex+1];
//ļšīāåšźą
// EditScrollOID.Text:=Inttostr(ScrollID);
// EditScrollVal.text:=inttostr(ScrollOID);
ComboBoxScroll.Enabled:=false; //āūźėž÷ąåģ
end else begin
ScrollID:=0; //īņģåķą
ScrollOID:=0;
ComboBoxScroll.Enabled:=true; //āźėž÷ąåģ
//Ļąźåņ RequestItemList
buf:=hstr('0F');
SendToServerEx(Name);
end;
end;
//......................................
//......................................
//ComboBoxScroll
procedure ComboBoxScroll_Click(Sender: TComboBox);
//Event : OnClick
begin
ScrollOID:=ItemBase[1,ComboBoxScroll.ItemIndex+1];
ScrollID:=ItemBase[2,ComboBoxScroll.ItemIndex+1];
// ScrollID:=ExtractIDValues(ComboBoxScroll.Items.Strings[ComboBoxScroll.ItemIndex]);
EditScrollOID.Text:=Inttostr(ScrollID);
EditScrollVal.text:=inttostr(sumitem(ScrollID));
end;
//......................................
//......................................
//ButtonStartEnchant
procedure ButtonStartEnchant_Click(Sender: TButton);
//Event : OnClick
begin
CurEnchLvl:=0;
Edit2.text:=inttostr(CurEnchLvl);
msg.Lines.Add('Źīģąķäą Ńņąšņ!!!');
timer.enabled:=true;
end;
//......................................
//......................................
//ButtonStopEnchant
procedure ButtonStopEnchant_Click(Sender: TButton);
//Event : OnClick
begin
msg.Lines.Add('Źīģąķäą Ńņīļ!!!');
timer.enabled:=false;
ready:=false;
end;
//......................................
//......................................
procedure Edit1_Exit(Sender: TEdit);
//Event : OnExit
begin
// MyHPID:=ExtractIDValues(ComboBoxHPotion.Items.Strings[ComboBoxHPotion.ItemIndex]);
// EditHPotionVal.Text:=Inttostr(FindItem(MyHPID));
// EditHPotionOID.text:=inttostr(ItemBase2[1,1]);
end;
//......................................
//*************************************
procedure Free_FormMain;
//Īńāīįīęäąåģ šåńóšńū ...
begin
TRY
if FormMain<>NIL then begin
FormMain.Free;
FormMain:=NIL;
end;
FINALLY
END;
end; //Free_FormMain
//========================
//========================
function Create_FormMain : TForm;
//Ńīēäąåģ ōīšģó č ńīīņā. źīģļīķåķņū ķą ķåé ...
Var
Yes : boolean;
begin
Yes := FALSE;
Result := TForm.Create(nil);
TRY
//------------------------
//Ńāīéńņāą ōīšģū
Result.Caption := 'Enchant by NLObP v.0.7';
Result.Left := 397;
Result.Top := 233;
Result.Width := 581;
Result.Height := 205;
Result.FormStyle := fsNormal;
Result.Position := poDesigned;
Result.BorderStyle := bsSizeable;
Result.BorderWidth := 0;
Result.WindowState := wsNormal;
Result.Color := clBtnFace;
Result.Font.Name := 'Tahoma';
Result.Font.Size := 8;
Result.Font.Color := clWindowText;
Result.Font.CharSet:= 1;
//------------------------
//......................................
//Splitter1
Splitter1 := TSplitter.Create(Result);
Splitter1.Parent := Result;
Splitter1.Align := alBottom;
Splitter1.Color := clBtnFace;
Splitter1.Left := 0;
Splitter1.Top := 103;
Splitter1.Width := 573;
Splitter1.Height := 3;
Splitter1.Visible := TRUE;
Splitter1.Tag := 0;
//......................................
//......................................
//Splitter2
Splitter2 := TSplitter.Create(Result);
Splitter2.Parent := Result;
Splitter2.Align := alRight;
Splitter2.Color := clBtnFace;
Splitter2.Left := 442;
Splitter2.Top := 0;
Splitter2.Width := 1;
Splitter2.Height := 103;
Splitter2.Visible := TRUE;
Splitter2.Tag := 0;
//......................................
//......................................
//Stats
Stats := TMemo.Create(Result);
Stats.Parent := Result;
Stats.Left := 443;
Stats.Top := 0;
Stats.Width := 130;
Stats.Height := 103;
Stats.Visible := TRUE;
Stats.Tag := 0;
Stats.Enabled := TRUE;
Stats.Hint := '';
Stats.ShowHint := FALSE;
Stats.Font.Name := 'Tahoma';
Stats.Font.Size := 8;
Stats.Font.Color := clWindowText;
Stats.Color := clWindow;
Stats.TabOrder := 0;
Stats.TabStop := TRUE;
Stats.Align := alRight;
Stats.WordWrap := TRUE;
Stats.Alignment := taLeftJustify;
Stats.WantTabs := FALSE;
Stats.WantReturns := TRUE;
Stats.HideSelection := TRUE;
Stats.MaxLength := 0;
Stats.OEMConvert := FALSE;
Stats.ReadOnly := FALSE;
Stats.ScrollBars := ssNone;
//......................................
//......................................
//Msg
Msg := TMemo.Create(Result);
Msg.Parent := Result;
Msg.Left := 0;
Msg.Top := 106;
Msg.Width := 573;
Msg.Height := 65;
Msg.Visible := TRUE;
Msg.Tag := 0;
Msg.Enabled := TRUE;
Msg.Hint := '';
Msg.ShowHint := FALSE;
Msg.Font.Name := 'Tahoma';
Msg.Font.Size := 8;
Msg.Font.Color := clWindowText;
Msg.Color := clWindow;
Msg.TabOrder := 1;
Msg.TabStop := TRUE;
Msg.Align := alBottom;
Msg.WordWrap := TRUE;
Msg.Alignment := taLeftJustify;
Msg.WantTabs := FALSE;
Msg.WantReturns := TRUE;
Msg.HideSelection := TRUE;
Msg.MaxLength := 0;
Msg.OEMConvert := FALSE;
Msg.ReadOnly := FALSE;
Msg.ScrollBars := ssNone;
//......................................
//......................................
//Panel1
Panel1 := TPanel.Create(Result);
Panel1.Parent := Result;
Panel1.Left := 0;
Panel1.Top := 0;
Panel1.Width := 442;
Panel1.Height := 103;
Panel1.Visible := TRUE;
Panel1.Tag := 0;
Panel1.Enabled := TRUE;
Panel1.Hint := '';
Panel1.ShowHint := FALSE;
Panel1.Caption := '';
Panel1.Align := alClient;
Panel1.Color := clBtnFace;
Panel1.Font.Name := 'Tahoma';
Panel1.Font.Size := 8;
Panel1.Font.Color := clWindowText;
Panel1.Font.CharSet := 1;
Panel1.BevelWidth := 1;
Panel1.BorderWidth := 0;
Panel1.BevelInner := bvNone;
Panel1.BevelOuter := bvRaised;
Panel1.TabOrder := 2;
Panel1.TabStop := FALSE;
Panel1.AutoSize := FALSE;
//......................................
//......................................
//GroupBox2
GroupBox2 := TGroupBox.Create(Result);
GroupBox2.Parent := Panel1;
GroupBox2.Left := 1;
GroupBox2.Top := 1;
GroupBox2.Width := 440;
GroupBox2.Height := 101;
GroupBox2.Visible := TRUE;
GroupBox2.Tag := 0;
GroupBox2.Enabled := TRUE;
GroupBox2.Hint := '';
GroupBox2.ShowHint := FALSE;
GroupBox2.Caption := 'Ķąńņšīéźč';
GroupBox2.Align := alClient;
GroupBox2.Color := clBtnFace;
GroupBox2.Font.Name := 'Tahoma';
GroupBox2.Font.Size := 8;
GroupBox2.Font.Color := clWindowText;
GroupBox2.Font.CharSet := 1;
GroupBox2.TabOrder := 0;
GroupBox2.TabStop := FALSE;
//......................................
//......................................
//Label1
Label1 := TLabel.Create(Result);
Label1.Parent := GroupBox2;
Label1.Left := 10;
Label1.Top := 70;
Label1.Width := 58;
Label1.Height := 13;
Label1.Visible := TRUE;
Label1.Tag := 0;
Label1.Enabled := TRUE;
Label1.Hint := '';
Label1.ShowHint := FALSE;
Label1.Caption := 'Óšīāåķü Ģąźń.:';
Label1.Transparent := TRUE;
Label1.WordWrap := FALSE;
Label1.Alignment := taLeftJustify;
Label1.Layout := tlTop;
Label1.AutoSize := TRUE;
Label1.Align := alNone;
Label1.Font.Name := 'Tahoma';
Label1.Font.Size := 8;
Label1.Font.Color := clWindowText;
Label1.Color := clBtnFace;
//......................................
//......................................
//Label1
Label3 := TLabel.Create(Result);
Label3.Parent := GroupBox2;
Label3.Left := 170;
Label3.Top := 70;
Label3.Width := 58;
Label3.Height := 13;
Label3.Visible := TRUE;
Label3.Tag := 0;
Label3.Enabled := TRUE;
Label3.Hint := '';
Label3.ShowHint := FALSE;
Label3.Caption := 'Ģčķ.:';
Label3.Transparent := TRUE;
Label3.WordWrap := FALSE;
Label3.Alignment := taLeftJustify;
Label3.Layout := tlTop;
Label3.AutoSize := TRUE;
Label3.Align := alNone;
Label3.Font.Name := 'Tahoma';
Label3.Font.Size := 8;
Label3.Font.Color := clWindowText;
Label3.Color := clBtnFace;
//......................................
//......................................
//Edit1
Edit1 := TEdit.Create(Result);
Edit1.Parent := GroupBox2;
Edit1.Left := 90;
Edit1.Top := 67;
Edit1.Width := 60;
Edit1.Height := 21;
Edit1.Visible := TRUE;
Edit1.Tag := 0;
Edit1.Enabled := TRUE;
Edit1.Hint := 'Āāåäč ęåėąåģūé óšīāåķü ēąņī÷źč';
Edit1.ShowHint := TRUE;
Edit1.Text := '65535';
Edit1.Font.Name := 'Tahoma';
Edit1.Font.Size := 8;
Edit1.Font.Color := clWindowText;
Edit1.Color := clWindow;
Edit1.TabOrder := 5;
Edit1.TabStop := TRUE;
Edit1.ReadOnly := FALSE;
Edit1.MaxLength := 0;
Edit1.AutoSize := TRUE;
Edit1.OnExit := @Edit1_Exit;
//......................................
//......................................
//Edit2
Edit2 := TEdit.Create(Result);
Edit2.Parent := GroupBox2;
Edit2.Left := 199;
Edit2.Top := 67;
Edit2.Width := 60;
Edit2.Height := 21;
Edit2.Visible := TRUE;
Edit2.Tag := 0;
Edit2.Enabled := TRUE;
Edit2.Hint := 'Źąźīćī óšīāķ˙ ńģīćėč äīńņč÷ü';
Edit2.ShowHint := TRUE;
Edit2.Text := '0';
Edit2.Font.Name := 'Tahoma';
Edit2.Font.Size := 8;
Edit2.Font.Color := clWindowText;
Edit2.Color := clWindow;
Edit2.TabOrder := 5;
Edit2.TabStop := FALSE;
Edit2.ReadOnly := TRUE;
Edit2.MaxLength := 0;
Edit2.AutoSize := TRUE;
//......................................
//......................................
//Label2
Label2 := TLabel.Create(Result);
Label2.Parent := GroupBox2;
Label2.Left := 416;
Label2.Top := 19;
Label2.Width := 18;
Label2.Height := 13;
Label2.Visible := TRUE;
Label2.Tag := 0;
Label2.Enabled := TRUE;
Label2.Hint := '';
Label2.ShowHint := FALSE;
Label2.Caption := 'ųņ.';
Label2.Transparent := TRUE;
Label2.WordWrap := FALSE;
Label2.Alignment := taLeftJustify;
Label2.Layout := tlTop;
Label2.AutoSize := TRUE;
Label2.Align := alNone;
Label2.Font.Name := 'Tahoma';
Label2.Font.Size := 8;
Label2.Font.Color := clWindowText;
Label2.Color := clBtnFace;
//......................................
//......................................
//Label4
Label4 := TLabel.Create(Result);
Label4.Parent := GroupBox2;
Label4.Left := 416;
Label4.Top := 43;
Label4.Width := 18;
Label4.Height := 13;
Label4.Visible := TRUE;
Label4.Tag := 0;
Label4.Enabled := TRUE;
Label4.Hint := '';
Label4.ShowHint := FALSE;
Label4.Caption := 'ųņ.';
Label4.Transparent := TRUE;
Label4.WordWrap := FALSE;
Label4.Alignment := taLeftJustify;
Label4.Layout := tlTop;
Label4.AutoSize := TRUE;
Label4.Align := alNone;
Label4.Font.Name := 'Tahoma';
Label4.Font.Size := 8;
Label4.Font.Color := clWindowText;
Label4.Color := clBtnFace;
//......................................
//......................................
//Label12
Label12 := TLabel.Create(Result);
Label12.Parent := GroupBox2;
Label12.Left := 273;
Label12.Top := 3;
Label12.Width := 33;
Label12.Height := 13;
Label12.Visible := TRUE;
Label12.Tag := 0;
Label12.Enabled := TRUE;
Label12.Hint := '';
Label12.ShowHint := FALSE;
Label12.Caption := 'ItemID';
Label12.Transparent := TRUE;
Label12.WordWrap := FALSE;
Label12.Alignment := taLeftJustify;
Label12.Layout := tlTop;
Label12.AutoSize := TRUE;
Label12.Align := alNone;
Label12.Font.Name := 'Tahoma';
Label12.Font.Size := 8;
Label12.Font.Color := clWindowText;
Label12.Color := clBtnFace;
//......................................
//......................................
//Label13
Label13 := TLabel.Create(Result);
Label13.Parent := GroupBox2;
Label13.Left := 349;
Label13.Top := 3;
Label13.Width := 35;
Label13.Height := 13;
Label13.Visible := TRUE;
Label13.Tag := 0;
Label13.Enabled := TRUE;
Label13.Hint := '';
Label13.ShowHint := FALSE;
Label13.Caption := 'Źīė-āī';
Label13.Transparent := TRUE;
Label13.WordWrap := FALSE;
Label13.Alignment := taLeftJustify;
Label13.Layout := tlTop;
Label13.AutoSize := TRUE;
Label13.Align := alNone;
Label13.Font.Name := 'Tahoma';
Label13.Font.Size := 8;
Label13.Font.Color := clWindowText;
Label13.Color := clBtnFace;
//......................................
//......................................
//CheckBoxItem
CheckBoxItem := TCheckBox.Create(Result);
CheckBoxItem.Parent := GroupBox2;
CheckBoxItem.Left := 18;
CheckBoxItem.Top := 18;
CheckBoxItem.Width := 66;
CheckBoxItem.Height := 17;
CheckBoxItem.Visible := TRUE;
CheckBoxItem.Tag := 0;
CheckBoxItem.Enabled := TRUE;
CheckBoxItem.Hint := 'Ļīńņąāčņü ćąėī÷źó åńėč āūįšąėč ļšåäģåņ';
CheckBoxItem.ShowHint := TRUE;
CheckBoxItem.Caption := 'Ļšåäģåņ';
CheckBoxItem.Font.Name := 'Tahoma';
CheckBoxItem.Font.Size := 8;
CheckBoxItem.Font.Color := clWindowText;
CheckBoxItem.Color := clBtnFace;
CheckBoxItem.TabOrder := 0;
CheckBoxItem.TabStop := TRUE;
CheckBoxItem.Checked := FALSE;
CheckBoxItem.AllowGrayed := FALSE;
CheckBoxItem.State := cbUnchecked;
CheckBoxItem.OnClick := @CheckBoxItem_Click;
//......................................
//......................................
//ComboBoxItem
ComboBoxItem := TComboBox.Create(Result);
ComboBoxItem.Parent := GroupBox2;
ComboBoxItem.Left := 90;
ComboBoxItem.Top := 16;
ComboBoxItem.Width := 169;
ComboBoxItem.Height := 21;
ComboBoxItem.Visible := TRUE;
ComboBoxItem.Tag := 0;
ComboBoxItem.Enabled := TRUE;
ComboBoxItem.Hint := 'Āūįåšč čē ńļčńźą ēąņą÷čāąåģūé ļšåäģåņ';
ComboBoxItem.ShowHint := TRUE;
ComboBoxItem.Text := 'ComboBoxItem';
ComboBoxItem.Font.Name := 'Tahoma';
ComboBoxItem.Font.Size := 8;
ComboBoxItem.Font.Color := clWindowText;
ComboBoxItem.Color := clWindow;
ComboBoxItem.TabOrder := 1;
ComboBoxItem.TabStop := TRUE;
ComboBoxItem.ItemIndex := -1;
ComboBoxItem.Sorted := FALSE;
ComboBoxItem.ItemHeight := 13;
ComboBoxItem.OnClick := @ComboBoxItem_Click;
//......................................
//......................................
//ButtonStartEnchant
ButtonStartEnchant := TButton.Create(Result);
ButtonStartEnchant.Parent := GroupBox2;
ButtonStartEnchant.Left := 265;
ButtonStartEnchant.Top := 67;
ButtonStartEnchant.Width := 75;
ButtonStartEnchant.Height := 25;
ButtonStartEnchant.Visible := TRUE;
ButtonStartEnchant.Tag := 0;
ButtonStartEnchant.Enabled := TRUE;
ButtonStartEnchant.Hint := '';
ButtonStartEnchant.ShowHint := FALSE;
ButtonStartEnchant.Caption := 'Start';
ButtonStartEnchant.Font.Name := 'Tahoma';
ButtonStartEnchant.Font.Size := 8;
ButtonStartEnchant.Font.Color := clWindowText;
ButtonStartEnchant.Font.CharSet := 1;
ButtonStartEnchant.TabOrder := 2;
ButtonStartEnchant.TabStop := TRUE;
ButtonStartEnchant.Cancel := FALSE;
ButtonStartEnchant.ModalResult := 0;
ButtonStartEnchant.OnClick := @ButtonStartEnchant_Click;
//......................................
//......................................
//ButtonStopEnchant
ButtonStopEnchant := TButton.Create(Result);
ButtonStopEnchant.Parent := GroupBox2;
ButtonStopEnchant.Left := 341;
ButtonStopEnchant.Top := 67;
ButtonStopEnchant.Width := 75;
ButtonStopEnchant.Height := 25;
ButtonStopEnchant.Visible := TRUE;
ButtonStopEnchant.Tag := 0;
ButtonStopEnchant.Enabled := TRUE;
ButtonStopEnchant.Hint := '';
ButtonStopEnchant.ShowHint := FALSE;
ButtonStopEnchant.Caption := 'Stop';
ButtonStopEnchant.Font.Name := 'Tahoma';
ButtonStopEnchant.Font.Size := 8;
ButtonStopEnchant.Font.Color := clWindowText;
ButtonStopEnchant.Font.CharSet := 1;
ButtonStopEnchant.TabOrder := 3;
ButtonStopEnchant.TabStop := TRUE;
ButtonStopEnchant.Cancel := FALSE;
ButtonStopEnchant.ModalResult := 0;
ButtonStopEnchant.OnClick := @ButtonStopEnchant_Click;
//......................................
//......................................
//CheckBoxScroll
CheckBoxScroll := TCheckBox.Create(Result);
CheckBoxScroll.Parent := GroupBox2;
CheckBoxScroll.Left := 18;
CheckBoxScroll.Top := 41;
CheckBoxScroll.Width := 66;
CheckBoxScroll.Height := 23;
CheckBoxScroll.Visible := TRUE;
CheckBoxScroll.Tag := 0;
CheckBoxScroll.Enabled := TRUE;
CheckBoxScroll.Hint := 'Ļīńņąāčņü ćąėī÷źó åńėč āūįšąėč ńźšīėė ēąņī÷źč';
CheckBoxScroll.ShowHint := TRUE;
CheckBoxScroll.Caption := 'Ēąņī÷źą';
CheckBoxScroll.Font.Name := 'Tahoma';
CheckBoxScroll.Font.Size := 8;
CheckBoxScroll.Font.Color := clWindowText;
CheckBoxScroll.Color := clBtnFace;
CheckBoxScroll.TabOrder := 4;
CheckBoxScroll.TabStop := TRUE;
CheckBoxScroll.Checked := FALSE;
CheckBoxScroll.AllowGrayed := FALSE;
CheckBoxScroll.State := cbUnchecked;
CheckBoxScroll.OnClick := @CheckBoxScroll_Click;
//......................................
//......................................
//ComboBoxScroll
ComboBoxScroll := TComboBox.Create(Result);
ComboBoxScroll.Parent := GroupBox2;
ComboBoxScroll.Left := 90;
ComboBoxScroll.Top := 40;
ComboBoxScroll.Width := 169;
ComboBoxScroll.Height := 21;
ComboBoxScroll.Visible := TRUE;
ComboBoxScroll.Tag := 0;
ComboBoxScroll.Enabled := TRUE;
ComboBoxScroll.Hint := 'Āūįåšč čē ńļčńźą ńźšīėė ēąņī÷źč';
ComboBoxScroll.ShowHint := TRUE;
ComboBoxScroll.Text := 'ComboBoxScroll';
ComboBoxScroll.Font.Name := 'Tahoma';
ComboBoxScroll.Font.Size := 8;
ComboBoxScroll.Font.Color := clWindowText;
ComboBoxScroll.Color := clWindow;
ComboBoxScroll.TabOrder := 5;
ComboBoxScroll.TabStop := TRUE;
ComboBoxScroll.ItemIndex := -1;
ComboBoxScroll.Sorted := FALSE;
ComboBoxScroll.ItemHeight := 13;
ComboBoxScroll.OnClick := @ComboBoxScroll_Click;
//......................................
//......................................
//EditItemVal
EditItemVal := TEdit.Create(Result);
EditItemVal.Parent := GroupBox2;
EditItemVal.Left := 341;
EditItemVal.Top := 16;
EditItemVal.Width := 72;
EditItemVal.Height := 21;
EditItemVal.Visible := TRUE;
EditItemVal.Tag := 0;
EditItemVal.Enabled := TRUE;
EditItemVal.Hint := '';
EditItemVal.ShowHint := FALSE;
EditItemVal.Text := '0';
EditItemVal.Font.Name := 'Tahoma';
EditItemVal.Font.Size := 8;
EditItemVal.Font.Color := clWindowText;
EditItemVal.Color := clWindow;
EditItemVal.TabOrder := 6;
EditItemVal.TabStop := TRUE;
EditItemVal.ReadOnly := TRUE;
EditItemVal.MaxLength := 0;
EditItemVal.AutoSize := TRUE;
//......................................
//......................................
//EditScrollVal
EditScrollVal := TEdit.Create(Result);
EditScrollVal.Parent := GroupBox2;
EditScrollVal.Left := 341;
EditScrollVal.Top := 40;
EditScrollVal.Width := 72;
EditScrollVal.Height := 21;
EditScrollVal.Visible := TRUE;
EditScrollVal.Tag := 0;
EditScrollVal.Enabled := TRUE;
EditScrollVal.Hint := '';
EditScrollVal.ShowHint := FALSE;
EditScrollVal.Text := '0';
EditScrollVal.Font.Name := 'Tahoma';
EditScrollVal.Font.Size := 8;
EditScrollVal.Font.Color := clWindowText;
EditScrollVal.Color := clWindow;
EditScrollVal.TabOrder := 7;
EditScrollVal.TabStop := TRUE;
EditScrollVal.ReadOnly := TRUE;
EditScrollVal.MaxLength := 0;
EditScrollVal.AutoSize := TRUE;
//......................................
//......................................
//EditScrollOID
EditScrollOID := TEdit.Create(Result);
EditScrollOID.Parent := GroupBox2;
EditScrollOID.Left := 263;
EditScrollOID.Top := 40;
EditScrollOID.Width := 72;
EditScrollOID.Height := 21;
EditScrollOID.Visible := TRUE;
EditScrollOID.Tag := 0;
EditScrollOID.Enabled := TRUE;
EditScrollOID.Hint := '';
EditScrollOID.ShowHint := FALSE;
EditScrollOID.Text := '0';
EditScrollOID.Font.Name := 'Tahoma';
EditScrollOID.Font.Size := 8;
EditScrollOID.Font.Color := clWindowText;
EditScrollOID.Color := clWindow;
EditScrollOID.TabOrder := 8;
EditScrollOID.TabStop := TRUE;
EditScrollOID.ReadOnly := TRUE;
EditScrollOID.MaxLength := 0;
EditScrollOID.AutoSize := TRUE;
//......................................
//......................................
//EditItemOID
EditItemOID := TEdit.Create(Result);
EditItemOID.Parent := GroupBox2;
EditItemOID.Left := 264;
EditItemOID.Top := 16;
EditItemOID.Width := 72;
EditItemOID.Height := 21;
EditItemOID.Visible := TRUE;
EditItemOID.Tag := 0;
EditItemOID.Enabled := TRUE;
EditItemOID.Hint := '';
EditItemOID.ShowHint := FALSE;
EditItemOID.Text := '0';
EditItemOID.Font.Name := 'Tahoma';
EditItemOID.Font.Size := 8;
EditItemOID.Font.Color := clWindowText;
EditItemOID.Color := clWindow;
EditItemOID.TabOrder := 9;
EditItemOID.TabStop := TRUE;
EditItemOID.ReadOnly := TRUE;
EditItemOID.MaxLength := 0;
EditItemOID.AutoSize := TRUE;
//......................................
Yes := TRUE;
FINALLY
if not Yes then begin
//Īńāīįīęäąåģ šåńóšńū, åńėč ķåóäą÷ķī ...
if Result<>NIL then begin
Result.Free;
Result:=NIL;
end;
end;
END;
msg.Lines.Add('Ąāņīģąņčēąöč˙ ēąņī÷źč by NLObP!');
Result.Show;
end; //Create_FormMain
//========================
//========================
procedure Init; //Āūēūāąåņń˙ ļšč āźėž÷åķčč ńźščļņą
var
i:integer;
begin
FormMain:=Create_FormMain;
//Enchant:=false;
CurEnchLvl:=0;
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=1000; //āšåģ˙ ēąäåšęźč
ready:=false;
add:=false;
//Ļąźåņ RequestItemList
buf:=hstr('0F');
SendToServerEx(Name);
StringList:=TStringList.Create;
ItemsName:=TStringList.Create;
try
ItemsName.LoadFromFile('itemsid.ini');
except
msg.Lines.Add('itemsid.ini ķå ķąéäåķ!');
exit;
end;
end;
//......................................
//******************************************************************************
procedure Free; //Āūēūāąåņń˙ ļšč āūźėž÷åķčč ńźščļņą
begin
// ItemBase:=nil; //ķåėüē˙ ņąź äåėąņü ń ģąńńčāīģ
timer.Free;
StringList.Clear;
ItemsName.Clear;
//äīńņąņī÷ķī īńāīįīäčņü ōīšģó
Free_FormMain;
end;
//......................................
//******************************************************************************
procedure Say(msg:string);
begin
buf:=hstr('4A 00 00 00 00');
WriteD(2);
WriteS(Name);
WriteS(msg);
SendToClientEx(Name);
end;
//......................................
//***************************************************************
procedure CreateItemBase; //ļąźåņ 1B, Ńīēäąåņ įąēó ObjectID ļī ItemID
//1B=ItemListPacket:w(window)w(ListCount)w(itemType1)h(ObjectID)i(ItemID)d(count)w(itemType2)w(CustType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(CustType2)d(Augment)d(--)
var
i, j, ListCount: integer;
begin
for i:=1 to max do begin
//ī÷čłąåģ ģąńčā
ItemBase[1,i]:=0; //OID
ItemBase[2,i]:=0; //ID
ItemBase[3,i]:=0; //kol-vo
ItemBase[4,i]:=0; //lvl
end;
j:=4; //ńģåłåķčå äė˙ ListCount
ListCount:=ReadH(j); //źīėč÷åńņāī čņåģīā ķå äīėęķī ļšåāūųąņü max!
//if ListCount>maxitems then msg.Lines.Add('Āķčģąķčå! Ķå āńå āåłč āėåēėč ā ģąńńčā. ListCount>Max='+IntToStr(ListCount)+'/'+IntToStr(maxitems));
j:=8; //ńģåłåķčå äė˙ ObjectID
//Ļšīįåćąåģ ļī Čķāåķņąšž č ńīõšąķ˙åģ ObjectID ńīīņāåņńņāóžłčå ķåīįõīäčģūģ ItemID
for i:=1 to ListCount do begin
itemBase[1,i]:=ReadD(j); //OID
itemBase[2,i]:=ReadD(j); //ItemID
itemBase[3,i]:=ReadD(j); //źīė-āī
inc(j,10);
itemBase[4,i]:=ReadH(j);//EnchantLevel
// msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));
if interlude then inc(j,12) else inc(j,4);
//msg.Lines.Add('j='+inttostr(j));
end;
//āķīńčģ čēģåķåķč˙ ā ÷åźįīźńū
StringList.Clear;
try
for i:=1 to ListCount do begin
try
//StringList.Add(ItemsName[ItemBase[2,i]-1]); //ēąļčńūāąåģ ķąēāąķčå āåłåé čē čķāåķņąš˙
StringList.Add(ItemsName.Values[IntToStr(ItemBase[2,i])]); //ēąļčńūāąåģ ķąēāąķčå āåłåé čē čķāåķņąš˙
except;
msg.Lines.Add('Ļšīļóńźąåģ! Ķåņ ItemID='+inttostr(ItemBase[2,i])+' ā itemsid.ini');
end
end;
except;
msg.Lines.Add('īųčįźą ā CreateItemBase->StringList.Add()');
msg.Lines.Add(inttostr(ItemBase[2,i]));
exit;
end;
if not CheckBoxItem.Checked then begin //ķąļīėķ˙åģ źīģįīįīźń
with ComboBoxItem do
begin
Items.Clear;
Items.Assign(StringList);
ItemIndex:=0;
end;
end;
if not CheckBoxScroll.Checked then begin //ķąļīėķ˙åģ źīģįīįīźń
with ComboBoxScroll do
begin
Items.Clear;
Items.Assign(StringList);
ItemIndex:=0;
end;
end;
end;
//......................................
//******************************************************************************
//27=InventoryUpdate:w(count)w(1add2mod3remove)w(itemType1)d(ObjectID)i(ItemId)d(Count)w(itemType2)w(cusType1)w(isEquipped)d(BodyPart)w(EnchantLevel)w(cusType2)-(8)
procedure InventoryUpdate; //ļąźåņ 27, īįķīāė˙åņ įąēó ObjectID ļī ItemID
var
i, ii, j, ItemOID, ItemID, ItemCount, ListCount, UpdType, Itemlvl: integer;
add : boolean;
begin
add:=false;
ListCount:=ReadH(2); //źīėč÷åńņāī čņåģīā
//Ļšīįåćąåģ ļī Čķāåķņąšž č ńīõšąķ˙åģ ļąšū ObjectID - lvl
j:=4; //ńģåłåķčå äė˙ äåéńņāč˙ ń ļšåäģåņīģ 1-äīįąāėåķ 2-čēģåķåķ 3-óäąėåķ
for ii:=1 to ListCount do begin
UpdType:=ReadH(j);
//inc(j,2);
ReadH(j); //ItemType1
ItemOID:=ReadD(j); //ObjectID
ItemID:=ReadD(j); //ItemID
itemCount:=ReadD(j); //źīė-āī
inc(j,10);
Itemlvl:=ReadH(j);
case UpdType of
//äīįąāėåķ
1: begin
for i:=1 to max do begin
if (ItemBase[1,i]=0) and (add=false) then begin
ItemBase[1,i]:=ItemOID;
ItemBase[2,i]:=ItemID;
ItemBase[3,i]:=ItemCount;
ItemBase[4,i]:=Itemlvl;
msg.Lines.Add('Äīįąāčėč ļšåäģåņ!');
msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));
add:=true;
end;
end;
end;
//čēģåķåķ
2: begin
for i:=1 to max do begin
if ItemBase[1,i]=ItemOID then begin
ItemBase[3,i]:=ItemCount;
ItemBase[4,i]:=Itemlvl;
msg.Lines.Add('Čēģåķ˙åģ ļąšąģåņšū ļšåäģåņą!');
msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));
end;
end;
end;
//óäąėåķ
3: begin
for i:=1 to max do begin
if ItemBase[1,i]=ItemOID then begin
msg.Lines.Add('Óäąė˙åģ ļšåäģåņ!');
msg.Lines.Add('i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));
ItemBase[1,i]:=0;
ItemBase[2,i]:=0;
ItemBase[3,i]:=0;
ItemBase[4,i]:=0;
end;
end;
end;
end;
if interlude then inc(j,10) else inc(j,2);
//msg.Lines.Add('j='+inttostr(j));
end;
end;
//......................................
//******************************************************************************
//ķąõīäčģ ā čķāåķņąšå ļšåäģåņ ń ItemID č āīēāšąłąåģ åćī ObjectID
function GetItem(item:integer; lvl:integer) : integer;
var
i : integer;
begin
for i:=1 to max do begin
//ķąõīäčģ ļīäõīä˙łčé ļšåäģåņ ļī ItemID
if (ItemBase[2,i]=item) and (ItemBase[4,i]=lvl) then begin
//åńėč ķąųėč, ņī āīēāšąłąåģ ObjectID ļšåäģåņą
result:=ItemBase[1,i]; // itemOID
ItemCount:=ItemBase[3,i];
//Itemlvl:=ItemBase[4,i];
//msg.Lines.Add('<item='+inttostr(item)+' lvl='+inttostr(lvl)+'> i='+inttostr(i)+' ItemOID='+IntToStr(ItemBase[1,i])+' ItemID='+IntToStr(ItemBase[2,i])+' ItemKol='+IntToStr(ItemBase[3,i])+' ItemLVL='+IntToStr(ItemBase[4,i]));
exit;
end;
end;
//ķč÷åćī ķå ķąųėč
result:=0;
end;
//......................................
//******************************************************************************
procedure UseItem(ObjectID: integer);
begin
buf:=#$14;
WriteD(ObjectID);
WriteD(0);
SendToServerEx(Name);
end;
//......................................
//******************************************************************************
function SumItem(Item: integer):integer;
var
sum, i : integer;
begin
result:=0;
//ķąõīäčģ ļīäõīä˙łčé ļšåäģåņ ļī ItemID
for i:=1 to max do begin
if (ItemBase[2,i]=item) then begin
// msg.Lines.Add('Ķąųėč ļšåäģåņ ItemOID='+inttostr(ItemBase[1,i])+' ItemID='+inttostr(ItemBase[2,i])+' ItemCol='+inttostr(ItemBase[3,i])+' EnchantLvl='+inttostr(ItemBase[4,i]));
// msg.Lines.Add('i='+inttostr(i));
result:=result+ItemBase[3,i];
//inc(result);
end;
end;
end;
//......................................
//******************************************************************************
procedure RequestEnchantItem(ObjectID: integer);
begin
buf:=#$58;
WriteD(ObjectID);
SendToServerEx(Name);
//*********** čńļīėüēīāąņü ÷čņ ń ļåņīģ ************************
{ buf:=#$8B;
WriteD(ObjectID);
writed(1);
SendToServerEx(Name);
} //***********
end;
//......................................
{//***************************************************************
function ExtractIDValues(sData: string): integer;
var
s: string;
i,j: integer;
begin
i:=0;
s:=sData;
i:=pos('=',s);
if i>=0 then
s:=copy(s,1,i-1);
try
result:=strtoint(s);
except
result:=0;
end;
end;
//............................................}
//******************************************************************************
procedure OnTimer(Sender: TObject);
begin
EditItemVal.text:=inttostr(sumitem(ItemID));
EditScrollVal.text:=inttostr(sumitem(ScrollID));
if (CurEnchLvl>=strtoint(Edit1.Text)) then begin
msg.Lines.Add('Ķå÷åćī ņī÷čņü! Ļšåšāąķī!');
timer.enabled:=false;
exit;
end;
if (sumitem(ItemID)<=1) then begin
// if (sumitem(ItemID)<=0) then begin //åńėč ķąäī ņī÷čņü īäķó āåłü
msg.Lines.Add('Ļšåšāąķī!');
timer.enabled:=false;
exit;
end;
ScrollOID:=GetItem(ScrollID,0);
if ScrollOID=0 then begin
msg.Lines.Add('Ķåņ ēąņī÷źč! Ļšåšāąķī!');
timer.enabled:=false;
exit;
end;
UseItem(ScrollOID);
msg.Lines.Add('Ēąäåéńņāīāąėč ńźšīėė ScrollID='+IntToStr(scrollID)+' ScrollOID='+IntToStr(ScrollOID));
ready:=true; //ćīņīāū ēąņą÷čāąņü
// delay(1000);
// RequestEnchantItem(Item);
// delay(1000);
//************************************************
// msg.Lines.Add('Ļšīįóåģ óėó÷ųčņü ItemID='+IntToStr(Item));
// end;
end;
//......................................
//***************************************************************
// Āń˙ ņīšćīāė˙ ēäåńü!!!
//***************************************************************
{procedure OnTrade1(Sender: TObject);
begin
case trade of
//-------------------------------------------------
//ļīźóļąåģ ó Misc Trader čē ģąńńčāą TradeBuyItem1
//-------------------------------------------------
100: begin
if ReadyToBuy then exit; //åńėč åłå źóļčėč ļšåäūäółóž āåłü, ņī āūõīäčģ ńšąēó
//ģū ó ōčųåšģąķą, ļīźóļąåģ źšž÷źč
if FishermanOID=0 then begin
Trade1.enabled:=false; //īńņąķąāėčāąåģ ņīšćīāėž
msg.Lines.Add('Ķå ćīņīāū ź ņīšćīāėå, ķåņ OID ōčųåšģąķą! Ņšåįóåņń˙ īņįåęąņü ļīäąėüųå č āåšķóņüń˙.');
exit; //āūõīäčģ
end;
if TradeCount=TradeBuyItemCount then begin //ļšīāåšźą ķą āūõīä čē ģąńńčāą
trade:=400;
msg.Lines.Add('Āńø źóļčėč!');
msg.Lines.Add('Ļåšåõīä ź īįģåķó...');
TradeCount:=0; //ķą÷ķåģ ńķą÷ąėą ģąńńčāą
end else begin
if FindItem(TradeBuyItem[TradeCount])<strtoint(EditLure.text) then begin
TargetAttacker(FishermanOID); //ōčųåšģąķą ā ņąšćåņ
msg.Lines.Add('Ćīņīāū źóļčņü:'+inttostr(TradeBuyItem[TradeCount]));
ReadyToBuy:=true; //ćīņīāū ļšīäąāąņü
NeedBuy:=strtoint(EditLure.text)-colvoitm2; //äīźóļąåģ äī 50
msg.Lines.Add('Ņšåįóåņń˙ äīźóļčņ źšž÷źīā:'+inttostr(NeedBuy));
end else msg.Lines.Add('Ķå ķąäī ļīźóļąņü, óęå åńņü:'+inttostr(colvoitm2));
Trd:=TradeCount;
inc(TradeCount);
msg.Lines.Add('TradeCount/TradeBuyItemCount:'+inttostr(TradeCount)+'/'+inttostr(TradeBuyItemCount-1));
end;
//-------------------------------------------------
//ļīźóļąåģ ó Armor Trader čē ģąńńčāą TradeBuyItem2
//-------------------------------------------------
200: begin
if ReadyToBuy then exit; //åńėč åłå źóļčėč ļšåäūäółóž āåłü, ņī āūõīäčģ ńšąēó
//ģū ó ōčųåšģąķą, ļīźóļąåģ źšž÷źč
if FishermanOID=0 then begin
Trade1.enabled:=false; //īńņąķąāėčāąåģ ņīšćīāėž
msg.Lines.Add('Ķå ćīņīāū ź ņīšćīāėå, ķåņ OID ōčųåšģąķą! Ņšåįóåņń˙ īņįåęąņü ļīäąėüųå č āåšķóņüń˙.');
exit; //āūõīäčģ
end;
if TradeCount=TradeBuyItemCount then begin //ļšīāåšźą ķą āūõīä čē ģąńńčāą
trade:=400;
msg.Lines.Add('Āńø źóļčėč!');
msg.Lines.Add('Ļåšåõīä ź īįģåķó...');
TradeCount:=0; //ķą÷ķåģ ńķą÷ąėą ģąńńčāą
end else begin
if FindItem(TradeBuyItem[TradeCount])<strtoint(EditLure.text) then begin
TargetAttacker(FishermanOID); //ōčųåšģąķą ā ņąšćåņ
msg.Lines.Add('Ćīņīāū źóļčņü:'+inttostr(TradeBuyItem[TradeCount]));
ReadyToBuy:=true; //ćīņīāū ļšīäąāąņü
NeedBuy:=strtoint(EditLure.text)-colvoitm2; //äīźóļąåģ äī 50
msg.Lines.Add('Ņšåįóåņń˙ äīźóļčņ źšž÷źīā:'+inttostr(NeedBuy));
end else msg.Lines.Add('Ķå ķąäī ļīźóļąņü, óęå åńņü:'+inttostr(colvoitm2));
Trd:=TradeCount;
inc(TradeCount);
msg.Lines.Add('TradeCount/TradeBuyItemCount:'+inttostr(TradeCount)+'/'+inttostr(TradeBuyItemCount-1));
end;
end;
end;
end;
}//......................................
//******************************************************************************
// āūēūāąåņń˙ ļšč ļščõīäå źąęäīćī ļąźåņą, åńėč ńźščļņ āźėž÷åķ
//******************************************************************************
begin
//****************************************************************************
//ķå īįšąįąņūāąåģ ļóńņūå ļąźåņū
if pck='' then exit;
//****************************************************************************
//ļīźóļźą ńīńņīčņ čē ńėåäóžłčõ ųąćīā:
//1. ņąšćåņ ķą ļšīäąāöå, ļąóēą, ńķīāą ņąšćåņ c04=Action, c04=Action
//2. ļščõīäčņ s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
//3. ųėåģ āūįšąķķūé ļóķźņ čē ģåķž c21=RequestBypassToServer:s(Cmd)
//4. ļščõīäčņ s11=BuyList:d(Money)h(ListID)w(ListCount)w(ItemType1)h(ObjectID)i(ItemID)d(maxcnt)w(ItemType2)w(h)d(ItemBodyPart)
//5. FindItem(ID) ķąéäåģ OID, Count ķóęķīé āåłč ļī ID
//6. ųėåģ c1F=RequestBuyItem:h(ListID)d(BuyCount)i(ItemID)d(Count)
//****************************************************************************
{ if ReadyToBuy and (FishermanOID<>0) then begin
if (ConnectName=Name) and FromServer then begin
case pck[1] of
//ļīńėå ņīćī źąź ģū āē˙ėč ā ņąšćåņ ļšīäąāöą ļščõīäčņ żņīņ ļąźåņ
//s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
#$0F: begin
msg.Lines.Add('S>Ļąźåņ NpcHtmlMessage #$0F');
if ReadD(2)=FishermanOID then begin
//ųėåģ ēąļšīń āūįīšą ļóķźņą - ļšīäąęą
//c21=RequestBypassToServer:s(Cmd)
delay(1000);
RequestByPassToServer(getbuylist);
msg.Lines.Add('C>Ļąźåņ RequestBypassToServer #$21 (sell)');
end;
end;
//ļīńėå āūįīšą ļóķźņą - ļšīäąęą, ļščõīäčņ żņīņ ļąźåņ
//s11=BuyList:d(Money)h(ListID)w(ListCount)w(ItemType1)h(ObjectID)i(ItemID)d(maxcnt)w(ItemType2)w(h)d(ItemBodyPart)
#$11: begin
msg.Lines.Add('S>Ļąźåņ BuyList #$11');
ListID:=ReadD(6); //ēąļīģčķąåģ, īķ āńå āšåģ˙ šąēķūé
msg.Lines.Add('ListID='+inttostr(ListID));
//ųėåģ ēąļšīń ķą ļšīäąęó
//1F=RequestBuyItem:h(ListID)d(BuyCount)i(ItemID)d(Count)
msg.Lines.Add('C>Ļąźåņ RequestBuyItem #$1F');
//ļšīäąäčģ ļåšāūé čē ńļčńźą
msg.Lines.Add('Item: ID:'+IntToStr(TradeBuyItem[Trd])+' Count:'+IntToStr(NeedBuy));
delay(1000);
RequestBuyItem(TradeBuyItem[Trd],NeedBuy);
ReadyToBuy:=false;
end;
end;
end;
end;
} //......................................
//****************************************************************************
if FromServer then
case pck[1] of
//......................................
//Ļąźåņ ItemList
#$1B: CreateItemBase; //ńīēäąķčå įąēū ļšåäģåņīā
//......................................
//åńėč óäąėčėč ļšåäģåņū, ńņčšąåģ ā įąēå ļšåäģåņīā ļąšū ObjectID - ItemID
#$27: InventoryUpdate; //Īįķīāėåķčå įąēū
//......................................
//Ļąźåņ ChooseInventory
#$6F: if ready then begin //and (readd(2)=itemid)
//čłåģ ļīäõīä˙łčé ļšåäģåņ äė˙ ēąņī÷źč
timer.enabled:=false; //īņźėž÷ąåģ ļīźą ķå ķąéäåģ ļšåäģåņ äė˙ ēąņī÷źč
repeat
ItemOID:=GetItem(ItemID,CurEnchLvl);
if ItemOID=0 then begin
inc(CurEnchLvl);
Edit2.text:=inttostr(CurEnchLvl);
end;
until ItemOID<>0;
//************************************************
msg.Lines.Add('Ļšīįóåģ óėó÷ųčņü ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));
RequestEnchantItem(ItemOID);
ready:=false;
timer.enabled:=true; //ļīźą ā ņåńņå īņźėž÷ąåģ (āźė. ļīńėå ēąņī÷źč ļšåäģåņą)
end;
#$81: if readd(2)=0 then begin
CurEnchLvl:=0; //ķą÷ķåģ ń ķą÷ąėą
end;
end;
end.
By GameHack
