Sorry your browser is not supported!

[img]http://www.image.com/image/whatever[/img]

`-----------------------------
`PROJECT:  Morph
`CREATED:  24/11/2007 20:36:12
`AUTHOR :  Bongadoo 
`-----------------------------

`-------
`GLOBALS
`-------

`Camera
global cam_trail# = 25.0
global cam_dist#  = 50.0

`Stages
global stage      = 1
global sub_stage  = 1

`----------
`INITIALISE
`----------

if check display mode(1024,768,32) = 1
  set display mode 1024,768,32
else
  exit prompt "Cannot support 1024x768 32-bit","Error"
  end
endif

`if get maximum antialias level() >= 4
`  set antialias level 4
`endif

`-----
`SETUP
`-----

sync on
sync rate 60
color backdrop rgb(0,0,0)

`Keep same value so images remain constant
randomize 1 

autocam off
position camera 15.0,15.0,15.0
point camera 7.5,0.0,0.0
position camera 25.0,50.0,50.0

`-----------
`LOAD STAGES
`-----------

load_stage1()
load_stage2()
load_stage3()
load_stage4()
load_stage5()

`----
`MAIN
`----

do

  select stage
    case 1 : run_stage1() : endcase
    case 2 : run_stage2() : endcase
    case 3 : run_stage3() : endcase
    case 4 : run_stage4() : endcase
    case 5 : run_stage5() : endcase
    case 6 : run_stage6() : endcase
  endselect

  `Debug
  tx=10
  ty=10
  ty_step=15
  
  TEXT tx,ty,"MORPH" : inc ty,ty_step*2

  sync

loop

`---------
`FUNCTIONS
`---------

`Gets a free object number
function free_obj()

  do
    inc x
    if object exist(x) = 0 then exit
  loop

endfunction x

`Creates a new plain
function new_plain(x,y)

  n = free_obj()
  make object plain n,x,y

endfunction n

`Creates a new cube
function new_cube(size)

  n = free_obj()
  make object cube n,size

endfunction n

`Creates a new box
function new_box(x,y,z)

  n = free_obj()
  make object box n,x,y,z

endfunction n

`Creates a new sphere
function new_sphere(size,rows,cols)

  n = free_obj()
  make object sphere n,size,rows,cols

endfunction n

`Loads stage1
function load_stage1()
  
  `Globals
  dim s1_plain_g(6)  
  dim s1_plain(12)
  dim s1_count(1)
  
  `Create first plains
  ` This creates two plains and glues their edges to a cube
  ` This means the cube can be rotated to give the effect
  ` of the plains 'flipping' along
  for i = 1 to 6
    s1_plain_g(i) = new_cube(1)
    s1_plain(i) = new_plain(5,5)
    s1_plain(i+6) = new_plain(5,5)
    position object s1_plain(i),2.5,0.06,0
    position object s1_plain(i+6),2.5,0,0
    xrotate object s1_plain(i),-90
    xrotate object s1_plain(i+6),-90
    zrotate object s1_plain(i+6),180
    fix object pivot s1_plain(i)
    fix object pivot s1_plain(i+6)
    glue object to limb s1_plain(i),s1_plain_g(i),0
    glue object to limb s1_plain(i+6),s1_plain_g(i),0
    hide object s1_plain_g(i)
    hide object s1_plain(i)
    hide object s1_plain(i+6)
  next i
  
  s1_count(1) = 0
  
endfunction

`Flips first plains across the floor
function run_stage1() 

  `Fade in
  if s1_count(1) <= 100
    fade object s1_plain(1),s1_count(1)
    fade object s1_plain(1+6),s1_count(1)
    inc s1_count(1)
  endif

  `Flip
  if object angle z(s1_plain_g(1)) < 180
    show object s1_plain(1)
    show object s1_plain(1+6)
    zrotate object s1_plain_g(1),object angle z(s1_plain_g(1)) + 2
  endif
  
  `Reposition
  ` Flip around and continue, unless at the last part of the box layout 
  if object angle z(s1_plain_g(1)) >= 180
    if object position x(s1_plain_g(1)) <> ( 8 * -5 )
      zrotate object s1_plain_g(1),0
      position object s1_plain_g(1),object position x(s1_plain_g(1)) - 5,0,0
    else
      stage = 2
    endif
  endif
  
  `Box layout part 1
  if object position x(s1_plain_g(1)) = ( 6 * -5 )
    position object s1_plain_g(2),6*-5,0,0
    show object s1_plain(2)
    show object s1_plain(2+6)
  endif
  
  `Box layout part 2
  if object position x(s1_plain_g(1)) = ( 7 * -5 )
    position object s1_plain_g(3),7*-5,0,0
    show object s1_plain(3)
    show object s1_plain(3+6)
  endif
  
  `Box layout part 3
  if object position x(s1_plain_g(1)) = ( 8 * -5 ) and object position z(s1_plain_g(4)) = 0
    position object s1_plain_g(4),(8*-5)+2.5,0,2.5
    yrotate object s1_plain_g(4),90
    fix object pivot s1_plain_g(4)
    position object s1_plain_g(5),(8*-5)+2.5,0,-2.5
    yrotate object s1_plain_g(5),-90
    fix object pivot s1_plain_g(5)
    position object s1_plain_g(6),(8*-5),0,0
    show object s1_plain(4)
    show object s1_plain(5)
    show object s1_plain(6)
    show object s1_plain(4+6)
    show object s1_plain(5+6)
    show object s1_plain(6+6)
  endif
  
  `Unfold final parts
  if object angle x(s1_plain_g(4)) < 180 and object position x(s1_plain_g(4)) < 0
    xrotate object s1_plain_g(4),object angle x(s1_plain_g(4)) + 2
    xrotate object s1_plain_g(5),object angle x(s1_plain_g(5)) - 2
  endif

  position camera camera position x() - (5.0/90.0),cam_dist#,cam_dist#

endfunction

`Loads stage2
function load_stage2()

endfunction

`Fold back up into cube
function run_stage2()

  `First fold
  if object angle z(s1_plain_g(2)) < 90
    zrotate object s1_plain_g(2),object angle z(s1_plain_g(2)) + 2
  endif
  
  `Reglue
  if sub_stage = 1 and object angle z(s1_plain_g(2)) = 90
    sx = object position x(s1_plain_g(3))
    position object s1_plain_g(2),5,0,0
    position object s1_plain_g(3),0,0,0
    glue object to limb s1_plain_g(2),s1_plain_g(3),0
    position object s1_plain_g(3),sx,0,0
    inc sub_stage
  endif
  
  `Second fold
  if sub_stage = 2 and object angle z(s1_plain_g(3)) < 90
    zrotate object s1_plain_g(3),object angle z(s1_plain_g(3)) + 2
    xrotate object s1_plain_g(4),object angle x(s1_plain_g(4)) - 2
    xrotate object s1_plain_g(5),object angle x(s1_plain_g(5)) + 2
  endif
  
  `Reglue
  if sub_stage = 2 and object angle z(s1_plain_g(3)) = 90
    sx = object position x(s1_plain_g(6))
    position object s1_plain_g(3),5,0,0
    position object s1_plain_g(4),2.5,0,2.5
    position object s1_plain_g(5),2.5,0,-2.5
    position object s1_plain_g(6),0,0,0
    glue object to limb s1_plain_g(3),s1_plain_g(6),0
    glue object to limb s1_plain_g(4),s1_plain_g(6),0
    glue object to limb s1_plain_g(5),s1_plain_g(6),0
    position object s1_plain_g(6),sx,0,0
    inc sub_stage
  endif
  
  `Final fold
  if sub_stage = 3 and object angle z(s1_plain_g(6)) < 90
    zrotate object s1_plain_g(6),object angle z(s1_plain_g(6)) + 2
  endif
  
  `Next stage
  if object angle z(s1_plain_g(6)) = 90
    sub_stage = 1
    inc stage
  endif
  
  position camera camera position x() - (5.0/90.0),cam_dist#,cam_dist#

endfunction

`Loads stage3
function load_stage3()

  `Globals
  dim s3_cube(29)
  dim s3_cube_g(29)

  `Create cubes for body
  for i = 1 to 29
    s3_cube(i) = new_cube(5)
    s3_cube_g(i) = new_cube(1)
    position object s3_cube(i),2.5,2.5,0
    glue object to limb s3_cube(i),s3_cube_g(i),0
    hide object s3_cube(i)
    hide object s3_cube_g(i)
  next i

endfunction

`Cube to man
function run_stage3()

  `Hide plains and show first cube
  if sub_stage = 1
    position object s3_cube_g(1),object position x(s1_plain_g(1)) - 5,0,0
    show object s3_cube(1)
    for i = 1 to 12
      hide object s1_plain(i)
    next i
    inc sub_stage
  endif
  
  `Flip cube
  if sub_stage >= 2 and sub_stage <= 12 and object angle z(s3_cube_g(1)) < 90
    zrotate object s3_cube_g(1),object angle z(s3_cube_g(1)) + 2
  endif
  
  `Reposition
  if sub_stage >= 2 and sub_stage <= 12 and object angle z(s3_cube_g(1)) = 90
    zrotate object s3_cube_g(1),0
    position object s3_cube_g(1),object position x(s3_cube_g(1))-5,0,0
    inc sub_stage
  endif
  
  `First 7 cubes (spine)
  for i = 6 to 12
    if sub_stage = i and object angle z(s3_cube_g(1)) = 0
      position object s3_cube_g(i-4),object position x(s3_cube_g(1)),0,0
      show object s3_cube(i-4)
    endif
  next i
  
  `Shoulders (pre)
  if sub_stage = 8 and object angle z(s3_cube_g(1)) = 0
      position object s3_cube_g(9),object position x(s3_cube_g(1))+2.5,0,-2.5
      position object s3_cube_g(10),object position x(s3_cube_g(1))+2.5,0,2.5
      yrotate object s3_cube_g(9),-90
      yrotate object s3_cube_g(10),90
      fix object pivot s3_cube_g(9)
      fix object pivot s3_cube_g(10)
      show object s3_cube(9)
      show object s3_cube(10)
  endif
  
  `Flip cube (shoulders)
  if sub_stage >= 8 and sub_stage <= 9 and object angle x(s3_cube_g(10)) < 90
    xrotate object s3_cube_g(9),object angle x(s3_cube_g(9)) - 2
    xrotate object s3_cube_g(10),object angle x(s3_cube_g(10)) + 2
  endif
  
  `Reposition (shoulders)
  if sub_stage >= 8 and sub_stage <= 9 and object angle x(s3_cube_g(10)) = 90
    xrotate object s3_cube_g(9),0
    xrotate object s3_cube_g(10),0
    position object s3_cube_g(9),object position x(s3_cube_g(9)),0,object position z(s3_cube_g(9))-5
    position object s3_cube_g(10),object position x(s3_cube_g(10)),0,object position z(s3_cube_g(10))+5
  endif
  
  `Shoulders (new cubes)
  for i = 8 to 9
    if sub_stage = i+1 and object angle z(s3_cube_g(1)) = 0
      yrotate object s3_cube_g(i+3),-90
      yrotate object s3_cube_g(i+5),90
      position object s3_cube_g(i+3),object position x(s3_cube_g(9)),0,object position z(s3_cube_g(9))
      position object s3_cube_g(i+5),object position x(s3_cube_g(10)),0,object position z(s3_cube_g(10))
      show object s3_cube(i+3)
      show object s3_cube(i+5)
    endif
  next i
  
  `Arms (pre)
  if sub_stage = 10 and object angle z(s3_cube_g(1)) = 0
      position object s3_cube_g(9),object position x(s3_cube_g(9))-2.5,0,object position z(s3_cube_g(9))+2.5
      position object s3_cube_g(10),object position x(s3_cube_g(10))-2.5,0,object position z(s3_cube_g(10))-2.5
      yrotate object s3_cube_g(9),90
      yrotate object s3_cube_g(10),-90
      fix object pivot s3_cube_g(9)
      fix object pivot s3_cube_g(10)
  endif
  
  `Flip cube (arms)
  if sub_stage >= 10 and sub_stage <= 12 and object angle z(s3_cube_g(10)) < 90
    zrotate object s3_cube_g(9),object angle z(s3_cube_g(9)) + 2
    zrotate object s3_cube_g(10),object angle z(s3_cube_g(10)) + 2
  endif
  
  `Reposition (arms)
  if sub_stage >= 10 and sub_stage <= 12 and object angle z(s3_cube_g(10)) = 90
    zrotate object s3_cube_g(9),0
    zrotate object s3_cube_g(10),0
    position object s3_cube_g(9),object position x(s3_cube_g(9))-5,0,object position z(s3_cube_g(9))
    position object s3_cube_g(10),object position x(s3_cube_g(10))-5,0,object position z(s3_cube_g(10))
  endif
  
  `Arms (new cubes)
  for i = 10 to 11
    if sub_stage = i and object angle z(s3_cube_g(10)) = 0
      position object s3_cube_g(i+5),object position x(s3_cube_g(9)),0,object position z(s3_cube_g(9))
      position object s3_cube_g(i+7),object position x(s3_cube_g(10)),0,object position z(s3_cube_g(10))
      show object s3_cube(i+5)
      show object s3_cube(i+7)
    endif
  next i
  
  `Hips (pre)
  if sub_stage = 13
      position object s3_cube_g(19),object position x(s3_cube_g(1))+2.5,0,-2.5
      position object s3_cube_g(20),object position x(s3_cube_g(1))+2.5,0,2.5
      yrotate object s3_cube_g(19),-90
      yrotate object s3_cube_g(20),90
      fix object pivot s3_cube_g(19)
      fix object pivot s3_cube_g(20)
      show object s3_cube(19)
      show object s3_cube(20)
      inc sub_stage
  endif
  
  `Flip cube (hips)
  if sub_stage = 14 and object angle x(s3_cube_g(20)) < 90
    xrotate object s3_cube_g(19),object angle x(s3_cube_g(19)) - 2
    xrotate object s3_cube_g(20),object angle x(s3_cube_g(20)) + 2
  endif
  
  `Reposition (hips)
  if sub_stage = 14 and object angle x(s3_cube_g(20)) = 90
    xrotate object s3_cube_g(19),0
    xrotate object s3_cube_g(20),0
    position object s3_cube_g(19),object position x(s3_cube_g(19)),0,object position z(s3_cube_g(19))-5
    position object s3_cube_g(20),object position x(s3_cube_g(20)),0,object position z(s3_cube_g(20))+5
    inc sub_stage
  endif
  
  `Legs (pre)
  if sub_stage = 15 
      position object s3_cube_g(21),object position x(s3_cube_g(19))-2.5,0,object position z(s3_cube_g(19))+2.5
      position object s3_cube_g(22),object position x(s3_cube_g(20))-2.5,0,object position z(s3_cube_g(20))-2.5
      show object s3_cube(21)
      show object s3_cube(22)
      inc sub_stage
  endif
  
  `Flip cube (legs)
  if sub_stage >= 16 and sub_stage <= 19 and object angle z(s3_cube_g(22)) < 90
    zrotate object s3_cube_g(21),object angle z(s3_cube_g(21)) + 2
    zrotate object s3_cube_g(22),object angle z(s3_cube_g(22)) + 2
  endif
  
  `Reposition (legs)
  if sub_stage >= 16 and sub_stage <= 19 and object angle z(s3_cube_g(22)) = 90
    zrotate object s3_cube_g(21),0
    zrotate object s3_cube_g(22),0
    position object s3_cube_g(21),object position x(s3_cube_g(21))-5,0,object position z(s3_cube_g(21))
    position object s3_cube_g(22),object position x(s3_cube_g(22))-5,0,object position z(s3_cube_g(22))
    inc sub_stage
  endif
  
  `Legs (new cubes)
  for i = 16 to 19
    if sub_stage = i and object angle z(s3_cube_g(22)) = 0
      position object s3_cube_g(i+7),object position x(s3_cube_g(21)),0,object position z(s3_cube_g(21))
      position object s3_cube_g(i+10),object position x(s3_cube_g(22)),0,object position z(s3_cube_g(22))
      show object s3_cube(i+7)
      show object s3_cube(i+10)
    endif
  next i
  
  if sub_stage < 10
    position camera camera position x() - (5.0/45.0),cam_dist#,cam_dist#
  endif
  
  `Final
  if sub_stage = 20
    sub_stage = 1
    inc stage
  endif

endfunction

`Load stage4
function load_stage4()

  `Globals
  ` Vis boxes
  dim s4_spine(1)
  dim s4_shoulder_l(1)
  dim s4_shoulder_r(1)
  dim s4_arm_top_l(1)
  dim s4_arm_top_r(1)
  dim s4_arm_bot_l(1)
  dim s4_arm_bot_r(1)
  dim s4_leg_top_l(1)
  dim s4_leg_top_r(1)
  dim s4_leg_bot_l(1)
  dim s4_leg_bot_r(1)
  ` Joints
  dim s4_shoulder_l_j(1)
  dim s4_shoulder_r_j(1)
  dim s4_arm_top_l_j(1)
  dim s4_arm_top_r_j(1)
  dim s4_arm_bot_l_j(1)
  dim s4_arm_bot_r_j(1)
  dim s4_leg_top_l_j(1)
  dim s4_leg_top_r_j(1)
  dim s4_leg_bot_l_j(1)
  dim s4_leg_bot_r_j(1)
  dim s4_rotator(1)
  ` Fake cloud
  dim s4_cloud(1)
  dim s4_cloud_count(1)
  
  `Make left arm
  s4_arm_top_l(1) = new_box(10,5,5)
  s4_arm_bot_l(1) = new_box(10,5,5)
  s4_arm_bot_l_j(1) = new_cube(1)
  position object s4_arm_bot_l_j(1),-5,0,0
  glue object to limb s4_arm_bot_l_j(1),s4_arm_top_l(1),0
  position object s4_arm_top_l(1),5,0,0
  position object s4_arm_bot_l(1),-5,0,0
  glue object to limb s4_arm_bot_l(1),s4_arm_bot_l_j(1),0
  
  `Make left shoulder, connect to arm
  s4_shoulder_l(1) = new_cube(5)
  s4_arm_top_l_j(1) = new_cube(1)
  position object s4_arm_top_l_j(1),0,0,-2.5
  glue object to limb s4_arm_top_l_j(1),s4_shoulder_l(1),0
  position object s4_shoulder_l(1),0,0,2.5
  position object s4_arm_top_l(1),-2.5,0,-2.5
  glue object to limb s4_arm_top_l(1),s4_arm_top_l_j(1),0
  
  `Make right arm and shoulder
  s4_arm_top_r(1) = new_box(10,5,5)
  s4_arm_bot_r(1) = new_box(10,5,5)
  s4_arm_bot_r_j(1) = new_cube(1)
  position object s4_arm_bot_r_j(1),-5,0,0
  glue object to limb s4_arm_bot_r_j(1),s4_arm_top_r(1),0
  position object s4_arm_top_r(1),5,0,0
  position object s4_arm_bot_r(1),-5,0,0
  glue object to limb s4_arm_bot_r(1),s4_arm_bot_r_j(1),0

  `Make right shoulder, connect to arm
  s4_shoulder_r(1) = new_cube(5)
  s4_arm_top_r_j(1) = new_cube(1)
  position object s4_arm_top_r_j(1),0,0,2.5
  glue object to limb s4_arm_top_r_j(1),s4_shoulder_r(1),0
  position object s4_shoulder_r(1),0,0,-2.5
  position object s4_arm_top_r(1),-2.5,0,2.5
  glue object to limb s4_arm_top_r(1),s4_arm_top_r_j(1),0
  
  `Make spine
  s4_spine(1) = new_box(40,5,5)
  s4_shoulder_l_j(1) = new_cube(1)
  s4_shoulder_r_j(1) = new_cube(1)
  s4_leg_top_l_j(1) = new_cube(1)
  s4_leg_top_r_j(1) = new_cube(1)
  position object s4_shoulder_l_j(1),7.5,0,-2.5
  position object s4_shoulder_r_j(1),7.5,0,2.5
  position object s4_leg_top_l_j(1),-17.5,0,-2.5
  position object s4_leg_top_r_j(1),-17.5,0,2.5
  glue object to limb s4_shoulder_l_j(1),s4_spine(1),0
  glue object to limb s4_shoulder_r_j(1),s4_spine(1),0
  glue object to limb s4_leg_top_l_j(1),s4_spine(1),0
  glue object to limb s4_leg_top_r_j(1),s4_spine(1),0
  
  `Make left leg
  s4_leg_top_l(1) = new_box(12,5,5)
  s4_leg_bot_l(1) = new_box(13,5,5)
  s4_leg_bot_l_j(1) = new_cube(1)
  position object s4_leg_bot_l_j(1),-6,0,0
  glue object to limb s4_leg_bot_l_j(1),s4_leg_top_l(1),0
  position object s4_leg_top_l(1),6,0,0
  position object s4_leg_bot_l(1),-6.5,0,0
  glue object to limb s4_leg_bot_l(1),s4_leg_bot_l_j(1),0
  
  `Make right leg
  s4_leg_top_r(1) = new_box(12,5,5)
  s4_leg_bot_r(1) = new_box(13,5,5)
  s4_leg_bot_r_j(1) = new_cube(1)
  position object s4_leg_bot_r_j(1),-6,0,0
  glue object to limb s4_leg_bot_r_j(1),s4_leg_top_r(1),0
  position object s4_leg_top_r(1),6,0,0
  position object s4_leg_bot_r(1),-6.5,0,0
  glue object to limb s4_leg_bot_r(1),s4_leg_bot_r_j(1),0

  `Glue arms to spine
  position object s4_spine(1),-7.5,0,2.5
  position object s4_shoulder_l(1),0,0,-2.5
  glue object to limb s4_shoulder_l(1),s4_shoulder_l_j(1),0
  position object s4_spine(1),-7.5,0,-2.5
  position object s4_shoulder_r(1),0,0,2.5
  glue object to limb s4_shoulder_r(1),s4_shoulder_r_j(1),0

  `Glue legs to spine
  position object s4_spine(1),17.5,0,2.5
  position object s4_leg_top_l(1),-3.5,0,-2.5
  glue object to limb s4_leg_top_l(1),s4_leg_top_l_j(1),0
  position object s4_spine(1),17.5,0,-2.5
  position object s4_leg_top_r(1),-3.5,0,2.5
  glue object to limb s4_leg_top_r(1),s4_leg_top_r_j(1),0
  
  `Make rotator
  s4_rotator(1) = new_cube(1)
  position object s4_spine(1),30,2.5,0
  glue object to limb s4_spine(1),s4_rotator(1),0
  
  `Cloud
  s4_cloud(1) = new_plain(10,10)
  color object s4_cloud(1),rgb(0,0,0)
  fade object s4_cloud(1),25
  hide object s4_cloud(1)

  `Hide limbs
  hide object s4_spine(1)
  hide object s4_shoulder_l(1)
  hide object s4_shoulder_r(1)
  hide object s4_arm_top_l(1)
  hide object s4_arm_top_r(1)
  hide object s4_arm_bot_l(1)
  hide object s4_arm_bot_r(1)
  hide object s4_leg_top_l(1)
  hide object s4_leg_top_r(1)
  hide object s4_leg_bot_l(1)
  hide object s4_leg_bot_r(1)

  `Hide joints
  hide object s4_shoulder_l_j(1)
  hide object s4_shoulder_r_j(1)
  hide object s4_arm_top_l_j(1)
  hide object s4_arm_top_r_j(1)
  hide object s4_arm_bot_l_j(1)
  hide object s4_arm_bot_r_j(1)
  hide object s4_leg_top_l_j(1)
  hide object s4_leg_top_r_j(1)
  hide object s4_leg_bot_l_j(1)
  hide object s4_leg_bot_r_j(1)
  hide object s4_rotator(1)

