home *** CD-ROM | disk | FTP | other *** search
/ Feng Hua Qiao Yue - Video Editing / VOLUME_ID.iso / hr2 / hr2x.exe / BAK / MP101.BAK < prev    next >
Encoding:
Text File  |  1996-09-09  |  1.2 KB  |  87 lines
  1. //*********************************************
  2. //     BLOOD GROUP for HR2 THE SIMULATOR
  3. //
  4. //  NAME     :  FLOOR MAKER type A
  5. //  PURPOSE  :  get ERG->build FLOOR
  6. //  CHARACTER:  Majime
  7. //
  8. //  WRITER   :  ARTDINK 1994/12/16
  9. //*********************************************
  10.  
  11. main()
  12. {
  13.     int    echk ;
  14.     int    ans ;
  15.  
  16.     echk = buggage() ;
  17.     if( echk == FAIL ){
  18.         ans = get_erg() ;
  19.     }
  20.     else{
  21.         ans = put_erg() ;
  22.     }
  23.     if( ans == FAIL ){
  24.         if( echk == FAIL ){
  25.             error_act( LEFT,LEFT ) ;
  26.         }
  27.         else{
  28.             error_act( RIGHT,RIGHT ) ;
  29.         }
  30.     }
  31.     return( ans ) ;
  32. }
  33.  
  34. lets_go( int target )
  35. {
  36.     int    ans ;
  37.     int    p ;
  38.     int    h ;
  39.  
  40.     ans = find( target ) ;
  41.     if( ans != FAIL ){
  42.         p = place() ;
  43.         h = high() ;
  44.         do{
  45.             ans = go( p,h ) ;
  46.         }while( ans == CONT ) ;
  47.     }
  48.     return( ans ) ;
  49. }
  50.  
  51. get_erg()
  52. {
  53.     int    ans ;
  54.  
  55.     ans = lets_go( ERG ) ;
  56.     if( ans == SUCCESS ){
  57.         ans = get() ;
  58.     }
  59.     return( ans ) ;
  60. }
  61.  
  62. put_erg()
  63. {
  64.     int    ans ;
  65.  
  66.     ans = lets_go( FLOOR ) ;
  67.     if( ans == SUCCESS ){
  68.         ans = put() ;
  69.     }
  70.     return( ans ) ;
  71. }
  72.  
  73. error_act( int dir1,int dir2 )
  74. {
  75.     int    i ;
  76.     int    chk ;
  77.     int    dir ;
  78.     for( i=0 ; i<4 ; i++ ){
  79.         chk = i%2 ;
  80.         dir = dir1 ;
  81.         if( chk != 0 )    dir = dir2 ;
  82.         round( dir ) ;
  83.     }
  84. }
  85.  
  86.  
  87.