void MirrorSprite( Sprite *s )
{
if ( !s->flip_data )
s->flip_data=GetMirrorPic( s->picid );
if ( s->data == s->ori_data )
s->data = s->flip_data;
else
s->data = s->ori_data;
}
void RunLemm( void )
{
static int counter1=0;
static int blinkc=0;
int i;
int f;
int b;
Sprite *s;
int cursor_get=0;
int kab=0;
int hbk=0; // hat boden kontakt
//int hhy=0;
blinkc++;
if ( action==3 )
{
counter1=0;
action=4;
DrawSprite( deko[0] );
return;
}
if ( action==4 )
{
counter1++;
if ( counter1 < 24 )
return;
if ( to_rescue > lem_in )
{
FBDrawString( 252, 142, 64, "You lost !", WHITE, 0 );
FBDrawString( 250, 140, 64, "You lost !", RED, 0 );
}
else
{
level++;
if ( level>LASTLEVEL )
{
FBDrawString( 252, 142, 64, "all level solved", WHITE, 0 );
FBDrawString( 250, 140, 64, "all level solved", GREEN, 0 );
FBDrawString( 240, 250, 36, "thanx to emuman for his javacode,", WHITE, 0 );
FBDrawString( 240, 286, 36, "Psygnosis and DMA for artwork...", WHITE, 0 );
level=1;
doexit=2;
return;
}
else
{
FBDrawString( 252, 142, 64, "Level solved", WHITE, 0 );
FBDrawString( 250, 140, 64, "Level solved", GREEN, 0 );
}
}
if ( afunc != -1 )
FBCopyImage( (afunc+2)*32+32, 384, 32, 48, svdimage[afunc+2] );
action=5;
doexit=1;
}
if ( action != 2 )
{
DrawSprite( deko[0] );
return;
}
if ( pause )
{
UndrawSprite( deko[0] );
for( i=0; i<lem_run; i++ )
{
if ( !lemm[i] )
continue;
UndrawSprite( lemm[i] );
}
DrawSprite( deko[1] ); // ziel
DrawSprite( deko[2] ); // ziel
for( i=0; i<lem_run; i++ )
{
if ( !lemm[i] )
continue;
s=lemm[i];
if (( s->type & TYP_EXPLODE ) && ( s->countdown > 0 ))
{
DrawSimpleNumber( s->x-main_x, s->y-6, s->countdown, 1 );
}
SpriteGetBackground( s );
DrawSprite( s );
}
SpriteSelPic( deko[0], 0 );
SpriteGetBackground( deko[0] );
DrawSprite( deko[0] );
if ( blinkc%5 )
return;
if ( pause == 1 )
{
FBCopyImage( 10*32+32, 384, 32, 48, svdimage[10] );
pause=2;
}
else
{
FBDrawRect( 10*32+32, 384, 31, 47, BLUE );
FBDrawRect( 10*32+33, 385, 29, 45, BLUE );
pause=1;
}
return;
}
sel_sprite=-1;
if (( lem_run < lem_cnt ) && !( counter1%((newspeed/2)+3) ) && !killall )
{
lemm[ lem_run ] = CreateSprite(3,0,deko[1]->x+19,deko[1]->y);
lemm[ lem_run ]->dir=0; // rechts
lemm[ lem_run ]->type = TYP_WALKER;
in_level++;
lem_run++;
DrawInfo(1);
}
if ( in_level )
UndrawSprite( deko[0] );
for( i=0; i<lem_run; i++ )
{
if ( !lemm[i] )
continue;
s=lemm[i];
if ( s->type & TYP_EXPLODE )
restorecd( i );
else if (( s->type & TYP_FALLEN ) && s->partikel )
restorecd( i );
UndrawSprite( s );
s->counter1++;
if ( !( s->counter1 % 10 ) && ( s->type & TYP_EXPLODE ) )
{
s->countdown--;
if ( s->countdown == -1 )
{
s->counter1=0;
bg2CopyImage( s->x-7, s->y-4, 21, 21, pbomb );
CopyBg2Screen( s->x-7,s->y-4, 21, 21);
}
}
if (( s->counter1 == 2 ) && ( s->type & TYP_STOPPER ) &&
!( s->type & TYP_EXPLODE ))
bgRect( s->x+1, s->y, s->width-1, s->height-2, 150 );
}
// DrawSprite( deko[2] ); // ziel
UnanimatedDeko();
for( i=0; i<lem_run; i++ )
{
if ( !lemm[i] )
continue;
s=lemm[i];
if ( killall && !kab )
{
if ( !(s->type & TYP_EXPLODE ) )
{
s->type |= TYP_EXPLODE;
s->counter1=1;
kab++;
}
}
if ( (s->countdown==-1) && ( s->type & TYP_EXPLODE ) )
{
s->partikel=1;
partikel(i,1);
}
if ( !( s->counter1 % 10 ) && ( s->type & TYP_EXPLODE ) )
{
if ( s->countdown == -1 )
{
s->y-=4;
s->x-=4;
SpriteChangePic( s, 8 ); // explosion
SpriteGetBackground( s );
DrawSprite(s);
SoundPlay( SND_EXPLODE );
}
if ( s->countdown == -2 )
{
partikel(i,0);
killlem( i );
s=0;
DrawInfo(1);
}
}
if ( s && ( s->countdown < 0 ))
s=0;
if ( s && ( s->type & TYP_FALLEN ) )
{
if ( s->counter1 < 10 )
{
s->partikel=1;
partikel(i,1);
}
else
{
killlem( i );
DrawInfo(1);
}
s=0;
}
if ( s&&(s->countdown>0) )
{
SpriteNextPic( s );
if ( s->type&TYP_ATHOME )
{
s->y-=1;
if(s->ani==4)
{
lem_in++;
killlem(i);
SoundPlay( SND_OING );
DrawInfo(3);
}
}
else
{ /* lemming im ziel ? */
if((s->x==haus_x)&&(s->y>haus_y1)&&
(s->y<haus_y2))
{
s->type=TYP_ATHOME;
s->counter2=0;
SpriteChangePic( s, 6 ); // lemming4
}
else
{ /* kein bodenkontakt ? */
switch( s->type & TYP_WORK )
{
case TYP_WALKER :
case TYP_DIGDOWN :
hbk=isBrick(s->x+1,s->y+s->height,0)||
isBrick(s->x-2+s->width,s->y+s->height,0);
break;
case TYP_STOPPER :
hbk=isBrick(s->x+1,s->y+s->height+1,0)||
isBrick(s->x-2+s->width,s->y+s->height+1,0);
break;
case TYP_DIGDIAG :
hbk=isBrick(s->x+10,s->y+s->height-2,0)||
isBrick(s->x+11,s->y+s->height-2,0);
break;
case TYP_BUILDER :
hbk=1;
break;
}
if ( !hbk )
{
#if 0
if ( s->type & TYP_DIGDIAG )
{
hhy=s->y+s->height-2;
printf("kein boden on %d, %d\n",s->x,s->y+s->height);
}
#endif
if( !( s->type&TYP_WALKER ) )
{
switch( s->type & TYP_WORK )
{
case TYP_STOPPER :
bgRect(s->x+1,s->y,s->width-1,s->height-2,14);
break;
case TYP_DIGDIAG :
s->y+=5;
if ( !s->dir )
s->x+=7;
break;
case TYP_DIGDOWN :
s->y+=2;
break;
}
s->type=TYP_WALKER|(s->type&TYP_UTILS);
SpriteChangePic( s, 3 ); // lemming1-faller
if ( s->dir )
MirrorSprite( s );
}
// freier fall
s->y += 2;
s->counter2++;
// aus bild gefallen
if(s->y>=160)
{
SoundPlay( SND_DIE );
killlem(i);
DrawInfo(1);
}
}
else
{
if(s->type&TYP_WALKER)
{ /* aufgeschlagen */
if(s->counter2>=40)
{
s->counter1=0;
s->type=TYP_FALLEN;
SoundPlay( SND_DIE );
s->partikel=1;
partikel(i,1);
s=0;
}
else
{ /* wieder auf boden */
s->counter2=0;
/* laeufer - getestet wird oben */
if((isBrick(s->x,s->y+1,1)&&
(s->dir==1))||
(isBrick(s->x+s->width,s->y+1,1)&&
(s->dir==0)))
{
MirrorSprite( s );
s->dir^=1;
}
else
{
s->x += (s->dir?-1:1);
if ( s->dir )
{
for(b=8;b>0;b--)
{
if(isBrick(s->x,
s->y+s->height-b,0))
{
s->y-=1;
b=0;
}
}
}
else
{
for(b=8;b>0;b--)
{
if(isBrick(s->x+s->width,
s->y+s->height-b,0))
{
s->y-=1;
b=0;
}
}
}
}
} /* else, kein matsch */
} /** walker **/
else if(s&&(s->type&TYP_BUILDER))
{
unsigned char c=118; // stair
if ( !s->ani )
{
s->counter2++;
s->y--;
if ( s->counter2 != 13 )
{
if ( s->dir )
{
s->x-=2;
bghLine(s->x+2,s->y+s->height,6,&c,1);
CopyBg2Screen( s->x+2,s->y+s->height,6,1);
if ( isBrick(s->x+1,s->y+2,1) )
{
s->y+=2;
s->dir=0;
s->counter2=13;
}
}
else
{
s->x+=2;
bghLine(s->x+1,s->y+s->height,6,&c,1);
CopyBg2Screen( s->x+1,s->y+s->height,6,1);
if ( isBrick(s->x+s->width,s->y+2,1) )
{
s->y+=2;
s->dir=1;
s->counter2=13;
}
}
}
if ( s->counter2 == 12 )
{
s->y+=2;
SpriteChangePic( s, 32 );//keinesteine
if ( s->dir )
MirrorSprite( s );
}
if ( s->counter2 == 13 )
{
s->type&=TYP_UTILS;
s->type|=TYP_WALKER;
SpriteChangePic( s, 3 );// lemming1
if ( s->dir )
MirrorSprite( s );
}
}
}
else if(s&&(s->type&TYP_DIGDOWN))
{
if(!(s->counter1%8))
{
if(s->y<160)
{
bgRect( s->x+1, s->y+4, 10,
8-max(0,s->y-152), STEELBLUE );
s->y+=1;
cursor_get=1;
}
}
} /* digger */
else if(s&&(s->type&TYP_DIGDIAG))
{
if ( s->ani == 8 )
{
if ( s->dir )
{
unsigned char *data = GetMirrorPic(34);
bg2CopyImage(s->x+1,s->y+2,6,14,data);
}
else
{
inBg(34,0,s->x+11,s->y+2);
}
}
if ( !s->ani )
{
s->y+=1;
if ( s->dir )
s->x-=2;
else
s->x+=2;
}
}
} /* freier fall */
} /* nicht am ziel */
} /* countdown */
if ( s&&(level==5) )
{ /* ab ins feuer ? */
for( f=5; f<11; f++ )
{
if ( SpriteCollide( deko[f], s->x+s->width, s->y ) )
{
SoundPlay( SND_DIE );
killlem(i);
s=0;
break;
}
}
}
} /* typ-fallen */
if ( !lemm[i] || !s )
continue;
if (( s->type & TYP_EXPLODE ) && ( s->countdown > 0 ))
{
DrawSimpleNumber( s->x-main_x, s->y-6, s->countdown, 1 );
}
SpriteGetBackground( s );
DrawSprite( s );
if ( SpriteCollide( s, deko[0]->x+7, deko[0]->y+7 ) )
{
sel_sprite=i;
}
}
if ( cursor_get )
SpriteGetBackground( deko[0] );
if ( sel_sprite != -1 )
{
SpriteSelPic( deko[0], 1 );
}
else
{
SpriteSelPic( deko[0], 0 );
}
DrawSprite( deko[0] );
#if 0
if ( hhy )
FBDrawLine(32,hhy+hhy+32,656,hhy+hhy+32,RED);
#endif
counter1++;
}
