Sorry your browser is not supported!

//  //  //  //  //  //  //  //  //  //
// 'Tis Christmas time, joy to all!                   //
// But unto you: buggery befall!                      //
// I've gone and knocked you off the sleigh,          //
// A thousand miles down the way,                     //
// And now you'll haul your ass through sky,          //
// Lest you disappoint and children die!              //
// Use the mouse to guide giftly body,                //
// Through perils treacherous, and not oddly:         //
// Lose your lives and destiny undone!                //
// Merry blethering Christmas, everyone.              //
//  //  //  //  //  //  //  //  //  //
// MONOCODER/ THOMAS KNOWLES                          //
// 2007 MINIMAL MEDIA CHRISTMAS CODING CHALLENGE      //
// PRESENT FLYING GUIDING, uh, DRAGGING... game. Yeah.//
// Started: 18th Dec 2007; Finished: 6th Jan 2008.    //
//  //  //  //  //  //  //  //  //  //

sync on
sync rate 0
set display mode 800, 600, 32
`hide mouse                     // hide it if you want.


rem display globals
global sw as integer : sw = screen width()
global sh as integer : sh = screen height()
rem setup input data
global mx as integer = 0 : mx = mousex()
global my as integer = 0 : my = mousey()
global mc as boolean = 0
global mh as boolean = 0
rem setup object indexes
global pl_obj as integer = 1
global pltrail_obj as integer = 2
global bgrnd_obj as integer = 6
global fgrnd_obj as integer = 8
global mouse_obj as integer = 10
global level_barrobj as integer = 12
global level_rootobj as integer = 14
global level_noroot as integer = 10
global level_obj as integer = level_rootobj + level_noroot
rem setup level globals
global level_grav as float = 0.001
rem camera globals
global camx as float = 0
global camdefaultspeed as float = 0.18
global camspeed as float = camdefaultspeed
global camevent as boolean = 0
global cameventtime as float = 0
global checkpoint as integer = -1
rem message globals
global messagestring as string = ""
global messageevent as boolean = 0
global messageeventtime as float = 0
rem "flash" sprite globals
global flashevent as boolean = 0
global flashcolor as integer = rgb( 255, 255, 255 )
global flashstrength as float = 0
global flashlength as float = 0
global flashtimeleft as float = 0



REM IMAGES
rem foreground snow
cls 0
ink rgb( 255, 255, 255 ), 0
for n = 1 to 180
    r = 2 + rnd( 4 )
    x = rnd( sw )
    y = rnd( sh )
    filledcircle( x, y, r )
    rem ensure seamless texture by completing snow drawn on edges
    if x - r < 0 or y - r < 0 or x + r > sw or y + r > sh
        ox = x
        oy = y
        if x - r < 0 or x + r > sw
            if x - r < 0
                x = sw + x
            else
                if x + r > sw then x = x - sw
            endif
            filledcircle( x, y, r )
        endif
        x = ox
        y = oy
        if y - r < 0 or y + r > sh
            if y - r < 0
                y = sh + y
            else
                if y + r > sh then y = y - sh
            endif
            filledcircle( x, y, r )
        endif
        x = ox
        y = oy
        if ( x - r < 0 or x + r > sw ) and ( y - r < 0 or y + r > sh )
            if x - r < 0
                x = sw + x
            else
                if x + r > sw then x = x - sw
            endif
            if y - r < 0
                y = sh + y
            else
                if y + r > sh then y = y - sh
            endif
            filledcircle( x, y, r )
        endif
    endif
next n
get image 1, 0, 0, sw, sh, 0

rem mouse
cls 0
ink rgb( 255, 255, 255 ), 0 : filledcircle( 256, 256, 256 )
ink 0, 0                    : filledcircle( 256, 256, 192 )
get image 2, 0, 0, 512, 512, 0

rem obstacle textures
for n = 0 to level_noroot
    cls rgb( rnd( 24 ), 96 + rnd( 128 ), 192 + rnd( 63 ) )
    ink rgb( rnd( 24 ), 96 + rnd( 128 ), 192 + rnd( 63 ) ), 0
        lock pixels
        for o = 1 to 100
            dot rnd( 31 ), rnd( 31 )
        next o
        unlock pixels
    get image n + 3, 0, 0, 31, 31
next n

rem checkpoint texture
cls 0
ink rgb( 255, 255, 0 ), 0
for y = 1 to 128
    x = 32 + ( cos( ( 360.0 / 24.0 ) * y ) * 16 )
    line x - 16, y, x + 16, y
next y
get image level_noroot + 4, 0, 0, 64, 128

rem top/bottom barriers
cls 0
ink rgb( 0, 96, 0 ), 0
for x = 0 to 512 step 2
    y = 32 + ( sin( ( 360.0 / 12.0 ) * x ) * 16 )
    line x, y - 16, x, y + 16
    line x + 1, 0, x + 1, 64
next y
get image level_noroot + 5, 0, 0, 512, 64

rem flash image
cls rgb( 255, 255, 255 )
get image level_noroot + 6, 0, 0, 1, 1
`sync : sync
`wait 1000




REM ENVIRONMENT/CAMERA
backdrop on
color backdrop rgb( 8, 0, 24 )
autocam off
set camera fov 77.4
set camera range 0.01, 140
set text font "arial"
set text to bold
set text size 30


REM FLASH SPRITE
sprite 1, 0, 0, level_noroot + 6
size sprite 1, sw, sh
set sprite alpha 1, 0
hide sprite 1

rem LEVEL
type level_type
    startx as integer
    starty as integer
    x as float
    y as float
    xv as float
    yv as float
    ax as float
    ay as float
    az as float
    spindelay as float
    spinangle as float
    instantkill as boolean
    cameventtriggered as boolean
    cameventspeed as float
    cameventtime as float
    messagestring as string
    messageeventtriggered as boolean
    messageeventtime as float
    exclude as boolean
    class as integer
endtype
dim level( -1 ) as level_type
rem make temporary roots
for n = level_rootobj to level_rootobj + level_noroot
    make_object_level( n, n - level_rootobj + 3 )
next n
level_create()
rem "delete" temporary roots
for n = level_rootobj to level_rootobj + level_noroot
    hide object n
    exclude object on n
next n
`make_object_level( 15 )
`make_object_level( 16 )
`position object 14, -7 * 4, -5 * 4, 30
`position object 15, 0 * 4, 0 * 4, 30
`position object 16, 7 * 4, 5 * 4, 30

REM LEVEL BARRIERS
for n = 0 to 1
    obj = level_barrobj + n
    make object plain obj, 68, 2.8
    texture object obj, level_noroot + 5
    set object transparency obj, 0
    set object light obj, 0
    if n = 0
        position object obj, 0, -23, 30.4
        xrotate object obj, 15
    else
        position object obj, 0, 23, 30.4
        xrotate object obj, 345
    endif
next n

REM PLAYER
global pl_x as float = 0
global pl_y as float = 0
global pl_z as float = 30.0
global pl_xv as float = 0
global pl_yv as float = 0
global pl_life as integer = 3
global pl_hitdelay as float = 0
global pl_chances as integer = 5
load object "gift01.x", pl_obj
scale object pl_obj, 2, 2, 2
position object pl_obj, pl_x, pl_y, pl_z
make object collision box pl_obj, -2, -2, -2, 2, 2, 2, 0
`show object bounds pl_obj, 1

REM FOREGROUND SNOW
for n = 0 to 0`1
    make object plain fgrnd_obj + n, 6.4, 4.8 `0.8, 0.6
    position object fgrnd_obj + n, 0, 0, 0.720 + ( n / 50.0 ) `0.360 + ( n / 100.0 )
    xrotate object fgrnd_obj + n, 358
    set object transparency fgrnd_obj + n, 1
    texture object fgrnd_obj + n, 1
    scale object texture fgrnd_obj + n, ( n + 1 ) * 4.0, ( n + 1 ) * 4.0
    set object light fgrnd_obj + n, 0
    set object ambient fgrnd_obj + n, 0
    ghost object on fgrnd_obj + n
    `exclude object on fgrnd_obj + n
next n

REM MOUSE
global m_hold as boolean = 0
global m_holdx as float = 0
global m_holdy as float = 0
global m_radius as float = 0
global m_x as float = 0
global m_y as float = 0
for n = 0 to 0`3
    make object plain mouse_obj + n, 1, 1
    set object transparency mouse_obj + n, 1
    texture object mouse_obj + n, 2
    set object light mouse_obj + n, 0
    set object ambient mouse_obj + n, 0
    ghost object on mouse_obj + n
next n

rem prepare timing
init_time()

do

    rem update input/time
    update_time()
    mx = mousex()
    my = mousey()
    mh = mc
    mc = ( mouseclick() > 0 )
    
    rem control mouse
    if mc = 1
        if mh = 0
            m_hold = 1
            m_holdx = mx
            m_holdy = my
        endif
        m_x = mx `m_holdx
        m_y = my `m_holdy 
        `m_radius = sqrt( ( ( mx - m_holdx ) ^ 2.0 ) + ( ( my - m_holdy ) ^ 2.0 ) ) / 2.0
        `if m_radius < ( 200.0 / 18.0 ) then m_radius = ( 200.0 / 18.0 )
        `if m_radius > ( 1200.0 / 18.0 ) then m_radius = ( 1200.0 / 18.0 )
        m_radius = cap( m_radius + ( 5.0 * gdtime ), 1, 400.0 / 18.0, 1, 1200.0 / 18.0 )
    else
        if mh = 1
            m_hold = 0
            m_radius = 0
        endif
        m_x = mx
        m_y = my
    endif
    
    rem update mouse object
    if m_hold = 0
        scale object mouse_obj, 200, 200, 100
    else
        scale object mouse_obj, m_radius * 18.0, m_radius * 18.0, 100
    endif
    position object mouse_obj, m_xpos(), m_ypos(), 30


    REM CONTROL PLAYER
    rem pull towards mouse if held
    remstart
    if m_hold = 1
        dist = 10 - ( sqrt( ( ( pl_x - m_xpos() ) ^ 2.0 ) + ( ( pl_y - m_ypos() ) ^ 2.0 ) ) / 2 )
        if dist > 0
            ang  = 270 - atanfull( pl_x - m_xpos(), pl_y - m_ypos() )
            pl_xv = pl_xv + ( cos( ang ) * ( m_radius * ( 0.001 * gdtime ) ) )
            pl_yv = pl_yv + ( sin( ang ) * ( m_radius * ( 0.001 * gdtime ) ) )
        endif
    endif
    remend
    
    if m_hold = 1
        ang#  = wrapvalue( 270 - atanfull( pl_x - m_xpos(), pl_y - m_ypos() ) )
        dist# = sqrt( ( ( m_xpos() - pl_x ) ^ 2 ) + ( ( m_ypos() - pl_y ) ^ 2 ) )
        if dist# =< 300.0
            pull# = ( 0.04 / 300.0 ) * dist# * ( ( m_radius ^ 1.6 ) / 30.0 )
        else
            pull# = 0.0
        endif
        if pull# > 0
            pl_xv = cap( pl_xv + ( cos( ang# ) * ( pull# * gdtime ) ), 1, -0.9, 1, 0.9 )
            pl_yv = cap( pl_yv + ( sin( ang# ) * ( pull# * gdtime ) ), 1, -0.9, 1, 0.9 )
            if dist# => 1.0 and dist# < ( m_radius / 5.0 )
                `pl_xv = pl_xv / ( divtomul( 1.0002 ) * gdtime )
                `pl_yv = pl_yv / ( divtomul( 1.0002 ) * gdtime )
                `pl_xv = pl_xv / ( 1.02 * gdtime )
                `pl_yv = pl_yv / ( 1.02 * gdtime )
                pl_xv = pl_xv - ( pl_xv * ( 0.04 * gdtime ) )
                pl_yv = pl_yv - ( pl_yv * ( 0.04 * gdtime ) )
            endif
        endif
    endif
    
    rem apply gravity
    dec pl_yv, level_grav * gdtime
    
    rem update position
    inc pl_x, pl_xv
    inc pl_y, pl_yv
    pl_x = cap( pl_x, 1, -32, 1, 32 )
    pl_y = cap( pl_y, 1, -20, 1, 20 )
    `if spacekey() = 1 then pl_x = 0 : pl_y = 0 : pl_xv = 0 : pl_yv = 0
    
    
    REM CONTROL LEVEL
    for n = 0 to array count( level( 0 ) )
        level( n ).x = level( n ).x - ( camspeed * gdtime )
        if level( n ).x => 35
            level( n ).spindelay = 0 : level( n ).spinangle = 0
            level( n ).exclude = 1
            if level( n ).class = 7 and level( n ).x < 50 then level( n ).exclude = 0
        else
            if level( n ).x => -40 then level( n ).exclude = 0 else level( n ).exclude = 1
        endif
        if level( n ).exclude = 0
            if level( n ).class < 4
                level( n ).spindelay = level( n ).spindelay - gdtime
                if level( n ).spindelay =< 0
                    level( n ).spindelay = 60 - level( n ).spindelay
                    level( n ).spinangle = 8
                endif
                if level( n ).spinangle > 0
                    level( n ).ay = level( n ).ay + level( n ).spinangle
                    level( n ).spinangle = level( n ).spinangle - ( 0.3 * gdtime )
                    if level( n ).spinangle < 0 then level( n ).spinangle = 0
                endif
            endif
            if level( n ).class = 4
                if pl_x => level( n ).x
                    if checkpoint = -1
                        checkpoint = n
                    else
                        if level( checkpoint ).x < level( n ).x
                            checkpoint = n
                            if level( n ).startx > 24 then flash( 1200, 48, 255, 255, 0 )  //flash only if beyond the first section
                        endif
                    endif
                endif
            endif
            if level( n ).class = 5
                if level( n ).cameventtriggered = 0 and level( n ).x =< -28
                    level( n ).cameventtriggered = 1
                    camevent = 1
                    cameventtime = level( n ).cameventtime
                    camspeed = level( n ).cameventspeed
                endif
            endif
            if level( n ).class = 6
                if level( n ).messageeventtriggered = 0 and level( n ).x =< -28
                    level( n ).messageeventtriggered = 1
                    messagestring = level( n ).messagestring
                    messageevent = 1
                    messageeventtime = level( n ).messageeventtime
                endif
            endif
            if level( n ).class = 7
                if level( n ).x < 0 then level( n ).x = 0
                dist# = sqrt( ( ( level( n ).x - pl_x ) ^ 2 ) + ( ( level( n ).y - pl_y ) ^ 2 ) )
                if dist# =< 8 then game_end()
            endif
        endif
    next n
    
    rem check for player hit
    hit = -1
    for n = 0 to array count( level( 0 ) )
        if level( n ).exclude = 0
            if level( n ).class = 1
                if object collision( pl_obj, level_obj + n ) <> 0
                    pl_xv = - get object collision x() / 1.2
                    pl_yv = - get object collision y() / 1.2
                    pl_x = pl_x + ( pl_xv * 1.2 ) - ( camspeed * ( pl_x < level( n ).x ) * 2.0 )
                    pl_y = pl_y + ( pl_yv * 1.2 )
                    hit = n
                endif
            endif
        endif
    next n
    if hit > -1` and controlkey() = 0
        if pl_hitdelay = 0 or pl_x < -31 or level( hit ).instantkill = 1
            dec pl_life
            if pl_life = 0 or pl_x < -31 or level( hit ).instantkill = 1
                flash( 1000, 223, 255, 255, 255 )
                pl_die()
            else
                flash( 500, 96, 128, 24, 0 )
                pl_hitdelay = 1000
            endif
        endif
    endif
    if pl_hitdelay > 0
        dec pl_hitdelay, dtime
        if pl_hitdelay < 0 then pl_hitdelay = 0
    endif
    
    
    rem update player object
    position object pl_obj, pl_x, pl_y, pl_z
    
    rem update level objects
    for n = 0 to array count( level( 0 ) )
        obj = level_obj + n
        if level( n ).class <> 5
            if level( n ).exclude = 1 then exclude object on obj else exclude object off obj
            if level( n ).class = 1
                position object obj, level( n ).x, level( n ).y, object position z( obj )
                rotate object obj, level( n ).ax, level( n ).ay, level( n ).az
            endif
            if level( n ).class = 4
                position object obj, level( n ).x, 0, object position z( obj )
                scroll object texture obj, - 0.04 * gdtime, 0
            endif
            if level( n ).class = 7
                position object obj, level( n ).x, level( n ).y, object position z( obj )
            endif
        endif
    next n
    
    rem update foreground snow and level barriers
    for n = 0 to 1
        if n = 0 then scroll object texture fgrnd_obj + n, ( camspeed * 0.018 ) * gdtime, -0.007 * gdtime
        scroll object texture level_barrobj + n, ( camspeed * 0.036 ) * gdtime, 0
    next n
    
    rem control camera
    camx = camx + ( camspeed * gdtime )
    if camevent = 1
        dec cameventtime, dtime
        if cameventtime =< 0
            camspeed = camdefaultspeed
            camevent = 0
        endif
    endif
    
    rem control messages
    if messageevent = 1
        dec messageeventtime, dtime
        if messageeventtime =< 0
            messageevent = 0
        endif
    endif
    
    rem control flash sprite
    if flashevent = 1
        flashtimeleft = flashtimeleft - dtime
        if flashtimeleft > 0
            set sprite alpha 1, ( flashstrength / flashlength ) * flashtimeleft
        else
            flashevent = 0
        endif
        paste sprite 1, 0, 0
    endif
    
    lock pixels
        rem health
        temp = cos( time / 4.0 ) * 127
        a = 128 - temp
        b = 128 + temp
        ink rgb( a, a, a ), 0 : box 0,  583, 130, 600
        ink rgb( b, b, b ), 0 : box 1,  584, 129, 599
        if pl_life <> 0
            ink rgb( 255, 0, 0 ), 0 : box 2,  585,  44, 598
            if pl_life <> 1
                ink rgb( 255, 128, 0 ), 0 : box 45, 585,  86, 598
                if pl_life = 3 then ink rgb( 0, 255, 0 ), 0 : box 87, 585, 128, 598
            endif
        endif
        rem life
        ink rgb( 223, 255, 255 ), 0
        for n = 1 to pl_chances
            filledcircle( 10 + ( ( n - 1 ) * 18 ), 572, 8 )
        next n
    unlock pixels
    
    rem stats
    set cursor 0, 0
    ink rgb( 255, 255, 255 ), 0
    print screen fps()
    if camevent = 1
        if cameventtime < 1000 then ink rgb( 255, 128, 0 ), 0
        center text 400, 538, str$( 1 + int( cameventtime / 1000 ) )` + ":" + right$( str$( int( cameventtime ) ), len( str$( int( cameventtime ) ) ) - 3 )
    endif
    if messageevent = 1 then ink rgb( 223, 255, 255 ), 0 : center text 400, 568, messagestring

sync
loop





function m_xpos()
    local null as float
    null = ( m_x - ( sw / 2 ) ) / 12.5
endfunction null


function m_ypos()
    local null as float
    null = 0 - ( m_y - ( sh / 2 ) ) / 12.5
endfunction null



function pl_die()
    rem reset neccessary variables
    dec pl_chances, 1
    if pl_chances = 0 then game_over()
    pl_x = 0
    pl_y = 0
    pl_xv = 0
    pl_yv = 0
    camspeed = 0
    camevent = 1
    cameventtime = 1000
    pl_life = 3
    rem reset level
    x = level( checkpoint ).startx
    for n = 0 to array count( level( 0 ) )
        level( n ).x = level( n ).startx - x
        level( n ).y = level( n ).starty
        if level( n ).class = 5
            if level( n ).startx => x - 28 then level( n ).cameventtriggered = 0
        endif
        if level( n ).class = 6
            if level( n ).startx => x then level( n ).messageeventtriggered = 0
        endif
    next n
endfunction



function game_end()
    flash( 225, 160, 255, 96, 255 )
    ink 0, 0
    temp = 4000
    repeat
        update_time()
        temp = temp - dtime
        paste sprite 1, 0, 0
        center text sw / 2, ( sh / 2 ) - 15, "WIN!"
        sync
    until temp =< 0
    end
endfunction



function game_over()
    flash( 225, 223, 0, 0, 0 )
    ink rgb( 255, 255, 255 ), 0
    temp = 4000
    repeat
        update_time()
        temp = temp - dtime
        paste sprite 1, 0, 0
        center text sw / 2, ( sh / 2 ) - 15, "GAME OVER!"
        sync
    until temp =< 0
    end
endfunction



function flash( time as float, strength as integer, r as integer, g as integer, b as integer )
    flashevent = 1
    flashcolor = rgb( r, g, b )
    flashstrength = cap( strength, 1, 0, 1, 255 )
    flashlength = time
    flashtimeleft = time
    set sprite diffuse 1, r, g, b
    set sprite alpha 1, strength
endfunction



function divtomul( divisor as float )
    local null as float
    null = 1.0 / divisor
endfunction null


function cap( value as float, lf as boolean, l as float, uf as float, u as float )
    if lf = 1
        if value < l then value = l
    endif
    if uf = 1
        if value > u then value = u
    endif
endfunction value



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

   ` Precalculate the square of the radius - this is the hypotenuse
   i=R*R

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

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

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

      ` Draw top and bottom
      box CX-x, CY-y, CX+x+1, CY-y+1
      box CX-x, CY+y, CX+x+1, CY+y+1

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



function init_time()
   global starttime as float = 0                      rem initialise timer (just before loop)
   global startpausetime as float = 0                 rem the time for this pause
   global paused as boolean = 0                       rem pause flag
   global pausetime as float = 0                      rem current pause duration
   global totalpausetime as float = 0                 rem the total time for all pauses
   global time as float = 0                           rem current time
   global dtime as float = 0                          rem actual change in time
   global gdtime as float = 0                         rem game applicable dtime
   global otime as float = 0                          rem time on previous loop
   starttime = timer()
endfunction


function update_time()
   if paused = 0
      time = ( timer() - starttime - pausetime - totalpausetime )
      dtime = time - otime
      gdtime = dtime / 15.0
      otime = time
   else
      pausetime = timer() - startpausetime
   endif
endfunction


function pause_time( flag as boolean )
   if flag = 0 and paused = 1
      paused = 0
   else
      if paused = 0
         paused = 1
         totalpausetime = totalpausetime + pausetime
         startpausetime = timer()
      endif
   endif
endfunction



function level_create()
    rem move data pointer to level layout list
    restore level_layout
    
    rem variables
    local obj as integer
    local index as integer
    local readx as integer
    local ready as integer
    local readspeed as integer
    local readrowno as integer
    local readcolno as integer
    local readinstantkill as boolean
    local readspawntype as boolean
    local readspawnareax1 as integer
    local readspawnareax2 as integer
    local readspawnmaxdist as integer
    local readspawnmindist as integer
    local readrespawnable as integer
    local readcameventspeed as float
    local readcameventtime as float
    local readmessagestring as string
    
    obj = level_obj - 1
    
    do
        rem read object type
        read temp
        
        rem create object
        if temp <> 0
        
            rem general setup
            read readx : readx = readx * 4.0
            if temp < 4
                read ready : ready = ready * 4.0
                read readrowno
                read readcolno
                if temp = 1 then read readinstantkill
            else
                ready = 0
                readrowno = 1
                readcolno = 1
                if temp = 7 then read ready
            endif
            
            for x = 1 to readrowno
                dec ready, 4 * readcolno
                for y = 1 to readcolno
                
                    index = level_new_index()
                    inc obj
                    level( index ).startx = readx
                    level( index ).starty = ready
                    level( index ).x = readx
                    level( index ).y = ready
                    level( index ).class = temp
                
                    rem stationary obstacle
                    if temp = 1
                        rootobj = level_rootobj + rnd( level_noroot - 1 )
                        instance object obj, rootobj
                        position object obj, level( index ).x, level( index ).y, 30.0
                        level( index ).instantkill = readinstantkill
                        `texture object obj, rootobj - level_rootobj + 3
                        `make object collision box obj, -2.4, -2.4, -2.4, 2.4, 2.4, 2.4, 0
                        `show object bounds obj, 1
                    endif
                    
                    rem falling obstacle
                    if temp = 2
                    endif
            
                    rem flying obstacle
                    if temp = 3
                    endif
                    
                    rem checkpoint
                    if temp = 4
                        make object plain obj, 8.08, 52
                        position object obj, level( index ).x, 0, 30
                        `ghost object on obj
                        texture object obj, level_noroot + 4
                        scale object texture obj, 2, 1
                        set object transparency obj, 1
                        set object light obj, 0
                    endif
                    
                    rem scroll start/stopper
                    if temp = 5
                        read readcameventspeed
                        read readcameventtime
                        level( index ).cameventspeed = readcameventspeed
                        level( index ).cameventtime = readcameventtime
                    endif
                    
                    rem message
                    if temp = 6
                        read readmessagestring
                        read readmessageeventtime
                        level( index ).messagestring = readmessagestring
                        level( index ).messageeventtime = readmessageeventtime
                    endif
                    
                    rem end
                    if temp = 7
                        make object sphere obj, 16, 64, 64
                        color object obj, rgb( 255, 0, 255 )
                        position object obj, level( index ).x, level( index ).y, 30
                        ghost object on obj
                    endif
                    
                    inc ready, 4
                    
                next y
                inc readx, 4
            next x
            
        else
            rem end of level
            exit
        endif
    loop
endfunction


function level_new_index()
    array insert at bottom level( 0 )
    index = array count( level( 0 ) )
endfunction index


function make_object_level( obj as integer, texture as integer )
    make object sphere obj, 4, 24, 24 `36, 36
    null = make vector3( v )
    cosang# = 0
    lock vertexdata for limb obj, 0
        for n = 1 to get vertexdata vertex count()
            x# = get vertexdata position x( n )
            y# = get vertexdata position y( n )
            z# = get vertexdata position z( n )
            set vector3 v, x#, y#, z#
            scale vector3 v, v, 0.5 + ( cos( cosang# ) * ( rnd( 100 ) / 100.0 ) ) : cosang# = cosang# + 30
            set vertexdata position n, x vector3( v ), y vector3( v ), z vector3( v )
        next n
    unlock vertexdata
    null = delete vector3( v )
    texture object obj, texture
    set object light obj, 0
    make object collision box obj, -2.5, -2.5, -2.5, 2.5, 2.5, 2.5, 0
    `show object bounds obj, 1
    `position object obj, 0, 0, 30.0
endfunction



level_layout:
// first number is object type. spawntype: 0-area(x1,x2), 1-distance(dist).
// screen size: x: -7 to 7 (15col);  y: 6 to -4 (11row)
// screen changer: slows once when leave screen to the left, then start again when timer counts down.
// 0 - no more objects in level.
// 1 - stationary obstacle  ( x, y, rowno, colno, instantkill                                                                 ) - black/blue OR grey/lighter blue
// 2 - falling obstacle     ( x, y, rowno, colno, speed,       spawntype, spawndelay, spawnareax1,  spawnareax2,  respawnable )
//                          ( x, y, rowno, colno, speed,       spawntype, spawndelay, spawnmaxdist, spawnmindist, respawnable )
// 3 - flying obstacle      ( x, y, rowno, colno, speed, life, spawntype, spawndelay, spawnareax1,  spawnareax2,  respawnable )
//                          ( x, y, rowno, colno, speed, life, spawntype, spawndelay, spawnmaxdist, spawnmindist, respawnable )
// 4 - checkpoint           ( x                                                                                               ) - yellow
// 5 - scroll stop/starter  ( x, speed, time                                                                                  ) - green
// 6 - message              ( x, message, time                                                                                ) - turquoise
// 7 - end                  ( x, y                                                                                            ) - green


// stationary obstacles
rem part1
    data 1,    14,   6,    1,    3,    0
    data 1,    14,  -2,    1,    3,    0
    data 1,    15,  -2,    7,    1,    0
    data 1,    15,   4,    7,    1,    0
    data 1,    22,   6,    1,    3,    0
    data 1,    22,  -2,    1,    3,    0
    data 1,    23,  -4,   12,    1,    0
    data 1,    23,   6,    7,    1,    0
    data 1,    30,   6,    1,    3,    0
    data 1,    31,   4,    1,    1,    0
    data 1,    32,   4,    1,    3,    0
    data 1,    33,   2,    2,    1,    0
    data 1,    34,   1,    2,    1,    0
    data 1,    36,   6,    2,    6,    0
    data 1,    34,  -3,    2,    1,    0
    data 1,    36,  -3,    2,    2,    0
rem part2
    data 1,    43,   6,    2,    4,    0
    data 1,    43,  -1,    2,    4,    0
    data 1,    45,   3,    4,    1,    0
    data 1,    54,   3,    9,    1,    0
    data 1,    68,   3,    7,    1,    0
    data 1,    48,   2,    3,    1,    0
    data 1,    52,   2,    3,    1,    0
    data 1,    62,   2,    3,    1,    0
    data 1,    66,   2,    3,    1,    0
    data 1,    50,   1,    3,    1,    0
    data 1,    64,   1,    1,    1,    0
    data 1,    66,   1,    1,    1,    0
    data 1,    78,   1,    3,    1,    0
    data 1,    57,   0,    3,    1,    0
    data 1,    64,   0,    3,    1,    0
    data 1,    76,   0,    3,    1,    0
    data 1,    45,  -1,    2,    1,    0
    data 1,    56,  -1,    2,    1,    0
    data 1,    59,  -1,    2,    1,    0
    data 1,    70,  -1,    7,    1,    0
    data 1,    46,  -2,    3,    1,    0
    data 1,    54,  -2,    3,    1,    0
    data 1,    60,  -2,    2,    1,    0
    data 1,    68,  -2,    3,    1,    0
    data 1,    48,  -3,    7,    1,    0
    data 1,    61,  -3,    8,    1,    0
    data 1,    74,   4,    3,    1,    0
    data 1,    76,   5,    5,    1,    0
    data 1,    81,   6,    2,    2,    0
    data 1,    81,   1,    2,    6,    0
rem part3
    data 1,    88,   6,    2,    6,    0
    data 1,    88,  -3,    2,    2,    0
    data 1,    90,   1,    2,    1,    0
    data 1,    90,  -3,    2,    1,    0
    data 1,    92,   6,    2,    6,    0
    data 1,    92,  -3,    2,    2,    0
rem part4
    data 1,    99,   6,    2,    3,    0
    data 1,    99,   0,    2,    5,    0
    data 1,    101,  4,    4,    1,    0
    data 1,    111,  4,    3,    1,    0
    data 1,    104,  3,    2,    1,    0
    data 1,    110,  3,    2,    1,    0
    data 1,    105,  2,    2,    1,    0
    data 1,    109,  2,    2,    1,    0
    data 1,    106,  1,    4,    1,    0
    data 1,    101,  0,    2,    1,    0
    data 1,    113,  0,    1,    1,    0
    data 1,    102, -1,    2,    1,    0
    data 1,    112, -1,    2,    1,    0
    data 1,    103, -2,    2,    1,    0
    data 1,    111, -2,    2,    1,    0
    data 1,    104, -3,    8,    1,    0
    data 1,    114,  6,    2,    3,    0
    data 1,    114,  0,    2,    5,    0
rem part5
    data 1,    121,  6,    2,    2,    0
    data 1,    121,  1,    2,    6,    0
    data 1,    123,  6,    6,    1,    0
    data 1,    129,  6,    1,    2,    0
    data 1,    123,  1,    2,    1,    0
    data 1,    124,  2,    3,    1,    0
    data 1,    126,  3,    1,    1,    0
    data 1,    123, -3,    1,    1,    0
    data 1,    123, -4,    9,    1,    0
    data 1,    127, -1,    3,    1,    0
    data 1,    129,  0,    1,    1,    0
    data 1,    130,  6,    2,    8,    0
rem part6
    data 1,    137,  6,    2,    3,    0
    data 1,    137, -1,    2,    4,    0
    data 1,    141,  6,    2,    7,    0
    data 1,    145,  2,    2,    7,    0
    data 1,    149,  6,    2,    8,    0
    data 1,    153,  3,    2,    8,    0
    data 1,    157,  6,    2,    9,    0
    data 1,    161,  6,    4,    1,    0
    data 1,    162,  5,    3,    1,    0
    data 1,    163,  4,    2,    1,    0
    data 1,    164,  3,    1,    1,    0
    data 1,    164, -1,    1,    1,    0
    data 1,    163, -2,    2,    1,    0
    data 1,    162, -3,    3,    1,    0
    data 1,    161, -4,    4,    1,    0
rem part7
    data 1,    165,  6,    2,    4,    0
    data 1,    165, -1,    2,    4,    0
    data 1,    167, -1,    2,    1,    0
    data 1,    169, -1,    1,    4,    0
    data 1,    167,  3,    3,    1,    0
    data 1,    169,  4,    2,    1,    0
    data 1,    170,  5,    2,    1,    0
    data 1,    171,  6,    2,    1,    0
    data 1,    175,  6,    2,    4,    0
    data 1,    180,  6,    2,    4,    0
    data 1,    185,  6,    2,    4,    0
    data 1,    175, -3,    2,    2,    0
    data 1,    180, -3,    2,    2,    0
    data 1,    185, -3,    2,    2,    0
    data 1,    175,  2,    1,    1,    0
    data 1,    185,  2,    1,    1,    0
    data 1,    180, -2,    1,    1,    0
    data 1,    173,  0,    1,    1,    0
    data 1,    178,  0,    1,    1,    0
    data 1,    183,  0,    1,    1,    0
    data 1,    188,  0,    1,    1,    0
    data 1,    177, -1,    2,    1,    0
    data 1,    182,  1,    2,    1,    0
    data 1,    187, -1,    2,    1,    0
    data 1,    191,  6,    1,    2,    0
    data 1,    191, -3,    1,    2,    0
    data 1,    191,  4,    3,    1,    0
    data 1,    191, -2,    3,    1,    0
    data 1,    193,  3,    3,    1,    0
    data 1,    193, -1,    3,    1,    0
    data 1,    195,  4,    2,    1,    0
    data 1,    195, -2,    2,    1,    0
    data 1,    196,  5,    3,    1,    0
    data 1,    196, -3,    3,    1,    0
    data 1,    198,  4,    2,    1,    0
    data 1,    198, -2,    2,    1,    0
    data 1,    199,  3,    3,    1,    0
    data 1,    199, -1,    3,    1,    0
    data 1,    201,  4,    3,    1,    0
    data 1,    201, -2,    3,    1,    0
    data 1,    203,  5,    4,    1,    0
    data 1,    203, -3,    4,    1,    0
    data 1,    203,  6,   12,    1,    0
    data 1,    203, -4,   12,    1,    0
    data 1,    204,  1,    3,    1,    0
    data 1,    207,  2,    2,    3,    0
    data 1,    209,  3,    3,    5,    0
    data 1,    212,  1,    1,    1,    0
    data 1,    215,  6,    2,    4,    0
    data 1,    215, -1,    2,    4,    0
rem part8
    data 1,    222,  6,    2,    4,    0
    data 1,    222, -1,    2,    4,    0
    data 1,    224,  3,    3,    1,    0
    data 1,    224, -1,    7,    1,    0
    data 1,    227,  5,    1,    3,    0
    data 1,    227,  6,   14,    1,    0
    data 1,    231,  3,    2,    1,    0
    data 1,    231,  2,    1,    6,    0
    data 1,    231, -4,   10,    1,    0
    data 1,    235, -1,    2,    1,    0
    data 1,    236,  5,    1,    6,    0
    data 1,    240,  5,    1,    2,    0
    data 1,    240, -1,    1,    3,    0
    data 1,    240,  3,    6,    1,    0
    data 1,    240,  0,    6,    1,    0
    data 1,    245,  5,    1,    2,    0
    data 1,    245, -1,    1,    3,    0
    data 1,    245,  6,   12,    1,    0
    data 1,    245, -4,   42,    1,    0
    data 1,    249,  4,    8,    1,    0
    data 1,    249,  2,    8,    1,    0
    data 1,    249,  0,    8,    1,    0
    data 1,    249, -2,   10,    1,    0
    data 1,    249,  3,    1,    1,    0
    data 1,    249, -1,    1,    1,    0
    data 1,    256,  5,    1,    1,    0
    data 1,    256,  1,    1,    1,    0
    data 1,    258,  5,    1,    7,    0
    data 1,    258,  6,   29,    1,    0
    data 1,    259,  3,    1,    1,    0
    data 1,    259, -1,    1,    1,    0
    data 1,    262,  3,    1,    1,    0
    data 1,    262, -1,    1,    1,    0
    data 1,    264,  4,    1,    1,    0
    data 1,    264,  1,    1,    3,    0
    data 1,    264, -3,    1,    1,    0
    data 1,    266,  3,    1,    1,    0
    data 1,    266, -1,    1,    1,    0
    data 1,    269,  3,    3,    1,    0
    data 1,    269, -1,    1,    1,    0
    data 1,    270,  2,    1,    6,    0
    data 1,    276,  4,    6,    2,    0
    data 1,    281,  2,    1,    6,    0
    data 1,    285,  5,    1,    2,    0
    data 1,    285, -2,    1,    2,    0
    data 1,    285,  3,   11,    1,    0
    data 1,    285, -1,   11,    1,    0
    data 1,    296,  6,    2,    4,    0
    data 1,    296, -1,    2,    4,    0
    data 1,    288,  6,    1,    2,    0
    data 1,    288, -3,    1,    2,    0
    data 1,    290,  6,    2,    2,    0
    data 1,    290, -3,    2,    2,    0
    data 1,    293,  6,    2,    2,    0
    data 1,    293, -3,    2,    2,    0
    data 1,    295,  5,    1,    1,    0
    data 1,    295, -3,    1,    1,    0
rem part9
    data 1,    303,  6,    2,    4,    0
    data 1,    303,  0,    2,    5,    0
    data 1,    305,  5,   40,    1,    0
    data 1,    305, -3,   49,    1,    0
    data 1,    305,  4,   18,    1,    0
    data 1,    305,  3,   14,    1,    0
    data 1,    311,  2,    4,    1,    0
    data 1,    305,  0,    2,    1,    0
    data 1,    305, -1,    6,    1,    0
    data 1,    305, -2,   15,    1,    0
    data 1,    315, -1,    5,    1,    0
    data 1,    319,  0,    1,    1,    0
    data 1,    322,  1,    5,    1,    0
    data 1,    322,  0,    9,    1,    0
    data 1,    323, -1,   12,    1,    0
    data 1,    327,  4,   19,    1,    0
    data 1,    331,  3,   16,    1,    0
    data 1,    335,  2,    4,    1,    0
    data 1,    339, -1,    6,    1,    0
    data 1,    338, -2,    8,    1,    0
    data 1,    346,  2,    2,    1,    0
    data 1,    347,  1,    2,    1,    0
    data 1,    348,  0,    3,    1,    0
    data 1,    350,  1,    2,    1,    0
    data 1,    351,  2,    2,    1,    0
    data 1,    352,  3,    2,    1,    0
    data 1,    353,  4,    2,    1,    0
    data 1,    354,  5,    8,    1,    0
    data 1,    361,  4,    2,    1,    0
    data 1,    362,  3,    2,    1,    0
    data 1,    363,  2,    4,    1,    0
    data 1,    353, -2,    2,    1,    0
    data 1,    354, -1,    2,    1,    0
    data 1,    355,  0,    2,    1,    0
    data 1,    356,  1,    4,    1,    0
    data 1,    357,  2,    2,    1,    0
    data 1,    359,  0,    2,    1,    0
    data 1,    360, -1,    2,    1,    0
    data 1,    361, -2,    2,    1,    0
    data 1,    362, -3,    4,    1,    0
    data 1,    365, -2,    2,    1,    0
    data 1,    366,  1,    3,    1,    0
    data 1,    366, -1,    3,    1,    0
    data 1,    368,  2,    2,    1,    0
    data 1,    368, -2,    2,    1,    0
    data 1,    369,  3,    1,    1,    0
    data 1,    369, -3,    1,    1,    0
    data 1,    370,  6,    2,    4,    0
    data 1,    370, -3,    2,    2,    0
    data 1,    371,  0,    2,    1,    0
rem part10
    data 1,    377,  6,    2,    7,    0
    data 1,    377, -3,    8,    2,    0
    data 1,    379,  6,    6,    1,    0
    data 1,    382,  5,    1,    2,    0
    data 1,    380,  4,    1,    2,    0
    data 1,    380,  2,    4,    1,    0
    data 1,    379,  0,    4,    1,    0
    data 1,    384,  4,    1,    7,    0
    data 1,    389,  6,    2,    7,    0
    data 1,    389, -3,   16,    2,    0
    data 1,    391,  0,    3,    1,    0
    data 1,    391,  6,   12,    1,    0
    data 1,    396,  5,    2,    2,    0
    data 1,    403,  6,    2,    7,    0
    data 1,    400,  0,    3,    1,    0
    data 1,    393,  4,    1,    3,    0
    data 1,    400,  4,    1,    3,    0
    data 1,    394,  2,    6,    1,    0
    data 1,    396,  1,    2,    4,    0
    data 1,    408,  6,   16,    2,    0
    data 1,    408,  2,    2,    7,    0
    data 1,    410,  2,    3,    1,    0
    data 1,    410, -4,   12,    1,    0
    data 1,    412,  0,    8,    1,    0
    data 1,    412, -1,    1,    2,    0
    data 1,    419, -1,    1,    2,    0
    data 1,    419,  2,    5,    1,    0
    data 1,    422,  1,    2,    6,    0
    data 1,    415,  4,    2,    4,    0
    data 1,    415, -2,    2,    2,    0
rem part11
    data 1,    480,   0,  11,    5,    1
    data 1,    540,   6,  11,    5,    1
    data 1,    600,   0,  11,    5,    1
    data 1,    660,   6,  11,    5,    1
    data 1,    720,   0,  11,    5,    1
    data 1,    780,   3,  11,    6,    1
    data 1,    840,   6,  11,    3,    1
    data 1,    840,  -2,  11,    3,    1
    data 1,    900,   0,  11,    5,    1
    data 1,    960,   6,  11,    5,    1
    data 1,    1020,  3,  11,    5,    1
rem part12
    data 1,    1063,  6,   3,    1,    1
    data 1,    1064,  5,   2,    1,    1
    data 1,    1065,  4,   1,    1,    1
    data 1,    1063, -4,   3,    1,    1
    data 1,    1064, -3,   2,    1,    1
    data 1,    1065, -2,   1,    1,    1
    data 1,    1068,  1,   1,    1,    1
    data 1,    1071,  4,   3,    1,    1
    data 1,    1071, -2,   3,    1,    1
    data 1,    1073,  5,   1,    1,    1
    data 1,    1072, -2,   1,    3,    1
    data 1,    1073, -1,   1,    2,    1
    data 1,    1076,  1,   1,    1,    1
    data 1,    1079,  5,   2,    1,    1
    data 1,    1079, -1,   1,    2,    1
    data 1,    1080, -2,   2,    1,    1
    data 1,    1080,  4,   2,    1,    1
    data 1,    1081,  3,   1,    2,    1
    data 1,    1081, -3,   1,    2,    1
    data 1,    1082, -4,   1,    1,    1
    data 1,    1084,  0,   1,    1,    1
    data 1,    1086,  3,   4,    1,    1
    data 1,    1087,  4,   3,    1,    1
    data 1,    1088,  5,   2,    1,    1
    data 1,    1089,  6,   1,    1,    1
    data 1,    1086, -3,   3,    1,    1
    data 1,    1087, -4,   1,    1,    1
    data 1,    1088, -1,   1,    3,    1
    data 1,    1089,  0,   1,    2,    1
    data 1,    1090, -1,   1,    1,    1
    data 1,    1092,  3,   1,    1,    1
    data 1,    1093, -1,   1,    1,    1
    data 1,    1093,  0,   3,    1,    1
    data 1,    1095,  2,   1,    2,    1
    data 1,    1096,  2,   1,    1,    1
    data 1,    1095,  6,   1,    2,    1
    data 1,    1095, -4,   2,    1,    1
    data 1,    1099, -1,   1,    1,    1
    data 1,    1099,  5,   1,    1,    1
    data 1,    1100,  5,   2,    3,    1
    data 1,    1101,  2,   2,    1,    1
    data 1,    1102,  3,   2,    1,    1
    data 1,    1103,  4,   4,    1,    1
    data 1,    1105,  6,   1,    2,    1
    data 1,    1101, -4,   2,    1,    1
    data 1,    1102, -3,   2,    1,    1
    data 1,    1103, -2,   3,    1,    1
    data 1,    1105, -3,   2,    2,    1
    data 1,    1107,  1,   1,    1,    1
    data 1,    1109, -3,   1,    2,    1
    data 1,    1110, -3,   2,    1,    1
    data 1,    1110, -1,   1,    2,    1
    data 1,    1111,  0,   1,    2,    1
    data 1,    1110,  5,   2,    2,    1
    data 1,    1111,  3,   1,    1,    1
    data 1,    1112,  6,   1,    2,    1
    data 1,    1113,  5,   2,    1,    1
    data 1,    1114,  0,   1,    1,    1
    data 1,    1115, -3,   1,    2,    1
    data 1,    1116, -3,   2,    1,    1
    data 1,    1117, -4,   3,    1,    1
    data 1,    1119, -3,   3,    1,    1
    data 1,    1121, -2,   2,    1,    1
    data 1,    1116,  5,   1,    1,    1
    data 1,    1116,  3,   2,    1,    1
    data 1,    1117,  2,   1,    1,    1
    data 1,    1117,  1,   2,    1,    1
    data 1,    1118,  0,   1,    1,    1
    data 1,    1118,  6,   1,    1,    1
    data 1,    1118,  5,   2,    1,    1
    data 1,    1121,  3,   1,    1,    1
    data 1,    1123,  6,   2,    1,    1
    data 1,    1124,  0,   1,    4,    1
    data 1,    1125, -3,   1,    2,    1
    data 1,    1125,  3,   1,    2,    1
    data 1,    1126,  2,   1,    2,    1
    data 1,    1127, -1,   2,    1,    1
    data 1,    1128, -2,   1,    1,    1
    data 1,    1128,  6,   2,    1,    1
    data 1,    1129,  5,   2,    1,    1
    data 1,    1130,  4,   3,    1,    1
    data 1,    1132,  3,   1,    1,    1
    data 1,    1130,  2,   3,    1,    1
    data 1,    1131,  1,   1,    1,    1
    data 1,    1131, -4,   2,    1,    1
    data 1,    1132, -3,   1,    1,    1
    data 1,    1134,  6,   2,    1,    1
    data 1,    1135,  5,   2,    1,    1
    data 1,    1134, -3,   4,    1,    1
    data 1,    1135, -4,   1,    1,    1
    data 1,    1137, -2,   1,    1,    1
    data 1,    1135, -1,   4,    1,    1
    data 1,    1135,  1,   1,    2,    1
    data 1,    1136,  2,   1,    2,    1
    data 1,    1139,  6,   2,    1,    1
    data 1,    1140,  5,   3,    1,    1
    data 1,    1142,  4,   2,    1,    1
    data 1,    1143,  3,   1,    2,    1
    data 1,    1142,  1,   2,    1,    1
    data 1,    1140,  2,   2,    1,    1
    data 1,    1141,  0,   1,    1,    1
    data 1,    1141, -1,   9,    1,    1
    data 1,    1148,  2,   1,    1,    1
    data 1,    1147,  2,   1,    3,    1
    data 1,    1149,  2,   1,    3,    1
    data 1,    1140, -4,  14,    1,    1
    data 1,    1153, -3,   4,    1,    1
    data 1,    1156, -2,   2,    1,    1
    data 1,    1152,  5,   2,    1,    1
    data 1,    1153,  4,   1,    1,    1
    data 1,    1158,  5,   1,    1,    1
    data 1,    1159, -2,   1,    1,    1
    data 1,    1160,  3,   1,    1,    1
    data 1,    1162,  4,   2,    1,    1
    data 1,    1162, -4,   1,    1,    1
    data 1,    1162, -3,   2,    1,    1
    data 1,    1163, -2,   3,    1,    1
    data 1,    1163,  3,   2,    1,    1
    data 1,    1165, -3,   3,    1,    1
    data 1,    1169, -3,   2,    1,    1
    data 1,    1164,  5,   3,    1,    1
    data 1,    1165,  6,   1,    1,    1
    data 1,    1168,  5,   3,    1,    1
    data 1,    1170,  4,   1,    1,    1
    data 1,    1172,  4,   2,    1,    1
    data 1,    1173,  3,   1,    1,    1
    data 1,    1165,  2,   3,    2,    1
    data 1,    1168,  2,   1,    1,    1
    data 1,    1168,  1,   7,    2,    1
    data 1,    1174,  2,   1,    1,    1
    data 1,    1175,  2,   3,    2,    1
    data 1,    1178,  3,   3,    2,    1
    data 1,    1172, -3,   1,    1,    1
    data 1,    1172, -4,   3,    1,    1
    data 1,    1176, -4,   1,    1,    1
    data 1,    1177, -3,   1,    2,    1
    data 1,    1177, -2,   2,    1,    1
    data 1,    1178,  6,   1,    1,    1
    data 1,    1181,  6,   1,    7,    1
    data 1,    1182,  5,   1,    5,    1
    data 1,    1183,  4,   1,    3,    1
    data 1,    1184,  3,   1,    1,    1
    data 1,    1184, -4,   2,    1,    1
    data 1,    1185, -3,   5,    1,    1
    data 1,    1185,  6,   1,    1,    1
    data 1,    1185,  5,   2,    1,    1
    data 1,    1186,  4,   2,    1,    1
    data 1,    1187,  3,   5,    1,    1
    data 1,    1188,  6,   4,    1,    1
    data 1,    1189,  5,   1,    1,    1
    data 1,    1189, -2,   4,    1,    1
    data 1,    1192, -1,   3,    1,    1
    data 1,    1191,  4,   3,    1,    1
    data 1,    1193,  5,   3,    1,    1
    data 1,    1194,  0,   3,    1,    1
    data 1,    1195,  6,   5,    1,    1
    data 1,    1196,  1,   2,    1,    1
    data 1,    1197,  2,   3,    1,    1
    data 1,    1198,  3,   2,    1,    1
    data 1,    1191, -4,   9,    1,    1
    data 1,    1194, -3,   6,    1,    1
    data 1,    1196, -2,   4,    1,    1
    data 1,    1198, -1,   2,    1,    1
    data 1,    1199,  0,   1,    1,    1
    `data 1,    
    `data 1,    

    
// checkpoints
rem part1
    data 4, -6
    data 4, -4
    data 4, -2
    data 4, 0
    data 4, 2
    data 4, 4
    data 4, 6
rem part2
    data 4, 40
rem part4
    data 4, 96
rem part6
    data 4, 134
rem part7
    data 4, 165
rem part8
    data 4, 219
rem part9
    data 4, 300
rem part10
    data 4, 374
rem part11
    data 4, 426
rem part12
    data 4, 1060
    
// scroll stop/starters
rem part1
    `data 5, 10, 3.8, 18000
rem part10
    data 5, 374, 0, 15000
    data 5, 386, 0.02, 18000
    data 5, 405, 0.02, 14000
rem part11
    data 5, 427, 1.9, 19600
rem part12
    data 5, 1059, 0.33, 24000

// messages
rem part 10
    data 6, 370, "WAIT...", 2000
rem part 11
    data 6, 424, "SPEED UP!!", 2000
    data 6, 440, "UP!",      1200
    data 6, 500, "DOWN!",    1200
    data 6, 560, "UP!",      1200
    data 6, 620, "DOWN!",    1200
    data 6, 680, "GUESS!",   1200
    data 6, 740, "EITHER!",  1200
    data 6, 800, "NEITHER!", 1200
    data 6, 860, "UP!",      1200
    data 6, 920, "DOWN!",    1200
    data 6, 970, "?",        1200
rem part12
    data 6, 1058, "LAST RUN- TOUCH NOTHING!", 2000
    
// end
    data 7, 1210, 2

data 0

`==============================================
`|    Christmas Minimal Media Compo - 2007    |
`|  Bmaczero's Entry - Defend the North Pole! |
`|                                            |
`|   This is submitted as the final version   |
`==============================================

PresentDirectory$=""

`Basic setup
set window title "North Pole Defense - Christmas Compo '07"
autocam off
randomize timer()
disable escapekey
sync on : sync rate 60

set text size 24

#Constant SizeX 200
#Constant SizeY 100
#Constant SizeZ 30
#Constant NoOfEnemyLocs 22
#Constant rotationmultiplier 200
#Constant PlayerObj 12
#Constant loc 60

#Constant PtEnemy 5
#Constant PtElf 5
#Constant PtSnowball 1

full as boolean
recordedscore as boolean
placed as boolean
cheating as boolean
bobvar as boolean

dim EnemyLocations(NoOfEnemyLocs,3)

`Used to keep track of when each enemy is created, so the snowballs can be timed
dim CreationTimes(53)
dim DeathRecords(53)
dim DeathRecordsElf(23)
dim ElfTimes(23)
dim HighScores(10)
dim HighScoresN$(10)

If file exist("HighScores.txt")=1 and file exist("HighNames.txt")=1
   Load array "HighScores.txt",HighScores(10)
   Load array "HighNames.txt",HighScoresN$(10)
   else
   for c=1 to 10
      HighScoresN$(c)="BmacZero"
   next c
   for g=1 to 10
      HighScores(g)=650-((g-1)*50)
   next g
endif

`Set the enemy locations in an array - the enemies will only appear in these locations
`1 is X pos, 2 is Y pos, 3 is Z pos
for e=1 to 6 : EnemyLocations(e,2)=35 : EnemyLocations(e,3)=-20 : next e
for e=7 to 13 : EnemyLocations(e,2)=70 : EnemyLocations(e,3)=-70 : next e
for e=14 to 22 : EnemyLocations(e,2)=135 : EnemyLocations(e,3)=-120 : next e

type Button
    Left
    Top
    Right
    Bottom
    Name as string
endtype

PlayB as Button
ScoreB as Button
CreditsB as Button
QuitB as Button

EnemyLocations(1,1)=110
EnemyLocations(2,1)=70
EnemyLocations(3,1)=30
EnemyLocations(4,1)=-30
EnemyLocations(5,1)=-70
EnemyLocations(6,1)=-110

EnemyLocations(7,1)=120
for c=8 to 13
    EnemyLocations(c,1)=EnemyLocations(c-1,1)-40
next c
EnemyLocations(14,1)=160
for c=15 to 22
    EnemyLocations(c,1)=EnemyLocations(c-1,1)-40
next c

`Set up fog and light
fog on : fog color 0,0,30 : set ambient light 84 : color ambient light rgb(240,240,255)
position light 0,0,400,-400 : point light 0,0,50,0 : set spot light 0,35,45

`Different colors of presents
load image PresentDirectory$+"Gift01.jpg",10,1
load image PresentDirectory$+"Gift01.jpg",11,1
load image PresentDirectory$+"Gift01.jpg",12,1
ChangeColor(11,0,1,0)
ChangeColor(12,0,0,1)

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

gosub LoadObjects

`Floor
make matrix 1,1000,300,20,50
position matrix 1,-500,-60,-200
set matrix wireframe off 1
`Texture
create bitmap 1,100,40
ink rgb(224,146,58),0
for g=1 to 40
    line 1,g,100,g
next g
ink 0,0
line 1,40,100,40
line 1,20,100,20
line 50,1,50,20
line 25,20,25,40
line 75,20,75,40
line 1,39,100,39
line 1,19,100,19
line 51,1,51,20
line 26,20,26,40
line 76,20,76,40
get image 4,1,1,100,40
delete bitmap 1
set current bitmap 0
prepare matrix texture 1,4,20,50
update matrix 1

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

`Make a bitmap of the directions, because pasting an image is way more
`efficient then constantly typing text, especially when changes in text size
`are involved.
create bitmap 1,screen width()+1,screen height()+1
set text font "arial"
set current bitmap 1
set text to bold
ink rgb(100,100,100),0
Text 102,62,"Defend the North Pole! - Directions"
Text 102,82,"Christmas Minimal Media Compo 2007"
Text 102,102,"by BmacZero"
ink rgb(255,120,120),0
Text 100,60,"Defend the North Pole! - Directions"
Text 100,80,"Christmas Minimal Media Compo 2007"
Text 100,100,"by BmacZero"
set text to normal
Text 100,140,"Controls:"
Text 120,170,"Move the mouse to aim the present cannon."
Text 120,200,"Press the left mouse button to shoot a present."
Text 100,240,"Hints:"
Text 120,270,"If a kid has to wait too long for his or her presents, they may get mad at you and"
Text 120,290,"throw snowballs.  Get hit by too many of these, and it's game over!"
Text 120,320,"Watch out for elves with their pointed hats.  Don't shoot them!  They will throw you"
Text 120,340,"powerups to help you in your fight."
Text 120,370,"Snowballs can knock presents away, and visa versa.  This can help you block stray"
Text 120,390,"shots, but it also means that if you get swamped with lots of kids, it won't be easy"
Text 120,410,"to get rid of them."
Text 120,460,"Enter a difficulty level (between 1 and 10):"
get image 20,1,1,screen width()+1,screen height()+1
delete bitmap 1

create bitmap 1,screen width()+1,screen height()+1
set current bitmap 1
set text to bold
ink rgb(100,100,100),0
Text 102,62,"Defend the North Pole! - High Scores"
Text 102,82,"Christmas Minimal Media Compo 2007"
Text 102,102,"by BmacZero"
ink rgb(255,120,120),0
Text 100,60,"Defend the North Pole! - High Scores"
Text 100,80,"Christmas Minimal Media Compo 2007"
Text 100,100,"by BmacZero"
set text to normal
text 100,140,"Creating High Score Table..."
get image 25,1,1,screen width()+1,screen height()+1
delete bitmap 1

`Make a bitmap of the intro
create bitmap 1,screen width()+1,screen height()+1
set current bitmap 1
set text to bold
ink rgb(100,100,100),0
Text 102,62,"Defend the North Pole!"
Text 102,82,"Christmas Minimal Media Compo 2007"
Text 102,102,"by BmacZero"
ink rgb(255,120,120),0
Text 100,60,"Defend the North Pole!"
Text 100,80,"Christmas Minimal Media Compo 2007"
Text 100,100,"by BmacZero"
set text to normal
Text 100,140,"For years, Santa has generously delivered presents to the children of the world,"
Text 100,160,"from his workshop at the North Pole.  However, the children soon began to take his"
Text 100,180,"kind acts for granted.  They became greedier and greedier, until they finally decided"
Text 100,200,"to invade the North Pole, and take all the gifts they could get!  You must hold them"
Text 100,220,"off for as long as possible by giving them presents, allowing Santa and the other"
Text 100,240,"elves a chance to escape before those rowdy kids get in."
Text 100,280,"They are starting to pop out of the hidden, icy caves into Santa's workshop.  You can"
Text 100,300,"send them packing by giving them presents.  But how long can you keep them satisfied?"
Text 100,340,"Press any key to continue..."
get image 24,1,1,screen width()+1,screen height()+1
delete bitmap 1

`Make bitmap of the credits
create bitmap 1,screen width()+1,screen height()+1 : set current bitmap 1
set text to bold
ink rgb(100,100,100),0
Text 102,62,"Defend the North Pole! - Credits"
Text 102,82,"Christmas Minimal Media Compo 2007"
Text 102,102,"by BmacZero"
ink rgb(255,120,120),0
Text 100,60,"Defend the North Pole! - Credits"
Text 100,80,"Christmas Minimal Media Compo 2007"
Text 100,100,"by BmacZero"
set text to normal
Text 120,140,"Thanks to Ric, who initiated the Minimal Media Compo and organized it."
Text 120,170,"Thanks to both Ric and Steve Vink, the judges for the compo."
Text 120,200,"Thanks also to David Gervais, who made the 'Minimal Media' for this compo - the gift."
Text 120,230,"Special thanks to TEH_CODERER, who wrote a code snippet to change the gift's color."
get image 22,1,1,screen width()+1,screen height()+1
delete bitmap 1
set current bitmap 0

PlayB.Left=115
PlayB.Top=135
PlayB.Right=350
PlayB.Bottom=165
PlayB.Name="1.) Play Game"
ScoreB.Left=115
ScoreB.Top=175
ScoreB.Right=350
ScoreB.Bottom=205
ScoreB.Name="2.) View High Scores"
CreditsB.Left=115
CreditsB.Top=215
CreditsB.Right=350
CreditsB.Bottom=245
CreditsB.Name="3.) View Credits"
QuitB.Left=115
QuitB.Top=255
QuitB.Right=350
QuitB.Bottom=285
QuitB.Name="4.) Quit"

`Make bitmap of the menu
create bitmap 1,screen width()+1,screen height()+1 : set current bitmap 1
set text to bold
ink rgb(100,100,100),0
Text 102,62,"Defend the North Pole!"
Text 102,82,"Christmas Minimal Media Compo 2007"
Text 102,102,"by BmacZero"
ink rgb(255,120,120),0
Text 100,60,"Defend the North Pole!"
Text 100,80,"Christmas Minimal Media Compo 2007"
Text 100,100,"by BmacZero"
set text to normal
MakeButton(PlayB.Left,PlayB.Top,PlayB.Right,PlayB.Bottom,PlayB.Name,140)
MakeButton(ScoreB.Left,ScoreB.Top,ScoreB.Right,ScoreB.Bottom,ScoreB.Name,180)
MakeButton(CreditsB.Left,CreditsB.Top,CreditsB.Right,CreditsB.Bottom,CreditsB.Name,220)
MakeButton(QuitB.Left,QuitB.Top,QuitB.Right,QuitB.Bottom,QuitB.Name,260)
get image 23,1,1,screen width()+1,screen height()+1
delete bitmap 1
set current bitmap 0

Intro:
do
paste image 24,0,0
if scancode()>0 or mouseclick()>0
    bobvar=1
    gosub Menu
endif
sync
loop

Menu:
show mouse
Do
paste image 23,0,0
if mouseclick()=1
    if CheckClick(PlayB.Left,PlayB.Top,PlayB.Right,PlayB.Bottom)=1 then ClickNo=1
    if CheckClick(ScoreB.Left,ScoreB.Top,ScoreB.Right,ScoreB.Bottom)=1 then ClickNo=2
    if CheckClick(CreditsB.Left,CreditsB.Top,CreditsB.Right,CreditsB.Bottom)=1 then ClickNo=3
    if CheckClick(QuitB.Left,QuitB.Top,QuitB.Right,QuitB.Bottom)=1 then ClickNo=4
    else
    if CheckClick(PlayB.Left,PlayB.Top,PlayB.Right,PlayB.Bottom)=1 then line PlayB.Left+2,PlayB.Bottom-2,PlayB.Right-2,PlayB.Bottom-2
    if CheckClick(ScoreB.Left,ScoreB.Top,ScoreB.Right,ScoreB.Bottom)=1 then line ScoreB.Left+2,ScoreB.Bottom-2,ScoreB.Right-2,ScoreB.Bottom-2
    if CheckClick(CreditsB.Left,CreditsB.Top,CreditsB.Right,CreditsB.Bottom)=1 then line CreditsB.Left+2,CreditsB.Bottom-2,CreditsB.Right-2,CreditsB.Bottom-2
    if CheckClick(QuitB.Left,QuitB.Top,QuitB.Right,QuitB.Bottom)=1 then line QuitB.Left+2,QuitB.Bottom-2,QuitB.Right-2,QuitB.Bottom-2
endif
if bobvar=0
    if scancode()>0 or ClickNo>0
        bobvar=1
        if escapekey()=1 or inkey$()="4" or ClickNo=4 then gosub ExitSub
        if inkey$()="1" or ClickNo=1 then gosub Directions
        if inkey$()="2" or ClickNo=2 then gosub HighScores
        if inkey$()="3" or ClickNo=3 then gosub Credits
    endif
endif
if scancode()=0 and bobvar=1 then bobvar=0
ClickNo=0
sync
loop

Directions:
difficulty$=""
Do
paste image 20,0,0
text 120,480,difficulty$
if bobvar=0 and scancode()>0
    bobvar=1
    if escapekey()=1 then gosub Menu
    if difficulty$="1" and scancode()=11 then difficulty$="10"
    if scancode()>=2 and scancode()<=11 and difficulty$="" then difficulty$=inkey$()
    if returnkey()=1 or spacekey()=1 then gosub NewGame
    if scancode()=14
        if len(difficulty$)=1 then difficulty$=""
        if len(difficulty$)=2 then difficulty$="1"
    endif
endif
if scancode()=0 and bobvar=1 then bobvar=0
sync
loop

HighScores:
cls
paste image 25,0,0
sync
`Make a bitmap of the high scores
create bitmap 1,screen width(),screen height() : set current bitmap 1
set text to bold
ink rgb(100,100,100),0
Text 102,62,"Defend the North Pole! - High Scores"
Text 102,82,"Christmas Minimal Media Compo 2007"
Text 102,102,"by BmacZero"
ink rgb(255,120,120),0
Text 100,60,"Defend the North Pole! - High Scores"
Text 100,80,"Christmas Minimal Media Compo 2007"
Text 100,100,"by BmacZero"
set text to normal
for c=1 to 5
    text 100,loc+(80*(c)),"Difficulty Level "+str$(c)
    text 120,loc+(80*(c))+20,HighScoresN$(c)
    text 250,loc+(80*(c))+20,str$(HighScores(c))
next c
for c=6 to 10
    text 400,loc+(80*(c-5)),"Difficulty Level "+str$(c)
    text 420,loc+(80*(c-5))+20,HighScoresN$(c)
    text 550,loc+(80*(c-5))+20,str$(HighScores(c))
next c
if image exist(21)=1 then delete image 21
get image 21,1,1,screen width(),screen height()
delete bitmap 1
set current bitmap 0

do
paste image 21,0,0
if scancode()>0 and bobvar=0
    bobvar=1
    gosub Menu
endif
if scancode()=0 and bobvar=1 then bobvar=0
sync
loop


Credits:
do
paste image 22,0,0
if scancode()>0 and bobvar=0
    bobvar=1
    gosub Menu
endif
if scancode()=0 and bobvar=1 then bobvar=0
sync
loop


NewGame:
hide mouse
`Reset all the stuff from the last game
delete objects 100,300
position camera 0,190,280
point camera 0,90,0
bulletno=100
enemyno=201
timerold2=timer()
health=100
enemybulletno=251
bulletdelay=3500
enemydelay=1500
score=0
distance=450
fog color 0,0,30
fog distance 450
difficultyno=val(difficulty$)
minimumdelay=(11-difficultyno)*200
dectime=(11-difficultyno)*20
WinnerName$=""
timerold4=timer()
newplace=0
elfobject=301
spriteno=1
powerupno=321
rapidfire=400
fakebulletno=331

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

gosub DisplayInformation
gosub CheckGameOver

if escapekey()=1 then gosub Menu
paste image 2,mousex()-18,mousey()-18,1
if inkey$()="?" then cheating=1-cheating

`The speed of the game constantly increases, this manages that
if timer()-timerold3>dectime
timerold3=timer()
if enemydelay>minimumdelay then dec enemydelay
if bulletdelay>minimumdelay then dec bulletdelay
endif

if bulletno>199 then bulletno=101
if enemyno>249 then enemyno=201
if enemybulletno>299 then enemybulletno=251
if elfobject>319 then elfobject=301
if powerupno>329 then powerupno=321
if fakebulletno>369 then fakebulletno=331    

pick screen mousex(),mousey(),5000

Gosub ControlPackages `Moves existing packages and checks for their collisions
Gosub ControlSnowballs `Move existing snowballs and check for hitting the PlayerObj
Gosub ControlEnemies `Control the shooting of new snowballs
Gosub ControlShooting `Shoot new presents
Gosub ControlNewObjects `Make new elves or enemies
Gosub ControlPlayer `Point the gun, and debug controls
Gosub ControlElves `Control the delivery of powerups

sync
loop
`-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
`-=-=-=-=-    -=-=-=-=-=-    -=-=-=-=-=-=-
`-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

ControlPackages:
for bob=100 to 200
    if object exist(bob)=1
        move object bob,6
        collidedobject=object collision(bob,0)
        if collidedobject>200 and collidedobject<251 or collidedobject=201
            if DeathRecords(collidedobject-200)=0
                full=0
                clone object fakebulletno,bob
                delete object bob
                position object fakebulletno,object position x(collidedobject),object position y(collidedobject),object position z(collidedobject)+20
                glue object to limb fakebulletno,collidedobject,1
                DeathRecords(collidedobject-200)=1
                inc score,PtEnemy
                inc fakebulletno
            endif
        endif
        if collidedobject>300 and collidedobject<321 or collidedobject=301
            if DeathRecordsElf(collidedobject-300)=0
                dec score,PtElf
                full=0
                DeathRecordsElf(collidedobject-300)=1
                delete object bob
            endif
        endif
        if collidedobject>250 and collidedobject<301
            delete object collidedobject
            delete object bob
            inc score,PtSnowball
        endif
    endif
next bob
for bob=330 to 370
if object exist(bob)=1
    move object down bob,1
    if object position y(bob)<0 then delete object bob
endif
next bob
return


ControlElves:
for eon=301 to 320
    if object exist(eon)=1
        if timer()-elftimes(eon-300)>3000 and DeathRecordsElf(eon-300)=0
            if object exist(powerupno)=1 then delete object powerupno
            instance object powerupno,16
            position object powerupno,object position x(eon)-10,object position y(eon)+20,object position z(eon)
            point object powerupno,object position x(PlayerObj),object position y(PlayerObj),object position z(PlayerObj)
            DeathRecordsElf(eon-300)=1
            inc powerupno
        endif
        if DeathRecordsElf(eon-300)=1
            move object down eon,1
            if object position y(eon)<0 
                delete object eon
                DeathRecords(eon-300)=0
            endif
        endif
        if DeathRecordsElf(eon-300)=2
            move object up eon,1
            if object position z(eon)>-30 and object position z(eon)<-10 then dpos=35
            if object position z(eon)>-80 and object position z(eon)<-60 then dpos=70
            if object position z(eon)<-110 and object position z(eon)>-130 then dpos=135
            if object position y(eon)=>dpos
                DeathRecordsElf(eon-300)=0
                ElfTimes(eon-300)=timer()
            endif
        endif
    endif
next eon
for c=321 to 330
    if object exist(c)=1
    move object c,4
    if object collision(c,PlayerObj)=1
        delete object c
        rapidfire=1
    endif
    endif
next c
if rapidfire<400
    inc rapidfire,1
    text screen width()/2,(screen height()/2)+40,"Rapidfire! : "+str$(400-rapidfire)
endif
return


DisplayInformation:
text 0,screen height()-20,"Screen FPS: "+str$(screen fps())
if health>69 then ink rgb(100,255,100),0
if health=60 then ink rgb(200,255,200),0
if health=40 then ink rgb(250,160,100),0
if health=20 then ink rgb(250,80,80),0
Text 10,10,"Health: "
box 80,12,80+health,22
Text 10,30,"Score: "+str$(score)
return


ControlSnowballs:
for eob=251 to 300
    if object exist(eob)=1
        move object eob,5
        collision=object collision(eob,0)
        if collision=PlayerObj and cheating=0
            delete object eob
            dec health,20
        endif
    endif
next eob
return

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

if cheating=1
    if leftkey()=1 then yrotate camera wrapvalue(camera angle y()-1)
    if rightkey()=1 then yrotate camera wrapvalue(camera angle y()+1)
    if upkey()=1 then move camera 2
    if downkey()=1 then move camera -2
    text screen width()/2,screen height()/2,"Invincibility!"
    if inkey$()="t" then paste image 4,50,50
endif
return

CheckGameOver:
if health<1
    if distance>0
        dec distance
        fog distance distance
        else
        if recordedscore=1
            if placed=1
                text screen width()/2,screen height()/2+20,"High Score! Please enter your name."
                if timer()-timerold4>100 and scancode()>0
                    timerold4=timer()
                    if returnkey()=1 or spacekey()=1
                        HighScoresN$(difficultyno)=WinnerName$
                        Gosub Menu
                    endif
                    if scancode()=14 then WinnerName$=left$(WinnerName$,len(WinnerName$)-1)
                    WinnerName$=WinnerName$+inkey$()
                endif
                text screen width()/2,screen height()/2+40,WinnerName$
                else
                if scancode()>0 then gosub Menu
            endif
            else
            gosub CheckScore
        endif
    endif
    text screen width()/2,screen height()/2,"Game Over"
    text 80,10,"Game Over"
endif
return

CheckScore:
if score>=HighScores(difficultyno)
    placed=1
    HighScores(difficultyno)=score
endif
recordedscore=1
return

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

ControlEnemies:
for eoe=201 to 250
    if object exist(eoe)=1
        if timer()-CreationTimes(eoe-200)>bulletdelay and DeathRecords(eoe-200)=0
            if object exist(enemybulletno)=1 then delete object enemybulletno
            instance object enemybulletno,15
            position object enemybulletno,object position x(eoe)-10,object position y(eoe)+20,object position z(eoe)
            point object enemybulletno,object position x(PlayerObj),object position y(PlayerObj),object position z(PlayerObj)
            CreationTimes(eoe-200)=timer()
            inc enemybulletno
        endif
        if DeathRecords(eoe-200)=1
            move object down eoe,1
            if object position y(eoe)<0
                delete object eoe
                DeathRecords(eoe-200)=0
            endif
        endif
        if DeathRecords(eoe-200)=2
            move object up eoe,1
            if object position z(eoe)>-30 and object position z(eoe)<-10 then dpos=35
            if object position z(eoe)>-80 and object position z(eoe)<-60 then dpos=70
            if object position z(eoe)<-110 and object position z(eoe)>-130 then dpos=135
            if object position y(eoe)=>dpos
                DeathRecords(eoe-200)=0
                CreationTimes(eoe-200)=timer()
            endif
        endif
    endif
next eoe
return
    


ControlNewObjects:
if timer()-timerold2>enemydelay and Full=0
    timerold2=timer()
    retrythat:
    inc Failures
    if Failures>NoOfEnemyLocs+2
        Full=1
        Gosub Continue
    endif
    randomnumber=rnd(NoOfEnemyLocs-1)+1
    for g=201 to 250
    if object exist(g)=1
        if EnemyLocations(randomnumber,1)=object position x(g) and EnemyLocations(randomnumber,2)=object position y(g)
            gosub retrythat
        endif
    endif
    next g
    for g=301 to 320
        if object exist(g)=1
            if EnemyLocations(randomnumber,1)=object position x(g) and EnemyLocations(randomnumber,2)=object position y(g)
                gosub retrythat
            endif
        endif
    next g
    elforenemy=rnd(7)
    if elforenemy=5
        instance object elfobject,1500
        position object elfobject,EnemyLocations(randomnumber,1),EnemyLocations(randomnumber,2)-20,EnemyLocations(randomnumber,3)
        ElfTimes(elfobject-300)=timer()
        DeathRecordsElf(elfobject-300)=2
        set object collision to polygons elfobject
        inc elfobject
        else
        instance object enemyno,10
        DeathRecords(enemyno-200)=2
        position object enemyno,EnemyLocations(randomnumber,1),EnemyLocations(randomnumber,2)-20,EnemyLocations(randomnumber,3)
        set object collision to polygons enemyno
        inc enemyno
    endif
    Continue:
    Failures=0
endif
if cheating=1 then text 200,200,str$(EnemyNo)
return


LoadObjects:
`Powerup - Rapidfire
make object cube 16,5
hide object 16
position object 16,0,0,-1000

`Base Bullet (not visible)
load object PresentDirectory$+"Gift01.x",13
scale object 13,8,8,8
exclude object on 13
position object 13,0,-1000,0

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

`Base enemy (not visible)
make object sphere 10,1
`Body
make object sphere 2,1 : scale object 2,2000,3000,1000
make mesh from object 10,2
delete object 2
add limb 10,1,10
offset limb 10,1,0,20,0
link limb 10,0,1
`Head
make object sphere 3,1 : scale object 3,1500,1500,1000
make mesh from object 11,3
delete object 3
add limb 10,2,11
link limb 10,1,2
offset limb 10,2,0,21.5,0
`Texture
create bitmap 1,2,2 : set current bitmap 1
dot 1,1,rgb(255,100,100)
dot 1,2,rgb(255,100,100)
dot 2,1,rgb(255,100,100)
dot 2,2,rgb(255,100,100)
get image 1,1,1,2,2
delete bitmap 1
set current bitmap 0
texture object 10,1
position object 10,0,-1000,0
set object emissive 10,rgb(255,150,150)
hide object 10

`Base elf (not visible)
make object sphere 1500,1
`Body
add limb 1500,1,10
offset limb 1500,1,0,20,0
link limb 1500,0,1
`Head
add limb 1500,2,11
link limb 1500,1,2
offset limb 1500,2,0,21.5,0
`Hat
make object cone 1000,15
make mesh from object 15,1000
delete object 1000
add limb 1500,3,15
link limb 1500,2,3
offset limb 1500,3,0,10,0
`Texture
create bitmap 1,2,2 : set current bitmap 1
dot 1,1,rgb(100,255,100)
dot 1,2,rgb(100,255,100)
dot 2,1,rgb(100,255,100)
dot 2,2,rgb(100,255,100)
get image 3,1,1,2,2
delete bitmap 1
set current bitmap 0
texture object 1500,3
position object 1500,0,-1000,0
set object emissive 1500,rgb(150,255,150)
hide object 1500

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

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

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

`Cannon
make object cylinder PlayerObj,3
scale object PlayerObj,315,2500,315
position object PlayerObj,0,150,270
return


ExitSub:
if file exist("HighScores.txt") then Delete file "HighScores.txt"
if file exist("HighNames.txt") then delete file "HighNames.txt"
save array "HighScores.txt",HighScores(10)
save array "HighNames.txt",HighScoresN$(10)
end

`Functions to randomize present color - thanks to TEH_CODERER
function ChangeColor(ImageNumber,ColorToR,ColorToG,ColorToB)
make memblock from image 1,ImageNumber
delete image ImageNumber
for x=0 to 256
   for y=0 to 192
      c=ReadFromImageMemblock(1,256,192,x,y)
      if rgbg(c)<72 and rgbb(c)<64
         if x<79 or x>90
            if y<101 or y>115
                r=rgbr(c)*ColorToR : g=rgbr(c)*ColorToG : b=rgbr(c)*ColorToB : WriteToImageMemblock(1,256,192,x,y,r,g,b)
            endif
         endif
      endif
   next y
next x
make image from memblock ImageNumber,1
delete memblock 1
endfunction

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

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

function MakeButton(Left,Top,Right,Bottom,Name$,Location)
line Left,Top,Right,Top
line Left,Top,Left,Bottom
line Right,Top,Right,Bottom
line Left,Bottom,Right,Bottom
text 120,Location,Name$
endfunction

function CheckClick(Left,Top,Right,Bottom)
if mousex()<Right and mousex()>left and mousey()<Bottom and mousey()>Top
    exitfunction 1
    else
    exitfunction 0
endif
endfunction 0

rem set main game settings
hide mouse
sync on
CALCULATE AUTOMATIC COLLISION

dim snowmanobj(4)
`make matrix pic
CREATE BITMAP 2,200,200
INK rgb(255, 255, 255),rgb(255, 255, 255)
set current bitmap 2
BOX 0,0,200,200
ink rgb(192, 192, 192),rgb(128, 128, 128)

    for t = 1 to 100
    cr = rnd(20)
    cx = rnd (200) - cr
    cy = rnd (200) - cr
    CIRCLE cx,cy,cr
    next t

get image 2,0,0,200,200
delete bitmap 2


`make snowmanface
CREATE BITMAP 3,200,200
INK rgb(255, 255, 255),rgb(255, 255, 255)
set current bitmap 3
BOX 0,0,200,200
ink rgb(0,0,0),rgb(0,0,0)
`eyes
circle 80,75,10
circle 120,75,10
`mouth
circle 100,125, 15
get image 3,0,0,200,200
delete bitmap 3


rem make landscape
make matrix 1,5000,5000,70,70
randomize matrix 1,20
position matrix 1,-500,0,-500
prepare matrix texture 1,2,1,1
update matrix 1


Rem prepare camera
position camera 5000,100,5000
PITCH CAMERA UP 10
`create cameraobject
make object cube 13 ,50
position object 13,5000,100,5000
snowmannr = 2

counter1 = 0
counter2 = 0
counter3 = 0
counter4 = 0 
`make snowmen
    for snowmannr = 2 to 4
    `bodyparts
    onr = onr + 1
    make object sphere onr, 30
    snowmanobj(snowmannr) = onr
    onr = onr + 1 `2
    make object sphere onr, 20
    onr = onr + 1`3
    make object sphere onr, 15
    texture object onr, 3
    `make nose
    remstart make object cone onr, 5
    xrotate object onr, 90
    onr = onr + 1`5
    `eyes
    make object sphere onr, 4
    color object onr ,rgb( 0, 0, 0)
    onr = onr + 1`6
    make object sphere onr, 4
    color object onr ,rgb( 0, 0, 0)
    remend
    `for next snowman start number
        repeat
        positionsnowman(snowmannr, rnd(500) ,30 ,rnd(500) ,0)
        collobject = onr - 2
        collision = object hit (collobject, 0) 
        until collision = 0
    next snowmannr
rem main game loop
snowmannr = 2
`+++++++++++++++++++++++++
`+++++++++++++++++++++++++
`main loop
`+++++++++++++++++++++++++

    do
    
    
    
        show object 13`show camera object
    
           
    
        for snowmannr = 2 to 4

        if snowmannr = 2 then lookobject = 1
        if snowmannr = 3 then lookobject = 4
        if snowmannr = 4 then lookobject = 7
        x = OBJECT POSITION X(lookobject)
        y = object position y(lookobject)
        z = object position z(lookobject)  
        if action = snowmannr then action = 0
        if action = 0 then action = rnd(4)
        
        if action = 2 then onr = 1
        if action = 3 then onr = 4
        if action = 4 then onr = 7
        
        
        if action = 1 then onr = 13`for player 1
        if action <= 4 and action <> 0 then
        
        
        
        targetXPos = object position x(onr)
        targetZPos = object position z(onr)
        
        
        physics(snowmannr,lookobject,x,y,z,oldx, oldy, oldz, action,TargetXPos, targetYPos)
        `making another action possible
        if snowmannr = 2 
        couter2 = counter2 + 1
        endif
        if counter2 = 10000 then action = 0
        
        if snowmannr = 3 
        couter3 = counter3 + 1
        endif
        if counter3 = 10000 then action = 0
        
        if snowmannr = 4 
        couter4 = counter4 + 1
        endif
        if counter4 = 10000 then action = 0
        next snowmannr
    `make camera look right(you)
    
    
    cx = camera position x()
    cy = camera position y()
    cz = camera position z()
    cameraphysics(cx,cy,cz)
    rem refresh screen
    
        oldx = x
        oldy = y
        oldz = z 
    
	   sync
    loop







`======================================
function positionsnowman( snowmannr,x,y,z,lookside) 


if snowmannr = 2 then onr = 1
if snowmannr = 3 then onr = 4
if snowmannr = 4 then onr = 7
`bottomball
position object onr, x, y, z
yrotate object onr, lookside    
onr = onr + 1
y =y + 20
`bellyball
position object onr, x, y, z
yrotate object onr, lookside
onr =  onr + 1
y = y + 15
`headball
position object onr, x, y, z
yrotate object onr, lookside

y =y + 5
remstart
`nose
position object onr, x, y, z
yrotate object onr, lookside
onr = onr + 1
x = x + 2
z = z + 10
`eyes
position object onr, x, y, z
onr = onr + 1
x = x -4
position object onr, x, y, z
remend
endfunction


`=============================
function physics(snowmannr,lookobject,x,y,z,oldx, oldy, oldz,action, targetXPos, TargetYPos)

    angle# = 0

    yAng = object angle y(lookobject) 
    
        
     angle# = atanfull(x-targetXPos,z-targetZPos)-yAng
    
    
    
    lookside = lookside + object angle y(lookobject) 
    

  
  
  
  
   if angle# < 180 
    lookside = lookside + 1
    endif
   if angle# > 180  
   lookside = lookside - 1
   endif
   if angle#  <= 1 then move object lookobject,5
   
   `get all new positions to put the rest on
   x = object position x(lookobject)
   y = object position y(lookobject)
   z = object position z(lookobject) 

`gravity
groundheight = get ground height(1,x,z)

ground = groundheight + 25
dinges = groundheight + 24
if y > ground then y = y - 1 
if y < dinges then y = y + 1 




`collision

xspeed = x - oldx
yspeed = y - oldy
zspeed = z - oldz
collision = object hit(1, 0)
if  collision <> 0 
   
   repeat
   
    x = x - xspeed
    y = y - yspeed
    z = z - zspeed
    collision = object hit(1, 0)
    until collision = 0
    
endif    




positionsnowman( snowmannr,x,y,z,lookside)

endfunction


`========================
function cameraphysics(x,y,z)


`gravity
groundheight = get ground height(1,x,z)

ground = groundheight + 52
dinges = groundheight + 51
if y > ground then y = y - 1 
if y < dinges then y = y + 1 

`collision


`control movement



position camera x, y, z
    if upkey()=1 then move camera 2
    if downkey()=1 then move camera -2
    if leftkey()=1 then turn camera left 3
    if rightkey()=1 then turn camera right 3
    if spacekey() = 1 then PITCH CAMERA UP 2
    if shiftkey() = 1 then PITCH CAMERA down 2

endfunction













`++++++++++++++++++++++++

`++++++++++++++++++++++++

Rem Project: Crimbo Jimbo
Rem Created: Matt Moyes

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

`TODO: Add Sound

`this is to avoid confusion for competition
set display mode 800,600,16
set window on

load image "Gift01.jpg",5,1
paste image 5,0,0
get image 2,64,0,128,64
get image 3,64,64,128,128
get image 4,0,64,64,128
get image 1,192,64,256,128
delete image 5 : cls

sync on : sync rate 25


`load stuff
`change this stuff if your computer isn't getting enough FPS
`If FPS < 20 change this
   total_snow = 100
   gravity = 10
   bomb_life = 5
   explosion_size = 100
   present_drop_multiplier = 1

   set text size 20

   type plower
      x as integer
      y as integer
   endtype
   dim snow(total_snow) as plower
   for tmp2=0 to total_snow
         snow(tmp2).x = rnd(screen width())
         snow(tmp2).y = rnd(screen height())
   next tmp2

   dim invader_speech$(5)
   invader_speech$(0) = "Why are you fighting me? we are the same"
   invader_speech$(1) = "Games dont need all this media"
   invader_speech$(2) = "Die Crimbo Jimbo!!!"
   invader_speech$(3) = "Christmas is for noobs anyway"
   invader_speech$(4) = "Take pixels punk"
   invader_speech$(5) = "So Santa sends his b*tch to do what he is too fat to"
   dim jimbo_speech$(5)
   jimbo_speech$(0) = "It doesn't have to be this way"
   jimbo_speech$(1) = "Mario moved on to 3D, why can't you?"
   jimbo_speech$(2) = "We can go to England, they wont get texures for years"
   jimbo_speech$(3) = "Drop the presents and I'll give you my hat"
   jimbo_speech$(4) = "This sh*t is getting serious"
   jimbo_speech$(5) = "Eat pixels borg butt"

cls
gosub _menu : cls
gosub _main

_main:

   type chara
      x as integer
      y as integer
      sizex as integer
      sizey as integer
      speed as integer
      life as integer
   endtype
   dim jimbo(0) as chara : jimbo(0).x = 300 : jimbo(0).y = 300 : jimbo(0).speed = 10
   jimbo(0).sizex = 84 : jimbo(0).sizey = 184 : jimbo(0).life = 100
   dim goon(0) as chara : goon(0).x = 700 : goon(0).y = 100 : goon(0).speed = 2
   goon(0).sizex = 144 : goon(0).sizey = 91 : goon(0).life = 10
   dim bomb(2) as chara : bomb(0).x=300 : bomb(0).y=600
   bomb(0).sizex = 98 : bomb(0).sizey = 88
   bomb(1).life = -5 : bomb(1).sizex = 98 : bomb(1).sizey = 88

   cimg = 1 : nextdrop=timer()+(1000*1)
   `bomb(2) is present
   bomb(2).sizex=64 : bomb(2).sizey=64 : bomb(2).speed = cimg
   start=timer()
   teleport=timer()+2000

   do
      cls
   `draw
      gosub _snow
      gosub _level
      gosub _jimbo
      gosub _goon
      cbomb = 0 : gosub _bomb


   `AI
      if goon(0).x < jimbo(0).x then goon(0).x=goon(0).x+goon(0).speed
      if goon(0).x > jimbo(0).x then goon(0).x=goon(0).x-goon(0).speed
      goon(0).y = 110+(sin(goon(0).x*3)*20)
      if goon(0).x-5 < jimbo(0).x and goon(0).x+5 > jimbo(0).x and bomb(1).life = -5 then bomb(1).x = bomb(0).x : bomb(1).y = bomb(0).y : bomb(1).life = timer()+(1000*bomb_life)

      `maybe remove
      if timer() > teleport then goldx=goon(0).x : goldy=goon(0).y : goon(0).x = rnd(800) : teleport = timer()+(1000*rnd(4)) : telephase=100
      `telport effects
      if telephase > 0 then splatter(telephase,goldx,goldy,rgb(0,rnd(255),0)) : telephase=telephase-2
   `postion stuff
      paste image cimg,goon(0).x-32,goon(0).y-64
      bomb(0).x=goon(0).x+66 : bomb(0).y=goon(0).y-bomb(0).sizey+2

      if jimbo(0).x < 0 then jimbo(0).x = 0
      if jimbo(0).x > 800-jimbo(0).sizex then jimbo(0).x = 800-jimbo(0).sizex

      `check drops
      if bomb(1).life > timer()
         if bomb(1).y + bomb(1).sizey < 582 then bomb(1).y = bomb(1).y + gravity
         if bomb(1).x < jimbo(0).x then bomb(1).x=bomb(1).x+1
         if bomb(1).x > jimbo(0).x then bomb(1).x=bomb(1).x-1
         cbomb = 1 : gosub _bomb
         text bomb(1).x + (bomb(1).sizex/2), bomb(1).y + (bomb(1).sizey/2)+15,str$((bomb(1).life-timer())/1000)

         if bomb(1).y > 490
             if bomb(1).x < jimbo(0).x + jimbo(0).sizex and bomb(1).x+bomb(1).sizex > jimbo(0).x
                bomb(1).life = timer()
             endif
          endif

      else
         if not (bomb(1).life = -5)
            phase=phase+10
            blow_up(phase,bomb(1).x + (bomb(1).sizex/2), bomb(1).y + (bomb(1).sizey/2))
            if phase > explosion_size then bomb(1).life = -5 : phase=0
               `test if jimbo is in bomb sphere
                tmp1 = bomb(1).x + (bomb(1).sizex/2)
                tmp2 = bomb(1).y + (bomb(1).sizey/2)
                if tmp1 - (phase/2) < jimbo(0).x + jimbo(0).sizex and tmp1 + (phase/2) > jimbo(0).x
                   if tmp2 - (phase/2) < jimbo(0).y+jimbo(0).sizey and tmp2 + (phase/2) > jimbo(0).y
                      jimbo(0).life = jimbo(0).life - 2
                      splatter(phase,jimbo(0).x+(jimbo(0).sizex/2),jimbo(0).y+50,rgb(255,0,0))
                      `Invader speech
                      if rnd(5) = 2 then msg$ = invader_speech$(rnd(5)) : msgtimer=timer()+2500 : speak=1
                   endif
                endif
            endif
      endif


      if bomb(2).y > screen height()
         if nextdrop < timer() then bomb(2).x = goon(0).x-32 : bomb(2).y = goon(0).y-64 : cimg=cimg+1
         if cimg > 4 then cimg = 1
         score=score-1;
         snowsplash = snowsplash + 4
         splatter(snowsplash,bomb(2).x+32,575,rgb(255,255,255))
      else
         snowsplash=0
         bomb(2).x = bomb(2).x - 5 + rnd(10)
         bomb(2).y = bomb(2).y + (gravity * present_drop_multiplier)
         if nextdrop < timer() then nextdrop=timer()+750+(250*rnd(4))
      endif
      if cimg > 1 then paste image cimg-1,bomb(2).x,bomb(2).y else paste image 4,bomb(2).x,bomb(2).y

      if jimbo(0).x < bomb(2).x+32 and jimbo(0).x+jimbo(0).sizex > bomb(2).x+32 and jimbo(0).y < bomb(2).y and jimbo(0).y+jimbo(0).sizey > bomb(2).y
         score = score+rnd(100)
         bomb(2).x = goon(0).x-32 : bomb(2).y = goon(0).y-64 : cimg=cimg+1
         if cimg > 4 then cimg = 1
         nextdrop=timer()+750+(250*rnd(5))
         `jimbo speech
         if rnd(5) = 2 then msg$ = jimbo_speech$(rnd(5)) : msgtimer=timer()+2500 : speak=0
      endif
      if speak=0 and msgtimer > timer() then text jimbo(0).x,jimbo(0).y-10,msg$
      if speak=1 and msgtimer > timer() then text goon(0).x,goon(0).y+sizey+10,msg$

   `movement
      if leftkey()=1 then dec jimbo(0).x,jimbo(0).speed : looking=1
      if rightkey()=1 then inc jimbo(0).x,jimbo(0).speed : looking=0
      if upkey()=1 and nojump=0
         if jimbo(0).y < 250 then nojump=1
         dec jimbo(0).y,jimbo(0).speed
      else
         if jimbo(0).y + jimbo(0).sizey < 582
            inc jimbo(0).y,gravity
         else
            nojump=0
         endif
      endif

      ink rgb(255,0,0),rgb(255,255,255)
      text 0,585,"Score: "+str$(score)+"          Life: "+str$(jimbo(0).life)+"          FPS: "+str$(SCREEN FPS())+"          Time: "+str$((timer()-start)/1000)
      if jimbo(0).life < 1 then gosub _game_over
      sync
   loop


_menu:
   do
      cls
      gosub _snow
      ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)
      gosub _logo
      ink RGB(213,0,0),rgb(0,0,0)
      text 50,340,"A dissilusioned space invader, angry at how much media was being used in modern games,"
      text 50,360,"has stolen all the christmas presents from the new games and is blowing them up."
      text 50,380,"To make things worse Santa is abit of a fatty and is too lazy to get the presents back!"
      text 50,400,"It's up to you, Crimbo Jimbo, to get them back before they are blown into pixels"
      text 50,420,"Avoid the bombs and catch the presents with the ARROW KEYS to jump and run"
      text 50,450,"Press RETURN to play"

      if returnkey() = 1 then return
      text 0,0,str$(SCREEN FPS())
      sync
   loop

return

_snow:
   ink rgb(255,255,255),rgb(0,0,0)
   for tmp2=0 to total_snow
      circle snow(tmp2).x,snow(tmp2).y,1
      snow(tmp2).x = snow(tmp2).x + (1 - rnd(2))
      snow(tmp2).y = snow(tmp2).y + rnd(2)
      if snow(tmp2).x > screen width() then snow(tmp2).x = 0+rnd(screen width())
      if snow(tmp2).y > screen height() then snow(tmp2).y = 0+rnd(screen height()/3)
   next tmp2
return

_jimbo:
if looking=0
`hat
line jimbo(0).x+3,jimbo(0).y+1,jimbo(0).x+3,jimbo(0).y+11
line jimbo(0).x+3,jimbo(0).y+12,jimbo(0).x+12,jimbo(0).y+17
line jimbo(0).x+12,jimbo(0).y+17,jimbo(0).x+24,jimbo(0).y+9
line jimbo(0).x+24,jimbo(0).y+9,jimbo(0).x+21,jimbo(0).y+1
line jimbo(0).x+21,jimbo(0).y+1,jimbo(0).x+3,jimbo(0).y+1
ink rgb(255,0,0),rgb(0,0,0)
line jimbo(0).x+25,jimbo(0).y+9,jimbo(0).x+55,jimbo(0).y+28
line jimbo(0).x+55,jimbo(0).y+28,jimbo(0).x+71,jimbo(0).y+52
line jimbo(0).x+71,jimbo(0).y+52,jimbo(0).x+20,jimbo(0).y+78
line jimbo(0).x+20,jimbo(0).y+78,jimbo(0).x+20,jimbo(0).y+38
line jimbo(0).x+20,jimbo(0).y+38,jimbo(0).x+13,jimbo(0).y+17
ink rgb(255,255,255),rgb(0,0,0)
line jimbo(0).x+71,jimbo(0).y+51,jimbo(0).x+76,jimbo(0).y+68
line jimbo(0).x+76,jimbo(0).y+68,jimbo(0).x+76,jimbo(0).y+77
line jimbo(0).x+76,jimbo(0).y+77,jimbo(0).x+86,jimbo(0).y+99
line jimbo(0).x+86,jimbo(0).y+99,jimbo(0).x+73,jimbo(0).y+100
line jimbo(0).x+73,jimbo(0).y+100,jimbo(0).x+66,jimbo(0).y+120
line jimbo(0).x+66,jimbo(0).y+120,jimbo(0).x+26,jimbo(0).y+120
line jimbo(0).x+26,jimbo(0).y+120,jimbo(0).x+20,jimbo(0).y+77
`hair
ink RGB(255,128,0),rgb(0,0,0)
line jimbo(0).x+72,jimbo(0).y+53,jimbo(0).x+34,jimbo(0).y+89
line jimbo(0).x+53,jimbo(0).y+62,jimbo(0).x+31,jimbo(0).y+91
line jimbo(0).x+58,jimbo(0).y+56,jimbo(0).x+27,jimbo(0).y+82
line jimbo(0).x+46,jimbo(0).y+65,jimbo(0).x+22,jimbo(0).y+102
line jimbo(0).x+33,jimbo(0).y+73,jimbo(0).x+22,jimbo(0).y+110
line jimbo(0).x+38,jimbo(0).y+79,jimbo(0).x+24,jimbo(0).y+110
line jimbo(0).x+24,jimbo(0).y+78,jimbo(0).x+15,jimbo(0).y+104
line jimbo(0).x+28,jimbo(0).y+76,jimbo(0).x+21,jimbo(0).y+109
line jimbo(0).x+31,jimbo(0).y+92,jimbo(0).x+25,jimbo(0).y+113
line jimbo(0).x+19,jimbo(0).y+78,jimbo(0).x+21,jimbo(0).y+105
line jimbo(0).x+67,jimbo(0).y+55,jimbo(0).x+68,jimbo(0).y+64
line jimbo(0).x+60,jimbo(0).y+58,jimbo(0).x+48,jimbo(0).y+75
ink rgb(255,255,255),rgb(0,0,0)
`eye
line jimbo(0).x+67,jimbo(0).y+70,jimbo(0).x+72,jimbo(0).y+70
line jimbo(0).x+59,jimbo(0).y+73,jimbo(0).x+67,jimbo(0).y+70
line jimbo(0).x+72,jimbo(0).y+70,jimbo(0).x+73,jimbo(0).y+77
line jimbo(0).x+73,jimbo(0).y+77,jimbo(0).x+71,jimbo(0).y+81
line jimbo(0).x+71,jimbo(0).y+81,jimbo(0).x+62,jimbo(0).y+80
line jimbo(0).x+58,jimbo(0).y+74,jimbo(0).x+62,jimbo(0).y+80
line jimbo(0).x+68,jimbo(0).y+74,jimbo(0).x+68,jimbo(0).y+78
line jimbo(0).x+68,jimbo(0).y+78,jimbo(0).x+69,jimbo(0).y+74
line jimbo(0).x+69,jimbo(0).y+74,jimbo(0).x+71,jimbo(0).y+77
line jimbo(0).x+68,jimbo(0).y+78,jimbo(0).x+70,jimbo(0).y+77
`body
ink rgb(255,0,0),rgb(0,0,0)
line jimbo(0).x+66,jimbo(0).y+120,jimbo(0).x+78,jimbo(0).y+162
line jimbo(0).x+78,jimbo(0).y+162,jimbo(0).x+67,jimbo(0).y+184
line jimbo(0).x+67,jimbo(0).y+184,jimbo(0).x+23,jimbo(0).y+184
line jimbo(0).x+23,jimbo(0).y+184,jimbo(0).x+11,jimbo(0).y+160
line jimbo(0).x+11,jimbo(0).y+160,jimbo(0).x+27,jimbo(0).y+120
line jimbo(0).x+27,jimbo(0).y+120,jimbo(0).x+66,jimbo(0).y+120
line jimbo(0).x+45,jimbo(0).y+131,jimbo(0).x+60,jimbo(0).y+152
line jimbo(0).x+60,jimbo(0).y+152,jimbo(0).x+48,jimbo(0).y+161
line jimbo(0).x+48,jimbo(0).y+161,jimbo(0).x+33,jimbo(0).y+147
ink rgb(255,255,255),rgb(0,0,0)
line jimbo(0).x+11,jimbo(0).y+159,jimbo(0).x+45,jimbo(0).y+166
line jimbo(0).x+45,jimbo(0).y+166,jimbo(0).x+78,jimbo(0).y+163
line jimbo(0).x+62,jimbo(0).y+124,jimbo(0).x+64,jimbo(0).y+130
line jimbo(0).x+67,jimbo(0).y+137,jimbo(0).x+69,jimbo(0).y+143
line jimbo(0).x+70,jimbo(0).y+151,jimbo(0).x+72,jimbo(0).y+159
line jimbo(0).x+69,jimbo(0).y+109,jimbo(0).x+52,jimbo(0).y+105
line jimbo(0).x+51,jimbo(0).y+104,jimbo(0).x+71,jimbo(0).y+105
else
ink rgb(255,255,255),rgb(0,0,0)
line jimbo(0).x+83,jimbo(0).y+0,jimbo(0).x+65,jimbo(0).y+0
line jimbo(0).x+65,jimbo(0).y+0,jimbo(0).x+62,jimbo(0).y+8
line jimbo(0).x+62,jimbo(0).y+8,jimbo(0).x+73,jimbo(0).y+16
line jimbo(0).x+73,jimbo(0).y+16,jimbo(0).x+83,jimbo(0).y+11
line jimbo(0).x+83,jimbo(0).y+11,jimbo(0).x+83,jimbo(0).y+1
line jimbo(0).x+73,jimbo(0).y+16,jimbo(0).x+66,jimbo(0).y+36
`hat borble
ink rgb(255,0,0),rgb(0,0,0)
line jimbo(0).x+66,jimbo(0).y+36,jimbo(0).x+66,jimbo(0).y+75
line jimbo(0).x+66,jimbo(0).y+75,jimbo(0).x+15,jimbo(0).y+52
line jimbo(0).x+15,jimbo(0).y+52,jimbo(0).x+31,jimbo(0).y+27
line jimbo(0).x+31,jimbo(0).y+27,jimbo(0).x+61,jimbo(0).y+8
line jimbo(0).x+15,jimbo(0).y+52,jimbo(0).x+10,jimbo(0).y+66
`hat
ink rgb(255,255,255),rgb(0,0,0)
line jimbo(0).x+10,jimbo(0).y+66,jimbo(0).x+10,jimbo(0).y+77
line jimbo(0).x+10,jimbo(0).y+77,jimbo(0).x+0,jimbo(0).y+98
line jimbo(0).x+0,jimbo(0).y+98,jimbo(0).x+13,jimbo(0).y+99
line jimbo(0).x+13,jimbo(0).y+99,jimbo(0).x+19,jimbo(0).y+117
line jimbo(0).x+15,jimbo(0).y+104,jimbo(0).x+35,jimbo(0).y+103
line jimbo(0).x+35,jimbo(0).y+103,jimbo(0).x+16,jimbo(0).y+108
line jimbo(0).x+66,jimbo(0).y+78,jimbo(0).x+60,jimbo(0).y+119
line jimbo(0).x+14,jimbo(0).y+69,jimbo(0).x+13,jimbo(0).y+76
`face
line jimbo(0).x+13,jimbo(0).y+76,jimbo(0).x+15,jimbo(0).y+80
line jimbo(0).x+15,jimbo(0).y+80,jimbo(0).x+24,jimbo(0).y+79
line jimbo(0).x+24,jimbo(0).y+79,jimbo(0).x+28,jimbo(0).y+74
line jimbo(0).x+28,jimbo(0).y+74,jimbo(0).x+20,jimbo(0).y+70
line jimbo(0).x+20,jimbo(0).y+70,jimbo(0).x+14,jimbo(0).y+70
line jimbo(0).x+17,jimbo(0).y+73,jimbo(0).x+16,jimbo(0).y+76
line jimbo(0).x+16,jimbo(0).y+76,jimbo(0).x+20,jimbo(0).y+75
line jimbo(0).x+20,jimbo(0).y+75,jimbo(0).x+17,jimbo(0).y+75
line jimbo(0).x+17,jimbo(0).y+75,jimbo(0).x+18,jimbo(0).y+73
line jimbo(0).x+15,jimbo(0).y+53,jimbo(0).x+54,jimbo(0).y+90
`eye
ink RGB(255,128,0),rgb(0,0,0)
line jimbo(0).x+26,jimbo(0).y+58,jimbo(0).x+37,jimbo(0).y+74
line jimbo(0).x+33,jimbo(0).y+62,jimbo(0).x+65,jimbo(0).y+106
line jimbo(0).x+40,jimbo(0).y+64,jimbo(0).x+61,jimbo(0).y+108
line jimbo(0).x+42,jimbo(0).y+68,jimbo(0).x+58,jimbo(0).y+80
line jimbo(0).x+43,jimbo(0).y+67,jimbo(0).x+63,jimbo(0).y+102
line jimbo(0).x+53,jimbo(0).y+70,jimbo(0).x+63,jimbo(0).y+106
line jimbo(0).x+57,jimbo(0).y+73,jimbo(0).x+65,jimbo(0).y+105
line jimbo(0).x+61,jimbo(0).y+76,jimbo(0).x+71,jimbo(0).y+102
line jimbo(0).x+66,jimbo(0).y+78,jimbo(0).x+64,jimbo(0).y+110
line jimbo(0).x+49,jimbo(0).y+68,jimbo(0).x+64,jimbo(0).y+96
line jimbo(0).x+60,jimbo(0).y+72,jimbo(0).x+60,jimbo(0).y+111
line jimbo(0).x+18,jimbo(0).y+54,jimbo(0).x+18,jimbo(0).y+63
line jimbo(0).x+22,jimbo(0).y+57,jimbo(0).x+63,jimbo(0).y+88
line jimbo(0).x+20,jimbo(0).y+119,jimbo(0).x+59,jimbo(0).y+119
`hair
ink rgb(255,0,0),rgb(0,0,0)
line jimbo(0).x+59,jimbo(0).y+119,jimbo(0).x+75,jimbo(0).y+159
line jimbo(0).x+75,jimbo(0).y+159,jimbo(0).x+64,jimbo(0).y+183
line jimbo(0).x+64,jimbo(0).y+183,jimbo(0).x+19,jimbo(0).y+183
line jimbo(0).x+19,jimbo(0).y+183,jimbo(0).x+8,jimbo(0).y+162
line jimbo(0).x+8,jimbo(0).y+162,jimbo(0).x+20,jimbo(0).y+120
line jimbo(0).x+41,jimbo(0).y+130,jimbo(0).x+26,jimbo(0).y+150
line jimbo(0).x+38,jimbo(0).y+160,jimbo(0).x+52,jimbo(0).y+146
line jimbo(0).x+26,jimbo(0).y+150,jimbo(0).x+37,jimbo(0).y+160
line jimbo(0).x+23,jimbo(0).y+123,jimbo(0).x+22,jimbo(0).y+130
`body
line jimbo(0).x+19,jimbo(0).y+137,jimbo(0).x+17,jimbo(0).y+143
line jimbo(0).x+16,jimbo(0).y+150,jimbo(0).x+16,jimbo(0).y+150
line jimbo(0).x+14,jimbo(0).y+158,jimbo(0).x+16,jimbo(0).y+151
line jimbo(0).x+8,jimbo(0).y+162,jimbo(0).x+40,jimbo(0).y+165
line jimbo(0).x+40,jimbo(0).y+165,jimbo(0).x+74,jimbo(0).y+158
endif


return

_level:
  `tree
  ink RGB(0,128,0),rgb(0,0,0)
  line 535,124,488,192
  line 488,192,527,183
  line 527,183,536,218
  line 536,218,556,183
  line 556,183,594,193
  line 594,193,536,124
  line 501,189,458,246
  line 458,246,509,230
  line 509,230,528,261
  line 528,261,545,226
  line 545,226,582,262
  line 582,262,564,212
  line 564,212,623,251
  line 623,251,585,191
  line 481,239,441,302
  line 441,302,498,289
  line 498,289,533,310
  line 533,310,569,287
  line 569,287,604,298
  line 604,298,605,271
  line 605,271,651,300
  line 651,300,606,240
  line 461,296,423,366
  line 423,366,488,342
  line 488,342,481,376
  line 481,376,531,341
  line 531,341,533,381
  line 533,381,560,338
  line 560,338,622,370
  line 622,370,597,327
  line 597,327,677,359
  line 677,359,635,290
  line 444,359,400,447
  line 400,447,475,421
  line 475,421,510,447
  line 510,447,546,418
  line 546,418,596,449
  line 596,449,639,408
  line 639,408,700,447
  line 700,447,659,352
  line 424,438,383,508
  line 383,508,475,489
  line 475,489,529,513
  line 529,513,542,470
  line 542,470,610,521
  line 610,521,652,476
  line 652,476,724,515
  line 724,515,687,439
  ink RGB(128,64,64),rgb(0,0,0)
  line 507,505,507,582
  line 507,582,577,582
  line 577,582,577,496
  ink RGB(255,255,255),rgb(0,0,0)
  ` star
  ink RGB(255,255,0),rgb(0,0,0)
  line 536,124,513,138
  line 513,138,526,109
  line 526,109,499,105
  line 499,105,531,93
  line 531,93,537,69
  line 537,69,547,93
  line 547,93,573,95
  line 573,95,548,109
  line 548,109,570,138
  line 570,138,536,123
  `floor
  ink rgb(255,255,255),rgb(0,0,0)
  box 0,583,800,600
return

_goon:
ink RGB(0,255,0),rgb(0,0,0)
line goon(0).x+1,goon(0).y+0,goon(0).x+15,goon(0).y+31
line goon(0).x+15,goon(0).y+31,goon(0).x+35,goon(0).y+33
line goon(0).x+35,goon(0).y+33,goon(0).x+27,goon(0).y+54
line goon(0).x+27,goon(0).y+54,goon(0).x+36,goon(0).y+71
line goon(0).x+36,goon(0).y+71,goon(0).x+65,goon(0).y+79
line goon(0).x+65,goon(0).y+79,goon(0).x+99,goon(0).y+68
line goon(0).x+99,goon(0).y+68,goon(0).x+106,goon(0).y+50
line goon(0).x+106,goon(0).y+50,goon(0).x+97,goon(0).y+30
line goon(0).x+97,goon(0).y+30,goon(0).x+125,goon(0).y+21
line goon(0).x+125,goon(0).y+21,goon(0).x+144,goon(0).y+0
line goon(0).x+144,goon(0).y+0,goon(0).x+130,goon(0).y+6
line goon(0).x+130,goon(0).y+6,goon(0).x+127,goon(0).y+0
line goon(0).x+127,goon(0).y+0,goon(0).x+120,goon(0).y+7
line goon(0).x+120,goon(0).y+7,goon(0).x+112,goon(0).y+1
line goon(0).x+112,goon(0).y+1,goon(0).x+112,goon(0).y+13
line goon(0).x+112,goon(0).y+13,goon(0).x+89,goon(0).y+25
line goon(0).x+89,goon(0).y+25,goon(0).x+78,goon(0).y+25
line goon(0).x+78,goon(0).y+25,goon(0).x+78,goon(0).y+14
line goon(0).x+78,goon(0).y+14,goon(0).x+84,goon(0).y+11
line goon(0).x+84,goon(0).y+11,goon(0).x+84,goon(0).y+2
line goon(0).x+84,goon(0).y+2,goon(0).x+70,goon(0).y+2
line goon(0).x+70,goon(0).y+2,goon(0).x+70,goon(0).y+9
line goon(0).x+70,goon(0).y+9,goon(0).x+73,goon(0).y+13
line goon(0).x+73,goon(0).y+13,goon(0).x+73,goon(0).y+26
line goon(0).x+73,goon(0).y+26,goon(0).x+69,goon(0).y+31
line goon(0).x+69,goon(0).y+31,goon(0).x+61,goon(0).y+27
line goon(0).x+61,goon(0).y+27,goon(0).x+61,goon(0).y+14
line goon(0).x+61,goon(0).y+14,goon(0).x+64,goon(0).y+11
line goon(0).x+64,goon(0).y+11,goon(0).x+64,goon(0).y+1
line goon(0).x+64,goon(0).y+1,goon(0).x+49,goon(0).y+1
line goon(0).x+49,goon(0).y+1,goon(0).x+48,goon(0).y+12
line goon(0).x+48,goon(0).y+12,goon(0).x+53,goon(0).y+17
line goon(0).x+53,goon(0).y+17,goon(0).x+53,goon(0).y+29
line goon(0).x+53,goon(0).y+29,goon(0).x+44,goon(0).y+29
line goon(0).x+44,goon(0).y+29,goon(0).x+24,goon(0).y+21
line goon(0).x+24,goon(0).y+21,goon(0).x+20,goon(0).y+8
line goon(0).x+20,goon(0).y+8,goon(0).x+25,goon(0).y+0
line goon(0).x+25,goon(0).y+0,goon(0).x+16,goon(0).y+5
line goon(0).x+16,goon(0).y+5,goon(0).x+2,goon(0).y+0
line goon(0).x+73,goon(0).y+14,goon(0).x+79,goon(0).y+14
line goon(0).x+52,goon(0).y+6,goon(0).x+58,goon(0).y+7
line goon(0).x+75,goon(0).y+5,goon(0).x+81,goon(0).y+5
line goon(0).x+56,goon(0).y+7,goon(0).x+55,goon(0).y+10
line goon(0).x+78,goon(0).y+5,goon(0).x+78,goon(0).y+8
line goon(0).x+45,goon(0).y+60,goon(0).x+87,goon(0).y+60
line goon(0).x+48,goon(0).y+60,goon(0).x+54,goon(0).y+70
line goon(0).x+54,goon(0).y+70,goon(0).x+57,goon(0).y+60
line goon(0).x+81,goon(0).y+60,goon(0).x+75,goon(0).y+69
line goon(0).x+75,goon(0).y+69,goon(0).x+71,goon(0).y+59
line goon(0).x+54,goon(0).y+44,goon(0).x+60,goon(0).y+49
line goon(0).x+78,goon(0).y+40,goon(0).x+72,goon(0).y+47
line goon(0).x+31,goon(0).y+63,goon(0).x+24,goon(0).y+89
line goon(0).x+24,goon(0).y+89,goon(0).x+48,goon(0).y+74
line goon(0).x+85,goon(0).y+72,goon(0).x+103,goon(0).y+90
line goon(0).x+103,goon(0).y+90,goon(0).x+102,goon(0).y+60
return

_logo:
   line 104,20,19,40
   line 19,40,16,141
   line 16,141,113,156
   line 113,156,114,126
   line 114,126,43,112
   line 43,112,42,58
   line 42,58,111,47
   line 111,47,104,19
   line 131,86,134,153
   line 134,153,152,153
   line 152,153,149,107
   line 149,107,171,95
   line 171,95,188,103
   line 188,103,189,111
   line 189,111,211,109
   line 211,109,201,88
   line 201,88,171,78
   line 171,78,151,88
   line 151,88,150,78
   line 150,78,130,85
   line 232,81,232,148
   line 232,148,251,148
   line 251,148,251,78
   line 251,78,232,80
   line 221,48,234,66
   line 234,66,252,65
   line 252,65,261,50
   line 261,50,243,32
   line 243,32,222,48
   line 274,81,273,153
   line 273,153,295,153
   line 295,153,294,109
   line 294,109,311,93
   line 311,93,331,105
   line 331,105,332,122
   line 332,122,350,122
   line 350,122,347,101
   line 347,101,361,88
   line 361,88,378,100
   line 378,100,379,156
   line 379,156,401,155
   line 401,155,396,84
   line 396,84,360,66
   line 360,66,339,85
   line 339,85,308,71
   line 308,71,293,88
   line 293,88,294,75
   line 294,75,273,80
   line 417,7,417,153
   line 417,153,460,169
   line 460,169,510,156
   line 510,156,510,100
   line 510,100,472,77
   line 472,77,443,91
   line 443,91,443,10
   line 443,10,417,7
   line 448,110,483,107
   line 483,107,497,125
   line 497,125,483,149
   line 483,149,451,150
   line 451,150,426,124
   line 426,124,447,109
   line 578,60,543,79
   line 543,79,527,105
   line 527,105,529,137
   line 529,137,540,160
   line 540,160,571,163
   line 571,163,610,162
   line 610,162,640,139
   line 640,139,640,108
   line 640,108,624,77
   line 624,77,601,60
   line 601,60,577,60
   line 556,100,579,85
   line 579,85,600,93
   line 600,93,620,113
   line 620,113,612,136
   line 612,136,582,143
   line 582,143,566,135
   line 566,135,554,107
   line 554,107,554,100
   line 82,183,195,180
   line 195,180,196,216
   line 196,216,151,210
   line 151,210,154,282
   line 154,282,130,312
   line 130,312,85,310
   line 85,310,80,281
   line 80,281,102,278
   line 102,278,111,294
   line 111,294,130,280
   line 130,280,127,210
   line 127,210,82,209
   line 82,209,82,182
   line 208,248,204,308
   line 204,308,228,309
   line 228,309,229,247
   line 229,247,206,247
   line 209,225,212,235
   line 212,235,229,233
   line 229,233,235,218
   line 235,218,223,204
   line 223,204,210,206
   line 210,206,207,222
   line 260,225,253,307
   line 253,307,274,306
   line 274,306,277,256
   line 277,256,298,244
   line 298,244,320,257
   line 320,257,321,275
   line 321,275,339,276
   line 339,276,340,251
   line 340,251,355,238
   line 355,238,374,256
   line 374,256,369,302
   line 369,302,389,303
   line 389,303,389,245
   line 389,245,355,214
   line 355,214,325,230
   line 325,230,294,216
   line 294,216,277,237
   line 277,237,277,220
   line 277,220,259,224
   line 416,172,416,309
   line 416,309,463,322
   line 463,322,509,305
   line 509,305,511,255
   line 511,255,468,235
   line 468,235,439,250
   line 439,250,441,175
   line 441,175,416,171
   line 447,264,469,259
   line 469,259,482,263
   line 482,263,489,276
   line 489,276,483,293
   line 483,293,465,295
   line 465,295,441,293
   line 441,293,432,274
   line 432,274,434,259
   line 434,259,447,264
   line 574,207,539,223
   line 539,223,529,248
   line 529,248,530,280
   line 530,280,534,307
   line 534,307,574,315
   line 574,315,616,313
   line 616,313,636,300
   line 636,300,637,270
   line 637,270,627,239
   line 627,239,608,215
   line 608,215,598,206
   line 598,206,572,207
   line 560,236,560,257
   line 560,257,560,273
   line 560,273,575,278
   line 575,278,595,278
   line 595,278,597,260
   line 597,260,596,242
   line 596,242,582,233
   line 582,233,568,232
   line 568,232,559,236
return


_bomb:
   ink RGB(255,255,255),rgb(0,0,0)
   line bomb(cbomb).x+4,bomb(cbomb).y+0,bomb(cbomb).x+0,bomb(cbomb).y+2
   line bomb(cbomb).x+0,bomb(cbomb).y+2,bomb(cbomb).x+6,bomb(cbomb).y+10
   line bomb(cbomb).x+6,bomb(cbomb).y+10,bomb(cbomb).x+25,bomb(cbomb).y+13
   line bomb(cbomb).x+25,bomb(cbomb).y+13,bomb(cbomb).x+30,bomb(cbomb).y+18
   line bomb(cbomb).x+30,bomb(cbomb).y+18,bomb(cbomb).x+17,bomb(cbomb).y+28
   line bomb(cbomb).x+17,bomb(cbomb).y+28,bomb(cbomb).x+9,bomb(cbomb).y+44
   line bomb(cbomb).x+9,bomb(cbomb).y+44,bomb(cbomb).x+11,bomb(cbomb).y+67
   line bomb(cbomb).x+11,bomb(cbomb).y+67,bomb(cbomb).x+25,bomb(cbomb).y+81
   line bomb(cbomb).x+25,bomb(cbomb).y+81,bomb(cbomb).x+48,bomb(cbomb).y+87
   line bomb(cbomb).x+48,bomb(cbomb).y+87,bomb(cbomb).x+75,bomb(cbomb).y+82
   line bomb(cbomb).x+75,bomb(cbomb).y+82,bomb(cbomb).x+91,bomb(cbomb).y+65
   line bomb(cbomb).x+91,bomb(cbomb).y+65,bomb(cbomb).x+97,bomb(cbomb).y+44
   line bomb(cbomb).x+97,bomb(cbomb).y+44,bomb(cbomb).x+86,bomb(cbomb).y+15
   line bomb(cbomb).x+86,bomb(cbomb).y+15,bomb(cbomb).x+71,bomb(cbomb).y+8
   line bomb(cbomb).x+71,bomb(cbomb).y+8,bomb(cbomb).x+51,bomb(cbomb).y+9
   line bomb(cbomb).x+51,bomb(cbomb).y+9,bomb(cbomb).x+35,bomb(cbomb).y+15
   line bomb(cbomb).x+35,bomb(cbomb).y+15,bomb(cbomb).x+25,bomb(cbomb).y+5
   line bomb(cbomb).x+25,bomb(cbomb).y+5,bomb(cbomb).x+11,bomb(cbomb).y+4
   line bomb(cbomb).x+11,bomb(cbomb).y+4,bomb(cbomb).x+4,bomb(cbomb).y+0
   `wik
   ink RGB(162,160,136),rgb(0,0,0)
   line bomb(cbomb).x+1,bomb(cbomb).y+4,bomb(cbomb).x+10,bomb(cbomb).y+4
   line bomb(cbomb).x+6,bomb(cbomb).y+9,bomb(cbomb).x+17,bomb(cbomb).y+5
   line bomb(cbomb).x+17,bomb(cbomb).y+10,bomb(cbomb).x+24,bomb(cbomb).y+5
   line bomb(cbomb).x+25,bomb(cbomb).y+12,bomb(cbomb).x+30,bomb(cbomb).y+10
   line bomb(cbomb).x+28,bomb(cbomb).y+15,bomb(cbomb).x+33,bomb(cbomb).y+13
   `letters
   ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)
   line bomb(cbomb).x+14,bomb(cbomb).y+52,bomb(cbomb).x+26,bomb(cbomb).y+69
   line bomb(cbomb).x+26,bomb(cbomb).y+69,bomb(cbomb).x+35,bomb(cbomb).y+60
   line bomb(cbomb).x+35,bomb(cbomb).y+60,bomb(cbomb).x+34,bomb(cbomb).y+55
   line bomb(cbomb).x+34,bomb(cbomb).y+55,bomb(cbomb).x+31,bomb(cbomb).y+51
   line bomb(cbomb).x+31,bomb(cbomb).y+51,bomb(cbomb).x+27,bomb(cbomb).y+53
   line bomb(cbomb).x+27,bomb(cbomb).y+53,bomb(cbomb).x+19,bomb(cbomb).y+60
   line bomb(cbomb).x+28,bomb(cbomb).y+51,bomb(cbomb).x+27,bomb(cbomb).y+44
   line bomb(cbomb).x+27,bomb(cbomb).y+44,bomb(cbomb).x+22,bomb(cbomb).y+41
   line bomb(cbomb).x+22,bomb(cbomb).y+41,bomb(cbomb).x+14,bomb(cbomb).y+52
   line bomb(cbomb).x+36,bomb(cbomb).y+41,bomb(cbomb).x+36,bomb(cbomb).y+50
   line bomb(cbomb).x+36,bomb(cbomb).y+50,bomb(cbomb).x+41,bomb(cbomb).y+57
   line bomb(cbomb).x+41,bomb(cbomb).y+57,bomb(cbomb).x+51,bomb(cbomb).y+52
   line bomb(cbomb).x+51,bomb(cbomb).y+52,bomb(cbomb).x+50,bomb(cbomb).y+42
   line bomb(cbomb).x+50,bomb(cbomb).y+42,bomb(cbomb).x+40,bomb(cbomb).y+39
   line bomb(cbomb).x+40,bomb(cbomb).y+39,bomb(cbomb).x+37,bomb(cbomb).y+40
   line bomb(cbomb).x+49,bomb(cbomb).y+32,bomb(cbomb).x+57,bomb(cbomb).y+47
   line bomb(cbomb).x+50,bomb(cbomb).y+32,bomb(cbomb).x+57,bomb(cbomb).y+32
   line bomb(cbomb).x+57,bomb(cbomb).y+32,bomb(cbomb).x+61,bomb(cbomb).y+38
   line bomb(cbomb).x+58,bomb(cbomb).y+33,bomb(cbomb).x+62,bomb(cbomb).y+24
   line bomb(cbomb).x+62,bomb(cbomb).y+24,bomb(cbomb).x+69,bomb(cbomb).y+41
   line bomb(cbomb).x+61,bomb(cbomb).y+12,bomb(cbomb).x+76,bomb(cbomb).y+41
   line bomb(cbomb).x+76,bomb(cbomb).y+41,bomb(cbomb).x+89,bomb(cbomb).y+34
   line bomb(cbomb).x+89,bomb(cbomb).y+34,bomb(cbomb).x+78,bomb(cbomb).y+18
   line bomb(cbomb).x+78,bomb(cbomb).y+18,bomb(cbomb).x+67,bomb(cbomb).y+27
   `flame
   for tmp1=1 to 5
      select rnd(4)
         case 0 : ink RGB(255,0,0),rgb(0,0,0) : endcase
         case 1 : ink RGB(255,128,0),rgb(0,0,0) : endcase
         case 2 : ink RGB(255,255,0),rgb(0,0,0) : endcase
         case 3 : ink RGB(221,79,11),rgb(0,0,0) : endcase
         case 4 : ink RGB(255,216,98),rgb(0,0,0) : endcase
      endselect
      line bomb(cbomb).x,bomb(cbomb).y,bomb(cbomb).x-5+rnd(10),bomb(cbomb).y-rnd(20)
   next tmp1
