Sign in to follow this  
Followers 0
Orgins

Who wants to help me finish this

5 posts in this topic

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?


I'm a newbie.Sorry if I don't reposed to your replays very fast.

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

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

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 by Orgins

I'm a newbie.Sorry if I don't reposed to your replays very fast.

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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 by (^_^)

[center][font="Arial Black"] DESEAN[/font][/center] [center]<<<WOW Fi$her>>>[/center][center]<<<mp3 player>>>[/center]

Share this post


Link to post
Share on other sites

#4 ·  Posted (edited)

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.

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 by Orgins

I'm a newbie.Sorry if I don't reposed to your replays very fast.

Share this post


Link to post
Share on other sites

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).


I'm a newbie.Sorry if I don't reposed to your replays very fast.

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0