Welcome, Guest. Please login or register.
Did you miss your activation email?
May 26, 2019, 08:54:01 PM
Home Famicom World Search Calendar Login Register

+  Famicom World
|-+  Family Computer
| |-+  Famicom / Disk System (Moderators: manuel, L___E___T)
| | |-+  Family Basic Prorgam - Matrix Effect
0 Members and 1 Guest are viewing this topic. « previous next »
Pages: [1] Print
Author Topic: Family Basic Prorgam - Matrix Effect  (Read 4848 times)
volk
Famiclone
*
Gender: Male
Russian Federation Russian Federation
Posts: 23


Famicom Forever)


« on: August 26, 2014, 07:09:01 AM »

You can just paste code to emulator.
Family Basic V2 and V3.
Source:
Spoiler  :

10   CLS
20   PALETB 0,15,42,15,15
50   c1=rnd(42)+92
60   c2=c1+1
70   c3=c1+2
80   c4=c1+3
90   c5=c1+4
120   y1=y1+1
130   y2=y2+1
140   y3=y3+1
150   y4=y4+1
160   y5=y5+1
190   l1=l1+1
200   l2=l2+1
220   if y1=24 then y1=rnd(23):x1=rnd(27)
230   if y2=24 then y2=rnd(23):x2=rnd(27)
240   if y3=24 then y3=rnd(23):x3=rnd(27)
250   if y4=22 then y4=rnd(21):x4=rnd(27)
260   if y5=24 then y5=rnd(23):x5=rnd(27)
290   if l1=24 then l1=rnd(23):k1=rnd(27)
300   if l2=24 then l2=rnd(23):k2=rnd(27)
310   if l3=24 then l3=rnd(23):k3=rnd(27)
320   locate x1,y1:print chr$(c1);
330   locate x2,y2:print chr$(c2);
340   locate x3,y3:print chr$(c3);
350   locate x4,y4:print chr$(c4);
360   locate x5,y5:print chr$(c5);
390   locate k1,l1:print chr$(32);
400   locate k2,l2:print chr$(32);
420   goto 50
Logged
UglyJoe
Administrator
Disk-kun
*****
Gender: Male
United States United States
Posts: 5431



WWW
« Reply #1 on: August 26, 2014, 09:08:05 AM »

Ah, nice work.  Why didn't I think of that? Grin
Logged
P
FamicomBox
*****
Gender: Male
Sweden Sweden
Posts: 3375


« Reply #2 on: August 26, 2014, 02:09:44 PM »

It works! Smiley
Logged

volk
Famiclone
*
Gender: Male
Russian Federation Russian Federation
Posts: 23


Famicom Forever)


« Reply #3 on: August 26, 2014, 04:38:48 PM »

with using arrays and cycles code will be smaller but slower
Logged
UglyJoe
Administrator
Disk-kun
*****
Gender: Male
United States United States
Posts: 5431



WWW
« Reply #4 on: August 26, 2014, 05:55:20 PM »

I had the gears turning in my head this morning thinking about how to add some palette logic to do a kind of CRT fade-out effect on the old kana.
Logged
volk
Famiclone
*
Gender: Male
Russian Federation Russian Federation
Posts: 23


Famicom Forever)


« Reply #5 on: August 27, 2014, 05:53:58 AM »

I had the gears turning in my head this morning thinking about how to add some palette logic to do a kind of CRT fade-out effect on the old kana.
I was trying that. But palette affects 4x4 zone of the screen and decrease speed.
Logged
80sFREAK
Sharp C1
*****
Gender: Male
Posts: 1192

Hardware freak


« Reply #6 on: September 02, 2014, 11:07:45 AM »

I see some rudiments in the code  Roll Eyes
Logged

I don't buy, sell or trade at moment.
64bitmad
Famiclone
*
Posts: 2


« Reply #7 on: July 04, 2016, 11:53:53 PM »

  Smiley  Red FC Cart It would be neat to be able to make it color changing
Logged
Pages: [1] Print 
« previous next »
Jump to:  


Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2015, Simple Machines Valid XHTML 1.0! Valid CSS!