I don't understand this compiler error

Author

Message

Uechi

17

Years of Service

User Offline

Joined: 2nd Sep 2006

Location:

Posted: 5th May 2012 01:23

Link

Cannot find structure "createMap:i" in local declaration at line 85

Back to top

Profile PM

Hodgey

14

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 5th May 2012 01:33

Link

Code please?

Back to top

Profile PM Email

Uechi

17

Years of Service

User Offline

Joined: 2nd Sep 2006

Location:

Posted: 5th May 2012 03:08 Edited at: 5th May 2012 03:09

Link

Here is the code with some stuff commented out

rem
rem AGK Application
rem

rem A Wizard Did It!
SetVirtualResolution ( 512, 512 )
 Type Square
	bombCount as integer
	flag as integer
Endtype

MapBombCount = 40
MapSizeX = 16
MapSizeY = 16
global row
global col
global width
global height
global bombs
global x
global y
global i
global v
global h

Dim map[MapSizeX, MapSizeY] as Square

LoadImage ( 1, "1.png" )
LoadImage ( 2, "2.png" )
LoadImage ( 3, "3.png" )
LoadImage ( 4, "4.png" )
LoadImage ( 5, "5.png" )
LoadImage ( 6, "6.png" )
LoadImage ( 7, "7.png" )
LoadImage ( 8, "8.png" )
LoadImage ( 9, "normal-button.png" )
LoadImage ( 10, "flag-button.png" )
LoadImage ( 11, "mine-red.png" )
LoadImage ( 12, "no-mine.png" )
for x = 1 to 256
    CreateSprite(x,9)
next x
i = 0
h=1
v=1
for row = 1 to 16
    for col = 1 to 16
        inc spr
        SetSpritePosition ( spr, h,v)
        h = h + 32
    NEXT col
    v = v + 32
    h = 1
next row
bombs = 40
createMap()
rem Gosub _drawMap
sync()
do
    sync()
loop

rem DO

rem sync

remstart
	If death = 1
		endgame("GAME OVER")
	Else
		If win = 1
			endgame("You Win!")
		else
			Gosub _controlUI
		Endif
	Endif
remend

rem Sync ()
rem LOOP
end

Function createMap()
	For i = 1 to bombs
		repeat
			x = random(1,width-1)+1
			y = random(1,height-1)+1
		until map[x,y].bombCount = 0
		map[x,y].bombCount = -1
	Next i
	For y = 1 to height
        For x = 1 to width
            if map[x,y].bombCount <> -1
                bombs = 0
                inc bombs, bombExists(x-1,y-1,width,height)
                inc bombs, bombExists(x,y-1,width,height)
                inc bombs, bombExists(x+1,y-1,width,height)
                inc bombs, bombExists(x-1,y,width,height)
                inc bombs, bombExists(x+1,y,width,height)
                inc bombs, bombExists(x-1,y+1,width,height)
                inc bombs, bombExists(x,y+1,width,height)
                inc bombs, bombExists(x+1,y+1,width,height)
                map[x,y].bombCount = bombs
            endif
        Next x
    Next y

Endfunction

function bombExists(x,y,width,height)
   if x < 1 or y < 1 or x > width or y > height then exitfunction 0
   if map[x,y].bombCount = -1 then exitfunction 1
endfunction 0

+ Code Snippet

rem
rem AGK Application
rem

rem A Wizard Did It!
SetVirtualResolution ( 512, 512 )
 Type Square
	bombCount as integer
	flag as integer
Endtype

MapBombCount = 40
MapSizeX = 16
MapSizeY = 16
global row
global col
global width
global height
global bombs
global x
global y
global i
global v
global h

Dim map[MapSizeX, MapSizeY] as Square

LoadImage ( 1, "1.png" )
LoadImage ( 2, "2.png" )
LoadImage ( 3, "3.png" )
LoadImage ( 4, "4.png" )
LoadImage ( 5, "5.png" )
LoadImage ( 6, "6.png" )
LoadImage ( 7, "7.png" )
LoadImage ( 8, "8.png" )
LoadImage ( 9, "normal-button.png" )
LoadImage ( 10, "flag-button.png" )
LoadImage ( 11, "mine-red.png" )
LoadImage ( 12, "no-mine.png" )
for x = 1 to 256
    CreateSprite(x,9)
next x
i = 0
h=1
v=1
for row = 1 to 16
    for col = 1 to 16
        inc spr
        SetSpritePosition ( spr, h,v)
        h = h + 32
    NEXT col
    v = v + 32
    h = 1
next row
bombs = 40
createMap()
rem Gosub _drawMap
sync()
do
    sync()
loop


rem DO

	rem sync

    remstart
	If death = 1
		endgame("GAME OVER")
	Else
		If win = 1
			endgame("You Win!")
		else
			Gosub _controlUI
		Endif
	Endif
