6.
http://saur.x33.ru/img/t.gif

VI) Функции скрипт-языка WPS.(продолжение)

Стандартные Функции:

byte(char), char(byte) -прямое преобразование в тип byte или char соответственно.
Внимание! в скрипт-языке FS данный способ преобразования не приемлем.

Функции перевода адреса :
inet_ntoa(addr : int) : str; (стандартная ф-ция.)
inet_addr(s : str) : int64; (стандартная ф-ция.)
inet_addr('127.0.0.1') - вернет целое 16777343 ($100007F)
inet_addr('zzzz') - ошибка, вернет -1 ($FFFFFFFFFFFFFFFF) (64 бит)

_getIPbyHost(s : string) : integer; - возвращает IP адрес по имени хоста.
!использует DNS, задержка в случае отсутствия имени на DNS может достигать до 3 секунд.
возвращает 0 в случае ошибки или если адрес по имени хоста не найден.

Copy(s, inx, count) : str - возвращает подстроку из сткроки 's' начиная с 'inx' номера символа, количеством 'count'. (стандартная ф-ция)
Так же, возвращает из бинарного буфера 's' начиная с 'inx' количеством 'count' байт/символов.
Copy('skjd123lsd',3,2) - вернет 'jd'

Insert(sub, s, idx); - Вставляет подстроку 'sub' в строку 's' начиная с 'idx' позиции.
Строка и субстрока могут быть бинарным буфером/пакетом.

s := '123456';
Insert('zz',s,3);
//теперь s = '12zz3456';

Delete(var str, idx, count) : str - Удаляет подстроку из строки 'str' начиная с 'idx' количеством 'count' символов

pos(subs,s) : int - возвращает индекс , с которого начинается подстрока 'subs' в строке(буфере) 's', либо 0 если такая подстрока не найдена (стандартная ф-ция)
pos('4','FD12345') - вернет 6.

Length(s) : int - возвращает длину строки(буфера) (стандартная ф-ция)
Length('dfgoi') - вернет 5

IntToStr(i) : str - преобразует int в строку . (стандартная ф-ция)
IntToStr(123) - вернет '123';

StrToInt(s) : int - преобразует строку в целое (стандартная ф-ция)
StrToInt('2332') - вернет 2332;
StrToInt('$2332') - вернет 9010 ($2332);
StrToInt('sdsd') - даст ошибку скрипта.

FloatToStr(), StrToFloat() - тоже, что и предыдущие ф-ции , но только с дробными числами.
StrToFloat ('234.2') - вернет 234.2 (стандартная ф-ция)

UpperCase(s), LowerCase(s) - конвертирует все строчные в прописные и наоборот соответственно. (стандартная ф-ция)
UpperCase('AaaaVvvv') - вернет 'AAAAVVVV';

Trim(s) - обрезает ведущие и последние пробелы и символы управления (непечатные). (стандартная ф-ция)
Trim(' a sd ') - вернет 'a sd'

Format(frmstr, a1,...an) : str; - (стандартная ф-ция)
форматированный вывод аргументов a1..an в соответствии со строкой форматирования frmstr.
Функция возвращает отформатированную строку.
'frmstr' - форматирующая строка, это текстовая строка, в которой на нужных местах стоят специальные символы(спецификации), которые определяют, какие и как туда будут подставлены параметры.
'a1,..an' - параметры, каждый параметр соответствует одной спецификации символов в форматирующей строке.

