[Bot`s] Seafight Glitziebot + BM Bot

    [Bot`s] Seafight Glitziebot + BM Bot

    hi,
    hier mal für die allgemeinheit mein seafigt glitziebot!

    Danke an alle die mir beim progen mit sinvollen komentaren etc. geholfen haben!!!!
    Wenn ihr Verbesserungen bemerken wollt dann einfach hochladen oder .... .

    Mfg tarkin
    Files
    • GlitzieBot.rar

      (1.1 MB, downloaded 2,218 times, last: )
    MfG Tarkin

    Ps: Gefundene Rechtschreibfehler dürfen gekonnt überlesen werden :whistling:
    Ansonsten führen meißt viele wege nach Rom!

    Post was edited 1 time, last by “Tarkin” ().

    Ach ja und hier auch gleich noch nen skript für nen Seafight Bonusmap Bot

    Leider nur in scar-skript im Anhang!

    Hab zwar schon an der umsetzung gearbeitet hab aber kein bock mehr drauf es fertig zu machen!
    Show Spoiler

    AutoIt SourceCode

    1. #RequireAdmin
    2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    3. #AutoIt3Wrapper_icon=images\bot.ico
    4. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    5. #cs ----------------------------------------------------------------------------
    6. AutoIt Version: 3.3.4.0
    7. Author: Tarkin
    8. Script Function:
    9. Seafight Bonusmapbot
    10. #ce ----------------------------------------------------------------------------
    11. #include <ImageSearch.au3>
    12. #include <ToolTipConstants.au3>
    13. #include <WindowsConstants.au3>
    14. #include <ButtonConstants.au3>
    15. #include <EditConstants.au3>
    16. #include <GUIConstantsEx.au3>
    17. #include <StaticConstants.au3>
    18. #Region ### START Koda GUI section ###
    19. $bmbot = GUICreate("Seafight BM-Bot", 178, 133, 345, 312,-1,BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST))
    20. GUISetOnEvent($GUI_EVENT_CLOSE, "_OnEventHandler")
    21. $spielen = GUICtrlCreateButton("Spiele Bonusmap", 32, 8, 113, 25, $WS_GROUP)
    22. GUICtrlSetOnEvent(-1, "_OnEventHandler")
    23. $pause = GUICtrlCreateButton("Pause", 32, 40, 113, 25, $WS_GROUP)
    24. GUICtrlSetOnEvent(-1, "_OnEventHandler")
    25. $exit = GUICtrlCreateButton("Exit", 40, 80, 89, 25, $WS_GROUP)
    26. GUICtrlSetOnEvent(-1, "_OnEventHandler")
    27. $Pic1 = GUICtrlCreatePic("images\tarkin.jpg", 0, 0, 177, 132, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    28. GUISetState(@SW_SHOW)
    29. #EndRegion ### END Koda GUI section ###
    30. Global $fPause = True
    31. Global $randomsleep = Random (1, 50, 1)
    32. Global $randomx = Random (1, 4, 1)
    33. Global $randomy = Random (1, 4, 1)
    34. ; Minimap
    35. Global $iLeft = 0
    36. Global $iTop = 0
    37. Global $iRight = 0
    38. Global $iBottom = 0
    39. ;Map
    40. Global $mapLeft = 0
    41. Global $mapTop = 0
    42. Global $mapRight = 0
    43. Global $mapBottom = 0
    44. Global $globalmapx = 0
    45. Global $globalmapy = 0
    46. ;BM-Check
    47. Global $globalbmcheck = False
    48. ;Position
    49. Global $position = 0
    50. Global $positionx = 0
    51. Global $positiony = 0
    52. Global $minimapquartal = 0
    53. Global $mouseposition = 0
    54. Global $schiffposition = 0
    55. ;Ziele
    56. Global $target = 0
    57. Global $newtarget = False
    58. ;reppen
    59. Global $rLeft = 0
    60. Global $rTop = 0
    61. Global $rRight = 0
    62. Global $rBottom = 0
    63. Global $needrepp = False
    64. Global $halfrepp = False
    65. Global $fullhp = False
    66. ;move
    67. Global $move = False
    68. Global $schiffmovex = 0
    69. Global $schiffmovey = 0
    70. Opt("GUIOnEventMode", 1)
    71. While 1 * Sleep(10)
    72. If Not $fPause Then
    73. Select
    74. Case _minimap()
    75. Case _map()
    76. EndSelect
    77. Else
    78. Sleep(100)
    79. ConsoleWrite("Bot pausiert..." & @CRLF)
    80. EndIf
    81. WEnd
    82. Func _OnEventHandler()
    83. Switch @GUI_CtrlId
    84. Case $GUI_EVENT_CLOSE, $exit
    85. Exit
    86. Case $spielen
    87. $fPause = False
    88. Case $pause
    89. $fPause = True
    90. EndSwitch
    91. EndFunc ;==>_OnEventHandler
    92. Func _minimap()
    93. $globalminimapx = 0
    94. $globalminimapy = 0
    95. $globalpunktminimap = _ImageSearchArea("images/global.jpg", 1, 0, 0, @DesktopWidth, @DesktopHeight, $globalminimapx, $globalminimapy, 50)
    96. If $globalpunktminimap = 1 Then
    97. $iLeft = $globalminimapx -45
    98. $iTop = $globalminimapy +22
    99. $iRight = $globalminimapx +45
    100. $iBottom = $globalminimapy +112
    101. ElseIf $globalpunktminimap <> 1 Then
    102. MsgBox (16,"Fehler", "Minimap NICHT gefunden!", 5)
    103. Exit
    104. EndIf
    105. EndFunc ;==> _minimap
    106. Func _map()
    107. $globalpunktmap = _ImageSearchArea("images/globalmap.jpg", 1, 0, 0, @DesktopWidth, @DesktopHeight, $globalmapx, $globalmapy, 50)
    108. If $globalpunktmap = 1 Then
    109. $mapLeft = $globalmapx + 5
    110. $mapTop = $globalmapy + 26
    111. $mapRight = $globalmapx + 765
    112. $mapBottom = $globalmapy + 587
    113. ElseIf $globalpunktmap <> 1 Then
    114. MsgBox (16,"Fehler", "Map NICHT gefunden!", 5)
    115. Exit
    116. EndIf
    117. EndFunc ;==>_map
    118. Func _bmcontroll()
    119. $globalbmx = 0
    120. $globalbmy = 0
    121. $globalbm = _ImageSearchArea("images/bmcontroll.jpg", 1, 0, 0, @DesktopWidth, @DesktopHeight, $globalbmx, $globalbmy, 50)
    122. If $globalbm = 1 Then
    123. $globalbmcheck = True
    124. ElseIf $globalbm <> 1 Then
    125. MsgBox (16,"Fehler", "Du befindest dich nicht auf Bonusmap!"&@CRLF&"Bitte betritt erst eine der Bonusmaps und starte den Bot NEU!", 7)
    126. Exit
    127. EndIf
    128. EndFunc ;==> _bmcontroll
    129. Func _checktarket()
    130. $target = PixelSearch ($mapLeft, $mapTop, $mapRight, $mapBottom, 0xFE0000, 10)
    131. If Not @error Then
    132. $newtarget = True
    133. EndIf
    134. EndFunc ;==> _checktarket
    135. Func _getposition ()
    136. $position = PixelSearch ($iLeft, $iTop, $iRight, $iBottom, 0x00FF00, 10)
    137. If Not @error Then
    138. $positionx = $position [0]
    139. $positiony = $position [1]
    140. ElseIf @error Then
    141. MsgBox ("Fehler", "Konnte mein Schiff nicht auf der Minimap finden!", 5)
    142. Exit
    143. EndIf
    144. EndFunc ;==> _getposition
    145. Func _getmapquartal ()
    146. If $positionx < $iLeft + 45 & $positiony < $iTop + 45 Then
    147. $minimapquartal = 1
    148. EndIf
    149. If $positionx > $iLeft + 45 & $positiony < $iTop + 45 Then
    150. $minimapquartal = 2
    151. EndIf
    152. If $positionx < $iLeft + 45 & $positiony > $iTop + 45 Then
    153. $minimapquartal = 3
    154. EndIf
    155. If $positionx > $iLeft + 45 & $positiony > $iTop + 45 Then
    156. $minimapquartal =4
    157. EndIf
    158. EndFunc ;==> getmapquartal
    159. Func _reppcheck ()
    160. $rLeft = $globalmapx - 37
    161. $rTop = $globalmapy + 606
    162. $rRight = $globalmapx + 174
    163. $rBottom = $globalmapy + 645
    164. $reppencritical = PixelSearch($rLeft, $rTop, $rRight, $rBottom, 0xC11B01, 5)
    165. If Not @error Then
    166. $needrepp = True
    167. Else
    168. $needrepp = False
    169. EndIf
    170. $reppenhalf = PixelSearch($rLeft, $rTop, $rRight, $rBottom, 0x564C00, 15)
    171. If Not @error Then
    172. $halfrepp = True
    173. Else
    174. $halfrepp = False
    175. EndIf
    176. $fullhp = PixelSearch($rLeft, $rTop, $rRight, $rBottom, 0x007300, 5)
    177. If Not @error Then
    178. $fullhp = True
    179. Else
    180. $fullhp = False
    181. EndIf
    182. EndFunc ;==>_reppcheck
    183. Func _schiffposition ()
    184. $schiffpositionx = 0
    185. $schiffpositiony = 0
    186. $schiff = _ImageSearchArea("images/schiff.jpg", 1, 0, 0, @DesktopWidth, @DesktopHeight, $schiffpositionx, $schiffpositiony, 35)
    187. $schiffx = $schiffpositionx
    188. $schiffy = $schiffpositiony
    189. EndFunc ;==> _schiffposition
    190. Func _movecheck
    191. Func _reppdrive ()
    192. If $minimapquartal = 1 Then
    193. MouseMove ($iLeft + $randomx, $iTop + $randomy, 1)
    194. $mouseposition = MouseGetPos ()
    195. Sleep (50 + $randomsleep)
    196. MouseClick ("left", $mouseposition [0], $mouseposition [1], 1)
    197. EndIf
    198. If $minimapquartal = 2 Then
    199. MouseMove ($iRight - $randomx, $iTop + $randomy, 1)
    200. $mouseposition = MouseGetPos ()
    201. Sleep (50 + $randomsleep)
    202. MouseClick ("left", $mouseposition [0], $mouseposition [1], 1)
    203. EndIf
    204. If $minimapquartal = 3 Then
    205. MouseMove ($iRight - $randomx, $iBottom - $randomy, 1)
    206. $mouseposition = MouseGetPos ()
    207. Sleep (50 + $randomsleep)
    208. MouseClick ("left", $mouseposition [0], $mouseposition [1], 1)
    209. EndIf
    210. If $minimapquartal = 4 Then
    211. MouseMove ($iTop + $randomx, $iBottom - $randomy, 1)
    212. $mouseposition = MouseGetPos ()
    213. Sleep (50 + $randomsleep)
    214. MouseClick ("left", $mouseposition [0], $mouseposition [1], 1)
    215. EndIf
    216. EndFunc ;==>_reppdrive
    217. .........
    Files
    • BM Script.rar

      (9.22 kB, downloaded 1,192 times, last: )
    • Bonusmapbot.rar

      (365.38 kB, downloaded 1,200 times, last: )
    MfG Tarkin

    Ps: Gefundene Rechtschreibfehler dürfen gekonnt überlesen werden :whistling:
    Ansonsten führen meißt viele wege nach Rom!

    Post was edited 3 times, last by “Tarkin” ().

    //////////////////////////////////////////////////////////////////////////////////////////////////
    // Hier die Werte der Seekarte eintragen
    // in den tools findet ihr die pick color funktion mit der ihr einen mauswert auslesen könnt

    skx1:= 465; //x-oben links
    skx2:= 254; //y-oben links
    sky1:= 1210; //x-unten rechts
    sky2:= 800; //y unten rechts

    //die Werte vom HP balken eintragen
    hpx1:=424; //x-oben links
    hpy1:=850; //y-oben links
    hpx2:=610; //x-unten rechts
    hpy2:=868; //y-unten rechts
    //die Werte des aktualisieren buttons
    aktx:= 837; //x-oben links
    akty:= 850; //x-rechts

    //den Mittelpunkt eures Schiffes ausmessen und einstellen, pixeldistance nur bei schlechter distanz verändern
    mpx:= 838; //x-oben links
    mpy:= 525; //y-unten rechts
    pixeldistance:= 160;




    kann mir da mal jemand helfen bitte
    Da brauch ich auch mal Hilfe:

    Bei mir findet er keinen HP-Balken, habe die Pixel und so alles eingestellt. Er fährt auch vor den Schiffen weg, wenn er eins angreift, er fährt auch bei ca. 40k hp in die Ecke und reppt, jedoch bricht er das reppen nach knapp 10 Sekunden wieder ab und fährt in die nächste Ecke, mit der Begründung hp-Balken nicht gefunden. Ach ja, was ist der Akutalisieren Button?

    Was ist da los?
    Wäre über eine Antwort sehr erfreut,

    Grüße

    Post was edited 1 time, last by “harryschlotter” ().

    harryschlotter wrote:

    Da brauch ich auch mal Hilfe:

    Bei mir findet er keinen HP-Balken, habe die Pixel und so alles eingestellt. Er fährt auch vor den Schiffen weg, wenn er eins angreift, er fährt auch bei ca. 40k hp in die Ecke und reppt, jedoch bricht er das reppen nach knapp 10 Sekunden wieder ab und fährt in die nächste Ecke, mit der Begründung hp-Balken nicht gefunden. Ach ja, was ist der Akutalisieren Button?

    Was ist da los?
    Wäre über eine Antwort sehr erfreut,

    Grüße

    harryschlotter wrote:

    Das selbe Problem habe ich auch mit dem abbruch. Was muss ich da ändern? Wäre nett wenn mir wer hilft.

    harryschlotter wrote:

    Gru?

    harryschlotter wrote: