[HORRIBLE]

читать дальше »

Код:

#include <IE.au3>

HotKeySet("{ESC}", "Terminate")

$oIE = _IECreate ("http://s4.sadowajaimperija.ru/main.php?page=garden")
WinSetState ($oIE , "", @SW_MAXIMIZE)

;жмем на цветок, в данном случаем морковь
$oForm = _IEGetObjById ($oIE, "glass6")
_IEAction ($oForm, "click")
;------------
$point_g = _IEGetObjById ($oIE, "gamearea_spacer")
Msgbox(0,"", "Нужно закрыть подсказку от гнома, которая на карте....")
$x = _IEPropertyGet($point_g, "screenx") + 50
$y = _IEPropertyGet($point_g, "screeny") + 40
$next_row = 1
Do
;определяем сколько штук
$num = _IEGetObjById ($oIE, "t6")
;Msgbox(0,"", _IEPropertyGet($num, "innertext"))

;двигаем мышкой по карте
MouseMove($x,$y)

;поиск куда сажаем
$msg_gnom = _IEGetObjById ($oIE, "sprcontent")
$text = StringReplace( _IEPropertyGet($msg_gnom, "innertext"), "удалить", "")
If @extended > 0 then 
	ToolTip("Сажать нельзя",100,100)
Else
	ToolTip("Сажать можно",100,100)
	MouseClick("left",$x,$y)
EndIf

; изменение координат
$x += 40
$next_row += 1
If $next_row > 17	then
$x  =  _IEPropertyGet($point_g, "screenx") + 50
$y += 40
$next_row = 1
EndIf
;==========================
sleep(Random(10,1000))
Until _IEPropertyGet($num, "innertext") = 0

Func Terminate()
    Exit 0
EndFunc

Только сперва нужно закрыть подсказку от гнома.....только после этого начнет сажать....
Для примера там морковку сажает на первое попавшееся место на карте.