31.10.2009, 19:27
|
#1074
|
Рыцарь
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
|
везде...
настоятельно рекомендую прочитать раздел "скриптинг" в хелпе.
Оффтоп
delphi Код:
procedure Init; //Вызывается при включении скрипта
begin
UseForConnectName := 'name';
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
var
Values : array[0..100] of variant;
x, y, z : integer;
Title : string;
HpPercent, MpPercent, FeedPercent, LvlPercent : integer;
begin
if (fromserver) then
case pck[1] of
#$B6: //PetStatusUpdate
begin
{
[0] 0002 d SummonType: 1 (0x00000001)
[1] 0006 d ObjectID: 269384091 (0x100E799B)
[2] 0010 d X: 144136 (0x00023308)
[3] 0014 d Y: 146248 (0x00023B48)
[4] 0018 d Z: -12024 (0xFFFFD108)
[5] 0022 s Title: KillCool
[6] 0040 d CurrentFed: 9962500 (0x00980404)
[7] 0044 d MaxFed: 10000000 (0x00989680)
[8] 0048 d CurrenHP: 16848 (0x000041D0)
[9] 0052 d MaxHP: 16848 (0x000041D0)
[10] 0056 d CurrenMP: 2353 (0x00000931)
[11] 0060 d MaxMP: 2473 (0x000009A9)
[12] 0064 d Level: 83 (0x00000053)
[13] 0068 q Exp: 11844000000
[14] 0076 q ExpForThisLevel: 11844000000
[15] 0084 q ExpForNextLevel: 15472800000}
readmask('dddddsdddddddqqq',2,Values);
//текущие хп пета после этой строчки лежат в values[8]..
//но мы пойдем дальше и выведем краткие сведения о пете в лог пх
x := Values[2];
y := Values[3];
z := Values[4];
Title := Values[5];
FeedPercent := round(Values[6]/Values[7]*100);
HpPercent := round(Values[8]/Values[9]*100);
MpPercent := round(Values[10]/Values[11]*100);
LvlPercent := round((Values[14]-Values[13])/(Values[15]-Values[14])*100);
sendMSG(format('Pet: "%s" x:%d, y:%d, z:%d, Lvlup: %d%%, Hp: %d%%, Mp: %d%%, feeed: %d%%',
[Title, x, y, z, LvlPercent, HpPercent, MpPercent, FeedPercent]));
end;
end;
end.
будет выводить в лог вот такое
Код:
31.10.2009 17:23:11 Script: Pet: "KillCool" x:144136, y:146248, z:-12024, Lvlup: 0%, Hp: 100%, Mp: 95%, feeed: 100%
пакет, для наглядности в качестве коментария оставил, чтобы было понятно откуда беруться values[x] и что это за строчка "dddddsdddddddqqq"
__________________
L2Ext - project closed.
Последний раз редактировалось alexteam, 31.10.2009 в 19:30.
|
|
|