Page 1 of 2 12>
Topic Options
#74493 - 2003-04-14 11:04 AM Its Coming!
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11577
Loc: CA
Thursday, May 15, 2003



break on cls
color w/n
srnd(@msecs)
$t=5

$greenies = 15
$greenie = marray("$greenies,2")
for $i=0 to $greenies
 $greenie[$i][0] = rnd(24)
 $greenie[$i][1] = rnd(78)
next

$blankies = 15
$blankie = marray("$blankies,2")
for $i=0 to ubound($blankie)
 $blankie[$i][0] = rnd(24)
 $blankie[$i][1] = rnd(78)
next

$=setoption("hidecursor","on")

while not kbhit()
 for $i = 0 to $greenies
  color g/n
  $c=rnd(100)+100
  if $c=7 or $c=149
   $c=150
  endif
  if $greenie[$i][0]
   at($greenie[$i][0],$greenie[$i][1]) chr($c)
  endif
  if $greenie[$i][0] < 23
   $greenie[$i][0] = $greenie[$i][0] + 1
   color w+/n
   at($greenie[$i][0],$greenie[$i][1]) chr($c)
  else 
   $greenie[$i][0] = rnd(5)
   $greenie[$i][1] = rnd(78)
  endif
  delay($t)
 next
 for $i = 0 to $blankies
  color w/n
  at($blankie[$i][0],$blankie[$i][1]) " "
  $blankie[$i][0]=$blankie[$i][0]+1
  if $blankie[$i][0] = 24
   $blankie[$i][0]=0
   $blankie[$i][1]=rnd(78)
  endif
  delay($t)
 next
 color w/n
 delay($t)
loop
get$
 
cls
exit 1

function delay($n)
 $ticks = @ticks +$n
 while @ticks < $ticks
 loop
endfunction

FUNCTION MArray($indOPTIONAL $ptr)
  IF Ubound($ind) < 1  $ind =Split($ind,","ENDIF
    REDIM $MArray[$ind[$ptr]]
      IF $ptr < Ubound($ind)
        $MArray[0] =MArray($ind,$ptr+1)
    DIM $L
    FOR $L = 1 TO Ubound($MArray$MArray[$L]=$MArray[0NEXT
      ENDIF
ENDFUNCTION



Code by Shawn Tassie with one minor mod.

[ 14. April 2003, 11:06: Message edited by: NTDOC ]

Top
#74494 - 2003-04-14 11:06 AM Re: Its Coming!
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6375
Loc: Stuttgart, Germany
Doc ?

I expected at least a kixform if I ever saw that mentioned again [Wink]

Whazzup ?
_________________________



Top
#74495 - 2003-04-14 11:07 AM Re: Its Coming!
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11577
Loc: CA
LOL...

The new one is coming. I'll let Shawn work on a KF model. [Big Grin]

Top
#74496 - 2003-04-14 01:47 PM Re: Its Coming!
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6375
Loc: Stuttgart, Germany
Huh ! Quite quiet after that reply ...

I guess all are hiding behind their keyboards hacking some Matrix code emulators for Kforms [Big Grin]
_________________________



Top
#74497 - 2003-04-14 08:42 PM Re: Its Coming!
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11577
Loc: CA
The Matrix Reloaded Can't wait to go see it.

Here is the link to the original code by Shawn Tassie.

There is no spoon

The Matrix Reloaded - Official Website

60MB QuickTime preview movie for Matrix Reloaded

Top
#74498 - 2003-04-14 09:13 PM Re: Its Coming!
Howard Bullock Offline
KiX Supporter
*****

Registered: 2000-09-15
Posts: 5809
Loc: Harrisburg, PA USA
DOC, [Cool] [Cool] [Cool] [Big Grin] [Eek!]

Can't wait either [Smile]
_________________________
Home page: http://www.kixhelp.com/hb/

Top
#74499 - 2003-04-16 12:08 AM Re: Its Coming!
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11577
Loc: CA
Any of you KIX-FORMS Masters come up with a new, revised edition that works with KiXforms?
Top
#74500 - 2003-04-16 12:10 AM Re: Its Coming!
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6375
Loc: Stuttgart, Germany
Got (as stated yesterday) problems with the OnResize property without which it would not be nice ...

Other code is in progress [Roll Eyes]

[ 15. April 2003, 12:10: Message edited by: jpols ]
_________________________



Top
#74501 - 2003-04-15 01:40 PM Re: Its Coming!
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
eh?
on resize?

damn, hit the gas and make it fullscreen. [Big Grin]
_________________________
!

download KiXnet

Top
#74502 - 2003-04-15 02:01 PM Re: Its Coming!
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
This script was written before multi-demensional arrays and the sleep() command was implemented, could use a redeux. By the way, looking forward to sequel as well. To be honest, think The Matrix is my favorite movie of all time.

[ 15. April 2003, 14:04: Message edited by: Shawn ]

Top
#74503 - 2003-04-15 02:17 PM Re: Its Coming!
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22343
Loc: OK
sleep() command?
_________________________
!

download KiXnet

Top
#74504 - 2003-04-15 02:22 PM Re: Its Coming!
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Sorry, meant to say "the millisecond sleep function".
Top
#74505 - 2003-04-15 02:23 PM Re: Its Coming!
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
Is this a new Sleep() UDF?
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#74506 - 2003-04-15 02:26 PM Re: Its Coming!
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Matrix.kix uses the Jochen-built Delay UDF:



function delay($n)
 $ticks = @ticks +$n
 while @ticks < $ticks
 loop
endfunction


Top
#74507 - 2003-04-15 02:32 PM Re: Its Coming!
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6375
Loc: Stuttgart, Germany
This one : Delay()

(It was in the times before Ruud was too annoyed by my requests and changed sleep to accept cdbl values [Wink] )
_________________________



Top
#74508 - 2003-04-15 02:34 PM Re: Its Coming!
Les Offline
KiX Master
*****

Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
Shawn,
What does it take to get you to byte? We are trying to flame you for the use of parens. Sleep is a command despite what Lonk says. It is not a function and thus does not require parens unless of course you need to force precedence.
quote:
Operator Precedence
When several operations occur in an expression, KiXtart evaluates and resolves each part of the expression in a predetermined order. This predetermined order is known as operator precedence.

Parentheses can be used to override the order of precedence and force some parts of an expression to be evaluated before other parts. Operations within parentheses are always performed before those outside the parentheses. Within parentheses standard operator precedence is maintained.


I thought only MCA overuses parens. [Big Grin]
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.

Top
#74509 - 2003-04-15 02:35 PM Re: Its Coming!
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6375
Loc: Stuttgart, Germany
Hey, actually running a nice Matrix Screen Saver ...

It's here and it's free [Big Grin]

{see how I ship around the cliffs of flaming Shawn ? [Razz] }

[ 15. April 2003, 14:37: Message edited by: jpols ]
_________________________



Top
#74510 - 2003-04-15 02:46 PM Re: Its Coming!
Kdyer Offline
KiX Supporter
*****

Registered: 2001-01-03
Posts: 6241
Loc: Tigard, OR
You want one with full source code available?

You can run it as the desktop background (wallpaper) or as a screensaver.

http://zmatrix.sourceforge.net/

http://zmatrix.sourceforge.net/index.html#Preview

Cheers!

Kent
_________________________
Utilize these resources:
UDFs (Full List)
KiXtart FAQ & How to's

Top
#74511 - 2003-04-15 02:49 PM Re: Its Coming!
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6375
Loc: Stuttgart, Germany
Even better !!!
_________________________



Top
#74512 - 2003-04-15 04:24 PM Re: Its Coming!
MightyR1 Offline
MM club member
*****

Registered: 1999-09-09
Posts: 1264
Loc: The Netherlands
Better indeed [Wink]
_________________________
Greetz,
Patrick Rutten

- We'll either find a way or make one...
- Knowledge is power; knowing how to find it is more powerful...
- Problems don't exist; they are challenges...

Top
Page 1 of 2 12>


Moderator:  Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 152 anonymous users online.
Newest Members
Jodey, Hiker, GTRoberts, KatieQuinn, Brennnnn
17684 Registered Users

Generated in 0.042 seconds in which 0.013 seconds were spent on a total of 13 queries. Zlib compression enabled.

Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org