mmbasic:eaten_earth
Eaten Earth
Short Animation Demo to show animations of large multi-tile sprites and pseudo scrolling. Exits to manual mode so you can play around with the various sprite animations.
Unzip the file and all the needed files are there.
Enjoy :) Anthony Clarke
'*****************************
'* Eaten Earth Animation *
'* By *
'* Anthony Clarke *
'*****************************
cls
mode 4
loadbmp "title.bmp"
pause 4000
cls
LoadBMP "BGSAVE.bmp" 'bssave image includes earth in it's start position for sprite background handling
Sprite Load "space.spr"
col2=16 'earth position variables
col3=32
row2=16
row3=32
'top row
spr1x=103
spr1y=138
spr2x=spr1x+col2
spr2y=spr1y
spr3x=spr1x+col3
spr3y=spr1y
'middle row
spr4x=spr1x
spr4y=spr1y+row2
spr5x=spr1x+col2
spr5y=spr1y+row2
spr6x=spr1x+col3
spr6y=spr1y+row2
'bottom row
spr7x=spr1x
spr7y=spr1y+row3
spr8x=spr1x+col2
spr8y=spr1y+row3
spr9x=spr1x+col3
spr9y=spr1y+row3
'setting up eye position variables
eyespr1x=60
eyespr1y=5
eyespr2x=eyespr1x+16
eyespr2y=eyespr1y
eyespr3x=eyespr1x+16
eyespr3y=eyespr1y+16
eyespr4x=eyespr1x
eyespr4y=eyespr1y+16
'setting up teeth position variables
tooth1x=eyespr1x+8 'Top left
tooth1y=eyespr1y+60
tooth2x=eyespr1x+28
tooth2y=eyespr1y+63
tooth3x=eyespr1x+48 'Left middle top
tooth3y=eyespr1y+66
tooth4x=eyespr1x+68 'Right middle top
tooth4y=eyespr1y+66
tooth5x=eyespr1x+88
tooth5y=eyespr1y+63
tooth6x=eyespr1x+108 'Top Right
tooth6y=eyespr1y+60
tooth7x=tooth1x 'Bottom Left
tooth7y=tooth1y+30
tooth8x=tooth2x
tooth8y=tooth2y+30
tooth9x=tooth3x 'Left middle bottom
tooth9y=tooth3y+30
tooth10x=tooth4x 'Right middle bottom
tooth10y=tooth4y+30
tooth11x=tooth5x
tooth11y=tooth5y+30
tooth12x=tooth6x 'Bottom Right
tooth12y=tooth6y+30
moveSpeed=50 'variable for Earth move speed
width=100 'variable for eye width
speed=15 'first speed variable.. quick for blinking
speed2=50 'second speed variable for slow reveal and disappear
scrLength=89 'Scrolling length
'Opening animation starting
'Dont turn on anu sprites above this line or BLIT will glitch
for x=1 to scrLength 'Using BLIT command to "Scroll" the screen to the left
BLIT 0,0,-1,0,240,216
BLIT 0,0,239,0,1,216
Pause 100
next x
blit 0,0,103,138,48,48 'copying blank part of the screen to cover bmp earth
'turning sprites on
'earth
Sprite on 1,spr1x,spr1y 'replacing BMP earth with sprite earth
Sprite on 2,spr2x,spr2y
Sprite on 3,spr3x,spr3y
Sprite on 4,spr4x,spr4y
Sprite on 5,spr5x,spr5y
Sprite on 6,spr6x,spr6y
Sprite on 7,spr7x,spr7y
Sprite on 8,spr8x,spr8y
Sprite on 9,spr9x,spr9y
earthOn=1 'Earth on bool variable
'Left eye sprites
Sprite on 83,eyespr1x,eyespr1y 'sprites clockwise
Sprite on 84,eyespr2x,eyespr2y
Sprite on 85,eyespr3x,eyespr3y
Sprite on 86,eyespr4x,eyespr4y
'right eye sprites
Sprite on 87,eyespr1x+width,eyespr1y 'sprites clockwise
Sprite on 88,eyespr2x+width,eyespr2y
Sprite on 89,eyespr3x+width,eyespr3y
Sprite on 90,eyespr4x+width,eyespr4y
'teeth sprites
sprite on 71,tooth1x,tooth1y 'top teeth left to right
sprite on 72,tooth2x,tooth2y
sprite on 73,tooth3x,tooth3y
sprite on 74,tooth4x,tooth4y
sprite on 75,tooth5x,tooth5y
sprite on 76,tooth6x,tooth6y
sprite on 77,tooth7x,tooth7y 'bottom teeth left to right
sprite on 78,tooth8x,tooth8y
sprite on 79,tooth9x,tooth9y
sprite on 80,tooth10x,tooth10y
sprite on 81,tooth11x,tooth11y
sprite on 82,tooth12x,tooth12y
EyeOpen=0 'eyes open bool
TeethOn=0
'insert animation commands here
gosub EyeOpen
Gosub TeethOn
gosub Blink
Gosub Blink
Gosub Laugh
Gosub MouthOpen
'moving earth into mouth with sound
for y=1 to 69
gosub MoveUp
tone y+y+y+y+y,y+y+y+y+y
next y
tone stop
Gosub EarthOff'need earth disappearing animation here with sound
Sprite off 1
Sprite off 2
Sprite off 3
Sprite off 4
Sprite off 5
Sprite off 6
Sprite off 7
Sprite off 8
Sprite off 9
pause 1000
Gosub MouthClose
gosub TalkOpen'Need talking here and print "Nom Nom Nom Nom" "Thanks for watching my little demo, Written by Anthony Clarke."
print @(74,140)"Nom,"
gosub Nom
Gosub TalkClose
Gosub TalkOpen
Print @(100,140)"Nom,"
Gosub Nom
gosub TalkClose
Gosub TalkOpen
Print @(128,140)"Nom,"
Gosub Nom
Gosub TalkClose
Gosub TalkOpen
Print @(156,140)"Nom."
Gosub Nom
Gosub TalkClose
gosub EyeClose
Gosub TeethOff
loadBmp "instr.bmp"
do while keydown = 0 'waiting for any key to proceed
loop
'Need screen explaining keys for manual mode
'setting up for manual mode
cls
loadbmp "Bg.bmp" 'turn earthless BG.BMP on
pause 1000
spr1x=103 'resetting eye position variables
spr1y=138
spr2x=spr1x+col2
spr2y=spr1y
spr3x=spr1x+col3
spr3y=spr1y
'middle row
spr4x=spr1x
spr4y=spr1y+row2
spr5x=spr1x+col2
spr5y=spr1y+row2
spr6x=spr1x+col3
spr6y=spr1y+row2
'bottom row
spr7x=spr1x
spr7y=spr1y+row3
spr8x=spr1x+col2
spr8y=spr1y+row3
spr9x=spr1x+col3
spr9y=spr1y+row3
Sprite on 1,spr1x,spr1y 'Turn earth sprites back on
Sprite on 2,spr2x,spr2y
Sprite on 3,spr3x,spr3y
Sprite on 4,spr4x,spr4y
Sprite on 5,spr5x,spr5y
Sprite on 6,spr6x,spr6y
Sprite on 7,spr7x,spr7y
Sprite on 8,spr8x,spr8y
Sprite on 9,spr9x,spr9y
gosub EarthOn
'Animation no longer running, going into manual control
main: 'I did have all these if statements in their own subroutines but then i had to double up for auto animations. So now they're here
'moving subroutines
If KeyDown = 128 then 'if up arrow pressed
gosub moveUp
endif
if keydown = 129 then 'if down arrow pressed
gosub moveDown
endif
if keydown = 130 then 'if left arrow pressed
gosub moveLeft
endif
if keydown = 131 then 'if right arrow pressed
gosub moveRight
endif
'blinking subroutine
if keydown = 32 and eyesOpen=1 then 'if spacebar down then cycle eyeball animation
gosub Blink
endif
'Eye control subroutines
if eyesOpen=1 and keydown=13 then 'if return is hit then
gosub EyeClose
endif
if eyesOpen=0 and keydown=13 then 'If enter button is pressed
GOSUB EyeOpen
endif
'Teeth Control Subroutines
if teethOn=1 and keydown=127 then 'If "delete" key is pressed and teeth are out then cycle teeth off animation
gosub TeethOff
endif
if teethOn=0 and keydown=127 then 'if teeth are off and delete key is pressed then cycle teeth on animation
gosub TeethOn
endif
'Mouth Control Subroutines
if mouthOpen=0 and keydown=132 then'If insert button is pressed
gosub MouthOpen
endif
if mouthOpen=1 and Keydown=132 then 'if insert button pressed and mouth already open
gosub MouthClose
endif
'Talking Subroutines
if keydown=116 and talkEnabled=0 then
talkEnabled=1
tone 600,600,100
pause 500
endif
if keydown=116 and talkEnabled=1 Then
talkEnabled=0
tone 300,300,100
pause 500
endif
if mouthOpen=0 and keydown=134 and talkEnabled=1 then'If insert button is pressed
gosub TalkOpen
Elseif mouthOpen=1 and Keydown<>134 and talkEnabled=1 then 'if insert button pressed and mouth already open
gosub TalkClose
endif
'Earth on and off routines
if keydown=136 and earthOn=0 then 'If PgUp key pressed and Earth isn't on then goto EarthOn animation subroutine
gosub EarthOn
endif
If Keydown=136 and earthOn=1 then'If PgUp Key pressed and Earth IS on then goto EarthOff animation routine
gosub EarthOff
endif
GoTo main 'end of main loop
MoveUp:
'top row Earth
spr1x=spr1x
spr1y=spr1y-1
spr2x=spr1x+col2
spr2y=spr1y
spr3x=spr1x+col3
spr3y=spr1y
'middle row
spr4x=spr1x
spr4y=spr1y+row2
spr5x=spr1x+col2
spr5y=spr1y+row2
spr6x=spr1x+col3
spr6y=spr1y+row2
'bottom row
spr7x=spr1x
spr7y=spr1y+row3
spr8x=spr1x+col2
spr8y=spr1y+row3
spr9x=spr1x+col3
spr9y=spr1y+row3
Sprite move 1,spr1x,spr1y
Sprite move 2,spr2x,spr2y
Sprite move 3,spr3x,spr3y
Sprite move 4,spr4x,spr4y
Sprite move 5,spr5x,spr5y
Sprite move 6,spr6x,spr6y
Sprite move 7,spr7x,spr7y
Sprite move 8,spr8x,spr8y
Sprite move 9,spr9x,spr9y
endif
pause moveSpeed
return
MoveDown:
'top row
spr1x=spr1x
spr1y=spr1y+1
spr2x=spr1x+col2
spr2y=spr1y
spr3x=spr1x+col3
spr3y=spr1y
'middle row
spr4x=spr1x
spr4y=spr1y+row2
spr5x=spr1x+col2
spr5y=spr1y+row2
spr6x=spr1x+col3
spr6y=spr1y+row2
'bottom row
spr7x=spr1x
spr7y=spr1y+row3
spr8x=spr1x+col2
spr8y=spr1y+row3
spr9x=spr1x+col3
spr9y=spr1y+row3
Sprite move 9,spr9x,spr9y 'moving different sprites in different order depending on direction. Stops glitching
Sprite move 8,spr8x,spr8y
Sprite move 7,spr7x,spr7y
Sprite move 6,spr6x,spr6y
Sprite move 5,spr5x,spr5y
Sprite move 4,spr4x,spr4y
Sprite move 3,spr3x,spr3y
Sprite move 2,spr2x,spr2y
Sprite move 1,spr1x,spr1y
endif
pause moveSpeed
Return
MoveLeft:
'top row
spr1x=spr1x-1
spr1y=spr1y
spr2x=spr1x+col2
spr2y=spr1y
spr3x=spr1x+col3
spr3y=spr1y
'middle row
spr4x=spr1x
spr4y=spr1y+row2
spr5x=spr1x+col2
spr5y=spr1y+row2
spr6x=spr1x+col3
spr6y=spr1y+row2
'bottom row
spr7x=spr1x
spr7y=spr1y+row3
spr8x=spr1x+col2
spr8y=spr1y+row3
spr9x=spr1x+col3
spr9y=spr1y+row3
Sprite move 1,spr1x,spr1y 'moving different sprites in different order depending on direction. Stops glitching
Sprite move 4,spr4x,spr4y
Sprite move 7,spr7x,spr7y
Sprite move 2,spr2x,spr2y
Sprite move 5,spr5x,spr5y
Sprite move 8,spr8x,spr8y
Sprite move 3,spr3x,spr3y
Sprite move 6,spr6x,spr6y
Sprite move 9,spr9x,spr9y
endif
pause moveSpeed
Return
MoveRight:
'top row
spr1x=spr1x+1
spry=spry
spr2x=spr1x+col2
spr2y=spr1y
spr3x=spr1x+col3
spr3y=spr1y
'middle row
spr4x=spr1x
spr4y=spr1y+row2
spr5x=spr1x+col2
spr5y=spr1y+row2
spr6x=spr1x+col3
spr6y=spr1y+row2
'bottom row
spr7x=spr1x
spr7y=spr1y+row3
spr8x=spr1x+col2
spr8y=spr1y+row3
spr9x=spr1x+col3
spr9y=spr1y+row3
Sprite move 3,spr3x,spr3y 'moving different sprites in different order depending on direction. Stops glitching
Sprite move 6,spr6x,spr6y
Sprite move 9,spr9x,spr9y
Sprite move 2,spr2x,spr2y
Sprite move 5,spr5x,spr5y
Sprite move 8,spr8x,spr8y
Sprite move 1,spr1x,spr1y
Sprite move 4,spr4x,spr4y
Sprite move 7,spr7x,spr7y
endif
pause moveSpeed
Return
Blink:
sprite copy 18 to 83 'frame 1 left eye
sprite copy 19 to 84
sprite copy 33 to 86
sprite copy 32 to 85
sprite copy 18 to 87 'frame 1 right eye
sprite copy 19 to 88
sprite copy 33 to 90
sprite copy 32 to 89
pause speed
sprite copy 21 to 83 'frame 2 left eye
sprite copy 20 to 84
sprite copy 33 to 86
sprite copy 32 to 85
sprite copy 21 to 87 'frame 2 right eye
sprite copy 20 to 88
sprite copy 33 to 90
sprite copy 32 to 89
pause speed
sprite copy 22 to 83 'frame 3 left eye
sprite copy 23 to 84
sprite copy 33 to 86
sprite copy 32 to 85
sprite copy 22 to 87 'frame 3 right eye
sprite copy 23 to 88
sprite copy 33 to 90
sprite copy 32 to 89
pause speed
sprite copy 70 to 83 'frame 4 left eye
sprite copy 70 to 84
sprite copy 25 to 86
sprite copy 24 to 85
sprite copy 70 to 87 'frame 4 right eye
sprite copy 70 to 88
sprite copy 25 to 90
sprite copy 24 to 89
pause speed
sprite copy 70 to 83 'frame 5 left eye
sprite copy 70 to 84
sprite copy 27 to 86
sprite copy 26 to 85
sprite copy 70 to 87 'frame 5 right eye
sprite copy 70 to 88
sprite copy 27 to 90
sprite copy 26 to 89
pause speed
sprite copy 70 to 83 'frame 6 left eye
sprite copy 70 to 84
sprite copy 29 to 86
sprite copy 28 to 85
sprite copy 70 to 87 'frame 6 right eye
sprite copy 70 to 88
sprite copy 29 to 90
sprite copy 28 to 89
pause speed
sprite copy 70 to 83 'Fully closed left eye
sprite copy 70 to 84
sprite copy 70 to 86
sprite copy 70 to 85
sprite copy 70 to 87 'fully closed right eye
sprite copy 70 to 88
sprite copy 70 to 90
sprite copy 70 to 89 'Eye closing animation complete......
pause speed
'starting eye opening animation
sprite copy 70 to 87 'frame 6 right eye
sprite copy 70 to 88
sprite copy 29 to 90
sprite copy 28 to 89
sprite copy 70 to 83 'frame 6 left eye
sprite copy 70 to 84
sprite copy 29 to 86
sprite copy 28 to 85
pause speed
sprite copy 70 to 87 'frame 5 right eye
sprite copy 70 to 88
sprite copy 27 to 90
sprite copy 26 to 89
sprite copy 70 to 83 'frame 5 left eye
sprite copy 70 to 84
sprite copy 27 to 86
sprite copy 26 to 85
pause speed
sprite copy 70 to 87 'frame 4 right eye
sprite copy 70 to 88
sprite copy 25 to 90
sprite copy 24 to 89
sprite copy 70 to 83 'frame 4 left eye
sprite copy 70 to 84
sprite copy 25 to 86
sprite copy 24 to 85
pause speed
sprite copy 22 to 87 'frame 3 right eye
sprite copy 23 to 88
sprite copy 33 to 90
sprite copy 32 to 89
sprite copy 22 to 83 'frame 3 left eye
sprite copy 23 to 84
sprite copy 33 to 86
sprite copy 32 to 85
pause speed
sprite copy 21 to 87 'frame 2 right eye
sprite copy 20 to 88
sprite copy 33 to 90
sprite copy 32 to 89
sprite copy 21 to 83 'frame 2 left eye
sprite copy 20 to 84
sprite copy 33 to 86
sprite copy 32 to 85
pause speed
sprite copy 18 to 87 'frame 1 right eye
sprite copy 19 to 88
sprite copy 33 to 90
sprite copy 32 to 89
sprite copy 18 to 83 'frame 1 left eye
sprite copy 19 to 84
sprite copy 33 to 86
sprite copy 32 to 85
pause speed
sprite copy 30 to 87 'fully open right eye
sprite copy 31 to 88
sprite copy 32 to 89
sprite copy 33 to 90
sprite copy 30 to 83 'fully open left eye
sprite copy 31 to 84
sprite copy 32 to 85
sprite copy 33 to 86 'eye opening animation complete.
pause speed
return
EyeClose:
sprite copy 18 to 83 'frame 1 left eye
sprite copy 19 to 84
sprite copy 33 to 86
sprite copy 32 to 85
sprite copy 18 to 87 'frame 1 right eye
sprite copy 19 to 88
sprite copy 33 to 90
sprite copy 32 to 89
pause speed2
sprite copy 21 to 83 'frame 2 left eye
sprite copy 20 to 84
sprite copy 33 to 86
sprite copy 32 to 85
sprite copy 21 to 87 'frame 2 right eye
sprite copy 20 to 88
sprite copy 33 to 90
sprite copy 32 to 89
pause speed2
sprite copy 22 to 83 'frame 3 left eye
sprite copy 23 to 84
sprite copy 33 to 86
sprite copy 32 to 85
sprite copy 22 to 87 'frame 3 right eye
sprite copy 23 to 88
sprite copy 33 to 90
sprite copy 32 to 89
pause speed2
sprite copy 70 to 83 'frame 4 left eye
sprite copy 70 to 84
sprite copy 25 to 86
sprite copy 24 to 85
sprite copy 70 to 87 'frame 4 right eye
sprite copy 70 to 88
sprite copy 25 to 90
sprite copy 24 to 89
pause speed2
sprite copy 70 to 83 'frame 5 left eye
sprite copy 70 to 84
sprite copy 27 to 86
sprite copy 26 to 85
sprite copy 70 to 87 'frame 5 right eye
sprite copy 70 to 88
sprite copy 27 to 90
sprite copy 26 to 89
pause speed2
sprite copy 70 to 83 'frame 6 left eye
sprite copy 70 to 84
sprite copy 29 to 86
sprite copy 28 to 85
sprite copy 70 to 87 'frame 6 right eye
sprite copy 70 to 88
sprite copy 29 to 90
sprite copy 28 to 89
pause speed2
sprite copy 70 to 83 'Fully closed left eye
sprite copy 70 to 84
sprite copy 70 to 86
sprite copy 70 to 85
sprite copy 70 to 87 'fully closed right eye
sprite copy 70 to 88
sprite copy 70 to 90
sprite copy 70 to 89 'Eye closing animation complete......
eyesOpen=0 'mark eyes as closed
Return
EyeOpen:
'starting eye opening animation
sprite copy 70 to 87 'frame 6 right eye
sprite copy 70 to 88
sprite copy 29 to 90
sprite copy 28 to 89
sprite copy 70 to 83 'frame 6 left eye
sprite copy 70 to 84
sprite copy 29 to 86
sprite copy 28 to 85
pause speed2
sprite copy 70 to 87 'frame 5 right eye
sprite copy 70 to 88
sprite copy 27 to 90
sprite copy 26 to 89
sprite copy 70 to 83 'frame 5 left eye
sprite copy 70 to 84
sprite copy 27 to 86
sprite copy 26 to 85
pause speed2
sprite copy 70 to 87 'frame 4 right eye
sprite copy 70 to 88
sprite copy 25 to 90
sprite copy 24 to 89
sprite copy 70 to 83 'frame 4 left eye
sprite copy 70 to 84
sprite copy 25 to 86
sprite copy 24 to 85
pause speed2
sprite copy 22 to 87 'frame 3 right eye
sprite copy 23 to 88
sprite copy 33 to 90
sprite copy 32 to 89
sprite copy 22 to 83 'frame 3 left eye
sprite copy 23 to 84
sprite copy 33 to 86
sprite copy 32 to 85
pause speed2
sprite copy 21 to 87 'frame 2 right eye
sprite copy 20 to 88
sprite copy 33 to 90
sprite copy 32 to 89
sprite copy 21 to 83 'frame 2 left eye
sprite copy 20 to 84
sprite copy 33 to 86
sprite copy 32 to 85
pause speed2
sprite copy 18 to 87 'frame 1 right eye
sprite copy 19 to 88
sprite copy 33 to 90
sprite copy 32 to 89
sprite copy 18 to 83 'frame 1 left eye
sprite copy 19 to 84
sprite copy 33 to 86
sprite copy 32 to 85
pause speed2
sprite copy 30 to 87 'fully open right eye
sprite copy 31 to 88
sprite copy 32 to 89
sprite copy 33 to 90
sprite copy 30 to 83 'fully open left eye
sprite copy 31 to 84
sprite copy 32 to 85
sprite copy 33 to 86 'eye opening animation complete.
if animEyesOpen=1 then 'If automatic command sent to perform animation.. reset command variable.
animEyesOpen=0
endif
eyesOpen=1 'mark eyes as open
endif
return
TeethOff:
'Teeth appearing annd disappering routines
'fourth frame
sprite copy 51 to 71 'top teeth left to right
sprite copy 50 to 72
sprite copy 49 to 73
sprite copy 49 to 74
sprite copy 50 to 75
sprite copy 51 to 76
sprite copy 55 to 77 'bottom teeth left to right
sprite copy 54 to 78
sprite copy 53 to 79
sprite copy 53 to 80
sprite copy 54 to 81
sprite copy 55 to 82
pause speed2
'third frame
sprite copy 52 to 71 'top teeth left to right
sprite copy 51 to 72
sprite copy 50 to 73
sprite copy 50 to 74
sprite copy 51 to 75
sprite copy 52 to 76
sprite copy 56 to 77 'bottom teeth left to right
sprite copy 55 to 78
sprite copy 54 to 79
sprite copy 54 to 80
sprite copy 55 to 81
sprite copy 56 to 82
pause speed2
'second frame
sprite copy 70 to 71 'top teeth left to right
sprite copy 52 to 72
sprite copy 51 to 73
sprite copy 51 to 74
sprite copy 52 to 75
sprite copy 70 to 76
sprite copy 70 to 77 'bottom teeth left to right
sprite copy 56 to 78
sprite copy 55 to 79
sprite copy 55 to 80
sprite copy 56 to 81
sprite copy 70 to 82
pause speed2
'first frame appearing
sprite copy 70 to 71 'top teeth left to right
sprite copy 70 to 72
sprite copy 52 to 73
sprite copy 52 to 74
sprite copy 70 to 75
sprite copy 70 to 76
sprite copy 70 to 77 'bottom teeth left to right
sprite copy 70 to 78
sprite copy 56 to 79
sprite copy 56 to 80
sprite copy 70 to 81
sprite copy 70 to 82
pause speed2
'Teeth disappeared
sprite copy 70 to 71 'top teeth left to right
sprite copy 70 to 72
sprite copy 70 to 73
sprite copy 70 to 74
sprite copy 70 to 75
sprite copy 70 to 76
sprite copy 70 to 77 'bottom teeth left to right
sprite copy 70 to 78
sprite copy 70 to 79
sprite copy 70 to 80
sprite copy 70 to 81
sprite copy 70 to 82
pause speed2
teethOn=0
return
TeethOn:
'first frame appearing
sprite copy 70 to 71 'top teeth left to right
sprite copy 70 to 72
sprite copy 52 to 73
sprite copy 52 to 74
sprite copy 70 to 75
sprite copy 70 to 76
sprite copy 70 to 77 'bottom teeth left to right
sprite copy 70 to 78
sprite copy 56 to 79
sprite copy 56 to 80
sprite copy 70 to 81
sprite copy 70 to 82
pause speed2
'second frame
sprite copy 70 to 71 'top teeth left to right
sprite copy 52 to 72
sprite copy 51 to 73
sprite copy 51 to 74
sprite copy 52 to 75
sprite copy 70 to 76
sprite copy 70 to 77 'bottom teeth left to right
sprite copy 56 to 78
sprite copy 55 to 79
sprite copy 55 to 80
sprite copy 56 to 81
sprite copy 70 to 82
pause speed2
'third frame
sprite copy 52 to 71 'top teeth left to right
sprite copy 51 to 72
sprite copy 50 to 73
sprite copy 50 to 74
sprite copy 51 to 75
sprite copy 52 to 76
sprite copy 56 to 77 'bottom teeth left to right
sprite copy 55 to 78
sprite copy 54 to 79
sprite copy 54 to 80
sprite copy 55 to 81
sprite copy 56 to 82
pause speed2
'fourth frame
sprite copy 51 to 71 'top teeth left to right
sprite copy 50 to 72
sprite copy 49 to 73
sprite copy 49 to 74
sprite copy 50 to 75
sprite copy 51 to 76
sprite copy 55 to 77 'bottom teeth left to right
sprite copy 54 to 78
sprite copy 53 to 79
sprite copy 53 to 80
sprite copy 54 to 81
sprite copy 55 to 82
pause speed2
'back to full
sprite copy 50 to 71 'top teeth left to right
sprite copy 49 to 72
sprite copy 40 to 73
sprite copy 40 to 74
sprite copy 49 to 75
sprite copy 50 to 76
sprite copy 54 to 77 'bottom teeth left to right
sprite copy 53 to 78
sprite copy 36 to 79
sprite copy 36 to 80
sprite copy 53 to 81
sprite copy 54 to 82
pause speed2
teethOn=1
endif
return
MouthOpen: 'Mouth open animation
for y=1 to 18 step 1
sprite move 71,tooth1x,tooth1y-y
sprite move 72,tooth2x,tooth2y-y
sprite move 73,tooth3x,tooth3y-y
sprite move 74,tooth4x,tooth4y-y
sprite move 75,tooth5x,tooth5y-y
sprite move 76,tooth6x,tooth6y-y
sprite move 77,tooth7x,tooth7y+y
sprite move 78,tooth8x,tooth8y+y
sprite move 79,tooth9x,tooth9y+y
sprite move 80,tooth10x,tooth10y+y
sprite move 81,tooth11x,tooth11y+y
sprite move 82,tooth12x,tooth12y+y
pause speed2
next y
tooth1y=tooth1y-18 'need to shift actual positions because they dont change in For Next loop.
tooth2y=tooth2y-18
tooth3y=tooth3y-18
tooth4y=tooth4y-18
tooth5y=tooth5y-18
tooth6y=tooth6y-18
tooth7y=tooth7y+18
tooth8y=tooth8y+18
tooth9y=tooth9y+18
tooth10y=tooth10y+18
tooth11y=tooth11y+18
tooth12y=tooth12y+18
mouthOpen=1
endif
Return
MouthClose:
for y=1 to 18 step 1
sprite move 71,tooth1x,tooth1y+y
sprite move 72,tooth2x,tooth2y+y
sprite move 73,tooth3x,tooth3y+y
sprite move 74,tooth4x,tooth4y+y
sprite move 75,tooth5x,tooth5y+y
sprite move 76,tooth6x,tooth6y+y
sprite move 77,tooth7x,tooth7y-y
sprite move 78,tooth8x,tooth8y-y
sprite move 79,tooth9x,tooth9y-y
sprite move 80,tooth10x,tooth10y-y
sprite move 81,tooth11x,tooth11y-y
sprite move 82,tooth12x,tooth12y-y
pause speed2
next y
tooth1y=tooth1y+18 'need to shift actual positions because they dont change in For Next loop.
tooth2y=tooth2y+18
tooth3y=tooth3y+18
tooth4y=tooth4y+18
tooth5y=tooth5y+18
tooth6y=tooth6y+18
tooth7y=tooth7y-18
tooth8y=tooth8y-18
tooth9y=tooth9y-18
tooth10y=tooth10y-18
tooth11y=tooth11y-18
tooth12y=tooth12y-18
mouthOpen=0
endif
return
TalkOpen: 'Talk animation subroutines
for y=1 to 18 step 1
sprite move 71,tooth1x,tooth1y-y
sprite move 72,tooth2x,tooth2y-y
sprite move 73,tooth3x,tooth3y-y
sprite move 74,tooth4x,tooth4y-y
sprite move 75,tooth5x,tooth5y-y
sprite move 76,tooth6x,tooth6y-y
sprite move 77,tooth7x,tooth7y+y
sprite move 78,tooth8x,tooth8y+y
sprite move 79,tooth9x,tooth9y+y
sprite move 80,tooth10x,tooth10y+y
sprite move 81,tooth11x,tooth11y+y
sprite move 82,tooth12x,tooth12y+y
pause 0
next y
gosub Nom
tooth1y=tooth1y-18 'need to shift actual positions because they dont change in For Next loop.
tooth2y=tooth2y-18
tooth3y=tooth3y-18
tooth4y=tooth4y-18
tooth5y=tooth5y-18
tooth6y=tooth6y-18
tooth7y=tooth7y+18
tooth8y=tooth8y+18
tooth9y=tooth9y+18
tooth10y=tooth10y+18
tooth11y=tooth11y+18
tooth12y=tooth12y+18
mouthOpen=1
return
TalkClose:
for y=1 to 18 step 1
sprite move 71,tooth1x,tooth1y+y
sprite move 72,tooth2x,tooth2y+y
sprite move 73,tooth3x,tooth3y+y
sprite move 74,tooth4x,tooth4y+y
sprite move 75,tooth5x,tooth5y+y
sprite move 76,tooth6x,tooth6y+y
sprite move 77,tooth7x,tooth7y-y
sprite move 78,tooth8x,tooth8y-y
sprite move 79,tooth9x,tooth9y-y
sprite move 80,tooth10x,tooth10y-y
sprite move 81,tooth11x,tooth11y-y
sprite move 82,tooth12x,tooth12y-y
pause 0
next y
tooth1y=tooth1y+18 'need to shift actual positions because they dont change in For Next loop.
tooth2y=tooth2y+18
tooth3y=tooth3y+18
tooth4y=tooth4y+18
tooth5y=tooth5y+18
tooth6y=tooth6y+18
tooth7y=tooth7y-18
tooth8y=tooth8y-18
tooth9y=tooth9y-18
tooth10y=tooth10y-18
tooth11y=tooth11y-18
tooth12y=tooth12y-18
mouthOpen=0
endif
return
Laugh: 'pretty much the best "Laugh" i could come up with with tone loops lol. Yeah it's pretty bad i know.
for i=1 to 4
for x=600 to 1 step -0.15
tone x,x
next x
next i
for x=600 to 10 step -0.05
tone x,x
next x
return
Nom:
for x=1 to 200 step 0.7
tone x,x
next x
tone Stop
Return
EarthOn: 'earth on animation
If earthOn=0 then
'frame 5
sprite copy 127 to 1
sprite copy 128 to 2
sprite copy 129 to 3
sprite copy 130 to 4
sprite copy 131 to 5
sprite copy 132 to 6
sprite copy 133 to 7
sprite copy 134 to 8
sprite copy 135 to 9
for x=1 to 167 step 3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame 4
sprite copy 118 to 1
sprite copy 119 to 2
sprite copy 120 to 3
sprite copy 121 to 4
sprite copy 122 to 5
sprite copy 123 to 6
sprite copy 124 to 7
sprite copy 125 to 8
sprite copy 126 to 9
for x=167 to 334 step 3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame 3
sprite copy 109 to 1
sprite copy 110 to 2
sprite copy 111 to 3
sprite copy 112 to 4
sprite copy 113 to 5
sprite copy 114 to 6
sprite copy 115 to 7
sprite copy 116 to 8
sprite copy 117 to 9
for x=334 to 500 step 3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame 2
sprite copy 100 to 1
sprite copy 101 to 2
sprite copy 102 to 3
sprite copy 103 to 4
sprite copy 104 to 5
sprite copy 105 to 6
sprite copy 106 to 7
sprite copy 107 to 8
sprite copy 108 to 9
for x=500 to 667 step 3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'Frame 1
sprite copy 91 to 1
sprite copy 92 to 2
sprite copy 93 to 3
sprite copy 94 to 4
sprite copy 95 to 5
sprite copy 96 to 6
sprite copy 97 to 7
sprite copy 98 to 8
sprite copy 99 to 9
for x=667 to 834 step 3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'Frame Full
sprite copy 141 to 1
sprite copy 142 to 2
sprite copy 143 to 3
sprite copy 144 to 4
sprite copy 145 to 5
sprite copy 146 to 6
sprite copy 147 to 7
sprite copy 148 to 8
sprite copy 149 to 9
for x=834 to 1000 step 3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
tone stop
earthOn=1
Return
EarthOff: 'Earth off animation
if earthOn=1 then
'Frame 1
sprite copy 91 to 1
sprite copy 92 to 2
sprite copy 93 to 3
sprite copy 94 to 4
sprite copy 95 to 5
sprite copy 96 to 6
sprite copy 97 to 7
sprite copy 98 to 8
sprite copy 99 to 9
for x=1000 to 834 step -3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame 2
sprite copy 100 to 1
sprite copy 101 to 2
sprite copy 102 to 3
sprite copy 103 to 4
sprite copy 104 to 5
sprite copy 105 to 6
sprite copy 106 to 7
sprite copy 107 to 8
sprite copy 108 to 9
for x=834 to 667 step -3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame 3
sprite copy 109 to 1
sprite copy 110 to 2
sprite copy 111 to 3
sprite copy 112 to 4
sprite copy 113 to 5
sprite copy 114 to 6
sprite copy 115 to 7
sprite copy 116 to 8
sprite copy 117 to 9
for x=667 to 500 step -3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame 4
sprite copy 118 to 1
sprite copy 119 to 2
sprite copy 120 to 3
sprite copy 121 to 4
sprite copy 122 to 5
sprite copy 123 to 6
sprite copy 124 to 7
sprite copy 125 to 8
sprite copy 126 to 9
for x=500 to 334 step -3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame 5
sprite copy 127 to 1
sprite copy 128 to 2
sprite copy 129 to 3
sprite copy 130 to 4
sprite copy 131 to 5
sprite copy 132 to 6
sprite copy 133 to 7
sprite copy 134 to 8
sprite copy 135 to 9
for x=334 to 167 step -3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
'frame Gone
sprite copy 136 to 1
sprite copy 136 to 2
sprite copy 136 to 3
sprite copy 136 to 4
sprite copy 136 to 5
sprite copy 136 to 6
sprite copy 136 to 7
sprite copy 136 to 8
sprite copy 136 to 9
for x=167 to 1 step -3 'fitting sound into what used to be pause cycles
tone x,x
pause 1
next x
tone stop
earthOn=0
endif
return
mmbasic/eaten_earth.txt · Last modified: 2024/01/19 09:30 by 127.0.0.1