[@altry1st]

блин жесть, откат форума был походу, восстанавливаю сообщение...

dark, я еще вчера с утра выкладывал это, сообщение было 3им после Paladina и broveymimo, но оно удалилось после падения форума

вот мое творение:





и как я этого добился.

все дело в пакете 031F который шлет нам сервер, в нем информация о нике чара, его расе, шмоте, какое оружие одето

пример пакета:

4200 031F 7500F9AE0A00 01000000 0403 150100 150100 150100 150100 150100 FFFF00722400FFFF0000FFFFFFFFCFE0E2EBF3F8E5EDFCEAE0 00DFD5F50000FFFFFF01

красным выделена раса чара:
00 - белка муж.
01 - белка жен.
02 - кора муж.
03 - кора жен.
04 - акрет, просто акрет^^

зеленым выделен шмот чара, который мы заменяем скриптом

я, с помощью скрипта, подменяю во входящем пакете значение расы (целиком блок 01000000) и меняю шмот на дефолтный.
вот собственно сам скрипт для WPF (строго не судите, я сам учился писать скрипты):

// script by altry1st
var
st : string;
ID : string;
ID1 : string;
rasa : string;
shmot : string;
BEGIN
 if _gFromServ then
  if StrCmp(copy(_gBuff,3,2), HStr('03 1F')) then
     begin

      ID := copy(_gBuff,1,10);
      ID1 := copy(_gBuff,32,35);
              if StrCmp(copy(_gBuff,14,1), HStr('00')) then  begin //belka man
                rasa := HStr('01 00 00 04');  // akret
                shmot := HStr('40 40 400000 400000 400000 400000 400000');
                st := ID + rasa  + shmot + ID1;
                WriteLogln('akret');
                 end;
              if StrCmp(copy(_gBuff,14,1), HStr('01')) then   begin//belka dev
                rasa := HStr('01 00 00 03');  // kora dev
                shmot := HStr('30 30 300000 300000 300000 300000 300000');
                st := ID + rasa  + shmot + ID1;
                WriteLogln('kora');
                end;

        _gOutBuff := st ;

     end;
END.

[/HIDE]

[HIDE="900"]можно просто заменять значения расы, тогда все персы будут в шмоте:

Оффтоп

и скрипт:

Оффтоп

// script by altry1st
var 
st : string; 
ID : string;
ID1 : string;
rasa : string;
BEGIN
 if _gFromServ then
  if StrCmp(copy(_gBuff,3,2), HStr('03 1F')) then
     begin

      ID := copy(_gBuff,1,10);
      ID1 := copy(_gBuff,15,52);
              if StrCmp(copy(_gBuff,14,1), HStr('00')) then   //belka man
              rasa := HStr('01 00 00 04');  // akret
              if StrCmp(copy(_gBuff,14,1), HStr('01')) then   //belka dev
              rasa := HStr('01 00 00 03');  // kora telka^^
      st := ID + rasa  + ID1;
    _gOutBuff := st ;
        WriteLogln('Ok');
     end;
END.

з.ы. отдельное спасибо broveymimo за эту тему: https://www.rf-cheats.ru/forum/showthread.php?t=30826, которая помогла мне сэкономить немного времени