Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Candybars

Sivun loppuun

TH [17.08.2002 19:42:45]

#

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

TH [18.08.2002 21:06:09]

#

Niin, ja muistakaas kommentoida.. :)

mgv [18.08.2002 21:37:15]

#

Melko hieno, mutta enpäs pääsekkään hommasta pois muuten kuin painamalla Ctrl Alt Delete

Todella hieno

Jogge [19.08.2002 07:52:31]

#

mulla se kyllä lähtee pois ctrl + pausella. ihan tarpeeks hieno.

Vilikki [19.08.2002 13:20:00]

#

Ihan hieno. Loppuu ctrl + breakilla.

snakari [19.08.2002 18:50:43]

#

no ei nyt mikään hirveen hieno

HtH [19.08.2002 19:38:30]

#

en nyt sanoisi hienoksi...

(nimetön) [19.08.2002 19:44:36]

#

ei mun mielestä hieno

Sami [20.02.2003 18:25:25]

#

Kivalta näyttää, mutta missäs ne karkkipitkot on?

CodeMan [27.02.2003 18:15:19]

#

Todella hieno :D

Tumpi [14.06.2003 03:36:58]

#

Hauska, sopis vaikka näytönsäästäjäksi :)


Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta