HaxLi

Thank you martin :] Another problem is I can't find is that when I set 2 it goes ~+10 then back to 1 it goes -20. Then again 2 do +20 :] And one more thing I want to do is to resize GUIgroup "Opts" with that window.. #include <GuiConstants.au3> #include <Array.au3> Opt("GUIResizeMode", 802) ;or $GUI_DOCKALL Global Const $step_res = 20 Global Const $GUI_title = "2U 10.10" Global Const $GUI_width = 160, $GUI_high = 140 Global Const $UPlimit = 35, $DOWNlimit = 1 Dim $sz = 1 ; :::HotKeyVars:: $kB = "F8" $kA = "F9" $kS = "F10" $kL = "F9" ; :::GUI::::::::: GUICreate($GUI_title, $GUI_width, $GUI_high) GUICtrlCreateGroup("Info", 5, 5, 150, 75) Opt("GUICoordMode", 0) GUICtrlCreateLabel("" & @CRLF & _ "" & @CRLF & _ "" & @CRLF & _ "Alt+", 10, 15, -1, 55) GUICtrlCreateLabel($kB & @CRLF & _ $kA & @CRLF & _ $kS & @CRLF & _ $kL, 20, -1, -1, 55) GUICtrlCreateLabel("Buy (on|off)" & @CRLF & _ "AFK" & @CRLF & _ "Stop" & @CRLF & _ "AutoLoot (on|off)", 30, -1, -1, 55) Opt("GUICoordMode", 1) GUISetFont(9) GUICtrlCreateGroup("Opts", 5, 80, 150) GUICtrlSetResizing (-1, 102) ;or $GUI_DOCKBORDERS GUISetFont(6) $szin = GUICtrlCreateInput($sz, 115, 75, 30, 14, $ES_RIGHT) GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, $UPlimit, $DOWNlimit) GUISetFont(8, "", 5) GUICtrlCreateLabel("[ 2006 © HaxLi ]", 70, 0, 77) GUICtrlSetColor(-1,0xCCCCCC) GUISetState() ; :::Loop:::::::: ;~ resizeWin() Wait() Func Wait() While 1 $msg = GuiGetMsg() Select Case $msg == $GUI_EVENT_CLOSE Exit Case $msg == $szin resizeWin() EndSelect Sleep(20) WEnd EndFunc Func resizeWin() Local $size = WinGetPos($GUI_title) ;It takes different values than I set at Global Const $GUI_width & $GUI_high ;~ _ArrayDisplay($size, "$size") Local $sz_tmp = GUICtrlRead($szin) If ($sz >= $DOWNlimit) And ($sz <= $UPlimit) Then Local $diff = $sz_tmp - $sz If $diff <> 0 Then WinMove ($GUI_title, "", $size[0], $size[1], $size[2], ($diff + $sz) * $step_res + $GUI_high) $sz = $sz_tmp EndIf Else MsgBox(16,"ERROR","Input out of range < " & $DOWNlimit & " | " & $UPlimit & " >") GUICtrlSetData($szin, $sz) EndIf EndFunc Thank you, if any help ^^ EDIT: Found the solution for resize GUIgroup "Opts" with GUICtrlSetResizing (-1,102) or $GUI_DOCKBORDERS And found that WinGetPos takes different values than I set at Global Const $GUI_width & $GUI_high and different thant WinGetClientSize gets And WinMove uses WinGetPos. Waht commandcould thange this?

Thank you for $GUI_DOCKALL command BigDod :}

#include <GuiConstants.au3> Global Const $step_res = 20 Global Const $GUI_title = "2U 10.07" Global Const $GUI_width = 160,$GUI_high = 200+$step_res Global Const $UPlimit = 9, $DOWNlimit = 1 Dim $b Dim $a = 1 ; :::GUI::::::::: $c = GUICreate($GUI_title, $GUI_width, $GUI_high, "", "", $WS_SIZEBOX) GUICtrlCreateGroup("Info", 5, 5, 150, 75) $d = GUICtrlCreateInput($a, 15, 20, 30, 20) $b = GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, $UPlimit, $DOWNlimit) GUISetFont(8, "", 5) GUICtrlCreateLabel("[ 2006 © HaxLi ]", 70, 0, 77) GUICtrlSetColor(-1,0xCCCCCC) GUISetState() ; :::Loop:::::::: Wait() Func Wait() While 1 $msg = GuiGetMsg() Select Case $msg == $GUI_EVENT_CLOSE Exit Case $msg == $b resizeWin() Case $msg == $d resizeWin() EndSelect Sleep(20) WEnd EndFunc Func resizeWin() Local $size = WinGetPos($GUI_title) Local $a_tmp = GUICtrlRead($d) If ($a_tmp >= $DOWNlimit) And ($a_tmp <= $UPlimit) Then Local $diff = $a_tmp - $a If $diff <> 0 Then WinMove ($GUI_title, "", $size[0], $size[1], $size[2], $GUI_high + ($a+$diff)*$step_res) $a = $a_tmp EndIf Else MsgBox(0,"ERROR","Input out of range <" & $DOWNlimit & "," & $UPlimit & ">") GUICtrlSetData($d, $a) EndIf EndFunc Changed this: WinMove ($GUI_title, "", $size[0], $size[1], $size[2], $GUI_high + ($a+$diff)*$step_res) Thank you for WinMove and WinGetPos commands :] But the another problem still exist.. when I resize it, GUIGroup do deformation and Input moves out of place.. so I need them to be fixed in their position :] Thank you :}

