GUIGetMsg() trouble

[RazerM]

I am making a Deal or No Deal game in AutoIt (Uk version). It deletes the corresponding money input when a button is pressed however it keeps deleting one input on startup

expandcollapse popup

;===============================================================================
;
; Program Name:   Deal Or No deal
; Description:: Replication of popular gameshow
; Requirement(s):  AutoIt beta
; Author(s):       RazerM
;
;===============================================================================
;
#include <GUIConstants.au3>
#include <array.au3>
#include <string.au3>

$title = "Deal or No Deal"
GUICreate($title, 600, 500)
Dim $blue[11] = [0.01, 0.10, 0.50, 1, 5, 10, 50, 100, 250, 500, 750]
Dim $red[11] = [1000, 3000, 5000, 10000, 15000, 20000, 35000, 50000, 75000, 100000, 250000]
Dim $boxes[23]
Dim $control[25]
Dim $labels[1] = ["delete"]

For $i = 0 To 10
 $control[$i] = GUICtrlCreateInput("£" & $blue[$i], 10, 25*$i+10, 100, -1, $ES_CENTER)
 _ArrayAdd($labels, $control[$i])
 GUICtrlSetBkColor(-1, 0x0000ff)
 GUICtrlSetColor(-1, 0xffffff)
 $control[$i+10] = GUICtrlCreateInput("£" & _StringReverse(StringReplace(_StringReverse($red[$i]), "000", "000,")), 490, 25*$i+10, 100, -1, $ES_CENTER)
 _ArrayAdd($labels, $control[$i+10])
 GUICtrlSetBkColor(-1, 0xff0000)
 GUICtrlSetColor(-1, 0xffffff)
Next
_ArraySortRand($labels)
$delete = _ArraySearch($labels, "delete")
_ArrayDelete($labels, $delete)
$i = 1
For $y = 0 To 3
 For $x = 1 To 5
  $boxes[$i] = GUICtrlCreateButton($i, 75*$x+45, 45*$y+10, 60, 40)
  $i += 1
 Next
Next
$boxes[21] = GUICtrlCreateButton(21, 195, 190, 60, 40)
$boxes[22] = GUICtrlCreateButton(22, 345, 190, 60, 40)
$status = GUICtrlCreateLabel("Pick Your Box", 10, 285, 580, 40)
GUICtrlSetFont($status, 30)
GUICtrlSetState($status, $GUI_FOCUS)
GUISetState()

While 1
 $msg = GUIGetMsg()
 Switch $msg
  Case $GUI_EVENT_CLOSE
   Exit
;~  Case 
;~  Case 
;~  Case 
;~  Case 
 EndSwitch
 For $i = 0 To 21
  If $msg = $boxes[$i] Then
   GUICtrlDelete($labels[$i])
  EndIf
 Next
WEnd

Func _ArraySortRand(ByRef $array)
 $iUbound = UBound($array)
 For $i = 0 To ($iUbound-1)*3
  _ArraySwap($array[Random(0, $iUbound-1, 1)], $array[Random(0, $iUbound-1, 1)])
 Next
EndFunc

edit:

tags have messed up the indentation

Edited June 25, 2006 by RazerM

[PsaltyDS]

I am making a Deal or No Deal game in AutoIt (Uk version). It deletes the corresponding money input when a button is pressed however it keeps deleting one input on startup

CODE

;===============================================================================

;

; Program Name: Deal Or No deal

; Description:: Replication of popular gameshow

; Requirement(s): AutoIt beta

; Author(s): RazerM

;

;===============================================================================

;

#include <GUIConstants.au3>

#include <array.au3>

#include <string.au3>

$title = "Deal or No Deal"

GUICreate($title, 600, 500)

Dim $blue[11] = [0.01, 0.10, 0.50, 1, 5, 10, 50, 100, 250, 500, 750]

Dim $red[11] = [1000, 3000, 5000, 10000, 15000, 20000, 35000, 50000, 75000, 100000, 250000]

Dim $boxes[23]

Dim $control[25]

Dim $labels[1] = ["delete"]

For $i = 0 To 10

$control[$i] = GUICtrlCreateInput("£" & $blue[$i], 10, 25*$i+10, 100, -1, $ES_CENTER)

_ArrayAdd($labels, $control[$i])

GUICtrlSetBkColor(-1, 0x0000ff)

GUICtrlSetColor(-1, 0xffffff)

$control[$i+10] = GUICtrlCreateInput("£" & _StringReverse(StringReplace(_StringReverse($red[$i]), "000", "000,")), 490, 25*$i+10, 100, -1, $ES_CENTER)

_ArrayAdd($labels, $control[$i+10])

GUICtrlSetBkColor(-1, 0xff0000)

GUICtrlSetColor(-1, 0xffffff)

Next

_ArraySortRand($labels)

$delete = _ArraySearch($labels, "delete")

_ArrayDelete($labels, $delete)

$i = 1

For $y = 0 To 3

For $x = 1 To 5

$boxes[$i] = GUICtrlCreateButton($i, 75*$x+45, 45*$y+10, 60, 40)

$i += 1

Next

Next

$boxes[21] = GUICtrlCreateButton(21, 195, 190, 60, 40)

$boxes[22] = GUICtrlCreateButton(22, 345, 190, 60, 40)

$status = GUICtrlCreateLabel("Pick Your Box", 10, 285, 580, 40)

GUICtrlSetFont($status, 30)

GUICtrlSetState($status, $GUI_FOCUS)

GUISetState()

While 1

$msg = GUIGetMsg()

Switch $msg

Case $GUI_EVENT_CLOSE

Exit

;~ Case

;~ Case

;~ Case

;~ Case

EndSwitch

For $i = 0 To 21

If $msg = $boxes[$i] Then

GUICtrlDelete($labels[$i])

EndIf

Next

WEnd

Func _ArraySortRand(ByRef $array)

$iUbound = UBound($array)

For $i = 0 To ($iUbound-1)*3

_ArraySwap($array[Random(0, $iUbound-1, 1)], $array[Random(0, $iUbound-1, 1)])

Next

EndFunc

edit:

tags have messed up the indentation

In this code segment:

For $i = 0 To 10
     $control[$i] = GUICtrlCreateInput("£" & $blue[$i], 10, 25*$i+10, 100, -1, $ES_CENTER)
     _ArrayAdd($labels, $control[$i])
     GUICtrlSetBkColor(-1, 0x0000ff)
     GUICtrlSetColor(-1, 0xffffff)
     $control[$i+10] = GUICtrlCreateInput("£" & _StringReverse(StringReplace(_StringReverse($red[$i]), "000", "000,")), 490, 25*$i+10, 100, -1, $ES_CENTER)
     _ArrayAdd($labels, $control[$i+10])
     GUICtrlSetBkColor(-1, 0xff0000)
     GUICtrlSetColor(-1, 0xffffff)
Next

When $i = 0 you write to $control[0] with the first GUICtrlCreateInput() and then write to $control[10] with the second. When $i = 10 you overwrite $control[10] with the first, and write to $control[20] with the second. I'll bet that's not intentional.

P.S. Woo Hoo! [ autoit ] tags are working again!

Edited June 26, 2006 by PsaltyDS

[RazerM]

Thanks never realised. I also corrected the other problem aswell.