spb help

[Захари]

помогите настроить l2ph для спб^^

[Id#]

включаешь л2пх жмешь автоматизация-->скрипты-->создать новый скрипт, вводишь любое название и в поле слева вставляешь var

SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;

DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;

CharID:array[1..4] of integer;
TargetID:integer;

{
$413F851F - 12.0(9.0+3.0)
$40C00000 - 6.0
$3FC00000 - 1.5
$40EA3D71 - 7.3 (6.0+1.3) ($2A3D71)

}

procedure Init; //Вызывается при включении скрипта
begin
SpeedTable1[1]:=$413F851F;
SpeedTable1[2]:=$41C00000;
SpeedTable1[3]:=$42C00000;
SpeedTable1[4]:=$42C00000;

cSpeed:=SpeedTable1[1];


rSpeed:=11.7;
vx1:=rSpeed;
//cSpeed:=vx1;

//sendmsg(Format('%x',[WriteSi(11.7)]));

end;

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

end;

var
msgName:string;

procedure PHX_Message(msg1:string);

begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='[PHX]';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;


procedure Resurect;
begin
pck:='';
buf:=HStr('6B 57 08 03 ');
SendToServer;
end;


procedure SetSpeed1;
begin
pck:='';
PHX_Message('Use Speed 1');
cSpeed:=SpeedTable1[1];
end;

procedure SetSpeed2;
begin
pck:='';
PHX_Message('Use Speed 2');
cSpeed:=SpeedTable1[2];
end;

procedure SetSpeed3;
begin
pck:='';
PHX_Message('Use Speed 3');
cSpeed:=SpeedTable1[3];
end;

procedure InitDange(d1:integer);
begin
DangePacket[d1]:='';
pck:='';
PHX_Message(Format('Обнулил Данж %d',[d1]));
end;


procedure TP_To_Dange(d1:integer);
begin
buf:=DangePacket[d1];
pck:='';
SendToServer;
PHX_Message(Format('Телепорт в Данж %d',[d1]));
end;



procedure OpenAuk1;
begin
pck:='';
buf:=HStr('9C 57 5B 00 00 00 00 0D 00 01 00 0A 00 00 00 00 00 00 00 ');
WriteD(TargetID,4);
SendToServer;

end;

procedure OpenWrh1;
begin
pck:='';
buf:=HStr('9C 57 5B 00 00 00 00 14 00 01 00 0A 00 00 00 00 00 00 00 ');
WriteD(TargetID,4);
SendToServer;

end;

procedure TestTP1;
begin
pck:='';
buf:=HStr('9E 57 5D B3 D2 C0 44 1D 1A C2 44 06 0F 98 43 0C 00 ');
SendToServer;
buf:=HStr('67 57 04 ');
SendToServer;

end;

procedure StealLoot;
var
i:integer;
begin
pck:='';

for i:=1 to 30 do
begin
buf:=Hstr('39 57 F6 ');
writeD(TargetID);
writeC(i);
SendToServer;
end;



end;




var
x1,y1,z1:integer;
speed_triger1:boolean;
sp1:single;



procedure TpToSave1;
begin
pck:='';
buf:=HStr('9E 57 5D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ');
WriteD(X1,4);
WriteD(Y1,8);
WriteD(Z1,12);
SendToServer;
buf:=HStr('67 57 04 ');
SendToServer;


end;



begin

// buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 41 ');
// buf:=Hstr('42 54 E1 BA A0 0B 00 0B 02 00 00 00 40 42 ');
// SendToClient;

if FromServer and (ReadC(1)=$42) and (speed_triger1) then
begin
buf:=pck;
// sp1:=(readd(11));
// PHX_Message(FloatToStr(sp1));
pck:='';
WriteD(cSpeed,11);
SendToClient;

end;

if FromClient and (ReadD(1)=$1A6657C9) then
begin
speed_triger1:=not speed_triger1;
pck:='';
buf:=HStr('AC 57 4B 79 63 01 00 58 02 00 00 07 00 00 00 ');
SendToServer;
if speed_triger1 then PHX_Message('Set Fast Speed') else PHX_Message('Set Normal Speed');

end;






if FromClient and (ReadC(1)=$66) then
CharID[1]:=ReadD(4);


if FromClient and (ReadC(1)=$B5) then TargetID:=ReadD(4);


if FromClient and (ReadC(1)=$B9) then
begin
if (ReadS(5)='.') then Resurect;
if (ReadS(5)='.spd1') then SetSpeed1;
if (ReadS(5)='.spd2') then SetSpeed2;
if (ReadS(5)='.spd3') then SetSpeed3;

if (ReadS(5)='.initD1') then InitDange(1);
if (ReadS(5)='.initD2') then InitDange(2);

if (ReadS(5)='.tptoD1') then TP_To_Dange(1);
if (ReadS(5)='.tptoD2') then TP_To_Dange(2);
if (ReadS(5)='.openAuk') then OpenAuk1;
if (ReadS(5)='.openWrh') then OpenWrh1;
if (ReadS(5)='.tpToP1') then TestTP1;
if (ReadS(5)='.steal') then StealLoot;
if (ReadS(5)='.tpToSave1') then TpToSave1;


end;




end.


.spd1 скорость 12.0
.spd2 24.0
.spd3 96.0

p.s. я точно не помню но кажется данный скрипт и антиинвиз... проверь

[aion programmer]

Могу обрезаный скинуть без антиинвиза

[Люмикс]

Помойму тут вапще не это спрашивалось
помогите настроить l2ph для спб^^
Ошибки какие, или что, все должны угадать почему она у вас неработает.

[Захари]

спасибо за скрипт, да он в инвизе еще видит, так же и админов)
но проблема в другом, я не могу настроить сам л2пх, он у меня в упор не видит пакеты, плюс если его включаешь, заставка с фростом не уходит до тех пор пока не выключишь л2пх, пробовал прятать, не выходит=(

[Id#]

точно... вы про сервер)

[Swepkol]

Тупой сервер , не понравился .

[Захари]

Swepkol флуд в моей теме не нужен=) хочешь пофлудить создай тему. Тема была создана для помощи и не тупого пустословия ;)

