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

[OBERON_ZGZ]

мне нужно написать скрипт для отправки пакетов серверу .....
например :

пакет...
0e 00 05 01 01 00 00 00 ff ff 01 00 17 17

в следующем пакете патый байт должен увеличиться на 1

Тоесть :

0e 00 05 01 01 00 00 00 ff ff 01 00 17 17

Потом :

0e 00 05 01 02 00 00 00 ff ff 01 00 17 17

Потом :

0e 00 05 01 03 00 00 00 ff ff 01 00 17 17

и тд и тп а когда дойдет до FF - то нужно остоновить отсылку пакетов ....

Пока жду ответов попробую сам разобраться ....

За дельные советы заранее спасибки

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

тебе их надо отправлять друг за дружкой или через какой-то интервал?

если никаких условий не выставлять, то они будут отсылаться при получении вп любого пакета, будь он сервер-клиент или клиент-сервер. такой вариант устроит?

[OBERON_ZGZ]

мне нужно друг за дружкой , но только по моей команде ...
а не когда ему вздумается...

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

лови пакет на нужный тебе социал (приветствие, смех и т.д.) - по нему будет отправляться пакет. пакет выложи сюда. скрипт напишу.

[OBERON_ZGZ]

пакет c>s "аплодисменты" :

05 00 0D 16 06

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

Проверь.

var	i: integer;
	a,b: string;
	flag: boolean;

procedure OnCreate;
begin
	i:=1;
	a:='0e 00 05 01';
	b:='00 00 00 ff ff 01 00 17 17';
	flag := true;
end;

begin
	if flag then
		if not _gFromServ then
			if hStrCmp(_gBuff,1,5,'05 00 0D 16 06') then begin
				gSys.SendS(HStr(a)+HStr(format('%x',[i]))+HStr(b));
				inc(i);
				if i > 255 then flag:=false;
			end;
end.

Добавлено через 2 минуты
зы каждый след. пакет отсылается по твоей команде. если надо по другому - скажи как, я исправлю. делается это все один раз. то бишь если надо занового с 1 пакеты отсылать, то скрипт надо перезапустить.

[OBERON_ZGZ]

щя протестю и сообщю ...

Добавлено через 29 минут
Забыл спросить как кодировал , в FS или WPS ....???
В режиме FS говорит :
ERROR : Script[1] NOT Compiled !

В режиме WPS говорит :
ERROR(2)Scriptl: ( expected PROCEDURE ONCREATE

Запускал в онлайн редакторе ....

Что делаю не так ?

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

Скрипт написан на FS. "Нот компилед" - как вариант старая версия WP. Для компиляции надо 6.56+ Скачать можно либо с оф сайта либо с моей темы.

На заметку - все скрипты всегда сначала проверяй в скрипт-тестере, если будешь пихать сразу в онлайн, то при косяке в скрипте можно в бсод вылететь...

Добавлено через 1 минуту
зы саурон пишет, что wps морально устарел и он более тормознутый, так что юзай fs...

[OBERON_ZGZ]

Объясню что хочу сделать ...

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

при следующем ударе увеличивается байт на 1 ......

и тд. и тп.

Я хочу отправить серверу один за одним эти пакеты на дамаг

Главное чтоб каждый последующий пакет имел этот байт на единицу больше !

Пытаемся сделать овердамаг ББ ....

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

тогда я тя сразу обломаю)) таким макаром од сделать не получится. дамаг нанесенный мобу - серверсайд.

Добавлено через 2 минуты
P.s., а чтобы все таки попробовать, поменяй пакет в скрипте на пакет атаки. пакет в хексформате. можно пробелы между байтами поставить для большей читаемости.

[OBERON_ZGZ]

может я не так выразился , я хочу ускорить отправку пакетов удара
, так как клиент посылает их с определенной задержкой (скорость атаки)
если я отправлю серверу за 10 сек 100 ударов вместо 10 (как отсылает клиент) и сервер их примет - то будет кулл....
скачал wp 6,58 - щя потестим

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

ааа... ну это совсем по другому оформлять надо... ща будет.

Добавлено через 23 минуты
Блин... я чета уже подзабыл немного работу с этими пакетами... но вроде должно работать...

var	i: integer;
	s: string;

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

Добавлено через 32 минуты
йопт.. опять забыл... короч тебе надо хотя бы раз жахнуть моба. точнее так. ты его один раз бьешь (отруби автоматичскую битву) а скрипт дальше сам послыает пакеты на удар. не успокоится пока не пошлет все 255.

[OBERON_ZGZ]

не запускает

.ERROR(1)Script1: Found I, expected :=, (, [ or ; I : INTEGER


0E 00 05 01 01 00 00 00 FF FF 01 00 AF 21

количество ударов (при входе в игру всегда начинаеться с 01)

АйДи моба

мне нужно сделать хоть 1 удар чтоб узнать АйДи моба , дальше нужно подправить скрипт с заменой АйДи моба ....

Следующий шаг , это запуск скрипта (для этого нужно ударить еще 1 раз его) --- значит скрипт должен начинаться как минимум с i:=3 to 255 do begin
Пытался исправить , но нифига не идет

Добавлено через 3 минуты
Вот что говорит тестер скриптов :

.compiling {FS text script} 10/11/2008 0:03:38
.compiled (time: 16 ms.)
.
.'OnCreate' not found...
.running Script {FS text script} 10/11/2008 0:03:38

.var's:
i : integer = 0 ($0000) short
s : string = (len: 0 /$00)

.
.end Script ( >>> SCRIPT TIME: 16 ms. <<< )
.'OnDestroy' not found...
.end;

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

FS все устраивает. Логика поведения скрипта:

if GInt(_gBuff,3,2) = $105 then begin  //если пакет на удар, то
      gBlockPacket; //блокируем пакет клиента
      s := _gBuff; //копируем его в переменную
      for i:=1 to 255 do begin
          s[5] := HStr(format('%x',[i])); //меняем 5 элемент на текущий i в хексе
          gSys.SendS(s); //отправляем пакет с заменным 5 элементом.

короч. по русски. тебе надо один раз ударить моба. скрипт этот пакет поймает, заблокирует его и сам начнет отсылать такие же то ка с измененными значениями. я надеюсь это пакет на удар?

[OBERON_ZGZ]

сорри , понял - скрипт работает , ....
Вот только сразу после отправки первого же пакета
кикает с сервера

Тоесть скрипт даже не успевает отправить 2 пакет с патым байтом 02....
странно как то ...

если посылаю вручную
0E00050101000000FFFF0100241A
0E00050102000000FFFF0100241A
0E00050103000000FFFF0100241A
то с сервера не кикает

Добавлено через 3 минуты
но если я нарушу последовательность , тогда отключение ...

если после пакета
0e00050101000000ffff0100241a

я пошлю пакет не этот
0e00050102000000ffff0100241a

а 03 или 05 или дюбое другое значение - тогда сервак отключает ...

может что то не так в скрипте ?

Добавлено через 6 минут
Ладно , извини что надоедаю - фиг с ними с этими пакетами ...
Спс за помощь.

Добавлено через 23 минуты

Для размышления ......
Нашел лог пакетов (я новичёк , так что не суди строго)

Твой скрипт отправлял такие пакеты ....
0E00050110000000FFFF0100241A
0E00050120000000FFFF0100241A
0E00050130000000FFFF0100241A

и тд и тп - да еще с задержкой в 0 мс

Может всё таки сделать задержку в несколько мс ???