#include <GuiConstants.au3> Dim $b $a = 1 ; :::GUI::::::::: $c = GUICreate("2U 10.07", 160, 200+$a*20, "", "", $WS_SIZEBOX) ; I want to make resizable window by increase/decrease GUIinput GUICtrlCreateGroup("Info", 5, 5, 150, 75) ; This is not fixed when I resizse manualy $d = GUICtrlCreateInput($a, 15, 20, 30, 20) ; |_ this is not fixed too, I want tobe them fixed $b = GUICtrlCreateUpdown(-1) GUICtrlSetLimit(-1, 9, 1) GUISetFont(8, "", 5) GUICtrlCreateLabel("[ 2006 © HaxLi ]", 70, 0, 77) GUICtrlSetColor(-1,0xCCCCCC) GUISetState() ; :::Loop:::::::: Wait() Func Wait() While 1 $msg = GuiGetMsg() Select Case $msg == $GUI_EVENT_CLOSE Exit Case $msg == $b ; Not sure if I do it in right way.. $a = GUICtrlRead($d) GUICtrlSetData($c, $a, $a) EndSelect Sleep(20) WEnd EndFunc I'm not sure how to make this Increase/Decrease size of my GUI by clickin on Input values.. If anyone know how to do this, would be nice to hear from you :} Thank You. Friendly, HaxLi

Thank you for Code and realy nice help big_daddy!~.. that was what I wanted to do with it :] $sB = _ArrayToString($aA, ", ", 1) I realy appreciate your help.. and thanks for some more new code you teatched me here ;p Manadar I know that $a == $a.. that was just an eg.. it's bcoz $a is default value, and I want to read values from some GUI I made and to write them back in ini file, which is created if filenotexist.. so I want to create changeable variable.. Sorry if my question sounded like stupid one ^^; Best Regards, HaxLi

