ABAP游戏：俄罗斯方块（代码部分3）_SAP刘梦_新浪博客

*---------------------------------------------------------------------*
* FORM FIG_MOVE *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> DIR *
*---------------------------------------------------------------------*
FORM  fig_move  USING  dir  TYPE  char5  CHANGING  error . "方块移动
   DATA :  shft  TYPE  i .
  error  =  '' .
   DATA  temp_fig  LIKE  cur_fig .

  temp_fig  =  cur_fig .
* PERFORM SAVE_POS.

   CASE  dir .
     WHEN  'DOWN' . "下
      shft  =  st_width .
     WHEN  'LEFT' . "左
      shft  =  - 1 .
     WHEN  'RIGHT' . "右
      shft  =  1 .
     WHEN  'INIT' . "初始出现位置
*      SHFT = ST_WIDTH * 4."原程序语句,多余
      shft  =  0 .
   ENDCASE .

   ADD  shft  TO  cur_fig - body1 . "值相加实现移动
   ADD  shft  TO  cur_fig - body2 .
   ADD  shft  TO  cur_fig - body3 .
   ADD  shft  TO  cur_fig - body4 .

   PERFORM  check_pos  CHANGING  error . "位置碰撞检查

   IF  NOT  error  IS  INITIAL .
    cur_fig  =  temp_fig .
* PERFORM RESTORE_POS.
   ENDIF .
ENDFORM .                     "FIG_MOVE

*---------------------------------------------------------------------*
* FORM CHECK_POS *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
* --> ERROR *
*---------------------------------------------------------------------*
FORM  check_pos  CHANGING  error  TYPE  char1 . "碰撞检查子程序
   DATA :  v_pos  TYPE  i ,  h_pos  TYPE  i .

   DO  1  TIMES .
     READ  TABLE  stakan  INTO  st  INDEX  cur_fig - body1 .
     IF  st  NE  ',' .
      error  =  'X' .  EXIT .
     ENDIF .

     READ  TABLE  stakan  INTO  st  INDEX  cur_fig - body2 .
     IF  st  NE  ',' .
      error  =  'X' .  EXIT .
     ENDIF .

     READ  TABLE  stakan  INTO  st  INDEX  cur_fig - body3 .
     IF  st  NE  ',' .
      error  =  'X' .  EXIT .
     ENDIF .

     READ  TABLE  stakan  INTO  st  INDEX  cur_fig - body4 .
     IF  st  NE  ',' .
      error  =  'X' .  EXIT .
     ENDIF .
   ENDDO .
ENDFORM .                     "CHECK_POS


