/*  ===========================================================
    ==                                                       ==
    ==   BIG INTRO FOR BOULDER DASH       ©1993-94-95        ==
    ==                                             v.0.2     ==
    =========LINK IN OBJECT MODULE============================= */
#include "INCLUDE:exec/types.h"
scena(rstport)
LONG rstport;
{
STATIC long h[]={
0,0,20,20,60,20,80,40,80,60,70,70,80,80,80,100,60,120,20,120,20,20,0,0,
120,20,140,20,160,40,160,100,140,120,120,120,100,100,100,40,120,20,0,0,
180,20,200,20,200,100,220,100,220,20,240,20,240,100,220,120,200,120,180,
100,180,20,0,0,
260,20,280,20,280,100,320,100,320,120,260,120,260,20,0,0,
340,20,380,20,400,40,400,100,380,120,340,120,340,20,0,0,
360,40,380,60,380,80,360,100,
360,40,0,0,
420,20,480,20,480,40,440,40,440,60,460,60,460,80,440,80,440,100,480,100,
480,120,420,120,420,20,0,0,
500,20,540,20,560,40,560,60,540,80,560,120,540,120,520,80,520,120,500,120,
500,20,0,0,
120,140,160,140,180,160,180,220,160,240,120,240,120,140,0,0,
140,160,160,180,
160,200,140,220,140,160,0,0,
200,140,260,140,260,240,240,240,240,200,220,200,220,240,
200,240,200,140,0,0,
280,140,340,140,340,160,300,160,300,180,340,180,340,240,
280,240,280,220,320,220,320,200,280,200,280,140,0,0,
360,140,380,140,380,180,400,180,400,140,420,140,
420,240,400,240,400,200,380,200,380,240,360,240,360,140,0,0,
480,200,500,140,540,140,480,200,0,0,
120,40,140,40,140,100,120,100,120,40,0,0,
40,40,60,40,60,60,40,60,40,40,0,0,40,80,60,80,60,100,40,100,40,80,0,0,
520,40,540,40,540,60,520,60,520,40,0,0,220,160,240,160,240,180,220,180,
220,160,
-1,-1,-1,-1};
STATIC char t[]=" BOULDER DASH 2.X by SAVELSOFTWARE. Internal version(03.18) ";
LONG n,c,x,y,i,j,il=60;
c=2;
/* pasiruosk(); */
SetRast(rstport,0L);
for(n=0;n<730;n+=3) {
SetAPen(rstport,c);
Move(rstport,n,0L); Draw(rstport,n,254L);
Move(rstport,n+1,0L); Draw(rstport,n+1,254L);
c++; if(c==8) {c=2;}
 }
for(n=0;n<254; n+=2) {
 SetAPen(rstport,c);
 Move(rstport,0L,n); Draw(rstport,730L,n);
 c++; if(c==8) {c=2;}
}
for(i=0;i<3;i++)
 {
  n=0; c=0; j=0;
  SetAPen(rstport,1L);
  while(j!=-1)
   {
    x=h[n]; y=h[n+1]; j=x;
    if(x==0) {c=0;}
    x+=i; y+=i;
    if(j>0)
     {
      if (c) {Draw(rstport,x+50,y);}
      if (!c) {Move(rstport,x+50,y); c=1;}
     }
    n++; n++;
   }
  DrawEllipse(rstport,510L+i,220L+i,13L,9L);
 }
SetAPen(rstport,1L); Move(rstport,80L,254L);
Text(rstport,t,il);
}