Keskustelu: Koodit: QB: Candybars

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 :)