Keskustelu: Koodit: QB: Matrix This!

Tässä tämmönen THn tekemä matrix-koodi joka vaikuttaa ihan toimivalta
tosin mitä ihmettä toi valkonen väri tuolla tekee?

' ****************
' * Matrix this! *
' ****************

CLS
SCREEN 13
RANDOMIZE TIMER
KEY(1) ON

COLOR 2
PRINT "> starting matrix " + DATE$ + " " + TIME$
PRINT "> loaded 30fghlet.dfg"
PRINT "> loaded 340fkew3.gir"
PRINT "> loaded 83rmemwo.wie"
PRINT "> logged in: neo"
PRINT "> neo: let's hack the matrix"
PRINT "> neo: hit any key to start, f1 to quit"
SLEEP

CLS

DO
x = INT(RND * 40) + 1
y = INT(RND * 23) + 1

DO
y = y + 1

randomcolor = INT(RND * 6)

IF randomcolor = 0 THEN
thiscolor = 2
ELSEIF randomcolor = 1 THEN
thiscolor = 2
ELSEIF randomcolor = 2 THEN
thiscolor = 10
ELSEIF randomcolor = 3 THEN
thiscolor = 10
ELSEIF randomcolor = 4 THEN
thiscolor = 7
ELSEIF randomcolor = 5 THEN
thiscolor = 15
END IF

COLOR thiscolor
LOCATE y, x

randomcharacter = INT(RND * 143) + 33

PRINT CHR$(randomcharacter)

ON KEY(1) GOSUB quitthis
LOOP UNTIL y >= 24
LOOP UNTIL quitme = 1

CLS

COLOR 4
PRINT "'Matrix this!' demo made by TH."
PRINT "You can send some"
PRINT "feedback to tuomoh@mail.com."
PRINT
PRINT "Hope you liked the demo."

END

quitthis:
quitme = 1
RETURN

No nii, lisäsin sen :D

Mikä valkoinen? Missä?

Color 15 tuossa ohjelmassa, Antti :)

Kiitokset snakari! Niin joo valkoinen, en tiedä, aattelin että se näyttää ihan hyvältä enkä jaksanut tarkistaa elokuvasta.. :)

elokuvassa on tumman ja vaaleenvihreetä

Ja eikös se ole koko ruudun leveydeltä semmosia tosi ihmeellisiä merkkejä..?

Onpa hyvinkin, mutta ne olisivat ehkä olleet tähän tarkoitukseen liian hankalia tehdä. Tarkoitan että ensin olisi kai tehtävä jotenkin joku uusi fontti ja saada QB avaamaan se taikka sitten tehdä jotain grafiikkaa ja tehdä semmoinen nopea systeemi joka avaisi ne grafiikat ja tulostaisi näytölle. Jne..

Menee muutes väärään suuntaan, eikö sen pitäis valua alaspäin?

Ne merkit on mun mielestä numeroita nollasta ysiin, en ole kyllä täysin varma. hieno toi oli, saisko tota mitenkää näytönsäästäjäks?

elokuvassa noi merkit on semmosii kun noi japanin kirjaimet tai ei nytten läheskään mutta sen tyyliset sehän on "matrix koodia..."
toi on kyl hieno saisinko käyttää tota eräässä ohjelmassani introna?
laittaisin tekijöihin kuiteski maininnan että mistä tämä kyseinen pätkä on peräisin taikka kuka on sen tekijä
ihan miten ite haluat...

ne menee ylös

lainaus:

Ne merkit on mun mielestä numeroita nollasta ysiin, en ole kyllä täysin varma.

lainaus:

elokuvassa noi merkit on semmosii kun noi japanin kirjaimet tai ei nytten läheskään mutta sen tyyliset sehän on "matrix koodia..."

Se on japanin katakanaa peilattuna ja hieman koristeltuina.
Plus numerot nollasta ysiin, nekin jotkut peilattuina ja käänneltyinä.