load "spr_csub.bas"
library save
load "tile0_csub.bas"
library save
load "tile1_csub.bas"
library save
load "tile2_csub.bas"
library save
memory

'write tiles from library

'get start addresses
spr%=Peek(cfunaddr SPRITES)
til0%=Peek(cfunaddr TILE0)
til1%=Peek(cfunaddr TILE1)
til2%=Peek(cfunaddr TILE2)

'build index file
Dim sprite_index%(&h60)
Dim tile_index%(&hff)

Open "spr_index.txt" For input As #1
For i=0 To &h5a
 Input #1,a$
 sprite_index%(i)=spr%+Val(a$)
Next
Close #1

Open "tile_index0.txt" For input As #1
For i=0 To &h3f
 Input #1,a$
 tile_index%(i)=til0%+Val(a$)
Next i
Close #1

Open "tile_index1.txt" For input As #1
For i=&h40 To &h7f
 Input #1,a$
 tile_index%(i)=til1%+Val(a$)
Next
Close #1

Open "tile_index2.txt" For input As #1
For i=&h80 To &hff
 Input #1,a$
 tile_index%(i)=til2%+Val(a$)
Next
Close #1

MODE 2
Sprite compressed sprite_index%(20),70,100 'a sprite
Sprite compressed tile_index%(20),100,100  'a tile from the first csub
Sprite compressed tile_index%(70),130,100  'a tile from the second csub
Sprite compressed tile_index%(150),160,100 'a tile from the 3rd csub
                                                                               

