I know that this is the opposite of "within" 20 lines, but this is the code above without concatenation:
load dll "user32.dll",1
DesktopWidth = call dll(1, "GetSystemMetrics", 0)
DesktopHeight = call dll(1, "GetSystemMetrics", 1)
delete dll 1
set window on
color backdrop 0
set ambient light 100
autocam off
sync on
sync rate 60
set window size 500,500
set window title " ENTER THE MATRIX"
set window layout 0,1,2
set window position (DesktopWidth/2)-250,(DesktopHeight/2)-250
ink RGB(0,255,125),0
for a = 33 to 255
set cursor 0,0
print chr$(a)
get image a-32,0,0,8,16
cls
next a
dim ObjectFade(5000)
dim DropTextFlag(5000)
dim NewDropTextFlag(5000)
do
planenum = CreatePlane()
if rnd(10) >9
make object plane planenum, 8,16
position object planenum, camera position x()+rnd(300)-150, camera position y()+150, camera position z()
rotate object planenum, camera angle x(), wrapvalue(camera angle y()+180), camera angle z()
move object planenum, -300: texture object planenum, rnd(222)+1
ghost object on planenum
ObjectFade(planenum) = 100
fade object planenum, ObjectFade(planenum)
DropTextFlag(planenum) = 1
endif
move camera 1
FadePlane()
DeletePlane()
DropText()
sync
loop
end
function CreatePlane()
CheckStartNum = 0
do
inc CheckStartNum
if object Exist(CheckStartNum) = 0 then ExitFunction CheckStartNum
loop
endfunction CheckStartNum
function DropText()
for a = 1 to 5000
If NewDropTextFlag(a) > 0
inc NewDropTextFlag(a)
endif
next a
for a = 1 to 5000
If NewDropTextFlag(a) > 7
DropTextFlag(a) = 1
NewDropTextFlag(a) = 0
endif
next a
for a = 1 to 5000
if object exist(a) = 1
if DropTextFlag(a) = 1
DropTextFlag(a) = 0
planenum = CreatePlane()
make object plane planenum, 8,16
position object planenum, object position x(a), object position y(a)-16, object position z(a)
rotate object planenum, object angle x(a), object angle y(a), object angle z(a)
texture object planenum, rnd(222)+1
ghost object on planenum
ObjectFade(planenum) = 100
fade object planenum, ObjectFade(planenum)
NewDropTextFlag(planenum) = 1
endif
endif
next a
endfunction
function FadePlane()
for a = 1 to 5000
if object exist(a) = 1
ObjectFade(a) = ObjectFade(a) -1
fade object a, ObjectFade(a)
endif
next a
endfunction
function DeletePlane()
for a = 1 to 5000
if object exist(a) = 1 then if objectFade(a) = 0 then delete object a
if object exist(a) = 1 then if object in screen(a) = 0 then delete object a
next a
endfunction
Does this code work? I am not sure why it wouldn't work the other way.
Hmm... I have notice that "plain" and "plane" both do the same thing in my code,.. doh! what about this?:
load dll "user32.dll",1: DesktopWidth = call dll(1, "GetSystemMetrics", 0): DesktopHeight = call dll(1, "GetSystemMetrics", 1): delete dll 1: set window on: color backdrop 0: set ambient light 100: autocam off: sync on: sync rate 60: set window size 500,500: set window title " ENTER THE MATRIX": set window layout 0,1,2: set window position (DesktopWidth/2)-250,(DesktopHeight/2)-250: ink RGB(0,255,125),0: for a = 33 to 255: set cursor 0,0: print chr$(a): get image a-32,0,0,8,16: cls
next a
dim ObjectFade(5000): dim DropTextFlag(5000): dim NewDropTextFlag(5000)
do: plainnum = Createplain(): if rnd(10) >9: make object plain plainnum, 8,16: position object plainnum, camera position x()+rnd(300)-150, camera position y()+150, camera position z(): rotate object plainnum, camera angle x(), wrapvalue(camera angle y()+180), camera angle z(): move object plainnum, -300: texture object plainnum, rnd(222)+1: ghost object on plainnum: ObjectFade(plainnum) = 100: fade object plainnum, ObjectFade(plainnum): DropTextFlag(plainnum) = 1: endif
move camera 1: Fadeplain(): Deleteplain(): DropText(): sync
loop
end
function Createplain()
CheckStartNum = 0: do: inc CheckStartNum: if object Exist(CheckStartNum) = 0 then ExitFunction CheckStartNum
loop
endfunction CheckStartNum
function DropText(): for a = 1 to 5000: If NewDropTextFlag(a) > 0: inc NewDropTextFlag(a): endif: next a: for a = 1 to 5000: If NewDropTextFlag(a) > 7: DropTextFlag(a) = 1: NewDropTextFlag(a) = 0: endif: next a
for a = 1 to 5000: if object exist(a) = 1: if DropTextFlag(a) = 1: DropTextFlag(a) = 0: plainnum = Createplain(): make object plain plainnum, 8,16: position object plainnum, object position x(a), object position y(a)-16, object position z(a): rotate object plainnum, object angle x(a), object angle y(a), object angle z(a): texture object plainnum, rnd(222)+1: ghost object on plainnum: ObjectFade(plainnum) = 100: fade object plainnum, ObjectFade(plainnum): NewDropTextFlag(plainnum) = 1: endif: endif: next a
endfunction
function Fadeplain(): for a = 1 to 5000: if object exist(a) = 1: ObjectFade(a) = ObjectFade(a) -1: fade object a, ObjectFade(a): endif: next a
endfunction
function Deleteplain(): for a = 1 to 5000: if object exist(a) = 1 then if objectFade(a) = 0 then delete object a
if object exist(a) = 1 then if object in screen(a) = 0 then delete object a
next a
endfunction
