Sign in to follow this  
Followers 0
Sym98

Bot Darkorbit (Online Game)

3 posts in this topic

Hello everyone, I am creating a simple (?) Bot for a friend of mine, to be used on Darkorbit (an online game). The bot in question, should perform the click of a mouse at any preset time to point the auction of the game during the night (when there is almost no one online).

Because, of course, like the other 20 programs that I'm making, I do not work (obviously these 20 I have managed 4 ... Oo), I ask you to help

Ah yes, the problem is that at the scheduled time will not do anything ...

Full Source:

#include <GUIConstants.au3>

$Form1 = GUICreate("Bot Asta Darkorbit - By Sym98", 537, 446, 234, 131)
GUISetBkColor(0x000000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Label1 = GUICtrlCreateLabel("Bot Asta", 122, 1, 280, 94)
GUICtrlSetFont(-1, 48, 800, 8, "Comic Sans MS")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Group1 = GUICtrlCreateGroup("Coordinate", 11, 91, 510, 134)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Label2 = GUICtrlCreateLabel("X:", 21, 119, 28, 37)
GUICtrlSetFont(-1, 18, 400, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Label3 = GUICtrlCreateLabel("Y:", 273, 120, 27, 37)
GUICtrlSetFont(-1, 18, 400, 4, "Comic Sans MS")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$X = GUICtrlCreateInput("", 54, 121, 207, 35)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Y = GUICtrlCreateInput("", 304, 121, 207, 35)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Label4 = GUICtrlCreateLabel("Per trovare le cordinate premi F2", 69, 170, 400, 39)
GUICtrlSetFont(-1, 18, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008080)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Crediti", 7, 336, 260, 65)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$C = GUICtrlCreateInput("", 56, 352, 205, 35)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("C:", 15, 356, 24, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x00FF00)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Ora", 284, 282, 243, 153)
GUICtrlSetFont(-1, 8, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x800000)
$Label6 = GUICtrlCreateLabel("h:", 293, 304, 23, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x00FF00)
$h = GUICtrlCreateInput("", 316, 299, 205, 35)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Label7 = GUICtrlCreateLabel("Min:", 290, 349, 44, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x00FF00)
$Min = GUICtrlCreateInput("", 336, 343, 185, 35)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Label8 = GUICtrlCreateLabel("Sec:", 290, 395, 46, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetColor(-1, 0x00FF00)
$Sec = GUICtrlCreateInput("", 337, 391, 185, 35)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label9 = GUICtrlCreateLabel("Created By Sym98", 7, 401, 251, 42)
GUICtrlSetFont(-1, 20, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 0x008080)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Start = GUICtrlCreateButton("Start", 10, 232, 268, 48, 0)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Background = GUICtrlCreateButton("Background", 287, 232, 239, 48, 0)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
$Stop = GUICtrlCreateButton("Stop", 9, 285, 268, 48, 0)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT )
GUISetState(@SW_SHOW)
GUICtrlSetState($Stop, $GUI_Disable)
$Started = 0

Func _While()
While 1
If $Started = 1 Then
If @HOUR = $s_h Then
If @MIN = $s_Min Then
If @Sec = $s_Sec And $s_Sec <> 0 Then
MouseClick("left", $s_X, $s_Y, 1)
Sleep(100)
Send("{ENTER}")
Sleep (6000)
MsgBox (0, "Bot Asta - Darkorbit - By Sym98", "Offerta eseguita correttamente!")
EndIf
EndIf
EndIf
$Started = 0
GUICtrlSetState($Start, $GUI_Enable)
GUICtrlSetState($Stop, $GUI_Disable)
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Background
GUIDelete($Form1)
Case $Start
$s_X = GUICtrlRead($X)
$s_Y = GUICtrlRead($Y)
$s_C = GUICtrlRead($C)
$s_h = GUICtrlRead($h)
$s_Min = GUICtrlRead($Min)
$s_Sec = GUICtrlRead($Sec)
If $s_X = "" Then
MsgBox(16, "Errore", "Specifica le coordinate X!")
_While()
EndIf
If $s_Y = "" Then
MsgBox(16, "Errore", "Specifica le coordinate Y!")
_While()
EndIf
If $s_C = "" Then
MsgBox(16, "Errore", "Specifica i crediti che verranno puntati!")
_While()
EndIf
If $s_h = "" Then
MsgBox(16, "Errore", "Specifica le ore!")
_While()
EndIf
If $s_Min = "" Then
MsgBox(16, "Errore", "Specifica i minuti!")
_While()
EndIf
If $s_Sec = "" Then $s_Sec = 0
$Continuare= MsgBox(4, "Continuare?", "Alle ore " & $s_h & ":" & $s_Min & " e " & $s_Sec & " secondi verranno puntati " & $s_C & " crediti sull'oggeto che si trova alle cordinate " & _
$s_X & "/" & $s_Y & ". In quel momento la schermata dell'asta di Darkorbit dovrà essere in primo piano, e le cordinate dell'oggeto devono corrispondere a quelle specificate. Continuare?")
If $Continuare <> 6 Then _While()
$Started = 1
GUICtrlSetState($Start, $GUI_Disable)
GUICtrlSetState($Stop, $GUI_Enable)
Case $Stop
$Started = 0
GUICtrlSetState($Start, $GUI_Enable)
GUICtrlSetState($Stop, $GUI_Disable)
EndSwitch
WEnd
EndFunc

_While()

Share this post


Link to post
Share on other sites



Read Rules and see this

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Sorry, I did not read :unsure:

Edited by Sym98

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  
Followers 0