[Люмикс]

Swepkol флуд в моей теме не нужен=) хочешь пофлудить создай тему. Тема была создана для помощи и не тупого пустословия ;)
Тебе не нужен флуд, но ты сам нехочешь помоч решению проблемы, например выложить лог лпх и версию которую используешь, у меня например все прекрасно работает на спб.

[Захари]

Люмикс, пардон. Не знал-) версия 3.5.33.166. Вот настройки.
[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

Добавлено через 2 минуты
24.12.2011 00:07:48 LSP модуль уже зарегистрирован в системе
24.12.2011 00:07:48 Стартует L2ph v3.5.33.166
24.12.2011 00:07:48 На 7771 зарегистрирован локальный сервер

[Люмикс]

На спб эта версия небудет работать там пакеты новые нужна 174 ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) это 1е, а во вторых если ты запускаешь сначала пх а потом игру то незнаю, а если наоборот то нужно инжект ставить, и время поменьше.

[Захари]

я тугой на эту тему=) можешь скинуть скрин настроек? благодарен буду=)

[Люмикс]

[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
Если не будет ставиться галоска на инжекте укажи ее вручную

На СПБ неиграю.

[Захари]

благодарю. Сейчас проверю-)
если на спб сидел, можешь подсказать. Пакеты, после релога, у фонтана на золотые монеты, меняются или нет?-)
и пример пакета, если можно, приведи^^

Добавлено через 12 минут
Хм... сделал по твоим настройкам, все равно пакеты не ловит. После каждого перезапуска айона, выдает
10.01.2012 22:13:02 Надёжно пропатчен новый клиент aion.bin (1104)
и каждый раз (****) разные.

Добавлено через 20 минут
Теперь столкнулся с другой проблемой.
[Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])
и дальше не двигается. из-за чего такая проблема, кто знает?
10.01.2012 22:20:04 Тунель ($61136160), Серверный сокет № 404 / Клиентский сокет № 432, Соединение установлено с 109.105.129.21:80
10.01.2012 22:22:37 Тунель ($61136160) Отвалились от сервера
10.01.2012 22:22:37 Тунель ($61136160) уничтожен
10.01.2012 22:22:38 (LSP) Обнаружено соединение (Сокет 616) IP/port 109.105.129.23:80. Соединение будет перехвачено
10.01.2012 22:22:38 ServerListen: Обнаружено новое соединение.
10.01.2012 22:22:38 Тунель ($61136160) создан
10.01.2012 22:22:38 Тунель ($61136160) запущен для чтения с сокета № 408
10.01.2012 22:22:38 Тунель ($61136160), Серверный сокет № 408 / Клиентский сокет № 460, Соединение установлено с 109.105.129.23:80

[Люмикс]

А ты точно мои порты туда вписал, там 80 порта вапще недолжно быть!

[Захари]

так да=(

Добавлено через 18 часов 46 минут
можете прикрыть. Разобрался-)
Спасибо кто помог. Извините пасибка не тыкается(