rogierg
(Fresh Scripter)
2003-09-23 10:26 PM
Matrix code...

I had nothing better to do so I made a little script that displays matrix code:

code:
:init
;Enter the Matrix by Terminator
;Phear my 1337 kix skills ;-)
;rogierg@hotmail.com
srnd(@MSECS)
$fill=0
:key
cls
color b+
at (12,22) "[b]lue pill"
color r+
at (12,44) "[r]ed pill"
get $k
if $k=b goto "end" endif
if $k<>r goto "key" endif
cls
:loop1
$color="n+"
if $fill="60" goto "clear" endif
$fill=$fill + "1"
$xpos=rnd(24)
$ypos=rnd(79)
$length=rnd(10) + "3"
$xposend=$xpos + $length
$colorend=$length / "3"
$colorstep=1
:loop2
if kbhit() goto "end" endif
if $xpos>"24" goto "loop1" endif
$chr=rnd(100) + "150"
color w+
at ($xpos,$ypos) chr($chr)
sleep 0.01
color $color
at ($xpos,$ypos) chr($chr)
sleep 0.01
$colorstep=$colorstep + "1"
if $colorstep=$colorend $colorstep=1 if $color="g" $color="g+" endif if $color="n+" $color="g" endif endif
$xpos=$xpos + "1"
if $xpos=$xposend goto "loop1" else goto "loop2" endif
:clear
cls
$fill=0
goto "loop1"
:end
cls
color g
at (0,0) "The matrix has you..."
color w/b


[ 23. September 2003, 22:36: Message edited by: rogierg ]

Sealeopard
(KiX Master)
2003-09-23 10:34 PM
Re: Matrix code...

If you have nothing better to do then you should perform a BBS search beforehand! See for example Its Coming! .

Oh, and please spell-check your subject line!

Oh oh, and I do fear your skills as you are using GOTOs [Eek!] Sorry, but you've now landed on the very bottom of the KiXtart-coding foodchain.

[ 23. September 2003, 22:39: Message edited by: sealeopard ]

rogierg
(Fresh Scripter)
2003-09-23 10:39 PM
Re: Matrix code...

Ok,

Sorry 'bout that... Don't take this post to seriously, I certainly don't. Anyway it was fun!

I know goto's are bad, this was just Q&D.

[ 23. September 2003, 22:43: Message edited by: rogierg ]

ShawnAdministrator
(KiX Supporter)
2003-09-23 11:49 PM
Re: Matrix code...

Having said that, it looks pretty darn good. Especially like the color gradient from grey to light-green to bright-green. Think you need more $fill though, or maybe let it run continuosly. I love scripts like this, nice change from the old NET USE and INGROUP scripts [Wink]

Well done.

-Shawn

Paul_Berquam
(Hey THIS is FUN)
2003-09-24 01:18 AM
Re: Matrix code...

Sheesh, talk about harsh.

Looks good Roger.

LonkeroAdministrator
(KiX Master Guru)
2003-09-24 01:21 AM
Re: Matrix code...

harsh?
is that slang for gotoish? [Confused]

NTDOCAdministrator
(KiX Master)
2003-09-24 01:31 AM
Re: Matrix code...

Too bad we can't represent Kanji with KiX. The original looks like it uses Kanji in it.

Thanks Rog... please look into using PostPrep next time you post. Makes it much easier to copy/paste code from the board for testing.

[ 24. September 2003, 01:35: Message edited by: NTDOC ]

ShawnAdministrator
(KiX Supporter)
2003-09-24 01:41 AM
Re: Matrix code...

Kanji ?

Paul_Berquam
(Hey THIS is FUN)
2003-09-24 01:47 AM
Re: Matrix code...

One of the many character sets used by Japanese and Chinese.

ShawnAdministrator
(KiX Supporter)
2003-09-24 01:55 AM
Re: Matrix code...

hmmm, Japanese and Chinese eh ? How about my favorite language - Egyptian ! Anyone want to see Kixtart in Ancient Egyptian ? Here it is:

-

NTDOCAdministrator
(KiX Master)
2003-09-24 02:03 AM
Re: Matrix code...

Translation:

Man who put hand up birds backside fill cup, make next bird weary of man

ShawnAdministrator
(KiX Supporter)
2003-09-24 02:22 AM
Re: Matrix code...

ROFL

Bryce
(KiX Supporter)
2003-09-24 05:04 AM
Re: Matrix code...