$a = "1, 2, 3" $aA = StringSplit($a, ", ", 1) $b = $aA[1] & ", " & $aA[2] & ", " & $aA[3] MsgBox(0, "abc", $b & " <-- this var works" & @CRLF & $aA & "<-- but don't know how to get the same value without $aA[1-3] -.-'") ;maybe there is something like StringSplit but in another way?oÝ÷ Øz0¶´ ëk+ÚçiÉ"ö«jÈ­Á«%G¢Múi¨r¢}ý¶X¤zØ^¶¬Á¬ºÚ"µÍÌÍØH ÌÍØPVÌWH [È ][ÝË ][ÝÈ [È ÌÍØPVÌH [È ][ÝË ][ÝÈ [È ÌÍØPVÌ× I need to make this array variable like $aA[$i], thats why that $b above is not what I need.. Thank you for help if any Friendly, HaxLi

Thank you AzKay, that you are so helpfull.. It helped me too with other things. I'm learning some simle code since I'm study Art and Design.. heh >.<;

Wow, event EVE online starts to use Bots XD Nice I dea with those Logings of Cords.. but I'm not sure how to make it work.. GL waiting for help here.. sometimes here are ppl who just feel a must to write code for fun ^^; As i don't have much time, and have no idea yet.. cant help realy.. Did you tryed to make Script by your own?

Thank you alot for wonderful help, You realy helped me. :] Actualy I posted not full code, bcoz I just wanted to fid a way how to increase that variable. And you showed me the way: $A += 1 ;actualy I nevere thought that there is such a way to do this O.o $A -= 1 ;I thought about If's or While's or For's, till I didn't knew this simple +=1 ;poÝ÷ Ø l¢ØZL¨¹ú+²ì¡×ºÚ"µÍÚÝÜÚYÛXÙKÜÈÚZÝÈHØ[ZÙH^HÛÈ[ÈÚ]È]SÒHÝYÜÈIÌÎNÛ[ÙHÙ]ÛÛYY^KX^XHHH[ÜHÛËÚXÚÛÝ[XZÙHÛÙZ[ÈÜYHÞY I guess you are not interested about Programs called Boting in games.. And this is for MUonline MMORPG :]

Well I'm trying to make it by my self at the moment, but since I'm not a coder but Designer, I'm not good on those logical thigs. I just want to be sure, that nooe will help me at this.. I need only explanation where and when those arrays are used and what should I start with.. Btw: I'm working with IniRead|Write now.. so just no idea how to start that increasement thing.. Thank you for new code I didn't knew before [switch]. I wonder if it's better than [select]..

Now I have something like this GUI: ; :::HotKeys::::: HotKeySet("{UP}", "Increase") HotKeySet("{DOWN}", "Decrease") ; :::GUI::::::::: $r = WinGetClientSize("") ;How to get a whole Windows Screen size while it only detects the value of directory where Program is held? Maybe someone knows the title of Windows Screen? :] GuiCreate("AE 09.30", 100, 60, $r[0]-120, 50) ;It suposed to appear like in upper right corner GuiCtrlCreateGroup( "By HaxLi", 5, 0, 90, 55) $c = GUICtrlCreateCombo("",10, 15, 40) ;Iwant this walue to increase|decrease with {UP}|{DOWN}. maybe I should use GUICtrlCreateList() for this.. anyway I donno how to make a Func.. GUICtrlSetData(-1, "1.0|1.5|2.0|2.5|3.0|3.5", "3.0") ;Maybe those walues should be set as an $Array? GUICtrlCreateLabel("Speed", 55, 20, 35) $l = GUICtrlCreateCheckbox("AutoLoot", 10, 35, 80) ;I guess you noticed that this is for teh sake of game ;p GUICtrlSetState($l, $GUI_CHECKED) GUISetState() ; :::Funcs::::::: Func Increase() ;;;Something here with $c EndFunc Func Decrease() ;;;And something here with $c EndFunc Well, if someone know how to make this.. Would be nice to see it ^^;

GameGuard made this.. someone nkows how to make colors come true.. but do not share..http://mpcforum.com/showthread.php?t=155187&p=1465410

heh.. it's realy nice how you do things so simple >.<; Thank you for this nice code.. It's realy nice that first value is not my value I use as coordinate.. And it's so simple to understand that now :] This is why I need Array (as I donno another way): $r = WinGetClientSize("") For $p = 1 To 12 MouseMove($r[0]/100*$aX1[$p], $r[1]/100*$aY1[$p], $s) AFK($a) Next I just makeing automate mouse move in the specific directory, and I want that I could edit cordinate values, since the Program is runing..

Yes I know that $array[3] starts from 0 thats why I made ['', x1, x2..] Thanx for expanation Helge :] Thank you Valuater for code, I'l check it..

As I'm new at codeing.. I cant understand the problem, why I can't Write and read array from ini while single variable works.. #include <GUIConstants.au3> ; :::Declares:::: Dim $x1[13] = ['', 50, 50, 59.5, 41.9, 58.1, 40.5, 50, 50, 41.9, 59.5, 40.5, 58.1];Cords x Dim $y1[13] = ['', 23.5, 55.4, 37, 52, 52, 37, 55.4, 23.5, 52, 37, 37, 52] ;Cords y Dim $x2[7] = ['', 50, 59.5, 58.1, 50, 41.9, 40.5] ;Cords x Dim $y2[7] = ['', 23.5, 37, 52, 55.4, 52, 37] ;Cords y ; :::IniFile::::: If FileExists("cfg.ini") Then Dim $x1[13] = [IniRead("cfg.ini", "Cords", "x1")];not reading Dim $y1[13] = [IniRead("cfg.ini", "Cords", "y1")];not reading Dim $x2[7] = [IniRead("cfg.ini", "Cords", "x2")];not reading Dim $y2[7] = [IniRead("cfg.ini", "Cords", "y2")];not reading Else _FileCreate("cfg.ini") IniWrite("cfg.ini", "Cords", "x1", $x1);not writeing IniWrite("cfg.ini", "Cords", "y1", $y1);not writeing IniWrite("cfg.ini", "Cords", "x2", $x2);not writeing IniWrite("cfg.ini", "Cords", "y2", $y2);not writeing Dim $x1[13] = [IniRead("cfg.ini", "Cords", "x1")];not reading Dim $y1[13] = [IniRead("cfg.ini", "Cords", "y1")];not reading Dim $x2[7] = [IniRead("cfg.ini", "Cords", "x2")];not reading Dim $y2[7] = [IniRead("cfg.ini", "Cords", "y2")];not reading EndIf