[大一院软件设计比赛第三名]software competition

#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#include
#define zi 45
#define jz float
#define j2 int
#define green 19
#define vd void
#define cv cv6 char far *vn6=(char far *)0xA0000000L;
#define cv1 cv6 char far *vn5=(char far *)0xF000FA6EL;
#define cv2 display
#define cv3 putpixel
#define cv4 delay
#define cv5 DELAY
#define cv6 unsigned
#define cv7 clicks
#define cv8 0x0000046CL
#define cv9 first_character
#define vb cleardevice
#define vb1 second_character
#define vb2 third_character
#define vb3 fourth
#define vb4 move1
#define vb5 gdriver
#define vb6 gmode
#define vb7 VGAHI
#define vb8 "c:\\turboc2"
#define vb9 initgraph
#define vn Blit_Char
#define vn1 trans_flag
#define vn2 offset
#define vn3 work_char
#define vn4 bit_mask
#define vn5 rom_char_set
#define vn6 video_buffer
#define vn7 Blit_String
#define vn8 index
#define vn9 string
#define vm Set_Video_Mode
#define vm1 show_east_character
#define vm2 inregs.h.ah
#define vm3 inregs.h.al
#define yyehhh "So Said So Done ",1);
#define coooo closegraph();
#define jo wall_change_line

 

 

 

       jz wl=                318.0                  ;j2               an=1;jz ik=279.5
      ,ij=80.0           ;jz       lt=         145       ;jz          lt1=145
      ;jz lt2=         145;         jz ls    =145          ;jz        m1=145
        ;jz wz       =145           ;j2 wq  =0;jz           we=0      ;jz wr
         =0;jz      wt=0;           jz wy  =0;jz             wu=0;    j2 wi
         =0;j2      wp=265          ;j2 ws  =0;j2           wd=0;     jz wu1
         =0;jz        wf=0;        jz wg     =0;j2        wj=0;       j2 wk
         =267;          j2 wx      =198;          j2 ws1=0;           j2 wc=363,wv=198;
         j2 wb            =0;j2 wm=0;jz              wm1=                         269;jz
         wm2=                    365;jz         wm3=       271;                    jz wm4
         =363;                  jz wm5       =114;           jz wm6                 = 200 ;
        jz wm7                  = 114;     jz wm8              =198;                jz wm9
        = 113;                jz qw =      200;jz               qw1=                114;jz
        qw2 =                 200; j2       qw3 =               1;j2                 qw4 =
        180  ;               jz  qw5          =640;           jz qw6                 =0; jz
        qw7=0;             jz qw8=0;          jz qw9         =0;jz                  qe=0;jz
        qe1=0;           j2 qe2=1;j2             qe3=0;   j2 qe4         =0;long j2 qe5=0;j2
      qe6=0;j2        qe7=120,qe8=250            ,qe9=311;j2 qr=252     ,qr1=480;j2 qr2=250
    ,qr3=380,qr4   =0,qr5=640,qr6=640             ;j2 il1=640,      il2=640,il4=640;jz il3

 

            =640,                              il5=
              640,       il6                     =640       ,il7
         =0,il8             =604,            il9=                620;
             jz im21                 =478,        im22                    =559,
             ia1=280                 ,ia2=        280 ;                    j2 iz1
           =603,iz2=                 530,iz3   =603,iz4                    =620,iz5

 

 

 

 

        =640,                                          iz7=
          620,                                       iz8=
            640;                                  jz iz6
             =72,                               iz9=
        133;                         j2 qr7
         =380,                      qr8=
            529,                  qt=380
             ,qt1                =477;
                 j2 i9=0;jz iv=90,
          iv1=115,iv2=0,iv3

 

