ggowner Posted August 1, 2007 Share Posted August 1, 2007 i recently found this tried to fix for the life of me. and have had no luck at all =[it seems as if the script just jumpa to accept the trade at a certain time interval and not when it detects the green color.. i need some major help here Color Dialog constantsGlobal Const $CC_ANYCOLOR = 0x100Global Const $CC_FULLOPEN = 0x2Global Const $CC_RGBINIT = 0x1; Font Dialog constantsGlobal Const $CF_EFFECTS = 0x100Global Const $CF_PRINTERFONTS = 0x2Global Const $CF_SCREENFONTS = 0x1Global Const $CF_NOSCRIPTSEL = 0x800000Global Const $CF_INITTOLOGFONTSTRUCT = 0x40Global Const $DEFAULT_PITCH = 0Global Const $FF_DONTCARE = 0Global Const $LOGPIXELSX = 88;===============================================================================;; Description: _ChooseColor; Parameter(s): $i_ReturnType - Optional: determines return type; $i_colorref - Optional: default selected Color; $i_refType - Optional: Type of $i_colorref passed in; Requirement: None; Return Value(s): Returns COLORREF rgbcolor if $i_refType = 0 (default); Returns Hex RGB value if $i_refType = 1; Returns Hex BGR Color if $i_refType = 2; if error occurs, @error is set; User CallTip: _ChooseColor([$i_ReturnType = 0[, $i_colorref = 0[, $i_refType=0]]]) Creates a Color dialog box that enables the user to select a color. (required: <Misc.au3>); Author(s): Gary Frost (custompcs at charter dot net); Note(s): $i_ReturnType = 0 then COLORREF rgbcolor is returned (default); $i_ReturnType = 1 then Hex BGR Color is returned; $i_ReturnType = 2 Hex RGB Color is returned;; $i_colorref = 0 (default);; $i_refType = 0 then $i_colorref is COLORREF rgbcolor value (default); $i_refType = 1 then $i_colorref is BGR hex value; $i_refType = 2 then $i_colorref is RGB hex value;;===============================================================================Func _ChooseColor($i_ReturnType = 0, $i_colorref = 0, $i_refType = 0);~ typedef struct {;~ DWORD lStructSize;;~ HWND hwndOwner;;~ HWND hInstance;;~ COLORREF rgbResult;;~ COLORREF *lpCustColors;;~ DWORD Flags;;~ LPARAM lCustData;;~ LPCCHOOKPROC lpfnHook;;~ LPCTSTR lpTemplateName;;~ } CHOOSECOLOR, *LPCHOOSECOLOR; Local $custcolors = "int[16]" Local $struct = "dword;int;int;int;ptr;dword;int;ptr;ptr" Local $p = DllStructCreate ($struct) If @error Then ;MsgBox(0,"","Error in DllStructCreate " & @error); SetError(-1) Return -1 EndIf Local $cc = DllStructCreate ($custcolors) If @error Then ; MsgBox(0,"","Error in DllStructCreate " & @error);; DllStructDelete ($p) SetError(-2) Return -1 EndIf If ($i_refType == 1) Then $i_colorref = Int($i_colorref) ElseIf ($i_refType == 2) Then $i_colorref = Hex(String($i_colorref), 6) $i_colorref = '0x' & StringMid($i_colorref, 5, 2) & StringMid($i_colorref, 3, 2) & StringMid($i_colorref, 1, 2) EndIf DllStructSetData ($p, 1, DllStructGetSize ($p)) DllStructSetData ($p, 2, 0) DllStructSetData ($p, 4, $i_colorref) DllStructSetData ($p, 5, DllStructGetPtr ($cc)) DllStructSetData ($p, 6, BitOR($CC_ANYCOLOR, $CC_FULLOPEN, $CC_RGBINIT)) Local $ret = DllCall("comdlg32.dll", "long", "ChooseColor", "ptr", DllStructGetPtr ($p)) If ($ret[0] == 0) Then ; user selected cancel or struct settings incorrect; DllStructDelete ($p); DllStructDelete ($cc) SetError(-3) Return -1 EndIf Local $color_picked = DllStructGetData ($p, 4); DllStructDelete ($p); DllStructDelete ($cc) If ($i_ReturnType == 1) Then ; return Hex BGR Color Return '0x' & Hex(String($color_picked), 6) ElseIf ($i_ReturnType == 2) Then ; return Hex RGB Color $color_picked = Hex(String($color_picked), 6) Return '0x' & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2) ElseIf ($i_ReturnType == 0) Then Return $color_picked Else SetError(-4) Return -1 EndIfEndFunc ;==>_ChooseColor;===============================================================================;; Description: _ChooseFont; Parameter(s): $s_FontName - Optional: Default font name; $i_size - Optional: pointsize of font; $i_colorref - Optional: COLORREF rgbColors; Requirement: None.; Return Value(s): Returns Array, $array[0] contains the number of elements; if error occurs, @error is set; User CallTip: _ChooseFont([$s_FontName = "Courier New"[, $i_size = 10[, $i_colorref = 0]]]) Creates a Font dialog box that enables the user to choose attributes for a logical font. (required: <Misc.au3>); Author(s): Gary Frost (custompcs at charter dot net); Note(s): $array[1] - attributes = BitOr of italic:2, undeline:4, strikeout:8; $array[2] - fontname; $array[3] - font size = point size; $array[4] - font weight = = 0-1000; $array[5] - COLORREF rgbColors; $array[6] - Hex BGR Color; $array[7] - Hex RGB Color;;===============================================================================Func _ChooseFont($s_FontName = "Courier New", $i_size = 10, $i_colorref = 0) ;~ typedef struct { ;~ DWORD lStructSize; ;~ HWND hwndOwner; ;~ HDC hDC; ;~ LPLOGFONT lpLogFont; ;~ INT iPointSize; ;~ DWORD Flags; ;~ COLORREF rgbColors; ;~ LPARAM lCustData; ;~ LPCFHOOKPROC lpfnHook; ;~ LPCTSTR lpTemplateName; ;~ HINSTANCE hInstance; ;~ LPTSTR lpszStyle; ;~ WORD nFontType; ;~ INT nSizeMin; ;~ INT nSizeMax; ;~ } CHOOSEFONT, *LPCHOOSEFONT; ;~ typedef struct tagLOGFONT { ;~ LONG lfHeight; ;~ LONG lfWidth; ;~ LONG lfEscapement; ;~ LONG lfOrientation; ;~ LONG lfWeight; ;~ BYTE lfItalic; ;~ BYTE lfUnderline; ;~ BYTE lfStrikeOut; ;~ BYTE lfCharSet; ;~ BYTE lfOutPrecision; ;~ BYTE lfClipPrecision; ;~ BYTE lfQuality; ;~ BYTE lfPitchAndFamily; ;~ TCHAR lfFaceName[LF_FACESIZE]; 32 chars max ;~ } LOGFONT, *PLOGFONT; Local $ret = DllCall("gdi32.dll", "long", "GetDeviceCaps", "long", 0, "long", $LOGPIXELSX) If ($ret[0] == -1) Then SetError(-3) Return -1 EndIf Local $lfHeight = Round(($i_size * $ret[2]) / 72, 0) Local $logfont = "int;int;int;int;int;byte;byte;byte;byte;byte;byte;byte;byte;char[32]" Local $struct = "dword;int;int;ptr;int;dword;int;int;ptr;ptr;int;ptr;dword;int;int" Local $p = DllStructCreate ($struct) If @error Then ;MsgBox(0,"","Error in DllStructCreate " & @error); SetError(-1) Return -1 EndIf Local $lf = DllStructCreate ($logfont) If @error Then ; MsgBox(0,"","Error in DllStructCreate " & @error);; DllStructDelete ($p) SetError(-2) Return -1 EndIf DllStructSetData ($p, 1, DllStructGetSize ($p)) DllStructSetData ($p, 2, 0) DllStructSetData ($p, 4, DllStructGetPtr ($lf)) DllStructSetData ($p, 5, $i_size) DllStructSetData ($p, 6, BitOR($CF_SCREENFONTS, $CF_PRINTERFONTS, $CF_EFFECTS, $CF_INITTOLOGFONTSTRUCT, $CF_NOSCRIPTSEL)) DllStructSetData ($p, 7, $i_colorref) DllStructSetData ($p, 13, 0) DllStructSetData ($lf, 1, $lfHeight + 1) DllStructSetData ($lf, 6, 0) DllStructSetData ($lf, 7, 0) DllStructSetData ($lf, 8, 0) DllStructSetData ($lf, 14, $s_FontName) $ret = DllCall("comdlg32.dll", "long", "ChooseFont", "ptr", DllStructGetPtr ($p)) If ($ret[0] == 0) Then ; user selected cancel or struct settings incorrect; DllStructDelete ($p); DllStructDelete ($lf) SetError(-3) Return -1 EndIf Local $fontname = DllStructGetData ($lf, 14) If (StringLen($fontname) == 0 And StringLen($s_FontName) > 0) Then $fontname = $s_FontName EndIf Local $italic = 0 Local $underline = 0 Local $strikeout = 0 If (DllStructGetData ($lf, 6)) Then $italic = 2 EndIf If (DllStructGetData ($lf, 7)) Then $underline = 4 EndIf If (DllStructGetData ($lf, 8)) Then $strikeout = 8 EndIf Local $attributes = BitOR($italic, $underline, $strikeout) Local $size = DllStructGetData ($p, 5) / 10 Local $weight = DllStructGetData ($lf, 5) Local $colorref = DllStructGetData ($p, 7); DllStructDelete ($p); DllStructDelete ($lf) Local $color_picked = Hex(String($colorref), 6) Return StringSplit($attributes & "," & $fontname & "," & $size & "," & $weight & "," & $colorref & "," & '0x' & $color_picked & "," & '0x' & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2), ",")EndFunc ;==>_ChooseFont;===============================================================================;; Function Name: _Iif(); Description: Perform a boolean test within an expression.; Parameter(s): $f_Test - Boolean test.; $v_TrueVal - Value to return if $f_Test is true.; $v_FalseVal - Value to return if $f_Test is false.; Requirement(s): None.; Return Value(s): One of $v_TrueVal or $v_FalseVal.; Author(s): Dale (Klaatu) Thompson;;===============================================================================Func _Iif($f_Test, $v_TrueVal, $v_FalseVal) If $f_Test Then Return $v_TrueVal Else Return $v_FalseVal EndIfEndFunc ;==>_Iif;===============================================================================;; Description: _MouseTrap; Parameter(s): $i_left - Left coord; $i_top - Top coord; $i_right - Right coord; $i_bottom - Bottom coord; User CallTip: _MouseTrap([$i_left = 0[, $i_top = 0[, $i_right = 0[, $i_bottom = 0]]]]) Confine the Mouse Cursor to specified coords. (required: <Misc.au3>); Author(s): Gary Frost (custompcs at charter dot net); Note(s): Use _MouseTrap() with no params to release the Mouse Cursor;;===============================================================================Func _MouseTrap($i_left = 0, $i_top = 0, $i_right = 0, $i_bottom = 0) Local $av_ret If @NumParams == 0 Then $av_ret = DllCall("user32.dll", "int", "ClipCursor", "int", 0) Else If @NumParams == 2 Then $i_right = $i_left + 1 $i_bottom = $i_top + 1 EndIf Local $Rect = DllStructCreate("int;int;int;int") If @error Then Return 0 DllStructSetData($Rect, 1, $i_left) DllStructSetData($Rect, 2, $i_top) DllStructSetData($Rect, 3, $i_right) DllStructSetData($Rect, 4, $i_bottom) $av_ret = DllCall("user32.dll", "int", "ClipCursor", "ptr", DllStructGetPtr($Rect)); DllStructDelete($Rect) EndIf Return $av_ret[0]EndFunc ;==>_MouseTrap;===============================================================================;; Description: _Singleton; Parameter(s): $occurenceName; $flag; User CallTip: _Singleton($occurenceName [,$flag = 0]) Check if no other occurence is running. (required: <Misc.au3>); Return Value(s): if $flag = 1; Author(s): Jason Boggs <vampire dot valik at gmail dot com>;;===============================================================================Func _Singleton($occurenceName, $flag=0) Local $ERROR_ALREADY_EXISTS = 183 $occurenceName=StringReplace($occurenceName,"\", "") ; to avoid error; Local $handle = DllCall("kernel32.dll", "int", "CreateSemaphore", "int", 0, "long", 1, "long", 1, "str", $occurenceName) Local $handle = DllCall("kernel32.dll", "int", "CreateMutex", "int", 0, "long", 1, "str", $occurenceName) Local $lastError = DllCall("kernel32.dll", "int", "GetLastError") If $lastError[0] = $ERROR_ALREADY_EXISTS Then If $flag = 0 Then Exit -1 Else SetError($lastError[0]) Return 0 EndIf EndIf Return $handle[0]EndFunc; _Singleton();===============================================================================;; Description: _IsPressed; Parameter(s): $s_hexKey - key to check for; $v_dll = Handle to dll or default to user32.dll;; User CallTip: _IsPressed($s_hexKey[, $v_dll = 'user32.dll']) Check if key has been pressed. (required: <Misc.au3>); Return Value(s): 1 if true; 0 if false; Author(s): ezzetabi and Jon;;===============================================================================Func _IsPressed($s_hexKey, $v_dll = 'user32.dll') ; $hexKey must be the value of one of the keys. ; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is. Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey) If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1 Return 0EndFunc ;==>_Is_Key_Pressed; ----------------------------------------------------------------------------; <AUT2EXE INCLUDE-END: C:\Program Files\AutoIt3\beta\Include\Misc.au3>; ----------------------------------------------------------------------------$dll = DllOpen("user32.dll")HotKeySet("{HOME}","_end")Sleep(2000)While 1 If _IsPressed("11",$dll) Then $a = PixelGetColor(369,265) Do TrayTip("","CTRL has been pressed. Now waiting...",1) Sleep(10) $b = PixelGetColor(369,265) Until $a <> $b MouseClick("left",319,481,1,1) TrayTip("","",1) EndIfSleep(100)WEndFunc _end() Exit 0EndFunc;Will act up in trade screen/p emerald; ----------------------------------------------------------------------------; <AUT2EXE INCLUDE-END: C:\Documents and Settings\Gabe\Desktop\my-autoit\ownednew.au3>; ---------------------------------------------------------------------------- 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