Demo of project in early stages.

[TheAdventMaster]

Make might make coding the engine a bit easier Awesome though. It crashed on me eventually, and I'm assuming it's because of an array/pointer problem...

Wonder what other problems there could possibly be.

EDIT: Problem List (with possible fixes):

• You have the following pointers dimmed as integers:
  
  SOff, WOff1, WOff2, PtrVPage, Ptr1, Ptr2, VPageOff
  
  Sound.Col, Sound.Engine, Sound.Thunder, Sound.Rain
  
  
  Code:

  TYPE SoundType
    Enabled AS BYTE
    Col AS INTEGER ptr
    Engine AS INTEGER ptr
    Thunder AS INTEGER ptr
    Rain AS INTEGER ptr
END TYPE

DIM SHARED AS INTEGER YOff, XOff, XT, YT, YLut(ScrnWid -1)
Dim shared as ubyte ptr SOff, WOff1, WOff2, PtrVPage, Ptr1, Ptr2
Dim shared as ubyte ptr VPageOff
  
  
  
• FPS2 was never dimmed, therefor it's an implicit variable location
  
  
  Code:

  DIM SHARED FpsTimer AS DOUBLE, FPS2 as integer
  
  
• x and y were never dimmed, so redimming using them shouldn't work too well.
  
  
  Code:

  FUNCTION Collision.Objects (X1 AS SHORT, Y1 AS SHORT, Spr1() AS SHORT , Index1 AS USHORT, X2 AS SHORT, Y2 AS SHORT, Spr2() AS SHORT, Index2 AS USHORT) AS BYTE
DIM AS INTEGER So, x, y
  
  
• Aborting due to runtime error 6 (out of bounds array access) at line 209
  
  
  Code:

  dim shared/dim as integer tile
  
  
• Aborting due to runtime error 6 (out of bounds array access) at line 465

Couldn't find all the sources of the last one. This is a really awesome looking project. Keep it up!