diablo II

ggowner · August 1, 2007

ive recently found this script tryd to fix it but no luck, its supposed to check the accept trade box when the other players do

=] to get a lil tricky i hope snarg reads this bcuze im pretty sure he made. just no matter what i do no luck.

Color Dialog constants

Global Const $CC_ANYCOLOR = 0x100

Global Const $CC_FULLOPEN = 0x2

Global Const $CC_RGBINIT = 0x1

; Font Dialog constants

Global Const $CF_EFFECTS = 0x100

Global Const $CF_PRINTERFONTS = 0x2

Global Const $CF_SCREENFONTS = 0x1

Global Const $CF_NOSCRIPTSEL = 0x800000

Global Const $CF_INITTOLOGFONTSTRUCT = 0x40

Global Const $DEFAULT_PITCH = 0

Global Const $FF_DONTCARE = 0

Global 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

EndIf

EndFunc ;==>_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

EndIf

EndFunc ;==>_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

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 0

EndFunc ;==>_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)

EndIf

Sleep(100)

WEnd

Func _end()

Exit 0

EndFunc

;Will act up in trade screen/p emerald

; ----------------------------------------------------------------------------

; <AUT2EXE INCLUDE-END: C:\Documents and Settings\Gabe\Desktop\my-autoit\ownednew.au3>

; ----------------------------------------------------------------------------

Jos · August 1, 2007

Is this yours ? doubt it since it looks like a decompiled script to me ...

Moved to support forum

Edited August 1, 2007 by JdeB

Snarg · August 1, 2007

Not mine.

ggowner · August 3, 2007

can i get a lil help though here guys idk why its not reading the color pick up

Generator · August 3, 2007

100% Decompiled script, what you really needs is the lines that are after <AUT2EXE INCLUDE-END: C:\Program Files\AutoIt3\beta\Include\Misc.au3>

If you don't even understand those, you don't deserve it.

Jos · August 3, 2007

can i get a lil help though here guys idk why its not reading the color pick up

Have you seen my questions ?

Would help if you answer them first ...

Sign In

diablo II

Recommended Posts

ggowner

Jos

Snarg

ggowner

Generator

Jos

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta