soemaal Posted May 29, 2007 Author Share Posted May 29, 2007 here is my work in progress. expandcollapse popupGlobal $Paused HotKeySet("{HOME}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d #include <GUIConstants.au3> Global $Checkbox[8] ; == GUI generated with Koda == $Miner1 = GUICreate("Conquer Online Auto Miner - Soemaal ~ Elitepvpers.de ©2007 ", 492, 366, 225, 176) GUISetIcon("C:\Program Files\Conquer 2.0\tqzf.ico") GUISetCursor (3) GUISetFont(12, 400, 0, "Times New Roman") GUISetBkColor(0x9DB9EB) $Checkbox[1] = GUICtrlCreateCheckbox("Refine Gem", 24, 64, 153, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[2] = GUICtrlCreateCheckbox("Normal Gem", 24, 24, 145, 41) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[3] = GUICtrlCreateCheckbox("Super Gem", 24, 96, 169, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Group1 = GUICtrlCreateGroup("Disconnect at", 16, 8, 185, 145) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) GUICtrlCreateGroup("", -99, -99, 1, 1) $Checkbox[4] = GUICtrlCreateCheckbox("All ores", 264, 24, 145, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[5] = GUICtrlCreateCheckbox("Iron/Copper ore", 264, 56, 145, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[6] = GUICtrlCreateCheckbox("Iron/Silver ore", 264, 88, 153, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[7] = GUICtrlCreateCheckbox("Gold ore", 264, 112, 161, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Group2 = GUICtrlCreateGroup("Ores to Drop", 248, 8, 177, 145) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateLabel("Soemaal's autominer V1.0 Basic oredropper.", 16, 160, 185, 187) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Button1 = GUICtrlCreateButton("Done", 300, 300, 100, 50) GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button1 for $x = 1 To UBound($Checkbox) -1 If _IsChecked($Checkbox[$x]) Then ; do what you wqant MsgBox(0x0, "Conquer Online Auto Miner - Soemaal ~ Elitepvpers.de ©2007 ", GUICtrlRead($Checkbox[$x],1) & " Check, Open your inventory. And press Ok when done.", 2) Sleep(60000) MouseClick("left" ,859,70) MouseClick("left" ,651,327) Sleep(2000) MouseClick("left" ,859,70) MouseClick("left" ,651,327) Sleep(2000) MouseClick("left" ,859,70) MouseClick("left" ,651,327) EndIf Next Case Else ;;;;;;; EndSelect WEnd Exit Func _IsChecked($control) Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED EndFunc While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","This is a message.") EndFunc i am at school atm so i cannot work on it, but helping is always ok Sorry i am only 14 years old, Dutch and new to scripting.Got any complainments? PM memy name is Bas :) Link to comment Share on other sites More sharing options...
soemaal Posted May 29, 2007 Author Share Posted May 29, 2007 here is my work in progress. expandcollapse popupGlobal $Paused HotKeySet("{HOME}", "TogglePause") HotKeySet("{ESC}", "Terminate") HotKeySet("+!d", "ShowMessage") ;Shift-Alt-d #include <GUIConstants.au3> Global $Checkbox[8] ; == GUI generated with Koda == $Miner1 = GUICreate("Conquer Online Auto Miner - Soemaal ~ Elitepvpers.de ©2007 ", 492, 366, 225, 176) GUISetIcon("C:\Program Files\Conquer 2.0\tqzf.ico") GUISetCursor (3) GUISetFont(12, 400, 0, "Times New Roman") GUISetBkColor(0x9DB9EB) $Checkbox[1] = GUICtrlCreateCheckbox("Refine Gem", 24, 64, 153, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[2] = GUICtrlCreateCheckbox("Normal Gem", 24, 24, 145, 41) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[3] = GUICtrlCreateCheckbox("Super Gem", 24, 96, 169, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Group1 = GUICtrlCreateGroup("Disconnect at", 16, 8, 185, 145) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) GUICtrlCreateGroup("", -99, -99, 1, 1) $Checkbox[4] = GUICtrlCreateCheckbox("All ores", 264, 24, 145, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[5] = GUICtrlCreateCheckbox("Iron/Copper ore", 264, 56, 145, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[6] = GUICtrlCreateCheckbox("Iron/Silver ore", 264, 88, 153, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Checkbox[7] = GUICtrlCreateCheckbox("Gold ore", 264, 112, 161, 33) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Group2 = GUICtrlCreateGroup("Ores to Drop", 248, 8, 177, 145) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) GUICtrlCreateGroup("", -99, -99, 1, 1) GUICtrlCreateLabel("Soemaal's autominer V1.0 Basic oredropper.", 16, 160, 185, 187) GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman") GUICtrlSetBkColor(-1, 0x9DB9EB) $Button1 = GUICtrlCreateButton("Done", 300, 300, 100, 50) GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Button1 for $x = 1 To UBound($Checkbox) -1 If _IsChecked($Checkbox[$x]) Then ; do what you wqant MsgBox(0x0, "Conquer Online Auto Miner - Soemaal ~ Elitepvpers.de ©2007 ", GUICtrlRead($Checkbox[$x],1) & " Check, Open your inventory. And press Ok when done.", 2) Sleep(60000) MouseClick("left" ,859,70) MouseClick("left" ,651,327) Sleep(2000) MouseClick("left" ,859,70) MouseClick("left" ,651,327) Sleep(2000) MouseClick("left" ,859,70) MouseClick("left" ,651,327) EndIf Next Case Else ;;;;;;; EndSelect WEnd Exit Func _IsChecked($control) Return BitAnd(GUICtrlRead($control),$GUI_CHECKED) = $GUI_CHECKED EndFunc While 1 Sleep(100) WEnd ;;;;;;;; Func TogglePause() $Paused = NOT $Paused While $Paused sleep(100) ToolTip('Script is "Paused"',0,0) WEnd ToolTip("") EndFunc Func Terminate() Exit 0 EndFunc Func ShowMessage() MsgBox(4096,"","This is a message.") EndFunc i am at school atm so i cannot work on it, but helping is always ok Sorry i am only 14 years old, Dutch and new to scripting.Got any complainments? PM memy name is Bas :) Link to comment Share on other sites More sharing options...
Generator Posted May 29, 2007 Share Posted May 29, 2007 I can only gives you ideas since i do not have the actual game to test on. Beginning: PixelChecksum ( left, top, right, bottom [, step] ); check the ore In a loop: MouseMove ( x, y [, speed] ); move the mouse to your inv Option: 1. MouseClickDrag ( "left", x1, y1, x2, y2 [, speed] ) ; x1 and y1 as the coord of the rock in your inv, x2 and y2 as the ground you want to drag to, speed i would recommend 15 not so fast and not too slow 2. MouseClick ( "button" [, x, y [, clicks [, speed ]]] ); the ore in inv MouseMove ( x, y [, speed] ); move the mouse to ground MouseClick ( "button" [, x, y [, clicks [, speed ]]] ); click ground For $i= 1 to 10 MouseClick ( "button" [, x, y [, clicks [, speed ]]] ); the ore on ground to mine, change $i for how many times Sleep(250); change sleep time for delay Next PixelChecksum ( left, top, right, bottom [, step] ); if the ore changed. stop All you need i guess, maybe try to work it out. Link to comment Share on other sites More sharing options...
soemaal Posted May 29, 2007 Author Share Posted May 29, 2007 thanks i'll try it as soon i am home , other people can post idea's / examples too Sorry i am only 14 years old, Dutch and new to scripting.Got any complainments? PM memy name is Bas :) Link to comment Share on other sites More sharing options...
soemaal Posted May 31, 2007 Author Share Posted May 31, 2007 bump Sorry i am only 14 years old, Dutch and new to scripting.Got any complainments? PM memy name is Bas :) Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now