Working with images

[theguy0000]

Hi, I am trying to make a game of Reversi.

I am getting pretty far, But I've run into a problem and I can't seem to fix it...

here is my code:

CODE

expandcollapse popup

#include <GUIConstants.au3>
HotKeySet ("{F3}", "myfunc1")

Global $squares[65]
For $i = 1 To 64
    $squares[$i] = ""
Next
Global $MarblePics[65]
$gui = GUICreate ("AutoIt Reversi", 490, 695)
$board = GUICtrlCreatePic ("board.bmp", 5, 5, 480, 480)
PlaceMarble ("white", 3, 3)
PlaceMarble ("black", 3, 4)
PlaceMarble ("black", 4, 3)
PlaceMarble ("white", 4, 4)
GUISetState ()

While 1
    $msg = GUIGetMsg ()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func coord($num)
    If $num < 1 Or $num > 8 Then
        SetError (1)
        Return 0
    EndIf
    Return ($num*60)+5
EndFunc

Func PlaceMarble ($color, $x, $y)
    Local $square = (8*$y)+$x
    If $square < 1 Or $square > 64 Then Return 0
    If $squares[$square] <> "" Then
        GUICtrlDelete ($MarblePics[$square])
        $squares[$square] = ""
    EndIf
    $MarblePics[$square] = GUICtrlCreatePic ($color&".bmp", coord($x), coord($y), 59, 59)
    $squares[$square] = $color
    Return 1
EndFunc

Func ReverseMarble ($x, $y)
    Local $square = (8*$y)+$x
    If $squares[$square] = "" Then Return 0
    Switch $squares[$square]
        Case "white"
            PlaceMarble ("black", $x, $y)
        Case "black"
            PlaceMarble ("white", $x, $y)
    EndSwitch
EndFunc

Func myfunc1 ()
    PlaceMarble ("black", 3, 3)
EndFunc

Ok, so, it creates the board and the first four marbles fine.

Here is where the problem comes in. When I press F3, it should set the marble at 3, 3 to black.

Well, PlaceMarble first checks to see if there is an existing marble in place, and if there is, deletes it. Then it creates the new marble.

PlaceMarble obviously works fine if the square is empty at first, as I created the first 4 marbles.

But, When I press F3, it should delete the white marble already there, and create the black marble. Well, it deletes it just fine, But it doesn't recreate the black marble, so square 3, 3 just becomes empty.

I have looked at the code for a long time, but I just can't figure out why it's doing that...

The images can be found at http://www.theguy0000.com/reversi

Edited November 19, 2006 by theguy0000

[Thatsgreat2345]

you think you could up the pics im a visual debugger

[theguy0000]

you think you could up the pics im a visual debugger

oops, sorry.

Theyre at http://www.theguy0000.com/reversi

[Valuater]

expandcollapse popup

#include <GUIConstants.au3>
HotKeySet ("{F3}", "myfunc1")

Global $squares[65]
For $i = 1 To 64
    $squares[$i] = ""
Next
Global $MarblePics[65]
$gui = GUICreate ("AutoIt Reversi", 490, 595)
$board = GUICtrlCreatePic ("C:\Temp\board.bmp", 5, 5, 480, 480)
GUICtrlSetState( $board, $GUI_DISABLE)
PlaceMarble ("C:\Temp\white", 3, 3)
PlaceMarble ("C:\Temp\black", 3, 4)
PlaceMarble ("C:\Temp\black", 4, 3)
PlaceMarble ("C:\Temp\white", 4, 4)
GUISetState ()

While 1
    $msg = GUIGetMsg ()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func coord($num)
    If $num < 1 Or $num > 8 Then
        SetError (1)
        Return 0
    EndIf
    Return ($num*60)+5
EndFunc

Func PlaceMarble ($color, $x, $y)
    Local $square = (8*$y)+$x
    If $square < 1 Or $square > 64 Then Return 0
    If $squares[$square] <> "" Then
        GUICtrlDelete ($MarblePics[$square])
        $squares[$square] = ""
    EndIf
    $MarblePics[$square] = GUICtrlCreatePic ($color&".bmp", coord($x), coord($y), 59, 59)
    GUICtrlSetState ( -1, $GUI_SHOW)
    $squares[$square] = $color
    Return 1
EndFunc

Func ReverseMarble ($x, $y)
    Local $square = (8*$y)+$x
    If $squares[$square] = "" Then Return 0
    Switch $squares[$square]
        Case "white"
            PlaceMarble ("black", $x, $y)
        Case "black"
            PlaceMarble ("white", $x, $y)
    EndSwitch
EndFunc

Func myfunc1 ()
    $ret = PlaceMarble ("C:\Temp\black", 3, 3)
EndFunc

8)

[theguy0000]

CODE

expandcollapse popup

#include <GUIConstants.au3>
HotKeySet ("{F3}", "myfunc1")

Global $squares[65]
For $i = 1 To 64
    $squares[$i] = ""
Next
Global $MarblePics[65]
$gui = GUICreate ("AutoIt Reversi", 490, 595)
$board = GUICtrlCreatePic ("C:\Temp\board.bmp", 5, 5, 480, 480)
GUICtrlSetState( $board, $GUI_DISABLE)
PlaceMarble ("C:\Temp\white", 3, 3)
PlaceMarble ("C:\Temp\black", 3, 4)
PlaceMarble ("C:\Temp\black", 4, 3)
PlaceMarble ("C:\Temp\white", 4, 4)
GUISetState ()

While 1
    $msg = GUIGetMsg ()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func coord($num)
    If $num < 1 Or $num > 8 Then
        SetError (1)
        Return 0
    EndIf
    Return ($num*60)+5
EndFunc

Func PlaceMarble ($color, $x, $y)
    Local $square = (8*$y)+$x
    If $square < 1 Or $square > 64 Then Return 0
    If $squares[$square] <> "" Then
        GUICtrlDelete ($MarblePics[$square])
        $squares[$square] = ""
    EndIf
    $MarblePics[$square] = GUICtrlCreatePic ($color&".bmp", coord($x), coord($y), 59, 59)
    GUICtrlSetState ( -1, $GUI_SHOW)
    $squares[$square] = $color
    Return 1
EndFunc

Func ReverseMarble ($x, $y)
    Local $square = (8*$y)+$x
    If $squares[$square] = "" Then Return 0
    Switch $squares[$square]
        Case "white"
            PlaceMarble ("black", $x, $y)
        Case "black"
            PlaceMarble ("white", $x, $y)
    EndSwitch
EndFunc

Func myfunc1 ()
    $ret = PlaceMarble ("C:\Temp\black", 3, 3)
EndFunc

8)

awsome! thanks!

[Valuater]

Welcome

8)