Catch The Clown!

[cppman]

Completely rewrote it . Better scoring technique and collision detection.

*added countdown + timer.

expandcollapse popup

#include <GUIConstants.au3>
$pos = MouseGetPos()
Global Const $COLOR_BLACK  = 0x000000
Global Const $COLOR_WHITE  = 0xFFFFFF
Global Const $CLOWN_WIDTH  = 32
Global Const $CLOWN_HEIGHT = 32
Global       $CLOWN_CURX   = 250
Global       $CLOWN_CURY   = 250
Global       $CLOWN_IMAGE  = "clown.bmp"
Global       $CLOWN_HSPEEd  = 1.5
Global       $CLOWN_VSPEED  = 1
Global       $MOUSE_X      = $pos[0]
Global       $MOUSE_Y      = $pos[1]
Global       $CUR_SCORE    = 0
Global       $CUR_TIMELEFT = 15
GUICreate("Catch The Clown! (Updated)", 500, 500)
GUISetBkColor( $COLOR_BLACK )
$CLOWN = GUICtrlCreatePic($CLOWN_IMAGE, $CLOWN_CURX, $CLOWN_CURY, $CLOWN_WIDTH, $CLOWN_HEIGHT)
$score_lb = GUICtrlCreateLabel("Score: " & $CUR_SCORE, 0, 0, 500)
$time_time = GUICtrlCreateLabel("Time Remaining: " & $CUR_TIMELEFT & " seconds.", 0, 25, 500, 500)
GUICtrlSetColor($score_lb, $COLOR_WHITE)
GUICtrlSetColor($time_time, $COLOR_WHITE)
GUICtrlSetBkCOlor($CLOWN, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkCOlor($score_lb, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetBkCOlor($time_time, $GUI_BKCOLOR_TRANSPARENT)
GUISetState()
;Add Timing
_CreateTimer("Count", 1) ;1 second
While (GUIGetMsg() <> -3)
    if (_IsClicked()) Then 
        ;Get whether we are at a positive or negative speed
        if (StringInStr(String($CLOWN_HSPEED), "-")) Then
            $CLOWN_HSPEED += -.05
        Else
            $CLOWN_HSPEED += .05
        EndIf
        
        if (StringInStr(String($CLOWN_VSPEED), "-")) Then
            $CLOWN_VSPEED += -.05
        Else
            $CLOWN_VSPEED += .05
        EndIf
        
        $CUR_SCORE += 1
    EndIf
    if ($CLOWN_CURX >= (500-$CLOWN_WIDTH)) then 
        SoundPlay("bounce.wav", 0)
        $CLOWN_HSPEED *= -1
    EndIf
    if ($CLOWN_CURX <= 0) then 
        SoundPlay("bounce.wav", 0)
        $CLOWN_HSPEED *= -1
    EndIf
    
    if ($CLOWN_CURY >= 500-$CLOWN_HEIGHT) then 
        SoundPlay("bounce.wav", 0)
        $CLOWN_VSPEED *= -1
    EndIf
        
    if ($CLOWN_CURY <= 0) then 
        SoundPlay("bounce.wav", 0)
        $CLOWN_VSPEED *= -1
    EndIf
    
    $CLOWN_CURX += $CLOWN_HSPEED
    $CLOWN_CURY += $CLOWN_VSPEED
    ControlMove("Catch The Clown! (Updated)", "", $CLOWN, $CLOWN_CURX, $CLOWN_CURY)
WEnd

Func _IsClicked()
    if (GUIGetMsg() == $CLOWN) Then
        GUICtrlSetData($score_lb, "Score: " & $CUR_SCORE)
        SoundPlay("click.wav", 0)
        Return True
    Else
        Return False
    EndIf
EndFunc

Func _CreateTimer($function, $time)
    AdLibEnable($function, $time*1000)
EndFunc

Func _DeleteTimer()
    AdLibDisable()
EndFunc

Func GameOver()
    GUICtrlDelete($CLOWN)
    GUICtrlDelete($score_lb)
    GUICtrlDelete($time_time)
    GUICtrlCreateLabel("Game Over!" & @CRLF & "Score: " & $CUR_SCORE, 50, 100, 500, 500)
    GUICtrlSetFont(-1, 30)
    GUICtrlSetColor(-1, $COLOR_WHITE)
    While (GUIGetMsg() <> -3)
    WEnd
    _DeleteTimer()
    Exit
EndFunc

Func Count()
    $CUR_TIMELEFT -= 1
    GUICtrlSetData($time_time, "Time Remaining: " & $CUR_TIMELEFT & " seconds.")
    if ($CUR_TIMELEFT <= 0) Then
        GameOver()
    EndIf
    if ($CUR_TIMELEFT < 10) Then
        GUICtrlSetColor($time_time, 0x00FF00)
    EndIf
    if ($CUR_TIMELEFT < 5) Then
        GUICtrlSetColor($time_time, 0xFF0000)
    EndIf
    
EndFunc

the needed files:

Edited September 12, 2006 by CHRIS95219

[RazerM]

I got 14949. Is that bad? The game isn't bad either

[cppman]

lol, thanks.. my highscore is 10440(something like that), and thats cuz im used to it, so i guess its pretty good.

[gamepin126]

EDIT: Good job.

Edited July 13, 2006 by gamepin126

[WTS]

EDIT: Good job.

yeah cool

i got 15441

[Xenobiologist]

Hi,

I got 962 with a bot

Edit: 954

So long,

Mega

Edited July 17, 2006 by th.meger

[Private]

Hi,

I got 962 with a bot

Edit: 954

So long,

Mega

so lol,

i got an error with using my bot :

If $msg = $clown then ClownClick() 
Error: Recursion level has been exceede - Autoit will quit to prevent stack overflow

That's because i changed $count to 10000

HotKeySet ("{ESC}","exitps")

ProcessWait ("clown.exe")

while 1 
$coord = PixelSearch( 0, 0, 1280, 1280, 0xFF0000 )
If Not @error Then
    MouseClick ("Left", $coord[0]+10,$coord[1]+10,1,1)
EndIf
WEnd

func exitps()
exit 0
EndFunc

credit to the poster of the script

p.s. i got 1140 as my score

Edited September 10, 2006 by D.Peeters

[NELyon]

2030

...with bot

[theguy0000]

26092.....nice game

[FuryCell]

Cool game.

Game Over! Your score is: 15329

[Rallert]

I got 8997 all by myself... 2nd try Am I good or what?!

Nice game btw... But get some other sound! Don't copy sound and picture from game maker...

[cppman]

wow, this post came back to haunt me ... This game was a bit cheap(i thought), rewrote it with the new collision technique i learned .

@Rallert > I used GM's sound and art was because I was trying to replicate it

check first post for new code!