endfunction

`Walking man
function run_stage4()

  `Hide old objects, display new body
  if sub_stage = 1
    for i = 1 to 29
      position object s4_rotator(1),object position x(s3_cube_g(2))-45,0,0
      hide object s3_cube(i)
    next i
    show object s4_spine(1)
    show object s4_shoulder_l(1)
    show object s4_shoulder_r(1)
    show object s4_arm_top_l(1)
    show object s4_arm_top_r(1)
    show object s4_arm_bot_l(1)
    show object s4_arm_bot_r(1)
    show object s4_leg_top_l(1)
    show object s4_leg_top_r(1)
    show object s4_leg_bot_l(1)
    show object s4_leg_bot_r(1)
    inc sub_stage
  endif
  
  `Stand up
  if sub_stage = 2 and object angle z(s4_rotator(1)) < 90
    zrotate object s4_rotator(1),object angle z(s4_rotator(1)) + 1
    position camera camera position x() - (5.0/45.0),camera position y() + 0.25,camera position z() + 0.25
  endif
  
  `Increase sub_stage
  if sub_stage = 2 and object angle z(s4_rotator(1)) = 90
    inc sub_stage
  endif
  
  `Walk 1
  if sub_stage = 3 and object angle z(s4_leg_top_r_j(1)) > -20
    zrotate object s4_leg_top_r_j(1),object angle z(s4_leg_top_r_j(1)) - 0.5
    zrotate object s4_leg_top_l_j(1),object angle z(s4_leg_top_l_j(1)) + 0.5
    zrotate object s4_leg_bot_l_j(1),object angle z(s4_leg_bot_l_j(1)) + 0.7
    zrotate object s4_arm_top_l_j(1),object angle z(s4_arm_top_l_j(1)) - 0.5
    zrotate object s4_arm_bot_l_j(1),object angle z(s4_arm_bot_l_j(1)) - 0.7
    zrotate object s4_arm_top_r_j(1),object angle z(s4_arm_top_r_j(1)) + 0.5
  endif
  
  `Walk next stage
  if sub_stage = 3 and object angle z(s4_leg_top_r_j(1)) <= -20
    inc sub_stage
  endif
  
  `Walk 2
  if sub_stage = 4 and object angle z(s4_leg_top_l_j(1)) > -20
    zrotate object s4_leg_top_r_j(1),object angle z(s4_leg_top_r_j(1)) + 0.5
    zrotate object s4_leg_bot_r_j(1),object angle z(s4_leg_bot_r_j(1)) + 0.35
    zrotate object s4_leg_top_l_j(1),object angle z(s4_leg_top_l_j(1)) - 0.5
    zrotate object s4_leg_bot_l_j(1),object angle z(s4_leg_bot_l_j(1)) - 0.35
    zrotate object s4_arm_top_l_j(1),object angle z(s4_arm_top_l_j(1)) + 0.5
    zrotate object s4_arm_bot_l_j(1),object angle z(s4_arm_bot_l_j(1)) + 0.35
    zrotate object s4_arm_top_r_j(1),object angle z(s4_arm_top_r_j(1)) - 0.5
    zrotate object s4_arm_bot_r_j(1),object angle z(s4_arm_bot_r_j(1)) - 0.35
    xrotate object s4_rotator(1),object angle x(s4_rotator(1)) + 0.1
  endif
  
  `Walk next stage
  if sub_stage = 4 and object angle z(s4_leg_top_l_j(1)) <= -20
    inc sub_stage
  endif
  
  `Walk 3 (walk 2 and 3 make loop)
  if sub_stage = 5 and object angle z(s4_leg_top_r_j(1)) > -20
    zrotate object s4_leg_top_l_j(1),object angle z(s4_leg_top_l_j(1)) + 0.5
    zrotate object s4_leg_bot_l_j(1),object angle z(s4_leg_bot_l_j(1)) + 0.35
    zrotate object s4_leg_top_r_j(1),object angle z(s4_leg_top_r_j(1)) - 0.5
    zrotate object s4_leg_bot_r_j(1),object angle z(s4_leg_bot_r_j(1)) - 0.35
    zrotate object s4_arm_top_l_j(1),object angle z(s4_arm_top_l_j(1)) - 0.5
    zrotate object s4_arm_bot_l_j(1),object angle z(s4_arm_bot_l_j(1)) - 0.35
    zrotate object s4_arm_top_r_j(1),object angle z(s4_arm_top_r_j(1)) + 0.5
    zrotate object s4_arm_bot_r_j(1),object angle z(s4_arm_bot_r_j(1)) + 0.35
    xrotate object s4_rotator(1),object angle x(s4_rotator(1)) - 0.1
  endif
  
  `Loop back to walk 2
  if sub_stage = 5 and object angle z(s4_leg_top_r_j(1)) <= -20
    sub_stage = 4
  endif
  
  `Camera
  if sub_stage >= 3 and camera position y() < 600
    position camera camera position x() - (5.0/45.0),camera position y() + 0.5,camera position z() + 0.5
  endif
  
  `Cloud 1
  if sub_stage >= 3 and camera position y() >= 600 and s4_cloud_count(1) = 0
    position object s4_cloud(1),camera position x()-1,camera position y()-1,camera position z()-1
    point object s4_cloud(1),camera position x(),camera position y(),camera position z()
    set object transparency s4_cloud(1),1
    set alpha mapping on s4_cloud(1),100
    show object s4_cloud(1)
    s4_cloud_count(1) = 1
  endif
  
  `Cloud 2 - fade in (more bad code)
  if s4_cloud_count(1) >= 1 and s4_cloud_count(1) <= 100
    position camera camera position x() - (5.0/45.0),camera position y() + 0.25,camera position z() + 0.25
    position object s4_cloud(1),camera position x()-1,camera position y()-1,camera position z()-1
    point object s4_cloud(1),camera position x(),camera position y(),camera position z()
    set alpha mapping on s4_cloud(1),s4_cloud_count(1)
    inc s4_cloud_count(1)
  endif

  if s4_cloud_count(1) = 101
    s4_cloud_count(1) = 0
    hide object s4_spine(1)
    hide object s4_shoulder_l(1)
    hide object s4_shoulder_r(1)
    hide object s4_arm_top_l(1)
    hide object s4_arm_top_r(1)
    hide object s4_arm_bot_l(1)
    hide object s4_arm_bot_r(1)
    hide object s4_leg_top_l(1)
    hide object s4_leg_top_r(1)
    hide object s4_leg_bot_l(1)
    hide object s4_leg_bot_r(1)
    sub_stage = 1
    inc stage
  endif

endfunction

`Load stage5
function load_stage5()
  
  `Globals
  dim s5_planet(1)
  dim s5_cloud(1)
  dim s5_stars(1)
  
  `Planet
  s5_planet(1) = new_sphere(98,20,20)
  s5_cloud(1) = new_sphere(100,20,20)
  color object s5_planet(1),rgb(0,0,0)
  fade object s5_planet(1),10
  
  `Stars
  s5_stars(1) = new_plain(500,500)
  create bitmap 1,500,500
  ink rgb(255,255,255),0
  for i=1 to 200
    dot rnd(500),rnd(500)
  next i  
  get image 2,0,0,500,500,1
  delete bitmap 1
  set current bitmap 0
  ink rgb(255,255,255),0
  `set object texture s5_stars(1),0,1
  texture object s5_stars(1),2
  hide object s5_stars(1)
  
  `Texture
  size = 300
  create bitmap 1,size,size
  ink rgb(141,141,141),0
  make_cloud(0,0)
  make_cloud(50,20)
  make_cloud(130,10)
  make_cloud(220,40)
  make_cloud(10,60)
  make_cloud(40,150)
  make_cloud(160,140)
  make_cloud(220,220)
  make_cloud(200,210)
  make_cloud(10,0)
  make_cloud(20,20)
  make_cloud(250,100)
  make_cloud(250,200)
  make_cloud(150,220)
  make_cloud(100,100)
  blur bitmap 1,3
  get image 1,0,0,300,300
  delete bitmap 1
  set current bitmap 0
  ink rgb(255,255,255),0
  texture object s5_cloud(1),1
  set object transparency s5_cloud(1),1
  
  `Hide
  hide object s5_planet(1)
  hide object s5_cloud(1)
  
endfunction

`Cloud function
function make_cloud(x,y)

  box 20+x,10+y,30+x,50+y
  box 10+x,20+y,40+x,30+y
  box 30+x,30+y,50+x,40+y

endfunction

`Zoom to planet
function run_stage5()

  if sub_stage = 1
    hide object s4_cloud(1)
    `Show planet and clouds
    show object s5_planet(1)
    show object s5_cloud(1)
    yrotate object s5_cloud(1),15
    xrotate object s5_cloud(1),5
    position camera 37,0,37
    point camera 0,0,0
    `Show start
    show object s5_stars(1)
    inc sub_stage
  endif
  
  if sub_stage = 2
    `Keep stars distance
    position object s5_stars(1),camera position x()-200,0,camera position z()-200
    point object s5_stars(1),camera position x(),camera position y(),camera position z()
    `Rotate clouds
    xrotate object s5_cloud(1),object angle x(s5_cloud(1))+0.001
    yrotate object s5_cloud(1),object angle y(s5_cloud(1))+0.1
    position camera camera position x()+0.1,0,camera position z()+0.05
  endif
  
  if sub_stage = 2 and camera position x() > 190 and s4_cloud_count(1) = 0
    s4_cloud_count(1) = 100
  endif
  
  if s4_cloud_count(1) <= 100 and s4_cloud_count(1) > 1
    fade object s5_cloud(1),s4_cloud_count(1)
    fade object s5_planet(1),s4_cloud_count(1)/10
    fade object s5_stars(1),s4_cloud_count(1)
    dec s4_cloud_count(1)
  endif
  
  if s4_cloud_count(1) = 1
    sub_stage = 1
    inc stage
  endif

endfunction

function run_stage6()

  flush video memory
  delete objects 1,1000
  delete image 1
  delete image 2
  position camera 15.0,15.0,15.0
  point camera 7.5,0.0,0.0
  position camera 25.0,50.0,50.0

  s1_count(1) = 0
  s4_cloud_count(1) = 0
  
  load_stage1()
  load_stage2()
  load_stage3()
  load_stage4()
  load_stage5()
  
  stage = 1

endfunction

`*********************************
`Shooter
`*********************************

`Setup
sync on : sync rate 80
hide mouse
set camera range 0.1,10000
randomize timer()

set text font "Comic Sans MS"
set text size 18

`Create player
gosub CreatePlayer

`Create World
gosub CreateWorld

`Create level var
global Level
Level = 1

`create enemies
global Enemies as integer
Enemies = 5

`Start game
Restart:

ghost object off 1

`vars
type Plr
   id as integer
   health as integer
   power as integer
   aph as integer
   `animation phase(used for getting the point of animation)
   Move as float
   Run as float
   WeaponDrawed as integer
   maxdelay as integer
   delay as integer
endtype
dim Player(Enemies + 1) as Plr
Player(1).id = 1
Player(1).power = 1
Player(1).aph = 0
Player(1).Move = 0.4
Player(1).Run = 0.5
Player(1).maxdelay = 25
Player(1).WeaponDrawed = 1
Player(1).Health = 3

`Enemies
type enemyInfo
   AngX# as float
   AngY# as float
   move as integer
   left as integer
   right as integer
   shoot as integer
   status as integer
   time as integer
   targetx as float
   targetz as float
endtype
dim Enemy(Enemies) as enemyInfo

for i = 1 to Enemies

   `Create enemy
   if object exist(1 + i) = 0 then clone object 1 + i,1

   `Player data
   Player(1 + i).id = 1 + i
   Player(1 + i).aph = 0
   Player(1 + i).Move = 0.2
   Player(1 + i).Run = 0.2
   Player(1 + i).WeaponDrawed = 0
   Player(1 + i).Health = 1 + (Level/2)
   Player(1 + i).maxdelay = 75

   X# = rnd(1000)
   Z# = rnd(1000)
   position object Player(1 + i).id,X#,0,Z#

   `enemy AI data
   Enemy(i).move = 0
   Enemy(i).status = 0
   Enemy(i).left = 0
   Enemy(i).right = 0
   Enemy(i).AngX# = 0
   Enemy(i).AngY# = rnd(360)
   Enemy(i).shoot = 0
   Enemy(i).time = rnd(500)

   `unhide objects in case you reached the next level
   show object 1 + i
next i

`Delete all unnecessary enemies
while object exist(1 + i) > 0
   delete object 1 + i
endwhile

`reset variables
angx# = 0.0
angy# = 0.0

`Deals ghosting for the main player
global ghosting as integer
ghosting = 0

`Create a vector for checking distances
r = make vector3(1)

`position player
position object 1,500,0,500

do

   `Control player
   angx# = wrapvalue(angx# + (mousemovey()*0.2))
   `Angle boundries
   if wrapvalue(angx#-180) > 260.0
      angx# = 80.0
   else
      if wrapvalue(angx#-180) < 150 then angx# = 330
   endif
   angy# = wrapvalue(angy# + (mousemovex()*0.2))
   if upkey() = 1 then move = 1 else move = 0
   if downkey() = 1 then back = 1 else back = 0
   if leftkey() = 1 then left = 1 else left = 0
   if rightkey() = 1 then right = 1 else right = 0
   if controlkey() = 1 and hold = 0
      hold = 1
      Player(1).WeaponDrawed = abs(Player(1).WeaponDrawed-1)
   endif
   if mouseclick() = 1 then shoot = 1 else shoot = 0

   ControlPlayer(1, angx#, angy#, move, back, left, right, shoot)

   `turn on/off ghosting player
   if shiftkey() > 0 and hold = 0
      hold = 1
      if ghosting = 0 then ghosting = 1 else ghosting = 0
      if ghosting > 0 then ghost object on 1 else ghost object off 1
   endif

   `Camera
   CamBehind(1, 10.0, angx#, angy#)

   `Control bullets
   gosub ControlBullets

   `control water
   waterAng# = wrapvalue(waterAng#+0.2)
   position object 10000, 500, -2.5 + sin(waterAng#)*0.5, 500

   `Control enemies
   gosub EnemiesAI

   `Enable keys
   if controlkey() + shiftkey() = 0 then hold = 0

   `Control HUD
   gosub HUD

   sync
loop

`*** Enemy AI ***
EnemiesAI:

   Kills = 0
   for e = 1 to Enemies
      obj = Player(1 + e).id
      if Player(1 + e).Health > 0

         set vector3 1, object position x(1) - object position x(obj), object position y(1) - object position y(obj), object position z(1) - object position z(obj)

         `*** Enemy AI ***
         select Enemy(e).status
            case 0

               `Get distance
               dist# = length vector3(1)

               `if player gets too close, draw weapon and attack
               if dist# < 150.0
                  Player(1 + e).WeaponDrawed = 1
                  Enemy(e).status = 1
               else

                  `Wander

                  `Reset enemy
                  Player(1 + e).WeaponDrawed = 0
                  Enemy(e).shoot = 0

                  `Wander
                  if Enemy(e).time >= 0 then inc Enemy(e).time : Enemy(e).move = 0

                  if Enemy(e).time > 500
                     Enemy(e).time = -1
                  endif

                  if Enemy(e).time = -1

                     `Calculate target
                     Enemy(e).targetx = object position x(obj) - 50 + rnd(100)
                     Enemy(e).targetz = object position z(obj) - 50 + rnd(100)

                     `Get boundries
                     if Enemy(e).targetx < 0 then Enemy(e).targetx = abs(Enemy(e).targetx)
                     if Enemy(e).targetz < 0 then Enemy(e).targetz = abs(Enemy(e).targetz)
                     if Enemy(e).targetx > 1000 then Enemy(e).targetx = 1000 - abs(Enemy(e).targetx)
                     if Enemy(e).targetz > 1000 then Enemy(e).targetz = 1000 - abs(Enemy(e).targetz)

                     `Proceed to the next step
                     Enemy(e).time = -2
                  endif
                  if Enemy(e).time = -2

                     `Point object to get data
                     point object obj, Enemy(e).targetx, object position y(obj), Enemy(e).targetz

                     `get data
                     Enemy(e).AngY# = object angle y(obj)
                     Enemy(e).move = 1

                     `for distance
                     set vector3 1, object position x(obj) - Enemy(e).targetx, 0, object position z(obj) - Enemy(e).targetz
                     if length vector3(1) < 0.2 then Enemy(e).time = 0
                  endif


               endif

            endcase
            case 1

               `get distance
               dist# = length vector3(1)

               `ATTACK!!!
               point object obj, object position x(1), object position y(1), object position z(1)
               Enemy(e).AngY# = object angle y(obj) - 3 + rnd(6)
               Enemy(e).AngX# = object angle x(obj)
               Enemy(e).shoot = 1
               if dist# < 50.0 then Enemy(e).move = 0 else Enemy(e).move = 1

               `Reset to normal if you escaped.
               if dist# > 175.0 then Enemy(e).status = 0

            endcase
         endselect

         `update enemy
         ControlPlayer(1 + e, Enemy(e).AngX#, Enemy(e).AngY#, Enemy(e).move, 0, Enemy(e).left, Enemy(e).right, Enemy(e).shoot)
      else

         `Kill enemy
         hide object obj
         position object obj, 0, -50, 0
         inc Kills

      endif
   next e

return

`*** HUD ***
HUD:

   `Draw HUD
   ink 0,0
   box 0,0,100,40
   ink rgb(0,255,0),0
   box 0,0,100 / 3 * Player(1).health, 20
   ink 0,0
   center text 50,0,str$(Player(1).health)
   ink rgb(255,255,255),0
   text 5, 20, "Kills: " + str$(Kills) + "/" + str$(Enemies)

   `Handle losing
   if Player(1).health <= 0 then goto Lose
   if Kills = Enemies then goto Win

return

`*** Control All bullets ***
ControlBullets:

   `control all bullets
   for b = 1 to bulletQuant
      `If bullet is in the air
      if Bullet(b) > 0

         `move object
         move object bulletStart + b, 1
         dec Bullet(b)

         `detect anything that can stop the bullet
         if object position y(bulletStart + b) < get ground height(1, object position x(bulletStart + b), object position z(bulletStart + b)) then Bullet(b) = 0
         col = object collision(bulletStart + b, 0)
         if col > 0
            Bullet(b) = 0
            if col > 1 and col <= 1 + Enemies
               `For enemies
               dec Player(col).Health, Player(1).power
               Enemy(col-1).status = 2
            endif
            if col = 1
               dec Player(1).health
            endif
         endif

         `bullet dies
         if Bullet(b) = 0 then hide object bulletStart + b : position object bulletStart + b, 0,-50,0
      endif
   next b

return

`*** Create player ***
CreatePlayer:

   `create player
   make object box 1,2,3,1
   make object sphere 2,1.5
   make mesh from object 1,2
   delete object 2
   add limb 1,1,1
   link limb 1,0,1
   offset limb 1,1,0,2.5,0
   delete mesh 1

   `make arms
   make object box 2,0.5,1.5,0.5
   offset limb 2,0,0,-0.75,0
   make mesh from object 1,2

   `left arm
   add limb 1,2,1
   add limb 1,3,1
   link limb 1,2,3
   offset limb 1,3,0,-1.5,0
   offset limb 1,2,1.25,1.5,0

   `right arm
   add limb 1,4,1
   add limb 1,5,1
   link limb 1,4,5
   offset limb 1,5,0,-1.5,0
   offset limb 1,4,-1.25,1.5,0

   `make legs

   `left leg
   add limb 1,6,1
   add limb 1,7,1
   link limb 1,6,7
   offset limb 1,7,0,-1.5,0
   offset limb 1,6,-0.5,-1,0

   `right leg
   add limb 1,8,1
   add limb 1,9,1
   link limb 1,8,9
   offset limb 1,9,0,-1.5,0
   offset limb 1,8,0.5,-1,0

   `clean up
   delete object 2
   delete mesh 1

return

CreateWorld:

   `Create world
   make matrix 1,1000,1000,50,50
   CreateGrassTex(1,256,256)
   prepare matrix texture 1,1,1,1

   `prepare heights
   for y = 1 to 50
      for x = 1 to 50
         set matrix height 1, x, y, sin(x*y)*5
      next x
   next y
   update matrix 1

   `make water
   make object plain 10000,1000,1000
   rotate object 10000,-90,0,0
   position object 10000,500,-2.5,500
   set object light 10000,1
   set reflection shading on 10000
   set object collision off 10000

   `make sky
   make object plain 10001,10000,10000
   CreateSkyTex(2,512,512)
   position object 10001,500,500,500
   xrotate object 10001,90
   texture object 10001,2
   set object cull 10001,0
   set object light 10001,1
   scale object texture 10001,5,5

   for i = 0 to 3
      make object plain 10002 + i, 10000, 1000
      position object 10002 + i, 500 + cos(90*i)*5000, 0, 500 + sin(90*i)*5000
      color object 10002 + i, rgb(0,0,50)
      point object 10002 + i, 500, 0, 500
   next i

   `fog
   fog on
   fog color rgb(0,0,50)
   fog distance 5000
   backdrop on
   color backdrop rgb(0,0,50)

   `make bullets
   #constant bulletStart = 1000
   #constant bulletQuant = 500
   global currentBullet
   dim Bullet(bulletQuant)
   for i = 1 to bulletQuant
      make object cylinder bulletStart + i, 30
      xrotate object bulletStart + i, 90 : fix object pivot bulletStart + i
      scale object bulletStart + i, 0.2, 30, 0.2
      color object bulletStart + i, rgb(255,0,0)
      hide object bulletStart + i
   next i

return

`************************************
`           LOSE/WIN
`************************************

Lose:

   sync

   center text screen width()/2, screen height()/2, "You lose!"
   center text screen width()/2, screen height()/2 + 50, "Press any key to restart, esc to quit."

   sync

   wait 2000

wait key

Enemies = 5
goto Restart

Win:

   inc Level

   sync

   center text screen width()/2, screen height()/2, "You win!"
   center text screen width()/2, screen height()/2 + 50, "Press any key to go to level " + str$(Level) + ", esc to quit."

   sync

   wait 2000