remend

	rem Sync ()
rem LOOP
end

Function createMap()
	For i = 1 to bombs
		repeat
			x = random(1,width-1)+1
			y = random(1,height-1)+1
		until map[x,y].bombCount = 0
		map[x,y].bombCount = -1
	Next i
	For y = 1 to height
        For x = 1 to width
            if map[x,y].bombCount <> -1
                bombs = 0
                inc bombs, bombExists(x-1,y-1,width,height)
                inc bombs, bombExists(x,y-1,width,height)
                inc bombs, bombExists(x+1,y-1,width,height)
                inc bombs, bombExists(x-1,y,width,height)
                inc bombs, bombExists(x+1,y,width,height)
                inc bombs, bombExists(x-1,y+1,width,height)
                inc bombs, bombExists(x,y+1,width,height)
                inc bombs, bombExists(x+1,y+1,width,height)
                map[x,y].bombCount = bombs
            endif
        Next x
    Next y

Endfunction

function bombExists(x,y,width,height)
   if x < 1 or y < 1 or x > width or y > height then exitfunction 0
   if map[x,y].bombCount = -1 then exitfunction 1
endfunction 0

Back to top

Profile PM

Hodgey

14

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 5th May 2012 03:37 Edited at: 5th May 2012 03:44

Link

You need to either initialise the globals i, x, y or set their datatypes. Simply having:

+ Code Snippet

global i
global x
global y

isn't enough because at this stage they could be either integers, floats or strings.

Edit: On second thought, they could be integers when declared as such but assigning them a value such as 0 seems to solve the problem.

Back to top

Profile PM Email

Uechi

17

Years of Service

User Offline

Joined: 2nd Sep 2006

Location:

Posted: 5th May 2012 03:49

Link

changed them to integer and got same error

rem
rem AGK Application
rem

rem A Wizard Did It!
SetVirtualResolution ( 512, 512 )
 Type Square
	bombCount as integer
	flag as integer
Endtype

MapBombCount = 40
MapSizeX = 16
MapSizeY = 16
global row as integer
global col as integer
global width as integer
global height as integer
global bombs as integer
global x as integer
global y as integer
global i as integer
global v as integer
global h as integer

Dim map[MapSizeX, MapSizeY] as Square

LoadImage ( 1, "1.png" )
LoadImage ( 2, "2.png" )
LoadImage ( 3, "3.png" )
LoadImage ( 4, "4.png" )
LoadImage ( 5, "5.png" )
LoadImage ( 6, "6.png" )
LoadImage ( 7, "7.png" )
LoadImage ( 8, "8.png" )
LoadImage ( 9, "normal-button.png" )
LoadImage ( 10, "flag-button.png" )
LoadImage ( 11, "mine-red.png" )
LoadImage ( 12, "no-mine.png" )
for x = 1 to 256
    CreateSprite(x,9)
next x
i = 0
h=1
v=1
for row = 1 to 16
    for col = 1 to 16
        inc spr
        SetSpritePosition ( spr, h,v)
        h = h + 32
    NEXT col
    v = v + 32
    h = 1
next row
bombs = 40
createMap()
rem Gosub _drawMap
sync()
do
    sync()
loop

rem DO

rem sync

remstart
	If death = 1
		endgame("GAME OVER")
	Else
		If win = 1
			endgame("You Win!")
		else
			Gosub _controlUI
		Endif
	Endif
remend

rem Sync ()
rem LOOP
end

Function createMap()
	For i = 1 to bombs
		repeat
			x = random(1,width-1)+1
			y = random(1,height-1)+1
		until map[x,y].bombCount = 0
		map[x,y].bombCount = -1
	Next i
	For y = 1 to height
        For x = 1 to width
            if map[x,y].bombCount <> -1
                bombs = 0
                inc bombs, bombExists(x-1,y-1,width,height)
                inc bombs, bombExists(x,y-1,width,height)
                inc bombs, bombExists(x+1,y-1,width,height)
                inc bombs, bombExists(x-1,y,width,height)
                inc bombs, bombExists(x+1,y,width,height)
                inc bombs, bombExists(x-1,y+1,width,height)
                inc bombs, bombExists(x,y+1,width,height)
                inc bombs, bombExists(x+1,y+1,width,height)
                map[x,y].bombCount = bombs
            endif
        Next x
    Next y

Endfunction

function bombExists(x,y,width,height)
   if x < 1 or y < 1 or x > width or y > height then exitfunction 0
   if map[x,y].bombCount = -1 then exitfunction 1
endfunction 0

+ Code Snippet

rem
rem AGK Application
rem

rem A Wizard Did It!
SetVirtualResolution ( 512, 512 )
 Type Square
	bombCount as integer
	flag as integer
Endtype

MapBombCount = 40
MapSizeX = 16
MapSizeY = 16
global row as integer
global col as integer
global width as integer
global height as integer
global bombs as integer
global x as integer
global y as integer
global i as integer
global v as integer
global h as integer

