/*********************************
Headerfile for Mad Factory V3.0
    by Roman Stumm in 1989!
UPDATE: 10/07/89
Vorcompilieren:
rename mad.h mad2.c
cc mad2.c -S -E200 +hdf1:Mad.PRE +L
copy mad2.o df1:Mad.lib
**********************************/

#include <intuition/intuitionbase.h>
#include <exec/memory.h>
#include <graphics/sprite.h>
#include <stdio.h>
#include <functions.h>
#define JOY_FIRE 1
#define JOY_RIGHT 2
#define JOY_LEFT 4
#define JOY_UP 8
#define JOY_DOWN 16

float zufall()
{
static float zahl = 13.0;
zahl = (889*((long)(zahl))+23147)%2194647;
return (zahl/2194647); 
}
extern float zufall(); 
USHORT *JOY1DAT = (USHORT *) 0xDFF00A; /* Addr. Port 1 */
USHORT *JOY2DAT = (USHORT *) 0xDFF00C; /* Addr. Port 2 */
UBYTE *KNOP = (UBYTE *) 0xBFE001;
struct Window *win;
struct Screen *scr;
struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;
struct RastPort *rp;
struct ViewPort *vp;

SHORT x[2], y[2]; /* Globale Variablen */
SHORT rx, ry, game=0, levelnr=0, leben=3;
SHORT key=0, punkte=0, bomb=0, anzstone=0;
SHORT grow, frage, nextfrag, nextlev;
SHORT art[5], fx[5], fy[5], sx[5];
SHORT sy[5], zx[5], zy[5];
SHORT rfy[5], rfx[5];
BYTE bild[22][18]; /* Enthält Levelaufbau als Array */

/* eigene Routinen deklarieren */
VOID growing(), tusch(), expl();
VOID tod(), bombpeng(), initsound(), sound();
SHORT drawlevel(), sprung1();
VOID title(), score(), sprung2();
VOID feindmove(), bruch(), fallen(), leiter();
VOID openlib(), closelib();
BYTE playermove(), spritekoll(), fire(), port1(), port2();
USHORT inkey();

USHORT maus[] = 
/* Unsichtbarer Mauspfeil */
{
0, 0, 0, 0, 0,
0, 0, 0, 0, 0
};

/* IMAGEDATEN created with Roman's IMAGEED.GFA V1.1 */
/* leer  */
USHORT data0[] = {
/* Plane Nr. 0 */
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 
};

/* ausgang  */
USHORT data1[] = {
0xFF0, 0x1FF8, 0x3FFC, 0x3FFC, 
0x7FFE, 0x7FFE, 0x7FFE, 0x7FFE, 
0x7FFE, 0x7FFE, 0x7FFE, 0x7FFE, 
0x7FFE, 0x7FFE, 0x7FFE, 0x7FFE, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0xFF0, 0x1FF8, 0x3FFC, 0x3FFC, 
0x7FFE, 0x7FFE, 0x7FFE, 0x7FFE, 
0x7FFE, 0x7FFE, 0x7FFE, 0x7FFE, 
0x7FFE, 0x7FFE, 0x7FFE, 0x7FFE, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0xFF0, 0x1008, 0x2004, 0x2004, 
0x4002, 0x4002, 0x4002, 0x4002, 
0x4002, 0x4002, 0x4002, 0x4002, 
0x4002, 0x4002, 0x4002, 0x4002 
};

/* bomb  */
USHORT data2[] = {
0xC3C0, 
0x7FF0, 0x1FF8, 
0x3FFC, 0x7FFE, 
0x7FFE, 0xFFFF, 
0xFFFF, 0xFFFF, 
0xFFFF, 0x7FFE, 
0x7FFE, 0x3FFC, 
0x1FF8, 0xFF0, 0x3C0, 
0xC000, 0x7000, 0x1800, 0xC00, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0xC000, 0x73C0, 0x1FE0, 0x1FC0, 
0x3F80, 0x3E00, 0x1800, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x3C0, 0xC30, 0x18, 0x203C, 
0x407E, 0x41FE, 0xE7FF, 0xFFFF, 
0xFFFF, 0xFFFF, 0x7FFE, 0x7FFE,
0x3FFC, 0x1FF8, 0xFF0, 0x3C0, 
0x3C0, 0xC30, 0x8, 0x2004, 
0x4002, 0x4002, 0x8001, 0x8001, 
0x8001, 0x8001, 0x4002, 0x4002, 
0x2004, 0x1008, 0xC30, 0x3C0 
};

/* diamand  */
USHORT data3[] = {
0x0, 0x100, 
0x280, 0x540, 
0x920, 0x1290, 
0x2288, 0x4444, 
0x8822, 0x4444, 
0x2288, 0x1290, 
0x920, 0x540, 
0x280, 0x100, 
0x0, 0x180, 
0x3C0, 0x7E0, 
0xFF0, 0x1FF8, 
0x3FFC, 0x7FFE, 
0xFFFF, 0x7FFE, 
0x3FFC, 0x1FF8, 
0xFF0, 0x7E0, 
0x3C0, 0x180, 
0x0, 0x180, 
0x3C0, 0x7E0, 
0xFF0, 0x1FF8, 
0x3FFC, 0x7FFE,
0xFFFF, 0x7FFE, 
0x3FFC, 0x1FF8, 
0xFF0, 0x7E0, 
0x3C0, 0x180, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x80, 
0x40, 0x20, 
0x10, 0x8, 
0x4, 0x2, 
0x1, 0x2, 
0x4, 0x8, 
0x10, 0x20, 
0x40, 0x80 
};