ok.... i must be bored [Smile]

code:
break on
loadmatrix
$loadnumber = 4
$date = join(split(@date,"/"),"-")
? $date
del "Temp$date.kix"
$ = open(1,"temp$date.kix",5)
for each $line in $Thematrixcode
	$ = writeline(1,"$line@crlf")
next
$ = close(1)

cls
for $i = 1 to $loadnumber
	if $i = 1
		run "kix32 temp$date.kix $c=1"
	endif
	run "kix32 temp$date.kix"
next

sleep(30)
del "Temp$date.kix"


function LoadMatrix

	$Thematrixcode = '98,114,101,97,107,32,111,110,<cr>',
	'58,105,110,105,116,<cr>',
	'59,69,110,116,101,114,32,116,104,101,32,77,97,116,114,105,120,32,98,121,32,84,101,114,109,105,110,97,116,111,114,<cr>',
	'59,80,104,101,97,114,32,109,121,32,49,51,51,55,32,107,105,120,32,115,107,105,108,108,115,32,59,45,41,<cr>',
	'59,114,111,103,105,101,114,103,64,104,111,116,109,97,105,108,46,99,111,109,<cr>',
	'115,114,110,100,40,64,77,83,69,67,83,41,<cr>',
	'36,102,105,108,108,61,48,<cr>',
	'58,107,101,121,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'99,111,108,111,114,32,98,43,<cr>',
	'97,116,32,40,49,50,44,50,50,41,32,34,91,98,93,108,117,101,32,112,105,108,108,34,<cr>',
	'99,111,108,111,114,32,114,43,<cr>',
	'97,116,32,40,49,50,44,52,52,41,32,34,91,114,93,101,100,32,112,105,108,108,34,<cr>',
	'59,103,101,116,32,36,107,<cr>',
	'36,107,32,61,32,34,114,34,<cr>',
	'105,102,32,36,107,61,98,32,103,111,116,111,32,34,101,110,100,34,32,101,110,100,105,102,<cr>',
	'105,102,32,36,107,60,62,114,32,103,111,116,111,32,34,107,101,121,34,32,101,110,100,105,102,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'58,108,111,111,112,49,<cr>',
	'36,99,111,108,111,114,61,34,110,43,34,<cr>',
	'105,102,32,36,102,105,108,108,61,34,54,48,34,32,103,111,116,111,32,34,99,108,101,97,114,34,32,101,110,100,105,102,<cr>',
	'36,102,105,108,108,61,36,102,105,108,108,32,43,32,34,49,34,<cr>',
	'36,120,112,111,115,61,114,110,100,40,50,52,41,<cr>',
	'36,121,112,111,115,61,114,110,100,40,55,57,41,<cr>',
	'36,108,101,110,103,116,104,61,114,110,100,40,49,48,41,32,43,32,34,51,34,<cr>',
	'36,120,112,111,115,101,110,100,61,36,120,112,111,115,32,43,32,36,108,101,110,103,116,104,<cr>',
	'36,99,111,108,111,114,101,110,100,61,36,108,101,110,103,116,104,32,47,32,34,51,34,<cr>',
	'36,99,111,108,111,114,115,116,101,112,61,49,<cr>',
	'58,108,111,111,112,50,<cr>',
	'105,102,32,107,98,104,105,116,40,41,32,103,111,116,111,32,34,101,110,100,34,32,101,110,100,105,102,<cr>',
	'105,102,32,36,120,112,111,115,62,34,50,52,34,32,103,111,116,111,32,34,108,111,111,112,49,34,32,101,110,100,105,102,<cr>',
	'36,99,104,114,61,114,110,100,40,49,48,48,41,32,43,32,34,49,53,48,34,<cr>',
	'99,111,108,111,114,32,119,43,<cr>',
	'97,116,32,40,36,120,112,111,115,44,36,121,112,111,115,41,32,99,104,114,40,36,99,104,114,41,<cr>',
	'115,108,101,101,112,32,48,46,48,49,<cr>',
	'99,111,108,111,114,32,36,99,111,108,111,114,<cr>',
	'97,116,32,40,36,120,112,111,115,44,36,121,112,111,115,41,32,99,104,114,40,36,99,104,114,41,<cr>',
	'115,108,101,101,112,32,48,46,48,49,<cr>',
	'36,99,111,108,111,114,115,116,101,112,61,36,99,111,108,111,114,115,116,101,112,32,43,32,34,49,34,<cr>',
	'105,102,32,36,99,111,108,111,114,115,116,101,112,61,36,99,111,108,111,114,101,110,100,32,36,99,111,108,111,114,115,116,101,112,61,49,32,105,102,32,36,99,111,108,111,114,61,34,103,34,32,36,99,111,108,111,114,61,34,103,43,34,32,101,110,100,105,102,32,105,102,32,36,99,111,108,111,114,61,34,110,43,34,32,36,99,111,108,111,114,61,34,103,34,32,101,110,100,105,102,32,101,110,100,105,102,<cr>',
	'36,120,112,111,115,61,36,120,112,111,115,32,43,32,34,49,34,<cr>',
	'105,102,32,36,120,112,111,115,61,36,120,112,111,115,101,110,100,32,103,111,116,111,32,34,108,111,111,112,49,34,32,101,108,115,101,32,103,111,116,111,32,34,108,111,111,112,50,34,32,101,110,100,105,102,<cr>',
	'58,99,108,101,97,114,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'36,102,105,108,108,61,48,<cr>',
	'103,111,116,111,32,34,108,111,111,112,49,34,<cr>',
	'58,101,110,100,<cr>',
	'105,102,32,36,99,32,99,108,115,32,101,110,100,105,102,<cr>',
	'99,111,108,111,114,32,103,<cr>',
	'97,116,32,40,48,44,48,41,32,34,84,104,101,32,109,97,116,114,105,120,32,104,97,115,32,121,111,117,46,46,46,34,<cr>',
	'99,111,108,111,114,32,119,47,98,<cr>'

	? "decompressing inbeded scripts"
	? "."
	for $arraypointer = 0 to ubound($Thematrixcode)
		$line = split($Thematrixcode[$arraypointer],",")
		$temp = ""
		for each $thing in $line
			if $thing = "<cr>"
				;
				"."
			else
				$temp = $temp + chr($thing)
			endif
		next
		$Thematrixcode[$arraypointer] = $temp
	next
