Njoo, tässä on tämmöinen koodaamani Matrix juttu. Kun en pysty koodivinkkeihin kerran lisäämään, postitan täällä foorumissa. Tässä tää koodi nyt kumminkin on. Ja ennenkuin joku ehtii sanoa, että täällä on jo koodivinkeissä joku Matrix juttu, niin olen asiasta tietoinen sillä pari päivää tämän valmistumisen jälkeen selailin vinkkejä ja näin kyseisen vinkin. Mutta tämä on aikaslailla erilainen eikä ole millään tavoin koodia kopioitu kyseisestä tekeleestä. Anyway, jättäkää kommenttejanne.
' ****************
' * 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
RETURNPitäisikö tuo lisätä koodivinkkeihin?
Olisi se siellä luultavasti ihan mukava. :)
snakari teki päivä
n hyvän työn ja lisäsi koodivinkin puolestasi :). (Painoin vahingossa Enteriä äsken)
joten muokkaus ois hyvä :D
Aihe on jo aika vanha, joten et voi enää vastata siihen.