Jump to content

Color Autoshoot


az0
 Share

Recommended Posts

I have searched through the forums and came across quite a few color aimbot examples but what I am trying to put together is a color autoshooter..that just clicks if the color crosses the center of the screen and since i use 640*480 resolution center screen is at 320x and 240 y....this is what i have yet its not working....help is greatly appreciated...btw its for q3arena.

WinWaitActive("Quake 3: Arena")

Global $Autoshoot = 0,

HotKeySet("{HOME}", "ToggleAutoshoot")

HotKeySet("{END}", "TurnoffAutoshoot")

While 1

If $Autoshoot = 1 then;

PixelSearch(318, 242, 322, 238, 0x00FF00, 10, 2)

If Not @error then

MouseClick('left')

EndIf

EndIf

WEnd

Func ToggleAutoshoot()

If $Autoshoot < 1 Then

$Autoshoot = $Autoshoot + 1

Else

$Autoshoot = 0

EndIf

Select

Case $Autoshoot = 0

ToolTip("Autoshoot Status: Off",0,0)

Case $Autoshoot = 1

ToolTip ("Autoshoot Status: Green",0,0)

EndSelect

EndFunc ;==>ToggleAutoshoot

Func TurnoffAutoshoot()

$Autoshoot = 0

ToolTip ("Autoshoot Status: Off",0,0)

EndFunc ;==>TurnoffAutoshoot

Link to comment
Share on other sites

what is the exact problem u r facing.. as far as i see.. $autoshoot will never be <0..

and what's the need to provide autoshoot off hotkey when u have toggle..

[font="Garamond"]Manjish Naik[/font]Engineer, Global Services - QPSHoneywell Automation India LimitedE-mail - Manjish.Naik@honeywell.com
Link to comment
Share on other sites

ok 1st mistake

Global $Autoshoot = 0,

Remove the ","

here's what i did to ur script:

$Autoshoot = 0
HotKeySet("{HOME}", "ToggleAutoshoot")
HotKeySet("{END}", "TurnoffAutoshoot")


While 1

If $Autoshoot = 1 then;
PixelSearch(318, 242, 322, 238, 0x00FF00, 10, 2)
If Not @error then
MouseClick('left')
EndIf
EndIf



WEnd


Func ToggleAutoshoot()
if $Autoshoot=0 Then 
    $Autoshoot=1
Else 
    $Autoshoot=0
EndIf   

Select
Case $Autoshoot = 0
MsgBox(4096,"","Autoshoot Status: Off")
Case $Autoshoot = 1
MsgBox(4096,"","Autoshoot on")


EndSelect
EndFunc;==>ToggleAutoshoot


Func TurnoffAutoshoot()
$Autoshoot = 0
MsgBox(4096,"","Autoshoot Status: Off")
EndFunc;==>TurnoffAutoshoot
Edited by Manjish
[font="Garamond"]Manjish Naik[/font]Engineer, Global Services - QPSHoneywell Automation India LimitedE-mail - Manjish.Naik@honeywell.com
Link to comment
Share on other sites

ok 1st mistake

Global $Autoshoot = 0,

Remove the ","

here's what i did to ur script:

$Autoshoot = 0
HotKeySet("{HOME}", "ToggleAutoshoot")
HotKeySet("{END}", "TurnoffAutoshoot")


While 1

If $Autoshoot = 1 then;
PixelSearch(318, 242, 322, 238, 0x00FF00, 10, 2)
If Not @error then
MouseClick('left')
EndIf
EndIf



WEnd


Func ToggleAutoshoot()
if $Autoshoot=0 Then 
    $Autoshoot=1
Else 
    $Autoshoot=0
EndIf   

Select
Case $Autoshoot = 0
MsgBox(4096,"","Autoshoot Status: Off")
Case $Autoshoot = 1
MsgBox(4096,"","Autoshoot on")


EndSelect
EndFunc;==>ToggleAutoshoot


Func TurnoffAutoshoot()
$Autoshoot = 0
MsgBox(4096,"","Autoshoot Status: Off")
EndFunc;==>TurnoffAutoshoot
Thanks for the reply but i ran the script as you had it and it didnt work in minimized mode or fullscreen, even when i used WinWaitActive at the top...if some1 else sees the problem I would appreciate more help but thx for replying i am new but did study the tutorial and searched the forums.
Link to comment
Share on other sites

i think i found ur problem..

PixelSearch(318, 242, 322, 238, 0x00FF00, 10, 2)

