#76853 - 2003-09-23 10:26 PM
Matrix code...
|
rogierg
Fresh Scripter
Registered: 2003-01-16
Posts: 10
|
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 ]
|
|
Top
|
|
|
|
#76855 - 2003-09-23 10:39 PM
Re: Matrix code...
|
rogierg
Fresh Scripter
Registered: 2003-01-16
Posts: 10
|
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 ]
|
|
Top
|
|
|
|
|
#76856 - 2003-09-23 11:49 PM
Re: Matrix code...
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
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]](images/icons/wink.gif)
Well done.
-Shawn
|
|
Top
|
|
|
|
|
#76857 - 2003-09-24 01:18 AM
Re: Matrix code...
|
Paul_Berquam
Hey THIS is FUN
Registered: 2000-08-02
Posts: 310
Loc: Sacramento, CA USA
|
Sheesh, talk about harsh.
Looks good Roger.
_________________________
He was a good little monkey and always very curious...
|
|
Top
|
|
|
|
|
#76861 - 2003-09-24 01:47 AM
Re: Matrix code...
|
Paul_Berquam
Hey THIS is FUN
Registered: 2000-08-02
Posts: 310
Loc: Sacramento, CA USA
|
One of the many character sets used by Japanese and Chinese.
_________________________
He was a good little monkey and always very curious...
|
|
Top
|
|
|
|
|
#76862 - 2003-09-24 01:55 AM
Re: Matrix code...
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
hmmm, Japanese and Chinese eh ? How about my favorite language - Egyptian ! Anyone want to see Kixtart in Ancient Egyptian ? Here it is:
|
|
Top
|
|
|
|
|
#76865 - 2003-09-24 05:04 AM
Re: Matrix code...
|
Bryce
KiX Supporter
Registered: 2000-02-29
Posts: 3167
Loc: Houston TX
|
ok.... i must be bored ![[Smile]](images/icons/smile.gif)
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
|
|
Top
|
|
|
|
#76867 - 2003-09-24 11:45 AM
Re: Matrix code...
|
rogierg
Fresh Scripter
Registered: 2003-01-16
Posts: 10
|
Glad you guys like it.
|
|
Top
|
|
|
|
|
#76868 - 2003-09-24 02:02 PM
Re: Matrix code...
|
Bryce
KiX Supporter
Registered: 2000-02-29
Posts: 3167
Loc: Houston TX
|
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]](images/icons/grin.gif)
Bryce
|
|
Top
|
|
|
|
|
#76869 - 2003-09-24 04:34 PM
Re: Matrix code...
|
rogierg
Fresh Scripter
Registered: 2003-01-16
Posts: 10
|
Bryce, LOL
It's alive...
|
|
Top
|
|
|
|
|
#76870 - 2003-09-24 08:03 PM
Re: Matrix code...
|
Richard H.
Administrator
Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
|
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. ]
|
|
Top
|
|
|
|
|
#76871 - 2003-09-24 08:19 PM
Re: Matrix code...
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Very nice, very clever, even has an easter egg hidden message ! ![[Eek!]](images/icons/shocked.gif)
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 542 anonymous users online.
|
|
|
![[Confused]](images/icons/confused.gif){kind=icon}
