rokuli Posted November 5, 2010 Share Posted November 5, 2010 Hello i need help with script!My old code: expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <misc.au3> HotKeySet("{esc}", "_Exit") Global $upper[2] = [0, 0] Global $lower[2] = [0, 0] Global $uppertwo[2] = [0, 0] Global $lowertwo[2] = [0, 0] Global $setl1 = 0, $setu1 = 0, $setu2 = 0, $setl2 = 0 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Hockey.tk/Kiekko.tk aimbot", 139, 200, 200, 200) $setupperone = GUICtrlCreateButton("Left Up", 0, 8, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $setlowerone = GUICtrlCreateButton("Left Down", 0, 40, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $setuppertwo = GUICtrlCreateButton("Right Up", 0, 72, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $setlowertwo = GUICtrlCreateButton("Right down", 0, 104, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $start = GUICtrlCreateButton("START! =D", 32, 136, 75, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $restart = GUICtrlCreateButton("Restart", 0, 168, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $dll = DllOpen("user32.dll") While 1 Sleep(10) $guimsg = GUIGetMsg() Select Case $GUI_EVENT_CLOSE = $guimsg Exit Case $setupperone = $guimsg MsgBox(0, "", "Drag the mouse to the Left upper pillar and press f3") While $setu1 = 0 Sleep(40) If _IsPressed("72", $dll) Then $pos = MouseGetPos() $upper[0] = $pos[0] $upper[1] = $pos[1] $setu1 = 1 MsgBox(0, " By Sägä ", "Left Upper pillar pos has been set!!") EndIf WEnd Case $setlowerone = $guimsg MsgBox(0, "", "Drag the mouse to the Left lower pillar and press f4") While $setl1 = 0 Sleep(40) If _IsPressed("73", $dll) Then $pos = MouseGetPos() $lower[0] = $pos[0] $lower[1] = $pos[1] $setl1 = 1 MsgBox(0, " By Sägä ", "Left Lower pillar pos has been set!!") EndIf WEnd Case $setuppertwo = $guimsg MsgBox(0, "", "Drag the mouse to the Right upper pillar and press f5") While $setu2 = 0 Sleep(40) If _IsPressed("74", $dll) Then $pos = MouseGetPos() $uppertwo[0] = $pos[0] $uppertwo[1] = $pos[1] $setu2 = 1 MsgBox(0, " By Sägä ", "Right Upper pillar pos has been set!!") EndIf WEnd Case $setlowertwo = $guimsg MsgBox(0, "", "Drag the mouse to the Right lower pillar and press f6") While $setl2 = 0 Sleep(40) If _IsPressed("75", $dll) Then $pos = MouseGetPos() $lowertwo[0] = $pos[0] $lowertwo[1] = $pos[1] $setl2 = 1 MsgBox(0, " By Sägä ", "Right Lower pillar pos has been set!!") EndIf WEnd Case $start = $guimsg MsgBox(0, " Sägä ", "LETS MAKE GOALS :)") While $guimsg <> $restart $guimsg = GUIGetMsg() Sleep(40) If _IsPressed("72", $dll) Then; f3 MouseMove($upper[0], $upper[1], 0) EndIf If _IsPressed("73", $dll) Then; f4 MouseMove($lower[0], $lower[1], 0) EndIf If _IsPressed("74", $dll) Then; f5 MouseMove($uppertwo[0], $uppertwo[1], 0) EndIf If _IsPressed("75", $dll) Then; f6 MouseMove($lowertwo[0], $lowertwo[1], 0) EndIf WEnd MsgBox('', 'RESTART', '') MsgBox(0, " By Sägä ", "Better luck next time, honey =D") $setu1 = 0 $setl1 = 0 $setu2 = 0 $setl2 = 0 EndSelect WEnd DllClose($dll) Exit Func _Exit() DllClose($dll) Exit EndFunc ;==>_ExitOld scripts works fine, but i wanna make it better. Old script works this way: when i press f3 cursor teleports to one positions, but i need help to edit it.What i want: So, When i'm AREA 1, and i press Mouse Left, Cursor moves to same line with right down pillar, little distance from player.When i'm AREA 2, and i press Mouse Left, Cursor moves to same line with right up pillar, little distance from player.When i'm AREA 3, and i press Mouse Left, Cursor moves to same line with left down pillar, little distance from player.When i'm AREA 4, and i press Mouse Left, Cursor moves to same line with left up pillar, little distance from player.I made this picture to realise what i mean.BLACK AND BLUE LINES SHOW WHERE CURSOR SHOULD POINT!!!PLAYER AND CURSOR DISTANCE ALWAYS SAME WHEN I PRESS MOUSE LEFT, AND CURSOR GETS RIGHT POSITION!SO, PLEASE TELL ME HOW TO CODE THAT, OR MAKE READY CODE FOR THAT! Link to comment Share on other sites More sharing options...
JohnOne Posted November 5, 2010 Share Posted November 5, 2010 Try that. expandcollapse popup#include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <misc.au3> HotKeySet("{esc}", "_Exit") Global $upper[2] = [0, 0] Global $lower[2] = [0, 0] Global $uppertwo[2] = [0, 0] Global $lowertwo[2] = [0, 0] Global $setl1 = 0, $setu1 = 0, $setu2 = 0, $setl2 = 0 #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Hockey.tk/Kiekko.tk aimbot", 139, 200, 200, 200) $setupperone = GUICtrlCreateButton("Left Up", 0, 8, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $setlowerone = GUICtrlCreateButton("Left Down", 0, 40, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $setuppertwo = GUICtrlCreateButton("Right Up", 0, 72, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $setlowertwo = GUICtrlCreateButton("Right down", 0, 104, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $start = GUICtrlCreateButton("START! =D", 32, 136, 75, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") $restart = GUICtrlCreateButton("Restart", 0, 168, 139, 25, 0) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $dll = DllOpen("user32.dll") While 1 Sleep(10) $guimsg = GUIGetMsg() Select Case $GUI_EVENT_CLOSE = $guimsg Exit Case $setupperone = $guimsg MsgBox(0, "", "Drag the mouse to the Left upper pillar and press f3") While $setu1 = 0 Sleep(40) If _IsPressed("72", $dll) Then $pos = MouseGetPos() $upper[0] = $pos[0] $upper[1] = $pos[1] $setu1 = 1 MsgBox(0, " By Sägä ", "Left Upper pillar pos has been set!!") EndIf WEnd Case $setlowerone = $guimsg MsgBox(0, "", "Drag the mouse to the Left lower pillar and press f4") While $setl1 = 0 Sleep(40) If _IsPressed("73", $dll) Then $pos = MouseGetPos() $lower[0] = $pos[0] $lower[1] = $pos[1] $setl1 = 1 MsgBox(0, " By Sägä ", "Left Lower pillar pos has been set!!") EndIf WEnd Case $setuppertwo = $guimsg MsgBox(0, "", "Drag the mouse to the Right upper pillar and press f5") While $setu2 = 0 Sleep(40) If _IsPressed("74", $dll) Then $pos = MouseGetPos() $uppertwo[0] = $pos[0] $uppertwo[1] = $pos[1] $setu2 = 1 MsgBox(0, " By Sägä ", "Right Upper pillar pos has been set!!") EndIf WEnd Case $setlowertwo = $guimsg MsgBox(0, "", "Drag the mouse to the Right lower pillar and press f6") While $setl2 = 0 Sleep(40) If _IsPressed("75", $dll) Then $pos = MouseGetPos() $lowertwo[0] = $pos[0] $lowertwo[1] = $pos[1] $setl2 = 1 MsgBox(0, " By Sägä ", "Right Lower pillar pos has been set!!") EndIf WEnd Case $start = $guimsg MsgBox(0, " Sägä ", "LETS MAKE GOALS :)") While $guimsg <> $restart $guimsg = GUIGetMsg() Sleep(40) If _IsPressed("72", $dll) Then; f3 MouseMove($upper[0], $upper[1], 0) EndIf If _IsPressed("73", $dll) Then; f4 MouseMove($lower[0], $lower[1], 0) EndIf If _IsPressed("74", $dll) Then; f5 MouseMove($uppertwo[0], $uppertwo[1], 0) EndIf If _IsPressed("75", $dll) Then; f6 MouseMove($lowertwo[0], $lowertwo[1], 0) EndIf WEnd MsgBox('', 'RESTART', '') MsgBox(0, " By Sägä ", "Better luck next time, honey =D") $setu1 = 0 $setl1 = 0 $setu2 = 0 $setl2 = 0 EndSelect WEnd DllClose($dll) Exit Func _Exit() DllClose($dll) Exit EndFunc ;==>_Exit AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
rokuli Posted November 5, 2010 Author Share Posted November 5, 2010 U didn't even edit that? Link to comment Share on other sites More sharing options...
JohnOne Posted November 5, 2010 Share Posted November 5, 2010 This post should help you better. AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted November 5, 2010 Moderators Share Posted November 5, 2010 rokuli,This is your second topic about game bots. This is second time you have been linked to the announcement that clearly says we do NOT accept such things here. I would strongly suggest you do NOT start a third topic along the same lines. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Developers Jos Posted November 5, 2010 Developers Share Posted November 5, 2010 Next topic that is out of line will give you time off. SciTE4AutoIt3 Full installer Download page - Beta files Read before posting How to post scriptsource Forum etiquette Forum Rules Live for the present, Dream of the future, Learn from the past. Link to comment Share on other sites More sharing options...
Recommended Posts