Jump to content

Cock Shooter 2 Bot


Kiti
 Share

Recommended Posts

I wanted to make a bot for a shooter game, and I found this game the most suitable for my purpose. It makes 30 headshots out of 30.

The site where I've played it is in fact a big javascript, so the URL of any game is the URL of the main page, and it's very hard to navigate at this game. Also, It's useless to give you another page, because diffrent browsers have a diffrent height for the top menu, so the coords, again, won't be the same. The single solution I thought was you to search google for "Cock Shooter" and choose one of the links, then play the game and do this :

How to align corectly: at the end of the game, where the statistics are shown, scroll up or down so the left eye of the little black face would be 335 pixels from top, like in this picture.

Posted Image

After the page is scrolled so the position is set, run the script. The gun that works 100% is the first one (with wich I've made the script), but the second is also fine, missing 2-3 shots out of 30.Note that you have to press Pause immediately after you choose the gun, because that's when the game starts. Press Pause to pause the script, and Esc to exit :).

Comments are very appreciated :P

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

Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)
ProcessSetPriority("@ScriptName", 5)

TogglePause()
WinWaitActive("jocuri online - www.miniclip.ro - Jocuri Romanesti - Mozilla Firefox") ;PUT THE NAME OF THE WINDOW HERE
While 1
    $1r = PixelSearch(700, 409, 863, 409, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $1r[0], $1r[1], 1, 0)
    EndIf
    $1l = PixelSearch(143, 422, 300, 422, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $1l[0]+25, $1l[1], 1, 0)
    EndIf

    
    $2r = PixelSearch(700, 368, 863, 368, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $2r[0], $2r[1], 1, 0)
    EndIf
    $2l = PixelSearch(143, 368, 300, 368, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $2l[0]+20, $2l[1], 1, 0)
    EndIf
    
    
    $3r = PixelSearch(700, 300, 863, 300, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $3r[0]-8, $3r[1], 1, 0)
    EndIf
    $3l = PixelSearch(143, 295, 300, 295, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $3l[0]+7, $3l[1], 1, 0)
    EndIf
WEnd

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause


Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

IT WON'T WORK IF YOU DON'T MAKE THE ABOVE ALIGNMENT !!!

Edited by Kiti
Link to comment
Share on other sites

works pretty good I found the Deagle gun to work better for me

heres what I got:

Beretta

1st attempt:7 Headshots

2ndattempt:8 Headshots

3rd attempt:8 Headshots

Deagle

1st attempt:18 Headshots

2nd attempt:13 Headshots

3rd attempt:15 Headshots

The PixelSearch didnt seem to find any of them in the very back row and never took a shot at that row, Also there was another row closer to front 3rd row I think missed all most all of the time.

I couldnt findnt find it on www.miniclip.ro so I used http://www.gamesforwork.com/games/play-738...er_2-Flash_Game and changed the WinWaitActive title. Not sure if It made a difference or not that I used a different website to play it on.

Edited by will88
Link to comment
Share on other sites

I'm extremely hesitant to Google for "Cock Shooter"...

I've searched for you then :D See? Nothing bad :P

Posted Image

will88

I couldnt findnt find it on www.miniclip.ro

Yep, it's a very creepy site...

Here's how to get to the game: Above all on the site, it's a blue bar, with two girls dancing on each end. The first name there is "Jocuri" (this means games). Put your mouse over it, and 6 categories will pop up below. Click the last one, "Shooters". Now, go down, to the end of the page. The last bottom right game is missing from the grid. The one above is "The last stand 2" and to the left "Fire in the hole 2". Did you spot them? Now, from "last stand 2", go 7 games up, to "Strategy Defence 2". Three games left is our game, "Cock Shooter" ! :)

Only 18 shots? 3rd row missing all the time?

Both to will88 and xshark

Are you sure you've made the correct allingnment? As shown in the first post photo? There is a black face after you finish a 1min game. His left (and white) eye has to be on those coords (at least horizontal), otherwise it won't work too good.

As you can see in the photo, it works great to me, having 30/30 shots. Tell me if it worked.

Don't forget about the alignment !!!

