Tier 1 product is crashing with an unknown error.

Author

Message

Kurtuk

11

Years of Service

User Offline

Joined: 5th Dec 2012

Location:

Posted: 6th Dec 2012 04:12

Link

I'm working on a new game in tier 1 and this is the error I receive Process terminated with status -1073741819 (0 minutes, 4 seconds).
I'm concerned that somehow my compiler is not Registered properly because after running install about 5 times now I have yet to see any way in which it asks for my registration code so on the forums I found a guy post about it and followed his directions to put my serial code in place but nowhere in the program does it verify that it is recognizing my serial code. My programs run when I reinstall the compiler and then suddenly they crash every time or part of the program don't run at all. Here's a part of the code being used that crashes. At first it would compile with the arrays being Dim map[105,105] as mapstats but if I went above 105 it would crash in version 1076. I just installed 108, manually added my serial code again and then compiled with a much higher DIM[500,500] as mapstats but now the pathfinding code will not even run and if I dim it lower it crashes again.

Function FillMap(Mx,My,Rm,Rb,Rt,Lv)
    NumberOfRooms = CreateText("xx")
	SetTextPosition(NumberOfRooms,GetVirtualWidth()/2,GetVirtualHeight()/2)
	GoodMove as integer
	GoodMove = 1
	roomcount = 1
	roomoneset = 0

for x = 0 to MapSizeX
		for y = 0 to MapSizeY
			if x=0 or y=0 or x = MapSizeX or y = MapSizeY
				Map[x,y].tile = _WALL_EDGE
			endif
		next y
	next x

REPEAT
		if roomcount = 1
			RoomSizeX = 4
			RoomSizeY = 4
		else
			RoomSizeX = random(rb,Rt)
			RoomSizeY = random(rb,Rt)
		endif
		RandomX=random(1,MapSizeX-RoomSizeX)
		RandomY=random(1,MapSizeY-RoomSizeY)

for a = 0 to RoomSizeX
			for b = 0 to RoomSizeY
				if (RandomX+RoomSizeX > MapSizeX or RandomY+RoomSizeY > MapSizeY)
					GoodMove = 0
				else
					if map[RandomX+a,RandomY+b].room > 0 or map[RandomX+a,RandomY+b].tile > 0
						GoodMove = 0
                	endif
				endif
			next b
		next a
		for a = -1 to RoomSizeX+1
			for b = -1 to RoomSizeY+1
				if map[RandomX+a,RandomY+b].room > 0 or map[RandomX+a,RandomY+b].tile > 0
					GoodMove = 0
				endif
			next b
		next a

if GoodMove = 1 // there is space for the room so lets build it.
			if roomcount = 1 and roomoneset = 0 // if this is room 1 then it has to be a special size.
				hero.x=RandomX+1
				hero.y=RandomY+1
				PX=hero.x-VIEWMAPSIZEX/2
				PY=hero.y-VIEWMAPSIZEY/2
				roomoneset = 1
			else
				inc roomcount,1 // increment first so we dont have a room 0 which is what all corridors are set to.
			endif
			for a = 0 to RoomSizeX // begin setting the rooms up in the map array
				for b = 0 to RoomSizeY
					if a = 0 and b = 0
						map[RandomX+a,RandomY+b].start = RoomCount
						map[RandomX+a,RandomY+b].RoomSizeX = RoomSizeX
						map[RandomX+a,RandomY+b].RoomSizeY = RoomSizeY
					endif
					if a = 0 or b = 0 or a = RoomSizeX or b = RoomSizeY
						map[RandomX+a,RandomY+b].tile = _WALL
						
						map[RandomX+a,RandomY+b].room = RoomCount
					else
						map[RandomX+a,RandomY+b].tile = _FLOOR
						
						map[RandomX+a,RandomY+b].room = RoomCount
					endif
					map[RandomX+a,RandomY+b].room = roomcount
				next b
			next a
			failed = 0 // a room was successfully made so reset the failures for next room
			if roomcount = rm then finalroomset = 1
		else
			inc failed,1 // every time there isn't enough space we tally it and retry another random space.
		endif
		GoodMove = 1
		ClearScreen()
        SetTextString(NumberOfRooms,str(roomcount))
		sync()

