Who wants to help me finish this

[Orgins]

Anyone want to help me finish this? Its pointless and will never come in handy.

I made a script that recorders all pixel colors (ever 5 pixels) It's crapy/simple so far.

$x = 0
$y = 0
$spot = $x & "," & $y


Do
$var = PixelGetColor ( $x , $y )
IniWrite("myfile.ini", "Screen", $spot, Hex($var, 6))
$y = $y + 5
$spot = $x & "," & $y
Until $y = 765
Do
$x = $x + 5
$y = 5 + 5

Do
$var = PixelGetColor ( $x , $y )
IniWrite("myfile.ini", "Screen", $spot, Hex($var, 6))
$y = $y + 5
$spot = $x & "," & $y
Until $y = 765
until $x = 1025

Now I just needs a script that will read the ini pick the color and paint it in ms paint at the right spot.

Anyone wana help me out? Or just give pointers on how to do it?

[Orgins]

Ok so I had it working it was even painting in ms pant but mmm I edited the code and F'ed it up.

Takes screen shot (kinda)

$x = 0
$y = 0
$spot = $x & "," & $y


Do
$var = PixelGetColor ( $x , $y )
IniWrite("myfile.ini", "Screen", $spot, "0x" & "" & Hex($var, 6))
$y = $y + 5
$spot = $x & "," & $y
Until $y = 765
Do
$x = $x + 5
$y = 5 + 5

Do
$var = PixelGetColor ( $x , $y )
IniWrite("myfile.ini", "Screen", $spot, "0x" & "" & Hex($var, 6))
$y = $y + 5
$spot = $x & "," & $y
Until $y = 765
until $x = 1025

Part my my ini file

[Screen]
0,0=0x000000
0,5=0x000000
0,10=0x000000
0,15=0x000000
0,20=0x000000
0,25=0x000000
0,30=0x000000
0,35=0x000000
0,40=0x010101
0,45=0x010101
0,50=0x010101

Don,t now what I goofed up...but it's broken

ms paint part

expandcollapse popup

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

$x = 0;used to read ini
$y = 0;used to read ini
$y2 = 0; use to paint
$x2 = 0; use to paint
$spot = $x & "," & $y


WinActivate("untitled - Paint", "")
Sleep(3000)
Do
    Sleep(10)
$var = IniRead("myfile.ini", "Screen", $spot, "NotFound")
$coord = PixelSearch( 10, 660, 300, 700, Hex($var, 6), 200 ); scans the colors in ms pant (the quick colors on the bottom of left)
If Not @error Then
    MouseClick("left", $coord[0], $coord[1], 0)
EndIf
    MouseClick("left", $x2 + 70, $y2 + 70, 0); adds 70 to shift everything over into ms pants white part
$y = $y + 5;Adds 5 to Y makeing $spot = 0,5
$y2 = $y2 + 2;Adds 2 to $y2 makeing the pant job 2/5 the size
$spot = $x & "," & $y
Until $y = 600

Do
$x = $x + 5; adds 5 to x makeing $spot 5,0 
$x2 = $x2 + 2;Adds 2 to $x2 makeing the pant job 2/5 the size
$y = $y + 5; goes from 5,0 to  5,5   5,10    5,15   and so on into 5,700
$y2 = $y2 + 2;Adds 2 to $y2 makeing the pant job 2/5 the size
Do
        Sleep(10)
$var = IniRead("myfile.ini", "Screen", $spot, "NotFound")
$coord = PixelSearch( 10, 660, 300, 700, Hex($var, 6), 200 ); scans the colors in ms pant (the quick colors on the bottom of left)
If Not @error Then
    MouseClick("left", $coord[0], $coord[1], 0)
EndIf
    MouseClick("left", $x + 70, $y + 70, 0); adds 70 to shift everything over into ms pants white part
$y = $y + 5
$y2 = $y2 + 2
$spot = $x & "," & $y
Until $y = 600
until $x = 700

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Edited February 25, 2007 by Orgins

[(^_^)]

o wow that cool ur script remindes my of my wow fishing bot that i made

i havent run ur script but take a look at my script http://www.autoitscript.com/forum/index.php?showtopic=28873 its remarkably like urs and might help u a bit

Edited February 25, 2007 by (^_^)

[Orgins]

Ok I got it painting again but its not picking the color right. It keeps picking black (the first color) ever time.

So I take it its not renewing the hex color? any help would be nice.

expandcollapse popup

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

$x = 0;used to read ini
$y = 0;used to read ini
$y2 = 0; use to paint
$x2 = 0; use to paint
$2 = 2 ; moves the line over 2
$spot = $x & "," & $y


WinActivate("untitled - Paint", "")
Sleep(3000)
Do
    Sleep(10)
$var = IniRead("myfile.ini", "Screen", $spot, "NotFound")
$coord = PixelSearch( 50, 660, 270, 700, Hex($var, 6), 5, 10 ); scans the colors in ms pant (the quick colors on the bottom of left)
If Not @error Then
    MouseClick("left", $coord[0], $coord[1], 1)
EndIf
    MouseClick("left", $x2 + 70, $y2 + 70, 1); adds 70 to shift everything over into ms pants white part
$y = $y + 5;Adds 5 to Y makeing $spot = 0,5
$y2 = $y2 + 2;Adds 2 to $y2 makeing the pant job 2/5 the size
Until $y = 600

Do
$x = $x + 5; adds 5 to x makeing $spot 5,0
$x2 = $x2 + 2;Adds 2 to $x2 makeing the pant job 2/5 the size
$y = $y + 5; goes from 5,0 to  5,5   5,10     5,15   and so on into 5,700
$y2 = 0
$2 = $2 + 2
Do
        Sleep(10)
$var = IniRead("myfile.ini", "Screen", $spot, "NotFound")
$coord = PixelSearch( 50, 660, 270, 700, Hex($var, 6), 5, 10 ); scans the colors in ms pant (the quick colors on the bottom of left)
If Not @error Then
    MouseClick("left", $coord[0], $coord[1], 1)
EndIf
    MouseClick("left", $x2 + 70 + $2, $y2 + 70, 1); adds 70 to shift everything over into ms pants white part
$y = $y + 5
$y2 = $y2 + 2
$spot = $x & "," & $y
Until $y = 600
until $x = 700

Func TogglePause()
    $Paused = NOT $Paused
    While $Paused
        sleep(100)
        ToolTip('Script is "Paused"',0,0)
    WEnd
    ToolTip("")
EndFunc

Func Terminate()
    Exit 0
EndFunc

Edited February 25, 2007 by Orgins

[Orgins]

Bumpish

If anyone can help plz do so.

Any pointers or rude U r the stuipd remarks would be nice (But only if they help).