Кружок нубов(Вопрос-Ответ)

[DeVolf]

//QaK:отдельная тема по подкючению пакетхака к серверу >>>>>>>>тут
любые вопросы по данной тематике в этом топе будут удаляться без предупреждения.

const
mp='8A 1B 15 01 10';
hp='8A 1A 15 01 10';
begin
if fromclient and (pck[1]=#$38#$F5#$00#$EF#$00#$00#$00#$03#$00#$00#$00) then
begin
buf:=hstr(hp);
SendToServer;
end;
if fromclient and (pck[2]=#$33#$F5#$00#$EF#$00#$40#$00#$03#$00#$00#$00) then
begin
buf:=hstr(mp);
SendToServer;
end;
end.

где я ошибся?

[pascalpwnz]

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

ничего не мешает тебе использовать
if ReadD(2) = .....
а вот со строками, если требуеться читать чтото "за ними" так не получится. ибо никто не знает какой длинны строка может быть. тут - использовать переменные.

Можно также использовать ReadD(i+0) , тогда i не будет смещаться.

[klemberg]

И снова я

Задача: получить данные о персонаже в виде: <лвл> <проценты>
т.е., например я 57лвл и 8.44 %

Берем пакет UserInfo и видим:

Tип: 0x04 (UserInfo)
Pазмер: 564+2
Время прихода: 13:14:08:703
0002 d X: 80586 (0x00013ACA)
0006 d Y: 146972 (0x00023E1C)
0010 d Z: -3538 (0xFFFFF22E)
0014 d Heading: 41413 (0x0000A1C5)
0018 d ObjectID: 272074089 (0x10378569)
0022 s Name: XXXXXXXX
0040 d Race: 4 (0x00000004)
0044 d Sex: 1 (0x00000001)
0048 d ClassID: Bounty Hunter ID:55 (0x0037)
0052 d Level: 57 (0x00000039)
0056 q Exp: 92100174
0064 d STR: 36 (0x00000024)
0068 d DEX: 29 (0x0000001D)
0072 d CON: 48 (0x00000030)
0076 d INT: 20 (0x00000014)
0080 d WIT: 10 (0x0000000A)
0084 d MEN: 27 (0x0000001B)

т.е. с уровнем все понятно, но как быть с %?
ответ как бы очевиден:

0056 q Exp: 92100174

Вопрос: есть ли варианты, как можно прочитать ReadQ в ПХ версии 3.4.1.83?
просто есть значения exp явно выходящие за границы int:

0050 q Exp: 6299994998

[TAMBIK]

были скрипты с выводом инфы о чаре вроде поиши

[klemberg]

искал и продолжаю искать, но с exp пока не нашел ничего, кроме варианта как читать 64int, но этот вариант тоже не прошел.

Добавлено через 11 минут
Так, вопрос откорректировал, т.к. немного разобрался.

[alexteam]

читай младшие и старшие байты Q отдельно друг от друга.

[klemberg]

0050 q Exp: 6299994998

>>>

curEXP := ReadD(OFFSET) * $FFFFFFFF + ReadD(OFFSET);
sendMSG(varToStr(curexp));

==

8611528405659006091

операции с байтами это не мое

[alexteam]

i := 22;
reads(i);
inc(i,16);
sendMSG(readd(i)+readd(i)*$FFFFFFFF);

[klemberg]

ошибку понял.
спасибо!

[alexteam]

понимайте как хотите.. -)

[klemberg]

83-й билд рулит, т.к. там нем просто нет ReadQ =\