[Shadow]

Я чего-то не понял, как код теперь всталять, если ограничение в 5000 символов???

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
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.