1: CLS 2: SCREEN 12 3: RANDOMIZE TIMER 4: DIM Back(1 TO 82) 5: SLEEP 6: Qwq = 81 7: x% = 245 'To change how far right or left change this variable 8: y% = 5 'To change how far up or down change this variable 9: FOR Qw = 0 TO 400 STEP 10 '{ 10: LINE (x% - (Qw / 2), y% + Qw)-(x% + 140 + (Qw / 2), y% + Qw) '{Inizializes the screen 11: NEXT Qw '{ 12: LINE (x%, y%)-(x% - 200, y% + 400) 13: LINE (x% + 140, y%)-(x% + 340, y% + 400) 14: FOR Qwqq = 1 TO 81 15: cc% = RND * 2 16: Back(Qwqq) = cc% 17: 'PRINT cc% 18: NEXT Qwqq 19: FOR w = 1 TO 34 20: FOR Qw = 400 TO 0 STEP -10 '{ 21: IF Back(Qwq) = 0 THEN clr% = 8 22: IF Back(Qwq) = 1 THEN clr% = 7 23: IF Back(Qwq) = 2 THEN clr% = 15 24: LINE (x% - ((Qw) / 2), y% + Qw)-(x% + 140 + (Qw / 2), y% + Qw), clr% '{Inizializes the screen 25: IF Qwq = 1 OR Qwq = 41 THEN ELSE Back(Qwq + w) = Back(Qwq): Back(Qwq) = Back(Qwq - w) 26: Qwq = Qwq - 1 27: NEXT Qw '{ 28: Qwq = 81 - w 29: NEXT w 30: 31: SUB SLeepa (t) 32: a = t + TIMER 33: DO UNTIL TIMER >= a: LOOP 34: END SUB 35: |