UNTIL (roomcount = Rm and finalroomset = 1) or failed > 500
	deletetext(NumberofRooms)
	map[hero.x,hero.y].tile = _STAIRS_UP

//Add Doors
for a = 0 to MapSizeX
    for b = 0 to MapSizeY
        if map[a,b].start > 0
            NumDoors = Random(1,4)
            repeat
                DoorPlacement = Random(1,4) // North,south,east or west gets the door
                if DoorPlacement = 1 // North
                    repeat
                        DoorX = a + random(1,map[a,b].roomsizex-1)
                        DoorY = b
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                elseif DoorPlacement = 2 // south
                    repeat
                        DoorX = a + random(1,map[a,b].roomsizex-1)
                        DoorY = b + map[a,b].roomsizey
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 // or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                elseif DoorPlacement = 3 // east
                    repeat
                        DoorX = a + map[a,b].roomsizex
                        DoorY = b + random(1,map[a,b].roomsizey-1)
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 // or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                elseif DoorPlacement = 4 // west
                    repeat
                        DoorX = a
                        DoorY = b + random(1,map[a,b].roomsizey-1)
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 // or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                endif
            until NumDoors = 0 `or failed > 50
            DoorPlaced = 0
        endif
    next b
next a
failed = 0
for a = 0 to MapSizeX
	for b = 0 to MapSizeY
		if map[a,b].tile = _WALL or map[a,b].tile = _FLOOR or map[a,b].tile = _WALL_EDGE
			CollisionMap[a,b] = 1
		endif
	next b
next a

DoorsCount=0
for a = 0 to mapsizex
	for b = 0 to mapsizey
		if map[a,b].tile = _DOOR or map[a,b].tile = _HIDDEN_DOOR
			inc DoorsCount,1
			doors[DoorsCount].x=a
			doors[DoorsCount].y=b
		endif
	next b
next a

for a = 1 to DoorsCount
if a > 1
    DiscoveredPath$=FindPath(doors[a].x,doors[a].y,doors[a-1].x,doors[a-1].y,0,2500)
else
    DiscoveredPath$=FindPath(doors[a].x,doors[a].y,doors[a+2].x,doors[a+2].y,0,2500)
endif

DrawPath(DiscoveredPath$)
next a

// Fill the gaps
for a = 0 to Mx
	for b = 0 to My
		if map[a,b].tile = _EMPTY then map[a,b].tile = _WALL
	next b
next a

Endfunction

+ Code Snippet

Function FillMap(Mx,My,Rm,Rb,Rt,Lv)
    NumberOfRooms = CreateText("xx")
	SetTextPosition(NumberOfRooms,GetVirtualWidth()/2,GetVirtualHeight()/2)
	GoodMove as integer
	GoodMove = 1
	roomcount = 1
	roomoneset = 0

	for x = 0 to MapSizeX
		for y = 0 to MapSizeY
			if x=0 or y=0 or x = MapSizeX or y = MapSizeY
				Map[x,y].tile = _WALL_EDGE
			endif
		next y
	next x

	REPEAT
		if roomcount = 1
			RoomSizeX = 4
			RoomSizeY = 4
		else
			RoomSizeX = random(rb,Rt)
			RoomSizeY = random(rb,Rt)
		endif
		RandomX=random(1,MapSizeX-RoomSizeX)
		RandomY=random(1,MapSizeY-RoomSizeY)

		for a = 0 to RoomSizeX
			for b = 0 to RoomSizeY
				if (RandomX+RoomSizeX > MapSizeX or RandomY+RoomSizeY > MapSizeY)
					GoodMove = 0
				else
					if map[RandomX+a,RandomY+b].room > 0 or map[RandomX+a,RandomY+b].tile > 0
						GoodMove = 0
                	endif
				endif
			next b
		next a
		for a = -1 to RoomSizeX+1
			for b = -1 to RoomSizeY+1
				if map[RandomX+a,RandomY+b].room > 0 or map[RandomX+a,RandomY+b].tile > 0
					GoodMove = 0
				endif
			next b
		next a

		if GoodMove = 1 // there is space for the room so lets build it.
			if roomcount = 1 and roomoneset = 0 // if this is room 1 then it has to be a special size.
				hero.x=RandomX+1
				hero.y=RandomY+1
				PX=hero.x-VIEWMAPSIZEX/2
				PY=hero.y-VIEWMAPSIZEY/2
				roomoneset = 1
			else
				inc roomcount,1 // increment first so we dont have a room 0 which is what all corridors are set to.
			endif
			for a = 0 to RoomSizeX // begin setting the rooms up in the map array
				for b = 0 to RoomSizeY
					if a = 0 and b = 0
						map[RandomX+a,RandomY+b].start = RoomCount
						map[RandomX+a,RandomY+b].RoomSizeX = RoomSizeX
						map[RandomX+a,RandomY+b].RoomSizeY = RoomSizeY
					endif
					if a = 0 or b = 0 or a = RoomSizeX or b = RoomSizeY
						map[RandomX+a,RandomY+b].tile = _WALL
						
						map[RandomX+a,RandomY+b].room = RoomCount
					else
						map[RandomX+a,RandomY+b].tile = _FLOOR
						
						map[RandomX+a,RandomY+b].room = RoomCount
					endif
					map[RandomX+a,RandomY+b].room = roomcount
				next b
			next a
			failed = 0 // a room was successfully made so reset the failures for next room
			if roomcount = rm then finalroomset = 1
		else
			inc failed,1 // every time there isn't enough space we tally it and retry another random space.
		endif
		GoodMove = 1
		ClearScreen()
        SetTextString(NumberOfRooms,str(roomcount))
		sync()

	UNTIL (roomcount = Rm and finalroomset = 1) or failed > 500
	deletetext(NumberofRooms)
	map[hero.x,hero.y].tile = _STAIRS_UP

//Add Doors
for a = 0 to MapSizeX
    for b = 0 to MapSizeY
        if map[a,b].start > 0
            NumDoors = Random(1,4)
            repeat
                DoorPlacement = Random(1,4) // North,south,east or west gets the door
                if DoorPlacement = 1 // North
                    repeat
                        DoorX = a + random(1,map[a,b].roomsizex-1)
                        DoorY = b
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                elseif DoorPlacement = 2 // south
                    repeat
                        DoorX = a + random(1,map[a,b].roomsizex-1)
                        DoorY = b + map[a,b].roomsizey
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 // or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                elseif DoorPlacement = 3 // east
                    repeat
                        DoorX = a + map[a,b].roomsizex
                        DoorY = b + random(1,map[a,b].roomsizey-1)
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 // or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                elseif DoorPlacement = 4 // west
                    repeat
                        DoorX = a
                        DoorY = b + random(1,map[a,b].roomsizey-1)
                        if map[DoorX,DoorY].tile <> _DOOR
                            map[DoorX,DoorY].tile = _DOOR
                            DoorPlaced = 1
                        else
                            inc failed,1
                        endif
                    until DoorPlaced = 1 // or failed > 20
                    DoorPlaced = 0
                    dec NumDoors,1
                endif
            until NumDoors = 0 `or failed > 50
            DoorPlaced = 0
        endif
    next b
next a
failed = 0
for a = 0 to MapSizeX
	for b = 0 to MapSizeY
		if map[a,b].tile = _WALL or map[a,b].tile = _FLOOR or map[a,b].tile = _WALL_EDGE
			CollisionMap[a,b] = 1
		endif
	next b
next a

DoorsCount=0
for a = 0 to mapsizex
	for b = 0 to mapsizey
		if map[a,b].tile = _DOOR or map[a,b].tile = _HIDDEN_DOOR
			inc DoorsCount,1
			doors[DoorsCount].x=a
			doors[DoorsCount].y=b
		endif
	next b
next a

for a = 1 to DoorsCount
if a > 1
    DiscoveredPath$=FindPath(doors[a].x,doors[a].y,doors[a-1].x,doors[a-1].y,0,2500)
else
    DiscoveredPath$=FindPath(doors[a].x,doors[a].y,doors[a+2].x,doors[a+2].y,0,2500)
endif

DrawPath(DiscoveredPath$)
next a

// Fill the gaps
for a = 0 to Mx
	for b = 0 to My
		if map[a,b].tile = _EMPTY then map[a,b].tile = _WALL
	next b
next a

Endfunction

+ Code Snippet

Global MapSizeX as integer
Global MapSizeY as integer

Global ViewMapSizeX = 10
Global ViewMapSizeY = 8

MapsizeX = 100
MapSizeY = 100

Dim MAP[MapSizeX,MapSizeY] as mapstats