endfunction

LonkeroAdministrator
(KiX Master Guru)
2003-09-24 08:43 AM
Re: Matrix code...

bryce, you basta.
about 2000 posts finally.

not sure I follow your code though.
you write lot of numbers in a file, then run kix with that file as script [Confused]

I might need to test run it to really get it.

rogierg
(Fresh Scripter)
2003-09-24 11:45 AM
Re: Matrix code...

Glad you guys like it.

Bryce
(KiX Supporter)
2003-09-24 02:02 PM
Re: Matrix code...

rogierg's original script was nice... but kind of slow.

those numbers are rogierg's original script that gets pushed to a file. then $loadnumber determines how many processes to kick off for a faster screen fill effect.

i changed rogierg's script a little so that only 1 of the programs actually clears the screen.

Like i said.... i was bored [Big Grin]
Bryce

rogierg
(Fresh Scripter)
2003-09-24 04:34 PM
Re: Matrix code...

Bryce, LOL

It's alive...

Richard H.Administrator
(KiX Supporter)
2003-09-24 08:03 PM
Re: Matrix code...

Okay, couldn't resist. Try this one...

Break ON CLS
$gNull=SetOption("Explicit","ON")
$gNull=SetOption("Ascii","ON")
	
Dim $iThreadMax                 ; Maximum threads.
Dim $iThread                    ; Thread number being acrivated.
Dim $sKeyPress                  ; Key pressed.
$iThreadMax=60
Dim $aStates[$iThreadMax]       ; An array of thread states
Global $gasBitMap[24,80]                ; For colour change
	
Global $gasColours_Standard  $gasColours_Standard=Split("g+/n g/n n+/n n/n")
Global $gasColours_Highlight $gasColours_Highlight=Split("r+/n r/n y/n y/n")
; Seed random number
SRND(@MSECS*10000+@MSECS*1000+@MSECS*100+@MSECS*10+@MSECS)
	
LoadBitMap()
	
$iThreadMax=$iThreadMax-1
	
While $sKeyPress <> "q"
        ; Step each thread.
        $iThread=0
        For $iThread=0 To $iThreadMax $aStates[$iThread]=StepThread($aStates[$iThread]) Next
        If KBHit() Get $sKeyPress EndIf
Loop
	
Cls
	
Exit 0
	