return

_game_over:
do
ink rgb(rnd(255),rnd(255),rnd(255)),rgb(0,0,0)
line 148,49,67,48
line 67,48,36,116
line 36,116,55,196
line 55,196,136,197
line 136,197,149,150
line 149,150,95,134
line 95,134,90,155
line 90,155,125,163
line 125,163,117,173
line 117,173,73,166
line 73,166,59,124
line 59,124,81,69
line 81,69,133,69
line 133,69,148,50
line 153,196,187,48
line 187,48,220,48
line 220,48,252,190
line 252,190,216,187
line 216,187,207,132
line 207,132,197,132
line 197,132,178,198
line 178,198,154,197
line 198,80,207,80
line 207,80,214,107
line 214,107,190,107
line 190,107,197,80
line 278,196,295,48
line 295,48,321,48
line 321,48,341,132
line 341,132,367,50
line 367,50,398,50
line 398,50,408,195
line 408,195,377,195
line 377,195,376,92
line 376,92,348,159
line 348,159,331,160
line 331,160,308,90
line 308,90,302,192
line 302,192,278,196
line 450,47,421,194
line 421,194,513,194
line 513,194,529,166
line 529,166,448,166
line 448,166,460,129
line 460,129,511,130
line 511,130,527,100
line 527,100,463,100
line 463,100,471,71
line 471,71,535,70
line 535,70,553,45
line 553,45,451,47
line 96,227,96,376
line 96,376,176,375
line 176,375,186,230
line 186,230,96,226
line 123,266,122,338
line 122,338,157,338
line 157,338,161,266
line 161,266,123,266
line 208,229,245,400
line 245,400,307,402
line 307,402,360,222
line 360,222,313,222
line 313,222,285,350
line 285,350,251,226
line 251,226,208,228
line 381,233,351,389
line 351,389,460,386
line 460,386,452,337
line 452,337,388,344
line 388,344,396,306
line 396,306,459,304
line 459,304,459,268
line 459,268,393,268
line 393,268,406,241
line 406,241,463,245
line 463,245,461,213
line 461,213,382,214
line 382,214,381,236
line 488,214,495,390
line 495,390,527,391
line 527,391,522,310
line 522,310,573,392
line 573,392,608,392
line 608,392,534,287
line 534,287,587,261
line 587,261,588,211
line 588,211,488,214
line 488,214,488,220
line 519,233,553,234
line 553,234,553,251
line 553,251,522,260
line 522,260,520,232
line 666,201,667,340
line 667,340,703,340
line 703,340,740,170
line 740,170,666,201
line 662,369,656,420
line 656,420,696,420
line 696,420,719,358
line 719,358,662,368
line 662,368,661,380
text 300,500,"Press ENTER to retry or ESCAPE to exit"
if returnkey()=1
   score=0
   jimbo(0).x = 300 : jimbo(0).y = 300 : jimbo(0).life = 100
   goon(0).x = 700 : goon(0).y = 100 : goon(0).life = 10
   bomb(0).x=300 : bomb(0).y=600 : bomb(1).life = -5
   cimg = 1 : nextdrop=timer()+(1000*1) : bomb(2).speed = cimg
   start=timer() : teleport=timer()+2000
   return
endif
sync
loop

function blow_up(phase,x,y)
   for tmp=1 to phase
      select rnd(4)
         case 0 : ink RGB(255,0,0),rgb(0,0,0) : endcase
         case 1 : ink RGB(255,128,0),rgb(0,0,0) : endcase
         case 2 : ink RGB(255,255,0),rgb(0,0,0) : endcase
         case 3 : ink RGB(221,79,11),rgb(0,0,0) : endcase
         case 4 : ink RGB(255,216,98),rgb(0,0,0) : endcase
      endselect

      circle x,y,tmp
   next tmp2
endfunction
function splatter(phase,x,y,color)
   ink color,rgb(0,0,0)
   phase=phase/2
   for tmp1=1 to phase

      box x+tmp1,y-10+rnd(20),x+tmp1+2,y+2-10+rnd(20)
      box x-10+rnd(20),y+tmp1,x+2-10+rnd(20),y+tmp1+2
      box x+tmp1,y+tmp1-10+rnd(20),x+tmp1+2,y+tmp1+2-10+rnd(20)
      box x-tmp1,y-10+rnd(20),x-tmp1+2,y+2-10+rnd(20)
      box x-10+rnd(20),y-tmp1,x+2-10+rnd(20),y-tmp1+2
      box x-tmp1-10+rnd(20),y-tmp1,x-tmp1+2-10+rnd(20),y-tmp1+2

   next tmp1


endfunction

set display mode 800,600,16
if file exist("pic.bmp") then load image "pic.bmp",1,1
if file exist("code.txt") then delete file "code.txt"

type stright
   x1 as integer
   x2 as integer
   y1 as integer
   y2 as integer
   marker as string
endtype

dim lines(1000) as stright

ink rgb(255,255,255),rgb(0,0,0)
mode=0 : cline=0
do

cls
if image exist(1) then paste image 1,0,0

if mouseclick()=1 and mode=0
   dot mousex(),mousey()
   lines(cline).x1 = mousex()
   lines(cline).y1 = mousey()
   mode=1
   sleep 300
endif

if mode=1
   line lines(cline).x1,lines(cline).y1,mousex(),mousey()

   if mouseclick()=1
      lines(cline).x2 = mousex()
      lines(cline).y2 = mousey()
      mode=0 : inc cline
      sleep 300
   endif

   if mouseclick()=2
      lines(cline).x2 = mousex()
      lines(cline).y2 = mousey()
      mode=0 : inc cline
      dot mousex(),mousey()
      lines(cline).x1 = mousex()
      lines(cline).y1 = mousey()
      mode=1
      sleep 300
   endif
endif

if spacekey()=1
   input "Comment: ",tmp2$
   lines(cline).marker = "`"+tmp2$
endif

for tmp1=0 to cline-1
   line lines(tmp1).x1,lines(tmp1).y1,lines(tmp1).x2,lines(tmp1).y2
next tmp1

if shiftkey()=1 then goto _save
loop

_save:
   open to write 1,"code.txt"
   for tmp1=0 to cline-1
      code$ = "line "+str$(lines(tmp1).x1)+","+str$(lines(tmp1).y1)+","+str$(lines(tmp1).x2)+","+str$(lines(tmp1).y2)
      write string 1,code$
      if len(lines(tmp1).marker) > 1 then write string 1,lines(tmp1).marker
   next tmp1
   close file 1

`******************************************************
`
`                 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#=1
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:
size#=30
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

if music#=1
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 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 ENTER TO START"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,651:print "MUSIC : ON       [PRESS 2 TO CHANGE]"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,650:print "MUSIC : ON       [PRESS 2 TO CHANGE]"

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"
endif

if music#=0
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 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 ENTER TO START"

ink rgb(100,200,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 301,651:print "MUSIC : OFF      [PRESS 2 TO CHANGE]"
ink rgb(0,100,250),0
set text font "ARIAL"
set text to bold
set text size 20
set cursor 300,650:print "MUSIC : OFF      [PRESS 2 TO CHANGE]"

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"
endif

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

if lower$(inkey$())="2"
music#=music#+1
wait 100
endif
if music#>1 then music#=0

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

`----------------------------------------
`-       Created By DBProgrammer        -
`----------------------------------------
`-         For the MMCC of 2007         -
`----------------------------------------

dim tree(300,3)
dim playerstart(1,3)
dim present(50,4)
dim sled(1,3)
dim deer(6,3)


trees=16
data 94
data 71
data 300
data 217
data 71
data 159
data 406
data 71
data 209
data 567
data 72
data 141
data 667
data 72
data 304
data 839
data 70
data 128
data 911
data 71
data 341
data 819
data 72
data 545
data 563
data 71
data 585
data 751
data 70
data 744
data 860
data 71
data 918
data 588
data 71
data 863
data 378
data 72
data 701
data 183
data 70
data 554
data 124
data 70
data 763
data 312
data 72
data 901
data 343
data 16
data 481
presents=9
data 220
data 16
data 441
data 1
data 180
data 15
data 413
data 1
data 610
data 16
data 636
data 2
data 385
data 17
data 769
data 1
data 637
data 16
data 917
data 3
data 799
data 16
data 792
data 1
data 897
data 16
data 567
data 2
data 907
data 17
data 76
data 1
data 33
data 16
data 258
data 3
data 281
data 72
data 389
deer=6
data 393
data 71
data 406
data 455
data 70
data 406
data 516
data 70
data 406
data 516
data 71
data 378
data 450
data 70
data 378
data 386
data 71
data 378


        if file exist("map.santa")=1
        delete file "map.santa"
        endif
        open to write 1,"map.Santa"
        write string 1,"Trees"
        write file 1,trees
            for t=1 to trees
               read x
               read y
               read z
                write file 1,x
                write file 1,y
                write file 1,z
            next t
            write string 1,"player"
               read x
               read y
               read z
                write file 1,x
                write file 1,y
                write file 1,z
            write string 1,"presents"
            write file 1,presents
            for t=1 to presents
               read x
               read y
               read z
               read color
                write file 1,x
                write file 1,y
                write file 1,z
                write file 1,color
            next t

        write string 1,"Sled"
               read x
               read y
               read z
                write file 1,x
                write file 1,y
                write file 1,z
        write string 1,"Deer"
        write file 1,deer
            for t=1 to deer
               read x
               read y
               read z
                write file 1,x
                write file 1,y
                write file 1,z
            next t
            close file 1

if path exist("Media")=1
delete directory "Media"
make directory "Media"
else
make directory "Media"
endif

if path exist("Media/Santa")=0
make directory "Media/Santa"
endif

if path exist("Media/Sleigh")=0
make directory "Media/Sleigh"
endif

if path exist("Media/Other Objects")=0
make directory "Media/Other Objects"
endif

if file exist("Gift01.jpg")=0
exit prompt "You did not include the Gift Media!!!","Error"
end
else
load image "Gift01.jpg",15
endif

`if file exist("Gift02.bmp")=0
ChangeColor(15,16,17)
save image "Gift02.jpg",16
save image "Gift03.jpg",17
`endif

if file exist("Media/Santa/Santa.dbo")=0
santa()
save object "Media/Santa/Santa.dbo",10
endif

if file exist("Media/Other Objects/Grass.bmp")=0
makegrass(4,64)
endif

if file exist("Media/Other Objects/Snow.bmp")=0
makesnow(5,64)
endif

if file exist("Media/Other Objects/Wood.bmp")=0
makewood(6,64)
endif

if file exist("Media/Other Objects/Tree.dbo")=0
MakeChristmasTree(1,4,6)
endif

if file exist("Media/Other Objects/Snowflake.bmp")=0
CreateSnowflake(7)
endif

if file exist("Media/Sleigh/Rail tex.bmp")=0
railtexture(8)
endif

if file exist("Media/Sleigh/Body tex.bmp")=0
bodytexture(9)
endif

if file exist("Media/Sleigh/Main Body.dbo")=0
MakeSleighBody(2)
endif

if file exist("Media/Sleigh/Rail.dbo")=0
MakeRail(3)
endif

if file exist("Media/Sleigh/Sleigh.dbo")=0
CreateSled(4,9,8)
endif

delete objects 1,10

if file exist("Media/Other Objects/Tree Image.bmp")=0
maketreeimage(10,1)
endif

delete object 1

if file exist("Media/Other Objects/Present Image.bmp")=0
MakePresentImage(11,1)
endif

if file exist("Media/Sleigh/Deer.bmp")=0
delete image 1
makedeertexture(1)
endif

if file exist("Media/Sleigh/Deer.dbo")=0
delete object 1
createdeer(1,1)
endif


end

function MakePresentImage(Image,Object)
load object "gift01.x",Object
scale object Object,1,1,1
xrotate object Object,270
yrotate object Object,245
color backdrop rgb(0,0,0)
position camera 0,1,-2
point camera 0,0,0
sync:sync
get image Image,195,110,470,410
save image "Media/Other Objects/Present Image.bmp",Image
endfunction



function MakeTreeImage(Image,Object)
load object "Media/Other Objects/Tree.dbo",object
color backdrop rgb(0,0,0)
position camera 0,-2.5,-10
rotate camera 0,0,0
sync:sync
get image image,215,10,425,285
save image "Media/Other Objects/Tree Image.bmp",image
endfunction

function MakeRail(Object)
make object box Object,20,5,1.2

obj=freeobject()
make object box obj,10,7,10
position object obj,0,3.5,0
perform csg difference object,obj
delete object obj

make object box obj,5,7,10
position object obj,9,3.5,0
perform csg difference object,obj

position object obj,-9,3.5,0
perform csg difference object,obj
delete object obj

if file exist("Media/Sleigh/Rail.dbo")=1
delete file "Media/Sleigh/Rail.dbo"
endif
save object "Media/Sleigh/Rail.dbo",Object

endfunction

function MakeSleighBody(Object)
make object box Object,50,25,50

obj=freeobject()
make object box obj,44.05,33.32,50
position object obj,8.84,20.54,0
perform csg difference object,obj
delete object obj

make object box obj,48,25,48
position object obj,0,1,0
perform csg difference object,obj
delete object obj

if file exist("Media/Sleigh/Main Body.dbo")=1
delete file "Media/Sleigh/Main Body.dbo"
endif
save object "Media/Sleigh/Main Body.dbo",Object

endfunction

function CreateSled(Object,Body,rail)
load object "Media/Sleigh/Main Body.dbo",Object
scale object Object,170,100,80
texture object Object,Body

obj=freeobject()
load object "Media/Sleigh/Rail.dbo",obj
scale object obj,300,300,100
make mesh from object obj,obj
delete object obj
add limb Object,1,obj
offset limb Object,1,0,-20,-20
rotate limb Object,1,15,0,0
texture limb Object,1,rail
add limb Object,2,obj
offset limb Object,2,0,-19,20
rotate limb Object,2,-15,0,0
texture limb Object,2,rail
delete mesh obj
delete object obj

make object sphere obj,26
scale object obj,90,150,100
obj2=freeobject()
make object cone obj2,10
xrotate object obj2,180
position object obj2,0,22,0
make mesh from object obj2,obj2
delete object obj2
add limb obj,1,obj2
offset limb obj,1,0,15,0
make mesh from object obj,obj
add limb Object,3,obj
scale limb Object,3,100,80,170
offset limb Object,3,-18.5,3,0
rotate limb Object,3,15,0,15
texture limb Object,3,Body
delete mesh obj
delete object obj
delete object obj2
fixObjectScale(object,170,100,80)
save object "Media/Sleigh/Sleigh.dbo",Object
endfunction

function railtexture(image)
create bitmap 1,1,1
set current bitmap 1
dot 0,0,rgb(150,150,150)
get image Image,0,0,1,1
delete bitmap 1
set current bitmap 0
save image "Media/Sleigh/rail tex.bmp",image
delete image image
load image "Media/Sleigh/rail tex.bmp",image
endfunction

function bodytexture(image)
create bitmap 1,1,1
set current bitmap 1
dot 0,0,rgb(200,0,0)
get image Image,0,0,1,1
delete bitmap 1
set current bitmap 0
save image "Media/Sleigh/Body tex.bmp",image
delete image image
load image "Media/Sleigh/Body tex.bmp",image
endfunction

function CreateSnowflake(Im)
ink rgb(255,255,255),rgb(255,255,255)
print "T"
get image Im,0,0,text width("T"),text height("T")
cls
sprite Im,0,0,Im
hide sprite Im
flip sprite Im
offset sprite Im,(sprite width(Im)/2),(sprite height(Im)/2)


rotate sprite Im,90
paste sprite Im,44,50

rotate sprite Im,180
paste sprite Im,50,44

rotate sprite Im,270
paste sprite Im,55,50

rotate sprite Im,360
paste sprite Im,50,55

get image Im,40,40,60,60


sprite Im,0,0,Im
offset sprite Im,(sprite width(Im)/2),(sprite height(Im)/2)
hide sprite Im

rotate sprite Im,0
paste sprite Im,sprite width(Im)/2,sprite height(Im)/2
rotate sprite Im,45
paste sprite Im,sprite width(Im)/2,sprite height(Im)/2

get image Im,0,0,sprite width(Im),sprite height(Im)
save image "Media/Other Objects/SnowFlake.bmp",Im
delete image Im
load image "Media/Other Objects/SnowFlake.bmp",Im

endfunction

function FreeObject()
for t=1 to 1000
if object exist(t)=0
exitfunction t
endif
next t
endfunction 0

function MakeChristmasTree(Object,Tree,Stump)
make object cone Object,5
texture object Object,Tree
freeob=freeobject()
make object cylinder freeob,1
make mesh from object 1,freeob
add limb object,1,1
offset limb object,1,0,-2.99,0
texture limb object,1,stump
delete object freeob
delete mesh 1
save object "Media/Other Objects/Tree.dbo",object
delete object object
load object "Media/Other Objects/Tree.dbo",object
endfunction

function makegrass(Image,Size)
create bitmap 1,size,size
set current bitmap 1
for i=1 to 3000*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(0,rnd(255),0)
next i
get image Image,1,1,size,size
delete bitmap 1
set current bitmap 0
save image "Media/Other Objects/Grass.bmp",Image
delete image Image
load image "Media/Other Objects/Grass.bmp",Image
endfunction

function makesnow(Image,Size)
create bitmap 1,Size,Size
set current bitmap 1
for t=1 to 5000
randomize t
color=rnd(100)+155
dot rnd(Size),rnd(Size),rgb(color,color,color)
next t
get image Image,1,1,Size,Size
delete bitmap 1
set current bitmap 0
save image "Media/Other Objects/Snow.bmp",Image
delete image Image
load image "Media/Other Objects/Snow.bmp",Image
endfunction

function makewood(Image,Size)
create bitmap 1,Size,Size
set current bitmap 1
for t=1 to 5000
randomize t
color=rnd(175)+80
x=rnd(Size)
randomize t+1
y1=rnd(Size)
randomize t+2
y2=rnd(Size)
ink rgb(color,color/2,0),rgb(color,0,0)
line x,y1,x,y2
next t
get image Image,1,1,Size,Size
delete bitmap 1
set current bitmap 0
save image "Media/Other Objects/Wood.bmp",Image
delete image Image
load image "Media/Other Objects/Wood.bmp",Image
endfunction

function makered(num,size)
create bitmap 1,size,size
set current bitmap 1
cls rgb(200,0,0)
for i=1 to 300*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(rnd(20)+200,0,0)
next i
get image num,1,1,size,size
delete bitmap 1
set current bitmap 0
save image "Media/Santa/Red.bmp",num
delete image num
load image "Media/Santa/Red.bmp",num
endfunction

function makeblack(num,size)
create bitmap 1,size,size
set current bitmap 1
cls rgb(0,0,0)
for i=1 to 300*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(rnd(20),rnd(20),rnd(20))
next i
get image num,1,1,size,size
delete bitmap 1
set current bitmap 0
save image "Media/Santa/Black.bmp",num
delete image num
load image "Media/Santa/Black.bmp",num
endfunction

function makeskin(num,size)
create bitmap 1,size,size
set current bitmap 1
cls rgb(250,250,200)
for i=1 to 300*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(rnd(20)+230,rnd(20)+230,rnd(20)+180)
next i
get image num,1,1,size,size
delete bitmap 1
set current bitmap 0
save image "Media/Santa/Skin.bmp",num
delete image num
load image "Media/Santa/Skin.bmp",num
endfunction

function makewhite(num,size)
create bitmap 1,size,size
set current bitmap 1
cls rgb(255,255,255)
for i=1 to 300*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(255-rnd(20),255-rnd(20),255-rnd(20))
next i
get image num,1,1,size,size
delete bitmap 1
set current bitmap 0
save image "Media/Santa/white.bmp",num
delete image num
load image "Media/Santa/white.bmp",num
endfunction

function makeredcoat(num,size)
create bitmap 1,size,size
set current bitmap 1
cls rgb(200,0,0)
for i=1 to 300*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(rnd(20)+200,0,0)
next i
ink rgb(30,30,30),rgb(30,30,30)
box 0,40,64,50
get image num,1,1,size,size
delete bitmap 1
set current bitmap 0
save image "Media/Santa/Coat.bmp",num
delete image num
load image "Media/Santa/Coat.bmp",num
endfunction

function santa()


`make textures
makered(1,64)
makeredcoat(2,64)
makeblack(3,64)
makeskin(4,64)
makewhite(5,64)

`setup vals
#constant leftarm 1
#constant leftcuff 2
#constant lefthand 3
#constant rightarm 4
#constant rightcuff 5
#constant righthand 6

#constant leftleg 7
#constant leftlegcuff 8
#constant leftfoot 9
#constant rightleg 10
#constant rightlegcuff 11
#constant rightfoot 12

#constant mbody 13
#constant head 14
#constant beard 15
#constant hat1 16
#constant hat2 17
#constant hat3 18
#constant hat4 19
#constant hat5 20

`make belly
make object box 10,50,40,50
position object 10,0,-45,0
texture object 10,2

`make left arm
make object box 1,10,60,10
make mesh from object 1,1
delete object 1
add limb 10,leftarm,1
link limb 10,0,leftarm
offset limb 10,leftarm,40,-10,0
rotate limb 10,leftarm,0,0,15
texture limb 10,leftarm,1

`make wrist cuff
make object box 1,15,5,15
make mesh from object 1,1
delete object 1
add limb 10,leftcuff,1
link limb 10,leftarm,leftcuff
offset limb 10,leftcuff,0,-30,0
color limb 10,leftcuff,rgb(255,255,255)
delete mesh 1

`make hand
make object box 1,7,15,10
make mesh from object 1,1
delete object 1
add limb 10,lefthand,1
link limb 10,leftcuff,lefthand
offset limb 10,lefthand,0,-7.5,0
color limb 10,lefthand,rgb(233,231,188)
delete mesh 1


`make right arm
make object box 1,10,60,10
make mesh from object 1,1
delete object 1
add limb 10,rightarm,1
link limb 10,0,rightarm
offset limb 10,rightarm,-40,-10,0
rotate limb 10,rightarm,0,0,-15
texture limb 10,rightarm,1
delete mesh 1

`make wrist cuff
make object box 1,15,5,15
make mesh from object 1,1
delete object 1
add limb 10,rightcuff,1
link limb 10,rightarm,rightcuff
offset limb 10,rightcuff,0,-30,0
color limb 10,rightcuff,rgb(255,255,255)
delete mesh 1

`make hand
make object box 1,7,15,10
make mesh from object 1,1
delete object 1
add limb 10,righthand,1
link limb 10,rightcuff,righthand
offset limb 10,righthand,0,-7.5,0
color limb 10,righthand,rgb(233,231,188)
delete mesh 1

`make left leg
make object box 1,20,60,25
make mesh from object 1,1
delete object 1
add limb 10,leftleg,1
link limb 10,0,leftleg
offset limb 10,leftleg,12.5,-50,0
texture limb 10,leftleg,1
delete mesh 1

`make foot cuff
make object box 1,25,10,30
make mesh from object 1,1
delete object 1
add limb 10,leftlegcuff,1
link limb 10,leftleg,leftlegcuff
offset limb 10,leftlegcuff,0,-30,0
texture limb 10,leftlegcuff,5
delete mesh 1

`make foot
make object box 1,20,15,40
make mesh from object 1,1
delete object 1
add limb 10,leftfoot,1
link limb 10,leftlegcuff,leftfoot
offset limb 10,leftfoot,0,-7.5,-5
texture limb 10,leftfoot,3
delete mesh 1

