Initial release

.gitignore

@@ -0,0 +1,4 @@
+
+resources/.DS_Store
+.DS_Store
+compile.sh

game.bas

@@ -0,0 +1,235 @@
+REM This can be commented out if you don't plan to add SCREEN before loading the game
+PAPER 0 : INK 0 : PRINT AT 0,0
+LOAD ""SCREEN$
+PAUSE 150
+REM ---
+
+REM 0 - black
+REM	1 - blue
+REM	2 - red
+REM	3 - purple, or magenta
+REM	4 - green
+REM	5 - pale blue, technically called cyan
+REM	6 - yellow
+REM	7 - white
+
+FUNCTION Distance(Y1 AS INTEGER, X1 AS INTEGER, Y2 AS INTEGER, X2 AS INTEGER) AS INTEGER
+    RETURN ABS(ABS(Y2 - Y1) + ABS(X2 - X1))
+END FUNCTION
+
+DIM levelData(23,30) As uByte
+DIM isWin, isGameOver, isTryAgain AS uByte
+DIM level AS uByte
+level = 1
+
+#define LEFT  %00001000
+#define RIGHT %00000001
+#define UP    %00000010
+#define DOWN  %00000100
+
+DIM playerBombs, bombIsPlaced AS uByte
+DIM player(2) AS uByte
+DIM bombs(255, 3) AS uByte
+DIM points AS UINTEGER
+DIM animationFrame AS uByte
+animationFrame = 0
+playerBombs = 4
+DIM levelCrystals AS INTEGER
+
+DIM playerLives, isTeleported AS UBYTE
+playerLives = 3
+isTeleported = 0
+
+DIM oldPlayerLives, oldPlayerBombs AS UBYTE
+DIM oldPlayerPoints AS UINTEGER
+oldPlayerLives = 0 : oldPlayerBombs = 0 : oldPlayerPoints = 1
+
+REM 0: y, 1: x, 2: direction, 3: animationFrame, 4: oldY, 5: oldX, 6: isAlive, 7: isTeleported
+DIM ghoulsCount AS UBYTE
+DIM ghouls(6, 8) AS UBYTE
+
+REM 0: y, 1: x, 2: direction, 3: animationFrame, 4: oldY, 5: oldX, 6: isAlive, 7: isTeleported, 8: State
+DIM skullsCount AS UBYTE
+DIM skulls(1, 9) AS UBYTE
+DIM skullsVisited(1, 23, 30) AS UBYTE
+REM 0: skulls, 1: 1: y, 2: x
+DIM skullsPath(1, 30, 3) AS UBYTE
+
+DIM changeMovementPosition(32, 2) AS UBYTE
+DIM teleportPosition(2, 2) AS UBYTE
+DIM levelGate(2) AS UBYTE
+DIM levelExit(2) AS UBYTE
+
+#include "./includes/helper.bas"
+#include "./includes/graphics.bas"
+#include "./includes/levels.bas"
+#include "./includes/info.bas"
+#include "./includes/player.bas"
+#include "./includes/enemy_ghoul.bas"
+#include "./includes/enemy_skull.bas"
+#include "./includes/enemy.bas"
+#include "./includes/fx.bas"
+
+SUB getLevel(level AS uByte)
+    DIM i AS uByte
+    FOR i = 0 TO playerBombs
+        bombs(i, 0) = 255
+        bombs(i, 1) = 255
+        bombs(i, 2) = 0
+    NEXT i
+
+    IF level = 1 THEN
+        IF isTryAgain = 0 THEN
+            levelData = level1Data
+        END IF
+        level1Init()
+
+    ELSEIF level = 2 THEN
+        IF isTryAgain = 0 THEN
+            levelData = level2Data
+        END IF
+        level2Init()
+
+    ELSEIF level = 3 THEN
+        IF isTryAgain = 0 THEN
+            levelData = level3Data
+        END IF
+        level3Init()
+
+    ELSE
+        IF isTryAgain = 0 THEN
+            levelData = level1Data
+        END IF
+        level1Init()
+        level = 1
+    END IF
+
+    getCrystals()
+
+    FOR y = 0 TO 22
+        FOR x = 0 TO 29
+            visited(y,x) = 0
+        NEXT x
+    NEXT y
+
+    FOR j = 19 TO 0 STEP -1
+        skullsPath(0, j, 2) = 0
+    NEXT j
+END SUB
+
+SUB drawLevel()
+    CLS
+    DIM y, x, currentChar AS uByte
+
+    FOR y = 0 TO 23
+        FOR x = 0 TO 30
+            graphicsBank(0)
+
+            currentChar = levelData(y, x)
+            BRIGHT 1
+
+            IF currentChar = 0 THEN
+                CONTINUE FOR
+            ELSEIF currentChar = 1 THEN
+                INK 2
+            ELSEIF currentChar = 2 THEN
+                INK 6
+                graphicsBank(2)
+            ELSEIF currentChar = 17 Then
+                INK 7
+            ELSEIF currentChar = 18 THEN
+                INK 7
+            ELSE
+                INK 1: BRIGHT 0
+            END IF
+
+            PRINT AT y, x; CHR$(143+currentChar)
+        NEXT x
+    NEXT y
+
+    showPlayerAtStart(player(0), player(1))
+END SUB
+
+
+SUB getCrystals()
+    DIM currentChar AS UBYTE
+    levelCrystals = 0
+    FOR y = 0 TO 23
+        FOR x = 0 TO 30
+            currentChar = levelData(y, x)
+            IF (currentChar) = 1 THEN
+                levelCrystals = levelCrystals + 1
+            END IF
+        NEXT x
+    NEXT y
+END SUB
+
+SUB updateGame()
+    isWin = 0
+    isGameOver = 0
+    isTryAgain = 0
+    DIM lastKey AS uByte
+
+    DO
+        REM lastKey = getLastKey()
+        REM IF lastKey = CODE "w" THEN
+        REM     isWin = 1
+        REM ELSEIF lastKey = CODE "e" THEN
+        REM     isGameOver = 1
+        REM ELSE
+        REM END IF
+
+        updatePlayer()
+        updateEnemies()
+        updateBombs()
+        drawInfo()
+
+        IF levelCrystals = 0 THEN
+            levelData(levelGate(0), levelGate(1)) = 0
+            PRINT AT levelGate(0), levelGate(1); " "
+            levelData(levelExit(0), levelExit(1)) = 0
+            PRINT AT levelExit(0), levelExit(1); " "
+            graphicsBank(0): PRINT AT levelExit(0), levelExit(1); BRIGHT 1; INK 7; "\r"
+        END IF
+
+        IF playerLives = 0 THEN
+            isGameOver = 1
+            isTryAgain = 0
+            isWin = 0
+        END IF
+
+    LOOP WHILE isWin = 0 AND isGameOver = 0 AND isTryAgain = 0
+END SUB
+
+controlsScene()
+
+DO
+    getLevel(level)
+    drawLevel()
+    updateGame()
+
+    bombIsPlaced = 0
+
+    IF isWin = 1 THEN
+        CLS
+        level = level + 1
+        playerLives = playerLives + 1
+        winScene()
+        oldPlayerLives = 255 : oldPlayerBombs = 255 : oldPlayerPoints = 255
+    ELSEIF isGameOver = 1 THEN
+        CLS
+        level = 1
+        gameOverScene()
+        points = 0
+        playerLives = 3
+        playerBombs = 5
+        oldPlayerLives = 255 : oldPlayerBombs = 255 : oldPlayerPoints = 255
+    ELSEIF isTryAgain = 1 THEN
+        CLS
+        tryAgainScene()
+        playerLives = playerLives - 1
+        oldPlayerLives = 255 : oldPlayerBombs = 255 : oldPlayerPoints = 255
+    ELSE
+        PRINT AT 0, 0; "Something wrong"
+    END IF 
+LOOP