/* key  */
USHORT data4[] = {
0x1E0, 0x7F8, 0xF3C, 0x1E1E, 
0x1E1E, 0x1E1E, 0x1E1E, 0xF3C, 
0x7F8, 0x1E0, 0x1E0, 0x1E0, 
0x1E0, 0x1F8, 0x1E0, 0x1FC, 
0x1E0, 0x7F8, 0xF3C, 0x1E1E, 
0x1E1E, 0x1E1E, 0x1E1E, 0xF3C, 
0x7F8, 0x1E0, 0x1E0, 0x1E0, 
0x1E0, 0x1F8, 0x1E0, 0x1FC, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x1E0, 0x7F8, 0xF3C, 0x1E1E, 
0x1E1E, 0x1E1E, 0x1E1E, 0xF3C, 
0x7F8, 0x1E0, 0x1E0, 0x1E0, 
0x1E0, 0x1F8, 0x1E0, 0x1FC, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x60, 0x18, 0x30C, 0x606, 
0x606, 0x606, 0x606, 0x30C, 
0x18, 0x60, 0x60, 0x60, 
0x60, 0x18, 0x60, 0xC 
};

/* glühbirne  */
USHORT data5[] = {
0x0, 0x7C0, 
0xFE0, 0x1FF0, 
0x3FF8, 0x3FF8, 
0x3FF8, 0x3FF8, 
0x1FF0, 0xFE0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x7C0, 
0xFE0, 0x1FF0, 
0x3FF8, 0x3FF8, 
0x3FF8, 0x3FF8, 
0x1FF0, 0xFE0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x7C0, 0x7C0, 
0x7C0, 0x7C0, 
0x7C0, 0x380, 
0x0, 0x7C0, 
0xFE0, 0x1FF0, 
0x3FF8, 0x3FF8, 
0x3FF8, 0x3FF8, 
0x1FF0, 0xFE0, 
0x7C0, 0x7C0, 
0x7C0, 0x7C0, 
0x7C0, 0x380, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x7C0, 0x7C0,
0x7C0, 0x7C0, 
0x7C0, 0x380 
};

/* frage  */
USHORT data6[] = {
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x1E0, 0x7F8, 
0xA14, 0x140A, 
0x140A, 0x14, 
0x28, 0xF0, 
0x140, 0x140, 
0x140, 0x140, 
0x0, 0x140, 
0x3E0, 0x140, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x1E0, 0x7F8, 
0xA14, 0x140A, 
0x140A, 0x14, 
0x28, 0xF0, 
0x140, 0x140, 
0x140, 0x140, 
0x0, 0x140, 
0x3E0, 0x140, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x60, 0x198, 
0x204, 0x402, 
0x402, 0x4, 
0x8, 0x30, 
0x40, 
0x40, 0x40, 
0x40, 0x0, 
0x40, 0x60, 0x40 
};

/* amöbe  */
USHORT data7[] = {
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0xFFFF, 0xDFFF, 0x8FFF, 0xDFF7, 
0xFFE3, 0xFFE3, 0xFBF7, 0xF1FF, 
0xFBFF, 0xFFFF, 0x7FFF, 0x3FFE, 
0x3FFE, 0x3F9E, 0x7F0F, 0xFF9F, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0xFFFF, 0xDFFF, 0x8FFF, 0xDFF7, 
0xFFE3, 0xFFE3, 0xFBF7, 0xF1FF, 
0xFBFF, 0xFFFF, 0x7FFF, 0x3FFE, 
0x3FFE, 0x3F9E, 0x7F0F, 0xFF9F, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0 
};

/* leiter  */
USHORT data8[] = {
0xE007, 0xFFFF, 0xFFFF, 0xFFFF, 
0xE007, 0xE007, 0xFFFF, 0xFFFF, 
0xFFFF, 0xE007, 0xE007, 0xFFFF, 
0xFFFF, 0xFFFF, 0xE007, 0xE007, 
0xE007, 0xFFFF, 0xFFFF, 0xFFFF, 
0xE007, 0xE007, 0xFFFF, 0xFFFF, 
0xFFFF, 0xE007, 0xE007, 0xFFFF, 
0xFFFF, 0xFFFF, 0xE007, 0xE007, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0xE007, 0xFFFF, 0xFFFF, 0xFFFF, 
0xE007, 0xE007, 0xFFFF, 0xFFFF, 
0xFFFF, 0xE007, 0xE007, 0xFFFF, 
0xFFFF, 0xFFFF, 0xE007, 0xE007, 
0x2001, 0x3FF9, 0x1, 0x1, 
0x2001, 0x2001, 0x3FF9, 0x1, 
0x1, 0x2001, 0x2001, 0x3FF9, 
0x1, 0x1, 0x2001, 0x2001 
};

/* gift  */
USHORT data9[] = {
0x0, 0x0, 0x0, 0x0, 
0x0, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x3333, 0x3333, 0xFFFF, 0xFFFF, 
0xFFFF, 0x201, 0x201, 0x201, 
0x201, 0xFFFF, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x3333, 0x3333, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x3333, 
0x3333, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x1111, 0x1111, 0x8888, 0x8888, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0 
}; 

/* door(open)  */
USHORT data17[] = {
/* Plane Nr. 0 */
0xC3FF, 0x9C01, 
0x9FE1, 0x9FFD, 
0x9FFD, 0x9FFD, 
0x9FFD, 0x9FFD, 
0x9FFD, 0x9FFD, 
0x9FFD, 0x9FFD, 
0x9FFD, 0x9FE1, 
0xDC1F, 0xC3FF, 
/* Plane Nr. 1 */
0xC3FF, 0x8001, 
0x8001, 0x8001, 
0x8001, 0x8001, 
0x8001, 0x8601, 
0x8801, 0x8001, 
0x8001, 0x8001, 
0x8001, 0x8001, 
0x8001, 0x0, 
/* Plane Nr. 2 */
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x401E, 0xC3FF, 
/* Plane Nr. 3 */
0xFFFF, 0xBFE1, 
0xBFFF, 0xBFFF, 
0xBFFF, 0xBFFF, 
0xBFFF, 0xBFFF, 
0xBFFF, 0xBFFF, 
0xBFFF, 0xBFFF, 
0xBFFF, 0xBFFF, 
0xFFFF, 0xFFFF, 
/* Plane Nr. 4 */
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
/* Plane Nr. 5 */
0x0, 0x1C00, 
0x1FE0, 0x1FFC, 
0x1FFC, 0x1FFC, 
0x1FFC, 0x19FC, 
0x17FC, 0x1FFC, 
0x1FFC, 0x1FFC, 
0x1FFC, 0x1FE0, 
0x1C00, 0x0
};