u said ur screen is 640 length, 480 height.. look at ur coordinates..

see, pixelsearch searches a rectrangle or square for the color.. u r not leaving even 1 pixel wide area to search, by giving such co-ordinates.. atleast leave a 10*10 area.. for it to search properly..

[font="Garamond"]Manjish Naik[/font]Engineer, Global Services - QPSHoneywell Automation India LimitedE-mail - Manjish.Naik@honeywell.com
Link to comment
Share on other sites

Use Autoit Window Info ...try to use it in yhe game. In my case, it just show me the cordinates...but colors, 0x000000 :) . I can't get the real colors of my game, then make SS fron Screen and use AWI...to know that color exactly.

Take sure RGB or BGR colors of stuffs.

I read ... I update ... I learn ...
Link to comment
Share on other sites

@Fioda..

I read ur posts in the past two days.. did u reach a solution.. a very wierd prob, the Autoit window info tool wasn't detecting the color..

Anyways, I think the problem here is not of color.. its of the pixelsearch coordinates.. just as i mentioned in my prev post..

Thanks for the input though..:)

[font="Garamond"]Manjish Naik[/font]Engineer, Global Services - QPSHoneywell Automation India LimitedE-mail - Manjish.Naik@honeywell.com
Link to comment
Share on other sites

@Fioda..

I read ur posts in the past two days.. did u reach a solution.. a very wierd prob, the Autoit window info tool wasn't detecting the color..

Anyways, I think the problem here is not of color.. its of the pixelsearch coordinates.. just as i mentioned in my prev post..

Thanks for the input though..:)

thx again i didnt know that it needed at least 10 pixels to scan. Appreciate it.
Link to comment
Share on other sites

its not a rule that u need 10 pixels.. but u need some atleast.. in ur script there is no pixel to scan..

[font="Garamond"]Manjish Naik[/font]Engineer, Global Services - QPSHoneywell Automation India LimitedE-mail - Manjish.Naik@honeywell.com
Link to comment
Share on other sites

its not a rule that u need 10 pixels.. but u need some atleast.. in ur script there is no pixel to scan..

ok so i changed resolutions....and now my script looks like this...it runs fine on green but whe i switch to red it crashes...manjish help me out plz.

WinWaitActive ( "Quake 3: Arena")

Global $Aimbot = 0

Global $Pause = 1

Opt("MouseCoordMode", 0)

Opt("PixelCoordMode", 1)

Opt("MouseClickDelay", 10)

Opt("MouseClickDownDelay", 0)

HotKeySet("{HOME}", "ToggleAimbot")

HotKeySet("{END}", "TurnOffAimbot")

While 1

$color=0x00FF00

If $Aimbot = 1 Then;

$coord = PixelSearch( 508,375,518,385, $color)

If Not @error Then

MouseClick('left',513,381,1,10)

Sleep(1)

EndIf

EndIf

$color2=0xFF0000

If $Aimbot = 2 Then;

$coord = PixelSearch( 508,375,518,385, $color2)

If Not @error Then

MouseClick('left',513,381,1,10))

Sleep(1)

EndIf

EndIf

WEnd

Func ToggleAimbot()

If $Aimbot < 2 Then

$Aimbot = $Aimbot + 1

Else

$Aimbot = 0

EndIf

Select

Case $Aimbot = 0

ToolTip("Aimbot Status: Off",0,0)

Case $Aimbot = 1

ToolTip ("Aimbot Status: Green",0,0)

Case $Aimbot = 2

ToolTip("Aimbot Status: Red",0,0)

EndSelect

EndFunc ;==>ToggleAimbot

Func TurnOffAimbot()

$Aimbot = 0

ToolTip ("Aimbot Status: Off",0,0)

EndFunc ;==>TurnoffAimbot

Link to comment
Share on other sites

ok so i changed resolutions....and now my script looks like this...it runs fine on green but whe i switch to red it crashes...manjish help me out plz.

WinWaitActive ( "Quake 3: Arena")

Global $Aimbot = 0

Global $Pause = 1

Opt("MouseCoordMode", 0)

Opt("PixelCoordMode", 1)

Opt("MouseClickDelay", 10)

Opt("MouseClickDownDelay", 0)

HotKeySet("{HOME}", "ToggleAimbot")

HotKeySet("{END}", "TurnOffAimbot")

While 1

$color=0x00FF00

If $Aimbot = 1 Then;

$coord = PixelSearch( 508,375,518,385, $color)