=115,iv4=240,iv5=90,iv6=480,qt2=0,iw2=0,qt3=0;jz iv7=400,iv8=90,iv9=115,iw=0,iw1=0;jz ic1=0,ic2=0,
ic3=0,ic4=0,ic5=0,ic6=0,ic7=0,ic8=0,ic9=0;   jz ih=0,ih1=0,ih2=0,ih3=0;j2 size,size1,size2;vd *buf,
*buf1,*buf2;cv cv1 vd cv2(j2 x,j2 y,j2 no,   j2 color,j2 h){static cv6 char cc_code_data[1280]={
0x07,0xc0,0x08,0x20,0x10,0x10,0x10,0x10,       0x10,0x20,0x00,0x40,0x00,0x80,0x01,0x00,0x02,0x00,
0x04,0x00,0x08,0x00,0x10,0x00,0x10,0x00,       0x10,0x00,0x10,0x00,0x1f,0xf0,0x07,0xe0,0x08,0x10,
0x08,0x10,0x08,0x10,0x08,0x10,0x08,0x10,       0x08,0x10,0x08,0x10,0x08,0x10,0x08,0x10,0x08,0x10,
0x08,0x10,0x08,0x10,0x08,0x10,0x08,0x10,       0x07,0xe0,0x07,0xe0,0x08,0x20,0x08,0x00,0x08,0x00,
0x08,0x00,0x08,0x00,0x0f,0xc0,0x00,0x20,       0x00,0x20,0x00,0x20,0x00,0x20,0x08,0x20,0x08,0x20,
0x08,0x20,0x08,0x20,0x0f,0xc0,0x04,0x00,       0x0f,0xfc,0x10,0x80,0x27,0xf0,0x44,0x80,0x04,0x80,
0x04,0x80,0xff,0xff,0x00,0x80,0x00,0x80,       0x00,0x80,0x00,0x80,0x00,0x80,0x00,0x80,0x00,0x80,
0x00,0x80,0x04,0x20,0x04,0x20,0x04,0x20,       0x04,0x20,0x3f,0xfc,0x04,0x20,0x07,0xe0,0x04,0x20,
  0x07,0xe0,0x01,                                                    0x00,0x7f,0xfe,0x05,0x80,
0x09,0x40,0x11,                                                        0x20,0x21,0x18,0x41,0x04,
0x00,0x00,0x00,     0x00,0x0f,0xf0,0x08,       0x10,0x08,0x10,0x08,     0x10,0x08,0x10,0x0f,0xf0,
0x08,0x10,0x08,     0x10,0x08,0x10,0x08,       0x10,0x08,0x10,0x08,     0x10,0x0f,0xf0,0x00,0x00,
0x00,0x40,0x00,     0x80,0x01,0x00,0xff,       0xff,0x04,0x00,0x07,     0xf0,0x0c,0x10,0x17,0xf0,
0x24,0x10,0x44,     0x10,0x87,0xf0,0x04,       0x10,0x04,0x10,0x04,     0x50,0x04,0x30,0x04,0x10,
0x00,0x00,0x00,     0x00,0x00,0x00,0x00,       0x00,0x00,0x00,0x00,     0x00,0x00,0x00,0x00,0x00,
 0x3f,0xfc,0x00,                                                       0x00,0x00,0x00,0x00,0x00,
  0x00,0x00,0x00,                                                     0x00,0x00,0x00,0x00,0x00,
0x00,0x80,0x10,0x80,0x10,0x00,0x30,0x00,       0xd7,0xfc,0x11,0x10,0x11,0x10,0x11,0x10,0x11,0x10,
0x11,0x10,0x11,0x10,0x11,0x10,0x11,0x10,       0x11,0x10,0x11,0x10,0x17,0xfc,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,       0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
0x00,0x00,0x00,0x00,0x00,0x00,0x03,0x80,       0x03,0x80,0x00,0xc0,0x01,0x40,0x02,0x40,0x04,0x40,
0x08,0x40,0x10,0x40,0x20,0x40,0x20,0x40,       0x3f,0xf8,0x00,0x40,0x00,0x40,0x00,0x40,0x00,0x40,
0x00,0x40,0x00,0x40,0x00,0x40,0x07,0xfc,       0x04,0x04,0x04,0x04,0x07,0xfc,0x04,0x00,0x08,0x40,
0x08,0x40,0x10,0x40,0x10,0x40,0x27,0xfc,       0x24,0x44,0x44,0x44,0xc7,0xfc,0x84,0x44,0x04,0x44,
0x07,0xfc,0x00,0x00,0xf8,0x9f,0x20,0x84,       0x20,0x84,0x20,0x84,0x22,0x84,0x22,0x84,0xfa,0x9f,
0x20,0x84,0x20,0x84,0x20,0x84,0x20,0x84,       0x20,0x84,0xfd,0x3f,0x00,0x00,0x00,0x00,0x03,0x00,
0x01,0x00,0x00,0x80,0x0f,0xf0,0x01,0x00,       0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x00,0x1f,0xf0,
0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x00,       0x01,0x00,0x3f,0xfc,0x04,0x08,0x08,0x10,0x10,0x20,
0x30,0x60,0x50,0xa0,0x90,0x20,0x17,0xfe,       0x10,0x20,0x10,0x20,0x10,0x20,0x10,0x20,0x10,0x20,
0x10,0x20,0x10,0x20,0x11,0xfc,0x00,0x00,       0x00,0x00,0x42,0x08,0x21,0x10,0x13,0xf8,0xf2,0x08,
0x12,0x08,0x13,0xf8,0x11,0x20,0x11,0x20,       0x11,0x20,0x11,0x20,0x11,0x20,0x15,0x20,0x1a,0x22,
0x14,0x22,0x08,0x3e,0x08,0x20,0x18,0x24,       0x28,0x22,0x48,0x21,0x08,0x20,0xff,0xff,0x08,0x20,
0x0c,0x20,0x08,0x24,0x18,0x24,0x28,0x28,       0x48,0x30,0x08,0x20,0x08,0x51,0x50,0x0a,0x20,0x04,
0x04,0x00,0x08,0x00,0x12,0x00,0x32,0x40,       0x52,0x40,0x97,0xfc,0x12,0x44,0x12,0x44,0x12,0x44,
0x12,0x44,0x12,0x44,0x12,0x14,0x12,0x0c,       0x12,0x01,0x12,0x01,0x13,0xff,0x09,0x00,0x11,0x00,
 0x20,0x80,0x64,0x3c,0xa4,0x04,0x24,0x04,     0x24,0x04,0x24,0x04,0x24,0x04,0x24,0x04,0x24,0x04,0x24,
  0x04,0x24,0x04,0x24,0x14,0x24,0x0c,0x24,   0x04,0x07,0xf0,0x04,0x10,0x07,0xf0,0x04,0x10,0x07,0xf0,
0x00,0x00,0xff,0xff,0x22,0x00,0x3e,0xfe,0x22,0x44,0x3e,0x28,0x22,0x10,0xfe,0x28,0x02,0x44,0x02,
  0x82,0x02,0x00,                                                   0x08,0xf8,0x08,0x08,0x08,
 0x08,0x10,0x10,                                                     0xfe,0x20,0x23,0xff,0x40,
0x20,0x44,0x20,     0x84,0x20,0x84,0x20,0x48,0x20,0x30,0x20,0x30,     0x20,0x48,0xa0,0x84,0x60,
0x02,0x20,0x00,     0x20,0x08,0x40,0x10,0x80,0x21,0x00,0xfd,0xfc,     0x84,0x04,0x84,0x04,0x84,
0x44,0x84,0x24,     0xfc,0x14,0x84,0x04,0x84,0x04,0x84,0x04,0x84,     0x04,0x84,0x04,0xfc,0x3c,
0x00,0x00,0x00,     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,     0x00,0x00,0x00,0x00,0x3f,
0xfc,0x00,0x00,     0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,     0x00,0x00,0x00,0x03,0x80,
0x05,0x40,0x09,     0x20,                                   0x11,     0x10,0x21,0x08,0x41,0x04,
0x81,0x02,0x01,     0x00,                                   0x01,     0x00,0x01,0x00,0x01,0x00,
0x01,0x00,0x01,     0x00,0x01,0x00,0x01,     0x00,0x01,0x00,0x03,     0xf0,0x02,0x10,0x03,0xf0,
0x02,0x10,0x03,     0xf0,0x00,0x00,0xff,     0xff,0x04,0x80,0x04,     0x80,0x08,0xf0,0x0c,0x80,
0x12,0x80,0x21,     0x80,0x40,0x80,0x80,     0x40,0x00,0x3f,0x04,     0x20,0x02,0x40,0x01,0x80,
0x03,0xc0,0x01,     0x00,0x07,0xe0,0x02,     0x00,0x3f,0xfc,0x04,     0x00,0x0f,0xf0,0x10,0x80,
0x20,0x80,0x40,     0x80,0x80,0x80,0x00,     0x80,0x0f,0xfc,0x03,     0x80,0x02,0x40,0x04,0x20,
0x08,0x10,0x10,     0x08,0x21,0x04,0x40,     0x82,0x80,0x41,0x0f,     0xf8,0x00,0x10,0x00,0x20,
0x00,0x40,0x00,     0x80,                                   0x01,     0x00,0x02,0x00,0x04,0x00,
0x0f,0xf0,0x01,     0x80,                                   0x01,     0x80,0x01,0x80,0x01,0x80,
0xff,0xff,0x01,     0x80,0x01,0x80,0x01,     0x80,0x02,0x40,0x04,     0x20,0x08,0x10,0x10,0x08,
0x20,0x04,0x40,     0x02,0x80,0x01,0xff,     0xfe,0x80,0x02,0x80,     0x02,0xc1,0x86,0xa2,0x4a,
0x94,0x32,0x98,     0x32,0x94,0x4a,0xa2,     0x86,0xc1,0x02,0x80,     0x02,0x80,0x02,0x80,0x02,
0x80,0x0a,0x80,     0x06,0x80,0x02,0x08,     0x10,0x10,     0x20,     0x20,0x40,0x44,0x80,0x81,
0xfc,0xf9,0x08,     0x10,0x90,0x20,0x60,     0x48,0x60,     0xf4,     0x90,0x09,0x08,0x12,0xfc,
0x24,0x8a,0x48,     0x89,0x80,0x88,0x00,     0xf8,0x00,     0x00,     0x08,0x80,0x09,0x00,0x0a,
0x00,0x0c,0x00,     0xff,0xff,0x0c,0x00,     0x0a,0x00,0x09,0x00,     0x08,0x80,0x08,0x40,0x08,
0x20,0x08,0x10,     0x0a,0x08,0x0c,0x04,     0x08,0x00,0x40,0x00,     0x27,0xff,0x70,0x10,0x90,
0x10,0x10,0x10,     0x10,0x10,0x10,0x1e,     0x10,0x10,0x11,0x10,     0x11,0x10,0x11,0x10,0x11,
0x10,0x11,0x10,     0x15,                                   0x10,     0x19,0x10,0x17,0xff,0x00,
0xff,0x00,0x81,     0x00,                                   0x81,     0xfc,0xff,0x84,0x81,0x84,
0x81,0x84,0x81,     0xfc,0xff,0x84,0x81,0x84,0x81,0x84,0x81,0xfc,     0x81,0x00,0x81,0x01,0x05,
0x02,0x03,0x04,     0x01,0x10,0x20,0x40,0x20,0x23,0xff,0xfd,0x02,     0x08,0x84,0x10,0x48,0x20,
0x30,0x40,0x30,     0xfc,0x48,0x08,0x84,0x11,0x02,0x22,0x01,0x44,     0x01,0x80,0x00,0x80,0x00,
0xff,0xff,0xff,     0xff,0x03,0x80,0x05,0x40,0x09,0x20,0x11,0x10,     0x21,0x08,0x41,0x04,0x81,
0x02,0x81,0x01,     0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x00,0x01,     0x00,0x01,0x00,0x01,0x00,
 0xff,0xff,0x00,                                                     0x10,0x00,0x10,0x3f,0x10,
   0x21,0x10,0x21,                                                 0x10,0x21,0x10,0x21,0x10,
0x3f,0x10,0x00,0x10,0x00,0x10,0x00,0x10,0x00,0x90,0x00,0x50,0x00,0x30,0x00,0x30,0x10,0x32,0x20,0x44,0x48,0x48,
0x84,0x50,0xfe,0x61,0x00,0x41,0xfe,0x7f,0x81,0x00,0xfe,0x40,0x82,0x42,0x82,0x44,0xfe,0x48,0x82,
0x50,0x82,0x61,0x8a,0x41,0x86,0x7f,0xfc,0x04,0x88,0x08,0x91,0xff,0xa0,0x20,0xc0,0x40,0xfc,0x90,
0x89,0xff,0x90,0x10,0xa0,0x10,0xc0,0x94,0x81,0x12,0x82,0x11,0x80,0x10,0x80,0x10,0x80,0x50,0x80,
0x30,0x00,0x00,0x00,0x00,0x01,0x00,0x01,0x00,0x81,0x01,0x41,0x02,0x21,0x04,0x11,0x08,0x00,0x00,
0xff,0xff,0x04,0x40,0x08,0x20,0x10,0x10,0x20,0x08,0x40,0x04,0x80,0x02,0x0c,0x00,0x18,0x40,0x28,
0x44,0x48,0x48,0x88,0x50,0x08,0x61,0x08,0xc1,0x08,0x7f,0x01,0x00,0xff,0xff,0x01,0x00,0x01,0x00,
0x01,0x00,0x01,0x00,0x01,0x00,0x01,0x00,};

       cv6  char                           *c,*p,num[512];j2 i,j,k,a,b ,xx
       ;long  j2                         d;c=cc_code_data;c+=32*no;p=num;
       for( i=0;                        i< 16;i++){for(j=0;j <2;j++){a=*
       c++;d= 0;                      for(k=0;k
       <8;k++) {                      if(a&128)
       d+=7;a<<=                      1;d<<=3;}
       d>>=3;*p=                      *(p+6)=*(        p+12)=d>>16;b=d;p++;
       *p=*(p+6)                      =*(p+12)=      b>>8;p++;*p=*(p+6)=*
       (p+12)=b&                      255;p++;}     p+=12;}p  =num;xx=x;
       for(i=0;i                      <16*3;i++
     ){for(j=0;j<2*3  ;j++){a=*p             ++;for(k=
  0;k<8;k++){if(a&128)cv3(x,y,color          );a<<=1;x++;if( h==1)cv4(50);}}x=xx;y++;
 }}vd cv5(j2 cv7){cv6 j2 far*clock=(         cv6 j2 far*)cv8;cv6 j2 now ; now=*clock;
       while(abs                      (* clock-now )       {cv2 (50,                     100,0,11,0)   ;cv5(30);
       cv2 ( 80,                     100,1,10,0)   ;cv5(10);   cv2(110,
       100,1,10,                     0);cv5(10)    ;cv2(140,    100,2,11
       ,0);cv5(3                     );cv2 (200    ,100,3,15,    0);cv5(3
       );cv2(260                     ,100,4,15,    0);cv5(3);     cv2(320,
       100,5,15,                     0);cv5(3 )    ; cv2 (50,      100,0,10,
       0);cv5(2);                    cv2(80,100    ,1,10,0) ;       cv5 (2 );
       cv2 ( 110,                    100,1,10,0    ); cv5(2);        cv2( 140,              100,2
       ,10,0);cv5                    (2 ) ;cv2(    200,100,3,         14,0);cv5          (2);cv2(
       260,100,4,       14,0);       cv5( 2  );    cv2 ( 320,           100,5,14,     0);cv5( 2);
       cv2 ( 360,   100,9,9,0);      cv5(2);cv2    (380,100,9            ,9,0);cv5(2);cv2(400
       ,100,9,9,0 );cv5(2);          cv2 ( 420,    100,9,9,0)        ;cv5 ( 2);cv2(440,100
       ,9, 9,0 );cv5(2);             vb() ; }vd    vb1(vd  ){   j2 i; cv2(90,100,6,2,0)
       ;cv5 ( 2);cv2                 (150,100,7    ,2,0);cv5(              2);cv2 ( 210,
    100,8,2,0);cv5                   ( 2); cv2(    270,100, 1,               15,0);cv5(2);
 cv2(310,100,10,15                   ,0);cv5(2);   cv2(360,100                 ,11,2,0);cv5(2);
 cv2(30,200,12,2,0);cv5                     (2);cv2(90,   195,13,2, 0                   );cv5(2);cv2(140
      ,199,14, 2,                    0);cv5(2 );   cv2(200,196              ,15,2  ,0);cv5(2);}vd vb2
      (vd){j2 i,k                    =4;for(i=1;   i<= 2; i++)            {cv2(30   ,280,17,k,1);cv2(90
      ,280,18,k,1                   );cv2 (150,    284,12,k,1);         cv2(213,283,  19,k,1);cv2(280,283
,25,k        , 1) ;cv2 (                  345,282,21,     k,1) ; cv2(         405,282,22,    k,1);cv2(470,284,23,k,
1);cv2       (535,284,24                 ,k,1) ;cv2(      30,370,16,k       ,1) ; cv2(90,      370,18,k, 1) ;cv2(150,
370,12,k     ,1);cv2(213,               370,19,k,1)       ;cv2 ( 280,     370,20,k,1);cv2      (345,370,21 ,k,1 );cv2
(405,370,22  ,k,1 ) ;cv2               (470,370,23        ,k,1);k=14;  }vb();}vd vb3(vd){        j2 i ;for( i= 0;i<2;i
 ++)cv2(20,60,26,10 ,1 );             cv2 (83, 60,        27,10,1);cv2(150,60,16,10,1);         cv2 ( 219, 60 ,  28, 10 ,
  1);cv2(285,62,29,10,1)            ;cv2(340,60,1         ,15,1);cv2(373,60,10, 15,            1 ) ; cv2 (405 ,60, 0,15,
    1);cv2(455,65,12,10           ,1);cv2(520,63            ,30,10,1);cv2(18,160,             31,10,1);cv2(83,162,32,10,
      1);cv2(190,163,33,       15,1); cv2( 258,                163,24,15,1);              cv2(331,165,34,15,1);cv2(400
   ,165,35,15,1);  cv2(470,164,36,15,1)                  ;for(i=0;i<5           ;i++)cv2(543,164,21,15,1);}

 

 

      vd vb4 (vd){                       j2 vb5 ,vb6 ;                           vb5 =  VGA ;
             vb6= vb7;vb9                       (&vb5 , & vb6                           ,vb8);cv9 ();
             vb1();vb2();                       vb3();}vd vn(                           j2 xc, j2 yc,
             char c,   j2                       color,j2 vn1)                           {j2 vn2,x ,y;
             char far *vn3                      ;cv6 char vn4                           =0x80;vn3=vn5
             +c*8;vn2= (yc                      <<8)+(yc<<6)+                           xc;for(y=0;y<8
              ;y++ ) {vn4=                      0x80;for(x=0;                          x<8;x++){if ((*
        vn3 & vn4 ))                     vn6 [ vn2+x]=                         color;else if (
  !vn1)vn6[vn2                    +x]=0;vn4=(vn4                       >>1);}vn2+=320;
    vn3 ++ ; }}                   vd vn7(j2 x,j2                      y,j2 color,char
    *vn9,j2 vn1)                  {j2 vn8  ;for(                      vn8=0;vn9[vn8]
    !=0;vn8++ ){                  vn(x+(vn8<<3),                     y,vn9[vn8],color
    ,vn1);}}vd vm                 (j2 mode){union                   REGS inregs,outregs
    ;vm2=0;vm3 =(                 cv6 char)mode;                    int86(0x10,&inregs,
    &outregs);}vd                 vm1(){vm(19);vn7                  (90,100,5, yyehhh
    cv5(40);coooo                 }vd character(j2                  x,j2 y,j2 bei_shu
    ){j2 i=9;char                 *cici[]={"1","2"                 ,"3","4","5", "6",
 "7","8","9 ","10"};settextjustify(CENTER_TEXT,CENTER_TEXT);settextstyle(DEFAULT_FONT,HORIZ_DIR,bei_shu);outtextxy(x,y,
cici[9]);cv5(20);for(;i>=0;i--){setcolor(i+38);outtextxy(x,y,cici[i]);cv5(7);vb();}}main(){j2 vb5,vb6,i;vd linux(vd) ;
vd  den_shan();vd terra();vd start_moive();vd right_wall();vd j2erface_door();vd door();vd test();vd middle_line_all();vd
bar1_cover();vd a1();vd a2();vd a3();vd big_light();vd a4();vd l();vd(*p)();vd (*den)();vd (*terra1)();vd (*start_moive1)
        ();vd (*right_wall1)();vd (*j2erface_door1)();vd (*door1)();vd (*test1)();vb4();vm1();vb5=DETECT;vb6;
               registerbgidriver ( IBM8514_driver ); vb9(  & vb5,& vb6, vb8);  character(320,200,15);

 

 

                       p=linux;(*p)();                                          setbkcolor(0);
                       terra1 =terra ;                                          den =den_shan;
                       start_moive1 =                                           start_moive  ;
                      right_wall1 =                                               right_wall ;
                   j2erface_door1=                                                  j2erface_door ;
                 door1 = door  ;                                                       test1 = test ;
              (*den)();cv5(2);                                                           setbkcolor(8);
            (*terra1 ) () ;(*                                                              start_moive1)();
         ( *right_wall1 )( );                                                               (*j2erface_door1)();
       (*door)();cv5(5 ) ;(*                                                                  test1)();middle_line_all
    ();bar1_cover();a1();                                                                       a2();a3();big_light();a4();

 

 

 

 

            coooo l();
                                                 getch();}vd wall(j2 x)
                                             {setcolor(7);setfillstyle(1,7);
                                                 bar ( 0,0,317+x, 480);
                                                 bar( 321-x,0,640,480);
                                                 }vd camellialinux(vd)
                                                 {if(an>=12){while(wl<=
                                                 320.0){line(wl,280,wl,
                                                 ik);line(wl,0,wl, ij);
                                                 if(an>=8)if(an>=30)if(
                                                 an>=32){ik-=0.35; ij+=
                                                 0.35;}else;else{ ik-=
                                                 0.59;ij+=0.59;}wl+=0.5;
                                                 }}}vd image(vd){j2 i=
                                                 250 ; setcolor ( 7 ) ;
                                                 setfillstyle( 1 , 7 );
   setcolor(0);setlinestyle(0,1,1);for(;i>180;i--){ an++;cv5( 1);putimage(i,80,buf, COPY_PUT);wl=318;camellialinux();cv5(
   0.3);}}vd linux(vd){static j2 c[10];j2 *num[10]={&c[0],&c[1], &c[2],&c[3],&c [4],&c[5],&c[6],&c[7],&c[8],&c[9]} ;j2
    **p,i=0;j2 x=3;wall(0);{j2 a[]={293,80,277,130, 277,230,293,280,327,280, 343,230,343,130,327,80,293,80};j2 b[ ]={
      298,85,282,135,282,225,298,275, 322,275,337,225,338,135,322,85,298,85}; setcolor(24);setfillstyle( 1 , 24 ) ;
       fillpoly(9,a);setcolor( 34);setfillstyle(1,34) ;fillpoly(9,b);} setcolor(20);setfillstyle(1,24);bar(360,155
 ,410,205);setcolor(1);                    circle( 310, 180,60);                        setfillstyle ( 1,1);
 floodfill(310,180,1);                     setcolor(25);circle (                        310  , 180 ,  53 ) ;
 setfillstyle (1,25 );                     floodfill(310,180,25)                        ;  setcolor ( 43 ) ;
 setfillstyle( 1,43 );                     bar(270,160,350,206 );                       setcolor(31);rectangle
 (270+5,160+5,350 -5 ,                     206-5);setfillstyle(1,                       31);floodfill(300,190,
 31 ) ; setcolor ( 1);                     rectangle(270+5,160+5,                       350-5,206-5);setcolor(
 41 ) ; while( x<= 24)                     {moveto(276+10,158+x +                       10);linerel(0,2);moveto
 (276+10+23,158+x+10);                     linerel(0,2);moveto(276                      +10,158+x+10);linerel(
  23,0);x+=3;}moveto(276                   +10,158+x+10);linerel(                      23,0);setlinestyle(0,1,
   1);setcolor(1);moveto(                  270,160);linerel( 5,5);                   moveto(350,206);linerel
    (-5,-5);moveto(270,206);               linerel( 5, -5);moveto(                  350,160);linerel(-5,5);
     {j2 j=0,i,z=20,*p,y=green;            p=&i;while(j<11){if(z%2                ==0)*p=zi;else *p = 42;
       setfillstyle(1,*p ); bar(           324,175,335,179);if(j==              10)y=RED ; setfillstyle(1
        ,y);bar ( 324,185,335,189);        cv5(10);z--;j++;}}p=num;            while(i<39){** p=410- i;
   **(p+1)=155;** ( p+2)=410-i;     **(p+3)=205;**(p+4)=420;        **(p+5)=205;** ( p+6 )= 420;
    **(p+7)=155;**(p+8)=410;**(p+9)=155;i+=1;cv5(1);setcolor(7);setfillstyle(1,7);fillpoly(5,c);
     }{j2 i=320,*p,count=1;p=&i;setcolor(7);while(count<=8){arc(*p-count,180,320,40,60);count++
      ;cv5(2);}}size1=imagesize(255,80,385,280);buf1=malloc(size1);getimage(255,80,385,280,buf1
        );size=imagesize(250,80,380,280);buf=malloc( size) ;size= setgraphbufsize( 99999999 );
         getimage(250,80,374,280,buf);image();vb();{j2 q=180,free0=0;static j2 ic[10];j2 *num
    [10]={&ic[0],&ic [1],&ic[2],&ic[3 ], &ic[4],&ic[5],&ic[6],&ic[7], &ic[8],&ic[9]};
        j2 **p;i=0;p=num;wall(0);
        while(i<320){putimage (q,
        80,buf,COPY_PUT);**p=318-
        i;**(p+1)=0;**(p+2)=318-i;
        **(p+3)=480;**(p+4)=320+i;
        **(p+5)=480;**(p+6)=320+i;
        **(p+7)=0;**(p+8)=318-i;**
        (p+9)=0;q-=2;setcolor( 0);
        setfillstyle(1,0);fillpoly
        (5,ic);if (i>=179)if(i>=181
        ){size2=imagesize(2,80,130,
        280 ) ;buf2 =malloc(size2);
        getimage(2,80,130,280,buf2)
        ;putimage(0,80,buf2,COPY_PUT
        ) ;free(buf2);}else if(free0
        ==0 ){free(buf);free0=1;}i+=
        2;}} } vd den_shan( vd ) {j2
        iden_yan_se=0,iyan_se,iden=2
        ;j2  ** p_light ; static j2
        ilight[21];j2 *num_light[21
        ]={&ilight[0],&ilight[1] ,&
        ilight[2],&ilight[3],&ilight
        [4],&ilight[5],&ilight[6],&
        ilight[7],&ilight[8],&ilight
        [9],&ilight[10],&ilight[11],
        & ilight [ 12],&ilight[13],&
        ilight [ 14] , &ilight[15],&
        ilight[ 16], & ilight[ 17],&
        ilight [ 18 ], &ilight[19],&
        ilight[20]};p_light=num_light
        ;**p_light=310;**(p_light+1)
        =10;** (p_light + 2)=310;**(
        p_light+ 3)=20;**(p_light+ 4)
        =285;**(p_light+ 5 )=20 ;**(
        p_light+ 6)= 265;**(p_light+7
          )= 50;**(p_light+ 8)=265;
           ** ( p_light+ 9)=60;**(
            p_light + 10)=365;**(
             p_light+ 11)=60;**(
       p_light + 12)=365
        ;**(p_light+ 13
         ) = 50 ; ** (
          p_light +14
           )=345;**(
           p_light+15
           )= 20; **(
           p_light+16
            )=320;**
            (p_light
              + 17)
        =20
         ;

 

 

 

 

 

                      **(p_light+18 )=                               320;**(p_light+19
      )=10;**(p_light+20)                              =310;**(p_light+21
     )=10;for(iyan_se=1;                               iyan_se<20;iyan_se
    ++){if(iyan_se>=3)                                 if(iyan_se>=7 )if(
   iyan_se >= 12 )if                                   (iyan_se >= 15 ) {
  iden_yan_se = 15;                                    iden= 10 ; } else{
        iden_yan_se = 7,                                      iden=146;cv5 (6);}           else
      { iden_yan_se = 24 ;                                    iden=0;cv5(6);}else       {iden_yan_se
     = 7 ; iden = 194 ;    }                                  setcolor(iden_yan_se     );setlinestyle
   (0 , 1,1 ); arc(  315,40,                                  220,320,30);line(293    ,60,336 , 60);
      setfillstyle ( 1, iden_yan_se                                  ) ; floodfill(316,61,   iden_yan_se );
    if(iyan_se>=15){setcolor(iden);                                  setfillstyle(1,iden)  ;fillpoly( 10,
ilight);           }}}vd terra (vd)                                  {static j2 ifloor[10  ];j2 *num_floor
     [10]={&ifloor[0]                                 ,&ifloor[1],&ifloor[ 2],& ifloor[3],&
     ifloor [ 4 ] , &                                 ifloor[5], & ifloor[6], &ifloor[7],&
     ifloor[8],&ifloor                                [9]};j2 **floor;floor=num_floor;**
     floor=0;**(floor+                                1)= 480;**(floor+ 2)= 200;**(
     floor+ 3)= 160;**                                (floor+ 4)= 340;**(floor+5)=
     160;**(floor+6)=                                 640;**(floor+ 7)= 480 ;**(
     floor+ 8)= 0;**(                                 floor+ 9)= 480;setcolor
     (15);setfillstyle                                (1,15);fillpoly(5,ifloor
     );}vd start_moive                          (vd){static j2  ileft_wall[10];j2
     *num_left_wall[10                        ]={&ileft_wall[0],&ileft_wall[1],
     &ileft_wall[2],&                      ileft_wall[ 3],& ileft_wall [4 ], &
     ileft_wall [5],&                 ileft_wall[6],&ileft_wall[7],&ileft_wall
     [8],&ileft_wall[              9]};j2 wq=0;jz we=0;j2**left_wall;left_wall
     = num_left_wall;           **left_wall=0;**(left_wall+ 1)= 0;**(left_wall+
    2)= 0;**(left_wall   +3)=480;**(left_wall         + 4)= 305;**(left_wall+5 )
     =160;**(left_wall+                               6)= 305;**(left_wall+ 7)=
    130;**(left_wall+8                                )= 0;**(left_wall+ 9)= 0;                     setcolor(7
    );setfillstyle(1,7                                );fillpoly(5,ileft_wall);                }vd right_wall(
    vd )  {  static j2                                iright_wall [ 10 ] ;j2 *               num_right_wall[18
    ]={&iright_wall[0]                                , & iright_wall [ 1 ] ,&               iright_wall[2],&
    iright_wall [ 3],&                               iright_wall[4],&iright_wall            [5],&iright_wall[6
    ],&iright_wall[7],                               &iright_wall[8],&iright_wall         [9]};j2 **right_wall
    ;/* */right_wall=                                 num_right_wall;**right_wall           =640;**(right_wall
  +1)=0;**(right_wall+                                2)= 326;**(right_wall+ 3)=            130;**(right_wall+
  4)=326;**(right_wall                                +5)=160;**(right_wall+ 6)=            640;**(right_wall+
  7)= 480;**(right_wall                              +8)=640 ;**( right_wall+ 9)            = 0;setcolor( 7 );
  setfillstyle ( 1, 7);                               fillpoly( 5, iright_wall );           }vd j2erface_door(
    vd ) {  static  j2                              ij2erface_door[10];static j2          ij2erface_door_under
       [8];j2 *num_ij2erface_door                         [10]={ & ij2erface_door[ 0 ],&         ij2erface_door[ 1 ],
      & ij2erface_door  [ 2 ] ,&                        ij2erface_door[3],&ij2erface_door[       4],&ij2erface_door[
     5], & ij2erface_door[ 6 ] ,&                      ij2erface_door[7],&ij2erface_door[8]      ,&ij2erface_door[9]}
    ;j2 * num_ij2erface_door_under                    [8 ] = { & ij2erface_door_under[ 0 ],&     ij2erface_door_under
   [1],&ij2erface_door_under[ 2 ],&                  ij2erface_door_under[3]/*let it go */, &    ij2erface_door_under
   [4],&ij2erface_door_under[5],&                    ij2erface_door_under[6],&ij2erface_door_under[7] } ;j2 **p_door;
   j2 **p_door_under;if(qw3 == 1){                   p_door=num_ij2erface_door;p_door_under=num_ij2erface_door_under;
   **p_door=331 + wr;**(p_door+ 1)=                  135-wu1;**(p_door+ 2)=  341+wy;**(p_door+ 3)=  130-wu;**(p_door+
   4)=  341+wy;**(p_door+ 5)=166+wr;                 **(p_door+ 6)=  331+wr;**(p_door+ 7)=  166+wr;**(p_door+ 8)=331+
   wr;**(p_door+9)=135+wr;setcolor(                  8);setfillstyle(1,8);fillpoly(5,ij2erface_door);**p_door_under =
   331+wr;**(p_door_under+ 1)= 166+                  wr;**(p_door_under+ 2)= 341+wy;**(p_door_under+ 3)= 183+ wy ;**(
   p_door_under + 4 ) = 341+wy; **(                  p_door_under+   5 ) = 166 + wr; **( p_door_under+ 6)= 331+wr

 

            ;**( p_door_under+ 7)=
            166+wr;setcolor( 15 );
            setfillstyle ( 1, 15);
            fillpoly ( 4 ,/*leti*/
            ij2erface_door_under);
           setcolor(7);setlinestyle(
           0,1,1);line(330+wr,136-wt,
330+wr,166+wr);if(wt>=30)if(wt>=50){wt+=0.164;}else{wt+=0.160; }else{ wt+=0.155;}if(wu>=8)if(wu>=11)if(wu>=50)if(wu>=90){wu
+=0.28;}else{wu+=0.25;}else{wu+=0.23;}else{wu+=0.17;}else{wu+=0.12;}if(qe5>=100){wy+=0.48;wr+=0.24;wu1+=0.16;}else{wy+=0.16
;wu1+=0.08;wr+=0.08;}}}vd door(vd){static j2 idoor[10];j2 *num_idoor[10]={&idoor[0],&idoor[1],&idoor[2],&idoor[3],&idoor[4]
,&idoor[5],&idoor[6],&idoor[7],&idoor[8],&idoor[9]};j2 **p_idoor=num_idoor;if(qw3==1){**p_idoor=305;**(p_idoor+ 1)= 130;**(
p_idoor+ 2)= 305;**(p_idoor+ 3)= 160;**(p_idoor+ 4)= 325;**(p_idoor+ 5)= 160;**(p_idoor+ 6)= 325;**( p_idoor + 7) = 130;**(
p_idoor+ 8)= 305;**(p_idoor+ 9)= 130;setcolor(22);setfillstyle(1,22);fillpoly(5,idoor);}}vd big_light(vd){static j2 ilight[
22];j2 *num_light[22]={&ilight[0],&ilight[1],&ilight[2],&ilight[3],&ilight[4],&ilight[5],&ilight[6],&ilight[7],&ilight[8],
   &ilight[9],&ilight[10],&ilight[11],&ilight[12],&ilight[13],&ilight[14],&ilight[15],&ilight[16],&ilight[17],&ilight
          [18],&ilight[19],&ilight[20
          ],&ilight[21]};j2 **p_light;
          p_light=num_light;**p_light
          =310;**(p_light+1 )= 10;**(
          p_light+ 2)=310;**(p_light+
          3)=20;**(p_light+ 4)=285;**
          (p_light+ 5)=20;**(p_light+
          6)= 265;**(p_light+ 7)= 50;
          ** ( p_light + 8)= 265;** (
          p_light+ 9)=60;**(p_light+10
          )=365;**(p_light+ 11)=60;**
          (p_light+ 12)=365;**(p_light
          +13)=50;**(p_light+ 14)=345;
          **(p_light+15)=20;**(p_light
          +16)=320;**(p_light+ 17)=20;
          **(p_light+ 18)=320;**(p_light
          + 19)=10;**(p_light+ 20)=310
          ;**(p_light+ 21)=10;setcolor
          ( 10 ) ; setfillstyle(1 ,10);
          fillpoly(11,ilight);setcolor(
          15);setlinestyle(0,1,1 );arc(
          315,40,220,320,30);line( 293,
          60,336,60);setfillstyle(1,15)
           ;floodfill (316, 61,15);}vd
            bar_cover(vd){setcolor(8)
      ;setfillstyle(1,8);bar(
       264 , 9 , 366,70);}vd
        door_come(vd){if(qw3
         ==1){setcolor(22);
          setlinestyle(0,1
           ,1);rectangle(
            305-qe1,130-
             qe1,325+qe1
       ,160+qe1);
        if(qe5>=
          100){

 

 

 

 

qe1+=0.09;}else qe1+=0.03;}}vd wall_change_line(vd){if (qw5>=450){setcolor(7);setlinestyle(0,1,3);
line(326+qw6,131-qw6,qw5,0);if(wb % 4==0)qw6+=0.08;qw5-=0.17;}}vd wall_change_line_left(vd){if(qw7
<= 180){setcolor(7);setlinestyle(0, 1 ,3);line(304-qw8,131 - qw8, qw7,0 ) ; if(wb % 4==0)qw8 += 0.08
;qw7+=0.17; } }vd left_qe3(vd ){static j2 iwall_change[10];j2 *num_wall_change[10]={&iwall_change[0]
         ,&iwall_change[ 1 ],&iwall_change[ 2 ],&iwall_change[3],&iwall_change
         [4 ],&iwall_change[5 ],&iwall_change[6 ],& iwall_change[7 ], &
    iwall_change[8 ],&iwall_change[9 ]};j2 ** wall_change;wall_change=num_wall_change;if(qe3<=1 ){**
    wall_change=270-wq;** (wall_change+ 1)= lt1;if(wq %3==0)lt1=**(wall_change+ 1)=lt1-2;**(wall_change+
    2)= 270-wq;**(wall_change+ 3)= 150+wq;**(wall_change+ 4)= 265-wq;**(wall_change + 5 ) = 155 +wq;**(
    wall_change+ 6)= 265-wq;**(wall_change+ 7)=lt;if(wq %3==0)lt=**(wall_change+ 7)=lt-2;**(wall_change
    + 8)= 270-wq;**(wall_change+ 9)=lt2;if(wq %3==0)lt2=**(wall_change+ 9)=lt2+2;setcolor(30);setfillstyle
    (1,30);fillpoly(5,iwall_change);setcolor(7);setlinestyle(0,1,1);if(wq %3==0)ls-=1.2;line(280-we,ls,280
-we,150+we);we+=1;}}vd test(vd){wq=0;while(wi<=651){if(qe5>=680){qw3=0;wm=1;}if(qe5<=293)if((qe5>=0&&qe5<=
50)  ||(qe5>=60 && qe5<=110) ||(qe5>=120 && qe5<=170) ||(qe5>=180 && qe5<=230) ||(qe5>=240 && qe5<=290) ||
      (qe5>=300 && qe5<=320))big_light();else bar_cover();if(wm==1)wi=3000;qe5++;if(wi
      ==650){qe3++;m1-=3;if(m1<=108)m1=108;wi=0;wq=0;wz-=2.7;if(wz<=112)wz=112;ls=wz;
we=0;lt1=m1;lt2=m1;lt=m1;}left_qe3();wq+=2;wi+=2;if( wb %  30==0){jo();wall_change_line_left();}if(wb % 4
==0){door_come();j2erface_door();}}}vd middle_line_left(vd){setcolor(8);setlinestyle(0,1,3);line(qe7,0,qe8
     ,74);qe7-=2;qe8-=2;}vd middle_line_down(vd){if(qr1<=250)qr1= 249 ; setcolor(15);
      setlinestyle(0,1,3);line(qr,215,1,qr1);line(0,qr1,0,qr1);qr-=2;qr1-=2;}vd squal
(vd ){ setcolor(22 );      setlinestyle(0,1,3);line(qr2,74,qr2,215);setcolor(7);setlinestyle(0,1,3);line(
qr3,74,qr3,215);qr2     -=2;qr3-=2;}vd middle_line_right(vd){ setcolor (7 ); setlinestyle ( 0, 1, 3 ) ;
line(qr7,74,qr8       ,0);qr7-=2;qr8-=2;}vd middle_line_down1(vd){line ( qt, 215,qt1, 311) ; qt-=2;
qt1-= 2 ;}vd       m2(vd){setcolor(8);setlinestyle(0,1,3);line(im21,32,im22,0);line(im21,32,
im21,311);      im21-=2;im22-=2;}vd middle_line_all( vd ){ while (qe6<=560){middle_line_left();middle_line_down
();squal      ();middle_line_right();if(qe6>=559){setcolor(8);setfillstyle(1,8);bar(0,240,5,254);}middle_line_down1
();m2(      );qe6++;}}vd bar1_cover(vd){setcolor(8);setfillstyle(1,8);bar(0,0,640,311);setcolor(15);setfillstyle
(1,      15);bar(0,311,640,480);while(qe9>=280){setcolor(15);setlinestyle
    (0,1,3);line(0,qe9,640,qe9);qe9--;}}vd a1(vd){
     while(qr4<=200 ){setcolor(15);setlinestyle
(0,1,3);line(320,282,il1,ia1);setcolor(8);setlinestyle(0,1,3)
;line(0,ia2,319,280);if(qr4>=163){setcolor(7);setfillstyle(
     1,7);bar(qr5,90,qr6,115);qr5--;
     if(qr4>=173){qr6--;if(
     qr4>=183){setcolor(8);setlinestyle(0,1,3);
     line(il4,90,il4,115);il4--;line(il5,90,
     640,72);line(il6,115,640,133);
     il6-=1;il5-=1;}}setcolor(7);
     setfillstyle(1,7);line(il2,90,il3,0);il2--;
     il3-=3;}if(qr4<=162){ia1--;}
     else{il1--;}ia2++;qr4++;}}vd a2(vd)
{while(il7<=290){setcolor(7);setlinestyle(0,1,3);line(il8,90,
il8,115);setcolor(8);setlinestyle(0,1,3);line(il9,90,il9,115);
     setcolor( 7 ) ;      setlinestyle(0,1,3);line(iz1,89,iz2,0);
      setcolor(15);      setlinestyle(0,1,3);
       line(6,480       ,iz3,116);
 setcolor        (8);setlinestyle(0,1,3);line
(        iz4,90       ,iz5,iz6);line(
iz7,      115        ,iz8,iz9);
iz9                +=2.39;
iz8++;           iz7--;
iz6 -=          2.5;
iz5++;           iz4--;iz3--;iz2--;iz1--;il9--
;il8               --,il7++;}}vd a3(vd){while(iv2<=40)
{                   setcolor(7);setlinestyle(0,1,3);line(
   313,       iv,328,iv);line(
       313, iv1,        328,iv1);
     line(312,iv5        ,iv4,0);line(329,iv8,iv7,0);setcolor(8);
    setlinestyle(0,       1,3);line(0,iv6,312,iv3);line(329,iv9,640,480);
 iv9++;iv8++;iv7+=2;      iv6++;iv5++;iv4-=2;iv++;iv1++;iv3++;iv2++;}}
vd g(vd){while(i9<=139){setcolor(7);setlinestyle(0,1,3);line(125-ic7,
380+ic6,543+ic7,380+ic6);setcolor(15);setlinestyle(0,1,3);line
(127-ic7,376+ic6,541+ic7,376+ic6);setcolor(7);setlinestyle(0,1,3);
line(119-ic7,0,119-ic7,380+ic8);setcolor(8);setlinestyle(0,1,3);
line(123-ic7,0,123-ic7,376+ic8);setcolor(7);setlinestyle(0,1,3);line(553+ic7,
0,553+ic7,386+ic9);setcolor(8);setlinestyle(0,1,3);line(549+ic7,0,549+ic7,
385+ic9);setcolor(7);setfillstyle(1,7);bar(314-ih,133-ih1,329+ih2,156+ih3);
ih+=0.018;ih1+=0.02;ih2+=0.018;ih3+=0.02;ic6+=1.05;
ic8+=1;ic9+=0.9;ic7+=0.9;i9++;}}vd f(vd)
{iw2+=0.7;qt2+=0.6;qt3+=0.6;ic1+=0.9;
ic2+=0.9;ic5+=0.4;ic3+=0.4;ic4+=0.7;
setcolor(15);
setlinestyle(0,1,3);
line(256-qt3,225+iw2,
394+qt2,225+iw2);
setcolor(8);
setlinestyle(0,1,3);line(252-ic1,85-ic2,252-ic1,
227+ic2);setcolor(8);setlinestyle(0,1,3);
line(394+ic4,78-ic3,394+ic4,222+ic5);}
     vd a4(vd){j2 iw3=0;while(iw<=300){if(iw==300)
   {for(;iw3<=2;f(),iw3++);g();iw1++;iw=0;iw3
   =0;iw2=0;qt2=0;qt3=0;ic1=0;ic2=0;ic3=0;
   ic4=0;ic5=0;i9=0;ic6=0;ic7=0;ic8=0;
ic9=0;}if(iw1>=7){break;}
setcolor(7);setlinestyle(0,1,3);line(254-qt3,
228+iw2,396+qt2,228+iw2);setcolor(15);setlinestyle(0,1,3);line(256-qt3,
225+iw2,394+qt2,225+iw2);setcolor(7);setlinestyle(0,1,3);line(249-ic1,
84-          ic2,249-ic1,228+ic2);setcolor(8);setlinestyle(0,1,3);line(252-ic1,
     85-ic2,   252-ic1,227+ic2);setcolor(7);setlinestyle(0,1,3);line(397+ic4,
   77-ic3,397   +ic4,223+ic5);setcolor(8);setlinestyle(0,1,3);line(394+ic4,
   78-ic3,394   +ic4,222+ic5);iw2+=0.1;qt2+=0.09;qt3+=0.08;ic1+=0.08;ic2+=0.083;
  if(iw<= 30)   ic5+=0.095; else ic5+=0.098;ic3+=0.08;
ic4+=0.1;iw++;setcolor(7);setfillstyle(1,7);
bar(314-ih,133-ih1,329+ih2,156+ih3);ih+=0.018;
ih1+=0.02;ih2+=0.018;
ih3+=0.02;}}vd l(vd){j2 vb5,vb6;vb5=VGA;
vb6=vb7;vb9(&vb5,&vb6,vb8);vb();
settextjustify(CENTER_TEXT,CENTER_TEXT);settextstyle(DEFAULT_FONT,
HORIZ_DIR,3);setcolor(10);outtextxy(150,70,"just 3");outtextxy
(380,70,"D test of DOS");outtextxy(130,160,"can you");
outtextxy(410,160,"feel the code");outtextxy(320,240
,"is crying ?");cv5(50);vb();outtextxy(140,70
,"because its"); outtextxy(470,70,"Master couldn't");
outtextxy(300,130,"see tonight");outtextxy(190,300,"Internet 042");
setcolor(12);outtextxy(460,300,"LinuxCiCi");outtextxy(
450,340,"QQ:15348205");cv5(40);vb();cv2(200,100,28,3,0);cv2(260,100,29,3,0);
cv2(315,100,1,3,0);cv2(350,100,10,3,0);cv2(380,100,0,3,0);cv2(220,200,37,12,
0);cv2(290,200,38,12,0);cv2(360,200,39,12,0);getch();}

 

运行方法: 环境: Turboc2 DOS

    1. 在C:\TC子目录下输入命令:BGIOBJ EGAVGA
    此命令将驱动程序EGAVGA.BGI转换成EGAVGA.OBJ的目标文件。
    2. 在C:\TC子目录下输入命令:TLIB LIB\GRAPHICS.LIB+EGAVGA
    此命令的意思是将EGAVGA.OBJ的目标模块装到GRAPHICS.LIB库文件中。

以上命令为加载图形驱动. 动画同启动了两个图形驱动:VGA. IBM8501.

 

 

大一的留念. 女杀手班主任激发出潜能. 历时了17天. F5,F9键严重损坏.

很多人说这作品是垃圾.我现在都看不懂它.如果你觉得它显出了我思想很偏激

毫无团队精神.那我只能说我把它当作一种艺术品留念而已.<(A_A)>

 

 

 

环境:DOS .  编译器: Turboc2 .