'scroll test
MODE 2
Dim LV$(64) Length 128
Open "Data\LEV-a.bin" For input As #1
For f=0 To 63:LV$(f)=Input$(128,#1):Next
Close #1

'make an index file
create_index


'prepare screen
'path$="tiles\"
FRAMEBUFFER layer
FRAMEBUFFER write l
Load image "layer.bmp"
FRAMEBUFFER write n
ox=0:oy=0
For y=0 To 8
 For x=0 To 11
   vl=Asc(Mid$(lv$(y+oy),ox+x+1,1))
'   Sprite load path$+"TL"+Hex$(vl,3)+".SPR",1
'   Sprite write 1,x*24,y*24
blit compressed tile_index%(vl),x*24,y*24
 Next
Next
FRAMEBUFFER write l
ox=13
x=0:oy=32

'scroll left
f=4:y=0
Do
'  fn$="sprites\SP"+Hex$(f,3)+".SPR"
'  Sprite load fn$,1
 FRAMEBUFFER write l
'  Sprite write 1,120,96,0
 blit compressed sprite_index%(f),120,96

'  vl=Asc(Mid$(lv$(y+oy),ox,1))
'  Sprite load path$+"TL"+Hex$(vl,3)+".SPR",20+y
 FRAMEBUFFER write n
 nn=-2-(y Mod 2)
 Sprite scroll nn,0
 Inc y
 If y =9 Then
   'draw next column
   For y=0 To 8
vl=Asc(Mid$(lv$(y+oy),ox,1))
'Sprite write 20+y,264,y*24,0
blit compressed tile_index%(vl),264,y*24
Next
   y=0:Inc ox:if ox>116 then ox=1
 EndIf
Inc f:If f=8 Then f=4
Loop

'create index file
sub create_index
'get start addresses
spr%=Peek(cfunaddr SPRITES)
til0%=Peek(cfunaddr TILE0)
til1%=Peek(cfunaddr TILE1)
til2%=Peek(cfunaddr TILE2)

'build index file
Dim sprite_index%(&h60)
Dim tile_index%(&hff)

Open "spr_index.txt" For input As #1
For i=0 To &h5a
 Input #1,a$
 sprite_index%(i)=spr%+Val(a$)
Next
Close #1

Open "tile_index0.txt" For input As #1
For i=0 To &h3f
 Input #1,a$
 tile_index%(i)=til0%+Val(a$)
Next i
Close #1

Open "tile_index1.txt" For input As #1
For i=&h40 To &h7f
 Input #1,a$
 tile_index%(i)=til1%+Val(a$)
Next
Close #1

Open "tile_index2.txt" For input As #1
For i=&h80 To &hff
 Input #1,a$
 tile_index%(i)=til2%+Val(a$)
Next
Close #1
end sub

Dim LV$(64) Length 128
Open "Data\LEV-a.bin" For input As #1
For f=0 To 63:LV$(f)=Input$(128,#1):Next
Close #1

'CSUB scroll test
MODE 2
Dim LV$(64) Length 128
Open "Data\LEVEL-c" For input As #1
For f=0 To 63:LV$(f)=Input$(128,#1):Next
Close #1

'make an index file
create_index


'prepare screen
'path$="tiles\"
FRAMEBUFFER layer
FRAMEBUFFER write l
Load image "layer.bmp"
FRAMEBUFFER write n
ox=0:oy=32
For y=0 To 8
For x=0 To 12
  vl=Asc(Mid$(lv$(y+oy),ox+x+1,1))
  Sprite compressed tile_index%(vl),x*24,y*24
Next
Next
FRAMEBUFFER write l
ox=13
x=0:oy=32


'scroll left
f=4:y=0:sn=0
Do
FRAMEBUFFER write l
Sprite compressed sprite_index%(4+sn),120,96
Inc sn:If sn=4 Then sn=0
FRAMEBUFFER write n
Sprite scroll -8,0
If f=7 Then
   'draw next column
   For y=0 To 8
     vl=Asc(Mid$(lv$(y+oy),ox,1))
     Sprite compressed tile_index%(vl),264,y*24
   Next
   y=0:Inc ox:If ox>116 Then ox=1
   f=4
EndIf
Inc f:Pause 75
Loop





'create index file
Sub create_index
'get start addresses
spr%=Peek(cfunaddr SPRITES)
til0%=Peek(cfunaddr TILE0)
til1%=Peek(cfunaddr TILE1)
til2%=Peek(cfunaddr TILE2)

'build index file
Dim sprite_index%(&h60)
Dim tile_index%(&hff)

Open "csub\spr_index.txt" For input As #1
For i=0 To &h5a
Input #1,a$
sprite_index%(i)=spr%+Val(a$)
Next
Close #1

Open "csub\tile_index0.txt" For input As #1
For i=0 To &h3f
Input #1,a$
tile_index%(i)=til0%+Val(a$)
Next i
Close #1

Open "csub\tile_index1.txt" For input As #1
For i=&h40 To &h7f
Input #1,a$
tile_index%(i)=til1%+Val(a$)
Next
Close #1

Open "csub\tile_index2.txt" For input As #1
For i=&h80 To &hff
Input #1,a$
tile_index%(i)=til2%+Val(a$)
Next
Close #1
End Sub

Setup:
'this section does all initialisation for the game
'it initializes the sound heartbeat (SETTICK)

'intro
'the intro screen is shown, and some user preferences are shown
'here you load the world map in a local copy (the world map will become modified during
'the game play. This local copy will be saved with GAME SAVE


Main:
'this is a sequence that is processed fast. It should only have blocking slow down for non-game-related 'activities (such as "SAVE" or "PAUSE" or maybe an explosion).

DO
'get user controls
'keyboard (or in future game controller)

'Player moves
'in this section the player is controlled over the map
'will involve scrolling map

'Player actions
'this is a large section that lets player shoot, search, move
'this changes local map (blow up a bridge) and updates inventory etc..
'explosions can trigger a sequence of effects, potentially slowing the game

'AI units  
'this involves robots that move on the map, sliding doors
'my current idea is to show the animations on L layer, until the animation
'is finished, then modify the local copy of the world map as new "static" state
LOOP

sound:
'The sound is the only timed interrupt in the game. 2 voices will run the sound track.
'the other 1/2 will be "enabled" in the main loop (a flag) and processed in this same
'heartbeat. Before we had "NOISE" as a sound, it was needed to use a very fast SETTICK, now we can benefit from the NOISE.

// NOTES ABOUT UNIT TYPES
// ----------------------
// 000=no unit (does not exist)
// 001=player unit
// 002=hoverbot left-to-right
// 003=hoverbot up-down
// 004=hoverbot attack mode
// 005=hoverbot chase player
// 006=
// 007=transporter
// 008=
// 009=evilbot chase player
// 010=door
// 011=small explosion
// 012=pistol fire up
// 013=pistol fire down
// 014=pistol fire left
// 015=pistol fire right
// 016=trash compactor
// 017=
// 018=
// 019=
// 020=

// NOTES ABOUT UNIT NUMBERING SCHEME
// ---------------------------------
// 0 = player unit
// 1-27 = enemy robots    (max 28 units)
// 28-31 = weapons fire
// 32-47 = doors and other units that don't have sprites (max 16 units)
// 48-63 = hidden objects to be found (max 16 units)

// NOTES ABOUT DOORS.
// -------------------
// A-0=horitzonal 1=vertical
// B-0=opening-A 1=opening-B 2=OPEN / 3=closing-A 4=closing-B 5-CLOSED
// C-0=unlocked / 1=locked spade 2=locked heart 3=locked star
// D-0=automatic / 0=manual

// HIDDEN OBJECTS
// --------------
// UNIT_TYPE:128=key UNIT_A: 0=SPADE 1=HEART 2=STAR
// UNIT_TYPE:129=time bomb
// UNIT_TYPE:130=EMP
// UNIT_TYPE:131=pistol
// UNIT_TYPE:132=charged plasma gun
// UNIT_TYPE:133=medkit
// UNIT_TYPE:134=magnet

// NOTES ABOUT TRANSPORTER
// ----------------------
// UNIT_A: 0=always active    1=only active when all robots are dead
// UNIT_B:    0=completes level 1=send to coordinates
// UNIT_C:    X-coordinate
// UNIT_D:    Y-coordinate

// Sound Effects
// ----------------------
// 0 explosion
// 1 small explosion
// 2 medkit
// 3 emp
// 4 haywire
// 5 evilbot
// 6 move
// 7 electric shock
// 8 plasma gun
// 9 fire pistol
// 10 item found
// 11 error
// 12 change weapons
// 13 change items
// 14 door
// 15 menu beep
// 16 walk
// 17 sfx (short beep)
// 18 sfx

While the game controls are customizable, the default control settings are: the cursor keys to move in all four direction, W, S, A, D keys to fire up, down, left and right, SPACEBAR to use an item, Z to inspect an object, and M to move an object. In elevators, use cursors LEFT and RIGHT to select the level, and use DOWN to exit the elevator. In menus, the cursor keys and SPACEBAR should be used. Finally, ESC key allows you to pause or quit a map, TAB for mini map, and SELECT to toggle the music in game on and off.

Program:
 81K (65%) Program (2899 lines)
 43K (35%) Free