более подробное описание форматирующей строки смотрите ф-ю 'format' в паскале/дельфи (или тут _http://www.helloworld.ru/texts/comp/lang/delphi/delphi5/pril/formstr.htm )
или смотрите 'printf' в c++ (например тут _http://ru.wikipedia.org/wiki/Printf )

Примеры:
x := 100; y := 200;
writelog(format('X в 10ной: %d Y в hex: %x',x,y));
в логе будет запись: 'X в 10ной: 100 Y в hex: C8';
тоже самое: writelog(format('%s %d %s %x','X в 10ной:',x,'Y в hex:',y));

Функции для работы с датой и временем:
Now; Date; Time; DateToStr; StrToDate; TimeToStr; StrToTime ; FormatDateTime;
Описание не даю, они стандартные.

Арифметические ф-ции: (тоже все стандартные)
Abs; Int; Fract; Round; Ceil, Floor, Trunc, Sin, Cos, Tan, ArcSin, ArcCos, ArcTan,
Exp, Ln, IntPower, Sqr, Sqrt, Inc, Dec;
операции : div, mod

Битовые операции:
BitAND, BitOR, BitNOT, BitXOR, SHR , SHL;

7.
http://saur.x33.ru/img/t.gif

VI) Функции скрипт-языка WPS.(продолжение)

Далее не стандартные ф-ции.

ScriptTimeOut(ms), ms = 100..31000. - смена установки таймаута скрипта (от 0.1 до 31 секунд).
Любой скрипт по умолчанию терминируется , если время его работы превышает 1 секунду по умолчанию, _ScriptTimeOut меняет это значение.
В скрипт-тестере можно поставить значение 99999, тогда таймаут не будет отслеживаться
(В пакетных скриптах совсем отключить таймаут нельзя)
Таймауты по неактивности во время действия скрипта не проверяются.

WriteLog(a1,a2,..,an); a1..n - любые переменные; Выводит в лог сообщения либо значения переменных. Лог - для socks -скрипта это Syslog, для пакетных скриптов - свой, Scripts Log. (виден в каждой записи в логе, либо в онлайн редакторе скриптов)
Скрипт-тестер выводит в свой лог.

WriteLogH(a1,a2,,,an); a1..n - любые переменные.
Выводит Int в шестнадцатеричном виде;
Если переменная это строка (Str), то выводится как есть, без изменений.
Удобно для вывода в лог шестнадцатеричных значений с сообщениями.

Например:
WriteLogH(' X координата: ',curx,' Y координата: ',cury);
это равнозначно :
WriteLog(' X координата: ',inttohex(curx,2),' Y координата: ',inttohex(cury,2));

WriteLogHexB(buf[,len]); пишет HexBlock buf'a в виде блока , как это сделано в Autologger'e;

InttoHex(int[,mincount]) : str - вернет целое в шестнадцатеричном представлении (в Hex) в виде строки.
IntTohex($3461EAE) - вернет строку '3461EAE';
IntTohex(7777) - вернет строку '1E61';

BuftoHex(buf : str) : str - переводит каждый байт в Hex;
BuftoHex(#$01+#$02+#$04); - вернет строку '010204'
BuftoHex('aaa') - вернет строку '616161';
BuftoHex(inttostr(7777)) - вернет строку '37373737'

FStr(len, ch) : str; создать и вернуть строку(буфер) размером 'len' и заполнить символом 'ch'.
buf := FStr(1024,'a') - создать буфер 1024 символа и заполнить его символом 'a'.
buf := Fstr(100,0); - создать буфер 100 байт и обнулить его.
ограничение на максимум - 65к =)

HStr(str,[,len]) : buf; // собрать пакет
HPck(str,[,len]) : buf; // собрать пакет и добавить длину автоматом
пакет задается в виде шестнадцатеричных литер с пробелом либо без него
второй аргумент это длина пакета, неуказанные литеры дополняются нулями

Пример:
// Допустим, нужен пакет социала "Greeting" вида "07 00 1B 02 00 00 00"
// т.е. надо собрать строку #$07+#0+#$1B+#2+#0+#0+#0
// сделать это можно по разному:
pck := HStr('07 00 1B 02 00 00 00'); // - готовый пакет #$07+#0+#$1B+#2+#0+#0+#0"
pck := HStr('07001B02000000'); // тоже самое
pck := HStr('07 00 1B 02',7); // тоже самое
в этом случае второй аргумент - это размер строки, до которого надо дополнить нулями.

или, если надо, чтобы размер добавлялся сам, то используем ф-цию HPck(str,[,len]) : buf;

pck := HPck('1B 02 00 00 00'); // = тоже самое, готовый п-т #$07+#0+#$1B+#2+#0+#0+#0"
первые 2 байта размера пакета добавляются автоматом
pck := HPck('1B02000000'); // тоже самое
pck := HPck('1B 02',5); // тоже самое, обратить внимание на указанный размер.
Как видим, в ф-ции HPck() размер нужной строки указываем без учета первых байт с длиной пакета.

Во всех случаях мы получаем полную 'правильную' строку #$07+#0+#$1B+#2+#0+#0+#0,
что соответствует пакету "07 00 1B 02 00 00 00" и готова к отправке.

ReadSocket(s : Socket; var buff : str, count : int) : int; - только в socks скрипте
WriteSocket(s : Socket; var buff : str, count : int) : int; - только в socks скрипте
(для пакетных скриптов ф-ция дальше по тексту)

GInt(buf; index ; size : [1..8]) : int; - берет Int как 4 байта из buf[index];
или Word как 2 байта. 'size' может быть от 1 до 8, следовательно, 8 байт = int64
s := #$01+#$02+#$03+#$04+#$05+#$06+#$07+#$08;
Gint(s,3,2) - вернет word 1027 ( $403);
Gint(s,3,4) - вернет int $6050403;
Gint(s,1,8 ) - вернет int64 $807060504030201;
Gint(s,5,1) - вернет byte $05;
Gint(s,6,4) - даст ошибку скрипта. (размер буфера, выход за пределы)

PInt(buf; iw : int/word; index; size : [2,4]); - тоже что и GInt, только записывает.

gBlockPacket; - функция блокирующая данный входной пакет, он дальше никуда не уйдет.
Например запрет на запрос '/gmlist' будет так:
Код:
if (not _gFromServ) and copy(_gBuff,1,3) = HStr('03 00 81') then gBlockPacket;
// код только для WPS.
AnsiToWStr(astr, wstr): int; - перевод Ansi строки 'astr' в WideString 'wstr'.
переменная 'wstr' должна быть объявлена, в нее запишется WideString.
вернет количество байт записанных в 'wstr' или -1 если ошибка.
пример:
ws := ''; // объявление переменной 'ws'.
k := AnsiToWStr('str',ws); // здесь в ws будет ='s.t.r.' (#73 #00 #74 #00 #72 #00)
if k < 0 then writelog('ошибка AnsiToWStr');

Внимание! функция по умолчанию не добавляет два нулевых байта как признак Wide-строки.
если нужны нули в конце: (признак окончания Wide-строки)
k := AnsiToWStr('str'+#0,ws); // здесь в ws будет ='s.t.r...' (#73 #00 #74 #00 #72 #00 #00 #00)

WStrToAnsi(wstr, astr [,n,len]): int; - перевод WideString с позиции 'n' длиной 'len' байт в Ansi.
вернет количество записанных байт в 'astr' или -1 если ошибка.
если 'n' не указан, то по умолчанию он равен '1' (начало строки/буфера),
если размер строки 'len' не указан, то переводится вся строка/буфер 'wstr',
если 'len' = -1, то признак конца строки 'wstr' - два нулевых байта '00 00' подрят.
так же, при 'len' = -1 в 'astr' добавляется признак конца строки (один байт #0)
Внимание! положительный 'len' округляется до ближнего четного, так как Wide-символы двухбайтные.

примеры:
ls := AnsiToWStr(buf,st,10,-1);
st := trim(st); // избавимся от #0 в конце, если он там будет (см. ф-цию 'Trim')
if ls = -1 then begin writelog('ошибка в AnsiToWstr'); exit; end;
if ls > -1 then AfterWideStr := buf[10+ls*2]; // байт после wide-строки.
возьмет из 'buf' с 10 байта wide-стринг, до первого признака конца wide-строки,
запишет его как ansi-стринг в 'st' (с нулем в конце! в этом случае),
вернет количество ЗАПИСАННЫХ байт в 'st'.
Умножая 'ls' на 2 (ls*2) получим количество прочитанных байт (Widestr двухбайтные)
То есть, buf[10+ls*2] - следующий байт после wide-строки, при условии, что не было ошибки (ls <> -1)
для избавления от нуля в конце 'st' можно применить ф-цию Trim(st);

st := ''; ws := ''; // объявим переменные.
AnsiToWStr('AB',ws); // запишем в 'ws' строку 'AB' в виде Wide-строки (#$41 00 #$42 00).
WStrToAnsi('',st) - в 'st' ничего не будет, ф-я вернет 0
WStrToAnsi('',st,1,-1) - в 'st', так же, ничего не будет, ф-я вернет 0
WStrToAnsi(ws,st) - в 'st' будет 'AB' (#$41 #$42), ф-я вернет 2;
WStrToAnsi(ws,st,1,-1) - в 'st' будет 'AB'+нуль (#$41 #$42 #00), ф-я вернет 3;

8.
http://saur.x33.ru/img/t.gif

VI) Функции скрипт-языка WPS.(продолжение)

Системные ф-ции:
функция переходник 'gSys()'
которая дает доступ к системным переменным и функциям.
Название переменных и функций в первом аргументе этой ф-ции.

gSys('Tick') : int - вернет количество миллисекунд прошедших со старта компьютера (стандартная ф-ция GetTickCount)

gSys('Tick',var,ms) : bool- вернет true, если прошло время равное 'ms' или больше
с последнего запуска этой ф-ции (с той же переменной var).
переменную 'var' использовать разную в каждом новом 'Tick' иначе они будут друг другу мешать.

Например, посылаем пакет на сервер каждые 10 секунд (10 сек или больше):
естественно, при отсуствии пакетов , время может быть от 10сек до ближайшего пакета после 10сек.
if _gAbsNumPkt = 1 then begin // первый пакет.
// первый пакет используется, чтобы установить начальные переменные 1 раз.
..
tv := 0; // если поставим 1 , то Tick выполнится с первого раза. иначе только после первых 10 сек.
..
end;
..
if gGSys('Tick',tv,10000) then begin // 10000 ms = 10 сек.
gPSys('Ensends',buf); // посылаем пакет buf на сервер (Ensendc - на клиент, см ниже)
end;

gSys('S3timer'[,time]): int; - 'time' в миллисекундах.
- установка/чтение значения таймера на запуск третьего скрипта.
возвращает текущее значение таймера.
значение '0' выключает таймер.
Если установлен таймер на запуск третьего скрипта, то третий скрипт будет запускаться не только в порядке очереди при каждом пакете, но и каждое 'time' время.
Узнать как запустился скрипт можно по переменной '_gS3onTimer' - она вернет 'true' ('1') если скрипт запустился по таймеру, или 'false' ('0') если скрипт запустился в порядке очереди приема пакета.
Переменная _gS3TimerCount вернет счетчик срабатываний таймера с последнего сброса таймера.
при сбрасывани таймера в ноль (выключении) счетчик _gS3TimerCount обнуляется. (_gS3TimerCount только начиная с WP410F)

Внимание! при включении (не изменении, а именно включении) таймера, первый раз таймер срабатывает сразу, далее через интервал.

_gBuff , в третьем скрипте, при запуске от таймера, либо содержит '03 00 00' либо ничего.
_gOutBuff , при выходе из третьего скрипта, при запуске скрипта от таймера, игнорируется.

gSys('SendC',bf[,len]): int - послать пакет на клиент без шифровки.
если размер пакета не указывать, то он определится автоматически.
gSys('EnSendC',bf[,len]) : int - послать пакет на клиент с шифровкой,
пакет автоматически зашифруется действующими ключами, если они определились(De/EnCode: Tx) , либо, если установлен PDecode в ручную.

gSys('sendS',bf[,len]): int, gSys('EnSendS',bf[,len]) : int- тоже, что и предыдущие ф-ции, но на сервер.

Функции 'EnSendC' и 'EnSendS' шифруют пакет в зависимости от типа трафика, если это трафик la2, то используется метод шифровки 'GSDecode'.

Ф-ции отсыла пакетов возвращают количество удачно отосланых байт,
либо '-1' , если отослать не удалось, т.е. была ошибка.

ключи используемые автоматической системой дешифрации:
! При включенной системе авто-дешифрации, ключи устанавливаются автоматически.
gSys('Kci') : string - получить ключ для пакетов пришедших с клиента.
gSys('Kco') : string - получить ключ для пакетов уходящих на клиент.
gSys('Ksi') : string - получить ключ для пакетов пришедших с сервера.
gSys('Kso') : string - получить ключ для пакетов уходящих на сервер.
gSys('Kci',string) - установить данный ключ. (для остальных соответственно)

gSys('TrafType'[,val]): int; - тип определившегося трафика.
- '0,1' не определен, '2' - la2, '3'..'14' - резерв.
gSys('tPDecode'[,val]): int; - тип де/шифровки пакетов (PDecode),
- '-1' стоит автоопределение, но еще не определен.
'0' - нет де/шифровки, выключено, '-1' - неизвестно, '2' - la2 (GSDecode), '3'..'14' - резерв.
gSys('tParse'[,val]): int; (тип _ParsingPackets) - тип парсинга пакетов.
- '-1' - стоит автоопределение, но еще не определен.
'0' - нет парсинга, '1' - 2 bytes size (la2-style), '3'..'14' - резерв.
gSys('isLS'[,val]): int; - флаг, что определился LS - Login Server (la2)
- возвращает тип LS сервера или 0 если не определился как LS
gSys('isGS'[,val]): int; - флаг, что определился GS - Game Server (la2)
- возвращает тип GS сервера или 0 если не определился как GS
Переменная 'val' устанавливает эти значения принудительно. (критично к изменениям)

gSys('DecGS',buf,key, KeyType) : bool;
- Декодирует буфер пакета 'buf' Гейм-сервера (GS) ключем 'key' (LA2 - функция).
gSys('EncGS', buf, key, Keytype) : bool;
- Кодирует буфер пакета 'buf' Гейм-сервера (GS) ключем 'key' (LA2 - функция).
Ключи 'key' изменяются в соответствии с правилами (де)кодирования GS LA2 (KeyType).
'buf' - бинарная строка буфера/пакета
'key' - бинарная строка с ключем, размер должен соответствовать KeyType.
'KeyType' - см. 'gSys.tKeyType' в 'FS' разделе
Ф-ции возвращают 1 если отработали удачно и -1 если не удачно.

gSys('LSchks',buf[,cs]) : bool; (la2 - функция)
- возвращает 1 (true) если чексумма пакета 'buf' Логин-сервера (LS) сходна с указанной в самом пакете, иначе 0 (false).
! Размер buf должен быть не менее 8, иначе игнорируется.
! Пакет может быть, как с 2 начальными байтами размера пакета, так и без них. Определяется автоматически.
Если присуствует аргумент 'cs', то в нем возвращается значение чексуммы.
Внимание! переменная 'cs' должна быть заранее определена.
например:
cs := -1;
gSys('LSchks',buf,cs);
пример использования см. в скрипте 'wpsc\demo3.sc'

gSys('ALstart'[,0/1]) : int - для текущей сессии запустить автолог (запись лога пакетов) или остановить.
без второго параметра возвращает состояние логерра 0- выключен, 1-включен
(тоже самое в ручную делает кнопка [on/off] на панели AL)

gSys('Killself'); - разорвать соединение, дисконнект. (убивается трид сессии)
(тоже в ручную делает кнопка [Terminate Link] на главной панели Links Online )
gSys('Killself',time) - разорвать соединение, дисконнект через 'time' миллисекунд(1000 = 1 сек).
советую всегда ставить немного задержку, хотя бы 3000 - gSys('Killself',3000);

9.
http://saur.x33.ru/img/t.gif

VI) Функции скрипт-языка WPS.(продолжение)

крипт-функции:
Blowfish:
gSys('BFinit',key) : int; - инициализация ключа BF, ключ = token
возвращает 0 если успешно, или -1 если ошибка.

gSys('BFdecb',buf); - BF кодировка 8-байтного буфера.
gSys('BFencb',buf); - BF декодировка 8-байтного буфера.

gSys('BFdec',buf[,len]); - BF кодировка буфера (пакета)
gSys('BFenc',buf[,len]); - BF декодировка буфера (пакета)
- в этих ф-циях размер буфера(пакета) должен быть кратен 8, иначе последние, не кратные, байты не закодируются.
Пример использования см. в файле 'wpsc\demo3.sc' в архиве.

Base64:
gSys('EnBase64',buf[,len]) : buf; - вернет 'buf' кодированый в Base64.
gSys('DeBase64',buf[,len]) : buf; - вернет декодированный 'buf' из Base64
если (де)кодирование не успешно, вернет пустую строку ''
более подробно о Base64 тут: _http://ru.wikipedia.org/wiki/Base64
пример:
ob := gSys('DeBase64',bi);
if (length(ob) = 0) and (length(bi) <> 0) then Writelog('Ошибка декодирования Base64');

gSys('MD5',buf) : md5; - Возвращает 16 байтный MD5 hash буфера или строки 'buf'.
gSys('SHA1',buf) : sha1; - Возвращает 20 байтный SHA-1 hash буфера или строки 'buf'.

gSys('rnd'[,maxval]) : int; (maxval = 0..$FFFFFFFF)
- возвращает случайное целое число X в пределах от 0 до maxval.
Если maxval не указан, то берется максимальное значение (2^32)

gSys('Rndmize'); - начальная установка счетчика случ. чисел по системному таймеру. (использовать не обязательно, вызывается в каждой сессии автоматически)

StringList(function,a1...a4) : retvalue; - Список строк, с возможностью чтения/записи из/в файл(а)
где 'function':
StringList('Create') : sl; - создать TStringList (sl - integer, объект класса)
StringList('Free', sl); - освободить TStringList
// ф-ции по полной аналогии TStringList в DELPHI
StringList('Clear', sl);
StringList('Delete',sl, index);
StringList('Add',sl, string) : integer;
StringList('AddObject',sl, string, integer) : integer;
StringList('Insert',sl, index, string);
StringList('InsertObject',sl, index, string, integer);
StringList('LoadFromFile',sl, string);
StringList('SaveToFile',sl, string);
StringList('IndexOf',sl, string) : integer;
StringList('IndexOfName',sl, string) : integer;
StringList('IndexOfObject',sl, integer) : integer;
StringList('CommaText',sl[,string]) : string;
StringList('Count',sl) : integer;
StringList('Names',sl,index) : string;
StringList('Objects',sl,index[,integer]) : integer;
StringList('Values',sl,string[,string]) : string;
StringList('Strings',sl,index[,string]) : string;
StringList('Text',sl[,string]) : string;
StringList('Duplicates',sl[,integer]) : integer;
StringList('Sorted',sl[,boolean]) : boolean;
StringList('CaseSensitive',sl[,boolean]) : boolean;
StringList('Sort',sl);
пример (WPS):
sl1 := StringList('Create'); // создали клас
StringList('LoadFromFile',sl1,'c:\temp\slf.txt');
val := StringList('Values',sl1,'ляля');
StringList('Free', sl1); // - обязательно освобождать.

В настоящее время здесь указан не полных список ф-ций.
Так же , ожидается пополнение функций время от времени (и версий PPC)

10.

Настройки в файле 'WPcfg.ini' :

Установки WP:
[WP]
autoonlynew=yes - установка автоматом только что запущенных ботов(т.е. ранее запущенные не трогаются)
autogmlist=yes - установка автоматом gmlist'а
autoanchors=yes - установка автоматом anchors
AutoCBuff=yes - установка автоматом c-buff
xxCheckAnchors=yes - также снимает pickup с Appretince's Wand для проверки
useTCheck=no - при выборе токена устанавливать галки из token.wp (сбрасывает галки)
autol2j=no - установка автоматом l2j
autoppeoff=no - установка автоматом PPE-off

установки таймаутов для PPC:
[PPC]
FirstPckNumber=30 - количество первых пакетов для следующей переменной. от 20 до 300.
FisrtPckTimeout=60 - разрыв, если неактивность в первых пакетах. сек. (время выбора персонажа на аккаунте исключается)
проверяется только, если трафик определен (например ла2)
если значение 0 - то выключен. (при запуске двух и более клиентов меньше 20 сек не ставить)
OnCloseTimeout=5 - разрывать в случае неактивности, после прихода пакета от сервера LogOutOk. сек. (2..60c)
Если стоит значение 0 - то выключен. (меньше 2 секунд не ставить, иначе клиент не успеет сообразить и выйдет по дисконнекту)
OnRequestLogOutTimeout=60 - разрывать в случае неактивности, когда клиент послал серверу на запрос LogOut. сек. (25..180c)
Если стоит значение 0 - то выключен. (меньше 30 секунд не советую)
TotalPacketTimeOut=900 - если вообще нету активности, то разрыв. сек. (900 = 15 минут)
минимальное значение 600 (10 минут), максимально 3600 (час.)
UndefinedLinkTimeOut=60 - тамаут по неактивности (секунды) для неопределенных соединений. 20 .. 300 секунд.
NoLookUp=0 - если 1 то раз в час не будет производиться lookup имен хостов через DNS.

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

Внимание! Кроме того существует пользовательский таймаут в опциях PPC.
см. опцию 'таймаут по неактивности' , если больше нуля, то будет разрыв соединения при неактивности, вне зависимости от типа трафика. (cм третий пост этой темы)

По умолчанию стоят оптимальные значения.

11.
http://saur.x33.ru/img/t.gif

VII) Функции скрипт-языка FS.

Внимание! В последних версиях WP PPC (начиная с WP410F) встроено два разных скрипт-движка.
Синтаксис и ф-ции частично различны.
WPS движок больше не поддерживается, пользуйтесь только FS.
Здесь описан скрипт движок FS, информацию о WPS см в начале темы.

Отличия FS от WPS

Скрипт Движок FS кардинально отличается от WPS.

. компилирование и запук скрипта на FS происходит отдельно.
компиляция происходит один раз, а далее происходит только запуск.
(В Script-Tester'e скрипт каждый раз компилируется перед запуском,
скрипты в соединениях компилируются только при первом запуске или при изменении скрипта в работающем соединении)

. ф-ция 'OnCreate' вызывается один раз сразу после компиляции, а 'OnDestroy' в конце соединения (или при перекомпиляции)
ф-ции 'OnCreate' и 'OnDestroy' могут отсуствовать в скрипте.
все созданные динамические объекты в скрипте обязаны быть освобождены в 'OnDestroy' или ранее.

. переменные в FS необходимо объявлять.
. в FS есть классы
например, TStringList, TMemoryStream (включая методы записи/чтения в/из файла)
так же, есть уже инициализированные объекты системных классов.
например, 'gSys' и 'gCrypt'
эти классы инициализировать и очищать не нужно.
(см. примеры)
. ф-ции PPC в движках FS и WPS отличаются.
стандартные ф-ции почти не отличаются.
. массивы в FS тормозные (так как на 'вариантах'), для большого массива строк лучше использовать класс 'TStringList', он намного быстрей, чем большие размеры вариант-массива. (не будет лагов)
(см. примеры)

. !Внимание! для сравнения строк, в которых могут быть нулевые символы, надо применять ф-цию 'StrCmp()'
это особенно касается пакетов, так как пакеты это строки с бинарным содержимым, в том числе и с нулевыми символами.
Вместо выражений типа 'if s1 = s2 then' надо писать 'if StrCmp(s1,s2) then'
Например, вместо 'if (_gBuff[3] = #$27) then' надо будет писать 'if StrCmp(_gBuff[3],#27) then'

. !Внимание! выход за границы строки буфера не всегда проверяется(для скорости выполнения).
помните, в паскале string = array[1..length(string)] of char;
т.е. индексация символов/байт в string/буфере начинаются с '1' а не с нуля.

. в WPS все три скрипта были связаны одними локальными переменными.
в FS локальные переменные каждого из трех последовательных скриптов не связаны,
т.е. в FS инициализация и использование переменных строго для каждого скрипта.
соответственно, ф-ции 'OnCreate' и 'OnDestroy' так же для каждого скрипта свои.

Некоторые аспекты синтаксиса скрипт-движка FS

В FS существует возможность создания динамических объектов, для которых , в последствии, необходимо освобождать память.
Для этих целей служат функции (либо процедуры, это не важно) OnCreate; и OnDestroy; их наличие не обязательно, т.е. они могут отсутствовать в скрипте.
Эти функции(процедуры) не следует вызывать в самом скрипте, они вызываются сами.
OnCreate; - вызывается только один раз, когда скрипт запускается в первый раз.
OnDestroy; - вызывается только один раз, когда скрипт более не будет запускаться. когда он освобождается.

Все динамически созданные объекты, например объекты классов, либо динамические массивы, обязаны быть освобождены в процедуре OnDestroy;
пример в файле 'wpsc\FS\demoFS1.fsc'.

Стандартные функции и процедуры FS (почти полные аналоги из Delphi):

Типы:
Boolean = boolean (fvtBool);
Char : char (fvtChar = fvtString);
String : string (fvtString);
Variant : variant (fvtVariant);
Pointer : variant (fvtVariant);
Array : array (variant fvtArray)

Integer , Byte, Word, Longint, Cardinal, Tcolor : integer (fvtInt);
Real, Single, Double, Extended, Currency, TDate, TTime, TDateTime, : Real (fvtFloat);

Константы:
'True' : boolean = true;
'False' : boolean = false;
'nil' : variant = 0;
'Null' : variant = null;

Список Стандартных Функций:
описание к стандартным ф-цим можно найти в руководстве Delphi или в интернете.

function IntToStr(i: Integer): String;
function IntToHex(i: integer; digit: integer) : string;
function FloatToStr(e: Extended): String;
function DateToStr(e: Extended): String;
function TimeToStr(e: Extended): String;
function DateTimeToStr(e: Extended): String;
function VarToStr(v: Variant): String;
function StrToInt(s: String): Integer;
function StrToInt64(s: String): Integer;
function StrToInt64Def(s: String; def: Integer): Integer;

function StrToFloat(s: String): Extended;
function StrToDate(s: String): Extended;
function StrToTime(s: String): Extended;
function StrToDateTime(s: String): Extended;

function Format(Fmt: String; Args: array): String;
function FormatFloat(Fmt: String; Value: Extended): String;
function FormatDateTime(Fmt: String; DateTime: TDateTime): String;
function FormatMaskText(EditMask: string; Value: string): string;

function EncodeDate(Year, Month, Day: Word): TDateTime;
procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);
function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
function Date: TDateTime;
function Time: TDateTime;
function Now: TDateTime;
function DayOfWeek(aDate: TDateTime): Integer;
function IsLeapYear(Year: Word): Boolean;
function DaysInMonth(nYear, nMonth: Integer): Integer;

function Length(s: Variant): Integer;
function Copy(s: String; from, count: Integer): String;
function Pos(substr, s: String): Integer;
procedure Delete(var s: String; from, count: Integer);
procedure DeleteStr(var s: String; from, count: Integer);
procedure Insert(s: String; var s2: String; pos: Integer);
function Uppercase(s: String): String;
function Lowercase(s: String): String;
function Trim(s: String): String;
function NameCase(s: String): String;
function CompareText(s, s1: String): Integer;
function Chr(i: Integer): Char;
function Ord(ch: Char): Integer;
procedure SetLength(var S: Variant; L: Integer);

function Round(e: Extended): Integer;
function Trunc(e: Extended): Integer;
function Int(e: Extended): Extended;
function Frac(X: Extended): Extended;
function Sqrt(e: Extended): Extended;
function Abs(e: Extended): Extended;
function Sin(e: Extended): Extended;
function Cos(e: Extended): Extended;
function ArcTan(X: Extended): Extended;
function Tan(X: Extended): Extended;
function Exp(X: Extended): Extended;
function Ln(X: Extended): Extended;
function Pi: Extended;

procedure Inc(var i: Integer; incr: Integer = 1);
procedure Dec(var i: Integer; decr: Integer = 1);
procedure RaiseException(Param: String);
procedure ShowMessage(Msg: Variant); <<< включена только в ScriptTester'e
procedure Randomize;
function Random: Extended;
function ValidInt(cInt: String): Boolean;
function ValidFloat(cFlt: String): Boolean;
function ValidDate(cDate: String): Boolean;

function VarArrayCreate(Bounds: Array; Typ: Integer): Variant;
function VarType(V: Variant): Integer;

16.

VII) Функции скрипт-языка FS. (продожение)

