Вот и сам скрипт как я и обещал только чейчас он уже не работает там где стоит фикс (нельзя брать задания стоя далеко от NPC) таким образом его придется модифицировать чтобы чар бегал брал задания рядом с NPC мне с этим лень было заморачиваться может моя новая идея все упростит.
Код:
var i,j,k,a:integer;
start,mission1,work:boolean;
MissionArr:Array [0..3] of string;
SendBufArr:Array [0..16] of string;
procedure Init; //Вызывается при включении скрипта
begin
i:=0; j:=1; a:=0; k:=0;
start:=false;
Mission1:=false;
work:=false;
//Заполнение пакетов производства для гладиатора урв мастерства для заказа 260 минимум
SendBufArr[0]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 30 00 00 00 00 00 00 00 49 87 DD 0A 30 00 00 00 00 00 00 00 D3 D6 18 0A 10 00 00 00 00 00 00 00 DC D6 18 0A 10 00 00 00 00 00 00 00 D9 D6 18 0A 30 00 00 00 00 00 00 00 ';
SendBufArr[1]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 2D 00 00 00 00 00 00 00 49 87 DD 0A 2D 00 00 00 00 00 00 00 D3 D6 18 0A 0F 00 00 00 00 00 00 00 DC D6 18 0A 0F 00 00 00 00 00 00 00 D9 D6 18 0A 2D 00 00 00 00 00 00 00 ';
SendBufArr[2]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 2A 00 00 00 00 00 00 00 49 87 DD 0A 2A 00 00 00 00 00 00 00 D3 D6 18 0A 0E 00 00 00 00 00 00 00 DC D6 18 0A 0E 00 00 00 00 00 00 00 D9 D6 18 0A 2A 00 00 00 00 00 00 00 ';
SendBufArr[3]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 27 00 00 00 00 00 00 00 49 87 DD 0A 27 00 00 00 00 00 00 00 D3 D6 18 0A 0D 00 00 00 00 00 00 00 DC D6 18 0A 0D 00 00 00 00 00 00 00 D9 D6 18 0A 27 00 00 00 00 00 00 00 ';
SendBufArr[4]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 24 00 00 00 00 00 00 00 49 87 DD 0A 24 00 00 00 00 00 00 00 D3 D6 18 0A 0C 00 00 00 00 00 00 00 DC D6 18 0A 0C 00 00 00 00 00 00 00 D9 D6 18 0A 24 00 00 00 00 00 00 00 ';
SendBufArr[5]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 21 00 00 00 00 00 00 00 49 87 DD 0A 21 00 00 00 00 00 00 00 D3 D6 18 0A 0B 00 00 00 00 00 00 00 DC D6 18 0A 0B 00 00 00 00 00 00 00 D9 D6 18 0A 21 00 00 00 00 00 00 00 ';
SendBufArr[6]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 1E 00 00 00 00 00 00 00 49 87 DD 0A 1E 00 00 00 00 00 00 00 D3 D6 18 0A 0A 00 00 00 00 00 00 00 DC D6 18 0A 0A 00 00 00 00 00 00 00 D9 D6 18 0A 1E 00 00 00 00 00 00 00 ';
SendBufArr[7]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 1B 00 00 00 00 00 00 00 49 87 DD 0A 1B 00 00 00 00 00 00 00 D3 D6 18 0A 09 00 00 00 00 00 00 00 DC D6 18 0A 09 00 00 00 00 00 00 00 D9 D6 18 0A 1B 00 00 00 00 00 00 00 ';
SendBufArr[8]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 18 00 00 00 00 00 00 00 49 87 DD 0A 18 00 00 00 00 00 00 00 D3 D6 18 0A 08 00 00 00 00 00 00 00 DC D6 18 0A 08 00 00 00 00 00 00 00 D9 D6 18 0A 18 00 00 00 00 00 00 00 ';
SendBufArr[9]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 15 00 00 00 00 00 00 00 49 87 DD 0A 15 00 00 00 00 00 00 00 D3 D6 18 0A 07 00 00 00 00 00 00 00 DC D6 18 0A 07 00 00 00 00 00 00 00 D9 D6 18 0A 15 00 00 00 00 00 00 00 ';
SendBufArr[10]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 12 00 00 00 00 00 00 00 49 87 DD 0A 12 00 00 00 00 00 00 00 D3 D6 18 0A 06 00 00 00 00 00 00 00 DC D6 18 0A 06 00 00 00 00 00 00 00 D9 D6 18 0A 12 00 00 00 00 00 00 00 ';
SendBufArr[11]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 0F 00 00 00 00 00 00 00 49 87 DD 0A 0F 00 00 00 00 00 00 00 D3 D6 18 0A 05 00 00 00 00 00 00 00 DC D6 18 0A 05 00 00 00 00 00 00 00 D9 D6 18 0A 0F 00 00 00 00 00 00 00 ';
SendBufArr[12]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 0C 00 00 00 00 00 00 00 49 87 DD 0A 0C 00 00 00 00 00 00 00 D3 D6 18 0A 04 00 00 00 00 00 00 00 DC D6 18 0A 04 00 00 00 00 00 00 00 D9 D6 18 0A 0C 00 00 00 00 00 00 00 ';
SendBufArr[13]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 09 00 00 00 00 00 00 00 49 87 DD 0A 09 00 00 00 00 00 00 00 D3 D6 18 0A 03 00 00 00 00 00 00 00 DC D6 18 0A 03 00 00 00 00 00 00 00 D9 D6 18 0A 09 00 00 00 00 00 00 00 ';
SendBufArr[14]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 06 00 00 00 00 00 00 00 49 87 DD 0A 06 00 00 00 00 00 00 00 D3 D6 18 0A 02 00 00 00 00 00 00 00 DC D6 18 0A 02 00 00 00 00 00 00 00 D9 D6 18 0A 06 00 00 00 00 00 00 00 ';
SendBufArr[15]:='E3 57 80 80 8B D1 F0 08 7B 2C 3D 09 59 01 00 00 05 00 6A 86 DD 0A 03 00 00 00 00 00 00 00 49 87 DD 0A 03 00 00 00 00 00 00 00 D3 D6 18 0A 01 00 00 00 00 00 00 00 DC D6 18 0A 01 00 00 00 00 00 00 00 D9 D6 18 0A 03 00 00 00 00 00 00 00 ';
end;