diff --git a/ztrcktrsr_game_tentactics.prog.abap b/ztrcktrsr_game_tentactics.prog.abap index 5d85a1a..95a225d 100644 --- a/ztrcktrsr_game_tentactics.prog.abap +++ b/ztrcktrsr_game_tentactics.prog.abap @@ -849,10 +849,8 @@ CLASS lcl_main IMPLEMENTATION. METHOD shrink_lines. - DATA lt_lines_to_delete TYPE STANDARD TABLE OF i. FIELD-SYMBOLS LIKE LINE OF mt_field. - *== shrink lines LOOP AT mt_field TRANSPORTING NO FIELDS WHERE s01 IS INITIAL @@ -864,29 +862,27 @@ CLASS lcl_main IMPLEMENTATION. AND s07 IS INITIAL AND s08 IS INITIAL AND s09 IS INITIAL. - APPEND sy-index TO lt_lines_to_delete. + DELETE mt_field. ADD 10 TO mv_score. - ENDLOOP. - CHECK sy-subrc = 0. - - DELETE mt_field - WHERE s01 IS INITIAL - AND s02 IS INITIAL - AND s03 IS INITIAL - AND s04 IS INITIAL - AND s05 IS INITIAL - AND s06 IS INITIAL - AND s07 IS INITIAL - AND s08 IS INITIAL - AND s09 IS INITIAL. IF mt_field IS INITIAL. MESSAGE i000(oo) WITH 'You won! Your Score:' mv_score. ELSEIF lines( mt_field ) = 1. READ TABLE mt_field ASSIGNING INDEX 1. "Check, if last line is empty (except of "next-Button") - "todo + IF ( -s01 IS INITIAL OR -s01 = icon_next_object ) + AND ( -s02 IS INITIAL OR -s02 = icon_next_object ) + AND ( -s03 IS INITIAL OR -s03 = icon_next_object ) + AND ( -s04 IS INITIAL OR -s04 = icon_next_object ) + AND ( -s05 IS INITIAL OR -s05 = icon_next_object ) + AND ( -s06 IS INITIAL OR -s06 = icon_next_object ) + AND ( -s07 IS INITIAL OR -s07 = icon_next_object ) + AND ( -s08 IS INITIAL OR -s08 = icon_next_object ) + AND ( -s09 IS INITIAL OR -s09 = icon_next_object ). + ADD 10 TO mv_score. + MESSAGE i000(oo) WITH 'You won! Your Score:' mv_score. + ENDIF. ENDIF. ENDMETHOD. @@ -1025,4 +1021,4 @@ AT SELECTION-SCREEN. WRITE space. CHECK gr_main IS INITIAL. gr_main = NEW lcl_main( ). - gr_main->start( type = p_typ sequence = p_seq ). \ No newline at end of file + gr_main->start( type = p_typ sequence = p_seq ).