- Рег
- 25 Сен 2015
- Сообщения
- 1
- Реакции
- 0
Суть дела в том что у меня есть скрипт на ТТ работает все идеально! Но проблема в том чо на сервере l2adrenalin.com стоит капча на все подряд!!! Помогите мне разобраться с этой капчей ! И желательно дописать ее в Скрипт ... )
Капча там вроде как числовая но еще есть и буквы...
procedure UseItem(a: string);
begin
while (not Engine.UseItem(a)) do
begin
Engine.UseItem(a);
Delay(1000);
end;
end;
procedure DlgSel(const Txt: string; const TimeOut : integer = 1000);
begin
while (not Engine.DlgSel(Txt)) do
begin
Engine.DlgSel(Txt);
Delay(1000);
end;
end;
procedure Dialog();
begin
while (not Engine.DlgOpen) do
begin
Engine.DlgOpen;
Delay(1000);
end;
end;
procedure beg(a, b, c : integer);
begin
while (user.DistTo(a,b,c)>100) do
begin
Engine.MoveTo(a,b,c);
Delay(1000);
end;
end;
procedure Target(a: string);
begin
while (not (Engine.SetTarget(a))) do
begin
Engine.SetTarget(a);
Delay(1000);
end;
end;
procedure DlgSel1(Index: integer; const TimeOut : integer = 1000);
begin
while (not Engine.DlgSel(Index)) do
begin
Engine.DlgSel(Index);
Delay(1000);
end;
end;
begin
while (not user.dead) do
begin
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-1.htm');
DELAY(1000);
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DELAY(1000);
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
Engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
DELAY(1000);
Engine.MoveTo(149344, -112576, -2064);
Engine.MoveTo(149323, -112566, -2064);
Engine.MoveTo(148769, -112358, -2144);
Engine.MoveTo(148006, -112933, -2136);
Engine.MoveTo(147680, -113248, -2112);
Engine.MoveTo(147648, -113239, -2112);
Engine.MoveTo(147535, -113334, -2112);
Target('Pulin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
Engine.bypasstoserver('Quest 621_EggDelivery 31543-1.htm');
DELAY(1000);
Target('Beolin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31547-1.htm');
DELAY(1000);
Engine.MoveTo(147760, -113088, -2096);
Engine.MoveTo(148060, -113003, -2136);
Engine.MoveTo(148730, -112711, -2128);
Engine.MoveTo(148979, -112587, -2096);
Engine.MoveTo(149237, -112508, -2064);
Engine.MoveTo(149439, -112570, -2064);
Target('Naff');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
Engine.bypasstoserver('Quest 621_EggDelivery 31544-1.htm');
DELAY(1000);
Target('Kuber');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31546-1.htm');
DELAY(1000);
Engine.MoveTo(149184, -112496, -2064);
Engine.MoveTo(149159, -112483, -2064);
Engine.MoveTo(148120, -112955, -2136);
Engine.MoveTo(147824, -113104, -2120);
Engine.MoveTo(147776, -113088, -2104);
Engine.MoveTo(147773, -113088, -2096);
Engine.MoveTo(147551, -113179, -2112);
Target('Crocus');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31545-1.htm');
DELAY(1000);
Target('Crocus');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31545-1.htm');
DELAY(1000);
Engine.MoveTo(147680, -113120, -2112);
Engine.MoveTo(147744, -113056, -2104);
Engine.MoveTo(147760, -113056, -2104);
Engine.MoveTo(148378, -112928, -2136);
Engine.MoveTo(148905, -112627, -2096);
Engine.MoveTo(149071, -112570, -2064);
Engine.MoveTo(149310, -112519, -2064);
Engine.MoveTo(149435, -112562, -2064);
Target('Kuber');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31546-1.htm');
DELAY(1000);
Target('Naff');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31544-1.htm');
DELAY(1000);
Engine.MoveTo(149144, -112485, -2064);
Engine.MoveTo(148222, -112950, -2136);
Engine.MoveTo(147850, -113147, -2127);
Engine.MoveTo(147586, -113327, -2112);
Engine.MoveTo(147519, -113338, -2112);
Target('Beolin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31547-1.htm');
DELAY(1000);
Target('Pulin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31543-1.htm');
DELAY(1000);
Engine.MoveTo(147760, -113088, -2096);
Engine.MoveTo(148498, -112742, -2136);
Engine.MoveTo(148875, -112593, -2088);
Engine.MoveTo(149095, -112532, -2064);
Engine.MoveTo(149349, -112561, -2064);
Engine.MoveTo(149486, -112680, -2064);
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-3.htm');
DELAY(1000);
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31521-3.htm');
DELAY(1000);
Engine.MoveTo(149213, -112511, -2064);
Engine.MoveTo(148559, -112892, -2128);
Engine.MoveTo(148286, -113291, -2112);
Target('Lietta');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31267-2.htm');
DELAY(1000);
Target('Valentine');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31584-2.htm');
DELAY(1000);
Engine.MoveTo(148799, -112819, -2096);
Engine.MoveTo(149167, -112512, -2064);
Engine.MoveTo(149456, -112704, -2064);
Engine.MoveTo(149483, -112705, -2064);
end;
end.
begin
while (not Engine.UseItem(a)) do
begin
Engine.UseItem(a);
Delay(1000);
end;
end;
procedure DlgSel(const Txt: string; const TimeOut : integer = 1000);
begin
while (not Engine.DlgSel(Txt)) do
begin
Engine.DlgSel(Txt);
Delay(1000);
end;
end;
procedure Dialog();
begin
while (not Engine.DlgOpen) do
begin
Engine.DlgOpen;
Delay(1000);
end;
end;
procedure beg(a, b, c : integer);
begin
while (user.DistTo(a,b,c)>100) do
begin
Engine.MoveTo(a,b,c);
Delay(1000);
end;
end;
procedure Target(a: string);
begin
while (not (Engine.SetTarget(a))) do
begin
Engine.SetTarget(a);
Delay(1000);
end;
end;
procedure DlgSel1(Index: integer; const TimeOut : integer = 1000);
begin
while (not Engine.DlgSel(Index)) do
begin
Engine.DlgSel(Index);
Delay(1000);
end;
end;
begin
while (not user.dead) do
begin
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-1.htm');
DELAY(1000);
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DELAY(1000);
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
Engine.bypasstoserver('Quest 621_EggDelivery 31521-1.htm');
DELAY(1000);
Engine.MoveTo(149344, -112576, -2064);
Engine.MoveTo(149323, -112566, -2064);
Engine.MoveTo(148769, -112358, -2144);
Engine.MoveTo(148006, -112933, -2136);
Engine.MoveTo(147680, -113248, -2112);
Engine.MoveTo(147648, -113239, -2112);
Engine.MoveTo(147535, -113334, -2112);
Target('Pulin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
Engine.bypasstoserver('Quest 621_EggDelivery 31543-1.htm');
DELAY(1000);
Target('Beolin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31547-1.htm');
DELAY(1000);
Engine.MoveTo(147760, -113088, -2096);
Engine.MoveTo(148060, -113003, -2136);
Engine.MoveTo(148730, -112711, -2128);
Engine.MoveTo(148979, -112587, -2096);
Engine.MoveTo(149237, -112508, -2064);
Engine.MoveTo(149439, -112570, -2064);
Target('Naff');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
Engine.bypasstoserver('Quest 621_EggDelivery 31544-1.htm');
DELAY(1000);
Target('Kuber');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31546-1.htm');
DELAY(1000);
Engine.MoveTo(149184, -112496, -2064);
Engine.MoveTo(149159, -112483, -2064);
Engine.MoveTo(148120, -112955, -2136);
Engine.MoveTo(147824, -113104, -2120);
Engine.MoveTo(147776, -113088, -2104);
Engine.MoveTo(147773, -113088, -2096);
Engine.MoveTo(147551, -113179, -2112);
Target('Crocus');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31545-1.htm');
DELAY(1000);
Target('Crocus');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31545-1.htm');
DELAY(1000);
Engine.MoveTo(147680, -113120, -2112);
Engine.MoveTo(147744, -113056, -2104);
Engine.MoveTo(147760, -113056, -2104);
Engine.MoveTo(148378, -112928, -2136);
Engine.MoveTo(148905, -112627, -2096);
Engine.MoveTo(149071, -112570, -2064);
Engine.MoveTo(149310, -112519, -2064);
Engine.MoveTo(149435, -112562, -2064);
Target('Kuber');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка Яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31546-1.htm');
DELAY(1000);
Target('Naff');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31544-1.htm');
DELAY(1000);
Engine.MoveTo(149144, -112485, -2064);
Engine.MoveTo(148222, -112950, -2136);
Engine.MoveTo(147850, -113147, -2127);
Engine.MoveTo(147586, -113327, -2112);
Engine.MoveTo(147519, -113338, -2112);
Target('Beolin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31547-1.htm');
DELAY(1000);
Target('Pulin');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31543-1.htm');
DELAY(1000);
Engine.MoveTo(147760, -113088, -2096);
Engine.MoveTo(148498, -112742, -2136);
Engine.MoveTo(148875, -112593, -2088);
Engine.MoveTo(149095, -112532, -2064);
Engine.MoveTo(149349, -112561, -2064);
Engine.MoveTo(149486, -112680, -2064);
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка ликера');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31521-3.htm');
DELAY(1000);
Target('Jeremy');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
Engine.DlgSel('Доставка яиц');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31521-3.htm');
DELAY(1000);
Engine.MoveTo(149213, -112511, -2064);
Engine.MoveTo(148559, -112892, -2128);
Engine.MoveTo(148286, -113291, -2112);
Target('Lietta');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 622_DeliveryOfSpecialLiquor 31267-2.htm');
DELAY(1000);
Target('Valentine');
DELAY(1000);
Engine.DlgOpen();
DlgSel('Q');
DELAY(1000);
//Print(Engine.DlgText);
Engine.bypasstoserver('Quest 621_EggDelivery 31584-2.htm');
DELAY(1000);
Engine.MoveTo(148799, -112819, -2096);
Engine.MoveTo(149167, -112512, -2064);
Engine.MoveTo(149456, -112704, -2064);
Engine.MoveTo(149483, -112705, -2064);
end;
end.