Sign in to follow this  
Followers 0
az0

Color Autoshoot

13 posts in this topic

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

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

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

Share this post


Link to post
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.

Share this post


Link to post
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

Share this post


Link to post
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 ...

Share this post


Link to post
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

Share this post


Link to post
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.

Share this post


Link to post
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

Share this post


Link to post
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

Share this post


Link to post
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

Share this post


Link to post
Share on other sites

#12 ·  Posted (edited)

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

Share this post


Link to post
Share on other sites

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?

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