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

[alexteam]

везде...
настоятельно рекомендую прочитать раздел "скриптинг" в хелпе.

Оффтоп

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"

[spiritofsands]

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

НЕ квотте простыни!!

Еще одна ошибка:
при отправке через скрипт

buf:='#$39#$67#404#$00#400#400#$00#400#$00#400';
SendToServerEx('KillCool');

пакета, к нему добавляется в начале #$23#$24#$33 при чем если отправлять через простую отправку - все нормально. Как этого избежать?
Оффтоп

З.Ы. Спасибо еще раз