Terve vaan kaikki, nyt minullakin toimii tämä koodivinkin lisäys, joten voin niitä lähetellä ihan kotoa.. :)
Tässä on tämmöinen koodi jonka juuri väsäsin, se piirtää näytölle "karkkipitkoja" tai jotain vastaavia. Ainakin niiden pitäisi näyttää karkeilta pastellinväreineen. No, jokatapauksessa, olkaapa hyvät!
x = 0 ldirection = 1 colour = 70 cdirection = 1 CLS SCREEN 13 DO IF x < 0 THEN ldirection = 1 ELSEIF x > 319 THEN ldirection = 0 END IF IF ldirection = 0 THEN x = x - 1 ELSEIF ldirection = 1 THEN x = x + 1 END IF IF colour = 70 THEN cdirection = 1 ELSEIF colour = 95 THEN cdirection = 0 END IF IF cdirection = 0 THEN colour = colour - 1 ELSEIF cdirection = 1 THEN colour = colour + 1 END IF IF x < 160 THEN LINE (x, 0)-(x + 160, 199), colour ELSEIF x > 159 THEN LINE (x, 0)-(x - 160, 199), colour END IF FOR slowdown = 0 TO 10000 NEXT LOOP
Niin, ja muistakaas kommentoida.. :)
Melko hieno, mutta enpäs pääsekkään hommasta pois muuten kuin painamalla Ctrl Alt Delete
Todella hieno
mulla se kyllä lähtee pois ctrl + pausella. ihan tarpeeks hieno.
Ihan hieno. Loppuu ctrl + breakilla.
no ei nyt mikään hirveen hieno
en nyt sanoisi hienoksi...
ei mun mielestä hieno
Kivalta näyttää, mutta missäs ne karkkipitkot on?
Todella hieno :D
Hauska, sopis vaikka näytönsäästäjäksi :)
Aihe on jo aika vanha, joten et voi enää vastata siihen.