rendered paste body#include <IE.au3>
$pExplore = "http://apps.facebook.com/pirates/explore.php"
$pIndex = "http://apps.facebook.com/pirates/index.php"
$pFoundMerchantShip = "http://apps.facebook.com/pirates/found_merchant_ship.php"
$pFoundLand = "http://apps.facebook.com/pirates/found_land.php"
;$pEnemyShip = "http://apps.facebook.com/pirates/enemy_ship.php"
$pThrowBomb = "http://apps.facebook.com/pirates/throw_bomb.php"
If WinExists("Facebook | Pirates") Then
$oIE = _IEAttach("Facebook | Pirates")
Else
$oIE = _IECreate ("http://apps.facebook.com/pirates/index.php")
EndIf
While (1)
$url = _IEPropertyGet($oIE, "locationurl")
If StringInStr($url, $pExplore) OR StringInStr($url, $pIndex) Then
_IENavigate ($oIE, "http://apps.facebook.com/pirates/explore.php")
ElseIf StringInStr($url, $pThrowBomb) OR StringInStr($url, $pFoundMerchantShip) Then
_IENavigate($oIE, "http://apps.facebook.com/pirates/clear_action.php")
ElseIf StringInStr($url, $pFoundLand) Then
land($oIE, $url)
EndIf
WEnd
Func land($foIE, $fUrl)
_IENavigate ($foIE, "http://apps.facebook.com/pirates/head_towards_land.php")
_IENavigate ($foIE, "http://apps.facebook.com/pirates/island_booty.php")
_IENavigate ($foIE, "http://apps.facebook.com/pirates/index.php")
EndFunc