Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-libraries
Commits
8fb27ad6
Commit
8fb27ad6
authored
Nov 30, 1999
by
Peter Achten
Browse files
no message
parent
3cb3e377
Changes
70
Show whitespace changes
Inline
Side-by-side
ObjectIO/Game Examples/Charlie/ENDING.icl
0 → 100644
View file @
8fb27ad6
implementation
module
ENDING
import
StdEnv
,
StdGameDef
EndingBitmap
::
GameBitmap
EndingBitmap
=
{
bitmapname
=
"ENDING.BMP"
,
unitsize
=
{
w
=
32
,
h
=
26
}
,
dimensions
=
(
10
,
1
)
,
transparent
=
Just
{
x
=
287
,
y
=
25
}
}
EndingMap
::
[{#
Int
}]
EndingMap
=
[{
1
,
2
,
3
,
4
,
5
,
6
,
7
,
8
,
9
},
{
-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
}]
EndingSeq001
::
(
Int
,
[(
Int
,
Int
)])
EndingSeq001
=
(
-1
,[])
EndingSequences
::
[(
Int
,
[(
Int
,
Int
)])]
EndingSequences
=
[
EndingSeq001
]
\ No newline at end of file
ObjectIO/Game Examples/Charlie/ENEMY.BMP
0 → 100644
View file @
8fb27ad6
BM&
\ No newline at end of file
ObjectIO/Game Examples/Charlie/ENEMY.WAV
0 → 100644
View file @
8fb27ad6
File added
ObjectIO/Game Examples/Charlie/ENEMY.dcl
0 → 100644
View file @
8fb27ad6
definition
module
ENEMY
import
StdEnv
,
StdGameDef
EnemyBitmap
::
GameBitmap
EnemyMap
::
[{#
Int
}]
EnemySeq001
::
(
Int
,
[(
Int
,
Int
)])
EnemySequences
::
[(
Int
,
[(
Int
,
Int
)])]
ObjectIO/Game Examples/Charlie/ENEMY.icl
0 → 100644
View file @
8fb27ad6
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
ObjectIO/Game Examples/Charlie/FLUTE.WAV
0 → 100644
View file @
8fb27ad6
File added
ObjectIO/Game Examples/Charlie/FLUTE2.WAV
0 → 100644
View file @
8fb27ad6
File added
ObjectIO/Game Examples/Charlie/FROG.WAV
0 → 100644
View file @
8fb27ad6
File added
ObjectIO/Game Examples/Charlie/FROGS.BMP
0 → 100644
View file @
8fb27ad6
6.41 KB
ObjectIO/Game Examples/Charlie/FROGS.dcl
0 → 100644
View file @
8fb27ad6
definition
module
FROGS
import
StdEnv
,
StdGameDef
FrogsBitmap
::
GameBitmap
FrogsMap
::
[{#
Int
}]
FrogsSeq001
::
(
Int
,
[(
Int
,
Int
)])
FrogsSequences
::
[(
Int
,
[(
Int
,
Int
)])]
ObjectIO/Game Examples/Charlie/FROGS.icl
0 → 100644
View file @
8fb27ad6
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
ObjectIO/Game Examples/Charlie/ForestBackground.BMP
0 → 100644
View file @
8fb27ad6
20.3 KB
ObjectIO/Game Examples/Charlie/HIT.WAV
0 → 100644
View file @
8fb27ad6
File added
ObjectIO/Game Examples/Charlie/HIT2.WAV
0 → 100644
View file @
8fb27ad6
File added
ObjectIO/Game Examples/Charlie/INFRONT.BMP
0 → 100644
View file @
8fb27ad6
6.05 KB
ObjectIO/Game Examples/Charlie/INFRONT.dcl
0 → 100644
View file @
8fb27ad6
definition
module
INFRONT
import
StdEnv
,
StdGameDef
InFrontBitmap
::
GameBitmap
InFrontMap
::
[{#
Int
}]
InFrontSeq001
::
(
Int
,
[(
Int
,
Int
)])
InFrontSequences
::
[(
Int
,
[(
Int
,
Int
)])]
ObjectIO/Game Examples/Charlie/INFRONT.icl
0 → 100644
View file @
8fb27ad6
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
ObjectIO/Game Examples/Charlie/JUMP.WAV
0 → 100644
View file @
8fb27ad6
File added
ObjectIO/Game Examples/Charlie/L1.BMP
0 → 100644
View file @
8fb27ad6
26.1 KB
ObjectIO/Game Examples/Charlie/L1.dcl
0 → 100644
View file @
8fb27ad6
definition
module
L1
import
StdEnv
,
StdGameDef
Level1Bitmap
::
GameBitmap
Level1Map
::
[{#
Int
}]
Level1Bounds
::
[{#
Int
}]
Level1Seq001
::
(
Int
,
[(
Int
,
Int
)])
Level1Sequences
::
[(
Int
,
[(
Int
,
Int
)])]
Prev
1
2
3
4
Next
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment