Random crash bug

BlitzMax Forums/BlitzMax Beginners Area/Random crash bug

Xerra (Posted 2014) [#1]

Happy new year, guys. Here's one for all you clever types that might be able to find what I'm doing wrong. Hangovers permitting, of course :) I've recently started programming with Bmax again after a long time out so I've been familiarising myself with some pretty simple programs to get back into the swing of it again. Because I fancy making a maze game remake from something I played on my Vic20 as a kid, I decided to try and convert a simple game called Hunt the Wumpus to get a handle on arrays and the like. It's a bit hacked together as I've not put anything into types or methods, because I'm still a bit iffy with using them as yet but you can get the general idea of what I'm doing as it does work with what I've written so far. Hunt the wumpus is a simple web game Click here! And you can read about it Click here! My problem is reseting the board in-game which usually causes it to crash after a random amount of resets with no error message, and involves the task manager to force it to close out so I can edit again. If I don't reset the board then I can move around just fine but I've not put in any feedback for hitting a hazzard or finishing the game as yet. Question being: Why? Here's the code to see for yourself. Appologies if i've made a mess of the forum codes putting this in... ' Hunt the Wumpus by Tony Brice - 1st Jan, 2014. ' SuperStrict AppTitle:String = "Hunt the Wumpus !" Global Width:Int = 640, Height:Int = 480, Depth:Int = 16 SetGraphicsDriver D3D7Max2DDriver() Graphics Width, Height, Depth SetBlend ALPHABLEND SetMaskColor 0 , 0 , 0 SeedRnd MilliSecs() FlushKeys ' Players X and Y location on grid. Global PlayerX:Int, PlayerY:Int = 0 ' Never-ending pit location on grid. Global PitX:Int = 0, PitY:Int = 0 ' Evil Wumpus location on grid. Global WumpusX:Int, WumpusY:Int = 0 ' Annoying bats location on grid. Global BatsX:Int, BatsY:Int = 0 ' Start with 3 arrows and there are two more hidden in one square on grid. Global NumberofArrows:Int = 3, ArrowX:Int = 0, ArrowY:Int = 0 ' Toggle for cheating Global Showall:Byte = True ' Toggle for debug mode Global Debug:Byte = True ' Define 5*5 grid. Could be expanded with a little work. Global GridX:Int = 5, GridY:Int = 5 Global GridArray:Int[GridX, GridY] Global Counter:Int = 0 Init() ' Set up the grid. Repeat Cls SetColor 100, 100, 255 DrawText AppTitle , 0 , 0 SetColor 255, 0, 0 DrawText "###########################", 0, 30 DrawText "###########################", 0, 40 DrawText "## ## ## ## ## ##", 0, 50 DrawText "## ## ## ## ## ##", 0, 60 DrawText "## ## ## ## ## ##", 0, 70 DrawText "###########################", 0, 80 DrawText "###########################", 0, 90 DrawText "## ## ## ## ## ##", 0, 100 DrawText "## ## ## ## ## ##", 0, 110 DrawText "## ## ## ## ## ##", 0, 120 DrawText "###########################", 0, 130 DrawText "###########################", 0, 140 DrawText "## ## ## ## ## ##", 0, 150 DrawText "## ## ## ## ## ##", 0, 160 DrawText "## ## ## ## ## ##", 0, 170 DrawText "###########################", 0, 180 DrawText "###########################", 0, 190 DrawText "## ## ## ## ## ##", 0, 200 DrawText "## ## ## ## ## ##", 0, 210 DrawText "## ## ## ## ## ##", 0, 220 DrawText "###########################", 0, 230 DrawText "###########################", 0, 240 DrawText "## ## ## ## ## ##", 0, 250 DrawText "## ## ## ## ## ##", 0, 260 DrawText "## ## ## ## ## ##", 0, 270 DrawText "###########################", 0, 280 DrawText "###########################", 0, 290 SetColor 0, 255, 0 ' Green. DrawText "Arrows remaining: " + NumberofArrows, 0, 310 SetColor 255, 255, 0 ' Orange. DrawText "R to Reset / S toggle visiblity / Escape to quit game", 0, 330 If Showall = True SetColor 255, 0, 0 ' Red. DrawText "Player is Cheating", 0, 370 Else SetColor 0, 255, 0 ' Green. DrawText "Player is not cheating.", 0, 370 EndIf SetColor 255, 255, 255 ' White. DrawText "Use cursor keys to move & hold Shift with cursor keys to shoot.", 0, 400 If Debug = True SetColor 255, 0, 255 ' Pink. DrawText "Player location - X:" + PlayerX + " , Y:" + PlayerY, 0, 350 DrawText "Counter: " + Counter, 0, 460 DrawText "X: " + MouseX() + " " + MouseY(), 200, 460 End If If KeyHit(KEY_R) ' Reset the board counter = counter + 1 Init() End If If KeyHit(KEY_DOWN) And PlayerY < 4 PlayerY:+1 End If If KeyHit(KEY_UP) And PlayerY > 0 PlayerY:-1 End If If KeyHit(KEY_LEFT) And PlayerX > 0 PlayerX:-1 End If If KeyHit(KEY_RIGHT) And PlayerX < 4 PlayerX:+1 End If ' Toggle if hazzards shown on grid. If KeyHit(KEY_S) If Showall = True Showall = False Else Showall = True End If EndIf Display() Flip Until KeyHit(KEY_ESCAPE) End Function Init() ' This is a bit fiddly how I've done the starting locations but it was the best way I could think of ensuring ' each hazzard was on its own square in the grid as it would be useless for the pit and wumpus to be in the ' same place, for example. Local t:Byte = 0 ' Place the Wumpus on grid. WumpusX = Rand(0, 4) ; WumpusY = Rand(0, 4) GridArray[WumpusX, WumpusY] = 1 ' Place the arrows on grid. Repeat ArrowX = Rand(0, 4) ; ArrowY = Rand(0, 4) If GridArray[ArrowX, ArrowY] > 0 t = 0 Else t = 1 GridArray[ArrowX, ArrowY] = 4 EndIf Until t = 1 ' Place the pit on grid. t = 0 Repeat PitX = Rand(0, 4) ; PitY = Rand(0, 4) If GridArray[PitX, PitY] > 0 t = 0 Else t = 1 GridArray[PitX, PitY] = 2 End If Until t = 1 ' Place the bats on grid. t = 0 Repeat BatsX = Rand(0, 4) ; BatsY = Rand(0, 4) If GridArray[BatsX, BatsY] > 0 t = 0 Else t = 1 GridArray[BatsX, BatsY] = 3 End If Until t = 1 ' Player to start in a random safe location t = 0 Repeat PlayerX = Rand(0, 4) ; PlayerY = Rand(0, 4) If GridArray[PlayerX, PlayerY] = 0 t = 1 Else t = 0 End If Until t = 1 End Function Function Display() ' Display player location and all objects if Showall is active. SetColor 255, 0, 255 DrawText "P", 25 + (PlayerX * 40), 60 + (PlayerY * 50) If Showall = True DrawText "W", 25 + (WumpusX * 40), 60 + (WumpusY * 50) DrawText "H", 25 + (PitX * 40), 60 + (PitY * 50) DrawText "B", 25 + (BatsX * 40), 60 + (BatsY * 50) DrawText "^", 25 + (ArrowX * 40), 60 + (ArrowY * 50) End If EndFunction

