Небоскрёбы / nebo.mobi - Бот

[dancewelove]

Сайт игры http://nebo.mobi

- Собирает выручку
- Закупает товар ( в приоритете самый дорогой )
- Выкладывает товар
- Поднимает посетителей на лифте

Пользуйтесь на здоровье

#include <IE.au3>
$oIE = _IECreate ("http://nebo.mobi")
$html = _IEBodyReadHTML ($oIE)
While 1
If StringRegExp($html, "http://static.nebo.mobi/images/icons/tb_sold.png") Then
   _IEImgClick($oIE, "http://static.nebo.mobi/images/icons/tb_sold.png")
   Sleep(1000)
   $text = _IEBodyReadText($oIE)
   While StringRegExp($text, "Собрать выручку!", 0)
   _IELinkClickByText($oIE, "Собрать выручку!")
   Sleep(1000)
   $text = _IEBodyReadText($oIE)
   WEnd
   $html = _IEBodyReadHTML ($oIE)
ElseIf StringRegExp($html, "http://static.nebo.mobi/images/icons/tb_stocked.png") Then
   _IEImgClick($oIE, "http://static.nebo.mobi/images/icons/tb_stocked.png")
   Sleep(1000)
   $text = _IEBodyReadText($oIE)
   While StringRegExp($text, "Выложить товар", 0)
   _IELinkClickByText($oIE, "Выложить товар")
   Sleep(1000)
   $text = _IEBodyReadText($oIE)
   WEnd
   $html = _IEBodyReadHTML ($oIE)
ElseIf StringRegExp($html, "http://static.nebo.mobi/images/icons/tb_empty.png") Then
   _IEImgClick($oIE, "http://static.nebo.mobi/images/icons/tb_empty.png")
   Sleep(1000)
   $text = _IEBodyReadText($oIE)
   While StringRegExp($text, "Закупить товар", 0)
   _IELinkClickByText($oIE, "Закупить товар")
   Sleep(1000)
   $text = _IEBodyReadText($oIE)
   WEnd
   While StringRegExp($text, "Закупить за", 0)
   $oLinks = _IELinkGetCollection($oIE)
	  For $oLink In $oLinks
		 If StringInStr($oLink.href, "floorPanel:productC") Then
			_IEAction($oLink, "click")
			Sleep(1000)
			ExitLoop
		 EndIf
	  Next
	  For $oLink In $oLinks
		 If StringInStr($oLink.href, "floorPanel:productB") Then
			_IEAction($oLink, "click")
			Sleep(1000)
			ExitLoop
		 EndIf
	  Next
	  For $oLink In $oLinks
		 If StringInStr($oLink.href, "floorPanel:productA") Then
			_IEAction($oLink, "click")
			Sleep(1000)
			ExitLoop
		 EndIf
	  Next
   $text = _IEBodyReadText($oIE)
   WEnd
   $html = _IEBodyReadHTML ($oIE)
ElseIf StringRegExp($html, "Поднять на лифте") Then
   _IELinkClickByText($oIE, "Поднять на лифте")
   Sleep(1000)
   $html = _IEBodyReadText($oIE)
   While StringRegExp($html, "Поднять лифт", 0)
	  $oLinks = _IELinkGetCollection($oIE)
	  For $oLink In $oLinks
		 If StringInStr($oLink.href, "liftBlock:upLink") Then
			_IEAction($oLink, "click")
			Sleep(1000)
			ExitLoop
		 EndIf
	  Next
	  $html = _IEBodyReadText($oIE)
	  If StringRegExp($html, "Получить чаевые") Then
		 _IELinkClickByText($oIE, "Получить чаевые")
		 Sleep(1000)
		 $html = _IEBodyReadHTML ($oIE)
	  EndIf
   $html = _IEBodyReadHTML ($oIE)
   WEnd
Else
   _IENavigate ($oIE, "http://nebo.mobi/home")
   Sleep(3000)
   $html = _IEBodyReadHTML ($oIE)
EndIf
WEnd