[mirrors/Programs.git] / turbobasic / floppy-party / KYBERIA.BAS

'KYBERIA.CZ TRANSMISSION BY HARVIE 2010\r
'SEE http://www.youtube.com/watch?v=fUu5c1JJXzw\r
\r
SUB RNDLOC\r
	LOCATE 1+RND*22,1+RND*70\r
END SUB\r
\r
SCREEN 8\r
PRINT "PLEASE DARKEN YOUR ROOM"\r
INPUT "READY FOR TRANSMISSION" R\r
DO\r
	LINE (320,100)-(RND*640,RND*200),34\r
	SOUND (0.1+RND)*500,RND*0.3\r
	R = RND*100\r
	IF R > 80 THEN COLOR 255,0: CALL RNDLOC: PRINT " JOIN KYBERIA.CZ! "\r
	IF R > 80 THEN COLOR 36,0: CALL RNDLOC: PRINT "K"\r
	IF R > 97 THEN COLOR 255,255: CLS: DELAY 0.1\r
	IF INKEY$<>"" THEN EXIT LOOP\r
LOOP\r
\1a\r
Commit	Line	Data
d70c42f1 H	1	'KYBERIA.CZ TRANSMISSION BY HARVIE 2010\r
	2	'SEE http://www.youtube.com/watch?v=fUu5c1JJXzw\r
	3	\r
	4	SUB RNDLOC\r
	5	LOCATE 1+RND22,1+RND70\r
	6	END SUB\r
	7	\r
	8	SCREEN 8\r
	9	PRINT "PLEASE DARKEN YOUR ROOM"\r
	10	INPUT "READY FOR TRANSMISSION" R\r
	11	DO\r
	12	LINE (320,100)-(RND640,RND200),34\r
	13	SOUND (0.1+RND)500,RND0.3\r
	14	R = RND*100\r
	15	IF R > 80 THEN COLOR 255,0: CALL RNDLOC: PRINT " JOIN KYBERIA.CZ! "\r
	16	IF R > 80 THEN COLOR 36,0: CALL RNDLOC: PRINT "K"\r
	17	IF R > 97 THEN COLOR 255,255: CLS: DELAY 0.1\r
	18	IF INKEY$<>"" THEN EXIT LOOP\r
	19	LOOP\r
	20	\1a\r