|
|
Post by tsh73 on Dec 24, 2021 13:39:27 GMT -5
'more matrix stuff
'tsh73 Dec 2021
nomainwin
UpperLeftX = (DisplayWidth - WindowWidth )/2
UpperLeftY = (DisplayHeight-WindowHeight)/2
open "They are watching you" for graphics_nsb_nf as #gr
#gr "home; down; posxy cx cy; fill black"
#gr "trapclose [quit]"
#gr "font courier 16 16 bold"
#gr "backcolor black; color green"
'tv statics
#gr "color darkgreen"
t0=time$("ms")
while (time$("ms")<t0+3000) and (n<2500)
scan
n = n+1
#gr "set ";int(rnd(0)*2*cx); " ";int(rnd(0)*2*cy)
wend
t0=time$("ms")
while (time$("ms")<t0+5000)
'tore at random point
y = int(2*cx*rnd(0))
#gr "getbmp bmp0 0 ";0;" ";2*cx;" ";y
#gr "getbmp bmp1 0 ";y;" ";2*cx;" ";2*cy-y
'then swap parts
#gr "drawbmp bmp1 0 ";0
#gr "drawbmp bmp0 0 ";2*cy-y
#gr "discard"
timer 50, [tick2]
wait
[tick2] timer 0
wend
'clearing screen
#gr "color black"
sz=10
#gr "size ";sz
r=max(cx, cy)
for i = r to 0 step 0-sz
#gr "place ";cx-i;" ";cx-i
#gr "box ";cx+i;" ";cy+i
timer 50, [tick3]
wait
[tick3] timer 0
next
timer 1500, [tick4]
wait
[tick4] timer 0
#gr "color green"
'talking computer
timer 200, [tick]
[new]
#gr "fill black"
x=10
y=30
read a$
s$=""
k = k+1
if k = 3 then timer 100, [tick]
if k = 4 then timer 16, [tick]
wait
[tick]
if w then w=w-1: wait
if a$="" then [new]
if a$ = "xyzzy" then [reindeers] 'timer 0:wait
c$=left$(a$,1):a$=mid$(a$,2)
if val(c$)<>0 then w=val(c$): wait
s$=s$+c$
#gr "place ";x;" ";y
#gr "\";s$
wait
[reindeers]
'flying reindeers ?!
restore [sleigh]
for i = 1 to 5
read a$: a$(i)=" "+a$
'print ">";a$(i);"<"
next
'wait
x=0-16*len(a$(1))
y=cy-3*16
'x=0
for j = x to 2*cx-x step 16/2
#gr "place ";j;" ";y
y=y+int(rnd(0)*6)-3
for i = 1 to 5
#gr "|";a$(i)
next
timer 50, [tick1]
wait
[tick1] timer 0
next
'End of story. Thanks for watching!
#gr "place ";cx-45;" ";cy
#gr "\The end"
#gr "flush"
wait
[quit]
timer 0
close #gr
end
DATA "Wake up,2 Neo...9"
DATA "T2h2e4 Ma2trix ha2s you...9"
DATA "Follow the white rabbit.99"
DATA "Knock, knock, Neo.9999999"
DATA "xyzzy"
[sleigh]
DATA "__ _ __ "
DATA "| \__ `\O/ `-- {} \} {/ "
DATA "\ \_(~)/______/=____/=____/=* "
DATA " \=======/ //\\ >\/> || \> "
DATA "----`---`--- `` `` ```` `` `` "
|
|
|
|
Post by Brandon Parker on Dec 24, 2021 20:56:01 GMT -5
Trying to make it more "personal" ...  'more matrix stuff
'tsh73 Dec 2021
nomainwin
UpperLeftX = (DisplayWidth - WindowWidth )/2
UpperLeftY = (DisplayHeight-WindowHeight)/2
'Create the Generic Size Struct
Struct Size, value As long
open "They are watching you" for graphics_nsb_nf as #gr
#gr "home; down; posxy cx cy; fill black"
#gr "trapclose [quit]"
#gr "font courier 16 16 bold"
#gr "backcolor black; color green"
'tv statics
#gr "color darkgreen"
t0=time$("ms")
while (time$("ms")<t0+3000) and (n<2500)
scan
n = n+1
#gr "set ";int(rnd(0)*2*cx); " ";int(rnd(0)*2*cy)
wend
t0=time$("ms")
while (time$("ms")<t0+5000)
'tore at random point
y = int(2*cx*rnd(0))
#gr "getbmp bmp0 0 ";0;" ";2*cx;" ";y
#gr "getbmp bmp1 0 ";y;" ";2*cx;" ";2*cy-y
'then swap parts
#gr "drawbmp bmp1 0 ";0
#gr "drawbmp bmp0 0 ";2*cy-y
#gr "discard"
timer 50, [tick2]
wait
[tick2] timer 0
wend
'clearing screen
#gr "color black"
sz=10
#gr "size ";sz
r=max(cx, cy)
for i = r to 0 step 0-sz
#gr "place ";cx-i;" ";cx-i
#gr "box ";cx+i;" ";cy+i
timer 50, [tick3]
wait
[tick3] timer 0
next
timer 1500, [tick4]
wait
[tick4] timer 0
#gr "color green"
'talking computer
timer 200, [tick]
[new]
#gr "fill black"
x=10
y=30
read a$
If Instr(a$, "Neo") Then a$ = ReplStr$(a$, "Neo", CurrentUserName$())
s$=""
k = k+1
if k = 3 then timer 100, [tick]
if k = 4 then timer 16, [tick]
wait
[tick]
if w then w=w-1: wait
if a$="" then [new]
if a$ = "xyzzy" then [reindeers] 'timer 0:wait
c$=left$(a$,1):a$=mid$(a$,2)
if val(c$)<>0 then w=val(c$): wait
s$=s$+c$
#gr "place ";x;" ";y
#gr "\";s$
wait
[reindeers]
'flying reindeers ?!
restore [sleigh]
for i = 1 to 5
read a$: a$(i)=" "+a$
'print ">";a$(i);"<"
next
'wait
x=0-16*len(a$(1))
y=cy-3*16
'x=0
for j = x to 2*cx-x step 16/2
#gr "place ";j;" ";y
y=y+int(rnd(0)*6)-3
for i = 1 to 5
#gr "|";a$(i)
next
timer 50, [tick1]
wait
[tick1] timer 0
next
'End of story. Thanks for watching!
#gr "place ";cx-45;" ";cy
#gr "\The end"
#gr "flush"
wait
[quit]
timer 0
close #gr
end
DATA "Wake up,2 Neo...9"
DATA "T2h2e4 Ma2trix ha2s you...9"
DATA "Follow the white rabbit.99"
DATA "Knock, knock, Neo.9999999"
DATA "xyzzy"
[sleigh]
DATA "__ _ __ "
DATA "| \__ `\O/ `-- {} \} {/ "
DATA "\ \_(~)/______/=____/=____/=* "
DATA " \=======/ //\\ >\/> || \> "
DATA "----`---`--- `` `` ```` `` `` "
'_________________________________________________________________________________________________________________________________________________________
'_________________________________________________________________________________________________________________________________________________________
Function CurrentUserName$()
lpBuffer$ = Space$(_MAX_PATH) + chr$(0)
Size.value.struct = Len(lpBuffer$)
Open "advapi32.dll" For DLL As #ADVAPI32
CallDLL #ADVAPI32, "GetUserNameA", lpBuffer$ As ptr, _
Size As struct, _
result As long
Close #ADVAPI32
If result Then
CurrentUserName$ = Trim$(Left$(lpBuffer$, Size.value.struct))
Else
CurrentUserName$ = "Neo"
End If
End Function{:0) Brandon Parker |
|
|
|
Post by PaulDZ on Dec 25, 2021 10:14:30 GMT -5
Trying to make it more "personal" ... Nicely done! |
|
