скрипт

[SuFF]

Всем добрый, сори если темка уже повторялась.

Хотел бы найти скрипт чтобы боты делали тп ( или через гк или через альт+б) на точку фарма все вместе, а не руками их вести. пример:

допустим у меня заведена фулка. Я одним окном делаю тп куда мне надо и другие окна прыгают туда же.

Прощу помочь найти скрипт или ищу человечка который смог написать скрипт в долгу не останусь.

 

[Алеку]

можно реализовать по другому есть скрипт на баф по команде переделать его так что бы они по каманде брали таргет на нпц и клацали нужную строчку

 

[Алеку]

begin
while Engine.Status = lsOnline do begin
if User.Dead then   
begin
Engine.FaceControl(0,false);
delay(3000);                        
Engine.gohome;                     
delay(10000);  
if ChatMessage.Unread then 
begin 
if ((pos('тп соа',ChatMessage.Text)>0) or (pos('пп баф',ChatMessage.Text)>0) or (pos('ТП СОА',ChatMessage.Text)>0) or (pos('ФАСТОМ ЗАЛЕТАЕМ',ChatMessage.Text)>0) or (pos('тп ',ChatMessage.Text)>0)) then 
begin  
Engine.SetTarget(32734); // берем в таргет гк   
Engine.DlgOpen(); //открываем диалоговое окно           
Engine.DlgSel(1);//тпшимся 
end; 
begin
Engine.FaceControl(0,true);
end; 
delay(2000); 
end; 
end.

 

[Алеку]

ну как то так

 

[SuFF]

@Алеку, а чтобы через альт+б есть варик клацать?

 

[Алеку]

да

 

[Алеку]

begin
while Engine.Status = lsOnline do begin
if User.Dead then   
begin
Engine.FaceControl(0,false);
delay(3000);                        
Engine.gohome;                     
delay(10000);  
if ChatMessage.Unread then
begin
if ((pos('тп соа',ChatMessage.Text)>0) or (pos('пп баф',ChatMessage.Text)>0) or (pos('ТП СОА',ChatMessage.Text)>0) or (pos('ФАСТОМ ЗАЛЕТАЕМ',ChatMessage.Text)>0) or (pos('тп ',ChatMessage.Text)>0)) then
begin  
Engine.BypassToServer('_bbshome', True);//ЛОВИМ БАЙПАС ТП И ВСТАВЛЯЕМ СЮДА
Engine.BypassToServer('13', True);
Engine.BypassToServer('16 ы Персонаж', True);end;
begin
Engine.FaceControl(0,true);
end;
delay(2000);
end;
end.

 

[Алеку]

begin
while Engine.Status = lsOnline do begin
if User.Dead then
begin
Engine.FaceControl(0,false);
delay(3000);
Engine.gohome;
delay(10000);
if ChatMessage.Unread then
begin
if (pos('тп соа',ChatMessage.Text)>0) then
begin
Engine.SetTarget(30233);
// открывем диалоговое окно и прожимаем строки ( у нас сначала 2 потом 15)
Engine.DlgOpen();
Engine.DlgSel(1);
Engine.DlgSel(7);
if ((pos('тп фог',ChatMessage.Text)>0) then
begin Engine.SetTarget(30233);
// открывем диалоговое окно и прожимаем строки ( у нас сначала 2 потом 15)
Engine.DlgOpen();
Engine.DlgSel(1);
Engine.DlgSel(7);
if ((pos('тп камаели',ChatMessage.Text)>0) then
begin Engine.SetTarget(30233);
// открывем диалоговое окно и прожимаем строки ( у нас сначала 2 потом 15)
Engine.DlgOpen();
Engine.DlgSel(1);
Engine.DlgSel(7);begin
Engine.FaceControl(0,true);
end;
delay(2000);
end;
end.
так вот переделал смотри тут только переделать под нужные телепорты ид и строчки тп изменить


begin
while Engine.Status = lsOnline do begin
if User.Dead then
begin
Engine.FaceControl(0,false);
delay(3000);
Engine.gohome;
delay(10000);
if ChatMessage.Unread then
begin
if ((pos('тп альт б годард',ChatMessage.Text)>0) or then
begin
Engine.BypassToServer('_bbshome', True);
Engine.BypassToServer('telleport', True);
Engine.BypassToServer('163;index;36', True);Engine.FaceControl(0,true);
end;
delay(2000);
end;
end.
пример альт б тп