Sorry your browser is not supported!

memblock dword(1, 0)    : `Audio format, 1 = PCM, other values indicate compression
memblock dword(1, 4)    : `channels, 1=mono, 2=stereo
memblock dword(1, 8)    : `sample rate Hz
memblock dword(1, 12)   : `average data rate (for buffer estimation)
memblock dword(1, 16)   : `chunk size in bytes
memblock dword(1, 20)   : `sample size in bits (bitrate)
memblock dword(1, 24)   : `always 0, i have no clue

remstart
createsound("c0",0,10,268,5000,1000,0,0,1000,10,0,0,1000)  `note c etc    Slegh bells
createsound("d0",0,11,301,5000,1000,0,0,1000,10,0,0,1000)
createsound("e0",0,12,337,5000,1000,0,0,1000,10,0,0,1000)
createsound("f0",0,13,358,5000,1000,0,0,1000,10,0,0,1000)
createsound("g0",0,14,401,5000,1000,0,0,1000,10,0,0,1000)
createsound("a0",0,15,451,5000,1000,0,0,1000,10,0,0,1000)
createsound("b0",0,16,506,5000,1000,0,0,1000,10,0,0,1000)
createsound("c1",0,17,536,5000,1000,0,0,1000,10,0,0,1000)
createsound("d1",0,18,602,5000,1000,0,0,1000,10,0,0,1000)
createsound("e1",0,19,675,5000,1000,0,0,1000,10,0,0,1000)
remend
remstart
createsound("c0",0,10,268,5000,1000,0,0,0,0,3,3000,1000)  `note c etc    organ
createsound("d0",0,11,301,5000,1000,0,0,0,0,3,3000,1000)
createsound("e0",0,12,337,5000,1000,0,0,0,0,3,3000,1000)
createsound("f0",0,13,358,5000,1000,0,0,0,0,3,3000,1000)
createsound("g0",0,14,401,5000,1000,0,0,0,0,3,3000,1000)
createsound("a0",0,15,451,5000,1000,0,0,0,0,3,3000,1000)
createsound("b0",0,16,506,5000,1000,0,0,0,0,3,3000,1000)
createsound("c1",0,17,536,5000,1000,0,0,0,0,3,3000,1000)
createsound("d1",0,18,602,5000,1000,0,0,0,0,3,3000,1000)
createsound("e1",0,19,675,5000,1000,0,0,0,0,3,3000,1000)
remend
`remstart
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)
`remend
remstart
createsound("c0",0,10,268,5000,1000,0,0,1000,10,1,100,1000)  `note c etc    Slegh bells
createsound("d0",0,11,301,5000,1000,0,0,1000,10,1,100,1000)
createsound("e0",0,12,337,5000,1000,0,0,1000,10,1,100,1000)
createsound("f0",0,13,358,5000,1000,0,0,1000,10,1,100,1000)
createsound("g0",0,14,401,5000,1000,0,0,1000,10,1,100,1000)
createsound("a0",0,15,451,5000,1000,0,0,1000,10,1,100,1000)
createsound("b0",0,16,506,5000,1000,0,0,1000,10,1,100,1000)
createsound("c1",0,17,536,5000,1000,0,0,1000,10,1,100,1000)
createsound("d1",0,18,602,5000,1000,0,0,1000,10,1,100,1000)
createsound("e1",0,19,675,5000,1000,0,0,1000,10,1,100,1000)
remend


Notelength=timer()


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

`Away in a manger

data 500,"d1",750,"d1",250,"c1",500,"b0",500,"b0",500,"a0",500,"g0",500,"g0",500,"f0",500,"e0",1000,"d0",500,"d0"
data 750,"d0",250,"e0",500,"d0",500,"d0",500,"a0",500,"f0",500,"e0",500,"d0",500,"g0",1000,"b0",500,"d1"
data 750,"d1",250,"c1",500,"b0",500,"b0",500,"a0",500,"g0",500,"g0",500,"f0",500,"e0",1000,"d0",500,"d0"
data 750,"c1",250,"b0",500,"a0",500,"b0",500,"a0",500,"g0",500,"a0",500,"e0",500,"f0",1000,"g0",1000,"end"





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

` memblock no longer required
delete memblock 1

endfunction

`******************************************************************
`* Christmas DBPro Minimal Media Coding Competition               *
`******************************************************************
`* Author: Sven B                                                 *
`******************************************************************

`Setup
sync on : sync rate 100
autocam off

`Types
type Santa
    obj as integer
    status as integer
    oldstatus as integer
    keyframe as float
    keyInc as float
    yspeed# as float
endtype

`Some constants to make it easier for me
#constant lBody     0
#constant lLFoot    1
#constant lRFoot    2
#constant lHead     3
#constant lBeard    4
#constant lHat      5
#constant lPonpon   6
#constant lLHand    7
#constant lRHand    8

#constant SantaIdle 0
#constant SantaRun  1
#constant SantaJump 2

#constant grav   -0.098

global SantaIdleSpeed# as float : SantaIdleSpeed# = 0.01
global SantaRunSpeed# as float : SantaRunSpeed# = 0.02
global SantaJumpSpeed# as float : SantaJumpSpeed# = 0.02

`Calculate jump force (height stays the same, whatever it's JumpSpeed is)
global jumpForce# as float
jumpForce# = - grav / SantaJumpSpeed#

`Load premade media
global GiftSource as integer
GiftSource = 1
load object "Gift01.x", GiftSource
scale object GiftSource, 5, 5, 5 : xrotate object GiftSource, -90 : fix object pivot GiftSource
hide object GiftSource

`Create a santaclause
global SantaSource as integer
SantaSource = createSanta()
hide object SantaSource
exclude object on SantaSource
dim Santa(0) as Santa

`Add a new santa
addSanta()
csanta = 1

`Main loop
do

    `If santa isn't jumping, be able to jump
    status = Santa(csanta).status

    if upkey() = 1
    
        `Move santa
        if status <> SantaJump
            up = 1
            Santa(csanta).status = SantaRun
        endif
    else
        
        `Stop moving forward when
        if status <> SantaJump
            up = 0
            Santa(csanta).status = SantaIdle
        endif
    endif

    if status <> SantaJump
        if spacekey() = 1 then Santa(csanta).status = SantaJump : msg$ = "jump"
    endif

    `Animate Santa
    animateSanta(csanta)
    moveSanta(csanta, up, left, right)

    `Camera
    position camera -20, 20, -20
    point camera 0, 0, 0

    `Screen fps
    text 0, 0, str$(screen fps())
    text 0, 20, str$(statistic(1))
    text 0, 40, str$(up)
    text 0, 60, str$(status)
    if msg$ <> "" then disp$ = msg$
    text 0, 80, disp$

    sync
loop

`*** FUNCTIONS ***

`-----> MOVE A SANTA <-----
function moveSanta(santa, up, left, right)

    `Get data
    obj = Santa(santa).obj
    x# = object position x(obj)
    y# = object position y(obj)
    z# = object position z(obj)
    yspeed# = Santa(santa).yspeed#

    `Y position
    yspeed# = yspeed# + grav

endfunction

`-----> ANIMATE A SANTA <-----
function animateSanta(santa)

    `Get status and object
    obj = Santa(santa).obj
    status = Santa(santa).status

    `Reset when changing animation
    if status <> Santa(santa).oldstatus
    
        `Reset keyframe
        Santa(santa).keyframe = 0
        
        `Set santa old status to new one
        Santa(santa).oldstatus = status
        
        if status = SantaIdle
        
            `Reset joints to idle
            RotateLimbs(obj, 0, 0, 0, 0)
            OffsetLimbs(obj, 0, 0, 0)
            Santa(santa).keyInc = SantaIdleSpeed#
        endif
        
        if status = SantaRun
        
            `Reset joints to idle
            RotateLimbs(obj, 0, 0, 0, 0)
            OffsetLimbs(obj, 0, 0, 0)
            Santa(santa).keyInc = SantaRunSpeed#
        
        endif
        
        if status = SantaJump
        
            `Reset joints to jump
            RotateLimbs(obj, 0, 0, 0, 0)
            OffsetLimbs(obj, 0, 0, 0)
            Santa(santa).keyInc = SantaJumpSpeed#
        
        endif
    endif

    `Animate
    `Idle
    if status = SantaIdle

        `Increase keyframe
        inc Santa(santa).keyframe, Santa(santa).keyInc
        
        `Make a loop
        if Santa(santa).keyframe => 1
            if Santa(santa).keyInc = SantaIdleSpeed# then Santa(santa).keyInc = -SantaIdleSpeed#
        endif
        if santa(santa).keyframe <= 0
            if Santa(santa).keyInc = -SantaIdleSpeed# then Santa(santa).keyInc = SantaIdleSpeed#
        endif
        keyf# = Santa(santa).keyframe

        `Rotate according to keyframe
        RotateLimbs(obj, 0, 0, 0, 0)
        OffsetLimbs(obj, sin(keyf# * 90) * 0.2, sin(keyf# * 90) * (-0.2), sin(keyf# * 90) * (-0.2))

    endif
    
    `Run
    if status = SantaRun

        `Increase keyframe
        inc Santa(santa).keyframe, Santa(santa).keyInc
        
        `Make a loop
        if Santa(santa).keyframe => 1
            if Santa(santa).keyInc = SantaRunSpeed# then Santa(santa).keyInc = -SantaRunSpeed#
        endif
        if Santa(santa).keyframe <= -1
            if Santa(santa).keyInc = -SantaRunSpeed# then Santa(santa).keyInc = SantaRunSpeed#
        endif
        keyf# = Santa(santa).keyframe
        
        `Rotate according to keyframe
        RotateLimbs(obj, sin(keyf# * 90) * 45.0, -sin(keyf# * 90) * 45.0, -sin(keyf# * 90) * 45.0, sin(keyf# * 90) * 45.0)
        OffsetLimbs(obj, sin(ab(keyf#) * 90), 0, 0)

    endif

    `Jump
    if status = SantaJump
    
        `Increase keyframe
        inc Santa(santa).keyframe, Santa(santa).keyInc
        
        `Don't make a loop, but reset status when jump is done
        if Santa(santa).keyframe >= 3.0 then Santa(santa).status = SantaIdle
        keyf# = Santa(santa).keyframe
        
        `Handle jumping
        `Phase 1: prepare jump (bend through knees)
        if keyf# < 1.0
            RotateLimbs(obj, 0, 0, 0, 0)
            OffsetLimbs(obj, -1.0, 1.0, 1.0)
        endif
        if keyf# > 1.0
        
            `JUMP!
            Santa(santa).yspeed# = jumpForce#
            
            `Animation for jumping
            RotateLimbs(obj, 179.0, 179.0, -30.0, -30.0)
            OffsetLimbs(obj, 0.0, 0.0, 0.0)
        endif
    
    endif
endfunction

`Rotate limbs (left hand x, right hand x, left foot x, right foot x)
function RotateLimbs(obj, lhx#, rhx#, lfx#, rfx#)

    `Smooth rotation
    lhx# = curveangle(lhx#, limb angle x(obj, lLHand), 15)
    rhx# = curveangle(rhx#, limb angle x(obj, lRHand), 15)
    lfx# = curveangle(lfx#, limb angle x(obj, lLFoot), 15)
    rfx# = curveangle(rfx#, limb angle x(obj, lRFoot), 15)

    `Rotate hands
    rotate limb obj, lLHand, wrapvalue(lhx#), 0, 0
    rotate limb obj, lRHand, wrapvalue(rhx#), 0, 0
    
    `Rotate feet
    rotate limb obj, lLFoot, wrapvalue(lfx#), 0, 0
    rotate limb obj, lRFoot, wrapvalue(rfx#), 0, 0
endfunction

`Offset limbs (body y, left foot y, right foot y)
function OffsetLimbs(obj, by#, lfy#, rfy#)

    `Smooth offset
    by# = curvevalue(by#, limb offset y(obj, lBody) - 5.5, 15)
    lfy# = curvevalue(lfy#, limb offset y(obj, lLFoot), 15)
    rfy# = curvevalue(rfy#, limb offset y(obj, lRFoot), 15)

    `offset body
    offset limb obj, lBody, 0, 5.5 + by#, 0
    
    `Offset feet
    offset limb obj, lLFoot, 0, lfy#, 0
    offset limb obj, lRFoot, 0, rfy#, 0
endfunction

`-----> ADD A SANTA <----
function AddSanta()

    `Get a free object
    newSanta = freeObject()
    
    `Add new santa
    array insert at bottom Santa()
    a = array count(Santa())
    
    `Add data
    Santa(a).obj = newSanta
    Santa(a).oldstatus = -1
    Santa(a).status = SantaIdle
    
    `New object
    clone object newSanta, SantaSource
    exclude object off newSanta
    show object newSanta

endfunction a

`-----> CREATE A SANTA <-----
function createSanta()

    `Find a free object
    obj = freeObject()
    
    `Make a santa
    
    `** BODY **
    make object sphere obj, 10, 10, 10
    scale object obj, 80, 100, 80
    
    yrotate object obj, 90
    fix object pivot obj
    
    `Offset
    offset limb obj, lBody, 0, 5.5, 0

    `** FEET **
    dummy = freeObject()
    make object box dummy, 2, 2, 4
    color object dummy, rgb(0, 0, 0)
    
    `Add left foot limb
    offset limb dummy, 0, 1.5, -7.5, -0.75
    make mesh from object dummy, dummy

    `Left foot
    add limb obj, lLFoot, dummy
    link limb obj, lBody, lLFoot

    `Add right foot limb
    offset limb dummy, 0, -1.5, -7.5, -0.75
    make mesh from object dummy, dummy
    delete object dummy

    `Right foot
    add limb obj, lRFoot, dummy
    link limb obj, lBody, lRFoot
    delete mesh dummy
    
    `** HEAD **
    make object sphere dummy, 4, 8, 8
    
    `Add limb
    make mesh from object dummy, dummy
    delete object dummy
    
    add limb obj, lHead, dummy
    link limb obj, lBody, lHead
    offset limb obj, lHead, 0, 6, 0
    delete mesh dummy

    `** BEARD **
    make object sphere dummy, 3, 5, 5
    scale object dummy, 100, 100, 50
    xrotate object dummy, 25
    fix object pivot dummy

    `Add limb
    offset limb dummy, 0, 0, -1.5, -2
    make mesh from object dummy, dummy
    delete object dummy
    
    add limb obj, lBeard, dummy
    link limb obj, lHead, lBeard
    delete mesh dummy

    `** HAT **
    make object cone dummy, 3
    
    `Add limb
    offset limb dummy, 0, 0, 2.85, 0
    make mesh from object dummy, dummy
    delete object dummy
    
    add limb obj, lHat, dummy
    link limb obj, lHead, lHat
    delete mesh dummy

    `** PONPON **
    make object sphere dummy, 1, 5, 5
    
    `Add limb
    make mesh from object dummy, dummy
    delete object dummy
    
    add limb obj, lPonpon, dummy
    link limb obj, lHat, lPonpon
    offset limb obj, lPonpon, 0, 4.7, 0

    `** GLOVES **
    make object sphere dummy, 2, 5, 5
    
    `Add Left Hand limb
    offset limb dummy, 0, 5, -3, 0
    make mesh from object dummy, dummy
    
    add limb obj, lLHand, dummy
    link limb obj, lBody, lLHand
    
    `Add Right Hand limb
    offset limb dummy, 0, -5, -3, 0
    make mesh from object dummy, dummy
    delete object dummy
    
    add limb obj, lRHand, dummy
    link limb obj, lBody, lRHand
    delete mesh dummy

    `** TEXTURES **
    createSantaTextures()
    texture limb obj, lBody, 1
    texture limb obj, lLFoot, 2
    texture limb obj, lRFoot, 2
    texture limb obj, lHead, 3
    texture limb obj, lLHand, 4
    texture limb obj, lRHand, 4
    texture limb obj, lHat, 5
    texture limb obj, lPonpon, 4

    `Some other things
    rotate limb obj, lHat, 45, 0, 0

endfunction obj

function createSantaTextures()

    `Make a texture for body
    ink rgb(255, 0, 0), 0 : `Base layer is red
    box 0, 0, 256, 256

    ink rgb(255, 255, 255), 0 : `White fur
    box 120, 0, 136, 140
    box 0, 135, 256, 145
    
    ink 0, 0 : `Black belt
    box 0, 123, 256, 130
    
    ink rgb(128, 128, 128), 0 : `Grey belt button
    circle 128, 127, 5
    circle 128, 126, 5
    circle 128, 125, 5
    get image 1, 0, 0, 256, 256, 1
    
    `Make a texture for feet
    ink 0, 0
    box 0, 0, 128, 128
    get image 2, 0, 0, 128, 128, 1

    `Make a texture for the head
    ink rgb(255, 150, 100), 0 : `Base layer is skin color
    box 0, 0, 128, 128
    ink rgb(0, 0, 0), 0 : `Eyes are cartooney = black
    line 61, 50, 61, 60
    line 67, 50, 67, 60
    ink rgb(255, 255, 255), 0 : `It's hare is white
    box 0, 0, 128, 20 : box 0, 0, 50, 64
    box 78, 0, 128, 64

    box 0, 0, 40, 70
    box 88, 0, 128, 70
    
    box 0, 0, 30, 80
    box 98, 0, 128, 80 
    get image 3, 0, 0, 128, 128, 1

    `Make a texture for the gloves and ponpon
    ink rgb(0, 0, 0), 0
    box 0, 0, 128, 128
    get image 4, 0, 0, 128, 128, 1

    `Make texture for the hat
    ink rgb(255, 0, 0), 0 : `Red hat
    box 0, 0, 128, 128
    ink rgb(255, 255, 255), 0
    box 0, 100, 128, 128
    get image 5, 0, 0, 128, 128, 1

endfunction

`Get free object number
function freeObject()
    i = 0
    repeat
        inc i
    until object exist(i) = 0
endfunction i

function ab(nr#)
    if nr# < 0 then exitfunction -nr#
endfunction nr#