Функции и Классы PPC скрипт-движка FS (3/4)

Системные ф-ции WPS gSys('..') в FS заменяются на класс gSys и gCrypt:

Например:
gSys('Tick'..) ==> gSys.Tick;
gSys('S3timer'..) ==> gSys.S3Timer;
gSys('sendC'/'sendS'/'EnsendC'/'EnSendS'..) ==> gSys.SendC/ gSys.SendS/ gSys.EnSendC/ gSys.EnSendS
gSys('Kci') ... gSys('kso') ==> gSys.Kci ... gSys.Kso
gSys('DecGS'...) ==> gCrypt.DecGS(..)
и другие ...

= gSys: =

Класс gSys является объектом системного класса и не требует инициализации,
это системный класс-переходник, имеющий следующие методы и переменные:

Переменные класса gSys:

gSys.S3Timer : int; - значения таймера на запуск третьего скрипта (в миллисекундах).
установка в '0' выключает таймер.
Если установлен таймер на запуск третьего скрипта, то третий скрипт будет запускаться не только в порядке очереди при каждом пакете, но и каждое установленное время.
Прочитав переменную '_gS3onTimer' можно узнать, как запустился скрипт - она вернет 'true' если скрипт запустился по таймеру, или 'false' если скрипт запустился в порядке очереди приема пакета.
Прочитав '_gS3TimerCount' можно узнать счетчик срабатываний таймера с последнего сброса таймера.
Пример:
gSys.S3Timer := 1000; // установить вызов третьего скрипта каждую секунду.
i := gSys.S3Timer; // прочитаем текущее значение таймера.
gSys.S3Timer := 0; // выключить таймер. (_gS3TimerCount тоже сбросится)