Function StepThread($aState)
        Dim $i
        Dim $x,$y
	
        ; Initialise state if the process is being called the first time.
        If Not VarType($aState) Redim Preserve $aState[7] EndIf
	
        If $aState[2]                   ; Thread no-op mode (thread brake)
                $aState[2]=$aState[2]-1
        Else
                Select
                Case $aState[5]                 ; Lengthening
                        $aState[5]=$aState[5]-1
                        $aState[6]=$aState[6]+1
                        $aState[0]=$aState[0]+Chr(150+Rnd(100))
                        For $i=1 To $aState[6]
                                $x=$aState[4]+$i
                                $y=$aState[3]
                                If $gasBitMap[$x,$y]
                                        Color $gasColours_HighLight[CInt(CDbl($aState[6]-$i))/$aState[7]]
                                Else
                                        Color $gasColours_Standard[CInt(CDbl($aState[6]-$i))/$aState[7]]
                                EndIf
                                At($x,$y) SubStr($aState[0],$i,1)
                        Next
                Case $aState[6]                 ; Shortening
                        $x=$aState[4]+1
                        $y=$aState[3]
                        If Not $gasBitMap[$x,$y] At($x,$y) " " EndIf
                        $aState[6]=$aState[6]-1
                        $aState[4]=$aState[4]+1
                        $aState[0]=SubStr($aState[0],2)
                        For $i=1 To $aState[6]
                                $x=$aState[4]+$i
                                $y=$aState[3]
                                If $gasBitMap[$x,$y]
                                        Color $gasColours_Highlight[3-(CInt(CDbl($i)/$aState[7]))]
                                Else
                                        Color $gasColours_Standard[3-(CInt(CDbl($i)/$aState[7]))]
                                EndIf
                                At($x,$y) SubStr($aState[0],$i,1)
                        Next
                Case "Uninitialised"            ; Uninitialised
                        ; Set thread speed, higher=slower, skew to fastest
                        $aState[1]=Rnd(10)
                        If $aState[1]>6 $aState[1]=0 EndIf
                        ; Set X and Y start
                        $aState[3]=Rnd(79)      ; Horizontal offset
                        $aState[4]=Rnd(23)      ; Vertical offset
                        $aState[5]=Rnd(10)+3    ; Maximum length
                        $aState[7]=Cdbl($aState[5])/3.0 ; Colour fade
                        If ($aState[4]+$aState[5])>23 $aState[5]=24-$aState[4] EndIf
                EndSelect
                $aState[2]=$aState[1]           ; Set brake
        EndIf
        $StepThread=$aState
EndFunction
	
Function LoadBitMap()
        Dim $iRow,$iColumn,$iValue,$RunLength,$iLen,$iCounter
        For Each $RunLength In Split("@@ @@ @@ @@ @@ XBHC WCGD CEBFDACCFC DCCDECCCDC` DCBDGAECBCGBGFDGDB"
                +" DHOFGCLBCFDC DHFDGCGEFGDCEE DCBDFCFEGCFBDBDCFC DCCDECECACFCBACBCCDCFCBA"
                +" DCDDDCDCCCEEEDABDCFE CECFAECCDCECGBBBCEFC YCFD XB")
	
                $iColumn=0
                $iValue=0
                For $iLen=1 To Len($RunLength)
                        For $iCounter=1 To (Asc(SubStr($RunLength,$iLen))-64)
                                $gasBitMap[$iRow,$iColumn]=$iValue
                                $iColumn=$iColumn+1
                        Next
                        If $iValue $iValue=0 Else $iValue=1 EndIf
                Next
                $iRow=$iRow+1
        Next
EndFunction



[edit]
Reposted with syntax highlighting
[/edit]

[ 24. September 2003, 20:53: Message edited by: Richard H. ]

ShawnAdministrator
(KiX Supporter)
2003-09-24 08:19 PM
Re: Matrix code...

Very nice, very clever, even has an easter egg hidden message ! [Eek!]

Jack Lothian
(MM club member)
2003-09-24 08:20 PM
Re: Matrix code...

This seems to turning into a kixgolf game. [Eek!]

Howard Bullock
(KiX Supporter)
2003-09-24 08:33 PM
Re: Matrix code...

I like that Richard. Will have to study that one. [Big Grin]

rogierg
(Fresh Scripter)
2003-09-24 09:33 PM
Re: Matrix code...

@Richard: way kewl!

However, as far as I know there's no red matrix code... Maybe it is Agnt. Smith? [Smile]