функция send не работает в скрипте

[Dizel933]

Почему бот в игре не едет

Opt("MouseCoordMode", 2)
Opt("PixelCoordMode", 2)
opt("SendAttachMode", 0)
Opt("MouseClickDelay", 2000)
Opt("SendKeyDelay", 1500)
Opt("SendKeyDownDelay", 1500)
Opt("CaretCoordMode", 2)
opt("colormode", 0)

WinActivate( "W.o.T. Client")

While WinActive( "W.o.T. Client")
	If PixelGetColor(705, 302) == 0x030202 Then MouseClick("left", 667, 369)
If PixelGetColor(728, 443) == 0x010101 Then MouseClick("left", 722, 439)
If PixelGetColor(673, 75) And PixelGetColor(702, 486) == 0x487012 then MouseClick("left", 672, 44, 2)
	If PixelGetColor(639, 482) == 0x990202 and PixelGetColor(134, 662) == 0xCFC8A9 then MouseClick("left",322, 663,1)
		If PixelGetColor(639, 482) == 0x990202 and PixelGetColor(304, 662) == 0xCFC8A9 Then MouseClick("left", 166,663, 1)
If pixelGetColor(218, 23) == 0x6BB807 Then
	If PixelGetColor(121, 560) == 0xFC0A08 or PixelGetColor(137, 560) == 0xEC0D0B Then Send( "{ESC}" )
		EndIf
    Select
Case PixelGetColor(638, 456) == 0x949485
	Sleep(2000)
	If PixelGetColor(638, 456) == 0x949485 then send ("{enter}")
Case PixelGetColor( 304, 149) == 0xFEFBE0
	If	PixelGetColor( 304, 149) == 0xFEFBE0 Then Send("{Esc}")
Case PixelGetColor(217, 24) == 0x68B407 
If PixelGetColor(217, 24) == 0x68B407 Then
	Sleep(300000)
	MouseClick("left")	
	EndIf
Case PixelGetColor(549, 318) == 0x020201
	If PixelGetColor(549, 318) == 0x020201 Then MouseClick("left", 821, 440,4)
Case PixelGetColor(155, 560) == 0x312F27
	Sleep(1000)
    If 	PixelGetColor(155, 560) == 0x312F27 or PixelGetColor(153, 576) == 0x3A382F  then 
		Send("ккккаа")
		send("{left 4}" )
		send("{right 5}" )
		Send("w")
		EndIf
	EndSelect
	WEnd

 

[Belfigor]

Re: Почему бот в игре не едет и ещё напишите какие ещё ошибки я допустил

Предупреждение

За нарушение правил форума (пункт Б.5):

Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.

Как правильно называть темы

"Почему бот в игре не едет и ещё напишите какие ещё ошибки я допустил" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.

Первая ошибка - кривое название темы.

 

[DelphiExpert]

Re: Почему функцыя send не работает?

функцыя

поправь.


Добавлено:

Сообщение автоматически объединено: 16 Сен 2011

Вот посмотри как вызывается send

WinActivate('W.o.T. Client');Делаем активным окно клиента
Opt("MouseCoordMode",2);Координаты окна для мышки
Opt("PixelCoordMode",2);Координаты для пикселя и его цвета
Sleep(25000);Ждём загрузку окна
MouseClick('left',467,537,1);Вход в игру
MouseClick('left',467,537,1);Вход в игру
MouseClick('left',467,537,1);Вход в игру
Sleep(7000);Ждать 7 сек
While 1
    if PixelGetColor(809,41,1) == 0xBC6004 Then ;Видит золотые монеты
        sleep(2500)
        MouseClick('left',169,635,1);Выбор 1ого танка
        MouseClick('left',169,635,1);Выбор 1ого танка
        Sleep(2500)
        if PixelGetColor(466,37,1) == 0xC32318 Then;Активно
            Sleep(2500);
            MouseClick('left',466,37,1);Вход в бой
            MouseClick('left',466,37,1);Вход в бой
            MouseClick('left',466,37,1);Вход в бой

EndIf
if PixelGetColor(501,35,1) == 0xADAF97 Then ;Неактивно
    Sleep(2500)
    MouseClick('left',337,641,1);Выбор 2ого танка
    MouseClick('left',337,641,1);Выбор 2ого танка
    Sleep(2500)
EndIf
if PixelGetColor(466,37,1) == 0xC32318 Then;Активно
    Sleep(2500);
    MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
EndIf
if PixelGetColor(520,35,1) == 0x91947E Then ;Неактивно
    Sleep(2500)
    MouseClick('left',508,630,1);Выбор 3го танка
    MouseClick('left',508,630,1);Выбор 3го танка
    Sleep(2500)
EndIf
if PixelGetColor(466,37,1) == 0xC32318 Then;Активно
    Sleep(2500);
    MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
    MouseClick('left',466,37,1);Вход в бой
EndIf
if PixelGetColor(520,35,1) == 0xADAF97 Then ;Неактивно
    Sleep(2500)
EndIf
EndIf
    if PixelGetColor(68,160,1) == 0x544F3F Then;выход через статистику
        sleep(2000)
        send('{esc}')
    EndIf
    if PixelGetColor(753,714,1) == 0xFB6400 Then; выход если взорван
        sleep(8000)
        Send('{esc}')
        Sleep(2000)
        MouseClick('left',456,359,1)
        MouseClick('left',456,359,1)
        MouseClick('left',456,359,1)
        Sleep(2000)
        MouseClick('left',456,359,1)
        MouseClick('left',456,359,1)
        MouseClick('left',456,359,1)
        Sleep(2000)
        MouseClick('left',538,427,1)
        MouseClick('left',538,427,1)
        MouseClick('left',538,427,1)
        Sleep(2000)
        MouseClick('left',538,427,1)
        MouseClick('left',538,427,1)
        MouseClick('left',538,427,1)
    EndIf
        sleep(1000)
        Send('к')
        Sleep(1000)
        Send('к')
        sleep(1000)
        Send('к')
        Sleep(1000)
    WEnd