Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Netti :)

Latska [30.05.2004 23:03:54]

#

Kuvaan alkaa muodostua hämähäkinverkkoja ja tulee teksti "SpiderMan Forever"

Exet saat vaikka minulta meilillä.

Virusversiosta saa ärsyttävämmän poistamalla DO -lauseesta INKEY$ jutut.

Huom! Kolme eri versiota.

Normaaliverkko

SCREEN 11
CLS

pittu = 45    'Ympyrän halkaisija

 DO UNTIL INKEY$ = CHR$(27)               'Tehdään siihen asti kun painetaan esc
  SLEEP 1
  CIRCLE (RND * 750, RND * 750), pittu + 2 * 3 - 1     '\
  CIRCLE (RND * 500, RND * 500), pittu * 2 + 7 / 5     'I Ympyrän
  CIRCLE (RND * 5000, RND * 5000), pittu + 2 * 3 - 1   'I piirtämistä
  CIRCLE (RND * 9000, RND * 9000), pittu * 2 + 7 / 5   '/
  LOCATE 15, 28
  PRINT "SpiderMan Forever"
  LOCATE 16, 28
  PRINT "_________________"
 LOOP

Ydinpommiverkko

SCREEN 11
CLS

pittu = 45  ' ympyrän halkaisija

 DO UNTIL INKEY$ = CHR$(27) 'Tehdään kunnes painetaan esc

  CIRCLE (RND * 750, RND * 750), pittu + 2 * 3 - 1   '\
  CIRCLE (RND * 500, RND * 500), pittu * 2 + 7 / 5   'I Ympyrän
  CIRCLE (RND * 5000, RND * 5000), pittu + 2 * 3 - 1 'I piiträmistä
  CIRCLE (RND * 9000, RND * 9000), pittu * 2 + 7 / 5 '/
  LOCATE 15, 28
  PRINT "SpiderMan Forever"
  LOCATE 16, 28
  PRINT "_________________"
 LOOP

Virusversio

SCREEN 11
CLS

pittu = 45  'Halkaisija

 DO UNTIL INKEY$ = CHR$(27) Tehdään kunnes painetaan esc

  CIRCLE (RND * 750, RND * 750), pittu + 2 * 3 - 1   '\
  CIRCLE (RND * 500, RND * 500), pittu * 2 + 7 / 5   'I Ympyrän
  CIRCLE (RND * 5000, RND * 5000), pittu + 2 * 3 - 1 'I piirtämistä
  CIRCLE (RND * 9000, RND * 9000), pittu * 2 + 7 / 5 '/
  LOCATE 28, 28
  PRINT "SpiderMan Forever"
  LOCATE 29, 28
  PRINT "_________________"
 LOOP

Vastaus

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

Tietoa sivustosta