Fast ball drop game

[Paulie]

This is a game that is supposed to be simmilar to the fast ball drop game found HERE

Obviously, only the easy difficuluty is attemted. but it wont work

Heres code

expandcollapse popup

#include<GuiConstants.au3>
#cs
AdlibEnable("ChangeVars")
#ce

Global $n, $label_[5], $holes, $segment, $Height, $menuEASY, $menuHARD, $menuMED


$menu = GUICreate("Dropping Maze Menu", 200, 330, -1, -1)
$menuEASY = GUICtrlCreateRadio("Easy", 25, 65, 100, 50)
$menuMED = GUICtrlCreateRadio("Medium", 25, 110, 100,50)
$menuHARD = GUICtrlCreateRadio("Hard", 25, 160, 100, 50)
$menuGroup = GUICtrlCreateGroup("Difficulty", 20, 50, 120, 165)
$menuPLAY = GUICtrlCreateButton("Play", 50, 250, 100, 30)
GUISetState()

While 1
    $msg = GUIGETMSG()
    
    if $msg = $GUI_EVENT_CLOSE then ExitLoop
    if $msg = $menuPLAY then ReadData()
        
WEnd
    
Func ReadData()
    $StateEasy = GUICtrlRead($menuEASY)
    $StateMedium = GUICtrlRead($menuMED)
    $StateHard = GUICtrlRead($menuHARD)
    
    If $StateEasy = $GUI_Checked Then
        PlayEasy()
    ElseIf $StateMedium = $GUI_Checked Then
        PlayMed()
    ElseIf $StateHard = $GUI_CHECKED Then
        PlayHard()
    Else
        MsgBox(0,"Not Enough Information", "Please Select a Difficulty.")
    EndIf
EndFunc

Func PlayEasy()
    MsgBox(0, "", "You will now play an Easy game")
    EasyGame()
EndFunc

#cs
Func ChangeVars()
        $holes = Random(1,3)
        $hsize = Random(50, 100)
        $pos = MouseGetPos()
        $height = 100
        $segment = Random(1,3)
Endfunc
#ce
Func PlayMed()
    MsgBox(0, "", "You will now play a Medium game")
EndFunc

Func PlayHard()
    MsgBox(0, "", "You will now play a Hard game")
EndFunc

Func EasyGame()
    GUISetState(@SW_HIDE, $menu)
    $Easygame = GuiCreate("", 500,600, -1, -1, $WS_POPUP, $WS_EX_TOPMOST)
    GUISetBkColor(0xCCCCCC)
    GuiSetState()
    While 1
        $holes = Random(1,3)
        $hsize = Random(50, 100)
        $pos = MouseGetPos()
        $height = 100
        $segment = Random(1,3)

    If $segment = 1 Then
        $label_[1]= GuictrlCreatelabel(" ", 0, 0, 166.6-$hsize, $height)
        GUICtrlSetBkColor($label_[1], 0x000000)
        GUICtrlSetColor($label_[1], 0x000000)
        $label_[2] = GuictrlCreatelabel(" ",166.6, 0, 166.6, $height)
        GUICtrlSetBkColor($label_[2], 0x000000)
        GUICtrlSetColor($label_[2], 0x000000)
        $label_[3] = GuictrlCreatelabel(" ",333.2, 0, 166.6, $height)
        GUICtrlSetBkColor($label_[3], 0x000000)
        GUICtrlSetColor($label_[3], 0x000000)
        GuiSeTState()
    EndIf
    
    If $segment = 2 Then
        $label_[1]= GuictrlCreatelabel(" ", 0, 0, 166.6, $height)
        GUICtrlSetBkColor($label_[1], 0x000000)
        GUICtrlSetColor($label_[1], 0x000000)
        $label_[2] = GuictrlCreatelabel(" ", 166.6, 0, 166.6-$hsize, $height)
        GUICtrlSetBkColor($label_[2], 0x000000)
        GUICtrlSetColor($label_[2], 0x000000)
        $label_[3] = GuictrlCreatelabel(" ", 333.2, 0, 166.6, $height)
        GUICtrlSetBkColor($label_[3], 0x000000)
        GUICtrlSetColor($label_[3], 0x000000)
        GuiSeTState()
    EndIf
    
    If $segment = 3 Then
        $label_[1]= GuictrlCreatelabel(" ", 0, 0, 166.6, $height)
        GUICtrlSetBkColor($label_[1], 0x000000)
        GUICtrlSetColor($label_[1], 0x000000)
        $label_[2] = GuictrlCreatelabel(" ", 166.6, 0, 166.6, $height)
        GUICtrlSetBkColor($label_[2], 0x000000)
        GUICtrlSetColor($label_[2], 0x000000)
        $label_[3] = GuictrlCreatelabel(" ", 333.2, 0, 166.6-$hsize, $height)
        GUICtrlSetBkColor($label_[3], 0x000000)
        GUICtrlSetColor($label_[3], 0x000000)
        GuiSeTState()
    EndIf
    
    For $y = 0 to 600
        For $n = 1 to 3
        GUICtrlSetPos($label_[$n], ($n-1)*166.6, $y)
        GUICtrlSetColor($label_[$n], 0x000000)
        Next
    Next    
    
WEnd
EndFunc

when i do increase difficulty, i just want to be able to speed it up

any ideas?

TY

[Buckw1]

Check out the aimbot demo elsewhere on the forum, it should do what you want with a little modification. That game does get very very fast! For this particular game pixelsearch is your best function I think...

Buck

[Paulie]

Check out the aimbot demo elsewhere on the forum, it should do what you want with a little modification. That game does get very very fast! For this particular game pixelsearch is your best function I think...

Buck

I'm not looking for an aimbot for this game, i'm looking to make my own, where you ned to keep you mouse from toucing the falling black bars by going through the holes Edited July 5, 2006 by Paulie

[Buckw1]

I'm not looking for an aimbot for this game, i'm looking to make my own, where you ned to keep you mouse from toucing the falling black bars by going through the holes

Right, same concept. The aimbot can look for the the ball and once found move as needed to non black spot. That is the idea, right? unless your designing a simular game? in which case I'm out in left field

Just pointing you to some code that should help you. Given the speed of the game the aimbot code is best example code in my opinion.

Edited July 5, 2006 by Buckw1

[Skrip]

I posted a request for a hack for this game 1 sec i'll give you the thread, in case somebody said something that could help you.

http://www.autoitscript.com/forum/index.ph...c=27730&hl=

Edited July 6, 2006 by Firestorm

[Buckw1]

I'm not looking for an aimbot for this game, i'm looking to make my own, where you ned to keep you mouse from toucing the falling black bars by going through the holes

Ok, after actually doing the right thing and trying your code it becomes obvious that your trying to write a simular game.

If I'm reading it right your trying to create the black bars via GUI statements? be interesting if that works, but you want some way to speed them up........

how about making the black bars solid across the who screen and then just use a small gray icon/image to punch holes in the bar? nope, that still don't speed up bar movement...

I'll think on it.....