Commit afeec0ca authored by Peter Achten's avatar Peter Achten
Browse files

(MW): removed old stuff for new stuff

parent 87e14c39
definition module ENEMY
import StdEnv, StdGameDef
EnemyBitmap :: GameBitmap
EnemyMap :: [{#Int}]
EnemySeq001 :: (Int, [(Int, Int)])
EnemySequences :: [(Int, [(Int, Int)])]
implementation module ENEMY
import StdEnv, StdGameDef
EnemyBitmap :: GameBitmap
EnemyBitmap
= { bitmapname = "ENEMY.BMP"
, unitsize = { w = 24, h = 18 }
, dimensions = (13, 1)
, transparent = Just { x = 215, y = 17 }
}
EnemyMap :: [{#Int}]
EnemyMap = [{1,2,3,4,-1,-1},
{5,6,7,8,9,-1},
{-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1}]
EnemySeq001 :: (Int, [(Int, Int)])
EnemySeq001 = (-1,[])
EnemySequences :: [(Int, [(Int, Int)])]
EnemySequences = [EnemySeq001]
\ No newline at end of file
definition module FROGS
import StdEnv, StdGameDef
FrogsBitmap :: GameBitmap
FrogsMap :: [{#Int}]
FrogsSeq001 :: (Int, [(Int, Int)])
FrogsSequences :: [(Int, [(Int, Int)])]
implementation module FROGS
import StdEnv, StdGameDef
FrogsBitmap :: GameBitmap
FrogsBitmap
= { bitmapname = "FROGS.BMP"
, unitsize = { w = 20, h = 24 }
, dimensions = (16, 1)
, transparent = Just { x = 139, y = 23 }
}
FrogsMap :: [{#Int}]
FrogsMap = [{1,2,3,4,-1},
{5,6,-1,-1,-1},
{-1,-1,-1,7,-1},
{-1,-1,-1,-1,-1}]
FrogsSeq001 :: (Int, [(Int, Int)])
FrogsSeq001 = (-1,[])
FrogsSequences :: [(Int, [(Int, Int)])]
FrogsSequences = [FrogsSeq001]
\ No newline at end of file
definition module INFRONT
import StdEnv, StdGameDef
InFrontBitmap :: GameBitmap
InFrontMap :: [{#Int}]
InFrontSeq001 :: (Int, [(Int, Int)])
InFrontSequences :: [(Int, [(Int, Int)])]
implementation module INFRONT
import StdEnv, StdGameDef
InFrontBitmap :: GameBitmap
InFrontBitmap
= { bitmapname = "INFRONT.BMP"
, unitsize = { w = 20, h = 16 }
, dimensions = (16, 1)
, transparent = Just { x = 59, y = 15 }
}
InFrontMap :: [{#Int}]
InFrontMap = [{1,2,3,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1},
{-1,-1,-1,-1,-1,-1,-1}]
InFrontSeq001 :: (Int, [(Int, Int)])
InFrontSeq001 = (-1,[])
InFrontSequences :: [(Int, [(Int, Int)])]
InFrontSequences = [InFrontSeq001]
\ No newline at end of file
definition module L1
import StdEnv, StdGameDef
Level1Bitmap :: GameBitmap
Level1Map :: [{#Int}]
Level1Bounds :: [{#Int}]
Level1Seq001 :: (Int, [(Int, Int)])
Level1Sequences :: [(Int, [(Int, Int)])]
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment