Sorry your browser is not supported!

global SantaSpeed# as float : SantaSpeed# = 0.3

rem Christmas Challenge (2007)
rem Author: AceLepage
rem Version: 2.0
type myGifts
  x as float
  y as float
  z as float
  active as integer
  falling as float
endtype
global centre_x as float
global centre_y as float
global centre_z as float
centre_x=0.0
centre_y=20.0
centre_z=25.0
global move_ver
global move_hor
global move_pick
global last_ver
global last_hor
global last_pick
global carrying=0
global elf_z_lower=-25
global elf_z_upper=-15
global elf_x_lower=0
global elf_x_upper=150
global belt_z as float
global belt_z_start as float
global belt_start as float
global belt_init as float
global gravity as float
global conveyor_end=-8
global giftbox=-25
belt_z_start=0.2
belt_z=belt_z_start
belt_start=90
belt_init=50
gravity=0.1
rem Objects
global temp=1
global dim conveyor(4)
global dim conveyortop(4)
global dim chute(4)
global dim columns(4)
for x=1 to 4
  conveyor(x)=x+1
  chute(x)=x+5
  columns(x)=x+9
  conveyortop(x)=x+13
next x
global wall=18
global oFloor=19
global total_gifts=22
global dim gift(total_gifts)
for i=1 to total_gifts
  gift(i)=i+19
next i
global scoreboard=42
global scoreboard_frame=43
global worksign=44
global safetysign=45
global f1sign=46
global elf=47

dim boxes(total_gifts) as myGifts
x=elf
rem Objects used for elf
global upperarm
global lowerarm
global upperleg
global lowerleg
global head
global joint
global glued
global hat
global shoe
global hand
upperarm=x+1
lowerarm=x+2
upperleg=x+3
lowerleg=x+4
head=x+5
joint=x+6
hat=x+7
glued=x+8
shoe=x+9
hand=x+10
rem Limbs for elf
global hip_l=1
global upperleg_l=2
global knee_l=3
global lowerleg_l=4
global shoe_l=5
global hip_r=6
global upperleg_r=7
global knee_r=8
global lowerleg_r=9
global shoe_r=10
global shoulder_l=11
global upperarm_l=12
global elbow_l=13
global lowerarm_l=14
global hand_l=15
global shoulder_r=16
global upperarm_r=17
global elbow_r=18
global lowerarm_r=19
global hand_r=20
global head_c=21
global hat_c=22
global glued_c=23
rem Motion variables for elf
global l_hip as float
global l_knee as float
global r_hip as float
global r_knee as float
global l_hipdir as float
global l_kneedir as float
global r_hipdir as float
global r_kneedir as float
global r_shoulder as float
global r_elbow as float
global l_shoulder as float
global l_elbow as float
global r_shoulderdir as float
global r_elbowdir as float
global l_shoulderdir as float
global l_elbowdir as float

rem Images
global wood=2
global table=3
global wallpaper=4
global floortile=5
global chutetile=6
global suit=7
global face=8
global blink=9
global mad=10
global instruct=12
global column=13
global Iworksign=14
global Isafetysign=15
global Iendgame=16
global I_scoring=17

global level
global elf_active
global score
global endgame

rem Main Code

setup_display()
make_conveyor()
make_wall()
make_floor()
make_chutes()
make_elf()
make_pretty()
load_media()
make_scoreboard()
make_instructions()
place_objects()
setup_camera()
initialize()
show_instructions(0)
while not escapekey()
  user_input()
  move_elf()
  send_gifts()
  move_gifts()
  move_conveyor()
endwhile
end

function initialize()
  position object elf,0,25,-15
  score=0
  endgame=0
  level=1
  elf_active=0
endfunction

function send_gifts()
  add=1
  total_active=0
  for i=1 to total_gifts
    if boxes(i).active
      if boxes(i).z>belt_init then add=0
      inc total_active
    endif
  next i
  if total_active > level then add=0
  if add
    found=0
    for i=1 to total_gifts
      if boxes(i).active=0 then found=i
    next i
    if found>0
      spot=rnd(3)
      boxes(found).x=spot*50
      boxes(found).y=28
      boxes(found).z=90
      boxes(found).active=1
      boxes(found).falling=0
      show object gift(found)
    endif
  endif
endfunction

function move_conveyor()
  scroll object texture conveyortop(1),0.0,-belt_z/100.0
endfunction

function move_gifts()
  for i=1 to total_gifts
    if boxes(i).active>0 and boxes(i).active<3
      if boxes(i).active=1
        boxes(i).z=boxes(i).z-belt_z
      endif
      if boxes(i).z < conveyor_end
        if boxes(i).z < giftbox
          boxes(i).z=boxes(i).z-belt_z
          boxes(i).y=boxes(i).y+boxes(i).falling
          if boxes(i).y<object position y(oFloor)+8
            boxes(i).y=boxes(i).y-boxes(i).falling
            boxes(i).falling=boxes(i).falling*-0.3
            if boxes(i).falling<0.1
              boxes(i).active=0
              hide object gift(i)
              yrotate object gift(i),270
              inc score
              update_scoreboard()
            endif
          else
            boxes(i).falling=boxes(i).falling-gravity
          endif
        else
          boxes(i).y=boxes(i).y+boxes(i).falling
          if boxes(i).y<object position y(oFloor)+7
            boxes(i).active=2
            boxes(i).y=boxes(i).y-boxes(i).falling
            boxes(i).falling=boxes(i).falling*-0.3
            if boxes(i).falling<0.1
              boxes(i).active=3
              endgame=1
            endif
          else
            boxes(i).falling=boxes(i).falling-gravity
          endif
        endif
      endif
      position object gift(i),boxes(i).x,boxes(i).y,boxes(i).z
    endif
  next i
endfunction

function user_input()
  move_ver=0
  move_hor=0
  move_pick=0
  if upkey() then move_ver=1
  if downkey() then move_ver=-1
  if leftkey() then move_hor=1
  if rightkey() then move_hor=-1
  if spacekey() then move_pick=1
  if scancode()=59 then show_instructions(0)
endfunction

function place_objects()
  for x=1 to 4
    position object conveyor(x),(x-1)*50,10,50
    position object conveyortop(x),(x-1)*50,22.1,47.5
    position object chute(x),(x-1)*50,10,-70
    position object columns(x),(x-1)*50-12.5,20,80
  next x
  position object wall,100,90,90
  position object oFloor,50,0,0
  position object scoreboard,200,60,0
  position object scoreboard_frame,200,80,-0.5
  position object worksign,60,60,80
  position object safetysign,200,40,-50
endfunction

function make_texture()
  create bitmap temp,32,32
  ink rgb(120,38,0),0
  box 0,0,31,31
  ink rgb(180,60,0),0
  for x=1 to 50
    dot rnd(31),rnd(31)
  next x
  get image wood,0,0,31,31
  ink rgb(32,8,0),0
  box 0,0,31,31
  ink rgb(180,30,0),0
  for x=1 to 50
    dot rnd(31),rnd(31)
  next x
  get image table,0,0,31,31
  delete bitmap temp
  create bitmap temp,512,512
  ink rgb(192,255,255),0
  box 0,0,511,511
  ink rgb(128,255,255),0
  get image wallpaper,0,0,511,511
  ink rgb(192,192,192),0
  box 0,0,511,511
  ink rgb(32,32,32),0
  for x=0 to 500 step 10
    line 0,x,511,x
    line x,0,x,511
  next x
  get image floortile,0,0,511,511
  ink rgb(255,64,64),0
  box 0,0,511,511
  ink rgb(255,255,255),0
  star=20
  for z=1 to 50
    x=rnd(511)
    y=rnd(511)
    for i=1 to star
      line x-star+i,y,x,y+i
      line x-star+i,y,x,y-i
      line x+star-i,y,x,y+i
      line x+star-i,y,x,y-i
    next i
  next z
  get image chutetile,0,0,511,511
  delete bitmap temp
endfunction

function make_conveyor()
  make_texture()
  make object box temp,10,20,100
  make mesh from object temp,temp
  delete object temp
  make object conveyor(1),temp,wood
  delete mesh temp
  make object box temp,14,5,105
  make mesh from object temp,temp
  delete object temp
  add limb conveyor(1),1,temp
  delete mesh temp
  offset limb conveyor(1),1,0,10,-2.5
  texture limb conveyor(1),1,table
  instance object conveyor(2),conveyor(1)
  instance object conveyor(3),conveyor(1)
  instance object conveyor(4),conveyor(1)
  make object box conveyortop(1),14,1,105
  texture object conveyortop(1),table
  instance object conveyortop(2),conveyortop(1)
  instance object conveyortop(3),conveyortop(1)
  instance object conveyortop(4),conveyortop(1)
endfunction

function make_wall()
  make object box temp,300,100,20
  make mesh from object temp,temp
  delete object temp
  make object wall, temp,wallpaper
  delete mesh temp
  make object box temp,40,40,20
  make mesh from object 1,temp
  delete object temp
  make object box temp,30,40,20
  make mesh from object 2,temp
  delete object temp
  add limb wall,1,1
  add limb wall,2,2
  add limb wall,3,2
  add limb wall,4,2
  add limb wall,5,1
  delete mesh 1
  delete mesh 2
  offset limb wall,1,-130,-70,0
  offset limb wall,2,-75,-70,0
  offset limb wall,3,-25,-70,0
  offset limb wall,4,25,-70,0
  offset limb wall,5,95,-70,0
  make object box temp,20,200,200
  make mesh from object 1,temp
  delete object temp
  add limb wall,6,1
  delete mesh 1
  make object box temp,20,150,250
  make mesh from object 1,temp
  delete object temp
  add limb wall,7,1
  delete mesh 1
  offset limb wall,6,120,10,-100
  rotate limb wall,7,0,90,0
  offset limb wall,7,0,10,-180
  make object box temp,25,20,20
  make mesh from object 1,temp
  delete object temp
  add limb wall,8,1
  add limb wall,9,1
  add limb wall,10,1
  offset limb wall,8,25,-75,-180
  offset limb wall,9,-25,-75,-180
  offset limb wall,10,-75,-75,-180
  delete mesh 1
  make object box temp,50,20,20
  make mesh from object 1,temp
  delete object temp
  add limb wall,11,1
  offset limb wall,11,90,-75,-180
  delete mesh 1
  texture object wall,wallpaper
endfunction

function make_floor()
  make object box oFloor,300,5,200
  texture object oFloor,floortile
endfunction

function make_chutes()
  make object box temp,2,20,60
  make mesh from object 1,temp
  delete object temp
  make object chute(1),1,0
  add limb chute(1),1,1
  add limb chute(1),2,1
  rotate limb chute(1),1,0,0,90
  offset limb chute(1),0,9,0,0
  offset limb chute(1),1,0,-7,0
  offset limb chute(1),2,-9,0,0
  texture object chute(1),chutetile
  instance object chute(2),chute(1)
  instance object chute(3),chute(1)
  instance object chute(4),chute(1)
endfunction

function load_media()
  load object "gift01.x",gift(1)
  scale object gift(1),10,10,10
  yrotate object gift(1),270
  hide object gift(1)
  for i=2 to total_gifts
    clone object gift(i),gift(1)
    hide object gift(i)
  next i
endfunction

function setup_display()
  set display mode 1024,768,32
  backdrop on
  color backdrop rgb(255,255,255)
  hide mouse
endfunction

function setup_camera()
  position camera -100,50,25
  point camera centre_x,centre_y,centre_z
  sync rate 60
endfunction

function make_elf()
  upperarm_mesh=1
  lowerarm_mesh=2
  upperleg_mesh=3
  lowerleg_mesh=4
  head_mesh=5
  joint_mesh=6
  body_mesh=7
  glued_mesh=8
  hat_mesh=9
  shoe_mesh=10
  hand_mesh=11
  tempmesh=12
  skincolor=rgb(255,220,145)

  create bitmap 1,256,256
  ink rgb(255,64,64),0
  box 0,0,255,255
  ink rgb(255,128,128),0
  for x=0 to 250 step 5
    for y=0 to 250 step 5
      dot x,y
    next y
  next x
  get image suit,0,0,255,255
  ink skincolor,0
  box 0,0,255,255
  ink 0,0
  for i=1 to 3
    line 103,138+i,113,138+i
    line 137,138+i,147,138+i
  next i
  circle 125,100,10
  circle 125,100,11
  circle 125,100,12
  get image mad,0,0,255,255
  ink skincolor,0
  box 110,101,140,115
  get image blink,0,0,255,255
  ink 0,0
  for x=1 to 10
    circle 108,140,x
    circle 142,140,x
  next x
  ink rgb(128,128,255),0
  for x=1 to 3
    circle 110,140,x
    circle 140,140,x
  next x
  get image face,0,0,255,255
  delete bitmap 1
  make_shoes(shoe_mesh)
  make_hands(hand_mesh)
  make object cylinder elf,40
  scale object elf,50,100,25
  make mesh from object body_mesh,elf
  delete object elf
  make object elf,body_mesh,suit
  make object cylinder upperarm,20:scale object upperarm,25,100,25
  make object cylinder lowerarm,20:scale object lowerarm,25,50,25
  make object cylinder upperleg,20:scale object upperleg,40,100,40
  make object cylinder lowerleg,20:scale object lowerleg,40,100,40
  make object sphere head,20
  scale object head,80,100,70
  make object sphere joint,7
  make object plain glued,10,10
  make object cone hat,14.5
  make mesh from object upperarm_mesh,upperarm
  make mesh from object lowerarm_mesh,lowerarm
  make mesh from object upperleg_mesh,upperleg
  make mesh from object lowerleg_mesh,lowerleg
  make mesh from object head_mesh,head
  make mesh from object joint_mesh,joint
  make mesh from object glued_mesh,glued
  make mesh from object hat_mesh,hat
  delete object upperarm
  delete object lowerarm
  delete object upperleg
  delete object lowerleg
  delete object head
  delete object joint
  delete object glued
  delete object hat

  add limb elf,hip_l,joint_mesh
  add limb elf,upperleg_l,upperleg_mesh
  link limb elf,hip_l,upperleg_l
  add limb elf,knee_l,joint_mesh
  link limb elf,upperleg_l,knee_l
  add limb elf,lowerleg_l,lowerleg_mesh
  link limb elf,knee_l,lowerleg_l
  add limb elf,shoe_l,shoe_mesh
  rotate limb elf,shoe_l,0,90,0
  link limb elf,lowerleg_l,shoe_l

  add limb elf,hip_r,joint_mesh
  add limb elf,upperleg_r,upperleg_mesh
  link limb elf,hip_r,upperleg_r
  add limb elf,knee_r,joint_mesh
  link limb elf,upperleg_r,knee_r
  add limb elf,lowerleg_r,lowerleg_mesh
  link limb elf,knee_r,lowerleg_r
  add limb elf,shoe_r,shoe_mesh
  rotate limb elf,shoe_r,0,90,0
  link limb elf,lowerleg_r,shoe_r

  add limb elf,shoulder_l,joint_mesh
  add limb elf,upperarm_l,upperarm_mesh
  link limb elf,shoulder_l,upperarm_l
  add limb elf,elbow_l,joint_mesh
  link limb elf,upperarm_l,elbow_l
  add limb elf,lowerarm_l,lowerarm_mesh
  link limb elf,elbow_l,lowerarm_l
  add limb elf,hand_l,hand_mesh
  link limb elf,lowerarm_l,hand_l

  add limb elf,shoulder_r,joint_mesh
  add limb elf,upperarm_r,upperarm_mesh
  link limb elf,shoulder_r,upperarm_r
  add limb elf,elbow_r,joint_mesh
  link limb elf,upperarm_r,elbow_r
  add limb elf,lowerarm_r,lowerarm_mesh
  link limb elf,elbow_r,lowerarm_r
  add limb elf,hand_r,hand_mesh
  link limb elf,lowerarm_r,hand_r

  add limb elf,head_c,head_mesh
  add limb elf,hat_c,hat_mesh
  add limb elf,glued_c,glued_mesh
  hide limb elf,glued_c
  rotate limb elf,head_c,180,0,0
`  fix object pivot elf

  offset limb elf,shoulder_l,12.5,17.5.0,0.0
  offset limb elf,upperarm_l,0.0,-10.0,0.0
  offset limb elf,elbow_l,0.0,-10.0,0.0
  offset limb elf,lowerarm_l,0.0,-7.5,0.0
  offset limb elf,shoulder_r,-12.5,17.5,0.0
  offset limb elf,upperarm_r,0.0,-10.0,0.0
  offset limb elf,elbow_r,0.0,-10.0,0.0
  offset limb elf,lowerarm_r,0.0,-7.5,0.0
  offset limb elf,hip_l,5.0,-20.0,0.0
  offset limb elf,upperleg_l,0.0,-10.0,0.0
  offset limb elf,knee_l,0.0,-10.0,0.0
  offset limb elf,lowerleg_l,0.0,-7.5,0.0
  offset limb elf,hip_r,-5.0,-20.0,0.0
  offset limb elf,upperleg_r,0.0,-10.0,0.0
  offset limb elf,knee_r,0.0,-10.0,0.0
  offset limb elf,lowerleg_r,0.0,-7.5,0.0
  offset limb elf,shoe_l,0.0,-7.5,0.0
  offset limb elf,shoe_r,0.0,-7.5,0.0
  offset limb elf,hand_l,0.0,-5.5,0.0
  offset limb elf,hand_r,0.0,-5.5,0.0
  offset limb elf,head_c,0.0,30.0,0.0
  offset limb elf,glued_c,0.0,10.0,20.0
  offset limb elf,hat_c,0.0,-12.0,0.0
  offset limb elf,shoe_l,0.0,-7.5,4.0
  offset limb elf,shoe_r,0.0,-7.5,4.0
  rotate limb elf,hat_c,180,0,0
  link limb elf,head_c,hat_c
  texture limb elf,upperarm_l,suit
  texture limb elf,upperarm_r,suit
  texture limb elf,upperleg_l,suit
  texture limb elf,upperleg_r,suit
  color limb elf,lowerarm_r,skincolor
  color limb elf,lowerarm_l,skincolor
  color limb elf,hand_l,skincolor
  color limb elf,hand_r,skincolor
  texture limb elf,hat_c,suit
  texture limb elf,head_c,face
  color limb elf,shoulder_r,rgb(0,64,0)
  color limb elf,shoulder_l,rgb(0,64,0)
  color limb elf,elbow_r,rgb(0,64,0)
  color limb elf,elbow_l,rgb(0,64,0)
  color limb elf,shoe_l,rgb(0,128,0)
  color limb elf,shoe_r,rgb(0,128,0)
  scale object elf,40,40,40
endfunction
function make_shoes(shoe_mesh)
  tempmesh=1
  make object cylinder shoe,10
  zrotate object shoe,90
  make object cone temp,10
  zrotate object temp,-45
  make mesh from object tempmesh,temp
  delete object temp
  add limb shoe,1,tempmesh
  delete mesh tempmesh
  offset limb shoe,1,5,9,0
  make object sphere temp,10
  make mesh from object tempmesh,temp
  delete object temp
  add limb shoe,2,tempmesh
  add limb shoe,3,tempmesh
  offset limb shoe,2,0,4.5,0
  offset limb shoe,3,0,-4.5,0
  delete mesh tempmesh
  make object sphere temp,4
  make mesh from object tempmesh,temp
  delete object temp
  add limb shoe,4,tempmesh
  delete mesh tempmesh
  offset limb shoe,4,9,12,0
  make mesh from object shoe_mesh,shoe
  delete object shoe
endfunction
function make_hands(handmesh)
  make object sphere hand,10
  scale object hand,80,100,20
  make mesh from object 1,hand
  delete object hand
  make object hand,1,0
  delete mesh 1
  make object cylinder temp,5
  scale object temp,45,100,45
  make mesh from object 1,temp
  delete object temp
  add limb hand,1,1
  add limb hand,2,1
  add limb hand,3,1
  add limb hand,4,1
  delete mesh 1
  make object cylinder temp,5
  scale object temp,35,50,35
  make mesh from object 1,temp
  delete object temp
  add limb hand,5,1
  add limb hand,6,1
  add limb hand,7,1
  add limb hand,8,1
  add limb hand,9,1
  add limb hand,10,1
  rotate limb hand,1,0,0,25
  rotate limb hand,2,0,0,10
  rotate limb hand,3,0,0,-10
  rotate limb hand,4,0,0,-25
  offset limb hand,1,-4,5,0
  offset limb hand,2,-1.5,7,0
  offset limb hand,3,1.5,7,0
  offset limb hand,4,4,5,0
  rotate object hand,0,90,180
  scale object hand,75,75,75
  make mesh from object handmesh,hand
  delete object hand
endfunction
function elf_start_running()
  speed#=10.0
  l_hip=-45.0
  l_knee=45.0
  r_hip=45.0
  r_knee=45.0
  l_hipdir=speed#
  l_kneedir=-speed#
  r_hipdir=-speed#
  r_kneedir=speed#
  r_shoulder=-45.0
  r_elbow=-45.0
  l_shoulder=45.0
  l_elbow=-45.0
  r_shoulderdir=speed#
  r_elbowdir=-speed#
  l_shoulderdir=-speed#
  l_elbowdir=speed#
endfunction

function elf_start_walking()
  speed#=1.0
  l_hip=-45.0
  l_knee=45.0
  r_hip=45.0
  r_knee=45.0
  l_hipdir=speed#
  l_kneedir=-speed#
  r_hipdir=-speed#
  r_kneedir=speed#
endfunction

function move_elf()
  if endgame=1
    elf_mad()
  else
    if not endgame
      if timer() mod 1000 < 200 and int(timer()/1000) mod 5 = 0
        texture limb elf,head_c,blink
      else
        texture limb elf,head_c,face
      endif
    endif
    if move_hor=0 and move_ver=0
      if object angle y(elf) mod 180 > 0
        move_hor=last_hor
      endif
    endif
    if move_ver<>0 or move_hor<>0
      if elf_active=0
        elf_start_running()
        elf_active=1
      endif
      elf_running()
      elf_x#=object position x(elf)
      if move_hor<>0
        if elf_x#>0 and elf_x#<>50 and elf_x#<>100 and elf_x#<150
          move_hor=0
          move_ver=last_ver
        endif
      endif
      if move_ver=1
        if object angle y(elf) <> 90
          if object angle y(elf)> 90 and object angle y(elf)< 270
            turn=-10
          else
            turn=10
          endif
          yrotate object elf,wrapvalue(object angle y(elf)+turn)
        endif
      endif
      if move_ver=-1
        if object angle y(elf) <> 270
          if object angle y(elf) < 270 and object angle y(elf) > 90
            turn=10
          else
            turn=-10
          endif
          yrotate object elf,wrapvalue(object angle y(elf)+turn)
        endif
      endif
      if move_hor=1
        if object angle y(elf)<>0
          if object angle y(elf)>0 and object angle y(elf)<180
            turn=-10
          else
            turn=10
          endif
          yrotate object elf,wrapvalue(object angle y(elf)+turn)
        endif
      endif
      if move_hor=-1
        if object angle y(elf)<>180
          if object angle y(elf)>0 and object angle y(elf)<180
            turn=10
          else
            turn=-10
          endif
          yrotate object elf,wrapvalue(object angle y(elf)+turn)
        endif
      endif
      if not endgame
        elf_x#=object position x(elf)+move_ver
        elf_z#=object position z(elf)+move_hor
        if elf_x#<elf_x_lower or elf_x#>elf_x_upper
          elf_x#=object position x(elf)
        endif
        if elf_z#<elf_z_lower or elf_z#>elf_z_upper
          elf_z#=object position z(elf)
        endif
      else
        elf_x#=object position x(elf)-0.15
        elf_z#=object position z(elf)
      endif
      position object elf,elf_x#,object position y(elf),elf_z#
      last_ver=move_ver
      last_hor=move_hor
    endif
  endif
  if move_pick=1
    hold_gift()
    if last_pick=0 then elf_running()
  else
    if carrying then drop_gift()
    if last_pick=1 then drop_arms()
  endif
  last_pick=move_pick
  if not endgame
    if r_shoulder=0
      elf_start_running()
    endif
  endif
endfunction

function drop_arms()
  r_shoulder=0.0
  r_elbow=0.0
  l_shoulder=0.0
  l_elbow=0.0
  r_shoulderdir=0
  r_elbowdir=0
  l_shoulderdir=0
  l_elbowdir=0
  elf_running()
endfunction

function drop_gift()
  unglue object gift(carrying)
  scale object gift(carrying),10,10,10
  yrotate object gift(carrying),90
  boxes(carrying).x=limb position x(elf,glued_c)
  boxes(carrying).y=limb position y(elf,glued_c)
  boxes(carrying).z=limb position z(elf,glued_c)
  boxes(carrying).active=1
  carrying=0
endfunction

function hold_gift()
  r_shoulder=-45.0
  r_elbow=-45.0
  l_shoulder=-45.0
  l_elbow=-45.0
  r_shoulderdir=0
  r_elbowdir=0
  l_shoulderdir=0
  l_elbowdir=0
  for i=1 to total_gifts
    if boxes(i).active>0 and boxes(i).active<3
      if boxes(i).x=object position x(elf) and boxes(i).z<conveyor_end+7 and boxes(i).z>conveyor_end-10 and boxes(i).y>20 and carrying=0
        boxes(i).active=3
        glue object to limb gift(i),elf,glued_c
        scale object gift(i),25,25,25
        position object gift(i),0,0,0
        carrying=i
      endif
    endif
  next i
endfunction

function elf_running()
  rotate limb elf,hip_l,l_hip,0.0,0.0
  rotate limb elf,knee_l,l_knee,0.0,0.0
  rotate limb elf,hip_r,r_hip,0.0,0.0
  rotate limb elf,knee_r,r_knee,0.0,0.0
  rotate limb elf,shoulder_l,l_shoulder,0.0,0.0
  rotate limb elf,elbow_l,l_elbow,0.0,0.0
  rotate limb elf,shoulder_r,r_shoulder,0.0,0.0
  rotate limb elf,elbow_r,r_elbow,0.0,0.0
  l_hip=l_hip+l_hipdir
  if (l_hip<=-45.0 or l_hip>=45.0)
    l_hipdir=-l_hipdir
  endif
  l_knee=l_knee+l_kneedir
  if (l_knee<=0.0 or l_knee>=90.0)
    l_kneedir=-l_kneedir
  endif
  r_hip=r_hip+r_hipdir
  if (r_hip<=-45.0 or r_hip>=45.0)
    r_hipdir=-r_hipdir
  endif
  r_knee=r_knee+r_kneedir
  if (r_knee<=0.0 or r_knee>=90.0)
    r_kneedir=-r_kneedir
  endif
  if not endgame
    l_shoulder=l_shoulder+l_shoulderdir
    if (l_shoulder<=-45.0 or l_shoulder>=45.0)
      l_shoulderdir=-l_shoulderdir
    endif
    l_elbow=l_elbow-l_elbowdir
    if (l_elbow<=-90.0 or l_elbow>=0.0)
      l_elbowdir=-l_elbowdir
    endif
    r_shoulder=r_shoulder+r_shoulderdir
    if (r_shoulder<=-45.0 or r_shoulder>=45.0)
      r_shoulderdir=-r_shoulderdir
    endif
    r_elbow=r_elbow-r_elbowdir
    if (r_elbow<=-90.0 or r_elbow>=0.0)
      r_elbowdir=-r_elbowdir
    endif
  endif
  if endgame=2
    if limb angle x(elf,head_c)<215
      rotate limb elf,head_c,limb angle x(elf,head_c)+1,0,0
    endif
    if l_shoulder<0 then l_shoulder=l_shoulder+1
    if r_shoulder<0 then r_shoulder=r_shoulder+1
    if l_elbow<0 then l_elbow=l_elbow+0.3
    if r_elbow<0 then r_elbow=r_elbow+0.3
  endif
endfunction

function make_pretty()
  rem Columns and header
  make object cylinder temp,10
  scale object temp,50,400,50
  make mesh from object 1,temp
  delete object temp
  create bitmap 1,256,256
  ink rgb(255,255,255),0
  box 0,0,256,256
  ink 0,0
  for i=0 to 250 step 10
    line i,0,i,256
  next i
  get image column,0,0,255,255
  delete bitmap 1
  make object columns(1),1,column
  add limb columns(1),1,1
  texture limb columns(1),1,column
  offset limb columns(1),1,25,0,0
  delete mesh 1
  make object box temp,35,5,5
  make mesh from object 1,temp
  delete object temp
  add limb columns(1),2,1
  offset limb columns(1),2,12.5,20,0
  delete mesh 1
  instance object columns(2),columns(1)
  instance object columns(3),columns(1)
  instance object columns(4),columns(1)
  rem Work Sign
  create bitmap 1,180,40
  ink rgb(255,128,128),0
  box 0,0,180,40
  ink rgb(0,255,0),0
  set text font "arial"
  set text to bold
  set text size 18
  text 5,5,"North Pole Enterprises"
  set text size 12
  set text to normal
  text 25,25,"Authorized Elves Only"
  get image Iworksign,0,0,179,39,3
  delete bitmap 1
  make object box worksign,90,20,1
  texture object worksign,Iworksign
  yrotate object worksign,180
  make object box temp,92,1,1
  make mesh from object 1,temp
  delete object temp
  add limb worksign,1,1
  add limb worksign,2,1
  delete mesh 1
  make object box temp,1,20,1
  make mesh from object 1,temp
  delete object temp
  add limb worksign,3,1
  add limb worksign,4,1
  delete mesh 1
  offset limb worksign,1,0,-10,0.5
  offset limb worksign,2,0,10,0.5
  offset limb worksign,3,-45.5,0,0.5
  offset limb worksign,4,45.5,0,0.5
  rem Sfaety Sign
  create bitmap 1,80,40
  ink rgb(255,255,255),0
  box 0,0,80,40
  ink 0,0
  set text size 12
  center text 40,1,"No lost-time"
  center text 40,11,"accident days"
  set text font "courier"
  center text 40,25,"364"
  ink rgb(255,0,0),0
  line 0,0,78,0
  line 0,0,0,38
  line 78,0,78,38
  line 0,38,78,38
  get image Isafetysign,0,0,79,39,3
  make object box safetysign,40,20,1
  texture object safetysign,Isafetysign
  yrotate object safetysign,270
endfunction

function make_scoreboard()
  make object plain scoreboard,50,40
  make object box scoreboard_frame,52,2,2
  make mesh from object 1,scoreboard_frame
  add limb scoreboard_frame,1,1
  delete mesh 1
  make object box temp,2,40,2
  make mesh from object 1,temp
  delete object temp
  add limb scoreboard_frame,2,1
  add limb scoreboard_frame,3,1
  delete mesh 1
  offset limb scoreboard_frame,1,0,-40,0
  offset limb scoreboard_frame,2,-25,-20,-0.5
  offset limb scoreboard_frame,3,25,-20,-0.5
  color object scoreboard_frame,rgb(255,0,0)
  yrotate object scoreboard,270
  yrotate object scoreboard_frame,270
  create bitmap I_scoring,100,80
  update_scoreboard()
endfunction

function update_scoreboard()
  set current bitmap I_scoring
  ink rgb(0,255,0),0
  box 0,0,99,79
  ink rgb(255,0,0),0
  set text font "Arial"
  set text size 16
  set cursor 5,10
  text 25,5,"Presents"
  text 20,20,"Processed"
  set text font "Courier"
  set text size 32
  set cursor 30,35
  score$=right$("   "+str$(score),3)
  print score$
  get image I_scoring,0,0,99,79,1
  set current bitmap 0
  texture object scoreboard,I_scoring
  if (score>0)
    belt_z=belt_z_start+int(score/4)*0.02
    level=int(score/8)+1
  endif
endfunction

function elf_mad()
  texture limb elf,head_c,mad
  r_shoulderdir=5
  r_elbowdir=5
  l_shoulderdir=5
  l_elbowdir=5
  move=0
  if l_shoulder>-135
    l_shoulder=l_shoulder-l_shoulderdir
    move=1
  endif
  if l_elbow>-45
    l_elbow=l_elbow-l_elbowdir
    move=1
  endif
  if r_shoulder>-135
    r_shoulder=r_shoulder-r_shoulderdir
    nove=1
  endif
  if r_elbow>-45
    r_elbow=r_elbow-r_elbowdir
    move=1
  endif
  rotate limb elf,shoulder_l,l_shoulder,0.0,0.0
  rotate limb elf,elbow_l,l_elbow,0.0,0.0
  rotate limb elf,shoulder_r,r_shoulder,0.0,0.0
  rotate limb elf,elbow_r,r_elbow,0.0,0.0
  if limb angle x(elf,head_c)>135
    rotate limb elf,head_c,limb angle x(elf,head_c)-1,0,0
    move=1
  endif
  if not move then end_game()
endfunction

function end_game()
  endgame=2
  elf_active=1
  elf_start_walking()
  move_ver=-1
  texture limb f1sign,0,Iendgame
  show_instructions(1)
  end
endfunction

function make_instructions()
  ropemesh=1
  topedgemesh=2
  sideedgemesh=3
  cornermesh=4
  xmap=700
  ymap=100
  create bitmap 1,xmap,ymap
  ink rgb(0,192,0),0
  box 0,0,xmap,ymap
  ink 0,0
  set text font "arial"
  set text size 20
  set cursor 0,0
  print "  [ F1 ] - Help"
  print "  Use arrow keys to move the elf to each conveyor."
  print "  Press and hold SPACEBAR to pick up a present box. Turn around and release SPACEBAR"
  print "  to drop the present box in the chute. Don't let any presents fall on the floor"
  print "  Press ";
  set text to bold
  print "ENTER";
  set text to normal
  print " to continue..."
  get image instruct,0,0,xmap,ymap,3
  ink rgb(0,192,0),0
  box 0,0,xmap,ymap
  ink 0,0
  set text font "arial"
  set text size 100
  set cursor 80,0
  print "GAME OVER"
  get image Iendgame,0,0,xmap,ymap,3
  delete bitmap 1
  make object box f1sign,80,15,2
  offset limb f1sign,0,0,-100,0
  make object cylinder temp,100
  scale object temp,0.5,100,0.5
  make mesh from object ropemesh,temp
  delete object temp
  add limb f1sign,1,ropemesh
  add limb f1sign,2,ropemesh
  delete mesh ropemesh
  offset limb f1sign,1,-37,-50,0
  offset limb f1sign,2,37,-50,0
  make object cylinder temp,100
  scale object temp,2,80,2
  zrotate object temp,90
  make mesh from object topedgemesh,temp
  delete object temp
  make object cylinder temp,100
  scale object temp,2,15,2
  make mesh from object sideedgemesh,temp
  delete object temp
  make object sphere temp,2
  make mesh from object cornermesh,temp
  delete object temp
  add limb f1sign,3,topedgemesh
  add limb f1sign,4,topedgemesh
  add limb f1sign,5,sideedgemesh
  add limb f1sign,6,sideedgemesh
  add limb f1sign,7,cornermesh
  add limb f1sign,8,cornermesh
  add limb f1sign,9,cornermesh
  add limb f1sign,10,cornermesh
  delete mesh topedgemesh
  delete mesh sideedgemesh
  delete mesh cornermesh
  offset limb f1sign,3,0,-92.5,0
  offset limb f1sign,4,0,-107.5,0
  offset limb f1sign,5,-40,-100,0
  offset limb f1sign,6,40,-100,0
  offset limb f1sign,7,-40,-92.5,0
  offset limb f1sign,8,40,-92.5,0
  offset limb f1sign,9,-40,-107.5,0
  offset limb f1sign,10,40,-107.5,0
  texture limb f1sign,0,instruct
  texture limb f1sign,3,suit
  texture limb f1sign,4,suit
  texture limb f1sign,5,suit
  texture limb f1sign,6,suit
  texture limb f1sign,7,suit
  texture limb f1sign,8,suit
  texture limb f1sign,9,suit
  texture limb f1sign,10,suit
  yrotate object f1sign,270
  fix object pivot f1sign
endfunction

function show_instructions(option)
  show object f1sign
  zrotate object f1sign,5
  y_step#=3.0
  position object f1sign,centre_x-20,200,centre_z+10
  while object position y(f1sign)>130
    position object f1sign,centre_x-20,object position y(f1sign)-y_step#,centre_z+10
  endwhile
  gravity#=0.01
  swing#=0.0
  while not returnkey()
    zrotate object f1sign,object angle z(f1sign)-swing#
    swing#=swing#+gravity#
    if object angle z(f1sign)<0 and gravity#>0 then gravity#=-gravity#*0.9:swing#=swing#*0.8
    if object angle z(f1sign)>0 and gravity#<0 then gravity#=-gravity#*0.9:swing#=swing#*0.8
    if option then move_elf()
  endwhile
  while object position y(f1sign)<200
    position object f1sign,centre_x-20,object position y(f1sign)+y_step#,centre_z+10
  endwhile
  hide object f1sign
endfunction

`******************************************************
`
`                 SNOWBALL!
`
`******************************************************
` just change the below string if it isnt correct for your file placement
`the program will then use the below string to load the "present"
`enjoy :]

gift$="gift01.x"

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


shadow#=0
snow#=1
tree#=1
music#=1

disable escapekey

rem Just setting stuff up
sync on:sync rate 0

set image colorkey 0,0,0


      set display mode 1024,768,32,0

rem MENUS!
main_menu:
cls

color backdrop rgb(0,0,0)

`position camera -10000,0,0
make object sphere 3000,100,32,32
`position camera -10000,0,100
set object wireframe 3000,1

for obj=1 to 2999
if object exist(obj)=1 then delete object obj
next obj
for obj=1 to 30
if image exist(obj)=1 then delete image obj
next obj
for obj=1 to 30
if sound exist(obj)=1 then delete sound obj
next obj
if matrix exist(1) then delete matrix 1

all_loaded#=0

do

if escapekey()=1 then end

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENETER TO START"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENETER TO START"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "SNOWBALL"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "SNOWBALL"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "SNOWBALL"

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

if returnkey()=1
delete object 3000
level#=1
goto level_1
endif

sync
loop

game_over2:
sync

for a=1 to 1502
if object exist(a) then delete object a
next a
for a=1 to 30
if sound exist(a) then delete sound a
next a
for a=1 to 10
if image exist(a) then delete image a
next a
if matrix exist(1) then delete matrix 1

make object sphere 3000,100,32,32
set object wireframe 3000,1



do

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENTER TO RETURN TO MAIN MENU"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENTER TO RETURN TO MAIN MENU"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "YOU MELTED    D:"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "YOU MELTED    D:"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "YOU MELTED    D:"

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

if returnkey()=1
delete object 3000
wait 100
goto main_menu
endif

sync
loop

game_over:
sync

for a=1 to 1502
if object exist(a) then delete object a
next a
for a=1 to 30
if sound exist(a) then delete sound a
next a
for a=1 to 10
if image exist(a) then delete image a
next a
if matrix exist(1) then delete matrix 1

all_loaded#=0

make object sphere 3000,100,32,32
set object wireframe 3000,1



do

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENTER TO RETURN TO MAIN MENU"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENTER TO RETURN TO MAIN MENU"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "OUT OF TIME!    D:"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "OUT OF TIME!    D:"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "OUT OF TIME!    D:"

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

snowscale#=snowscale#+1
scale object 3000,100-snowscale#,100-snowscale#,100-snowscale#
if snowscale#=99
scale object 3000,10000,10000,10000
snowscale#=0
endif

if returnkey()=1
delete object 3000
wait 100
goto main_menu
endif

sync
loop


finish:
sync

for a=1 to 1502
if object exist(a) then delete object a
next a
for a=1 to 30
if sound exist(a) then delete sound a
next a
for a=1 to 10
if image exist(a) then delete image a
next a
if matrix exist(1) then delete matrix 1

make object sphere 3000,100,32,32
set object wireframe 3000,1



do

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENTER TO RETURN TO MAIN MENU"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENTER TO RETURN TO MAIN MENU"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "YOU WIN!  =D"+"     Score - "+str$(score2#)
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "YOU WIN!  =D"+"     Score - "+str$(score2#)
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "YOU WIN!  =D"+"     Score - "+str$(score2#)

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

if returnkey()=1
delete object 3000
wait 100
goto main_menu
endif

sync
loop


pause:
do

ink rgb(200,200,255),0
for a=0 to screen height() step 5
line 0,a,screen width(),a
next a

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "[C]ontinue"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "[C]ontinue"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "[C]ontinue"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,471:print "[Q]uit"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,469:print "[Q]uit"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,470:print "[Q]uit"

if lower$(inkey$())="q" then goto main_menu
if lower$(inkey$())="c" then return

sync
loop

` start game settings

level_1:


if all_loaded#=1
make matrix 1,16000.0,2000.0,80,5
prepare matrix texture 1,10,1,1
for obj=1 to 2999
if object exist(obj)=1 then show object obj
next obj
endif

if all_loaded#=1 then goto skip_loading


hide mouse
randomize 100

`fog on
`fog color 255,255,255
`fog color 255,255,255
`fog distance 7500




rem make images ****************************

`flameglow
create bitmap 1,200,200

ink rgb(100,50,50),rgb(0,0,0)
for r=1 to 100
circle 100,100,r
next r
ink rgb(255,100,100),rgb(0,0,0)
for r=1 to 80
circle 100,100,r
next r
ink rgb(255,170,100),rgb(0,0,0)
for r=1 to 50
circle 100,100,r
next r
ink rgb(255,230,100),rgb(0,0,0)
for r=1 to 25
circle 100,100,r
next r

get image 3,0,0,200,200,1
delete bitmap 1

`fire fur
create bitmap 1,52,52

ink rgb(255,150,50),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a
ink rgb(255,50,50),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a

get image 4,0,0,52,52,0
delete bitmap 1

`snow
create bitmap 1,56,56

ink rgb(230,240,250),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a
ink rgb(200,200,250),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a

get image 5,0,0,56,56,0
delete bitmap 1

`green cartoon
create bitmap 1,5,1

ink rgb(230,250,230),rgb(0,0,0)

dot rnd(0),rnd(0)
dot rnd(0),rnd(1)

dot rnd(1),rnd(0)
dot rnd(1),rnd(1)

ink rgb(120,250,120),rgb(0,0,0)

dot rnd(2),rnd(0)
dot rnd(2),rnd(1)

dot rnd(3),rnd(0)
dot rnd(3),rnd(1)

ink rgb(60,250,60),rgb(0,0,0)

dot rnd(4),rnd(0)
dot rnd(4),rnd(1)

dot rnd(5),rnd(0)
dot rnd(5),rnd(1)


get image 6,0,0,5,1,0
delete bitmap 1


`green cartoon
create bitmap 1,5,1

ink rgb(250,220,200),rgb(0,0,0)

dot rnd(0),rnd(0)
dot rnd(0),rnd(1)

dot rnd(1),rnd(0)
dot rnd(1),rnd(1)

ink rgb(250,220,120),rgb(0,0,0)

dot rnd(2),rnd(0)
dot rnd(2),rnd(1)

dot rnd(3),rnd(0)
dot rnd(3),rnd(1)

ink rgb(250,220,60),rgb(0,0,0)

dot rnd(4),rnd(0)
dot rnd(4),rnd(1)

dot rnd(5),rnd(0)
dot rnd(5),rnd(1)


get image 7,0,0,5,1,0

delete bitmap 1

create bitmap 1,1,1

ink rgb(190,230,250),rgb(0,0,0)

dot 0,0
dot 0,1
dot 1,0
dot 1,1

get image 8,0,0,1,1,0
delete bitmap 1


create bitmap 1,512,512

for a=1 to 500
dim#=rnd(20)
ink rgb(250-dim#,250-dim#,250-dim#),rgb(0,0,0)
dot rnd(512),rnd(512)
next a

get image 9,0,0,512,512,0
delete bitmap 1



create bitmap 1,100,100
for a=0 to 100
for b=0 to 100
dot a,b,rgb(230-rnd(20),230-rnd(10),(240+rnd(5)))
next b
next a

for a=0 to 100
dot a,0,rgb(0,0,0)
dot a,1,rgb(0,0,0)
next a

ink rgb(100,200,150),rgb(0,0,0)
for a=1 to 200
dot rnd(100),(rnd(98)+2)
next a

get image 10,0,0,100,100,0


rem ****************************************



color backdrop rgb(0,0,0)

make matrix 1,16000.0,2000.0,80,5

rem Snow image
create bitmap 1,100,100
for a=0 to 100
for b=0 to 100
dot a,b,rgb(230-rnd(20),230-rnd(10),(240+rnd(5)))
next b
next a

ink rgb(100,200,150),rgb(0,0,0)
for a=1 to 200
dot rnd(100),rnd(100)
next a

get image 1,0,0,100,100,0

delete bitmap 1
prepare matrix texture 1,10,1,1


`set camera to see the stars
set camera range 1,10000


rem Create Snowball ****

size#=30
make object sphere 1,100.0,32,32
set object normals 1
set object smoothing 1,100
  texture object 1,0,1
  scale object texture 1,3,3
  set object 1,1,0,1,1

      for obj=5 to 10
      siz=siz+5
      make object sphere obj,100+(siz)
      if obj<>10
set object light obj,0
  texture object obj,0,5
  set object transparency obj,1
  endif
  hide object obj
  next obj

  set object light 10,0

make object sphere 2,104,32,32
ghost object on 2
fade object 2,60

make object sphere 3,101,32,32
texture object 3,1
ghost object on 3



rem enemies ****

make object sphere 100,100
position object 100,4500,1061,1000

make object sphere 102,105
position object 102,4500,1061,1000

make object sphere 104,110
position object 104,4500,1061,1000

make object sphere 106,115
position object 106,4500,1061,1000

make object sphere 108,97
color object 108,0
position object 108,4500,1061,1000

make object sphere 101,100
position object 101,6000,88,1000

make object sphere 103,105
position object 103,6000,88,1000

make object sphere 105,110
position object 105,6000,88,1000

make object sphere 107,115
position object 107,6000,88,1000

make object sphere 109,97
color object 109,0
position object 109,6000,88,1000

for a=100 to 107
set object light a,0
set object transparency a,1
texture object a,4
next a

make object sphere 110,100
position object 110,12100,1061,1000

make object sphere 112,105
position object 112,4500,1061,1000

make object sphere 114,110
position object 114,4500,1061,1000

make object sphere 116,115
position object 116,4500,1061,1000

make object sphere 118,97
color object 118,0
position object 108,4500,1061,1000

make object sphere 111,100
position object 111,14700,88,1000

make object sphere 113,105
position object 113,6000,88,1000

make object sphere 115,110
position object 115,6000,88,1000

make object sphere 117,115
position object 117,6000,88,1000

make object sphere 119,97
color object 119,0
position object 119,6000,88,1000

for a=110 to 117
set object light a,0
set object transparency a,1
texture object a,4
next a

make object cube 120,100
position object 120,9400,-25,1000
set object light 120,0
texture object 120,4

rem PRESENTS!

load object gift$,200
scale object 200,60,60,60
position object 200,2585,361,1000

clone object 201,200
position object 201,4700,1361,1000

clone object 202,200
position object 202,6800,361,1000

clone object 203,200
position object 203,7700,561,1000

clone object 204,200
position object 204,9300,761,1000

clone object 205,200
position object 205,10850,361,1000

clone object 206,200
position object 206,12650,361,1000

clone object 207,200
position object 207,15290,161,1000

clone object 208,200
position object 208,585,400,1000

clone object 209,200
position object 209,3285,1000,1000

if shadow#=1
for a=200 to 207
set shadow shading on a
next a
endif

`snowman head
make object sphere 300,120
position object 300,15780,173,1000
texture object 300,0,1
scale object texture 300,10,10
make object sphere 301,124
position object 301,15780,173,1000
ghost object on 301

make object sphere 302,100
scale object 302,10,15,10
position object 302,15760,213,940
color object 302,0
make object sphere 303,100
scale object 303,10,15,10
position object 303,15800,213,940
color object 303,0

`ice
make object plain 400,1500,1600
position object 400,12588,260,400
ghost object on 400
xrotate object 400,90

if tree#=1

`tree
make object cone 401,100
scale object 401,200,200,200
position object 401,2250,368,500
texture object 401,6
`set cartoon shading on 401,6,1

make object cone 402,100
scale object 402,300,300,300
position object 402,2250,268,500
texture object 402,6
`set cartoon shading on 402,6,1

make object cylinder 403,100
scale object 403,100,300,100
position object 403,2250,168,500
texture object 403,7
`set cartoon shading on 403,7,1

`
make object cone 404,100
scale object 404,200,200,200
position object 404,2050,368,1500
texture object 404,6
`set cartoon shading on 404,6,1

make object cone 405,100
scale object 405,300,300,300
position object 405,2050,268,1500
texture object 405,6
`set cartoon shading on 405,6,1

make object cylinder 406,100
scale object 406,100,300,100
position object 406,2050,168,1500
texture object 406,7
`set cartoon shading on 406,7,1

randomize 1

for a=407 to 587 step 3

tree_x#=rnd(16000)
tree_z#=1300+rnd(1200)
tree_y#=rnd(20)

make object cone a,100
scale object a,200,200,200
position object a,tree_x#,368-tree_y#,tree_z#
texture object a,6
set object cull a,1
`set cartoon shading on a,6,1
`set shadow shading on a

make object cone a+1,100
scale object a+1,300,300,300
position object a+1,tree_x#,268-tree_y#,tree_z#
texture object a+1,6
set object cull a+1,1
`set cartoon shading on a+1,6,1
`set shadow shading on a+1

make object cylinder a+2,100
scale object a+2,100,300,100
position object a+2,tree_x#,168-tree_y#,tree_z#
texture object a+2,7
set object cull a+2,1
`set cartoon shading on a+2,7,1
`set shadow shading on a+2

next a

endif

`snow balls
if snow#=1

for b=700 to 1000

tree_x#=rnd(16000)
tree_z#=1000+rnd(2000)
tree_y#=rnd(20)

make object sphere b,100
set object cull 100,1
set object ambience b,rgb(255,255,255)
texture object b,1
scale object texture b,5,5
scale object b,500,(get ground height(1,tree_z#,tree_y#)+100+(2*tree_y#)),500
position object b,tree_x#,-tree_y#,tree_z#

next b


make object plain 1501,16000,3000
position object 1501,8000,10,1500
set object light 1501,0
texture object 1501,8
scale object texture 1501,16,3
ghost object on 1501
xrotate object 1501,90

endif

make object plain 1502,10000,6000
position object 1502,x#,300,3000
set object light 1502,0
texture object 1502,9
scale object texture 1502,9,6
`ghost object on 1502

rem SOUNDS and MUSIC
createsound("music1",1,100,50)
createsound("music2",2,100,60)
createsound("music3",3,100,40)
createsound("music4",4,100,80)
createsound("music5",5,200,100)
createsound("music6",6,200,80)
createsound("music7",7,200,70)

createsound("collect",10,100,180)
createsound("hurt",20,100,10)
createsound("finish",30,200,100)

`helps skip loading time if player > level 1
all_loaded#=1
skip_loading:

if level#=1 then gosub matrix_1_data

rem Set variables for character position
x#=1800
z#=1000
jump#=0
bonus#=1000



rem Activate manual sync
sync on

rem Begin loop
do

if bonus#<1 then goto game_over

if escapekey()=1 then gosub pause

`remstart
if music#=1

if m#=1
play sound 1
endif
if m#=3
stop sound 1
endif
if m#=3
play sound 2
endif
if m#=5
stop sound 2
endif
if m#=5
play sound 3
endif
if m#=7
stop sound 3
endif
if m#=7
play sound 4
endif
if m#=8
stop sound 4
m#=0
fourbeat#=fourbeat#+1
endif

if fourbeat#=4
play sound 5
playagain_1#=0
fourbeat#=0
endif

if fourbeat#=1
if playagain_1#=0
play sound 6
endif
playagain_1#=1
endif

m#=m#+1

endif

`remend

`if snow#=1
`for a=700 to 1500
`if object visible(a)=0 then hide object a
`next a
`endif

`if tree#=1
`for a=407 to 587
`if object visible(a)=0 then hide object a
`next a
`endif

`set cursor 10,30
`print "X "+str$(object position x(1))
`set cursor 10,50
`print "Y "+str$(object position y(1))

if grow#>3
size#=size#+1
score2#=score2#+1
grow#=0
endif
scale object 1,size#,size#,size#
scale object 2,size#+2,size#+2,size#+2
scale object 3,size#+1,size#+1,size#+1

scale object 5,size#+5,size#+5,size#+5
scale object 6,size#+10,size#+10,size#+10
scale object 7,size#+15,size#+15,size#+15
scale object 8,size#+20,size#+20,size#+20
scale object 9,size#+25,size#+25,size#+25
scale object 10,size#-5,size#-5,size#-5



rem Grow
if x#<>oldx#
grow#=grow#+1
rem increase music with time
if bonus#>499
endif
if bonus#<500
endif
endif


rem record old position
oldy#=y#
oldx#=x#

rem Control camera with arrow keys
if leftkey()=1 and acc#>-30 then acc#=acc#-2.5
if rightkey()=1 and acc#<30 then acc#=acc#+2.5
if leftkey()=0 and acc#<0 then acc#=acc#+0.5
if rightkey()=0 and acc#>0 then acc#=acc#-0.5

if fx#>0 then roll object left 1,-acc#+(fx#/30)
if fx#=0 then roll object left 1,-acc#
if fx#<0 then roll object left 1,-acc#+(fx#/30)

for a=5 to 10
if fx#>0 then roll object left a,-acc#+(fx#/30)
if fx#=0 then roll object left a,-acc#
if fx#<0 then roll object left a,-acc#+(fx#/30)
next a

` Update position
x#=x#+acc#

rem When not jumping...
if jump#=0
rem ...Roll Down Hills
fx#=0 : fz#=0
for r=0 to 35
  ex#=newxvalue(x#,r*10,15)
  ez#=newzvalue(z#,r*10,15)
  eh#= get ground height(1,ex#+mx#,ez#+mz#+plane#)
  if eh#<-500.0 then eh#=-500.0
  force#=(eh#+50.0)/15.0
  fx#=fx#+((ex#-x#)*force#)
  fz#=fz#+((ez#-z#)*force#)
next r
x#=x#-(fx#/35.0)

endif

rem ENEMY 1 AI and collision
if enemy_1_move#=0 then position object 100,object position x(100)+3,object position y(100),object position z(100)
if object position x(100)>4900 then enemy_1_move#=1
if enemy_1_move#=1 then position object 100,object position x(100)-3,object position y(100),object position z(100)
if object position x(100)<4500 then enemy_1_move#=0
position object 102,object position x(100),object position y(100),object position z(100)
position object 104,object position x(100),object position y(100),object position z(100)
position object 106,object position x(100),object position y(100),object position z(100)
position object 108,object position x(100),object position y(100),object position z(100)

for a=100 to 106 step 2
turn object left a,4
next a

if object collision(100,1)
`set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 2 AI and collision
if enemy_2_move#=0 then position object 101,object position x(101)+3,get ground height(1,object position x(101),object position z(101))+50,object position z(101)
if object position x(101)>6900 then enemy_2_move#=1
if enemy_2_move#=1 then position object 101,object position x(101)-3,get ground height(1,object position x(101),object position z(101))+50,object position z(101)
if object position x(101)<6000 then enemy_2_move#=0
position object 103,object position x(101),object position y(101),object position z(101)
position object 105,object position x(101),object position y(101),object position z(101)
position object 107,object position x(101),object position y(101),object position z(101)
position object 109,object position x(101),object position y(101),object position z(101)

for a=101 to 107 step 2
turn object left a,4
next a

if object collision(101,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 10 AI and collision
if object position x(1)>(object position x(110)-900) and object position x(1)<(object position x(110)) then position object 110,object position x(110)-6,get ground height(1,object position x(110),object position z(110))+50,object position z(110)
if object position x(1)<(object position x(110)+900) and object position x(1)>(object position x(110)) then position object 110,object position x(110)+6,get ground height(1,object position x(110),object position z(110))+50,object position z(110)
position object 112,object position x(110),object position y(110),object position z(110)
position object 114,object position x(110),object position y(110),object position z(110)
position object 116,object position x(110),object position y(110),object position z(110)
position object 118,object position x(110),object position y(110),object position z(110)
for a=110 to 116 step 2
turn object left a,4
next a

if object collision(110,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 11 AI and collision
if object position x(1)>(object position x(111)-900) and object position x(1)<(object position x(111)) then position object 111,object position x(111)-6,get ground height(1,object position x(111),object position z(111))+50,object position z(111)
if object position x(1)<(object position x(111)+900) and object position x(1)>(object position x(111)) then position object 111,object position x(111)+6,get ground height(1,object position x(111),object position z(111))+50,object position z(111)
position object 113,object position x(111),object position y(111),object position z(111)
position object 115,object position x(111),object position y(111),object position z(111)
position object 117,object position x(111),object position y(111),object position z(111)
position object 119,object position x(111),object position y(111),object position z(111)
for a=111 to 117 step 2
turn object left a,4
next a

if object collision(111,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 10 AI and collision

if enemy_20_move#=0
enemy_20_scale#=enemy_20_scale#+20
scale object 120,100,enemy_20_scale#,100
if enemy_20_scale#>1000 then enemy_20_move#=1
endif

if enemy_20_move#=1
enemy_20_scale#=enemy_20_scale#-20
scale object 120,100,enemy_20_scale#,100
if enemy_20_scale#<1 then enemy_20_move#=0
endif

if object collision(120,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem CHECK IF CHARACTER IS DEAD
if size#<0 then goto game_over

rem Update character
if jump#=0 then y#=get ground height(1,x#,z#+plane#)+10.0
position object 1,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 2,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 3,x#,y#+(jumph#-fallh#)+(size#/2),z#

position object 5,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 6,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 7,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 8,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 9,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 10,x#,y#+(jumph#-fallh#)+(size#/2),z#

if fx#<>0 and oldy#>y# and oldx#<x# and acc#<15 then acc#=acc#+1
if fx#<>0 and oldy#>y# and oldx#>x# and acc#>-15 then acc#=acc#-1

rem Jump
if spacekey()=1 and jump#=0 and spacekeyoff#=0 then jump#=1:jumping#=1:jumpspeed#=60:spacekeyoff#=1

if jump#=1
jumpY#=object position y(1)
matY#=get ground height(1,x#,z#+plane#)+(size#/2)
if jumpY#<matY# then jump#=0:jumping#=0:falling#=0:jumph#=0:jumpspeed#=0

if jumping#=1
jumpspeed#=jumpspeed#-4
jumph#=jumph#+jumpspeed#
endif

if jumpspeed#<1 and jumping#=1 then jumpspeed#=0:jumping#=0:falling#=1

if falling#=1
jumpspeed#=jumpspeed#+4
jumph#=jumph#-jumpspeed#
endif

endif

if spacekey()=0 and spacekeyoff#=1 then spacekeyoff#=0



rem Position camera
cx#=newxvalue(x#,wrapvalue(a#+180),500)
cz#=newzvalue(z#,wrapvalue(a#+180),500)
cy#=get ground height(1,x#,z#+plane#)+200

if cy#<0 then cy#=0
`position camera cx#,cy#+200,cz#-1000
position camera cx#,object position y(1)+400,cz#-250



rem scroll reflection
scroll object texture 3,((x#/oldx#)*5),(1/(jumpspeed#/10000))


rem PRESENTS!
for a= 200 to 209
turn object left a,2
pitch object up a,2
if object collision(a,1) and object visible(a)
play sound 10
hide object a
score#=score#+1
endif
next a

rem move stars
position object 1502,x#,300,5000
point object 1502,camera position x(),camera position y(),camera position z()

rem end of level (Countdown so that it isnt too instantanious)
if countdown#=0
if object collision(300,1) and score#=10
counting#=1
countdown#=3
endif
endif

for a = 300 to 303
position object a,object position x(a),y#+(size#)+(60),1000
if a=302
position object a,object position x(a),y#+(size#)+(60)+40,940
endif
if a=303
position object a,object position x(a),y#+(size#)+(60)+40,940
endif
next a

if countdown#>0 then countdown#=countdown#-1
if countdown#=0 and counting#=1 then goto next_level_1


rem Point camera at object
point camera x#,object position y(1)+100,z#
position light 0,8000,15000,1000

`set cursor 10,10:print str$(screen FPS())
ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,61:print "PRESENTS:  "+str$(score#)+" / 10"
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,60:print "PRESENTS:  "+str$(score#)+" / 10"

ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,81:print "TIME:  "+str$(bonus#)
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,80:print "TIME:  "+str$(bonus#)

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 301,111:print "SCORE:  "+str$(score2#)
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 300,110:print "SCORE:  "+str$(score2#)

bonus#=bonus#-1
if bonus#<0 then bonus#=0

rem Syncronise
sync

rem End loop
loop



rem Next Level
next_level_1:
wait 100
cls
play sound 30
do

rem Decrease Bonus and Increase Points
ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,61:print "PRESENTS:  "+str$(score#)+" / 10"
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,60:print "PRESENTS:  "+str$(score#)+" / 10"

ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,81:print "TIME:  "+str$(bonus#)
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,80:print "TIME:  "+str$(bonus#)

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 301,111:print "SCORE:  "+str$(score2#)
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 300,110:print "SCORE:  "+str$(score2#)

rem When finished goto next level
bonus#=bonus#-30
score2#=score2#+30
if bonus#<0
bonus#=0
bonus#=2000
score#=0
countdown#=0
counting#=0
for a= 200 to 209
show object a
next a
size#=30
goto finish
endif

fastsync
loop









function createsound(name$,soundnumber,length#,pitch#)

    if file exist(name$+".wav")=1 then delete file name$+".wav"
    open to write 1,name$+".wav"
    chunk=int(((length#/1000)*44100*16)/8) `sample size (no of samples * bitrate * channels / 8)
    samples=int((length#/1000)*44100) `length *44100
    restore
    for x=1 to 40
       read byte2
       write byte 1, byte2
    next x
    write long 1,chunk
    rem generate and write wave
    thing# = 0
    for x=1 to samples
      inc thing#,pitch#*1
      if thing#>10000 then thing#=0
      output#=thing#
      write word 1,output#
    next x
    close file 1

    load sound name$+".wav",soundnumber

    data 82:data 73:data 70:data 70:data 208:data 59:data 1:data 0:data 87
    data 65:data 86:data 69:data 102:data 109:data 116:data 32:data 16
    data 0:data 0:data 0:data 1:data 0:data 2:data 0:data 34:data 86:data 0
    data 0:data 136:data 88:data 1:data 0:data 4:data 0:data 16:data 0
    data 100:data 97:data 116:data 97

endfunction















`level 1 matrix height details

matrix_1_data:

for x=0 to 80
set matrix height 1,x,1,rnd(100)-1909
set matrix height 1,x,4,rnd(100)-5400
set matrix height 1,x,5,rnd(200)-5300
next x

for a=0 to 80
set matrix height 1,a,1,67
set matrix height 1,a,2,67
set matrix height 1,a,3,67
next a

set matrix height 1,1,1,500
set matrix height 1,1,2,500
set matrix height 1,1,3,500
set matrix height 1,2,1,500
set matrix height 1,2,2,500
set matrix height 1,2,3,500
set matrix height 1,3,1,250
set matrix height 1,3,2,250
set matrix height 1,3,3,250
set matrix height 1,4,1,125
set matrix height 1,4,2,125
set matrix height 1,4,3,125
set matrix height 1,5,1,75
set matrix height 1,5,2,75
set matrix height 1,5,3,75
set matrix height 1,6,1,67
set matrix height 1,6,2,67
set matrix height 1,6,3,67


set matrix height 1,18,1,500
set matrix height 1,18,2,500
set matrix height 1,18,3,500
set matrix height 1,17,1,250
set matrix height 1,17,2,250
set matrix height 1,17,3,250
set matrix height 1,16,1,125
set matrix height 1,16,2,125
set matrix height 1,16,3,125
set matrix height 1,15,1,75
set matrix height 1,15,2,75
set matrix height 1,15,3,75
set matrix height 1,14,1,67
set matrix height 1,14,2,67
set matrix height 1,14,3,67

set matrix height 1,19,1,750
set matrix height 1,19,2,750
set matrix height 1,19,3,750
set matrix height 1,20,1,875
set matrix height 1,20,2,875
set matrix height 1,20,3,875
set matrix height 1,21,1,950
set matrix height 1,21,2,950
set matrix height 1,21,3,950
set matrix height 1,22,1,987
set matrix height 1,22,2,987
set matrix height 1,22,3,987

set matrix height 1,23,1,987
set matrix height 1,23,2,987
set matrix height 1,23,3,987

set matrix height 1,24,1,987
set matrix height 1,24,2,987
set matrix height 1,24,3,987

set matrix height 1,28,1,750
set matrix height 1,28,2,750
set matrix height 1,28,3,750
set matrix height 1,27,1,875
set matrix height 1,27,2,875
set matrix height 1,27,3,875
set matrix height 1,26,1,950
set matrix height 1,26,2,950
set matrix height 1,26,3,950
set matrix height 1,25,1,987
set matrix height 1,25,2,987
set matrix height 1,25,3,987

set matrix height 1,29,1,500
set matrix height 1,29,2,500
set matrix height 1,29,3,500
set matrix height 1,30,1,250
set matrix height 1,30,2,250
set matrix height 1,30,3,250
set matrix height 1,31,1,125
set matrix height 1,31,2,125
set matrix height 1,31,3,125
set matrix height 1,32,1,75
set matrix height 1,32,2,75
set matrix height 1,32,3,75
set matrix height 1,33,1,77
set matrix height 1,33,2,77
set matrix height 1,33,3,77


set matrix height 1,34,1,125
set matrix height 1,34,2,125
set matrix height 1,34,3,125
set matrix height 1,35,1,75
set matrix height 1,35,2,75
set matrix height 1,35,3,75
set matrix height 1,36,1,107
set matrix height 1,36,2,107
set matrix height 1,36,3,107

set matrix height 1,37,1,300
set matrix height 1,37,2,300
set matrix height 1,37,3,300
set matrix height 1,38,1,250
set matrix height 1,38,2,250
set matrix height 1,38,3,250
set matrix height 1,39,1,125
set matrix height 1,39,2,125
set matrix height 1,39,3,125
set matrix height 1,40,1,75
set matrix height 1,40,2,75
set matrix height 1,40,3,75
set matrix height 1,41,1,67
set matrix height 1,41,2,67
set matrix height 1,41,3,67

set matrix height 1,46,1,145
set matrix height 1,46,2,145
set matrix height 1,46,3,145
set matrix height 1,45,1,75
set matrix height 1,45,2,75
set matrix height 1,45,3,75
set matrix height 1,44,1,67
set matrix height 1,44,2,67
set matrix height 1,44,3,67
set matrix height 1,48,1,145
set matrix height 1,48,2,145
set matrix height 1,48,3,145
set matrix height 1,47,1,145
set matrix height 1,47,2,145
set matrix height 1,47,3,145
set matrix height 1,49,1,75
set matrix height 1,49,2,75
set matrix height 1,49,3,75
set matrix height 1,50,1,67
set matrix height 1,50,2,67
set matrix height 1,50,3,67

set matrix height 1,55,1,125
set matrix height 1,55,2,125
set matrix height 1,55,3,125
set matrix height 1,54,1,125
set matrix height 1,54,2,125
set matrix height 1,54,3,125
set matrix height 1,53,1,75
set matrix height 1,53,2,75
set matrix height 1,53,3,75
set matrix height 1,52,1,67
set matrix height 1,52,2,67
set matrix height 1,52,3,67

set matrix height 1,59,1,375
set matrix height 1,59,2,375
set matrix height 1,59,3,375
set matrix height 1,58,1,325
set matrix height 1,58,2,325
set matrix height 1,58,3,325
set matrix height 1,57,1,275
set matrix height 1,57,2,275
set matrix height 1,57,3,275
set matrix height 1,56,1,237
set matrix height 1,56,2,237
set matrix height 1,56,3,237
`ice bridge gap
set matrix height 1,71,1,125
set matrix height 1,71,2,125
set matrix height 1,71,3,125
set matrix height 1,72,1,125
set matrix height 1,72,2,125
set matrix height 1,72,3,125
set matrix height 1,73,1,75
set matrix height 1,73,2,75
set matrix height 1,73,3,75
set matrix height 1,74,1,67
set matrix height 1,74,2,67
set matrix height 1,74,3,67

set matrix height 1,67,1,375
set matrix height 1,67,2,375
set matrix height 1,67,3,375
set matrix height 1,68,1,325
set matrix height 1,68,2,325
set matrix height 1,68,3,325
set matrix height 1,69,1,275
set matrix height 1,69,2,275
set matrix height 1,69,3,275
set matrix height 1,70,1,237
set matrix height 1,70,2,237
set matrix height 1,70,3,237

set matrix height 1,60,1,237
set matrix height 1,60,2,237
set matrix height 1,60,3,237
set matrix height 1,66,1,237
set matrix height 1,66,2,237
set matrix height 1,66,3,237


`for x=0 to 80
`set matrix height 1,x,0,rnd(100)-400
`set matrix height 1,x,1,rnd(100)-400
`set matrix height 1,x,4,rnd(200)-5300
`next x

update matrix 1

set matrix height 1,0,1,2000
set matrix height 1,0,2,2000
set matrix height 1,0,3,2000
set matrix height 1,1,1,1000
set matrix height 1,1,2,1000
set matrix height 1,1,3,1000

for a = 61 to 65
set matrix height 1,a,1,237
set matrix height 1,a,2,237
set matrix height 1,a,3,237
next a

set matrix height 1,80,1,1000
set matrix height 1,80,2,1000
set matrix height 1,80,3,1000


return

`******************************************************
`
`                 SNOWBALL!
`
`******************************************************
` just change the below string if it isnt correct for your file placement
`the program will then use the below string to load the "present"
`enjoy :]

gift$="media/gift01.x"

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


shadow#=0
snow#=1
tree#=1
music#=1

disable escapekey

rem Just setting stuff up
sync on:sync rate 0

set image colorkey 0,0,0


      set display mode 1024,768,32,0

rem MENUS!
main_menu:
score#=0
score2#=0
bonus#=0
cls

color backdrop rgb(0,0,0)

`position camera -10000,0,0
make object sphere 3000,100,32,32
`position camera -10000,0,100
set object wireframe 3000,1

for obj=1 to 2999
if object exist(obj)=1 then delete object obj
next obj
for obj=1 to 30
if image exist(obj)=1 then delete image obj
next obj
for obj=1 to 30
if sound exist(obj)=1 then delete sound obj
next obj
if matrix exist(1) then delete matrix 1

all_loaded#=0

do

if escapekey()=1 then end

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENETER TO START"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENETER TO START"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "SNOWBALL"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "SNOWBALL"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "SNOWBALL"

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

if returnkey()=1
delete object 3000
level#=1
goto level_1
endif

sync
loop

game_over2:
sync

for a=1 to 1502
if object exist(a) then delete object a
next a
for a=1 to 30
if sound exist(a) then delete sound a
next a
for a=1 to 10
if image exist(a) then delete image a
next a
if matrix exist(1) then delete matrix 1

make object sphere 3000,100,32,32
set object wireframe 3000,1



do

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENTER TO RETURN TO MAIN MENU"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENTER TO RETURN TO MAIN MENU"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "YOU MELTED    D:"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "YOU MELTED    D:"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "YOU MELTED    D:"

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

if returnkey()=1
delete object 3000
wait 100
goto main_menu
endif

sync
loop

game_over:
sync

for a=1 to 1502
if object exist(a) then delete object a
next a
for a=1 to 30
if sound exist(a) then delete sound a
next a
for a=1 to 10
if image exist(a) then delete image a
next a
if matrix exist(1) then delete matrix 1

all_loaded#=0

make object sphere 3000,100,32,32
set object wireframe 3000,1



do

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENTER TO RETURN TO MAIN MENU"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENTER TO RETURN TO MAIN MENU"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "OUT OF TIME!    D:"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "OUT OF TIME!    D:"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "OUT OF TIME!    D:"

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

snowscale#=snowscale#+1
scale object 3000,100-snowscale#,100-snowscale#,100-snowscale#
if snowscale#=99
scale object 3000,10000,10000,10000
snowscale#=0
endif

if returnkey()=1
delete object 3000
wait 100
goto main_menu
endif

sync
loop


finish:
sync

for a=1 to 1502
if object exist(a) then delete object a
next a
for a=1 to 30
if sound exist(a) then delete sound a
next a
for a=1 to 10
if image exist(a) then delete image a
next a
if matrix exist(1) then delete matrix 1

make object sphere 3000,100,32,32
set object wireframe 3000,1



do

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,611:print "PRESS ENTER TO RETURN TO MAIN MENU"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,610:print "PRESS ENTER TO RETURN TO MAIN MENU"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "YOU WIN!  =D"+"     Score - "+str$(score2#)
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "YOU WIN!  =D"+"     Score - "+str$(score2#)
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "YOU WIN!  =D"+"     Score - "+str$(score2#)

turn object left 3000,1
pitch object down 3000,1
roll object right 3000,1

if returnkey()=1
delete object 3000
wait 100
goto main_menu
endif

sync
loop


pause:
do

ink rgb(200,200,255),0
for a=0 to screen height() step 5
line 0,a,screen width(),a
next a

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,411:print "[C]ontinue"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,409:print "[C]ontinue"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,410:print "[C]ontinue"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 301,471:print "[Q]uit"
ink rgb(200,200,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 299,469:print "[Q]uit"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 40
set cursor 300,470:print "[Q]uit"

if lower$(inkey$())="q" then goto main_menu
if lower$(inkey$())="c" then return

sync
loop

` start game settings

level_1:


if all_loaded#=1
make matrix 1,16000.0,2000.0,80,5
prepare matrix texture 1,10,1,1
for obj=1 to 2999
if object exist(obj)=1 then show object obj
next obj
endif

if all_loaded#=1 then goto skip_loading


hide mouse
randomize 100

`fog on
`fog color 255,255,255
`fog color 255,255,255
`fog distance 7500




rem make images ****************************

`flameglow
create bitmap 1,200,200

ink rgb(100,50,50),rgb(0,0,0)
for r=1 to 100
circle 100,100,r
next r
ink rgb(255,100,100),rgb(0,0,0)
for r=1 to 80
circle 100,100,r
next r
ink rgb(255,170,100),rgb(0,0,0)
for r=1 to 50
circle 100,100,r
next r
ink rgb(255,230,100),rgb(0,0,0)
for r=1 to 25
circle 100,100,r
next r

get image 3,0,0,200,200,1
delete bitmap 1

`fire fur
create bitmap 1,52,52

ink rgb(255,150,50),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a
ink rgb(255,50,50),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a

get image 4,0,0,52,52,0
delete bitmap 1

`snow
create bitmap 1,56,56

ink rgb(230,240,250),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a
ink rgb(200,200,250),rgb(0,0,0)
for a=1 to 1500
dot rnd(52),rnd(52)
next a

get image 5,0,0,56,56,0
delete bitmap 1

`green cartoon
create bitmap 1,5,1

ink rgb(230,250,230),rgb(0,0,0)

dot rnd(0),rnd(0)
dot rnd(0),rnd(1)

dot rnd(1),rnd(0)
dot rnd(1),rnd(1)

ink rgb(120,250,120),rgb(0,0,0)

dot rnd(2),rnd(0)
dot rnd(2),rnd(1)

dot rnd(3),rnd(0)
dot rnd(3),rnd(1)

ink rgb(60,250,60),rgb(0,0,0)

dot rnd(4),rnd(0)
dot rnd(4),rnd(1)

dot rnd(5),rnd(0)
dot rnd(5),rnd(1)


get image 6,0,0,5,1,0
delete bitmap 1


`green cartoon
create bitmap 1,5,1

ink rgb(250,220,200),rgb(0,0,0)

dot rnd(0),rnd(0)
dot rnd(0),rnd(1)

dot rnd(1),rnd(0)
dot rnd(1),rnd(1)

ink rgb(250,220,120),rgb(0,0,0)

dot rnd(2),rnd(0)
dot rnd(2),rnd(1)

dot rnd(3),rnd(0)
dot rnd(3),rnd(1)

ink rgb(250,220,60),rgb(0,0,0)

dot rnd(4),rnd(0)
dot rnd(4),rnd(1)

dot rnd(5),rnd(0)
dot rnd(5),rnd(1)


get image 7,0,0,5,1,0

delete bitmap 1

create bitmap 1,1,1

ink rgb(190,230,250),rgb(0,0,0)

dot 0,0
dot 0,1
dot 1,0
dot 1,1

get image 8,0,0,1,1,0
delete bitmap 1


create bitmap 1,512,512

for a=1 to 500
dim#=rnd(20)
ink rgb(250-dim#,250-dim#,250-dim#),rgb(0,0,0)
dot rnd(512),rnd(512)
next a

get image 9,0,0,512,512,0
delete bitmap 1



create bitmap 1,100,100
for a=0 to 100
for b=0 to 100
dot a,b,rgb(230-rnd(20),230-rnd(10),(240+rnd(5)))
next b
next a

for a=0 to 100
dot a,0,rgb(0,0,0)
dot a,1,rgb(0,0,0)
next a

ink rgb(100,200,150),rgb(0,0,0)
for a=1 to 200
dot rnd(100),(rnd(98)+2)
next a

get image 10,0,0,100,100,0


rem ****************************************



color backdrop rgb(0,0,0)

make matrix 1,16000.0,2000.0,80,5

rem Snow image
create bitmap 1,100,100
for a=0 to 100
for b=0 to 100
dot a,b,rgb(230-rnd(20),230-rnd(10),(240+rnd(5)))
next b
next a

ink rgb(100,200,150),rgb(0,0,0)
for a=1 to 200
dot rnd(100),rnd(100)
next a

get image 1,0,0,100,100,0

delete bitmap 1
prepare matrix texture 1,10,1,1


`set camera to see the stars
set camera range 1,10000


rem Create Snowball ****

size#=30
make object sphere 1,100.0,32,32
set object normals 1
set object smoothing 1,100
  texture object 1,0,1
  scale object texture 1,3,3
  set object 1,1,0,1,1

      for obj=5 to 10
      siz=siz+5
      make object sphere obj,100+(siz)
      if obj<>10
set object light obj,0
  texture object obj,0,5
  set object transparency obj,1
  endif
  hide object obj
  next obj

  set object light 10,0

make object sphere 2,104,32,32
ghost object on 2
fade object 2,60

make object sphere 3,101,32,32
texture object 3,1
ghost object on 3



rem enemies ****

make object sphere 100,100
position object 100,4500,1061,1000

make object sphere 102,105
position object 102,4500,1061,1000

make object sphere 104,110
position object 104,4500,1061,1000

make object sphere 106,115
position object 106,4500,1061,1000

make object sphere 108,97
color object 108,0
position object 108,4500,1061,1000

make object sphere 101,100
position object 101,6000,88,1000

make object sphere 103,105
position object 103,6000,88,1000

make object sphere 105,110
position object 105,6000,88,1000

make object sphere 107,115
position object 107,6000,88,1000

make object sphere 109,97
color object 109,0
position object 109,6000,88,1000

for a=100 to 107
set object light a,0
set object transparency a,1
texture object a,4
next a

make object sphere 110,100
position object 110,12100,1061,1000

make object sphere 112,105
position object 112,4500,1061,1000

make object sphere 114,110
position object 114,4500,1061,1000

make object sphere 116,115
position object 116,4500,1061,1000

make object sphere 118,97
color object 118,0
position object 108,4500,1061,1000

make object sphere 111,100
position object 111,14700,88,1000

make object sphere 113,105
position object 113,6000,88,1000

make object sphere 115,110
position object 115,6000,88,1000

make object sphere 117,115
position object 117,6000,88,1000

make object sphere 119,97
color object 119,0
position object 119,6000,88,1000

for a=110 to 117
set object light a,0
set object transparency a,1
texture object a,4
next a

make object cube 120,100
position object 120,9400,-25,1000
set object light 120,0
texture object 120,4

rem PRESENTS!

load object gift$,200
scale object 200,60,60,60
position object 200,2585,361,1000

clone object 201,200
position object 201,4700,1361,1000

clone object 202,200
position object 202,6800,361,1000

clone object 203,200
position object 203,7700,561,1000

clone object 204,200
position object 204,9300,761,1000

clone object 205,200
position object 205,10850,361,1000

clone object 206,200
position object 206,12650,361,1000

clone object 207,200
position object 207,15290,161,1000

clone object 208,200
position object 208,585,400,1000

clone object 209,200
position object 209,3285,1000,1000

if shadow#=1
for a=200 to 207
set shadow shading on a
next a
endif

`snowman head
make object sphere 300,120
position object 300,15780,173,1000
texture object 300,0,1
scale object texture 300,10,10
make object sphere 301,124
position object 301,15780,173,1000
ghost object on 301

make object sphere 302,100
scale object 302,10,15,10
position object 302,15760,213,940
color object 302,0
make object sphere 303,100
scale object 303,10,15,10
position object 303,15800,213,940
color object 303,0

`ice
make object plain 400,1500,1600
position object 400,12588,260,400
ghost object on 400
xrotate object 400,90

if tree#=1

`tree
make object cone 401,100
scale object 401,200,200,200
position object 401,2250,368,500
texture object 401,6
`set cartoon shading on 401,6,1

make object cone 402,100
scale object 402,300,300,300
position object 402,2250,268,500
texture object 402,6
`set cartoon shading on 402,6,1

make object cylinder 403,100
scale object 403,100,300,100
position object 403,2250,168,500
texture object 403,7
`set cartoon shading on 403,7,1

`
make object cone 404,100
scale object 404,200,200,200
position object 404,2050,368,1500
texture object 404,6
`set cartoon shading on 404,6,1

make object cone 405,100
scale object 405,300,300,300
position object 405,2050,268,1500
texture object 405,6
`set cartoon shading on 405,6,1

make object cylinder 406,100
scale object 406,100,300,100
position object 406,2050,168,1500
texture object 406,7
`set cartoon shading on 406,7,1

randomize 1

for a=407 to 587 step 3

tree_x#=rnd(16000)
tree_z#=1300+rnd(1200)
tree_y#=rnd(20)

make object cone a,100
scale object a,200,200,200
position object a,tree_x#,368-tree_y#,tree_z#
texture object a,6
set object cull a,1
`set cartoon shading on a,6,1
`set shadow shading on a

make object cone a+1,100
scale object a+1,300,300,300
position object a+1,tree_x#,268-tree_y#,tree_z#
texture object a+1,6
set object cull a+1,1
`set cartoon shading on a+1,6,1
`set shadow shading on a+1

make object cylinder a+2,100
scale object a+2,100,300,100
position object a+2,tree_x#,168-tree_y#,tree_z#
texture object a+2,7
set object cull a+2,1
`set cartoon shading on a+2,7,1
`set shadow shading on a+2

next a

endif

`snow balls
if snow#=1

for b=700 to 1000

tree_x#=rnd(16000)
tree_z#=1000+rnd(2000)
tree_y#=rnd(20)

make object sphere b,100
set object cull 100,1
set object ambience b,rgb(255,255,255)
texture object b,1
scale object texture b,5,5
scale object b,500,(get ground height(1,tree_z#,tree_y#)+100+(2*tree_y#)),500
position object b,tree_x#,-tree_y#,tree_z#

next b


make object plain 1501,16000,3000
position object 1501,8000,10,1500
set object light 1501,0
texture object 1501,8
scale object texture 1501,16,3
ghost object on 1501
xrotate object 1501,90

endif

make object plain 1502,10000,6000
position object 1502,x#,300,3000
set object light 1502,0
texture object 1502,9
scale object texture 1502,9,6
`ghost object on 1502

rem SOUNDS and MUSIC
createsound("music1",1,100,50)
createsound("music2",2,100,60)
createsound("music3",3,100,40)
createsound("music4",4,100,80)
createsound("music5",5,200,100)
createsound("music6",6,200,80)
createsound("music7",7,200,70)

createsound("collect",10,100,180)
createsound("hurt",20,100,10)
createsound("finish",30,200,100)

`helps skip loading time if player > level 1
all_loaded#=1
skip_loading:

if level#=1 then gosub matrix_1_data

rem Set variables for character position
x#=1800
z#=1000
jump#=0
bonus#=1000



rem Activate manual sync
sync on

rem Begin loop
do

if bonus#<1 then goto game_over

if escapekey()=1 then gosub pause

`remstart
if music#=1

if m#=1
play sound 1
endif
if m#=3
stop sound 1
endif
if m#=3
play sound 2
endif
if m#=5
stop sound 2
endif
if m#=5
play sound 3
endif
if m#=7
stop sound 3
endif
if m#=7
play sound 4
endif
if m#=8
stop sound 4
m#=0
fourbeat#=fourbeat#+1
endif

if fourbeat#=4
play sound 5
playagain_1#=0
fourbeat#=0
endif

if fourbeat#=1
if playagain_1#=0
play sound 6
endif
playagain_1#=1
endif

m#=m#+1

endif

`remend

`if snow#=1
`for a=700 to 1500
`if object visible(a)=0 then hide object a
`next a
`endif

`if tree#=1
`for a=407 to 587
`if object visible(a)=0 then hide object a
`next a
`endif

`set cursor 10,30
`print "X "+str$(object position x(1))
`set cursor 10,50
`print "Y "+str$(object position y(1))

if grow#>3
size#=size#+1
score2#=score2#+1
grow#=0
endif
scale object 1,size#,size#,size#
scale object 2,size#+2,size#+2,size#+2
scale object 3,size#+1,size#+1,size#+1

scale object 5,size#+5,size#+5,size#+5
scale object 6,size#+10,size#+10,size#+10
scale object 7,size#+15,size#+15,size#+15
scale object 8,size#+20,size#+20,size#+20
scale object 9,size#+25,size#+25,size#+25
scale object 10,size#-5,size#-5,size#-5



rem Grow
if x#<>oldx#
grow#=grow#+1
rem increase music with time
if bonus#>499
endif
if bonus#<500
endif
endif


rem record old position
oldy#=y#
oldx#=x#

rem Control camera with arrow keys
if leftkey()=1 and acc#>-30 then acc#=acc#-2.5
if rightkey()=1 and acc#<30 then acc#=acc#+2.5
if leftkey()=0 and acc#<0 then acc#=acc#+0.5
if rightkey()=0 and acc#>0 then acc#=acc#-0.5

if fx#>0 then roll object left 1,-acc#+(fx#/30)
if fx#=0 then roll object left 1,-acc#
if fx#<0 then roll object left 1,-acc#+(fx#/30)

for a=5 to 10
if fx#>0 then roll object left a,-acc#+(fx#/30)
if fx#=0 then roll object left a,-acc#
if fx#<0 then roll object left a,-acc#+(fx#/30)
next a

` Update position
x#=x#+acc#

rem When not jumping...
if jump#=0
rem ...Roll Down Hills
fx#=0 : fz#=0
for r=0 to 35
  ex#=newxvalue(x#,r*10,15)
  ez#=newzvalue(z#,r*10,15)
  eh#= get ground height(1,ex#+mx#,ez#+mz#+plane#)
  if eh#<-500.0 then eh#=-500.0
  force#=(eh#+50.0)/15.0
  fx#=fx#+((ex#-x#)*force#)
  fz#=fz#+((ez#-z#)*force#)
next r
x#=x#-(fx#/35.0)

endif

rem ENEMY 1 AI and collision
if enemy_1_move#=0 then position object 100,object position x(100)+3,object position y(100),object position z(100)
if object position x(100)>4900 then enemy_1_move#=1
if enemy_1_move#=1 then position object 100,object position x(100)-3,object position y(100),object position z(100)
if object position x(100)<4500 then enemy_1_move#=0
position object 102,object position x(100),object position y(100),object position z(100)
position object 104,object position x(100),object position y(100),object position z(100)
position object 106,object position x(100),object position y(100),object position z(100)
position object 108,object position x(100),object position y(100),object position z(100)

for a=100 to 106 step 2
turn object left a,4
next a

if object collision(100,1)
`set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 2 AI and collision
if enemy_2_move#=0 then position object 101,object position x(101)+3,get ground height(1,object position x(101),object position z(101))+50,object position z(101)
if object position x(101)>6900 then enemy_2_move#=1
if enemy_2_move#=1 then position object 101,object position x(101)-3,get ground height(1,object position x(101),object position z(101))+50,object position z(101)
if object position x(101)<6000 then enemy_2_move#=0
position object 103,object position x(101),object position y(101),object position z(101)
position object 105,object position x(101),object position y(101),object position z(101)
position object 107,object position x(101),object position y(101),object position z(101)
position object 109,object position x(101),object position y(101),object position z(101)

for a=101 to 107 step 2
turn object left a,4
next a

if object collision(101,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 10 AI and collision
if object position x(1)>(object position x(110)-900) and object position x(1)<(object position x(110)) then position object 110,object position x(110)-6,get ground height(1,object position x(110),object position z(110))+50,object position z(110)
if object position x(1)<(object position x(110)+900) and object position x(1)>(object position x(110)) then position object 110,object position x(110)+6,get ground height(1,object position x(110),object position z(110))+50,object position z(110)
position object 112,object position x(110),object position y(110),object position z(110)
position object 114,object position x(110),object position y(110),object position z(110)
position object 116,object position x(110),object position y(110),object position z(110)
position object 118,object position x(110),object position y(110),object position z(110)
for a=110 to 116 step 2
turn object left a,4
next a

if object collision(110,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 11 AI and collision
if object position x(1)>(object position x(111)-900) and object position x(1)<(object position x(111)) then position object 111,object position x(111)-6,get ground height(1,object position x(111),object position z(111))+50,object position z(111)
if object position x(1)<(object position x(111)+900) and object position x(1)>(object position x(111)) then position object 111,object position x(111)+6,get ground height(1,object position x(111),object position z(111))+50,object position z(111)
position object 113,object position x(111),object position y(111),object position z(111)
position object 115,object position x(111),object position y(111),object position z(111)
position object 117,object position x(111),object position y(111),object position z(111)
position object 119,object position x(111),object position y(111),object position z(111)
for a=111 to 117 step 2
turn object left a,4
next a

if object collision(111,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem ENEMY 10 AI and collision

if enemy_20_move#=0
enemy_20_scale#=enemy_20_scale#+20
scale object 120,100,enemy_20_scale#,100
if enemy_20_scale#>1000 then enemy_20_move#=1
endif

if enemy_20_move#=1
enemy_20_scale#=enemy_20_scale#-20
scale object 120,100,enemy_20_scale#,100
if enemy_20_scale#<1 then enemy_20_move#=0
endif

if object collision(120,1)
set cursor 100,10:print "ouch!"
size#=size#-5
play sound 20
endif

rem CHECK IF CHARACTER IS DEAD
if size#<0 then goto game_over

rem Update character
if jump#=0 then y#=get ground height(1,x#,z#+plane#)+10.0
position object 1,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 2,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 3,x#,y#+(jumph#-fallh#)+(size#/2),z#

position object 5,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 6,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 7,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 8,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 9,x#,y#+(jumph#-fallh#)+(size#/2),z#
position object 10,x#,y#+(jumph#-fallh#)+(size#/2),z#

if fx#<>0 and oldy#>y# and oldx#<x# and acc#<15 then acc#=acc#+1
if fx#<>0 and oldy#>y# and oldx#>x# and acc#>-15 then acc#=acc#-1

rem Jump
if spacekey()=1 and jump#=0 and spacekeyoff#=0 then jump#=1:jumping#=1:jumpspeed#=60:spacekeyoff#=1

if jump#=1
jumpY#=object position y(1)
matY#=get ground height(1,x#,z#+plane#)+(size#/2)
if jumpY#<matY# then jump#=0:jumping#=0:falling#=0:jumph#=0:jumpspeed#=0

if jumping#=1
jumpspeed#=jumpspeed#-4
jumph#=jumph#+jumpspeed#
endif

if jumpspeed#<1 and jumping#=1 then jumpspeed#=0:jumping#=0:falling#=1

if falling#=1
jumpspeed#=jumpspeed#+4
jumph#=jumph#-jumpspeed#
endif

endif

if spacekey()=0 and spacekeyoff#=1 then spacekeyoff#=0



rem Position camera
cx#=newxvalue(x#,wrapvalue(a#+180),500)
cz#=newzvalue(z#,wrapvalue(a#+180),500)
cy#=get ground height(1,x#,z#+plane#)+200

if cy#<0 then cy#=0
`position camera cx#,cy#+200,cz#-1000
position camera cx#,object position y(1)+400,cz#-250



rem scroll reflection
scroll object texture 3,((x#/oldx#)*5),(1/(jumpspeed#/10000))


rem PRESENTS!
for a= 200 to 209
turn object left a,2
pitch object up a,2
if object collision(a,1) and object visible(a)
play sound 10
hide object a
score#=score#+1
endif
next a

rem move stars
position object 1502,x#,300,5000
point object 1502,camera position x(),camera position y(),camera position z()

rem end of level (Countdown so that it isnt too instantanious)
if countdown#=0
if object collision(300,1) and score#=10
counting#=1
countdown#=3
endif
endif

for a = 300 to 303
position object a,object position x(a),y#+(size#)+(60),1000
if a=302
position object a,object position x(a),y#+(size#)+(60)+40,940
endif
if a=303
position object a,object position x(a),y#+(size#)+(60)+40,940
endif
next a

if countdown#>0 then countdown#=countdown#-1
if countdown#=0 and counting#=1 then goto next_level_1


rem Point camera at object
point camera x#,object position y(1)+100,z#
position light 0,8000,15000,1000

`set cursor 10,10:print str$(screen FPS())
ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,61:print "PRESENTS:  "+str$(score#)+" / 10"
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,60:print "PRESENTS:  "+str$(score#)+" / 10"

ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,81:print "TIME:  "+str$(bonus#)
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,80:print "TIME:  "+str$(bonus#)

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 301,111:print "SCORE:  "+str$(score2#)
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 300,110:print "SCORE:  "+str$(score2#)

bonus#=bonus#-1
if bonus#<0 then bonus#=0

rem Syncronise
sync

rem End loop
loop



rem Next Level
next_level_1:
wait 100
cls
play sound 30
do

rem Decrease Bonus and Increase Points
ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,61:print "PRESENTS:  "+str$(score#)+" / 10"
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,60:print "PRESENTS:  "+str$(score#)+" / 10"

ink rgb(100,250,100),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,81:print "TIME:  "+str$(bonus#)
ink rgb(200,250,200),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,80:print "TIME:  "+str$(bonus#)

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 301,111:print "SCORE:  "+str$(score2#)
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 30
set cursor 300,110:print "SCORE:  "+str$(score2#)

rem When finished goto next level
bonus#=bonus#-30
score2#=score2#+30
if bonus#<0
bonus#=0
bonus#=2000
score#=0
countdown#=0
counting#=0
for a= 200 to 209
show object a
next a
size#=30
goto finish
endif

fastsync
loop









function createsound(name$,soundnumber,length#,pitch#)

    if file exist(name$+".wav")=1 then delete file name$+".wav"
    open to write 1,name$+".wav"
    chunk=int(((length#/1000)*44100*16)/8) `sample size (no of samples * bitrate * channels / 8)
    samples=int((length#/1000)*44100) `length *44100
    restore
    for x=1 to 40
       read byte2
       write byte 1, byte2
    next x
    write long 1,chunk
    rem generate and write wave
    thing# = 0
    for x=1 to samples
      inc thing#,pitch#*1
      if thing#>10000 then thing#=0
      output#=thing#
      write word 1,output#
    next x
    close file 1

    load sound name$+".wav",soundnumber

    data 82:data 73:data 70:data 70:data 208:data 59:data 1:data 0:data 87
    data 65:data 86:data 69:data 102:data 109:data 116:data 32:data 16
    data 0:data 0:data 0:data 1:data 0:data 2:data 0:data 34:data 86:data 0
    data 0:data 136:data 88:data 1:data 0:data 4:data 0:data 16:data 0
    data 100:data 97:data 116:data 97

endfunction















`level 1 matrix height details

matrix_1_data:

for x=0 to 80
set matrix height 1,x,1,rnd(100)-1909
set matrix height 1,x,4,rnd(100)-5400
set matrix height 1,x,5,rnd(200)-5300
next x

for a=0 to 80
set matrix height 1,a,1,67
set matrix height 1,a,2,67
set matrix height 1,a,3,67
next a

set matrix height 1,1,1,500
set matrix height 1,1,2,500
set matrix height 1,1,3,500
set matrix height 1,2,1,500
set matrix height 1,2,2,500
set matrix height 1,2,3,500
set matrix height 1,3,1,250
set matrix height 1,3,2,250
set matrix height 1,3,3,250
set matrix height 1,4,1,125
set matrix height 1,4,2,125
set matrix height 1,4,3,125
set matrix height 1,5,1,75
set matrix height 1,5,2,75
set matrix height 1,5,3,75
set matrix height 1,6,1,67
set matrix height 1,6,2,67
set matrix height 1,6,3,67


set matrix height 1,18,1,500
set matrix height 1,18,2,500
set matrix height 1,18,3,500
set matrix height 1,17,1,250
set matrix height 1,17,2,250
set matrix height 1,17,3,250
set matrix height 1,16,1,125
set matrix height 1,16,2,125
set matrix height 1,16,3,125
set matrix height 1,15,1,75
set matrix height 1,15,2,75
set matrix height 1,15,3,75
set matrix height 1,14,1,67
set matrix height 1,14,2,67
set matrix height 1,14,3,67

set matrix height 1,19,1,750
set matrix height 1,19,2,750
set matrix height 1,19,3,750
set matrix height 1,20,1,875
set matrix height 1,20,2,875
set matrix height 1,20,3,875
set matrix height 1,21,1,950
set matrix height 1,21,2,950
set matrix height 1,21,3,950
set matrix height 1,22,1,987
set matrix height 1,22,2,987
set matrix height 1,22,3,987

set matrix height 1,23,1,987
set matrix height 1,23,2,987
set matrix height 1,23,3,987

set matrix height 1,24,1,987
set matrix height 1,24,2,987
set matrix height 1,24,3,987

set matrix height 1,28,1,750
set matrix height 1,28,2,750
set matrix height 1,28,3,750
set matrix height 1,27,1,875
set matrix height 1,27,2,875
set matrix height 1,27,3,875
set matrix height 1,26,1,950
set matrix height 1,26,2,950
set matrix height 1,26,3,950
set matrix height 1,25,1,987
set matrix height 1,25,2,987
set matrix height 1,25,3,987

set matrix height 1,29,1,500
set matrix height 1,29,2,500
set matrix height 1,29,3,500
set matrix height 1,30,1,250
set matrix height 1,30,2,250
set matrix height 1,30,3,250
set matrix height 1,31,1,125
set matrix height 1,31,2,125
set matrix height 1,31,3,125
set matrix height 1,32,1,75
set matrix height 1,32,2,75
set matrix height 1,32,3,75
set matrix height 1,33,1,77
set matrix height 1,33,2,77
set matrix height 1,33,3,77


set matrix height 1,34,1,125
set matrix height 1,34,2,125
set matrix height 1,34,3,125
set matrix height 1,35,1,75
set matrix height 1,35,2,75
set matrix height 1,35,3,75
set matrix height 1,36,1,107
set matrix height 1,36,2,107
set matrix height 1,36,3,107

set matrix height 1,37,1,300
set matrix height 1,37,2,300
set matrix height 1,37,3,300
set matrix height 1,38,1,250
set matrix height 1,38,2,250
set matrix height 1,38,3,250
set matrix height 1,39,1,125
set matrix height 1,39,2,125
set matrix height 1,39,3,125
set matrix height 1,40,1,75
set matrix height 1,40,2,75
set matrix height 1,40,3,75
set matrix height 1,41,1,67
set matrix height 1,41,2,67
set matrix height 1,41,3,67

set matrix height 1,46,1,145
set matrix height 1,46,2,145
set matrix height 1,46,3,145
set matrix height 1,45,1,75
set matrix height 1,45,2,75
set matrix height 1,45,3,75
set matrix height 1,44,1,67
set matrix height 1,44,2,67
set matrix height 1,44,3,67
set matrix height 1,48,1,145
set matrix height 1,48,2,145
set matrix height 1,48,3,145
set matrix height 1,47,1,145
set matrix height 1,47,2,145
set matrix height 1,47,3,145
set matrix height 1,49,1,75
set matrix height 1,49,2,75
set matrix height 1,49,3,75
set matrix height 1,50,1,67
set matrix height 1,50,2,67
set matrix height 1,50,3,67

set matrix height 1,55,1,125
set matrix height 1,55,2,125
set matrix height 1,55,3,125
set matrix height 1,54,1,125
set matrix height 1,54,2,125
set matrix height 1,54,3,125
set matrix height 1,53,1,75
set matrix height 1,53,2,75
set matrix height 1,53,3,75
set matrix height 1,52,1,67
set matrix height 1,52,2,67
set matrix height 1,52,3,67

set matrix height 1,59,1,375
set matrix height 1,59,2,375
set matrix height 1,59,3,375
set matrix height 1,58,1,325
set matrix height 1,58,2,325
set matrix height 1,58,3,325
set matrix height 1,57,1,275
set matrix height 1,57,2,275
set matrix height 1,57,3,275
set matrix height 1,56,1,237
set matrix height 1,56,2,237
set matrix height 1,56,3,237
`ice bridge gap
set matrix height 1,71,1,125
set matrix height 1,71,2,125
set matrix height 1,71,3,125
set matrix height 1,72,1,125
set matrix height 1,72,2,125
set matrix height 1,72,3,125
set matrix height 1,73,1,75
set matrix height 1,73,2,75
set matrix height 1,73,3,75
set matrix height 1,74,1,67
set matrix height 1,74,2,67
set matrix height 1,74,3,67

set matrix height 1,67,1,375
set matrix height 1,67,2,375
set matrix height 1,67,3,375
set matrix height 1,68,1,325
set matrix height 1,68,2,325
set matrix height 1,68,3,325
set matrix height 1,69,1,275
set matrix height 1,69,2,275
set matrix height 1,69,3,275
set matrix height 1,70,1,237
set matrix height 1,70,2,237
set matrix height 1,70,3,237

set matrix height 1,60,1,237
set matrix height 1,60,2,237
set matrix height 1,60,3,237
set matrix height 1,66,1,237
set matrix height 1,66,2,237
set matrix height 1,66,3,237


`for x=0 to 80
`set matrix height 1,x,0,rnd(100)-400
`set matrix height 1,x,1,rnd(100)-400
`set matrix height 1,x,4,rnd(200)-5300
`next x

update matrix 1

set matrix height 1,0,1,2000
set matrix height 1,0,2,2000
set matrix height 1,0,3,2000
set matrix height 1,1,1,1000
set matrix height 1,1,2,1000
set matrix height 1,1,3,1000

for a = 61 to 65
set matrix height 1,a,1,237
set matrix height 1,a,2,237
set matrix height 1,a,3,237
next a

set matrix height 1,80,1,1000
set matrix height 1,80,2,1000
set matrix height 1,80,3,1000


return

`remstart
Rem Project: Minimal Media Coding Competition
Rem Created: 12/16/2007 12:58:49 AM
REM How to Play:
REM This is a maze game, so control the movement with W,A,S,D keys
REM and the direction of the camera with the mouse.

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

sync on : sync rate 30 : autocam off
position camera 100,100,100 : color backdrop 0
automatic camera collision 0, 10, 1
set ambient light 0 : make light 1
set point light 1, 0,0,0
set light range 1, 200
fog on : fog color RGB(0,0,0) : fog distance 400
set text opaque : hide mouse

cls RGB(0,255,255) : cls RGB(0,255,255)
get image 10,0,0,215,215

cls RGB(112,61,46) : cls RGB(112,61,46)
get image 11,0,0,215,215

load object "Gift01.x",1 : scale object 1, 50,50,50
load image "Gift01.jpg",1 : texture object 1,1

`Create the two Matrixes. the ground and the water
make matrix 1, 2000, 2000, 25, 25
set matrix texture 1,0,0
prepare matrix texture 1, 10, 1,1
ghost matrix on 1,0
position matrix 1,0,12,0

make matrix 2, 2000, 2000, 50, 50
randomize matrix 2, 10
set matrix texture 2,0,0
prepare matrix texture 2, 11, 1,1

`Add some extra snow particles for effect
make snow particles 1, 10, 1000, 1000,300,1000, 2000,200,2000
set particle life 1,200 : set particle speed 1, .00001

`some variables used in the game
dim waterLevel#(25,25)
dim waterRise(25,25)
global globalCounter = 0
global globalTotalPresents = 0
global globalTimer = 0

createMatrix()

`map sizes ( 20 x 20 is plenty big enough )
global mapSizeX = 20
global mapSizeY = 20

`variables for the map data
dim m(mapSizeX,mapSizeY) as integer
global wallSize = 100
restore mapData
dim objectsData(mapSizeX*mapSizeY) as integer

`Read the map data and put into array
for x = 1 TO mapSizeX
   READ  m(x,1),m(x,2),m(x,3),m(x,4),m(x,5),m(x,6),m(x,7),m(x,8),m(x,9),m(x,10),m(x,11),m(x,12),m(x,13),m(x,14),m(x,15),m(x,16),m(x,17),m(x,18),m(x,19),m(x,20)
next x

`make the map based on the variables
for x = 1 TO mapSizeX
   for y = 1 TO mapSizeY
      if m(x,y) = 1
         temNum = getObjNum()
         make object cube temNum, 100
         position object temNum, (x*wallSize)-100, wallSize/2, (y*wallSize)-100
         color object temNum,RGB(rnd(255),rnd(255),rnd(255))
         objectsData(temNum) = 1
      endif
      if m(x,y) = 0

      endif
      if m(x,y) = 2
         position camera 0,(x*wallSize)-100, wallSize/2, (y*wallSize)-100
      endif
      if m(x,y) = 3
         temNum = getObjNum()
         clone object temNum, 1
         position object temNum,(x*wallSize)-100, wallSize/2, (y*wallSize)-100
         objectsData(temNum) = 3
         inc globalTotalPresents
      endif
   next y
next x
`makeMap()

`Main Game Loop *****************************
do
   `controlCameraWithMouseKeyBoard(cameraNum, objectNum, speed)
   controlCameraWithMouseKeyBoard(0, objectNum, 5)
   setMatrix(1)
   cameraHeight(2)
   checkPresents(0,30)
   HUD()
   decideVictory()
   positionLight()
   timerFunction()
   if spacekey() = 1 THEN end
   sync
loop


function timerFunction()
   inc globalTimer
   tempNum = globalTimer/30
   center text screen width()/2, screen height()-15, "Time Spent (seconds): "+str$(tempNum)
endfunction

function positionLight()
   position light 1, camera position x(0),camera position y(0),camera position z(0)
endfunction

function decideVictory()
`when all the presents are collected,
`game screen freezes and  game exits
   if globalCounter = globalTotalPresents
      set text size 60
      center text screen width()/2,screen height()/2,"You Win :-)"
      tempNum = globalTimer/30
      center text screen width()/2,(screen height()/2)+60,"Time: "+str$(tempNum)
      sync
      wait 3000
      end
   endif
endfunction

function HUD()
`create the counting numbers for the presents collected
   center text screen width()/2,0, str$(globalCounter)+" presents collected / "+str$(globalTotalPresents)+" presents to find"
endfunction

function checkPresents(camNum,distance)
`check to see if player is close to present
`if so then present disappears and the counter goes up
   cx# = camera position x(camNum)
   cy# = camera position y(camNum)
   cz# = camera position z(camNum)
 for i = 1 TO mapSizeX*mapSizeY
   if object exist(i) and objectsData(i) = 3
      ox# = object position x(i)
      oy# = object position y(i)
      oz# = object position z(i)
      rotate object i, object angle x(i)+rnd(1)+.5,object angle y(i)+rnd(1)+1,object angle z(i)+rnd(1)+.2
      if intersect object(i, cx#, cy#, cz#, ox#, oy#, oz#) < distance
         delete object i
         inc globalCounter
      endif
   endif
 next i
endfunction

function cameraHeight(matrixNum)
   position camera camera position x(0), 50+get ground height(matrixNum,camera position x(0),camera position y(0)),camera position z(0)
endfunction

function getObjNum()
   for i = 1 TO 65000
      if object exist(i) = 0 THEN exitfunction i
   next i
endfunction i

function createMatrix()
   for x = 0 TO 25
      for y = 0 TO 25
         set matrix height 1, x,y, rnd(3)
      next y
   next x
   update matrix 1
endfunction

function setMatrix(matrixNum)
   riseVar# = .19
   lowVar# = 0
   highVar# = 3
   for x = 0 TO 25
      for y = 0 TO 25
         if get matrix height(matrixNum,x,y) <= lowVar#
            waterRise(x,y) = 1
         endif
         if get matrix height(matrixNum,x,y) >= highVar#
            waterRise(x,y) = 0
         endif
         if waterRise(x,y) = 1
            waterLevel#(x,y) = get matrix height(matrixNum,x,y)
            newLevel# = riseVar#+waterLevel#(x,y)
            set matrix height matrixNum, x,y,newLevel#
            waterLevel#(x,y) = newLevel#
         endif
         if waterRise(x,y) = 0
            waterLevel#(x,y) = get matrix height(matrixNum,x,y)
            newLevel# = waterLevel#(x,y)-riseVar#
            set matrix height matrixNum, x,y,newLevel#
            waterLevel#(x,y) = newLevel#
         endif
      next y
   next x
   update matrix matrixNum
endfunction

function controlCamera(cameraNum, speed, turn)
   if upkey()= 1 THEN move camera cameraNum, speed
   if downkey() = 1 THEN move camera cameraNum, speed*-1
   if rightkey() = 1 THEN turn camera right cameraNum, turn
   if leftkey() = 1 THEN turn camera left cameraNum, turn
endfunction

function controlCameraWithMouseKeyBoard(cameraNum, objectNum, speed)
   rotate camera cameraNum, camera angle x(cameraNum)+(mousemovey()/speed), camera angle y(cameraNum)+(mousemovex()/speed), 0
   cx# = camera angle x(cameraNum) : cy# = camera angle y(cameraNum)
   `w,s,a,d*****forward,back,left,right
   if upkey() = 1    OR keystate(17) = 1 then xrotate camera cameraNum, 0 : move camera cameraNum, speed : xrotate camera cameraNum, cx#
   if downkey() = 1  OR keystate(31) = 1 then xrotate camera cameraNum, 0 : move camera cameraNum, -1*speed : xrotate camera cameraNum, cx#
   if leftkey() = 1  OR keystate(30) = 1 THEN yrotate camera cameraNum, cy#-90 : move camera speed : yrotate camera cameraNum, cy#
   if rightkey() = 1 OR keystate(32) = 1 THEN yrotate camera cameraNum, cy#+90 : move camera speed : yrotate camera cameraNum, cy#
   if wrapvalue(camera angle x(cameraNum))>40 and wrapvalue(camera angle x(cameraNum))<180 then xrotate camera cameraNum, 40
   if wrapvalue(camera angle x(cameraNum))>180 and wrapvalue(camera angle x(cameraNum))<280 then xrotate camera cameraNum, 280
endfunction

`map data 1 = wall, 0 = space, 2 = player start, 3 = present
mapData:
DATA 1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1
DATA 1,2,0,3,0,3,1,0,0,0, 1,0,0,3,1,3,0,0,3,1
DATA 1,0,1,1,1,1,1,0,1,1, 1,0,1,0,1,0,1,3,1,1
DATA 1,3,0,0,3,1,0,0,1,0, 0,0,1,0,1,0,1,0,3,1
DATA 1,1,0,1,0,3,0,1,3,0, 1,1,0,0,1,3,1,1,0,1
DATA 1,0,0,1,0,1,0,1,0,1, 3,0,0,3,0,0,1,3,3,1
DATA 1,3,0,1,0,1,0,1,0,1, 0,1,0,1,1,0,1,0,0,1
DATA 1,1,1,1,0,1,0,0,3,0, 0,1,0,1,1,3,0,3,1,1
DATA 1,0,0,0,3,1,1,1,1,1, 1,1,0,1,1,1,1,0,1,1
DATA 1,3,0,1,0,0,0,3,0,0, 0,0,3,1,0,3,0,0,3,1

DATA 1,1,3,1,1,1,1,1,1,1, 1,1,1,1,0,1,1,1,1,1
DATA 1,0,0,1,3,0,3,0,3,0, 0,0,3,0,3,1,0,0,3,1
DATA 1,0,1,0,0,1,3,1,0,1, 1,1,1,1,1,1,3,1,1,1
DATA 1,3,1,0,3,1,1,1,3,0, 1,3,0,1,3,1,0,1,1,1
DATA 1,0,1,1,1,1,0,0,1,3, 1,1,0,0,0,1,3,0,3,1
DATA 1,0,3,0,0,1,3,1,1,0, 1,1,0,3,0,1,0,1,0,1
DATA 1,1,1,1,3,1,0,3,1,3, 0,1,3,1,3,0,3,0,0,1
DATA 1,0,0,0,0,0,1,0,1,1, 0,3,1,1,0,1,1,1,0,1
DATA 1,3,0,1,1,0,3,0,0,3, 1,0,3,0,3,0,3,0,3,1
DATA 1,1,1,1,1,1,1,1,1,1, 1,1,1,1,1,1,1,1,1,1

`remend

Music#=1

`Jammy-Soft presents

`Santas Snake

`
set display mode 1024,768,32
set window off
`land = matrix 1
`sky = object 3
`barrier= objects 7-23
`prezzie=object 25
`snow = objects 150-299
`cabin= objects 300-308
`santa - object 500
`gift finder object 550
 `snowman - object 400 ->>>>


load object "gift01.x",25
gosub initialize
gosub setvariables
Gosub MakeWaves
gosub createsnow
gosub makeimages
gosub makeland
gosub skyshere
gosub barrier
gosub cabin
gosub gifts
gosub snowman
gosub santa
gosub giftfinder
gosub setcollision
gosub make3dtrees
sync on
sync rate 60
gosub starter
gosub sprites


main:


ink rgb(0,0,0),rgb(200,200,200)
do
if musicon=1 then gosub playjingle
if snowon=1 then gosub movesnow
gosub movesnowman
gosub movecam 
gosub animate
gosub collision
gosub dropgifts
gosub movegiftfinder
gosub updatehud:
if snowmanhit=1 
gosub endscein
gosub starter
gosub sprites
snowmanhit=0
snowmen=0
points=1000
score=0
endif
text 10,60,"fps ="
text 70,60,str$(screen fps())

`text 20,40,str$(smz#)

sync
`cls
loop
playjingle:
playing=0
If Notelength<timer() and pause=0
read notelength
notelength=notelength+timer()
for temp= 10 to 22
if sound playing(temp)=1 then stop sound temp
next temp
pause=1
pausetimer=Timer()+5
endif

if timer()>pausetimer and pause=1
read note$
if note$="end" then restore
if note$="c0" then loop sound 10
if note$="d0" then loop sound 11
if note$="e0" then loop sound 12
if note$="f0" then loop sound 13
if note$="g0" then loop sound 14
if note$="a0" then loop sound 15
if note$="b0" then loop sound 16
if note$="c1" then loop sound 17
if note$="d1" then loop sound 18
if note$="e1" then loop sound 19
if note$="f1" then loop sound 20
if note$="g1" then loop sound 21
if note$="a1" then loop sound 22
pause=0
endif
`loop

`junglebells:
`verse:
data 250,"d0",250,"b0",250,"a0",250,"g0",750,"d0",125,"d0",125,"d0",250,"d0",250,"b0",250,"a0",250,"g0",1000,"e0",250,"e0",250,"c1",250,"b0",250,"a0",500,"f0",250,"d1",250,"d1",250,"c1",250,"a0",1000,"b0"
data 250,"d0",250,"b0",250,"a0",250,"g0",1000,"d0",250,"d0",250,"b0",250,"a0",250,"g0",750,"e0",250,"e0",250,"e0",250,"c1",250,"b0",250,"a0",250,"d1",250,"d1",250,"d1",250,"d1",250,"e1",250,"d1",250,"c1",250,"a0",1000,"g0"
`chorus:
data 250,"e0",250,"e0",500,"e0",250,"e0",250,"e0",500,"e0",250,"e0",250,"g0",250,"c0",250,"d0",1000,"e0"
data 250,"f0",250,"f0",500,"f0",250,"f0",250,"e0",500,"e0",250,"e0",250,"d0",250,"d0",250,"e0",500,"d0",500,"g0"
data 250,"e0",250,"e0",500,"e0",250,"e0",250,"e0",500,"e0",250,"e0",250,"g0",250,"c0",250,"d0",1000,"e0"
data 250,"f0",250,"f0",500,"f0",250,"f0",250,"e0",500,"e0",250,"g0",250,"g0",250,"f0",250,"d0",1000,"c0"
`verse
data 250,"d0",250,"b0",250,"a0",250,"g0",750,"d0",125,"d0",125,"d0",250,"d0",250,"b0",250,"a0",250,"g0",1000,"e0",250,"e0",250,"c1",250,"b0",250,"a0",500,"f0",250,"d1",250,"d1",250,"c1",250,"a0",1000,"b0"
data 250,"d0",250,"b0",250,"a0",250,"g0",1000,"d0",250,"d0",250,"b0",250,"a0",250,"g0",750,"e0",250,"e0",250,"e0",250,"c1",250,"b0",250,"a0",250,"d1",250,"d1",250,"d1",250,"d1",250,"e1",250,"d1",250,"c1",250,"a0",1000,"g0"
`chorus
data 250,"b0",250,"b0",500,"b0",250,"b0",250,"b0",500,"b0",250,"b0",250,"d1",375,"g0",125,"a0",500,"b0",250,"c1",250,"c1",375,"c1",125,"c1",250,"c1",250,"b0",250,"b0",125,"b0",125,"b0",250,"b0",250,"a0",250,"a0",250,"b0",500,"a0",500,"d0"
data 250,"b0",250,"b0",500,"b0",250,"b0",250,"b0",500,"b0",250,"b0",250,"d1",375,"g0",125,"a0",500,"b0",250,"c1",250,"c1",375,"c1",125,"c1",250,"c1",250,"b0",250,"b0",125,"b0",125,"b0",250,"d1",250,"d1",250,"c1",250,"a0",1000,"g0",1000," "
`return

`We Wish you a merry christmas
data 500,"a0",500,"d1",250,"d1",250,"e1",250,"d1",250,"c1",500,"b0",500,"b0",500,"b0",500,"e1",250,"e1",250,"f1",250,"e1",250,"d1",500,"c1",500,"a0",500,"a0"
data 500,"f1",250,"f1",250,"g1",250,"f1",250,"e1",500,"d1",500,"b0",250,"a0",250,"a0",500,"b0",500,"e1",500,"c1",1000,"d1",500,"a0"
data 500,"d1",500,"d1",500,"d1",1000,"c1",500,"c1",500,"d1",500,"c1",500,"b0",1000,"a0",500,"e1"
data 500,"f1",500,"e1",500,"d1",500,"a1",500,"a0",250,"a0",250,"a0",500,"b0",500,"e1",500,"c1",1000,"d1",1000,"end"

return

Makewaves:
createsound("note2",0,1,5000,500,100,0,0,10,10,10,10,10)  `nice zhooooo noise
createsound("note3",0,2,3000,200,1000,3,5,10,10,10,10,10) `nice click sound 3
createsound("note4",0,3,5000,500,100,0,0,1,10,10,10,10)  `nice zhoooww noise
createsound("note5",0,4,1000,500,100,0,0,0,0,0,0,100)  `nice pure tone

createsound("c0",0,10,268,5000,1000,0,0,0,0,0,0,1000)  `note c etc    Pure
createsound("d0",0,11,301,5000,1000,0,0,0,0,0,0,1000)
createsound("e0",0,12,337,5000,1000,0,0,0,0,0,0,1000)
createsound("f0",0,13,358,5000,1000,0,0,0,0,0,0,1000)
createsound("g0",0,14,401,5000,1000,0,0,0,0,0,0,1000)
createsound("a0",0,15,451,5000,1000,0,0,0,0,0,0,1000)
createsound("b0",0,16,506,5000,1000,0,0,0,0,0,0,1000)
createsound("c1",0,17,536,5000,1000,0,0,0,0,0,0,1000)
createsound("d1",0,18,602,5000,1000,0,0,0,0,0,0,1000)
createsound("e1",0,19,675,5000,1000,0,0,0,0,0,0,1000)
createsound("f1",0,20,716,5000,1000,0,0,0,0,0,0,1000)
createsound("g1",0,21,803,5000,1000,0,0,0,0,0,0,1000)
createsound("a1",0,22,902,5000,1000,0,0,0,0,0,0,1000)



return
updatehud:
`points
if points>10 then points=points-1

points$=str$(points)
lenpoin=len(points$)
for temp=1 to 5
if temp<=lenpoin 
sprite 54+temp,((scrw/2)+(15*temp))-40,scrh/100,40+val(MID$(points$,temp))

endif
if temp>lenpoin 
if sprite exist (temp+54)=1 then delete sprite temp+54
endif
next temp
`score

score$=str$(score)
lenscore=len(score$)
for temp=1 to 9
if temp<=lenscore 
sprite 60+temp,((scrw/100)+(15*temp))+70,scrh/100,40+val(MID$(score$,temp))
endif
if temp>lenscore 
if sprite exist (temp+60)=1 then delete sprite temp+60
endif
next temp
` gifts
snowmen$=str$(snowmen)
lenssnm=len(snowmen$)
for temp=1 to 9
if temp<= lenssnm
if lenssnm=1 then sprite 70+temp,((scrw-180)+(15*temp)),scrh/100,40+val(MID$(snowmen$,temp))
if lenssnm=2 then sprite 70+temp,((scrw-195)+(15*temp)),scrh/100,40+val(MID$(snowmen$,temp))
if lenssnm=3 then sprite 70+temp,((scrw-210)+(15*temp)),scrh/100,40+val(MID$(snowmen$,temp))
endif
if temp>lenssnm
if sprite exist (temp+70)=1 then delete sprite temp+70
endif
next temp
return






sprites:
sprite 50,scrw/100,scrh/100,50
sprite 51,(scrw/2)-120,scrh/100,51
if mode=1 then sprite 52,scrw-140,scrh/100,52
if mode=1 then targifts$=str$(targifts)
lentarg=len(targifts$)
if mode=2 then sprite 52,scrw-140,scrh/100,129
for temp=1 to 2
if temp<= lentarg
if mode=1 then sprite 80+temp,((scrw-70)+(15*temp)),scrh/100,40+val(MID$(targifts$,temp))
endif
if temp>lentarg
if sprite exist (temp+80)=1 then delete sprite temp+80
endif
next temp
return







endscein:
for temp= 10 to 22
if sound playing(temp)=1 then stop sound temp
next temp
if soundon=1 then play sound 3
ang#=ang
dist=200
direct=1
sprite 128,(scrw/2)-(100),scrh-50,128
repeat
ang#=ang#+1
if ang=360 then ang=0 
dist=dist+direct
if dist<30 then direct=1  
if dist>400 then direct=-1
SET CAMERA TO FOLLOW smx#,smy#,smz#,ang#,dist,150,10,1
cx#=camera position x()
cz#=camera position z()
if cx#<-50 then cx#=-50
if cx#>1350 then cx#=1350
if cz#<-50 then cz#=-50
if cz#>1350 then cz#=1350
position camera cx#,camera position y(),cz#





sync
until spacekey()=1
if sprite exist(128) then delete sprite 128
for temp = 401 to 499 `delete snowmen
if object exist(temp)=1 then delete object temp
next temp
move=1
return
starter:
`initialise sprites
for temp =100 to 126
sprite temp,-500,-500,temp
next temp
sprite 200,-500,-500,200
scale sprite 200,25
set sprite priority 200,1
position camera 500,200,850
position object 3,600,200,850
sprite 117,(scrw/2)-(sprite width(117)/3),scrh/10,117
`sprite 100,(scrw/2)-(sprite width(100)/2),scrh/10,100 ` santas Snake
for temp= 1 to 100
yrotate object 301,360-(temp) 
point camera 900,200,700
sync
next temp
santax#=900
santaz#=700
ang=270
yrotate object 500,ang
for temp=1 to 265
santay#=get ground height(1,santax#+100,santaz#+100)
position object 500,santax#,santay#+160,santaz#
santax#=santax#-1
point camera santax#,200,santaz#

sync
next temp
for temp= 1 to 100
yrotate object 301,260+(temp) 


sync
next temp

`` Options
delete sprite 117
soundon=1
musicon=1
snowon=1
res=1
mode=2
Notelength=timer()
repeat
if snowon=1 then gosub movesnow

sprite 100,(scrw/2)-(sprite width(100)/2),scrh/15,100 ` santas Snake
sprite 101,(scrw/2)-(sprite width(100)/2),scrh/20,101  `jammysoft
sprite 102,(scrw/2)-(sprite width(102)/2),scrh-50,102 `space to start
sprite 103,(scrw/5)-(sprite width(103)/2),scrh/3,103 `options
sprite 104,(scrw/5)-(sprite width(103)/2),(scrh/3)+60,104 
sprite 105,(scrw/5)-(sprite width(103)/2),(scrh/3)+100,105
sprite 106,(scrw/5)-(sprite width(103)/2),(scrh/3)+140,106
`sprite 107,(scrw/5)-(sprite width(103)/2),(scrh/3)+180,107
sprite 108,(scrw/5)-(sprite width(103)/2),(scrh/3)+260,108

if soundon=1 then sprite 154,(scrw/5)-(sprite width(103)/2)+100,(scrh/3)+60,109 else sprite 154,(scrw/5)-(sprite width(103)/2)+100,(scrh/3)+60,110
if musicon=1 then sprite 155,(scrw/5)-(sprite width(103)/2)+100,(scrh/3)+100,109 else sprite 155,(scrw/5)-(sprite width(103)/2)+100,(scrh/3)+100,110
if snowon=1 then sprite 156,(scrw/5)-(sprite width(103)/2)+100,(scrh/3)+140,109 else sprite 156,(scrw/5)-(sprite width(103)/2)+100,(scrh/3)+140,110

`sprite 157,(scrw/5)-(sprite width(103)/2),(scrh/3)+220,res+110

if mode=1 then sprite 158,(scrw/5)-(sprite width(103)/2),(scrh/3)+300,115 else sprite 158,(scrw/5)-(sprite width(103)/2),(scrh/3)+300,116

`dredit
sprite 118,((scrw/5)*4)-(sprite width(118)/2),(scrh/5),118
sprite 119,((scrw/5)*4)-(sprite width(118)/2),(scrh/5)+40,119
sprite 120,((scrw/5)*4)-(sprite width(118)/2),(scrh/5)+80,120

`instructions
sprite 121,((scrw/5)*3.7)-(sprite width(121)/2),(scrh/2)+80,121
sprite 122,((scrw/5)*3.7)-(sprite width(121)/2),(scrh/2)+140,123
sprite 126,((scrw/5)*3.7)-(sprite width(121)/2),(scrh/2)+180,126
 if mode =2 then sprite 123,((scrw/5)*3.7)-(sprite width(121)/2),(scrh/2)+220,122 :if sprite exist(124) then delete sprite 124
 if mode =1
 sprite 123,((scrw/5)*3.7)-(sprite width(121)/2),(scrh/2)+220,124
 sprite 124,((scrw/5)*3.7)-(sprite width(121)/2),(scrh/2)+260,125
endif

sprite 200,mousex(),mousey(),200
pressed=0
if mouseclick()=1 then click=1 
if click=1 and mouseclick()=0 then pressed=1 : click=0
if pressed=1
if soundon=1 then play sound 2
if sprite collision(200,104)=1 or sprite collision(200,154)=1
if soundon=1 then soundon=0 else soundon=1
endif
if sprite collision(200,105)=1 or sprite collision(200,155)=1
if musicon=1 then musicon=0 else musicon=1
if musicon=0
for temp= 10 to 22
if sound playing(temp)=1 then stop sound temp
next temp
endif
endif
if sprite collision(200,106)=1 or sprite collision(200,156)=1
if snowon=1 then snowon=0 else snowon=1

for temp = 150 to 299
if snowon=0 then hide object temp
if snowon=1 then show object temp
next temp
endif
`if sprite collision(200,107)=1 or sprite collision(200,157)=1
`res=res+1
`if res=5 then res =1
`endif
`if sprite collision(200,108)=1 or sprite collision(200,158)=1
`if mode=1 then mode=2 else mode=1
`endif
endif
if musicon=1 then gosub playjingle
sync
until spacekey()=1

`delete sprites
for temp =100 to 227
if sprite exist(temp) =1 then delete sprite temp
next temp
`set display mode - Just found out i would have to reload everything to use this - not worth it
`if res=1 then set display mode 1024,768,32
`if res=2 then set display mode 800,600,32
`if res=3 then set display mode 640,480,32
`if res=4 then set display mode 1680,1050,32


remstart
colourtext("SANTAS SNAKE",100,100)
colourtext("Jammy-soft Presents",30,101)
Colourtext("PRESS SPACE TO START",50,102)
Colourtext("Options",50,103)
colourtext("sound",30,104)
colourtext("music",30,105)
Colourtext("snow",30,106)
colourtext("screen Resolution",30,107)
colourtext("game mode",30,108)
colourtext("on",30,109)
colourtext("off",30,110)
Colourtext("1024x768",30,111)
colourtext("800x600",30,112)
colourtext("640x480",30,113)
colourtext("1680x1050",30,114)
colourtext("Go through the levels.",30,115)
colourtext("How Long Can snake get",30,116)
colourtext("Jammy-soft Presents",100,117)
colourtext("For great ideas credit go`s to",30,118)
colourtext("Snow effect - Icy_Blue [Thailand]",30,119)
colourtext("Sound system - Ric + Diggsey ",30,120)

colourtext("Instructions",50,121)
colourtext("Collect as many gifts as you can",30,122)
colourtext("Avoid hitting hut,trees and snowmen.",30,123)
colourtext("Collect the set number of gifts and",30,124)
colourtext("Return to hut. Levels will get harder.",30,125)

remend
for temp= 10 to 22
if sound playing(temp)=1 then stop sound temp
next temp

cz=850
cx=500
repeat
if cz>santaz# then dec cz
if cx<santax#+140 then inc cx
cy=200
if cz<santaz#+1 and cx>santax#+139 then camposition =1
position camera cx,cy,cz
position object 3,cx,cy,cz
point camera santax#,200,santaz#
sync
until camposition=1

`repeat
`xc#=camera angle x()
`if xc#<14 then inc xc#
`if xc#>16 then dec xc# 
`if xc#>14 and xc#<16 then xc#=15.0
xrotate camera 15
`until xc#=15.0


return
make3dtrees:
`3d trees
 make object box 600,5,100,5

make object cone 601,50
make object cone 602,40
make object cone 603,30
make object cone 604,20

for temp= 601 to 604
make mesh from object temp,temp
add limb 600,temp-600,temp
delete object temp
delete mesh temp
color limb 600,temp-600,rgb(0,255,0)
offset limb 600,temp-600,0,(temp-600)*15,0
next temp


texture object 600,10
texture limb 600,0,12
set object 600,1,0,1,0,0,0,0
SET OBJECT SMOOTHING 600,100
for temp= 1 to trees-1
instance object temp+600,600
next temp 
for temp= 1 to trees

repeat
freespace=1
treedata(temp,1)=rnd(1200)+50 :treedata(temp,2)=rnd(1200)+50

if treedata(temp,1)>300 and treedata(temp,1)<1050 and treedata(temp,2)>600 and treedata(temp,2)<820 then freespace=0
if temp<>1
for checktree= 1 to temp-1
if treedata(temp,1)>treedata(checktree,1)-50 and treedata(temp,1)<treedata(checktree,1)+50 and treedata(temp,2)>treedata(checktree,2)-50 and treedata(temp,2)<treedata(checktree,2)+50 then freespace=0
next checktree
endif
until freespace=1

position object 599+temp,treedata(temp,1),GET GROUND HEIGHT(1, treedata(temp,1)+100,treedata(temp,2)+100)+165,treedata(temp,2)
yrotate object 599+temp,rnd(359)

next temp

return

movegiftfinder:
position object 550,smx#,smy#+65,smz#
point object 550,px#,object position y(550),pz#
return
giftfinder:
make object box 550,10,0.5,0.5
make object cone 551,10
scale object 551,5,100,50
zrotate object 551,270 
make mesh from object 551,551
add limb 550,1,551
offset limb 550,0,5,0,0
offset limb 550,1,15,0,0
delete object 551
delete mesh 551
yrotate object 550,270
fix object pivot 550
`SET OBJECT Object Number, Wire, Transparent, Cull, Filter, Light, Fog, Ambient
set object 550,1,1,0,1,1,0,1
color object 550,rgb(0,0,255)
`glue object to limb 550,500,7
return
setcollision:
set object collision off 3 `sky
for temp=7 to 23
set object collision off temp `barrier 
next temp
for temp= 150 to max_snow
set object collision off temp `snow
next temp
`for temp= 300 to 308
set object collision off 300 `cabin
`next temp


set object collision off 400 `snowman

`MAKE OBJECT COLLISION BOX 25, -5,-5,-5,5,5,5,1
`MAKE OBJECT COLLISION BOX 500,-5,-20,-5,5,20,5,1

set object collision off 500
set object collision off 25

`SHOW OBJECT BOUNDS 400
`SHOW OBJECT BOUNDS 25


collision:


`barrier
if smx# <-10 then snowmanhit=1
if smx# >1310 then snowmanhit=1
if smz# <-10 then snowmanhit=1
if smz# >1310 then snowmanhit=1
`

`trees
for temp=1 to trees
xdist#=treedata(temp,1)-smx# : zdist#=treedata(temp,2)-smz#
dist#=sqrt((xdist#^2)+(zdist#^2))
if dist#<20 then snowmanhit=1
next temp

`hut
if smx#>800.0 and smx#<1000.0 and smz#>630.0 and smz#<785.0 then snowmanhit=1

`Snowman collision handled in movement



`gift
if gift=2 `landed
`px#,pz#
xdist#=px#-smx# : zdist#=pz#-smz#
dist#=sqrt((xdist#^2)+(zdist#^2))
if dist#<20
gift=0
snowmen=snowmen+1
score=score+points
if soundon=1 then play sound 1
instance object 400+snowmen,400
scale object snowmen+400,200,200,200
endif
endif



return




animate:
`santa
rotate limb 500,20,0,0,armove
`rotate limb 500,21,0,0,armove
`offset limb 500,15,armove,0,0 
if dirarm=0 then armove=armove+1
if dirarm=1 then armove=armove-1
if armove=55 then dirarm=1
if armove=-25 then dirarm=0

`snowman
rotate limb 400,1,0,armove-15,0

return

initialize:

autocam off
xrotate camera 15
fog off
hide mouse
set ambient light 50
backdrop off
set normalization on
hide light 0
make light 1
SET POINT LIGHT 1, 600,1000,-300
color light 1,rgb(230,230,255)
POINT LIGHT 1,600,0,1300
SET LIGHT RANGE 1,5000
return

setvariables:
scrw=screen width()
scrh=screen height()
camspeed=2
move=0
snowmen=0
snowmanspeed#=3
snowmandistance=70
dirarm=0
dim movedata#(200000,4)
trees=10
dim treedata(50,2)
gift=0
points=0
startpoints=1000
level=1
score=0
targifts=level*10
return

createsnow:
`create snow type
type TSnow
   g as float  `Speed
   x as float  `x position
   y as float  `y position
   z as float  `z position
endtype




#constant max_snow = 299
dim snow(max_snow) as TSnow

`create snow

   make object sphere 150, 5
   color object 150, rgb(255, 255, 255)
   set object light 150, 0
   snow(150).y=0
   set object collision off 150
 for i = 151 to max_snow
 instance object i,150  
   snow(i).y = 0
   set object collision off i
next i
return

makeimages:

`image 2 snow
`image 3 skyshere
`image 4 santa face
`image 5 santa skin
`image 10 green square
`image 11 tree
`image 12 log
`image 13 bricks
`image 25 gift `red
`image 26 gift green
`image 27 gift blue
`image 28 gift yellow
`image 29 gift pink 
`image 30 gift aqua
`image 31 ->> Numbers
load image "gift01.jpg",25,1

`remstart
rem Create a memblock from it
make memblock from image 1,25
make memblock from image 2,25
make memblock from image 3,25
make memblock from image 4,25
make memblock from image 5,25


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)
               `blue
               r=0
               g=0
               b=rgbr(c)
                WriteToImageMemblock(2,256,192,x,y,r,g,b)
                `yellow
               r=rgbr(c)
               g=rgbr(c)
               b=0
                WriteToImageMemblock(3,256,192,x,y,r,g,b)
      `pink
               r=rgbr(c)
               g=0
               b=rgbr(c)
                WriteToImageMemblock(4,256,192,x,y,r,g,b)
                `aqua
                
                r=0
               g=rgbr(c)
               b=rgbr(c)
                WriteToImageMemblock(5,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 26,1
make image from memblock 27,2
make image from memblock 28,3
make image from memblock 29,4
make image from memblock 30,5
rem Delete the memblock
delete memblock 1
delete memblock 2
delete memblock 3
delete memblock 4
delete memblock 5

`remend

create bitmap 1,1500,1000
set current bitmap 1
`snow
BOX 0,0,255,255,rgb(255,255,255), rgb(255,255,255),rgb( 255,255,255),rgb(255,255,255)
`get image 1,0,0,255,255,1
for x=0 to 255
for y=0 to 255
if rnd(20)=1
dotcol=rnd(55)+200
dot x,y,rgb(dotcol,dotcol,dotcol)
endif
next y
next x
get image 2,0,0,255,255,2
`trees
`Set current bitmap 1
cls
get image 1,0,0,2,2,1
BOX 0,0,100,100,rgb(0,255,0), rgb(255,255,255),rgb(0,127,0),rgb(0,127,0)
get image 10,1,1,126,126,1
cls
sprite 10,-100,-100,10
rotate sprite 10,45
paste sprite 10,60,60
delete image 10
delete sprite 10
get image 10,1,1,121,148,1
cls
sprite 10,-200,-200,10
scale sprite 10, 100
paste sprite 10,40,100
scale sprite 10,80
paste sprite 10,50,75
scale sprite 10,60
paste sprite 10,60,60
scale sprite 10,40
paste sprite 10,70,50
box 90,245,110,289, rgb(128, 64, 64), rgb(128, 64, 64),rgb(128, 0, 0),rgb(128,0,0)
get image 12,90,245,110,289,1`log
get image 11,35,70,165,290,1`tree
delete sprite 10
cls

BOX 0,0,100,100,rgb(0,255,0), rgb(255,255,255),rgb(0,127,0),rgb(0,127,0)
get image 10,1,1,126,126,1
`3d trees
cls
BOX 0,0,200,200,rgb(157,157,157), rgb(255,255,255),rgb(157,157,157),rgb(255,255,255)
for x=0 to 200
for y=0 to 200
if rnd(10)=1
dotcol=rnd(55)+200
dot x,y,rgb(dotcol,dotcol,dotcol)
endif
next y
next x
sprite 10,-100,-100,10
rotate sprite 10,45
paste sprite 10,60,100
delete image 10
delete sprite 10
for x=0 to 120
for y=60 to 150
if rnd(30)=1
dotcol=rnd(55)
dot x,y,rgb(dotcol,dotcol+200,dotcol)
endif
next y
next x

get image 10,1,1,121,148,1




`make skyshere
cls
box 0,0,511,255,rgb(125, 125, 255),rgb(200,200,200),rgb(125,125,255),rgb(200,200,200)
`box 0,0,511,140,rgb(122,122,122),rgb(200,200,200),rgb(255,255,255),rgb(200,200,200)
for tempx=20 to 490 step 30
ink rgb(200,200,200),rgb(0,0,0)
for rad=rnd(20)+20 to 1 step -1
circle tempx+1,100,rad
circle tempx,100,rad
next rad
next tempx
ink rgb(0,255,0),rgb(0,0,0)
for t=1 to 512
tempy=rnd(50)+128
if point(t,tempy)=rgb(200,200,200) then dot t,tempy  
next t
get image 3,0,0,511,255,2 `skyshere
`MAke santa textures
`face
ink rgb(0,0,0),rgb(0,0,0)
box 0,0,128,128,rgb(211, 136, 33),rgb(211, 136, 33),rgb(211, 136, 33),rgb(211, 136, 33)

get image 5,0,0,32,32,1
box 0,0,24,128,rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)
box 103,0,127,127,rgb(255,255,255),rgb(255,255,255),rgb(255,255,255),rgb(255,255,255)
for temp=1 to 9
if temp=4 then  ink rgb(0,255,255),rgb(0,0,0)
if temp=7 then ink rgb(255,225,255),rgb(0,0,0)
circle 44,58,temp
circle 44,61,temp
circle 74,58,temp
circle 74,61,temp
next temp
get image 4,0,0,127,127,1


`bricks
box 0,0,130,130,rgb(155,155,155),rgb(155,155,155),rgb(155,155,155),rgb(155,155,155)
box 4,4,64,31,rgb(155,15,15),rgb(155,15,15),rgb(155,15,15),rgb(155,15,15)
box 66,4,128,31,rgb(155,15,15),rgb(155,15,15),rgb(155,15,15),rgb(155,15,15)

box 1,33,30,64,rgb(155,15,15),rgb(155,15,15),rgb(155,15,15),rgb(155,15,15)
box 32,33,96,64,rgb(155,15,15),rgb(155,15,15),rgb(155,15,15),rgb(155,15,15)
box 98,33,128,64,rgb(155,15,15),rgb(155,15,15),rgb(155,15,15),rgb(155,15,15)
get image 13,1,1,128,64,1
sprite 13,-64,-64,13
rotate sprite 13,35
box 0,0,130,130,rgb(155,155,155),rgb(155,155,155),rgb(155,155,155),rgb(155,155,155)
paste sprite 13,32,-30
paste sprite 13,96,-30
paste sprite 13,4,28
`paste sprite 13,96,32
get image 14,1,1,129,64,1
delete sprite 13

texts:
`Numbers
for temp=40 to 49
colourtext(str$(temp-40),30,temp)
next temp
colourtext("Score :",30,50)
colourtext("Points :",30,51)
colourtext("gifts of ",30,52)
colourtext("SANTAS SNAKE",100,100)
colourtext("Jammy-soft Presents",30,101)
Colourtext("PRESS SPACE TO START",50,102)
Colourtext("Options",50,103)
colourtext("sound",30,104)
colourtext("music",30,105)
Colourtext("snow",30,106)
colourtext("screen resolution",30,107)
colourtext("game mode",30,108)
colourtext("on",30,109)
colourtext("off",30,110)
Colourtext("1024x768",30,111)
colourtext("800x600",30,112)
colourtext("640x480",30,113)
colourtext("1680x1050",30,114)
colourtext("Go through the levels.",30,115)
colourtext("How Long Can snake get",30,116)
colourtext("Jammy-soft Presents",100,117)
colourtext("For great ideas credit go`s to",30,118)
colourtext("Snow effect - Icy_Blue [Thailand]",30,119)
colourtext("Sound system - Ric + Diggsey ",30,120)
colourtext("Instructions",50,121)
colourtext("Collect as many gifts as you can",30,122)
colourtext("Avoid hitting hut,trees and snowmen.",30,123)
colourtext("Collect the set number of gifts and",30,124)
colourtext("Return to hut. Levels will get harder.",30,125)
colourtext("Use Left and Right arrow keys to stear",30,126)


paste image 25,0,0
get image 200,63,63,127,127,1 `curser
colourtext("Press Space",30,128)
colourtext("Gifts",30,129)

set current bitmap 0
return

makeland:
MAKE MATRIX 1, 1500,1500,15,15
position matrix 1,-100,110,-100
PREPARE MATRIX TEXTURE 1,2,1,1
randomize matrix 1,40
for tempx= 0 to 15
for tempz= 0 to 15
if tempx=0 or tempz=0 or tempx=15 or tempz=15
SET MATRIX HEIGHT 1, tempx, tempz,50
endif
SET MATRIX NORMAL 1, tempx,tempz,600,rnd(1000),-300
next tempz
next tempx
SET MATRIX 1,0,0,1,1,1,1,1
`SET MATRIX Matrix Number, Wire, Transparency, Cull, Filter, Light, Fog, Ambient
update matrix 1

return
skyshere:
`make skyshere


make object sphere 3,-4000
texture object 3,3
set object 3,1,1,0,1,0,1,1
set object collision off 3
return

barrier:
`make tree
make object plain 11,40,150
texture object 11,11
set object 11,1,1,0,1,1,1,1
position object 11,-10,190,-10
yrotate object 11,45




`barrier

make object plain 7,1480,150
position object 7,750,190,-10
texture object 7,11
scale object texture 7,30,1
set object 7,1,1,0,1,1,1,1
instance object 12,7 
position object 12,730,200,-40
instance object 16,7 
position object 16,740,210,-70
instance object 20,7 
position object 20,760,220,-100


instance object 8,7
position object 8,-10,190,750
yrotate object 8,90
instance object 13,7
position object 13,-40,200,730
yrotate object 13,90
instance object 17,7
position object 17,-70,210,740
yrotate object 17,90
instance object 21,7
position object 21,-100,220,760
yrotate object 21,90



instance object 9,7
position object 9,750,190,1310
instance object 14,7
position object 14,730,200,1340
instance object 18,7
position object 18,740,210,1370
instance object 22,7
position object 22,760,220,1400


instance object 10,7
position object 10,1310,190,750
yrotate object 10,90
instance object 15,7
position object 15,1340,200,730
yrotate object 15,90
instance object 19,7
position object 19,1370,210,740
yrotate object 19,90
instance object 23,7
position object 23,1400,220,760
yrotate object 23,90

return

cabin:

 `cabim
make object box 300,100,50,5
position object 300,500,160,600
`texture object 300,12
`scale object texture 300,30,1
clone object 301,300
`position object 301,500,160,660

make object box 302,5,50,12.5
`texture object 302,12
`scale object texture 302,4,1
`position object 302,452.5,160,610
clone object 303,302
`position object 303,452.5,160,650
make object box 304,5,50,55
`position object 304,547.5,160,630
`texture object 304,12
`scale object texture 304,15,1
`roof
MAKE OBJECT TRIANGLE 305, 549, 185, 596, 549, 220, 630, 549, 185, 664
`texture object 305,12
`scale object texture 305,15,1
MAKE OBJECT TRIANGLE 306, 451, 185, 596, 451, 220, 630, 451, 185, 664
`texture object 306,12
`scale object texture 306,15,1
`MAKE OBJECT TRIANGLE Object Number, X1, Y1, Z1, X2, Y2, Z2, X3, Y3, Z3
make object box 307,105,50,5
`position object 307,500.1,202,614
`texture object 307,2
xrotate object 307,45
make object box 308,105,50,5
`position object 308,499.9,202,646
`texture object 308,2
xrotate object 308,-45
make object box 309,7,15,7

for temp= 301 to 309
make mesh from object temp,temp
add limb 300,temp-300,temp
delete object temp
delete mesh temp
next temp
offset limb 300,1,0,0,60
offset limb 300,2,-47.5,0,7.5
offset limb 300,3,-47.5,0,52.5
offset limb 300,4,47.5,0,30
offset limb 300,5,-500,-160,-600
offset limb 300,6,-500,-160,-600
offset limb 300,7,0.1,42,14
offset limb 300,8,-0.1,42,46
offset limb 300,9,45,62,30
`color object 300,rgb(255,0,0)

texture object 300,13

scale object texture 300,5,5

texture limb 300,7,2
texture limb 300,8,2

texture limb 300,5,14
texture limb 300,6,14
scale limb texture 300,2,0.1,1
scale limb texture 300,3,0.1,1


scale limb texture 300,5,0.9,0.9
scale limb texture 300,6,0.9,0.9

set object 300,1,0,0,1,1,0,0
scale object 300,200,250,200
position object 300,900,180,650


make object box 301,5,130,70
offset limb 301,0,0,0,35
position object 301,800,180,675 
texture object 301,12
scale object texture 301,15,1
set object 301,1,0,0,1,1,0,0
`yrotate object 301,-95
return

movesnow:
   `move snow
   for i = 150 to max_snow
      snow(i).y = snow(i).y - (snow(i).g / 6)
      if snow(i).y <= 120 then new_snow(i)
      position object i, snow(i).x + (sin(snow(i).y * 3) * 10), snow(i).y, snow(i).z + (sin(snow(i).y * 3) * 10)
   next i
   return

movesnowman:
`remstart
if leftkey()=1 then ang=ang-snowmanspeed#
if rightkey()=1 then ang=ang+snowmanspeed#
if ang<0 then ang=359+ang
if ang>359 then ang =0+(ang-359)
yrotate object 500,ang
 
move object 500,snowmanspeed#
smx#=object position x(500)
smz#=object position z(500)
smy#=get ground height(1,smx#+100,smz#+100)+130

position object 500,smx#,smy#+30,smz#
move=move+1
if move=200000 then move=1
movedata#(move,1)=smx#
movedata#(move,2)=smy#
movedata#(move,3)=smz#
movedata#(move,4)=ang


if snowmen>0 

for temp =401 to 400+snowmen
movedatpos=int(move-(snowmandistance/snowmanspeed#)*(temp-400))
position object temp,movedata#(movedatpos,1),movedata#(movedatpos,2),movedata#(movedatpos,3)
yrotate object temp,movedata#(movedatpos,4)

`collision
xdist#=movedata#(movedatpos,1)-smx# : zdist#=movedata#(movedatpos,3)-smz#
snowmandist#=sqrt((xdist#^2)+(zdist#^2))
if snowmandist#<30 then snowmanhit=1

next temp
endif
`remend

return


Movecam:

camany#= camera angle y()
camanx#= camera angle x()
` remstart followcam
SET CAMERA TO FOLLOW smx#,smy#,smz#,ang,200,150,10,1
`SET CAMERA TO FOLLOW X, Y, Z, Angle, Distance, Height, Smooth, Collision
`remend



remstart - freecam
if scancode()=17 then move camera camspeed 
if scancode()=30 then rotate camera 0,camany#-90,0 : move camera camspeed :rotate camera 0,camany#,0
if scancode()=31 then move camera 0-camspeed
if scancode()=32 then rotate camera 0,camany#+90,0 : move camera camspeed :rotate camera 0,camany#,0

camany#=camany#+(mousemovex()/2)
camanx#=camanx#+(mousemovey()/2)
rotate camera camanx#,camany#,0
remend
position object 3,camera position x(),camera position y(),camera position z()


return
dropgifts:
`create gift
if gift=0

repeat
freespace=1
px#=rnd(1100)+50:pz#=rnd(1100)+50:py#=1000 :pt#=GET GROUND HEIGHT(1, px#+100,pz#+100)+115

if px#>750 and px#<1050 and pz#>600 and pz#<820 then freespace=0
for checktree= 1 to trees
if px#>treedata(checktree,1)-50 and px#<treedata(checktree,1)+50 and pz#>treedata(checktree,2)-50 and pz#<treedata(checktree,2)+50 then freespace=0
next checktree
until freespace=1





points=startpoints*level

gift=1
endif
`fall gift
if gift=1
`py#=curvevalue(pt#,py#,0.001)
py#=py#-4
if py#<pt#+1 then py#=pt# :gift = 2 `landed
position object 25,px#,py#,pz#
endif
return


gifts:
`gift 

scale object 25,20,20,20 
xrotate object 25,-90
fix object pivot 25
position object 25,0,-300,0
`position object 25,300,GET GROUND HEIGHT(1, 400,400)+115,300
`for temp=26 to 99

`clone object temp,25
`scale object temp,10,10,10
`px#=rnd(1200):pz#=rnd(1200)
`yrotate object 25,rnd(359)
`ran=rnd(5)
`if ran=1 then texture object temp,26
` if ran=2 then texture object temp,27
` if ran=3 then texture object temp,28
` if ran=4 then texture object temp,29
` if ran=5 then texture object temp,30
`position object temp,px#,GET GROUND HEIGHT(1, px#+100,pz#+100)+115,pz#
`next temp
return
santa:
`santa
santaz#=500
santax#=500
santay#=get ground height(1,santax#+100,santaz#+100)

`body

make object sphere 500,15.5
`zrotate object 500,-5
scale object 500,90,30,100
position object 500,santax#,santay#+143,santaz#
`fix object pivot 500
`head
make object sphere 501,10
scale object 501,80,100,80
`neck 
MAKE OBJECT CYLINDER 502,4

`beard

Make object cone 503,10

`nose
Make object sphere 504,5
`hair
make object sphere 505,11
`hat
Make object cone 506,10
make object sphere 507,3


`legs
MAKE OBJECT CYLINDER 508,5 
MAKE OBJECT CYLINDER 509,5 
MAKE OBJECT CYLINDER 510,4 
MAKE OBJECT CYLINDER 511,4 
make object sphere 512,5.5
make object sphere 513,5.5

`coat 
MAKE OBJECT CYLINDER 514,14
`feet + skys
make object sphere 515,5
make object sphere 516,5
make object sphere 517,5
make object sphere 518,5
`coat bottom
make object sphere 519,15.5


`armstumps
make object sphere 520,5.5
make object sphere 521,5.5

`remstart
`santa arms
make object cube 522,1
MAKE OBJECT CYLINDER 523,3 
`MAKE OBJECT CYLINDER 523,3
scale object 523,100,200,100
`scale object 523,100,250,100


make object sphere 524,3.5
`make object sphere 525,3.5

MAKE OBJECT CYLINDER 525,3 
scale object 525,100,200,100
zrotate object 525,90 
`MAKE OBJECT CYLINDER 522,3
make object sphere 526,3.5
`make object sphere 524,3.5

Make object box 527,1,30,1
`make object box 526,1,30,1

for temp= 523 to 527
make mesh from object temp,temp
add limb 522,temp-522,temp
link limb 522,temp-523,temp-522 
delete object temp
delete mesh temp

next temp

offset limb 522,1,0,0,0
offset limb 522,2,0,-3,0
offset limb 522,3,4,-3,0
offset limb 522,4,8,-3,0
offset limb 522,5,8,-16,0

make object cube 523,1
MAKE OBJECT CYLINDER 524,3 
`MAKE OBJECT CYLINDER 523,3
scale object 524,100,200,100
`scale object 523,100,250,100


make object sphere 525,3.5
`make object sphere 525,3.5

MAKE OBJECT CYLINDER 526,3 
scale object 526,100,200,100
zrotate object 526,90 
`MAKE OBJECT CYLINDER 522,3
make object sphere 527,3.5
`make object sphere 524,3.5

Make object box 528,1,30,1
`make object box 526,1,30,1

for temp= 524 to 528
make mesh from object temp,temp
add limb 523,temp-523,temp
link limb 523,temp-524,temp-523 
delete object temp
delete mesh temp

next temp

offset limb 523,1,0,0,0
offset limb 523,2,0,-3,0
offset limb 523,3,4,-3,0
offset limb 523,4,8,-3,0
offset limb 523,5,8,-16,0




`make limbs


for temp= 501 to 523
make mesh from object temp,temp
add limb 500,temp-500,temp
`if temp=501 then link limb 500,0,temp-500
`if temp=502 then link limb 500,1,temp-500 
`if temp>401 and temp<413 then link limb 400,1,temp-400 
`if temp>412 then link limb 400,0,temp-400 
delete object temp
delete mesh temp
`if temp<>401 then color limb 400,temp-400,rgb(50,50,50)
next temp
texture object 500,2
`position limbs
`body


color limb 500,0,rgb(255,255,255)
texture limb 500,0,2
scale limb 500,0,90,30,100
`head
offset limb 500,1,0,8,0

rotate limb 500,1,0,0,5
color limb 500,1,rgb(211, 136, 33)
texture limb 500,1,4
scale limb texture 500,1,2,1
`neck 
offset limb 500,2,0,3,0
`scale limb 500,2,100,300,100
rotate limb 500,2,0,0,5
color limb 500,2,rgb(1,1,1)
texture limb 500,2,5

`beard
offset limb 500,3,5,3.5,0
scale limb 500,3,60,80,60
rotate limb 500,3,0,0,240
color limb 500,3,rgb(255,255,255)
texture limb 500,3,2
`Nose`
offset limb 500,4,3,7.5,0
scale limb 500,4,80,50,60
color limb 500,4,rgb(211,0,0)
`hair
offset limb 500,5,-1,9,0
scale limb 500,5,80,100,80
color limb 500,5,rgb(255,255,255)
texture limb 500,5,2
`hat
offset limb 500,6,-4.5,16,0
scale limb 500,6,100,130,90
rotate limb 500,6,0,0,30
color limb 500,6,rgb(255,0,0)

offset limb 500,7,-7,21,0
color limb 500,7,rgb(255,255,255)
texture limb 500,7,2


`remstart
`legs
offset limb 500,8,1,-14,-4
offset limb 500,9,1,-14,4
for temp= 8 to 9
scale limb 500,temp,100,240,100
rotate limb 500,temp,0,0,30
color limb 500,temp,rgb(255,1,1)
next temp

offset limb 500,10,4,-24,-4
offset limb 500,11,4,-24,4
for temp= 10 to 11
scale limb 500,temp,100,300,100
rotate limb 500,temp,0,0,-5
color limb 500,temp,rgb(1,1,1)
next temp
`remstart
offset limb 500,12,4.5,-19.5,-4
offset limb 500,13,4.5,-19.5,4
color limb 500,12,rgb(255,1,1)
color limb 500,13,rgb(255,1,1)
` coat
offset limb 500,14,0,-7,0
scale limb 500,14,90,100,100
color limb 500,14,rgb(255,1,1)
` feet and skys
offset limb 500,15,6,-30,-4
offset limb 500,16,6,-30,4
scale limb 500,15,200,100,80
scale limb 500,16,200,100,80
color limb 500,15,rgb(1,1,1)
color limb 500,16,rgb(1,1,1)
`set object 500,1,1,1,1,1,0,0

offset limb 500,17,6,-32,-4
offset limb 500,18,6,-32,4
scale limb 500,17,900,50,100
scale limb 500,18,900,50,100
color limb 500,17,rgb(255,1,1)
color limb 500,18,rgb(255,1,1)
for temp = 15 to 18
rotate limb 500,temp,0,0,5
next temp
`remstart
`coat bottom
scale limb 500,19,90,30,100
offset limb 500,19,0,-14,0
color limb 500,19,rgb(255,255,255)
texture limb 500,19,2
`arms
offset limb 500,20,1,-1,-8
link limb 500,20,21
offset limb 500,21,0,0,16

`scale limb 500,15,100,80,100
`scale limb 500,16,100,80,100
color limb 500,20,rgb(255,1,1)
color limb 500,21,rgb(255,1,1)

link limb 500,20,22
offset limb 500,22,0,-5,0
link limb 500,20,23
offset limb 500,23,0,-5,16
color limb 500,22,rgb(255,1,1)
color limb 500,23,rgb(255,1,1)
set object 500,1,0,0,1,1,0,0
rotate object 500,0,270,0 
fix object pivot 500
scale object 500,160,160,160
xrotate object 500,5
return




snowman:
`snowman
smx#=300
smy#=get ground height(1,smx#+100,smz#+100)
smz#=300
`body
make object sphere 400,28
scale object 400,80,100,80

`position object 400,smx#,smy#+114,smz#
`head
make object sphere 401,14

`nose
make object cone 402,4
scale object 402,100,200,100

`hat
make object sphere 403,12
scale object 403,100,20,100
MAKE OBJECT CYLINDER 404,8
make object sphere 405,8.5
scale object 405,100,20,100

`eyes
make object sphere 406,1.5
clone object 407,406


`mouth
make object sphere 408,1
clone object 409,408
clone object 410,408
clone object 411,408
clone object 412,408

` buttons
make object sphere 413,3
clone object 414,413
clone object 415,413

`arms
make object box 416,15,0.7,0.7
make object box 417,15,0.7,0.7





`hands
make object box 418,4,0.5,0.5
make object box 419,4,0.5,0.5
make object box 420,4,0.5,0.5
make object box 421,4,0.5,0.5
zrotate object 418,40
zrotate object 419,-40
zrotate object 420,40
zrotate object 421,-40
`scarf

make object cylinder 422,11
position object 422,smx#,smy#+129,smz#
make object plain 423,2.5,10
 make object plain 424,2.5,10

`add limbs
texture object 400,2
for temp= 401 to 424
make mesh from object temp,temp
add limb 400,temp-400,temp
if temp=401 then link limb 400,0,temp-400 
if temp>401 and temp<413 then link limb 400,1,temp-400 
if temp>412 then link limb 400,0,temp-400 
delete object temp
delete mesh temp
if temp<>401 then color limb 400,temp-400,rgb(50,50,50)
next temp
`position limbs
offset limb 400,1,0,18,0 `head
texture limb 400,1,2
`nose
rotate limb 400,2,0,0,270
offset limb 400,2,7,0,0
color limb 400,2,rgb(255,75,32)
`hat
offset limb 400,3,0,5,0
offset limb 400,4,0,9,0
offset limb 400,5,0,13,0
`eyes
offset limb 400,6,6,2,-2
offset limb 400,7,6,2,2
`mouth
offset limb 400,8,6,-2.7,0
offset limb 400,9,5.9,-2.5,1
offset limb 400,10,5.9,-2.5,-1
offset limb 400,11,5.8,-2,2
offset limb 400,12,5.8,-2,-2
`buttons
offset limb 400,13,10,9,0
offset limb 400,14,12.5,4.5,0
offset limb 400,15,13.5,0,0
`arms  limb 17 and 21 seem to have swapped somehow with links pooo cant link hands

offset limb 400,16,13,9,-8
offset limb 400,17,13,9,8

rotate limb 400,17,0,-15,0
rotate limb 400,16,0,15,0
`hands

offset limb 400,18,19,10.5,9.5
offset limb 400,19,19,7.5,9.5
offset limb 400,20,19,10.5,-9.5
offset limb 400,21,19,7.5,-9.5
`scarf
offset limb 400,22,0,15,0
offset limb 400,23,-9,10.6,2
rotate limb 400,23,235,90,0
offset limb 400,24,9,10.6,-2
rotate limb 400,24,305,90,0
for temp=16 to 21
color limb 400,temp,rgb(180, 86, 35)
next temp

texture limb 400,4,25
SCALE LIMB TEXTURE 400,4,2,1


for temp= 22 to 24
texture limb 400,temp,25
next temp

`set object stuff 
set object 400,1,1,1,1,1,0,0
yrotate object 400,270 
fix object pivot 400
scale object 400,200,200,200
`position object 400,300,300,0
`remstart
`for temp= 1 to snowmen
`instance object 400+temp,400
`position object 400+temp,300,300,0-(temp*25)
`scale object temp+400,200,200,200
`next temp
position object 400,0,-1000,0
`remend
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 for create +1 or -1
function sign()
   x = int(rnd(1))-1
   if x = 0 then x = 1
endfunction x


`function for calculate new snow's position
function new_snow(no)
   snow(no).g = rnd(6) + 3
   snow(no).x = (rnd(600)* sign())+600
   snow(no).y = rnd(300) + 300
   snow(no).z = (rnd(600)* sign())+600
endfunction

function colourtext(letter$,size,image)
` the colour thing takes too long to do for too little benifet so decided to go with black
ink rgb(113, 0, 0),rgb(0,0,0)
if image>102 and image<> 117 then ink rgb(25,25,25),rgb(0,0,0)
if image=129 then ink rgb(113, 0, 0),rgb(0,0,0)
set text font "Arial"
set text size size
cls rgb(0,0,0)
`box 500,0,1000,25,rgb(155,55,55),rgb(0,155,0),rgb(155,55,55),rgb(0,155,0)
`box 500,25,1000,50,rgb(0,155,0),rgb(155,55,55),rgb(0,155,0),rgb(155,55,55)
text 1,-3, letter$
cutx=len(letter$)*(size/1.7)
`for tempx=0 to 250
`for tempy=0 to 50
`if point(tempx,tempy)>0
`dot tempx,tempy,point(tempx+500,tempy)
`cutx=tempx
`if tempy>cuty then cuty=tempy
`endif
`next tempy
`next tempx
`cutx=cutx+1
`cuty=cuty+1
get image image,0,0,cutx,size+5,1

endfunction

function createsound(name$,soundtype,soundnumber,frequency#,length#,loudness#,bend#,decay#,vibratospeed#,vibratodepth#,tremelospeed#,tremelodepth#,attack#)

outWord as word
dword1 as dword: dword2 as dword: dword3 as dword: dword4 as dword
dword5 as dword: dword6 as dword: dword7 as dword

samples=int((length#/1000)*44100)

if memblock exist(1) then delete memblock 1
make memblock 1,samples*2+44

` write 28 memblock header bytes
dword1=1      ` gg query: is this the number of channels?
dword2=2
dword3=22050  ` gg query: seems to be half the number of samples per second - why?
dword4=88200  ` gg query: is this the number of bytes per second?
dword5=4      ` gg query: what does this represent?
dword6=16     ` gg query:     (ditto)            ?
dword7=0      ` gg query:     (ditto)            ?

position=0
write memblock byte 1, position, asc("R") : inc position
write memblock byte 1, position, asc("I") : inc position
write memblock byte 1, position, asc("F") : inc position
write memblock byte 1, position, asc("F") : inc position

write memblock dword 1, position, samples*2+36 : inc position,4

write memblock byte 1, position, asc("W") : inc position
write memblock byte 1, position, asc("A") : inc position
write memblock byte 1, position, asc("V") : inc position
write memblock byte 1, position, asc("E") : inc position

write memblock byte 1, position, asc("f") : inc position
write memblock byte 1, position, asc("m") : inc position
write memblock byte 1, position, asc("t") : inc position
write memblock byte 1, position, asc(" ") : inc position
write memblock dword 1, position, 16 : inc position,4

write memblock word 1, position, dword1 : inc position,2
write memblock word 1, position, dword2 : inc position,2
write memblock dword 1, position, dword3 : inc position,4
write memblock dword 1, position, dword4 : inc position,4
write memblock word 1, position, dword5 : inc position,2
write memblock word 1, position, dword6 : inc position,2


write memblock byte 1, position, asc("d") : inc position
write memblock byte 1, position, asc("a") : inc position
write memblock byte 1, position, asc("t") : inc position
write memblock byte 1, position, asc("a") : inc position
write memblock dword 1, position, samples*2 : inc position,4

rem generate and write wave

if file exist(name$+".wav")=1 then delete file name$+".wav"


`inc param_attackamount#,0.0001
riseinloudness#=loudness#
for x=1 to samples
  outInteger=int(sin((x/122.5)*(frequency#+vibratodepth#*sin(theta#)))*(loudness#-fallinloudness#-riseinloudness#+tremelodepth#*sin(phi#)))*3.0
  if outInteger <-32767 then outInteger=-32767  ` gg query: is this the valid range?
  if outInteger>32767 then outInteger=32767     ` gg query:       (ditto)          ?
  outWord=outInteger
  inc theta#,vibratospeed#
  inc phi#,tremelospeed#
  dec frequency#,bend#
  if fallinloudness#<loudness#
		inc fallinloudness#,decay#
  endif
  if riseinloudness#>0
    dec riseinloudness#,attack#
  endif
  write memblock word 1,position,outWord : inc position,2
next x

open to write 1,name$+".wav"
make file from memblock 1,1
close file 1

if sound exist(soundnumber)=1 then delete sound soundnumber

if soundtype
    load 3dsound name$+".wav", soundnumber
else
    load sound name$+".wav", soundnumber
endif
`wave file not needed
if file exist(name$+".wav")=1 then delete file name$+".wav"
` memblock no longer required
delete memblock 1

endfunction