счетчик

[rasnvas]

как вставить счетчик в масив

Code: (clickermann) [Select]

$A_N3 = $che4/$he0
            $countf1 = INT((INT(100)/$A_N3))
            LOGWRITE ("% :",$countf1)
            IF(($countf1 > 35)&($countf1 < 36))
               INC($A_R2,1)
               STRSEPARATE("$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:0", ":", $A_R1)
               LOGWRITE ("ÍÀÉÄÅÍÎ 11 * = ",$A_R1[$num])
            ELSE
               WAITMS(50)
               IF($countf1 > 36)
                  INC($A_R2,-1)
                  STRSEPARATE("$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:$A_R2:0", ":", $A_R1)
                  LOGWRITE ("ÍÀÉÄÅÍÎ 1 * = ",$A_R1[$num])
                  LOGSHOW (1, 100,100)
               END_IF
            END_IF
           
            //$P = RND(0,$A_R1[$num])
            $P = ($A_R1[$num])
            $counts = $P  //  ñêîëüêî ðàç äîëæíà ïîÿâèòüñÿ êàðòèíêà  lose1
            $pic1 = 0
            WHILE($pic1 < $counts)
               KEYPRESS(#L)
               WAITMS(900)
               GETSCREEN
               IF_PICTURE_IN (0,0, $_xmax,$_ymax, "lose1.bmp")
                  INC($pic1)
                  $loses = 0
                  WHILE(($loses = 0) & ($pic1 < $counts))
                     GETSCREEN
                     IF_PICTURE_IN (0,0, $_xmax,$_ymax, "win1.bmp")
                        WAITMS(50)
                     ELSE
                        $loses = 1
                        WAITMS(50)
                     END_IF
                  END_CYC
               ELSE
                  WAITMS(50)
               END_IF
            END_CYC