wait key

Enemies = Enemies + 2
goto Restart

`************************************
`Function
`************************************

function ControlPlayer(id, angx#, angy#, move, back, left, right, shoot)

   `Extract data
   obj = Player(id).id
   posx# = object position x(obj)
   posy# = object position y(obj)
   posz# = object position z(obj)
   Weapon = Player(id).WeaponDrawed

   `animate character
   animate(obj)

   `Control player

   `move the player
   if Weapon = 1
      move# = Player(id).Move
      rotate limb obj,2,wrapvalue(angx#-90),0,0
      rotate limb obj,3, 0, 0, 0
   else
      move# = Player(id).Run
   endif
   if move = 1 and left+right = 0
      posx# = newxvalue(posx#, angy#, move#)
      posz# = newzvalue(posz#, angy#, move#)
   endif
   if back = 1 and left+right = 0
      posx# = newxvalue(posx#, angy#, -move#)
      posz# = newzvalue(posz#, angy#, -move#)
   endif
   if left = 1
      yrotate object obj, wrapvalue(angy# - 90)
      if Weapon > 0
         rotate limb obj,2, wrapvalue(angx#-90), 90, 0
         rotate limb obj,3, 0, 0, 0
      endif
      posx# = newxvalue(posx#, wrapvalue(angy# - 90), move#)
      posz# = newzvalue(posz#, wrapvalue(angy# - 90), move#)
   endif
   if right = 1
      yrotate object obj, wrapvalue(angy# + 90)
      if Weapon > 0
         rotate limb obj,2, -90,0,-10
         rotate limb obj,3, wrapvalue(angx#), 0, -90
      endif
      posx# = newxvalue(posx#, wrapvalue(angy# + 90), move#)
      posz# = newzvalue(posz#, wrapvalue(angy# + 90), move#)
   endif

   `animate
   if left + right + move + back > 0
      if Player(id).aph <= 2 then Player(id).aph = 3
   else
      if Player(id).aph > 2 then Player(id).aph = 0
   endif

   `Shooting
   if Weapon > 0
      if Player(id).delay > 0 then dec Player(id).delay
      if shoot > 0 and Player(id).delay = 0
         Player(id).delay = Player(id).maxdelay
         inc currentBullet
         if currentBullet > bulletQuant then currentBullet = 1
         position object bulletStart + currentBullet, limb position x(obj,2), limb position y(obj,2), limb position z(obj,2)
         rotate object bulletStart + currentBullet, angx#, angy#, 0
         if right > 0 then move object right bulletStart + currentBullet, 2.0
         move object bulletStart + currentBullet, 6
         show object bulletStart + currentBullet
         Bullet(currentBullet) = 150
      endif
   endif

   `calculate height
   posy# = get ground height(1, posx#, posz#) + 4

   `Boundries
   if posx# < 0.0 then posx# = 0.0
   if posz# < 0.0 then posz# = 0.0
   if posx# > 1000.0 then posx# = 1000.0
   if posz# > 1000.0 then posz# = 1000.0

   `update player
   position object obj, posx#, posy#, posz#
   if left + right = 0
      yrotate object obj, angy#
   endif

endfunction

function animate(id)

   obj = Player(id).id
   Phase = Player(id).aph

   `Animate character
   if Phase <= 2
      select Phase
         case 0
            `reset body
            for i = 1 to 8
               rotate limb obj,i,0,0,0
            next i
            Player(id).aph = 1
         endcase
         case 1
            pass = 0
            if wrapvalue(limb angle x(obj,6)+180)>150
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)-0.1),0,0
               rotate limb obj,7,wrapvalue(360-limb angle x(obj,6)),0,0
            else
               pass=1
            endif
            if wrapvalue(limb angle x(obj,8)+180)>150
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)-0.1),0,0
               rotate limb obj,9,wrapvalue(360-limb angle x(obj,8)),0,0
            else
               pass=1
            endif
            if pass = 1 then Player(id).aph = 2
         endcase
         case 2
            pass = 0
            if wrapvalue(limb angle x(obj,6)+180)<180
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)+0.1),0,0
               rotate limb obj,7,wrapvalue(360-limb angle x(obj,6)),0,0
            else
               pass=1
            endif
            if wrapvalue(limb angle x(obj,8)+180)<180
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)+0.1),0,0
               rotate limb obj,9,wrapvalue(360-limb angle x(obj,8)),0,0
            else
               pass=1
            endif
            if pass = 1 then Player(id).aph = 1
         endcase
      endselect
      rotate limb obj,2,0,0,0 : rotate limb obj,3,0,0,0
      rotate limb obj,4,0,0,0 : rotate limb obj,5,0,0,0
   endif
   if Phase>2 and Phase<=5
      select Phase
         case 3
            `reset body
            for i = 1 to 8
               rotate limb obj,i,0,0,0
            next i
            Player(id).aph = 4
         endcase
         case 4
            pass = 0
            if wrapvalue(limb angle x(obj, 6)-180) < 210
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)+2),0,0
               rotate limb obj,7,wrapvalue(30 - limb angle x(obj,6)),0,0
            else
               pass = 1
            endif
            if wrapvalue(limb angle x(obj, 8)-180) > 150
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)-2),0,0
               rotate limb obj,9,wrapvalue(30-limb angle x(obj,8)),0,0
            else
               pass = 1
            endif
            if pass = 1 then Player(id).aph = 5
         endcase
         case 5
            pass = 0
            if wrapvalue(limb angle x(obj,6)-180) > 150
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)-2),0,0
               rotate limb obj,7,wrapvalue(30-limb angle x(obj,6)),0,0
            else
               pass = 1
            endif
            if wrapvalue(limb angle x(obj,8)-180) < 210
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)+2),0,0
               rotate limb obj,9,wrapvalue(30-limb angle x(obj,8)),0,0
            else
               pass = 1
            endif
            if pass = 1 then Player(id).aph = 4
         endcase
      endselect
      rotate limb obj,2, limb angle x(obj,8),0,0
      rotate limb obj,4, limb angle x(obj,6),0,0
      rotate limb obj,3, -100,0,0
      rotate limb obj,5, -100,0,0
   endif

endfunction

function CamBehind(obj, Dist#, angx#, angy#)

   `get position data
   posx# = object position x(obj)
   posy# = object position y(obj) + 2.5
   posz# = object position z(obj)
   angy# = wrapvalue(angy#-180)

   `work out the camera position
   camx# = newxvalue(posx#, angy#, cos(angx#)*Dist#)
   camz# = newzvalue(posz#, angy#, cos(angx#)*Dist#)
   camy# = posy# + (sin(angx#)*Dist#)

   `smoothen up
   camx# = curvevalue(camx#, camera position x(), 5)
   camy# = curvevalue(camy#, camera position y(), 5)
   camz# = curvevalue(camz#, camera position z(), 5)

   `collision with ground
   if camy# < get ground height(1, camx#, camz#)+1
      distance# = sqrt(Dist#^2 - (posy#-get ground height(1,posx#,posz#))^2)
      camx# = newxvalue(posx#, angy#, distance#)
      camz# = newzvalue(posz#, angy#, distance#)
      camy# = get ground height(1, camx#, camz#)+1
   endif

   `update camera
   position camera camx#,camy#,camz#
   point camera posx#,posy#,posz#

endfunction

function CreateGrassTex(nr, Width, Height)


   `create a memblock
   make memblock nr, 12 + (Width*Height*4)

   `write header
   write memblock DWORD nr,0, Width
   write memblock DWORD nr,4, Height
   write memblock DWORD nr,8, 32

   `write data
   for i = 1 to (Width*Height)
      green = 50 + rnd(55)
      write memblock byte nr, 12 + ((i-1)*4), 0
      write memblock byte nr, 13 + ((i-1)*4), green
      write memblock byte nr, 14 + ((i-1)*4), 0
      write memblock byte nr, 15 + ((i-1)*4), 255
   next i

   `create an image from the memblock and delete memblock
   make image from memblock nr,nr
   delete memblock nr

endfunction

function CreateSkyTex(nr, width, height)
   make memblock nr, 12 + (width*height*4)
   write memblock dword nr, 0, width
   write memblock dword nr, 4, height
   write memblock dword nr, 8, 32
   for y = 1 to height
      for x = 1 to width
         pos = 12 + ((y-1)*width*4) + ((x-1)*4)
         BW = rnd(10)
         if BW > 0
            blue = 255
            green = rnd(255)
            red = green
         else
            blue = 255
            green = blue
            red = green
         endif
         write memblock byte nr, pos, blue
         write memblock byte nr, pos+1, green
         write memblock byte nr, pos+2, red
         write memblock byte nr, pos+3, 255
      next x
   next y
   make image from memblock nr, nr
   create bitmap nr, width, height
   set current bitmap nr
   paste image nr, 0, 0
   blur bitmap nr, 2
   blur bitmap nr, 2
   get image nr, 0,0, width, height
   delete bitmap nr
   set current bitmap 0
endfunction

rem *****************************************************************************************
rem Developed by Thorin for TGC 
rem 2008 Christmas minimal media Contest
rem *****************************************************************************************

rem -------------
rem Init
rem -------------
sync on
randomize timer()+mousex()-mousey()
autocam off
hide mouse
backdrop on
color backdrop rgb(101,4,11)
fog on
fog color rgb(101,4,11)
fog distance 600
set ambient light 60
set text font "Verdana"
set text size 14
set text to bold
ink 1,0

rem -------------
rem Textures
rem -------------
load bitmap "Gift01.jpg",1
set current bitmap 1
rem hull
get image 10,90,0,120,60
rem cockpit
get image 11,102,92,106,96
rem wing
get image 12,220,94,256,128
rem engine
get image 13,96,4,106,10
rem fire
get image 14,248,106,255,111
rem ground
get image 15,130,64,190,100
set current bitmap 0