If Not @error Then

MouseClick('left',513,381,1,10)

Sleep(1)

EndIf

EndIf

$color2=0xFF0000

If $Aimbot = 2 Then;

$coord = PixelSearch( 508,375,518,385, $color2)

If Not @error Then

MouseClick('left',513,381,1,10))

Sleep(1)

EndIf

EndIf

WEnd

Func ToggleAimbot()

If $Aimbot < 2 Then

$Aimbot = $Aimbot + 1

Else

$Aimbot = 0

EndIf

Select

Case $Aimbot = 0

ToolTip("Aimbot Status: Off",0,0)

Case $Aimbot = 1

ToolTip ("Aimbot Status: Green",0,0)

Case $Aimbot = 2

ToolTip("Aimbot Status: Red",0,0)

EndSelect

EndFunc ;==>ToggleAimbot

Func TurnOffAimbot()

$Aimbot = 0

ToolTip ("Aimbot Status: Off",0,0)

EndFunc ;==>TurnoffAimbot

NVM found my error it was the extra )........appreciate all the help manjish
Link to comment
Share on other sites

  • 1 year later...

NVM found my error it was the extra )........appreciate all the help manjish

i had a go at using your script for the past few days now with no luck. looking all over the forums for more ansers but again with no luck so i was thinking i had better post and ask for the much needed help i need on this more than likely easy problem for most of you. sorry im new to this ha!

your final script looks a little to much for me i would just like the script to turn on green and off as in your first attempt,

using your first script i changed a few things, my screen size 600 x 800 and im thinking i got the coordinates correct for a center hit-box 6 x 10?

here is what i got so far

Global $Autoshoot = 0
HotKeySet("{HOME}", "ToggleAutoshoot")
HotKeySet("{END}", "TurnoffAutoshoot")


While 1

If $Autoshoot = 1 then;
PixelSearch(397, 295, 403, 305, 0x00FF00, 50, 1)
If Not @error then
MouseClick('left')
EndIf
EndIf



WEnd


Func ToggleAutoshoot()
If $Autoshoot < 1 Then
$Autoshoot = $Autoshoot + 1
Else
$Autoshoot = 0
EndIf
Select
Case $Autoshoot = 0
ToolTip("Autoshoot Status: Off",0,0)
Case $Autoshoot = 1
ToolTip ("Autoshoot Status: On",0,0)


EndSelect
EndFunc ;==>ToggleAutoshoot


Func TurnoffAutoshoot()
$Autoshoot = 0
ToolTip ("Autoshoot Status: Off",0,0)
EndFunc ;==>TurnoffAutoshoot

also i just need to turn it on and of using the home key as i only need 1 color so how do i set it to this and not to toggle?

Edited by guinness2010
Link to comment
Share on other sites

  • 4 months later...

i had a go at using your script for the past few days now with no luck. looking all over the forums for more ansers but again with no luck so i was thinking i had better post and ask for the much needed help i need on this more than likely easy problem for most of you. sorry im new to this ha!

your final script looks a little to much for me i would just like the script to turn on green and off as in your first attempt,

using your first script i changed a few things, my screen size 600 x 800 and im thinking i got the coordinates correct for a center hit-box 6 x 10?

here is what i got so far

Global $Autoshoot = 0
HotKeySet("{HOME}", "ToggleAutoshoot")
HotKeySet("{END}", "TurnoffAutoshoot")


While 1

If $Autoshoot = 1 then;
PixelSearch(397, 295, 403, 305, 0x00FF00, 50, 1)
If Not @error then
MouseClick('left')
EndIf
EndIf



WEnd


Func ToggleAutoshoot()
If $Autoshoot < 1 Then
$Autoshoot = $Autoshoot + 1
Else
$Autoshoot = 0
EndIf
Select
Case $Autoshoot = 0
ToolTip("Autoshoot Status: Off",0,0)
Case $Autoshoot = 1
ToolTip ("Autoshoot Status: On",0,0)


EndSelect
EndFunc ;==>ToggleAutoshoot


Func TurnoffAutoshoot()
$Autoshoot = 0
ToolTip ("Autoshoot Status: Off",0,0)
EndFunc ;==>TurnoffAutoshoot

also i just need to turn it on and of using the home key as i only need 1 color so how do i set it to this and not to toggle?

How can i use this for a 1650 x 1050 resolution? I tried using this script with 800 x 600 resolution with no luck. What am i doing wrong?
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...