Type TNode
    H as Integer //distance to end
    G as Integer //distance from start
    ParentX as Integer //coord x of parent cell
    ParentY as Integer //coord y of parent cell
EndType

//these two vectors define offset of search patterns
//directions are respectively null,N,W,S,E,NE,SE,SW,NW
Dim DsX[8] as Integer = [0,0,1,0,-1,1,1,-1,-1]
Dim DsY[8] as Integer = [0,-1,0,1,0,-1,1,1,-1]

//an array for the open list of cells
Dim OpenList[MapSizeX*MapSizeY,1] as Integer

//an array for the closed list of cells
Dim ClosedList[MapSizeX*MapSizeY,1] as Integer

//matrix of nodes to help calculate path
Dim MapCalc[MapSizeX,MapSizeY] As TNode

Dim collisionmap[MapSizeX,MapSizeY]
Global DiscoveredPath$ = ""

Back to top

Profile PM

Ancient Lady

Valued Member

20

Years of Service

User Offline

Joined: 17th Mar 2004

Location: Anchorage, Alaska, USA

Posted: 6th Dec 2012 17:09

Link

For starters, did you completely uninstall AppGameKit before you installed over it again? This can sometimes be a problem.

In your first code snippet, where are MapSizeX, MapSizeX and roomcount defined? Are they globals? (presumably, yes)

Is MapSizeX/Y greater than RoomSizeX/Y? Your second snippet doesn't show the values for roomcount, RoomSizeX and RoomSizeY (globals?).

Aside from all that. Since map appears to be an array of UDTs, that is probably your main problem. Especially in functions, directly using members of a UDT array (especially a multi-dimensional one) can be a problem. Try copying the array entry to a local variable of type mapstats and then using the variable instead of the directly addressed array entry. This has been know to fix 99.99 percent of the kind of error you are seeing.

But you need to be careful about storing values back into the actual array. Copying to a local variable and modifying the variable does NOT affect the original array entry.

This is either redundant code or an error (Tier 1 is not case sensitive). You set the array .room value in if .. else if .. pair with this string:

+ Code Snippet

map[RandomX+a,RandomY+b].room = RoomCount

And then, after the if .. else if .. pair you execute this statement (which is effectively exactly the same thing):

+ Code Snippet

map[RandomX+a,RandomY+b].room = roomcount

Later in the code, you do this: DoorX = a + random(1,map[a,b].roomsizex-1)

And as best as I can tell, you only set the .roomsizeX/Y elements for the first and last column/row in the map. And you are relying on non-assigned values being zero. I make this assumption because the if statement that leads to the line listed above is: if map[a,b].start > 0

And you are only setting the .start element in the map[0,0] entry.

In general, I can see lots of room for optimization to speed up your code. The way you are using nested do loops and then only doing the first and last column/row is a very good example. And the case where you select exactly map[0,0] in a nested loop is unnecessary. That set can get moved outside of the nested loop altogether.

This is all I can do for now, I need to move on to my regular tasks.

Cheers,
Ancient Lady
AGK Community Tester

Back to top

Profile PM

Kurtuk

11

Years of Service

User Offline

Joined: 5th Dec 2012

Location:

Posted: 7th Dec 2012 09:00

Link

I have recently discovered the compiler is the problem. If I uninstall 108 beta and reinstall 1076 the game error occurs if I don't initialize all my local variables. The instant I removed roomcount as integer the game would crash. Then I noticed some other odd things. When I compiled the code from Codebase called Pathfindtest it will work just fine with 1076 but when 108 is installed it doesnt work if you recompile it. Went to a backup and the code still won't compile. it seems 108 beta breaks some things but fixes others. It compiles my code but will not run the pathfinding routines. It gives no path to target every single time unless I switch back to 1076.

Back to top

Profile PM

DVader

20

Years of Service

User Offline

Joined: 28th Jan 2004

Location:

Posted: 7th Dec 2012 16:11

Link

1076 is the best version to use at the moment, the 108+ versions are still beta. You really only should be using them if you need some new functions from it, such as 3D or the new sensor commands. If you can avoid it though use 1076 for anything you may want to release, at least at the moment.

Back to top

Profile PM Website

Sorry your browser is not supported!

AppGameKit Classic Chat / Tier 1 product is crashing with an unknown error.