Digging/noise wave

master
Aaron Mueller 11 years ago
parent ebf63aae67
commit 57bd4fbbae
  1. 5
      src/Draw.pbi
  2. 5
      src/Events.pbi
  3. 2
      src/Functions.pbi
  4. 8
      src/Globals.pbi
  5. 6
      src/Structs.pbi
  6. 2
      src/mapcheck.txt

@ -37,6 +37,11 @@ EndProcedure
Procedure DrawRunningGame()
DrawMap()
; FIXME: This does not work quite well ...
;StartDrawing(ScreenOutput())
;DrawPlayerNoise()
;StopDrawing()
CalculateShadow()
DrawShadow()

@ -134,7 +134,10 @@ Procedure HandleEventRunningGame()
TileMap(TargetX, TargetY)\TileNumber = #TILESET_TYPE_FLOOR
EndIf
DrawNoiseWave(TargetX, TargetY)
*PlayerNoise\X = TargetX
*PlayerNoise\Y = TargetY
*PlayerNoise\Size = 10
CreateThread(@CalculateNoiseWave(), *PlayerNoise)
EndIf
EndIf
EndProcedure

File diff suppressed because one or more lines are too long

@ -62,4 +62,10 @@ LoadSound(2, #DATA_PATH + "sound/title_song.wav")
; Map
Global Dim TileMap.Tile(#MAP_WIDTH, #MAP_HEIGHT)
Global Dim ShadowMap.Shadow(#MAP_WIDTH, #MAP_HEIGHT)
Global Dim ShadowMap.Shadow(#MAP_WIDTH, #MAP_HEIGHT)
; Addons
Global *PlayerNoise.NoiseWave = AllocateMemory(SizeOf(NoiseWave))
*PlayerNoise\X = 0
*PlayerNoise\Y = 0
*PlayerNoise\Size = 0

@ -43,6 +43,12 @@ Structure Tile
Health.i
EndStructure
Structure NoiseWave
X.i
Y.i
Size.i
EndStructure
Structure Player
X.i
Y.i

@ -1,7 +1,7 @@
8,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,2,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,8,
5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
4,4,4,2,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,2,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,
3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,3,4,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,4,3,3,4,3,3,3,3,3,
3,3,3,3,3,3,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,4,3,3,4,3,3,3,3,3,
3,3,3,3,3,3,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,4,3,4,3,3,3,3,3,3,4,3,3,4,3,3,3,3,3,

Loading…
Cancel
Save