Нарисовать машину и ворота и с имитировать её поездку

Категория: Basic
2011-09-09 16:36:32

Нужно чтобы машина ехала до ворот и остановилась, выдавалось сообщение "Открыть ворота?" и надо было нажать на Y(да), тогда ворота откроются(поднимутся вверх) и машина поедет, или N(нет), тогда ворота останутся на месте, а машина врежется в ворота.

code: #basic
SCREEN 12
DIM Mash%(32760)
 
  LINE (0, 0)-(639, 200), 1, BF
  LINE (0, 200)-(639, 479), 2, BF
  LINE (570, 270)-(600, 400), 6, BF
 
  LINE (50, 330)-(50, 360), 8: LINE (50, 360)-(250, 360), 8
  LINE (250, 360)-(250, 330), 8: LINE (250, 330)-(220, 330), 8
  LINE (220, 330)-(200, 300), 8: LINE (200, 300)-(100, 300), 8
  LINE (100, 300)-(75, 330), 8: LINE (75, 330)-(50, 330), 8
  PAINT (60, 340), 8, 8
  LINE (100, 305)-(145, 330), 3, BF: LINE (155, 305)-(200, 330), 3, BF
  CIRCLE (75, 375), 15, 0: PAINT (75, 370), 0: CIRCLE (75, 375), 8, 7: PAINT (75, 370), 7
  CIRCLE (225, 375), 15, 0: PAINT (225, 375), 0: CIRCLE (225, 375), 8, 7: PAINT (225, 375), 7
 
 GET (10, 300)-(250, 390), Mash%
 LOCATE 2, 5: PRINT "- Najmite lubuu knopku -"
 DO: LOOP UNTIL INKEY$ <> ""
 FOR x = 10 TO 300 STEP 10
    PUT (10 + x, 300), Mash%(0), PSET
 NEXT
 LOCATE 2, 5: PRINT "Otkryt vorota???  (Y/N) ";
 DO: Kb$ = UCASE$(INKEY$)
 LOOP UNTIL Kb$ = "Y" OR Kb$ = "N"
 
  IF Kb$ = "Y" THEN
    PRINT " Y selected"
    FOR y = 400 TO 250 STEP -2
       WAIT &H3DA, 8
       WAIT &H3DA, 8, 8
       LINE (570, y - 130)-(600, y), 6, BF
       LINE (570, y + 1)-(600, y + 2), 2, BF
    NEXT
    FOR x = 300 TO 380 STEP 10
       PUT (10 + x, 300), Mash%(0), PSET
    NEXT
    FOR i = 0 TO 20
       GET (420, 300)-(629, 390), Mash%
       PUT (430, 300), Mash%(0), PSET
    NEXT
  ELSE
    PRINT " N selected"
    FOR x = 300 TO 320 STEP 5
       PUT (10 + x, 300), Mash%(0), PSET
    NEXT
  END IF

автор: >Quiet Snow<

Поделиться:

Похожие статьи:

теги: qbasic, графика