/* stone */
USHORT data11[] = {
/* Plane Nr. 0 */
0x3C0, 0x7E0, 
0xFF0, 0x1FF8, 
0x1FF8, 0x3FFC, 
0x7FFE, 0x7FFE, 
0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 
0x7FFE, 0x3FFC, 
0x1FF8, 0x7E0, 
/* Plane Nr. 1 */
0x3C0, 0x7E0, 
0xFF0, 0x1FF8, 
0x1FF8, 0x3FFC, 
0x7FFE, 0x7FFE, 
0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 
0x7FFE, 0x3FFC, 
0x1FF8, 0x7E0, 
/* Plane Nr. 2 */
0x3C0, 0x7E0, 
0xFF0, 0x1FF8, 
0x1FF8, 0x3FFC, 
0x7FFE, 0x7FFE, 
0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 
0x7FFE, 0x3FFC, 
0x1FF8, 0x7E0, 
/* Plane Nr. 3 */
0xC0, 0x240, 
0x910, 0x28, 
0x1148, 0x808, 
0x502, 0x50A2, 
0x23, 0x247, 
0x8803, 0x210B, 
0x1652, 0x304C, 
0x1338, 0x7E0, 
/* Plane Nr. 4 */
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
0x0, 0x0, 
/* Plane Nr. 5 */
0x340, 0x5A0, 
0x6F0, 0x1FD8, 
0xEB8, 0x37FC, 
0x7AFE, 0x2F5E, 
0xFFFF, 0xFDBF, 
0x77FF, 0xDFFF, 
0x7BFE, 0x3FFC, 
0x1FF8, 0x7E0 
};

/* bruch0  */
USHORT data12[] = {
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x5555, 0xAAAA, 
0x5555, 0xAAAA, 0x5555, 0xAAAA, 
0x5555, 0xAAAA, 0x5555, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0
};

/* boden created with Roman's ImageED.GFA V1.1 */
USHORT data13[] = {
/* Plane Nr. 0 */
0x0, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 
/* Plane Nr. 1 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 2 */
0x0, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 3 */
0x0, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 4 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 5 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0 
};

/* betonboden created with Roman's ImageED.GFA V1.1 */
USHORT data14[] = {
/* Plane Nr. 0 */
0x0, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 1 */
0x0, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 2 */
0x0, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 3 */
0x0, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFEFE, 0xFEFE, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 4 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 5 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0
};

