Kill Petra!

[bullygil]

Hey!I have this game called Kill Petra!Well..who is Petra?Petra is an old woman...she's one of my old and annoying neighbors.

So...the idea of the game is to make a smaller time to kill Petra.

Here is the source:

expandcollapse popup

#include <GUIConstants.au3>
OPT("GUIOnEventMode",1)
 
MsgBox(0,"Welcome","Press OK to begin!")
$timp=TimerInit()
$gui = GUICreate("Kill Petra!", 633, 454, 193, 115)
$capul_bestiei = GUICtrlCreatePic(@ScriptDir&"\fatza_bestiei.gif", 162, 135, 67, 77, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 3)
GUICtrlSetOnEvent($capul_bestiei,"shoot")
$health_label = GUICtrlCreateLabel("Petra's Health", 0, 432, 102, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
$petras_health_loadbar = GUICtrlCreateProgress(108, 432, 523, 19)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetData(-1, 100)
$score_label = GUICtrlCreateLabel("Score:",  0, 405, 49, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$score = GUICtrlCreateLabel("0", 54, 405, 39, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE,"quit")

While 1
    GUICtrlSetPos($capul_bestiei,Random(1,600,1),Random(1,400,1))
    Sleep(470)
    If GUICtrlRead($petras_health_loadbar)<=0 Then
        MsgBox(0,"Congratz!","You killed Petra in :"&StringLeft(TimerDiff($timp)/1000,4)&" seconds")
        Exit
    EndIf
WEnd
Func quit()
    Exit
EndFunc

Func shoot()
    $random_num=Random(1,3,1)
    GUICtrlSetData($petras_health_loadbar,GUICtrlRead($petras_health_loadbar)-$random_num)
    Guictrlsetdata($score,GUICtrlRead($score)+$random_num)
    $random_injuratura=Random(1,2,1)
    if $random_injuratura=1 Then
        SoundPlay(@ScriptDir&"\hai_sictir.mp3")
    ElseIf $random_injuratura=2 Then
        SoundPlay(@scriptDir&"\mama_dracu.mp3")
    EndIf
EndFunc

And here is the archive(contains the sounds and the image with Petra's head)

Download

BTW:That sounds that you will hear when you hit her, is just her, insulting me when i tryed to record her

Enjoy the game

[KJohn]

Excellent idea! Not that I understood any of the dialogue by Petra...

It's hard!!! Come on, make the old lady move slower... It gets boring if its this hard... especially since (IMO) this game is based on luck rather than skill at these speeds...

[WolfWorld]

Excellent idea! Not that I understood any of the dialogue by Petra...

It's hard!!! Come on, make the old lady move slower... It gets boring if its this hard... especially since (IMO) this game is based on luck rather than skill at these speeds...

You are back at last

[bullygil]

well....first time i make her move slower...but...you can kill her very very fast....so...where was the fun?

[GtaSpider]

Hello

Nothing is impossible for a programmer

Global $PAUSE = False
HotKeySet("{PAUSE}","_pause")
$wg = WinGetPos("Kill Petra!")
If @error Then Exit
While 1
    Sleep(100)
    If $PAUSE Then ContinueLoop
    $px = PixelSearch($wg[0], $wg[1], $wg[0] + $wg[2], $wg[1] + $wg[3], 0xD4D0C8)
    If @error Then ContinueLoop
    ConsoleWrite($px[0]&","&$px[1] & @CRLF)
    MouseClick("LEFT",$px[0], $px[1], 1,1)
WEnd

Func _pause()
    $PAUSE = Not $PAUSE
EndFunc

Mfg/Best Regards Spider

[Achilles]

Nice game! Simple but fun... I'd never heard of somebody making a program to imitate shooting their annoying neighbors...