gSys.ALstart : boolean; - состояние автологгера.
изменение останавливает или запускает автологгер для текущего трида.
gSys.ALstart := true; - запустить автологгер для текущего трида.
gSys.ALstart := false; - остановить автологгер для текущего трида.
(тоже самое в ручную делает кнопка [on/off] на панели AL)

системные переменные:
(критично к изменениям !)

ключи используемые автоматической системой дешифрации:
gSys.Kci : string - для пакетов пришедших с клиента.
gSys.Kco : string - для пакетов уходящих на клиент.
gSys.Ksi : string - для пакетов пришедших с сервера.
gSys.Kso : string - для пакетов уходящих на сервер.
! При включенной системе авто-дешифрации, ключи устанавливаются автоматически.

//Пример стандартного чтения ключей: (если вдруг понадобится)
if length(gSys.Kci) >= 16 then begin // если размер ключа 16 то это интерлюдия.
int64_1 := GInt(gSys.Kci , 1, 8 ); - первая часть ключа.
int64_2 := GInt(gSys.Kci , 9, 8 ); - вторая часть ключа (в interlude именно она инкрементируется)
end;
Установка ключей соответственно : (16 байт для interlude, 8 байт для C4/C5)
gSys.Kci := HStr('00 00 ... 00 ');
либо:
gSys.Kci := FStr(16);
PInt(gSys.Kci, int64_1, 1, ; - младшие 8 байт
PInt(gSys.Kci, int64_2, 9, ; - старшие 8 байт

gSys.tParse : int; (тип _ParsingPackets) - тип парсинга пакетов.
'-1' - стоит автоопределение, но еще не определен.
'0' - нет парсинга, '1' - 2 bytes size (LA2, RFO etc.), '3'..'14' - резерв.

gSys.isLS : int; - тип LS сервера или 0 если не определился как LS (Login Server's)
может принимать значения от 0 до 14;

gSys.isGS : int; - тип GS сервера или 0 если не определился как GS (Game Server's)
может принимать значения от 0 до 14;

gSys.TrafType : int; - тип трафика.
'0' не определен,
'1' стоит автоопределение, но еще не определен (автоопределение трафика в первых пакетах)
'2' - LA2,
'3' - RFO,
'4'..'14' - резерв.

gSys.Protocol : int; - номер протокола соединения (зависит от типа трафика).
протокол не определен, если значение -1.

gSys.tPDecode : int; - тип де/кодировки пакетов (PDecode),
'-1' стоит автоопределение, но еще не определен.
'0' - нет де/кодировки, выключено,
'2' - LA2, LS: BF;
'2' - LA2, GS: GSDecode/GSDecodej/GSDecodeI (см. gSys.tKeyType)
'2' - RFO: ...
'3'..'14' - резерв.

gSys.tKeyType : int; - тип ключа для де/кодировки (зависит от PDecode и типа трафика)
(при включенной системе Auto Detect устанавливается автоматически)
значениния tKeyType:
LA2:
1 - GS: GSDecodeJ (C4/C5 ключ 8 байт, инкрементация половины ключа , L2J сервера)
2 - GS: GSDecode (C4/C5 ключ 8 байт, инкрементация всего ключа , official сервер LA2)
3 - GS: GSDecodeI (Interlude ключ 16 байт, инкрементация второй половины)
1 - LS: BF decode
2 - LS: BF decode, RSA present
RFO: ...

gSys.tLA2BFdecode : bool; - флаг BF дешифровки (только LA2 LS)
gSys.tLA2BFToken : string; - токен BF дешифровки (только LA2 LS)

Функции класса gSys:

gSys.SetIDposlen(pos, len : integer);
установить позицию и размер байт(а) ID пакетов текущего трафика.
необходимо для работы фильтрации и идентификации пакетов.
pos - позиция байт(а) ID, начинается с единицы
len - размер ID, значение может быть от 1 до 8
(при автоопределении данные берутся из файла 'pckinfo.ini')
по умолчанию это третий байт, размер 1 байт.

gSys.GetIDposlen(var pos, len : integer) : boolean;
получить позицию и размер байт(а) ID пакетов текущего трафика.
ф-ция возвращает 'true' если ID был установлен до этого нормально и 'false' если стоит по умолчанию.

gSys.Tick : int; - вернет количество миллисекунд прошедших со старта компьютера (стандартная ф-ция GetTickCount)
gSys.Tick(var,ms) : bool - вернет true, если прошло время равное 'ms' или больше
с последнего запуска этой ф-ции (с той же переменной var).
переменную 'var' использовать разную в каждом новом 'Tick' иначе они будут друг другу мешать.

gSys.sleep(ms); - жесткая задержка скрипта (в ms.)
(использовать только при крайней необходимости задержки потока !)

gSys.SendC(string {,len}) : int - послать пакет на клиент без шифровки.
если размер пакета не указывать, то он определится автоматически.
gSys.EnSendC(string {,len}) : int - послать пакет на клиент с шифровкой,
пакет автоматически зашифруется действующими ключами, если они определились(De/EnCode: Tx) , либо, если установлен PDecode в ручную.

gSys.SendS(string {,len}) : int,
gSys.EnSendS(string {,len}) : int - тоже, что и предыдущие ф-ции, но послать пакет на сервер.

Функции '.EnSendC' и '.EnSendS' шифруют пакет в зависимости от типа трафика, если это трафик la2, то используется метод шифровки 'GSDecode'.

Ф-ции отсыла пакетов возвращают количество удачно отосланых байт,
либо '-1' , если отослать не удалось, т.е. была ошибка.

gSys.Killself; - разорвать соединение, дисконнект. (убивается трид сессии)
(тоже в ручную делает кнопка [Terminate Link] на главной панели Links Online )
gSys.Killself(time); - разорвать соединение, дисконнект через 'time' миллисекунд(1000 = 1 сек).
советую всегда ставить немного задержку, хотя бы 3000 - gSys.Killself(3000);

17.

VII) Функции скрипт-языка FS. (продожение)

Функции и Классы PPC скрипт-движка FS (4/4)

= gCrypt: =
Класс gCrypt является объектом системного класса и не требует инициализации,
это системный класс-переходник, имеющий следующие методы и переменные:

Функции класса gCrypt:

gCrypt.DecGS(buf; var key; KeyType) : bool;
- Декодирует строку-буфер пакета 'buf' Гейм-сервера (GS) ключем 'key' (LA2 - функция).
gCrypt.EncGS(buf; var key; KeyType) : bool;
- Кодирует строку-буфер пакета 'buf' Гейм-сервера (GS) ключем 'key' (LA2 - функция).
Ключи 'key' изменяются в соответствии с правилами (де)кодирования GS LA2 (KeyType).
'buf' - бинарная строка буфера/пакета
'key' - бинарная строка с ключем, размер должен соответствовать KeyType.
'KeyType' - integer, см. 'gSys.tKeyType'
Ф-ции возвращают 'true' если отработали удачно и 'false' если не удачно.

gCrypt.LSchks(buf {,cs}) : bool; чексумма (LA2 - функция, для С2-С5 версий протоколов)
- возвращает 'true' если чексумма строки/пакета 'buf' Логин-сервера (LS) сходна с указанной в самом пакете, иначе 'false'.
! Размер buf должен быть не менее 8, иначе игнорируется.
! Пакет может быть, как с 2 начальными байтами размера пакета, так и без них. Определяется автоматически.
Если присуствует аргумент 'cs', то в нем возвращается значение чексуммы.

Blowfish:
gCrypt.BFinit(key {,len}) : bool; - инициализация ключа BF, ключ = token, строка.
вернет 'true' если удачно. ('len' - длина, не обязательно)

gCrypt.BFdec(buf {,len}) : bool; - BF кодировка строки/буфера 'buf'(пакета)
gCrypt.BFenc(buf {,len}) : bool; - BF декодировка строки/буфера 'buf' (пакета)
вернет 'true' если удачно. ('len' - длина, не обязательно)
в этих ф-циях размер буфера(пакета) должен быть кратен 8, иначе последние, не кратные, байты не закодируются.

Base64:
gCrypt.EnBase64(buf) : buf; - вернет закодированную строку/буфер 'buf' в Base64
gCrypt.DeBase64(buf) : buf; - вернет декодированную строку/буфер 'buf' из Base64
если (де)кодирование НЕ успешно, вернет пустую строку '' с нулевой длиной.
более подробно о Base64 тут: _http://ru.wikipedia.org/wiki/Base64
пример:
bo := gCrypt.DeBase64(bi);
if (length(bo) = 0) and (length(bi) <> 0) then Writelogln('Ошибка декодирования Base64');

gCrypt.MD5(buf) : buf; - Возвращает 16 байтный MD5 hash буфера/строки 'buf'.
результат бинарный.
Пример для перевода в ascii-hex :
with gCrypt do writelogln(buftohex(sha1('asdasdasd')));
// выведет в лог '00EA1DA4192A2030F9AE023DE3B3143ED647BBAB'

gCrypt.SHA1(buf) : buf; - Возвращает 20 байтный SHA-1 hash буфера/строки 'buf'.
результат бинарный.

18.

VII) Функции скрипт-языка FS. (продожение)

Функции и Классы PPC скрипт-движка FS [5]

= gWSA: = (начиная с версии WP504F)
Класс gWSA является объектом системного класса и не требует инициализации,
это системный класс-переходник, имеющий следующие методы и переменные:

Функции класса gWSA:

Внимание! Это упрощенная версия нескольких ф-ций, достаточных для установки TCP соединения и работы с ним.

gWSA.TCPsocket(block : boolean) : TSocket;
- открытие сокета (который будет использоваться для TCP соединения)
если 'block' = true тогда сокет блокирующий, иначе не блокирующий.

gWSA.connect(socket : TSocket, ip,port : integer) : integer;
- открытие TCP соединения.
вернет -1 если ошибка (далее использовать gWSA.GetLastError для получения номера ошибки)

gWSA.select(socket; r, w, e : flag; sec, usec : integer) : integer;
- ф-ция 'обертка' для стандартного select.
для использования нужно задать вместо флага 'r','w' и/или 'e' булеву переменную
если флаг не используется, то указать NULL
в эти переменные вернется соответствующий флаг
либо ф-ция вернет 0 если тайм аут(время в 'sec' - целые секунды, 'usec' - микросекунды)
ф-ция вернет -1 если ошибка (далее использовать gWSA.GetLastError для получения номера ошибки)

gWSA.recv(socket; var buf : string) : integer; - аналог стандартной 'recv'
gWSA.send(socket; buf : string) : integer; - аналог стандартной 'send'

gWSA.ShutClose(socket); - закрытие соединения и освобождение сокета

gWSA.GetLastError : integer; - аналог стандартной WSAGetLastsError
gWSA.SetLastError(err : integer); - аналог стандартной WSASetLastError

= gInfo: = (начиная с версии WP656F)

IP и Порт локальных и удаленных сокетов сессии:
gInfo.ServerRemoteIP : integer; // тоже, что и _gServIP
gInfo.ServerRemotePort : integer; // тоже, что и _gServPort
// остальные это ip и port обоих сокетов:
gInfo.ServerLocalIP : integer;
gInfo.ServerLocalPort : integer;
gInfo.ClientRemoteIP : integer;
gInfo.ClientRemotePort : integer;
gInfo.ClientLocalIP : integer;
gInfo.ClientLocalPort : integer;
возвращают IP: Port обоих сокетов (клиента и удаленного)

некоторая инф-я о перехваченном процессе модулем MI (Multi Injector):
gInfo.ProcessID : integer;
возвращает ID перехваченного процесса, в случае, если трафик был перехвачен через MI
возвращает 0 если ID процесса не известен.
gInfo.ProcessName : string;
gInfo.ProcessPath : string;
возвращают Имя и путь модуля перехваченного процесса, в случае, если трафик был перехвачен через MI

константы возвращающие версию WP:
gInfo.GetVerWP : string; - возвращает версию WP
gInfo.GetVerPPC : string; - возвращает версию PPC
gInfo.GetVerMI : string; - возвращает версию MI
gInfo.GetVerSE : string; - возвращает версию SE

  19.

VII) Функции скрипт-языка FS. (продожение)

Функции и Классы PPC скрипт-движка FS [6]

= gDLL: = (начиная с версии WP505F)
Класс gDLL является объектом системного класса и не требует инициализации.
инициализации требует сама DLL.

объект gDLL используется для подгрузки внешних DLL и вызова их ф-ций.

!Внимание!
Ф-ции DLL должны быть безопасны для многопоточного приложения, которым является PPC.
Любые ошибки в DLL или в вызове ф-ций могут привести к падению системы, либо не устойчивой работе.

примеры использования см. в дистрибутиве wp505F.
демонстрационные DLL с исходниками находятся в директории 'dll\'
демо скрипты в 'wpsc\DEMO\'

Функции класса gDLL:

gDLL.LoadLib(name : string) : handle;
- аналог ф-ции Win32:LoadLibrary() - загружает DLL библиотеку.
'name' - имя и если нужно путь до файла динамической библиотеки.
возвращает хендл DLL либо 0 если ошибка (в этом случае см. GetLastError)

gDLL.FreeLib(handle);
- почти аналог ф-ции Win32:FreeLibrary()
'handle' - хендл DLL из ф-ции gDLL.LoadLib
выгружает DLL, либо уменьшает счетчик загрузок этой DLL.

gDLL.GetProcAddr(hlib : handle; funcName : string) : integer;
- аналог ф-ции Win32:GetProcAddress.
возвращает адрес ф-ции DLL по имени.
либо возвращает 0 если была ошибка (тогда см. GetLastError)
'hlib' - хендл DLL, см. gDLL.LoadLib()
'funcName' - строка с именем ф-ции DLL.
внимание! имя указываемой ф-ции чувствительно к регистру!

gDLL.CallFuncF5(hlib : handle; fn/addr; frmstr : string; var a1,a2,a3,a4,a5 : variant) : integer;
- вызов ф-ций DLL имеющих от 0 до 5 аргументов с описанием аргументов в форматной строке.
'hlib' - хендл объекта, см. gDLL.LoadLib()
'fn/addr' - может быть как строкой с именем ф-ции, так и адресом ф-ции, полученным gDLL.GetProcAddr()
'frmstr' - строка описания типов аргументов, имеет до 5 последовательных символов (так как до 5 аргументов)
a1,a2..a5 - аргументы, каждый аргумент описывается последовательно в форматной строке 'frmstr':
'd' аргумент в скрипте integer, в DLL передается pascal 'integer'
'r' аргумент в скрипте real/single, в DLL передается pascal 'single' (short-float)
's','p' аргумент в скрипте string, в DLL передается 'Pchar', указатель на первый байт строки/блока.
соответственно, любое изменение блока в DLL отразится на переменной в скрипте.
'D' аргумент в скрипте integer, в DLL передается указатель на 'integer'
в DLL аргумент должен быть описан как 'var integer' !
изменение содержимого отразится на переменной в скрипте.
'R' аргумент в скрипте real/single, в DLL передается указатель на 'single'
в DLL аргумент должен быть описан как 'var single' !
соответственно, изменение содержимого отразится на переменной в скрипте.
ф-ция CallFuncF5 возвращает значение integer из вызываемой ф-ции DLL.
если произошла ошибка, то возвращает '-1' и далее см. ф-цию GetLastError.

примеры см. в демо скриптах и демо-DLL.
!Внимание:
!если вызываемая ф-ция DLL имеет меньшее кол-во аргументов, то лишние аргументы в скрипте должны быть 'null'
!несоответствие в количестве либо в типе аргументов вызова ф-ции и самой ф-ции в DLL может привести к падению процесса WP PPC.

gDLL.CallFuncF10(hlib : handle; fn/addr; frmstr : string; var a1,a2,a3..a10 : variant) : integer;
- аналогично gDLL.CallFuncF5, только максимальное количество аргументов до 10
соответственно, лишние аргументы (последние) указываем как 'null';

gDLL.CallFunc3(hlib : handle; fn/addr; a1,a2,a3 : variant) : integer;
- упрощенный вызов ф-ций DLL имеющих от 0 до 3 аргументов.
Функция не имеет форматной строки, аргументы - константы (кроме строчных, там всегда PChar на строку)
'hlib' - хендл объекта, см. gDLL.LoadLib()
'fn/addr' - может быть как строкой с именем ф-ции, так и адресом ф-ции, полученным gDLL.GetProcAddr()
a1,a2,a3 - аргументы, типы аргументов могут быть:
аргумент в скрипте integer - в ф-цию DLL передается pascal 'integer' type
аргумент в скрипте real/single - в ф-цию DLL передается pascal 'single' type (short-float)
аргумент в скрипте string - в ф-цию DLL передается 'pchar' type, являющийся указателем на первый символ строки/блока.
в последнем случае любое изменение блока изменит и содержимое аргумента в скрипте.
!если вызываемая ф-ция DLL имеет меньшее кол-во аргументов, то лишние аргументы в скрипте должны быть 'null'
!несоответствие в количестве аргументов приведет к падению процесса WP PPC.
CallFunc3 возвращает значение integer из ф-ции DLL.
если возвращаемое значение '-1' то см. ф-цию GetLastError.

gDLL.CallFunc6(hlib : handle; fn/addr; a1,a2,a3..a6 : variant) : integer;
- аналогично gDLL.CallFunc3, только максимальное количество аргументов до 6

gDLL.CallFunc9(hlib : handle; fn/addr; a1,a2,a3..a9 : variant) : integer;
- аналогично gDLL.CallFunc3, только максимальное количество аргументов до 9

Пример:
вызов стандартной win32 ф-ции 'MessageBoxA' системной библиотеки 'User32.dll':
(запускать в скрипт-тестере, описание ф-ции MessageBoxA см. в интернете)

var hlib : handle;
begin
ScriptTimeOut(99999); // выключим таймер в скрипт-тестере.

hlib := gDLL.LoadLib('User32.dll'); // DLL системная, можно путь не указывать
gDLL.CallFunc6(hlib, 'MessageBoxA', nil, 'Сообщение', 'msg: ', 0, null, null);
gDLL.FreeLib(hlib);
end.

Второй вариант:
var hlib : handle;
begin
ScriptTimeOut(99999); // выключим таймер в скрипт-тестере.

hlib := gDLL.LoadLib('User32.dll'); // DLL системная, можно путь не указывать
gDLL.CallFuncF5(hlib, 'MessageBoxA', 'dssd',nil, 'Сообщение', 'msg: ', 0, null);
gDLL.FreeLib(hlib);
end.

Третий вариант:
var hlib : handle;
fa : integer;
begin
ScriptTimeOut(99999); // выключим таймер в скрипт-тестере.

hlib := gDLL.LoadLib('User32.dll'); // DLL системная, можно путь не указывать
if hlib = 0 then begin
writelogln('Ошибка: '+SysErrorMessage(GetLastError));
exit;
end;
fa := gDLL.GetProcAddr(hlib, 'MessageBoxA'); // берем адрес ф-ции, как вариант.
if fa = 0 then begin
writelogln('Ошибка: '+SysErrorMessage(GetLastError));
end else begin
gDLL.CallFunc6(hlib, fa, nil, 'Сообщение', 'msg: ', 0, null, null);
end;
gDLL.FreeLib(hlib);
end.

Более подробные примеры см. в скприпте wpsc\DEMO\gDLL-ex1.fsc
исходники необходимой DLL в dll\source\

Небольшое замечание:
Строка/буфер, отосланная в DLL придет там в виде указателя на символ (Pchar) , и следовательно, индексация первого символа будет pchar[0], в тоже время как в самом скрипте первый символ строки/буфера это buf[1].
Просто помните это

Внимание!

1. Ф-ции DLL должны быть безопасны для многопоточного приложения, которым является PPC. (что такой 'multithreaded' читайте в интернете)

2. В DLL передача динамических объектов, которые инициализированы внутренним менеджером памяти PPC (например, переменные string),
запрещено.

При написание DLL в стиле c++ (не используя передачу типов string и других динамических объектов инициализированных в PPC) никаких осложнений не требуется. (тогда пишите DLL хоть на фортране)

Использование VCL в DLL КРАЙНЕ не рекомендуется, но если это очень необходимо, то только с FastMM4 (не ниже версии что я указал в ссылке) и компилировать на delphi6. (либо настроить FastMM4Options.inc для других дельфи)

ShareMM не включено, любые созданные динамические объекты в DLL должны быть в этой же DLL освобождены.

20.

Немного о синтаксисе скрипт-языка FS. (продожение)

Пример использования директивы Uses.

Делаем первый файл , называем его demo-uses1.fsc
Это юнит-файл (uses-файл) который подцепляется из основного скрипта.
Код:

// demo-uses1.fsc  - привет использования директивы Uses. файл-юнит.
//  Unit 'demo-uses1.fsc'  <- объявлять скрипт юнитом  НЕ требуется.

function Func001 : boolean;
begin
  writelogln('сообщение из ф-ции Func001');
end;

begin
  writelogln('сообщение из тела юнита');

end.
Делаем второй файл - это основной скрипт.
Код:

// demo-uses2.fsc - пример использования директивы Uses, основной файл.

uses 'wpsc/demo-uses1.fsc';   // загружаем юнит-скрипт

begin
  writelogln('сообщение из основного скрипта перед вызовом ф-ции из юнита');
  func001;     // вызываем ф-цию из юнит-скрипта.

end.
Когда компилируем в xml скрипт, то все Uses файлы компилируются в него, и отдельно не требуются.

Внимание !!!! Uses файл может быть xml.
Т.е. файл который указывается в Uses так же может быть и xml-скрипт.

в директиве Uses можно указывать несколько файлов.
пример:
Код:

uses 'wpsc/d1.fsc','wpsc/d2.xml';
Функции OnCreate и OnDestroy должны быть только в одном из скриптов, так как дубликаты любых ф-ций не допускаются

Функции-события в FS.

функции-события OnCreate и OnDestroy
(О них много было сказано ранее в данной документации).

ф-ция 'OnCreate' вызывается один раз сразу после компиляции, а 'OnDestroy' в конце соединения (или при перекомпиляции)
ф-ции 'OnCreate' и 'OnDestroy' могут отсуствовать в скрипте.
все созданные динамические объекты в скрипте обязаны быть освобождены в 'OnDestroy' или ранее.

функции-события OnDeCode и OnEnCode
ф-ции автоматически вызываются при необходимости декодирования пакета (OnDeCode) после получения пакета
и обратного кодирования (OnEnCode) перед отсылкой пакета.
Эти ф-ции могут быть только в первом скрипте и только в FS-типе скриптах.
ф-ции не обязательны и могут отсутствовать в скрипте.

OnDeCode вызывается при получении пакета и ДО записей в автологгер основных пакетов и ДО автоматического декодирования (если включено)
в логгер попадет запись о пришедшем пакете уже после этой ф-ции (и после автодекодирования, если оно включено)

OnEnCode вызывается перед отсылкой пакета, но уже после записи в автологгер основных пакетов и ПОСЛЕ автоматического кодирования (если включено)
в логгер попадет запись о отсылаемом пакете ДО вызова этой ф-ции (если пакет вообще был изменен или отослан)

! так же, ф-ция OnEnCode вызывается автоматически при использовании gSys.EnSendC и gSys.EnSendS
!! Внимание !!
! в OnEnCode запрещено использовать ф-ции gSys.EnSendC и gSys.EnSendS во избежание замкнутой рекурсии

! ф-ция OnEnCode вызывается при ручной отсылке на закладке 'Send Raw Packet' !
если скрипт установлен и определена эта ф-ция, то вначале вызывается автокодирование (если включено), затем OnEnCode, далее пакет отсылается.

В этих ф-циях применяются следующие специальные переменные:
'_dBuff' - входной буфер пакета (не путать с _gBuff)
'_dOutBuff' - выходной буфер пакета (не путать с _gOutBuff)
'_dFromServ' - флаг направления пакета (не путать с _gFromServ)

Более подробно см. в демо скриптах demo_la2-endecGS-4.fsc и demo_la2-endecGS-5.fsc
demo_la2-endecGS-4.fsc - демонстрация автоопределения LA2 GS трафика и де/кодировка GS трафика.
demo_la2-endecGS-5.fsc - тоже самое, только используется DLL, где содержатся ф-ции определения и де/кодировки.

функции-события OnDeCodeAlt и OnEnCodeAlt
эти ф-ции полностью схожи с OnDecode и OnEnCode кроме того,
что вызываются в другой последовательности. (см. далее)
! в OnEnCodeAlt (по аналогии с OnEnCode) запрещено использовать ф-ции gSys.EnSendC
и gSys.EnSendS во избежание замкнутой рекурсии (так как эти ф-ции генерят эти же события)

функция-событие OnParse
Событие предназначено для парсинга пакетов с кодированными первыми
байтами размера пакета, либо вообще без них. (например, протоколы WOW, PW, Cabal ..)
имеет возвращаемую величину boolean.

Код:

function OnParse : boolean; // функция-событие на парсинг буфера пакетов.
// эта ф-ция вызывается при получении пакетов со стека TCP
//  в виде буфера содержащих один или несколько 'склееных' пакетов.                               
// буфер '_dParseBuff' (на вход и на выход),
// выделенный из буфера пакет '_dParsePck' (выход)
// флаг направления '_dFromServ'
// ф-ция не обязательна и может отсутствовать в скриптах.
begin
  ...
  // result :=  false; - автопарсинг после ф-ции не производится.                                                                                                                                                                                                               
  ...
end;
на данный момент последовательность вызова событий и обработки пакета:
0. пришел пакет в буфер
1. вызов ф-ции события OnParse (_dParseBuff >> _dParsePck > _gBuff)
2. -
3. автоматический парсинг пакета из буфера (если был разрешен)
4. автоматическое определение протокола, ключей (если включено автоопределение)
5. вызов ф-ции события OnDeCode
6. -
7. автоматическое декодирование пакета (если включено автодекодирование)
8. вызов ф-ции события OnDeCodeAlt
9. далее запускаются все три скрипта по порядку
10. фильтрование
11. запись в лог пакетов (_gBuff, _gOutBuff и пакетов отосланных в скриптах)
12. вызов ф-ции события OnEnCodeAlt
13. автоматическое кодирование (если включено автодекодирование)
14. -
15. вызов ф-ции события OnEnCode
16. запись в лог текста (writelog, writelogln, writeloghexb)
17. отсылаеся _gOutBuff, если не был блокирован в скриптах.
(прочерками отмечены не опубликованные позиции)

!! Внимание !!
! в OnEnCodeAlt (по аналогии с OnEnCode) запрещено использовать ф-ции gSys.EnSendC
и gSys.EnSendS во избежание замкнутой рекурсии (так как эти ф-ции генерят эти же события)
так же, ф-ции события OnEnCode/OnEnCodeAlt вызываются при отсылке пакетов вручную.

нз =)