[Скрипт] нужна помощь в написании скрипта ....

[Глюконатор]

ты смотрел в логере пакетов что скрипт отсылает? там все регистрируется, если он включен конечно. посмотри в нем какие пакеты отправляет скрипт.. может я его реально косячно написал.. =(

[OBERON_ZGZ]

вот

[Глюконатор]

доо.. косяк... ща будем править..

Добавлено через 6 минут
Я короч не стал разбираться с форматом.. просто подрправил косяк.

var	i: integer;
	s: string;

begin
if GInt(_gBuff,3,2) = $105 then begin
      gBlockPacket;
      s := _gBuff;
      for i:=1 to 255 do begin
          if i<16 then s[5] := HStr(format('0%x',[i]))
          else s[5] := HStr(format('%x',[i]));
      end;
			end;
end.

[OBERON_ZGZ]

Не получилось


.......

[OBERON_ZGZ]

Утро вечера мудренее , оставим это на потом ....

[Глюконатор]

Ыы... я команды на отправку пакета забыл обратно вписать... =)

var	i: integer;
	s: string;

begin
if GInt(_gBuff,3,2) = $105 then begin
      gBlockPacket;
      s := _gBuff;
      for i:=1 to 255 do begin
          if i<16 then s[5] := HStr(format('0%x',[i]))
          else s[5] := HStr(format('%x',[i]));
          gSys.SendS(HStr(s));
      end;
end;
end.

Кстати.. почему там 12? ты же говрил что с 1 начинается...

[OBERON_ZGZ]

ERROR: EXCEPT: HSTR: '$??' is not a valid integer value at [11:11]

[OBERON_ZGZ]

сделал так :

var i: integer;
s: string;

begin
if GInt(_gBuff,3,2) = $105 then begin
gBlockPacket;
s := _gBuff;
for i:=1 to 255 do begin
if i<16 then s[5] := HStr(format('0%x',[i]))
else s[5] := HStr(format('%x',[i]));
gSys.SendS(s);
end;
end;
end.



и заработало - вот результат

[OBERON_ZGZ]

может всё таки сделать задержку , а то я в 1 сек сделал 255 ударов .....

[Глюконатор]

молодца)) в прогеры пойдешь))... результат есть? =)

[OBERON_ZGZ]

на скрине видно как сервак 255 раз прислал мне пакет "AttackErrorResult"

Добавлено через 4 минуты
там где на скрине пятый байт = 12 это я вручную посылал пакеты ,
как видишь всё проходило нормально
Сервак принимал их и присылал мне результаты о дамаге который я нанёс

Так что я думаю что что то можно замутить с этим скриптом , токо нужно еще подумать и поиграться с ним .....

[Глюконатор]

С задержкой в 200мс

var	i: integer;
	   s: string;

function OnTimer(n,cn: integer):boolean;
begin
 if n = 1 then
      if cn <= 255 then begin
          if cn < 16 then s[5] := HStr(format('0%x',[i]))
          else s[5] := HStr(format('%x',[i]));
          writelogln(HStr(s));
          result := true;
      end
      else result := false
 else result := true;
end;

begin
if GInt(_gBuff,3,2) = $105 then begin
      gBlockPacket;
      s := _gBuff;
      gSys.SetTimer(1,200);
end;
end.

бьешь моба 1 раз и ждешь... из расчета того чтов секунду будет послываться 5 пакетов то примерно 50 секунд)) иначе за адекватность не отвечаю =)

кстати у меня этот таймер иногда косячит... смотри в логах в номере пакета название [OnTimer]. Если не обнаржуишь такого.. попробуй скрипт перезапустить..

Добавлено через 1 минуту
я вообще афк если че на 30-50 мин.

[OBERON_ZGZ]

Я вот подумал , а нельзя сделать по такой формуле
1 ловим пакет и блокируем его (s)
2 посылаем пакет с байтом 01 (i)
3 посылаем пакет c (i) + 1
4 если (i) =255 конец скрипта
5 если нет то пункт (3)+1

Чё то башка не варит

Короче в старом варианте по моему мы послали одним пакетом все значения, а нужно по очереди - да еще дать время серверу прислать нам инфу с дамагом ....
а может и нет , мозги уже совсем не варят - пойду спать ....

[OBERON_ZGZ]

что то с таймером не то

1,200 это не 1.2 сек ???

вот что на скрине , не знаю нормально ли это ....

[Глюконатор]

Я короч итоговый скрипт опять забыл до конца изменить...

var	i: integer;
	   s: string;

function OnTimer(n,cn: integer):boolean;
begin
 if n = 1 then
      if cn <= 255 then begin
          if cn < 16 then s[5] := HStr(format('0%x',[i]))
          else s[5] := HStr(format('%x',[i]));
          gSys.SendS(s);
          result := true;
      end
      else result := false
 else result := true;
end;

begin
if GInt(_gBuff,3,2) = $105 then begin
      gBlockPacket;
      s := _gBuff;
      gSys.SetTimer(1,200);
end;
end.

По поводу первого сообщения... Скрипт по этой схеме и работает... просто разница во времени между отсылками пакетов < 0,001с, поэтому в логгере это и не отображается..

Кстати пакет с еррором тебе пришел 254 раза)) первый наш пакет серв обработал и прислал тебе результат)

Че с таймером я хз... Если ты пользовался мультиинжектором, то могу только посоветовать перезапустить ВП и саму игру.. если через проксифер - только ВП... но с учетом нашей задержки это вполне ожидаемое поведение скрипта...

ЗЫ 1200 это 1,2 сек =)