Что нового

[World Of Tanks] помогите найти скрипт на арту?

Slon

Новичок
Сообщения
1
Репутация
0
Друзья, нет ли тут где скрипта на арту?... (поиск, к сожалению, ничего не дал)
Интересует только прострел в бою, без заходов.
 
Сообщения
47
Репутация
-1
в соседней теме
цитирую:
************************************************
Бот для арты.
Иногда попадает.
1 Для 60% наведения необходимо сменить прицел (по умолчанию в нем присутствует тот же цвет что и танки противника) -в итоге получаться что он ,часто наводиться сам на себя, пока не зарядится.
2 глобальное решение -пока руки не доходят Надо поменять цвет ромбика противника с красного на голубой :laugh:

и главное!!!!!!!!

Как засчитать количество(время) нажатие кнопки влево(или вправо это пока не важно) что бы допустим мышку сдвинуть с одних координат на точные другие координаты(предположем с координат 300,300 на 300,340) - как только кто подскажет будет 100% рабочий бот!!!
Код:
For $a=1 To 2000000
   
    $esc =PixelSearch( 1168, 240, 1176, 246, 0x393429, 10 )
    if  Not @error Then
    ;   Send("{Esc}")
    Sleep (200)
    EndIf
   
$Gold =PixelSearch( 1340, 757, 1391, 783, 0xBD8E4A, 10 )
 If Not @error Then
MouseMove(731, 70)
MouseClick( "left" )
EndIf

$coord = PixelSearch( 1222, 681, 1439, 892, 0xFF0000, 10 )
If Not @error Then
 
   Send("{LCTRL}")
   MouseMove( $coord[0],$coord[1])
   MouseClick( "right" )

For $G=1 To 80
$co = PixelSearch( 22, 38, 1431, 663, 0x2920FF, 10 );0x2920FF

If Not @error Then
MouseMove( $co[0],$co[1]); меняющиещя координаты цели
;модуль точного наведения
$CX=724 ; координаты центра экрана
$CY=404 ;координаты центра экрана
If $co[0]<$CX Then
    Send("{LEFT down}")
Else
    Send("{LEFT up}")
EndIf

If $co[0]>$CX Then
    Send("{RIGHT down}")
Else
    Send("{RIGHT up}")
EndIf

If $co[1]>$CY Then
    Send("{DOWN down}")
Else
    Send("{DOWN up}")
EndIf

If $co[1]<$CY Then
    Send("{UP down}")
Else
    Send("{UP up}")
EndIf
If $co[0]=$CX And $co[1]=$CY Then
   
   
Sleep (200)
MouseClick( "left" )
 ;If $G>48 Then MsgBox(0, "X and Y are:", $co[0] & "," & $co[1])
     ;MouseClick( "left" )
    ;EndIf

EndIf
;If $G>70 Then
    ;MouseClick( "left" )
    ;MsgBox(0, "X and Y are:", $co[0] & "," & $co[1])
    ;EndIf
EndIf
  Next
 
;MouseClick( "left" )


 
 ;Send("{LCTRL down}")
    ;MsgBox(0, "X and Y are:", $coord[0] & "," & $coord[1])
EndIf
Next
провериш скажишь работает или нет. я не проверял!

хотя нормального рабочего исходника не кто так просто не выложит!

P/S:
в инете я видел впринципе рабочий бот для арты. сама наводит, сама стреляет и т.д. ссылку давать не буду, а то за рекламу другого сайта сочтут. скажу только название "FarmBot"
 
Верх