`make right leg
make object box 1,20,60,25
make mesh from object 1,1
delete object 1
add limb 10,rightleg,1
link limb 10,0,rightleg
offset limb 10,rightleg,-12.5,-50,0
texture limb 10,rightleg,1
delete mesh 1

`make foot cuff
make object box 1,25,10,30
make mesh from object 1,1
delete object 1
add limb 10,rightlegcuff,1
link limb 10,rightleg,rightlegcuff
offset limb 10,rightlegcuff,0,-30,0
texture limb 10,rightlegcuff,5
delete mesh 1

`make foot
make object box 1,20,15,40
make mesh from object 1,1
delete object 1
add limb 10,rightfoot,1
link limb 10,rightlegcuff,rightfoot
offset limb 10,rightfoot,0,-7.5,-5
texture limb 10,rightfoot,3
delete mesh 1

`make mbody
make object box 1,40,60,40
make mesh from object 1,1
delete object 1
add limb 10,mbody,1
link limb 10,0,mbody
offset limb 10,mbody,0,20,0
texture limb 10,mbody,1
delete mesh 1

`make head
make object box 1,30,30,30
make mesh from object 1,1
delete object 1
add limb 10,head,1
link limb 10,mbody,head
offset limb 10,head,0,40,0
texture limb 10,head,4
delete mesh 1

`make beard
make object box 1,25,25,10
make mesh from object 1,1
delete object 1
add limb 10,beard,1
link limb 10,head,beard
offset limb 10,beard,0,-20,-20
rotate limb 10,beard,25,0,0
texture limb 10,beard,5
delete mesh 1

`make hat
make object box 1,50,10,50
make mesh from object 1,1
delete object 1
add limb 10,hat1,1
link limb 10,head,hat1
offset limb 10,hat1,0,17,0
texture limb 10,hat1,5
delete mesh 1

make object box 1,40,10,40
make mesh from object 1,1
delete object 1
add limb 10,hat2,1
link limb 10,hat1,hat2
offset limb 10,hat2,0,7,0
texture limb 10,hat2,1

make object box 1,26,12,26
make mesh from object 1,1
delete object 1
add limb 10,hat3,1
link limb 10,hat2,hat3
offset limb 10,hat3,0,15,0
texture limb 10,hat3,1

make object box 1,16,10,16
make mesh from object 1,1
delete object 1
add limb 10,hat4,1
link limb 10,hat3,hat4
offset limb 10,hat4,0,15,0
texture limb 10,hat4,1

make object box 1,6,6,6
make mesh from object 1,1
delete object 1
add limb 10,hat5,1
link limb 10,hat4,hat5
offset limb 10,hat5,0,10,0
texture limb 10,hat5,5

endfunction

function fixObjectScale(obj, scaleX#, scaleY#, scaleZ#)

scaleX#=scaleX#/100.0
scaleY#=scaleY#/100.0
scaleZ#=scaleZ#/100.0

`get number of limbs in object
 perform checklist for object limbs obj
 numlimbs = checklist quantity()
 empty checklist
 `scale each limb up double size
 for A = 0 to numlimbs-1
  `use flag of 2 for the last parameter to update the object's internal data
  `so the animations use it as well
  LOCK VERTEXDATA FOR LIMB obj, A, 2
  for V=0 to GET VERTEXDATA VERTEX COUNT()-1
   `get the positions and multiply by 2 for double scale
   X#=GET VERTEXDATA POSITION X(V)*scaleX#
   Y#=GET VERTEXDATA POSITION Y(V)*scaleY#
   Z#=GET VERTEXDATA POSITION Z(V)*scaleZ#
   `set changes
   SET VERTEXDATA POSITION V, X#, Y#, Z#
  next V
  UNLOCK VERTEXDATA
  sync
 next A
calculate object bounds obj
endfunction



function MakeDeerTexture(Image)
create bitmap 1,1,1
set current bitmap 1
cls rgb(128,64,0)
get image Image,0,0,1,1
delete bitmap 1
set current bitmap 0
save image "Media/Sleigh/Deer.bmp",Image
delete image Image
load image "Media/Sleigh/Deer.bmp",Image
endfunction

function CreateDeer(Object,Image)
`limbs
rightHindleg=1
lowerrightHindleg=2
leftHindleg=3
lowerleftHindleg=4

rightfrontleg=5
lowerrightfrontleg=6
leftfrontleg=7
lowerleftfrontleg=8

neck=9
heada=10

tail=11

`make main body
make object box 1,10,5,3
texture object 1,Image

freeobj=freeobject()
`make hind leg mesh
make object box freeobj,4,6,2
make mesh from object 1,freeobj
delete object freeobj
`make lower hind leg mesh
make object box freeobj,3,5,2
make mesh from object 2,freeobj
delete object freeobj

`make hind leg mesh
make object box freeobj,3,5,2
make mesh from object 3,freeobj
delete object freeobj
`make lower hind leg mesh
make object box freeobj,2,4,2
make mesh from object 4,freeobj
delete object freeobj

`make neck mesh
make object box freeobj,4,6,2
make mesh from object 5,freeobj
delete object freeobj
`make head mesh
make object box freeobj,7,3.5,2
make mesh from object 6,freeobj
delete object freeobj

`make tail mesh
make object sphere freeobj,2
make mesh from object 7,freeobj
delete object freeobj

`add right hind leg
add limb object,rightHindleg,1
offset limb Object,rightHindleg,4,-2.5,-2
rotate limb object,righthindleg,0,0,15
texture limb object,righthindleg,Image
`add lower right hind leg
add limb object,lowerrightHindleg,2
link limb object,rightHindleg,lowerrightHindleg
offset limb Object,lowerrightHindleg,-.5,-4.5,0
rotate limb object,lowerrightHindleg,0,0,-20
texture limb object,lowerrightHindleg,Image

`add left hind leg
add limb object,leftHindleg,1
offset limb Object,leftHindleg,4,-2.5,2
rotate limb object,lefthindleg,0,0,15
texture limb object,lefthindleg,Image
`add lower left hind leg
add limb object,lowerleftHindleg,2
link limb object,leftHindleg,lowerleftHindleg
offset limb Object,lowerleftHindleg,-.5,-4.5,0
rotate limb object,lowerleftHindleg,0,0,-20
texture limb object,lowerleftHindleg,Image




`add right front leg
add limb object,rightfrontleg,3
offset limb Object,rightfrontleg,-4,-2.5,-2
rotate limb object,rightfrontleg,0,0,-10
texture limb object,rightfrontleg,Image
`add lower right front leg
add limb object,lowerrightfrontleg,4
link limb object,rightfrontleg,lowerrightfrontleg
offset limb Object,lowerrightfrontleg,0,-4.5,0
rotate limb object,lowerrightfrontleg,0,0,0
texture limb object,lowerrightfrontleg,Image

`add left front leg
add limb object,leftfrontleg,3
offset limb Object,leftfrontleg,-4,-2.5,2
rotate limb object,leftfrontleg,0,0,-10
texture limb object,leftfrontleg,Image
`add lower left front leg
add limb object,lowerleftfrontleg,4
link limb object,leftfrontleg,lowerleftfrontleg
offset limb Object,lowerleftfrontleg,0,-4.5,0
rotate limb object,lowerleftfrontleg,0,0,0
texture limb object,lowerleftfrontleg,Image

`add neck
add limb object,neck,5
offset limb Object,neck,4,2.5,0
rotate limb object,neck,0,0,-10
texture limb object,neck,Image
`add head
add limb object,heada,6
link limb object,neck,heada
offset limb Object,heada,2,2.5,0
rotate limb object,heada,0,0,-10
texture limb object,heada,Image

