' Ghost Wizard

' Zack Johnson

' 7DRL 2019   (Mar 2 - Mar 7)

'

​

Screen _NewImage(480, 320, 32)

_Font 8

_FullScreen _SquarePixels

Randomize Timer

​

​

Dim Shared level(300, 300, 3) ' the contents of the level

Dim Shared groundcolor~&(300, 300, 3) ' the color of the ground

Dim Shared seed(300, 300, 3) ' for randomizing various display things

Dim Shared secretstairs(300, 300, 3) ' for revealed staircases

Dim Shared playerx, playery, playerdepth

Dim Shared playerhp, playermp, playerscore

Dim Shared exiting

Dim Shared messages$(7)

Dim Shared spells(9)

Dim Shared feelings(10)

Dim Shared soulattacks ' for tracking Sorrow unlock

Dim Shared currentspell

Dim Shared spellnames$(20)

Dim Shared spellcosts(20)

Dim Shared frame

Dim Shared defaultgroundcolor~&(5)

Dim Shared enemyupdated(31, 31)

Dim Shared groundcolors~&(30)

Dim Shared debugmovement

Dim Shared pitymana

Dim Shared permadeath, difficulty

Dim Shared gameover

Dim Shared lastmove ' for continuous movement

​

' ======================================================= BEGIN MAIN LOOP

​

top:

​

Call titlescreen

​

startgame:

Cls

​

Call updateui

Call initialize

​

Call buildworld

Call updateui