Edit: Will, I found what's your problem. Just navigate to the above, and be sure you don't have any more tabs open (if you're using firefox), then the script should kill each and every cock. If you don't use ff, check the happy black face to match the coords :P

Edited by Kiti
Link to comment
Share on other sites

I've searched for you then :D See? Nothing bad :P

Posted Image

will88

Yep, it's a very creepy site...

Here's how to get to the game: Above all on the site, it's a blue bar, with two girls dancing on each end. The first name there is "Jocuri" (this means games). Put your mouse over it, and 6 categories will pop up below. Click the last one, "Shooters". Now, go down, to the end of the page. The last bottom right game is missing from the grid. The one above is "The last stand 2" and to the left "Fire in the hole 2". Did you spot them? Now, from "last stand 2", go 7 games up, to "Strategy Defence 2". Three games left is our game, "Cock Shooter" ! :)

Only 18 shots? 3rd row missing all the time?

Both to will88 and xshark

Are you sure you've made the correct allingnment? As shown in the first post photo? There is a black face after you finish a 1min game. His left (and white) eye has to be on those coords (at least horizontal), otherwise it won't work too good.

As you can see in the photo, it works great to me, having 30/30 shots. Tell me if it worked.

Don't forget about the alignment !!!

Edit: Will, I found what's your problem. Just navigate to the above, and be sure you don't have any more tabs open (if you're using firefox), then the script should kill each and every cock. If you don't use ff, check the happy black face to match the coords :P

lined the coords up and it worked alot better this time and got:

beretta

1st attempt:24 Headshots

2nd attempt:21 Headshots

3rd attempt:26 Headshots

deagle

1st attempt:25 Headshots

2nd attempt:25 Headshots

3rd attempt:24 Headshots

Edited by will88
Link to comment
Share on other sites

Umm, I think it might be a better idea to have the user cick the top left pixel of the gasme instead, then base al the coordnates used later off that.

[center][/center]Working on the next big thing.Currently Playing: Halo 4, League of LegendsXBL GT: iRememberYhslaw

Link to comment
Share on other sites

Here Kiti, I've made it much easier for you :)

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

Opt('MouseCoordMode',2)
Opt('PixelCoordMode',2)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)
ProcessSetPriority("@ScriptName", 5)


$oGame = ObjCreate ("ShockwaveFlash.ShockwaveFlash.1")
$Form1 = GUICreate("Cock Shooter 2", 698, 510, -1, -1)
$GUIActiveX = GUICtrlCreateObj ($oGame, 5, 5, 688, 500)
GUISetState()

With $oGame
    .bgcolor = "#000000"
    .Movie = 'http://www.GamesForWork.com/games/swf/Cock Shooter 2 december 21st 2007.swf'
    .ScaleMode = 1
    .Loop = True
    .wmode = "Opaque"
EndWith


While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case -3
            Exit
    EndSwitch
    
    Sleep(10)
WEnd

Func _Start()
    While 1
    $1r = PixelSearch(700, 409, 863, 409, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $1r[0], $1r[1], 1, 0)
    EndIf
    $1l = PixelSearch(143, 422, 300, 422, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $1l[0]+25, $1l[1], 1, 0)
    EndIf

    
    $2r = PixelSearch(700, 368, 863, 368, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $2r[0], $2r[1], 1, 0)
    EndIf
    $2l = PixelSearch(143, 368, 300, 368, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $2l[0]+20, $2l[1], 1, 0)
    EndIf
    
    
    $3r = PixelSearch(700, 300, 863, 300, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $3r[0]-8, $3r[1], 1, 0)
    EndIf
    $3l = PixelSearch(143, 295, 300, 295, 0xCC0000, 0)
    If Not @error Then
        MouseClick("primary", $3l[0]+7, $3l[1], 1, 0)
    EndIf
    WEnd
EndFunc

Func TogglePause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
        ToolTip('Script is "Paused"', 0, 0)
    WEnd
    ToolTip("")
EndFunc   ;==>TogglePause


Func Terminate()
    Exit 0
EndFunc   ;==>Terminate

Just edit your search parameters.

Good luck with it!

Edited by Kitsune
Link to comment
Share on other sites

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