Sorry your browser is not supported!

I dont think anyone would accues you of that acelepage, but I was thinking down slightly different lines.

Perhaps something such as a lighting demo could work well?
It would test creativeness and coding...

What do people think?

Back to top

Profile PM

acelepage

20

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 20th Apr 2009 18:44

Lighting hasn't been done yet. That would be a good one.
I haven't done much with lighting. I could use some education in that area.

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 20th Apr 2009 22:39

Lighting it is then...

Your challenge:

Create a lighting demo!

You can use any type of lighting, to make any type of demo.
Entries will be judged on lighting effects, outcome of the demo (ie how good it looks) and any extra wows.

Entry deadline :
2 Weeks
Monday 4th May

Good luck et bonne chance =)

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 21st Apr 2009 01:52

I should be entering this one, as it will help me work toward some of the goals I have for some of my projects

.

Back to top

Profile PM Email Website

calcyman

17

Years of Service

User Offline

Joined: 31st Aug 2007

Location: The Uncertainty Principle

Posted: 21st Apr 2009 18:46

Here's my entry - it generates seamless textures with realistic lighting effects. You can increase the speed by removing the seamless feature. This is attained by assigning a value of 0 to the Htorus and Vtorus variables. Increasing these values will make the image more seamless. You can observe the difference between the seamless and distinct images by setting one variable to 3 and the other to 0. Anyway, here's the code:

Rem Project: Torodial Light Effects Generator
Rem Created: 10/04/2009 10:45:22

Rem ***** Main Source File *****

`Try commenting out the following two assignments:

Htorus = 2 : `Horizontal seamlessness
Vtorus = 2 : `Vertical seamlessness

`Reduce these values to render faster, or increase them to make the images appear more seamless.
`If you want it to render quickly, I suggest you keep the product of these values less than 10.

`*****************

set display mode 1680,1050,32

type light

Rmagnitude as float
Gmagnitude as float
Bmagnitude as float
Rattenuation as float
Gattenuation as float
Battenuation as float
X as float
Y as float
state as boolean

endtype

global maxlights as integer : `maximum number of lights in the demo
maxlights = 3

DIM lights(maxlights) as light

lights(1).Rmagnitude = 100000 : `The magnitude of the red component
lights(1).Rattenuation = 2 : `The attenuation of the red component
lights(1).Gmagnitude = 50000
lights(1).Gattenuation = 1.9
lights(1).Bmagnitude = 25000
lights(1).Battenuation = 1.8
lights(1).state = 1 : `Enable this flag to make the light visible

lights(2).Rmagnitude = 50000
lights(2).Rattenuation = 2
lights(2).Gmagnitude = 50000
lights(2).Gattenuation = 1.8
lights(2).Bmagnitude = 50000
lights(2).Battenuation = 1.6
lights(2).state = 1

lights(3).Rmagnitude = 100000
lights(3).Rattenuation = 2
lights(3).Gmagnitude = 200000
lights(3).Gattenuation = 2
lights(3).Bmagnitude = 50000
lights(3).Battenuation = 2
lights(3).state = 1

lights(1).x = 100 : `abcissa (x-coordinate) of light #1
lights(1).y = 100 : `ordinate (y-coordinate) of light #1
lights(2).x = 300
lights(2).y = 200
lights(3).x = 150
lights(3).y = 320

CLS

print "Rendering - please wait a few moments..." : sync

CreateLightMap(1,400,400,Htorus,Vtorus,10000,240,240,240)

paste image 1,0,0
paste image 1,400,0
paste image 1,0,400
paste image 1,400,400

wait key

end

function CreateLightMap(image,xmax,ymax,htorus,vtorus,range#,rlimit,glimit,blimit)

range# = range# * range#

make memblock 1,xmax*ymax*4+12

write memblock dword 1,0,xmax
write memblock dword 1,4,ymax
write memblock dword 1,8,32

For x = 0 to xmax - 1
For y = 0 to ymax - 1

R# = 0
G# = 0
B# = 0

For z = 1 to maxlights

If lights(z).state

For u = -htorus to htorus
For v = -vtorus to vtorus

distance# = ((x+u*xmax-lights(z).X)*(x+u*xmax-lights(z).X)+(y+v*ymax-lights(z).Y)*(y+v*ymax-lights(z).Y))

If distance# < range#

R# = R# + lights(z).Rmagnitude * distance#^(lights(z).Rattenuation*-0.5)
G# = G# + lights(z).Gmagnitude * distance#^(lights(z).Gattenuation*-0.5)
B# = B# + lights(z).Bmagnitude * distance#^(lights(z).Battenuation*-0.5)

Endif

Next v
Next u

Endif

Next z

r = R#
g = G#
b = B#

If r > rlimit then r = rlimit
If g > glimit then g = glimit
If b > blimit then b = blimit
If r < 0 then r = 0
If g < 0 then g = 0
If b < 0 then b = 0

write memblock byte 1,(x+(y*xmax))*4+12,b
write memblock byte 1,(x+(y*xmax))*4+13,g
write memblock byte 1,(x+(y*xmax))*4+14,r
write memblock byte 1,(x+(y*xmax))*4+15,255

Next y
Next x

make image from memblock image,1

delete memblock 1

endfunction


Rem Project: Torodial Light Effects Generator
Rem Created: 10/04/2009 10:45:22

Rem ***** Main Source File *****



`Try commenting out the following two assignments:

Htorus = 2 : `Horizontal seamlessness
Vtorus = 2 : `Vertical seamlessness

`Reduce these values to render faster, or increase them to make the images appear more seamless.
`If you want it to render quickly, I suggest you keep the product of these values less than 10.

`*****************




set display mode 1680,1050,32

type light

Rmagnitude as float
Gmagnitude as float
Bmagnitude as float
Rattenuation as float
Gattenuation as float
Battenuation as float
X as float
Y as float
state as boolean

endtype


global maxlights as integer : `maximum number of lights in the demo
maxlights = 3


DIM lights(maxlights) as light




lights(1).Rmagnitude = 100000 : `The magnitude of the red component
lights(1).Rattenuation = 2 : `The attenuation of the red component
lights(1).Gmagnitude = 50000
lights(1).Gattenuation = 1.9
lights(1).Bmagnitude = 25000
lights(1).Battenuation = 1.8
lights(1).state = 1 : `Enable this flag to make the light visible

lights(2).Rmagnitude = 50000
lights(2).Rattenuation = 2
lights(2).Gmagnitude = 50000
lights(2).Gattenuation = 1.8
lights(2).Bmagnitude = 50000
lights(2).Battenuation = 1.6
lights(2).state = 1

lights(3).Rmagnitude = 100000
lights(3).Rattenuation = 2
lights(3).Gmagnitude = 200000
lights(3).Gattenuation = 2
lights(3).Bmagnitude = 50000
lights(3).Battenuation = 2
lights(3).state = 1


lights(1).x = 100 : `abcissa (x-coordinate) of light #1
lights(1).y = 100 : `ordinate (y-coordinate) of light #1
lights(2).x = 300
lights(2).y = 200
lights(3).x = 150
lights(3).y = 320

CLS

print "Rendering - please wait a few moments..." : sync



CreateLightMap(1,400,400,Htorus,Vtorus,10000,240,240,240)

paste image 1,0,0
paste image 1,400,0
paste image 1,0,400
paste image 1,400,400


wait key

end


function CreateLightMap(image,xmax,ymax,htorus,vtorus,range#,rlimit,glimit,blimit)

range# = range# * range#

make memblock 1,xmax*ymax*4+12

write memblock dword 1,0,xmax
write memblock dword 1,4,ymax
write memblock dword 1,8,32

For x = 0 to xmax - 1
For y = 0 to ymax - 1

R# = 0
G# = 0
B# = 0

For z = 1 to maxlights

If lights(z).state

For u = -htorus to htorus
For v = -vtorus to vtorus

distance# = ((x+u*xmax-lights(z).X)*(x+u*xmax-lights(z).X)+(y+v*ymax-lights(z).Y)*(y+v*ymax-lights(z).Y))

If distance# < range#

R# = R# + lights(z).Rmagnitude * distance#^(lights(z).Rattenuation*-0.5)
G# = G# + lights(z).Gmagnitude * distance#^(lights(z).Gattenuation*-0.5)
B# = B# + lights(z).Bmagnitude * distance#^(lights(z).Battenuation*-0.5)

Endif

Next v
Next u

Endif

Next z


r = R#
g = G#
b = B#

If r > rlimit then r = rlimit
If g > glimit then g = glimit
If b > blimit then b = blimit
If r < 0 then r = 0
If g < 0 then g = 0
If b < 0 then b = 0

write memblock byte 1,(x+(y*xmax))*4+12,b
write memblock byte 1,(x+(y*xmax))*4+13,g
write memblock byte 1,(x+(y*xmax))*4+14,r
write memblock byte 1,(x+(y*xmax))*4+15,255

Next y
Next x

make image from memblock image,1

delete memblock 1

endfunction

You can mess around with the magnitudes and attenuations of each of the three lights in the demo. Increasing the magnitude makes the light brighter. Increasing the attenuation makes the light more concentrated. A value of exactly 2 is used to simulate actual lights, due to Newton's Inverse Square Law.

The optimist's right, The pessimist's right.

Back to top

Profile PM Email

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 26th Apr 2009 16:06

Thats a nice demo Calcyman.

I only just checked this thread today so its nice to see an entry ready so soon.

Still a week left for the people who havent entered yet =)

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 30th Apr 2009 21:51

Nice one. I get black dots in the middle of the lights. Presumably because you're dividing by zero. I'd suggest adding an extra term to the squared distance forumla- ie x^2+y^2+w^2 - which is also a bit like having the light dispersed over a volume of some radius ~w.

I'm hoping to have a bash at this challenge. I want to use vertexdata to do vertex lighting, so i can have an unlimited number of lights. I've got a plan. Just need to do the typing. As always.

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 1st May 2009 02:18 Edited at: 1st May 2009 02:19

Here's a quick thing.

Rem Project: CODE CHALLENGE lighting demo
Rem Created: 30/04/2009 21:21:42

Rem ***** Main Source File *****

`for the DBP code challenge on THE GAME CREATORS website. Deadine 040509

`I've for a long time been frustrated by the inability to use more than 8 lights in Dark Basic.
`I hear this is a limit of DirectX.

`HAving recently learned to use the vertexdata commands, i realise i can use vertex colouring
`to light objects. If i turn off the standard lighting and alter vertex colours, i can have as
`many lights as i want.

`In this demo i intend initially to have point lights. Perhaps more later - eg directional.
`Also, i intend to have an ambient light that will be a constant in the world- although it
`could be position dependent later.

`in most of my game projects, i fake an "ambient skylight", which is like a light coming from
`everywhere in the sky equally, and another light coming from every part on the ground equally.
`To do this i use two lights- one pointing up, and another pointing down and of opposite
`colour to the first light, along with an ambient light.
`This uses up a quarter of the 8 lights. It also should require only one dot product of the
`surface normal with the up/down direction, where in the DirectX implementation it must do
`two, and also two "if product<0 then product=0".

`If i have time, i intend to use a gridding system, so an object doesn't have to loop through
`all lights- only the ones near to it.

`also, i wish to make a system that only recalculates lighting for moved/rotated objects, and
`for moved lights.

`i wish to play a bit with blend mapping too.

`And also with how the lighting amount is mapped onto the vertex colour- for instance, as the
`lighting goes to infinity, it should approach the maximum vertex colour, rather than being
`simply proportionate.

#constant ambient_multiplier 0.2
#constant numlights  10
#constant numobjects 40
#constant blendmode 25

sync on:sync rate 60:hide mouse
color backdrop 0
autocam off
set normalization on
position camera -100,40,100
point camera 0,0,100

`v1- EXTREMELY SIMPLE SYSTEM!!!
`just make one constant ambient/directional light!

for o=1 to numobjects

if rnd(1)
      make object sphere o,10
   else
      make object cube o,10
   endif

`this might fix problem of having no normals!
`   make mesh from object 1,o
`   delete object o
`   make object o,1,0
`   delete mesh 1

position object o,rnd(200),0,rnd(200)
   convert object fvf o,0x252  `1 is so uses base texture. 4 is so uses vertex diffuse. 2 for something
                               `put middle as 5 (4+1) because need to keep normals data for own lighting..
   set object light o,0
   set object ambient o,0
`   single_pixel_image(o,100+rnd(155),100+rnd(155),100+rnd(155),255)
   single_pixel_image(o,255,255,255,255)
   texture object o,o

`test blend mapping thing
   set blend mapping on o,1,o,3,blendmode

next o

`dim testlist#(511)

dim point_light_pos#(10,3)
dim point_light_colour#(10,3)

for l=1 to numlights
   point_light_pos#(l,0)=100  `radius squared- w position- like raising light up in 2d
                                    `-way to stop lighting going to infinity close to light..
   point_light_pos#(l,1)=rnd(200)
   point_light_pos#(l,2)=10   `+rnd(20)
   point_light_pos#(l,3)=rnd(200)

`   point_light_colour#(l,1)=rnd(100)
`   point_light_colour#(l,2)=rnd(100)
 `  point_light_colour#(l,3)=rnd(100)

`R,G or B light..
   point_light_colour#(l,1)=0
   point_light_colour#(l,2)=0
   point_light_colour#(l,3)=0
   c=rnd(2)+1
   point_light_colour#(l,c)=20

make object sphere 100+l,3
   position object 100+l,point_light_pos#(l,1),point_light_pos#(l,2),point_light_pos#(l,3)

next l

`make sure have certain colour...
l=1
point_light_colour#(l,1)=10
point_light_colour#(l,2)=10
point_light_colour#(l,3)=10

for l=1 to numlights
   colr=atan(1.0*point_light_colour#(l,1))*(255/90)
   colg=atan(1.0*point_light_colour#(l,2))*(255/90)
   colb=atan(1.0*point_light_colour#(l,3))*(255/90)
   single_pixel_image(100+l,colr,colg,colb,255)
   texture object 100+l,100+l
   set object light 100+1,0
   set object ambient 100+l,0
next l

dim light_sum#(3) `so can add up contributions from all lights
dim light_vec#(10,3) `vector from object (eventually in object's rotated frame) to light,
                  `perhaps of magnitude the intensity of the light at that distance..
dim objpos#(3)
`dim vnormal#(1000)   `big upper limit...

`now set vertex colours according to surface normals....
for o=1 to numobjects

`contribution of point light!
   objpos#(1)=object position x(o)
   objpos#(2)=object position y(o)
   objpos#(3)=object position z(o)

for l=1 to numlights
      distsq#=point_light_pos#(l,0) `this is squared "radius" of light
      for c=1 to 3
         t#=point_light_pos#(l,c)-objpos#(c)
         light_vec#(l,c)=t#
         inc distsq#,t#*t#
      next c
      `approximation is that intensity and direction of light is constant over whole object
      for c=1 to 3
         light_vec#(l,c)=light_vec#(l,c)/distsq#
      next c
   next l

lock vertexdata for limb o,0,1
      n=get vertexdata vertex count()-1
      for v=0 to n
         `dotp#=get vertexdata position y(v)/5.0

dotp#=get vertexdata normals y(v)

for c=1 to 3
            light_sum#(c)=ambient_multiplier*(dotp#+1.0)
         next c

`REMSTART
         for l=1 to numlights
               s#=0.0
               inc s#,light_vec#(l,1)*get vertexdata normals x(v)
               inc s#,light_vec#(l,2)*get vertexdata normals y(v)
               inc s#,light_vec#(l,3)*get vertexdata normals z(v)
               if s#>0.0
                  for c=1 to 3
                     inc light_sum#(c),s#*point_light_colour#(l,c)
                  next c
               endif
         next l
         `REMEND

`"ambient" skylight
         `col=128+127*dotp#
         colr=atan(light_sum#(1))*(255/90)
         colg=atan(light_sum#(2))*(255/90)
         colb=atan(light_sum#(3))*(255/90)

`testlist#(x)=dotp#:x=(x+1)&&511

`set vertexdata diffuse v,rgb(col,col,col)
         `set vertexdata diffuse v,rgb(255,0,0)
         set vertexdata diffuse v,rgba(colr,colg,colb,255)
      next v
   unlock vertexdata
next o

do

move camera 0.5* ( (mouseclick()&&1) - (mouseclick()&&2)<<1 )
turn camera right mousemovex()
pitch camera down mousemovey()

`text 0,0,str$(n)
`for n=0 to 20
`text 200,10*n,str$(testlist#(n))
`next n

sync
loop

end

function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

Rem Project: CODE CHALLENGE lighting demo
Rem Created: 30/04/2009 21:21:42

Rem ***** Main Source File *****

`for the DBP code challenge on THE GAME CREATORS website. Deadine 040509


`I've for a long time been frustrated by the inability to use more than 8 lights in Dark Basic.
`I hear this is a limit of DirectX.

`HAving recently learned to use the vertexdata commands, i realise i can use vertex colouring
`to light objects. If i turn off the standard lighting and alter vertex colours, i can have as
`many lights as i want.

`In this demo i intend initially to have point lights. Perhaps more later - eg directional.
`Also, i intend to have an ambient light that will be a constant in the world- although it
`could be position dependent later.

`in most of my game projects, i fake an "ambient skylight", which is like a light coming from
`everywhere in the sky equally, and another light coming from every part on the ground equally.
`To do this i use two lights- one pointing up, and another pointing down and of opposite
`colour to the first light, along with an ambient light.
`This uses up a quarter of the 8 lights. It also should require only one dot product of the
`surface normal with the up/down direction, where in the DirectX implementation it must do
`two, and also two "if product<0 then product=0".

`If i have time, i intend to use a gridding system, so an object doesn't have to loop through
`all lights- only the ones near to it.

`also, i wish to make a system that only recalculates lighting for moved/rotated objects, and
`for moved lights.


`i wish to play a bit with blend mapping too.

`And also with how the lighting amount is mapped onto the vertex colour- for instance, as the
`lighting goes to infinity, it should approach the maximum vertex colour, rather than being
`simply proportionate.


#constant ambient_multiplier 0.2
#constant numlights  10
#constant numobjects 40
#constant blendmode 25


sync on:sync rate 60:hide mouse
color backdrop 0
autocam off
set normalization on
position camera -100,40,100
point camera 0,0,100

`v1- EXTREMELY SIMPLE SYSTEM!!!
`just make one constant ambient/directional light!

for o=1 to numobjects

   if rnd(1)
      make object sphere o,10
   else
      make object cube o,10
   endif

   `this might fix problem of having no normals!
`   make mesh from object 1,o
`   delete object o
`   make object o,1,0
`   delete mesh 1

   position object o,rnd(200),0,rnd(200)
   convert object fvf o,0x252  `1 is so uses base texture. 4 is so uses vertex diffuse. 2 for something
                               `put middle as 5 (4+1) because need to keep normals data for own lighting..
   set object light o,0
   set object ambient o,0
`   single_pixel_image(o,100+rnd(155),100+rnd(155),100+rnd(155),255)
   single_pixel_image(o,255,255,255,255)
   texture object o,o

   `test blend mapping thing
   set blend mapping on o,1,o,3,blendmode


next o

`dim testlist#(511)


dim point_light_pos#(10,3)
dim point_light_colour#(10,3)

for l=1 to numlights
   point_light_pos#(l,0)=100  `radius squared- w position- like raising light up in 2d
                                    `-way to stop lighting going to infinity close to light..
   point_light_pos#(l,1)=rnd(200)
   point_light_pos#(l,2)=10   `+rnd(20)
   point_light_pos#(l,3)=rnd(200)

`   point_light_colour#(l,1)=rnd(100)
`   point_light_colour#(l,2)=rnd(100)
 `  point_light_colour#(l,3)=rnd(100)

 `R,G or B light..
   point_light_colour#(l,1)=0
   point_light_colour#(l,2)=0
   point_light_colour#(l,3)=0
   c=rnd(2)+1
   point_light_colour#(l,c)=20

   make object sphere 100+l,3
   position object 100+l,point_light_pos#(l,1),point_light_pos#(l,2),point_light_pos#(l,3)

next l

`make sure have certain colour...
l=1
point_light_colour#(l,1)=10
point_light_colour#(l,2)=10
point_light_colour#(l,3)=10



for l=1 to numlights
   colr=atan(1.0*point_light_colour#(l,1))*(255/90)
   colg=atan(1.0*point_light_colour#(l,2))*(255/90)
   colb=atan(1.0*point_light_colour#(l,3))*(255/90)
   single_pixel_image(100+l,colr,colg,colb,255)
   texture object 100+l,100+l
   set object light 100+1,0
   set object ambient 100+l,0
next l




dim light_sum#(3) `so can add up contributions from all lights
dim light_vec#(10,3) `vector from object (eventually in object's rotated frame) to light,
                  `perhaps of magnitude the intensity of the light at that distance..
dim objpos#(3)
`dim vnormal#(1000)   `big upper limit...

`now set vertex colours according to surface normals....
for o=1 to numobjects

   `contribution of point light!
   objpos#(1)=object position x(o)
   objpos#(2)=object position y(o)
   objpos#(3)=object position z(o)

   for l=1 to numlights
      distsq#=point_light_pos#(l,0) `this is squared "radius" of light
      for c=1 to 3
         t#=point_light_pos#(l,c)-objpos#(c)
         light_vec#(l,c)=t#
         inc distsq#,t#*t#
      next c
      `approximation is that intensity and direction of light is constant over whole object
      for c=1 to 3
         light_vec#(l,c)=light_vec#(l,c)/distsq#
      next c
   next l


   lock vertexdata for limb o,0,1
      n=get vertexdata vertex count()-1
      for v=0 to n
         `dotp#=get vertexdata position y(v)/5.0

         dotp#=get vertexdata normals y(v)

         for c=1 to 3
            light_sum#(c)=ambient_multiplier*(dotp#+1.0)
         next c

         `REMSTART
         for l=1 to numlights
               s#=0.0
               inc s#,light_vec#(l,1)*get vertexdata normals x(v)
               inc s#,light_vec#(l,2)*get vertexdata normals y(v)
               inc s#,light_vec#(l,3)*get vertexdata normals z(v)
               if s#>0.0
                  for c=1 to 3
                     inc light_sum#(c),s#*point_light_colour#(l,c)
                  next c
               endif
         next l
         `REMEND

         `"ambient" skylight
         `col=128+127*dotp#
         colr=atan(light_sum#(1))*(255/90)
         colg=atan(light_sum#(2))*(255/90)
         colb=atan(light_sum#(3))*(255/90)

         `testlist#(x)=dotp#:x=(x+1)&&511

         `set vertexdata diffuse v,rgb(col,col,col)
         `set vertexdata diffuse v,rgb(255,0,0)
         set vertexdata diffuse v,rgba(colr,colg,colb,255)
      next v
   unlock vertexdata
next o




do

move camera 0.5* ( (mouseclick()&&1) - (mouseclick()&&2)<<1 )
turn camera right mousemovex()
pitch camera down mousemovey()

`text 0,0,str$(n)
`for n=0 to 20
`text 200,10*n,str$(testlist#(n))
`next n

sync
loop



end




function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

Next i want to be able to update lights for any given object if it moves or rotates. I will also need to get the light vector in the object's rotated frame.

After that if i have time, i'd like to have movable lights, and to implement a grid system or similar to up the speed a bit.

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 1st May 2009 02:48

Hah, that's a lot like what I was trying to do but about 10x faster. I was reading the UV data and making a lightmap for each object - the VERTEXDATA DIFFUSE commands look a lot easier!

Back to top

Profile PM Email Website

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 1st May 2009 22:23

Another nice entry Dr Tank!

I would like to say that although the deadline is this sunday, im probably not going to be able to judge these entries properly until monday, thus you could have an extra day if you need it. ]

Monk

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 3rd May 2009 02:38 Edited at: 3rd May 2009 03:19

Thanks guys.

Here's a better version. I capped the framerate to 60. You can uncap it and see how fast it runs if you like. Edit: just fixed a bug!

Rem Project: CODE CHALLENGE lighting demo
Rem Created: 30/04/2009 21:21:42

Rem ***** Main Source File *****

`for the DBP code challenge on THE GAME CREATORS website. Deadine 040509

`PRELIM NOTES

`I've for a long time been frustrated by the inability to use more than 8 lights in Dark Basic.
`I hear this is a limit of DirectX.

`HAving recently learned to use the vertexdata commands, i realise i can use vertex colouring
`to light objects. If i turn off the standard lighting and alter vertex colours, i can have as
`many lights as i want.

`In this demo i intend initially to have point lights. Perhaps more later - eg directional.
`Also, i intend to have an ambient light that will be a constant in the world- although it
`could be position dependent later.

`in most of my game projects, i fake an "ambient skylight", which is like a light coming from
`everywhere in the sky equally, and another light coming from every part on the ground equally.
`To do this i use two lights- one pointing up, and another pointing down and of opposite
`colour to the first light, along with an ambient light.
`This uses up a quarter of the 8 lights. It also should require only one dot product of the
`surface normal with the up/down direction, where in the DirectX implementation it must do
`two, and also two "if product<0 then product=0".

`If i have time, i intend to use a gridding system, so an object doesn't have to loop through
`all lights- only the ones near to it.

`also, i wish to make a system that only recalculates lighting for moved/rotated objects, and
`for moved lights.

`i wish to play a bit with blend mapping too.

`And also with how the lighting amount is mapped onto the vertex colour- for instance, as the
`lighting goes to infinity, it should approach the maximum vertex colour, rather than being
`simply proportionate.

`THIS VERSION

`i didn't get around to making a gridding system. Or functions for updating individual lights.
`also light ranges should be dependent on the light intensity, but they're all pretty much the same
`in the demo so it doesn't matter!

#constant ambient_multiplier 0.4
#constant numlights  16
#constant numobjects 50
#constant blendmode 25

global lightmaxrangesq#   `really should be larger for brighter lights..
lightmaxrangesq#=6400.0    `range of 80

sync on:sync rate 60:hide mouse
`sync rate 0

color backdrop 0
autocam off
set normalization on
position camera -100,40,100
point camera 0,0,100

`limbs are a trick to get the object's rotation matrix.
sphere_clone_source=numobjects+numlights+1
make object sphere sphere_clone_source,10
make object cube sphere_clone_source+1,10
triangle_objnum=sphere_clone_source+2
triangle_meshnum=1
make object triangle triangle_objnum,0,0,0,0,0,0,0,0,0
make mesh from object triangle_meshnum,triangle_objnum
delete object triangle_objnum

for o= sphere_clone_source to sphere_clone_source+1
   for l=1 to 3
      add limb o,l,triangle_meshnum
      hide limb o,l
   next l
   offset limb o,1,1,0,0
   offset limb o,2,0,1,0
   offset limb o,3,0,0,1
next o
delete mesh triangle_meshnum

for o=1 to numobjects

if rnd(1)
      clone object o,sphere_clone_source
   else
      clone object o,sphere_clone_source+1
   endif
   `scale object o,50+rnd(200),50+rnd(200),50+rnd(200)
      `^^ scaling screws stuff up! maybe something to do with normals not being scaled right..
   `....so - make own function
   _myrescaleobject(o,50+rnd(200),50+rnd(200),50+rnd(200))

position object o,rnd(200),0,rnd(200)
   convert object fvf o,0x252  `1 is so uses base texture. 4 is so uses vertex diffuse. 2 for something
                               `put middle as 5 (4+1) because need to keep normals data for own lighting..
   set object light o,0
   set object ambient o,0
`   single_pixel_image(o,100+rnd(155),100+rnd(155),100+rnd(155),255)
   single_pixel_image(o,255,255,255,255)
   texture object o,o

`test blend mapping thing
   set blend mapping on o,1,o,3,blendmode

next o

delete object sphere_clone_source
delete object sphere_clone_source+1 `cube

dim point_light_pos#(numlights,3)
dim point_light_colour#(numlights,3)

for l=1 to numlights
   point_light_pos#(l,0)=100  `radius squared- w position- like raising light up in 2d
                                    `-way to stop lighting going to infinity close to light..
   point_light_pos#(l,1)=rnd(200)
   point_light_pos#(l,2)=10   `+rnd(20)
   point_light_pos#(l,3)=rnd(200)

`   point_light_colour#(l,1)=rnd(100)
`   point_light_colour#(l,2)=rnd(100)
 `  point_light_colour#(l,3)=rnd(100)

`R,G or B light..
   point_light_colour#(l,1)=0
   point_light_colour#(l,2)=0
   point_light_colour#(l,3)=0
   c=rnd(2)+1
   point_light_colour#(l,c)=20

next l

`make sure have certain colour...
l=1
point_light_colour#(l,1)=10
point_light_colour#(l,2)=10
point_light_colour#(l,3)=10

for l=1 to numlights
   colr=atan(1.0*point_light_colour#(l,1))*(255/90)
   colg=atan(1.0*point_light_colour#(l,2))*(255/90)
   colb=atan(1.0*point_light_colour#(l,3))*(255/90)
   o=numobjects+l
   single_pixel_image(o,colr,colg,colb,255)

o=numobjects+l
   make object sphere o,3
   position object o,point_light_pos#(l,1),point_light_pos#(l,2),point_light_pos#(l,3)
   texture object o,o
   set object light o,0
   set object ambient o,0
   ghost object on o
   disable object zwrite o
next l

dim light_sum#(3) `so can add up contributions from all lights
dim light_vec#(numlights,3) `vector from object (eventually in object's rotated frame) to light,
                  `perhaps of magnitude the intensity of the light at that distance..
dim dolight(numlights) as boolean
dim temp_unrot#(3)
dim objpos#(3)

dim objrotmat#(3,3)  `rotation matrix..

for o=1 to numobjects
   _update_lighting(o)
next o

yt#=90.0  `cam angle initial
do

text 0,0,str$(screen fps())

text 0,10,str$(xt#)
text 0,20,str$(yt#)

if returnkey()=0
   `for o=1 to numobjects:_random_rotate(o):_update_lighting(o):next o
   for o=1 to numobjects/4:_random_rotate(o):_update_lighting(o):next o

endif

move camera 0.5* ( (mouseclick()&&1) - (mouseclick()&&2)<<1 )
xt#=wrapvalue(xt#+mousemovey())
yt#=wrapvalue(yt#+mousemovex())
rotate camera xt#,yt#,0.0

sync
loop

end

function _random_rotate(o)

t=5
`t=50

pitch object up o,rnd(t)
turn object left o,rnd(t)
roll object left o,rnd(t)

endfunction

function _update_lighting(o)

`now set vertex colours according to surface normals....

`contribution of point light!
   objpos#(1)=object position x(o)
   objpos#(2)=object position y(o)
   objpos#(3)=object position z(o)

`object rotation matrix- later can have an index for object number as well, so only have
   `to get this info when object rotated. Same for above- only need update if object translated.

for a=1 to 3
      objrotmat#(1,a)=limb position x(o,a)-objpos#(1)
      objrotmat#(2,a)=limb position y(o,a)-objpos#(2)
      objrotmat#(3,a)=limb position z(o,a)-objpos#(3)
   next a

for l=1 to numlights
      distsq#=point_light_pos#(l,0) `this is squared "radius" of light
      for c=1 to 3
         t#=point_light_pos#(l,c)-objpos#(c)
         light_vec#(l,c)=t#
         inc distsq#,t#*t#
      next c

`now skip the rest of calculation if range outside maximum
      if distsq#<lightmaxrangesq#

`approximation is that intensity and direction of light is constant over whole object
            for c=1 to 3
              ` light_vec#(l,c)=light_vec#(l,c)/distsq#
               temp_unrot#(c)=light_vec#(l,c)/distsq#    `could reuse light sum array, but this way less confusing
            next c
            `rotate into object's frame..
            for c=1 to 3
               light_vec#(l,c)=0.0
            next c
            for a=1 to 3:for b=1 to 3
               inc light_vec#(l,a),temp_unrot#(b)*objrotmat#(b,a)
            next b:next a

dolight(l)=1

else

dolight(l)=0

endif

next l

lock vertexdata for limb o,0,1
      n=get vertexdata vertex count()-1
    `  mytest=n
      for v=0 to n

`     dotp#=get vertexdata normals y(v)  `SIMPLE UNROTATED VERSION.,.
         dotp#=0.0
       `  inc dotp#,get vertexdata normals x(v)*objrotmat#(1,2)
       `  inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
       `  inc dotp#,get vertexdata normals z(v)*objrotmat#(3,2)
         inc dotp#,get vertexdata normals x(v)*objrotmat#(2,1)
         inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
         inc dotp#,get vertexdata normals z(v)*objrotmat#(2,3)

for c=1 to 3
            light_sum#(c)=ambient_multiplier*(dotp#+1.0)
         next c

`REMSTART
         for l=1 to numlights:if dolight(l)  `better to use a list of lights, especially if number done per object
                                             `is much less than total number of lights.
               s#=0.0
               inc s#,light_vec#(l,1)*get vertexdata normals x(v)
               inc s#,light_vec#(l,2)*get vertexdata normals y(v)
               inc s#,light_vec#(l,3)*get vertexdata normals z(v)
               if s#>0.0
                  for c=1 to 3
                     inc light_sum#(c),s#*point_light_colour#(l,c)
                  next c
               endif
         endif:next l
         `REMEND

`"ambient" skylight
         `col=128+127*dotp#
         colr=atan(light_sum#(1))*(255/90)
         colg=atan(light_sum#(2))*(255/90)
         colb=atan(light_sum#(3))*(255/90)

`testlist#(x)=dotp#:x=(x+1)&&511

`set vertexdata diffuse v,rgb(col,col,col)
         `set vertexdata diffuse v,rgb(255,0,0)
         set vertexdata diffuse v,rgba(colr,colg,colb,255)
      next v
   unlock vertexdata

endfunction

function _myrescaleobject(o,sx,sy,sz)
`note that rescalings are permanent- if you scale by 200%, you will then have to scale by
`50% to get back to how it was..

sx#=0.01*sx
sy#=0.01*sy
sz#=0.01*sz

lock vertexdata for limb o,0,1
n=get vertexdata vertex count()-1
for v=0 to n
      x#=sx#*get vertexdata position x(v)
      y#=sy#*get vertexdata position y(v)
      z#=sz#*get vertexdata position z(v)
      set vertexdata position v,x#,y#,z#

nx#=get vertexdata normals x(v)/sx#
      ny#=get vertexdata normals y(v)/sy#
      nz#=get vertexdata normals z(v)/sz#
      `renormalise
      sumsq#=0.0
      inc sumsq#,nx#*nx#
      inc sumsq#,ny#*ny#
      inc sumsq#,nz#*nz#
      sumsq#=1.0/sqrt(sumsq#)
      set vertexdata normals v,sumsq#*nx#,sumsq#*ny#,sumsq#*nz#
next v
unlock vertexdata

endfunction

function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

Rem Project: CODE CHALLENGE lighting demo
Rem Created: 30/04/2009 21:21:42

Rem ***** Main Source File *****

`for the DBP code challenge on THE GAME CREATORS website. Deadine 040509

`PRELIM NOTES

`I've for a long time been frustrated by the inability to use more than 8 lights in Dark Basic.
`I hear this is a limit of DirectX.

`HAving recently learned to use the vertexdata commands, i realise i can use vertex colouring
`to light objects. If i turn off the standard lighting and alter vertex colours, i can have as
`many lights as i want.

`In this demo i intend initially to have point lights. Perhaps more later - eg directional.
`Also, i intend to have an ambient light that will be a constant in the world- although it
`could be position dependent later.

`in most of my game projects, i fake an "ambient skylight", which is like a light coming from
`everywhere in the sky equally, and another light coming from every part on the ground equally.
`To do this i use two lights- one pointing up, and another pointing down and of opposite
`colour to the first light, along with an ambient light.
`This uses up a quarter of the 8 lights. It also should require only one dot product of the
`surface normal with the up/down direction, where in the DirectX implementation it must do
`two, and also two "if product<0 then product=0".

`If i have time, i intend to use a gridding system, so an object doesn't have to loop through
`all lights- only the ones near to it.

`also, i wish to make a system that only recalculates lighting for moved/rotated objects, and
`for moved lights.


`i wish to play a bit with blend mapping too.

`And also with how the lighting amount is mapped onto the vertex colour- for instance, as the
`lighting goes to infinity, it should approach the maximum vertex colour, rather than being
`simply proportionate.


`THIS VERSION

`i didn't get around to making a gridding system. Or functions for updating individual lights.
`also light ranges should be dependent on the light intensity, but they're all pretty much the same
`in the demo so it doesn't matter!

#constant ambient_multiplier 0.4
#constant numlights  16
#constant numobjects 50
#constant blendmode 25

global lightmaxrangesq#   `really should be larger for brighter lights..
lightmaxrangesq#=6400.0    `range of 80


sync on:sync rate 60:hide mouse
`sync rate 0

color backdrop 0
autocam off
set normalization on
position camera -100,40,100
point camera 0,0,100


`limbs are a trick to get the object's rotation matrix.
sphere_clone_source=numobjects+numlights+1
make object sphere sphere_clone_source,10
make object cube sphere_clone_source+1,10
triangle_objnum=sphere_clone_source+2
triangle_meshnum=1
make object triangle triangle_objnum,0,0,0,0,0,0,0,0,0
make mesh from object triangle_meshnum,triangle_objnum
delete object triangle_objnum

for o= sphere_clone_source to sphere_clone_source+1
   for l=1 to 3
      add limb o,l,triangle_meshnum
      hide limb o,l
   next l
   offset limb o,1,1,0,0
   offset limb o,2,0,1,0
   offset limb o,3,0,0,1
next o
delete mesh triangle_meshnum

for o=1 to numobjects

   if rnd(1)
      clone object o,sphere_clone_source
   else
      clone object o,sphere_clone_source+1
   endif
   `scale object o,50+rnd(200),50+rnd(200),50+rnd(200)
      `^^ scaling screws stuff up! maybe something to do with normals not being scaled right..
   `....so - make own function
   _myrescaleobject(o,50+rnd(200),50+rnd(200),50+rnd(200))


   position object o,rnd(200),0,rnd(200)
   convert object fvf o,0x252  `1 is so uses base texture. 4 is so uses vertex diffuse. 2 for something
                               `put middle as 5 (4+1) because need to keep normals data for own lighting..
   set object light o,0
   set object ambient o,0
`   single_pixel_image(o,100+rnd(155),100+rnd(155),100+rnd(155),255)
   single_pixel_image(o,255,255,255,255)
   texture object o,o

   `test blend mapping thing
   set blend mapping on o,1,o,3,blendmode


next o

delete object sphere_clone_source
delete object sphere_clone_source+1 `cube


dim point_light_pos#(numlights,3)
dim point_light_colour#(numlights,3)

for l=1 to numlights
   point_light_pos#(l,0)=100  `radius squared- w position- like raising light up in 2d
                                    `-way to stop lighting going to infinity close to light..
   point_light_pos#(l,1)=rnd(200)
   point_light_pos#(l,2)=10   `+rnd(20)
   point_light_pos#(l,3)=rnd(200)

`   point_light_colour#(l,1)=rnd(100)
`   point_light_colour#(l,2)=rnd(100)
 `  point_light_colour#(l,3)=rnd(100)

 `R,G or B light..
   point_light_colour#(l,1)=0
   point_light_colour#(l,2)=0
   point_light_colour#(l,3)=0
   c=rnd(2)+1
   point_light_colour#(l,c)=20


next l

`make sure have certain colour...
l=1
point_light_colour#(l,1)=10
point_light_colour#(l,2)=10
point_light_colour#(l,3)=10



for l=1 to numlights
   colr=atan(1.0*point_light_colour#(l,1))*(255/90)
   colg=atan(1.0*point_light_colour#(l,2))*(255/90)
   colb=atan(1.0*point_light_colour#(l,3))*(255/90)
   o=numobjects+l
   single_pixel_image(o,colr,colg,colb,255)

   o=numobjects+l
   make object sphere o,3
   position object o,point_light_pos#(l,1),point_light_pos#(l,2),point_light_pos#(l,3)
   texture object o,o
   set object light o,0
   set object ambient o,0
   ghost object on o
   disable object zwrite o
next l




dim light_sum#(3) `so can add up contributions from all lights
dim light_vec#(numlights,3) `vector from object (eventually in object's rotated frame) to light,
                  `perhaps of magnitude the intensity of the light at that distance..
dim dolight(numlights) as boolean
dim temp_unrot#(3)
dim objpos#(3)

dim objrotmat#(3,3)  `rotation matrix..

for o=1 to numobjects
   _update_lighting(o)
next o

yt#=90.0  `cam angle initial
do

text 0,0,str$(screen fps())

text 0,10,str$(xt#)
text 0,20,str$(yt#)

if returnkey()=0
   `for o=1 to numobjects:_random_rotate(o):_update_lighting(o):next o
   for o=1 to numobjects/4:_random_rotate(o):_update_lighting(o):next o

endif


move camera 0.5* ( (mouseclick()&&1) - (mouseclick()&&2)<<1 )
xt#=wrapvalue(xt#+mousemovey())
yt#=wrapvalue(yt#+mousemovex())
rotate camera xt#,yt#,0.0

sync
loop



end



function _random_rotate(o)

t=5
`t=50

pitch object up o,rnd(t)
turn object left o,rnd(t)
roll object left o,rnd(t)

endfunction



function _update_lighting(o)


`now set vertex colours according to surface normals....

   `contribution of point light!
   objpos#(1)=object position x(o)
   objpos#(2)=object position y(o)
   objpos#(3)=object position z(o)

   `object rotation matrix- later can have an index for object number as well, so only have
   `to get this info when object rotated. Same for above- only need update if object translated.

   for a=1 to 3
      objrotmat#(1,a)=limb position x(o,a)-objpos#(1)
      objrotmat#(2,a)=limb position y(o,a)-objpos#(2)
      objrotmat#(3,a)=limb position z(o,a)-objpos#(3)
   next a


   for l=1 to numlights
      distsq#=point_light_pos#(l,0) `this is squared "radius" of light
      for c=1 to 3
         t#=point_light_pos#(l,c)-objpos#(c)
         light_vec#(l,c)=t#
         inc distsq#,t#*t#
      next c

      `now skip the rest of calculation if range outside maximum
      if distsq#<lightmaxrangesq#

            `approximation is that intensity and direction of light is constant over whole object
            for c=1 to 3
              ` light_vec#(l,c)=light_vec#(l,c)/distsq#
               temp_unrot#(c)=light_vec#(l,c)/distsq#    `could reuse light sum array, but this way less confusing
            next c
            `rotate into object's frame..
            for c=1 to 3
               light_vec#(l,c)=0.0
            next c
            for a=1 to 3:for b=1 to 3
               inc light_vec#(l,a),temp_unrot#(b)*objrotmat#(b,a)
            next b:next a

            dolight(l)=1

      else

            dolight(l)=0

      endif

   next l


   lock vertexdata for limb o,0,1
      n=get vertexdata vertex count()-1
    `  mytest=n
      for v=0 to n

    `     dotp#=get vertexdata normals y(v)  `SIMPLE UNROTATED VERSION.,.
         dotp#=0.0
       `  inc dotp#,get vertexdata normals x(v)*objrotmat#(1,2)
       `  inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
       `  inc dotp#,get vertexdata normals z(v)*objrotmat#(3,2)
         inc dotp#,get vertexdata normals x(v)*objrotmat#(2,1)
         inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
         inc dotp#,get vertexdata normals z(v)*objrotmat#(2,3)

         for c=1 to 3
            light_sum#(c)=ambient_multiplier*(dotp#+1.0)
         next c

         `REMSTART
         for l=1 to numlights:if dolight(l)  `better to use a list of lights, especially if number done per object
                                             `is much less than total number of lights.
               s#=0.0
               inc s#,light_vec#(l,1)*get vertexdata normals x(v)
               inc s#,light_vec#(l,2)*get vertexdata normals y(v)
               inc s#,light_vec#(l,3)*get vertexdata normals z(v)
               if s#>0.0
                  for c=1 to 3
                     inc light_sum#(c),s#*point_light_colour#(l,c)
                  next c
               endif
         endif:next l
         `REMEND

         `"ambient" skylight
         `col=128+127*dotp#
         colr=atan(light_sum#(1))*(255/90)
         colg=atan(light_sum#(2))*(255/90)
         colb=atan(light_sum#(3))*(255/90)

         `testlist#(x)=dotp#:x=(x+1)&&511

         `set vertexdata diffuse v,rgb(col,col,col)
         `set vertexdata diffuse v,rgb(255,0,0)
         set vertexdata diffuse v,rgba(colr,colg,colb,255)
      next v
   unlock vertexdata

endfunction





function _myrescaleobject(o,sx,sy,sz)
`note that rescalings are permanent- if you scale by 200%, you will then have to scale by
`50% to get back to how it was..

sx#=0.01*sx
sy#=0.01*sy
sz#=0.01*sz

lock vertexdata for limb o,0,1
n=get vertexdata vertex count()-1
for v=0 to n
      x#=sx#*get vertexdata position x(v)
      y#=sy#*get vertexdata position y(v)
      z#=sz#*get vertexdata position z(v)
      set vertexdata position v,x#,y#,z#

      nx#=get vertexdata normals x(v)/sx#
      ny#=get vertexdata normals y(v)/sy#
      nz#=get vertexdata normals z(v)/sz#
      `renormalise
      sumsq#=0.0
      inc sumsq#,nx#*nx#
      inc sumsq#,ny#*ny#
      inc sumsq#,nz#*nz#
      sumsq#=1.0/sqrt(sumsq#)
      set vertexdata normals v,sumsq#*nx#,sumsq#*ny#,sumsq#*nz#
next v
unlock vertexdata


endfunction









function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 3rd May 2009 03:40

By decreasing the light range, and turning down the detail on the spheres, i went up to 100 objects and 32 lights.

The time it takes to refresh, given a constant number of lights shining on an object, is proportional to the number of vertices. For high poly objects it's going to be hellaciously slow.

It's probably not a practical system, but perhaps i can look into using shaders. I'd like to make a shader where each object has it's own list of lights that are shining on it. A job for another day.

Rem Project: CODE CHALLENGE lighting demo
Rem Created: 30/04/2009 21:21:42

Rem ***** Main Source File *****

`for the DBP code challenge on THE GAME CREATORS website. Deadine 040509

`PRELIM NOTES

`I've for a long time been frustrated by the inability to use more than 8 lights in Dark Basic.
`I hear this is a limit of DirectX.

`HAving recently learned to use the vertexdata commands, i realise i can use vertex colouring
`to light objects. If i turn off the standard lighting and alter vertex colours, i can have as
`many lights as i want.

`In this demo i intend initially to have point lights. Perhaps more later - eg directional.
`Also, i intend to have an ambient light that will be a constant in the world- although it
`could be position dependent later.

`in most of my game projects, i fake an "ambient skylight", which is like a light coming from
`everywhere in the sky equally, and another light coming from every part on the ground equally.
`To do this i use two lights- one pointing up, and another pointing down and of opposite
`colour to the first light, along with an ambient light.
`This uses up a quarter of the 8 lights. It also should require only one dot product of the
`surface normal with the up/down direction, where in the DirectX implementation it must do
`two, and also two "if product<0 then product=0".

`If i have time, i intend to use a gridding system, so an object doesn't have to loop through
`all lights- only the ones near to it.

`also, i wish to make a system that only recalculates lighting for moved/rotated objects, and
`for moved lights.

`i wish to play a bit with blend mapping too.

`And also with how the lighting amount is mapped onto the vertex colour- for instance, as the
`lighting goes to infinity, it should approach the maximum vertex colour, rather than being
`simply proportionate.

`THIS VERSION

`i didn't get around to making a gridding system. Or functions for updating individual lights.
`also light ranges should be dependent on the light intensity, but they're all pretty much the same
`in the demo so it doesn't matter!

#constant ambient_multiplier 0.4
#constant numlights  32
#constant numobjects 100
#constant blendmode 25

global lightmaxrangesq#   `really should be larger for brighter lights..
`lightmaxrangesq#=6400.0    `range of 80
lightmaxrangesq#=2500.0    `range of 50

sync on:sync rate 60:hide mouse
`sync rate 0

color backdrop 0
autocam off
set normalization on
position camera -100,40,100
point camera 0,0,100

`limbs are a trick to get the object's rotation matrix.
sphere_clone_source=numobjects+numlights+1
make object sphere sphere_clone_source,10,8,12
make object cube sphere_clone_source+1,10
triangle_objnum=sphere_clone_source+2
triangle_meshnum=1
make object triangle triangle_objnum,0,0,0,0,0,0,0,0,0
make mesh from object triangle_meshnum,triangle_objnum
delete object triangle_objnum

for o= sphere_clone_source to sphere_clone_source+1
   for l=1 to 3
      add limb o,l,triangle_meshnum
      hide limb o,l
   next l
   offset limb o,1,1,0,0
   offset limb o,2,0,1,0
   offset limb o,3,0,0,1
next o
delete mesh triangle_meshnum

for o=1 to numobjects

if rnd(1)
      clone object o,sphere_clone_source
   else
      clone object o,sphere_clone_source+1
   endif
   `scale object o,50+rnd(200),50+rnd(200),50+rnd(200)
      `^^ scaling screws stuff up! maybe something to do with normals not being scaled right..
   `....so - make own function
   _myrescaleobject(o,20+rnd(80),20+rnd(80),20+rnd(80))

position object o,rnd(200),0,rnd(200)
   convert object fvf o,0x252  `1 is so uses base texture. 4 is so uses vertex diffuse. 2 for something
                               `put middle as 5 (4+1) because need to keep normals data for own lighting..
   set object light o,0
   set object ambient o,0
`   single_pixel_image(o,100+rnd(155),100+rnd(155),100+rnd(155),255)
   single_pixel_image(o,255,255,255,255)
   texture object o,o

`test blend mapping thing
   set blend mapping on o,1,o,3,blendmode

next o

delete object sphere_clone_source
delete object sphere_clone_source+1 `cube

dim point_light_pos#(numlights,3)
dim point_light_colour#(numlights,3)

for l=1 to numlights
   point_light_pos#(l,0)=100  `radius squared- w position- like raising light up in 2d
                                    `-way to stop lighting going to infinity close to light..
   point_light_pos#(l,1)=rnd(200)
   point_light_pos#(l,2)=10   `+rnd(20)
   point_light_pos#(l,3)=rnd(200)

`   point_light_colour#(l,1)=rnd(100)
`   point_light_colour#(l,2)=rnd(100)
 `  point_light_colour#(l,3)=rnd(100)

`REMSTART
 `R,G or B light..
   point_light_colour#(l,1)=0
   point_light_colour#(l,2)=0
   point_light_colour#(l,3)=0
   c=rnd(2)+1
   point_light_colour#(l,c)=20
`REMEND
`ang=rnd(359)
`point_light_colour#(l,1)=10+10*cos(ang)
`point_light_colour#(l,2)=10+10*cos(ang+120)
`point_light_colour#(l,3)=10+10*cos(ang+240)
next l

`make sure have certain colour...
l=1
point_light_colour#(l,1)=10
point_light_colour#(l,2)=10
point_light_colour#(l,3)=10

for l=1 to numlights
   colr=atan(1.0*point_light_colour#(l,1))*(255/90)
   colg=atan(1.0*point_light_colour#(l,2))*(255/90)
   colb=atan(1.0*point_light_colour#(l,3))*(255/90)
   o=numobjects+l
   single_pixel_image(o,colr,colg,colb,255)

o=numobjects+l
   make object sphere o,3
   position object o,point_light_pos#(l,1),point_light_pos#(l,2),point_light_pos#(l,3)
   texture object o,o
   set object light o,0
   set object ambient o,0
   ghost object on o
   disable object zwrite o
next l

dim light_sum#(3) `so can add up contributions from all lights
dim light_vec#(numlights,3) `vector from object (eventually in object's rotated frame) to light,
                  `perhaps of magnitude the intensity of the light at that distance..
dim dolight(numlights) as boolean
dim temp_unrot#(3)
dim objpos#(3)

dim objrotmat#(3,3)  `rotation matrix..

for o=1 to numobjects
   _update_lighting(o)
next o

yt#=90.0  `cam angle initial
do

text 0,0,str$(screen fps())

text 0,10,str$(xt#)
text 0,20,str$(yt#)

if returnkey()=0
   `for o=1 to numobjects:_random_rotate(o):_update_lighting(o):next o
   for o=1 to numobjects/4:_random_rotate(o):_update_lighting(o):next o

endif

move camera 0.5* ( (mouseclick()&&1) - (mouseclick()&&2)<<1 )
xt#=wrapvalue(xt#+mousemovey())
yt#=wrapvalue(yt#+mousemovex())
rotate camera xt#,yt#,0.0

sync
loop

end

function _random_rotate(o)

t=5
`t=50

pitch object up o,rnd(t)
turn object left o,rnd(t)
roll object left o,rnd(t)

endfunction

function _update_lighting(o)

`now set vertex colours according to surface normals....

`contribution of point light!
   objpos#(1)=object position x(o)
   objpos#(2)=object position y(o)
   objpos#(3)=object position z(o)

`object rotation matrix- later can have an index for object number as well, so only have
   `to get this info when object rotated. Same for above- only need update if object translated.

for a=1 to 3
      objrotmat#(1,a)=limb position x(o,a)-objpos#(1)
      objrotmat#(2,a)=limb position y(o,a)-objpos#(2)
      objrotmat#(3,a)=limb position z(o,a)-objpos#(3)
   next a

for l=1 to numlights
      distsq#=point_light_pos#(l,0) `this is squared "radius" of light
      for c=1 to 3
         t#=point_light_pos#(l,c)-objpos#(c)
         light_vec#(l,c)=t#
         inc distsq#,t#*t#
      next c

`now skip the rest of calculation if range outside maximum
      if distsq#<lightmaxrangesq#

`approximation is that intensity and direction of light is constant over whole object
            for c=1 to 3
              ` light_vec#(l,c)=light_vec#(l,c)/distsq#
               temp_unrot#(c)=light_vec#(l,c)/distsq#    `could reuse light sum array, but this way less confusing
            next c
            `rotate into object's frame..
            for c=1 to 3
               light_vec#(l,c)=0.0
            next c
            for a=1 to 3:for b=1 to 3
               inc light_vec#(l,a),temp_unrot#(b)*objrotmat#(b,a)
            next b:next a

dolight(l)=1

else

dolight(l)=0

endif

next l

lock vertexdata for limb o,0,1
      n=get vertexdata vertex count()-1
    `  mytest=n
      for v=0 to n

`     dotp#=get vertexdata normals y(v)  `SIMPLE UNROTATED VERSION.,.
         dotp#=0.0
       `  inc dotp#,get vertexdata normals x(v)*objrotmat#(1,2)
       `  inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
       `  inc dotp#,get vertexdata normals z(v)*objrotmat#(3,2)
         inc dotp#,get vertexdata normals x(v)*objrotmat#(2,1)
         inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
         inc dotp#,get vertexdata normals z(v)*objrotmat#(2,3)

for c=1 to 3
            light_sum#(c)=ambient_multiplier*(dotp#+1.0)
         next c

`REMSTART
         for l=1 to numlights:if dolight(l)  `better to use a list of lights, especially if number done per object
                                             `is much less than total number of lights.
               s#=0.0
               inc s#,light_vec#(l,1)*get vertexdata normals x(v)
               inc s#,light_vec#(l,2)*get vertexdata normals y(v)
               inc s#,light_vec#(l,3)*get vertexdata normals z(v)
               if s#>0.0
                  for c=1 to 3
                     inc light_sum#(c),s#*point_light_colour#(l,c)
                  next c
               endif
         endif:next l
         `REMEND

`"ambient" skylight
         `col=128+127*dotp#
         colr=atan(light_sum#(1))*(255/90)
         colg=atan(light_sum#(2))*(255/90)
         colb=atan(light_sum#(3))*(255/90)

`testlist#(x)=dotp#:x=(x+1)&&511

`set vertexdata diffuse v,rgb(col,col,col)
         `set vertexdata diffuse v,rgb(255,0,0)
         set vertexdata diffuse v,rgba(colr,colg,colb,255)
      next v
   unlock vertexdata

endfunction

function _myrescaleobject(o,sx,sy,sz)
`note that rescalings are permanent- if you scale by 200%, you will then have to scale by
`50% to get back to how it was..

sx#=0.01*sx
sy#=0.01*sy
sz#=0.01*sz

lock vertexdata for limb o,0,1
n=get vertexdata vertex count()-1
for v=0 to n
      x#=sx#*get vertexdata position x(v)
      y#=sy#*get vertexdata position y(v)
      z#=sz#*get vertexdata position z(v)
      set vertexdata position v,x#,y#,z#

nx#=get vertexdata normals x(v)/sx#
      ny#=get vertexdata normals y(v)/sy#
      nz#=get vertexdata normals z(v)/sz#
      `renormalise
      sumsq#=0.0
      inc sumsq#,nx#*nx#
      inc sumsq#,ny#*ny#
      inc sumsq#,nz#*nz#
      sumsq#=1.0/sqrt(sumsq#)
      set vertexdata normals v,sumsq#*nx#,sumsq#*ny#,sumsq#*nz#
next v
unlock vertexdata

endfunction

function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

Rem Project: CODE CHALLENGE lighting demo
Rem Created: 30/04/2009 21:21:42

Rem ***** Main Source File *****

`for the DBP code challenge on THE GAME CREATORS website. Deadine 040509

`PRELIM NOTES

`I've for a long time been frustrated by the inability to use more than 8 lights in Dark Basic.
`I hear this is a limit of DirectX.

`HAving recently learned to use the vertexdata commands, i realise i can use vertex colouring
`to light objects. If i turn off the standard lighting and alter vertex colours, i can have as
`many lights as i want.

`In this demo i intend initially to have point lights. Perhaps more later - eg directional.
`Also, i intend to have an ambient light that will be a constant in the world- although it
`could be position dependent later.

`in most of my game projects, i fake an "ambient skylight", which is like a light coming from
`everywhere in the sky equally, and another light coming from every part on the ground equally.
`To do this i use two lights- one pointing up, and another pointing down and of opposite
`colour to the first light, along with an ambient light.
`This uses up a quarter of the 8 lights. It also should require only one dot product of the
`surface normal with the up/down direction, where in the DirectX implementation it must do
`two, and also two "if product<0 then product=0".

`If i have time, i intend to use a gridding system, so an object doesn't have to loop through
`all lights- only the ones near to it.

`also, i wish to make a system that only recalculates lighting for moved/rotated objects, and
`for moved lights.


`i wish to play a bit with blend mapping too.

`And also with how the lighting amount is mapped onto the vertex colour- for instance, as the
`lighting goes to infinity, it should approach the maximum vertex colour, rather than being
`simply proportionate.


`THIS VERSION

`i didn't get around to making a gridding system. Or functions for updating individual lights.
`also light ranges should be dependent on the light intensity, but they're all pretty much the same
`in the demo so it doesn't matter!

#constant ambient_multiplier 0.4
#constant numlights  32
#constant numobjects 100
#constant blendmode 25

global lightmaxrangesq#   `really should be larger for brighter lights..
`lightmaxrangesq#=6400.0    `range of 80
lightmaxrangesq#=2500.0    `range of 50


sync on:sync rate 60:hide mouse
`sync rate 0

color backdrop 0
autocam off
set normalization on
position camera -100,40,100
point camera 0,0,100


`limbs are a trick to get the object's rotation matrix.
sphere_clone_source=numobjects+numlights+1
make object sphere sphere_clone_source,10,8,12
make object cube sphere_clone_source+1,10
triangle_objnum=sphere_clone_source+2
triangle_meshnum=1
make object triangle triangle_objnum,0,0,0,0,0,0,0,0,0
make mesh from object triangle_meshnum,triangle_objnum
delete object triangle_objnum

for o= sphere_clone_source to sphere_clone_source+1
   for l=1 to 3
      add limb o,l,triangle_meshnum
      hide limb o,l
   next l
   offset limb o,1,1,0,0
   offset limb o,2,0,1,0
   offset limb o,3,0,0,1
next o
delete mesh triangle_meshnum

for o=1 to numobjects

   if rnd(1)
      clone object o,sphere_clone_source
   else
      clone object o,sphere_clone_source+1
   endif
   `scale object o,50+rnd(200),50+rnd(200),50+rnd(200)
      `^^ scaling screws stuff up! maybe something to do with normals not being scaled right..
   `....so - make own function
   _myrescaleobject(o,20+rnd(80),20+rnd(80),20+rnd(80))


   position object o,rnd(200),0,rnd(200)
   convert object fvf o,0x252  `1 is so uses base texture. 4 is so uses vertex diffuse. 2 for something
                               `put middle as 5 (4+1) because need to keep normals data for own lighting..
   set object light o,0
   set object ambient o,0
`   single_pixel_image(o,100+rnd(155),100+rnd(155),100+rnd(155),255)
   single_pixel_image(o,255,255,255,255)
   texture object o,o

   `test blend mapping thing
   set blend mapping on o,1,o,3,blendmode


next o

delete object sphere_clone_source
delete object sphere_clone_source+1 `cube


dim point_light_pos#(numlights,3)
dim point_light_colour#(numlights,3)

for l=1 to numlights
   point_light_pos#(l,0)=100  `radius squared- w position- like raising light up in 2d
                                    `-way to stop lighting going to infinity close to light..
   point_light_pos#(l,1)=rnd(200)
   point_light_pos#(l,2)=10   `+rnd(20)
   point_light_pos#(l,3)=rnd(200)

`   point_light_colour#(l,1)=rnd(100)
`   point_light_colour#(l,2)=rnd(100)
 `  point_light_colour#(l,3)=rnd(100)

 `REMSTART
 `R,G or B light..
   point_light_colour#(l,1)=0
   point_light_colour#(l,2)=0
   point_light_colour#(l,3)=0
   c=rnd(2)+1
   point_light_colour#(l,c)=20
`REMEND
`ang=rnd(359)
`point_light_colour#(l,1)=10+10*cos(ang)
`point_light_colour#(l,2)=10+10*cos(ang+120)
`point_light_colour#(l,3)=10+10*cos(ang+240)
next l

`make sure have certain colour...
l=1
point_light_colour#(l,1)=10
point_light_colour#(l,2)=10
point_light_colour#(l,3)=10



for l=1 to numlights
   colr=atan(1.0*point_light_colour#(l,1))*(255/90)
   colg=atan(1.0*point_light_colour#(l,2))*(255/90)
   colb=atan(1.0*point_light_colour#(l,3))*(255/90)
   o=numobjects+l
   single_pixel_image(o,colr,colg,colb,255)

   o=numobjects+l
   make object sphere o,3
   position object o,point_light_pos#(l,1),point_light_pos#(l,2),point_light_pos#(l,3)
   texture object o,o
   set object light o,0
   set object ambient o,0
   ghost object on o
   disable object zwrite o
next l




dim light_sum#(3) `so can add up contributions from all lights
dim light_vec#(numlights,3) `vector from object (eventually in object's rotated frame) to light,
                  `perhaps of magnitude the intensity of the light at that distance..
dim dolight(numlights) as boolean
dim temp_unrot#(3)
dim objpos#(3)

dim objrotmat#(3,3)  `rotation matrix..

for o=1 to numobjects
   _update_lighting(o)
next o

yt#=90.0  `cam angle initial
do

text 0,0,str$(screen fps())

text 0,10,str$(xt#)
text 0,20,str$(yt#)

if returnkey()=0
   `for o=1 to numobjects:_random_rotate(o):_update_lighting(o):next o
   for o=1 to numobjects/4:_random_rotate(o):_update_lighting(o):next o

endif


move camera 0.5* ( (mouseclick()&&1) - (mouseclick()&&2)<<1 )
xt#=wrapvalue(xt#+mousemovey())
yt#=wrapvalue(yt#+mousemovex())
rotate camera xt#,yt#,0.0

sync
loop



end



function _random_rotate(o)

t=5
`t=50

pitch object up o,rnd(t)
turn object left o,rnd(t)
roll object left o,rnd(t)

endfunction



function _update_lighting(o)


`now set vertex colours according to surface normals....

   `contribution of point light!
   objpos#(1)=object position x(o)
   objpos#(2)=object position y(o)
   objpos#(3)=object position z(o)

   `object rotation matrix- later can have an index for object number as well, so only have
   `to get this info when object rotated. Same for above- only need update if object translated.

   for a=1 to 3
      objrotmat#(1,a)=limb position x(o,a)-objpos#(1)
      objrotmat#(2,a)=limb position y(o,a)-objpos#(2)
      objrotmat#(3,a)=limb position z(o,a)-objpos#(3)
   next a


   for l=1 to numlights
      distsq#=point_light_pos#(l,0) `this is squared "radius" of light
      for c=1 to 3
         t#=point_light_pos#(l,c)-objpos#(c)
         light_vec#(l,c)=t#
         inc distsq#,t#*t#
      next c

      `now skip the rest of calculation if range outside maximum
      if distsq#<lightmaxrangesq#

            `approximation is that intensity and direction of light is constant over whole object
            for c=1 to 3
              ` light_vec#(l,c)=light_vec#(l,c)/distsq#
               temp_unrot#(c)=light_vec#(l,c)/distsq#    `could reuse light sum array, but this way less confusing
            next c
            `rotate into object's frame..
            for c=1 to 3
               light_vec#(l,c)=0.0
            next c
            for a=1 to 3:for b=1 to 3
               inc light_vec#(l,a),temp_unrot#(b)*objrotmat#(b,a)
            next b:next a

            dolight(l)=1

      else

            dolight(l)=0

      endif

   next l


   lock vertexdata for limb o,0,1
      n=get vertexdata vertex count()-1
    `  mytest=n
      for v=0 to n

    `     dotp#=get vertexdata normals y(v)  `SIMPLE UNROTATED VERSION.,.
         dotp#=0.0
       `  inc dotp#,get vertexdata normals x(v)*objrotmat#(1,2)
       `  inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
       `  inc dotp#,get vertexdata normals z(v)*objrotmat#(3,2)
         inc dotp#,get vertexdata normals x(v)*objrotmat#(2,1)
         inc dotp#,get vertexdata normals y(v)*objrotmat#(2,2)
         inc dotp#,get vertexdata normals z(v)*objrotmat#(2,3)

         for c=1 to 3
            light_sum#(c)=ambient_multiplier*(dotp#+1.0)
         next c

         `REMSTART
         for l=1 to numlights:if dolight(l)  `better to use a list of lights, especially if number done per object
                                             `is much less than total number of lights.
               s#=0.0
               inc s#,light_vec#(l,1)*get vertexdata normals x(v)
               inc s#,light_vec#(l,2)*get vertexdata normals y(v)
               inc s#,light_vec#(l,3)*get vertexdata normals z(v)
               if s#>0.0
                  for c=1 to 3
                     inc light_sum#(c),s#*point_light_colour#(l,c)
                  next c
               endif
         endif:next l
         `REMEND

         `"ambient" skylight
         `col=128+127*dotp#
         colr=atan(light_sum#(1))*(255/90)
         colg=atan(light_sum#(2))*(255/90)
         colb=atan(light_sum#(3))*(255/90)

         `testlist#(x)=dotp#:x=(x+1)&&511

         `set vertexdata diffuse v,rgb(col,col,col)
         `set vertexdata diffuse v,rgb(255,0,0)
         set vertexdata diffuse v,rgba(colr,colg,colb,255)
      next v
   unlock vertexdata

endfunction





function _myrescaleobject(o,sx,sy,sz)
`note that rescalings are permanent- if you scale by 200%, you will then have to scale by
`50% to get back to how it was..

sx#=0.01*sx
sy#=0.01*sy
sz#=0.01*sz

lock vertexdata for limb o,0,1
n=get vertexdata vertex count()-1
for v=0 to n
      x#=sx#*get vertexdata position x(v)
      y#=sy#*get vertexdata position y(v)
      z#=sz#*get vertexdata position z(v)
      set vertexdata position v,x#,y#,z#

      nx#=get vertexdata normals x(v)/sx#
      ny#=get vertexdata normals y(v)/sy#
      nz#=get vertexdata normals z(v)/sz#
      `renormalise
      sumsq#=0.0
      inc sumsq#,nx#*nx#
      inc sumsq#,ny#*ny#
      inc sumsq#,nz#*nz#
      sumsq#=1.0/sqrt(sumsq#)
      set vertexdata normals v,sumsq#*nx#,sumsq#*ny#,sumsq#*nz#
next v
unlock vertexdata


endfunction









function single_pixel_image(imagenum,red,green,blue,alpha)
temp_memblocknum=1
   make memblock temp_memblocknum,16
   write memblock dword temp_memblocknum,0,1
   write memblock dword temp_memblocknum,4,1
   write memblock dword temp_memblocknum,8,32
   write memblock dword temp_memblocknum,12,rgba(red,green,blue,alpha)
   make image from memblock imagenum,1
   delete memblock temp_memblocknum
endfunction

`RGBA function by Aaron Miller
function rgba(r,g,b,a)
   c = (a and 0xff) << 24 or ((r and 0xff) << 16) or ((g and 0xff) << 8) or (b and 0xff)
endfunction c

Back to top

Profile PM

acelepage

20

Years of Service

User Offline

Joined: 2nd Jun 2004

Location: Plattsville

Posted: 4th May 2009 22:06 Edited at: 4th May 2009 23:26

I didn't have time to finish this, but I wanted to get it posted anyway. I think I might keep working on this one as it could prove useful when setting up objects. Right now it only adjusts the properties of an object that affect lighting of the object. I want to add the ability to create lights, position them, and adjust their properties.

set display mode 1024,768,32
backdrop on
color backdrop 0

type object_lighting
  light as integer
  ambient as integer
  diffuse as integer
  ambience as integer
  specular as integer
  emissive as integer
  specularpower as integer
endtype
type light_values
  kind as integer
  active as integer
  range as integer
  color as integer
  x as float
  y as float
  z as float
  ax as float
  ay as float
  az as float
  px as float
  py as float
  pz as float
  inner as float
  outer as float
endtype
ambient_power as integer
ambient_color as integer
ambient_active as integer
type slider
  xtop as integer
  xbot as integer
  ytop as integer
  ybot as integer
  xsize as integer
  ysize as integer
  color as integer
  value as integer
endtype
dim Obj(1) as object_lighting
dim Lit(1) as light_values
global dim parmname$(7)
global dim objcol(7,3) as slider
global specularpower as slider
global currparm
global currcol
global currobj=1
global litang as float
global litdist as float
global currlight=1
global onceclick

litang=0.0
litdist=20.0

global Bobjparm=1
global Iobjparm=1
global Sobjparm=1

for y=1 to 7
  read parmname$(y)
  for x=1 to 3
    if (y<5 or x=1)
      objcol(y,x).ytop=y*40-10+x*10
      objcol(y,x).ybot=y*40+x*10
      objcol(y,x).xtop=100
      objcol(y,x).xbot=200
      objcol(y,x).xsize=2
      objcol(y,x).ysize=4
      objcol(y,x).value=10
    endif
  next x
  if y<5
    objcol(y,1).color=rgb(255,0,0)
    objcol(y,2).color=rgb(0,255,0)
    objcol(y,3).color=rgb(0,0,255)
  else
    objcol(y,1).color=rgb(128,128,128)
  endif
next y
objcol(6,1).ytop=2
objcol(6,1).xtop=100
objcol(6,1).ybot=20
objcol(6,1).xbot=120
objcol(6,1).value=1
objcol(7,1).ytop=2
objcol(7,1).xtop=200
objcol(7,1).ybot=20
objcol(7,1).xbot=220
objcol(7,1).value=1

data "Diffuse","Ambience","Specular","Emissive","Spec. Power","Light","Ambient"

make object sphere currobj,10,64,64
position object currobj,0,0,0

make light currlight

create bitmap Bobjparm,256,256
set current bitmap 0
drawparm()

position camera 0,20,20
point camera 0,0,0

while not escapekey()
  getinput()
  spin_light(currlight)
endwhile

function spin_light(litobj)
  lit(litobj).x=sin(litang)*litdist
  lit(litobj).y=20
  lit(litobj).z=cos(litang)*litdist
  litang=wrapvalue(litang+0.1)
  position light litobj,lit(litobj).x,lit(litobj).y,lit(litobj).z
endfunction
function apply_light(obj)
  set object diffuse obj,rgb(objcol(1,1).value*2.55,objcol(1,2).value*2.55,objcol(1,3).value*2.55)
  set object ambience obj,rgb(objcol(2,1).value*2.55,objcol(2,2).value*2.55,objcol(2,3).value*2.55)
  set object specular obj,rgb(objcol(3,1).value*2.55,objcol(3,2).value*2.55,objcol(3,3).value*2.55)
  set object emissive obj,rgb(objcol(4,1).value*2.55,objcol(4,2).value*2.55,objcol(4,3).value*2.55)
  set object specular power obj,objcol(5,1).value
  set object light obj,objcol(6,1).value
  set object ambience obj,objcol(7,1).value
endfunction
function getinput()
  if mouseclick()=1
    mx=mousex()
    my=mousey()
    if currparm=0 and currcol=0
      getrange(mx,my)
    endif
    if currparm>0 and currcol>0
      if currparm<=5
        objcol(currparm,currcol).value=mx-sprite x(Sobjparm)-objcol(currparm,currcol).xtop
        if objcol(currparm,currcol).value<0 then objcol(currparm,currcol).value=0
        if objcol(currparm,currcol).value>100 then objcol(currparm,currcol).value=100
      else
        if currparm <=7 and onceclick=0
          objcol(currparm,1).value=1-objcol(currparm,1).value
          onceclick=1
        endif
      endif
    endif
    drawparm()
  else
    currparm=0
    currcol=0
    onceclick=0
  endif
endfunction

function getrange(mx,my)
  for y=1 to 5
    for x=1 to 3
      if (mx>=objcol(y,x).xtop+sprite x(Sobjparm)) and (mx<=objcol(y,x).xbot+sprite x(Sobjparm)) and (my>=objcol(y,x).ytop+sprite y(Sobjparm)) and (my<=objcol(y,x).ybot+sprite y(Sobjparm))
        currparm=y
        currcol=x
      endif
    next x
  next y
  for y=6 to 7
    if (mx>=objcol(y,1).xtop+sprite x(Sobjparm)) and (mx<=objcol(y,1).xbot+sprite x(Sobjparm)) and (my>=objcol(y,1).ytop+sprite y(Sobjparm)) and (my<=objcol(y,1).ybot+sprite y(Sobjparm))
      currparm=y
      currcol=1
    endif
  next y
endfunction
function drawparm()
  set current bitmap Bobjparm
  ink rgb(255,255,255),0
  box 0,0,255,255
  pos=1
  for y=1 to 5
    ink 0,0
    set cursor 2,objcol(y,1).ytop
    print parmname$(y)
    for x=1 to 3
      if (y<5 or x=1)
        mid=objcol(y,x).ytop+int((objcol(y,x).ybot-objcol(y,x).ytop)/2)
        ink 0,0
        box objcol(y,x).xtop,mid-1,objcol(y,x).xbot,mid+1
        box objcol(y,x).xtop+objcol(y,x).value-objcol(y,x).xsize,mid-objcol(y,x).ysize,objcol(y,x).xtop+objcol(y,x).value+objcol(y,x).xsize,mid+objcol(y,x).ysize
        ink objcol(y,x).color,0
        box objcol(y,x).xtop+objcol(y,x).value-objcol(y,x).xsize+1,mid-objcol(y,x).ysize+1,objcol(y,x).xtop+objcol(y,x).value+objcol(y,x).xsize-1,mid+objcol(y,x).ysize-1
      endif
    next x
  next y
  for y=6 to 7
    ink 0,0
    set cursor objcol(y,1).xtop-70,objcol(y,1).ytop
    print parmname$(y)
    if objcol(y,1).value=1
      ink rgb(128,255,128),0
    else
      ink rgb(0,64,0),0
    endif
    box objcol(y,1).xtop,objcol(y,1).ytop,objcol(y,1).xbot,objcol(y,1).ybot
  next y
  get image Iobjparm,0,0,255,255,1
  set current bitmap 0
  sprite Sobjparm,768,0,Iobjparm
  apply_light(currobj)
endfunction

set display mode 1024,768,32
backdrop on
color backdrop 0

type object_lighting
  light as integer
  ambient as integer
  diffuse as integer
  ambience as integer
  specular as integer
  emissive as integer
  specularpower as integer
endtype
type light_values
  kind as integer
  active as integer
  range as integer
  color as integer
  x as float
  y as float
  z as float
  ax as float
  ay as float
  az as float
  px as float
  py as float
  pz as float
  inner as float
  outer as float
endtype
ambient_power as integer
ambient_color as integer
ambient_active as integer
type slider
  xtop as integer
  xbot as integer
  ytop as integer
  ybot as integer
  xsize as integer
  ysize as integer
  color as integer
  value as integer
endtype
dim Obj(1) as object_lighting
dim Lit(1) as light_values
global dim parmname$(7)
global dim objcol(7,3) as slider
global specularpower as slider
global currparm
global currcol
global currobj=1
global litang as float
global litdist as float
global currlight=1
global onceclick

litang=0.0
litdist=20.0


global Bobjparm=1
global Iobjparm=1
global Sobjparm=1

for y=1 to 7
  read parmname$(y)
  for x=1 to 3
    if (y<5 or x=1)
      objcol(y,x).ytop=y*40-10+x*10
      objcol(y,x).ybot=y*40+x*10
      objcol(y,x).xtop=100
      objcol(y,x).xbot=200
      objcol(y,x).xsize=2
      objcol(y,x).ysize=4
      objcol(y,x).value=10
    endif
  next x
  if y<5
    objcol(y,1).color=rgb(255,0,0)
    objcol(y,2).color=rgb(0,255,0)
    objcol(y,3).color=rgb(0,0,255)
  else
    objcol(y,1).color=rgb(128,128,128)
  endif
next y
objcol(6,1).ytop=2
objcol(6,1).xtop=100
objcol(6,1).ybot=20
objcol(6,1).xbot=120
objcol(6,1).value=1
objcol(7,1).ytop=2
objcol(7,1).xtop=200
objcol(7,1).ybot=20
objcol(7,1).xbot=220
objcol(7,1).value=1

data "Diffuse","Ambience","Specular","Emissive","Spec. Power","Light","Ambient"

make object sphere currobj,10,64,64
position object currobj,0,0,0

make light currlight

create bitmap Bobjparm,256,256
set current bitmap 0
drawparm()

position camera 0,20,20
point camera 0,0,0

while not escapekey()
  getinput()
  spin_light(currlight)
endwhile

function spin_light(litobj)
  lit(litobj).x=sin(litang)*litdist
  lit(litobj).y=20
  lit(litobj).z=cos(litang)*litdist
  litang=wrapvalue(litang+0.1)
  position light litobj,lit(litobj).x,lit(litobj).y,lit(litobj).z
endfunction
function apply_light(obj)
  set object diffuse obj,rgb(objcol(1,1).value*2.55,objcol(1,2).value*2.55,objcol(1,3).value*2.55)
  set object ambience obj,rgb(objcol(2,1).value*2.55,objcol(2,2).value*2.55,objcol(2,3).value*2.55)
  set object specular obj,rgb(objcol(3,1).value*2.55,objcol(3,2).value*2.55,objcol(3,3).value*2.55)
  set object emissive obj,rgb(objcol(4,1).value*2.55,objcol(4,2).value*2.55,objcol(4,3).value*2.55)
  set object specular power obj,objcol(5,1).value
  set object light obj,objcol(6,1).value
  set object ambience obj,objcol(7,1).value
endfunction
function getinput()
  if mouseclick()=1
    mx=mousex()
    my=mousey()
    if currparm=0 and currcol=0
      getrange(mx,my)
    endif
    if currparm>0 and currcol>0
      if currparm<=5
        objcol(currparm,currcol).value=mx-sprite x(Sobjparm)-objcol(currparm,currcol).xtop
        if objcol(currparm,currcol).value<0 then objcol(currparm,currcol).value=0
        if objcol(currparm,currcol).value>100 then objcol(currparm,currcol).value=100
      else
        if currparm <=7 and onceclick=0
          objcol(currparm,1).value=1-objcol(currparm,1).value
          onceclick=1
        endif
      endif
    endif
    drawparm()
  else
    currparm=0
    currcol=0
    onceclick=0
  endif
endfunction

function getrange(mx,my)
  for y=1 to 5
    for x=1 to 3
      if (mx>=objcol(y,x).xtop+sprite x(Sobjparm)) and (mx<=objcol(y,x).xbot+sprite x(Sobjparm)) and (my>=objcol(y,x).ytop+sprite y(Sobjparm)) and (my<=objcol(y,x).ybot+sprite y(Sobjparm))
        currparm=y
        currcol=x
      endif
    next x
  next y
  for y=6 to 7
    if (mx>=objcol(y,1).xtop+sprite x(Sobjparm)) and (mx<=objcol(y,1).xbot+sprite x(Sobjparm)) and (my>=objcol(y,1).ytop+sprite y(Sobjparm)) and (my<=objcol(y,1).ybot+sprite y(Sobjparm))
      currparm=y
      currcol=1
    endif
  next y
endfunction
function drawparm()
  set current bitmap Bobjparm
  ink rgb(255,255,255),0
  box 0,0,255,255
  pos=1
  for y=1 to 5
    ink 0,0
    set cursor 2,objcol(y,1).ytop
    print parmname$(y)
    for x=1 to 3
      if (y<5 or x=1)
        mid=objcol(y,x).ytop+int((objcol(y,x).ybot-objcol(y,x).ytop)/2)
        ink 0,0
        box objcol(y,x).xtop,mid-1,objcol(y,x).xbot,mid+1
        box objcol(y,x).xtop+objcol(y,x).value-objcol(y,x).xsize,mid-objcol(y,x).ysize,objcol(y,x).xtop+objcol(y,x).value+objcol(y,x).xsize,mid+objcol(y,x).ysize
        ink objcol(y,x).color,0
        box objcol(y,x).xtop+objcol(y,x).value-objcol(y,x).xsize+1,mid-objcol(y,x).ysize+1,objcol(y,x).xtop+objcol(y,x).value+objcol(y,x).xsize-1,mid+objcol(y,x).ysize-1
      endif
    next x
  next y
  for y=6 to 7
    ink 0,0
    set cursor objcol(y,1).xtop-70,objcol(y,1).ytop
    print parmname$(y)
    if objcol(y,1).value=1
      ink rgb(128,255,128),0
    else
      ink rgb(0,64,0),0
    endif
    box objcol(y,1).xtop,objcol(y,1).ytop,objcol(y,1).xbot,objcol(y,1).ybot
  next y
  get image Iobjparm,0,0,255,255,1
  set current bitmap 0
  sprite Sobjparm,768,0,Iobjparm
  apply_light(currobj)
endfunction

( 2b || !2b ), that is the question. The answer: true

Back to top

Profile PM Email

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 5th May 2009 18:57 Edited at: 5th May 2009 19:18

It being tuesday, i think all the entries that will get entered have been entered, thus i am going to give my verdict.

First, thanks to you all for taking the time to make those lighting demos, its good to see people taking part in these challenges again.

There were three pretty different but all very good demos of lighting here, and its good to see different approaches being used.

Calcyman:
A very nice lighting texture maker, the lights really did look like they were on the screen. I think that if this could have been developed into 3d with a bit more interactivity and real time updating, this could have been a great demo.

Dr Tank:
An interesting approach to lighting that i dont think many people have used before, certainly one that i hadnt heard of before. It included 3d, the capability to move around and view from different angles, and it ran fairly quickly on the pc. One point though, in your code, the ... symbol in rem lines often remmed out the line below as well, which fooled me more than once

.

Acelepage:
A very nice demo using the dbpro built in lighting commands, and a little scroll bar box in the top corner. Professional feel to it, and i think that it worked very well.

Winner:

Dr Tank - I liked the use of an unusual command, and that 
you could "explore" the objects and see the lighting effects from 
your own angle. A very nice demo! Well done.

Congrats to everyone else!

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 6th May 2009 00:12

Yeah! I'm awesome! Thanks very much.

Kudos to everyone who entered too. acelepage's thing is prett interesting. I've never totally got my head around how it adds together all the different lighting contributions. This should help me figure it out.

Quote: "in your code, the ... symbol in rem lines often remmed out the line below as well, which fooled me more than once ."

I'm always doing this. Must stop. In the standard DBP editor, ... doesn't mean anything special, but in one or more alternatives, it takes it to mean rem, or ' or something, and i have a habit of writing ... a lot in my comments.

Anyway i guess i should be dreaming up a new challenge. I was pondering some kind of shooting game without movement, or with automatic movement. Mouse or arrow keys. With a fire/other action button or two. Let's say 3 "fire" buttons max.

Point Blank, fairground shooting, coconut shy. You could remake Operation Wolf with DBP primitives, or the really ambitious could do a rail shooter like Time Crisis, Gunblade NY or Starblade. I guess Space Harrier would fit within the rules at a stretch. But then maybe you could extend this to tunnel shooters, and then why not 2d shooters in general? I guess the rules aren't that well defined! Try to stick to the rail shooter "spirit"! Has this challenge been set before? Would anyone enter? Or has anyone got a better idea?

I'm thinking a couple of weeks time limit. Main judging criteria to be enjoyment.

Here are some vids if anyone wants some ideas.

Point Blank
Space Harrier (this looks really awesome. Kind of wish i was eligible to enter)
Starblade

It doesn't have to be a complete game, or long. Just fun!

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 6th May 2009 00:16

Congrats Dr Tank! A well-deserved win.

I think ... is a line concatenation symbol in some editors (so it combines the line it is on with the next line). That would explain why ...s at the end of a rem line rem out the next line.

A rail shooter sounds fun, I will do one if I have time.

Back to top

Profile PM Email Website

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 7th May 2009 22:22

Sweet. I look forward to seeing what you and anyone else who want to enter come up with. Remember the movement is optional- it could just be shooting balls bouncing around a screen ..

So i neglected to set a date. I guess MONDAY 18TH MAY then.

Back to top

Profile PM

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 7th May 2009 23:27

Ill knock summat up, Ive been meaning to look into ammuntion trajectories for a while, so if I get the time, ill aim for a marksman range. =)

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 10th May 2009 18:58

Here's the level editor for my rail shooter:

Unfortunately I forgot to save that level

. I'll have to post game shots later.

Back to top

Profile PM Email Website

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 10th May 2009 19:32

The screenshots don't show the game that well, so I guess I'll post a little preview version.

`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,768,32,0,4,0
autocam off
hide mouse
randomize timer()

`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
endtype
type EnemyType
    ObjectNo as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as integer
    TriggerPosZ as integer
    Raised as integer
    TargetHeight as float
endtype

#Constant TerrainMatrix    1

#Constant TerrainTexture   1
#Constant CrosshairsImage  2

#Constant CrosshairsSprite 1

cameraheight#=20.0
movespeed#=0.4
currentwaypoint=1
findtolerance#=0.5

lives=3

`======= Media Setup ============================

set image colorkey 1,1,1

gosub SetupWaypoints
gosub SetupMap
gosub SetupEnemies

`Textures

create bitmap 1,1000,90

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

get image TerrainTexture,1,1,256,64,1

`Crosshairs
cls rgb(1,1,1)
ink rgb(200,200,200)
line 0,40,80,40
line 40,0,40,80
circle 40,40,20
get image CrosshairsImage,1,1,80,80,1
sprite CrosshairsSprite,0,0,CrosshairsImage
set sprite CrosshairsSprite,1,1
offset sprite CrosshairsSprite,40,40

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

ammo=array count(Enemies(0))*1.5

`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

camerax#=Waypoints(1).PosX
cameraz#=Waypoints(1).PosZ
cameraangx#=Waypoints(1).AngX
cameraangy#=Waypoints(1).AngY

ink rgb(255,255,255)

do

sprite CrosshairsSprite,mousex(),mousey(),CrosshairsImage

position camera camerax#,cameraheight#+get ground height(TerrainMatrix,camerax#,cameraz#),cameraz#
rotate camera cameraangx#,cameraangy#,0

`Move
if abs(camerax#-Waypoints(currentwaypoint).PosX)<=findtolerance# and abs(cameraz#-Waypoints(currentwaypoint).PosZ)<=findtolerance#
    if delaytimer=0
        delaytimer=timer()
        else
        if timer()-delaytimer>=Waypoints(currentwaypoint).Delay
            if currentwaypoint<array count(Waypoints(0))
                delaytimer=0
                `cameraangy#=Waypoints(currentwaypoint).AngY
                `cameraangz#=Waypoints(currentwaypoint).AngX
                inc currentwaypoint
                time#=distance(currentwaypoint,camerax#,cameraz#)/movespeed#
                cameraspeedx#=(Waypoints(currentwaypoint).AngX-cameraangx#)/time#
                cameraspeedy#=(Waypoints(currentwaypoint).AngY-cameraangy#)/time#
                if cameraangx#>270 and Waypoints(currentwaypoint).AngX<90
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX+180)-(cameraangx#-180))/time#
                endif
                if cameraangy#>270 and Waypoints(currentwaypoint).AngY<90
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY+180)-(cameraangy#-180))/time#
                endif
                if cameraangx#<90 and Waypoints(currentwaypoint).AngX>270
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX-180)-(cameraangx#+180))/time#
                endif
                if cameraangy#<90 and Waypoints(currentwaypoint).AngY>270
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY-180)-(cameraangy#+180))/time#
                endif
                else
                text 300,300,"Level Completed!"
            endif
        endif
    endif

else

`Follow waypoints
    inc camerax#,sin(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    inc cameraz#,cos(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    
    `Rotate
    cameraangy#=wrapvalue(cameraangy#+cameraspeedy#)
    `cameraangx#=cameraangx#+cameraspeedx#
    
    inc tempiterations
    text 10,100,str$(tempiterations)
    text 10,110,str$(iterations)
    text 10,130,str$(realiterations)
endif

`Shoot
if mouseclick()=1 and clicked=0
    clicked=1
    pick screen mousex(),mousey(),mapsize*5
    dec ammo
    for c=1 to array count(Enemies(0))
        if Enemies(c).Killed=0
            temp=intersect object(Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#,get pick vector x()+camerax#,get pick vector y()+camera position y(),get pick vector z()+cameraZ#)
            if temp>0
                Enemies(c).Killed=1
            endif
        endif
    next c
endif

`Update Enemies
for c=1 to array count(Enemies(0))
    `Kill
    if Enemies(c).Killed=1
        move object Enemies(c).ObjectNo,-1
        inc Enemies(c).FallSpeed
        move object down Enemies(c).ObjectNo,Enemies(c).FallSpeed*0.05
        
        else
        
        point object Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#

`Raise
        if Enemies(c).Raised=0
            if abs(camerax#-Enemies(c).TriggerPosX)<5 and abs(cameraz#-Enemies(c).TriggerPosZ)<5
                Enemies(c).Raised=timer()
            endif
            else
            if object position y(Enemies(c).ObjectNo)<Enemies(c).TargetHeight
                move object up Enemies(c).ObjectNo,2
            endif
            if timer()-Enemies(c).Raised>=2200 and object in screen(Enemies(c).ObjectNo)
                cls rgb(255,0,0)
                Enemies(c).Killed=1
                dec Lives
            endif
        endif
    endif
next c

if mouseclick()=0 then clicked=0

temp$=""
for c=1 to Ammo
    temp$=temp$+"|"
next c
text 10,10,"Ammo:  "+temp$
temp$=""
for c=1 to lives
    temp$=temp$+"|"
next c
text 10,30,"Lives: "+temp$

sync
loop

`======= ==== =============== ===================
`================================================

SetupWaypoints:

read waypointcount
DIM Waypoints(waypointcount) as WaypointType

for c=1 to waypointcount
    read Waypoints(c).PosX
    read Waypoints(c).PosZ
    read Waypoints(c).AngY
    read Waypoints(c).AngX
    Waypoints(c).AngY=wrapvalue(Waypoints(c).AngY)
    Waypoints(c).AngX=wrapvalue(Waypoints(c).AngX)
    `Waypoints(c).Delay=1000
next c

return

SetupMap:

read maptiles
mapsize=maptiles*10

make matrix TerrainMatrix,mapsize,mapsize,maptiles,maptiles

for x=1 to maptiles
    for z=1 to maptiles
        read temp
        set matrix height TerrainMatrix,x,z,temp
    next z
next x

return

SetupEnemies:

read enemycount
DIM Enemies(enemycount) as EnemyType

for c=1 to enemycount
    Enemies(c).ObjectNo=FreeObject()
    read Enemies(c).PosX
    read Enemies(c).PosZ
    read Enemies(c).TriggerPosX
    read Enemies(c).TriggerPosZ
    
    make object box Enemies(c).ObjectNo,10,30,5
    Enemies(c).TargetHeight=get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15
    position object Enemies(c).ObjectNo,Enemies(c).PosX,get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15-50,Enemies(c).PosZ
next c

return

function distance(waypoint,x#,z#)
temp#=SQRT((Waypoints(waypoint).PosX-x#)*(Waypoints(waypoint).PosX-x#)+(Waypoints(waypoint).PosZ-z#)*(Waypoints(waypoint).PosZ-z#))
endfunction temp#

function FreeObject()
repeat
inc objects
until object exist(objects)=0
endfunction objects

`Level data
data 11
data 879.398498535,97.2568054199,-36.5,0
data 781.529907227,196.109603882,-102,348
data 728.260070801,298.140991211,-73,336
data 714.438720703,402.249633789,-97,328.5
data 640.965820313,453.965179443,-16.5,349
data 539.458679199,432.535064697,-46.5,336.5
data 492.64276123,305.413848877,-169,341.5
data 413.247924805,291.466003418,-158,344.5
data 309.362609863,331.293457031,-103,0
data 181.167404175,387.673858643,-21.5,0
data 154.493972778,459.416412354,0,0

data 100
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,2.5,2.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,1.5,3.5,3.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,4,4,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,1,1,1,1,1.5,1.5,2.5,2.5,3,2.5,1.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,2,2.5,2.5,4.5,4.5,2.5,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,1.5,3,5.5,6.5,7.5,9,12.5,12,14,14,14,8.5,7.5,4.5,3,0,0,0,0,0,0,0,0,0,0,0,2,2.5,4,5,5.5,4,3.5,2,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,1,1,1,0.5,0.5,0.5,1,1,1.5,7.5,12.5,17,20,22.5,21,23,23,25,26.5,30.5,29,24,13.5,5.5,0,0,0,0,0,0,0,0,0,0,0,1.5,2,4,5,5.5,5,5,3,2,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,1.5,2,2,1.5,0.5,2,3.5,6.5,12.5,16,22.5,23.5,29.5,31.5,32,26.5,26.5,25,25.5,27,31,29,24,13.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0.5,1,4,7,8,8.5,9.5,7,4,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,2.5,3.5,3.5,3,2.5,1.5,0.5,2,5,10,25,29.5,36,27.5,31.5,31.5,31.5,25,24.5,23,23,25,29,28,22,12,4.5,0,0,0,0,0,0,0,0,0,0,0,0,1,4.5,8,9,10,11,8,4.5,3.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3,4,5,5,2.5,2,1,0,1.5,5,12,27,31,35,24.5,26.5,25,24.5,17.5,16.5,15,14,13.5,12.5,7.5,4.5,2.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,7,8,9,10.5,7.5,4.5,3.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,3,3.5,4.5,5,5,2.5,2,1,0,1.5,5,9.5,19.5,21.5,23.5,15,15,14,14,9,7,6.5,5,4,3.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,6,7,8,9.5,8.5,5.5,4.5,3.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,3,3,5.5,5,4.5,4.5,4.5,2,1.5,0.5,0,1.5,4.5,7.5,9.5,10.5,8.5,6.5,6.5,6,5,3.5,3,2,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,5.5,7,8,10.5,11,8,6.5,5.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,6.5,6.5,9,6.5,4,3.5,3.5,1,0.5,0,0,0,1.5,2.5,3.5,3.5,3.5,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,2.5,4,5.5,7,9,8,6.5,5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,4,7,7.5,7,8,5,2,1.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,5.5,7.5,10,9.5,8,5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,3.5,4,7,9.5,9,7,6.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,1,1,1,1,2.5,2.5,2,0,0,0,0,0,0,0,0,0,0,0.5,2,5,7.5,10,10,8.5,5.5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,4,4.5,7.5,9.5,8.5,6.5,6,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,3.5,3.5,4.5,7,7.5,9,11.5,11,8,6,3.5,2,0,0,0,0,0,0,0,0,0,0,0,1,3.5,6,8,8,7,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,4,5,7,6,6.5,7,6,4,3.5,4,6,6,3.5,0,0,0,0,0,0,0,0,1.5,2,3,5,7,9,14,17.5,19,19.5,19.5,21.5,22.5,25,23,16.5,8,6,3.5,2,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,3.5,5.5,5.5,5,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,4.5,5.5,7.5,6.5,4.5,3.5,2.5,0.5,0.5,5,8.5,8,3.5,0,0,0,0,0,1,1,3,8.5,10,10,15,18,18.5,25.5,30,30,30,28,27,23.5,25,23,16.5,7.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,3.5,3.5,3.5,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,2.5,4,6,6,5.5,7,5.5,3.5,2.5,1.5,2,3,7.5,6,5,0.5,0,0,0,0,0,1,1,3.5,12.5,18,24.5,32,34.5,27.5,29.5,31.5,31,30,28,27,23.5,24,20,13,4.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,1.5,1.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,3,4.5,6.5,6,4.5,4,2.5,0.5,0,1.5,3.5,4.5,5,3,2,0,0,0,0,0,0,1,1,3.5,12.5,18,24.5,32,34.5,27.5,29,30.5,29.5,27.5,24.5,20.5,13.5,11.5,10.5,8,4,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,4,5.5,7.5,6.5,4,3.5,2,0,2,5,7,5.5,2.5,0.5,0,0,0,0,0,0,0,1,1,3.5,12.5,18,26.5,33,33,21.5,19.5,19,16,14,12,9,6,4.5,3,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,4,4,4.5,3.5,1,0.5,0.5,1.5,5,8,6.5,3,0,0,0,0,0,0,0,0,0,1,1,3.5,9,11,14,16,14.5,5,3,3.5,1.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,4,4,4,3,0.5,0,2,4.5,8,7.5,5,1.5,0,0,0,0,0,0,0,0,0,0,0,0.5,2,3,7.5,7.5,7.5,1.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,1.5,1.5,1.5,0.5,1.5,5.5,8,8,4,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,6.5,6.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0.5,4.5,8.5,9,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,9,9,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,9.5,14.5,10.5,5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,11,11,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,9.5,15.5,18,12.5,9,7.5,6,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,10,10,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,5,14,24,30,26.5,20,14,8.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,7,7,4.5,0,0,0,0.5,0.5,0.5,1,1,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,9.5,16,23,29.5,30,22,15,8,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,6,0,0,0,0.5,0.5,1.5,2,2,2,2.5,1.5,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,7,11.5,18,27,28,18,8,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,9,9,6,0,0,0.5,1,1.5,3,4,3.5,3.5,3.5,2,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,4.5,7,10.5,16,15,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,7.5,7.5,4.5,0.5,0.5,1.5,3.5,4.5,5.5,8,7.5,6.5,6,4.5,2,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,11.5,13.5,7.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,5,5,2,1.5,2,3,5,7,8,11,10.5,10,8.5,6,2.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,10,14,12.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,3.5,6,9.5,12.5,15.5,17.5,15.5,13.5,10,5.5,2.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8.5,17,17.5,9,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,4.5,8,11.5,14,16,18,15,12.5,8.5,4.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11.5,15.5,15.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,6.5,9.5,13,15.5,17,16.5,14,11.5,7.5,4,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14.5,13.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,6,8.5,10.5,12.5,14.5,12.5,10,8.5,5,1.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,12,12,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2,4.5,7,9,10,12,9.5,7,5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,12.5,12.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,3,4,4,4,4,2,1,1,0.5,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12.5,13,13,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,5,5,1,0,0,0,0,0,2,2,2,2.5,2.5,0.5,0.5,0.5,0,1.5,2.5,3,3,3,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13.5,14,14,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7.5,9.5,11,3.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,3.5,5,5,3.5,2.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,14,14,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7.5,11,15.5,9,6.5,2,1,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,6,8,8,6.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,14,14,7.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,6.5,11.5,11,11.5,11,8.5,5,0.5,0,0,0,0,0,0,0,0,0,1.5,4.5,7,9,9,7.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,13,13,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,6,9.5,13,15,13,7.5,1.5,0,0,0,0,0,0,0,0,0,0.5,4,8.5,11.5,12,11.5,8,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,13.5,13.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,6,10,19,19,15,5,0.5,0,0,0,0,0,0.5,1.5,1.5,2,4.5,9.5,12,12.5,13,10.5,5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,11.5,11.5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3.5,8,14.5,18,16.5,10,3.5,0.5,0,0,0,0,0.5,2,2,2.5,5,11.5,13.5,14.5,15,12.5,5.5,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,8,9,7.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,5,10.5,15.5,16.5,13.5,6,2.5,0,0,0,0,0.5,2,2,3,4.5,10.5,13,14,14.5,13,6.5,2.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,7.5,7,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3,4.5,9,10,13,9,5.5,1,0,0,0,0.5,2,2,3,3.5,9.5,13,15,16.5,16.5,10,5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,9,9,7.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,5,10.5,10.5,8,2.5,0,0,0,0.5,2,2,3,3,7,9.5,12.5,14,15,10.5,6.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,6.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3,6.5,9.5,7.5,4,0.5,0,0,0,0.5,0.5,1,1,6.5,9.5,13.5,12.5,14,11.5,8,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4,8,8,6,2,0,0,0,0,1,1.5,1.5,5,7.5,11,11.5,14,14,12,7.5,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,5.5,8,6.5,3,0,0,0,0,1.5,1.5,1.5,4.5,6.5,9.5,10.5,13.5,16,14.5,10,6,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,5.5,9.5,7.5,4.5,0.5,0,0,0.5,2,2,2,3,3.5,5.5,8.5,11.5,14.5,14,11,7,3.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4.5,7.5,7.5,5,2,0,0,0.5,2.5,2.5,2.5,4.5,4.5,4.5,6.5,11,14.5,14,12.5,8.5,4,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,6.5,10,8,4.5,0,0,0.5,3,4,5.5,7,7,4,5.5,9.5,12.5,13.5,13,9,5,2.5,1,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,1.5,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,5,11,9,6,0,0,0.5,2.5,4,6.5,8,9,4.5,4,6.5,9.5,10,11,8.5,6,3.5,1.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,1,4,4.5,5,5.5,5,2,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,4.5,12,11,7.5,0,0,0.5,3,4.5,8,10,12.5,6.5,6,7,10,13.5,15.5,13.5,10.5,7,2.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1,3.5,11.5,13,12.5,13,11,3,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0.5,3,10.5,10,7.5,0,0,0,3,5,7.5,12.5,17,11.5,7,6,10,14.5,16.5,15,12.5,8,2.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,4.5,14.5,17.5,17,17,14.5,4.5,1.5,1,0.5,0.5,0.5,0.5,0,0,0,0,2,2,2,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0,2,9,9,7,0,0,0,2.5,5.5,7.5,13,17.5,14.5,9.5,6.5,10,15.5,18.5,17,16.5,13.5,7,2.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,5,15.5,19,18.5,18.5,15.5,5,1.5,1,3,3.5,5.5,6,7,7.5,8.5,7.5,7,3,2,30,30,62.5,62.5,62.5,30,30,0,0,0,0,0,0,0,0,0,0,0,2.5,10,10,7.5,0,0,0,2,5,6,13.5,16,15,8.5,7.5,11,14.5,20,19,18.5,15,10,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,5.5,15.5,18.5,18,18,14.5,4.5,1.5,1,4,6,8.5,11.5,13,14.5,14,12,10,4,2,30,30,62.5,62.5,62.5,30,30,0,0,0,0,0,0,0,0,0,0,0,3.5,12.5,12.5,9,0,0,0,2.5,5.5,6.5,14,14,13,7,8,11,15,20.5,21,19.5,16.5,11.5,4,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,4.5,12.5,15.5,14.5,14,11,3,0,1,6,9.5,12,14,15,15.5,14.5,12,8,2,0,30,30,62.5,62.5,62.5,30,30,0,0,0,0,0,0,0,0,0,0,0,4,14.5,14.5,10.5,0,0,0,2.5,6,7,14,13,13,7.5,9,10.5,12,17,17,15,14.5,12,4.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0.5,2,5,7,7,6.5,5,2,0,2.5,7,11,12,13,14.5,14.5,14,9.5,6,1,0,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0,2.5,9.5,9.5,7,0,0,0,2,5,6,13,12,12.5,8.5,10,10,10.5,15.5,15.5,13.5,13.5,12,4.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,1,2,2.5,2.5,2.5,1.5,0.5,0,2.5,6,8.5,9.5,9,10.5,9.5,11.5,7.5,5,0,0,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0,1,4,4,3,0,0,0,2,5,6.5,14,13,11.5,9,11,9.5,8.5,12.5,12,9,8,7.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,1.5,3.5,4.5,5.5,6,8.5,8.5,11,7.5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,5.5,8,14.5,13,11,9.5,11.5,10,8.5,9.5,9,6,5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,2,2,3,2.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,7,10.5,17,14,11.5,10,10,8.5,7.5,8,6,4,3,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,5.5,11,16.5,14.5,11.5,9.5,6.5,5,4,4,3,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,5.5,10.5,16,14.5,12,8.5,5,3.5,2.5,2,1.5,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,9,14,12,8.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3.5,5,8,14.5,17,13,9,6,2,2,1.5,1,1,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,9,14,13.5,12.5,11.5,7.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,5.5,10.5,16.5,17,10,5.5,3.5,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,9.5,13.5,12.5,11.5,7.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,5,10,14.5,12,5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,8,6.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,8,13,14.5,9.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1.5,2,2,2,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3,6,12,15,15,8,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,3,4.5,5,5,5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,4,7.5,11.5,15,16,14.5,8,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0.5,2.5,5.5,7,13,12.5,10.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,3,9,12,17.5,16.5,15.5,10,5,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0.5,1,4,6.5,11,21,27,22.5,11,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,2.5,5,7,15.5,17.5,24.5,19.5,16.5,6.5,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0.5,1,2,5,12.5,22,32.5,33,23,11,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,6,9,13.5,18,26.5,23.5,26,19,14.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,2.5,4,14,24,32.5,33.5,25.5,15.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,1.5,6.5,13,19,22.5,28.5,33,27,23.5,16.5,10,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,1.5,3,4.5,13.5,25,33.5,29.5,20,11.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,4,7.5,14,17.5,25.5,28,32.5,33.5,27,18,12,5.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,2,5,6.5,15,27,36,29,16.5,6.5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,4,4,4.5,3,3,4,6.5,11,16,22.5,24,28.5,28,32,32,25,16.5,10.5,4.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,6,9.5,13.5,28.5,39.5,32.5,15,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,4.5,4.5,2,5,8,9,10,7.5,8.5,7.5,10,11,15,12.5,15,11.5,11.5,9.5,11,14,19,22,22.5,26,27,29.5,28,21,12.5,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,1.5,10,13.5,26,42,43.5,23.5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,7,8.5,9.5,14,21,30,32.5,35,28.5,26,24.5,26,25,30,26,26,16.5,16.5,13.5,13.5,11,15,16.5,17.5,20,19.5,19.5,17,12.5,6,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,13,16.5,35,43,38.5,12,0.5,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,1,5.5,8.5,13,17,21,23.5,24.5,29,32.5,41,42,42.5,34,30.5,28.5,29,27.5,31,27,26,16.5,16.5,12.5,10.5,6,8,7.5,8,10,10.5,9,8,6,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,13,16.5,34,35,29,3,0,0,0,0,0,0,0,0,0,0,0,1,1,11,16.5,23.5,18,20.5,23,22.5,26,27,38,37,42,38,38,31.5,28.5,29,29,26,27.5,24,20.5,11,9.5,8,7,3,3,2,3,3,3.5,3.5,3.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,11,18,26.5,26.5,15.5,0.5,0,0,0,0,0,0,0,0,0,1.5,1.5,6,7,29,31.5,36,18.5,20.5,22,24.5,29,31,36,31.5,31.5,26,25,21.5,22,23.5,24,20,19,16,13,7.5,6,4.5,3.5,0.5,0.5,0,1,1.5,2,2,2,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,7,13.5,15.5,15.5,4.5,0,0,0,0,0,0,0,0,0,0,4,10,16.5,16.5,36.5,37.5,34.5,12,11.5,14,17,20.5,23,27.5,23.5,24,18.5,17,14,13.5,14.5,14.5,11,10.5,9,8,5.5,4.5,3.5,2.5,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,3,3,8,8,8,0,0,0,0,0,0,0,0,0,0.5,3,11,23,31.5,29,32,25,19,4.5,5.5,8.5,10,11,11.5,10,6,5.5,2.5,2,1,0.5,1,1,1,1,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4.5,11.5,21,33.5,35.5,27,13.5,9,4.5,2,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7,14.5,24,33.5,40,35.5,24.5,12.5,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0.5,3,9.5,18,27.5,36,39,34,25.5,16.5,10,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,2,4.5,9,19,29,33.5,36,31.5,21.5,13,7,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,6,11,16.5,22,31.5,36,33.5,27.5,19.5,11.5,5.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,8,21,30,33.5,33,30.5,23,14.5,9.5,4.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,10,23,30.5,30,24.5,17,10,5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,7.5,18,22,19,9,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,5.5,6,6,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

data 12
data 683.761474609,205.1277771,800.154174805,176.830108643
data 677.112976074,234.214508057,783.482910156,193.37878418
data 606.37902832,290.167541504,767.972351074,222.758148193
data 632.254211426,351.784484863,724.548828125,313.858215332
data 639.284912109,381.643737793,720.915893555,339.920928955
data 612.071411133,523.172485352,658.600952148,441.0206604
data 530.381835938,505.394195557,589.35345459,444.397277832
data 460.63293457,461.103942871,537.963134766,428.71270752
data 448.310302734,243.244476318,506.229522705,344.306030273
data 368.636169434,217.286804199,414.029754639,291.20791626
data 343.069396973,229.972320557,407.553771973,294.428955078
data 323.441680908,256.507507324,400.771362305,296.966125488

`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,768,32,0,4,0
autocam off
hide mouse
randomize timer()


`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
endtype
type EnemyType
    ObjectNo as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as integer
    TriggerPosZ as integer
    Raised as integer
    TargetHeight as float
endtype

#Constant TerrainMatrix    1

#Constant TerrainTexture   1
#Constant CrosshairsImage  2

#Constant CrosshairsSprite 1

cameraheight#=20.0
movespeed#=0.4
currentwaypoint=1
findtolerance#=0.5

lives=3


`======= Media Setup ============================

set image colorkey 1,1,1

gosub SetupWaypoints
gosub SetupMap
gosub SetupEnemies


`Textures

create bitmap 1,1000,90

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

get image TerrainTexture,1,1,256,64,1

`Crosshairs
cls rgb(1,1,1)
ink rgb(200,200,200)
line 0,40,80,40
line 40,0,40,80
circle 40,40,20
get image CrosshairsImage,1,1,80,80,1
sprite CrosshairsSprite,0,0,CrosshairsImage
set sprite CrosshairsSprite,1,1
offset sprite CrosshairsSprite,40,40

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

ammo=array count(Enemies(0))*1.5


`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

camerax#=Waypoints(1).PosX
cameraz#=Waypoints(1).PosZ
cameraangx#=Waypoints(1).AngX
cameraangy#=Waypoints(1).AngY

ink rgb(255,255,255)

do

sprite CrosshairsSprite,mousex(),mousey(),CrosshairsImage

position camera camerax#,cameraheight#+get ground height(TerrainMatrix,camerax#,cameraz#),cameraz#
rotate camera cameraangx#,cameraangy#,0

`Move
if abs(camerax#-Waypoints(currentwaypoint).PosX)<=findtolerance# and abs(cameraz#-Waypoints(currentwaypoint).PosZ)<=findtolerance#
    if delaytimer=0
        delaytimer=timer()
        else
        if timer()-delaytimer>=Waypoints(currentwaypoint).Delay
            if currentwaypoint<array count(Waypoints(0))
                delaytimer=0
                `cameraangy#=Waypoints(currentwaypoint).AngY
                `cameraangz#=Waypoints(currentwaypoint).AngX
                inc currentwaypoint
                time#=distance(currentwaypoint,camerax#,cameraz#)/movespeed#
                cameraspeedx#=(Waypoints(currentwaypoint).AngX-cameraangx#)/time#
                cameraspeedy#=(Waypoints(currentwaypoint).AngY-cameraangy#)/time#
                if cameraangx#>270 and Waypoints(currentwaypoint).AngX<90
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX+180)-(cameraangx#-180))/time#
                endif
                if cameraangy#>270 and Waypoints(currentwaypoint).AngY<90
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY+180)-(cameraangy#-180))/time#
                endif
                if cameraangx#<90 and Waypoints(currentwaypoint).AngX>270
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX-180)-(cameraangx#+180))/time#
                endif
                if cameraangy#<90 and Waypoints(currentwaypoint).AngY>270
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY-180)-(cameraangy#+180))/time#
                endif
                else
                text 300,300,"Level Completed!"
            endif
        endif
    endif

    else

    `Follow waypoints
    inc camerax#,sin(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    inc cameraz#,cos(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    
    `Rotate
    cameraangy#=wrapvalue(cameraangy#+cameraspeedy#)
    `cameraangx#=cameraangx#+cameraspeedx#
    
    inc tempiterations
    text 10,100,str$(tempiterations)
    text 10,110,str$(iterations)
    text 10,130,str$(realiterations)
endif

`Shoot
if mouseclick()=1 and clicked=0
    clicked=1
    pick screen mousex(),mousey(),mapsize*5
    dec ammo
    for c=1 to array count(Enemies(0))
        if Enemies(c).Killed=0
            temp=intersect object(Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#,get pick vector x()+camerax#,get pick vector y()+camera position y(),get pick vector z()+cameraZ#)
            if temp>0
                Enemies(c).Killed=1
            endif
        endif
    next c
endif

`Update Enemies
for c=1 to array count(Enemies(0))
    `Kill
    if Enemies(c).Killed=1
        move object Enemies(c).ObjectNo,-1
        inc Enemies(c).FallSpeed
        move object down Enemies(c).ObjectNo,Enemies(c).FallSpeed*0.05
        
        else
        
        point object Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#

        `Raise
        if Enemies(c).Raised=0
            if abs(camerax#-Enemies(c).TriggerPosX)<5 and abs(cameraz#-Enemies(c).TriggerPosZ)<5
                Enemies(c).Raised=timer()
            endif
            else
            if object position y(Enemies(c).ObjectNo)<Enemies(c).TargetHeight
                move object up Enemies(c).ObjectNo,2
            endif
            if timer()-Enemies(c).Raised>=2200 and object in screen(Enemies(c).ObjectNo)
                cls rgb(255,0,0)
                Enemies(c).Killed=1
                dec Lives
            endif
        endif
    endif
next c

if mouseclick()=0 then clicked=0

temp$=""
for c=1 to Ammo
    temp$=temp$+"|"
next c
text 10,10,"Ammo:  "+temp$
temp$=""
for c=1 to lives
    temp$=temp$+"|"
next c
text 10,30,"Lives: "+temp$

sync
loop

`======= ==== =============== ===================
`================================================


SetupWaypoints:

read waypointcount
DIM Waypoints(waypointcount) as WaypointType

for c=1 to waypointcount
    read Waypoints(c).PosX
    read Waypoints(c).PosZ
    read Waypoints(c).AngY
    read Waypoints(c).AngX
    Waypoints(c).AngY=wrapvalue(Waypoints(c).AngY)
    Waypoints(c).AngX=wrapvalue(Waypoints(c).AngX)
    `Waypoints(c).Delay=1000
next c

return



SetupMap:

read maptiles
mapsize=maptiles*10

make matrix TerrainMatrix,mapsize,mapsize,maptiles,maptiles

for x=1 to maptiles
    for z=1 to maptiles
        read temp
        set matrix height TerrainMatrix,x,z,temp
    next z
next x
    

return



SetupEnemies:

read enemycount
DIM Enemies(enemycount) as EnemyType

for c=1 to enemycount
    Enemies(c).ObjectNo=FreeObject()
    read Enemies(c).PosX
    read Enemies(c).PosZ
    read Enemies(c).TriggerPosX
    read Enemies(c).TriggerPosZ
    
    make object box Enemies(c).ObjectNo,10,30,5
    Enemies(c).TargetHeight=get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15
    position object Enemies(c).ObjectNo,Enemies(c).PosX,get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15-50,Enemies(c).PosZ
next c

return



function distance(waypoint,x#,z#)
temp#=SQRT((Waypoints(waypoint).PosX-x#)*(Waypoints(waypoint).PosX-x#)+(Waypoints(waypoint).PosZ-z#)*(Waypoints(waypoint).PosZ-z#))
endfunction temp#

function FreeObject()
repeat
inc objects
until object exist(objects)=0
endfunction objects


`Level data
data 11
data 879.398498535,97.2568054199,-36.5,0
data 781.529907227,196.109603882,-102,348
data 728.260070801,298.140991211,-73,336
data 714.438720703,402.249633789,-97,328.5
data 640.965820313,453.965179443,-16.5,349
data 539.458679199,432.535064697,-46.5,336.5
data 492.64276123,305.413848877,-169,341.5
data 413.247924805,291.466003418,-158,344.5
data 309.362609863,331.293457031,-103,0
data 181.167404175,387.673858643,-21.5,0
data 154.493972778,459.416412354,0,0

data 100
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,2.5,2.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,1.5,3.5,3.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,4,4,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,1,1,1,1,1.5,1.5,2.5,2.5,3,2.5,1.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,2,2.5,2.5,4.5,4.5,2.5,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,1.5,3,5.5,6.5,7.5,9,12.5,12,14,14,14,8.5,7.5,4.5,3,0,0,0,0,0,0,0,0,0,0,0,2,2.5,4,5,5.5,4,3.5,2,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,1,1,1,0.5,0.5,0.5,1,1,1.5,7.5,12.5,17,20,22.5,21,23,23,25,26.5,30.5,29,24,13.5,5.5,0,0,0,0,0,0,0,0,0,0,0,1.5,2,4,5,5.5,5,5,3,2,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,1.5,2,2,1.5,0.5,2,3.5,6.5,12.5,16,22.5,23.5,29.5,31.5,32,26.5,26.5,25,25.5,27,31,29,24,13.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0.5,1,4,7,8,8.5,9.5,7,4,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,2.5,3.5,3.5,3,2.5,1.5,0.5,2,5,10,25,29.5,36,27.5,31.5,31.5,31.5,25,24.5,23,23,25,29,28,22,12,4.5,0,0,0,0,0,0,0,0,0,0,0,0,1,4.5,8,9,10,11,8,4.5,3.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3,4,5,5,2.5,2,1,0,1.5,5,12,27,31,35,24.5,26.5,25,24.5,17.5,16.5,15,14,13.5,12.5,7.5,4.5,2.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,7,8,9,10.5,7.5,4.5,3.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,3,3.5,4.5,5,5,2.5,2,1,0,1.5,5,9.5,19.5,21.5,23.5,15,15,14,14,9,7,6.5,5,4,3.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,6,7,8,9.5,8.5,5.5,4.5,3.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,3,3,5.5,5,4.5,4.5,4.5,2,1.5,0.5,0,1.5,4.5,7.5,9.5,10.5,8.5,6.5,6.5,6,5,3.5,3,2,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,5.5,7,8,10.5,11,8,6.5,5.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,6.5,6.5,9,6.5,4,3.5,3.5,1,0.5,0,0,0,1.5,2.5,3.5,3.5,3.5,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,2.5,4,5.5,7,9,8,6.5,5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,4,7,7.5,7,8,5,2,1.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,5.5,7.5,10,9.5,8,5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,3.5,4,7,9.5,9,7,6.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,1,1,1,1,2.5,2.5,2,0,0,0,0,0,0,0,0,0,0,0.5,2,5,7.5,10,10,8.5,5.5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,4,4.5,7.5,9.5,8.5,6.5,6,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,3.5,3.5,4.5,7,7.5,9,11.5,11,8,6,3.5,2,0,0,0,0,0,0,0,0,0,0,0,1,3.5,6,8,8,7,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,4,5,7,6,6.5,7,6,4,3.5,4,6,6,3.5,0,0,0,0,0,0,0,0,1.5,2,3,5,7,9,14,17.5,19,19.5,19.5,21.5,22.5,25,23,16.5,8,6,3.5,2,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,3.5,5.5,5.5,5,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,4.5,5.5,7.5,6.5,4.5,3.5,2.5,0.5,0.5,5,8.5,8,3.5,0,0,0,0,0,1,1,3,8.5,10,10,15,18,18.5,25.5,30,30,30,28,27,23.5,25,23,16.5,7.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,3.5,3.5,3.5,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,2.5,4,6,6,5.5,7,5.5,3.5,2.5,1.5,2,3,7.5,6,5,0.5,0,0,0,0,0,1,1,3.5,12.5,18,24.5,32,34.5,27.5,29.5,31.5,31,30,28,27,23.5,24,20,13,4.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,1.5,1.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,3,4.5,6.5,6,4.5,4,2.5,0.5,0,1.5,3.5,4.5,5,3,2,0,0,0,0,0,0,1,1,3.5,12.5,18,24.5,32,34.5,27.5,29,30.5,29.5,27.5,24.5,20.5,13.5,11.5,10.5,8,4,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,4,5.5,7.5,6.5,4,3.5,2,0,2,5,7,5.5,2.5,0.5,0,0,0,0,0,0,0,1,1,3.5,12.5,18,26.5,33,33,21.5,19.5,19,16,14,12,9,6,4.5,3,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,4,4,4.5,3.5,1,0.5,0.5,1.5,5,8,6.5,3,0,0,0,0,0,0,0,0,0,1,1,3.5,9,11,14,16,14.5,5,3,3.5,1.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,4,4,4,3,0.5,0,2,4.5,8,7.5,5,1.5,0,0,0,0,0,0,0,0,0,0,0,0.5,2,3,7.5,7.5,7.5,1.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,1.5,1.5,1.5,0.5,1.5,5.5,8,8,4,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,6.5,6.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,0.5,4.5,8.5,9,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,9,9,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,9.5,14.5,10.5,5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,11,11,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,9.5,15.5,18,12.5,9,7.5,6,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,10,10,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,5,14,24,30,26.5,20,14,8.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,7,7,4.5,0,0,0,0.5,0.5,0.5,1,1,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,9.5,16,23,29.5,30,22,15,8,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,7,6,0,0,0,0.5,0.5,1.5,2,2,2,2.5,1.5,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,7,11.5,18,27,28,18,8,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,9,9,6,0,0,0.5,1,1.5,3,4,3.5,3.5,3.5,2,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,4.5,7,10.5,16,15,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,7.5,7.5,4.5,0.5,0.5,1.5,3.5,4.5,5.5,8,7.5,6.5,6,4.5,2,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,11.5,13.5,7.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,5,5,2,1.5,2,3,5,7,8,11,10.5,10,8.5,6,2.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,10,14,12.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,3.5,6,9.5,12.5,15.5,17.5,15.5,13.5,10,5.5,2.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8.5,17,17.5,9,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,4.5,8,11.5,14,16,18,15,12.5,8.5,4.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11.5,15.5,15.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,6.5,9.5,13,15.5,17,16.5,14,11.5,7.5,4,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,14,14.5,13.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,6,8.5,10.5,12.5,14.5,12.5,10,8.5,5,1.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,12,12,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2,4.5,7,9,10,12,9.5,7,5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9,12.5,12.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,3,4,4,4,4,2,1,1,0.5,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12.5,13,13,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,5,5,1,0,0,0,0,0,2,2,2,2.5,2.5,0.5,0.5,0.5,0,1.5,2.5,3,3,3,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,13.5,14,14,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7.5,9.5,11,3.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,3.5,5,5,3.5,2.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,14,14,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7.5,11,15.5,9,6.5,2,1,0,0,0,0,0,0,0,0,0,0,0,1.5,3.5,6,8,8,6.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,14,14,7.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,6.5,11.5,11,11.5,11,8.5,5,0.5,0,0,0,0,0,0,0,0,0,1.5,4.5,7,9,9,7.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,13,13,12,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,6,9.5,13,15,13,7.5,1.5,0,0,0,0,0,0,0,0,0,0.5,4,8.5,11.5,12,11.5,8,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,13.5,13.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,6,10,19,19,15,5,0.5,0,0,0,0,0,0.5,1.5,1.5,2,4.5,9.5,12,12.5,13,10.5,5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,11.5,11.5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3.5,8,14.5,18,16.5,10,3.5,0.5,0,0,0,0,0.5,2,2,2.5,5,11.5,13.5,14.5,15,12.5,5.5,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,8,9,7.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,5,10.5,15.5,16.5,13.5,6,2.5,0,0,0,0,0.5,2,2,3,4.5,10.5,13,14,14.5,13,6.5,2.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,7.5,7,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3,4.5,9,10,13,9,5.5,1,0,0,0,0.5,2,2,3,3.5,9.5,13,15,16.5,16.5,10,5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,9,9,7.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,5,10.5,10.5,8,2.5,0,0,0,0.5,2,2,3,3,7,9.5,12.5,14,15,10.5,6.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6.5,6.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3,6.5,9.5,7.5,4,0.5,0,0,0,0.5,0.5,1,1,6.5,9.5,13.5,12.5,14,11.5,8,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4,8,8,6,2,0,0,0,0,1,1.5,1.5,5,7.5,11,11.5,14,14,12,7.5,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,5.5,8,6.5,3,0,0,0,0,1.5,1.5,1.5,4.5,6.5,9.5,10.5,13.5,16,14.5,10,6,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,5.5,9.5,7.5,4.5,0.5,0,0,0.5,2,2,2,3,3.5,5.5,8.5,11.5,14.5,14,11,7,3.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4.5,7.5,7.5,5,2,0,0,0.5,2.5,2.5,2.5,4.5,4.5,4.5,6.5,11,14.5,14,12.5,8.5,4,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,6.5,10,8,4.5,0,0,0.5,3,4,5.5,7,7,4,5.5,9.5,12.5,13.5,13,9,5,2.5,1,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,1.5,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,5,11,9,6,0,0,0.5,2.5,4,6.5,8,9,4.5,4,6.5,9.5,10,11,8.5,6,3.5,1.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,1,4,4.5,5,5.5,5,2,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,4.5,12,11,7.5,0,0,0.5,3,4.5,8,10,12.5,6.5,6,7,10,13.5,15.5,13.5,10.5,7,2.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1,3.5,11.5,13,12.5,13,11,3,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0.5,3,10.5,10,7.5,0,0,0,3,5,7.5,12.5,17,11.5,7,6,10,14.5,16.5,15,12.5,8,2.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,4.5,14.5,17.5,17,17,14.5,4.5,1.5,1,0.5,0.5,0.5,0.5,0,0,0,0,2,2,2,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0,2,9,9,7,0,0,0,2.5,5.5,7.5,13,17.5,14.5,9.5,6.5,10,15.5,18.5,17,16.5,13.5,7,2.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,5,15.5,19,18.5,18.5,15.5,5,1.5,1,3,3.5,5.5,6,7,7.5,8.5,7.5,7,3,2,30,30,62.5,62.5,62.5,30,30,0,0,0,0,0,0,0,0,0,0,0,2.5,10,10,7.5,0,0,0,2,5,6,13.5,16,15,8.5,7.5,11,14.5,20,19,18.5,15,10,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,5.5,15.5,18.5,18,18,14.5,4.5,1.5,1,4,6,8.5,11.5,13,14.5,14,12,10,4,2,30,30,62.5,62.5,62.5,30,30,0,0,0,0,0,0,0,0,0,0,0,3.5,12.5,12.5,9,0,0,0,2.5,5.5,6.5,14,14,13,7,8,11,15,20.5,21,19.5,16.5,11.5,4,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1,1.5,4.5,12.5,15.5,14.5,14,11,3,0,1,6,9.5,12,14,15,15.5,14.5,12,8,2,0,30,30,62.5,62.5,62.5,30,30,0,0,0,0,0,0,0,0,0,0,0,4,14.5,14.5,10.5,0,0,0,2.5,6,7,14,13,13,7.5,9,10.5,12,17,17,15,14.5,12,4.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0.5,2,5,7,7,6.5,5,2,0,2.5,7,11,12,13,14.5,14.5,14,9.5,6,1,0,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0,2.5,9.5,9.5,7,0,0,0,2,5,6,13,12,12.5,8.5,10,10,10.5,15.5,15.5,13.5,13.5,12,4.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,1,2,2.5,2.5,2.5,1.5,0.5,0,2.5,6,8.5,9.5,9,10.5,9.5,11.5,7.5,5,0,0,30,30,30,30,30,30,30,0,0,0,0,0,0,0,0,0,0,0,1,4,4,3,0,0,0,2,5,6.5,14,13,11.5,9,11,9.5,8.5,12.5,12,9,8,7.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,1.5,3.5,4.5,5.5,6,8.5,8.5,11,7.5,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,5.5,8,14.5,13,11,9.5,11.5,10,8.5,9.5,9,6,5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,2,2,3,2.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,7,10.5,17,14,11.5,10,10,8.5,7.5,8,6,4,3,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,5.5,11,16.5,14.5,11.5,9.5,6.5,5,4,4,3,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,5.5,10.5,16,14.5,12,8.5,5,3.5,2.5,2,1.5,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,9,14,12,8.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3.5,5,8,14.5,17,13,9,6,2,2,1.5,1,1,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,9,14,13.5,12.5,11.5,7.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3.5,5.5,10.5,16.5,17,10,5.5,3.5,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,9.5,13.5,12.5,11.5,7.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,5,10,14.5,12,5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,8,6.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,8,13,14.5,9.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,1.5,2,2,2,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,3,6,12,15,15,8,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,3,4.5,5,5,5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1,4,7.5,11.5,15,16,14.5,8,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0.5,2.5,5.5,7,13,12.5,10.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,3,9,12,17.5,16.5,15.5,10,5,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0.5,1,4,6.5,11,21,27,22.5,11,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,2.5,5,7,15.5,17.5,24.5,19.5,16.5,6.5,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0.5,1,2,5,12.5,22,32.5,33,23,11,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,6,9,13.5,18,26.5,23.5,26,19,14.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,2.5,4,14,24,32.5,33.5,25.5,15.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,1.5,6.5,13,19,22.5,28.5,33,27,23.5,16.5,10,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,1.5,3,4.5,13.5,25,33.5,29.5,20,11.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,0.5,4,7.5,14,17.5,25.5,28,32.5,33.5,27,18,12,5.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,2,5,6.5,15,27,36,29,16.5,6.5,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,4,4,4.5,3,3,4,6.5,11,16,22.5,24,28.5,28,32,32,25,16.5,10.5,4.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,6,9.5,13.5,28.5,39.5,32.5,15,3,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,4.5,4.5,2,5,8,9,10,7.5,8.5,7.5,10,11,15,12.5,15,11.5,11.5,9.5,11,14,19,22,22.5,26,27,29.5,28,21,12.5,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,1.5,10,13.5,26,42,43.5,23.5,5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,7,8.5,9.5,14,21,30,32.5,35,28.5,26,24.5,26,25,30,26,26,16.5,16.5,13.5,13.5,11,15,16.5,17.5,20,19.5,19.5,17,12.5,6,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,13,16.5,35,43,38.5,12,0.5,0,0,0,0,0,0,0,0,0,0,0.5,0.5,0.5,1,5.5,8.5,13,17,21,23.5,24.5,29,32.5,41,42,42.5,34,30.5,28.5,29,27.5,31,27,26,16.5,16.5,12.5,10.5,6,8,7.5,8,10,10.5,9,8,6,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,13,16.5,34,35,29,3,0,0,0,0,0,0,0,0,0,0,0,1,1,11,16.5,23.5,18,20.5,23,22.5,26,27,38,37,42,38,38,31.5,28.5,29,29,26,27.5,24,20.5,11,9.5,8,7,3,3,2,3,3,3.5,3.5,3.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,11,18,26.5,26.5,15.5,0.5,0,0,0,0,0,0,0,0,0,1.5,1.5,6,7,29,31.5,36,18.5,20.5,22,24.5,29,31,36,31.5,31.5,26,25,21.5,22,23.5,24,20,19,16,13,7.5,6,4.5,3.5,0.5,0.5,0,1,1.5,2,2,2,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,4.5,7,13.5,15.5,15.5,4.5,0,0,0,0,0,0,0,0,0,0,4,10,16.5,16.5,36.5,37.5,34.5,12,11.5,14,17,20.5,23,27.5,23.5,24,18.5,17,14,13.5,14.5,14.5,11,10.5,9,8,5.5,4.5,3.5,2.5,0,0,0,0.5,0.5,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,3,3,8,8,8,0,0,0,0,0,0,0,0,0,0.5,3,11,23,31.5,29,32,25,19,4.5,5.5,8.5,10,11,11.5,10,6,5.5,2.5,2,1,0.5,1,1,1,1,0.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4.5,11.5,21,33.5,35.5,27,13.5,9,4.5,2,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7,14.5,24,33.5,40,35.5,24.5,12.5,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0.5,3,9.5,18,27.5,36,39,34,25.5,16.5,10,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,2,4.5,9,19,29,33.5,36,31.5,21.5,13,7,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,6,11,16.5,22,31.5,36,33.5,27.5,19.5,11.5,5.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,8,21,30,33.5,33,30.5,23,14.5,9.5,4.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,10,23,30.5,30,24.5,17,10,5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,7.5,18,22,19,9,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,2,5.5,6,6,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

data 12
data 683.761474609,205.1277771,800.154174805,176.830108643
data 677.112976074,234.214508057,783.482910156,193.37878418
data 606.37902832,290.167541504,767.972351074,222.758148193
data 632.254211426,351.784484863,724.548828125,313.858215332
data 639.284912109,381.643737793,720.915893555,339.920928955
data 612.071411133,523.172485352,658.600952148,441.0206604
data 530.381835938,505.394195557,589.35345459,444.397277832
data 460.63293457,461.103942871,537.963134766,428.71270752
data 448.310302734,243.244476318,506.229522705,344.306030273
data 368.636169434,217.286804199,414.029754639,291.20791626
data 343.069396973,229.972320557,407.553771973,294.428955078
data 323.441680908,256.507507324,400.771362305,296.966125488

I'm mostly concerned about difficulty, of course, so tell me how hard or easy you found it if you play it.

Back to top

Profile PM Email Website

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 11th May 2009 00:11 Edited at: 11th May 2009 00:13

Quote: "Ill knock summat up, Ive been meaning to look into ammuntion trajectories for a while, so if I get the time, ill aim for a marksman range. =)"

Nice. That sounds cool. Good luck!

Quote: "The screenshots don't show the game that well, so I guess I'll post a little preview version. "

Dude that was totally cool! As for difficulty - it was easily doable, but on the border of being impossible, since it was mainly about reaction time, and with one thing to shoot at at a time, your reactions are going to consistently be quick enough, or not. I guess maybe put in some more variation somehow.

BTW if you want to use mipmapping (so the ground texture doesn't "swim" in the distance), you can save your image as a file (eg .bmp), and load it up again. Mipmaps will be generated when the image is reloaded.

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 11th May 2009 00:28

Thanks for the tips

. Saving and loading the image didn't seem to make the pixel swimming go away, though...

Back to top

Profile PM Email Website

aarrowh

17

Years of Service

User Offline

Joined: 19th Oct 2007

Location:

Posted: 11th May 2009 02:19

I've been really busy lately, and have forgotten (or its just hidden the back of my head) most of my programming knowledge...I wanted to participate but I'm stuck right off the bat...I'm attempting to make a simple point and click shooter, using a line from the player to the mouse position as the cross hair. But the line will not start where the player is...no matter what I do...

the code..

REM basic set up
hide mouse
make object cube 1,0.05,
position object 1, 0,0,0
do
linex1 = object position x(1)
 liney1 = object position y(1)
linex2 = mousex()
liney2 = mousey()

line linex1, liney1, linex2, liney2

loop

Image thanks goes to AndrewT

Back to top

Profile PM Email

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 11th May 2009 02:45

You're right- it didn't! After much trial and error, it appears the problem is that non square textures won't get mipmaps. This code works...

get image TerrainTexture,1,1,256,64,0
save image "temp.dds",TerrainTexture
load image "temp.dds",TerrainTexture

-i changed the last flag of get image from 1 (no stretching) to 0. Now things look nice and non swimmy. Mipmapping sometimes improves framerates too.

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 11th May 2009 02:51

aarrowh -

you're using the object's 3d world co-ordinates , but probably want to be using the object's screen coordinates. Try the commands

object screen x()
object screen y()

Back to top

Profile PM

aarrowh

17

Years of Service

User Offline

Joined: 19th Oct 2007

Location:

Posted: 11th May 2009 03:09

That worked! Thanks...I didn't see that command in the Basic 3d section...

Image thanks goes to AndrewT

Back to top

Profile PM Email

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 11th May 2009 03:27 Edited at: 11th May 2009 03:29

Wow! That's loads better! Thanks you

@aarrowh
Try positioning the camera away from the object a bit.
Edit: Woops, that would be it XD

Back to top

Profile PM Email Website

Aurum Knight

16

Years of Service

User Offline

Joined: 15th Jul 2008

Location: the suburbs of nowhere

Posted: 11th May 2009 03:38 Edited at: 11th May 2009 03:41

Post deleted.
(Didn't see another whole page here =S )

Back to top

Profile PM Email

aarrowh

17

Years of Service

User Offline

Joined: 19th Oct 2007

Location:

Posted: 11th May 2009 04:21

Okay...I'm back with yet another question..

I can easily get a sphere(what I'll be using as bullets) to appear wherever the end of the line is... but how do I make it move along the trajectory that was originally there when the mouse was clicked?

I was thinking something along the line of:

 IF mouseclick = 1 then create object sphere; face object with line; move object forward until enemy is hit or is off screen.

of course I have no idea how to apply most of this in actual code....

Image thanks goes to AndrewT

Back to top

Profile PM Email

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 11th May 2009 12:10

If mouseclick = 1
   `you should pre make the sphere and just show it and position it here
   yrotate object sphere, object angle y(player)
   move = 1
endif
if move = 1
   move object 1,10
endif

I really should check this post more often, im missing half of these posts...

Thats looking really sweet Bmaczero. If i must say anything, its that its predictable. The enemies pop up in the only cover spots, so you know roughly where theyre gonna come from...
Very nice start though

Try that =)

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 11th May 2009 16:21

Ah, that is a good point, Monk, I'l try to fix that. It would look weird if they just came out of the ground, but I could either do that or just place some false cover spots around...

Back to top

Profile PM Email Website

aarrowh

17

Years of Service

User Offline

Joined: 19th Oct 2007

Location:

Posted: 11th May 2009 21:13

I've got the bullet, but when I try to get it to shoot...it doesn't work, it just disappears... I've been attempting to fix this for hours with no avail...

REM basic set up
hide mouse


rem make character
make object cube 1,0.05,
   position object 1, 0,0,0


rem make and hide bullet
make object sphere 2,0.04
   color object 2, rgb (250,0,0)
`hide object 2

do




REM make character able to move.
if keystate(17) = 1 then move object up 1, 0.0005
   if keystate(30) = 1 then move object left 1, 0.0005
      if keystate(31) = 1 then move object down 1, 0.0005
         if keystate(32) = 1 then move object right 1, 0.0005


rem enable shooting
 if mouseclick() = 1
    position object 2, linex1,liney1,0
       point object 2,0 ,liney2,0
          move = 1
endif

if move = 1
   show object 2
      move object 2,0.0008
endif


linex1 = object screen x(1)
liney1 = object screen y(1)
linex2 = mousex()
liney2 = mousey()

line linex1, liney1, linex2, liney2

loop

Image thanks goes to AndrewT

Back to top

Profile PM Email

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 12th May 2009 15:17

Youre mixing screen locations and 3d locations...
When you place the bullet at linex1 and liney1, youre placing them in 3d space, yet youre getting the linex1 and liney1 values from your screen...

Try this:

REM basic set up
hide mouse

rem make character
make object cube 1,10
   position object 1, 0,0,0

rem make and hide bullet
make object sphere 2,0.04
   color object 2, rgb (250,0,0)
hide object 2

`add matrix to show movement
make matrix 1,100,100,10,10

`place player above matrix
position object 1, 0,10,0

do

REM make character able to move.
if keystate(17) = 1 then move object 1, 1
   if keystate(30) = 1 then move object left 1, 1
      if keystate(31) = 1 then move object 1, -1
         if keystate(32) = 1 then move object right 1, 1

`youre not seeing movement because the object was moving, but the camera wasnt
position camera object position x(1),object position y(1),object position z(1)

rem enable shooting
 if mouseclick() = 1

`positions the object at the players position
 position object 2, object position x(1),object position y(1),object position z(1)

`position object 2, linex1,liney1,0
       `point object 2,0 ,liney2,0

yrotate object 2, object angle y(1) `sets the bullet angle to the player angle
xrotate object 2, object angle x(1) `does the same job as pointing the object
zrotate object 2, object angle z(1)
          move = 1
endif

if move = 1
   show object 2
      move object 2,1
endif

`linex1 = object screen x(1)
`liney1 = object screen y(1)
`linex2 = mousex()
`liney2 = mousey()

`line linex1, liney1, linex2, liney2
`add a sync to update screen - necessary for 3d objects
sync
loop

REM basic set up
hide mouse


rem make character
make object cube 1,10
   position object 1, 0,0,0


rem make and hide bullet
make object sphere 2,0.04
   color object 2, rgb (250,0,0)
hide object 2

`add matrix to show movement
make matrix 1,100,100,10,10

`place player above matrix
position object 1, 0,10,0

do


REM make character able to move.
if keystate(17) = 1 then move object 1, 1
   if keystate(30) = 1 then move object left 1, 1
      if keystate(31) = 1 then move object 1, -1
         if keystate(32) = 1 then move object right 1, 1

`youre not seeing movement because the object was moving, but the camera wasnt
position camera object position x(1),object position y(1),object position z(1)

rem enable shooting
 if mouseclick() = 1

 `positions the object at the players position
 position object 2, object position x(1),object position y(1),object position z(1)

    `position object 2, linex1,liney1,0
       `point object 2,0 ,liney2,0

yrotate object 2, object angle y(1) `sets the bullet angle to the player angle
xrotate object 2, object angle x(1) `does the same job as pointing the object
zrotate object 2, object angle z(1)
          move = 1
endif

if move = 1
   show object 2
      move object 2,1
endif

`linex1 = object screen x(1)
`liney1 = object screen y(1)
`linex2 = mousex()
`liney2 = mousey()

`line linex1, liney1, linex2, liney2
`add a sync to update screen - necessary for 3d objects
sync
loop

Back to top

Profile PM

aarrowh

17

Years of Service

User Offline

Joined: 19th Oct 2007

Location:

Posted: 12th May 2009 16:53

Thanks Monk! Im not at my home PC right now but I'll try it out when I get home.

Image thanks goes to AndrewT

Back to top

Profile PM Email

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 14th May 2009 16:41 Edited at: 14th May 2009 16:46

Ive got a start on my target range, I havent added any of the better features such as dip or wind yet, but im getting there.
Im sorta struggling with the target collision. Im using pick object now, but that wont work later on when i include dip in the shots. I tried sparkys collision, but that wont work for me, or im doing something wrong (likely). If someone could give me a few pointers, thatd be gratefully accepted.
Anyway, heres what Ive got so far.

`for targets, gonna have 30 secs to hit as many as possible
`3 rows, close med and far
`10 on each row pop up one by 1, 1 each second
`then if pass, have 30 secs to make the 1km shot

`setup
set display mode 1024,768,32
sync on : sync rate 50
autocam off : hide mouse
randomize 1

type bullet
   damage as integer       `percent of health
   speed as integer        `metres per sec, bout 500 av for assault
   mag_size as integer     `how many bullets
endtype

type gun
   name as string
   number as integer       `weapon slot
   weight as integer       `in kilos, bout 10-15 av assault
   size as integer         `1 = small(pistol/grenade) 2 = med(assault) 3 = large(sniper) 4 = huge(rpg)
   ammo as bullet
   reload as integer       `in millisecs
   zoom as integer         `mag level
   single_shot as boolean  `single or auto
   accuracy as integer     `pixel accuracy
endtype

type weather
   state as boolean
   angle as float
   speed as float
endtype

rifle as gun
rifle.name = "m416"

rain as weather
wind as weather

set_gun_vars()
make_objects()
`set_effects()
mag_count = 0

dim bullets(rifle.ammo.mag_size,4)

position mouse 512,378
position camera 495,12,6
set camera range 1,1200

set camera fov 100

do

`move crosshairs
paste image 3,462,328,1

`control viewing
yrotate camera -(512 - mousex())
xrotate camera -(378 - mousey())

yrotate object 1, camera angle y()
xrotate object 1, camera angle x()

for bul = 51 to rifle.ammo.mag_size+50
   yrotate object bul, camera angle y()
   xrotate object bul, camera angle x()
next bul

`fire
if mouseclick() = 1 and reload = 0
   inc mag_count
   show object mag_count+50
   bullets(mag_count,1) = 1
   if mag_count >= rifle.ammo.mag_size
      reload = 1
   endif
   `recoil
endif

for bul = 51 to mag_count+50
      if bullets(bul-50,1) = 1
         oldx# = object position x(bul) : oldy# = object position y(bul) : oldz# = object position z(bul)
         move object bul, rifle.ammo.speed/50
         x# = object position x(bul) : y# = object position y(bul) : z# = object position z(bul)
         `hit
         hit = pick object(510+rnd(rifle.accuracy),375+rnd(rifle.accuracy),19,51) `sc_spherecast(0,oldx#,oldy#,oldz#,x#,y#,z#,1,bul)
         if hit > 0
            `effects
            hide object hit
            bullets(bul-50,1) = 0
            position object bul, 500,10,10
         endif
         `miss
         if object position y(bul) < 0
            position object bul, 500,10,10
            bullets(bul-50,1) = 0
         endif
      endif
   next bul

`reload
if reload = 1 and click = 0
   inc t
   if t = 50
      t = 0
      reload = 0
      mag_count = 0
      for bul = 51 to rifle.ammo.mag_size+50
         position object bul,500,10,10
         bullets(bul-50,1) = 0
         hide object bul
      next bul
   endif
endif

if mouseclick() = 0 then click = 0

`extra features

text 0,0,str$(screen fps())
text 0,10,str$(mag_count)
text 0,20,str$(reload)
text 0,30,str$(t)
text 0,40,str$(hit)

sync
loop

function make_objects()

`make textures
create bitmap 1,300,100
set current bitmap 1
   `make sandy texture
   ink rgb(217,208,104),rgb(217,208,104)
   box 0,0,100,100
   get image 1, 0,0,100,100

`make target
   ink rgb(255,255,255),rgb(255,255,255)
   box 100,0,200,100
   `red outer
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,40,1)
   `white middle
   ink rgb(255,255,255),rgb(255,255,255)
   FilledCircle(150,50,25,0)
   `red bull
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,10,1)
   get image 2,100,0,200,100

`make crosshairs
   ink rgb(255,255,255),rgb(255,255,255)
   line 250,0, 250,100
   line 200,50, 300,50
   get image 3, 200,0,300,100

set current bitmap 0

`make gun
make object box 1,2,5,50
make object box 2,2,10,6
make object box 3,2,2,20

make mesh from object 2,2
make mesh from object 3,3

add limb 1,1,2 : offset limb 1,1, 0,-5,0 `mag
add limb 1,2,3 : offset limb 1,2, 0,5,0 `scope

delete object 2 : delete object 3
delete mesh 2 : delete mesh 3

position object 1, 500,10,10 `gun
scale object 1,30,30,30

`make bullets
for bul = 1 to rifle.ammo.mag_size
   make object sphere bul+50,0.1
   position object bul+50, 500,10,10
next

`make range
   `make matrix
      make matrix 1, 1000,1000,20,20
      `colour matrix
      prepare matrix texture 1,1,1,1

`make targets
   for tar = 20 to 50
      make object plain tar,5,5
      `colour targets
      texture object tar,2
      `position targets
      position object tar, rnd(200)+400,5,rnd(300)+50
   next tar

endfunction

function set_gun_vars()

rifle.number = 1
rifle.weight = 12
rifle.size = 2
rifle.reload = 1000
rifle.zoom = 2
rifle.single_shot = 0
rifle.accuracy = 5

rifle.ammo.damage = 10
rifle.ammo.speed = 450
rifle.ammo.mag_size = 30

endfunction

function set_effects()

wind.state = 0
if wind.state = 1
   wind.angle = rnd(90)-45
   wind.speed = rnd(10)
endif

rain.state = 0
if rain.state = 1
   rain.angle = wind.angle
   rain.speed = wind.speed
endif

endfunction

function FilledCircle( CX as integer, CY as integer, R as integer , col as boolean)
   local x as integer
   local y as integer
   local i as integer
   local s as integer

if col = 1
      ink rgb(255,0,0),rgb(255,0,0)
   else
      ink rgb(255,255,255),rgb(255,255,255)
   endif
   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)

` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

` Draw top and bottom

box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
      sync
   next y
endfunction

`for targets, gonna have 30 secs to hit as many as possible
`3 rows, close med and far
`10 on each row pop up one by 1, 1 each second
`then if pass, have 30 secs to make the 1km shot

`setup
set display mode 1024,768,32
sync on : sync rate 50
autocam off : hide mouse
randomize 1

type bullet
   damage as integer       `percent of health
   speed as integer        `metres per sec, bout 500 av for assault
   mag_size as integer     `how many bullets
endtype

type gun
   name as string
   number as integer       `weapon slot
   weight as integer       `in kilos, bout 10-15 av assault
   size as integer         `1 = small(pistol/grenade) 2 = med(assault) 3 = large(sniper) 4 = huge(rpg)
   ammo as bullet
   reload as integer       `in millisecs
   zoom as integer         `mag level
   single_shot as boolean  `single or auto
   accuracy as integer     `pixel accuracy
endtype

type weather
   state as boolean
   angle as float
   speed as float
endtype

rifle as gun
rifle.name = "m416"

rain as weather
wind as weather

set_gun_vars()
make_objects()
`set_effects()
mag_count = 0

dim bullets(rifle.ammo.mag_size,4)

position mouse 512,378
position camera 495,12,6
set camera range 1,1200

set camera fov 100

do

`move crosshairs
paste image 3,462,328,1

`control viewing
yrotate camera -(512 - mousex())
xrotate camera -(378 - mousey())

yrotate object 1, camera angle y()
xrotate object 1, camera angle x()

for bul = 51 to rifle.ammo.mag_size+50
   yrotate object bul, camera angle y()
   xrotate object bul, camera angle x()
next bul

`fire
if mouseclick() = 1 and reload = 0
   inc mag_count
   show object mag_count+50
   bullets(mag_count,1) = 1
   if mag_count >= rifle.ammo.mag_size
      reload = 1
   endif
   `recoil
endif

   for bul = 51 to mag_count+50
      if bullets(bul-50,1) = 1
         oldx# = object position x(bul) : oldy# = object position y(bul) : oldz# = object position z(bul)
         move object bul, rifle.ammo.speed/50
         x# = object position x(bul) : y# = object position y(bul) : z# = object position z(bul)
         `hit
         hit = pick object(510+rnd(rifle.accuracy),375+rnd(rifle.accuracy),19,51) `sc_spherecast(0,oldx#,oldy#,oldz#,x#,y#,z#,1,bul)
         if hit > 0
            `effects
            hide object hit
            bullets(bul-50,1) = 0
            position object bul, 500,10,10
         endif
         `miss
         if object position y(bul) < 0
            position object bul, 500,10,10
            bullets(bul-50,1) = 0
         endif
      endif
   next bul


`reload
if reload = 1 and click = 0
   inc t
   if t = 50
      t = 0
      reload = 0
      mag_count = 0
      for bul = 51 to rifle.ammo.mag_size+50
         position object bul,500,10,10
         bullets(bul-50,1) = 0
         hide object bul
      next bul
   endif
endif

if mouseclick() = 0 then click = 0

`extra features

text 0,0,str$(screen fps())
text 0,10,str$(mag_count)
text 0,20,str$(reload)
text 0,30,str$(t)
text 0,40,str$(hit)

sync
loop



function make_objects()

`make textures
create bitmap 1,300,100
set current bitmap 1
   `make sandy texture
   ink rgb(217,208,104),rgb(217,208,104)
   box 0,0,100,100
   get image 1, 0,0,100,100

   `make target
   ink rgb(255,255,255),rgb(255,255,255)
   box 100,0,200,100
   `red outer
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,40,1)
   `white middle
   ink rgb(255,255,255),rgb(255,255,255)
   FilledCircle(150,50,25,0)
   `red bull
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,10,1)
   get image 2,100,0,200,100

   `make crosshairs
   ink rgb(255,255,255),rgb(255,255,255)
   line 250,0, 250,100
   line 200,50, 300,50
   get image 3, 200,0,300,100

set current bitmap 0

`make gun
make object box 1,2,5,50
make object box 2,2,10,6
make object box 3,2,2,20

make mesh from object 2,2
make mesh from object 3,3

add limb 1,1,2 : offset limb 1,1, 0,-5,0 `mag
add limb 1,2,3 : offset limb 1,2, 0,5,0 `scope

delete object 2 : delete object 3
delete mesh 2 : delete mesh 3

position object 1, 500,10,10 `gun
scale object 1,30,30,30

`make bullets
for bul = 1 to rifle.ammo.mag_size
   make object sphere bul+50,0.1
   position object bul+50, 500,10,10
next

`make range
   `make matrix
      make matrix 1, 1000,1000,20,20
      `colour matrix
      prepare matrix texture 1,1,1,1

   `make targets
   for tar = 20 to 50
      make object plain tar,5,5
      `colour targets
      texture object tar,2
      `position targets
      position object tar, rnd(200)+400,5,rnd(300)+50
   next tar

endfunction


function set_gun_vars()

rifle.number = 1
rifle.weight = 12
rifle.size = 2
rifle.reload = 1000
rifle.zoom = 2
rifle.single_shot = 0
rifle.accuracy = 5

rifle.ammo.damage = 10
rifle.ammo.speed = 450
rifle.ammo.mag_size = 30

endfunction


function set_effects()

wind.state = 0
if wind.state = 1
   wind.angle = rnd(90)-45
   wind.speed = rnd(10)
endif

rain.state = 0
if rain.state = 1
   rain.angle = wind.angle
   rain.speed = wind.speed
endif

endfunction


function FilledCircle( CX as integer, CY as integer, R as integer , col as boolean)
   local x as integer
   local y as integer
   local i as integer
   local s as integer

   if col = 1
      ink rgb(255,0,0),rgb(255,0,0)
   else
      ink rgb(255,255,255),rgb(255,255,255)
   endif
   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

   ` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)

   ` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

   ` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

      ` Draw top and bottom

      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
      sync
   next y
endfunction

Back to top

Profile PM

DB PROgrammer

17

Years of Service

User Offline

Joined: 9th Feb 2007

Location: Nowhere But Everywhere

Posted: 15th May 2009 18:35

This contest has peeked my interest. I started a entry; although, I started late so it's going to be hard to finish it on time.

DBPro, limited by the programmer.

Back to top

Profile PM Email Website

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th May 2009 04:11

Okay, this will probably be the final version of my shooter. I'm posting it now in case I forget later:

`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,768,32,0,4,0
autocam off
hide mouse
randomize timer()

set text font "verdana"
set text size 14

`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
endtype
type EnemyType
    ObjectNo as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as integer
    TriggerPosZ as integer
    Raised as integer
    TargetHeight as float
    Delay as integer
endtype

global objects
objects=10

#Constant TerrainMatrix    1

#Constant GunObject         1
#Constant MuzzleflashObject 2
#Constant MuzzleflashObject2 3

#Constant TerrainTexture   1
#Constant CrosshairsImage  2
#Constant MuzzleflashImage 3

#Constant CrosshairsSprite 1

cameraheight#=20.0
movespeed#=0.4
currentwaypoint=1
findtolerance#=0.5

lives=3

`======= Media Setup ============================

set image colorkey 1,1,1

gosub SetupWaypoints
gosub SetupMap
gosub SetupEnemies

`gun main (chamber)
make object box GunObject,1,1,2
color object GunObject,rgb(80,80,88)
`barrel
temp=FreeObject()
make object cylinder temp,1
scale object temp,100,400,100
xrotate object temp,90
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,1,1
offset limb GunObject,1,0,0,2
color limb GunObject,1,rgb(80,80,88)
delete object temp
delete mesh 1
`handle
make object box temp,0.8,2,1
xrotate object temp,25
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,2,1
offset limb GunObject,2,0,-0.9,-1
color limb GunObject,2,rgb(177,105,46)
delete object temp
delete mesh 1

disable object zdepth GunObject

`Muzzleflash
create bitmap 1,512,256
cls rgb(1,1,1)
for x=1 to 512
    for y=1 to 256
        prob=abs(y-128)/20 + x/100
        if rnd(prob)=1
            ink rgb(255,255-rnd(50),0)
            dot x,y
        endif
    next y
next x
get image MuzzleflashImage,1,1,512,256,1
delete bitmap 1

make object plane MuzzleflashObject,6,3
yrotate object MuzzleflashObject,90
fix object pivot MuzzleflashObject
set object ambient MuzzleflashObject,0
texture object MuzzleflashObject,MuzzleflashImage
set object transparency MuzzleflashObject,1
set object emissive MuzzleflashObject,rgb(255,220,0)

make object plane MuzzleflashObject2,6,3
yrotate object MuzzleflashObject2,90
zrotate object MuzzleflashObject2,90
fix object pivot MuzzleflashObject2
set object ambient MuzzleflashObject2,0
texture object MuzzleflashObject2,MuzzleflashImage
set object transparency MuzzleflashObject2,1
set object emissive MuzzleflashObject2,rgb(255,220,0)

`Matrix Textures
create bitmap 1,1000,90

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

get image TerrainTexture,1,1,256,64,0
save image "railtemp.dds",TerrainTexture
load image "railtemp.dds",TerrainTexture
delete file "railtemp.dds"

`Crosshairs
cls rgb(1,1,1)
ink rgb(200,200,200)
line 0,40,80,40
line 40,0,40,80
circle 40,40,20
get image CrosshairsImage,1,1,80,80,1
sprite CrosshairsSprite,0,0,CrosshairsImage
set sprite CrosshairsSprite,1,1
offset sprite CrosshairsSprite,40,40

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

ammo=array count(Enemies(0))*1.2

`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

`Start off at the first waypoint
camerax#=Waypoints(1).PosX
cameraz#=Waypoints(1).PosZ
cameraangx#=Waypoints(1).AngX
cameraangy#=Waypoints(1).AngY

ink rgb(255,255,255)

do

sprite CrosshairsSprite,mousex(),mousey(),CrosshairsImage

position camera camerax#,cameraheight#+get ground height(TerrainMatrix,camerax#,cameraz#),cameraz#
rotate camera cameraangx#,cameraangy#,0

`Orient gun with screen
set object to camera orientation GunObject
position object GunObject,camerax#,camera position y(),cameraz#
move object GunObject,10
move object right GunObject,4
move object down GunObject,4
yrotate object GunObject,object angle y(GunObject)+(mousex()-screen width()/2)/10
xrotate object GunObject,object angle x(GunObject)+(mousey()-screen height()/2)/10+xangoff#
set object to object orientation MuzzleflashObject,GunObject
position object MuzzleflashObject,object position x(GunObject),object position y(GunObject),object position z(GunObject)
move object MuzzleflashObject,7
set object to object orientation MuzzleflashObject2,GunObject
position object MuzzleflashObject2,object position x(GunObject),object position y(GunObject),object position z(GunObject)
move object MuzzleflashObject2,7

`Recoil control
if xangoff#<0 then inc xangoff#,1

`Muzzleflash
if muzzlealpha>0 then dec muzzlealpha,5
set alpha mapping on MuzzleflashObject,muzzlealpha
set alpha mapping on MuzzleflashObject2,muzzlealpha

`Move
`If we are close to the next waypoint..
if abs(camerax#-Waypoints(currentwaypoint).PosX)<=findtolerance# and abs(cameraz#-Waypoints(currentwaypoint).PosZ)<=findtolerance#
    `And we're done delaying..
    if delaytimer=0
        delaytimer=timer()
        else
        if timer()-delaytimer>=Waypoints(currentwaypoint).Delay
            `And we haven't got to the end yet..
            if currentwaypoint<array count(Waypoints(0))
                `Target the next waypoint
                delaytimer=0
                cameraangy#=Waypoints(currentwaypoint).AngY
                `cameraangx#=Waypoints(currentwaypoint).AngX
                inc currentwaypoint
                time#=distance(currentwaypoint,camerax#,cameraz#)/movespeed#
                cameraspeedx#=(Waypoints(currentwaypoint).AngX-cameraangx#)/time#
                cameraspeedy#=(Waypoints(currentwaypoint).AngY-cameraangy#)/time#
                if cameraangx#>270 and Waypoints(currentwaypoint).AngX<90
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX+180)-(cameraangx#-180))/time#
                endif
                if cameraangy#>270 and Waypoints(currentwaypoint).AngY<90
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY+180)-(cameraangy#-180))/time#
                endif
                if cameraangx#<90 and Waypoints(currentwaypoint).AngX>270
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX-180)-(cameraangx#+180))/time#
                endif
                if cameraangy#<90 and Waypoints(currentwaypoint).AngY>270
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY-180)-(cameraangy#+180))/time#
                endif
                else
                center text screen width()/2,screen height()/2-15,"Level Completed!"
            endif
        endif
    endif

else

`Calculate movement toward next waypoint
    inc camerax#,sin(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    inc cameraz#,cos(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    
    `Rotate
    cameraangy#=wrapvalue(cameraangy#+cameraspeedy#)
    `cameraangx#=wrapvalue(cameraangx#+cameraspeedx#)

endif

`Shoot
if mouseclick()=1 and clicked=0
    clicked=1
    if ammo>0
        pick screen mousex(),mousey(),mapsize*5
        xangoff#=-15
        muzzlealpha=100
        dec ammo
        for c=1 to array count(Enemies(0))
            if Enemies(c).Killed=0
                temp=intersect object(Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#,get pick vector x()+camerax#,get pick vector y()+camera position y(),get pick vector z()+cameraZ#)
                if temp>0
                    Enemies(c).Killed=1
                endif
            endif
        next c
        else
        noammo=timer()+200
    endif
endif

`Update Enemies
for c=1 to array count(Enemies(0))
    `Kill
    if Enemies(c).Killed=1
        move object Enemies(c).ObjectNo,-1
        inc Enemies(c).FallSpeed
        move object down Enemies(c).ObjectNo,Enemies(c).FallSpeed*0.05
        
        else
        
        point object Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#

`Raise
        if Enemies(c).Raised=0
            if abs(camerax#-Enemies(c).TriggerPosX)<5 and abs(cameraz#-Enemies(c).TriggerPosZ)<5
                Enemies(c).Raised=-timer()
            endif
            else
            if Enemies(c).Raised>0
                if object position y(Enemies(c).ObjectNo)<Enemies(c).TargetHeight
                    move object up Enemies(c).ObjectNo,2
                endif
                if timer()-Enemies(c).Raised>=2200 and object in screen(Enemies(c).ObjectNo)
                    cls rgb(255,0,0)
                    Enemies(c).Killed=1
                    dec Lives
                endif
                
                else
                
                if timer()+Enemies(c).Raised>Enemies(c).Delay
                    Enemies(c).Raised=timer()
                endif
            endif
        endif
    endif
next c

if mouseclick()=0 then clicked=0

temp$=""
for c=1 to Ammo
    temp$=temp$+"|"
next c
text 10,10,"Ammo:  "+temp$
temp$=""
for c=1 to lives
    temp$=temp$+"|"
next c
text 10,30,"Lives: "+temp$

if timer()-noammo<200 then center text screen width()/2,screen height()/2,"NO AMMO"

sync
loop

`======= ==== =============== ===================
`================================================

SetupWaypoints:

read waypointcount
DIM Waypoints(waypointcount) as WaypointType

for c=1 to waypointcount
    read Waypoints(c).PosX
    read Waypoints(c).PosZ
    read Waypoints(c).AngY
    read Waypoints(c).AngX
    Waypoints(c).AngY=wrapvalue(Waypoints(c).AngY)
    Waypoints(c).AngX=wrapvalue(Waypoints(c).AngX)
    read Waypoints(c).Delay
next c

return

SetupMap:

read maptiles
mapsize=maptiles*10

make matrix TerrainMatrix,mapsize,mapsize,maptiles,maptiles

for x=1 to maptiles
    for z=1 to maptiles
        read temp
        set matrix height TerrainMatrix,x,z,temp
    next z
next x

return

SetupEnemies:

read enemycount
DIM Enemies(enemycount) as EnemyType

for c=1 to enemycount
    Enemies(c).ObjectNo=FreeObject()
    read Enemies(c).PosX
    read Enemies(c).PosZ
    read Enemies(c).TriggerPosX
    read Enemies(c).TriggerPosZ
    read Enemies(c).Delay
    
    make object box Enemies(c).ObjectNo,10,30,5
    Enemies(c).TargetHeight=get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15
    position object Enemies(c).ObjectNo,Enemies(c).PosX,get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15-50,Enemies(c).PosZ
next c

return

function distance(waypoint,x#,z#)
temp#=SQRT((Waypoints(waypoint).PosX-x#)*(Waypoints(waypoint).PosX-x#)+(Waypoints(waypoint).PosZ-z#)*(Waypoints(waypoint).PosZ-z#))
endfunction temp#

function FreeObject()
temp=objects
repeat
inc temp
until object exist(temp)=0
endfunction temp

`Level data
data 20
data 979.404846191,20.2777328491,-49,0,0
data 883.822143555,96.2560348511,-72.5,0,3600
data 879.359863281,184.003417969,-28,0,0
data 683.226196289,275.361816406,29.5,0,0
data 551.063964844,252.686706543,-28,0,0
data 522.759155273,255.999176025,-78,0,0
data 349.502655029,277.063171387,-23,0,8000
data 308.799468994,282.014282227,0,0,0
data 308.298706055,371.771179199,23,0,0
data 369.83807373,493.201416016,-18,0,0
data 341.259216309,593.693115234,-44.5,0,0
data 316.309509277,626.412963867,-112.5,0,0
data 245.98197937,597.076660156,-134.5,0,0
data 165.750213623,511.296264648,-99.5,0,0
data 92.3321838379,554.863037109,16,0,0
data 216.179107666,777.401306152,53,0,0
data 423.805938721,824.921936035,12,0,0
data 498.935913086,827.347351074,0,0,0
data 525.011352539,817.908752441,147,0,0
data 818.587036133,770.512023926,94.5,0,0

data 100
data 0,0,0.5,1,1,1,1.5,1,0.5,0.5,0.5,1,1,1,1,1,0,0,0,0,0,0,0,1.5,5.5,8.5,9.5,21,26,30.5,37.5,43,36.5,32,23.5,13.5,7,2,0,0,0.5,1,3.5,6,11,20.5,20.5,23,15.5,14.5,8,5.5,7,12,12,9.5,5.5,5,8.5,8,10.5,7.5,6.5,13,13.5,20,10.5,12,8,7,3.5,3,3.5,3.5,3.5,3.5,0.5,0,0,2,3.5,9.5,13.5,18,16,21.5,22.5,34,38.5,41,34,27,11.5,2.5,0,0,0,0,0,0
data 0,0,0.5,1,1,1,1.5,2,1.5,1.5,2,3,2,2,2,1.5,0,0,0,0,0,5,10.5,15,20.5,27,25,37,40,44.5,48,51.5,39,33.5,23.5,13.5,7,2,0,2,3,4.5,6.5,10,13,18.5,15.5,17.5,9.5,10,5,4.5,4,6.5,7,6.5,4,4,8.5,10.5,15.5,14,11,9.5,8,14.5,16,19.5,15.5,13,8,9,7,10,11,12,6.5,4,0,2,3.5,9.5,13.5,18.5,17,24,25,42,47.5,51,46,39,18,7.5,3.5,0,0,0,0,0
data 0,0,0.5,1,1,1,2,2.5,2,2.5,3.5,4,4,4,3.5,2.5,1,0,0,1.5,5,14.5,22,31,39.5,44,39.5,49.5,48,48,50,51.5,39,33.5,23.5,13.5,7,2,0,3,11,14,18.5,14.5,12.5,5.5,1.5,0.5,0.5,1.5,2.5,3,2.5,1.5,0.5,0,0,0,3.5,6,12,14,15.5,13,8,10.5,12.5,20.5,22.5,25.5,18.5,15,11,15,19,21.5,14.5,9.5,2.5,0.5,0.5,3,9,14,14,20,25,43,55,60,58.5,52,30,13,7.5,0.5,4,4,4,0
data 0,0,1.5,2,2,2,3,3,2.5,4.5,7,7.5,7,7,5,2.5,1.5,3,5,10,16.5,28.5,36,43.5,50,51.5,44,51.5,49.5,47,46.5,45,29,21.5,12.5,5,1.5,0.5,1.5,6,13,14.5,15.5,9.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,3.5,5,8.5,10.5,13.5,15,14,9.5,10,12.5,23,29.5,26,23,16,18.5,20.5,26.5,22.5,17,6,2.5,1.5,2,8,13,12,11.5,16,28.5,44,50.5,59,57,41.5,21.5,14.5,4.5,5.5,4.5,4.5,0
data 0.5,1,2.5,4,4,3.5,4,4,3.5,5.5,8,9,9,10,9,8.5,7.5,8.5,13,20,26,41,48.5,52,55.5,55.5,43.5,50.5,45,38,33.5,30,13.5,9,4,0,0,1,2.5,5,11,11,12.5,5.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,8,13,17,16.5,14.5,11.5,19.5,26,27.5,33,29.5,28.5,22.5,26.5,26,21.5,11,5,3.5,3,6,9,8,7.5,10,18,33,43,53.5,58.5,54.5,39,28.5,16.5,15,8.5,7,0
data 0.5,1,2,6.5,6.5,6,6,6.5,4.5,6.5,9.5,10,10,10.5,11,10,10,14.5,24.5,30.5,36.5,51.5,55.5,51,50,47,35,31,23.5,17.5,12.5,10.5,5,4,0.5,0,0,5.5,11,12.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,7,12,20,21.5,18,16.5,23,24.5,33,28,28.5,18.5,22,24,23.5,17.5,11.5,8,5,3,2.5,2.5,4,3,9,19.5,28,44.5,55.5,61,56,47.5,30,27,15,9,0
data 1,1.5,2.5,7,8,7,7,6.5,5,6.5,9,10,12.5,14,14.5,14,18.5,23.5,32.5,38,44,49,45.5,37.5,35,28.5,19.5,15,9.5,3.5,2,3.5,4,4.5,1.5,1,2,7,11.5,11.5,7,4,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,4,7,16.5,21.5,21.5,19,21.5,28,33.5,32.5,26,19.5,17,24.5,26,27,20.5,14.5,6.5,4,2,1,1,0.5,1,10.5,18,32.5,50.5,62,63,60,46,36,23.5,13,0
data 1,1.5,2.5,7,8,9,8.5,8,7.5,12,13,14.5,16.5,17,16.5,18,23.5,31,40,42,42,41.5,34,21.5,16,11.5,5,2.5,1.5,0,0,4.5,7,8,4.5,5,8.5,13.5,14.5,15,10,7.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,2,2,8,12.5,17,16.5,20,31.5,29.5,27.5,19,23,20.5,22,23,28.5,27,23.5,13,7,3,2,1.5,1.5,1,3,9,20,37.5,57,64.5,71,62,49,29.5,19,0
data 1,1.5,1.5,6,7,8,8,8,9,13.5,14,17,25.5,28,30,34,37,36,39.5,35.5,30.5,27.5,20,9,5.5,4,0.5,0.5,0.5,1.5,2.5,8.5,10.5,11.5,8,12,16.5,17.5,12,14.5,11.5,11.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,2.5,5.5,7.5,10.5,13,31.5,29,30,14.5,24.5,25,28,24,27,25,28,24,18.5,10,3.5,2.5,1,1,0,4.5,12.5,27,47,58,69,67,57.5,37.5,26.5,0
data 0.5,1.5,1.5,5,6.5,9,9.5,15.5,17,23.5,24.5,28,31.5,32.5,33.5,36.5,37.5,35.5,36.5,28,21,15,7.5,0.5,0,0,0,0.5,1,2.5,3,11.5,13.5,14,9,13,18.5,19.5,16,20,15,11.5,2.5,2.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,6,9,22.5,22,22.5,11.5,20,24.5,29.5,27,27,26.5,29,29,27.5,18.5,8.5,4,2.5,1,0,1,7,16.5,31,42,57,61.5,55,40.5,29.5,0
data 0.5,1.5,2,3.5,5,7.5,8,16.5,22,30.5,33.5,39.5,40,40.5,38,39,37.5,32,25,17.5,10.5,4.5,0.5,0,0,5,6.5,8,3.5,4,10,19,18.5,14.5,12,20.5,23.5,23.5,21.5,23,20,15.5,12.5,12.5,10.5,5.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,6,16,15,17,13,18.5,26,33.5,42.5,37,31.5,28,30.5,31,27,17.5,11.5,8.5,6.5,2,0,0,7,16,22.5,39.5,52,51,42,35.5,0
data 0,1,1.5,4,4.5,7.5,8,19,24.5,36,42,48.5,45,43,39,38.5,31.5,25.5,19.5,11.5,3,2,0,0,0,5,6.5,8.5,3.5,4,9,18,18.5,14.5,12.5,17,21.5,24,31,33.5,33,27,25,22,18.5,13,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,6.5,9,11.5,15,20.5,23.5,35.5,33,27,23,25.5,28,25.5,22,16.5,14.5,10.5,5.5,3,1.5,0,8.5,10.5,24,43.5,57,48.5,46.5,0
data 0,1,2,4.5,5,7.5,12.5,23,31,41.5,48,51,47,42.5,37.5,34.5,25.5,18,12,6,0,0,0,0,0,9.5,13.5,15.5,6.5,4,9,13.5,17.5,19.5,22,24.5,25,29,34.5,33,31.5,27,28,28.5,26.5,23,14.5,7.5,2,0,0,0,0,0.5,1,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,4,4,5,9.5,12.5,17.5,14.5,22,24,27,30.5,30.5,32,33,28.5,26,24,21.5,15,6.5,4,1.5,1.5,3.5,9.5,31,50,48.5,46.5,0
data 0,1,2.5,5.5,6.5,9,17,28.5,35,46,53,55,43.5,37,29.5,24,13,11.5,8.5,4,0,0,0,0,0,5,8.5,11,7.5,6,4.5,12,19.5,26.5,26.5,22,21.5,22,28.5,33.5,34,31,29,27,25,26,22,16,4.5,0,0,0,5,5.5,6,3,5,4.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,5,4,5,8,14,28,31,37,37.5,34,28.5,27,24.5,19,9.5,5.5,2.5,1,1.5,4.5,25,52.5,52.5,51,0
data 0,0,5.5,10.5,11.5,15.5,24,27,32.5,41.5,47,47.5,39,31.5,24,16,7,7,4,1.5,0,0,0,0,2,7,10.5,14.5,17,15,13.5,17,24.5,32.5,29.5,28,23,21,18,18,17.5,16.5,16.5,17.5,18,20.5,19,15,5,0,0,0,6,9,10.5,10,11.5,10.5,5,0.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,5,10,19.5,25.5,33.5,38.5,37,31.5,30,28.5,23,13.5,6,2.5,1,0,2.5,18.5,52.5,52.5,52.5,0
data 0,2.5,9.5,14.5,15.5,22.5,31.5,31.5,33.5,41.5,44,39.5,32.5,26,20.5,12.5,5.5,5.5,5,1.5,0,0,1,2,6,8,10,13,21.5,21,19,20.5,23.5,23.5,18,18.5,15.5,12,8.5,11,13,12.5,11,8.5,8,10.5,11.5,10,3,0,0,0,6,8.5,9.5,8.5,13.5,15,10.5,3,3.5,4,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,24.5,28,42.5,33.5,33,21,21.5,20,10.5,4.5,1.5,0.5,1,14.5,52,52,52,0
data 0.5,6.5,17,22.5,26.5,36,42,36,36,41.5,38,32.5,28,23,16.5,10,5,5,4.5,1.5,3,7.5,9.5,11.5,16.5,19,17,19,26,24.5,21,14.5,12.5,11.5,7,9.5,7.5,8,5,3,2,1,0,0,1,2,2.5,1.5,0.5,0,0,0,1,3.5,4.5,9,15.5,18.5,14.5,6.5,5.5,5.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,11,16.5,37.5,34.5,36,24.5,26.5,23.5,14,7,2.5,0.5,0.5,7,44.5,44.5,44.5,0
data 2.5,11.5,25,32,38,44,44.5,37,33.5,34.5,31.5,27.5,21.5,19,15,9.5,5.5,5.5,4.5,1.5,3.5,11.5,15.5,21.5,27.5,35.5,30.5,34.5,39.5,40,30.5,24.5,16,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,15,21,19.5,12.5,10,7,6,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,8.5,29,30,34.5,24,30.5,26,20,13.5,8,2.5,1,3.5,42,42,42,0
data 10,24,38,45.5,47,51.5,44,34.5,28.5,27,22.5,17.5,13,10.5,8,4.5,6,8.5,8,7,9,17,20.5,26.5,38.5,48,43.5,46.5,50.5,44,32,25.5,16.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,12,17.5,16.5,16,15,12,8.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,13,23,25,28.5,28,25,20.5,14.5,8,3.5,3,35.5,33,33,0
data 19.5,33.5,43.5,45,43.5,44,36,29,23.5,20.5,17,12.5,9.5,9.5,8,6.5,10,13.5,13,12,14,24.5,28,33.5,44,53,44,45,45.5,38,26,19.5,11.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,6,10,10.5,16.5,18.5,19,14,9,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,13.5,27,29,27.5,25.5,28.5,28.5,22,14,9.5,8,35.5,31,29.5,0
data 22.5,34,41.5,40.5,38,35,26.5,20,16,12,9,7.5,7.5,8,8.5,9.5,13.5,18.5,18.5,21,25.5,35.5,35,41,45,50,40,41.5,39,34.5,24,18.5,11,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,10,14.5,21,17,14,6,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,17,33,34,30,24.5,29,31,27.5,19,16,14.5,32.5,25,22,0
data 24.5,32.5,36.5,32,26,20.5,15,12,9.5,5.5,5.5,5.5,5.5,6.5,10,12,13.5,18.5,18,23,25,30.5,29,34,34.5,39,33,34.5,33,32,23.5,20,24.5,19,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0.5,4,8,17.5,19,20,10.5,6.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,14.5,31.5,33,31,25.5,31,33,33,25.5,20,16,27,19,15.5,0
data 27.5,34,30,23.5,15.5,12,6,5,2.5,0.5,0.5,3,5.5,8.5,12.5,15.5,16.5,20.5,19.5,24,24.5,26.5,23,24,23.5,22.5,19.5,18,15.5,12.5,10,7,16.5,16,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,2.5,9,16,20,19,14,7.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,15.5,18,18,19,24,28.5,33.5,33,26.5,20,22.5,15,10.5,0
data 25,28,20.5,12,8,5,2,1.5,1.5,0,0,5,7.5,13,22,25.5,23,24.5,21,19.5,19,21,18,19,12.5,9.5,5,4,1,4.5,4.5,4.5,15.5,15.5,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,0,3.5,10.5,17,21,17,11.5,4.5,5.5,4.5,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,4,6,7,12.5,17,27,28.5,32,28,20.5,17,12.5,8,0
data 19.5,22.5,13,8.5,7,3.5,0.5,0,0,0,0,7,10,16,27.5,30.5,24,24,19,14.5,14,13.5,10.5,12,5,2.5,2.5,2.5,0,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,6.5,12.5,22.5,20,15,10.5,14.5,13.5,8.5,8.5,8.5,8.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6.5,10.5,24.5,31.5,35.5,34.5,29,19.5,10.5,5.5,0
data 18,21,11.5,8,7,4,6,5.5,5.5,0,0,13.5,16,21.5,31,34,20.5,18,12.5,5.5,2.5,2.5,2.5,2.5,23,23,23,23,23,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,0,0,0,0,0,0,3.5,7.5,16.5,16.5,15,14,20.5,18,13,12.5,12.5,12.5,9.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8.5,19,25.5,30,34.5,32,23,10,6,0
data 23,26,11.5,7.5,7,5,8,7.5,6.5,0,0,11.5,14,19,28,30,18.5,16,11,2,0,0,0,0,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,2.5,5.5,17,19.5,19,19,26,24,17.5,16,15.5,15.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,12.5,19.5,30.5,36.5,37,27,15.5,6,0
data 28,31.5,19.5,11,7.5,10,12.5,12,6.5,0,0,11,12.5,16.5,25,26,15,13.5,9.5,1,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,0,1.5,11.5,15.5,17,19.5,27.5,25,20,18.5,18,17.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,9.5,14,27.5,35,37.5,29.5,20,8,0
data 27,29,18,9,6,11,10.5,10.5,2.5,0.5,0.5,9.5,11,12.5,15.5,15.5,6.5,5,3.5,0,0,0,0,0,23,23,23,23,23,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,41,41,41,0,0,0,0,1,7,11.5,13,23,30,28,22,22,21.5,20.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,5,11.5,23.5,36,40,37.5,30,18.5,0
data 27,29,19,9.5,6,12.5,11,11.5,2,1,1,8,8.5,8.5,8,8,1,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,6.5,13,26.5,32,28.5,25.5,29.5,29,24.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,15.5,27.5,33.5,43,40,28.5,0
data 36.5,38.5,24.5,12.5,5.5,8,7,7.5,2,1.5,1.5,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,4,16.5,30,32.5,27.5,26.5,30.5,30,21.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,11.5,24.5,37.5,46.5,45.5,35.5,0
data 34,38.5,28.5,19,10,11.5,8,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,3.5,17,32.5,32,28,28,31,30,20,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,6,19.5,32,41.5,39.5,36,0
data 31.5,34.5,23.5,18,10,10.5,8.5,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,1,17,31,32,30,29,29,28,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,15.5,30,40,36,34.5,0
data 37.5,40.5,29,18,10,11,9,7.5,4,3,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,18.5,29.5,29.5,29.5,29.5,29.5,26,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,7.5,22,30,27.5,24.5,0
data 36.5,40,29.5,16.5,12,14.5,12,6.5,3.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,1,1,1.5,2,2,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,22.5,34,34.5,34.5,34.5,33.5,27.5,12,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,16,17.5,17.5,14.5,0
data 29.5,33,26.5,14,14.5,16.5,13.5,6.5,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,21,21,21,21,21,0,0,0,0,0,0,1,1,1.5,2,2.5,1.5,2.5,2,1.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,9,25.5,36,37.5,37.5,37.5,36,28.5,12,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,2.5,4,2.5,0
data 27,28.5,25,11.5,14,15.5,14,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,20,20,20,20,0,0,0,2,2.5,2.5,3.5,3.5,2,2,2.5,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,12,27.5,38,40,40,39.5,36,28,12.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,0
data 26,27.5,27,11,12.5,13.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19.5,19.5,19.5,19.5,19.5,7,13,13,15,15.5,8.5,4,4,2.5,2.5,3,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,15.5,28,37.5,40,40,38.5,32.5,24.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,28,29,14,12.5,10,7.5,0,0,0,0,0,3,4.5,4.5,4.5,4.5,1.5,0,0,0,0,0,0,18.5,18.5,18.5,18.5,18.5,7,13,14.5,18,19,12,6.5,5.5,3.5,3,4,3.5,4,3,3.5,2.5,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4,10.5,20,30.5,37.5,40,38,36,29.5,20,9.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,35,34.5,17.5,12,8,6,0,0,0,0,0,5,6.5,6.5,6.5,6.5,1.5,0,0,0,0,0,0,18,18,18,18,18,7,13,14.5,21.5,24.5,25,19.5,18.5,14.5,11.5,5,4.5,5.5,3,6.5,5.5,5.5,4,3.5,0,0,0,0,0,0,0,0,0,0,0,1.5,3,4,8.5,10.5,18,28.5,33,37.5,39,34.5,32.5,25,14.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 32,35.5,34,19,11.5,7,3.5,0,0,0,0.5,2.5,7.5,9,9,8.5,6.5,1.5,0,0,0,0,0,0,17,17,17,17,17,7,13,14.5,23.5,27,28.5,26,26,20.5,18.5,10.5,7,6,3,9,11,11,10.5,10,2.5,0,0,0,0,0,0,0,0,0,0.5,2.5,4,6,11.5,15,23,30.5,33.5,38,38.5,33,29.5,21.5,13.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 34.5,37.5,31.5,16.5,10,4.5,1.5,0,0,0,3,6,11.5,13.5,15.5,12.5,9.5,4,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,7,13,14.5,21.5,24.5,26,23.5,25,21.5,20,12,8.5,6,2.5,8.5,10.5,10.5,10,10,2.5,0,0,0,0,0,0,0,0,1,2.5,4.5,8,12,20,25,31,35,37.5,37.5,35.5,27.5,22.5,15.5,10,5.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 31,33.5,25,13,8.5,3.5,1,0,0,2,7,10,15.5,17.5,17.5,12.5,9.5,4,2,0,0,0,0,0,17,17,17,17,17,0,0,1.5,8.5,11.5,20,23,29.5,32,34,26.5,23.5,14.5,5,7.5,9.5,9.5,10.5,10.5,3,0.5,0.5,1,1.5,4.5,5.5,5.5,7,8,8.5,11.5,15.5,22,32,35.5,41,43.5,43.5,39,32.5,22.5,17.5,11,7,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 24,25.5,15,9,6.5,2.5,1,0,0,6,11,14,16.5,17,13,8,5,2.5,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,0,0,0,5.5,8,16.5,19.5,27,31.5,39,33.5,31.5,23,13,9.5,9.5,10,14,15.5,10,8,8.5,9,9,11,14,14,16,18.5,22.5,25,27,32,41.5,43.5,45,43.5,41.5,36,27,16.5,12,7.5,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 15.5,17,6,4.5,4,1.5,0,0,1.5,10.5,15.5,18.5,19,18,11,6,3,2.5,2,0,0,0,0,0,15,15,15,15,15,0,0,0,2,2.5,3.5,6.5,14,20,31.5,35,36,29,21,13,11.5,13.5,24.5,29,29.5,30.5,33,34,33,29.5,33,32,31.5,33.5,37,36.5,38.5,40,47,47.5,45,43.5,39.5,31,21.5,11,7.5,5.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 16,16,3,1.5,1,0,0,0,1.5,14,18.5,19.5,20,19,8.5,4,3,2.5,2,0,0,0,0,0,12,12,12,12,12,0,0,0,0,0,0,0,6.5,14,26.5,31,36.5,32.5,25,12.5,8.5,13,23,27.5,33,37.5,40,45,42,39.5,45.5,46,46,49,50,49,49,48,50.5,49,45,40,34.5,24.5,15,6.5,3.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 18.5,19,2.5,2,1.5,0,0,1.5,7,19.5,21.5,21.5,20,14.5,2,0,0,0,0,0,0,0,0,0,8.5,8.5,8.5,8.5,8.5,0,0,0,0,0,0,0,5,12.5,25,31,37.5,36.5,36,26,20.5,24,31.5,29,32,36.5,43.5,51,50.5,51,63,64.5,65.5,65.5,65.5,60.5,56,48,47,44.5,38,31,26.5,18,9.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 27,24,4,3.5,3,1,0,4,11,21.5,21.5,21.5,17.5,10.5,0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,0,0,0,0,0,0,0,0,1.5,10.5,16,22.5,28,33,27.5,22.5,26,32,28.5,30.5,35,42,50.5,53.5,54,66,67.5,68.5,68.5,67,59.5,55,46,44,40,33,26.5,22.5,14,6.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 25.5,22,6,4.5,3,1,0,6,15.5,22,22,22,16,6.5,0,0,0,0,0,0,0,0,0,0,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,4,7,12.5,18,24.5,24,23,33.5,39.5,36,37,40,41,49.5,52.5,54,66,67.5,68.5,67.5,65,57.5,51,40,35.5,30,24,18.5,14.5,8,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 20.5,19,12.5,10,4,2,0,7.5,15.5,19,19,19,11.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3.5,6,9.5,18.5,20.5,20.5,37,45,39,39.5,42.5,40.5,48.5,51,49.5,60.5,62,61.5,60.5,59,50.5,43.5,30,23.5,19.5,13.5,8,5.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 19,19.5,18,12.5,4,2,1,7.5,15.5,15.5,15.5,15.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,4,13.5,18,18,36.5,46,38,36,38.5,34,39.5,42.5,43,52,53.5,52.5,50,45,37,32,20,14,11,7,5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 22.5,24,27.5,23,10,5,2.5,6,10,10,10,10,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,3,5.5,22,28,28,24.5,23,15,18,18.5,24.5,33,35.5,37,35,30.5,25.5,20.5,12,8.5,6,3.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,36,36,36,0,0,0
data 21,18,23,23,16,11,5.5,6.5,8,9,7.5,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,4,18.5,22.5,23,20,17.5,7.5,7.5,9.5,14.5,20.5,21.5,22.5,19.5,17.5,13,10,4,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0
data 26,11,17.5,33.5,29.5,28,19,18,13.5,5,3.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,0,11.5,16,17.5,15.5,17,5.5,3.5,2,3,3,3,3,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,21.5,25.5,37,28.5,30,22,30,31,22.5,13,6.5,2.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2,-1.5,-6.5,3,10.5,15.5,14,19,9.5,3.5,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,24.5,28,38.5,30.5,34.5,28.5,33,34,25.5,17,9.5,8,6.5,4.5,7,8,8,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2.5,-2.5,-6.5,2.5,7,14.5,14.5,18.5,9.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24,28.5,30.5,29.5,20.5,21,17,22.5,27,33,25.5,19,16,18.5,15.5,14,10.5,10.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.5,-1,-6,4,7,13.5,15,20,10,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10.5,16,17,20.5,21.5,21,13.5,10.5,12,17.5,23,24.5,31.5,36,31.5,27,18,18,13,10.5,6,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-5,3,7.5,16.5,18,23,15,10.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,15.5,13.5,14.5,13.5,11,4,4.5,13,19,26.5,28.5,32.5,35,35.5,28,18,10,13.5,22.5,19,11,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2.5,2.5,7,16,19,21.5,16.5,12,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,17.5,14,13.5,12,8,1,1.5,10,11,17.5,18.5,24.5,23,24.5,21,15.5,7.5,11,21,20.5,13.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,10,19.5,25,22,17.5,16,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22.5,30.5,16,14,11,8,0,0,6,7.5,9,8,6.5,5,8,8,8,0,2.5,12,14.5,13,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,9.5,18,26.5,30.5,27.5,24,17.5,9,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,30.5,17,15.5,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,6.5,13,21,26,27.5,24.5,20.5,12.5,4.5,2.5,2.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22,24,11,9.5,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,12.5,21,27.5,29.5,31,29,20.5,11,8.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,21.5,9,7.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,13,20.5,27,29,33.5,31,23.5,14,11.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,20.5,8.5,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,12,17.5,26,29,33,30,24.5,16,13,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 19,19,17.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,15.5,18,20.5,26,31.5,22,19.5,17,11.5,1.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,16.5,18.5,24,29,33.5,23.5,21.5,16,11,1,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,8,18.5,19.5,25.5,27.5,27,16.5,15.5,9.5,5,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,15,13.5,1.5,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,9,18,21,28.5,30,26,17,14,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21.5,24.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,8.5,15.5,21,28.5,29,24.5,17.5,12,4.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,17.5,13,4,2,1,2,3,3,3.5,3,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,10.5,13.5,19.5,27,24,18,15,9,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,26.5,19.5,6,6.5,3.5,5.5,6,7.5,7,4.5,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,8,16.5,21.5,28,31,23.5,15,10,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23,26.5,22.5,14,15,8.5,7,7.5,6,7.5,4,5.5,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6,15.5,20.5,27,28,22.5,13,8,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24.5,29.5,24,18.5,17,8,5,4.5,4,8,5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,17,22,26,24.5,18.5,9,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,30.5,30,26.5,17.5,5.5,1.5,1.5,-0.5,4.5,3.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,10.5,18.5,27,32,27,22.5,14.5,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,35.5,27,10,0.5,0,0,1,4,4,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8.5,14.5,21.5,28.5,31,24,18,11,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,36.5,24,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,1.5,0,0,0,0,0,0,0,0,0,1,2.5,5,14,19.5,22.5,24,22,13,7.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,40,38,21.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,4.5,4.5,1.5,0,0,0,0,0,0,0,0.5,6.5,9.5,13.5,22.5,27.5,25,23,19,10,4.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,38,31,13.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,5.5,10.5,9,6.5,3,2.5,2.5,1,0,4,5.5,16,21,25,30,33,25,20,16,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 23,34,26.5,14,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,9,11,11.5,8,6.5,3.5,2,0,4,8,19,24,28,27,41.5,30.5,25.5,25,22,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 21,27.5,16.5,9.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,11,15,16,14,9,4,10.5,16.5,22,33,37,30.5,26,37.5,26.5,21.5,22,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 19,27.5,21.5,11.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,9,16,16,15.5,19.5,29,36,42,47,39.5,28,21,32,22,18.5,20.5,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 23.5,33,32,14,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,6,21,26,27.5,23.5,29,36,41.5,41.5,32.5,19.5,12.5,7,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,26,30.5,13,13,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,16.5,28,31,28.5,29,32,36.5,32,21,8,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10,18,27,17,17.5,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,15.5,32.5,36,34,29,32,34,29,18,5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 6,20.5,30,28.5,22.5,12.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7.5,27,31.5,34.5,18.5,19.5,20,15,5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11,25,33.5,31,19,10.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,25.5,27,20,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 16,29,30.5,29,18.5,14.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7,23,25.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 12.5,18.5,20,18.5,15,11.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,15.5,18.5,17,10.5,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 7,12.5,18,12,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,13.5,12.5,6,1,0,0,0,0,0,5.5,5.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 18.5,20,9.5,1.5,0,0,0,0,4.5,7.5,16,11.5,8.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,14.5,4,0,0,0,0,3.5,10.5,16,21.5,14.5,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,7.5,7,11,19,30,27.5,16,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11.5,11.5,3,0,0,0,0.5,9,16,28.5,25,18,5,0,2,5.5,5.5,3.5,0,0,0,0,0,0,0,0,0,3,6.5,6.5,5.5,9.5,13,14.5,17.5,29,36,31,16,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,7.5,16,20,24.5,22.5,17.5,6.5,0,2.5,8.5,11,9.5,5,6,5.5,4,0.5,0,0,0,1.5,11,17,23.5,19.5,24,22.5,24.5,25.5,37.5,43,41,24,11,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,2.5,6.5,13,20,18.5,20.5,18,19.5,11,9.5,11.5,21.5,20,18.5,12.5,12,8.5,6,6.5,6,6,5.5,11.5,22.5,26.5,29,23,25.5,24,25.5,24.5,35,36.5,35,19.5,10,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,15.5,21.5,20.5,22,19,18.5,17,14,9.5,9.5,16,15,16.5,16.5,19.5,18,17,18,18,15.5,11,14.5,22,22,23.5,20,24.5,23,23,18.5,22,22.5,23.5,15,7.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,14.5,14.5,13.5,13.5,15.5,10.5,11.5,9.5,9.5,9,13,9.5,10.5,11.5,13.5,12.5,13,17.5,18,15.5,11,13,14,11.5,6.5,6,10,12.5,12,7,8,7.5,7,3.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

data 20
data 652.818603516,127.62336731,886.442077637,93.8065414429,0
data 701.302856445,60.1504554749,888.545776367,92.1973342896,1000
data 727.378479004,217.510528564,887.766723633,93.0390853882,1500
data 720.602294922,162.103683472,888.257751465,93.0585021973,2000
data 772.95501709,322.116027832,855.384399414,195.611343384,0
data 555.351745605,502.659912109,656.605529785,272.158203125,0
data 544.091064453,305.63470459,573.514648438,258.233306885,0
data 229.152069092,450.426361084,356.586029053,273.939605713,0
data 293.673461914,510.156341553,362.450744629,273.681213379,2000
data 191.553955078,588.027709961,360.59753418,273.946594238,3000
data 272.077087402,444.820037842,355.782775879,276.342315674,4500
data 291.803894043,462.947387695,356.315948486,275.276000977,6000
data 84.0458374023,484.882476807,239.464660645,590.658935547,0
data 666.872436523,540.072631836,676.795898438,275.788635254,0
data 330.456970215,893.265258789,169.508117676,694.465759277,0
data 358.5496521,886.873291016,172.324493408,702.044433594,0
data 358.415283203,911.184265137,179.547698975,714.323364258,0
data 607.806335449,704.950134277,525.992980957,817.463867188,0
data 699.457214355,736.278198242,571.587280273,809.273193359,0
data 827.184265137,695.248168945,553.131652832,812.39465332,0

`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,768,32,0,4,0
autocam off
hide mouse
randomize timer()

set text font "verdana"
set text size 14


`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
endtype
type EnemyType
    ObjectNo as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as integer
    TriggerPosZ as integer
    Raised as integer
    TargetHeight as float
    Delay as integer
endtype

global objects
objects=10

#Constant TerrainMatrix    1

#Constant GunObject         1
#Constant MuzzleflashObject 2
#Constant MuzzleflashObject2 3

#Constant TerrainTexture   1
#Constant CrosshairsImage  2
#Constant MuzzleflashImage 3

#Constant CrosshairsSprite 1

cameraheight#=20.0
movespeed#=0.4
currentwaypoint=1
findtolerance#=0.5

lives=3


`======= Media Setup ============================

set image colorkey 1,1,1

gosub SetupWaypoints
gosub SetupMap
gosub SetupEnemies

`gun main (chamber)
make object box GunObject,1,1,2
color object GunObject,rgb(80,80,88)
`barrel
temp=FreeObject()
make object cylinder temp,1
scale object temp,100,400,100
xrotate object temp,90
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,1,1
offset limb GunObject,1,0,0,2
color limb GunObject,1,rgb(80,80,88)
delete object temp
delete mesh 1
`handle
make object box temp,0.8,2,1
xrotate object temp,25
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,2,1
offset limb GunObject,2,0,-0.9,-1
color limb GunObject,2,rgb(177,105,46)
delete object temp
delete mesh 1

disable object zdepth GunObject

`Muzzleflash
create bitmap 1,512,256
cls rgb(1,1,1)
for x=1 to 512
    for y=1 to 256
        prob=abs(y-128)/20 + x/100
        if rnd(prob)=1
            ink rgb(255,255-rnd(50),0)
            dot x,y
        endif
    next y
next x
get image MuzzleflashImage,1,1,512,256,1
delete bitmap 1

make object plane MuzzleflashObject,6,3
yrotate object MuzzleflashObject,90
fix object pivot MuzzleflashObject
set object ambient MuzzleflashObject,0
texture object MuzzleflashObject,MuzzleflashImage
set object transparency MuzzleflashObject,1
set object emissive MuzzleflashObject,rgb(255,220,0)

make object plane MuzzleflashObject2,6,3
yrotate object MuzzleflashObject2,90
zrotate object MuzzleflashObject2,90
fix object pivot MuzzleflashObject2
set object ambient MuzzleflashObject2,0
texture object MuzzleflashObject2,MuzzleflashImage
set object transparency MuzzleflashObject2,1
set object emissive MuzzleflashObject2,rgb(255,220,0)

`Matrix Textures
create bitmap 1,1000,90

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

get image TerrainTexture,1,1,256,64,0
save image "railtemp.dds",TerrainTexture
load image "railtemp.dds",TerrainTexture
delete file "railtemp.dds"

`Crosshairs
cls rgb(1,1,1)
ink rgb(200,200,200)
line 0,40,80,40
line 40,0,40,80
circle 40,40,20
get image CrosshairsImage,1,1,80,80,1
sprite CrosshairsSprite,0,0,CrosshairsImage
set sprite CrosshairsSprite,1,1
offset sprite CrosshairsSprite,40,40

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

ammo=array count(Enemies(0))*1.2


`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

`Start off at the first waypoint
camerax#=Waypoints(1).PosX
cameraz#=Waypoints(1).PosZ
cameraangx#=Waypoints(1).AngX
cameraangy#=Waypoints(1).AngY

ink rgb(255,255,255)

do

sprite CrosshairsSprite,mousex(),mousey(),CrosshairsImage

position camera camerax#,cameraheight#+get ground height(TerrainMatrix,camerax#,cameraz#),cameraz#
rotate camera cameraangx#,cameraangy#,0

`Orient gun with screen
set object to camera orientation GunObject
position object GunObject,camerax#,camera position y(),cameraz#
move object GunObject,10
move object right GunObject,4
move object down GunObject,4
yrotate object GunObject,object angle y(GunObject)+(mousex()-screen width()/2)/10
xrotate object GunObject,object angle x(GunObject)+(mousey()-screen height()/2)/10+xangoff#
set object to object orientation MuzzleflashObject,GunObject
position object MuzzleflashObject,object position x(GunObject),object position y(GunObject),object position z(GunObject)
move object MuzzleflashObject,7
set object to object orientation MuzzleflashObject2,GunObject
position object MuzzleflashObject2,object position x(GunObject),object position y(GunObject),object position z(GunObject)
move object MuzzleflashObject2,7

`Recoil control
if xangoff#<0 then inc xangoff#,1

`Muzzleflash
if muzzlealpha>0 then dec muzzlealpha,5
set alpha mapping on MuzzleflashObject,muzzlealpha
set alpha mapping on MuzzleflashObject2,muzzlealpha

`Move
`If we are close to the next waypoint..
if abs(camerax#-Waypoints(currentwaypoint).PosX)<=findtolerance# and abs(cameraz#-Waypoints(currentwaypoint).PosZ)<=findtolerance#
    `And we're done delaying..
    if delaytimer=0
        delaytimer=timer()
        else
        if timer()-delaytimer>=Waypoints(currentwaypoint).Delay
            `And we haven't got to the end yet..
            if currentwaypoint<array count(Waypoints(0))
                `Target the next waypoint
                delaytimer=0
                cameraangy#=Waypoints(currentwaypoint).AngY
                `cameraangx#=Waypoints(currentwaypoint).AngX
                inc currentwaypoint
                time#=distance(currentwaypoint,camerax#,cameraz#)/movespeed#
                cameraspeedx#=(Waypoints(currentwaypoint).AngX-cameraangx#)/time#
                cameraspeedy#=(Waypoints(currentwaypoint).AngY-cameraangy#)/time#
                if cameraangx#>270 and Waypoints(currentwaypoint).AngX<90
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX+180)-(cameraangx#-180))/time#
                endif
                if cameraangy#>270 and Waypoints(currentwaypoint).AngY<90
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY+180)-(cameraangy#-180))/time#
                endif
                if cameraangx#<90 and Waypoints(currentwaypoint).AngX>270
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX-180)-(cameraangx#+180))/time#
                endif
                if cameraangy#<90 and Waypoints(currentwaypoint).AngY>270
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY-180)-(cameraangy#+180))/time#
                endif
                else
                center text screen width()/2,screen height()/2-15,"Level Completed!"
            endif
        endif
    endif

    else

    `Calculate movement toward next waypoint
    inc camerax#,sin(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    inc cameraz#,cos(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    
    `Rotate
    cameraangy#=wrapvalue(cameraangy#+cameraspeedy#)
    `cameraangx#=wrapvalue(cameraangx#+cameraspeedx#)

endif

`Shoot
if mouseclick()=1 and clicked=0
    clicked=1
    if ammo>0
        pick screen mousex(),mousey(),mapsize*5
        xangoff#=-15
        muzzlealpha=100
        dec ammo
        for c=1 to array count(Enemies(0))
            if Enemies(c).Killed=0
                temp=intersect object(Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#,get pick vector x()+camerax#,get pick vector y()+camera position y(),get pick vector z()+cameraZ#)
                if temp>0
                    Enemies(c).Killed=1
                endif
            endif
        next c
        else
        noammo=timer()+200
    endif
endif

`Update Enemies
for c=1 to array count(Enemies(0))
    `Kill
    if Enemies(c).Killed=1
        move object Enemies(c).ObjectNo,-1
        inc Enemies(c).FallSpeed
        move object down Enemies(c).ObjectNo,Enemies(c).FallSpeed*0.05
        
        else
        
        point object Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#

        `Raise
        if Enemies(c).Raised=0
            if abs(camerax#-Enemies(c).TriggerPosX)<5 and abs(cameraz#-Enemies(c).TriggerPosZ)<5
                Enemies(c).Raised=-timer()
            endif
            else
            if Enemies(c).Raised>0
                if object position y(Enemies(c).ObjectNo)<Enemies(c).TargetHeight
                    move object up Enemies(c).ObjectNo,2
                endif
                if timer()-Enemies(c).Raised>=2200 and object in screen(Enemies(c).ObjectNo)
                    cls rgb(255,0,0)
                    Enemies(c).Killed=1
                    dec Lives
                endif
                
                else
                
                if timer()+Enemies(c).Raised>Enemies(c).Delay
                    Enemies(c).Raised=timer()
                endif
            endif
        endif
    endif
next c

if mouseclick()=0 then clicked=0

temp$=""
for c=1 to Ammo
    temp$=temp$+"|"
next c
text 10,10,"Ammo:  "+temp$
temp$=""
for c=1 to lives
    temp$=temp$+"|"
next c
text 10,30,"Lives: "+temp$

if timer()-noammo<200 then center text screen width()/2,screen height()/2,"NO AMMO"

sync
loop

`======= ==== =============== ===================
`================================================


SetupWaypoints:

read waypointcount
DIM Waypoints(waypointcount) as WaypointType

for c=1 to waypointcount
    read Waypoints(c).PosX
    read Waypoints(c).PosZ
    read Waypoints(c).AngY
    read Waypoints(c).AngX
    Waypoints(c).AngY=wrapvalue(Waypoints(c).AngY)
    Waypoints(c).AngX=wrapvalue(Waypoints(c).AngX)
    read Waypoints(c).Delay
next c

return



SetupMap:

read maptiles
mapsize=maptiles*10

make matrix TerrainMatrix,mapsize,mapsize,maptiles,maptiles

for x=1 to maptiles
    for z=1 to maptiles
        read temp
        set matrix height TerrainMatrix,x,z,temp
    next z
next x
    

return



SetupEnemies:

read enemycount
DIM Enemies(enemycount) as EnemyType

for c=1 to enemycount
    Enemies(c).ObjectNo=FreeObject()
    read Enemies(c).PosX
    read Enemies(c).PosZ
    read Enemies(c).TriggerPosX
    read Enemies(c).TriggerPosZ
    read Enemies(c).Delay
    
    make object box Enemies(c).ObjectNo,10,30,5
    Enemies(c).TargetHeight=get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15
    position object Enemies(c).ObjectNo,Enemies(c).PosX,get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15-50,Enemies(c).PosZ
next c

return



function distance(waypoint,x#,z#)
temp#=SQRT((Waypoints(waypoint).PosX-x#)*(Waypoints(waypoint).PosX-x#)+(Waypoints(waypoint).PosZ-z#)*(Waypoints(waypoint).PosZ-z#))
endfunction temp#

function FreeObject()
temp=objects
repeat
inc temp
until object exist(temp)=0
endfunction temp


`Level data
data 20
data 979.404846191,20.2777328491,-49,0,0
data 883.822143555,96.2560348511,-72.5,0,3600
data 879.359863281,184.003417969,-28,0,0
data 683.226196289,275.361816406,29.5,0,0
data 551.063964844,252.686706543,-28,0,0
data 522.759155273,255.999176025,-78,0,0
data 349.502655029,277.063171387,-23,0,8000
data 308.799468994,282.014282227,0,0,0
data 308.298706055,371.771179199,23,0,0
data 369.83807373,493.201416016,-18,0,0
data 341.259216309,593.693115234,-44.5,0,0
data 316.309509277,626.412963867,-112.5,0,0
data 245.98197937,597.076660156,-134.5,0,0
data 165.750213623,511.296264648,-99.5,0,0
data 92.3321838379,554.863037109,16,0,0
data 216.179107666,777.401306152,53,0,0
data 423.805938721,824.921936035,12,0,0
data 498.935913086,827.347351074,0,0,0
data 525.011352539,817.908752441,147,0,0
data 818.587036133,770.512023926,94.5,0,0

data 100
data 0,0,0.5,1,1,1,1.5,1,0.5,0.5,0.5,1,1,1,1,1,0,0,0,0,0,0,0,1.5,5.5,8.5,9.5,21,26,30.5,37.5,43,36.5,32,23.5,13.5,7,2,0,0,0.5,1,3.5,6,11,20.5,20.5,23,15.5,14.5,8,5.5,7,12,12,9.5,5.5,5,8.5,8,10.5,7.5,6.5,13,13.5,20,10.5,12,8,7,3.5,3,3.5,3.5,3.5,3.5,0.5,0,0,2,3.5,9.5,13.5,18,16,21.5,22.5,34,38.5,41,34,27,11.5,2.5,0,0,0,0,0,0
data 0,0,0.5,1,1,1,1.5,2,1.5,1.5,2,3,2,2,2,1.5,0,0,0,0,0,5,10.5,15,20.5,27,25,37,40,44.5,48,51.5,39,33.5,23.5,13.5,7,2,0,2,3,4.5,6.5,10,13,18.5,15.5,17.5,9.5,10,5,4.5,4,6.5,7,6.5,4,4,8.5,10.5,15.5,14,11,9.5,8,14.5,16,19.5,15.5,13,8,9,7,10,11,12,6.5,4,0,2,3.5,9.5,13.5,18.5,17,24,25,42,47.5,51,46,39,18,7.5,3.5,0,0,0,0,0
data 0,0,0.5,1,1,1,2,2.5,2,2.5,3.5,4,4,4,3.5,2.5,1,0,0,1.5,5,14.5,22,31,39.5,44,39.5,49.5,48,48,50,51.5,39,33.5,23.5,13.5,7,2,0,3,11,14,18.5,14.5,12.5,5.5,1.5,0.5,0.5,1.5,2.5,3,2.5,1.5,0.5,0,0,0,3.5,6,12,14,15.5,13,8,10.5,12.5,20.5,22.5,25.5,18.5,15,11,15,19,21.5,14.5,9.5,2.5,0.5,0.5,3,9,14,14,20,25,43,55,60,58.5,52,30,13,7.5,0.5,4,4,4,0
data 0,0,1.5,2,2,2,3,3,2.5,4.5,7,7.5,7,7,5,2.5,1.5,3,5,10,16.5,28.5,36,43.5,50,51.5,44,51.5,49.5,47,46.5,45,29,21.5,12.5,5,1.5,0.5,1.5,6,13,14.5,15.5,9.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,3.5,5,8.5,10.5,13.5,15,14,9.5,10,12.5,23,29.5,26,23,16,18.5,20.5,26.5,22.5,17,6,2.5,1.5,2,8,13,12,11.5,16,28.5,44,50.5,59,57,41.5,21.5,14.5,4.5,5.5,4.5,4.5,0
data 0.5,1,2.5,4,4,3.5,4,4,3.5,5.5,8,9,9,10,9,8.5,7.5,8.5,13,20,26,41,48.5,52,55.5,55.5,43.5,50.5,45,38,33.5,30,13.5,9,4,0,0,1,2.5,5,11,11,12.5,5.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,8,13,17,16.5,14.5,11.5,19.5,26,27.5,33,29.5,28.5,22.5,26.5,26,21.5,11,5,3.5,3,6,9,8,7.5,10,18,33,43,53.5,58.5,54.5,39,28.5,16.5,15,8.5,7,0
data 0.5,1,2,6.5,6.5,6,6,6.5,4.5,6.5,9.5,10,10,10.5,11,10,10,14.5,24.5,30.5,36.5,51.5,55.5,51,50,47,35,31,23.5,17.5,12.5,10.5,5,4,0.5,0,0,5.5,11,12.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,7,12,20,21.5,18,16.5,23,24.5,33,28,28.5,18.5,22,24,23.5,17.5,11.5,8,5,3,2.5,2.5,4,3,9,19.5,28,44.5,55.5,61,56,47.5,30,27,15,9,0
data 1,1.5,2.5,7,8,7,7,6.5,5,6.5,9,10,12.5,14,14.5,14,18.5,23.5,32.5,38,44,49,45.5,37.5,35,28.5,19.5,15,9.5,3.5,2,3.5,4,4.5,1.5,1,2,7,11.5,11.5,7,4,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,4,7,16.5,21.5,21.5,19,21.5,28,33.5,32.5,26,19.5,17,24.5,26,27,20.5,14.5,6.5,4,2,1,1,0.5,1,10.5,18,32.5,50.5,62,63,60,46,36,23.5,13,0
data 1,1.5,2.5,7,8,9,8.5,8,7.5,12,13,14.5,16.5,17,16.5,18,23.5,31,40,42,42,41.5,34,21.5,16,11.5,5,2.5,1.5,0,0,4.5,7,8,4.5,5,8.5,13.5,14.5,15,10,7.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,2,2,8,12.5,17,16.5,20,31.5,29.5,27.5,19,23,20.5,22,23,28.5,27,23.5,13,7,3,2,1.5,1.5,1,3,9,20,37.5,57,64.5,71,62,49,29.5,19,0
data 1,1.5,1.5,6,7,8,8,8,9,13.5,14,17,25.5,28,30,34,37,36,39.5,35.5,30.5,27.5,20,9,5.5,4,0.5,0.5,0.5,1.5,2.5,8.5,10.5,11.5,8,12,16.5,17.5,12,14.5,11.5,11.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,2.5,5.5,7.5,10.5,13,31.5,29,30,14.5,24.5,25,28,24,27,25,28,24,18.5,10,3.5,2.5,1,1,0,4.5,12.5,27,47,58,69,67,57.5,37.5,26.5,0
data 0.5,1.5,1.5,5,6.5,9,9.5,15.5,17,23.5,24.5,28,31.5,32.5,33.5,36.5,37.5,35.5,36.5,28,21,15,7.5,0.5,0,0,0,0.5,1,2.5,3,11.5,13.5,14,9,13,18.5,19.5,16,20,15,11.5,2.5,2.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,6,9,22.5,22,22.5,11.5,20,24.5,29.5,27,27,26.5,29,29,27.5,18.5,8.5,4,2.5,1,0,1,7,16.5,31,42,57,61.5,55,40.5,29.5,0
data 0.5,1.5,2,3.5,5,7.5,8,16.5,22,30.5,33.5,39.5,40,40.5,38,39,37.5,32,25,17.5,10.5,4.5,0.5,0,0,5,6.5,8,3.5,4,10,19,18.5,14.5,12,20.5,23.5,23.5,21.5,23,20,15.5,12.5,12.5,10.5,5.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,6,16,15,17,13,18.5,26,33.5,42.5,37,31.5,28,30.5,31,27,17.5,11.5,8.5,6.5,2,0,0,7,16,22.5,39.5,52,51,42,35.5,0
data 0,1,1.5,4,4.5,7.5,8,19,24.5,36,42,48.5,45,43,39,38.5,31.5,25.5,19.5,11.5,3,2,0,0,0,5,6.5,8.5,3.5,4,9,18,18.5,14.5,12.5,17,21.5,24,31,33.5,33,27,25,22,18.5,13,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,6.5,9,11.5,15,20.5,23.5,35.5,33,27,23,25.5,28,25.5,22,16.5,14.5,10.5,5.5,3,1.5,0,8.5,10.5,24,43.5,57,48.5,46.5,0
data 0,1,2,4.5,5,7.5,12.5,23,31,41.5,48,51,47,42.5,37.5,34.5,25.5,18,12,6,0,0,0,0,0,9.5,13.5,15.5,6.5,4,9,13.5,17.5,19.5,22,24.5,25,29,34.5,33,31.5,27,28,28.5,26.5,23,14.5,7.5,2,0,0,0,0,0.5,1,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,4,4,5,9.5,12.5,17.5,14.5,22,24,27,30.5,30.5,32,33,28.5,26,24,21.5,15,6.5,4,1.5,1.5,3.5,9.5,31,50,48.5,46.5,0
data 0,1,2.5,5.5,6.5,9,17,28.5,35,46,53,55,43.5,37,29.5,24,13,11.5,8.5,4,0,0,0,0,0,5,8.5,11,7.5,6,4.5,12,19.5,26.5,26.5,22,21.5,22,28.5,33.5,34,31,29,27,25,26,22,16,4.5,0,0,0,5,5.5,6,3,5,4.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,5,4,5,8,14,28,31,37,37.5,34,28.5,27,24.5,19,9.5,5.5,2.5,1,1.5,4.5,25,52.5,52.5,51,0
data 0,0,5.5,10.5,11.5,15.5,24,27,32.5,41.5,47,47.5,39,31.5,24,16,7,7,4,1.5,0,0,0,0,2,7,10.5,14.5,17,15,13.5,17,24.5,32.5,29.5,28,23,21,18,18,17.5,16.5,16.5,17.5,18,20.5,19,15,5,0,0,0,6,9,10.5,10,11.5,10.5,5,0.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,5,10,19.5,25.5,33.5,38.5,37,31.5,30,28.5,23,13.5,6,2.5,1,0,2.5,18.5,52.5,52.5,52.5,0
data 0,2.5,9.5,14.5,15.5,22.5,31.5,31.5,33.5,41.5,44,39.5,32.5,26,20.5,12.5,5.5,5.5,5,1.5,0,0,1,2,6,8,10,13,21.5,21,19,20.5,23.5,23.5,18,18.5,15.5,12,8.5,11,13,12.5,11,8.5,8,10.5,11.5,10,3,0,0,0,6,8.5,9.5,8.5,13.5,15,10.5,3,3.5,4,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,24.5,28,42.5,33.5,33,21,21.5,20,10.5,4.5,1.5,0.5,1,14.5,52,52,52,0
data 0.5,6.5,17,22.5,26.5,36,42,36,36,41.5,38,32.5,28,23,16.5,10,5,5,4.5,1.5,3,7.5,9.5,11.5,16.5,19,17,19,26,24.5,21,14.5,12.5,11.5,7,9.5,7.5,8,5,3,2,1,0,0,1,2,2.5,1.5,0.5,0,0,0,1,3.5,4.5,9,15.5,18.5,14.5,6.5,5.5,5.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,11,16.5,37.5,34.5,36,24.5,26.5,23.5,14,7,2.5,0.5,0.5,7,44.5,44.5,44.5,0
data 2.5,11.5,25,32,38,44,44.5,37,33.5,34.5,31.5,27.5,21.5,19,15,9.5,5.5,5.5,4.5,1.5,3.5,11.5,15.5,21.5,27.5,35.5,30.5,34.5,39.5,40,30.5,24.5,16,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,15,21,19.5,12.5,10,7,6,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,8.5,29,30,34.5,24,30.5,26,20,13.5,8,2.5,1,3.5,42,42,42,0
data 10,24,38,45.5,47,51.5,44,34.5,28.5,27,22.5,17.5,13,10.5,8,4.5,6,8.5,8,7,9,17,20.5,26.5,38.5,48,43.5,46.5,50.5,44,32,25.5,16.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,12,17.5,16.5,16,15,12,8.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,13,23,25,28.5,28,25,20.5,14.5,8,3.5,3,35.5,33,33,0
data 19.5,33.5,43.5,45,43.5,44,36,29,23.5,20.5,17,12.5,9.5,9.5,8,6.5,10,13.5,13,12,14,24.5,28,33.5,44,53,44,45,45.5,38,26,19.5,11.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,6,10,10.5,16.5,18.5,19,14,9,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,13.5,27,29,27.5,25.5,28.5,28.5,22,14,9.5,8,35.5,31,29.5,0
data 22.5,34,41.5,40.5,38,35,26.5,20,16,12,9,7.5,7.5,8,8.5,9.5,13.5,18.5,18.5,21,25.5,35.5,35,41,45,50,40,41.5,39,34.5,24,18.5,11,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,10,14.5,21,17,14,6,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,17,33,34,30,24.5,29,31,27.5,19,16,14.5,32.5,25,22,0
data 24.5,32.5,36.5,32,26,20.5,15,12,9.5,5.5,5.5,5.5,5.5,6.5,10,12,13.5,18.5,18,23,25,30.5,29,34,34.5,39,33,34.5,33,32,23.5,20,24.5,19,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0.5,4,8,17.5,19,20,10.5,6.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,14.5,31.5,33,31,25.5,31,33,33,25.5,20,16,27,19,15.5,0
data 27.5,34,30,23.5,15.5,12,6,5,2.5,0.5,0.5,3,5.5,8.5,12.5,15.5,16.5,20.5,19.5,24,24.5,26.5,23,24,23.5,22.5,19.5,18,15.5,12.5,10,7,16.5,16,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,2.5,9,16,20,19,14,7.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,15.5,18,18,19,24,28.5,33.5,33,26.5,20,22.5,15,10.5,0
data 25,28,20.5,12,8,5,2,1.5,1.5,0,0,5,7.5,13,22,25.5,23,24.5,21,19.5,19,21,18,19,12.5,9.5,5,4,1,4.5,4.5,4.5,15.5,15.5,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,0,3.5,10.5,17,21,17,11.5,4.5,5.5,4.5,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,4,6,7,12.5,17,27,28.5,32,28,20.5,17,12.5,8,0
data 19.5,22.5,13,8.5,7,3.5,0.5,0,0,0,0,7,10,16,27.5,30.5,24,24,19,14.5,14,13.5,10.5,12,5,2.5,2.5,2.5,0,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,6.5,12.5,22.5,20,15,10.5,14.5,13.5,8.5,8.5,8.5,8.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6.5,10.5,24.5,31.5,35.5,34.5,29,19.5,10.5,5.5,0
data 18,21,11.5,8,7,4,6,5.5,5.5,0,0,13.5,16,21.5,31,34,20.5,18,12.5,5.5,2.5,2.5,2.5,2.5,23,23,23,23,23,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,0,0,0,0,0,0,3.5,7.5,16.5,16.5,15,14,20.5,18,13,12.5,12.5,12.5,9.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8.5,19,25.5,30,34.5,32,23,10,6,0
data 23,26,11.5,7.5,7,5,8,7.5,6.5,0,0,11.5,14,19,28,30,18.5,16,11,2,0,0,0,0,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,2.5,5.5,17,19.5,19,19,26,24,17.5,16,15.5,15.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,12.5,19.5,30.5,36.5,37,27,15.5,6,0
data 28,31.5,19.5,11,7.5,10,12.5,12,6.5,0,0,11,12.5,16.5,25,26,15,13.5,9.5,1,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,0,1.5,11.5,15.5,17,19.5,27.5,25,20,18.5,18,17.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,9.5,14,27.5,35,37.5,29.5,20,8,0
data 27,29,18,9,6,11,10.5,10.5,2.5,0.5,0.5,9.5,11,12.5,15.5,15.5,6.5,5,3.5,0,0,0,0,0,23,23,23,23,23,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,41,41,41,0,0,0,0,1,7,11.5,13,23,30,28,22,22,21.5,20.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,5,11.5,23.5,36,40,37.5,30,18.5,0
data 27,29,19,9.5,6,12.5,11,11.5,2,1,1,8,8.5,8.5,8,8,1,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,6.5,13,26.5,32,28.5,25.5,29.5,29,24.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,15.5,27.5,33.5,43,40,28.5,0
data 36.5,38.5,24.5,12.5,5.5,8,7,7.5,2,1.5,1.5,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,4,16.5,30,32.5,27.5,26.5,30.5,30,21.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,11.5,24.5,37.5,46.5,45.5,35.5,0
data 34,38.5,28.5,19,10,11.5,8,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,3.5,17,32.5,32,28,28,31,30,20,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,6,19.5,32,41.5,39.5,36,0
data 31.5,34.5,23.5,18,10,10.5,8.5,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,1,17,31,32,30,29,29,28,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,15.5,30,40,36,34.5,0
data 37.5,40.5,29,18,10,11,9,7.5,4,3,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,18.5,29.5,29.5,29.5,29.5,29.5,26,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,7.5,22,30,27.5,24.5,0
data 36.5,40,29.5,16.5,12,14.5,12,6.5,3.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,1,1,1.5,2,2,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,22.5,34,34.5,34.5,34.5,33.5,27.5,12,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,16,17.5,17.5,14.5,0
data 29.5,33,26.5,14,14.5,16.5,13.5,6.5,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,21,21,21,21,21,0,0,0,0,0,0,1,1,1.5,2,2.5,1.5,2.5,2,1.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,9,25.5,36,37.5,37.5,37.5,36,28.5,12,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,2.5,4,2.5,0
data 27,28.5,25,11.5,14,15.5,14,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,20,20,20,20,0,0,0,2,2.5,2.5,3.5,3.5,2,2,2.5,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,12,27.5,38,40,40,39.5,36,28,12.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,0
data 26,27.5,27,11,12.5,13.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19.5,19.5,19.5,19.5,19.5,7,13,13,15,15.5,8.5,4,4,2.5,2.5,3,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,15.5,28,37.5,40,40,38.5,32.5,24.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,28,29,14,12.5,10,7.5,0,0,0,0,0,3,4.5,4.5,4.5,4.5,1.5,0,0,0,0,0,0,18.5,18.5,18.5,18.5,18.5,7,13,14.5,18,19,12,6.5,5.5,3.5,3,4,3.5,4,3,3.5,2.5,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4,10.5,20,30.5,37.5,40,38,36,29.5,20,9.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,35,34.5,17.5,12,8,6,0,0,0,0,0,5,6.5,6.5,6.5,6.5,1.5,0,0,0,0,0,0,18,18,18,18,18,7,13,14.5,21.5,24.5,25,19.5,18.5,14.5,11.5,5,4.5,5.5,3,6.5,5.5,5.5,4,3.5,0,0,0,0,0,0,0,0,0,0,0,1.5,3,4,8.5,10.5,18,28.5,33,37.5,39,34.5,32.5,25,14.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 32,35.5,34,19,11.5,7,3.5,0,0,0,0.5,2.5,7.5,9,9,8.5,6.5,1.5,0,0,0,0,0,0,17,17,17,17,17,7,13,14.5,23.5,27,28.5,26,26,20.5,18.5,10.5,7,6,3,9,11,11,10.5,10,2.5,0,0,0,0,0,0,0,0,0,0.5,2.5,4,6,11.5,15,23,30.5,33.5,38,38.5,33,29.5,21.5,13.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 34.5,37.5,31.5,16.5,10,4.5,1.5,0,0,0,3,6,11.5,13.5,15.5,12.5,9.5,4,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,7,13,14.5,21.5,24.5,26,23.5,25,21.5,20,12,8.5,6,2.5,8.5,10.5,10.5,10,10,2.5,0,0,0,0,0,0,0,0,1,2.5,4.5,8,12,20,25,31,35,37.5,37.5,35.5,27.5,22.5,15.5,10,5.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 31,33.5,25,13,8.5,3.5,1,0,0,2,7,10,15.5,17.5,17.5,12.5,9.5,4,2,0,0,0,0,0,17,17,17,17,17,0,0,1.5,8.5,11.5,20,23,29.5,32,34,26.5,23.5,14.5,5,7.5,9.5,9.5,10.5,10.5,3,0.5,0.5,1,1.5,4.5,5.5,5.5,7,8,8.5,11.5,15.5,22,32,35.5,41,43.5,43.5,39,32.5,22.5,17.5,11,7,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 24,25.5,15,9,6.5,2.5,1,0,0,6,11,14,16.5,17,13,8,5,2.5,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,0,0,0,5.5,8,16.5,19.5,27,31.5,39,33.5,31.5,23,13,9.5,9.5,10,14,15.5,10,8,8.5,9,9,11,14,14,16,18.5,22.5,25,27,32,41.5,43.5,45,43.5,41.5,36,27,16.5,12,7.5,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 15.5,17,6,4.5,4,1.5,0,0,1.5,10.5,15.5,18.5,19,18,11,6,3,2.5,2,0,0,0,0,0,15,15,15,15,15,0,0,0,2,2.5,3.5,6.5,14,20,31.5,35,36,29,21,13,11.5,13.5,24.5,29,29.5,30.5,33,34,33,29.5,33,32,31.5,33.5,37,36.5,38.5,40,47,47.5,45,43.5,39.5,31,21.5,11,7.5,5.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 16,16,3,1.5,1,0,0,0,1.5,14,18.5,19.5,20,19,8.5,4,3,2.5,2,0,0,0,0,0,12,12,12,12,12,0,0,0,0,0,0,0,6.5,14,26.5,31,36.5,32.5,25,12.5,8.5,13,23,27.5,33,37.5,40,45,42,39.5,45.5,46,46,49,50,49,49,48,50.5,49,45,40,34.5,24.5,15,6.5,3.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 18.5,19,2.5,2,1.5,0,0,1.5,7,19.5,21.5,21.5,20,14.5,2,0,0,0,0,0,0,0,0,0,8.5,8.5,8.5,8.5,8.5,0,0,0,0,0,0,0,5,12.5,25,31,37.5,36.5,36,26,20.5,24,31.5,29,32,36.5,43.5,51,50.5,51,63,64.5,65.5,65.5,65.5,60.5,56,48,47,44.5,38,31,26.5,18,9.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 27,24,4,3.5,3,1,0,4,11,21.5,21.5,21.5,17.5,10.5,0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,0,0,0,0,0,0,0,0,1.5,10.5,16,22.5,28,33,27.5,22.5,26,32,28.5,30.5,35,42,50.5,53.5,54,66,67.5,68.5,68.5,67,59.5,55,46,44,40,33,26.5,22.5,14,6.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 25.5,22,6,4.5,3,1,0,6,15.5,22,22,22,16,6.5,0,0,0,0,0,0,0,0,0,0,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,4,7,12.5,18,24.5,24,23,33.5,39.5,36,37,40,41,49.5,52.5,54,66,67.5,68.5,67.5,65,57.5,51,40,35.5,30,24,18.5,14.5,8,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 20.5,19,12.5,10,4,2,0,7.5,15.5,19,19,19,11.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3.5,6,9.5,18.5,20.5,20.5,37,45,39,39.5,42.5,40.5,48.5,51,49.5,60.5,62,61.5,60.5,59,50.5,43.5,30,23.5,19.5,13.5,8,5.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 19,19.5,18,12.5,4,2,1,7.5,15.5,15.5,15.5,15.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,4,13.5,18,18,36.5,46,38,36,38.5,34,39.5,42.5,43,52,53.5,52.5,50,45,37,32,20,14,11,7,5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 22.5,24,27.5,23,10,5,2.5,6,10,10,10,10,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,3,5.5,22,28,28,24.5,23,15,18,18.5,24.5,33,35.5,37,35,30.5,25.5,20.5,12,8.5,6,3.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,36,36,36,0,0,0
data 21,18,23,23,16,11,5.5,6.5,8,9,7.5,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,4,18.5,22.5,23,20,17.5,7.5,7.5,9.5,14.5,20.5,21.5,22.5,19.5,17.5,13,10,4,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0
data 26,11,17.5,33.5,29.5,28,19,18,13.5,5,3.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,0,11.5,16,17.5,15.5,17,5.5,3.5,2,3,3,3,3,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,21.5,25.5,37,28.5,30,22,30,31,22.5,13,6.5,2.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2,-1.5,-6.5,3,10.5,15.5,14,19,9.5,3.5,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,24.5,28,38.5,30.5,34.5,28.5,33,34,25.5,17,9.5,8,6.5,4.5,7,8,8,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2.5,-2.5,-6.5,2.5,7,14.5,14.5,18.5,9.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24,28.5,30.5,29.5,20.5,21,17,22.5,27,33,25.5,19,16,18.5,15.5,14,10.5,10.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.5,-1,-6,4,7,13.5,15,20,10,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10.5,16,17,20.5,21.5,21,13.5,10.5,12,17.5,23,24.5,31.5,36,31.5,27,18,18,13,10.5,6,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-5,3,7.5,16.5,18,23,15,10.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,15.5,13.5,14.5,13.5,11,4,4.5,13,19,26.5,28.5,32.5,35,35.5,28,18,10,13.5,22.5,19,11,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2.5,2.5,7,16,19,21.5,16.5,12,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,17.5,14,13.5,12,8,1,1.5,10,11,17.5,18.5,24.5,23,24.5,21,15.5,7.5,11,21,20.5,13.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,10,19.5,25,22,17.5,16,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22.5,30.5,16,14,11,8,0,0,6,7.5,9,8,6.5,5,8,8,8,0,2.5,12,14.5,13,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,9.5,18,26.5,30.5,27.5,24,17.5,9,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,30.5,17,15.5,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,6.5,13,21,26,27.5,24.5,20.5,12.5,4.5,2.5,2.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22,24,11,9.5,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,12.5,21,27.5,29.5,31,29,20.5,11,8.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,21.5,9,7.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,13,20.5,27,29,33.5,31,23.5,14,11.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,20.5,8.5,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,12,17.5,26,29,33,30,24.5,16,13,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 19,19,17.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,15.5,18,20.5,26,31.5,22,19.5,17,11.5,1.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,16.5,18.5,24,29,33.5,23.5,21.5,16,11,1,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,8,18.5,19.5,25.5,27.5,27,16.5,15.5,9.5,5,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,15,13.5,1.5,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,9,18,21,28.5,30,26,17,14,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21.5,24.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,8.5,15.5,21,28.5,29,24.5,17.5,12,4.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,17.5,13,4,2,1,2,3,3,3.5,3,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,10.5,13.5,19.5,27,24,18,15,9,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,26.5,19.5,6,6.5,3.5,5.5,6,7.5,7,4.5,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,8,16.5,21.5,28,31,23.5,15,10,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23,26.5,22.5,14,15,8.5,7,7.5,6,7.5,4,5.5,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6,15.5,20.5,27,28,22.5,13,8,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24.5,29.5,24,18.5,17,8,5,4.5,4,8,5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,17,22,26,24.5,18.5,9,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,30.5,30,26.5,17.5,5.5,1.5,1.5,-0.5,4.5,3.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,10.5,18.5,27,32,27,22.5,14.5,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,35.5,27,10,0.5,0,0,1,4,4,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8.5,14.5,21.5,28.5,31,24,18,11,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,36.5,24,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,1.5,0,0,0,0,0,0,0,0,0,1,2.5,5,14,19.5,22.5,24,22,13,7.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,40,38,21.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,4.5,4.5,1.5,0,0,0,0,0,0,0,0.5,6.5,9.5,13.5,22.5,27.5,25,23,19,10,4.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,38,31,13.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,5.5,10.5,9,6.5,3,2.5,2.5,1,0,4,5.5,16,21,25,30,33,25,20,16,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 23,34,26.5,14,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,9,11,11.5,8,6.5,3.5,2,0,4,8,19,24,28,27,41.5,30.5,25.5,25,22,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 21,27.5,16.5,9.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,11,15,16,14,9,4,10.5,16.5,22,33,37,30.5,26,37.5,26.5,21.5,22,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 19,27.5,21.5,11.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,9,16,16,15.5,19.5,29,36,42,47,39.5,28,21,32,22,18.5,20.5,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 23.5,33,32,14,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,6,21,26,27.5,23.5,29,36,41.5,41.5,32.5,19.5,12.5,7,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,26,30.5,13,13,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,16.5,28,31,28.5,29,32,36.5,32,21,8,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10,18,27,17,17.5,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,15.5,32.5,36,34,29,32,34,29,18,5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 6,20.5,30,28.5,22.5,12.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7.5,27,31.5,34.5,18.5,19.5,20,15,5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11,25,33.5,31,19,10.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,25.5,27,20,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 16,29,30.5,29,18.5,14.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7,23,25.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 12.5,18.5,20,18.5,15,11.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,15.5,18.5,17,10.5,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 7,12.5,18,12,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,13.5,12.5,6,1,0,0,0,0,0,5.5,5.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 18.5,20,9.5,1.5,0,0,0,0,4.5,7.5,16,11.5,8.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,14.5,4,0,0,0,0,3.5,10.5,16,21.5,14.5,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,7.5,7,11,19,30,27.5,16,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11.5,11.5,3,0,0,0,0.5,9,16,28.5,25,18,5,0,2,5.5,5.5,3.5,0,0,0,0,0,0,0,0,0,3,6.5,6.5,5.5,9.5,13,14.5,17.5,29,36,31,16,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,7.5,16,20,24.5,22.5,17.5,6.5,0,2.5,8.5,11,9.5,5,6,5.5,4,0.5,0,0,0,1.5,11,17,23.5,19.5,24,22.5,24.5,25.5,37.5,43,41,24,11,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,2.5,6.5,13,20,18.5,20.5,18,19.5,11,9.5,11.5,21.5,20,18.5,12.5,12,8.5,6,6.5,6,6,5.5,11.5,22.5,26.5,29,23,25.5,24,25.5,24.5,35,36.5,35,19.5,10,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,15.5,21.5,20.5,22,19,18.5,17,14,9.5,9.5,16,15,16.5,16.5,19.5,18,17,18,18,15.5,11,14.5,22,22,23.5,20,24.5,23,23,18.5,22,22.5,23.5,15,7.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,14.5,14.5,13.5,13.5,15.5,10.5,11.5,9.5,9.5,9,13,9.5,10.5,11.5,13.5,12.5,13,17.5,18,15.5,11,13,14,11.5,6.5,6,10,12.5,12,7,8,7.5,7,3.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

data 20
data 652.818603516,127.62336731,886.442077637,93.8065414429,0
data 701.302856445,60.1504554749,888.545776367,92.1973342896,1000
data 727.378479004,217.510528564,887.766723633,93.0390853882,1500
data 720.602294922,162.103683472,888.257751465,93.0585021973,2000
data 772.95501709,322.116027832,855.384399414,195.611343384,0
data 555.351745605,502.659912109,656.605529785,272.158203125,0
data 544.091064453,305.63470459,573.514648438,258.233306885,0
data 229.152069092,450.426361084,356.586029053,273.939605713,0
data 293.673461914,510.156341553,362.450744629,273.681213379,2000
data 191.553955078,588.027709961,360.59753418,273.946594238,3000
data 272.077087402,444.820037842,355.782775879,276.342315674,4500
data 291.803894043,462.947387695,356.315948486,275.276000977,6000
data 84.0458374023,484.882476807,239.464660645,590.658935547,0
data 666.872436523,540.072631836,676.795898438,275.788635254,0
data 330.456970215,893.265258789,169.508117676,694.465759277,0
data 358.5496521,886.873291016,172.324493408,702.044433594,0
data 358.415283203,911.184265137,179.547698975,714.323364258,0
data 607.806335449,704.950134277,525.992980957,817.463867188,0
data 699.457214355,736.278198242,571.587280273,809.273193359,0
data 827.184265137,695.248168945,553.131652832,812.39465332,0

Editor:

`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,769,32,0,4,0
autocam off
randomize timer()
color backdrop rgb(140,140,140)
set text opaque

`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
    
    `Editor only
    ObjectNo as integer
endtype
type EnemyType
    ObjectNo as integer
    TriggerObject as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as float
    TriggerPosZ as float
    Delay as integer
endtype

#Constant TerrainMatrix    1

#Constant TerrainTexture   1
#Constant BlueImage        2
#Constant GreenImage       3
#Constant RedImage         4

#Constant PickObject       1
#Constant WaypointObject   2

cameraheight#=20.0
movespeed#=0.5
currentwaypoint=0
findtolerance#=3.0

camtargetx=600
camtargetz=400
camanglex=90
camspeed=4
camtolerance=5

brushsize=2

mapsize=1000

DIM Waypoints(0) as WaypointType
DIM Enemies(0) as EnemyType

DIM MatrixHeights(mapsize/10,mapsize/10) as float

`======= Media Setup ============================

set image colorkey 1,1,1

`Ground
make matrix TerrainMatrix,mapsize,mapsize,mapsize/10,mapsize/10

`Textures (low green,high red,high blue)
create bitmap 1,1000,70

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

`Select
ink rgb(128,50,50)
box 193,1,256,64

ink rgb(0,0,0),0
LineBox(1,1,64,63)
LineBox(65,1,129,63)
LineBox(130,1,193,63)
LineBox(194,1,257,63)

get image TerrainTexture,1,1,256,64,0
save image "railtemp.dds",TerrainTexture
load image "railtemp.dds",TerrainTexture
delete file "railtemp.dds"

`Colors
cls rgb(255,0,0)
get image RedImage,1,1,4,4
cls rgb(0,255,0)
get image GreenImage,1,1,4,4
cls rgb(0,0,255)
get image BlueImage,1,1,4,4

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

`Pick object
make object plane PickObject,mapsize,mapsize
position object PickObject,mapsize/2,-1,mapsize/2
xrotate object PickObject,90
set alpha mapping on PickObject,0

`Waypoint object
make object sphere WaypointObject,10
temp=FreeObject()
make object box temp,2,20,2
make mesh from object 1,temp
delete object temp
add limb WaypointObject,1,1
offset limb WaypointObject,1,0,10,0
delete mesh 1
xrotate object WaypointObject,90
fix object pivot WaypointObject
exclude object on WaypointObject

`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

ink rgb(0,0,0),rgb(140,140,140)
clear entry buffer

do

gosub CameraControl

`Enemies
if editmode=3
    text 10,10,"Current mode: Enemy Placement"
    text 10,25,"(Press tab to change)"
    
    text 10,50,"Click and drag to place an enemy and a spawn marker for it."
    text 10,65,"Right-click to delete an enemy"
    
    text 10,95,"Type to set enemy delay time (how long the enemy will wait after the player reaches its trigger) - "+str$(Enemies(curen).Delay)
    
    `Typing
    if timer()-typedelay>2000 and val(entry$(1))<>0 then temp$="" : typedelay=timer()
    temp$=temp$+entry$(1)
    clear entry buffer
    Enemies(curen).Delay=val(temp$)
    temp$=str$(Enemies(curen).Delay)
    
    if mouseclick()=1
        if clicked=0
            clicked=1
            obj=pick object(mousex(),mousey(),PickObject,PickObject)
            if obj>0
                array insert at bottom Enemies(0)
                curen=array count(Enemies(0))
                Enemies(curen).ObjectNo=FreeObject()
                Enemies(curen).PosX=get pick vector x()+camera position x()
                Enemies(curen).PosZ=get pick vector z()+camera position z()
                make object box Enemies(curen).ObjectNo,10,30,5
                position object Enemies(curen).ObjectNo,Enemies(curen).PosX,get ground height(TerrainMatrix,Enemies(curen).PosX,Enemies(curen).PosZ)+15,Enemies(curen).PosZ
            endif
            else
            ink rgb(100,100,200)
            line object screen x(Enemies(curen).ObjectNo),object screen y(Enemies(curen).ObjectNo),mousex(),mousey()
            ink rgb(0,0,0),rgb(140,140,140)
        endif
    endif
    if mouseclick()=0
        if curen>0
            obj=pick object(mousex(),mousey(),PickObject,PickObject)
            if obj>0
                Enemies(curen).TriggerObject=FreeObject()
                Enemies(curen).TriggerPosX=get pick vector x()+camera position x()
                Enemies(curen).TriggerPosZ=get pick vector z()+camera position z()
                make object cone Enemies(curen).TriggerObject,12
                position object Enemies(curen).TriggerObject,Enemies(curen).TriggerPosX,get ground height(TerrainMatrix,Enemies(curen).TriggerPosX,Enemies(curen).TriggerPosZ)+6,Enemies(curen).TriggerPosZ
                else
                delete object Enemies(curen).ObjectNo
                array delete element Enemies(0),curen
            endif
            curen=0
        endif
    endif
    if mouseclick()=2 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),1,10000)
        if obj>0
            for c=1 to array count(Enemies(0))
                if Enemies(c).ObjectNo=obj
                    delete object Enemies(c).ObjectNo
                    delete object Enemies(c).TriggerObject
                    array delete element Enemies(0),c
                    exit
                endif
            next c
        endif
    endif
    
    if keystate(15) and pressed=0
        pressed=1
        editmode=0
        temp$=""
    endif
endif

`Terrain
if editmode=2
    text 10,10,"Current mode: Terrain Editing"
    text 10,25,"(Press tab to change)"
    
    text 10,50,"Left-click to raise terrain"
    text 10,65,"Right-click to lower terrain"
    text 10,80,"Delete to set height to 0"
    
    text 10,95,"[ and ] to change brush size"
    text 20,110,"Brush size: "+str$(brushsize)
    
    obj=pick object(mousex(),mousey(),PickObject,PickObject)

`1. Reset old selection
    for d=-brushsize/2 to brushsize/2-1
        for e=-brushsize/2 to brushsize/2-1
            if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                    set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                    else
                    set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                endif
            endif
        next e
    next d
    
    `Change brushsize with [ and ]
    if keystate(26) and pressed=0 and brushsize>2 then dec brushsize,2 : pressed=1
    if keystate(27) and pressed=0 then inc brushsize,2 : pressed=1
    
    if obj>0
        
        xtile=int((get pick vector x()+camera position x())/10)
        ztile=int((get pick vector z()+camera position z())/10)

`Raise terrain
        if mouseclick()=1
            for d=-brushsize/2 to brushsize/2
                for e=-brushsize/2 to brushsize/2
                    if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                        inc MatrixHeights(xtile+d,ztile+e),0.5
                        set matrix height TerrainMatrix,xtile+d,ztile+e,MatrixHeights(xtile+d,ztile+e)
                        if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                            else
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                        endif
                    endif
                next e
            next d
        endif
        
        `Lower terrain
        if mouseclick()=2
            for d=-brushsize/2 to brushsize/2
                for e=-brushsize/2 to brushsize/2
                    if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                        dec MatrixHeights(xtile+d,ztile+e),0.5
                        set matrix height TerrainMatrix,xtile+d,ztile+e,MatrixHeights(xtile+d,ztile+e)
                        if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                            else
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                        endif
                    endif
                next e
            next d
        endif
        
        `Set terrain to 0
        if keystate(211)
            for d=-brushsize/2 to brushsize/2
                for e=-brushsize/2 to brushsize/2
                    if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                        MatrixHeights(xtile+d,ztile+e)=0
                        set matrix height TerrainMatrix,xtile+d,ztile+e,MatrixHeights(xtile+d,ztile+e)
                        if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                            else
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                        endif
                    endif
                next e
            next d
        endif
        
        `Show new selection
        for d=-brushsize/2 to brushsize/2-1
            for e=-brushsize/2 to brushsize/2-1
                if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                    set matrix tile TerrainMatrix,xtile+d,ztile+e,4
                endif
            next e
        next d
        
        update matrix TerrainMatrix
        
    endif

`Switch mode
    if keystate(15) and pressed=0
        pressed=1
        editmode=3
        `Reset selection
        for d=-brushsize/2 to brushsize/2-1
            for e=-brushsize/2 to brushsize/2-1
                if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                    if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                        set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                        else
                        set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                    endif
                endif
            next e
        next d
    endif
endif

`Waypoint angles
if editmode=1
    text 10,10,"Current mode: Waypoint Angles"
    text 10,25,"(Press tab or click to go back to Waypoints mode)"
    
    text 10,50,"[ and ] change Yangle"
    text 10,65,"+ and - change Xangle"
    
    text 10,95,"Yangle: "+str$(Waypoints(setangles).AngY)
    text 10,110,"Xangle: "+str$(Waypoints(setangles).AngX)
    
    text 10,125,"Type to set delay time (how long the player will pause at the waypoint) - "+str$(Waypoints(setangles).Delay)
    
    `Typing
    if timer()-typedelay>2000 and val(entry$(1))<>0 then temp$="" : typedelay=timer()
    temp$=temp$+entry$(1)
    clear entry buffer
    Waypoints(setangles).Delay=val(temp$)
    temp$=str$(Waypoints(setangles).Delay)
    
    rotate object Waypoints(setangles).ObjectNo,Waypoints(setangles).AngX,Waypoints(setangles).AngY,0
    
    if keystate(26)
        Waypoints(setangles).AngY=Waypoints(setangles).AngY-0.5
    endif
    if keystate(27)
        Waypoints(setangles).AngY=Waypoints(setangles).AngY+0.5
    endif
    if keystate(74) or keystate(13)
        Waypoints(setangles).AngX=wrapvalue(Waypoints(setangles).AngX-0.5)
        if Waypoints(setangles).AngX<275 then Waypoints(setangles).AngX=275
    endif
    if keystate(78) or keystate(12)
        Waypoints(setangles).AngX=wrapvalue(Waypoints(setangles).AngX+0.5)
        if Waypoints(setangles).AngX<275 then Waypoints(setangles).AngX=0
    endif
    
    `Get out
    if keystate(15) and pressed=0
        texture object Waypoints(setangles).ObjectNo,0
        if setangles=1 then texture object Waypoints(setangles).ObjectNo,GreenImage
        pressed=1
        setangles=0
        editmode=0
        temp$=""
    endif
    if mouseclick()=1 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),PickObject,1000)
        for c=1 to array count(Waypoints(0))
            if Waypoints(c).ObjectNo=obj
                texture object Waypoints(setangles).ObjectNo,0
                if setangles=1 then texture object Waypoints(setangles).ObjectNo,GreenImage
                setangles=c
                editmode=1
                good=1
                texture object obj,BlueImage
            endif
        next c
        if good=0
            texture object Waypoints(setangles).ObjectNo,0
            if setangles=1 then texture object Waypoints(setangles).ObjectNo,GreenImage
            setangles=0
            editmode=0
            else
            good=0
        endif
    endif
endif

`Waypoints
if editmode=0
    text 10,10,"Current mode: Waypoints"
    text 10,25,"(Press tab to change)"
    
    text 10,55,"Click to place a waypoint."
    text 10,70,"Right-click to delete a waypoint."
    text 10,85,"Click an existing waypoint to set player angles."
    
    `Make waypoints
    if mouseclick()=1 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),PickObject,1000)
        if obj=PickObject
            array insert at bottom Waypoints(0)
            temp=array count(Waypoints(0))
            Waypoints(temp).ObjectNo=FreeObject()
            Waypoints(temp).PosX=get pick vector x()+camera position x()
            Waypoints(temp).PosZ=get pick vector z()+camera position z()
            clone object Waypoints(temp).ObjectNo,WaypointObject
            if temp=1 then texture object Waypoints(temp).ObjectNo,GreenImage
            position object Waypoints(temp).ObjectNo,Waypoints(temp).PosX,get ground height(TerrainMatrix,Waypoints(temp).PosX,Waypoints(temp).PosZ),Waypoints(temp).PosZ
            else
            for c=1 to array count(Waypoints(0))
                if Waypoints(c).ObjectNo=obj
                    setangles=c
                    editmode=1
                    texture object obj,BlueImage
                endif
            next c
        endif
    endif
    
    `Delete waypoints
    if mouseclick()=2 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),1,1000)
        for c=1 to array count(Waypoints(0))
            if Waypoints(c).ObjectNo=obj
                delete object obj
                array delete element Waypoints(0),c
                exit
            endif
        next c
        if array count(Waypoints(0))>0 then texture object Waypoints(1).ObjectNo,GreenImage
    endif
    
    `Switch mode
    if keystate(15) and pressed=0
        pressed=1
        editmode=2
    endif
endif

`Saving
text 10,700,"Press F1 to save (level will be saved as data statements in 'RailLevel.txt')"
text 10,715,"Paste this over the data statements at the end of the game code to play your level!"
if timer()-saved<3000 then text 10,640,"Level saved succesfully"
if keystate(59) and pressed=0
    pressed=1
    gosub Save
endif

text 10,150,"Camera controls:"
text 15,165,"Mousewheel         - Zoom"
text 15,180,"Mousewheel + Shift - Height"
text 15,195,"Mousewheel + Ctrl  - Rotation"
text 15,210,"Arrowkeys or WASD  - Move"

`Draw links between waypoints
old=0
for c=1 to array count(Waypoints(0))
    if old>0
        line object screen x(Waypoints(old).ObjectNo),object screen y(Waypoints(old).ObjectNo),object screen x(Waypoints(c).ObjectNo),object screen y(Waypoints(c).ObjectNo)
    endif
    old=c
next c

`Draw lines between enemies and triggers
ink rgb(100,100,200)
for c=1 to array count(Enemies(0))
    if Enemies(c).TriggerObject>0 then line object screen x(Enemies(c).ObjectNo),object screen y(Enemies(c).ObjectNo),object screen x(Enemies(c).TriggerObject),object screen y(Enemies(c).TriggerObject)
next c
ink rgb(0,0,0),rgb(140,140,140)

if scancode()=0 then pressed=0
if mouseclick()=0 then clicked=0

sync
loop

`======= ==== =============== ===================
`================================================

CameraControl:

if shiftkey()=1 then inc camanglex,mousemovez()/10
if controlkey()=1 then inc camangley,mousemovez()/10
if controlkey()=0 and shiftkey()=0 then inc height,mousemovez()*-0.5
    
if height<50 then height=50
if height>400 then height=400
if camanglex>90 then camanglex=90
if camanglex<10 then camanglex=10
camangley=wrapvalue(camangley)

if leftkey()=1 or mousex()-camtolerance<=0 or keystate(30)
    camtargetx=camtargetx-cos(camangley)*camspeed
    camtargetz=camtargetz+sin(camangley)*camspeed
endif
if rightkey()=1 or mousex()+camtolerance>=screen width() or keystate(32)
    camtargetx=camtargetx+cos(camangley)*camspeed
    camtargetz=camtargetz-sin(camangley)*camspeed
endif
if upkey()=1 or mousey()-camtolerance<=0 or keystate(17)
    camtargetz=camtargetz+cos(camangley)*camspeed
    camtargetx=camtargetx+sin(camangley)*camspeed
endif
if downkey()=1 or mousey()+camtolerance>=screen height() or keystate(31)
    camtargetz=camtargetz-cos(camangley)*camspeed
    camtargetx=camtargetx-sin(camangley)*camspeed
endif
if camtargetx<0 then camtargetx=0
if camtargetz<0 then camtargetz=0
if camtargetx>mapsize then camtargetx=mapsize
if camtargetz>mapsize then camtargetz=mapsize

position camera camtargetx,0,camtargetz
yrotate camera camangley
xrotate camera camanglex
move camera -height

return

Save:

if file exist("RailLevel.txt") then delete file "RailLevel.txt"
    open to write 1,"RailLevel.txt"
    
    `Write waypoints
    write string 1,"data "+str$(array count(Waypoints(0)))
    for c=1 to array count(Waypoints(0))
        write string 1,"data "+str$(Waypoints(c).PosX)+","+str$(Waypoints(c).PosZ)+","+str$(Waypoints(c).AngY)+","+str$(Waypoints(c).AngX)+","+str$(Waypoints(c).Delay)
    next c
    
    `Write terrain
    write string 1,""
    write string 1,"data "+str$(mapsize/10)
    for x=1 to mapsize/10
        temp$="data "
        for z=1 to mapsize/10
            temp$=temp$+str$(MatrixHeights(x,z))+","
        next z
        write string 1,left$(temp$,len(temp$)-1)
    next x
    
    `Write enemies
    write string 1,""
    write string 1,"data "+str$(array count(Enemies(0)))
    for d=1 to array count(Enemies(0))
        write string 1,"data "+str$(Enemies(d).PosX)+","+str$(Enemies(d).PosZ)+","+str$(Enemies(d).TriggerPosX)+","+str$(Enemies(d).TriggerPosZ)+","+str$(Enemies(d).Delay)
    next d
    
    
    saved=timer()
    close file 1

return

function LineBox(X1,Y1,X2,Y2)
line X1,Y1,X2,Y1
line X1,Y1,X1,Y2
line X2,Y1,X2,Y2
line X1,Y2,X2,Y2
endfunction

function FreeObject()
repeat
inc objects
until object exist(objects)=0
endfunction objects


`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,769,32,0,4,0
autocam off
randomize timer()
color backdrop rgb(140,140,140)
set text opaque

`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
    
    `Editor only
    ObjectNo as integer
endtype
type EnemyType
    ObjectNo as integer
    TriggerObject as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as float
    TriggerPosZ as float
    Delay as integer
endtype

#Constant TerrainMatrix    1

#Constant TerrainTexture   1
#Constant BlueImage        2
#Constant GreenImage       3
#Constant RedImage         4

#Constant PickObject       1
#Constant WaypointObject   2

cameraheight#=20.0
movespeed#=0.5
currentwaypoint=0
findtolerance#=3.0

camtargetx=600
camtargetz=400
camanglex=90
camspeed=4
camtolerance=5

brushsize=2

mapsize=1000

DIM Waypoints(0) as WaypointType
DIM Enemies(0) as EnemyType

DIM MatrixHeights(mapsize/10,mapsize/10) as float


`======= Media Setup ============================

set image colorkey 1,1,1

`Ground
make matrix TerrainMatrix,mapsize,mapsize,mapsize/10,mapsize/10

`Textures (low green,high red,high blue)
create bitmap 1,1000,70

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

`Select
ink rgb(128,50,50)
box 193,1,256,64

ink rgb(0,0,0),0
LineBox(1,1,64,63)
LineBox(65,1,129,63)
LineBox(130,1,193,63)
LineBox(194,1,257,63)

get image TerrainTexture,1,1,256,64,0
save image "railtemp.dds",TerrainTexture
load image "railtemp.dds",TerrainTexture
delete file "railtemp.dds"

`Colors
cls rgb(255,0,0)
get image RedImage,1,1,4,4
cls rgb(0,255,0)
get image GreenImage,1,1,4,4
cls rgb(0,0,255)
get image BlueImage,1,1,4,4

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

`Pick object
make object plane PickObject,mapsize,mapsize
position object PickObject,mapsize/2,-1,mapsize/2
xrotate object PickObject,90
set alpha mapping on PickObject,0

`Waypoint object
make object sphere WaypointObject,10
temp=FreeObject()
make object box temp,2,20,2
make mesh from object 1,temp
delete object temp
add limb WaypointObject,1,1
offset limb WaypointObject,1,0,10,0
delete mesh 1
xrotate object WaypointObject,90
fix object pivot WaypointObject
exclude object on WaypointObject


`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

ink rgb(0,0,0),rgb(140,140,140)
clear entry buffer

do

gosub CameraControl

`Enemies
if editmode=3
    text 10,10,"Current mode: Enemy Placement"
    text 10,25,"(Press tab to change)"
    
    text 10,50,"Click and drag to place an enemy and a spawn marker for it."
    text 10,65,"Right-click to delete an enemy"
    
    text 10,95,"Type to set enemy delay time (how long the enemy will wait after the player reaches its trigger) - "+str$(Enemies(curen).Delay)
    
    `Typing
    if timer()-typedelay>2000 and val(entry$(1))<>0 then temp$="" : typedelay=timer()
    temp$=temp$+entry$(1)
    clear entry buffer
    Enemies(curen).Delay=val(temp$)
    temp$=str$(Enemies(curen).Delay)
    
    if mouseclick()=1
        if clicked=0
            clicked=1
            obj=pick object(mousex(),mousey(),PickObject,PickObject)
            if obj>0
                array insert at bottom Enemies(0)
                curen=array count(Enemies(0))
                Enemies(curen).ObjectNo=FreeObject()
                Enemies(curen).PosX=get pick vector x()+camera position x()
                Enemies(curen).PosZ=get pick vector z()+camera position z()
                make object box Enemies(curen).ObjectNo,10,30,5
                position object Enemies(curen).ObjectNo,Enemies(curen).PosX,get ground height(TerrainMatrix,Enemies(curen).PosX,Enemies(curen).PosZ)+15,Enemies(curen).PosZ
            endif
            else
            ink rgb(100,100,200)
            line object screen x(Enemies(curen).ObjectNo),object screen y(Enemies(curen).ObjectNo),mousex(),mousey()
            ink rgb(0,0,0),rgb(140,140,140)
        endif
    endif
    if mouseclick()=0
        if curen>0
            obj=pick object(mousex(),mousey(),PickObject,PickObject)
            if obj>0
                Enemies(curen).TriggerObject=FreeObject()
                Enemies(curen).TriggerPosX=get pick vector x()+camera position x()
                Enemies(curen).TriggerPosZ=get pick vector z()+camera position z()
                make object cone Enemies(curen).TriggerObject,12
                position object Enemies(curen).TriggerObject,Enemies(curen).TriggerPosX,get ground height(TerrainMatrix,Enemies(curen).TriggerPosX,Enemies(curen).TriggerPosZ)+6,Enemies(curen).TriggerPosZ
                else
                delete object Enemies(curen).ObjectNo
                array delete element Enemies(0),curen
            endif
            curen=0
        endif
    endif
    if mouseclick()=2 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),1,10000)
        if obj>0
            for c=1 to array count(Enemies(0))
                if Enemies(c).ObjectNo=obj
                    delete object Enemies(c).ObjectNo
                    delete object Enemies(c).TriggerObject
                    array delete element Enemies(0),c
                    exit
                endif
            next c
        endif
    endif
    
    if keystate(15) and pressed=0
        pressed=1
        editmode=0
        temp$=""
    endif
endif

`Terrain
if editmode=2
    text 10,10,"Current mode: Terrain Editing"
    text 10,25,"(Press tab to change)"
    
    text 10,50,"Left-click to raise terrain"
    text 10,65,"Right-click to lower terrain"
    text 10,80,"Delete to set height to 0"
    
    text 10,95,"[ and ] to change brush size"
    text 20,110,"Brush size: "+str$(brushsize)
    
    obj=pick object(mousex(),mousey(),PickObject,PickObject)

    `1. Reset old selection
    for d=-brushsize/2 to brushsize/2-1
        for e=-brushsize/2 to brushsize/2-1
            if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                    set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                    else
                    set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                endif
            endif
        next e
    next d
    
    `Change brushsize with [ and ]
    if keystate(26) and pressed=0 and brushsize>2 then dec brushsize,2 : pressed=1
    if keystate(27) and pressed=0 then inc brushsize,2 : pressed=1
    
    if obj>0
        
        xtile=int((get pick vector x()+camera position x())/10)
        ztile=int((get pick vector z()+camera position z())/10)

        `Raise terrain
        if mouseclick()=1
            for d=-brushsize/2 to brushsize/2
                for e=-brushsize/2 to brushsize/2
                    if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                        inc MatrixHeights(xtile+d,ztile+e),0.5
                        set matrix height TerrainMatrix,xtile+d,ztile+e,MatrixHeights(xtile+d,ztile+e)
                        if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                            else
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                        endif
                    endif
                next e
            next d
        endif
        
        `Lower terrain
        if mouseclick()=2
            for d=-brushsize/2 to brushsize/2
                for e=-brushsize/2 to brushsize/2
                    if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                        dec MatrixHeights(xtile+d,ztile+e),0.5
                        set matrix height TerrainMatrix,xtile+d,ztile+e,MatrixHeights(xtile+d,ztile+e)
                        if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                            else
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                        endif
                    endif
                next e
            next d
        endif
        
        `Set terrain to 0
        if keystate(211)
            for d=-brushsize/2 to brushsize/2
                for e=-brushsize/2 to brushsize/2
                    if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                        MatrixHeights(xtile+d,ztile+e)=0
                        set matrix height TerrainMatrix,xtile+d,ztile+e,MatrixHeights(xtile+d,ztile+e)
                        if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                            else
                            set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                        endif
                    endif
                next e
            next d
        endif
        
        `Show new selection
        for d=-brushsize/2 to brushsize/2-1
            for e=-brushsize/2 to brushsize/2-1
                if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                    set matrix tile TerrainMatrix,xtile+d,ztile+e,4
                endif
            next e
        next d
        
        update matrix TerrainMatrix
        
    endif

    `Switch mode
    if keystate(15) and pressed=0
        pressed=1
        editmode=3
        `Reset selection
        for d=-brushsize/2 to brushsize/2-1
            for e=-brushsize/2 to brushsize/2-1
                if xtile+d<mapsize/10 and xtile+d>-1 and ztile+e<mapsize/10 and ztile+e>-1
                    if int(MatrixHeights(xtile+d,ztile+e)/30)+1<=3
                        set matrix tile TerrainMatrix,xtile+d,ztile+e,int(MatrixHeights(xtile+d,ztile+e)/30)+1
                        else
                        set matrix tile TerrainMatrix,xtile+d,ztile+e,3
                    endif
                endif
            next e
        next d
    endif
endif

`Waypoint angles
if editmode=1
    text 10,10,"Current mode: Waypoint Angles"
    text 10,25,"(Press tab or click to go back to Waypoints mode)"
    
    text 10,50,"[ and ] change Yangle"
    text 10,65,"+ and - change Xangle"
    
    text 10,95,"Yangle: "+str$(Waypoints(setangles).AngY)
    text 10,110,"Xangle: "+str$(Waypoints(setangles).AngX)
    
    text 10,125,"Type to set delay time (how long the player will pause at the waypoint) - "+str$(Waypoints(setangles).Delay)
    
    `Typing
    if timer()-typedelay>2000 and val(entry$(1))<>0 then temp$="" : typedelay=timer()
    temp$=temp$+entry$(1)
    clear entry buffer
    Waypoints(setangles).Delay=val(temp$)
    temp$=str$(Waypoints(setangles).Delay)
    
    rotate object Waypoints(setangles).ObjectNo,Waypoints(setangles).AngX,Waypoints(setangles).AngY,0
    
    if keystate(26)
        Waypoints(setangles).AngY=Waypoints(setangles).AngY-0.5
    endif
    if keystate(27)
        Waypoints(setangles).AngY=Waypoints(setangles).AngY+0.5
    endif
    if keystate(74) or keystate(13)
        Waypoints(setangles).AngX=wrapvalue(Waypoints(setangles).AngX-0.5)
        if Waypoints(setangles).AngX<275 then Waypoints(setangles).AngX=275
    endif
    if keystate(78) or keystate(12)
        Waypoints(setangles).AngX=wrapvalue(Waypoints(setangles).AngX+0.5)
        if Waypoints(setangles).AngX<275 then Waypoints(setangles).AngX=0
    endif
    
    `Get out
    if keystate(15) and pressed=0
        texture object Waypoints(setangles).ObjectNo,0
        if setangles=1 then texture object Waypoints(setangles).ObjectNo,GreenImage
        pressed=1
        setangles=0
        editmode=0
        temp$=""
    endif
    if mouseclick()=1 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),PickObject,1000)
        for c=1 to array count(Waypoints(0))
            if Waypoints(c).ObjectNo=obj
                texture object Waypoints(setangles).ObjectNo,0
                if setangles=1 then texture object Waypoints(setangles).ObjectNo,GreenImage
                setangles=c
                editmode=1
                good=1
                texture object obj,BlueImage
            endif
        next c
        if good=0
            texture object Waypoints(setangles).ObjectNo,0
            if setangles=1 then texture object Waypoints(setangles).ObjectNo,GreenImage
            setangles=0
            editmode=0
            else
            good=0
        endif
    endif
endif

`Waypoints
if editmode=0
    text 10,10,"Current mode: Waypoints"
    text 10,25,"(Press tab to change)"
    
    text 10,55,"Click to place a waypoint."
    text 10,70,"Right-click to delete a waypoint."
    text 10,85,"Click an existing waypoint to set player angles."
    
    `Make waypoints
    if mouseclick()=1 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),PickObject,1000)
        if obj=PickObject
            array insert at bottom Waypoints(0)
            temp=array count(Waypoints(0))
            Waypoints(temp).ObjectNo=FreeObject()
            Waypoints(temp).PosX=get pick vector x()+camera position x()
            Waypoints(temp).PosZ=get pick vector z()+camera position z()
            clone object Waypoints(temp).ObjectNo,WaypointObject
            if temp=1 then texture object Waypoints(temp).ObjectNo,GreenImage
            position object Waypoints(temp).ObjectNo,Waypoints(temp).PosX,get ground height(TerrainMatrix,Waypoints(temp).PosX,Waypoints(temp).PosZ),Waypoints(temp).PosZ
            else
            for c=1 to array count(Waypoints(0))
                if Waypoints(c).ObjectNo=obj
                    setangles=c
                    editmode=1
                    texture object obj,BlueImage
                endif
            next c
        endif
    endif
    
    `Delete waypoints
    if mouseclick()=2 and clicked=0
        clicked=1
        obj=pick object(mousex(),mousey(),1,1000)
        for c=1 to array count(Waypoints(0))
            if Waypoints(c).ObjectNo=obj
                delete object obj
                array delete element Waypoints(0),c
                exit
            endif
        next c
        if array count(Waypoints(0))>0 then texture object Waypoints(1).ObjectNo,GreenImage
    endif
    
    `Switch mode
    if keystate(15) and pressed=0
        pressed=1
        editmode=2
    endif
endif

`Saving
text 10,700,"Press F1 to save (level will be saved as data statements in 'RailLevel.txt')"
text 10,715,"Paste this over the data statements at the end of the game code to play your level!"
if timer()-saved<3000 then text 10,640,"Level saved succesfully"
if keystate(59) and pressed=0
    pressed=1
    gosub Save
endif

text 10,150,"Camera controls:"
text 15,165,"Mousewheel         - Zoom"
text 15,180,"Mousewheel + Shift - Height"
text 15,195,"Mousewheel + Ctrl  - Rotation"
text 15,210,"Arrowkeys or WASD  - Move"

`Draw links between waypoints
old=0
for c=1 to array count(Waypoints(0))
    if old>0
        line object screen x(Waypoints(old).ObjectNo),object screen y(Waypoints(old).ObjectNo),object screen x(Waypoints(c).ObjectNo),object screen y(Waypoints(c).ObjectNo)
    endif
    old=c
next c

`Draw lines between enemies and triggers
ink rgb(100,100,200)
for c=1 to array count(Enemies(0))
    if Enemies(c).TriggerObject>0 then line object screen x(Enemies(c).ObjectNo),object screen y(Enemies(c).ObjectNo),object screen x(Enemies(c).TriggerObject),object screen y(Enemies(c).TriggerObject)
next c
ink rgb(0,0,0),rgb(140,140,140)

if scancode()=0 then pressed=0
if mouseclick()=0 then clicked=0

sync
loop

`======= ==== =============== ===================
`================================================

CameraControl:

if shiftkey()=1 then inc camanglex,mousemovez()/10
if controlkey()=1 then inc camangley,mousemovez()/10
if controlkey()=0 and shiftkey()=0 then inc height,mousemovez()*-0.5
    
if height<50 then height=50
if height>400 then height=400
if camanglex>90 then camanglex=90
if camanglex<10 then camanglex=10
camangley=wrapvalue(camangley)

if leftkey()=1 or mousex()-camtolerance<=0 or keystate(30)
    camtargetx=camtargetx-cos(camangley)*camspeed
    camtargetz=camtargetz+sin(camangley)*camspeed
endif
if rightkey()=1 or mousex()+camtolerance>=screen width() or keystate(32)
    camtargetx=camtargetx+cos(camangley)*camspeed
    camtargetz=camtargetz-sin(camangley)*camspeed
endif
if upkey()=1 or mousey()-camtolerance<=0 or keystate(17)
    camtargetz=camtargetz+cos(camangley)*camspeed
    camtargetx=camtargetx+sin(camangley)*camspeed
endif
if downkey()=1 or mousey()+camtolerance>=screen height() or keystate(31)
    camtargetz=camtargetz-cos(camangley)*camspeed
    camtargetx=camtargetx-sin(camangley)*camspeed
endif
if camtargetx<0 then camtargetx=0
if camtargetz<0 then camtargetz=0
if camtargetx>mapsize then camtargetx=mapsize
if camtargetz>mapsize then camtargetz=mapsize

position camera camtargetx,0,camtargetz
yrotate camera camangley
xrotate camera camanglex
move camera -height

return



Save:

    if file exist("RailLevel.txt") then delete file "RailLevel.txt"
    open to write 1,"RailLevel.txt"
    
    `Write waypoints
    write string 1,"data "+str$(array count(Waypoints(0)))
    for c=1 to array count(Waypoints(0))
        write string 1,"data "+str$(Waypoints(c).PosX)+","+str$(Waypoints(c).PosZ)+","+str$(Waypoints(c).AngY)+","+str$(Waypoints(c).AngX)+","+str$(Waypoints(c).Delay)
    next c
    
    `Write terrain
    write string 1,""
    write string 1,"data "+str$(mapsize/10)
    for x=1 to mapsize/10
        temp$="data "
        for z=1 to mapsize/10
            temp$=temp$+str$(MatrixHeights(x,z))+","
        next z
        write string 1,left$(temp$,len(temp$)-1)
    next x
    
    `Write enemies
    write string 1,""
    write string 1,"data "+str$(array count(Enemies(0)))
    for d=1 to array count(Enemies(0))
        write string 1,"data "+str$(Enemies(d).PosX)+","+str$(Enemies(d).PosZ)+","+str$(Enemies(d).TriggerPosX)+","+str$(Enemies(d).TriggerPosZ)+","+str$(Enemies(d).Delay)
    next d
    
    
    saved=timer()
    close file 1

return



function LineBox(X1,Y1,X2,Y2)
line X1,Y1,X2,Y1
line X1,Y1,X1,Y2
line X2,Y1,X2,Y2
line X1,Y2,X2,Y2
endfunction



function FreeObject()
repeat
inc objects
until object exist(objects)=0
endfunction objects

Back to top

Profile PM Email Website

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 17th May 2009 05:23 Edited at: 17th May 2009 05:25

Great stuff guys!

aarrowh - good luck!

BMacZero- difficulty level feels right now! I found it difficult, but doable. Great stuff. I'll make more of a review after the deadline. If you want to add anything then that would be sweet. Howabout disintegrating targets?

Monk - seems to work well! Looking at DBP's help file, i think you should check out the command "intersect object". This way you can check for line collision with objects- each frame, the line is from the bullet's start position, to its end position in that frame.

This way, in addition to being able to have curved trajecteories, you can have the targets hit when the bullets get there, rather than when you fire the gun.

Good luck! If you get stuck i'll have a go at it.

BTW to both of you - cool guns!

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th May 2009 06:29 Edited at: 17th May 2009 06:31

Thanks, Dr Tank! Good news

. This might be a good opportunity to use your exploding code snippet, huh?

@Monk - Seems to be coming along nicely. Might be needing a scope, though - it's hard to aim right at the ones far away.

Back to top

Profile PM Email Website

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 17th May 2009 18:35

I have only 3 possible additions to your game bmaczero, elsewise its nicely done =)

More ammo ! I ran out bout half way through the level... =(

Make it so that you can actually die, otherwise you have to sit and wait and get shot once youve run out of ammo =(

And this isnt a gameplay thing, but I had to change make object plane to make object plain. Not a big thing.

Very good game though =)!

Ill post my game in a min, turns out that sparkys was working fine, I was just being a muppet and missed out a few things such as, delete memblock 1 at the end of the code etc.

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th May 2009 19:20 Edited at: 17th May 2009 19:21

Thanks for those, Monk!

Quote: "More ammo ! I ran out bout half way through the level..."

Okay, I increased the ammo (I'd just decreased it on the last update, guess I shouldn't have). You can change it on line 190 if you want to cheat or something

Quote: "Make it so that you can actually die, otherwise you have to sit and wait and get shot once youve run out of ammo =("

Dang, I completely forgot about that

. Thanks!

Quote: "And this isnt a gameplay thing, but I had to change make object plane to make object plain. Not a big thing."

What version do you have? I think in one of the more recent versions they just had both commands do the same thing. I changed it, though.

Okay, here's the newest version of the game. The editor is still the same, but I've added Monk's suggestions (with some fog), and made a new "hit" effect.

`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,768,32,0,4,0
autocam off
hide mouse
randomize timer()

set text font "verdana"
set text size 14

fog on
color backdrop rgb(0,0,40)
fog color rgb(0,0,40)
fog distance 1000

fogdist=1000
fogred#=0

`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
endtype
type EnemyType
    ObjectNo as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as integer
    TriggerPosZ as integer
    Raised as integer
    TargetHeight as float
    Delay as integer
endtype

global objects
objects=10

#Constant TerrainMatrix    1

#Constant GunObject         1
#Constant MuzzleflashObject 2
#Constant MuzzleflashObject2 3

#Constant TerrainTexture   1
#Constant CrosshairsImage  2
#Constant MuzzleflashImage 3
#Constant RedImage         4

#Constant CrosshairsSprite 1
#Constant RedSprite        2

cameraheight#=20.0
movespeed#=0.4
currentwaypoint=1
findtolerance#=0.5

lives=3

`======= Media Setup ============================

set image colorkey 1,1,1

gosub SetupWaypoints
gosub SetupMap
gosub SetupEnemies

`gun main (chamber)
make object box GunObject,1,1,2
color object GunObject,rgb(80,80,88)
`barrel
temp=FreeObject()
make object cylinder temp,1
scale object temp,100,400,100
xrotate object temp,90
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,1,1
offset limb GunObject,1,0,0,2
color limb GunObject,1,rgb(80,80,88)
delete object temp
delete mesh 1
`handle
make object box temp,0.8,2,1
xrotate object temp,25
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,2,1
offset limb GunObject,2,0,-0.9,-1
color limb GunObject,2,rgb(177,105,46)
delete object temp
delete mesh 1

disable object zdepth GunObject

`Muzzleflash
create bitmap 1,512,256
cls rgb(1,1,1)
for x=1 to 512
    for y=1 to 256
        prob=abs(y-128)/20 + x/100
        if rnd(prob)=1
            ink rgb(255,255-rnd(50),0)
            dot x,y
        endif
    next y
next x
get image MuzzleflashImage,1,1,512,256,1
delete bitmap 1

make object plain MuzzleflashObject,6,3
yrotate object MuzzleflashObject,90
fix object pivot MuzzleflashObject
set object ambient MuzzleflashObject,0
texture object MuzzleflashObject,MuzzleflashImage
set object transparency MuzzleflashObject,1
set object emissive MuzzleflashObject,rgb(255,220,0)

make object plain MuzzleflashObject2,6,3
yrotate object MuzzleflashObject2,90
zrotate object MuzzleflashObject2,90
fix object pivot MuzzleflashObject2
set object ambient MuzzleflashObject2,0
texture object MuzzleflashObject2,MuzzleflashImage
set object transparency MuzzleflashObject2,1
set object emissive MuzzleflashObject2,rgb(255,220,0)

create bitmap 1,1,1
cls rgb(150,0,0)
get image RedImage,0,0,1,1
delete bitmap 1

sprite RedSprite,0,0,RedImage
size sprite RedSprite,screen width(),screen height()
set sprite alpha RedSprite,0
RedAlpha=0

`Matrix Textures
create bitmap 1,1000,90

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

get image TerrainTexture,1,1,256,64,0
save image "railtemp.dds",TerrainTexture
load image "railtemp.dds",TerrainTexture
delete file "railtemp.dds"

`Crosshairs
cls rgb(1,1,1)
ink rgb(200,200,200)
line 0,40,80,40
line 40,0,40,80
circle 40,40,20
get image CrosshairsImage,1,1,80,80,1
sprite CrosshairsSprite,0,0,CrosshairsImage
set sprite CrosshairsSprite,1,1
offset sprite CrosshairsSprite,40,40

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

ammo=array count(Enemies(0))*1.5

`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

`Start off at the first waypoint
camerax#=Waypoints(1).PosX
cameraz#=Waypoints(1).PosZ
cameraangx#=Waypoints(1).AngX
cameraangy#=Waypoints(1).AngY

ink rgb(255,255,255)

do

sprite CrosshairsSprite,mousex(),mousey(),CrosshairsImage

if lives>0
    position camera camerax#,cameraheight#+get ground height(TerrainMatrix,camerax#,cameraz#),cameraz#
    rotate camera cameraangx#,cameraangy#,0
endif

`Move
`If we are close to the next waypoint..
if abs(camerax#-Waypoints(currentwaypoint).PosX)<=findtolerance# and abs(cameraz#-Waypoints(currentwaypoint).PosZ)<=findtolerance#
    `And we're done delaying..
    if delaytimer=0
        delaytimer=timer()
        else
        if timer()-delaytimer>=Waypoints(currentwaypoint).Delay
            `And we haven't got to the end yet..
            if currentwaypoint<array count(Waypoints(0))
                `Target the next waypoint
                delaytimer=0
                cameraangy#=Waypoints(currentwaypoint).AngY
                `cameraangx#=Waypoints(currentwaypoint).AngX
                inc currentwaypoint
                time#=distance(currentwaypoint,camerax#,cameraz#)/movespeed#
                cameraspeedx#=(Waypoints(currentwaypoint).AngX-cameraangx#)/time#
                cameraspeedy#=(Waypoints(currentwaypoint).AngY-cameraangy#)/time#
                if cameraangx#>270 and Waypoints(currentwaypoint).AngX<90
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX+180)-(cameraangx#-180))/time#
                endif
                if cameraangy#>270 and Waypoints(currentwaypoint).AngY<90
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY+180)-(cameraangy#-180))/time#
                endif
                if cameraangx#<90 and Waypoints(currentwaypoint).AngX>270
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX-180)-(cameraangx#+180))/time#
                endif
                if cameraangy#<90 and Waypoints(currentwaypoint).AngY>270
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY-180)-(cameraangy#+180))/time#
                endif
                else
                if lives>0 then center text screen width()/2,screen height()/2-15,"Level Completed!"
            endif
        endif
    endif

else

`Calculate movement toward next waypoint
    inc camerax#,sin(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    inc cameraz#,cos(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    
    `Rotate
    cameraangy#=wrapvalue(cameraangy#+cameraspeedy#)
    `cameraangx#=wrapvalue(cameraangx#+cameraspeedx#)

endif

`Shoot
if mouseclick()=1 and clicked=0
    clicked=1
    if ammo>0
        pick screen mousex(),mousey(),mapsize*5
        xangoff#=-15
        muzzlealpha=100
        dec ammo
        for c=1 to array count(Enemies(0))
            if Enemies(c).Killed=0
                temp=intersect object(Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#,get pick vector x()+camerax#,get pick vector y()+camera position y(),get pick vector z()+cameraZ#)
                if temp>0
                    Enemies(c).Killed=1
                endif
            endif
        next c
        else
        noammo=timer()+200
    endif
endif

`Update Enemies
for c=1 to array count(Enemies(0))
    `Kill
    if Enemies(c).Killed=1
        move object Enemies(c).ObjectNo,-1
        inc Enemies(c).FallSpeed
        move object down Enemies(c).ObjectNo,Enemies(c).FallSpeed*0.05
        
        else
        
        point object Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#

`Raise
        if Enemies(c).Raised=0
            if abs(camerax#-Enemies(c).TriggerPosX)<5 and abs(cameraz#-Enemies(c).TriggerPosZ)<5
                Enemies(c).Raised=-timer()
            endif
            else
            if Enemies(c).Raised>0
                if object position y(Enemies(c).ObjectNo)<Enemies(c).TargetHeight
                    move object up Enemies(c).ObjectNo,2
                endif
                if timer()-Enemies(c).Raised>=2200 and object in screen(Enemies(c).ObjectNo)
                    if lives>0 then RedAlpha=200
                    Enemies(c).Killed=1
                    dec Lives
                endif
                
                else
                
                if timer()+Enemies(c).Raised>Enemies(c).Delay
                    Enemies(c).Raised=timer()
                endif
            endif
        endif
    endif
next c

if mouseclick()=0 then clicked=0

dec RedAlpha,10
if RedAlpha<0 then RedAlpha=0
set sprite alpha RedSprite,RedAlpha

if lives>0
    temp$=""
    for c=1 to Ammo
        temp$=temp$+"|"
    next c
    text 10,10,"Ammo:  "+temp$
    temp$=""
    for c=1 to lives
        temp$=temp$+"|"
    next c
    text 10,30,"Lives: "+temp$
    
    if timer()-noammo<200 then center text screen width()/2,screen height()/2,"NO AMMO"
    
    `Orient gun with screen
    set object to camera orientation GunObject
    position object GunObject,camerax#,camera position y(),cameraz#
    move object GunObject,10
    move object right GunObject,4
    move object down GunObject,4
    yrotate object GunObject,object angle y(GunObject)+(mousex()-screen width()/2)/10
    xrotate object GunObject,object angle x(GunObject)+(mousey()-screen height()/2)/10+xangoff#
    set object to object orientation MuzzleflashObject,GunObject
    position object MuzzleflashObject,object position x(GunObject),object position y(GunObject),object position z(GunObject)
    move object MuzzleflashObject,7
    set object to object orientation MuzzleflashObject2,GunObject
    position object MuzzleflashObject2,object position x(GunObject),object position y(GunObject),object position z(GunObject)
    move object MuzzleflashObject2,7
    
    `Recoil control
    if xangoff#<0 then inc xangoff#,1
    
    `Muzzleflash
    if muzzlealpha>0 then dec muzzlealpha,5
    set alpha mapping on MuzzleflashObject,muzzlealpha
    set alpha mapping on MuzzleflashObject2,muzzlealpha
    
    else
    
    hide sprite CrosshairsSprite
    move object down GunObject,0.2
    
    dec fogdist,5
    if fogdist<1
        fogdist=1
        center text screen width()/2,screen height()/2,"Mission Failed."
        center text screen width()/2,screen height()/2+30,"Press escape to quit."
    endif
    inc fogred#,0.2
    if fogred#>50 then fogred#=50
    fog distance fogdist
    color backdrop rgb(int(fogred#),0,40)
    
endif

sync
loop

`======= ==== =============== ===================
`================================================

SetupWaypoints:

read waypointcount
DIM Waypoints(waypointcount) as WaypointType

for c=1 to waypointcount
    read Waypoints(c).PosX
    read Waypoints(c).PosZ
    read Waypoints(c).AngY
    read Waypoints(c).AngX
    Waypoints(c).AngY=wrapvalue(Waypoints(c).AngY)
    Waypoints(c).AngX=wrapvalue(Waypoints(c).AngX)
    read Waypoints(c).Delay
next c

return

SetupMap:

read maptiles
mapsize=maptiles*10

make matrix TerrainMatrix,mapsize,mapsize,maptiles,maptiles

for x=1 to maptiles
    for z=1 to maptiles
        read temp
        set matrix height TerrainMatrix,x,z,temp
    next z
next x

return

SetupEnemies:

read enemycount
DIM Enemies(enemycount) as EnemyType

for c=1 to enemycount
    Enemies(c).ObjectNo=FreeObject()
    read Enemies(c).PosX
    read Enemies(c).PosZ
    read Enemies(c).TriggerPosX
    read Enemies(c).TriggerPosZ
    read Enemies(c).Delay
    
    make object box Enemies(c).ObjectNo,10,30,5
    Enemies(c).TargetHeight=get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15
    position object Enemies(c).ObjectNo,Enemies(c).PosX,get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15-50,Enemies(c).PosZ
next c

return

function distance(waypoint,x#,z#)
temp#=SQRT((Waypoints(waypoint).PosX-x#)*(Waypoints(waypoint).PosX-x#)+(Waypoints(waypoint).PosZ-z#)*(Waypoints(waypoint).PosZ-z#))
endfunction temp#

function FreeObject()
temp=objects
repeat
inc temp
until object exist(temp)=0
endfunction temp

`Level data
data 20
data 979.404846191,20.2777328491,-49,0,0
data 883.822143555,96.2560348511,-72.5,0,3600
data 879.359863281,184.003417969,-28,0,0
data 683.226196289,275.361816406,29.5,0,0
data 551.063964844,252.686706543,-28,0,0
data 522.759155273,255.999176025,-78,0,0
data 349.502655029,277.063171387,-23,0,8000
data 308.799468994,282.014282227,0,0,0
data 308.298706055,371.771179199,23,0,0
data 369.83807373,493.201416016,-18,0,0
data 341.259216309,593.693115234,-44.5,0,0
data 316.309509277,626.412963867,-112.5,0,0
data 245.98197937,597.076660156,-134.5,0,0
data 165.750213623,511.296264648,-99.5,0,0
data 92.3321838379,554.863037109,16,0,0
data 216.179107666,777.401306152,53,0,0
data 423.805938721,824.921936035,12,0,0
data 498.935913086,827.347351074,0,0,0
data 525.011352539,817.908752441,147,0,0
data 818.587036133,770.512023926,94.5,0,0

data 100
data 0,0,0.5,1,1,1,1.5,1,0.5,0.5,0.5,1,1,1,1,1,0,0,0,0,0,0,0,1.5,5.5,8.5,9.5,21,26,30.5,37.5,43,36.5,32,23.5,13.5,7,2,0,0,0.5,1,3.5,6,11,20.5,20.5,23,15.5,14.5,8,5.5,7,12,12,9.5,5.5,5,8.5,8,10.5,7.5,6.5,13,13.5,20,10.5,12,8,7,3.5,3,3.5,3.5,3.5,3.5,0.5,0,0,2,3.5,9.5,13.5,18,16,21.5,22.5,34,38.5,41,34,27,11.5,2.5,0,0,0,0,0,0
data 0,0,0.5,1,1,1,1.5,2,1.5,1.5,2,3,2,2,2,1.5,0,0,0,0,0,5,10.5,15,20.5,27,25,37,40,44.5,48,51.5,39,33.5,23.5,13.5,7,2,0,2,3,4.5,6.5,10,13,18.5,15.5,17.5,9.5,10,5,4.5,4,6.5,7,6.5,4,4,8.5,10.5,15.5,14,11,9.5,8,14.5,16,19.5,15.5,13,8,9,7,10,11,12,6.5,4,0,2,3.5,9.5,13.5,18.5,17,24,25,42,47.5,51,46,39,18,7.5,3.5,0,0,0,0,0
data 0,0,0.5,1,1,1,2,2.5,2,2.5,3.5,4,4,4,3.5,2.5,1,0,0,1.5,5,14.5,22,31,39.5,44,39.5,49.5,48,48,50,51.5,39,33.5,23.5,13.5,7,2,0,3,11,14,18.5,14.5,12.5,5.5,1.5,0.5,0.5,1.5,2.5,3,2.5,1.5,0.5,0,0,0,3.5,6,12,14,15.5,13,8,10.5,12.5,20.5,22.5,25.5,18.5,15,11,15,19,21.5,14.5,9.5,2.5,0.5,0.5,3,9,14,14,20,25,43,55,60,58.5,52,30,13,7.5,0.5,4,4,4,0
data 0,0,1.5,2,2,2,3,3,2.5,4.5,7,7.5,7,7,5,2.5,1.5,3,5,10,16.5,28.5,36,43.5,50,51.5,44,51.5,49.5,47,46.5,45,29,21.5,12.5,5,1.5,0.5,1.5,6,13,14.5,15.5,9.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,3.5,5,8.5,10.5,13.5,15,14,9.5,10,12.5,23,29.5,26,23,16,18.5,20.5,26.5,22.5,17,6,2.5,1.5,2,8,13,12,11.5,16,28.5,44,50.5,59,57,41.5,21.5,14.5,4.5,5.5,4.5,4.5,0
data 0.5,1,2.5,4,4,3.5,4,4,3.5,5.5,8,9,9,10,9,8.5,7.5,8.5,13,20,26,41,48.5,52,55.5,55.5,43.5,50.5,45,38,33.5,30,13.5,9,4,0,0,1,2.5,5,11,11,12.5,5.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,8,13,17,16.5,14.5,11.5,19.5,26,27.5,33,29.5,28.5,22.5,26.5,26,21.5,11,5,3.5,3,6,9,8,7.5,10,18,33,43,53.5,58.5,54.5,39,28.5,16.5,15,8.5,7,0
data 0.5,1,2,6.5,6.5,6,6,6.5,4.5,6.5,9.5,10,10,10.5,11,10,10,14.5,24.5,30.5,36.5,51.5,55.5,51,50,47,35,31,23.5,17.5,12.5,10.5,5,4,0.5,0,0,5.5,11,12.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,7,12,20,21.5,18,16.5,23,24.5,33,28,28.5,18.5,22,24,23.5,17.5,11.5,8,5,3,2.5,2.5,4,3,9,19.5,28,44.5,55.5,61,56,47.5,30,27,15,9,0
data 1,1.5,2.5,7,8,7,7,6.5,5,6.5,9,10,12.5,14,14.5,14,18.5,23.5,32.5,38,44,49,45.5,37.5,35,28.5,19.5,15,9.5,3.5,2,3.5,4,4.5,1.5,1,2,7,11.5,11.5,7,4,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,4,7,16.5,21.5,21.5,19,21.5,28,33.5,32.5,26,19.5,17,24.5,26,27,20.5,14.5,6.5,4,2,1,1,0.5,1,10.5,18,32.5,50.5,62,63,60,46,36,23.5,13,0
data 1,1.5,2.5,7,8,9,8.5,8,7.5,12,13,14.5,16.5,17,16.5,18,23.5,31,40,42,42,41.5,34,21.5,16,11.5,5,2.5,1.5,0,0,4.5,7,8,4.5,5,8.5,13.5,14.5,15,10,7.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,2,2,8,12.5,17,16.5,20,31.5,29.5,27.5,19,23,20.5,22,23,28.5,27,23.5,13,7,3,2,1.5,1.5,1,3,9,20,37.5,57,64.5,71,62,49,29.5,19,0
data 1,1.5,1.5,6,7,8,8,8,9,13.5,14,17,25.5,28,30,34,37,36,39.5,35.5,30.5,27.5,20,9,5.5,4,0.5,0.5,0.5,1.5,2.5,8.5,10.5,11.5,8,12,16.5,17.5,12,14.5,11.5,11.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,2.5,5.5,7.5,10.5,13,31.5,29,30,14.5,24.5,25,28,24,27,25,28,24,18.5,10,3.5,2.5,1,1,0,4.5,12.5,27,47,58,69,67,57.5,37.5,26.5,0
data 0.5,1.5,1.5,5,6.5,9,9.5,15.5,17,23.5,24.5,28,31.5,32.5,33.5,36.5,37.5,35.5,36.5,28,21,15,7.5,0.5,0,0,0,0.5,1,2.5,3,11.5,13.5,14,9,13,18.5,19.5,16,20,15,11.5,2.5,2.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,6,9,22.5,22,22.5,11.5,20,24.5,29.5,27,27,26.5,29,29,27.5,18.5,8.5,4,2.5,1,0,1,7,16.5,31,42,57,61.5,55,40.5,29.5,0
data 0.5,1.5,2,3.5,5,7.5,8,16.5,22,30.5,33.5,39.5,40,40.5,38,39,37.5,32,25,17.5,10.5,4.5,0.5,0,0,5,6.5,8,3.5,4,10,19,18.5,14.5,12,20.5,23.5,23.5,21.5,23,20,15.5,12.5,12.5,10.5,5.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,6,16,15,17,13,18.5,26,33.5,42.5,37,31.5,28,30.5,31,27,17.5,11.5,8.5,6.5,2,0,0,7,16,22.5,39.5,52,51,42,35.5,0
data 0,1,1.5,4,4.5,7.5,8,19,24.5,36,42,48.5,45,43,39,38.5,31.5,25.5,19.5,11.5,3,2,0,0,0,5,6.5,8.5,3.5,4,9,18,18.5,14.5,12.5,17,21.5,24,31,33.5,33,27,25,22,18.5,13,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,6.5,9,11.5,15,20.5,23.5,35.5,33,27,23,25.5,28,25.5,22,16.5,14.5,10.5,5.5,3,1.5,0,8.5,10.5,24,43.5,57,48.5,46.5,0
data 0,1,2,4.5,5,7.5,12.5,23,31,41.5,48,51,47,42.5,37.5,34.5,25.5,18,12,6,0,0,0,0,0,9.5,13.5,15.5,6.5,4,9,13.5,17.5,19.5,22,24.5,25,29,34.5,33,31.5,27,28,28.5,26.5,23,14.5,7.5,2,0,0,0,0,0.5,1,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,4,4,5,9.5,12.5,17.5,14.5,22,24,27,30.5,30.5,32,33,28.5,26,24,21.5,15,6.5,4,1.5,1.5,3.5,9.5,31,50,48.5,46.5,0
data 0,1,2.5,5.5,6.5,9,17,28.5,35,46,53,55,43.5,37,29.5,24,13,11.5,8.5,4,0,0,0,0,0,5,8.5,11,7.5,6,4.5,12,19.5,26.5,26.5,22,21.5,22,28.5,33.5,34,31,29,27,25,26,22,16,4.5,0,0,0,5,5.5,6,3,5,4.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,5,4,5,8,14,28,31,37,37.5,34,28.5,27,24.5,19,9.5,5.5,2.5,1,1.5,4.5,25,52.5,52.5,51,0
data 0,0,5.5,10.5,11.5,15.5,24,27,32.5,41.5,47,47.5,39,31.5,24,16,7,7,4,1.5,0,0,0,0,2,7,10.5,14.5,17,15,13.5,17,24.5,32.5,29.5,28,23,21,18,18,17.5,16.5,16.5,17.5,18,20.5,19,15,5,0,0,0,6,9,10.5,10,11.5,10.5,5,0.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,5,10,19.5,25.5,33.5,38.5,37,31.5,30,28.5,23,13.5,6,2.5,1,0,2.5,18.5,52.5,52.5,52.5,0
data 0,2.5,9.5,14.5,15.5,22.5,31.5,31.5,33.5,41.5,44,39.5,32.5,26,20.5,12.5,5.5,5.5,5,1.5,0,0,1,2,6,8,10,13,21.5,21,19,20.5,23.5,23.5,18,18.5,15.5,12,8.5,11,13,12.5,11,8.5,8,10.5,11.5,10,3,0,0,0,6,8.5,9.5,8.5,13.5,15,10.5,3,3.5,4,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,24.5,28,42.5,33.5,33,21,21.5,20,10.5,4.5,1.5,0.5,1,14.5,52,52,52,0
data 0.5,6.5,17,22.5,26.5,36,42,36,36,41.5,38,32.5,28,23,16.5,10,5,5,4.5,1.5,3,7.5,9.5,11.5,16.5,19,17,19,26,24.5,21,14.5,12.5,11.5,7,9.5,7.5,8,5,3,2,1,0,0,1,2,2.5,1.5,0.5,0,0,0,1,3.5,4.5,9,15.5,18.5,14.5,6.5,5.5,5.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,11,16.5,37.5,34.5,36,24.5,26.5,23.5,14,7,2.5,0.5,0.5,7,44.5,44.5,44.5,0
data 2.5,11.5,25,32,38,44,44.5,37,33.5,34.5,31.5,27.5,21.5,19,15,9.5,5.5,5.5,4.5,1.5,3.5,11.5,15.5,21.5,27.5,35.5,30.5,34.5,39.5,40,30.5,24.5,16,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,15,21,19.5,12.5,10,7,6,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,8.5,29,30,34.5,24,30.5,26,20,13.5,8,2.5,1,3.5,42,42,42,0
data 10,24,38,45.5,47,51.5,44,34.5,28.5,27,22.5,17.5,13,10.5,8,4.5,6,8.5,8,7,9,17,20.5,26.5,38.5,48,43.5,46.5,50.5,44,32,25.5,16.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,12,17.5,16.5,16,15,12,8.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,13,23,25,28.5,28,25,20.5,14.5,8,3.5,3,35.5,33,33,0
data 19.5,33.5,43.5,45,43.5,44,36,29,23.5,20.5,17,12.5,9.5,9.5,8,6.5,10,13.5,13,12,14,24.5,28,33.5,44,53,44,45,45.5,38,26,19.5,11.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,6,10,10.5,16.5,18.5,19,14,9,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,13.5,27,29,27.5,25.5,28.5,28.5,22,14,9.5,8,35.5,31,29.5,0
data 22.5,34,41.5,40.5,38,35,26.5,20,16,12,9,7.5,7.5,8,8.5,9.5,13.5,18.5,18.5,21,25.5,35.5,35,41,45,50,40,41.5,39,34.5,24,18.5,11,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,10,14.5,21,17,14,6,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,17,33,34,30,24.5,29,31,27.5,19,16,14.5,32.5,25,22,0
data 24.5,32.5,36.5,32,26,20.5,15,12,9.5,5.5,5.5,5.5,5.5,6.5,10,12,13.5,18.5,18,23,25,30.5,29,34,34.5,39,33,34.5,33,32,23.5,20,24.5,19,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0.5,4,8,17.5,19,20,10.5,6.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,14.5,31.5,33,31,25.5,31,33,33,25.5,20,16,27,19,15.5,0
data 27.5,34,30,23.5,15.5,12,6,5,2.5,0.5,0.5,3,5.5,8.5,12.5,15.5,16.5,20.5,19.5,24,24.5,26.5,23,24,23.5,22.5,19.5,18,15.5,12.5,10,7,16.5,16,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,2.5,9,16,20,19,14,7.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,15.5,18,18,19,24,28.5,33.5,33,26.5,20,22.5,15,10.5,0
data 25,28,20.5,12,8,5,2,1.5,1.5,0,0,5,7.5,13,22,25.5,23,24.5,21,19.5,19,21,18,19,12.5,9.5,5,4,1,4.5,4.5,4.5,15.5,15.5,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,0,3.5,10.5,17,21,17,11.5,4.5,5.5,4.5,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,4,6,7,12.5,17,27,28.5,32,28,20.5,17,12.5,8,0
data 19.5,22.5,13,8.5,7,3.5,0.5,0,0,0,0,7,10,16,27.5,30.5,24,24,19,14.5,14,13.5,10.5,12,5,2.5,2.5,2.5,0,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,6.5,12.5,22.5,20,15,10.5,14.5,13.5,8.5,8.5,8.5,8.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6.5,10.5,24.5,31.5,35.5,34.5,29,19.5,10.5,5.5,0
data 18,21,11.5,8,7,4,6,5.5,5.5,0,0,13.5,16,21.5,31,34,20.5,18,12.5,5.5,2.5,2.5,2.5,2.5,23,23,23,23,23,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,0,0,0,0,0,0,3.5,7.5,16.5,16.5,15,14,20.5,18,13,12.5,12.5,12.5,9.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8.5,19,25.5,30,34.5,32,23,10,6,0
data 23,26,11.5,7.5,7,5,8,7.5,6.5,0,0,11.5,14,19,28,30,18.5,16,11,2,0,0,0,0,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,2.5,5.5,17,19.5,19,19,26,24,17.5,16,15.5,15.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,12.5,19.5,30.5,36.5,37,27,15.5,6,0
data 28,31.5,19.5,11,7.5,10,12.5,12,6.5,0,0,11,12.5,16.5,25,26,15,13.5,9.5,1,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,0,1.5,11.5,15.5,17,19.5,27.5,25,20,18.5,18,17.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,9.5,14,27.5,35,37.5,29.5,20,8,0
data 27,29,18,9,6,11,10.5,10.5,2.5,0.5,0.5,9.5,11,12.5,15.5,15.5,6.5,5,3.5,0,0,0,0,0,23,23,23,23,23,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,41,41,41,0,0,0,0,1,7,11.5,13,23,30,28,22,22,21.5,20.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,5,11.5,23.5,36,40,37.5,30,18.5,0
data 27,29,19,9.5,6,12.5,11,11.5,2,1,1,8,8.5,8.5,8,8,1,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,6.5,13,26.5,32,28.5,25.5,29.5,29,24.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,15.5,27.5,33.5,43,40,28.5,0
data 36.5,38.5,24.5,12.5,5.5,8,7,7.5,2,1.5,1.5,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,4,16.5,30,32.5,27.5,26.5,30.5,30,21.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,11.5,24.5,37.5,46.5,45.5,35.5,0
data 34,38.5,28.5,19,10,11.5,8,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,3.5,17,32.5,32,28,28,31,30,20,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,6,19.5,32,41.5,39.5,36,0
data 31.5,34.5,23.5,18,10,10.5,8.5,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,1,17,31,32,30,29,29,28,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,15.5,30,40,36,34.5,0
data 37.5,40.5,29,18,10,11,9,7.5,4,3,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,18.5,29.5,29.5,29.5,29.5,29.5,26,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,7.5,22,30,27.5,24.5,0
data 36.5,40,29.5,16.5,12,14.5,12,6.5,3.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,1,1,1.5,2,2,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,22.5,34,34.5,34.5,34.5,33.5,27.5,12,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,16,17.5,17.5,14.5,0
data 29.5,33,26.5,14,14.5,16.5,13.5,6.5,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,21,21,21,21,21,0,0,0,0,0,0,1,1,1.5,2,2.5,1.5,2.5,2,1.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,9,25.5,36,37.5,37.5,37.5,36,28.5,12,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,2.5,4,2.5,0
data 27,28.5,25,11.5,14,15.5,14,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,20,20,20,20,0,0,0,2,2.5,2.5,3.5,3.5,2,2,2.5,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,12,27.5,38,40,40,39.5,36,28,12.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,0
data 26,27.5,27,11,12.5,13.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19.5,19.5,19.5,19.5,19.5,7,13,13,15,15.5,8.5,4,4,2.5,2.5,3,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,15.5,28,37.5,40,40,38.5,32.5,24.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,28,29,14,12.5,10,7.5,0,0,0,0,0,3,4.5,4.5,4.5,4.5,1.5,0,0,0,0,0,0,18.5,18.5,18.5,18.5,18.5,7,13,14.5,18,19,12,6.5,5.5,3.5,3,4,3.5,4,3,3.5,2.5,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4,10.5,20,30.5,37.5,40,38,36,29.5,20,9.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,35,34.5,17.5,12,8,6,0,0,0,0,0,5,6.5,6.5,6.5,6.5,1.5,0,0,0,0,0,0,18,18,18,18,18,7,13,14.5,21.5,24.5,25,19.5,18.5,14.5,11.5,5,4.5,5.5,3,6.5,5.5,5.5,4,3.5,0,0,0,0,0,0,0,0,0,0,0,1.5,3,4,8.5,10.5,18,28.5,33,37.5,39,34.5,32.5,25,14.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 32,35.5,34,19,11.5,7,3.5,0,0,0,0.5,2.5,7.5,9,9,8.5,6.5,1.5,0,0,0,0,0,0,17,17,17,17,17,7,13,14.5,23.5,27,28.5,26,26,20.5,18.5,10.5,7,6,3,9,11,11,10.5,10,2.5,0,0,0,0,0,0,0,0,0,0.5,2.5,4,6,11.5,15,23,30.5,33.5,38,38.5,33,29.5,21.5,13.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 34.5,37.5,31.5,16.5,10,4.5,1.5,0,0,0,3,6,11.5,13.5,15.5,12.5,9.5,4,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,7,13,14.5,21.5,24.5,26,23.5,25,21.5,20,12,8.5,6,2.5,8.5,10.5,10.5,10,10,2.5,0,0,0,0,0,0,0,0,1,2.5,4.5,8,12,20,25,31,35,37.5,37.5,35.5,27.5,22.5,15.5,10,5.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 31,33.5,25,13,8.5,3.5,1,0,0,2,7,10,15.5,17.5,17.5,12.5,9.5,4,2,0,0,0,0,0,17,17,17,17,17,0,0,1.5,8.5,11.5,20,23,29.5,32,34,26.5,23.5,14.5,5,7.5,9.5,9.5,10.5,10.5,3,0.5,0.5,1,1.5,4.5,5.5,5.5,7,8,8.5,11.5,15.5,22,32,35.5,41,43.5,43.5,39,32.5,22.5,17.5,11,7,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 24,25.5,15,9,6.5,2.5,1,0,0,6,11,14,16.5,17,13,8,5,2.5,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,0,0,0,5.5,8,16.5,19.5,27,31.5,39,33.5,31.5,23,13,9.5,9.5,10,14,15.5,10,8,8.5,9,9,11,14,14,16,18.5,22.5,25,27,32,41.5,43.5,45,43.5,41.5,36,27,16.5,12,7.5,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 15.5,17,6,4.5,4,1.5,0,0,1.5,10.5,15.5,18.5,19,18,11,6,3,2.5,2,0,0,0,0,0,15,15,15,15,15,0,0,0,2,2.5,3.5,6.5,14,20,31.5,35,36,29,21,13,11.5,13.5,24.5,29,29.5,30.5,33,34,33,29.5,33,32,31.5,33.5,37,36.5,38.5,40,47,47.5,45,43.5,39.5,31,21.5,11,7.5,5.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 16,16,3,1.5,1,0,0,0,1.5,14,18.5,19.5,20,19,8.5,4,3,2.5,2,0,0,0,0,0,12,12,12,12,12,0,0,0,0,0,0,0,6.5,14,26.5,31,36.5,32.5,25,12.5,8.5,13,23,27.5,33,37.5,40,45,42,39.5,45.5,46,46,49,50,49,49,48,50.5,49,45,40,34.5,24.5,15,6.5,3.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 18.5,19,2.5,2,1.5,0,0,1.5,7,19.5,21.5,21.5,20,14.5,2,0,0,0,0,0,0,0,0,0,8.5,8.5,8.5,8.5,8.5,0,0,0,0,0,0,0,5,12.5,25,31,37.5,36.5,36,26,20.5,24,31.5,29,32,36.5,43.5,51,50.5,51,63,64.5,65.5,65.5,65.5,60.5,56,48,47,44.5,38,31,26.5,18,9.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 27,24,4,3.5,3,1,0,4,11,21.5,21.5,21.5,17.5,10.5,0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,0,0,0,0,0,0,0,0,1.5,10.5,16,22.5,28,33,27.5,22.5,26,32,28.5,30.5,35,42,50.5,53.5,54,66,67.5,68.5,68.5,67,59.5,55,46,44,40,33,26.5,22.5,14,6.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 25.5,22,6,4.5,3,1,0,6,15.5,22,22,22,16,6.5,0,0,0,0,0,0,0,0,0,0,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,4,7,12.5,18,24.5,24,23,33.5,39.5,36,37,40,41,49.5,52.5,54,66,67.5,68.5,67.5,65,57.5,51,40,35.5,30,24,18.5,14.5,8,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 20.5,19,12.5,10,4,2,0,7.5,15.5,19,19,19,11.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3.5,6,9.5,18.5,20.5,20.5,37,45,39,39.5,42.5,40.5,48.5,51,49.5,60.5,62,61.5,60.5,59,50.5,43.5,30,23.5,19.5,13.5,8,5.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 19,19.5,18,12.5,4,2,1,7.5,15.5,15.5,15.5,15.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,4,13.5,18,18,36.5,46,38,36,38.5,34,39.5,42.5,43,52,53.5,52.5,50,45,37,32,20,14,11,7,5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 22.5,24,27.5,23,10,5,2.5,6,10,10,10,10,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,3,5.5,22,28,28,24.5,23,15,18,18.5,24.5,33,35.5,37,35,30.5,25.5,20.5,12,8.5,6,3.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,36,36,36,0,0,0
data 21,18,23,23,16,11,5.5,6.5,8,9,7.5,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,4,18.5,22.5,23,20,17.5,7.5,7.5,9.5,14.5,20.5,21.5,22.5,19.5,17.5,13,10,4,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0
data 26,11,17.5,33.5,29.5,28,19,18,13.5,5,3.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,0,11.5,16,17.5,15.5,17,5.5,3.5,2,3,3,3,3,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,21.5,25.5,37,28.5,30,22,30,31,22.5,13,6.5,2.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2,-1.5,-6.5,3,10.5,15.5,14,19,9.5,3.5,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,24.5,28,38.5,30.5,34.5,28.5,33,34,25.5,17,9.5,8,6.5,4.5,7,8,8,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2.5,-2.5,-6.5,2.5,7,14.5,14.5,18.5,9.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24,28.5,30.5,29.5,20.5,21,17,22.5,27,33,25.5,19,16,18.5,15.5,14,10.5,10.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.5,-1,-6,4,7,13.5,15,20,10,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10.5,16,17,20.5,21.5,21,13.5,10.5,12,17.5,23,24.5,31.5,36,31.5,27,18,18,13,10.5,6,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-5,3,7.5,16.5,18,23,15,10.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,15.5,13.5,14.5,13.5,11,4,4.5,13,19,26.5,28.5,32.5,35,35.5,28,18,10,13.5,22.5,19,11,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2.5,2.5,7,16,19,21.5,16.5,12,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,17.5,14,13.5,12,8,1,1.5,10,11,17.5,18.5,24.5,23,24.5,21,15.5,7.5,11,21,20.5,13.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,10,19.5,25,22,17.5,16,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22.5,30.5,16,14,11,8,0,0,6,7.5,9,8,6.5,5,8,8,8,0,2.5,12,14.5,13,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,9.5,18,26.5,30.5,27.5,24,17.5,9,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,30.5,17,15.5,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,6.5,13,21,26,27.5,24.5,20.5,12.5,4.5,2.5,2.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22,24,11,9.5,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,12.5,21,27.5,29.5,31,29,20.5,11,8.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,21.5,9,7.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,13,20.5,27,29,33.5,31,23.5,14,11.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,20.5,8.5,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,12,17.5,26,29,33,30,24.5,16,13,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 19,19,17.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,15.5,18,20.5,26,31.5,22,19.5,17,11.5,1.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,16.5,18.5,24,29,33.5,23.5,21.5,16,11,1,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,8,18.5,19.5,25.5,27.5,27,16.5,15.5,9.5,5,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,15,13.5,1.5,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,9,18,21,28.5,30,26,17,14,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21.5,24.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,8.5,15.5,21,28.5,29,24.5,17.5,12,4.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,17.5,13,4,2,1,2,3,3,3.5,3,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,10.5,13.5,19.5,27,24,18,15,9,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,26.5,19.5,6,6.5,3.5,5.5,6,7.5,7,4.5,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,8,16.5,21.5,28,31,23.5,15,10,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23,26.5,22.5,14,15,8.5,7,7.5,6,7.5,4,5.5,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6,15.5,20.5,27,28,22.5,13,8,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24.5,29.5,24,18.5,17,8,5,4.5,4,8,5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,17,22,26,24.5,18.5,9,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,30.5,30,26.5,17.5,5.5,1.5,1.5,-0.5,4.5,3.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,10.5,18.5,27,32,27,22.5,14.5,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,35.5,27,10,0.5,0,0,1,4,4,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8.5,14.5,21.5,28.5,31,24,18,11,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,36.5,24,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,1.5,0,0,0,0,0,0,0,0,0,1,2.5,5,14,19.5,22.5,24,22,13,7.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,40,38,21.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,4.5,4.5,1.5,0,0,0,0,0,0,0,0.5,6.5,9.5,13.5,22.5,27.5,25,23,19,10,4.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,38,31,13.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,5.5,10.5,9,6.5,3,2.5,2.5,1,0,4,5.5,16,21,25,30,33,25,20,16,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 23,34,26.5,14,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,9,11,11.5,8,6.5,3.5,2,0,4,8,19,24,28,27,41.5,30.5,25.5,25,22,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 21,27.5,16.5,9.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,11,15,16,14,9,4,10.5,16.5,22,33,37,30.5,26,37.5,26.5,21.5,22,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 19,27.5,21.5,11.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,9,16,16,15.5,19.5,29,36,42,47,39.5,28,21,32,22,18.5,20.5,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 23.5,33,32,14,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,6,21,26,27.5,23.5,29,36,41.5,41.5,32.5,19.5,12.5,7,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,26,30.5,13,13,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,16.5,28,31,28.5,29,32,36.5,32,21,8,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10,18,27,17,17.5,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,15.5,32.5,36,34,29,32,34,29,18,5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 6,20.5,30,28.5,22.5,12.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7.5,27,31.5,34.5,18.5,19.5,20,15,5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11,25,33.5,31,19,10.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,25.5,27,20,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 16,29,30.5,29,18.5,14.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7,23,25.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 12.5,18.5,20,18.5,15,11.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,15.5,18.5,17,10.5,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 7,12.5,18,12,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,13.5,12.5,6,1,0,0,0,0,0,5.5,5.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 18.5,20,9.5,1.5,0,0,0,0,4.5,7.5,16,11.5,8.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,14.5,4,0,0,0,0,3.5,10.5,16,21.5,14.5,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,7.5,7,11,19,30,27.5,16,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11.5,11.5,3,0,0,0,0.5,9,16,28.5,25,18,5,0,2,5.5,5.5,3.5,0,0,0,0,0,0,0,0,0,3,6.5,6.5,5.5,9.5,13,14.5,17.5,29,36,31,16,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,7.5,16,20,24.5,22.5,17.5,6.5,0,2.5,8.5,11,9.5,5,6,5.5,4,0.5,0,0,0,1.5,11,17,23.5,19.5,24,22.5,24.5,25.5,37.5,43,41,24,11,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,2.5,6.5,13,20,18.5,20.5,18,19.5,11,9.5,11.5,21.5,20,18.5,12.5,12,8.5,6,6.5,6,6,5.5,11.5,22.5,26.5,29,23,25.5,24,25.5,24.5,35,36.5,35,19.5,10,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,15.5,21.5,20.5,22,19,18.5,17,14,9.5,9.5,16,15,16.5,16.5,19.5,18,17,18,18,15.5,11,14.5,22,22,23.5,20,24.5,23,23,18.5,22,22.5,23.5,15,7.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,14.5,14.5,13.5,13.5,15.5,10.5,11.5,9.5,9.5,9,13,9.5,10.5,11.5,13.5,12.5,13,17.5,18,15.5,11,13,14,11.5,6.5,6,10,12.5,12,7,8,7.5,7,3.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

data 20
data 652.818603516,127.62336731,886.442077637,93.8065414429,0
data 701.302856445,60.1504554749,888.545776367,92.1973342896,1000
data 727.378479004,217.510528564,887.766723633,93.0390853882,1500
data 720.602294922,162.103683472,888.257751465,93.0585021973,2000
data 772.95501709,322.116027832,855.384399414,195.611343384,0
data 555.351745605,502.659912109,656.605529785,272.158203125,0
data 544.091064453,305.63470459,573.514648438,258.233306885,0
data 229.152069092,450.426361084,356.586029053,273.939605713,0
data 293.673461914,510.156341553,362.450744629,273.681213379,2000
data 191.553955078,588.027709961,360.59753418,273.946594238,3000
data 272.077087402,444.820037842,355.782775879,276.342315674,4500
data 291.803894043,462.947387695,356.315948486,275.276000977,6000
data 84.0458374023,484.882476807,239.464660645,590.658935547,0
data 666.872436523,540.072631836,676.795898438,275.788635254,0
data 330.456970215,893.265258789,169.508117676,694.465759277,0
data 358.5496521,886.873291016,172.324493408,702.044433594,0
data 358.415283203,911.184265137,179.547698975,714.323364258,0
data 607.806335449,704.950134277,525.992980957,817.463867188,0
data 699.457214355,736.278198242,571.587280273,809.273193359,0
data 827.184265137,695.248168945,553.131652832,812.39465332,0

`======= Basic Setup ============================

sync on : sync rate 60
set display mode 1024,768,32,0,4,0
autocam off
hide mouse
randomize timer()

set text font "verdana"
set text size 14

fog on
color backdrop rgb(0,0,40)
fog color rgb(0,0,40)
fog distance 1000

fogdist=1000
fogred#=0


`======= Variable Setup =========================

type WaypointType
    PosX as float
    PosZ as float
    AngX as float
    AngY as float
    Delay as integer
endtype
type EnemyType
    ObjectNo as integer
    Killed as boolean
    PosX as float
    PosZ as float
    FallSpeed as integer
    TriggerPosX as integer
    TriggerPosZ as integer
    Raised as integer
    TargetHeight as float
    Delay as integer
endtype

global objects
objects=10

#Constant TerrainMatrix    1

#Constant GunObject         1
#Constant MuzzleflashObject 2
#Constant MuzzleflashObject2 3

#Constant TerrainTexture   1
#Constant CrosshairsImage  2
#Constant MuzzleflashImage 3
#Constant RedImage         4

#Constant CrosshairsSprite 1
#Constant RedSprite        2

cameraheight#=20.0
movespeed#=0.4
currentwaypoint=1
findtolerance#=0.5

lives=3


`======= Media Setup ============================

set image colorkey 1,1,1

gosub SetupWaypoints
gosub SetupMap
gosub SetupEnemies

`gun main (chamber)
make object box GunObject,1,1,2
color object GunObject,rgb(80,80,88)
`barrel
temp=FreeObject()
make object cylinder temp,1
scale object temp,100,400,100
xrotate object temp,90
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,1,1
offset limb GunObject,1,0,0,2
color limb GunObject,1,rgb(80,80,88)
delete object temp
delete mesh 1
`handle
make object box temp,0.8,2,1
xrotate object temp,25
fix object pivot temp
make mesh from object 1,temp
add limb GunObject,2,1
offset limb GunObject,2,0,-0.9,-1
color limb GunObject,2,rgb(177,105,46)
delete object temp
delete mesh 1

disable object zdepth GunObject

`Muzzleflash
create bitmap 1,512,256
cls rgb(1,1,1)
for x=1 to 512
    for y=1 to 256
        prob=abs(y-128)/20 + x/100
        if rnd(prob)=1
            ink rgb(255,255-rnd(50),0)
            dot x,y
        endif
    next y
next x
get image MuzzleflashImage,1,1,512,256,1
delete bitmap 1

make object plain MuzzleflashObject,6,3
yrotate object MuzzleflashObject,90
fix object pivot MuzzleflashObject
set object ambient MuzzleflashObject,0
texture object MuzzleflashObject,MuzzleflashImage
set object transparency MuzzleflashObject,1
set object emissive MuzzleflashObject,rgb(255,220,0)

make object plain MuzzleflashObject2,6,3
yrotate object MuzzleflashObject2,90
zrotate object MuzzleflashObject2,90
fix object pivot MuzzleflashObject2
set object ambient MuzzleflashObject2,0
texture object MuzzleflashObject2,MuzzleflashImage
set object transparency MuzzleflashObject2,1
set object emissive MuzzleflashObject2,rgb(255,220,0)

create bitmap 1,1,1
cls rgb(150,0,0)
get image RedImage,0,0,1,1
delete bitmap 1

sprite RedSprite,0,0,RedImage
size sprite RedSprite,screen width(),screen height()
set sprite alpha RedSprite,0
RedAlpha=0

`Matrix Textures
create bitmap 1,1000,90

`1
cls rgb(0,120,0)
ink rgb(0,220,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c
ink rgb(0,180,0)
for c=1 to 2000
    dot rnd(64),rnd(64)
next c

`2
ink rgb(40,100,20)
box 65,1,128,64
ink rgb(40,200,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c
ink rgb(40,160,20)
for c=1 to 2000
    dot rnd(64)+65,rnd(64)
next c

`3
ink rgb(80,80,40)
box 129,1,192,64
ink rgb(80,180,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c
ink rgb(80,140,40)
for c=1 to 2000
    dot rnd(64)+129,rnd(64)
next c

get image TerrainTexture,1,1,256,64,0
save image "railtemp.dds",TerrainTexture
load image "railtemp.dds",TerrainTexture
delete file "railtemp.dds"

`Crosshairs
cls rgb(1,1,1)
ink rgb(200,200,200)
line 0,40,80,40
line 40,0,40,80
circle 40,40,20
get image CrosshairsImage,1,1,80,80,1
sprite CrosshairsSprite,0,0,CrosshairsImage
set sprite CrosshairsSprite,1,1
offset sprite CrosshairsSprite,40,40

delete bitmap 1

prepare matrix texture TerrainMatrix,TerrainTexture,4,1

for x=1 to 200
    for y=1 to 200
        set matrix tile TerrainMatrix,0,0,1
    next y
next x

ammo=array count(Enemies(0))*1.5


`================================================
`======= MAIN LOOOOOOOOOOP!!! ===================

`Start off at the first waypoint
camerax#=Waypoints(1).PosX
cameraz#=Waypoints(1).PosZ
cameraangx#=Waypoints(1).AngX
cameraangy#=Waypoints(1).AngY

ink rgb(255,255,255)

do

sprite CrosshairsSprite,mousex(),mousey(),CrosshairsImage

if lives>0
    position camera camerax#,cameraheight#+get ground height(TerrainMatrix,camerax#,cameraz#),cameraz#
    rotate camera cameraangx#,cameraangy#,0
endif

`Move
`If we are close to the next waypoint..
if abs(camerax#-Waypoints(currentwaypoint).PosX)<=findtolerance# and abs(cameraz#-Waypoints(currentwaypoint).PosZ)<=findtolerance#
    `And we're done delaying..
    if delaytimer=0
        delaytimer=timer()
        else
        if timer()-delaytimer>=Waypoints(currentwaypoint).Delay
            `And we haven't got to the end yet..
            if currentwaypoint<array count(Waypoints(0))
                `Target the next waypoint
                delaytimer=0
                cameraangy#=Waypoints(currentwaypoint).AngY
                `cameraangx#=Waypoints(currentwaypoint).AngX
                inc currentwaypoint
                time#=distance(currentwaypoint,camerax#,cameraz#)/movespeed#
                cameraspeedx#=(Waypoints(currentwaypoint).AngX-cameraangx#)/time#
                cameraspeedy#=(Waypoints(currentwaypoint).AngY-cameraangy#)/time#
                if cameraangx#>270 and Waypoints(currentwaypoint).AngX<90
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX+180)-(cameraangx#-180))/time#
                endif
                if cameraangy#>270 and Waypoints(currentwaypoint).AngY<90
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY+180)-(cameraangy#-180))/time#
                endif
                if cameraangx#<90 and Waypoints(currentwaypoint).AngX>270
                    cameraspeedx#=((Waypoints(currentwaypoint).AngX-180)-(cameraangx#+180))/time#
                endif
                if cameraangy#<90 and Waypoints(currentwaypoint).AngY>270
                    cameraspeedy#=((Waypoints(currentwaypoint).AngY-180)-(cameraangy#+180))/time#
                endif
                else
                if lives>0 then center text screen width()/2,screen height()/2-15,"Level Completed!"
            endif
        endif
    endif

    else

    `Calculate movement toward next waypoint
    inc camerax#,sin(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    inc cameraz#,cos(atanfull(Waypoints(currentwaypoint).PosX-camerax#,Waypoints(currentwaypoint).PosZ-cameraz#))*movespeed#
    
    `Rotate
    cameraangy#=wrapvalue(cameraangy#+cameraspeedy#)
    `cameraangx#=wrapvalue(cameraangx#+cameraspeedx#)

endif

`Shoot
if mouseclick()=1 and clicked=0
    clicked=1
    if ammo>0
        pick screen mousex(),mousey(),mapsize*5
        xangoff#=-15
        muzzlealpha=100
        dec ammo
        for c=1 to array count(Enemies(0))
            if Enemies(c).Killed=0
                temp=intersect object(Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#,get pick vector x()+camerax#,get pick vector y()+camera position y(),get pick vector z()+cameraZ#)
                if temp>0
                    Enemies(c).Killed=1
                endif
            endif
        next c
        else
        noammo=timer()+200
    endif
endif

`Update Enemies
for c=1 to array count(Enemies(0))
    `Kill
    if Enemies(c).Killed=1
        move object Enemies(c).ObjectNo,-1
        inc Enemies(c).FallSpeed
        move object down Enemies(c).ObjectNo,Enemies(c).FallSpeed*0.05
        
        else
        
        point object Enemies(c).ObjectNo,camerax#,camera position y(),cameraz#

        `Raise
        if Enemies(c).Raised=0
            if abs(camerax#-Enemies(c).TriggerPosX)<5 and abs(cameraz#-Enemies(c).TriggerPosZ)<5
                Enemies(c).Raised=-timer()
            endif
            else
            if Enemies(c).Raised>0
                if object position y(Enemies(c).ObjectNo)<Enemies(c).TargetHeight
                    move object up Enemies(c).ObjectNo,2
                endif
                if timer()-Enemies(c).Raised>=2200 and object in screen(Enemies(c).ObjectNo)
                    if lives>0 then RedAlpha=200
                    Enemies(c).Killed=1
                    dec Lives
                endif
                
                else
                
                if timer()+Enemies(c).Raised>Enemies(c).Delay
                    Enemies(c).Raised=timer()
                endif
            endif
        endif
    endif
next c

if mouseclick()=0 then clicked=0

dec RedAlpha,10
if RedAlpha<0 then RedAlpha=0
set sprite alpha RedSprite,RedAlpha

if lives>0
    temp$=""
    for c=1 to Ammo
        temp$=temp$+"|"
    next c
    text 10,10,"Ammo:  "+temp$
    temp$=""
    for c=1 to lives
        temp$=temp$+"|"
    next c
    text 10,30,"Lives: "+temp$
    
    if timer()-noammo<200 then center text screen width()/2,screen height()/2,"NO AMMO"
    
    `Orient gun with screen
    set object to camera orientation GunObject
    position object GunObject,camerax#,camera position y(),cameraz#
    move object GunObject,10
    move object right GunObject,4
    move object down GunObject,4
    yrotate object GunObject,object angle y(GunObject)+(mousex()-screen width()/2)/10
    xrotate object GunObject,object angle x(GunObject)+(mousey()-screen height()/2)/10+xangoff#
    set object to object orientation MuzzleflashObject,GunObject
    position object MuzzleflashObject,object position x(GunObject),object position y(GunObject),object position z(GunObject)
    move object MuzzleflashObject,7
    set object to object orientation MuzzleflashObject2,GunObject
    position object MuzzleflashObject2,object position x(GunObject),object position y(GunObject),object position z(GunObject)
    move object MuzzleflashObject2,7
    
    `Recoil control
    if xangoff#<0 then inc xangoff#,1
    
    `Muzzleflash
    if muzzlealpha>0 then dec muzzlealpha,5
    set alpha mapping on MuzzleflashObject,muzzlealpha
    set alpha mapping on MuzzleflashObject2,muzzlealpha
    
    else
    
    hide sprite CrosshairsSprite
    move object down GunObject,0.2
    
    dec fogdist,5
    if fogdist<1
        fogdist=1
        center text screen width()/2,screen height()/2,"Mission Failed."
        center text screen width()/2,screen height()/2+30,"Press escape to quit."
    endif
    inc fogred#,0.2
    if fogred#>50 then fogred#=50
    fog distance fogdist
    color backdrop rgb(int(fogred#),0,40)
    
endif

sync
loop

`======= ==== =============== ===================
`================================================


SetupWaypoints:

read waypointcount
DIM Waypoints(waypointcount) as WaypointType

for c=1 to waypointcount
    read Waypoints(c).PosX
    read Waypoints(c).PosZ
    read Waypoints(c).AngY
    read Waypoints(c).AngX
    Waypoints(c).AngY=wrapvalue(Waypoints(c).AngY)
    Waypoints(c).AngX=wrapvalue(Waypoints(c).AngX)
    read Waypoints(c).Delay
next c

return



SetupMap:

read maptiles
mapsize=maptiles*10

make matrix TerrainMatrix,mapsize,mapsize,maptiles,maptiles

for x=1 to maptiles
    for z=1 to maptiles
        read temp
        set matrix height TerrainMatrix,x,z,temp
    next z
next x
    

return



SetupEnemies:

read enemycount
DIM Enemies(enemycount) as EnemyType

for c=1 to enemycount
    Enemies(c).ObjectNo=FreeObject()
    read Enemies(c).PosX
    read Enemies(c).PosZ
    read Enemies(c).TriggerPosX
    read Enemies(c).TriggerPosZ
    read Enemies(c).Delay
    
    make object box Enemies(c).ObjectNo,10,30,5
    Enemies(c).TargetHeight=get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15
    position object Enemies(c).ObjectNo,Enemies(c).PosX,get ground height(TerrainMatrix,Enemies(c).PosX,Enemies(c).PosZ)+15-50,Enemies(c).PosZ
next c

return



function distance(waypoint,x#,z#)
temp#=SQRT((Waypoints(waypoint).PosX-x#)*(Waypoints(waypoint).PosX-x#)+(Waypoints(waypoint).PosZ-z#)*(Waypoints(waypoint).PosZ-z#))
endfunction temp#

function FreeObject()
temp=objects
repeat
inc temp
until object exist(temp)=0
endfunction temp


`Level data
data 20
data 979.404846191,20.2777328491,-49,0,0
data 883.822143555,96.2560348511,-72.5,0,3600
data 879.359863281,184.003417969,-28,0,0
data 683.226196289,275.361816406,29.5,0,0
data 551.063964844,252.686706543,-28,0,0
data 522.759155273,255.999176025,-78,0,0
data 349.502655029,277.063171387,-23,0,8000
data 308.799468994,282.014282227,0,0,0
data 308.298706055,371.771179199,23,0,0
data 369.83807373,493.201416016,-18,0,0
data 341.259216309,593.693115234,-44.5,0,0
data 316.309509277,626.412963867,-112.5,0,0
data 245.98197937,597.076660156,-134.5,0,0
data 165.750213623,511.296264648,-99.5,0,0
data 92.3321838379,554.863037109,16,0,0
data 216.179107666,777.401306152,53,0,0
data 423.805938721,824.921936035,12,0,0
data 498.935913086,827.347351074,0,0,0
data 525.011352539,817.908752441,147,0,0
data 818.587036133,770.512023926,94.5,0,0

data 100
data 0,0,0.5,1,1,1,1.5,1,0.5,0.5,0.5,1,1,1,1,1,0,0,0,0,0,0,0,1.5,5.5,8.5,9.5,21,26,30.5,37.5,43,36.5,32,23.5,13.5,7,2,0,0,0.5,1,3.5,6,11,20.5,20.5,23,15.5,14.5,8,5.5,7,12,12,9.5,5.5,5,8.5,8,10.5,7.5,6.5,13,13.5,20,10.5,12,8,7,3.5,3,3.5,3.5,3.5,3.5,0.5,0,0,2,3.5,9.5,13.5,18,16,21.5,22.5,34,38.5,41,34,27,11.5,2.5,0,0,0,0,0,0
data 0,0,0.5,1,1,1,1.5,2,1.5,1.5,2,3,2,2,2,1.5,0,0,0,0,0,5,10.5,15,20.5,27,25,37,40,44.5,48,51.5,39,33.5,23.5,13.5,7,2,0,2,3,4.5,6.5,10,13,18.5,15.5,17.5,9.5,10,5,4.5,4,6.5,7,6.5,4,4,8.5,10.5,15.5,14,11,9.5,8,14.5,16,19.5,15.5,13,8,9,7,10,11,12,6.5,4,0,2,3.5,9.5,13.5,18.5,17,24,25,42,47.5,51,46,39,18,7.5,3.5,0,0,0,0,0
data 0,0,0.5,1,1,1,2,2.5,2,2.5,3.5,4,4,4,3.5,2.5,1,0,0,1.5,5,14.5,22,31,39.5,44,39.5,49.5,48,48,50,51.5,39,33.5,23.5,13.5,7,2,0,3,11,14,18.5,14.5,12.5,5.5,1.5,0.5,0.5,1.5,2.5,3,2.5,1.5,0.5,0,0,0,3.5,6,12,14,15.5,13,8,10.5,12.5,20.5,22.5,25.5,18.5,15,11,15,19,21.5,14.5,9.5,2.5,0.5,0.5,3,9,14,14,20,25,43,55,60,58.5,52,30,13,7.5,0.5,4,4,4,0
data 0,0,1.5,2,2,2,3,3,2.5,4.5,7,7.5,7,7,5,2.5,1.5,3,5,10,16.5,28.5,36,43.5,50,51.5,44,51.5,49.5,47,46.5,45,29,21.5,12.5,5,1.5,0.5,1.5,6,13,14.5,15.5,9.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,3.5,5,8.5,10.5,13.5,15,14,9.5,10,12.5,23,29.5,26,23,16,18.5,20.5,26.5,22.5,17,6,2.5,1.5,2,8,13,12,11.5,16,28.5,44,50.5,59,57,41.5,21.5,14.5,4.5,5.5,4.5,4.5,0
data 0.5,1,2.5,4,4,3.5,4,4,3.5,5.5,8,9,9,10,9,8.5,7.5,8.5,13,20,26,41,48.5,52,55.5,55.5,43.5,50.5,45,38,33.5,30,13.5,9,4,0,0,1,2.5,5,11,11,12.5,5.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,8,13,17,16.5,14.5,11.5,19.5,26,27.5,33,29.5,28.5,22.5,26.5,26,21.5,11,5,3.5,3,6,9,8,7.5,10,18,33,43,53.5,58.5,54.5,39,28.5,16.5,15,8.5,7,0
data 0.5,1,2,6.5,6.5,6,6,6.5,4.5,6.5,9.5,10,10,10.5,11,10,10,14.5,24.5,30.5,36.5,51.5,55.5,51,50,47,35,31,23.5,17.5,12.5,10.5,5,4,0.5,0,0,5.5,11,12.5,7,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,7,12,20,21.5,18,16.5,23,24.5,33,28,28.5,18.5,22,24,23.5,17.5,11.5,8,5,3,2.5,2.5,4,3,9,19.5,28,44.5,55.5,61,56,47.5,30,27,15,9,0
data 1,1.5,2.5,7,8,7,7,6.5,5,6.5,9,10,12.5,14,14.5,14,18.5,23.5,32.5,38,44,49,45.5,37.5,35,28.5,19.5,15,9.5,3.5,2,3.5,4,4.5,1.5,1,2,7,11.5,11.5,7,4,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,4,7,16.5,21.5,21.5,19,21.5,28,33.5,32.5,26,19.5,17,24.5,26,27,20.5,14.5,6.5,4,2,1,1,0.5,1,10.5,18,32.5,50.5,62,63,60,46,36,23.5,13,0
data 1,1.5,2.5,7,8,9,8.5,8,7.5,12,13,14.5,16.5,17,16.5,18,23.5,31,40,42,42,41.5,34,21.5,16,11.5,5,2.5,1.5,0,0,4.5,7,8,4.5,5,8.5,13.5,14.5,15,10,7.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1,2,2,8,12.5,17,16.5,20,31.5,29.5,27.5,19,23,20.5,22,23,28.5,27,23.5,13,7,3,2,1.5,1.5,1,3,9,20,37.5,57,64.5,71,62,49,29.5,19,0
data 1,1.5,1.5,6,7,8,8,8,9,13.5,14,17,25.5,28,30,34,37,36,39.5,35.5,30.5,27.5,20,9,5.5,4,0.5,0.5,0.5,1.5,2.5,8.5,10.5,11.5,8,12,16.5,17.5,12,14.5,11.5,11.5,3.5,4,7,6,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1.5,2.5,5.5,7.5,10.5,13,31.5,29,30,14.5,24.5,25,28,24,27,25,28,24,18.5,10,3.5,2.5,1,1,0,4.5,12.5,27,47,58,69,67,57.5,37.5,26.5,0
data 0.5,1.5,1.5,5,6.5,9,9.5,15.5,17,23.5,24.5,28,31.5,32.5,33.5,36.5,37.5,35.5,36.5,28,21,15,7.5,0.5,0,0,0,0.5,1,2.5,3,11.5,13.5,14,9,13,18.5,19.5,16,20,15,11.5,2.5,2.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,6,9,22.5,22,22.5,11.5,20,24.5,29.5,27,27,26.5,29,29,27.5,18.5,8.5,4,2.5,1,0,1,7,16.5,31,42,57,61.5,55,40.5,29.5,0
data 0.5,1.5,2,3.5,5,7.5,8,16.5,22,30.5,33.5,39.5,40,40.5,38,39,37.5,32,25,17.5,10.5,4.5,0.5,0,0,5,6.5,8,3.5,4,10,19,18.5,14.5,12,20.5,23.5,23.5,21.5,23,20,15.5,12.5,12.5,10.5,5.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2.5,6,16,15,17,13,18.5,26,33.5,42.5,37,31.5,28,30.5,31,27,17.5,11.5,8.5,6.5,2,0,0,7,16,22.5,39.5,52,51,42,35.5,0
data 0,1,1.5,4,4.5,7.5,8,19,24.5,36,42,48.5,45,43,39,38.5,31.5,25.5,19.5,11.5,3,2,0,0,0,5,6.5,8.5,3.5,4,9,18,18.5,14.5,12.5,17,21.5,24,31,33.5,33,27,25,22,18.5,13,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,6.5,9,11.5,15,20.5,23.5,35.5,33,27,23,25.5,28,25.5,22,16.5,14.5,10.5,5.5,3,1.5,0,8.5,10.5,24,43.5,57,48.5,46.5,0
data 0,1,2,4.5,5,7.5,12.5,23,31,41.5,48,51,47,42.5,37.5,34.5,25.5,18,12,6,0,0,0,0,0,9.5,13.5,15.5,6.5,4,9,13.5,17.5,19.5,22,24.5,25,29,34.5,33,31.5,27,28,28.5,26.5,23,14.5,7.5,2,0,0,0,0,0.5,1,1.5,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,4,4,5,9.5,12.5,17.5,14.5,22,24,27,30.5,30.5,32,33,28.5,26,24,21.5,15,6.5,4,1.5,1.5,3.5,9.5,31,50,48.5,46.5,0
data 0,1,2.5,5.5,6.5,9,17,28.5,35,46,53,55,43.5,37,29.5,24,13,11.5,8.5,4,0,0,0,0,0,5,8.5,11,7.5,6,4.5,12,19.5,26.5,26.5,22,21.5,22,28.5,33.5,34,31,29,27,25,26,22,16,4.5,0,0,0,5,5.5,6,3,5,4.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,3.5,5,4,5,8,14,28,31,37,37.5,34,28.5,27,24.5,19,9.5,5.5,2.5,1,1.5,4.5,25,52.5,52.5,51,0
data 0,0,5.5,10.5,11.5,15.5,24,27,32.5,41.5,47,47.5,39,31.5,24,16,7,7,4,1.5,0,0,0,0,2,7,10.5,14.5,17,15,13.5,17,24.5,32.5,29.5,28,23,21,18,18,17.5,16.5,16.5,17.5,18,20.5,19,15,5,0,0,0,6,9,10.5,10,11.5,10.5,5,0.5,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,5,10,19.5,25.5,33.5,38.5,37,31.5,30,28.5,23,13.5,6,2.5,1,0,2.5,18.5,52.5,52.5,52.5,0
data 0,2.5,9.5,14.5,15.5,22.5,31.5,31.5,33.5,41.5,44,39.5,32.5,26,20.5,12.5,5.5,5.5,5,1.5,0,0,1,2,6,8,10,13,21.5,21,19,20.5,23.5,23.5,18,18.5,15.5,12,8.5,11,13,12.5,11,8.5,8,10.5,11.5,10,3,0,0,0,6,8.5,9.5,8.5,13.5,15,10.5,3,3.5,4,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,24.5,28,42.5,33.5,33,21,21.5,20,10.5,4.5,1.5,0.5,1,14.5,52,52,52,0
data 0.5,6.5,17,22.5,26.5,36,42,36,36,41.5,38,32.5,28,23,16.5,10,5,5,4.5,1.5,3,7.5,9.5,11.5,16.5,19,17,19,26,24.5,21,14.5,12.5,11.5,7,9.5,7.5,8,5,3,2,1,0,0,1,2,2.5,1.5,0.5,0,0,0,1,3.5,4.5,9,15.5,18.5,14.5,6.5,5.5,5.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,11,16.5,37.5,34.5,36,24.5,26.5,23.5,14,7,2.5,0.5,0.5,7,44.5,44.5,44.5,0
data 2.5,11.5,25,32,38,44,44.5,37,33.5,34.5,31.5,27.5,21.5,19,15,9.5,5.5,5.5,4.5,1.5,3.5,11.5,15.5,21.5,27.5,35.5,30.5,34.5,39.5,40,30.5,24.5,16,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,15,21,19.5,12.5,10,7,6,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,8.5,29,30,34.5,24,30.5,26,20,13.5,8,2.5,1,3.5,42,42,42,0
data 10,24,38,45.5,47,51.5,44,34.5,28.5,27,22.5,17.5,13,10.5,8,4.5,6,8.5,8,7,9,17,20.5,26.5,38.5,48,43.5,46.5,50.5,44,32,25.5,16.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,12,17.5,16.5,16,15,12,8.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,13,23,25,28.5,28,25,20.5,14.5,8,3.5,3,35.5,33,33,0
data 19.5,33.5,43.5,45,43.5,44,36,29,23.5,20.5,17,12.5,9.5,9.5,8,6.5,10,13.5,13,12,14,24.5,28,33.5,44,53,44,45,45.5,38,26,19.5,11.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,6,10,10.5,16.5,18.5,19,14,9,4,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,13.5,27,29,27.5,25.5,28.5,28.5,22,14,9.5,8,35.5,31,29.5,0
data 22.5,34,41.5,40.5,38,35,26.5,20,16,12,9,7.5,7.5,8,8.5,9.5,13.5,18.5,18.5,21,25.5,35.5,35,41,45,50,40,41.5,39,34.5,24,18.5,11,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,10,14.5,21,17,14,6,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,17,33,34,30,24.5,29,31,27.5,19,16,14.5,32.5,25,22,0
data 24.5,32.5,36.5,32,26,20.5,15,12,9.5,5.5,5.5,5.5,5.5,6.5,10,12,13.5,18.5,18,23,25,30.5,29,34,34.5,39,33,34.5,33,32,23.5,20,24.5,19,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0.5,4,8,17.5,19,20,10.5,6.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,14.5,31.5,33,31,25.5,31,33,33,25.5,20,16,27,19,15.5,0
data 27.5,34,30,23.5,15.5,12,6,5,2.5,0.5,0.5,3,5.5,8.5,12.5,15.5,16.5,20.5,19.5,24,24.5,26.5,23,24,23.5,22.5,19.5,18,15.5,12.5,10,7,16.5,16,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,2.5,9,16,20,19,14,7.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,15.5,18,18,19,24,28.5,33.5,33,26.5,20,22.5,15,10.5,0
data 25,28,20.5,12,8,5,2,1.5,1.5,0,0,5,7.5,13,22,25.5,23,24.5,21,19.5,19,21,18,19,12.5,9.5,5,4,1,4.5,4.5,4.5,15.5,15.5,11,11,11,11,11,11,11,12,12,12,11.5,11.5,11.5,11,11,11,0,0,0,0,0,0,0,0,0,0,0,3.5,10.5,17,21,17,11.5,4.5,5.5,4.5,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,4,6,7,12.5,17,27,28.5,32,28,20.5,17,12.5,8,0
data 19.5,22.5,13,8.5,7,3.5,0.5,0,0,0,0,7,10,16,27.5,30.5,24,24,19,14.5,14,13.5,10.5,12,5,2.5,2.5,2.5,0,4,4,4,4,4,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,6.5,12.5,22.5,20,15,10.5,14.5,13.5,8.5,8.5,8.5,8.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6.5,10.5,24.5,31.5,35.5,34.5,29,19.5,10.5,5.5,0
data 18,21,11.5,8,7,4,6,5.5,5.5,0,0,13.5,16,21.5,31,34,20.5,18,12.5,5.5,2.5,2.5,2.5,2.5,23,23,23,23,23,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,0,0,0,0,0,0,3.5,7.5,16.5,16.5,15,14,20.5,18,13,12.5,12.5,12.5,9.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,8.5,19,25.5,30,34.5,32,23,10,6,0
data 23,26,11.5,7.5,7,5,8,7.5,6.5,0,0,11.5,14,19,28,30,18.5,16,11,2,0,0,0,0,22,22,22,22,22,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,2.5,5.5,17,19.5,19,19,26,24,17.5,16,15.5,15.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,3,12.5,19.5,30.5,36.5,37,27,15.5,6,0
data 28,31.5,19.5,11,7.5,10,12.5,12,6.5,0,0,11,12.5,16.5,25,26,15,13.5,9.5,1,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,36.5,36.5,36.5,0,0,41,41,41,0,0,0,0,1.5,11.5,15.5,17,19.5,27.5,25,20,18.5,18,17.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,9.5,14,27.5,35,37.5,29.5,20,8,0
data 27,29,18,9,6,11,10.5,10.5,2.5,0.5,0.5,9.5,11,12.5,15.5,15.5,6.5,5,3.5,0,0,0,0,0,23,23,23,23,23,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,41,41,41,0,0,0,0,1,7,11.5,13,23,30,28,22,22,21.5,20.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,5,11.5,23.5,36,40,37.5,30,18.5,0
data 27,29,19,9.5,6,12.5,11,11.5,2,1,1,8,8.5,8.5,8,8,1,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,6.5,13,26.5,32,28.5,25.5,29.5,29,24.5,10.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,5,15.5,27.5,33.5,43,40,28.5,0
data 36.5,38.5,24.5,12.5,5.5,8,7,7.5,2,1.5,1.5,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22.5,22.5,22.5,22.5,22.5,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,4,16.5,30,32.5,27.5,26.5,30.5,30,21.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,2,11.5,24.5,37.5,46.5,45.5,35.5,0
data 34,38.5,28.5,19,10,11.5,8,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,22,22,22,22,22,18.5,14.5,9.5,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,3.5,17,32.5,32,28,28,31,30,20,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,1.5,6,19.5,32,41.5,39.5,36,0
data 31.5,34.5,23.5,18,10,10.5,8.5,8.5,4.5,3.5,2,1,0.5,0.5,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,10.5,0,0,0,0,0,0,0,0,0,1,17,31,32,30,29,29,28,14,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,15.5,30,40,36,34.5,0
data 37.5,40.5,29,18,10,11,9,7.5,4,3,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,18.5,29.5,29.5,29.5,29.5,29.5,26,11,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,7.5,22,30,27.5,24.5,0
data 36.5,40,29.5,16.5,12,14.5,12,6.5,3.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,21.5,21.5,21.5,21.5,21.5,0,0,0,0,0,0,1,1,1.5,2,2,1,1,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,7,22.5,34,34.5,34.5,34.5,33.5,27.5,12,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,16,17.5,17.5,14.5,0
data 29.5,33,26.5,14,14.5,16.5,13.5,6.5,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,21,21,21,21,21,0,0,0,0,0,0,1,1,1.5,2,2.5,1.5,2.5,2,1.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,9,25.5,36,37.5,37.5,37.5,36,28.5,12,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,2.5,4,2.5,0
data 27,28.5,25,11.5,14,15.5,14,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,20,20,20,20,0,0,0,2,2.5,2.5,3.5,3.5,2,2,2.5,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,4,12,27.5,38,40,40,39.5,36,28,12.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,0
data 26,27.5,27,11,12.5,13.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,19.5,19.5,19.5,19.5,19.5,7,13,13,15,15.5,8.5,4,4,2.5,2.5,3,1.5,2.5,2.5,2,1.5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,15.5,28,37.5,40,40,38.5,32.5,24.5,12,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,28,29,14,12.5,10,7.5,0,0,0,0,0,3,4.5,4.5,4.5,4.5,1.5,0,0,0,0,0,0,18.5,18.5,18.5,18.5,18.5,7,13,14.5,18,19,12,6.5,5.5,3.5,3,4,3.5,4,3,3.5,2.5,2.5,1.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,4,10.5,20,30.5,37.5,40,38,36,29.5,20,9.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,35,34.5,17.5,12,8,6,0,0,0,0,0,5,6.5,6.5,6.5,6.5,1.5,0,0,0,0,0,0,18,18,18,18,18,7,13,14.5,21.5,24.5,25,19.5,18.5,14.5,11.5,5,4.5,5.5,3,6.5,5.5,5.5,4,3.5,0,0,0,0,0,0,0,0,0,0,0,1.5,3,4,8.5,10.5,18,28.5,33,37.5,39,34.5,32.5,25,14.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 32,35.5,34,19,11.5,7,3.5,0,0,0,0.5,2.5,7.5,9,9,8.5,6.5,1.5,0,0,0,0,0,0,17,17,17,17,17,7,13,14.5,23.5,27,28.5,26,26,20.5,18.5,10.5,7,6,3,9,11,11,10.5,10,2.5,0,0,0,0,0,0,0,0,0,0.5,2.5,4,6,11.5,15,23,30.5,33.5,38,38.5,33,29.5,21.5,13.5,8.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 34.5,37.5,31.5,16.5,10,4.5,1.5,0,0,0,3,6,11.5,13.5,15.5,12.5,9.5,4,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,7,13,14.5,21.5,24.5,26,23.5,25,21.5,20,12,8.5,6,2.5,8.5,10.5,10.5,10,10,2.5,0,0,0,0,0,0,0,0,1,2.5,4.5,8,12,20,25,31,35,37.5,37.5,35.5,27.5,22.5,15.5,10,5.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 31,33.5,25,13,8.5,3.5,1,0,0,2,7,10,15.5,17.5,17.5,12.5,9.5,4,2,0,0,0,0,0,17,17,17,17,17,0,0,1.5,8.5,11.5,20,23,29.5,32,34,26.5,23.5,14.5,5,7.5,9.5,9.5,10.5,10.5,3,0.5,0.5,1,1.5,4.5,5.5,5.5,7,8,8.5,11.5,15.5,22,32,35.5,41,43.5,43.5,39,32.5,22.5,17.5,11,7,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 24,25.5,15,9,6.5,2.5,1,0,0,6,11,14,16.5,17,13,8,5,2.5,2,0,0,0,0,0,16.5,16.5,16.5,16.5,16.5,0,0,0,5.5,8,16.5,19.5,27,31.5,39,33.5,31.5,23,13,9.5,9.5,10,14,15.5,10,8,8.5,9,9,11,14,14,16,18.5,22.5,25,27,32,41.5,43.5,45,43.5,41.5,36,27,16.5,12,7.5,4,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 15.5,17,6,4.5,4,1.5,0,0,1.5,10.5,15.5,18.5,19,18,11,6,3,2.5,2,0,0,0,0,0,15,15,15,15,15,0,0,0,2,2.5,3.5,6.5,14,20,31.5,35,36,29,21,13,11.5,13.5,24.5,29,29.5,30.5,33,34,33,29.5,33,32,31.5,33.5,37,36.5,38.5,40,47,47.5,45,43.5,39.5,31,21.5,11,7.5,5.5,2,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 16,16,3,1.5,1,0,0,0,1.5,14,18.5,19.5,20,19,8.5,4,3,2.5,2,0,0,0,0,0,12,12,12,12,12,0,0,0,0,0,0,0,6.5,14,26.5,31,36.5,32.5,25,12.5,8.5,13,23,27.5,33,37.5,40,45,42,39.5,45.5,46,46,49,50,49,49,48,50.5,49,45,40,34.5,24.5,15,6.5,3.5,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 18.5,19,2.5,2,1.5,0,0,1.5,7,19.5,21.5,21.5,20,14.5,2,0,0,0,0,0,0,0,0,0,8.5,8.5,8.5,8.5,8.5,0,0,0,0,0,0,0,5,12.5,25,31,37.5,36.5,36,26,20.5,24,31.5,29,32,36.5,43.5,51,50.5,51,63,64.5,65.5,65.5,65.5,60.5,56,48,47,44.5,38,31,26.5,18,9.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 27,24,4,3.5,3,1,0,4,11,21.5,21.5,21.5,17.5,10.5,0,0,0,0,0,0,0,0,0,0,6,6,6,6,6,0,0,0,0,0,0,0,0,1.5,10.5,16,22.5,28,33,27.5,22.5,26,32,28.5,30.5,35,42,50.5,53.5,54,66,67.5,68.5,68.5,67,59.5,55,46,44,40,33,26.5,22.5,14,6.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 25.5,22,6,4.5,3,1,0,6,15.5,22,22,22,16,6.5,0,0,0,0,0,0,0,0,0,0,2.5,2.5,2.5,2.5,2.5,0,0,0,0,0,0,0,0,0,4,7,12.5,18,24.5,24,23,33.5,39.5,36,37,40,41,49.5,52.5,54,66,67.5,68.5,67.5,65,57.5,51,40,35.5,30,24,18.5,14.5,8,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,36,36,36,36,0,0,0
data 20.5,19,12.5,10,4,2,0,7.5,15.5,19,19,19,11.5,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3.5,6,9.5,18.5,20.5,20.5,37,45,39,39.5,42.5,40.5,48.5,51,49.5,60.5,62,61.5,60.5,59,50.5,43.5,30,23.5,19.5,13.5,8,5.5,2.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 19,19.5,18,12.5,4,2,1,7.5,15.5,15.5,15.5,15.5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,4,13.5,18,18,36.5,46,38,36,38.5,34,39.5,42.5,43,52,53.5,52.5,50,45,37,32,20,14,11,7,5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,36,36,36,0,0,0
data 22.5,24,27.5,23,10,5,2.5,6,10,10,10,10,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,3,5.5,22,28,28,24.5,23,15,18,18.5,24.5,33,35.5,37,35,30.5,25.5,20.5,12,8.5,6,3.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,36,36,36,0,0,0
data 21,18,23,23,16,11,5.5,6.5,8,9,7.5,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,4,18.5,22.5,23,20,17.5,7.5,7.5,9.5,14.5,20.5,21.5,22.5,19.5,17.5,13,10,4,3,2,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0
data 26,11,17.5,33.5,29.5,28,19,18,13.5,5,3.5,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,0.5,1.5,0,11.5,16,17.5,15.5,17,5.5,3.5,2,3,3,3,3,3,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,21.5,25.5,37,28.5,30,22,30,31,22.5,13,6.5,2.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2,-1.5,-6.5,3,10.5,15.5,14,19,9.5,3.5,-1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 33,24.5,28,38.5,30.5,34.5,28.5,33,34,25.5,17,9.5,8,6.5,4.5,7,8,8,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1.5,-2.5,-2.5,-6.5,2.5,7,14.5,14.5,18.5,9.5,6.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24,28.5,30.5,29.5,20.5,21,17,22.5,27,33,25.5,19,16,18.5,15.5,14,10.5,10.5,4.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-0.5,-1,-6,4,7,13.5,15,20,10,7,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10.5,16,17,20.5,21.5,21,13.5,10.5,12,17.5,23,24.5,31.5,36,31.5,27,18,18,13,10.5,6,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-5,3,7.5,16.5,18,23,15,10.5,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,15.5,13.5,14.5,13.5,11,4,4.5,13,19,26.5,28.5,32.5,35,35.5,28,18,10,13.5,22.5,19,11,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2.5,2.5,7,16,19,21.5,16.5,12,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 9.5,17.5,14,13.5,12,8,1,1.5,10,11,17.5,18.5,24.5,23,24.5,21,15.5,7.5,11,21,20.5,13.5,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,8.5,10,19.5,25,22,17.5,16,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22.5,30.5,16,14,11,8,0,0,6,7.5,9,8,6.5,5,8,8,8,0,2.5,12,14.5,13,3.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,6,9.5,18,26.5,30.5,27.5,24,17.5,9,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,30.5,17,15.5,8,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,2.5,2.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,6.5,13,21,26,27.5,24.5,20.5,12.5,4.5,2.5,2.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 22,24,11,9.5,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,12.5,21,27.5,29.5,31,29,20.5,11,8.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,21.5,9,7.5,0.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3.5,7,13,20.5,27,29,33.5,31,23.5,14,11.5,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,20.5,8.5,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,12,17.5,26,29,33,30,24.5,16,13,3.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,0,0,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 19,19,17.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,15.5,18,20.5,26,31.5,22,19.5,17,11.5,1.5,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5.5,16.5,18.5,24,29,33.5,23.5,21.5,16,11,1,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,13.5,12,0,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,8,18.5,19.5,25.5,27.5,27,16.5,15.5,9.5,5,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,41.5,41.5,42,42,42,41.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 13.5,15,13.5,1.5,0,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,9,18,21,28.5,30,26,17,14,6.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21.5,24.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,34,34,34,45,45,45,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,8.5,15.5,21,28.5,29,24.5,17.5,12,4.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,17.5,13,4,2,1,2,3,3,3.5,3,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4.5,10.5,13.5,19.5,27,24,18,15,9,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23.5,26.5,19.5,6,6.5,3.5,5.5,6,7.5,7,4.5,3,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,8,16.5,21.5,28,31,23.5,15,10,3.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 23,26.5,22.5,14,15,8.5,7,7.5,6,7.5,4,5.5,1.5,34,34,34,34,34,34,34,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,6,15.5,20.5,27,28,22.5,13,8,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 24.5,29.5,24,18.5,17,8,5,4.5,4,8,5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,7.5,17,22,26,24.5,18.5,9,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 20.5,30.5,30,26.5,17.5,5.5,1.5,1.5,-0.5,4.5,3.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,10.5,18.5,27,32,27,22.5,14.5,6,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,35.5,27,10,0.5,0,0,1,4,4,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,8.5,14.5,21.5,28.5,31,24,18,11,4,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,34.5,36.5,24,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,1.5,1.5,0,0,0,0,0,0,0,0,0,1,2.5,5,14,19.5,22.5,24,22,13,7.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 21,40,38,21.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,4.5,4.5,1.5,0,0,0,0,0,0,0,0.5,6.5,9.5,13.5,22.5,27.5,25,23,19,10,4.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 25.5,38,31,13.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,5.5,10.5,9,6.5,3,2.5,2.5,1,0,4,5.5,16,21,25,30,33,25,20,16,7,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 23,34,26.5,14,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,9,11,11.5,8,6.5,3.5,2,0,4,8,19,24,28,27,41.5,30.5,25.5,25,22,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 21,27.5,16.5,9.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,6,11,15,16,14,9,4,10.5,16.5,22,33,37,30.5,26,37.5,26.5,21.5,22,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 19,27.5,21.5,11.5,3,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3.5,9,16,16,15.5,19.5,29,36,42,47,39.5,28,21,32,22,18.5,20.5,20.5,20.5,21.5,21.5,21.5,20.5,20.5,20.5,21.5,21.5,21.5,21,21,21,21,21,21,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,23.5,23.5,23.5,23,23,23,23,23,23,22,22,0
data 23.5,33,32,14,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2.5,6,21,26,27.5,23.5,29,36,41.5,41.5,32.5,19.5,12.5,7,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,41,41,41,41,41,0,0,0,0,0,0,0,0,0,0,0,0,0,41.5,41.5,41.5,41.5,41.5,0,0,0,0,0,0,0,0,0,0,0,0
data 17.5,26,30.5,13,13,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,3,16.5,28,31,28.5,29,32,36.5,32,21,8,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 10,18,27,17,17.5,8.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,2.5,15.5,32.5,36,34,29,32,34,29,18,5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 6,20.5,30,28.5,22.5,12.5,8.5,5.5,5.5,4.5,4.5,4.5,5.5,4.5,4.5,4.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7.5,27,31.5,34.5,18.5,19.5,20,15,5,1.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11,25,33.5,31,19,10.5,4,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,25.5,27,20,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 16,29,30.5,29,18.5,14.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.5,7,23,25.5,19.5,3.5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 12.5,18.5,20,18.5,15,11.5,4.5,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,15.5,18.5,17,10.5,5,0.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 7,12.5,18,12,6.5,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 8.5,13.5,12.5,6,1,0,0,0,0,0,5.5,5.5,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 18.5,20,9.5,1.5,0,0,0,0,4.5,7.5,16,11.5,8.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,11,27.5,29,29,29,18,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 14.5,14.5,4,0,0,0,0,3.5,10.5,16,21.5,14.5,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1.5,4,7.5,7,11,19,30,27.5,16,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 11.5,11.5,3,0,0,0,0.5,9,16,28.5,25,18,5,0,2,5.5,5.5,3.5,0,0,0,0,0,0,0,0,0,3,6.5,6.5,5.5,9.5,13,14.5,17.5,29,36,31,16,5.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,7.5,16,20,24.5,22.5,17.5,6.5,0,2.5,8.5,11,9.5,5,6,5.5,4,0.5,0,0,0,1.5,11,17,23.5,19.5,24,22.5,24.5,25.5,37.5,43,41,24,11,1.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,2.5,6.5,13,20,18.5,20.5,18,19.5,11,9.5,11.5,21.5,20,18.5,12.5,12,8.5,6,6.5,6,6,5.5,11.5,22.5,26.5,29,23,25.5,24,25.5,24.5,35,36.5,35,19.5,10,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,15.5,21.5,20.5,22,19,18.5,17,14,9.5,9.5,16,15,16.5,16.5,19.5,18,17,18,18,15.5,11,14.5,22,22,23.5,20,24.5,23,23,18.5,22,22.5,23.5,15,7.5,2.5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,11.5,14.5,14.5,13.5,13.5,15.5,10.5,11.5,9.5,9.5,9,13,9.5,10.5,11.5,13.5,12.5,13,17.5,18,15.5,11,13,14,11.5,6.5,6,10,12.5,12,7,8,7.5,7,3.5,1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

data 20
data 652.818603516,127.62336731,886.442077637,93.8065414429,0
data 701.302856445,60.1504554749,888.545776367,92.1973342896,1000
data 727.378479004,217.510528564,887.766723633,93.0390853882,1500
data 720.602294922,162.103683472,888.257751465,93.0585021973,2000
data 772.95501709,322.116027832,855.384399414,195.611343384,0
data 555.351745605,502.659912109,656.605529785,272.158203125,0
data 544.091064453,305.63470459,573.514648438,258.233306885,0
data 229.152069092,450.426361084,356.586029053,273.939605713,0
data 293.673461914,510.156341553,362.450744629,273.681213379,2000
data 191.553955078,588.027709961,360.59753418,273.946594238,3000
data 272.077087402,444.820037842,355.782775879,276.342315674,4500
data 291.803894043,462.947387695,356.315948486,275.276000977,6000
data 84.0458374023,484.882476807,239.464660645,590.658935547,0
data 666.872436523,540.072631836,676.795898438,275.788635254,0
data 330.456970215,893.265258789,169.508117676,694.465759277,0
data 358.5496521,886.873291016,172.324493408,702.044433594,0
data 358.415283203,911.184265137,179.547698975,714.323364258,0
data 607.806335449,704.950134277,525.992980957,817.463867188,0
data 699.457214355,736.278198242,571.587280273,809.273193359,0
data 827.184265137,695.248168945,553.131652832,812.39465332,0

Back to top

Profile PM Email Website

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 17th May 2009 19:48 Edited at: 17th May 2009 20:00

Thats much better Bmac !
I died first time =)

The only slight crit now, is that theyre arent enough enemies, but thats my opinion. Maybe itll be different for someone else...

Heres my done entry. Ive added optional physics, auto or single shot firing, and the collision works as well as its gonna =)
Its just a simple, shoot-them-all-as-fast-as-you-can game. Enjoy!

`for targets, gonna have 30 secs to hit as many as possible
`3 rows, close med and far
`10 on each row pop up one by 1, 1 each second
`then if pass, have 30 secs to make the 1km shot

`setup
set display mode 1024,768,32
sync on : sync rate 50
autocam off : hide mouse
randomize 1

center text 512,378,"Shoot the targets as fast as possible"
center text 512,388,"Press any key to start"
sync : sync : sync
wait key

type bullet
   damage as integer       `percent of health
   speed as integer        `metres per sec, bout 500 av for assault
   mag_size as integer     `how many bullets
endtype

type gun
   name as string
   number as integer       `weapon slot
   weight as integer       `in kilos, bout 10-15 av assault
   size as integer         `1 = small(pistol/grenade) 2 = med(assault) 3 = large(sniper) 4 = huge(rpg)
   ammo as bullet
   reload as integer       `in millisecs
   zoom as integer         `mag level
   single_shot as boolean  `single or auto
   accuracy as integer     `out of ten. 10 = best
endtype

type weather
   state as boolean
   angle as float
   speed as float
endtype

rifle as gun
rifle.name = "m416"

rain as weather
wind as weather

set_gun_vars()
make_objects()
set_effects()

mag_count = 0
rifle.zoom = 0
wind.state = 0
phys = 0
time_start = timer()

dim bullets(rifle.ammo.mag_size,4)
dim hide(31)

for h = 1 to 31
   hide(h) = 0
next h

position mouse 512,378
position camera 498,12,6
set camera range 1,2000

set camera fov 100

do

`move crosshairs
paste image 3,462,332,1

`control viewing
if rifle.zoom = 0
   yrotate camera camera angle y() + mousemovex()`-(512 - mousex())
   xrotate camera camera angle x() + mousemovey()`-(378 - mousey())
else
   yrotate camera camera angle y() + 0.1*mousemovex()`-(512 - mousex())
   xrotate camera camera angle x() + 0.1*mousemovey()`-(378 - mousey())
endif

yrotate object 1, camera angle y()
xrotate object 1, camera angle x()

for bul = 51 to rifle.ammo.mag_size+50
   if bullets(bul-50,1) = 0
      acc = 2*rnd(rifle.accuracy)
      yrotate object bul, camera angle y()+(acc-rifle.accuracy)/10
      xrotate object bul, camera angle x()+(acc-rifle.accuracy)/10
   endif
next bul

`fire
if mouseclick() = 1 and reload = 0
   if rifle.single_shot = 1
      if click = 0
         click = 1
         inc mag_count
         show object mag_count+50
         bullets(mag_count,1) = 1
         `recoil
         xrotate camera camera angle x() - 0.5
      endif
   else
      inc mag_count
      show object mag_count+50
      bullets(mag_count,1) = 1
      `recoil
      xrotate camera camera angle x() - 0.2
   endif
   if mag_count >= rifle.ammo.mag_size
      reload = 1
   endif
endif

for bul = 51 to mag_count+50
      if bullets(bul-50,1) = 1
         if phys = 1
            if wind.angle = 0
               yrotate object bul, object angle y(bul) + (0.02*wind.speed)
            else
               yrotate object bul, object angle y(bul) - (0.02*wind.speed)
            endif
            xrotate object bul, object angle x(bul) + 0.05
         endif
         oldx# = object position x(bul) : oldy# = object position y(bul) : oldz# = object position z(bul)
         move object bul, rifle.ammo.speed/20
         x# = object position x(bul) : y# = object position y(bul) : z# = object position z(bul)
         `hit
         hit = sc_raycastgroup(1,oldx#,oldy#,oldz#,x#,y#,z#,0)
         if hit > 0
            `effects
            hide(hit-19) = 1`hide object hit
            bullets(bul-50,1) = 0
            position object bul, 498,12,6
            dec targets
         endif
         `miss
         if object position y(bul) < 0
            position object bul, 498,12,6
            bullets(bul-50,1) = 0
         endif
      endif
   next bul

`reload
if reload = 1 and click = 0
   text 0,200,"Reloading!"
   inc t
   if t = 50
      t = 0
      reload = 0
      mag_count = 0
      for bul = 51 to rifle.ammo.mag_size+50
         position object bul,498,12,6
         bullets(bul-50,1) = 0
         hide object bul
      next bul
   endif
endif

if mouseclick() = 0 then click = 0

`extra features
`zoom
if mouseclick() = 2 and click = 0
   click = 1
   if rifle.zoom = 0
      rifle.zoom = 1
      set camera fov 20
   else
      if rifle.zoom = 1
         rifle.zoom = 0
         set camera fov 100
      endif
   endif
endif

if keystate(19) = 1 and press = 0 `r
   press = 1
   if rifle.single_shot = 0
      inc rifle.single_shot
   else
      dec rifle.single_shot
   endif
endif

if keystate(25) = 1 and press = 0 `p
   press = 1
   if phys = 0
      inc phys
      st = timer()
   else
      dec phys
   endif
endif

if scancode() = 0
   press = 0
endif

if phys = 1
   ot = timer()
   if ot - st > rnd(10000)+5000   `if time since phys was set > rnd time then randomise wind
      set_effects()
      st = timer()
   endif
endif

targets = 30
for h = 1 to 31
   if hide(h) = 1
      hide object h+19
      dec targets
   else
      show object h+19
   endif
next h

current_time = timer()
time_taken# = (current_time - time_start)/1000

text 0,0,"Press left click to shoot"
text 0,10,"Press right click to zoom"
text 0,20,"Use the mouse to look"
text 0,30,"Use R to change from single shot to auto. Single shot: "+str$(rifle.single_shot)
text 0,40,"Bullet number: "+str$(mag_count)
text 0,50,"Press P to turn physics and wind on.    Physics: "+str$(phys)
text 0,60,"Capslock must be off"
if phys = 1
   text 0,80,"Wind info"
   text 0,90,"Wind speed: "+str$(wind.speed)
   if wind.angle = 0
      text 0,100,"Wind direction: Right"
   else
      text 0,100,"Wind direction: Left"
   endif
endif

center text 512,10,"Time taken: "+str$(time_taken#)
center text 512,20,"Targets left: "+str$(targets)

if targets <= 0
   finish(time_taken#)
endif

text 0,200,str$(reload)
text 0,210,str$(t)

sync
loop

function make_objects()

`make textures
create bitmap 1,300,100
set current bitmap 1
   `make sandy texture
   ink rgb(217,208,104),rgb(217,208,104)
   box 0,0,100,100
   get image 1, 0,0,100,100

`make target
   ink rgb(255,255,255),rgb(255,255,255)
   box 100,0,200,100
   `red outer
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,40,1)
   `white middle
   ink rgb(255,255,255),rgb(255,255,255)
   FilledCircle(150,50,25,0)
   `red bull
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,10,1)
   get image 2,100,0,200,100

`make crosshairs
   ink rgb(255,255,255),rgb(255,255,255)
   line 250,0, 250,100
   line 200,50, 300,50
   get image 3, 200,0,300,100

set current bitmap 0

`make gun
make object box 1,2,5,50
make object box 2,2,10,6
make object box 3,2,2,20

make mesh from object 2,2
make mesh from object 3,3

add limb 1,1,2 : offset limb 1,1, 0,-5,0 `mag
add limb 1,2,3 : offset limb 1,2, 0,5,0 `scope

delete object 2 : delete object 3
delete mesh 2 : delete mesh 3

position object 1, 500,10,10 `gun
scale object 1,30,30,30

`make bullets
for bul = 1 to rifle.ammo.mag_size
   make object sphere bul+50,0.1
   position object bul+50, 498,12,6
   sc_setupobject bul+50,2,0
next

`make range
   `make matrix
      make matrix 1, 1000,1000,20,20
      `colour matrix
      prepare matrix texture 1,1,1,1

`make targets
   for tar = 20 to 50
      make object plain tar,5,5
      `colour targets
      texture object tar,2
      `position targets
      position object tar, rnd(200)+400,5,rnd(300)+50
      if tar = 50
         position object 50, 500,5,1000
      endif
      sc_setupobject tar,1,2
   next tar

endfunction

function set_gun_vars()

rifle.number = 1
rifle.weight = 12
rifle.size = 2
rifle.reload = 1000
rifle.zoom = 2
rifle.single_shot = 1
rifle.accuracy = 5

rifle.ammo.damage = 10
rifle.ammo.speed = 450
rifle.ammo.mag_size = 30

endfunction

function set_effects()

randomize timer()
wind.state = 1
if wind.state = 1
   wind.angle = rnd(1)             `1 for left or 0 for right
   wind.speed = rnd(5)
endif

rain.state = 0
if rain.state = 1
   rain.angle = wind.angle
   rain.speed = wind.speed
endif

endfunction

function FilledCircle( CX as integer, CY as integer, R as integer , col as boolean)
   local x as integer
   local y as integer
   local i as integer
   local s as integer

if col = 1
      ink rgb(255,0,0),rgb(255,0,0)
   else
      ink rgb(255,255,255),rgb(255,255,255)
   endif
   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)

` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

` Draw top and bottom

box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
      sync
   next y
endfunction

function finish(time#)

center text 512,108, "You shot all the targets"
center text 512,118, "Time taken: "+str$(time#)
center text 512,128, "Press any key to quit, and thanks for playing !"

sync

wait key
end

endfunction

delete memblock 1

`for targets, gonna have 30 secs to hit as many as possible
`3 rows, close med and far
`10 on each row pop up one by 1, 1 each second
`then if pass, have 30 secs to make the 1km shot

`setup
set display mode 1024,768,32
sync on : sync rate 50
autocam off : hide mouse
randomize 1

center text 512,378,"Shoot the targets as fast as possible"
center text 512,388,"Press any key to start"
sync : sync : sync
wait key

type bullet
   damage as integer       `percent of health
   speed as integer        `metres per sec, bout 500 av for assault
   mag_size as integer     `how many bullets
endtype

type gun
   name as string
   number as integer       `weapon slot
   weight as integer       `in kilos, bout 10-15 av assault
   size as integer         `1 = small(pistol/grenade) 2 = med(assault) 3 = large(sniper) 4 = huge(rpg)
   ammo as bullet
   reload as integer       `in millisecs
   zoom as integer         `mag level
   single_shot as boolean  `single or auto
   accuracy as integer     `out of ten. 10 = best
endtype

type weather
   state as boolean
   angle as float
   speed as float
endtype

rifle as gun
rifle.name = "m416"

rain as weather
wind as weather

set_gun_vars()
make_objects()
set_effects()

mag_count = 0
rifle.zoom = 0
wind.state = 0
phys = 0
time_start = timer()

dim bullets(rifle.ammo.mag_size,4)
dim hide(31)

for h = 1 to 31
   hide(h) = 0
next h

position mouse 512,378
position camera 498,12,6
set camera range 1,2000

set camera fov 100

do

`move crosshairs
paste image 3,462,332,1

`control viewing
if rifle.zoom = 0
   yrotate camera camera angle y() + mousemovex()`-(512 - mousex())
   xrotate camera camera angle x() + mousemovey()`-(378 - mousey())
else
   yrotate camera camera angle y() + 0.1*mousemovex()`-(512 - mousex())
   xrotate camera camera angle x() + 0.1*mousemovey()`-(378 - mousey())
endif

yrotate object 1, camera angle y()
xrotate object 1, camera angle x()

for bul = 51 to rifle.ammo.mag_size+50
   if bullets(bul-50,1) = 0
      acc = 2*rnd(rifle.accuracy)
      yrotate object bul, camera angle y()+(acc-rifle.accuracy)/10
      xrotate object bul, camera angle x()+(acc-rifle.accuracy)/10
   endif
next bul

`fire
if mouseclick() = 1 and reload = 0
   if rifle.single_shot = 1
      if click = 0
         click = 1
         inc mag_count
         show object mag_count+50
         bullets(mag_count,1) = 1
         `recoil
         xrotate camera camera angle x() - 0.5
      endif
   else
      inc mag_count
      show object mag_count+50
      bullets(mag_count,1) = 1
      `recoil
      xrotate camera camera angle x() - 0.2
   endif
   if mag_count >= rifle.ammo.mag_size
      reload = 1
   endif
endif

   for bul = 51 to mag_count+50
      if bullets(bul-50,1) = 1
         if phys = 1
            if wind.angle = 0
               yrotate object bul, object angle y(bul) + (0.02*wind.speed)
            else
               yrotate object bul, object angle y(bul) - (0.02*wind.speed)
            endif
            xrotate object bul, object angle x(bul) + 0.05
         endif
         oldx# = object position x(bul) : oldy# = object position y(bul) : oldz# = object position z(bul)
         move object bul, rifle.ammo.speed/20
         x# = object position x(bul) : y# = object position y(bul) : z# = object position z(bul)
         `hit
         hit = sc_raycastgroup(1,oldx#,oldy#,oldz#,x#,y#,z#,0)
         if hit > 0
            `effects
            hide(hit-19) = 1`hide object hit
            bullets(bul-50,1) = 0
            position object bul, 498,12,6
            dec targets
         endif
         `miss
         if object position y(bul) < 0
            position object bul, 498,12,6
            bullets(bul-50,1) = 0
         endif
      endif
   next bul

`reload
if reload = 1 and click = 0
   text 0,200,"Reloading!"
   inc t
   if t = 50
      t = 0
      reload = 0
      mag_count = 0
      for bul = 51 to rifle.ammo.mag_size+50
         position object bul,498,12,6
         bullets(bul-50,1) = 0
         hide object bul
      next bul
   endif
endif

if mouseclick() = 0 then click = 0

`extra features
`zoom
if mouseclick() = 2 and click = 0
   click = 1
   if rifle.zoom = 0
      rifle.zoom = 1
      set camera fov 20
   else
      if rifle.zoom = 1
         rifle.zoom = 0
         set camera fov 100
      endif
   endif
endif

if keystate(19) = 1 and press = 0 `r
   press = 1
   if rifle.single_shot = 0
      inc rifle.single_shot
   else
      dec rifle.single_shot
   endif
endif

if keystate(25) = 1 and press = 0 `p
   press = 1
   if phys = 0
      inc phys
      st = timer()
   else
      dec phys
   endif
endif

if scancode() = 0
   press = 0
endif

if phys = 1
   ot = timer()
   if ot - st > rnd(10000)+5000   `if time since phys was set > rnd time then randomise wind
      set_effects()
      st = timer()
   endif
endif

targets = 30
for h = 1 to 31
   if hide(h) = 1
      hide object h+19
      dec targets
   else
      show object h+19
   endif
next h

current_time = timer()
time_taken# = (current_time - time_start)/1000

text 0,0,"Press left click to shoot"
text 0,10,"Press right click to zoom"
text 0,20,"Use the mouse to look"
text 0,30,"Use R to change from single shot to auto. Single shot: "+str$(rifle.single_shot)
text 0,40,"Bullet number: "+str$(mag_count)
text 0,50,"Press P to turn physics and wind on.    Physics: "+str$(phys)
text 0,60,"Capslock must be off"
if phys = 1
   text 0,80,"Wind info"
   text 0,90,"Wind speed: "+str$(wind.speed)
   if wind.angle = 0
      text 0,100,"Wind direction: Right"
   else
      text 0,100,"Wind direction: Left"
   endif
endif

center text 512,10,"Time taken: "+str$(time_taken#)
center text 512,20,"Targets left: "+str$(targets)

if targets <= 0
   finish(time_taken#)
endif

text 0,200,str$(reload)
text 0,210,str$(t)

sync
loop



function make_objects()

`make textures
create bitmap 1,300,100
set current bitmap 1
   `make sandy texture
   ink rgb(217,208,104),rgb(217,208,104)
   box 0,0,100,100
   get image 1, 0,0,100,100

   `make target
   ink rgb(255,255,255),rgb(255,255,255)
   box 100,0,200,100
   `red outer
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,40,1)
   `white middle
   ink rgb(255,255,255),rgb(255,255,255)
   FilledCircle(150,50,25,0)
   `red bull
   ink rgb(255,0,0),rgb(255,0,0)
   FilledCircle(150,50,10,1)
   get image 2,100,0,200,100

   `make crosshairs
   ink rgb(255,255,255),rgb(255,255,255)
   line 250,0, 250,100
   line 200,50, 300,50
   get image 3, 200,0,300,100

set current bitmap 0

`make gun
make object box 1,2,5,50
make object box 2,2,10,6
make object box 3,2,2,20

make mesh from object 2,2
make mesh from object 3,3

add limb 1,1,2 : offset limb 1,1, 0,-5,0 `mag
add limb 1,2,3 : offset limb 1,2, 0,5,0 `scope

delete object 2 : delete object 3
delete mesh 2 : delete mesh 3

position object 1, 500,10,10 `gun
scale object 1,30,30,30

`make bullets
for bul = 1 to rifle.ammo.mag_size
   make object sphere bul+50,0.1
   position object bul+50, 498,12,6
   sc_setupobject bul+50,2,0
next

`make range
   `make matrix
      make matrix 1, 1000,1000,20,20
      `colour matrix
      prepare matrix texture 1,1,1,1

   `make targets
   for tar = 20 to 50
      make object plain tar,5,5
      `colour targets
      texture object tar,2
      `position targets
      position object tar, rnd(200)+400,5,rnd(300)+50
      if tar = 50
         position object 50, 500,5,1000
      endif
      sc_setupobject tar,1,2
   next tar

endfunction


function set_gun_vars()

rifle.number = 1
rifle.weight = 12
rifle.size = 2
rifle.reload = 1000
rifle.zoom = 2
rifle.single_shot = 1
rifle.accuracy = 5

rifle.ammo.damage = 10
rifle.ammo.speed = 450
rifle.ammo.mag_size = 30

endfunction


function set_effects()

randomize timer()
wind.state = 1
if wind.state = 1
   wind.angle = rnd(1)             `1 for left or 0 for right
   wind.speed = rnd(5)
endif

rain.state = 0
if rain.state = 1
   rain.angle = wind.angle
   rain.speed = wind.speed
endif

endfunction


function FilledCircle( CX as integer, CY as integer, R as integer , col as boolean)
   local x as integer
   local y as integer
   local i as integer
   local s as integer

   if col = 1
      ink rgb(255,0,0),rgb(255,0,0)
   else
      ink rgb(255,255,255),rgb(255,255,255)
   endif
   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

   ` Calculate the size of the central square
   s=R*0.70710678 : ` this number is sin(45)

   ` Draw it
   box CX-s, CY-s, CX+s+1, CY+s+1
   s=s+1

   ` Loop through the bit we have not yet drawn
   for y=s to R
      x=sqrt( i-(y*y) )

      ` Draw top and bottom

      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

      ` Draw left and right
      box CX-y, CY-x, CX-y+1, CY+x+1
      box CX+y, CY-x, CX+y+1, CY+x+1
      sync
   next y
endfunction


function finish(time#)

center text 512,108, "You shot all the targets"
center text 512,118, "Time taken: "+str$(time#)
center text 512,128, "Press any key to quit, and thanks for playing !"

sync

wait key
end

endfunction

delete memblock 1

Edit: Fixed a reload bug when phys is on.

It is possible to hit the long distance target with wind and dip on, I managed to complete the range in 91 secs with phys and 31 without =)

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 17th May 2009 22:49

Cool game. I think maybe wind and physics should just be on all the time, it's too easy without them. With them, it is challenging but defintely not impossible (I had to switch to auto and fire about 3 clips before I hit the long one).

Now if you have time, you just need some regional scoring based on where you hit the target...

.

Back to top

Profile PM Email Website

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 17th May 2009 22:56

I thought about that, I could use dummy objects in front of the bulls eye to pick up the better hits, and then tally a score, but Im happy with this, and when I get the time, Ill use it in my FPS, hence why I wanted to put wind and dip in =)

Back to top

Profile PM

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 18th May 2009 02:48

Dudes! Good work. I was hoping judging would be easy but it's going to be a pig. Why couldn't there just be one really good entry?

So, i remember i said the deadline was Monday. Presumably that's midnight (before Tuesday morning) What with all these timezones it's kind of tricky. Are we going by GMT or what?

Monk - haven't played your latest yet. Will get that sparky collision tomorrow.

Need to update DBP too - i had the plane/plain problem, plus i need to knock off the last variables in set display mode, and add a background colour for ink. :S

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 18th May 2009 04:33

Quote: "Need to update DBP too - i had the plane/plain problem, plus i need to knock off the last variables in set display mode, and add a background colour for ink."

Wow, you're 3 or 4 versions behind if you don't have the antialiasing parameters in SET DISPLAY MODE

.

I'm glad that they removed the background color requirment for INK, I would always forget it and get yelled at by the compiler, now I can finally get away with it

.

Back to top

Profile PM Email Website

Monk

16

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 18th May 2009 12:45

You dont need to add a background ink setting? Nice, it always annoys me having to type out the second set of rgb...
Any chance that works in v6.9? Thats the version Im using because the versions after that have problems with indexdata or something similar...

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 18th May 2009 16:05

I think it was changed in 7.3 or 7.4.

Back to top

Profile PM Email Website

DB PROgrammer

17

Years of Service

User Offline

Joined: 9th Feb 2007

Location: Nowhere But Everywhere

Posted: 19th May 2009 00:33 Edited at: 19th May 2009 00:34

Of course, when I decide to do one of these I end up not being able to. I only got as far as the editor so I have nothing to post, but if I finish it within a week or so I'll post it here anyway so you can all have a try at it.

Good luck to those who entered, I'll take a look at them later and comment.

DBPro, limited by the programmer.

Back to top

Profile PM Email Website

Dr Tank

15

Years of Service

User Offline

Joined: 1st Apr 2009

Location: Southampton, UK

Posted: 20th May 2009 05:18

Can't stop long. Will judge tomorrow. Need sleep.