Author Topic: счетчик  (Read 1123 times)

0 Members and 1 Guest are viewing this topic.

rasnvas

  • Освоившийся
  • **
  • Posts: 44
    • View Profile
счетчик
« on: October 29, 2017, 09:09:32 AM »
как вставить счетчик в масив


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