/* mauer created with Romans's ImageED.GFA V1.1 */
USHORT data15[] = {
/* Plane Nr. 0 */
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
/* Plane Nr. 1 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 2 */
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
/* Plane Nr. 3 */
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
/* Plane Nr. 4 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
/* Plane Nr. 5 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0 
};

/* betonmauer  */
USHORT data16[] = {
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 
0xFE00, 0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0xFE, 0xFEFE, 0xFEFE, 0xFE00, 
0xFEFE, 0xFEFE, 0xFEFE, 0xFEFE, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0
};

/* door(closed)  */
USHORT data10[] = {
0xFFFF, 0x8001, 0xBFFD, 0xBFFD, 
0xBFFD, 0xBFFD, 0xBFFD, 0xBFFD, 
0xBFFD, 0xBFFD, 0xBFFD, 0xBFFD, 
0xBFFD, 0xBFFD, 0xBFFD, 0x8001, 
0xFFFF, 0x8001, 0x8001, 0x8001, 
0x8001, 0x8001, 0x8001, 0x9C01, 
0xB001, 0x8001, 0x8001, 0x8001, 
0x8001, 0x8001, 0x8001, 0x8001, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0xFFFF, 0xFFFF, 0xFFFF, 0xFFFF, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x3FFC, 0x3FFC, 
0x3FFC, 0x3FFC, 0x3FFC, 0x23FC, 
0xFFC, 0x3FFC, 0x3FFC, 0x3FFC, 
0x3FFC, 0x3FFC, 0x3FFC, 0x0
};

/* bruch1  */
USHORT spdata1[] = {
0x1111, 0x6666, 0x1111, 0x9998, 
0x4446, 0x9998, 0x4444, 0x2222, 
0x9999, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x1111, 0x6666, 0x1111, 0x9998, 
0x4446, 0x9998, 0x4444, 0x2222, 
0x9999, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x1111, 0x2222, 0x1111, 0x8888, 
0x4444, 0x8888, 0x4444, 0x2222, 
0x1111, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0 
};

/* peng0 created with Roman's ImageED.GFA V1.1 */
USHORT pengdat0[] = {
/* Plane Nr. 0 */
0x0, 0x220, 0x0, 0x48C0, 
0xA00, 0x0, 0x1470, 0x5D20, 
0xB38, 0x4E40, 0x1C0, 0xB00, 
0x2, 0x800, 0x2, 0x0, 
/* Plane Nr. 1 */
0x0, 0x20, 0x0, 0x4000, 
0x800, 0x1400, 0x1010, 0x4000, 
0x18, 0x4000, 0x140, 0x200, 
0x2, 0x800, 0x0, 0x0, 
/* Plane Nr. 2 */
0x800, 0x2, 0x8200, 0x20, 
0x550, 0x20, 0x80, 0x10, 
0x1441, 0xA8, 0xC20, 0xC0, 
0x0, 0x8000, 0x40, 0x800, 
/* Plane Nr. 3 */
0x800, 0x2, 0x8200, 0x20, 
0x550, 0x20, 0x80, 0x10, 
0x1441, 0xA8, 0xC20, 0xC0, 
0x0, 0x8000, 0x40, 0x800, 
/* Plane Nr. 4 */
0x0, 0x200, 0x0, 0x8C0, 
0x200, 0xBD0, 0x460, 0x1D20, 
0xB20, 0xE40, 0x80, 0x900, 
0x0, 0x0, 0x2, 0x0, 
/* Plane Nr. 5 */
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 
};

/* peng1 created with Roman's ImageED.GFA V1.1 */
/* Width = 16 Height = 16 Depth = 6 */
USHORT pengdat1[] = {
/* Plane Nr. 0 */
0x750, 0x7ABA, 0x37DC, 0x6ED6, 
0x3FF4, 0x7534, 0x1F7B, 0xFD3A, 
0x2DFE, 0xFF97, 0x16DF, 0x3B74, 
0x2BE6, 0x6C8, 0x8922, 0x600, 
/* Plane Nr. 1 */
0x440, 0x1028, 0x0, 0x4, 
0x210, 0x4400, 0xA, 0x4100, 
0xC, 0xC004, 0x42, 0x814, 
0x4, 0x2C8, 0x800, 0x0, 
/* Plane Nr. 2 */
0x20, 0x400, 0x800, 0x20, 
0x4002, 0xAC0, 0x4000, 0xC5, 
0x4200, 0x48, 0x800, 0x480, 
0x0, 0x124, 0x1658, 0x800, 
/* Plane Nr. 3 */
0x20, 0x400, 0x800, 0x20, 
0x4002, 0xAC0, 0x4000, 0xC5, 
0x4200, 0x48, 0x800, 0x480, 
0x0, 0x124, 0x1658, 0x800, 
/* Plane Nr. 4 */
0x310, 0x6A92, 0x37DC, 0x6ED2, 
0x3DE4, 0x3134, 0x1F71, 0xBC3A, 
0x2DF2, 0x3F93, 0x169D, 0x3360, 
0x2BE2, 0x400, 0x8122, 0x600, 
/* Plane Nr. 5 */
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 
};

/* SPRITEDATEN */
/* stamper created with Roman's SpriteEDV3.0 */
/* height = 32 */
USHORT stamper[5][68] = {
0, 0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0, 0,
0, 0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0, 0,
0, 0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0, 0,
0, 0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0, 0,
0, 0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0x3C0, 0x0, 0x3C0,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0x0, 0xFFFF, 0x0, 0xFFFF,
0, 0
};

/* wagen created with Roman's SpriteEDV3.0 */
/* height = 32 */
USHORT wagen[5][68] = {
0, 0,
0x0, 0x0, 0x0, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0xFFFF, 0x0,
0xFFFF, 0x381C, 0x7C3E, 0x7C3E,
0x7C3E, 0x7C3E, 0x381C, 0x381C,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0x0, 0x0, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0xFFFF, 0x0,
0xFFFF, 0x381C, 0x7C3E, 0x7C3E,
0x7C3E, 0x7C3E, 0x381C, 0x381C,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0x0, 0x0, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0xFFFF, 0x0,
0xFFFF, 0x381C, 0x7C3E, 0x7C3E,
0x7C3E, 0x7C3E, 0x381C, 0x381C,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0x0, 0x0, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0xFFFF, 0x0,
0xFFFF, 0x381C, 0x7C3E, 0x7C3E,
0x7C3E, 0x7C3E, 0x381C, 0x381C,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0x0, 0x0, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0x300C, 0x0,
0x300C, 0x0, 0xFFFF, 0x0,
0xFFFF, 0x381C, 0x7C3E, 0x7C3E,
0x7C3E, 0x7C3E, 0x381C, 0x381C,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0
};

/* robot created with Roman's SpriteED V3.0 */
/* height = 32 */
USHORT robot[5][68] = {
0, 0,
0x3C0, 0x3C0, 0x7E0, 0xFF0,
0x7E0, 0xFF0, 0x0, 0xFF0,
0x0, 0x7E0, 0x23C4, 0x23C4,
0x718E, 0x718E, 0xDBDB, 0xDBDB,
0xF70, 0xEF0, 0xFF0, 0xFF0,
0x1EF8, 0x1F78, 0x3FFC, 0x3FFC,
0x7F7E, 0x7EFE, 0x7FFE, 0x63C6,
0x3E7C, 0x0, 0x1C38, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x3C0, 0x3C0, 0x7E0, 0xFF0,
0x7E0, 0xFF0, 0x0, 0xFF0,
0x0, 0x7E0, 0x23C4, 0x23C4,
0x718E, 0x718E, 0xDBDB, 0xDBDB,
0xF70, 0xEF0, 0xFF0, 0xFF0,
0x1EF8, 0x1F78, 0x3FFC, 0x3FFC,
0x7F7E, 0x7EFE, 0x7FFE, 0x63C6,
0x3E7C, 0x0, 0x1C38, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x3C0, 0x3C0, 0x7E0, 0xFF0,
0x7E0, 0xFF0, 0x0, 0xFF0,
0x0, 0x7E0, 0x23C4, 0x23C4,
0x718E, 0x718E, 0xDBDB, 0xDBDB,
0xF70, 0xEF0, 0xFF0, 0xFF0,
0x1EF8, 0x1F78, 0x3FFC, 0x3FFC,
0x7F7E, 0x7EFE, 0x7FFE, 0x63C6,
0x3E7C, 0x0, 0x1C38, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x3C0, 0x3C0, 0x7E0, 0xFF0,
0x7E0, 0xFF0, 0x0, 0xFF0,
0x0, 0x7E0, 0x23C4, 0x23C4,
0x718E, 0x718E, 0xDBDB, 0xDBDB,
0xF70, 0xEF0, 0xFF0, 0xFF0,
0x1EF8, 0x1F78, 0x3FFC, 0x3FFC,
0x7F7E, 0x7EFE, 0x7FFE, 0x63C6,
0x3E7C, 0x0, 0x1C38, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x3C0, 0x3C0, 0x7E0, 0xFF0,
0x7E0, 0xFF0, 0x0, 0xFF0,
0x0, 0x7E0, 0x23C4, 0x23C4,
0x718E, 0x718E, 0xDBDB, 0xDBDB,
0xF70, 0xEF0, 0xFF0, 0xFF0,
0x1EF8, 0x1F78, 0x3FFC, 0x3FFC,
0x7F7E, 0x7EFE, 0x7FFE, 0x63C6,
0x3E7C, 0x0, 0x1C38, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0
};

/* bohrer created with Roman's SpriteED V3.0 */
/* height = 32 */
USHORT bohrer[5][68] = {
0, 0,
0xFC0, 0x0, 0xFC0, 0x0,
0x780, 0x0, 0x300, 0x300,
0x300, 0x300, 0x1F0, 0x1F0,
0x18, 0x0, 0x18, 0x0,
0x18, 0x0, 0x1F0, 0x1F0,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x200, 0x200,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0xFC0, 0x0, 0xFC0, 0x0,
0x780, 0x0, 0x300, 0x300,
0x300, 0x300, 0x1F0, 0x1F0,
0x18, 0x0, 0x18, 0x0,
0x18, 0x0, 0x1F0, 0x1F0,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x200, 0x200,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0xFC0, 0x0, 0xFC0, 0x0,
0x780, 0x0, 0x300, 0x300,
0x300, 0x300, 0x1F0, 0x1F0,
0x18, 0x0, 0x18, 0x0,
0x18, 0x0, 0x1F0, 0x1F0,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x200, 0x200,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0xFC0, 0x0, 0xFC0, 0x0,
0x780, 0x0, 0x300, 0x300,
0x300, 0x300, 0x1F0, 0x1F0,
0x18, 0x0, 0x18, 0x0,
0x18, 0x0, 0x1F0, 0x1F0,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x200, 0x200,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0xFC0, 0x0, 0xFC0, 0x0,
0x780, 0x0, 0x300, 0x300,
0x300, 0x300, 0x1F0, 0x1F0,
0x18, 0x0, 0x18, 0x0,
0x18, 0x0, 0x1F0, 0x1F0,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x100, 0x100,
0x200, 0x200, 0x200, 0x200,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0
};

/* hammer created with Roman's SpriteED V3.0 */
/* height = 32 */
USHORT hammer[5][68] = {
0, 0,
0x0, 0xFC0, 0x0, 0x300,
0x1, 0x780, 0xFFA, 0xFC0,
0xFC4, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0x300, 0x300,
0x300, 0x300, 0x300, 0x300,
0x300, 0x300, 0x780, 0x780,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0xFC0, 0x0, 0x300,
0x1, 0x780, 0xFFA, 0xFC0,
0xFC4, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0x300, 0x300,
0x300, 0x300, 0x300, 0x300,
0x300, 0x300, 0x780, 0x780,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0xFC0, 0x0, 0x300,
0x1, 0x780, 0xFFA, 0xFC0,
0xFC4, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0x300, 0x300,
0x300, 0x300, 0x300, 0x300,
0x300, 0x300, 0x780, 0x780,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0xFC0, 0x0, 0x300,
0x1, 0x780, 0xFFA, 0xFC0,
0xFC4, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0x300, 0x300,
0x300, 0x300, 0x300, 0x300,
0x300, 0x300, 0x780, 0x780,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0,
0, 0,
0x0, 0xFC0, 0x0, 0x300,
0x1, 0x780, 0xFFA, 0xFC0,
0xFC4, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0xFC0, 0xFC0, 0x300, 0x300,
0x300, 0x300, 0x300, 0x300,
0x300, 0x300, 0x780, 0x780,
0xFC0, 0xFC0, 0xFC0, 0xFC0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0,
0, 0
};

/* SPIELER 1 SPRITES */
/* height = 16 */
USHORT r1[2][36] = {
0, 0,
0x798, 0x0, 0xFE0, 0x0,
0x1C00, 0x3C0, 0x1800, 0x740,
0x0, 0xFE0, 0x0, 0xEF0,
0x0, 0x740, 0x380, 0x380,
0x6C0, 0x7C0, 0xC60, 0xFE0,
0xC60, 0xFF0, 0xE00, 0xFF0,
0x7C0, 0x7C0, 0x664, 0x664,
0xDBC, 0xDBC, 0x7B0, 0x7B0,
0, 0,
0, 0,
0x780, 0x0, 0xFF8, 0x0,
0x1E00, 0x1C0, 0x1800, 0x740,
0x0, 0xFE0, 0x0, 0xDF0,
0x0, 0x640, 0x380, 0x380,
0x6C0, 0x7C0, 0xCE0, 0xFE0,
0x9E0, 0xFE0, 0xCE0, 0xFE0,
0x640, 0x7C0, 0x300, 0x300,
0x760, 0x760, 0x7C0, 0x7C0,
0, 0
};

USHORT jr1[] = {
0, 0,
0x3C0, 0x0, 0x37E0, 0x0,
0x1C00, 0x3E0, 0x0, 0x5A0,
0x0, 0x7E0, 0x0, 0x25A4,
0x0, 0x324C, 0x660, 0x1FF8,
0x3C0, 0xFF0, 0x3C0, 0x7E0,
0x7E0, 0x7E0, 0x7E0, 0x7E0,
0x1E60, 0x1E60, 0x1834, 0x1834,
0xE18, 0xE18, 0x0, 0x0,
0, 0
};

USHORT l1[2][36] = {
0, 0,
0x19E0, 0x0, 0x7F0, 0x0,
0x38, 0x3C0, 0x18, 0x2E0,
0x0, 0x7F0, 0x0, 0xF70,
0x0, 0x2E0, 0x1C0, 0x1C0,
0x360, 0x3E0, 0x630, 0x7F0,
0x630, 0xFF0, 0x70, 0xFF0,
0x3E0, 0x3E0, 0x2660, 0x2660,
0x3DB0, 0x3DB0, 0xDE0, 0xDE0,
0, 0,
0, 0,
0x1E0, 0x0, 0x1FF0, 0x0,
0x78, 0x380, 0x18, 0x2E0,
0x0, 0x7F0, 0x0, 0xFB0,
0x0, 0x260, 0x1C0, 0x1C0,
0x360, 0x3E0, 0x730, 0x7F0,
0x790, 0x7F0, 0x730, 0x7F0,
0x260, 0x3E0, 0xC0, 0xC0,
0x6E0, 0x6E0, 0x3E0, 0x3E0,
0, 0
};

USHORT jl1[] = {
0, 0,
0x3C0, 0x0, 0x7EC, 0x0,
0x38, 0x7C0, 0x0, 0x5A0,
0x0, 0x7E0, 0x0, 0x25A4,
0x0, 0x324C, 0x660, 0x1FF8,
0x3C0, 0xFF0, 0x3C0, 0x7E0,
0x7E0, 0x7E0, 0x7E0, 0x7E0,
0x678, 0x678, 0x2C18, 0x2C18,
0x1870, 0x1870, 0x0, 0x0,
0, 0
};

USHORT lt1[2][36] = {
0, 0,
0x180, 0x0, 0x3C4, 0x0,
0x7F8, 0x0, 0x780, 0x60,
0x700, 0xE0, 0x0, 0x17E0,
0x0, 0x23C0, 0x3C0, 0x33C0,
0x7E0, 0x1FF4, 0x7E0, 0xFFA,
0x7E0, 0x7EE, 0x7C0, 0x7C4,
0x6C0, 0x6C0, 0xCC0, 0xCC0,
0x3CF0, 0x3CF0, 0x1EE0, 0x1EE0,
0, 0,
0, 0,
0x180, 0x0, 0x3D8, 0x0,
0x7F0, 0x0, 0x780, 0x60,
0x700, 0xE0, 0x0, 0x7E8,
0x0, 0x3C4, 0x3C0, 0x3CC,
0x7E0, 0x2FF8, 0x7E0, 0x5FF0,
0x7E0, 0x77E0, 0x7C0, 0x27C0,
0x350, 0x350, 0x370, 0x370,
0x760, 0x760, 0x7C0, 0x7C0,
0, 0
};

/* SPIELER 2 SPRITES*/
/* pl2.0 erzeugt mit Roman's SpriteEDV2.0 */
/* height = 16 */
USHORT r2[2][36] = {
0, 0,
0x798, 0x798, 0xFE0, 0xFE0,
0x1C00, 0x1FC0, 0x1800, 0x1F40,
0x0, 0xFE0, 0x0, 0xEF0,
0x0, 0x740, 0x380, 0x100,
0x6C0, 0x380, 0xC60, 0x7C0,
0xC60, 0x7D0, 0xE00, 0xFF0,
0x7C0, 0x7C0, 0x664, 0x660,
0xDBC, 0x420, 0x7B0, 0x0,
0, 0,
0, 0,
0x780, 0x780, 0xFF8, 0xFF8,
0x1E00, 0x1FC0, 0x1800, 0x1F40,
0x0, 0xFE0, 0x0, 0xDF0,
0x0, 0x640, 0x380, 0x280,
0x6C0, 0x580, 0xCE0, 0x780,
0x9E0, 0x680, 0xCE0, 0xFE0,
0x640, 0x7C0, 0x300, 0x300,
0x760, 0x100, 0x7C0, 0x0,
0, 0
};

USHORT jr2[] = {
0, 0,
0x3C0, 0x3C0, 0x7EC, 0x7EC,
0x38, 0x7F8, 0x0, 0x5A0,
0x0, 0x7E0, 0x0, 0x25A4,
0x0, 0x324C, 0x660, 0x1FF8,
0x3C0, 0xE70, 0x3C0, 0x660,
0x7E0, 0x240, 0x7E0, 0x7E0,
0x1E60, 0x1E60, 0x1834, 0x830,
0xE18, 0x0, 0x0, 0x0,
0, 0
};

USHORT l2[2][36] = {
0, 0,
0x19E0, 0x19E0, 0x7F0, 0x7F0,
0x38, 0x3F8, 0x18, 0x2F8,
0x0, 0x7F0, 0x0, 0xF70,
0x0, 0x2E0, 0x1C0, 0x80,
0x360, 0x1C0, 0x630, 0x3E0,
0x630, 0xBE0, 0x70, 0xFF0,
0x3E0, 0x3E0, 0x2660, 0x660,
0x3DB0, 0x420, 0xDE0, 0x0,
0, 0,
0, 0,
0x1E0, 0x1E0, 0x1FF0, 0x1FF0,
0x78, 0x3F8, 0x18, 0x2F8,
0x0, 0x7F0, 0x0, 0xFB0,
0x0, 0x260, 0x1C0, 0x140,
0x360, 0x1A0, 0x730, 0x1E0,
0x790, 0x160, 0x730, 0x7F0,
0x260, 0x3E0, 0xC0, 0xC0,
0x6E0, 0x80, 0x3E0, 0x0,
0, 0
};

USHORT jl2[] = {
0, 0,
0x3C0, 0x3C0, 0x37E0, 0x37E0,
0x1C00, 0x1FE0, 0x0, 0x5A0,
0x0, 0x7E0, 0x0, 0x25A4,
0x0, 0x324C, 0x660, 0x1FF8,
0x3C0, 0xE70, 0x3C0, 0x660,
0x7E0, 0x240, 0x7E0, 0x7E0,
0x678, 0x678, 0x2C18, 0xC10,
0x1870, 0x0, 0x0, 0x0,
0, 0
};

USHORT lt2[2][36] = {
0, 0,
0x180, 0x180, 0x1BC0, 0x1BC0,
0xFE0, 0xFE0, 0x1E0, 0x7E0,
0xE0, 0x7E0, 0x0, 0x17E0,
0x0, 0x23C0, 0x3C0, 0x3240,
0x7E0, 0x1A34, 0x7E0, 0xA3A,
0x7E0, 0x22E, 0x3E0, 0x3E4,
0xAC0, 0x2C0, 0xEC0, 0x6C0,
0x6E0, 0x280, 0x3E0, 0x0,
0, 0,
0, 0,
0x180, 0x180, 0x3D8, 0x3D8,
0x7F0, 0x7F0, 0x780, 0x7E0,
0x700, 0x7E0, 0x0, 0x7E8,
0x0, 0x3C4, 0x3C0, 0x24C,
0x7E0, 0x2C58, 0x7E0, 0x5C50,
0x7E0, 0x7440, 0x7C0, 0x27C0,
0x350, 0x340, 0x370, 0x360,
0x760, 0x140, 0x7C0, 0x0,
0, 0
};

/* STRUCTURES FÜR IMAGES ALS STRUCT-ARRAY */
struct Image pic[18] = {
0, 0, 16, 16, 6, 
&data0[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data1[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data2[0], 63, 0, NULL,
0, 0, 16, 16, 6,
&data3[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data4[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data5[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data6[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data7[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data8[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data9[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data10[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data11[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data12[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data13[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data14[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data15[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data16[0], 63, 0, NULL,
0, 0, 16, 16, 6, 
&data17[0], 63, 0, NULL
};

struct Image bruch1 = {
0, 0, 16, 16, 6, 
&spdata1[0], 63, 0, NULL 
};
struct Image peng[2] = {
0, 0, 16, 16, 6,
&pengdat0[0], 63, 0, NULL,
0, 0, 16, 16, 6,
&pengdat1[0], 63, 0, NULL
};

/* Sprite-Structures Feinde */
struct SimpleSprite feind[5] = {
&stamper[0][0], 32, 0, 0, 1, /* Mit StamperDaten vorbelegt */
&stamper[1][0], 32, 0, 0, 4,
&stamper[2][0], 32, 0, 0, 5,
&stamper[3][0], 32, 0, 0, 6,
&stamper[4][0], 32, 0, 0, 7 
};

struct SimpleSprite pl1 = {
&r1[0][0], 16, 0, 0, 2
};

struct SimpleSprite pl2 = {
&r2[0][0], 16, 0, 0, 3
};

struct NewWindow nw = {
0, 0, 320, 256, 17, 0, VANILLAKEY,
BORDERLESS|ACTIVATE|RMBTRAP|NOCAREREFRESH,
NULL, NULL, "Mad Factory V3.0 by Roman Stumm in 1989",   
NULL, NULL, 0, 0, 0, 0, CUSTOMSCREEN
};

struct NewScreen ns = {
0, 0, 320, 256, 6, 0, 0,
EXTRA_HALFBRITE, CUSTOMSCREEN,
NULL, NULL, NULL, NULL
};

UBYTE txt[40];
struct IntuiText ITxt = {
11, 0, JAM2, 0, 0, NULL,(UBYTE *)txt, NULL 
};

BYTE port2() /* Joystickabfrage Port2 */
{
register BYTE ret=0;
if(*JOY2DAT & 2) ret = JOY_RIGHT;
else if(*JOY2DAT & 512) ret = JOY_LEFT;
else if((*JOY2DAT & 2) ^ (*JOY2DAT & 1)) ret = JOY_DOWN;
else if((*JOY2DAT & 512) ^ (*JOY2DAT & 256)) ret = JOY_UP;
return (ret);
}

BYTE port1() /* Joystickabfrage Mouseport(Port1) */
{
register BYTE ret=0;
if(*JOY1DAT & 2) ret = JOY_RIGHT;
else if(*JOY1DAT & 512) ret = JOY_LEFT;
else if((*JOY1DAT & 2) ^ (*JOY1DAT & 1)) ret = JOY_DOWN;
else if((*JOY1DAT & 512) ^ (*JOY1DAT & 256)) ret = JOY_UP;
return (ret);
}

BYTE fire(s) /* Knopf MousePort=1 Port2=2  */
SHORT s;
{
register BYTE ret=0;
if(!(*KNOP & (64*s))) ret = JOY_FIRE;
return(ret);
}

USHORT inkey() /* returns ASCII-Code */
{
struct IntuiMessage *message;
register USHORT t=NULL;
if((message =(struct IntuiMessage *) GetMsg(win->UserPort))) {
	t = message->Code;
	ReplyMsg(message);
	}
return(t);
}

VOID openlib() /* Libs, Screen, Window, Colors, Sprites */
{
SHORT a;
if (!(GfxBase = (struct GfxBase *)
OpenLibrary("graphics.library",0L)))
	exit(FALSE);
if (!(IntuitionBase = (struct IntuitionBase *)
OpenLibrary("intuition.library",0L)))
	closelib();
if(!(scr = (struct Screen *)OpenScreen(&ns)))
	closelib();
nw.Screen = scr;
if(!(win = (struct Window *)OpenWindow(&nw)))
	closelib();
rp=win->RPort;
vp=ViewPortAddress(win);
SetRGB4(vp,0,0,0,0);
SetRGB4(vp,5,15,4,15);
SetRGB4(vp,12,15,15,0);
SetRGB4(vp,10,0,15,0);
SetRGB4(vp,13,9,2,0);
SetRGB4(vp,15,10,10,10);
SetRGB4(vp,8,8,5,0);
SetRGB4(vp,21,15,3,3);
SetRGB4(vp,22,14,12,12);
SetRGB4(vp,23,0,5,15);
SetRGB4(vp,17,15,1,0);
SetRGB4(vp,18,14,12,0);
SetRGB4(vp,19,8,8,8);
SetRGB4(vp,25,15,1,0);
SetRGB4(vp,26,14,12,0);
SetRGB4(vp,27,8,8,8);
SetRGB4(vp,29,15,1,0);
SetRGB4(vp,30,14,12,0);
SetRGB4(vp,31,8,8,8);
for(a=0;a<8;a++)
  FreeSprite(a);
a = GetSprite(&feind[0],1);
a = GetSprite(&pl1,3);
a = GetSprite(&pl2,2);
for(a=1;a<5;a++) 
  (void)GetSprite(&feind[a],a+3);
SetPointer(win,&maus[0],3,16,0,0); /* Mouse weg */
}

VOID closelib()
{
SHORT a;
for(a=0;a<8;a++)
  FreeSprite(a);
if(win) CloseWindow(win);
if(scr) CloseScreen(scr);
if(GfxBase) CloseLibrary(GfxBase);
if(IntuitionBase) CloseLibrary(IntuitionBase);
exit(TRUE);
}

VOID score()
{
sprintf(txt,"Lives:%d Score:%d Keys:%d Bombs:%d        ",leben,punkte,key,bomb); 
PrintIText(rp,&ITxt,5,245);
}
 
VOID title(i)
BYTE i;
{
char text[30];
SetRast(rp,0);
RefreshWindowFrame(win);
Move(rp,50,20);
sprintf(text,"You reach stage: %d",levelnr);
Text(rp,&text[0],strlen(&text));
Move(rp,5,50);
sprintf(text,"Score: %d",punkte);
Text(rp,&text[0],strlen(&text));
Move(rp,5,80);
sprintf(text,"Lives: %d",leben);
Text(rp,&text[0],strlen(&text));
Move(rp,5,110);
sprintf(text,"Keys:  %d",key);
Text(rp,&text[0],strlen(&text));
Move(rp,5,140);
sprintf(text,"Bombs: %d",bomb);
Text(rp,&text[0],strlen(&text));
Move(rp,50,190);
switch(i) {
case 0:
Text(rp,"PRESS FIRE TO START",19);
break;
case 2:
Text(rp,"      GAME OVER     ",19);
break;
default:
Text(rp,"YOU REACHED THE EXIT",20);
(void)tusch(); Delay(2L);
(void)tusch(); Delay(2L);
(void)tusch(); /* Spielziel erreicht */
}
while ((fire(1)==0)&&(fire(2)==0)) { 
if (inkey()==27) { 
leben=0;
game++; 
} /* End if */
} /* End while */
} /* End title() */

BYTE spritekoll(a) /* Returns 1, wenn tod */
SHORT a;
{
register SHORT nr;
for(nr=0;nr<5;nr++) {
	switch(art[nr]) {
		case 5:
		break; /* Nr. ist z. Z. leer (toter robot, kein feind mehr) */
		case 0:
		if((x[a]==fx[nr])&&(y[a]==fy[nr]+1)) return(1); /* Stamper */
		default:
		if((x[a]==fx[nr])&&(y[a]==fy[nr])) return(1); /* Sonstige */
		break;
		} /* End switch art */
	} /* End for nr */
} /* End spritekoll() */

VOID feindmove(a)
SHORT a;
{
register SHORT b;
if(fx[a]<=sx[a]) rfx[a]=1; /* Change right */
if(fx[a]>=zx[a]) rfx[a]=-1; /* Change left */
if(fy[a]<=sy[a]) rfy[a]=1; /* Change down */
if(fy[a]>=zy[a]) rfy[a]=-1; /* Change up */
if(sx[a]==zx[a]) rfx[a]=0; /* nur vertikal */
if(sy[a]==zy[a]) rfy[a]=0; /* nur horizontal */
for(b=0;b<17;b++)
MoveSprite(vp,&feind[a],(fx[a]-1)*16+rfx[a]*b,(fy[a]-2)*16+rfy[a]*b);
fx[a]+=rfx[a];
fy[a]+=rfy[a];
} /* End feindmove() */

VOID bruch(ix,iy)
SHORT ix;
SHORT iy;
{
DrawImage(rp,&bruch1,(ix-1)*16,(iy-2)*16);
WaitTOF(); 
Delay(10L); 
bild[ix][iy]=0; /* bild-Array ändern */
DrawImage(rp,&pic[0],(ix-1)*16,(iy-2)*16); 
} /* End bruch() */


VOID fallen(a) /* a=PlayerNr: 0=Player1 1=Player2 */
SHORT a;
{
register SHORT ix=(x[a]-1)*16;
register SHORT iy=(y[a]-2)*16;
register SHORT b;
switch(a) {
	case 0: /* Player 1 fällt */
	ChangeSprite(vp,&pl1,&r1[1][0]);
	for(b=0;b<17;b+=2) {
		MoveSprite(vp,&pl1,ix,iy+b);
		WaitTOF();
		} /* End for b */
	break;
	case 1: /* Player 2 fällt */
	ChangeSprite(vp,&pl2,&r2[1][0]);
	for(b=0;b<17;b+=2) {
		MoveSprite(vp,&pl2,ix,iy+b);
		WaitTOF();
		} /* End for b */
	} /* End switch a */
rx=0;
ry=0;
y[a]++;
} /* End fallen() */

VOID leiter(a) /* Leiter hoch\runter gehen */
SHORT a;
{
register SHORT p;
switch(a) {
	case 0: /* Player 1 */
	for(p=0;p<17;p+=2) {
		ChangeSprite(vp,&pl1,&lt1[(p/2)%2][0]);
		MoveSprite(vp,&pl1,(x[0]-1)*16,(y[0]-2)*16+p*ry);
		WaitTOF(); 
		} /* End for p */
	y[0]+=ry;
	break;
	case 1: /* Player 2 */
	for(p=0;p<17;p+=2) {
		ChangeSprite(vp,&pl2,&lt2[(p/2)%2][0]);
		MoveSprite(vp,&pl2,(x[1]-1)*16,(y[1]-2)*16+p*ry);
		WaitTOF(); 
		} /* End for p */
	y[1]+=ry; 
	}
} /* End leiter() */