Видео учебник или в подробностях опишите плиз

[botbireta]

ребят я не могу научиться работать с программой l2phx.3.5.30.159 научите меня плиз очень прошу а то на серве есть много наглых типов хочу их по сливать )))) да и свой навык поднять в скриптинге (я в скрипте тупой как дерево ) на скок я знаю надо делпфи знать если вам не трудно напишите или дайте видео урок teran-92@mail.ru (маил агент) 550617687(ICQ) если хотите пишите

[Kimiko]

Представляете.. а вот через 20 лет этот человек обойдет Билла гейтса
Сохраните на память это сообщение..

P.s Сорри за оффтоп.

[botbireta]

дай бог )) но а так поможет мне кто то ? я знаю вы не обязаны но просто прошу помочь ))

[TAMBIK]

botbireta,
http://l2phx.pp.ru/arhive/l2ph_help/

[botbireta]

О_о спасибо большое ))) но я не могу найти там как точить оружие ((((

[TAMBIK]

Сообщение от Kimiko

Представляете.. а вот через 20 лет этот человек обойдет Билла гейтса
Сохраните на память это сообщение..

P.s Сорри за оффтоп.

да судя по

О_о спасибо большое ))) но я не могу найти там как точить оружие ((((

точно

[botbireta]

да я не спорю мне билом не стать )))) ну а научить просто если захотеть ))) научи плиз томбик )

[TAMBIK]

botbireta,
заточка для шока
http://coderx.ru/showthread.php?t=2183

[botbireta]

var
timer1: TTimer;
mytext:string;
Name,Bypass:string;
textID,tocklvl:integer;
ObjectID,myID,TargetID,x,i:integer;
MyX,MyY,MyZ:integer;

procedure SendMsg2(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;
procedure OnTimer1(Sender: TObject);
begin
buf:=#$A8;
WriteD(myID);
WriteD(1);
WriteD(ObjectID);
WriteD(1);
SendToServer;
timer1.enabled:=false;
SendMsg2( '15 '+IntToStr(tocklvl)+' ' );
SendToServer;
end;
procedure Init;
begin
x:=0;
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=false;
timer1.interval:=6000;
buf:=#$14;
SendToServer;
end;
procedure Free;
begin
timer1.free;
end;
begin
if fromserver and (pck[1]=#$32) then myID:=ReadD(18);
if FromClient and (pck[1]=#$5F) then begin
ObjectID:=ReadD(2);
SendMsg2('запомнил: ВЕЩЬ для ЗАТОЧКИ');
timer1.enabled:=true;
end;
if FromClient and (pck[1]=#$49) then begin
i:=2;
mytext:=ReadS(i);
textID:=ReadD(i);
if (textID=3) then begin
tocklvl:=StrToInt(mytext);
SendMsg2(+50)+50);
pck:='';
exit;
//хотьинепервоеапреля.прочитатькрякобразыписалпоруск инаанглийскойклаве
end;
end;
end.

я это тут ошибку сделал как её исправить хочу точнуть Augmented Zeus Mace Epic Weapon на +50 ((( томб сори что закалупываю так ))) прот некого просить больше