[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,157 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,171 times, last: )
      • Bonusmapbot.rar

        (365.38 kB, downloaded 1,167 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: