Tribal wars bot

[turbox]

This script is written for Greek server but with some modifications can be for every server.

At start you write the building you want to build and it build the alone (for now)

Here:

expandcollapse popup

#include <IE.au3>
#include <array.au3>
#include <file.au3>

Dim $username, $password, $villageid

$username = ""
$password = ""
$villageid = ""

While 1
    $buildqueueex = FileExists(@TempDir & "\buildingstodo.txt")
    If $buildqueueex = 1 Then
    Else
        $builds = InputBox("", "Builds")
        $sepbuild = StringReplace($builds, " ", @CRLF)
        _FileCreate(@TempDir & "\buildingstodo.txt")
        $fobuild = FileOpen(@TempDir & "\buildingstodo.txt", 2)
        FileWrite($fobuild, $sepbuild)
        FileClose($fobuild)
    EndIf
    $buildsnum = _FileCountLines(@TempDir & "\buildingstodo.txt")
    $timesexist = FileExists(@TempDir & "\times.txt")
    If $timesexist <> 1 Then
        _FileCreate(@TempDir & "\times.txt")
        $fotimes = FileOpen(@TempDir & "\times.txt", 2)
        FileWrite($fotimes, "1")
        $currentnum = 1
    Else
        $foforcurr = FileOpen(@TempDir & "\times.txt", 0)
        $currentnum = FileRead($foforcurr)
        FileClose($foforcurr)
    EndIf
    $fobuild1 = FileOpen(@TempDir & "\buildingstodo.txt", 0)
    $buildid = FileReadLine($fobuild1, $currentnum)
    FileClose($fobuild1)
    $oIE = _IECreate("gr2.ds.ignames.net")
    _IELoadWait($oIE)
    $user = _IEGetObjById($oIE, "user")
    $pass = _IEGetObjById($oIE, "password")
    $server = _IEGetObjByName($oIE, 'server')
    $signin = _IEGetObjByName($oIE, "login-btn-input")
    _IEFormElementOptionselect($server, "gr2")
    _IEFormElementSetValue($user, $username)
    _IEFormElementSetValue($pass, $password)
    _IEAction($signin, "click")
    _IELoadWait($oIE)
    $aIE = _IECreate("http://gr2.fyletikesmaxes.gr/game.php?village=" & $villageid & "&screen=main")
    _IELoadWait($aIE)
    _IEQuit($oIE)
    WinSetState("Φυλετικές Μάχες - Windows Internet Explorer", "", @SW_MAXIMIZE)
    $frame = _IEFrameGetObjByName($aIE, "main")
    For $ist = 1 To 18 Step 1
        $tablesss = _IETableGetCollection($frame, $ist)
        $arr = _IETableWriteToArray($tablesss)
        $ubou = UBound($arr, 2)
        If $ubou > 7 Then
            ExitLoop
        Else
        EndIf
    Next
    For $atz = 0 To $ubou - 1 Step 1
        $string = $arr[0][$atz]
        If StringInStr($string, _wordconverter($buildid)) Then
            $whenwillread = $arr[6][$atz]
            If StringInStr($whenwillread, "η ώρα") Then
                If FileExists(@TempDir & "\sleeptime.txt") Then
                Else
                    _FileCreate(@TempDir & "\sleeptime.txt")
                EndIf
                $foshi = FileOpen(@TempDir & "\sleeptime.txt", 1)
                FileWrite($foshi, "The reources will be available at " & StringRight($whenwillread, 5) & " obvious" & @CRLF)
                FileClose($foshi)
                Sleep(_timeuntildl(StringRight($whenwillread, 5)))
            Else
            EndIf
            $timeget = $arr[5][$atz]
            ExitLoop
        Else
        EndIf
    Next
    $links = _IELinkGetCollection($frame)
    For $link In $links
        $checkstring = StringInStr($link.href, $buildid & "&h=")
        If $checkstring = 0 Then
        Else
            ExitLoop
        EndIf
    Next
    If $checkstring = 0 Then
        Sleep(7000000)
    Else
        Sleep(666)
        _IENavigate($aIE, $link.href)
        _IELoadWait($aIE)
        _IEQuit($aIE)
        If FileExists(@TempDir & "\sleeptime.txt") Then
        Else
            _FileCreate(@TempDir & "\sleeptime.txt")
        EndIf
        $fo3 = FileOpen(@TempDir & "\sleeptime.txt", 1)
        FileWrite($fo3, $timeget & " Now Time is: " & @HOUR & @MIN & @SEC & " diladi stis " & _Sleeptime($timeget, 1) & @CRLF)
        FileClose($fo3)
        $fotimes1 = FileOpen(@TempDir & "\times.txt", 0)
        $currentnum = FileRead($fotimes1)
        FileClose($fotimes1)
        $currentnum = $currentnum + 1
        If $currentnum = $buildsnum Then
            FileDelete(@TempDir & "\times.txt")
            FileDelete(@TempDir & "\buildingstodo.txt")
            Exit
        Else
            $fo2 = FileOpen(@TempDir & "\times.txt", 2)
            FileWrite($fo2, $currentnum)
            FileClose($fo2)
        EndIf
        _Sleeptime($timeget)
    EndIf
WEnd
Func _Sleeptime($iendtime, $ichoice = 0)
    
    Local $icheckpositionfhorhour, $iendhour, $icheckpositionsec, $istringlen, $iendsec, $iendmin, $iamallin
    
    $icheckpositionfhorhour = StringInStr($iendtime, ":")
    $iendhour = StringMid($iendtime, 1, $icheckpositionfhorhour - 1)
    $icheckpositionsec = StringInStr($iendtime, ":", 0, -1)
    $istringlen = StringLen($iendtime)
    $iendsec = StringMid($iendtime, $icheckpositionsec + 1, $istringlen - $icheckpositionsec)
    $iendmin = StringMid($iendtime, $icheckpositionfhorhour + 1, $icheckpositionsec - $icheckpositionfhorhour - 1)
    $iamallin = ($iendhour * 60 * 60 * 1000) + ($iendmin * 60 * 1000) + ($iendsec * 1000)
    If $ichoice = 1 Then
        $newsec = $iendsec + @SEC
        $newmin = $iendmin + @MIN
        $newhour = $iendhour + @HOUR
        Select
            Case $newsec >= 60
                $newsec = $newsec - 60
                $newmin = $newmin + 1
                If $newmin >= 60 Then
                    $newmin = $newmin - 60
                    $newhour = $newhour + 1
                Else
                EndIf
            Case $newsec < 60
                If $newmin >= 60 Then
                    $newmin = $newmin - 60
                    $newhour = $newhour + 1
                Else
                EndIf
        EndSelect
        If $newhour >= 24 Then $newhour = $newhour - 24
        If $newhour < 10 Then $newhour = "0" & $newhour
        If $newmin < 10 Then $newmin = "0" & $newmin
        If $newsec < 10 Then $newsec = "0" & $newsec
        Return $newhour & ":" & $newmin & ":" & $newsec
    Else
        Sleep($iamallin)
    EndIf
EndFunc  ;==>_Sleeptime
Func _wordconverter($iword)
    Switch $iword
        Case "Smith"
            Return "Οπλουργείο"
        Case "main"
            Return "Επιτελείο"
        Case "wall"
            Return "Τείχος"
        Case "snob"
            Return "Ακαδημία"
        Case "Stable"
            Return "Σταύλος"
        Case "Wood"
            Return "Ξυλουργείο"
        Case "Stone"
            Return "Λατομείο"
        Case "Iron"
            Return "Σιδηρωρυχείο"
        Case "Storage"
            Return "Αποθήκη"
        Case "Farm"
            Return "Αγρόκτημα"
        Case "Barracks"
            Return "Στρατώνας"
        Case "Market"
            Return "Αγορά"
        case "Hide"
            Return "Κρυψώνα"
        case Else
            Return MsgBox(0, "", "i lexi den bre8ike")
    EndSwitch
EndFunc  ;==>_wordconverter
Func _timeuntildl($imwendtime)
    Local $icheckpositionfhorhour, $iendhour, $iendhour, $fh, $fm, $iallsec
    
    $icheckpositionfhorhour = StringInStr($imwendtime, ":")
    $iendhour = StringMid($imwendtime, 1, $icheckpositionfhorhour - 1)
    $iendmin = StringMid($imwendtime, StringLen($imwendtime) - 1, 2)
    Select
        Case $iendhour < @HOUR
            $iendhour = $iendhour + 24
            If $iendmin < @MIN Then
                $iendmin = $iendmin + 60
                $iendhour = $iendhour - 1
            Else
            EndIf
        Case $iendhour > @HOUR
            If $iendmin < @MIN Then
                $iendmin = $iendmin + 60
                $iendhour = $iendhour - 1
            Else
            EndIf
        Case $iendhour = @HOUR
            If $iendmin < @MIN Then
                $iendhour = $iendhour + 23
                $iendmin = $iendmin + 60
            Else
            EndIf
    EndSelect
    $fh = $iendhour - @HOUR
    $fm = $iendmin - @MIN
    $iallsec = $fh * 60 * 60 * 1000 + $fm * 60 * 1000
    Return $iallsec
EndFunc  ;==>_timeuntildl

tribalsbot.au3

Edited August 27, 2008 by vakis