`add tail
add limb object,tail,7
offset limb Object,tail,-5.5,3.2,0

save object "Media/Sleigh/Deer.dbo",Object

endfunction



function ChangeColor(ImageNumber,greenimage,blueimage)
make memblock from image 1,ImageNumber
make memblock from image 2,ImageNumber

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

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

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

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

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

         endif
      endif

   next y
next x


make image from memblock greenimage,1

`blue image
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(2,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=0
               b=rgbr(c)
               WriteToImageMemblock(2,256,192,x,y,r,g,b)
            else
               DONTDOIT=0
            endif

         endif
      endif

   next y
next x


make image from memblock blueimage,2
endfunction

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 FreeMemblock()
for t=1 to 100
if memblock exist(t)=0
exitfunction t
endif
next t
endfunction 0

`----------------------------------------
`-       Created By DBProgrammer        -
`----------------------------------------
`-         For the MMCC of 2007         -
`----------------------------------------

`Setup Game
autocam off
set display mode 1024,768,32
hide mouse
sync on:sync rate 60
set camera range 1,5000

`Make UDT's
type Limb
x as float
y as float
z as float
xr as float
yr as float
zr as float
endtype
dim Limbs(20,100) as Limb

type Limbc
x as float
y as float
z as float
xr as float
yr as float
zr as float
endtype
dim Limbsc(20) as Limbc

type player
Score as integer
frame as integer
time as integer
Interpolation as integer
endtype
dim player(1) as player

dim tree(300,3)
dim present(50,4)
dim playerstart(1,3)
dim objects(500)
dim sled(1,3)
dim deer(6,3)

print "Oops! Santa dropped some of his presents. Help him collect all of them before time runs out!"
sync:sync
wait 1000
print "Press any key to continue..."
sync:sync
wait 3000
wait key


`Load media

`Load Grass Texture
if file exist("Media/Other Objects/Grass.bmp")=1
load image "Media/Other Objects/Grass.bmp",1
else
execute file "Media Creator.exe","","",1
load image "Media/Other Objects/Grass.bmp",1
endif

`Load Wood Texture
if file exist("Media/Other Objects/Wood.bmp")=1
load image "Media/Other Objects/Wood.bmp",2
else
execute file "Media Creator.exe","","",1
load image "Media/Other Objects/Wood.bmp",2
endif

`Load Snow Texture
if file exist("Media/Other Objects/Snow.bmp")=1
load image "Media/Other Objects/Snow.bmp",3
else
execute file "Media Creator.exe","","",1
load image "Media/Other Objects/Snow.bmp",3
endif

`Load Santa Model
if file exist("Media/Santa/Santa.dbo")=1
load object "Media/Santa/Santa.dbo",1
else
execute file "Media Creator.exe","","",1
load object "Media/Santa/Santa.dbo",1
endif
gosub Create_Santa_Ani

`Load Gift
load image "gift01.jpg",4

load object "gift01.x",2
hide object 2
`Make green present texture
load image "gift02.jpg",5
`Make blue present texture
load image "gift03.jpg",6
load image "Media/Other Objects/Present Image.bmp",9
sprite 1,0,0,9
scale sprite 1,15
hide sprite 1


`Load Tree Model
if file exist("Media/Other Objects/Tree.dbo")=1
load object "Media/Other Objects/Tree.dbo",4
else
execute file "Media Creator.exe","","",1
load object "Media/Other Objects/Tree.dbo",4
endif
hide object 4

gosub Setup_Music
print "Created Music!"
sync

makeskysphere(7,5)
position object 5,500,0,500
print "Created SkySphere"
sync
print "Done!"
cls

CreateNeverEndingLandscapeEffect(6)

`Load Sleigh Model
if file exist("Media/Sleigh/Sleigh.dbo")=1
load object "Media/Sleigh/Sleigh.dbo",7
else
execute file "Media Creator.exe","","",1
load object "Media/Sleigh/Sleigh.dbo",7
endif
hide object 7

`Load Deer Model
if file exist("Media/Sleigh/Deer.dbo")=1
load object "Media/Sleigh/Deer.dbo",8
else
execute file "Media Creator.exe","","",1
load object "Media/Sleigh/Deer.dbo",8
endif
hide object 8

`preset some values
current=9
global Collected as integer

`Create collision object
make object cube 3,1
make mesh from object 3,3
add limb 3,1,3
add limb 3,2,3
add limb 3,3,3
add limb 3,4,3
offset limb 3,1,0,0,20
offset limb 3,2,0,0,-20
offset limb 3,3,25,0,0
offset limb 3,4,-25,0,0
delete mesh 3
hide object 3
`----------------------------------------Create Map------------------------------------------------------------------

`Create the ground
make matrix 1,1000,1000,10,10
prepare matrix texture 1,3,1,1
randomize matrix 1,15

for t=1 to 10
set matrix height 1,t,0,0
next t

for t=1 to 10
set matrix height 1,t,10,0
next t

for t=1 to 10
set matrix height 1,0,t,0
next t
for t=1 to 10
set matrix height 1,10,t,0
next t

update matrix 1

        if file exist("map.santa")=0
        exit prompt "Map Not Created. Please run the Media Creator","No Map!"
        end
        endif
        open to read 1,"map.Santa"
        read string 1,garbage$
        read file 1,trees
            for t=1 to trees
                read file 1,tree(t,1)
                read file 1,tree(t,2)
                read file 1,tree(t,3)
            next t
            read string 1,garbage$
            read file 1,playerstart(1,1)
            read file 1,playerstart(1,2)
            read file 1,playerstart(1,3)
            read string 1,garbage$
            read file 1,presents
            for t=1 to presents
                read file 1,present(t,1)
                read file 1,present(t,2)
                read file 1,present(t,3)
                read file 1,present(t,4)
            next t

            read string 1,garbage$
            read file 1,sled(1,1)
            read file 1,sled(1,2)
            read file 1,sled(1,3)
         read string 1,garbage$
         read file 1,deer
            for t=1 to deer
                read file 1,deer(t,1)
                read file 1,deer(t,2)
                read file 1,deer(t,3)
            next t

            close file 1

`Create Trees
for t=1 to trees
inc current,1
clone object current,4
scale object current,2000,2000,2000
position object current,tree(t,1),tree(t,2),tree(t,3)
set object radius current,-1
objects(current)=1
next t

`Create Presents
for t=1 to presents
inc current,1
clone object current,2
scale object current,20,20,20
position object current,present(t,1),(get ground height(1,present(t,1),present(t,3))+(object size y(current,1)/2)),present(t,3)
set object radius current,-1
objects(current)=3

if present(t,4)=2
texture object current,5
endif

if present(t,4)=3
texture object current,6
endif

next t

`Create Trees
for t=1 to deer
inc current,1
clone object current,8
scale object current,300,300,300
position object current,deer(t,1),(get ground height(1,deer(t,1),deer(t,3))+(object size y(current,1)/2)),deer(t,3)
set object radius current,-1
objects(current)=10
next t

`position sled
scale object 7,150,150,150
position object 7,sled(1,1),(get ground height(1,sled(1,1),sled(1,3))+(object size y(7,1)/2)),sled(1,3)
objects(7)=9
show object 7

`position player
scale object 1,30,30,30
position object 1,playerstart(1,1),(get ground height (1,playerstart(1,1),playerstart(1,3)))+(object size y(1,1)/2),playerstart(1,3)
position object 3,playerstart(1,1),(get ground height (1,playerstart(1,1),playerstart(1,3)))+(object size y(1,1)/2),playerstart(1,3)
yrotate object 1,180
fix object pivot 1

`setup snowflakes
SetupSnowFlakes(8)

set text size 72
ink rgb(255,255,255),rgb(255,255,255)
`---------------------------------------Map Created-------------------------------------------------------------------

timeleft=15

`main loop
do

if time2<timer()
time2=timer()+1000
dec timeleft,1
endif

text (screen width()/2)-(text width(""+str$(timeleft))/2),0,""+str$(timeleft)

   if time<timer()
   playnote(song(current))
   time=timer()+(songl(current+1))
   inc current,1
   endif

if current=69
current=1
endif

position camera object position x(1),object position y(1)+10,object position z(1)
yrotate object 3,object angle y(3)+mousemovex()
cx#=camera angle x()+mousemovey()
if cx#>-20 and cx#<80 then xrotate camera cx#
yrotate camera object angle y(1)
move camera -60

if upkey()=1 or keystate(17)=1
move object 3,1
endif

if downkey()=1 or keystate(31)=1
move object 3,-1
endif

if upkey()=1 or keystate(17)=1 or downkey()=1 or keystate(31)=1
LoopObject(1,1,4,30)
else
SetToFrame(1,1,10)
endif

position object 3,object position x(3),(get ground height (1,object position x(3),object position z(3)))+(object size y(1,1)/2),object position z(3)
position object 1,object position x(3),object position y(3),object position z(3)
yrotate object 1,object angle y(3)

`check if object is a present if true rotate it
for t=7 to 500

if object exist(t)=1
if object in screen(t)=1
exclude object off t
else
exclude object on t
endif
endif

if objects(t)=3 and object exist(t)=1 and collected<3
yrotate object t,object angle y(t)+.3
if object collision(1,t)=1
delete object t
objects(t)=0
inc collected,1
endif
endif











`Player Collsion
if objects(t)=1 or objects(t)=9 or objects(t)=10
Fordist#=intersect object(t,object position x(3),object position y(3),object position z(3),limb position x(3,1),limb position y(3,1),limb position z(3,1))
Backdist#=intersect object(t,object position x(3),object position y(3),object position z(3),limb position x(3,2),limb position y(3,2),limb position z(3,2))
Rightdist#=intersect object(t,object position x(3),object position y(3),object position z(3),limb position x(3,3),limb position y(3,3),limb position z(3,3))
Leftdist#=intersect object(t,object position x(3),object position y(3),object position z(3),limb position x(3,4),limb position y(3,4),limb position z(3,4))

if Fordist#<>0
move object 3,(20-Fordist#)*-1
hit=1
endif

if Backdist#<>0
move object 3,20-Backdist#
hit=1
endif

if Rightdist#<>0
yrotate object 3,object angle y(3)-90
move object 3,25-Rightdist#
yrotate object 3,object angle y(3)+90
hit=1
endif

if Leftdist#<>0
yrotate object 3,object angle y(3)+90
move object 3,25-Leftdist#
yrotate object 3,object angle y(3)-90
hit=1
endif

if hit=1 and objects(t)=9
inc insleigh,collected
inc timeleft,collected*15
collected=0
endif

hit=0
endif

next t

UpdateSnowFlakes()

`put a image on the screen for every present that has been collected
if collected<>0
for t=1 to collected
paste sprite 1,(t-1)*(sprite width(1)+10),5
next t
endif

if timeleft<0
goto lose
endif

if insleigh=presents
goto win
endif


sync

`end main loop
loop

win:
set text size 12
do
cls
print "You Won!"
wait 1000
print "Press any key to exit."
if scancode()<>0
end
endif
sync
loop

lose:
set text size 12
do
cls
print "You Lost!"
print "Do you want to play again(y or n)?"
if keystate(21)=1
`goto start
endif
if keystate(49)=1
end
endif
sync
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#*10
  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

function playnote(string$)

if string$="c"
play sound 1
endif

if string$="c#"
play sound 2
endif

if string$="d"
play sound 3
endif

if string$="d#"
play sound 4
endif

if string$="e"
play sound 5
endif

if string$="f"
play sound 6
endif

if string$="f#"
play sound 7
endif

if string$="g"
play sound 8
endif

if string$="g#"
play sound 9
endif

if string$="a"
play sound 10
endif

if string$="a#"
play sound 11
endif

if string$="b"
play sound 12
endif

if string$="c up"
play sound 13
endif

if string$="c down"
play sound 14

endif

endfunction














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


function makegrass(Image,Size)
create bitmap 1,size,size
set current bitmap 1
for i=1 to 3000*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(0,rnd(255),0)
next i
get image Image,1,1,size,size
delete bitmap 1
set current bitmap 0
endfunction

function makesnow(Image,Size)
create bitmap 1,Size,Size
set current bitmap 1
for t=1 to 5000
randomize t
color=rnd(100)+155
dot rnd(Size),rnd(Size),rgb(color,color,color)
next t
get image Image,1,1,Size,Size
delete bitmap 1
set current bitmap 0
endfunction

function makewood(Image,Size)
create bitmap 1,Size,Size
set current bitmap 1
for t=1 to 5000
randomize t
color=rnd(175)+80
x=rnd(Size)
randomize t+1
y1=rnd(Size)
randomize t+2
y2=rnd(Size)
ink rgb(color,color/2,0),rgb(color,0,0)
line x,y1,x,y2
next t
get image Image,1,1,Size,Size
delete bitmap 1
set current bitmap 0
endfunction

function MakeChristmasTree(Object,Tree,Stump)
make object cone Object,5
texture object Object,Tree
freeob=freeobject()
make object cylinder freeob,1
make mesh from object 1,freeob
add limb object,1,1
offset limb object,1,0,-2.99,0
texture limb object,1,stump
delete object freeob
delete mesh 1
endfunction

function MakePresentTexture(Source,Image,Num,Red,Green,Blue)
rem Create a memblock from it
make memblock from image Source,Source

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(Source,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=rgbr(c)*red
               g=rgbr(c)*green
               b=rgbr(c)*blue
               WriteToImageMemblock(Source,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 Image,Source

rem Delete the memblock
delete memblock Source

rem Save the image
save image "Gift0"+str$(Num)+".jpg",Image
endfunction

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 FreeMemblock()
for t=1 to 100
if memblock exist(t)=0
exitfunction t
endif
next t
endfunction 0

function FreeObject()
for t=1 to 1200
if object exist(t)=0
exitfunction t
endif
next t
endfunction 0

Create_Santa_Ani:
recordobject(1,0)
recordobject(1,1)

`FRAME 2
`arms
rotatelimb(1,1,20,0,0)
rotatelimb(1,4,-20,0,0)
offsetlimb(1,1,0,0,-10)
offsetlimb(1,4,0,0,10)
`legs
rotatelimb(1,7,-30,0,0)
rotatelimb(1,10,30,0,0)
offsetlimb(1,7,0,0,15)
offsetlimb(1,10,0,0,-15)
`head
rotatelimb(1,14,-5,0,0)
offsetlimb(1,14,0,0,-1.25)
recordobject(1,2)

`FRAME 3
SetToFrame(1,1,0)
rotatelimb(1,14,-5,0,0)
offsetlimb(1,14,0,0,-1.25)
recordobject(1,3)

`FRAME 4
`arms
rotatelimb(1,1,-20,0,0)
rotatelimb(1,4,20,0,0)
offsetlimb(1,1,0,0,10)
offsetlimb(1,4,0,0,-10)
`legs
rotatelimb(1,7,30,0,0)
rotatelimb(1,10,-30,0,0)
offsetlimb(1,7,0,0,-15)
offsetlimb(1,10,0,0,15)
`head
rotatelimb(1,14,5,0,0)
offsetlimb(1,14,0,0,1.25)
recordobject(1,4)

player(1).frame=1
SetToFrame(1,1,0)

return

function LoopObject(Object,Start,Finish,Interpolation)

result=SetToFrame(Object,Player(1).Frame,Interpolation)

if result=1

player(1).Interpolation=0

if Player(1).Frame<Finish
inc Player(1).Frame,1
exitfunction
endif

If Player(1).Frame=Finish
Player(1).Frame=Start
exitfunction
endif

endif

endfunction

function SetToFrame(Object,Frame,Interpolation)
for t=1 to 20

if limbsc(t).x<Limbs(t,frame).x+1 and limbsc(t).x>Limbs(t,frame).x-1
if limbsc(t).y<Limbs(t,frame).y+1 and limbsc(t).y>Limbs(t,frame).y-1
if limbsc(t).z<Limbs(t,frame).z+1 and limbsc(t).z>Limbs(t,frame).z-1
if limbsc(t).xr<Limbs(t,frame).xr+1 and limbsc(t).xr>Limbs(t,frame).xr-1
if limbsc(t).yr<Limbs(t,frame).yr+1 and limbsc(t).yr>Limbs(t,frame).yr-1
if limbsc(t).zr<Limbs(t,frame).zr+1 and limbsc(t).zr>Limbs(t,frame).zr-1
inc result,1
endif
endif
endif
endif
endif
endif

limbsc(t).x=curvevalue(Limbs(t,frame).x,limbsc(t).x,Interpolation-player(1).Interpolation)
limbsc(t).y=curvevalue(Limbs(t,frame).y,limbsc(t).y,Interpolation-player(1).Interpolation)
limbsc(t).z=curvevalue(Limbs(t,frame).z,limbsc(t).z,Interpolation-player(1).Interpolation)
limbsc(t).xr=curvevalue(Limbs(t,frame).xr,limbsc(t).xr,Interpolation-player(1).Interpolation)
limbsc(t).yr=curvevalue(Limbs(t,frame).yr,limbsc(t).yr,Interpolation-player(1).Interpolation)
limbsc(t).zr=curvevalue(Limbs(t,frame).zr,limbsc(t).zr,Interpolation-player(1).Interpolation)
offset limb Object,t,Limbsc(t).x,Limbsc(t).y,Limbsc(t).z
rotate limb Object,t,Limbsc(t).xr,Limbsc(t).yr,Limbsc(t).zr
next t

inc player(1).Interpolation,1

if result<>20
result=0
endif

if result=20
result=1
endif

endfunction result

function RecordObject(Object,Frame)
for t=1 to 20
Limbs(t,Frame).x=limb offset x(Object,t)
Limbs(t,Frame).y=limb offset y(Object,t)
Limbs(t,Frame).z=limb offset z(Object,t)
Limbs(t,Frame).xr=limb angle x(Object,t)
Limbs(t,Frame).yr=limb angle y(Object,t)
Limbs(t,Frame).zr=limb angle z(Object,t)
next t
endfunction

function RecordLimb(Object,Limb,Frame)
Limbs(Limb,Frame).x=limb offset x(Object,Limb)
Limbs(Limb,Frame).y=limb offset y(Object,Limb)
Limbs(Limb,Frame).z=limb offset z(Object,Limb)
Limbs(Limb,Frame).xr=limb angle x(Object,Limb)
Limbs(Limb,Frame).yr=limb angle y(Object,Limb)
Limbs(Limb,Frame).zr=limb angle z(Object,Limb)
endfunction

function RotateLimb(Object,Limb,x,y,z)
rotate limb Object,Limb,limb angle x(Object,Limb)+x,limb angle y(Object,Limb)+y,limb angle z(Object,Limb)+z
endfunction

function OffsetLimb(Object,Limb,x,y,z)
offset limb Object,Limb,limb offset x(Object,Limb)+x,limb offset y(Object,Limb)+y,limb offset z(Object,Limb)+z
endfunction





Setup_Music:
dim song(100) as string
dim songl(100)

songl(1)=300 : song(1)="a"
songl(2)=300 : song(2)="a"
songl(3)=300 : song(3)="a"
songl(4)=300 : song(4)=""
songl(5)=300 : song(5)="a"
songl(6)=300 : song(6)="a"
songl(7)=300 : song(7)="a"
songl(8)=300 : song(8)=""
songl(9)=300 : song(9)="a"
songl(10)=300 : song(10)="c"
songl(11)=300 : song(11)="f"
songl(12)=300 : song(12)="g"
songl(13)=300 : song(13)="a"
songl(14)=300 : song(14)=""
songl(15)=300 : song(15)=""
songl(16)=300 : song(16)=""
songl(17)=300 : song(17)="a#"
songl(18)=300 : song(18)="a#"
songl(19)=300 : song(19)="a#"
songl(20)=300 : song(20)=""` drag
songl(21)=150 : song(21)="a#"` make shorter
songl(22)=150 : song(22)="a#"` make shorter
songl(23)=300 : song(23)="a"
songl(24)=300 : song(24)="a"
songl(25)=300 : song(25)=""
songl(26)=150 : song(26)="a"`make shorter
songl(27)=150 : song(27)="a"`make shorter
songl(28)=300 : song(28)="g"
songl(29)=300 : song(29)="g"
songl(30)=300 : song(30)="a"
songl(31)=300 : song(31)="g"
songl(32)=300 : song(32)=""
songl(33)=300 : song(33)="c up"`up octave
songl(34)=300 : song(34)=""

songl(35)=300 : song(35)="a"
songl(36)=300 : song(36)="a"
songl(37)=300 : song(37)="a"
songl(38)=300 : song(38)=""
songl(39)=300 : song(39)="a"
songl(40)=300 : song(40)="a"
songl(41)=300 : song(41)="a"
songl(42)=300 : song(42)=""
songl(43)=300 : song(43)="a"
songl(44)=300 : song(44)="c"
songl(45)=300 : song(45)="f"
songl(46)=300 : song(46)="g"
songl(47)=300 : song(47)="a"
songl(48)=300 : song(48)=""
songl(49)=300 : song(49)=""
songl(50)=300 : song(50)=""
songl(51)=300 : song(51)="a#"
songl(52)=300 : song(52)="a#"
songl(53)=300 : song(53)="a#"
songl(54)=300 : song(54)=""` drag
songl(55)=150 : song(55)="a#"
songl(56)=150 : song(56)="a#"
songl(57)=300 : song(57)="a"
songl(58)=300 : song(58)="a"
songl(59)=300 : song(59)="a"
songl(60)=150 : song(60)="a"`make shorter
songl(61)=150 : song(61)="c up"
songl(62)=300 : song(62)="c up"
songl(63)=300 : song(63)="a#"
songl(64)=300 : song(64)="g"
songl(65)=300 : song(65)="f"
songl(66)=300 : song(66)=""
songl(67)=300 : song(67)=""
songl(68)=300 : song(68)=""
`songl(69)=300 : song(69)="c down"`down octave
`songl(70)=300 : song(70)="a"
`songl(71)=300 : song(71)="g"
`songl(72)=300 : song(72)="f"
`songl(73)=300 : song(73)="c"
`songl(74)=300 : song(74)=""
`songl(75)=150 : song(75)="c"`make shorter
`songl(76)=150 : song(76)="c"`make shorter

halfstep# = 1.0594630943592952645618252949461

dim note#(24)
dim name$(14)

note#(1) = 29.2

name$(1) = "c"
name$(2) = "c#"
name$(3) = "d"
name$(4) = "d#"
name$(5) = "e"
name$(6) = "f"
name$(7) = "f#"
name$(8) = "g"
name$(9) = "g#"
name$(10) = "a"
name$(11) = "a#"
name$(12) = "b"
name$(13) = "c up"
name$(13) = "c down"

for x = 1 to 12
   if x > 1 then note#(x) = note#(x - 1) * halfstep#
   createsound(name$(x),x,300,note#(x)/4)
next x


note#(13) = note#(13 - 1) * halfstep#
createsound(name$(13),13,300,note#(13)/4)

note#(14) = note#(14 - 1) / halfstep#
createsound(name$(14),14,300,note#(14)/4)

current=1
return

function makeskysphere(num,objnum)
create bitmap 1,512,512
set current bitmap 1
ink rgb(19,25,25),rgb(19,25,25)
box 0,0,512,512
for t=1 to 2000
randomize t
dot rnd(512),rnd(512),rgb(255,255,255)
next t
get image num,0,0,512,512
delete bitmap 1
set current bitmap 0

make object sphere objnum,8000
texture object objnum,num
set object filter objnum,0
set object cull objnum,0
set object ambient objnum,0
scale object texture objnum,4,4
endfunction

function SetupSnowFlakes(image)
`setup snowflakes
dim snowflakes(1000)
load image "Media/Other Objects/snowflake.bmp",image

`create snowflakes
OBJ=FreeObject()
make object plain OBJ,5,5
randomize OBJ
position object OBJ,rnd(3000),rnd(3000),rnd(3000)
texture object OBJ,image
set object transparency OBJ,1
set object ambient OBJ,0
snowflakes(1)=OBJ

for t=2 to 1000
OBJ=FreeObject()
instance object OBJ,snowflakes(1)
randomize OBJ
position object OBJ,rnd(3000),rnd(3000),rnd(3000)
``texture object OBJ,image
``set object transparency OBJ,1
``set object ambient OBJ,0
snowflakes(t)=OBJ
next t
endfunction

function UpdateSnowFlakes()
`update snowflakes
for t=1 to 1000
randomize t
position object snowflakes(t),object position x(snowflakes(t)),object position y(snowflakes(t))-(1+(rnd(200)/300)),object position z(snowflakes(t))
point object snowflakes(t),camera position x(),camera position y(),camera position z()

if object position y(snowflakes(t))<20
randomize rnd(t)
position object snowflakes(t),rnd(3000),3000,rnd(3000)
endif

if object in screen(snowflakes(t))=1
show object snowflakes(t)
else
hide object snowflakes(t)
endif
next t
endfunction

function CreateNeverEndingLandscapeEffect(obj)
make object plain obj,10000,10000
position object obj,500,0,500
texture object obj,3
scale object texture obj,100,100
xrotate object obj,90
set object ambient obj,0

endfunction

`----------------------------------------
`-       Created By DBProgrammer        -
`----------------------------------------
`-         For the MMCC of 2007         -
`----------------------------------------


`Setup Editor
autocam off
set display mode 1024,768,32


dim tree(300,3)
dim playerstart(1,3)
dim present(50,4)
dim sled(1,3)
dim deer(6,3)

`Load Textures
print "Please Wait Loading Media..."
load image "gift01.jpg",1
makenewboxtexture(2,1,1,0,0)
makenewboxtexture(3,1,0,1,0)
makenewboxtexture(4,1,0,0,1)
makesnow(5)
makewood(6)
makegrass(7,64)
load object "gift01.x",1
hide object 1


`Create the ground
make matrix 1,1000,1000,10,10
prepare matrix texture 1,5,1,1
randomize matrix 1,4
update matrix 1

`Setup Camera
position camera 500,1000,500
xrotate camera 90

current=2

x#=500
y#=500

dim tree(300,3)
dim present(50,4)
dim player(1,3)
dim Sled(1,3)
dim Deer(6,3)

typeset=1

do
text 0,0,"Press F1 to place a tree. Limit of 300."
text 0,15,"Press F2 to place the player start point. Limit of 1(Duh!)."
text 0,30,"Press F3 to place a present, Press r,g or b to change color. Limit of 50."
text 0,45,"Press F4 to place Santa's Sled. Limit of 1."
text 0,60,"Press F5 to place one of Santa's deer. Limit of 4."
text 0,75,"Press Return to permently place object."
text 0,90,"Press SpaceBar to save map."
text 0,105,"Polys In Scene:"+str$(statistic(1))
text 0,120,"Number of trees:"+str$(Trees)
text 0,135,"Number of Presents:"+str$(Presents)


`Make Tree
if keystate(59)=1 and trees<300
    delete object current
    MakepineTree(current,7,6)
    scale object current,2000,2000,2000
    typeset=1
    wait 200
endif

`Make Player Start
if keystate(60)=1 and playerstart<1
    delete object current
    make object cube current,6
    typeset=2
    wait 200
endif

`Make Present
if keystate(61)=1 and presents<50
    delete object current
    clone object current,1
    scale object current,20,20,20
    texture object current,2
    typeset=3
    wait 200
endif

if typeset=3
    if keystate(19)=1
    texture object current,2
    color=1
    endif

    if keystate(34)=1
    texture object current,3
    color=2
    endif

    if keystate(48)=1
    texture object current,4
    color=3
    endif
endif

`Make Sled
if keystate(62)=1 and sled=0
    delete object current
    load object "Media/Sleigh/Sleigh.dbo",current
    scale object current,150,150,150
    typeset=4
    wait 200
endif

`Make Deer
if keystate(63)=1 and deer<6
    delete object current
    load object "Media/Sleigh/Deer.dbo",current
    scale object current,300,300,300
    typeset=5
    wait 200
endif

if upkey()=1
    inc y#,1
endif

if downkey()=1
    dec y#,1
endif

if leftkey()=1
    dec x#,1
endif

if rightkey()=1
    inc x#,1
endif

if object exist(current)=1
    if typeset=1 or typeset=4 or typeset=5
        position object current,x#,get ground height(1,x#,y#)+(70),y#
    endif
    if typeset=2 or typeset=3
        position object current,x#,get ground height(1,x#,y#)+(15),y#
    endif
endif

if returnkey()=1 and typeset<>0
    if typeset=1
    inc trees,1
    tree(trees,1)=object position x(current)
    tree(trees,2)=object position y(current)
    tree(trees,3)=object position z(current)
    endif

    if typeset=2
    inc playerstart,1
    player(playerstart,1)=object position x(current)
    player(playerstart,2)=object position y(current)
    player(playerstart,3)=object position z(current)
    endif

    if typeset=3
    inc presents,1
    present(presents,1)=object position x(current)
    present(presents,2)=object position y(current)
    present(presents,3)=object position z(current)
    present(presents,4)=color
    endif

    if typeset=4
    inc sled,1
    sled(sled,1)=object position x(current)
    sled(sled,2)=object position y(current)
    sled(sled,3)=object position z(current)
    endif

    if typeset=5
    inc deer,1
    deer(deer,1)=object position x(current)
    deer(deer,2)=object position y(current)
    deer(deer,3)=object position z(current)
    endif
    inc current,1
    typeset=0
    color=1
endif

if spacekey()=1
        if file exist("map.santa")=1
        delete file "map.santa"
        endif
        open to write 1,"map.Santa"
        write string 1,"Trees"
        write file 1,trees
            for t=1 to trees
                write file 1,tree(t,1)
                write file 1,tree(t,2)
                write file 1,tree(t,3)
            next t
            write string 1,"player"
            write file 1,player(playerstart,1)
            write file 1,player(playerstart,2)
            write file 1,player(playerstart,3)
            write string 1,"presents"
            write file 1,presents
            for t=1 to presents
                write file 1,present(t,1)
                write file 1,present(t,2)
                write file 1,present(t,3)
                write file 1,present(t,4)
            next t

        write string 1,"Sled"
        write file 1,sled(sled,1)
        write file 1,sled(sled,2)
        write file 1,sled(sled,3)
        write string 1,"Deer"
        write file 1,deer
            for t=1 to deer
                write file 1,deer(t,1)
                write file 1,deer(t,2)
                write file 1,deer(t,3)
            next t
            close file 1
            end
endif
loop





function makesnow(image)
create bitmap 1,64,64
set current bitmap 1
repeat
inc I
randomize i
color=rnd(100)+155
dot rnd(64),rnd(64),rgb(color,color,color)
until i=5000
get image image,1,1,64,64
delete bitmap 1
set current bitmap 0
endfunction

function makewood(image)
create bitmap 1,64,64
set current bitmap 1
repeat
inc I
randomize i
color=rnd(175)+80
x=rnd(64)
randomize i+1
y1=rnd(64)
randomize i+2
y2=rnd(64)
ink rgb(color,color/2,0),rgb(color,0,0)
line x,y1,x,y2
until i=5000
get image image,1,1,64,64
delete bitmap 1
set current bitmap 0
endfunction

function MakepineTree(object,treetex,trunktex)
object2=object+1
make object cone object,5
texture object object,treetex
make object cylinder object2,1
make mesh from object 1,object2
add limb object,1,1
texture limb object,1,trunktex
offset limb object,1,0,-2.99,0
delete mesh 1
delete object object2
endfunction

function makegrass(image,size)
create bitmap 1,size,size
set current bitmap 1
for i=1 to 3000*(size/64)
randomize i
dot rnd(size),rnd(size),rgb(0,rnd(255),0)
next i
get image image,1,1,size,size
delete bitmap 1
set current bitmap 0
endfunction

function MakeNewBoxTexture(num,basnum,red,green,blue)
create bitmap 1,257,193
cls rgb(50+(red*100),50+(green*100),50+(blue*100))
set current bitmap 1
sprite basnum,0,0,basnum
set sprite diffuse basnum,red*255,green*255,blue*255
set sprite alpha basnum,150
paste sprite basnum,1,1
get image num,0,0,sprite width(basnum)+1,sprite height(basnum)+1
delete bitmap 1
set current bitmap 0
delete sprite basnum
endfunction

Multiplayer Hotseat Game for 2-4 Players

You are stuck on an island! Duke it out for title of king of the island!

Controls:
Arrowkeys to move
(Hold) LeftClick to shoot * mark against held weapons
Hold RightClick to Aim
E + Arrowkeys for overhead view
Left and Right Click to detonate Mole!


Weapons:
Snowball: Hit your opponent with a snowball
Snowball Flurry: Paste your foe with snow
Present Launcher*: Deliver Christmas joy to your enemies
Present Cluster*: Spread Christmas joy across the map
Bouncy Bomb*: Fire it and watch it wreak havoc across the map
Christmas Surprise: Drop it and get out of there!
Mega Punch: Show your opponent who’s boss!
Mole: The ultimate in stealth technology, watch it crawl into unsuspecting enemies (Left and Right Click to detonate Mole!)

`Jammy-Soft presents

`Santas Snake

`*** Christmas DBPro Minimal Media Coding Competition ***

`choose your display mode

`set display mode 1640,1080,32
`set display mode 800,600,32
`set display mode 640,480,32

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
if mode=1 then gosub levelstart:


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

snowmanspeed#=3
trees=10
gosub make3dtrees
endif
if mode=1
if snowmen=targifts 
if doorang<100
doorang=doorang+1
yrotate object 301,360-(doorang)
endif
endif
if endlevel=1
level=level+1 : endlevel=0 : gifts=0

gosub levelstart
gosub sprites
endif
endif
sync
`cls
loop

levelstart:
yrotate object 301,0 ` shut door 
doorang=0
for temp= 10 to 22
if sound playing(temp)=1 then stop sound temp
next temp
for temp = 401 to 499 `delete snowmen
if object exist(temp)=1 then delete object temp
next temp

snowmanhit=0
snowmen=0
gift=0
if level =2 then trees=20
if level =3 then snowmanspeed#=3.5 :trees=20
if level =4 then trees=30
if level =5 then snowmanspeed#=4 :trees=30
if level =6 then trees=40
if level =7 then snowmanspeed#=4.5 :trees=40
if level =8 then trees=50
if level =9 then snowmanspeed#=5 :trees=50
gosub make3dtrees
targifts=level*10
smx#=625
smz#=700
smy#=get ground height(1,smx#+100,smz#+100)+200
ang=270

position object 500,smx#,smy#,smz#
yrotate object 500, ang

for temp = 130 to 134
if sprite exist(temp)=0 then sprite temp,-99,-99,temp
next temp
`level instructions
if mode=1
if level=1 then sprite 134,(scrw/2)-(sprite width(134)/2),(scrh/5)-50,134 `description
if level=2 or level=4 or level=6 or level=8 then sprite 134,(scrw/2)-(sprite width(134)/2),(scrh/5)-50,135 `description
if level=3 or level=5 or level=7 or level=9 then sprite 134,(scrw/2)-(sprite width(134)/2),(scrh/5)-50,136 `description
sprite 130,(scrw/2)-(sprite width(134)/2),scrh/5,130    `level
Sprite 100,(scrw/2)-(sprite width(134)/2)+90,scrh/5,level+40 `number
Sprite 131,(scrw/3)+40,(scrh/5)+50,131 `collect
Sprite 135,(scrw/3)+120,(scrh/5)+50,(targifts/10)+40
Sprite 136,(scrw/3)+140,(scrh/5)+50,40
Sprite 132,(scrw/3)+160,(scrh/5)+50,132 `gifts
Sprite 133,(scrw/3)+40,(scrh/5)+100,133 `return


smx#=object position x(500)
smz#=object position z(500)
smy#=get ground height(1,smx#+100,smz#+100)+130
ang=object angle y(500)
for tempt= 1 to 250
`repeat
sprite 137,(scrw/2),scrh/5+150,45-int((tempt/50))
gosub movecam
`if musicon=1 then gosub playjingle
sync
`until spacekey()=1
next tempt


` delete level info sprites
for temp = 99 to 137
if sprite exist(temp)=1 then delete sprite temp
next temp
endif
return

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
for temp= 80 to 85
if mode=2 and sprite exist(temp) then delete sprite temp
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
level=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=1
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 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


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,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

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
xrotate camera 15
return
make3dtrees:
`3d trees
for temp= 600 to 700 
if object exist(temp)=1 then delete object temp
next temp

 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 550,1,1,0,1,1,0,1
color object 550,rgb(0,0,255)
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
set object collision off 300 `cabin

set object collision off 400 `snowman

set object collision off 500
set object collision off 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
if mode=1 and snowmen=targifts
if smx#>790.0 and smx#<810.0 and smz#>625.0 and smz#<780.0 then endlevel=1 : snowmanhit=0
endif

`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
smbuffer=-100
endif
endif

return

animate:
`santa
rotate limb 500,20,0,0,armove
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
`smoke
skiped=skiped+1
if skiped=2 then skiped=0
if skiped=0
smok#=smok#+0.00001
if smok#>2 then smok#=0
SCROLL OBJECT TEXTURE 302,smok#/2,smok#
endif
 
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



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)
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

`smoke
cls rgb(0,0,0)
for tempx= 0 to 64
for tempy=0 to 64

if rnd(100)=1
coltemp =rnd(100)+50
dot tempx,tempy,rgb(coltemp,coltemp,coltemp)
endif
next tempy
next tempx
get image 6,1,1,64,64
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)
colourtext("Level",30,130)
colourtext("Collect",30,131)
colourtext("Gifts",30,132)
colourtext("and return to the hut.",30,133)
colourtext("Lets Start EASY",30,134)
colourtext("WATCH OUT, there are more trees about",30,135)
colourtext("Lets GO FASTER !!!!!",30,136)

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
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
clone object 301,300

make object box 302,5,50,12.5
clone object 303,302

make object box 304,5,50,55
MAKE OBJECT TRIANGLE 305, 549, 185, 596, 549, 220, 630, 549, 185, 664

MAKE OBJECT TRIANGLE 306, 451, 185, 596, 451, 220, 630, 451, 185, 664
make object box 307,105,50,5
xrotate object 307,45
make object box 308,105,50,5
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

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
make object sphere 302,10
make mesh from object 302,302
add limb 301,1,302
delete object 302
delete mesh 302
offset limb 301,0,0,0,35
offset limb 301,1,0,15,60
position object 301,800,180,675 
texture object 301,12
scale object texture 301,15,1
color limb 301,1,rgb(0,0,0)
set object 301,1,0,0,1,1,0,0

`smoke

make object cone 302,20
position object 302,990,405,710
texture object 302,6
scale object 302,100,500,100
scale object texture 302,1,0.3
set object 302,1,1,0,1,1,0,0

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:

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)
if temp=400+snowmen and smbuffer<0
smbuffer=smbuffer+1
position object temp,movedata#(movedatpos,1),movedata#(movedatpos,2)+smbuffer,movedata#(movedatpos,3)
if smbuffer>0 then smbuffer=0
endif
`collision
xdist#=movedata#(movedatpos,1)-smx# : zdist#=movedata#(movedatpos,3)-smz#
snowmandist#=sqrt((xdist#^2)+(zdist#^2))
if temp <> 400+snowmen
if snowmandist#<30 then snowmanhit=1
endif
if temp=400+snowmen and smbuffer=0 and 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

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

if mode=1 and snowmen=targifts then px#=900:pz#=725:py#=500 :pt#=GET GROUND HEIGHT(1, px#+100,pz#+100)+115



points=startpoints*level

gift=1
endif
`fall gift
if gift=1
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
return
santa:
`santa
santaz#=500
santax#=500
santay#=get ground height(1,santax#+100,santaz#+100)

`body

make object sphere 500,15.5
scale object 500,90,30,100
position object 500,santax#,santay#+143,santaz#
`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

`santa arms
make object cube 522,1
MAKE OBJECT CYLINDER 523,3 
scale object 523,100,200,100
make object sphere 524,3.5
MAKE OBJECT CYLINDER 525,3 
scale object 525,100,200,100
zrotate object 525,90 
make object sphere 526,3.5
Make object box 527,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 
scale object 524,100,200,100
make object sphere 525,3.5
MAKE OBJECT CYLINDER 526,3 
scale object 526,100,200,100
zrotate object 526,90 
make object sphere 527,3.5
Make object box 528,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

delete object temp
delete mesh temp
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
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


`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

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)

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

`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

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


`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,0,-1000,0
`remend
return

`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)

text 1,-3, letter$
cutx=len(letter$)*(size/1.7)

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

randomize timer()
autocam off
sync on : sync rate 0
load image "gift01.jpg",1
Load Object "gift01.x",1
set camera range 1,5000
position object 1,0,0,5000
rotate object 1,0,180,0
position camera 0,43,-259
color backdrop rgb(0,255,0)
sync
repeat
   rotate object 1,0,180,0
   move object 1,3
   yrotate object 1,ay#
   xrotate object 1,ax#
   yrotate object 1,object angle y(1)+3
   xrotate object 1,object angle x(1)+.5
   ay# = object angle y(1)
   ax# = object angle x(1)
   opx# = object position x(1)
   opy# = object position y(1)
   opz# = object position z(1)
   sync
until object position z(1)<0
set text size 30
Set Text To Bold
do
   center text screen width()/2,0,"MERRY CHRISTMAS!"
   center text screen width()/2,50,"I BOUGHT YOU A GIFT GO AHEAD OPEN IT!"
   yrotate object 1,object angle y(1)+.4
   xrotate object 1,object angle x(1)+.2
   if mouseclick()=1
      click = 1
   endif
   if click = 1
      cls
      delete object 1
      gift = rnd(4)
   if gift = 0 then make object cube 2,100 : objnum = 2
   if gift = 1 then make object sphere 3,100 : objnum = 3
   if gift = 2 then make object cone 4,100 : objnum = 4 : set object cull objnum,0
   if gift = 3 then make object cylinder 5,100 :  objnum = 5 : set object cull objnum,0
   make particles 1,1,20,100
   position particles 1,0,0,0
   set particle floor 1,0
   color particles 1,255,0,0
      gosub fun
   endif
sync
loop
   c3 = rnd(150)+105
   c2 = 0
   c1 = 0
fun:
do
   color object objnum,rgb(c1,c2,c3)
   if gift = 0 then center text screen width()/2,0,"YOU GOT A BOX!"
   if gift = 1 then center text screen width()/2,0,"YOU GOT A SPHERE"
   if gift = 2 then center text screen width()/2,0,"YOU GOT A CONE!"
   if gift = 3 then center text screen width()/2,0,"YOU GOT A CYLINDER!"
   yrotate object objnum,object angle y(objnum)+.4
   xrotate object objnum,object angle x(objnum)+.2
sync
loop