Я чего-то не понял, как код теперь всталять, если ограничение в 5000 символов???
delphi Код:
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//****************************************************************************
//не обрабатываем пустые пакеты
if pck='' then exit;
//****************************************************************************
if FromClient and (pck=#$34#$02#$00#$00#$00) then begin
if Not TimerRun then begin
Timer1.Enabled:=True;
TimerRun:=True;
DebugMsg('Timer Running');
end;
end;
if ReadyChange then begin
NeedToChange:=False;
NeedToBuy:=False;
if (ConnectName=Name) and FromServer then begin
DebugMsg('S>Need to Change. Timer Stop');
Timer1.Enabled:=False;
case pck[1] of
//s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
#$19: begin
//DebugMsg(IntToStr(ReadD(4)));
//шлем запрос выбора пункта - продажа c21=RequestBypassToServer:s(Cmd)
delay(150);
RequestByPassToServer('menu_select?ask=-11&reply=19001');
DebugMsg('C>Пакет RequestBypassToServer');
end;
#$D0: begin
Timer1.Enabled:=False;
DebugMsg('S>Пакет MultiSellList #$D0');
RequestMultiSellChoose(19001, 3, 1);
delay(350);
ReadyChange:=False;
MenuReturn;
NeedToBuy:=True;
Timer1.Enabled:=True;
end;
end;
end;
end;
if ReadyBuy then begin
NeedToChange:=False;
NeedToBuy:=False;
if (ConnectName=Name) and FromServer then begin
DebugMsg('S>Need to Buy. Timer Stop');
Timer1.Enabled:=False;
case pck[1] of
//s0F=NpcHtmlMessage:d(MessageID)s(HTML)d(d)
#$19: begin
//DebugMsg(IntToStr(ReadD(4)));
//шлем запрос выбора пункта - продажа c21=RequestBypassToServer:s(Cmd)
delay(150);
RequestByPassToServer('menu_select?ask=-9&reply=15006');
DebugMsg('C>Пакет RequestBypassToServer');
end;
#$D0: begin
Timer1.Enabled:=False;
DebugMsg('S>Пакет MultiSellList #$D0');
RequestMultiSellChoose(15006, 11, 1333);
delay(350);
ReadyBuy:=False;
MenuReturn;
NeedToChange:=True;
Timer1.Enabled:=True;
end;
end;
end;
end;
end.