jsp (Posted 2014) [#2]

Hi Xerra, you don't initialize your GridArray again when entering your init() function during the reset!

Xerra (Posted 2014) [#3]

Sorry, Jens, you lost me there. How do you mean reinitialise it? I thought it was defined as a 5*5 grid and that's it. I don't see how this would crash it?

Xerra (Posted 2014) [#4]

Oh, hang fire. I get it now. You mean i had the whole grid set to have stuff in it so that when I was looping through trying to find a blank square it would be an endless trap. Bingo! Thanks, mate.

Xerra (Posted 2014) [#5]

I pretty much went as far with this as I wanted to go to learn some new stuff so I'm posting the complete source code here in case anyone else can make use of it. If you think I've done something incorrectly, or could have improved on it, then I'd love some advice as I'm just getting to grips with stuff like methods/functions/types so probably could learn a lot. ' Hunt the Wumpus by Tony Brice - January, 2014. ' To Do: ' Light up all squares already moved over. ' Ideas: ' Expand grid size to 10 * 10 & adjust arrows, hazzards accordingly. ' Message box set up as a scrolling area of message text which can move up screen as new info displayed. ' Score system for number of Wumpus tracked and killed before dying. Could add 10 points each square moved or similar. ' Implement a torch that you can use once to highlight four squares around you. ' Wumpus can move a square in any random direction if he sniffs you. You can move first. If he enters pit, you win. ' Bugs: ' if you hold shift down then you can fire in all directions even if you are on your last shot. SuperStrict Framework brl.D3D7Max2D Import BRL.Random ' Toggle for debug mode Global Debug:Byte = False ' Toggle for cheating Global Showall:Byte = False AppTitle:String = "Hunt the Wumpus !" Global Width:Int = 640, Height:Int = 480, Depth:Int = 8 Graphics Width, Height, Depth SetBlend ALPHABLEND SetMaskColor 0, 0, 0 SeedRnd MilliSecs() FlushKeys ' Players X and Y location on grid. Global PlayerX:Int, PlayerY:Int = 0, PX:Int = 0, PY:Int = 0 Global WumpusKilled:Byte = False Global Score:Int = 0 ' Score to be implemented. Global Level:Int = 0 ' Levels to be implemented. 'Ingame toggles Global GameOver:Byte = False ' Locks player movement if active because they have died. Global GameStatus:Int = 0 ' Used to define game over condition eg: 3= left cave with wumpus still alive. Global Help:Byte = False ' Toggle if help info is displayed in game. ' Playershot location on grid. Global ShotFired:Byte = False ' If a shot has been fired then area highlighted until next turn. Global ShotX:Int = 0, ShotY:Int = 0 ' X & Y location of shot square ' Never-ending pit location on grid. Global PitX:Int = 0, PitY:Int = 0 ' Wumpus location on grid. Global WumpusX:Int, WumpusY:Int = 0 ' Annoying bats location on grid. Global BatsX:Int, BatsY:Int = 0 ' Start with 3 arrows and there are a random amount more hidden in one square on grid. Global NumberofArrows:Int = 0, ArrowX:Int = 0, ArrowY:Int = 0 Global ArrowsCollected:Byte = False ' Exit location on grid Global ExitX:Int = 0, ExitY:Int = 0, ExitFound:Byte = False ' Message display Global Message:String = " " Global Warning:String = " " ' Define 5*5 grid. Could be expanded with a little work. ' Will need to define the grid using Drawtext "#" in a grid size for/next loop if you want different sizes. Global MaxGridSizeX:Int = 5, MaxGridSizeY:Int = 5 ' Define grid size to make expanding easier later. Global GridX:Int = 0, GridY:Int = 0 Global GridArray:Int[MaxGridSizeX, MaxGridSizeY] Init() ' Set up the grid. Repeat Display() If KeyHit(KEY_R) ' Reset the board Init() EndIf If KeyHit(KEY_D) ' Toggle debug mode If Debug = True Debug = False Else Debug = True EndIf EndIf If KeyHit(KEY_H) ' Display help screen. If Help = True Help = False Message = " " Else Help = True EndIf EndIf If KeyHit(KEY_C) ' Toggle if hazzards shown on grid. If Showall = True Showall = False Else Showall = True EndIf EndIf If KeyHit(KEY_E) ' You can leave the cave alive if you find the exit before dying and are out of ammo. If PlayerX = ExitX And PlayerY = ExitY Message = "You leave the cave safely !" Warning = " " GameOver = True GameStatus = 6 ' Exit the cave with Wumpus still alive. End If End If If KeyHit(KEY_A) ' if cheat on then you can press A for 100 arrows - for testing. If Showall = True NumberofArrows = 100 EndIf EndIf If GameOver = False If KeyHit(KEY_DOWN) And PlayerY < 4 If KeyDown(KEY_LSHIFT) Or KeyDown(KEY_RSHIFT) ShotX = PlayerX ; ShotY = PlayerY + 1 Fire() Else PlayerY:+1 Movement() EndIf EndIf If KeyHit(KEY_UP) And PlayerY > 0 If KeyDown(KEY_LSHIFT) Or KeyDown(KEY_RSHIFT) ShotX = PlayerX ; ShotY = PlayerY - 1 Fire() Else PlayerY:-1 Movement() EndIf EndIf If KeyHit(KEY_LEFT) And PlayerX > 0 If KeyDown(KEY_LSHIFT) Or KeyDown(KEY_RSHIFT) ShotX = PlayerX - 1 ; ShotY = PlayerY Fire() Else PlayerX:-1 Movement() EndIf EndIf If KeyHit(KEY_RIGHT) And PlayerX < 4 If KeyDown(KEY_LSHIFT) Or KeyDown(KEY_RSHIFT) ShotX = PlayerX + 1 ; ShotY = PlayerY Fire() Else PlayerX:+1 Movement() EndIf EndIf Else ' Game Over has been triggered. If GameStatus = 0 ' Wumpus caught you. Message = "Roar! The wumpus caught you !" Warning = "You've been consumed. Yuck !" WumpusKilled = False End If If GameStatus = 2 ' Fell in the pit. Message = "You fell in the never ending pit." Warning = "AAAAaaaarrrrggghhh !!!!!" WumpusKilled = False End If If GameStatus = 1 ' Killed the Wumpus. Message = "Splat! You just nailed that Wumpus !" Warning = "Well done !" WumpusKilled = True EndIf If GameStatus = 6 ' Exit the cave alive. WumpusKilled = True EndIf If WumpusKilled = False SetColor 255, 0, 0 ' Red DrawText "** Game Over ** You were killed !", 250, 100 Else SetColor 0, 255, 0 ' Green DrawText "** Well Done ** You won the game !", 250, 100 EndIf SetColor 0, 100, 200 DrawText "Press 'R' to Restart", 300, 120 EndIf Flip Until KeyHit(KEY_ESCAPE) End Function Movement() Local t:Int = 0 Help = False ' Turn off help screen or results of movement will be unknown. 'Message = " "; Warning = " " ' Clear the status displays so player notices new warnings. If ShotFired = True ShotFired = False ' Player moved so cancel displaying the shot and remove from grid. GridArray[ShotX, ShotY] = 0 EndIf If GridArray[PlayerX, PlayerY] = 0 ' Player in empty square. Message = "You are searching the cave." End If If GridArray[PlayerX, PlayerY] = 4 If ArrowsCollected = False ArrowsCollected = True NumberofArrows:+Rand(1, 5) Message = "Excellent. You found more arrows." EndIf EndIf If GridArray[PlayerX, PlayerY] = 1 GameOver = True GameStatus = 0 ' Walked into the Wumpus. EndIf If GridArray[PlayerX, PlayerY] = 6 ExitFound = True Message = "Exit found ! Press `E` to Escape." EndIf If GridArray[PlayerX, PlayerY] = 2 GameOver = True GameStatus = 2 ' Fell into the pit EndIf If GridArray[PlayerX, PlayerY] = 3 Message = "Bats found you & dropped you somewhere." t = 0 Repeat PlayerX = Rand(0, 4) ; PlayerY = Rand(0, 4) If GridArray[PlayerX, PlayerY] = 0 t = 1 Else t = 0 EndIf Until t = 1 EndIf ' ** Check squares adjacent to player because they have moved. ** Warning = " " If PlayerX > 0 ' Check East. NearbyHazzard(PlayerX - 1, PlayerY) EndIf If PlayerX < 4 ' Check West. NearbyHazzard(PlayerX + 1, PlayerY) EndIf If PlayerY > 0 ' Check North. NearbyHazzard(PlayerX, PlayerY - 1) EndIf If PlayerY < 4 ' Check South NearbyHazzard(PlayerX, PlayerY + 1) EndIf End Function Function Lights() ' ** Working here ..... ** ' Light up each square on grid already visited. ' May want to stop arrows displaying once they have been collected when this is working. Local x:Int = 0, y:Int = 0 For x = 0 To 4 For y = 0 To 4 DrawText "@", 25 + (PlayerX * 40), 60 + (PlayerY * 50) ' Draw player on grid. Next Next End Function Function NearbyHazzard(xx:Int, yy:Int) If GridArray[xx, yy] = 1 Warning = "You can hear snoring nearby !" End If If GridArray[xx, yy] = 2 Warning = "You can hear your footsteps echo !" End If If GridArray[xx, yy] = 3 Warning = "There's squeaking nearby !" End If If GridArray[xx, yy] = 6 Warning = "There's a light in the distance !" End If End Function Function Fire() Local t:Int = gridarray[shotx, shoty] Help = False ' Turn off help screen or results of shot will be unknown. If NumberofArrows > 0 NumberofArrows:-1 ShotFired = True Message = "You fire into empty space !" If t = 0 GridArray[ShotX, ShotY] = 5 EndIf If t = 1 GameOver = True ; WumpusKilled = True GameStatus = 1 End If If t = 2 Message = "You hear your shot whistle over a pit !" ShotFired = False EndIf If t = 3 Message = "You hear the fluttering of wings !" ShotFired = False End If If t = 4 If ArrowsCollected = False ' if you have collected arrows already then there would be no ricochet. Message = "Your shot bounced off something !" ShotFired = False EndIf EndIf If t = 6 Message = "You hear an echo in the distance !" ShotFired = False End If Else Message = "You are out of ammunition !" EndIf End Function Function Init() ' This is a bit fiddly how I've done the starting locations but it was the best way I could think of ensuring ' each hazzard was on its own square in the grid as it would be useless for the pit and wumpus to be in the ' same place, for example. ' Note it is theoretically possible for the Exit to be located on a square in the corner and a wumpus under it with ' a hole on the side so you could possibly never win. However, having an exit square does mean you could leave the ' cave, so this may not be an issue. If you are going to highlight the squares , when moved over or hazzards located, ' this this could become obvious to the player........ Local t:Byte = 0 GameOver = False NumberofArrows = 3 ArrowsCollected = False Warning = " " ShotFired = False WumpusKilled = False ExitFound = False GameStatus = 0 ' Empty the grid so you dont endlessly loop looking for an empty location. Thanks, Jsp. For t = 0 To 4 GridArray[0, t] = 0 GridArray[1, t] = 0 GridArray[2, t] = 0 GridArray[3, t] = 0 GridArray[4, t] = 0 Next ' Place the Wumpus on grid. [1] WumpusX = Rand(0, MaxGridSizeX - 1) ; WumpusY = Rand(0, MaxGridSizeY - 1) GridArray[WumpusX, WumpusY] = 1 ' Place the arrows on grid. [4] Repeat ArrowX = Rand(0, MaxGridSizeX - 1) ; ArrowY = Rand(0, MaxGridSizeY - 1) If GridArray[ArrowX, ArrowY] > 0 t = 0 Else t = 1 GridArray[ArrowX, ArrowY] = 4 EndIf Until t = 1 ' Place the pit on grid. [2] t = 0 Repeat PitX = Rand(0, MaxGridSizeX - 1) ; PitY = Rand(0, MaxGridSizeY - 1) If GridArray[PitX, PitY] > 0 t = 0 Else t = 1 GridArray[PitX, PitY] = 2 EndIf Until t = 1 ' Place the bats on grid. [3] t = 0 Repeat BatsX = Rand(0, MaxGridSizeX - 1) ; BatsY = Rand(0, MaxGridSizeY - 1) If GridArray[BatsX, BatsY] > 0 t = 0 Else t = 1 GridArray[BatsX, BatsY] = 3 EndIf Until t = 1 ' Place the exit on grid. [6] t = 0 Repeat ExitX = Rand(0, MaxGridSizeX - 1) ; ExitY = Rand(0, MaxGridSizeY - 1) If GridArray[ExitX, ExitY] > 0 t = 0 Else t = 1 GridArray[ExitX, ExitY] = 6 EndIf Until t = 1 ' Player to start in a random location. ' This part checks all squares in the grid so the player can be put on a blank one so it won't be instant game over ' if they were deposited on a pit, for example. A similar check is done when the bats move the player. t = 0 Repeat PlayerX = Rand(0, 4) ; PlayerY = Rand(0, 4) If GridArray[PlayerX, PlayerY] = 0 t = 1 Else t = 0 EndIf Until t = 1 Movement() ' Updates location message so player has fair warning if hazzard nearby at start. End Function Function Display() Cls SetColor 100, 100, 255 ' Blue shade DrawText AppTitle, 45, 10 SetColor 255, 0, 0 ' Red DrawText "###########################", 0, 30 DrawText "###########################", 0, 40 DrawText "## ## ## ## ## ##", 0, 50 DrawText "## ## ## ## ## ##", 0, 60 DrawText "## ## ## ## ## ##", 0, 70 DrawText "###########################", 0, 80 DrawText "###########################", 0, 90 DrawText "## ## ## ## ## ##", 0, 100 DrawText "## ## ## ## ## ##", 0, 110 DrawText "## ## ## ## ## ##", 0, 120 DrawText "###########################", 0, 130 DrawText "###########################", 0, 140 DrawText "## ## ## ## ## ##", 0, 150 DrawText "## ## ## ## ## ##", 0, 160 DrawText "## ## ## ## ## ##", 0, 170 DrawText "###########################", 0, 180 DrawText "###########################", 0, 190 DrawText "## ## ## ## ## ##", 0, 200 DrawText "## ## ## ## ## ##", 0, 210 DrawText "## ## ## ## ## ##", 0, 220 DrawText "###########################", 0, 230 DrawText "###########################", 0, 240 DrawText "## ## ## ## ## ##", 0, 250 DrawText "## ## ## ## ## ##", 0, 260 DrawText "## ## ## ## ## ##", 0, 270 DrawText "###########################", 0, 280 DrawText "###########################", 0, 290 SetColor 0, 255, 0 ' Green. DrawText "Arrows remaining: " + NumberofArrows, 40, 310 SetColor 255, 255, 255 ' White. DrawText "Use cursor keys to move & hold Shift with cursor keys to fire an arrow.", 0, 360 SetColor 0, 255, 0 ' Green DrawText "@", 25 + (PlayerX * 40), 60 + (PlayerY * 50) ' Draw player on grid. If Exitfound = True Or Showall = True ' if cheating is true or the exit has been located. SetColor 0, 200, 100 ' ?? DrawText "E", 25 + (ExitX * 40), 60 + (ExitY * 50) ' Draw exit on grid. EndIf SetColor 30, 60, 90 DrawText "Created by Tony Black - January, 2014", 0, 450 If Help = True SetColor 0, 255, 200 DrawText "Harry the Hunter, is on the hunt.", 235, 50 DrawText "A few arrows and his trusty bow", 235, 70 DrawText "are all he needs to kill that nasty,", 235, 80 DrawText "smelly Wumpus but be cautious as", 235, 90 DrawText "there are some deadly hazzards in this", 235, 100 DrawText "cave that are really bad for your", 235, 110 DrawText "health...", 235, 120 DrawText "Run out of Ammo? Then look for", 235, 140 DrawText "the exit.", 235, 150 DrawText "Watch out for important messages ", 235, 170 DrawText "as you move around. They may just ", 235, 180 DrawText "save your life...", 235, 190 Else SetColor 255, 255, 255 DrawText "Messages: ", 235, 30 DrawText "Warning: ", 235, 50 DrawText Message, 320, 30 SetColor 255, 0, 0 ' Red DrawText Warning, 320, 50 SetColor 255, 255, 255 ' White End If If Debug = True SetColor 255, 0, 255 ' Pink. DrawText "Debug mode is on:", 0, 400 DrawText "X: " + MouseX() + " Y: " + MouseY(), 145, 400 PX = PlayerX + 1 ; PY = PlayerY + 1 DrawText "Player location : X=" + PX + " , Y=" + PY, 0, 410 DrawText "/ Exit located: ", 225, 410 If ExitFound = True DrawText "Yes", 350, 410 Else DrawText "No", 350, 410 EndIf DrawText "Arrows collected: ", 0, 420 If ArrowsCollected = True DrawText "Yes", 145, 420 Else DrawText "No", 145, 420 EndIf SetColor 255, 255, 255 ' White DrawText "R to Reset / H for help / Esc to exit / C to cheat.", 0, 350 Else DrawText "R to Reset / H for help / Esc to exit.", 0, 350 EndIf If ShotFired = True ' Show where a shot has been fired if active. SetColor 255, 0, 0 ' Red DrawText "%", 25 + (ShotX * 40), 60 + (ShotY * 50) EndIf If Showall = True ' Cheat mode toggled by pressing "C" SetColor 255, 0, 0 ' Red. DrawText "Player is Cheating", 45, 330 SetColor 0, 255, 255 ' Cyan DrawText "W", 25 + (WumpusX * 40), 60 + (WumpusY * 50) SetColor 100, 100, 100 ' Grey DrawText "H", 25 + (PitX * 40), 60 + (PitY * 50) SetColor 100, 200, 100 ' Dull green DrawText "B", 25 + (BatsX * 40), 60 + (BatsY * 50) SetColor 0, 0, 255 ' Blue DrawText "^", 25 + (ArrowX * 40), 60 + (ArrowY * 50) EndIf EndFunction

AdamStrange (Posted 2014) [#6]

I'd heard about the Wumpus, but never actually hunted one. And now I have. Great work. To make work on a mac, just remove the d3d framework reference :)

Xerra (Posted 2014) [#7]

Wow! My first game - sort of - and somebody has already ported it to a Mac. Let's get it on Steam, eh? :)