Jump to content

Anonymouse

Active Members
  • Posts

    139
  • Joined

  • Last visited

Everything posted by Anonymouse

  1. Use a javascript parser. [EDIT] You will also get much better answers if you show your work. How many times will a tutor help you if you tell them, "hey, I need an answer to number 46" without giving them the equation. And after you give them the equation, you don't show any work. Learn the script. Knowledge is much more valuable and patience is a virtue.[/EDIT]
  2. DUH!! See.. I told you it was a stupid question. I was also clearing input boxes and combo boxes, hence the Data.. Why can't i think logically - I feel like Smoke's sig.. I should step away from the computer and do everyone a favor
  3. GRRRRRRRR... your signature gives me a horizontal scrollbar. And what game might this be? Have you tried AlwaysOnTop? Have you tried putting this game in windowed mode?
  4. For $a = 0 To Ubound($RPANH) -1 GUICtrlSetData($RPANH[$a], $GUI_UNCHECKED) Next Am I doing something stupid? I have 4 radios in a group, I have 8 of these groups. So for example: $Choice1[8] $Choice2[8] $Choice3[8] $Choice4[8] Group1 contains $Choice1[0], $Choice2[0], $Choice3[0], $Choice4[0] Group2... etc. I'm sure as valik would tell me "Use your brain, this is idiodic code" But I just want to here those reassuring words before I dive into an array of headaches (pun intended, get it?)
  5. Try looking these few things up: IniRead And if you are making an input box for them if the ini doesn't exist or if they haven't yet put in a username password, download Koda and look up IniWrite GUICtrlRead [edit] BTW, when I say lookup I mean in the helpfile[/edit]
  6. http://www.autoitscript.com/forum/index.php?showtopic=20121
  7. The full url to the SWF is what you want. That's all you use. Since the page you are on Embeds it to itself, it has to come from somewhere else to embed it, you want to do the same thing - but not on the page, on your GUI. So: "http://www.gamewebsite.com/games/files/the_game.swf" is what you would use
  8. Since you still seem to be having trouble, I will point out the answer you already have that I have been for the past few posts. If you did not bother to even run that script and read the readme to see how it works, then I cannot help you. As for the finding pixels in a designated area, you don't give the pixels for the 4 corners. left left coordinate of rectangle. top top coordinate of rectangle. right right coordinate of rectangle. bottom bottom coordinate of rectangle. Translation: Left = How many pixels is this from the left of the screen? Top, = How many pixels is this from the top of the screen? Right = What is the width of the box + Left Bottom = What is the height of the Box + Top ^^(Straight from the helpfile, btw) Here is your exact answer, but not in the pixels you want, for laziness reasons: $Top = GUICreate("Top Line", $ScanWidth, 2,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Left = GUICreate("Left Line", 2, $ScanHeight,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Right = GUICreate("Right Line", 2, $ScanHeight,$x + $ScanWidth - 2,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Bottom = GUICreate("Bottom Line", $ScanWidth, 2,$x,$y + 40 + $ScanHeight,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() Hmmm... this looks like its the code for the red box, I just assume, I did a 2 second scan through the script. It makes sense, but it must have a function statement with it too, because I believe you can resize it. Let me look. Func Resize() HotKeySet("^a") Stop() $MoveMode = True While 1 $MousePos = MouseGetPos() WinMove($Top,"", $x,$y+40,$ScanWidth,2) WinMove($Left,"", $x,$y+40,2,$ScanHeight) WinMove($Right,"", $x+ $ScanWidth - 2,$y+40,2,$ScanHeight) WinMove($Bottom,"", $x,$y+ 40 + $ScanHeight,$ScanWidth,2) If Not (($MousePos[0] - $x + 1) <= 40) Then $ScanWidth = $MousePos[0] - $x + 1 EndIf If Not (($MousePos[1] - $y - 39) <= 40) Then $ScanHeight = $MousePos[1] - $y - 39 EndIf If _IsPressed(01) Then ExitLoop EndIf WEnd HotKeySet("^a","Move") EndFunc Now, I can't really decipher these variables without knowing what they are, so lets look at what the script designates X and Y as. Global $StartX = IniRead("MineData.ini", "Pos", "X",0) Global $StartY = IniRead("MineData.ini", "Pos", "Y",0) Global $x = $StartX, $y = $StartY Global $ScanWidth = 110, $ScanHeight = 120 Have a box, have pixel search Only search within this box, and be able to resize this box as needed. All credit to JOS.
  9. BTW, is this what you mean? I'm trying to understand. Have you tried running that script I posted? It allows you to change the box size of pixel search (the red).. I believe this is exactly what you are looking for, you just don't know it.
  10. Not lameness, I'm sorry. Laemens. or lamens. It means Simple terms. For being french you speak english very well, I just don't quite understand what you want. "advance the character of some steps manually" meaning what exactly? "only simple estimates or some magic" As for getting pixels, I like to use Photoshop. you know the resolution is 1200x800, so then you zoom in and outline the image, then measure from the top, and how far left.
  11. Hey Shakespeare, I am but a simple American, if you could please re-word that in lamens terms I would be more than happy to help. I am way too hungover for big words this morning.
  12. Well, it's only 1000+ lines because I was having a horrific time with arrays and decided to just copy/paste ->edit what I already wrote as a smaller version. So it's the same lines over and over with different variables. I know.. I'm going to buy a Trigg book as soon as possible. I would show you the code, but I'm actually rather embarrassed that it took me 3100 lines to write something that would have only taken you 1000. heh. I'll figure it out eventually, I guess I'll mess around with it a bit now and research Event Handling. Thanks, Smoke.
  13. I would like to error handle an entire function that happens to be 1000+ lines. Is this possible, or do I have to set error handling for each and every part? I just want a simple msgbox that tells them to read the helpfile I did try to put it in the case statement, then at the end of the function, and the beginning : No Dice.
  14. Here is an AutoMiner that was made for runescape with AutoIt, by Manadar. It helped me understand alot about pixelsearch, and it also has this function that you are asking for. Have a look, enjoy, good luck, and feel free to ask more questions if needed. I hope it does you just as much good. #NoTrayIcon #include <GUIConstants.au3> #include <Misc.au3> #include <WindowsConstants.au3> #include <StaticConstants.au3> #include <EditConstants.au3> HotKeySet("!^x", "Abort") Global $CurrentColor = "0xAF0000" Global $StartX = IniRead("MineData.ini", "Pos", "X",0) Global $StartY = IniRead("MineData.ini", "Pos", "Y",0) Global $x = $StartX, $y = $StartY Global $ScanWidth = 110, $ScanHeight = 120 Global $T1[5],$T2[5] Global $SleepCheck = 500, $SleepMine = 4000 Global $Idle = 0 Global $MoveMode = True Global $AppTitle = "RS Auto-Miner" Global $ColorClay = IniRead("MineData.ini", "Colors", "Clay", "?") Global $ColorCopper = IniRead("MineData.ini", "Colors", "Copper", 9003840) Global $ColorTin = IniRead("MineData.ini", "Colors", "Tin", 7432553) Global $ColorIron = IniRead("MineData.ini", "Colors", "Iron", 4072732) Global $ColorSilver = IniRead("MineData.ini", "Colors", "Silver", 16777215) Global $ColorCoal = IniRead("MineData.ini", "Colors", "Coal", 3815975) Global $ColorGold = IniRead("MineData.ini", "Colors", "Gold", 10193720) Global $ColorMithril = IniRead("MineData.ini", "Colors", "Mithril", 5329529) Global $ColorAddy = IniRead("MineData.ini", "Colors", "Addy", "?") Global $ColorRunite = IniRead("MineData.ini", "Colors", "Runite", "?") ;beta below Global $Sens = IniRead("MineData.ini", "Beta", "Sensitifity", 8) Global $AverageX, $AverageY, $i $GUI = GUICreate($AppTitle,110,40,$x,$y,$WS_POPUP) $ColorLabel = GUICtrlCreateLabel("Color",0,1,110,20,$SS_CENTER) SetColor() $Sleep = GUICtrlCreateEdit("Stopped", 0, 20,110,20,$ES_AUTOVSCROLL+$ES_AUTOHSCROLL+$ES_READONLY+$ES_CENTER) GUICtrlSetBkColor(-1,0xFFFFFF) GUISetState() WinSetOnTop($GUI,"",1) $menu = GUICtrlCreateContextMenu ($ColorLabel) $Start = GUICtrlCreateMenuitem ("Start!", $menu,-1,1) $Stop = GUICtrlCreateMenuitem ("Stop", $menu,-1,1) GUICtrlSetState(-1,$GUI_CHECKED) GUICtrlCreateMenuitem ("",$menu) $Time1Menu = GUICtrlCreateMenu ("Check Interval", $menu) $T1[0] = GUICtrlCreateMenuitem ("200 ms", $Time1Menu,-1,1) $T1[1] = GUICtrlCreateMenuitem ("500 ms", $Time1Menu,-1,1) GUICtrlSetState(-1,$GUI_CHECKED) $T1[2] = GUICtrlCreateMenuitem ("1 sec", $Time1Menu,-1,1) $T1[3] = GUICtrlCreateMenuitem ("2 sec", $Time1Menu,-1,1) $T1[4] = GUICtrlCreateMenuitem ("Custom", $Time1Menu,-1,1) $Time2Menu = GUICtrlCreateMenu ("Mine Interval", $menu) $T2[0] = GUICtrlCreateMenuitem ("1 sec", $Time2Menu,-1,1) $T2[1] = GUICtrlCreateMenuitem ("2 sec", $Time2Menu,-1,1) $T2[2] = GUICtrlCreateMenuitem ("4 sec", $Time2Menu,-1,1) GUICtrlSetState(-1,$GUI_CHECKED) $T2[3] = GUICtrlCreateMenuitem ("6 sec", $Time2Menu,-1,1) $T2[4] = GUICtrlCreateMenuitem ("Custom", $Time2Menu,-1,1) GUICtrlCreateMenuitem ("",$menu) $move = GUICtrlCreateMenuitem ("Move Screen", $menu) $Resize = GUICtrlCreateMenuitem ("Set Scansize", $menu) $Colormenu = GUICtrlCreateMenu ("Select Color", $menu) $Pick = GUICtrlCreateMenuitem ("By Screen Color", $Colormenu) $OreMenu = GUICtrlCreateMenu ("By Ore", $Colormenu) $MenuClay = GUICtrlCreateMenuitem ("Clay", $OreMenu) $MenuTin = GUICtrlCreateMenuitem ("Tin", $OreMenu) $MenuCopper = GUICtrlCreateMenuitem ("Copper", $OreMenu) $MenuIron = GUICtrlCreateMenuitem ("Iron", $OreMenu) $MenuSilver = GUICtrlCreateMenuitem ("Silver", $OreMenu) $MenuCoal = GUICtrlCreateMenuitem ("Coal", $OreMenu) $MenuGold = GUICtrlCreateMenuitem ("Gold", $OreMenu) $MenuMithril = GUICtrlCreateMenuitem ("Mithril", $OreMenu) $MenuAddy = GUICtrlCreateMenuitem ("Adamantite", $OreMenu) $MenuRunite = GUICtrlCreateMenuitem ("Runite", $OreMenu) GUICtrlCreateMenuitem ("",$menu) $Preferences = GUICtrlCreateMenuitem ("Preferences", $menu) $Help = GUICtrlCreateMenuitem ("Help", $menu) GUICtrlCreateMenuitem ("",$menu) $Exit = GUICtrlCreateMenuitem ("Exit", $menu) $Top = GUICreate("Top Line", $ScanWidth, 2,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Left = GUICreate("Left Line", 2, $ScanHeight,$x,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Right = GUICreate("Right Line", 2, $ScanHeight,$x + $ScanWidth - 2,$y + 40,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() $Bottom = GUICreate("Bottom Line", $ScanWidth, 2,$x,$y + 40 + $ScanHeight,$WS_POPUP,-1,$GUI) GUISetBkColor(0xFF0000) GUISetState() HotKeySet("^f","DisplayColor") HotKeySet("^z","Start") HotKeySet("^x","Stop") HotKeySet("^x","Stop") HotKeySet("^a","Move") While 1 $msg = GUIGetMsg() Select Case $msg = $Start Check() Case $msg = $Stop AdlibDisable() GUICtrlSetData($Sleep,"Stopped") Case $msg = $ColorLabel $NewColor = _ChooseColor(2,$CurrentColor,2) If Not @error Then $CurrentColor = $NewColor SetColor() EndIf Case $msg = -3 Exit Case $msg = $move Stop() $MoveMode = True While 1 $MousePos = MouseGetPos() WinMove($GUI,"", $MousePos[0],$MousePos[1]) WinMove($Top,"", $MousePos[0],$MousePos[1]+40) WinMove($Left,"", $MousePos[0],$MousePos[1]+40) WinMove($Right,"", $MousePos[0]+ $ScanWidth - 2,$MousePos[1]+40) WinMove($Bottom,"", $MousePos[0],$MousePos[1]+ 40 + $ScanHeight) $x = $MousePos[0] $y = $MousePos[1] If _IsPressed(01) Then ExitLoop EndIf WEnd Case $msg = $Pick While 1 $MousePos = MouseGetPos() If Not @error Then $NewColor = PixelGetColor($MousePos[0],$MousePos[1]) GUICtrlSetBkColor($ColorLabel,$NewColor) GUISetBkColor($NewColor,$GUI) EndIf Sleep(200) If _IsPressed(01) Then ExitLoop EndIf WEnd If $NewColor <> -1 Then $CurrentColor = $NewColor EndIf SetColor() Case $msg = $Resize Resize() Case $msg = $Preferences Preferences() Case $msg = $Exit Exit Case $msg = $T1[0] $SleepCheck = 200 Case $msg = $T1[1] $SleepCheck = 500 Case $msg = $T1[2] $SleepCheck = 1000 Case $msg = $T1[3] $SleepCheck = 2000 Case $msg = $T1[4] $Input = Number(InputBox("Custom Checking Time", "How many ms do you want to wait?", $SleepCheck,"", 200,162,$x+111,$y)) If (Not @error) AND (IsNumber($Input)) AND ($Input <> 0) Then $SleepCheck = Round($Input) Else $SleepCheck = 500 GUICtrlSetState($T1[1],$GUI_CHECKED) GUICtrlSetState($T1[4],$GUI_UNCHECKED) EndIf Case $msg = $T2[0] $SleepMine = 1000 Case $msg = $T2[1] $SleepMine = 2000 Case $msg = $T2[2] $SleepMine = 4000 Case $msg = $T2[3] $SleepMine = 6000 Case $msg = $T2[4] $Input = Number(InputBox("Custom Mining Time", "How many ms do you want to wait?", $SleepMine,"", 200,162,$x+111,$y)) If (Not @error) AND (IsNumber($Input)) AND ($Input <> 0) Then $SleepMine = Round($Input) Else $SleepMine = 4000 GUICtrlSetState($T2[3],$GUI_CHECKED) GUICtrlSetState($T2[4],$GUI_UNCHECKED) EndIf Case $msg = $MenuClay $CurrentColor = $ColorClay SetColor() Case $msg = $MenuTin $CurrentColor = $ColorTin SetColor() Case $msg = $MenuCopper $CurrentColor = $ColorCopper SetColor() Case $msg = $MenuIron $CurrentColor = $ColorIron SetColor() Case $msg = $MenuSilver $CurrentColor = $ColorSilver SetColor() Case $msg = $MenuCoal $CurrentColor = $ColorCoal SetColor() Case $msg = $MenuGold $CurrentColor = $ColorGold SetColor() Case $msg = $MenuMithril $CurrentColor = $ColorMithril SetColor() Case $msg = $MenuAddy $CurrentColor = $ColorAddy SetColor() Case $msg = $MenuRunite $CurrentColor = $ColorRunite SetColor() EndSelect WEnd Func Check() Sleep(Random(0,500,1)) $Pixel = PixelSearch($x+2,$y+42,$x+2+$ScanWidth,$y+42+$ScanHeight,$CurrentColor,$Sens) If Not @error Then MouseClick("Left", $Pixel[0],$Pixel[1],1,2) GUICtrlSetData($Sleep,"Mining | " & $SleepMine & " ms") $Idle = 0 AdlibEnable("Check", $SleepMine) Else GUICtrlSetData($Sleep,"Checking | " & $SleepCheck & " ms") $Idle += $SleepCheck If $Idle >= 60000 Then MouseClick("Left") $Idle = 0 EndIf AdlibEnable("Check", $SleepCheck) EndIf EndFunc Func DisplayColor() InputBox("Copy & Paste Box", "This is the variable $CurrentColor:", $CurrentColor) EndFunc Func Resize() HotKeySet("^a") Stop() $MoveMode = True While 1 $MousePos = MouseGetPos() WinMove($Top,"", $x,$y+40,$ScanWidth,2) WinMove($Left,"", $x,$y+40,2,$ScanHeight) WinMove($Right,"", $x+ $ScanWidth - 2,$y+40,2,$ScanHeight) WinMove($Bottom,"", $x,$y+ 40 + $ScanHeight,$ScanWidth,2) If Not (($MousePos[0] - $x + 1) <= 40) Then $ScanWidth = $MousePos[0] - $x + 1 EndIf If Not (($MousePos[1] - $y - 39) <= 40) Then $ScanHeight = $MousePos[1] - $y - 39 EndIf If _IsPressed(01) Then ExitLoop EndIf WEnd HotKeySet("^a","Move") EndFunc Func SetColor() GUICtrlSetBkColor($ColorLabel,$CurrentColor) GUISetBkColor($CurrentColor,$GUI) EndFunc Func Abort() AdlibDisable() HotKeySet("!^x") SplashTextOn("Alert", "Emergency Exit", 200,30) Sleep(800) Exit EndFunc Func Start() Check() GUICtrlSetState($Stop,$GUI_UNCHECKED) GUICtrlSetState($Start,$GUI_CHECKED) EndFunc Func Stop() AdlibDisable() GUICtrlSetData($Sleep,"Stopped") AdlibDisable() GUICtrlSetData($Sleep,"Stopped") GUICtrlSetState($Stop,$GUI_CHECKED) GUICtrlSetState($Start,$GUI_UNCHECKED) EndFunc Func Move() If $MoveMode Then Stop() SetProgramPos($StartX,$StartY) Else SetProgramPos($x,$y) EndIf $MoveMode = Not $MoveMode EndFunc Func SetProgramPos($x,$y) WinMove($GUI,"", $x,$y) WinMove($Top,"", $x,$y+40) WinMove($Left,"", $x,$y+40) WinMove($Right,"", $x+ $ScanWidth - 2,$y+40) WinMove($Bottom,"", $x,$y+ 40 + $ScanHeight) EndFunc Func Preferences() Stop() $Pref = GUICreate("Preferences", 453, 462) ; Left side GUICtrlCreateLabel("The colors " & $AppTitle & " looks for are below." & @CRLF & "The color can be a hex or a decimal. To get a color use the ""Select Color > By Screen Color"" mode and press ""Ctrl + F""", 5, 5, 233, 52) GUICtrlCreateGroup("Colors", 0, 55, 240, 285) $InputClay = GUICtrlCreateInput($ColorClay, 105, 75, 121, 21) GUICtrlCreateLabel("Clay", 10, 80, 43, 17) $InputCopper = GUICtrlCreateInput($ColorCopper, 105, 100, 121, 21) GUICtrlCreateLabel("Copper", 10, 105, 53, 17) $InputTin = GUICtrlCreateInput($ColorTin, 105, 125, 121, 21) GUICtrlCreateLabel("Tin", 10, 130, 53, 17) $InputIron = GUICtrlCreateInput($ColorIron, 105, 150, 121, 21) GUICtrlCreateLabel("Iron", 10, 155, 53, 17) $InputSilver = GUICtrlCreateInput($ColorSilver, 105, 175, 121, 21) GUICtrlCreateLabel("Silver", 10, 180, 53, 17) $InputCoal = GUICtrlCreateInput($ColorCoal, 105, 200, 121, 21) GUICtrlCreateLabel("Coal", 10, 205, 53, 17) $InputGold = GUICtrlCreateInput($ColorGold, 105, 225, 121, 21) GUICtrlCreateLabel("Gold", 10, 230, 53, 17) $InputMithril = GUICtrlCreateInput($ColorMithril, 105, 250, 121, 21) GUICtrlCreateLabel("Mithril", 10, 255, 53, 17) $InputAddy = GUICtrlCreateInput($ColorAddy, 105, 275, 121, 21) GUICtrlCreateLabel("Adamantite", 10, 280, 53, 17) $InputRunite = GUICtrlCreateInput($ColorRunite, 105, 300, 121, 21) GUICtrlCreateLabel("Runite", 10, 305, 53, 17) GUICtrlCreateLabel("These represent the starting point for the program. They are also the coordinates used with Ctrl + A.", 0, 345, 239, 47) GUICtrlCreateGroup("X and Y", 0, 380, 240, 50) $InputX = GUICtrlCreateInput($StartX, 30, 400, 86, 21) $InputY = GUICtrlCreateInput($StartY, 120, 400, 86, 21) ;Right side GUICtrlCreateLabel("The right side contains Beta functions only. These are more advanced and may cause unexplainable errors.", 245, 5, 204, 42) GUICtrlCreateGroup("Beta Options", 245, 55, 205, 285) $CenterCheckbox = GUICtrlCreateCheckbox("", 255, 75, 187, 17) $ColorCheckbox = GUICtrlCreateCheckbox("", 255, 100, 187, 17) GUICtrlCreateLabel("Color match sensitivity. Move the slider to the left for a harder match.", 255, 125, 179, 27) $SensSlider = GUICtrlCreateSlider(255, 155, 180, 30) GUICtrlSetLimit(-1,20,1) GUICtrlSetData(-1,$Sens) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateGroup("Drop Options", 250, 245, 195, 85) $DropNormal = GUICtrlCreateRadio("", 260, 265, 113, 17) $DropMagic = GUICtrlCreateRadio("", 260, 285, 113, 17) $DropNone = GUICtrlCreateRadio("No Drop (Default)", 260, 305, 113, 17) GUICtrlSetState(-1,$GUI_CHECKED) GUICtrlCreateGroup("", -99, -99, 1, 1) ;Bottom Buttons $DefaultButton = GUICtrlCreateButton("Default Values", 5, 435, 135, 25) $OkButton = GUICtrlCreateButton("OK", 145, 435, 90, 25) GUICtrlSetState(-1,$GUI_FOCUS) GUISetState(@SW_SHOW) WinSetOnTop($Pref, "", 1) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $OkButton IniWrite("MineData.ini", "Colors", "Clay", GUICtrlRead($InputClay)) IniWrite("MineData.ini", "Colors", "Copper", GUICtrlRead($InputCopper)) IniWrite("MineData.ini", "Colors", "Tin", GUICtrlRead($InputTin)) IniWrite("MineData.ini", "Colors", "Iron", GUICtrlRead($InputIron)) IniWrite("MineData.ini", "Colors", "Silver", GUICtrlRead($InputSilver)) IniWrite("MineData.ini", "Colors", "Coal", GUICtrlRead($InputCoal)) IniWrite("MineData.ini", "Colors", "Gold", GUICtrlRead($InputGold)) IniWrite("MineData.ini", "Colors", "Mithril", GUICtrlRead($InputMithril)) IniWrite("MineData.ini", "Colors", "Addy", GUICtrlRead($InputAddy)) IniWrite("MineData.ini", "Colors", "Runite", GUICtrlRead($InputRunite)) IniWrite("MineData.ini", "Pos", "X", GUICtrlRead($InputX)) IniWrite("MineData.ini", "Pos", "Y", GUICtrlRead($InputY)) $ColorClay = GUICtrlRead($InputClay) $ColorCopper = GUICtrlRead($InputCopper) $ColorTin = GUICtrlRead($InputTin) $ColorIron = GUICtrlRead($InputIron) $ColorSilver = GUICtrlRead($InputSilver) $ColorCoal = GUICtrlRead($InputCoal) $ColorGold = GUICtrlRead($InputGold) $ColorMithril = GUICtrlRead($InputMithril) $ColorAddy = GUICtrlRead($InputAddy) $ColorRunite = GUICtrlRead($InputRunite) ;beta below If GUICtrlRead($CenterCheckbox) = $GUI_CHECKED Then IniWrite("MineData.ini", "Beta", "CenterOnOre", 1) ElseIf GUICtrlRead($CenterCheckbox) = $GUI_UNCHECKED Then IniWrite("MineData.ini", "Beta", "CenterOnOre", 0) EndIf If GUICtrlRead($ColorCheckbox) = $GUI_CHECKED Then IniWrite("MineData.ini", "Beta", "ColorAverage", 1) ElseIf GUICtrlRead($ColorCheckbox) = $GUI_UNCHECKED Then IniWrite("MineData.ini", "Beta", "ColorAverage", 0) EndIf $Sens = GUICtrlRead($SensSlider) IniWrite("MineData.ini", "Beta", "Sensitifity", $Sens) ExitLoop Case $msg = $DefaultButton FileDelete("MineData.ini") MsgBox(0, $AppTitle, "Default values set, please restart " & $AppTitle) Exit EndSelect WEnd GUIDelete() EndFunc And the Readme: RuneScape AutoMiner v1.0 Introduction: Welcome to RuneScape AutoMiner's helpfile. You're already one step into the right direction: You are reading this manual. This manual is a short guide to how you should use this AutoMiner. Steps: 1. Start RuneScape and log in, head for a mining area and get a pickaxe. 2. Start the AutoMiner. 3. Select the Color of the Ore you want to mine. (Rightclick the word Color and a menu will drop down) (Note: Some Colors/Ores are still not supported) 4. Move the AutoMiner over the ores that you want to mine. And set the required 'Scan Size'. (Area the script will look in for this color you've just set) 5. Set the 2 timers: One controling the interval between checks, the other controling the time before another check is done while mining. 6. Either click 'Start' or press Ctrl + z 7. Sit back, hopefully relax. 8. Wait until you have the required amount of ores (likely, a full inventory). 9. Return to the bank, go to the mining zone and repeat the process from step 6. Hotkeys: Ctrl + Alt + x Emergency Exit (used for debugging) Ctrl + z Starts the autominer. Ctrl + x Stops the autominer. (Pause) Ctrl + a Puts the AutoMiner in the left top corner. When pressed again it moves the AutoMiner back to the original position. Footnote: The RuneScape AutoMiner, you will likely have found with this document, and this help file are fully owned by Manadar. All rights restricted, except study. P.S. Zee Germans Are Coming hehe, kidding mate, good luck
  15. That would only work if you were to always have the program running. If you think you're actually going to make money, depending on what the program does, run it from a server. Only very popular programs get cracked anyway. Use a serial key that reads directly from file on a server. Works for BNET, if they enter the wrong serial have it deleted from the PC. When it comes down to it though, no matter what language or 'non-language' you use, anything is breakable. Just depends on the market you're selling to.
  16. I know... did you look at Auto It 123? It DOES embed it into the GUI...
  17. Sounds like it can be quite malicious. I don't think you will get much help here - especially without any sample code.
  18. Make it an object, Look up AutoIt 1 2 3, for a step by step tutorial (I think it's in section 2?) With the game.
  19. Is it worth the effort to create a dll for a script in C++? Or should I just leave all of my files separate? I don't want them to be editable by anyone, so this is where my dilemma stems from.
  20. So I'm guessing I didn't do stringsplit right? Or what's my problem here, because even the arrays didn't work.
  21. Why don't you add another script to startup then that deletes both of them at startup? And I'm not even going to ask what your script does.
  22. GUIDelete deletes GUI. I'm on a friends lappy so I don't have autoit helpfile to back me up but I think GUICtrlDelete? It's usually the same thing for both... GUI = GUI Form & GUICtrl = GUI Control. So if you use GuiCtrlCreate on it, usually it should be GUICtrl[sufix] check the helpfile though, I may be wrong - Murphy knows it wouldn't be the first time. [edit] you might not want to Delete it though, it might be more effecient to DISABLE it. look up disable in the helpfile, too. I like that function [/edit]
  23. I know this is a bit old, but I thought I'd add to it instead of making a new thread I still don't get it. I read the helpfile, and I just don't see how to turn this into a string the split the string. here is what I have: #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <DateTimeConstants.au3> Global $Calendar, $date, $day, $month, $year, $string, $split $Calendar = GUICtrlCreateMonthCal("@YEAR/@MON/@MDAY", 308, 16, 191, 148, BitOR($MCS_NOTODAY,$WS_BORDER), 0) $date = GUICtrlRead($Calendar) $String = String($date) $Split = StringSplit($string, '/') $day = StringRight($split, 2) $month = StringMid($split, 6, 2) $year = StringLeft($split, 4) MSGBox(0, "Date", $month) I'm not looking for an answer by any means, more so a "hey! idiot! did you try reading _____? or what the hell were you thinking when you wrote ____?" just keepin the spirits up.
  24. I believe you're looking for: GUIDelete ( [winhandle] )
  25. I had a similar issues with this, best bet is to use a different variable other than n, maybe $i Global $i[8] Func _Main() $i = blah EndFunc While 1 Dim $i GUICtrlRead($i, blah...) WEnd This will cancel out $i since it is being claimed Dim, after global. It overrides the $i in the function even though it's global because of the Dim.. Sorry about my ill way of explaining it if you don't understand.
×
×
  • Create New...