Dim map[MapSizeX, MapSizeY] as Square

LoadImage ( 1, "1.png" )
LoadImage ( 2, "2.png" )
LoadImage ( 3, "3.png" )
LoadImage ( 4, "4.png" )
LoadImage ( 5, "5.png" )
LoadImage ( 6, "6.png" )
LoadImage ( 7, "7.png" )
LoadImage ( 8, "8.png" )
LoadImage ( 9, "normal-button.png" )
LoadImage ( 10, "flag-button.png" )
LoadImage ( 11, "mine-red.png" )
LoadImage ( 12, "no-mine.png" )
for x = 1 to 256
    CreateSprite(x,9)
next x
i = 0
h=1
v=1
for row = 1 to 16
    for col = 1 to 16
        inc spr
        SetSpritePosition ( spr, h,v)
        h = h + 32
    NEXT col
    v = v + 32
    h = 1
next row
bombs = 40
createMap()
rem Gosub _drawMap
sync()
do
    sync()
loop


rem DO

	rem sync

    remstart
	If death = 1
		endgame("GAME OVER")
	Else
		If win = 1
			endgame("You Win!")
		else
			Gosub _controlUI
		Endif
	Endif
remend

	rem Sync ()
rem LOOP
end

Function createMap()
	For i = 1 to bombs
		repeat
			x = random(1,width-1)+1
			y = random(1,height-1)+1
		until map[x,y].bombCount = 0
		map[x,y].bombCount = -1
	Next i
	For y = 1 to height
        For x = 1 to width
            if map[x,y].bombCount <> -1
                bombs = 0
                inc bombs, bombExists(x-1,y-1,width,height)
                inc bombs, bombExists(x,y-1,width,height)
                inc bombs, bombExists(x+1,y-1,width,height)
                inc bombs, bombExists(x-1,y,width,height)
                inc bombs, bombExists(x+1,y,width,height)
                inc bombs, bombExists(x-1,y+1,width,height)
                inc bombs, bombExists(x,y+1,width,height)
                inc bombs, bombExists(x+1,y+1,width,height)
                map[x,y].bombCount = bombs
            endif
        Next x
    Next y

Endfunction

function bombExists(x,y,width,height)
   if x < 1 or y < 1 or x > width or y > height then exitfunction 0
   if map[x,y].bombCount = -1 then exitfunction 1
endfunction 0

Back to top

Profile PM

Hodgey

14

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 5th May 2012 04:57

Link

Sorry, I was looking at about 5 projects at once and when I thought I was compiling yours, I compiled something else.

Anyway, it looks like you can't use global iterators in for loops when those for-loops are in functions.

A work around for now would be to make i, y, x local and then pass them in as arguments.

Back to top

Profile PM Email

DVader

20

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 6th May 2012 19:48

Link

I doubt it has anything to do with it, but I notice you use the inc command. I have not had much luck with that command in AGK. It may be ok now, but in older versions of AppGameKit, it used to be dodgy. I went back to the old school a=a+b method, and all the odd bugs disappeared.
If it is a global/local variable thing, you could just change it to a gosub routine. That would eliminate that aspect, and for what the function does, a gosub is exactly the same.

Back to top

Profile PM Website

Marl

12

Years of Service

User Offline

Joined: 19th Nov 2011

Location: Bradford, UK

Posted: 6th May 2012 23:38 Edited at: 6th May 2012 23:52

Link

While I applaud the programming discipline of declaring everything at the start, in this case it seems to be the cause of the problem

Try removing the global declarations for rows, cols, x, y and i and see if that helps.

From the code provided, I can see no reason why these need to be global, they are local loop counters and are not referenced outside those loops.

Also, within the bombExists() function, x and y are used in a local context - they are created locally to received the passed parameters - and I'm not sure if that will work with them also being global.

Another thing, you don't need to include width and height as parameters to bombExists(), as these are also global so would be seen within that function anyway.

So this could be simplified to.

+ Code Snippet

function bombExists(x,y)

Finally, it might help if you set width and height to a value somewhere

edit:
@DVader

Quote: "I notice you use the inc command. I have not had much luck with that command in AGK"

I had some issues at first, and did as you did going back to maths.

But I started using it again in 1065 and have not had any issues when using it with integers. Floats, on the other hand, freaked it out big time under 1065, I've not tried under 107x

I don't know how much inc saves over a normal addition - perhaps a couple of cycles for the extra move operations, but can't imagine it would be a lot, especially in relation to floating point maths.

Back to top

Profile PM Email

Uechi

17

Years of Service

User Offline

Joined: 2nd Sep 2006

Location:

Posted: 7th May 2012 18:00

Link

thanks to everyone for their suggestions. I made them local and it solved the problem

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / I don't understand this compiler error