*&---------------------------------------------------------------------*
*& FORM FIG_ROTATE
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM  fig_rotate . "方块旋转子程序
   DATA  error .
   DATA :  start  TYPE  i ,  shft  TYPE  i .
   DATA  temp_fig  LIKE  cur_fig .
   DATA :  w  TYPE  i ,  w2  TYPE  i .
  w  =  st_width . "12
  w2  =  st_width  DIV  2 . "6
  temp_fig  =  cur_fig .

  start  =  cur_fig - body1 .
   CASE  temp_fig - name . "这里要据方块类形，进行旋转前后位置的计算
     WHEN  'LINE1' .
      cur_fig  =  line2 .
      shft  =  -  (  w *  2   w2  -  2  )  . "-28
     WHEN  'LINE2' .
      cur_fig  =  line1 .
      shft  =  w *  2  -  w2  .
     WHEN  'LZZ1' .
      cur_fig  =  lzz2 .
      shft  =  w  -  w2  .
     WHEN  'LZZ2' .
      cur_fig  =  lzz1 .
      shft  =  w2  -  w  -  w  .
     WHEN  'RZZ1' .
      cur_fig  =  rzz2 .
      shft  =  w  -  w2  -  1  .
     WHEN  'RZZ2' .
      cur_fig  =  rzz1 .
      shft  =  w2  -  w  -  w    1 .
     WHEN  'TRI1' .
      cur_fig  =  tri2 .
      shft  =  -  w2    1  .
     WHEN  'TRI2' .
      cur_fig  =  tri3 .
      shft  =  w  -  w2  .
     WHEN  'TRI3' .
      cur_fig  =  tri4 .
      shft  =  -  w  -  w2    1  .
     WHEN  'TRI4' .
      cur_fig  =  tri1 .
      shft  =  -  w2  .
     WHEN  'LGG1' .
      cur_fig  =  lgg2 .
      shft  =  -  w2    1  .
     WHEN  'LGG2' .
      cur_fig  =  lgg3 .
      shft  =  -  w2  .
     WHEN  'LGG3' .
      cur_fig  =  lgg4 .
      shft  =  -  w2  .
     WHEN  'LGG4' .
      cur_fig  =  lgg1 .
      shft  =  -  w2  -  1  .
     WHEN  'RGG1' .
      cur_fig  =  rgg2 .
      shft  =  -  w2  .
     WHEN  'RGG2' .
      cur_fig  =  rgg3 .
      shft  =  -  w2  .
     WHEN  'RGG3' .
      cur_fig  =  rgg4 .
      shft  =  -  w2    1  .
     WHEN  'RGG4' .
      cur_fig  =  rgg1 .
      shft  =  -  w2  .
     WHEN  'SQUARE' .
      cur_fig  =  square .
      shft  =  -  st_width  DIV  2  .
   ENDCASE .
  cur_fig - body1  =  start   cur_fig - body1   shft .  "- TEMP_FIG-BODY1.
  cur_fig - body2  =  start   cur_fig - body2   shft .  "- TEMP_FIG-BODY2.
  cur_fig - body3  =  start   cur_fig - body3   shft .  "- TEMP_FIG-BODY3.
  cur_fig - body4  =  start   cur_fig - body4   shft .  "- TEMP_FIG-BODY4.

   PERFORM  check_pos  CHANGING  error .
   IF  error  =  'X' .
    cur_fig  =  temp_fig .
   ENDIF .
ENDFORM .  " FIG_ROTATE
*&---------------------------------------------------------------------*
*& FORM FIG_APPEND
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM  fig_append .
   MODIFY  stakan  FROM  'X'  INDEX  cur_fig - body1 . "将方块添加到内表中
   MODIFY  stakan  FROM  'X'  INDEX  cur_fig - body2 .
   MODIFY  stakan  FROM  'X'  INDEX  cur_fig - body3 .
   MODIFY  stakan  FROM  'X'  INDEX  cur_fig - body4 .
ENDFORM .  " FIG_APPEND
*&---------------------------------------------------------------------*
*& FORM CHECK_FULL_LINE
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
FORM  check_full_line . "行消去检查
   DATA  count_line  TYPE  i .
   DATA :  n1  TYPE  i ,  n2  TYPE  i .
   DATA  outstring ( 20 ) .
   DATA :  s  TYPE  i ,  s10  TYPE  i ,  sw  TYPE  i .
   DATA  lc  TYPE  i .
  sw  =  st_width  -  2 .
   CLEAR  outstring .
   LOOP  AT  stakan  INTO  st .
    lc  =  sy - tabix  MOD  st_width  .
     IF  lc  =  1 .
      s  =  sy - tabix .
      s10  =  s   st_width  -  1 .
     ENDIF .
     CONCATENATE  outstring st  INTO  outstring .
     IF  lc  =  0 .
       SEARCH  outstring  FOR  ',' . "一行内找不到空了，说明可以消去
       IF  sy - subrc  NE  0 .
         DELETE  stakan  FROM  s  TO  s10 .
         ADD  1  TO  count_line .
       ENDIF .
       CLEAR  outstring .
     ENDIF .
   ENDLOOP .

   CLEAR :  n1 ,  n2 .
   DO  count_line  TIMES .
     ADD  10  TO  n1 .
     ADD  n1  TO  n2 .
* 10 FOR ONE LINE, 10 20 FOR TWO, 10 20 30 FOR THREE...
     INSERT  'O'  INTO  stakan  INDEX  1 .
     DO  sw  TIMES .
       INSERT  ','  INTO  stakan  INDEX  1 .
     ENDDO .
     INSERT  'O'  INTO  stakan  INDEX  1 .
   ENDDO .
   ADD  n2  TO  scores . "根据消去的行计算得分
ENDFORM .  " CHECK_FULL_LINE