rem -------------
rem giftbox
rem -------------
dim x#(5)
dim y#(5)
dim z#(5)
dim r#(5)
dim delta#(5)
dim rot#(5)
for h=0 to 5
   load object "Gift01.x",h+1
   scale object h+1,5,5,5
   yrotate object h+1,180
   delta#(h)=(rnd(12)/10)+.1
   rot#(h)=(rnd(12)/10)+.1
   z#(h)=300+rnd(300)
   x#(h)=0
   while abs (x#(h)) < 6
      x#(h)=rnd(20)-40
   endwhile
   y#(h)=0
   while abs (y#(h)) < 5
      y#(h)=rnd(8)-16
   endwhile
   r#(h)=rnd(360)
   position object h+1,x#(h),y#(h),z#(h)
next h


rem -------------
rem create ship
rem -------------

make object cone 10,10
scale object 10,30,100,30
set object cull 10,0
texture object 10,10
xrotate object 10,90

make object cone 11,9
scale object 11,130,290,10
set object cull 11,0
texture object 11,10
xrotate object 11,90
position object 11, 0,0,-1

make object cone 12,10
scale object 12,200,270,3
set object cull 12,0
texture object 12,12
xrotate object 12,90

make object sphere 13,3
scale object 13,100,100,300
texture object 13,11
position object 13, 0,.4,-8

make object Cylinder 14,3.5
scale object 14,90,100,90
xrotate object 14,90
set object cull 14,0
texture object 14,13
position object 14, 0,0,-13

make object sphere 15,3
set object cull 15,0
texture object 15,14
position object 15, 0,0,-15

make object plain 20, 1200,1800
xrotate object 20,90
texture object 20,15
position object 20, -100,-25,300

make object plain 21, 1200,1800
xrotate object 21,90
texture object 21,15
scroll object texture 21,0,-.3
position object 21, -100,+20,300

make light 1
position light 1,0,0,-15

position camera 20,5,-20
point camera 0,0,0

w#=285
dw#=+1

rem -------------
Mainloop:
rem -------------

while -1
   for h=0 to 5
      z#(h)=z#(h)-delta#(h)
      if z#(h) < -25
         z#(h)=300+rnd(350)
         delta#(h)=(rnd(12)/10)+.1
         rot#(h)=(rnd(12)/10)+.1
      endif
      position object h+1,x#(h),y#(h),z#(h)
      r#(h)=r#(h)+rot#(h)
      xrotate object h+1,wrapvalue(r#(h))
   next h
   scale object 15,100,100,rnd(200)+80
   scroll object texture 20,0,-.002
   scroll object texture 21,0,-.0007
   if rnd(1) > .5
      ghost object on 15
   else
      ghost object off 15
   endif

   w#=w#+dw#
   if w# > 345 then dw# = -.05
   if w# < 320 then dw# = +.05

   set camera to follow 0,0,0, w# ,30, 5 ,20, 0

   set text to bold
   set text size 32
   ink rgb(255,255,255),0
   center text (screen width()/2)-1,1,"Techdemo Christmas Contest 2008"
   ink rgb(32,32,128),0
   center text (screen width()/2)+1,3,"Techdemo Christmas Contest 2008"
   ink rgb(128,128,255),0
   center text screen width()/2,2,"Techdemo Christmas Contest 2008"
   set text size 16
   center text screen width()/2,screen height()-20,"press <escape> to exit"
   sync
endwhile
end

REM Project: Game 1- Unnamed
REM Created: 12/19/2007 8:00:05 PM
REM ***** Main Source File *****

#CONSTANT forceScreenResolution 0
#CONSTANT screenDepth           32  `The screen depth.

GLOBAL screenWidth  = 1440 `The screen width ( in pixels ).
GLOBAL screenHeight = 900 `The screen height.

TYPE tScreenCoord `A UDT used to describe a screen coordinate.
   x as integer   `The x value of the coordinate.
   y as integer   `The y value of the coordinate.
ENDTYPE           `The end of this UDT.

TYPE tPlayer                    `A UDT used to describe attributes of the player.
   size         as integer      `The size in pixels of your player.
   pos          as tScreenCoord `The position of your player.
   num          as integer      `The sprite/image number of the player.
   level        as integer      `The current level of your player. Higher is harder.
ENDTYPE                         `The end of this UDT.

TYPE tEnemy                     `A UDT used to describe the enemies.
   size      as integer         `The enemy size.
   speed     as integer         `The enemy speed.
   pos       as tScreenCoord    `The enemy position.
   direction as string          `The direction in which the enemy is moving.
ENDTYPE                         `The end of this UDT.

GLOBAL imgID            as integer   `A global variable used for the freeImg( ) function.
GLOBAL sprID            as integer   `See above ^^ but for the freeSpr( ) function.
       sprID            = 1
GLOBAL temp             as integer   `A temporary variable used throughout my code for various uses.
GLOBAL rndNum           as integer   `A number which will contain a random number determining the creation of an enemy.
GLOBAL spr              as integer   `A variable which is used in the enemy functions.
GLOBAL time             as integer   `A variable that contains the time at the start of the game.
GLOBAL elapsedTime      as integer   `A number representing the amount of time passed during the game.
GLOBAL nextLevel        as integer   `The number of EXP to the next level.
       nextLevel        = 10000
GLOBAL gameOverString   as string    `The string that is displayed at the end of the game depending on how well you did.
GLOBAL difficulty       as integer
GLOBAL inputString      as string
GLOBAL syncRate         as integer
GLOBAL keyHeld          as boolean
GLOBAL charHold         as boolean
GLOBAL colorTime        as integer
GLOBAL color            as string
       color            = "red"
GLOBAL spaceHeld        as integer

GLOBAL player as tPlayer                                           `A variable which contains info of your player.
   player.size        = screenWidth / 36                           `The player size.
   player.pos.x       = ( screenWidth / 2 ) - ( player.size / 2 )  `The initial X position.
   player.pos.y       = ( screenHeight / 2 ) - ( player.size / 2 ) `The initial Y position.
   player.num         = 1                                          `The sprite/image number of the character.
   player.level       = 1                                   `The initial player level.

GLOBAL totalEnemies                                      `A global variable describing the totalEnemies.

DIM enemies( 10000 )    as tEnemy                        `An array of the enemies.
DIM snow( screenWidth ) as tScreenCoord
GLOBAL rndSnow          as integer

if forceScreenResolution = 1
   set Display Mode screenWidth, screenHeight, screenDepth  `Sets the resolution and screen depth.
else
   if check display mode( 1440, 900, 32 )
      set display mode 1440, 900, 32
      screenWidth = 1440
      screenHeight = 900
   else
      if check display mode( 1280, 1024, 32 )
         set display mode 1280, 1024, 32
         screenWidth = 1280
         screenHeight = 1024
      else
         if check display mode( 1280, 800, 32 )
            set display mode 1280, 800, 32
            screenWidth = 1280
            screenHeight = 800
         else
            if check display mode( 1024, 768, 32 )
               set display mode 1024, 768, 32
               screenWidth = 1024
               screenHeight = 768
            else
               if check display mode( 800, 600, 32 )
                  set display mode 800, 600, 32
                  screenWidth = 800
                  screenHeight = 600
               else
                  exit prompt "Sorry, your monitor has no resolutions which are compatible with this program.", "Incompatible Display"
                  end
               endif
            endif
         endif
      endif
   endif
endif

hide Mouse                                               `Hides the mouse.
randomize timer( )                                       `Seeds the random-# generator.
set text font "georgia"
set text size screenWidth / 48                             `Sets text properties.


load image "gift01.jpg", 9
paste image 9, 0, 0
get image 10, 64, 64, 128, 128
delete image 9

cls rgb( 0, 130, 180 )

startScreen( )


backDrop on                                              `Turns the backdrop on.
color BackDrop rgb( 0, 130, 180 )                      `Colors it.

do

clear entry buffer

cls rgb( 150, 150, 150 )
set cursor ( screenWidth / 2 ) - 20, ( screenHeight / 2 ) + 30
repeat
   set text to bolditalic
   center text screenWidth / 2, ( screenHeight / 2 ) - 150, "Instructions"
   set text to normal
   center text screenWidth / 2, ( screenHeight / 2 ) - 100, "Move your player around with the mouse while trying to avoid the presents."
   center text screenWidth / 2, ( screenHeight / 2 ) - 70, "If you get hit by a present, the game will end."
   center text screenWidth / 2, ( screenHeight / 2 ) - 40, "Stay alive for 100 seconds to beat the game."
   center text screenWidth / 2, screenHeight / 2, "Enter a difficulty level (1-99)."
   center text screenWidth / 2, ( screenHeight / 2 ) + 30, "Higher difficulties will result in faster, more densely packed enemies."
   center text screenWidth / 2, ( screenHeight / 2 ) + 60, "Press the space bar once you've entered your difficulty."
   inputString = entry$( 1 )
   inputString = "- " + inputString
   inputString = inputString + " -"
   center text screenWidth / 2, ( screenHeight / 2 ) + 90, inputString
   if spaceKey( ) = 0
      spaceHeld = 0
   endif
until spaceKey( ) and spaceHeld = 0

difficulty = val( right$( inputString, len( inputString ) - 1 ) )
syncRate = difficulty * 5 + 60
sync rate syncRate

createPlayer( player.size )                              `Creates the player.

time = timer( )                                          `Gets time in MS
elapsedTime = 0
player.level = 1
for i = 1 to 10000
   enemies( i ).direction = ""
   enemies( i ).pos.x = -500
   enemies( i ).pos.y = -500
   enemies( i ).speed = 0
next

   repeat                                      `START OF THE MAIN LOOP. - - - - - - - - - - - - - - - - - - - - - -
                                               `                                                                  |
      elapsedTime = timer( ) - time            `Establishes elapsed time.

      if elapsedTime > nextLevel               `Is the elapsed time great enough to raise a level?
         raiseLevel( )                         `If it is, raise a level.
      endif

      if player.level = 11
         delete sprite player.num
         delete image player.num
         for i = 1 to 10000
            if sprite exist( i )
               delete sprite i
            endif
         next i
         if youWin( ) = 1
            exit
         endif
         if youWin( ) = 0
            end
         endif
      endif

      movePlayer( )                            `Changes player position variables according to mouse position.

      updatePlayer( )                          `Updates screen/sprites accordingly.

      rndNum = rnd( 100 - difficulty )    `Generates a random number.

      if rndNum = 1                            `Is the random number equal to 1?
         makeRandomEnemy( )                    `If it is, then make an enemy.
      endif

      if sprite collision( player.num, 0 ) > 0 `If you collide with an enemy...
         delete sprite player.num
         delete image player.num
         for i = 1 to 10000
            if sprite exist( i )
               delete sprite i
            endif
         next i
         if gameOver( ) = 1
            exit
         endif
         if gameOver( ) = 0
            end
         endif
      endif

      updateEnemies( )                         `Update enemy positions.

      stats( )

      `debug( )

   until EscapeKey( )                   `END OF MAIN LOOP. - - - - - - - - - - - - - - - - - - - - - - - -|

loop


end

function startScreen( )
   set text to bold
   set text size screenWidth / 18
   box 0, screenHeight - ( screenHeight / 5), screenWidth, screenHeight
   for i = 1 to screenWidth
      snow( i ).y = rnd( screenHeight - ( screenHeight / 5 ) )
      snow( i ).x = rnd( screenWidth )
   next i
   colorTime = timer( )
   repeat
      if timer( ) - colorTime > 800
         if color = "red"
            color = "green"
         else
            color = "red"
         endif
         colorTime = timer( )
      endif
      if color = "red"
         ink rgb( 200, 0, 0 ), rgb( 0, 0, 0 )
      else
         ink rgb( 0, 180, 0 ), rgb( 0, 0, 0 )
      endif
      center text screenWidth / 2, screenHeight / 3, "Welcome to Present Attack !"
      set text size screenWidth / 48
      center text screenWidth / 2, ( screenHeight / 3 ) + 100, "Press any key to continue."
      set text size screenWidth / 18
      ink rgb( 255, 255, 255 ), rgb( 0, 0, 0 )
      for i = 1 to screenWidth
         snow( i ).y = snow( i ).y + 1
         if snow( i ).y > screenHeight - ( screenHeight / 5 )
            snow( i ).y = 0
         endif
         lock pixels
         dot snow( i ).x, snow( i ).y, rgb( 255, 255, 255 )
         dot snow( i ).x, snow( i ).y - 1, rgb( 0, 130, 180 )
         unlock pixels
      next i
   until scanCode( )
   set text size screenWidth / 48
   set text to normal
   if spaceKey( )
      spaceHeld = 1
   endif
endFunction

function createPlayer( size as integer )
   cls
   for i = 1 to size / 2 step 8
      ink rgb( 255, 0, 0 ), 0
      circle size / 2, size / 2, size / 2 - i
      ink rgb( 0, 255, 0 ), 0
      circle size / 2, size / 2, ( size / 2 ) - ( i + 3 )
   next oi
   player.num = 1
   get image player.num, 0, 0, size, size
endFunction

function movePlayer( )
   player.pos.x = mouseX( )
   player.pos.y = mouseY( )
   if player.pos.x < -player.size
      player.pos.x = screenWidth
   endif
   if player.pos.x > screenWidth
      player.pos.x = -player.size
   endif
   if player.pos.y < -player.size
      player.pos.y = screenHeight
   endif
   if player.pos.y > screenHeight
      player.pos.y = -player.size
   endif
endFunction

function updatePlayer( )
   sprite player.num, player.pos.x, player.pos.y, player.num
endFunction

function updatePlayerSize( )
   size sprite player.num, player.size, player.size
endFunction

function makeRandomEnemy( )
   inc totalEnemies
   spr = freeSpr( )
   enemies( spr ).size = ( player.level * ( screenWidth / 144 ) ) + ( screenWidth / 72 )
   temp = rnd( 1 )
   if temp = 0
      enemies( spr ).direction = "right"
      enemies( spr ).pos.x = -enemies( spr ).size
      enemies( spr ).pos.y = rnd( screenHeight )
      enemies( spr ).speed = player.level
   endif
   if temp = 1
      enemies( spr ).direction = "left"
      enemies( spr ).pos.x = screenWidth
      enemies( spr ).pos.y = rnd( screenHeight )
      enemies( spr ).speed = player.level
   endif
endFunction

function updateEnemies( )
   for i = 2 to totalEnemies + 2
      if enemies( i ).direction = "left"
         enemies( i ).pos.x = enemies( i ).pos.x - enemies( i ).speed
      endif
      if enemies( i ).direction = "right"
         enemies( i ).pos.x = enemies( i ).pos.x + enemies( i ).speed
      endif
      sprite i, enemies( i ).pos.x, enemies( i ).pos.y, 10
      size sprite i, enemies( i ).size, enemies( i ).size
   next i
endFunction

function raiseLevel( )
   inc player.level
   nextLevel = nextLevel + 10000
endFunction

function debug( )
   text 0, 0, "FPS: " + str$( screen fps( ) )
   text 0, 20, "X: " + str$( player.pos.x )
   text 0, 30, "Y: " + str$( player.pos.y )
   text 0, 70, "Enemies: " + str$( totalEnemies )
   text 0, 90, "Elapsed Time: " + str$( elapsedTime )
   text 0, 110, "Level: " + str$( player.level )
   text 0, 130, "Next Level: " + str$( nextLevel )
endFunction

function stats( )
   ink rgb( 0, 0, 0 ), rgb( 255, 255, 255 )
   text 10, 10, "Level: " + str$( player.level )
   text 10, 40, "Time: " + str$( elapsedTime / 1000 ) + " seconds"
   text 10, 70, "Difficulty Level: " + str$( difficulty ) + "/99. Select higher difficulties for a better challenge."
endFunction

function freeSpr( )
   inc sprID
endFunction sprID

function freeImg( )
   inc imgID
endFunction imgID

function gameOver( )
   ink rgb( 0, 0, 0 ), rgb( 255, 255, 255 )
   repeat
      center text screenWidth / 2, screenHeight / 2, "You lasted " + str$( elapsedTime / 1000 ) + " seconds and got to level " + str$( player.level ) + "."
      if player.level < 2
         gameOverString = "Wow. You really sucked."
      endif
      if player.level = 2
         gameOverString = "Well, you didn't do THAT bad..."
      endif
      if player.level = 3
         gameOverString = "You did okay."
      endif
      if player.level = 4
         gameOverString = "Pretty nice! Try and go for LVL 5 next time."
      endif
      if player.level = 5
         gameOverString = "You did great!"
      endif
      if player.level = 6
         gameOverString = "Wow. You're freakin' amazing."
      endif
      if player.level = 7
         gameOverString = "You're incredible. Period."
      endif
      if player.level = 8
         gameOverString = "I have no idea how you got this far, but nice job!"
      endif
      if player.level = 9
         gameOverString = "Okay. You cheated."
      endif
      if player.level = 10
         gameOverString = "I didn't think you'd make it this far..."
      endif
      center text screenWidth / 2, ( screenHeight / 2 ) + 30, gameOverString
      center text screenWidth / 2, ( screenHeight / 2 ) + 60, "Would you like to play again?? (Y/N)"
   until inkey$( ) = "y" or inkey$( ) = "n"
   if lower$( inkey$( ) ) = "y"
      charHeld = 1
   endif
   if lower$( inkey$( ) ) = "n"
      charHeld = 0
   endif
   ink rgb( 255, 255, 255 ), rgb( 0, 0, 0 )
endFunction charHeld

function youWin( )
   ink rgb( 0, 0, 0 ), rgb( 255, 255, 255 )
   repeat
      center text screenWidth / 2, screenHeight / 2, "What?!?!?!? You beat my game???? You must've cheated... ):<"
      center text screenWidth / 2, ( screenHeight / 2 ) + 30, "Would you like to play again?? (Y/N)"
   until inkey$( ) = "y" or inkey$( ) = "n"
   if lower$( inkey$( ) ) = "y"
      charHeld = 1
   endif
   if lower$( inkey$( ) ) = "n"
      charHeld = 0
   endif
   ink rgb( 255, 255, 255 ), rgb( 0, 0, 0 )
endFunction charHeld

REM Project: Game 1- Unnamed
REM Created: 12/19/2007 8:00:05 PM
REM ***** Main Source File *****

#CONSTANT forceScreenResolution 1
#CONSTANT screenDepth           32  `The screen depth.

GLOBAL screenWidth  = 1440 `The screen width ( in pixels ).
GLOBAL screenHeight = 900 `The screen height.

TYPE tScreenCoord `A UDT used to describe a screen coordinate.
   x as integer   `The x value of the coordinate.
   y as integer   `The y value of the coordinate.
ENDTYPE           `The end of this UDT.

TYPE tPlayer                    `A UDT used to describe attributes of the player.
   size         as integer      `The size in pixels of your player.
   pos          as tScreenCoord `The position of your player.
   num          as integer      `The sprite/image number of the player.
   level        as integer      `The current level of your player. Higher is harder.
ENDTYPE                         `The end of this UDT.

TYPE tEnemy                     `A UDT used to describe the enemies.
   size      as integer         `The enemy size.
   speed     as integer         `The enemy speed.
   pos       as tScreenCoord    `The enemy position.
   direction as string          `The direction in which the enemy is moving.
ENDTYPE                         `The end of this UDT.

GLOBAL imgID            as integer   `A global variable used for the freeImg( ) function.
GLOBAL sprID            as integer   `See above ^^ but for the freeSpr( ) function.
       sprID            = 1
GLOBAL temp             as integer   `A temporary variable used throughout my code for various uses.
GLOBAL rndNum           as integer   `A number which will contain a random number determining the creation of an enemy.
GLOBAL spr              as integer   `A variable which is used in the enemy functions.
GLOBAL time             as integer   `A variable that contains the time at the start of the game.
GLOBAL elapsedTime      as integer   `A number representing the amount of time passed during the game.
GLOBAL nextLevel        as integer   `The number of EXP to the next level.
       nextLevel        = 10000
GLOBAL gameOverString   as string    `The string that is displayed at the end of the game depending on how well you did.
GLOBAL maxLevel         as integer   `The max level; determines what level you beat the game at. Esentially pointless,
                                     `as you can't beat the game. :)
GLOBAL difficulty       as integer
GLOBAL inputString      as string
GLOBAL syncRate         as integer
GLOBAL keyHeld          as boolean
GLOBAL charHold         as boolean
GLOBAL colorTime        as integer
GLOBAL color            as string
       color            = "red"
GLOBAL spaceHeld        as integer

GLOBAL player as tPlayer                                           `A variable which contains info of your player.
   player.size        = screenWidth / 36                           `The player size.
   player.pos.x       = ( screenWidth / 2 ) - ( player.size / 2 )  `The initial X position.
   player.pos.y       = ( screenHeight / 2 ) - ( player.size / 2 ) `The initial Y position.
   player.num         = 1                                          `The sprite/image number of the character.
   player.level       = 1                                   `The initial player level.

GLOBAL totalEnemies                                      `A global variable describing the totalEnemies.

DIM enemies( 10000 )    as tEnemy                        `An array of the enemies.
DIM snow( screenWidth ) as tScreenCoord
GLOBAL rndSnow          as integer

if forceScreenResolution = 1
   set Display Mode screenWidth, screenHeight, screenDepth  `Sets the resolution and screen depth.
else
   if check display mode( 1440, 900, 32 )
      set display mode 1440, 900, 32
      screenWidth = 1440
      screenHeight = 900
   else
      if check display mode( 1280, 1024, 32 )
         set display mode 1280, 1024, 32
         screenWidth = 1280
         screenHeight = 1024
      else
         if check display mode( 1280, 800, 32 )
            set display mode 1280, 800, 32
            screenWidth = 1280
            screenHeight = 800
         else
            if check display mode( 1024, 768, 32 )
               set display mode 1024, 768, 32
               screenWidth = 1024
               screenHeight = 768
            else
               if check display mode( 800, 600, 32 )
                  set display mode 800, 600, 32
                  screenWidth = 800
                  screenHeight = 600
               else
                  exit prompt "Sorry, your monitor has no resolutions which are compatible with this program.", "Incompatible Display"
                  end
               endif
            endif
         endif
      endif
   endif
endif

hide Mouse
sync rate 60
randomize timer( )
set text font "georgia"
set text size screenWidth / 48


load image "gift01.jpg", 9
paste image 9, 0, 0
get image 10, 64, 64, 128, 128
delete image 9

cls rgb( 0, 130, 180 )

startScreen( )

backDrop on
color BackDrop rgb( 0, 130, 180 )

do

instructions( )

difficulty = val( right$( inputString, len( inputString ) - 1 ) )

createPlayer( player.size )

time = timer( )
elapsedTime = 0

player.level = 1

reset( )

   repeat                                      `START OF THE MAIN LOOP. - - - - - - - - - - - - - - - - - - - - - -
                                               `                                                                  |
      elapsedTime = timer( ) - time            `Establishes elapsed time.

      if elapsedTime > nextLevel               `Is the elapsed time great enough to raise a level?
         raiseLevel( )                         `If it is, raise a level.
      endif

      if player.level = 11
         delete sprite player.num
         delete image player.num
         for i = 1 to 10000
            if sprite exist( i )
               delete sprite i
            endif
         next i
         if youWin( ) = 1
            exit
         endif
         if youWin( ) = 0
            end
         endif
      endif

      movePlayer( )

      updatePlayer( )

      rndNum = rnd( 101 - difficulty ) - 1

      if rndNum = 0 or rndNum = 1 or rndNum = -1
         makeRandomEnemy( )
      endif

      if sprite collision( player.num, 0 ) > 0
         delete sprite player.num
         delete image player.num
         for i = 1 to 10000
            if sprite exist( i )
               delete sprite i
            endif
         next i
         if gameOver( ) = 1
            exit
         endif
         if gameOver( ) = 0
            end
         endif
      endif

      updateEnemies( )                         `Update enemy positions.

      stats( )

      `debug( )

   until EscapeKey( )                   `END OF MAIN LOOP. - - - - - - - - - - - - - - - - - - - - - - - -|

loop


end

function startScreen( )
   set text to bold
   set text size screenWidth / 18
   box 0, screenHeight - ( screenHeight / 5), screenWidth, screenHeight
   for i = 1 to screenWidth
      snow( i ).y = rnd( screenHeight - ( screenHeight / 5 ) )
      snow( i ).x = rnd( screenWidth )
   next i
   colorTime = timer( )
   repeat
      if timer( ) - colorTime > 800
         if color = "red"
            color = "green"
         else
            color = "red"
         endif
         colorTime = timer( )
      endif
      if color = "red"
         ink rgb( 200, 0, 0 ), rgb( 0, 0, 0 )
      else
         ink rgb( 0, 180, 0 ), rgb( 0, 0, 0 )
      endif
      center text screenWidth / 2, screenHeight / 3, "Welcome to Present Attack !"
      set text size screenWidth / 48
      center text screenWidth / 2, ( screenHeight / 3 ) + 100, "Press any key to continue."
      set text size screenWidth / 18
      ink rgb( 255, 255, 255 ), rgb( 0, 0, 0 )
      for i = 1 to screenWidth
         snow( i ).y = snow( i ).y + 1
         if snow( i ).y > screenHeight - ( screenHeight / 5 )
            snow( i ).y = 0
         endif
         lock pixels
         dot snow( i ).x, snow( i ).y, rgb( 255, 255, 255 )
         dot snow( i ).x, snow( i ).y - 1, rgb( 0, 130, 180 )
         unlock pixels
      next i
   until scanCode( )
   set text size screenWidth / 48
   set text to normal
   if spaceKey( )
      spaceHeld = 1
   endif
endFunction

function instructions( )
   clear entry buffer
   cls rgb( 150, 150, 150 )
   set cursor ( screenWidth / 2 ) - 20, ( screenHeight / 2 ) + 30
   for i = 1 to screenWidth
      snow( i ).y = rnd( screenHeight - ( screenHeight / 5 ) )
      snow( i ).x = rnd( screenWidth )
   next i
   repeat
      box 0, screenHeight - ( screenHeight / 5), screenWidth, screenHeight, rgb( 255, 255, 255 ), rgb( 255, 255, 255 ), rgb( 255, 255, 255 ), rgb( 255, 255, 255 )
      set text to bolditalic
      center text screenWidth / 2, ( screenHeight / 2 ) - 150, "Instructions"
      set text to normal
      center text screenWidth / 2, ( screenHeight / 2 ) - 100, "Move your player around with the mouse while trying to avoid the presents."
      center text screenWidth / 2, ( screenHeight / 2 ) - 70, "If you get hit by a present, the game will end."
      center text screenWidth / 2, ( screenHeight / 2 ) - 40, "Stay alive for 100 seconds to beat the game."
      center text screenWidth / 2, screenHeight / 2, "Enter a difficulty level (1-99)."
      center text screenWidth / 2, ( screenHeight / 2 ) + 30, "Higher difficulties will result in faster, more densely packed enemies."
      center text screenWidth / 2, ( screenHeight / 2 ) + 60, "Press the space bar once you've entered your difficulty."
      inputString = entry$( 1 )
      inputString = "- " + inputString
      inputString = inputString + " -"
      center text screenWidth / 2, ( screenHeight / 2 ) + 90, inputString
      for i = 1 to screenWidth
         snow( i ).y = snow( i ).y + 1
         if snow( i ).y > screenHeight - ( screenHeight / 5 )
            snow( i ).y = 0
         endif
         lock pixels
         dot snow( i ).x, snow( i ).y, rgb( 255, 255, 255 )
         dot snow( i ).x, snow( i ).y - 1, rgb( 0, 130, 180 )
         unlock pixels
      next i
      if spaceKey( ) = 0
         spaceHeld = 0
      endif
   until spaceKey( ) and spaceHeld = 0
endFunction

function createPlayer( size as integer )
   cls
   for i = 1 to size / 2 step 8
      ink rgb( 255, 0, 0 ), 0
      circle size / 2, size / 2, size / 2 - i
      ink rgb( 0, 255, 0 ), 0
      circle size / 2, size / 2, ( size / 2 ) - ( i + 3 )
   next oi
   player.num = 1
   get image player.num, 0, 0, size, size
endFunction

function movePlayer( )
   player.pos.x = mouseX( )
   player.pos.y = mouseY( )
   if player.pos.x < -player.size
      player.pos.x = screenWidth
   endif
   if player.pos.x > screenWidth
      player.pos.x = -player.size
   endif
   if player.pos.y < -player.size
      player.pos.y = screenHeight
   endif
   if player.pos.y > screenHeight
      player.pos.y = -player.size
   endif
endFunction

function updatePlayer( )
   sprite player.num, player.pos.x, player.pos.y, player.num
endFunction

function updatePlayerSize( )
   size sprite player.num, player.size, player.size
endFunction

function makeRandomEnemy( )
   inc totalEnemies
   spr = freeSpr( )
   enemies( spr ).size = ( player.level * ( screenWidth / 144 ) ) + ( screenWidth / 72 )
   temp = rnd( 1 )
   if temp = 0
      enemies( spr ).direction = "right"
      enemies( spr ).pos.x = -enemies( spr ).size
      enemies( spr ).pos.y = rnd( screenHeight )
      enemies( spr ).speed = player.level + ( difficulty / 5 )
   endif
   if temp = 1
      enemies( spr ).direction = "left"
      enemies( spr ).pos.x = screenWidth
      enemies( spr ).pos.y = rnd( screenHeight )
      enemies( spr ).speed = player.level + ( difficulty / 5 )
   endif
endFunction

function updateEnemies( )
   for i = 2 to totalEnemies + 2
      if enemies( i ).direction = "left"
         enemies( i ).pos.x = enemies( i ).pos.x - enemies( i ).speed
      endif
      if enemies( i ).direction = "right"
         enemies( i ).pos.x = enemies( i ).pos.x + enemies( i ).speed
      endif
      sprite i, enemies( i ).pos.x, enemies( i ).pos.y, 10
      size sprite i, enemies( i ).size, enemies( i ).size
   next i
endFunction

function raiseLevel( )
   inc player.level
   nextLevel = nextLevel + 10000
endFunction

function debug( )
   text 0, 0, "FPS: " + str$( screen fps( ) )
   text 0, 20, "X: " + str$( player.pos.x )
   text 0, 30, "Y: " + str$( player.pos.y )
   text 0, 70, "Enemies: " + str$( totalEnemies )
   text 0, 90, "Elapsed Time: " + str$( elapsedTime )
   text 0, 110, "Level: " + str$( player.level )
   text 0, 130, "Next Level: " + str$( nextLevel )
endFunction

function stats( )
   ink rgb( 0, 0, 0 ), rgb( 255, 255, 255 )
   text 10, 10, "Level: " + str$( player.level )
   text 10, 40, "Time: " + str$( elapsedTime / 1000 ) + " seconds"
   text 10, 70, "Difficulty Level: " + str$( difficulty ) + "/99. Select higher difficulties for a better challenge."
endFunction

function freeSpr( )
   inc sprID
endFunction sprID

function freeImg( )
   inc imgID
endFunction imgID

function gameOver( )
   ink rgb( 0, 0, 0 ), rgb( 255, 255, 255 )
   repeat
      center text screenWidth / 2, screenHeight / 2, "You lasted " + str$( elapsedTime / 1000 ) + " seconds and got to level " + str$( player.level ) + "."
      if player.level < 2
         gameOverString = "Wow. You really sucked."
      endif
      if player.level = 2
         gameOverString = "Well, you didn't do THAT bad..."
      endif
      if player.level = 3
         gameOverString = "You did okay."
      endif
      if player.level = 4
         gameOverString = "Pretty nice! Try and go for LVL 5 next time."
      endif
      if player.level = 5
         gameOverString = "You did great!"
      endif
      if player.level = 6
         gameOverString = "Wow. You're freakin' amazing."
      endif
      if player.level = 7
         gameOverString = "You're incredible. Period."
      endif
      if player.level = 8
         gameOverString = "I have no idea how you got this far, but nice job!"
      endif
      if player.level = 9
         gameOverString = "Okay. You cheated."
      endif
      if player.level = 10
         gameOverString = "I didn't think you'd make it this far..."
      endif
      center text screenWidth / 2, ( screenHeight / 2 ) + 30, gameOverString
      center text screenWidth / 2, ( screenHeight / 2 ) + 60, "Would you like to play again?? (Y/N)"
   until inkey$( ) = "y" or inkey$( ) = "n"
   if lower$( inkey$( ) ) = "y"
      charHeld = 1
   endif
   if lower$( inkey$( ) ) = "n"
      charHeld = 0
   endif
   ink rgb( 255, 255, 255 ), rgb( 0, 0, 0 )
endFunction charHeld

function youWin( )
   ink rgb( 0, 0, 0 ), rgb( 255, 255, 255 )
   repeat
      center text screenWidth / 2, screenHeight / 2, "What?!?!?!? You beat my game???? You must've cheated... ):<"
      center text screenWidth / 2, ( screenHeight / 2 ) + 30, "Would you like to play again?? (Y/N)"
   until inkey$( ) = "y" or inkey$( ) = "n"
   if lower$( inkey$( ) ) = "y"
      charHeld = 1
   endif
   if lower$( inkey$( ) ) = "n"
      charHeld = 0
   endif
   ink rgb( 255, 255, 255 ), rgb( 0, 0, 0 )
endFunction charHeld

function reset( )
for i = 1 to 10000
   enemies( i ).direction = ""
   enemies( i ).pos.x = -500
   enemies( i ).pos.y = -500
   enemies( i ).speed = 0
next
endFunction

rem Load original present image
load image "C:\Documents and Settings\Andrew Neale\Desktop\Medialess Competition\Gift01.jpg",1,1

rem Create a memblock from it
make memblock from image 1,1

rem Loop through all image co-ordinates
for x=0 to 256
   for y=0 to 192

      rem Find the color at this point
      c=ReadFromImageMemblock(1,256,192,x,y)

      rem Check that it is red
      if rgbg(c)<72
         if rgbb(c)<64

            rem Avoid holly berries
            if x>79
               if x<90
                  if y>101
                     if y<115
                        DONTDOIT=1
                     endif
                  endif
               endif
            endif

            rem Make it green
            if DONTDOIT=0
               r=0
               g=rgbr(c)
               b=0
               WriteToImageMemblock(1,256,192,x,y,r,g,b)
            else
               DONTDOIT=0
            endif

         endif
      endif

   next y
next x

rem Convert back to an image
make image from memblock 2,1

rem Delete the memblock
delete memblock 1

rem Load the present object
load object "C:\Documents and Settings\Andrew Neale\Desktop\Medialess Competition\Gift01.x",1

rem Lock the frame rate
sync on
sync rate 60

rem Start the main loop
do

   rem Rotate the object
   rotate object 1,object angle x(1)+1.0,object angle y(1)+2.0,0.0

   rem Re-texture
   k=scancode()
   if k>1 and k<4
      texture object 1,k-1
   endif

   rem Update the screen
   sync

rem End the loop
loop

rem ============================================================================================
rem === WriteToImageMemblock()                                                               ===
rem ============================================================================================
function WriteToImageMemblock(MemblockID,ImageWidth,ImageHeight,X,Y,RedValue,GreenValue,BlueValue)

rem Find relative position in memblock
MemblockPosition=X+(Y*ImageWidth)

rem Check the position is in the memblock range
if MemblockPosition>=0
   if MemblockPosition<(ImageWidth*ImageHeight)

      rem Adjust the memblock accordingly
      write memblock dword MemblockID,12+(MemblockPosition*4),rgb(RedValue,GreenValue,BlueValue)

   endif
endif

rem End the function
endfunction

rem ============================================================================================
rem === ReadFromImageMemblock()                                                              ===
rem ============================================================================================
function ReadFromImageMemblock(MemblockID,ImageWidth,ImageHeight,X,Y)

rem Find relative position in memblock
MemblockPosition=X+(Y*ImageWidth)

rem Check the position is in the memblock range
if MemblockPosition>=0
   if MemblockPosition<(ImageWidth*ImageHeight)

      rem Adjust the memblock accordingly
      ColorValue=memblock dword(MemblockID,12+(MemblockPosition*4))

   endif
endif

rem End the function
endfunction ColorValue

REM Project: Santa's sorting suite
REM Created: 16/12/2007 17:05:28
REM
REM ***** Main Source File *****

autocam off : sync off : hide mouse

`Set text font and size
set text size 14
set text font "Arial"

`Present introductory monologue
rem remstart
text 20,10,"Welcome to Santa's Sorting Suite!"
wait 2000
text 20,40,"Around this time of year, everything gets hectic in Saint Nick's workshop, so why not lend him a hand?"
wait 5000
text 20,70,"Use Santa's categorizing machine to help organize his presents, so that he doesn't get into a mess!"
wait 5000
text 20,80,"But the machine is rather outdated, so there are some little problems with it..."
wait 5000
text 20,110,"And make sure you don't lose any presents in the machine, or organize the presents wrongly..."
text 20,120,"'cause you don't want to see Santa when he is angry."
wait 6000
text 20,150,"Good luck!"
wait 2000
rem remend
text 20,200,"Any key to continue >>>"

`Wait for player to press a key before continuing
wait key

`Make the program responsible for screen refreshing
sync on

`Setup a black background
backdrop on
color backdrop rgb(0,0,0)

`Set ambient light at 65%
set ambient light 65

`Make 2 new colour varieties for object 1 (Special thanks to TEH_CODERER for the code)
gosub colourchangeobj

`Create arrays and variables for use ingame
dim active(100)
dim presentpos(100)
stage=1

restart:

`Create the level
makelevel(stage)

movement=0
tries=0
endvalue=0

position camera 200,220,-405
point camera 200,220,0

do

text 10,10,str$(tries)

gosub cameracontrol
gosub physics

fastsync
loop

cameracontrol:
for x=1 to 100
if active(x)=1 or active(x)=6 or active(x)=7
   if presentpos(x)<>object position x(x)+object position y(x) then return
endif
next
   if leftkey()=1
      camz1=camera angle z()
      camz2=camera angle z()-90
      while camz1<>camz2
         zrotate camera camera angle z()-1
         if camz2=camera angle z() then inc tries : exit
         fastsync
      endwhile
   endif
   if rightkey()=1
      camz1=camera angle z()
      camz2=camera angle z()+90
      while camz1<>camz2
         zrotate camera camera angle z()+1
         if camz2=camera angle z() then inc tries : exit
         fastsync
      endwhile
   endif

   return

physics:
for y=101 to 200
   if object exist(y)=1
      if camera angle z()=0 or camera angle z()=360 then position object y,object position x(y-100),object position y(y-100)-15,object position z(y-100)
      if camera angle z()=90 then position object y,object position x(y-100)+15,object position y(y-100),object position z(y-100)
      if camera angle z()=180 then position object y,object position x(y-100),object position y(y-100)+15,object position z(y-100)
      if camera angle z()=270 then position object y,object position x(y-100)-15,object position y(y-100),object position z(y-100)
   endif
next y
for x=1 to 100
   if active(x)=1 or active(x)=6 or active(x)=7
      presentpos(x)=object position x(x)+object position y(x)
      if (camera angle z()=0 or camera angle z()=360) and object collision(x+100,0)<1
         position object x,object position x(x),object position y(x)-1,object position z(x)
      endif
      if camera angle z()=90 and object collision(x+100,0)<1
         position object x,object position x(x)+1,object position y(x),object position z(x)
      endif
      if camera angle z()=180 and object collision(x+100,0)<1
         position object x,object position x(x),object position y(x)+1,object position z(x)
      endif
      if camera angle z()=270 and object collision(x+100,0)<1
         position object x,object position x(x)-1,object position y(x),object position z(x)
      endif
      if object position x(x)>350 or object position x(x)<-15 or object position y(x)>360 or object position y(x)<-15 then gosub nextlevel
   endif
   if active(x)=2
      for z=1 to 100
         if active(z)=1
            if object collision(x,z+100)=1 then active(z)=0 : delete object z : delete object z+100
         endif
      next z
   endif
   if active(x)=5
      for z=1 to 100
         if active(z)=6
            if object collision(x,z+100)=1 then active(z)=0 : delete object z : delete object z+100
         endif
      next z
   endif
   if active(x)=8
      for z=1 to 100
         if active(z)=7
            if object collision(x,z+100)=1 then active(z)=0 : delete object z : delete object z+100
         endif
      next z
   endif
next x

for a=1 to 100
if active(a)=1 then inc endvalue,1
next a
if endvalue=0
   inc stage,1
   gosub nextlevel
else
   endvalue=0
endif

if camera angle z()=450 then zrotate camera 90
if camera angle z()=-90 then zrotate camera 270
return

nextlevel:
for a=1 to 200
if object exist(a)
   delete object a
endif
next a
for b=1 to 100
   active(b)=0
   presentpos(b)=0
next b
gosub restart

colourchangeobj:

rem Load original present image
load image "Gift01.jpg",1,1

rem Create a memblock from it
make memblock from image 1,1
make memblock from image 2,1

for x=0 to 256
   for y=0 to 192
      rem Find the color at this point
      c1=ReadFromImageMemblock(1,256,192,x,y)
      rem Check that it is red
      if rgbg(c1)<72
         if rgbb(c1)<64
            rem Avoid holly berries
            if x>79
               if x<90
                  if y>101
                     if y<115
                        DONTDOIT=1
                     endif
                  endif
               endif
            endif
            rem Make it green
            if DONTDOIT=0
               r=0
               g=rgbr(c1)
               b=0
               WriteToImageMemblock(1,256,192,x,y,r,g,b)
            else
               DONTDOIT=0
            endif
         endif
      endif
   next y
next x
make image from memblock 2,1
delete memblock 1

make memblock from image 1,1
for x=0 to 256
   for y=0 to 192
      rem Find the color at this point
      c2=ReadFromImageMemblock(1,256,192,x,y)
      rem Check that it is red
      if rgbg(c2)<72
         if rgbb(c2)<64
            rem Avoid holly berries
            if x>79
               if x<90
                  if y>101
                     if y<115
                        DONTDOIT=1
                     endif
                  endif
               endif
            endif
            rem Make it green
            if DONTDOIT=0
               r=0
               g=0
               b=rgbr(c2)
               WriteToImageMemblock(1,256,192,x,y,r,g,b)
            else
               DONTDOIT=0
            endif
         endif
      endif
   next y
next x
make image from memblock 3,1

rem Delete the memblock
delete memblock 1

return

rem ============================================================================================
rem === WriteToImageMemblock()                                                               ===
rem ============================================================================================
function WriteToImageMemblock(MemblockID,ImageWidth,ImageHeight,X,Y,RedValue,GreenValue,BlueValue)

rem Find relative position in memblock
MemblockPosition=X+(Y*ImageWidth)

rem Check the position is in the memblock range
if MemblockPosition>=0
   if MemblockPosition<(ImageWidth*ImageHeight)

      rem Adjust the memblock accordingly
      write memblock dword MemblockID,12+(MemblockPosition*4),rgb(RedValue,GreenValue,BlueValue)

   endif
endif

rem End the function
endfunction

rem ============================================================================================
rem === ReadFromImageMemblock()                                                              ===
rem ============================================================================================
function ReadFromImageMemblock(MemblockID,ImageWidth,ImageHeight,X,Y)

rem Find relative position in memblock
MemblockPosition=X+(Y*ImageWidth)

rem Check the position is in the memblock range
if MemblockPosition>=0
   if MemblockPosition<(ImageWidth*ImageHeight)

      rem Adjust the memblock accordingly
      ColorValue=memblock dword(MemblockID,12+(MemblockPosition*4))

   endif
endif

rem End the function
endfunction ColorValue

function makelevel(level)
if level=1 then restore ta
if level=2 then restore tb
if level=3 then restore tc
if level=4 then restore td
if level=5 then restore te
if level=6 then restore a
if level=7 then restore b
if level=8 then restore c
if level=9 then restore d
if level=10 then end
obj=1
for y= 10 to 1 step -1
   for x=1 to 10
      read level
      if level=1
         make object cube obj,30
         position object obj,x*30,y*30,0
         color object obj,rgb(255,255,255)
      endif
      if level=2 or level=5 or level=8
         make object cube obj,30
         position object obj,x*30,y*30,0
         ghost object on obj
         if level=2 then color object obj,rgb(255,0,0) : active(obj)=2
         if level=5 then color object obj,rgb(0,255,0) : active(obj)=5
         if level=8 then color object obj,rgb(0,0,255) : active(obj)=8
      endif
      if level=3
         make object cube obj,30
         position object obj,x*30,y*30,0
         ghost object on obj
         color object obj,rgb(255,255,255)
      endif
      if level=4 or level=6 or level=7
         load object "gift01.x",obj
         if level=6 then texture object obj,2
         if level=7 then texture object obj,3
         scale object obj,25,25,25
         position object obj,x*30,y*30,0
         rndnr=rnd(3)
         yrotate object obj,rndnr*90
         if level=4 then active(obj)=1
         if level=6 then active(obj)=6
         if level=7 then active(obj)=7
         make object cube obj+100,5
         hide object obj+100
      endif
      inc obj
   next y
next x
endfunction

ta:
data 1,3,1,1,1,1,1,1,1,1
data 1,4,1,0,0,0,0,0,0,1
data 1,0,1,0,1,1,1,1,0,1
data 1,0,1,0,1,0,0,1,0,1
data 1,0,1,0,1,0,0,1,0,1
data 1,0,1,0,1,0,0,1,0,1
data 1,0,1,0,1,0,0,1,0,1
data 1,0,1,0,1,1,1,1,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,2,1,1,1,1,1,1

tb:
data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,1,0,0,0,0,0,1
data 1,1,1,1,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,1,1,0,0,1
data 3,4,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,2
data 1,0,0,1,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,0,0,0,1,1

tc:
data 1,3,1,1,2,1,1,1,1,1
data 1,4,0,0,0,0,0,0,0,1
data 1,4,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,1,0,0,0,1
data 1,0,0,0,0,0,0,0,0,2
data 1,1,1,1,1,1,1,1,1,1

td:
data 1,1,0,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,2
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,1,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,0
data 1,0,0,0,0,0,0,0,0,1
data 1,0,4,0,0,4,0,0,0,0
data 1,0,3,1,1,3,1,1,1,1

te:
data 1,1,1,1,3,1,1,1,1,1
data 1,0,0,0,4,1,0,0,0,1
data 1,0,0,0,6,7,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 5,0,0,0,0,0,0,0,0,8
data 1,1,1,1,2,1,1,1,1,1

a:
data 1,1,1,1,1,3,1,1,1,1
data 1,0,0,0,1,4,1,0,0,1
data 1,0,0,0,1,0,1,0,0,1
data 1,1,1,3,1,0,1,1,1,1
data 1,0,1,4,1,0,0,0,0,1
data 1,1,1,0,1,1,1,1,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,2,1

b:
data 1,3,3,3,3,3,3,3,3,1
data 1,0,4,0,0,0,0,0,4,1
data 1,4,0,4,0,0,0,4,0,1
data 1,4,4,0,4,4,0,0,0,1
data 1,4,0,0,4,0,4,0,0,1
data 1,0,0,0,4,1,1,1,0,1
data 1,0,0,0,4,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,2
data 2,0,0,0,0,0,0,0,0,2
data 1,1,1,1,1,1,1,1,1,1

c:
data 1,3,1,1,1,1,1,1,1,1
data 1,4,1,0,0,0,0,0,0,1
data 1,4,1,0,0,1,1,1,1,1
data 1,4,1,0,0,0,0,0,0,1
data 1,0,1,0,0,0,0,0,0,1
data 1,0,1,0,0,0,0,0,0,1
data 1,0,0,0,0,0,1,0,0,1
data 1,0,1,0,0,0,0,0,0,2
data 1,0,0,0,0,0,1,0,1,1
data 1,1,1,1,1,1,1,2,1,1

d:
data 1,1,1,1,3,1,1,2,1,1
data 1,0,0,0,4,0,0,0,0,1
data 1,0,1,1,1,1,1,0,1,1
data 1,0,1,4,0,0,0,0,4,1
data 1,0,1,0,0,0,0,0,0,1
data 1,0,1,0,0,0,0,0,0,1
data 1,0,1,0,0,0,0,0,0,1
data 1,0,1,1,1,0,0,0,0,1
data 1,0,0,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1,1

remstart

data 1,1,1,1,1,1,1,1,1,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,0,0,0,0,0,0,0,0,1
data 1,1,1,1,1,1,1,1,1,1

autocam off
sync on : sync rate 60
randomize timer()
hide mouse

SizeX=200
SizeY=100
SizeZ=30

NoOfEnemyLocs=22
dim EnemyLocations(NoOfEnemyLocs,3)
`1=X, 2=Y, 3=Z

dim CreationTimes(49)

for e=1 to 6
    EnemyLocations(e,2)=45 : EnemyLocations(e,3)=-20
next e
for e=7 to 13
    EnemyLocations(e,2)=80 : EnemyLocations(e,3)=-70
next e
for e=14 to 22
    EnemyLocations(e,2)=145 : EnemyLocations(e,3)=-120
next e
EnemyLocations(1,1)=110
EnemyLocations(2,1)=70
EnemyLocations(3,1)=30
EnemyLocations(4,1)=-30
EnemyLocations(5,1)=-70
EnemyLocations(6,1)=-110

EnemyLocations(7,1)=120
EnemyLocations(8,1)=80
EnemyLocations(9,1)=40
EnemyLocations(10,1)=0
EnemyLocations(11,1)=-40
EnemyLocations(12,1)=-80
EnemyLocations(13,1)=-120

EnemyLocations(14,1)=160
EnemyLocations(15,1)=120
EnemyLocations(16,1)=80
EnemyLocations(17,1)=40
EnemyLocations(18,1)=0
EnemyLocations(19,1)=-40
EnemyLocations(20,1)=-80
EnemyLocations(21,1)=-120
EnemyLocations(22,1)=-160

fog on : fog color 0,0,30
set ambient light 84 : color ambient light rgb(240,240,255)

position light 0,0,400,-400 : point light 0,0,50,0 : set spot light 0,35,45

`Different colors of presents
load image "E:/Brian/Programming/Projects/In Progress/Christmas Compo/Gift01.jpg",10,1
load image "E:/Brian/Programming/Projects/In Progress/Christmas Compo/Gift01.jpg",11,1
load image "E:/Brian/Programming/Projects/In Progress/Christmas Compo/Gift01.jpg",12,1
ChangeColor(11,0,1,0)
ChangeColor(12,0,0,1)

`Targeting Radical
create bitmap 2,35,35
set current bitmap 2
for c=1 to 34
    for r=1 to 34
    dot r,c,0
    next r
next c
ink rgb(255,0,0),0
circle 18,18,17 : circle 18,18,16
line 18,0,18,35 : line 0,18,35,18
get image 2,1,1,35,35
set current bitmap 0
delete bitmap 2

`Base Bullet (not visible)
load object "Gift01.x",13
scale object 13,8,8,8
hide object 13
position object 13,0,-1000,0

`Base enemy Bullet (not visible)
make object sphere 15,8
position object 15,0,-1000,0
hide object 15

`Base enemy (not visible)
make object box 10,20,30,10
make mesh from object 1,10
delete object 10
`Texture
create bitmap 1,2,2
set current bitmap 1
dot 1,1,rgb(255,150,150)
dot 1,2,rgb(255,150,150)
dot 2,1,rgb(255,150,150)
dot 2,2,rgb(255,150,150)
get image 1,1,1,2,2
delete bitmap 1
set current bitmap 0

make object sphere 10,1
add limb 10,1,1
offset limb 10,1,0,15,0
texture object 10,1
position object 10,0,-1000,0
hide object 10

`Floor
make matrix 1,1000,300,50,50
position matrix 1,-500,-60,-200
set matrix wireframe off 1
update matrix 1

`Back
make object box 11,1000,500,10
position object 11,0,150,-170

`Front middle
make object box 1,SizeX,SizeY,SizeZ
position object 1,0,0,0
`Front sides
make object box 4,SizeX,SizeY,SizeZ
rotate object 4,0,45,0
position object 4,-161,0.0,67.5
make object box 5,SizeX,SizeY,SizeZ
rotate object 5,0,315,0
position object 5,161,0.0,67.5

`Second middle
make object box 2,SizeX+100,SizeY+50,SizeZ
position object 2,0,10,-50
`Second sides
make object box 6,SizeX+100,SizeY+50,SizeZ
rotate object 6,0,45,0
position object 6,-246,10,51
make object box 7,SizeX+100,SizeY+50,SizeZ
rotate object 7,0,-45,0
position object 7,246,10,51

`Last middle
make object box 3,SizeX+200,SizeY+100,SizeZ
position object 3,0,50,-100
`Last sides
make object box 8,SizeX+200,SizeY+100,SizeZ
rotate object 8,0,45,0
position object 8,-327,50,36
make object box 9,SizeX+200,SizeY+100,SizeZ
rotate object 9,0,-45,0
position object 9,327,50,36

`Cannon
make object cylinder 12,3
scale object 12,315,2500,315
position object 12,0,150,270
rotationmultiplier=200

create bitmap 1,screen width(),screen height()
set text font "arial"
set current bitmap 1
ink rgb(255,120,120),0
set text to bold
set text size 20
Text 100,80,"Defend the North Pole!"
Text 100,100,"Christmas Minimal Media Compo 2007"
Text 100,120,"by BmacZero"
set text size 18
set text to normal
Text 100,140,"For years, Santa has generously delivered presents to the children of the world,"
Text 100,155,"from his workshop at the North Pole.  But now, his kind acts are catching up with"
Text 100,170,"him.  The children became greedier and greedier, until they finally decided to"
Text 100,185,"invade the North Pole, taking all the gifts they could get!  You must hold them"
Text 100,200,"off for as long as possible by giving them presents, giving Santa and the other"
Text 100,215,"elves a chance to escape before the rowdy kids get at them."
Text 100,235,"They are almost out of the ice caves that lead to Santa's workshop.  You can send"
Text 100,250,"them packing by giving them presents with the left mouse button.  But how long can"
Text 100,265,"you keep them satisfied?"
Text 100,280,"*Hint*: If a kid has to wait too long for his or her present, they may get mad at"
Text 100,295,"you and throw snowballs.  Snowballs will cancel out presents!"
set text size 20
Text 120,320,"Enter a difficulty level (between 1 and 10):"
set text size 18
get image 20,1,1,screen width(),screen height()
delete bitmap 1
set current bitmap 0

Menu:
timerold=timer()
difficulty$=""
Do
paste image 20,0,0
`if scancode()>0 then gosub NewGame
text 120,340,difficulty$
if timer()-timerold>100 and scancode()>0
    timerold=timer()
    if difficulty$="1" and scancode()=11 then difficulty$="10"
    if scancode()>=2 and scancode()<=11 and difficulty$="" then difficulty$=inkey$()
    if returnkey()=1 or spacekey()=1 then gosub NewGame
    if scancode()=14
        if len(difficulty$)=1 then difficulty$=""
        if len(difficulty$)=2 then difficulty$="1"
    endif
endif

sync
loop

NewGame:
delete objects 100,300
position camera 0,190,280
point camera 0,90,0
bulletno=100
enemyno=201
timerold2=timer()
health=100
enemybulletno=251
bulletdelay=3500
enemydelay=1500
score=0
distance=450
fog color 0,0,30
fog distance 450
difficultyno=val(difficulty$)
minimumdelay=(11-difficultyno)*200
dectime=(11-difficultyno)*20

`-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`-=-=-=-=-     MAIN LOOP!    -=-=-=-=-=-=-
`-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

do

`Display Health Bar
if health>69 then ink rgb(100,255,100),0
if health=60 then ink rgb(200,255,200),0
if health=40 then ink rgb(250,160,100),0
if health=20 then ink rgb(250,80,80),0
if health<1
    if distance>0
        dec distance
        fog distance distance
        else
        if scancode()>0 then gosub Menu
    endif
    text screen width()/2,screen height()/2,"Game Over"
    text 80,10,"Game Over"
endif
Text 10,10,"Health: "
box 80,12,80+health,22
Text 10,30,"Score: "+str$(score)

`Paste cursor
paste image 2,mousex()-18,mousey()-18,1

pick screen mousex(),mousey(),75

if timer()-timerold3>dectime
timerold3=timer()
if enemydelay>minimumdelay then dec enemydelay
if bulletdelay>minimumdelay then dec bulletdelay
endif

if bulletno>105 then bulletno=100
if enemyno>249 then enemyno=201
if enemybulletno>299 then enemybulletno=251

Gosub ControlPackages
Gosub ControlSnowballs
Gosub ControlEnemies

if mouseclick()=1 and timer()-timerold>400 and health>1
    timerold=timer()
    delete object bulletno
    clone object bulletno,13
    position object bulletno,object position x(12),object position y(12),object position z(12)
    point object bulletno,(get pick vector x()*rotationmultiplier),(get pick vector y()*rotationmultiplier),(get pick vector z()*rotationmultiplier)
    xrotate object bulletno,wrapvalue(object angle x(bulletno)-7)
    texture object bulletno,rnd(2)+10
    inc bulletno
endif

`Make more enemies
if timer()-timerold2>enemydelay and Full=0
    timerold2=timer()
    retrythat:
    inc Failures
    if Failures>NoOfEnemyLocs+2
        Full=1
        Gosub Continue
    endif
    randomnumber=rnd(NoOfEnemyLocs)
    if randomnumber=0 then gosub retrythat
    for g=201 to 250
    if object exist(g)=1
        if EnemyLocations(randomnumber,1)=object position x(g) and EnemyLocations(randomnumber,2)=object position y(g)
            gosub retrythat
        endif
    endif
    next g
    if object exist(enemyno)=1 then delete object enemyno
    clone object enemyno,10
    position object enemyno,EnemyLocations(randomnumber,1),EnemyLocations(randomnumber,2),EnemyLocations(randomnumber,3)
    CreationTimes(enemyno-200)=timer()
    inc enemyno
    Continue:
    Failures=0
endif
    

point object 12,(get pick vector x()*rotationmultiplier),(get pick vector y()*rotationmultiplier),(get pick vector z()*rotationmultiplier)
xrotate object 12,wrapvalue(object angle x(12)-100)

if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-1)
if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+1)
if upkey()=1 then move camera 2
if downkey()=1 then move camera -2

sync
loop

ControlPackages:
for bob=100 to 106
    if object exist(bob)=1
        move object bob,6
        collidedobject=object collision(bob,0)
        if collidedobject>200 and collidedobject<251 or collidedobject=201
            delete object collidedobject
            delete object bob
            inc score,5
            full=0
        endif
    endif
next bob
return

ControlSnowballs:
for eob=251 to 300
    if object exist(eob)=1
        move object eob,5
        collision=object collision(eob,0)
        if collision=12
            delete object eob
            dec health,20
        endif
        if collision>99 and collision<200
            delete object eob
            delete object collision
            inc score,1
        endif
    endif
next eob
return

ControlEnemies:
for eoe=201 to 250
    if object exist(eoe)=1
        `xrotate object eoe,wrapvalue(object angle x(eoe)+2)
        if timer()-CreationTimes(eoe-200)>bulletdelay
            if object exist(enemybulletno)=1 then delete object enemybulletno
            clone object enemybulletno,15
            position object enemybulletno,object position x(eoe),object position y(eoe)+20,object position z(eoe)
            point object enemybulletno,object position x(12),object position y(12),object position z(12)
            CreationTimes(eoe-200)=timer()
            inc enemybulletno
        endif
    endif
next eoe
return

function ChangeColor(ImageNumber,ColorToR,ColorToG,ColorToB)
make memblock from image 1,ImageNumber
delete image ImageNumber
for x=0 to 256
   for y=0 to 192
      c=ReadFromImageMemblock(1,256,192,x,y)
      if rgbg(c)<72 and rgbb(c)<64
         if x>79 and x<90 and y>101 and y<115 then DONTDOIT=1
         if DONTDOIT=0
            r=rgbr(c)*ColorToR : g=rgbr(c)*ColorToG : b=rgbr(c)*ColorToB : WriteToImageMemblock(1,256,192,x,y,r,g,b)
            else
            DONTDOIT=0
         endif
      endif
   next y
next x
make image from memblock ImageNumber,1
delete memblock 1
endfunction

function WriteToImageMemblock(MemblockID,ImageWidth,ImageHeight,X,Y,RedValue,GreenValue,BlueValue)
MemblockPosition=X+(Y*ImageWidth)
if MemblockPosition>=0 and MemblockPosition<(ImageWidth*ImageHeight)
   write memblock dword MemblockID,12+(MemblockPosition*4),rgb(RedValue,GreenValue,BlueValue)
endif
endfunction

function ReadFromImageMemblock(MemblockID,ImageWidth,ImageHeight,X,Y)
MemblockPosition=X+(Y*ImageWidth)
if MemblockPosition>=0 and MemblockPosition<(ImageWidth*ImageHeight)
   ColorValue=memblock dword(MemblockID,12+(MemblockPosition*4))
endif
endfunction ColorValue

` *********************
` *** Game Settings ***
` *********************
#constant matrixSize = 25
#constant scrollSpeed = 1.5

` ***********************
` *** Screen Settings ***
` ***********************
sync on : sync rate 60
backdrop on : color backdrop rgb(0, 0, 32)
set display mode 800, 600, 32
autocam off
set image colorkey 255, 0, 255
set ambient light 50


` Game Initialization
gosub GameInit


` Start a new game
gosub NewGame


` *****************
` *** Main Loop ***
` *****************
ink rgb(255, 255, 255), 0
do
   set cursor 0, 0
   print screen fps()

   ` Control player
   gosub UpdatePlayer
   ` Update camera
   gosub UpdateCamera
   ` Scroll landscape
   gosub WrapMatrix
   
   `position object sph, cam.x, get ground height(1, cam.x-matrix.x, 0-matrix.z)+20, 0
   
   if cam.x - object position x(houseObj1) > 250
      position object houseObj1, cam.x+250, 0, 0
      yrotate object houseObj1, rnd(45)-rnd(45)
   endif

   ` Refresh
   sync
loop



` ************************
` *** In-Game Handling ***
` ************************

` Erase the current level and build a new one
NewLevel:
   ` Erase all resources from previous level
   gosub ClearAll
   
   ` Generate all media to be used in-game
   gosub GenerateMedia
   
   ` Generate the world
   gosub GenerateWorld
   
   ` Reset the player
   player.deer.x = 25 : player.deer.y = 100
   player.deer.xSpeed = 0.0 : player.deer.ySpeed = 0.0
   player.sleigh.x = -25 : player.sleigh.y = 100
   player.sleigh.xSpeed = 0.0 : player.sleigh.ySpeed = 0.0
   
   ` Reset the camera
   cam.x = 0 : cam.y = 40 : cam.z = -150
return

` Call various texture and object creation subs to generate media
GenerateMedia:
   ` Build world textures
   gosub MakeWorldTextures
   
   ` Create main house objects to be used for cloning
   gosub MakeHouseTextures
   houseObj1 = BuildHouse1()
   position object houseObj1, 250, 0, 0
   yrotate object houseObj1, rnd(45)-rnd(45)
   
   ` Create player reindeer object
   gosub MakeReindeerTextures
   player.deer.obj = BuildReindeer()
   set shadow shading on player.deer.obj, -1, 250, 1
   
   ` Create player sleigh object
   gosub MakeSleighTextures
   player.sleigh.obj = BuildSleigh()
   position object player.sleigh.obj, 250, 75, 0
   set shadow shading on player.sleigh.obj, -1, 250, 1
   
   `make light 1 : set light range 1, 100 : color light 1, rgb(255, 0, 0)
return

` Prepare world objects (matrix, trees, scenery, etc)
GenerateWorld:
   ` Create a new matrix and populate it with hills
   gosub MakeMatrix
   gosub ResetMatrix
   gosub MatrixHills
   gosub MatrixHeights
   gosub MatrixNormals
   ` Fog settings
   set camera range 1, 500
   fog on : fog distance 500 : fog color rgb(0, 0, 32)
return

` Perform all player-related subs
UpdatePlayer:
   ` Control the reindeer
   gosub ControlDeer
   
   ` Control the sleigh
   gosub ControlSleigh
   
   ` Animate both player objects
   gosub AnimatePlayer
return

` Control the player reindeer with arrow keys
ControlDeer:
   ` Deer is always moving to the right
   inc player.deer.x, scrollSpeed

   ` Get keyboard input
   moveX = rightkey()-leftkey()
   moveY = upkey()-downkey()
   
   ` Increase speeds based on keyboard control
   inc player.deer.xSpeed, moveX*0.1
   inc player.deer.ySpeed, moveY*0.1
   
   ` Cap max speeds
   if abs(player.deer.xSpeed) > 2.0 then player.deer.xSpeed = 2.0*Sign(player.deer.xSpeed)
   if abs(player.deer.ySpeed) > 2.0 then player.deer.ySpeed = 2.0*Sign(player.deer.ySpeed)
   
   ` Apply friction to the speed
   player.deer.xSpeed = player.deer.xSpeed * 0.95
   player.deer.ySpeed = player.deer.ySpeed * 0.95
   
   ` If either speed reaches a significantly small number, reset it back to zero
   if abs(player.deer.xSpeed) < 0.01 then player.deer.xSpeed = 0.0
   if abs(player.deer.ySpeed) < 0.01 then player.deer.ySpeed = 0.0
   
   ` Update position based on speed
   inc player.deer.x, player.deer.xSpeed
   inc player.deer.y, player.deer.ySpeed
   
   ` Update deer object
   position object player.deer.obj, player.deer.x, player.deer.y, 0
return

` Pull Santa's sleigh along with the reindeer
ControlSleigh:
   ` Sleigh is always moving to the right
   inc player.sleigh.x, scrollSpeed
   
   ` Sleigh should be "elastically" connected -50x units from reindeer
   xDif# = (player.deer.x-50) - player.sleigh.x
   yDif# = player.deer.y - player.sleigh.y
   
   ` Increase speeds based distance from sleigh
   inc player.sleigh.xSpeed, xDif#*0.005
   inc player.sleigh.ySpeed, yDif#*0.005
   
   ` Increase the speed a bit more if the sleigh is riding up the reindeer
   if abs(player.deer.x-player.sleigh.x) < 45.0 and player.deer.xSpeed < 0.0
      inc player.sleigh.xSpeed, xDif#*0.01
   endif
   
   ` Cap max speeds
   if abs(player.sleigh.xSpeed) > 4.0 then player.sleigh.xSpeed = 4.0*Sign(player.sleigh.xSpeed)
   if abs(player.sleigh.ySpeed) > 4.0 then player.sleigh.ySpeed = 4.0*Sign(player.sleigh.ySpeed)
   
   ` Apply friction to the speed
   player.sleigh.xSpeed = player.sleigh.xSpeed * 0.95
   player.sleigh.ySpeed = player.sleigh.ySpeed * 0.95
   
   ` If either speed reaches a significantly small number, reset it back to zero
   if abs(player.sleigh.xSpeed) < 0.0001 then player.sleigh.xSpeed = 0.0
   if abs(player.sleigh.ySpeed) < 0.0001 then player.sleigh.ySpeed = 0.0
   
   ` Update position based on speed
   inc player.sleigh.x, player.sleigh.xSpeed
   inc player.sleigh.y, player.sleigh.ySpeed
   
   ` Update the sleigh object
   position object player.sleigh.obj, player.sleigh.x, player.sleigh.y, 0
return

` Animate the sleigh and the reindeer objects
AnimatePlayer:
   ` ** Deer Animations **
   ` Update animation frame
   player.deer.ani = wrapvalue(player.deer.ani + 4.5)
   
   ` Rotate the deer as it moves up and down
   player.deer.zAng = (player.deer.ySpeed/2.0)*30.0
   
   ` Oscillate the deer's body in the wind
   player.deer.xAng = sin(player.deer.ani)*3.0
   inc player.deer.zAng, cos(player.deer.ani)*3.0
   
   ` Animate deer's limbs
   rotate limb player.deer.obj, deerNeck, 0, 0, sin(player.deer.ani)*3
   rotate limb player.deer.obj, deerHead, 0, 0, sin(player.deer.ani)*3
   rotate limb player.deer.obj, deerLegFL, 0, 0, sin(player.deer.ani)*15
   rotate limb player.deer.obj, deerLegFR, 0, 0, cos(player.deer.ani)*15
   rotate limb player.deer.obj, deerLegBL, 0, 0, sin(player.deer.ani)*-15
   rotate limb player.deer.obj, deerLegBR, 0, 0, cos(player.deer.ani)*-15
   
   ` Update deer object
   rotate object player.deer.obj, player.deer.xAng, 0, player.deer.zAng

   ` Update reindeer's nose
   `position light 1, player.deer.x+25, player.deer.y, 0
   

   ` ** Sleigh / Santa Animations **
   ` Update animation frames
   player.sleigh.ani = wrapvalue(player.sleigh.ani + 3.5)
   player.sleigh.headAni = wrapvalue(player.sleigh.headAni + 1.0)
   player.sleigh.handAni = wrapvalue(player.sleigh.handAni + 2.0)

   ` Rotate the sleigh as it moves up and down
   player.sleigh.zAng = (player.sleigh.ySpeed/4.0)*30.0

   ` Oscillate the sleigh in the wind
   player.sleigh.xAng = sin(player.sleigh.ani)*3.0
   inc player.sleigh.zAng, cos(player.sleigh.ani)*3.0
   
   ` Animate Santa's head and hands
   rotate limb player.sleigh.obj, santaHead, 0, 0, sin(player.sleigh.headAni)*15.0
   rotate limb player.sleigh.obj, santaHandL, 0, (sin(player.sleigh.handAni)*4.0)-4, 0
   rotate limb player.sleigh.obj, santaHandR, 0, (cos(player.sleigh.handAni)*4.0)-4, 0

   ` Update the sleigh object
   rotate object player.sleigh.obj, player.sleigh.xAng, 0, player.sleigh.zAng
   
   
   ` ** Update Shadows **
   `position light 1, cam.x-200, cam.y+200, 0
   set shadow position -1, cam.x-200, cam.y+200, 0
return

` Move the camera along with the player
UpdateCamera:
   ` Camera is always moving to the right
   inc cam.x, scrollSpeed
   ` Follow the player sleigh with the camera
   cam.y = Min(player.deer.y, 150)
   ` Don't allow camera to move too close to ground
   if cam.y < 40 then cam.y = 40
   
   ` Update the camera
   position camera cam.x, cam.y, cam.z
   point camera cam.x, Min(player.deer.y, 150), 0
return



` ***************************
` *** Game Initialization ***
` ***************************

` Prepare global variables and arrays that will be used for the whole game
GameInit:
   ` Declare UDTs
   gosub SetupUDTs
   
   ` ** In-Game Object Variables **
   ` Setup camera variable
   global cam as posType
   
   ` ** World Variables **
   ` Setup matrix variables
   global matrix as posType
   global dim matrixHeight#(matrixSize, matrixSize)
   
   ` ** Player Variables **
   global player as playerType
   
   ` ** Media Variables **
   ` World variables
   global worldSnowImg, worldSkyImg
   ` Reindeer variables
   global deerFurImg, deerTailImg, deerNeckImg, deerHeadImg, deerNoseImg, deerAntlerImg, deerLegImg
   ` Sleigh and Santa variables
   global sleighFloorImg, sleighRightImg, sleighLeftImg, sleighBackImg, sleighFrontImg
   global sleighBladeLImg, sleighBladeRImg, sleighSackImg, sleighSackTopImg
   global santaBodyImg, santaHeadImg, santaNoseImg, santaBeardImg, santaHalfHatImg, santaHatImg, santaHandImg
   ` House variables
   global houseObj1 as integer
   global houseFrontImg, houseSideImg, houseAtticImg, houseRoofImg, houseLightOnImg
return

` Prepare all user-defined-types that will be used by global variables
SetupUDTs:
   ` Type for general object placement
   type posType
      ` Object handling
      obj as integer
      ` Position
      x as float
      y as float
      z as float
      xAng as float
      yAng as float
      zAng as float
   endtype

   ` Player reindeer type
   type deerType
      ` Object handling
      obj as integer

      ` Position and movement
      x as float
      y as float
      xAng as float
      zAng as float
      xSpeed as float
      ySpeed as float
      
      ` Misc info
      ani as float      ` Animation frame (deer legs and body angle)
   endtype
   
   ` Player sleigh type
   type sleighType
      ` Object handling
      obj as integer

      ` Position and movement
      x as float
      y as float
      xAng as float
      zAng as float
      xSpeed as float
      ySpeed as float
      
      ` Misc info
      ani as float      ` Animation frame (sleigh angle)
      headAni as float  ` Animation frame (head turning)
      handAni as float  ` Animation frame (hands moving)
   endtype

   ` Main player type
   type playerType
      ` Reindeer variables (the object player directly controls)
      deer as deerType
      ` Sleigh variables (follows deer and drops presents)
      sleigh as sleighType
      
      ` General variables
      status as integer    ` 1 = Normal, 0 = Hurt
   endtype
return

` Get ready to start the first level of the game
NewGame:
   ` Start the first level
   gosub NewLevel
return



` *************
` *** World ***
` *************

` Clear the matrix for a clean slate
ResetMatrix:
   for x = 0 to matrixSize
      for z = 0 to matrixSize
         matrixHeight#(x, z) = 0.0
      next z
   next x
   matrix.x = -(matrixSize*20) : matrix.z = -200
   position matrix 1, matrix.x, 0, matrix.z
return

` Populate the matrix with snowy banks
MatrixHills:
   randomize timer()

   ` Add hills to the matrix
   for i = 1 to 100

      ` Pick a random spot, size, and height for this hill
      x = rnd(matrixSize) : z = rnd(matrixSize)
      size = 1+rnd(3) : maxH# = 10.0+rnd(10)

      ` Loop around all spaces around this hill
      for subX = x-size to x+size
         for subZ = z-size to z+size

            ` Find dist from center of hill
            dist# = Dist2(subX, subZ, x, z)
            
            ` Determine height based on distance from center and max height
            h# = maxH# - ((dist#/size)*maxH#)
            h# = Max(h#, 0.0)
            
            ` Determine which cell this point falls on the matrix
            ` (Wrap it around the edges to create a seamless matrix)
            cellX = WrapX(subX) : cellZ = WrapZ(subZ)
            
            ` Average the height to surrounding squares if this space is in
            ` the village (Create a mostly flat area for the houses)
            if z < 6 then h# = h# / 5.0
            `if z < 10 then h# = h# / 2.0
            
            ` Update this tile on the matrix
            inc matrixHeight#(cellX, cellZ), h#

         next subZ
      next subX

   next i

return

` Generate the actual matrix
MakeMatrix:
   ` Create a large matrix
   make matrix 1, matrixSize*40, matrixSize*40, matrixSize, matrixSize

   ` Texture matrix
   prepare matrix texture 1, worldSnowImg, 1, 1
   
   ` Update matrix
   update matrix 1
return

` Update the physical matrix with the points stored in our array
MatrixHeights:
   ` Position each matrix tile to the correct height
   for x = 0 to matrixSize
      for z = 0 to matrixSize
         set matrix height 1, x, z, matrixHeight#(x, z)
      next z
   next x
   
   ` Update matrix
   update matrix 1
return

` Add lighting and shadows to the physical matrix
MatrixNormals:
   ` Light each tile based on whether it lies in shadow or not
   for x = 0 to matrixSize
      for z = 0 to matrixSize
         h1# = get matrix height(1, x, z)
         h2# = get matrix height(1, WrapX(x+1), WrapZ(z+1))
         n# = ((h1#/10.0) - (h2#/10.0)+0.5)
         set matrix normal 1, x, z, n#, n#, n#
      next z
   next x

   ` Update the matrix
   update matrix 1
return

` Wrap the given cell positions so they fall on the matrix somewhere
function WrapX(cellX)
   if cellX < 0 then inc cellX, matrixSize+1
   if cellX > matrixSize then dec cellX, matrixSize+1
endfunction cellX
function WrapZ(cellZ)
   if cellZ < 0 then inc cellZ, matrixSize+1
   if cellZ > matrixSize then dec cellZ, matrixSize+1
endfunction cellZ

` Scroll the matrix with the camera to create an infinite landscape
WrapMatrix:
   ` Check if the camera has moved enough distance to the right
   if (matrix.x + (matrixSize*20)) - cam.x < 40.0
      ` Scroll the matrix
      inc matrix.x, 40
      `for i = 1 to 5 : shift matrix left 1 : next i
      shift matrix left 1
      ` Update matrix
      position matrix 1, matrix.x, 0, matrix.z
      update matrix 1
   endif
return




` **********************************
` ********* Media Creation *********
` **********************************


` **********************
` *** World Textures ***
` **********************
MakeWorldTextures:
   ` ** Snow Texture **
   randomize 1000
   create bitmap 1, 64, 64
   ` White background
   ink rgb(255, 255, 255), 0
   box 0, 0, 64, 64
   ` Add some random blue
   ` (Random position, size, and hue)
   for i = 1 to 1500
      x = rnd(64) : y = rnd(64) : size = rnd(3)+1
      blue = rnd(100)
      ink rgb(255-blue, 255-blue, 255), 0
      box x, y, x+size, y+size
      box x-64, y, x-64+size, y+size
      box x, y-64, x+size, y-64+size
      box x-64, y-64, x-64+size, y-64+size
   next i
   ` Grab the image
   worldSnowImg = FreeImage()
   get image worldSnowImg, 0, 0, 64, 64
   delete bitmap 1
   ` The snow image is not seamless, meaning it will not tile well on the matrix
   ` Paste four copies of the bitmap into a larger canvas, then blur them together.
   ` Then grab the center of the canvas to create a seamless, random texture
   ` (It still won't be perfect, but at least it will not have ugly seams)
   create bitmap 1, 128, 128
   paste image worldSnowImg, 0, 0 : paste image worldSnowImg, 64, 0 : paste image worldSnowImg, 0, 64 : paste image worldSnowImg, 64, 64
   delete image worldSnowImg
   blur bitmap 1, 6
   ` Store the final image
   get image worldSnowImg, 32, 32, 96, 96
   delete bitmap 1
   
   ` ** Starry Sky Texture **
   create bitmap 1, 256, 256
   ` Black background
   ink 0, 0
   box 0, 0, 256, 256
   ` Add some randomly-placed stars
   for i = 1 to 500
      ` Determine a random colour (stars are not 100% white)
      r = 255-rnd(64) : g = 255-rnd(64) : b = 255-rnd(32)
      ` Determine a random star size
      star = rnd(1)+1
      ` Determine random position
      x = rnd(256) : y = rnd(256)
      ` Glow around center (large)
      if star > 1 then ink rgb(r/6, g/6, b/6), 0 : box x-1, y-1, x+1, y+1
      ` Draw a dot for the star's center (small and large)
      dot x, y, rgb(r, g, b)
   next i
   ` Store the image
   worldSkyImg = FreeImage()
   get image worldSkyImg, 0, 0, 256, 256
   delete bitmap 1
return



` **********************
` *** House Creation ***
` **********************
` Build a house object
function BuildHouse1()
   ` Find object index that house will use
   obj = FreeObject()
   
   ` ** House Root **
   ` Make polygon and hide it
   make object triangle obj, 0, 0, 0, 0, 0, 0, 0, 0, 0
   hide limb obj, houseRoot
   
   ` ** Prepare to add limbs **
   temp = FreeObject()
   mesh = FreeMesh()
   
   ` ** Front Wall **
   ` Make wall
   make object plain temp, 80, 40, 1
   rotate object temp, 0, 0, 0
   ` Push to the front
   offset limb temp, 0, 0, 20, -20
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseFront, mesh
   link limb obj, houseRoot, houseFront
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Left Wall **
   ` Make wall
   make object plain temp, 40, 40, 1
   rotate object temp, 0, 90, 0
   ` Push to the left
   offset limb temp, 0, 0, 20, -40
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseLeft, mesh
   link limb obj, houseRoot, houseLeft
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Right Wall **
   ` Make wall
   make object plain temp, 40, 40, 1
   rotate object temp, 0, 270, 0
   ` Push to the right
   offset limb temp, 0, 0, 20, -40
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseRight, mesh
   link limb obj, houseRoot, houseRight
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Front Roof **
   ` Make wall
   make object plain temp, 90, 40, 1
   rotate object temp, 45, 0, 0
   ` Push to the top
   offset limb temp, 0, 0, 22.5, -42.5
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseRoofF, mesh
   link limb obj, houseRoot, houseRoofF
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Back Roof **
   ` Make wall
   make object plain temp, 90, 40, 1
   rotate object temp, 45, 180, 0
   ` Push to the top
   offset limb temp, 0, 0, 22.5, -42.5
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseRoofB, mesh
   link limb obj, houseRoot, houseRoofB
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Left Attic Wall **
   ` Make wall
   make object triangle temp, 0, 20, 0, -20, 0, 0, 20, 0, 0
   rotate object temp, 0, 270, 0
   ` Push to the left
   offset limb temp, 0, 0, 40, 40
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseRoofL, mesh
   link limb obj, houseRoot, houseRoofL
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Right Attic Wall **
   ` Make wall
   make object triangle temp, 0, 20, 0, -20, 0, 0, 20, 0, 0
   rotate object temp, 0, 90, 0
   ` Push to the right
   offset limb temp, 0, 0, 40, 40
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseRoofR, mesh
   link limb obj, houseRoot, houseRoofR
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Window light **
   ` Make plain
   make object plain temp, 75, 35, 1
   rotate object temp, 0, 0, 0
   ` Push to the front
   offset limb temp, 0, 0, 20, -18
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, houseLight, mesh
   link limb obj, houseRoot, houseLight
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Textures **
   texture limb obj, houseFront, houseFrontImg
   texture limb obj, houseLeft, houseSideImg
   texture limb obj, houseRight, houseSideImg
   texture limb obj, houseRoofF, houseRoofImg
   texture limb obj, houseRoofB, houseRoofImg
   texture limb obj, houseRoofL, houseAtticImg
   texture limb obj, houseRoofR, houseAtticImg
   texture limb obj, houseLight, houseLightOnImg
   
   ` ** Object Settings **
   ` Turn off culling
   set object cull obj, 0
   ` Turn on transparency (show the light object through the windows)
   set object transparency obj, 4
endfunction obj

` Generate the textures to use for houses
MakeHouseTextures:
   ` ** House Front Texture **
   create bitmap 1, 400, 200
   ` Brown-red background
   ink rgb(130, 30, 0), 0
   box 0, 0, 400, 200
   ` Board outlines
   ink rgb(90, 50, 40), 0
   for y = 1 to 10
      box 0, y*20, 400, (y*20)+3
   next y
   ` Door
   ink rgb(100, 40, 0), 0
   box 155, 50, 235, 200
   ` Door frame
   ink 0, 0
   box 150, 50, 155, 200
   box 235, 50, 240, 200
   box 150, 45, 240, 50
   ` Door knob
   box 200, 115, 220, 135
   ` Windows
   ink rgb(255, 0, 255), 0
   box 50, 50, 100, 150
   box 290, 50, 340, 150
   ` Window frame (left)
   ink 0, 0
   box 45, 50, 50, 150
   box 100, 50, 105, 150
   box 45, 45, 105, 50
   box 45, 150, 105, 155
   box 45, 100, 105, 105
   box 73, 50, 77, 150
   ` Window frame (right)
   ink 0, 0
   box 285, 50, 290, 150
   box 340, 50, 345, 150
   box 285, 45, 345, 50
   box 285, 150, 345, 155
   box 285, 100, 345, 105
   box 313, 50, 317, 150
   ` Add some snow up against the bottom edge
   ink rgb(255, 255, 255), 0
   for x = 0 to 400
      y = (sin(x*6.3)*5)+190
      line x, y, x, 200
   next x
   ` Store image
   houseFrontImg = FreeImage()
   get image houseFrontImg, 0, 0, 400, 200
   delete bitmap 1
   
   ` ** House Side Texture **
   create bitmap 1, 200, 200
   ` Brown-red background
   ink rgb(130, 30, 0), 0
   box 0, 0, 200, 200
   ` Board outlines
   ink rgb(90, 50, 40), 0
   for y = 1 to 10
      box 0, y*20, 200, (y*20)+3
   next y
   ` Add some snow up against the bottom edge
   ink rgb(255, 255, 255), 0
   for x = 0 to 450
      y = (sin(x*6.3)*5)+190
      line x, y, x, 200
   next x
   ` Store image
   houseSideImg = FreeImage()
   get image houseSideImg, 0, 0, 200, 200
   delete bitmap 1
   
   ` ** House Attic Texture **
   create bitmap 1, 2, 2
   ` Brown-red background
   ink rgb(130, 30, 0), 0
   box 0, 0, 2, 2
   ` Store image
   houseAtticImg = FreeImage()
   get image houseAtticImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** House Roof Texture **
   create bitmap 1, 450, 200
   ` Brown background
   ink rgb(100, 40, 0), 0
   box 0, 0, 450, 200
   ` Add some snow blotches
   ink rgb(255, 255, 255), 0
   for i = 1 to 5000
      x = rnd(450) : y = rnd(200) : size = rnd(3)+1
      box x, y, x+size, y+size
   next i
   `blur bitmap 1, 6
   ` Store image
   houseRoofImg = FreeImage()
   get image houseRoofImg, 0, 0, 450, 200
   delete bitmap 1
   
   ` ** House Light-On Texture **
   create bitmap 1, 2, 2
   ` Yellow background
   ink rgb(255, 255, 0), 0
   box 0, 0, 2, 2
   ` Store image
   houseLightOnImg = FreeImage()
   get image houseLightOnImg, 0, 0, 2, 2
   delete bitmap 1
return

` Constants storing limb indexes for house
#constant houseRoot     0
#constant houseFront    1
#constant houseLeft     2
#constant houseRight    3
#constant houseRoofF    4
#constant houseRoofB    5
#constant houseRoofL    6
#constant houseRoofR    7
#constant houseLight    8




` *************************
` *** Reindeer Creation ***
` *************************

` Build the player reindeer object
function BuildReindeer()
   ` Find object index that deer will use
   obj = FreeObject()
   
   ` ** Reindeer Root **
   ` Make polygon and hide it
   make object triangle obj, 0, 0, 0, 0, 0, 0, 0, 0, 0
   hide limb obj, deerRoot
   
   ` ** Prepare to add limbs **
   temp = FreeObject()
   mesh = FreeMesh()
   
   ` ** Reindeer Body **
   ` Make cylinder
   make object cylinder temp, 9
   rotate object temp, 0, 0, 90
   scale object temp, 100, 200, 100
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerBody, mesh
   link limb obj, deerRoot, deerBody
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Back **
   ` Make sphere
   make object sphere temp, 9, 10, 10
   scale object temp, 50, 100, 100
   ` Push to the back
   offset limb temp, 0, -18, 0, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerBack, mesh
   link limb obj, deerBody, deerBack
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Tail **
   ` Make sphere
   make object sphere temp, 4, 10, 10
   scale object temp, 200, 100, 150
   rotate object temp, 0, 0, 325
   ` Push to the back
   offset limb temp, 0, -5.5, -5, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerTail, mesh
   link limb obj, deerBack, deerTail
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Front **
   ` Make sphere
   make object sphere temp, 9, 10, 10
   ` Push to the front
   offset limb temp, 0, 9, 0, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerFront, mesh
   link limb obj, deerBody, deerFront
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Neck **
   ` Make cone
   make object cone temp, 8
   rotate object temp, 0, 0, 335
   scale object temp, 100, 200, 100
   ` Push to the front
   offset limb temp, 0, 8, 5, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerNeck, mesh
   link limb obj, deerFront, deerNeck
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Head **
   ` Make sphere
   make object sphere temp, 5
   rotate object temp, 0, 0, 335
   scale object temp, 200, 100, 100
   ` Push to the top of the neck
   offset limb temp, 0, 5, 15, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerHead, mesh
   link limb obj, deerNeck, deerHead
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Nose **
   ` Make sphere
   make object sphere temp, 2, 5, 5
   ` Push to the front of the head
   offset limb temp, 0, 20.2, 7, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerNose, mesh
   link limb obj, deerHead, deerNose
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Antler (Left) **
   ` (LOWER)
   ` Make cylinder
   make object cylinder temp, 0.7
   scale object temp, 100, 500, 100
   rotate object temp, 0, 0, 35
   ` Push to the top of the head
   offset limb temp, 0, 16, 0.8, -4.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerAntlerL1, mesh
   link limb obj, deerHead, deerAntlerL1
   ` Cleanup
   delete object temp
   delete mesh mesh
   ` (MIDDLE)
   ` Make cylinder
   make object cylinder temp, 0.7
   scale object temp, 100, 500, 100
   rotate object temp, 0, 0, 335
   ` Push to the top of the head
   offset limb temp, 0, 4, 3.6, -4.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerAntlerL2, mesh
   link limb obj, deerAntlerL1, deerAntlerL2
   ` Cleanup
   delete object temp
   delete mesh mesh
   ` (UPPER)
   ` Make cylinder
   make object cylinder temp, 0.7
   scale object temp, 100, 500, 100
   rotate object temp, 0, 0, 300
   ` Push to the top of the head
   offset limb temp, 0, -7.3, 3.85, -4.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerAntlerL3, mesh
   link limb obj, deerAntlerL2, deerAntlerL3
   ` Cleanup
   delete object temp
   delete mesh mesh

   ` ** Deer Antler (Right) **
   ` (LOWER)
   ` Make cylinder
   make object cylinder temp, 0.7
   scale object temp, 100, 500, 100
   rotate object temp, 0, 0, 35
   ` Push to the top of the head
   offset limb temp, 0, 16, 0.8, 4.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerAntlerR1, mesh
   link limb obj, deerHead, deerAntlerR1
   ` Cleanup
   delete object temp
   delete mesh mesh
   ` (MIDDE)
   ` Make cylinder
   make object cylinder temp, 0.7
   scale object temp, 100, 500, 100
   rotate object temp, 0, 0, 335
   ` Push to the top of the head
   offset limb temp, 0, 4, 3.6, 4.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerAntlerR2, mesh
   link limb obj, deerAntlerR1, deerAntlerR2
   ` Cleanup
   delete object temp
   delete mesh mesh
   ` (UPPER)
   ` Make cylinder
   make object cylinder temp, 0.7
   scale object temp, 100, 500, 100
   rotate object temp, 0, 0, 300
   ` Push to the top of the head
   offset limb temp, 0, -7.3, 3.85, 4.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerAntlerR3, mesh
   link limb obj, deerAntlerR2, deerAntlerR3
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Leg (Front-Left) **
   ` Make cylinder
   make object cylinder temp, 2
   scale object temp, 100, 700, 100
   ` Position limb
   offset limb temp, 0, 8, -1.01, 3
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerLegFL, mesh
   link limb obj, deerBody, deerLegFL
   ` Cleanup
   delete object temp
   delete mesh mesh

   ` ** Deer Leg (Front-Right) **
   ` Make cylinder
   make object cylinder temp, 2
   scale object temp, 100, 700, 100
   ` Position limb
   offset limb temp, 0, 8, -1.01, -3
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerLegFR, mesh
   link limb obj, deerBody, deerLegFR
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Leg (Back-Left) **
   ` Make cylinder
   make object cylinder temp, 2
   scale object temp, 100, 700, 100
   ` Position limb
   offset limb temp, 0, -8, -1.01, 3
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerLegBL, mesh
   link limb obj, deerBody, deerLegBL
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Deer Leg (Back-Right) **
   ` Make cylinder
   make object cylinder temp, 2
   scale object temp, 100, 700, 100
   ` Position limb
   offset limb temp, 0, -8, -1.01, -3
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, deerLegBR, mesh
   link limb obj, deerBody, deerLegBR
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Textures **
   texture limb obj, deerBody, deerFurImg
   texture limb obj, deerBack, deerFurImg
   texture limb obj, deerFront, deerFurImg
   texture limb obj, deerTail, deerTailImg
   texture limb obj, deerNeck, deerNeckImg
   texture limb obj, deerHead, deerHeadImg
   texture limb obj, deerNose, deerNoseImg
   texture limb obj, deerAntlerL1, deerAntlerImg
   texture limb obj, deerAntlerL2, deerAntlerImg
   texture limb obj, deerAntlerL3, deerAntlerImg
   texture limb obj, deerAntlerR1, deerAntlerImg
   texture limb obj, deerAntlerR2, deerAntlerImg
   texture limb obj, deerAntlerR3, deerAntlerImg
   texture limb obj, deerLegFL, deerLegImg
   texture limb obj, deerLegFR, deerLegImg
   texture limb obj, deerLegBL, deerLegImg
   texture limb obj, deerLegBR, deerLegImg
   
   ` ** Object Settings **
   ` Point the antlers
   rotate limb obj, deerAntlerL1, 0, 335, 0
   rotate limb obj, deerAntlerR1, 0, 25, 0
   ` Turn on transparency (for the top of deer's neck)
   set object transparency obj, 4
   ` Turn on culling
   set object cull obj, 1
endfunction obj

` Generate the textures to use for player reindeer
MakeReindeerTextures:
   ` ** Fur texture **
   create bitmap 1, 2, 2
   ` Brown background
   ink rgb(120, 70, 10), 0
   box 0, 0, 2, 2
   ` Store image
   deerFurImg = FreeImage()
   get image deerFurImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** Tail texture **
   create bitmap 1, 32, 32
   ` Brown background
   ink rgb(120, 70, 10), 0
   box 0, 0, 32, 32
   ` White spot underneath tail
   ink rgb(255, 255, 255), 0
   box 0, 20, 32, 32
   ` Store image
   deerTailImg = FreeImage()
   get image deerTailImg, 0, 0, 32, 32
   delete bitmap 1
   
   ` ** Neck texture **
   create bitmap 1, 32, 32
   ` Brown background
   ink rgb(120, 70, 10), 0
   box 0, 0, 32, 32
   ` Make the top half pink (transparent)
   ink rgb(255, 0, 255), 0
   box 0, 0, 32, 8
   ` Store image
   deerNeckImg = FreeImage()
   get image deerNeckImg, 0, 0, 32, 32
   delete bitmap 1
   
   ` ** Head texture **
   create bitmap 1, 64, 64
   ` Brown background
   ink rgb(120, 70, 10), 0
   box 0, 0, 64, 64
   ` Black eyes
   ink 0, 0
   box 0, 18, 3, 23
   box 27, 18, 30, 23
   ` White eye highlights
   dot 1, 20, rgb(255, 255, 255)
   dot 28, 20, rgb(255, 255, 255)
   ` Store image
   deerHeadImg = FreeImage()
   get image deerHeadImg, 0, 0, 64, 64
   delete bitmap 1
   
   ` ** Nose texture **
   create bitmap 1, 2, 2
   ` Red background
   ink rgb(255, 0, 0), 0
   box 0, 0, 2, 2
   ` Store image
   deerNoseImg = FreeImage()
   get image deerNoseImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** Antler texture **
   create bitmap 1, 2, 2
   ` Dark-gray background
   ink rgb(64, 64, 64), 0
   box 0, 0, 2, 2
   ` Store image
   deerAntlerImg = FreeImage()
   get image deerAntlerImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** Leg texture **
   create bitmap 1, 32, 32
   ` Brown background
   ink rgb(120, 70, 10), 0
   box 0, 0, 32, 32
   ` Make the hoof dark-gray
   ink rgb(64, 64, 64), 0
   box 0, 28, 32, 32
   ` Store image
   deerLegImg = FreeImage()
   get image deerLegImg, 0, 0, 32, 32
   delete bitmap 1
return

` Constants storing limb indexes for reindeer
#constant deerRoot         0
#constant deerBody         1
#constant deerBack         2
#constant deerTail         3
#constant deerFront        4
#constant deerNeck         5
#constant deerHead         6
#constant deerNose         7
#constant deerAntlerL1     8
#constant deerAntlerL2     9
#constant deerAntlerL3     10
#constant deerAntlerR1     11
#constant deerAntlerR2     12
#constant deerAntlerR3     13
#constant deerLegFL        14
#constant deerLegFR        15
#constant deerLegBL        16
#constant deerLegBR        17




` ***********************
` *** Sleigh Creation ***
` ***********************

` Build the player sleigh object
function BuildSleigh()
   ` Find object index that sleigh will use
   obj = FreeObject()
   
   ` ** Sleigh Bottom (Root) **
   ` Make floor
   make object plain obj, 30, 20, 1
   rotate object obj, 270, 0, 0
   fix object pivot obj
   ` Push floor down
   offset limb obj, sleighBottom, 0, 0, -10
   
   ` ** Prepare to add limbs **
   temp = FreeObject()
   mesh = FreeMesh()
   
   ` ** Sleigh Left Side **
   ` Make side
   make object plain temp, 30, 20, 1
   rotate object temp, 270, 180, 0
   fix object pivot temp
   ` Push to the left
   offset limb temp, 0, 0, 8.9, -10
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighSideL, mesh
   link limb obj, sleighBottom, sleighSideL
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Sleigh Right Side **
   ` Make side
   make object plain temp, 30, 20, 1
   rotate object temp, 90, 0, 0
   fix object pivot temp
   ` Push to the right
   offset limb temp, 0, 0, 8.9, -10
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighSideR, mesh
   link limb obj, sleighBottom, sleighSideR
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Sleigh Back **
   ` Make back
   make object plain temp, 20, 20
   rotate object temp, 90, 0, 90
   fix object pivot temp
   ` Push to the back
   offset limb temp, 0, 0, 8.9, -14.9
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighBack, mesh
   link limb obj, sleighBottom, sleighBack
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Sleigh Front **
   ` Make front
   make object plain temp, 20, 20
   rotate object temp, 90, 0, 270
   fix object pivot temp
   ` Push to the front
   offset limb temp, 0, 0, 8.9, -14.9
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighFront, mesh
   link limb obj, sleighBottom, sleighFront
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Left Blade **
   ` Make blade
   make object plain temp, 50, 5, 1
   rotate object temp, 270, 180, 0
   fix object pivot temp
   ` Push to the left
   offset limb temp, 0, 5, -2.5, -10.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighBladeL, mesh
   link limb obj, sleighBottom, sleighBladeL
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Right Blade **
   ` Make blade
   make object plain temp, 50, 5, 1
   rotate object temp, 90, 0, 0
   fix object pivot temp
   ` Push to the right
   offset limb temp, 0, -5, -2.5, -10.1
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighBladeR, mesh
   link limb obj, sleighBottom, sleighBladeR
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Toy Sack **
   ` Make sack
   make object sphere temp, 20, 10, 10
   scale object temp, 70, 95, 120
   rotate object temp, 350, 345, 0
   ` Push to the back and into the sleigh
   offset limb temp, 0, -5, -2, 11
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighSack, mesh
   link limb obj, sleighBottom, sleighSack
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Toy Sack Top **
   ` Make cone
   make object cone temp, 10
   scale object temp, 50, 100, 50
   rotate object temp, 250, 320, 0
   fix object pivot temp
   ` Push to the top of the sack
   offset limb temp, 0, 10, -23, -7
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, sleighSackTop, mesh
   link limb obj, sleighSack, sleighSackTop
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Body **
   ` Make sphere
   make object sphere temp, 17, 10, 10
   ` Push to the front of the sleigh
   offset limb temp, 0, 6, 0, 7
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaBody, mesh
   link limb obj, sleighBottom, santaBody
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Head **
   ` Make sphere
   make object sphere temp, 10, 10, 10
   ` Push to the top of Santa's body
   offset limb temp, 0, 6, 0, 19
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaHead, mesh
   link limb obj, santaBody, santaHead
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Nose **
   ` Make sphere
   make object sphere temp, 1.5, 5, 5
   scale object temp, 200, 100, 100
   ` Push to the front of Santa's face
   offset limb temp, 0, 5.5, 0, 18.5
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaNose, mesh
   link limb obj, santaHead, santaNose
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Beard **
   ` (SEGMENT 1)
   ` Make sphere
   make object sphere temp, 10, 10, 10
   scale object temp, 100, 130, 50
   rotate object temp, 0, 30, 0
   ` Push to the front of Santa's head
   offset limb temp, 0, 0, 0, 37.5
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaBeard1, mesh
   link limb obj, santaHead, santaBeard1
   ` Cleanup
   delete object temp
   delete mesh mesh
   ` (SEGMENT 2)
   ` Make sphere
   make object sphere temp, 10, 10, 10
   scale object temp, 100, 70, 40
   rotate object temp, 0, 50, 0
   ` Push to the front of Santa's head
   offset limb temp, 0, -2, 0, 45
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaBeard2, mesh
   link limb obj, santaBeard1, santaBeard2
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Hat (Fur) **
   ` Make sphere
   make object sphere temp, 15, 5, 5
   scale object temp, 100, 100, 30
   rotate object temp, 0, 330, 0
   ` Push to the top of Santa's head
   offset limb temp, 0, 15, 0, 50
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaHatFur, mesh
   link limb obj, santaHead, santaHatFur
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Hat (Main) **
   ` (SEGMENT 1)
   ` Make cone
   make object cone temp, 13
   rotate object temp, 90, 330, 0
   ` Push to the top of Santa's head
   offset limb temp, 0, 15, 22, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaHat1, mesh
   link limb obj, santaHatFur, santaHat1
   ` Cleanup
   delete object temp
   delete mesh mesh
   ` (SEGMENT 2)
   ` Make cone
   make object cone temp, 6.7
   rotate object temp, 90, 290, 0
   ` Push to the top of Santa's head
   offset limb temp, 0, 24.8, 10, 0
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaHat2, mesh
   link limb obj, santaHat1, santaHat2
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Hat (Puff ball) **
   ` Make sphere
   make object sphere temp, 4, 5, 5
   ` Push to the top of Santa's hat
   offset limb temp, 0, -4.5, 0, 27.8
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaHatTop, mesh
   link limb obj, santaHat2, santaHatTop
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Hand (Left) **
   ` Make sphere
   make object sphere temp, 3, 5, 5
   ` Push to the front of Santa
   offset limb temp, 0, 15, -7, 12
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaHandL, mesh
   link limb obj, santaBody, santaHandL
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Santa Hand (Right) **
   ` Make sphere
   make object sphere temp, 3, 5, 5
   ` Push to the front of Santa
   offset limb temp, 0, 15, 7, 12
   ` Add limb
   make mesh from object mesh, temp
   add limb obj, santaHandR, mesh
   link limb obj, santaBody, santaHandR
   ` Cleanup
   delete object temp
   delete mesh mesh
   
   ` ** Textures **
   texture limb obj, sleighBottom, sleighFloorImg
   texture limb obj, sleighSideL, sleighLeftImg
   texture limb obj, sleighSideR, sleighRightImg
   texture limb obj, sleighBack, sleighBackImg
   texture limb obj, sleighFront, sleighFrontImg
   texture limb obj, sleighBladeL, sleighBladeLImg
   texture limb obj, sleighBladeR, sleighBladeRImg
   texture limb obj, sleighSack, sleighSackImg
   texture limb obj, sleighSackTop, sleighSackTopImg
   texture limb obj, santaBody, santaBodyImg
   texture limb obj, santaHead, santaHeadImg
   texture limb obj, santaNose, santaNoseImg
   texture limb obj, santaBeard1, santaBeardImg
   texture limb obj, santaBeard2, santaBeardImg
   texture limb obj, santaHatFur, santaBeardImg
   texture limb obj, santaHat1, santaHalfHatImg
   texture limb obj, santaHat2, santaHatImg
   texture limb obj, santaHandL, santaHandImg
   texture limb obj, santaHandR, santaHandImg
   
   ` ** Object Settings **
   ` Turn on transparency
   set object transparency obj, 4
   ` Turn off culling
   set object cull obj, 0
endfunction obj

` Generate the textures to use for player sleigh
MakeSleighTextures:
   ` ** Floor texture **
   create bitmap 1, 2, 2
   ` Red background
   ink rgb(200, 0, 0), 0
   box 0, 0, 2, 2
   ` Store image
   sleighFloorImg = FreeImage()
   get image sleighFloorImg, 0, 0, 2, 2
   delete bitmap 1

   ` ** Right texture **
   create bitmap 1, 150, 100
   ` Red background
   ink rgb(200, 0, 0), 0
   box 0, 0, 150, 100
   ` Use a sine wave to add detail
   for x = 0 to 150
      y = (sin((x*1.7)-80)*40)+40
      ` Add a white stripe along the wave
      ink rgb(255, 255, 255), 0
      line x, y, x, y+10
      line x, y+13, x, y+14
      ` Fill in the area above the stripe with pink (transparent)
      ink rgb(255, 0, 255), 0
      line x, 0, x, y
      ` Make the bottom edge of the sleigh rounded
      y = (sin(x*1.2)*6)+95
      line x, y, x, 100
   next x
   ` Store image
   sleighRightImg = FreeImage()
   get image sleighRightImg, 0, 0, 150, 100
   
   ` ** Left texture **
   create bitmap 2, 150, 100
   ` (Mirror image of right side texture)
   copy bitmap 1, 2
   mirror bitmap 2
   set current bitmap 2
   ` Store image
   sleighLeftImg = FreeImage()
   get image sleighLeftImg, 0, 0, 150, 100
   delete bitmap 2
   delete bitmap 1
   
   ` ** Back texture **
   create bitmap 1, 100, 100
   ` Red background
   ink rgb(200, 0, 0), 0
   box 0, 0, 100, 100
   ` Add a white stripe along the top
   ink rgb(255, 255, 255), 0
   box 0, 0, 100, 10
   box 0, 13, 100, 15
   ` Make the bottom edge pink (transparent)
   ink rgb(255, 0, 255), 0
   box 0, 95, 100, 100
   ` Store image
   sleighBackImg = FreeImage()
   get image sleighBackImg, 0, 0, 100, 100
   delete bitmap 1
   
   ` ** Front texture **
   create bitmap 1, 100, 100
   ` Red background
   ink rgb(200, 0, 0), 0
   box 0, 0, 100, 100
   ` Add a white stripe along the middle
   ink rgb(255, 255, 255), 0
   box 0, 45, 100, 55
   box 0, 57, 100, 59
   ` Make the top half pink (transparent)
   ink rgb(255, 0, 255), 0
   box 0, 0, 100, 45
   ` Make the bottom edge transparent
   box 0, 95, 100, 100
   ` Store image
   sleighFrontImg = FreeImage()
   get image sleighFrontImg, 0, 0, 100, 100
   delete bitmap 1
   
   ` ** Left blade texture **
   create bitmap 1, 250, 25
   ` Pink (transparent) background
   ink rgb(255, 0, 255), 0
   box 0, 0, 250, 25
   ` Add track along the bottom
   ink rgb(160, 160, 160), 0
   box 12, 20, 212, 25
   ` Add front curve
   for a = 90 to 270
      x = (cos(a)*10)+12 : y = (sin(a)*10)+12
      box x, y, x+5, y+5
   next a
   ` Add back curve
   for a = -90 to 90
      x = (cos(a)*10)+205 : y = (sin(a)*10)+12
      box x, y, x+5, y+5
   next a
   ` Add vertical bars along the track
   for i = 1 to 5
      box i*30, 0, (i*30)+5, 25
   next i
   ` Store image
   sleighBladeLImg = FreeImage()
   get image sleighBladeLImg, 0, 0, 250, 25
   
   ` ** Right blade texture **
   create bitmap 2, 250, 25
   ` (Mirror image of left blade texture)
   copy bitmap 1, 2
   mirror bitmap 2
   set current bitmap 2
   ` Store image
   sleighBladeRImg = FreeImage()
   get image sleighBladeRImg, 0, 0, 250, 25
   delete bitmap 2
   delete bitmap 1
   
   ` ** Sack texture **
   create bitmap 1, 2, 2
   ` Gray-green background
   ink rgb(80, 100, 80), 0
   box 0, 0, 2, 2
   ` Store image
   sleighSackImg = FreeImage()
   get image sleighSackImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** Sack top texture **
   create bitmap 1, 64, 64
   ` Gray-green background
   ink rgb(80, 100, 80), 0
   box 0, 0, 64, 64
   ` Make the top ribbing pink (transparent)
   ink rgb(255, 0, 255), 0
   for x = 0 to 64
      y = (sin(x*22.5)*3)+61
      line x, y, x, 64
   next x
   ` Store image
   sleighSackTopImg = FreeImage()
   get image sleighSackTopImg, 0, 0, 64, 64
   delete bitmap 1
   
   ` ** Santa Body texture **
   create bitmap 1, 32, 32
   ` Red background
   ink rgb(200, 0, 0), 0
   box 0, 0, 32, 32
   ` White stripe going down front
   ink rgb(255, 255, 255), 0
   box 20, 13, 32, 19
   ` Store image
   santaBodyImg = FreeImage()
   get image santaBodyImg, 0, 0, 32, 32
   delete bitmap 1
   
   ` ** Santa Head texture **
   create bitmap 1, 64, 64
   ` Flesh background
   ink rgb(240, 170, 150), 0
   box 0, 0, 64, 64
   ` White hair
   ink rgb(255, 255, 255), 0
   box 0, 0, 32, 64
   box 60, 8, 64, 56
   box 56, 16, 60, 48
   ` White beard
   box 32, 0, 44, 64
   ` Eyes
   ink rgb(255, 255, 255), 0
   box 48, 25, 51, 29
   box 48, 35, 51, 39
   ` Eye pupils
   ink 0, 0
   line 49, 27, 48, 27
   line 49, 36, 48, 36
   ` Eyebrows
   ink rgb(255, 255, 255), 0
   line 52, 23, 53, 28
   line 52, 39, 53, 34
   ` Cheeks
   ink rgb(250, 130, 110), 0
   box 44, 18, 48, 22
   box 44, 42, 48, 46
   ` Store image
   santaHeadImg = FreeImage()
   get image santaHeadImg, 0, 0, 64, 64
   delete bitmap 1
   
   ` ** Santa Nose texture **
   create bitmap 1, 2, 2
   ` Pink flesh background
   ink rgb(250, 130, 110), 0
   box 0, 0, 2, 2
   ` Store image
   santaNoseImg = FreeImage()
   get image santaNoseImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** Santa Beard texture **
   create bitmap 1, 2, 2
   ` White background
   ink rgb(255, 255, 255), 0
   box 0, 0, 2, 2
   ` Store image
   santaBeardImg = FreeImage()
   get image santaBeardImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** Santa Half-Hat texture **
   create bitmap 1, 32, 32
   ` Red background
   ink rgb(200, 0, 0), 0
   box 0, 0, 32, 32
   ` Make top of hat pink (transparent)
   ink rgb(255, 0, 255), 0
   box 0, 0, 32, 14
   ` Store image
   santaHalfHatImg = FreeImage()
   get image santaHalfHatImg, 0, 0, 32, 32
   delete bitmap 1
   
   ` ** Santa Hat texture **
   create bitmap 1, 2, 2
   ` Red background
   ink rgb(200, 0, 0), 0
   box 0, 0, 2, 2
   ` Store image
   santaHatImg = FreeImage()
   get image santaHatImg, 0, 0, 2, 2
   delete bitmap 1
   
   ` ** Santa Glove texture **
   create bitmap 1, 2, 2
   ` Brown background
   ink rgb(64, 32, 0), 0
   box 0, 0, 2, 2
   ` Store image
   santaHandImg = FreeImage()
   get image santaHandImg, 0, 0, 2, 2
   delete bitmap 1
return

` Constants storing limb indexes for sleigh and Santa
#constant sleighFloor      0
#constant sleighSideL      1
#constant sleighSideR      2
#constant sleighBack       3
#constant sleighFront      4
#constant sleighBladeL     5
#constant sleighBladeR     6
#constant sleighSack       7
#constant sleighSackTop    8
#constant santaBody        9
#constant santaHead        10
#constant santaNose        11
#constant santaBeard1      12
#constant santaBeard2      13
#constant santaHatFur      14
#constant santaHat1        15
#constant santaHat2        16
#constant santaHatTop      17
#constant santaHandL       18
#constant santaHandR       19




` ***********************
` *** Misc. Functions ***
` ***********************

` Return the 2D distance between two points
function Dist2(x1#, y1#, x2#, y2#)
   d# = sqrt((x2#-x1#)*(x2#-x1#) + (y2#-y1#)*(y2#-y1#))
endfunction d#

` Return the lower of two number
function Min(n1#, n2#)
   if n1# > n2# then n1# = n2#
endfunction n1#

` Return the higher of two number
function Max(n1#, n2#)
   if n1# < n2# then n1# = n2#
endfunction n1#

` Return the positive/negative sign of any number
function Sign(n#)
   if n# < 0.0 then exitfunction -1
   if n# > 0.0 then exitfunction 1
endfunction 0

` Erase all media from memory
ClearAll:
   for i = 1 to 10000
      if sprite exist(i) then delete sprite i
      if object exist(i) then delete object i
      if sound exist(i) then delete sound i
      if matrix exist(i) then delete matrix i
      if image exist(i) then delete image i
   next i
   flush video memory
return

` Find a free image index
function FreeImage()
   repeat
      inc n
   until image exist(n) = 0
endfunction n

` Find a free object index
function FreeObject()
   repeat
      inc n
   until object exist(n) = 0
endfunction n

` Find a free mesh index
function FreeMesh()
   repeat
      inc n
   until mesh exist(n) = 0
endfunction n

` Find a free sprite index
function FreeSprite()
   repeat
      inc n
   until sprite exist(n) = 0
endfunction n

REM Project: Pong
REM Created: 30/08/2007 10:45:28
REM
REM ***** Main Source File *****
REM

REM -------------------LEVEL1--------------------------------------------------------------


rem startup
sync on : sync rate 30
hide mouse
make memblock 1,20
make camera 1
color backdrop 1,rgb(0,0,255)
position camera 1,0,500,0
xrotate camera 1,90
start:
rem make ball
make object sphere 1,20
rem make sides
make object box 2,350,100,20
position object 2,0,0,-100
make object box 3,350,100,20
position object 3,0,0,100
rem make players
make object box 4,10,40,40
position object 4,-175,0,0
make object box 5,10,40,40
position object 5,175,0,0
rem make ball move
rotate object 1,0,rnd(30)+30,0
bspeed#=15
gosub setupcollisions
gosub blur_setup
do
gosub printtext
gosub playerupdate
gosub moveball
gosub blur_loop
gosub aiupdate
gosub updatecollisions
sync
loop
moveball:
move object 1,bspeed#
if object position x(1)>200
ascore=ascore+1
goto reset
endif
if object position x(1)<-200
bscore=bscore+1
goto reset
endif
return
updatecollisions:
`sc_updateobject 1
`sc_updateobject 2
`sc_updateobject 3
`sc_updateobject 4
`sc_updateobject 5
if object collision(1,4)
i#=object angle y(1)
r#=i#-(i#*2)
ps#=mousemovey()*30
rotate object 1,0,r#+ps#,0
endif
if object collision(1,5)
i#=object angle y(1)
r#=i#-(i#*2)
rotate object 1,0,r#,0
endif
if object collision(1,2)
i#=object angle y(1)
r#=i#-(i#*2)
rotate object 1,0,r#+180,0
endif
if object collision(1,3)
i#=object angle y(1)
r#=i#-(i#*2)
rotate object 1,0,r#+180,0
endif

return
setupcollisions:
`sc_setupobject 1,0,2
`sc_setupobject 2,0,2
`sc_setupobject 3,0,2
`sc_setupobject 4,0,2
`sc_setupobject 5,0,2
`sc_setobjectcollisionon 1
`sc_setobjectcollisionon 4
`sc_setobjectcollisionon 5
return

aiupdate:
rotate object 1,0,wrapvalue(object angle y(1)),0
oz#=z#
if object angle y(1)>0 and object angle y(1)<180 and object position x(1)>0
oz#=az#
bz#=object position z(1)+rd#
cz#=object position z(5)
spd#=0.1
if bz#>cz#
az#=az#+5
else
az#=az#-5
endif
position object 5,175,0,az#
else
rd#=(rnd(40)-20)
endif
if az#>70 then az#=70
if az#<-70 then az#=-70
return
playerupdate:
pz#=pz#-mousemovey()/2
if pz#>70 then pz#=70
if pz#<-70 then pz#=-70
position object 4,px#-175,0,pz#
return
reset:
delete object 1
delete object 2
delete object 3
delete object 4
delete object 5
gosub blur_end
goto start
return


printtext:
gamespeed#=screen fps()
gamespeed$=str$(gamespeed#)
text 0,0,gamespeed$
ascore$=str$(ascore)
bscore$=str$(bscore)
text 200,10,ascore$
text 400,10,bscore$
return
endprt:
return
blur_setup:
make object sphere 6,19
set alpha mapping on 6,80
make object sphere 7,17
set alpha mapping on 7,66
make object sphere 8,15
set alpha mapping on 8,33
return
blur_loop:
position object 6,object position x(1),object position y(1),object position z(1)
rotate object 6,0,object angle y(1),0
move object 6,-5
position object 7,object position x(1),object position y(1),object position z(1)
rotate object 7,0,object angle y(1),0
move object 7,-10
position object 8,object position x(1),object position y(1),object position z(1)
rotate object 8,0,object angle y(1),0
move object 8,-15
return
blur_end:
delete object 6
delete object 7
delete object 8
return

rem *****************************************************************************************
rem Developed by Thorin for TGC 2008 Christmas Contest
rem
rem It is the year 2036 and santa switched from his classic sledge to a more modern
rem variant. The demo shows him approaching earth through the twilight zone near his home.
rem But like sattelites the lost packages from last year block his way down and he has to
rem shoot them down...
rem
rem use spacekey to fire and left-/right-key to move the cam
rem
rem Technical hints
rem ---------------
rem
rem each time a packet is hit the sprite for the explosion will be generated, assuring each
rem explosion looks different.
rem
rem watch the packets passing the ship, comming out of its shadow and lighted by the engine
rem
rem *****************************************************************************************
set display mode 640,480,16
set window on
set window title "Fighting Santa - TGC 2008 Christmas Contest"

rem -------------
rem Init
rem -------------
sync on
randomize timer()+mousex()-mousey()
autocam off
hide mouse
backdrop on
color backdrop rgb(101,4,11)
fog on
fog color rgb(101,4,11)
fog distance 600
set ambient light 30
set text font "Verdana"
set text size 14
set text to bold
set text transparent
ink 1,0

rem -------------
rem Textures
rem -------------
load bitmap "Gift01.jpg",1
set current bitmap 1
rem hull
get image 10,90,0,120,60
rem cockpit
get image 11,102,92,106,96
rem wing
get image 12,220,94,256,128
rem engine
get image 13,96,4,106,10
rem fire
get image 14,248,106,255,111
rem ground
get image 15,130,64,190,100
rem bullet/laser
get image 16,122,108,210,111
set current bitmap 0
rem Visor
create bitmap 17,32,32
set current bitmap 17
ink rgb(0,0,0),0
box 0,0,32,32
ink rgb(255,128,0),0
circle 16,16,15
circle 16,16,6
get image 17,0,0,32,32
set current bitmap 0


rem -------------
rem giftbox
rem -------------
dim x#(5)
dim y#(5)
dim z#(5)
dim r#(5)
dim delta#(5)
dim rot#(5)
for h=0 to 5
   load object "Gift01.x",h+1
   scale object h+1,5,5,5
   yrotate object h+1,180
   delta#(h)=(rnd(12)/10)+.1
   rot#(h)=(rnd(12)/10)+.1
   z#(h)=300+rnd(300)
   x#(h)=0
   while abs (x#(h)) < 6
      x#(h)=rnd(20)-40
   endwhile
   y#(h)=0
   while abs(y#(h)) < 7
      y#(h)=rnd(12)-16
   endwhile
   r#(h)=rnd(360)
   position object h+1,x#(h),y#(h),z#(h)
next h


rem -------------
rem create ship
rem -------------

make object cone 10,10
scale object 10,30,100,30
set object cull 10,0
texture object 10,10
xrotate object 10,90

make object cone 11,9
scale object 11,130,290,10
set object cull 11,0
texture object 11,10
xrotate object 11,90
position object 11, 0,0,-1

make object cone 12,10
scale object 12,200,270,3
set object cull 12,0
texture object 12,12
xrotate object 12,90

make object sphere 13,3
scale object 13,100,100,300
texture object 13,11
position object 13, 0,.4,-8

make object Cylinder 14,3.5
scale object 14,90,100,90
xrotate object 14,90
set object cull 14,0
texture object 14,13
position object 14, 0,0,-13

make object sphere 15,3
set object cull 15,0
texture object 15,14
position object 15, 0,0,-15

rem --------------------
rem create laser bullet
rem --------------------
make object cylinder 30,1
scale object 30,50,2500,50
texture object 30,16
xrotate object 30,90

rem -------------
rem create world
rem -------------
make object plain 20, 1200,1800
xrotate object 20,90
texture object 20,15
position object 20, -100,-25,300

make object plain 21, 1200,1800
xrotate object 21,90
texture object 21,15
scroll object texture 21,0,-.3
position object 21, -100,+20,300

make light 1
position light 1,0,0,-16
color light 1,255,255,255

make light 2
position light 1,0,0,-16
color light 2,-255,-255,-255

make light 3
position light 3,0,0,-15
color light 3,255,255,255

make light 4
position light 4,0,0,-15
color light 4,-255,-255,-255

position camera 20,5,-20
point camera 0,0,0

w#=285
dw#=+.2
rem *****************************************************************************************
Cameraloop:
rem *****************************************************************************************
while w# < 345
   for h=0 to 5
      z#(h)=z#(h)-delta#(h)
      if z#(h) < -25
         z#(h)=300+rnd(350)
         delta#(h)=(rnd(12)/10)+.1
         rot#(h)=(rnd(12)/10)+.1
      endif
      position object h+1,x#(h),y#(h),z#(h)
      r#(h)=r#(h)+rot#(h)
      xrotate object h+1,wrapvalue(r#(h))
   next h
   scale object 15,100,100,rnd(200)+80
   scroll object texture 20,0,-.002
   scroll object texture 21,0,-.0007
   if rnd(1) > .5
      ghost object on 15
   else
      ghost object off 15
   endif

   w#=w#+dw#
   set camera to follow 0,0,0, w# ,30, 5 ,20, 0

   set text to bold
   set text size 32
   ink rgb(255,255,255),0
   center text (screen width()/2)-1,1,"The Game - Christmas Contest 2008"
   ink rgb(32,32,128),0
   center text (screen width()/2)+1,3,"The Game - Christmas Contest 2008"
   ink rgb(128,128,255),0
   center text screen width()/2,2,"The Game - Christmas Contest 2008"
   set text size 16
   ink rgb(255,255,255),0
   center text screen width()/2,screen height()-25,"Thorin 2007"
   ink rgb(32,32,128),0
   center text screen width()/2,screen height()-25,"Thorin 2007"
   ink rgb(128,128,255),0
   center text screen width()/2,screen height()-25,"Thorin 2007"

   sync
endwhile
set camera to follow 0,0,0, w# ,35, 6 ,20, 0

`sprite 17,2*(screen width()/3)-38,screen height()/2-54,17
`position object 30,0,-2,2
ch#=7.
rem *****************************************************************************************
Mainloop:
rem *****************************************************************************************
while -1
rem                                                Moving packets
   if leftkey()
      w#=w#+dw#
   endif
   if rightkey()
      w#=w#-dw#
   endif
   if upkey()
      ch#=ch#-.5
   endif
   if downkey()
      ch#=ch#+.5
   endif
   if w# > 350 then w#=350
   if w# < 340 then w#=340
   if ch# > 12  then ch#=12
   if ch# < 3  then ch#=3
   set camera to follow 0,0,0, w# ,35, ch# ,60, 0

   for h=0 to 5
      z#(h)=z#(h)-delta#(h)
      if z#(h) < -25
         z#(h)=300+rnd(350)
         delta#(h)=(rnd(12)/10)+.1
         rot#(h)=(rnd(12)/10)+.1
      endif
      position object h+1,x#(h),y#(h),z#(h)
      r#(h)=r#(h)+rot#(h)
      xrotate object h+1,wrapvalue(r#(h))
      distance#=sqrt( (x#(h))*(x#(h)) + (z#(h)-bulletz)*(z#(h)-bulletz) )

      if distance# < 50 and bullet=1 and bulletz > 60
         gosub Create_Explosion
         sprite 18,object screen x(30)-32,object screen y(30)-32,18
         endExpl=timer()+500
         set ambient light 100
         sync
         bullet=0
         bulletz=0
         position object 30,0,-2,2
         z#(h)=-30
      endif
   next h
   if timer() > endExpl
      if sprite exist(18) then hide sprite 18
      position light 3,0,0,-15
      position light 4,0,0,-15
      set ambient light 30
   endif

rem                                                Enginefire
   scale object 15,100,100,rnd(200)+80
   scroll object texture 20,0,-.002
   scroll object texture 21,0,-.0007
   if rnd(1) > .5
      ghost object on 15
   else
      ghost object off 15
   endif

   if spacekey() and bullet=0
      bullet=1
      bulletz=0
      position object 30,0,-2,2
      position light 3,0,-2,0
      position light 4,0,-2,0
   endif
   if bullet=1
      bulletz=bulletz+1
      position object 30,0,-2,bulletz
      position light 3,0,-2,bulletz
      position light 4,0,-2,bulletz
      if bulletz > 250
         bullet=0
         bulletz=0
         position object 30,0,-2,2
         position light 3,0,0,-15
         position light 4,0,0,-15
      endif
   endif
   set text to bold
   ink rgb(196,196,255),0
   set text size 16
   center text screen width()/2,screen height()-25,"press <escape> to exit - <space> to fire"
   sync
endwhile


rem *****************************************************************************************
rem SubRoutines
rem *****************************************************************************************

rem --------------------
Create_Explosion:
rem --------------------
if bitmap exist(18) then delete bitmap 18
if image exist(18)  then delete image 18
if sprite exist(18) then delete sprite 18
create bitmap 18,64,64
set current bitmap 18
ink rgb(0,0,0),0
box 0,0,32,32
for c=1 to 6
   px=rnd(16)+16
   py=rnd(16)+16
   if px < py
      maxr=px/2-1
   else
      maxr=py/2-1
   endif
   for h=1 to maxr
      ink rgb(196-h*2,128-h*3,0),0
      circle px,py,h
   next h
   for h=1 to 2*maxr/3
      ink rgb(255-h*2,196-h*3,0),0
      circle px,py,h
   next h
   for h=1 to maxr/2
      ink rgb(255-h*2,255-h*3,0),0
      circle px,py,h
   next h
   for h=1 to maxr/3
      ink rgb(255,255,255),0
      circle px,py,h
   next h
next c
get image 18,0,0,64,64
set current bitmap 0
return