Если нет магнитофона, а играть хочется ?

[ВитГо]

Ну сабж конечно гипотетический, но тем не менее - кто какие игры писал "на скору руку" ?

вот одно из моих "творчеств", на деле конечно наворачивал сильнее чем здесь написано, зато из этого кода понятен принцип

10 RANDOMIZE
20 LET x=15
90 PRINT AT 1,x;"="
100 LET v=RND
110 IF v>0.5 THEN PRINT AT 21,RND*30;"-"
120 IF v<0.5 THEN PRINT AT 21,RND*30;"--"
130 POKE 23692,2
140 PRINT ""
200 IF SCREEN$ (1,x)="-" THEN GO TO 1000
300 IF INKEY$="q" AND x>1 THEN LET x=x-1
310 IF INKEY$="w" AND x<30 THEN LET x=x+1
500 GO TO 90
1000 CLS
1010 PRINT AT 10,10;"You loser!"

 

[admin]

Вот моя - поймай звезду

10 BORDER 0: PAPER 0: INK 7: CLS
20 LET x=15: LET y=20
30 LET sx=INT (RND*31)+1: LET sy=1
40 LET score=0
50 PRINT AT 0,0;"Счет: ";score
60 PRINT AT y,x;"■"
70 PRINT AT sy,sx;"★"
80 IF INKEY$="a" AND x>1 THEN LET x=x-1
90 IF INKEY$="d" AND x<30 THEN LET x=x+1
100 IF sy=22 THEN IF sx>=x AND sx<=x+1 THEN LET score=score+1: GO SUB 200: GO TO 30
110 IF sy=22 THEN GO SUB 300: GO TO 30
120 LET sy=sy+1
130 PAUSE 1
140 CLS : GO TO 50
200 REM Поймал звезду
210 BEEP 0.1,20: RETURN
300 REM Промах
310 BEEP 0.3,0: RETURN

 

[ВитГо]

а видео нет ? :-(

 

[admin]

К сожалению сейчас проблемы с Ютубом, поэтому видео с него или плохо, но чаще всего совсем не грузится

 

[BatmanRED]

К сожалению сейчас проблемы с Ютубом, поэтому видео с него или плохо, но чаще всего совсем не грузится

Добрый вечер, сделайте на Рутубе такой канал, Ютуб блокируют, а впн не хочется использовать))