includes/enemy.bas

@@ -0,0 +1,4 @@
+SUB updateEnemies()
+    updateGhouls()
+    updateSkulls()
+END SUB

includes/enemy_ghoul.bas

@@ -0,0 +1,113 @@
+SUB updateGhouls()
+    DIM dirs, vector, newVector, currentChar AS UBYTE
+    FOR i = 0 TO ghoulsCount - 1
+        IF ghouls(i, 6) = 1 THEN
+            ghouls(i, 0) = 0: ghouls(i, 1) = 0
+            CONTINUE FOR
+        END IF
+
+        graphicsBank(2)
+        dirs = availableDirections(ghouls(i, 0), ghouls(i, 1))
+        vector = ghouls(i, 2)
+
+        IF ghouls(i, 0) = player(0) AND ghouls(i, 1) = player(1) AND isTryAgain = 0 THEN
+            isTryAgain = 1
+            PAUSE 5
+        END IF
+
+        DIM currentFrame AS String
+        IF ghouls(i, 3) = 0 THEN
+            currentFrame = "\c"
+        ELSEIF vector = LEFT THEN
+            currentFrame = "\d"
+        ELSEIF vector = RIGHT THEN
+            currentFrame = "\d"
+        ELSEIF vector = UP THEN
+            currentFrame = "\d"
+        ELSEIF vector = DOWN THEN
+            currentFrame = "\d"
+        END IF
+
+        ghouls(i, 3) = (ghouls(i, 3) + 1) MOD 2
+
+        FOR j = 0 TO 11
+            IF ghouls(i, 0) = changeMovementPosition(j, 0) AND ghouls(i, 1) = changeMovementPosition(j, 1) THEN
+                IF dirs > 0 THEN
+                    DO
+                        newVector = INT(RND * 4)
+                    LOOP UNTIL (dirs BAND (1 << newVector))
+                    vector = (1 << newVector)
+                    ghouls(i, 2) = vector
+                END IF
+                EXIT FOR 
+            END IF
+        NEXT j
+
+        IF NOT (dirs BAND vector) THEN
+            IF dirs > 0 THEN
+                DO
+                    newVector = INT(RND * 4)
+                LOOP UNTIL (dirs BAND (1 << newVector))
+                vector = (1 << newVector)
+                ghouls(i, 2) = vector
+            END IF
+        END IF
+
+        ghouls(i, 4) = ghouls(i, 0)
+        ghouls(i, 5) = ghouls(i, 1)
+
+        IF vector = LEFT And dirs BAND LEFT THEN
+            PRINT AT ghouls(i, 0), ghouls(i, 1); " "
+            ghouls(i, 1) = ghouls(i, 1) - 1
+            PRINT AT ghouls(i, 0), ghouls(i, 1); INK 5; currentFrame
+
+        ELSEIF vector = RIGHT And dirs BAND RIGHT THEN
+            PRINT AT ghouls(i, 0), ghouls(i, 1); " "
+            ghouls(i, 1) = ghouls(i, 1) + 1
+            PRINT AT ghouls(i, 0), ghouls(i, 1); INK 5; currentFrame
+
+        ELSEIF vector = UP And dirs BAND UP THEN
+            PRINT AT ghouls(i, 0), ghouls(i, 1); " "
+            ghouls(i, 0) = ghouls(i, 0) - 1
+            PRINT AT ghouls(i, 0), ghouls(i, 1); INK 5; currentFrame
+
+        ELSEIF vector = DOWN And dirs BAND DOWN THEN
+            PRINT AT ghouls(i, 0), ghouls(i, 1); " "
+            ghouls(i, 0) = ghouls(i, 0) + 1
+            PRINT AT ghouls(i, 0), ghouls(i, 1); INK 5; currentFrame
+        END IF
+
+        IF ghouls(i, 0) = teleportPosition(1, 0) AND ghouls(i, 1) = teleportPosition(1, 1) AND ghouls(i, 7) = 0 THEN
+            PRINT AT teleportPosition(1, 0), teleportPosition(1, 1); " "
+            ghouls(i, 0) = teleportPosition(0, 0): ghouls(i, 1) = teleportPosition(0, 1): ghouls(i, 7) = 1
+
+        ELSE IF ghouls(i, 0) = teleportPosition(0, 0) AND ghouls(i, 1) = teleportPosition(0, 1) AND ghouls(i, 7) = 0 THEN
+            PRINT AT teleportPosition(0, 0), teleportPosition(0, 1); " "
+            ghouls(i, 0) = teleportPosition(1, 0): ghouls(i, 1) = teleportPosition(1, 1): ghouls(i, 7) = 1
+        ELSE
+            ghouls(i, 7) = 0
+        END IF
+
+        IF levelData(ghouls(i, 4), ghouls(i, 5)) = 1 OR levelData(ghouls(i, 4), ghouls(i, 5)) = 2 THEN
+            graphicsBank(0)
+            currentChar = levelData(ghouls(i, 4), ghouls(i, 5))
+                BRIGHT 1
+                IF currentChar = 0 THEN
+                ELSEIF currentChar = 1 THEN
+                    INK 2
+                ELSEIF currentChar = 2 THEN
+                    INK 6: BRIGHT 1
+                    graphicsBank(2)
+                ELSE
+                    INK 1: BRIGHT 0
+                END IF
+                PRINT AT ghouls(i, 4), ghouls(i, 5); CHR$(143+currentChar)
+        END IF
+
+        IF ghouls(i, 0) = player(0) AND ghouls(i, 1) = player(1) AND isTryAgain = 0 THEN
+            isTryAgain = 1
+            PAUSE 5
+        END IF
+
+    NEXT i
+END SUB