11-27-2023, 06:53 PM
Monster spritewalk demo.
experimenting with stacked groups of art elements in the original drawing and revealing them when needed to provide animation.
Probably not the most efficient way to do this speed-wise.
There was originally meant to be an eye animation as well but the way the art program grouped the elements made that bothersome.
If you want to slap the critter into another program I'd like to see it.
experimenting with stacked groups of art elements in the original drawing and revealing them when needed to provide animation.
Probably not the most efficient way to do this speed-wise.
There was originally meant to be an eye animation as well but the way the art program grouped the elements made that bothersome.
If you want to slap the critter into another program I'd like to see it.
Code: (Select All)
'monster spritewalk demo
'by James Jarvis Nov 27, 2023
'walk the monster with the WASD keys
'animagion is made with oveerlapping pieces in the original art shown as needed
'
' graphics are taken form Kenney Assets are free for use
' need QB64 phoenix 3.9 and up.
Screen _NewImage(800, 600, 32)
_Title "Monster Spritewalk Demo (WASD)"
Dim As Long simg
sx = 0: sy = 0
armstate = 1
antennastate = 2
earstate = 2
legstate = 2
Do
i$ = "<svg x='0' y='-2'width='64' height='96' >"
'Arms
Select Case armstate
Case 1
i$ = i$ + " <path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M16,37.4c-1.3-0.8-2.2-2-2.8-3.5c-0.2-0.8-0.1-1.6,0.2-2.4l0.3-0.7c0.6-1.2,1.5-2,2.8-2.4s2.5-0.3,3.7,0.3c1.2,0.6,2,1.5,2.4,2.8s0.3,2.5-0.3,3.7c-0.3,0.7-0.8,1.2-1.3,1.6c-0.4,0.4-0.9,0.6-1.5,0.8C18.2,38,17.1,37.9,16,37.4 M7.6,56.8L7.6,56.8c1.5-0.7,2.8-0.8,4.1-0.4l0.1,0.1c0.7,0.4,1.1,1,1.4,1.8c0.1,0.3,0.1,0.5,0.2,0.8c-3.2-0.8-5.4-0.2-6.6,1.6l-0.1-0.2c-0.3-0.9-0.2-1.8,0.2-2.7C7,57.5,7.3,57.1,7.6,56.8'/>"
i$ = i$ + i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M7.6,56.8V56v-0.9l0,0c-0.1-4.3,0.5-8.5,1.8-12.6c0.4-1.3,0.8-2.5,1.4-3.7l1.1-2.3l0.4-0.9l0.2-0.4l0,0l0.7-1.3c0.6,1.6,1.6,2.7,2.8,3.5l-0.5,0.9l-0.1,0.2l-0.1,0.1c-0.6,1.2-1.1,2.4-1.5,3.6c-1.4,4-2.1,8.1-2.1,12.4v0.7v0.4V56l0.1,0.7l-0.1-0.1c-1.3-0.5-2.6-0.4-4,0.3L7.6,56.8 M6.7,60.8c1.2-1.9,3.4-2.4,6.6-1.6h0.2c2.3,0.6,3.7,2,4.3,4.3c0.1,0.6,0.2,1.2,0.3,1.8c0,0.5-0.1,0.9-0.4,1.2c-0.3,0.3-0.7,0.5-1.1,0.6c-0.5,0-0.9-0.1-1.2-0.4s-0.5-0.7-0.6-1.1c-0.1-0.7-0.2-1.3-0.5-1.8c-0.2-0.4-0.5-0.7-0.8-0.9l-0.1,0.3l-0.1,0.3l-0.1,0.4c-0.7,1.9-0.5,3.7,0.5,5.5c0.3,0.5,0.4,1,0.2,1.6c-0.1,0.6-0.5,1-1,1.3s-1,0.4-1.6,0.2s-1-0.5-1.3-1v-0.1c-0.5,0.2-1,0.3-1.5,0.2c-0.6-0.2-1-0.5-1.3-1c-1.2-2.1-1.7-4.1-1.5-6.3c0.1-0.8,0.2-1.6,0.5-2.4l0,0L6.7,60.8'/>"
i$ = i$ + i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M59.7,56L59.7,56c-1.5-0.6-2.8-0.5-4.1,0.1l-0.1,0.1v-0.7v-0.3v-0.3l-0.1-0.7C55,50,53.9,45.9,52,42.1c-0.6-1.2-1.2-2.3-1.9-3.4L50,38.6l0-0.2l-0.6-0.9c1.2-0.9,2-2.2,2.4-3.8l0.9,1.2l0,0l0.2,0.3l0.5,0.8l1.3,2.2c0.6,1.2,1.2,2.4,1.7,3.6c1.7,3.9,2.7,8,3.1,12.4l0,0l0.1,0.9L59.7,56 M61.1,59.8l0.5,1l0,0c0.4,0.8,0.6,1.6,0.8,2.3c0.4,2.1,0.2,4.2-0.8,6.4c-0.2,0.5-0.6,0.9-1.2,1.1c-0.5,0.2-1,0.2-1.5,0v0.1c-0.2,0.5-0.6,0.9-1.2,1.1c-0.5,0.2-1.1,0.2-1.6-0.1c-0.5-0.2-0.9-0.6-1.1-1.2c-0.2-0.5-0.2-1.1,0.1-1.6c0.8-1.9,0.8-3.7-0.1-5.5l-0.2-0.3l-0.2-0.3l-0.1-0.3c-0.3,0.3-0.5,0.6-0.7,1c-0.2,0.5-0.3,1.1-0.3,1.9c0,0.5-0.1,0.8-0.4,1.2c-0.3,0.3-0.7,0.5-1.2,0.5S51,67,50.7,66.7s-0.5-0.7-0.5-1.2c0-0.6,0-1.3,0.1-1.8c0.4-2.3,1.6-3.9,3.8-4.8l0.2-0.1C57.4,57.8,59.7,58.1,61.1,59.8'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M49.4,37.5c-1.1,0.6-2.2,0.8-3.4,0.5c-0.6-0.1-1.1-0.3-1.6-0.6c-0.6-0.4-1.1-0.8-1.5-1.5c-0.7-1.1-0.9-2.4-0.7-3.7c0.3-1.3,1-2.3,2.1-3s2.3-1,3.7-0.7c1.3,0.3,2.3,1,3,2.1l0.4,0.6c0.4,0.8,0.5,1.6,0.4,2.4C51.4,35.4,50.6,36.6,49.4,37.5 M59.7,56c0.4,0.3,0.7,0.6,0.9,1c0.5,0.8,0.7,1.7,0.5,2.6L61,59.8c-1.4-1.7-3.6-2-6.7-0.9c0-0.3,0-0.5,0.1-0.8c0.2-0.8,0.6-1.4,1.2-1.9l0.1-0.1c1.2-0.6,2.5-0.6,4-0.2V56'/>"
Case 2
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M49.3,38.4c-1.1,0.5-2.3,0.6-3.5,0.2c-0.6-0.2-1.1-0.4-1.5-0.8c-0.5-0.4-1-1-1.3-1.6c-0.6-1.2-0.7-2.4-0.3-3.7s1.2-2.2,2.4-2.8c1.2-0.6,2.4-0.7,3.7-0.3c1.3,0.4,2.2,1.2,2.8,2.4l0.3,0.7c0.3,0.8,0.3,1.6,0.2,2.4C51.6,36.5,50.6,37.6,49.3,38.4 M57.7,57.8c0.3,0.3,0.6,0.6,0.8,1.1c0.4,0.9,0.5,1.7,0.2,2.7l-0.1,0.2c-1.2-1.9-3.4-2.4-6.6-1.6c0-0.3,0.1-0.5,0.2-0.8c0.2-0.8,0.7-1.4,1.4-1.8l0.1-0.1C55,57,56.3,57.1,57.7,57.8L57.7,57.8'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M57.7,57.8L57.7,57.8c-1.5-0.7-2.8-0.8-4.1-0.4l-0.1,0.1l0.1-0.7v-0.3v-0.4v-0.7c0-4.3-0.7-8.4-2.1-12.4c-0.5-1-1-2.2-1.5-3.4l-0.1-0.1l-0.1-0.2l-0.5-0.9c1.3-0.8,2.2-2,2.8-3.5l0.7,1.3l0,0l0.2,0.4l0.4,0.9l1.1,2.3c0.5,1.2,1,2.5,1.4,3.7c1.3,4.1,1.9,8.3,1.8,12.6l0,0V57L57.7,57.8 M58.6,61.8l0.4,1l0,0c0.3,0.8,0.4,1.6,0.5,2.4c0.2,2.1-0.3,4.2-1.5,6.3c-0.3,0.5-0.7,0.8-1.3,1c-0.5,0.1-1,0.1-1.5-0.2v0.1c-0.3,0.5-0.7,0.8-1.3,1c-0.6,0.1-1.1,0.1-1.6-0.2c-0.5-0.3-0.8-0.7-1-1.3c-0.2-0.6-0.1-1.1,0.2-1.6c1-1.8,1.2-3.6,0.5-5.5l0-0.3l-0.1-0.3l-0.1-0.3c-0.3,0.2-0.6,0.5-0.8,0.9c-0.3,0.5-0.4,1.1-0.5,1.8c0,0.5-0.2,0.8-0.6,1.1c-0.3,0.3-0.7,0.4-1.2,0.4s-0.8-0.2-1.1-0.6s-0.5-0.8-0.4-1.2c0-0.6,0.1-1.3,0.3-1.8c0.6-2.3,2-3.7,4.3-4.3H52C55.2,59.4,57.4,59.9,58.6,61.8'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M5.6,57v-0.8l0.1-0.9l0,0c0.3-4.3,1.4-8.5,3-12.4c0.5-1.2,1.1-2.4,1.7-3.6l1.3-2.2l0.5-0.8l0.2-0.3l0,0l0.9-1.2c0.4,1.6,1.3,2.9,2.4,3.8l-0.6,0.9L15,39.7l-0.1,0.1c-0.7,1.1-1.3,2.3-1.9,3.4C11.2,47,10,51,9.6,55.3L9.5,56v0.3v0.3v0.7l-0.1-0.1c-1.2-0.6-2.5-0.6-4-0.2L5.6,57 M4.3,60.8c1.4-1.7,3.6-2,6.7-0.9l0.2,0.1c2.2,0.8,3.5,2.4,3.8,4.8c0.1,0.6,0.1,1.2,0.1,1.8c0,0.5-0.2,0.8-0.5,1.2c-0.3,0.3-0.7,0.5-1.2,0.4c-0.5,0-0.8-0.2-1.2-0.5c-0.3-0.3-0.5-0.7-0.4-1.2c0-0.7-0.1-1.4-0.3-1.9c-0.2-0.4-0.4-0.7-0.7-1l-0.1,0.3l-0.2,0.3l-0.2,0.3c-0.9,1.8-0.9,3.6-0.1,5.5c0.3,0.5,0.3,1.1,0.1,1.6s-0.6,0.9-1.1,1.2c-0.5,0.2-1,0.3-1.6,0.1s-0.9-0.6-1.2-1.1v-0.1c-0.5,0.2-1,0.2-1.5,0S4,71.1,3.7,70.6c-1-2.2-1.2-4.3-0.8-6.4c0.2-0.8,0.4-1.6,0.8-2.3l0,0L4.3,60.8'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M15.9,38.5c-1.2-0.9-2-2.2-2.4-3.8c-0.1-0.8,0.1-1.6,0.4-2.4l0.4-0.6c0.7-1.1,1.7-1.8,3-2.1c1.3-0.3,2.5,0,3.7,0.7c1.1,0.7,1.8,1.7,2.1,3c0.3,1.3,0.1,2.5-0.7,3.7c-0.4,0.6-0.9,1.1-1.5,1.5c-0.5,0.3-1,0.5-1.6,0.6C18.1,39.3,16.9,39.2,15.9,38.5 M5.6,57L5.6,57c1.5-0.6,2.8-0.5,4.1,0.1l0.1,0.1c0.6,0.5,1,1.1,1.2,1.9c0.1,0.3,0.1,0.5,0.1,0.8c-3.1-1.1-5.4-0.8-6.7,0.9l-0.1-0.2C4,59.7,4.1,58.8,4.6,58C4.9,57.6,5.2,57.3,5.6,57'/>"
Case 3
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M15.6,38.1c-1.2-0.8-2.1-2.1-2.6-3.7c-0.1-0.8,0-1.6,0.3-2.4l0.3-0.7c0.7-1.2,1.6-1.9,2.9-2.3c1.3-0.3,2.5-0.2,3.7,0.5s1.9,1.6,2.3,2.9s0.2,2.5-0.5,3.7c-0.4,0.6-0.8,1.2-1.4,1.6c-0.5,0.3-1,0.6-1.5,0.7C17.8,38.7,16.6,38.6,15.6,38.1 M6.2,57h0.1c1.4-0.6,2.7-0.6,4-0.1l0.1,0.1c0.6,0.5,1.1,1.1,1.3,1.9c0.1,0.3,0.1,0.5,0.1,0.8c-3.2-0.9-5.4-0.5-6.7,1.3L5,60.7c-0.3-0.9-0.2-1.8,0.3-2.6C5.6,57.6,5.9,57.3,6.2,57'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M6.2,57v-0.8v-0.9l0,0c0.1-4.3,0.9-8.5,2.4-12.5c0.5-1.2,1-2.4,1.5-3.6l1.2-2.3l0.5-0.8l0.2-0.4l0,0l0.8-1.3c0.5,1.6,1.4,2.8,2.6,3.7L15,38.9l-0.1,0.2l-0.1,0.1c-0.6,1.1-1.2,2.3-1.7,3.5c-1.6,3.9-2.6,8-2.7,12.2v0.7V56v0.3V57l-0.1-0.1C9.1,56.4,7.7,56.4,6.2,57L6.2,57M5.1,60.9c1.3-1.8,3.5-2.2,6.7-1.3l0.2,0.1c2.3,0.7,3.6,2.2,4.1,4.6c0.1,0.6,0.2,1.2,0.2,1.8c0,0.5-0.2,0.8-0.5,1.2c-0.3,0.3-0.7,0.5-1.2,0.5s-0.9-0.1-1.2-0.5c-0.3-0.3-0.5-0.7-0.5-1.2c0-0.7-0.1-1.4-0.4-1.9c-0.2-0.4-0.4-0.7-0.8-0.9l-0.1,0.3l-0.1,0.3l-0.2,0.4c-0.8,1.8-0.7,3.7,0.2,5.5c0.3,0.5,0.3,1,0.1,1.6c-0.2,0.5-0.5,1-1,1.2c-0.5,0.3-1,0.3-1.6,0.1c-0.5-0.2-1-0.5-1.2-1v-0.1c-0.5,0.2-1,0.2-1.5,0.1c-0.6-0.2-1-0.5-1.2-1C4,68.6,3.7,66.5,4,64.3c0.1-0.8,0.3-1.6,0.6-2.4l0,0L5.1,60.9'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M58.3,56.9L58.3,56.9c-1.5-0.7-2.8-0.7-4.1-0.2l-0.1,0.1v-0.7v-0.3v-0.4v-0.7c-0.2-4.3-1.1-8.3-2.7-12.2c-0.5-1.2-1.1-2.4-1.7-3.5h-0.1l-0.1-0.2L49,37.9c1.2-0.8,2.1-2.1,2.6-3.7l0.8,1.3l0,0l0.2,0.4l0.5,0.8l1.2,2.3c0.6,1.2,1.1,2.4,1.5,3.6c1.5,4,2.3,8.2,2.4,12.5l0,0V56L58.3,56.9 M59.4,60.8l0.5,1l0,0c0.3,0.8,0.5,1.6,0.6,2.4c0.3,2.1,0,4.2-1.1,6.3c-0.3,0.5-0.7,0.8-1.2,1s-1,0.1-1.5-0.1v0.1c-0.3,0.5-0.7,0.9-1.2,1c-0.5,0.2-1.1,0.1-1.6-0.1c-0.5-0.3-0.9-0.7-1-1.2c-0.2-0.5-0.1-1.1,0.1-1.6c0.9-1.8,1-3.7,0.2-5.5L53,63.8l-0.1-0.3l-0.1-0.3c-0.3,0.3-0.6,0.6-0.8,0.9c-0.2,0.5-0.4,1.1-0.4,1.9c0,0.5-0.2,0.8-0.5,1.2c-0.3,0.3-0.7,0.5-1.2,0.5s-0.8-0.2-1.2-0.5c-0.3-0.3-0.5-0.7-0.5-1.2c0-0.6,0.1-1.3,0.2-1.8c0.5-2.3,1.8-3.8,4.1-4.6l0.2-0.1C55.9,58.6,58.2,59,59.4,60.8'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M49,37.9c-1.1,0.6-2.2,0.7-3.4,0.3c-0.6-0.2-1.1-0.4-1.5-0.7c-0.6-0.4-1-0.9-1.4-1.6c-0.7-1.2-0.8-2.4-0.5-3.7s1.1-2.3,2.3-2.9c1.2-0.7,2.4-0.8,3.7-0.5c1.3,0.4,2.3,1.1,2.9,2.3l0.3,0.7c0.3,0.8,0.4,1.6,0.3,2.4C51.1,35.9,50.2,37.1,49,37.9 M58.3,56.9c0.3,0.3,0.6,0.6,0.9,1c0.5,0.8,0.6,1.7,0.3,2.6l-0.1,0.2c-1.3-1.8-3.5-2.2-6.7-1.3c0-0.3,0-0.5,0.1-0.8c0.2-0.8,0.6-1.4,1.3-1.9l0.1-0.1c1.2-0.5,2.6-0.5,4,0.1L58.3,56.9'/>"
End Select
'ears
Select Case earstate
Case 1 To 5
i$ = i$ + "<path fill='#62BE74' stroke='#62BE74' stroke-width='0.25' stroke-miterlimit='10' d='M24.8,22.9L24.8,22.9l0.1-0.1c0-0.1,0.1-0.1,0-0.2c0-0.1,0-0.1-0.1-0.2c-2.5-1.8-6.2-2.8-11.1-3.1h-0.3l-0.2,0.1l-0.1,0.2V20C18.1,20.4,22,21.3,24.8,22.9'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M16.4,22.4c-0.2,1.5,0.7,2.6,2.7,3.3h0.3l0.3-0.1c1.1-0.5,1.9-1,2.6-1.8c0.1-0.1,0.1-0.1,0.1-0.2s0-0.1-0.1-0.2c-1.2-0.9-2.9-1.4-5.3-1.5h-0.3c-0.1,0-0.1,0-0.2,0.1L16.4,22.4 M13,20.1c5.1,0.3,9,1.2,11.7,2.8c-1.4,1.5-3.1,2.8-5.2,3.8c-0.1,0-0.2,0.1-0.3,0.1c-0.1,0-0.2,0-0.3-0.1c-3.7-1.3-5.6-3.3-5.8-5.7L13,20.1'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M16.4,22.4c-0.2,1.5,0.7,2.6,2.7,3.3h0.3l0.3-0.1c1.1-0.5,1.9-1,2.6-1.8c0.1-0.1,0.1-0.1,0.1-0.2s0-0.1-0.1-0.2c-1.2-0.9-2.9-1.4-5.3-1.5h-0.3c-0.1,0-0.1,0-0.2,0.1L16.4,22.4'/>"
i$ = i$ + "<path fill='#62BE74' stroke='#62BE74' stroke-width='0.25' stroke-miterlimit='10' d='M39.6,22.9L39.6,22.9l-0.1-0.1 c0-0.1-0.1-0.1,0-0.2c0-0.1,0-0.1,0.1-0.2c2.5-1.8,6.2-2.8,11.1-3.1H51l0.2,0.1l0.1,0.2V20C46.3,20.4,42.4,21.3,39.6,22.9'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M47.9,22.4l-0.1-0.1c-0.1,0-0.1-0.1-0.2-0.1h-0.3c-2.3,0.1-4.1,0.6-5.3,1.5c-0.1,0-0.1,0.1-0.1,0.2s0,0.1,0.1,0.2c0.7,0.7,1.6,1.3,2.6,1.8l0.3,0.1h0.3C47.2,25,48.1,23.9,47.9,22.4 M51.3,20.1V21c-0.2,2.5-2.2,4.4-5.8,5.7c-0.1,0-0.2,0.1-0.3,0.1s-0.3,0-0.3-0.1c-2.1-1-3.8-2.2-5.2-3.8C42.4,21.3,46.3,20.4,51.3,20.1'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M47.9,22.5c0.2,1.5-0.7,2.6-2.7,3.3h-0.3l-0.3-0.1c-1.1-0.5-1.9-1-2.6-1.8c-0.1-0.1-0.1-0.1-0.1-0.2s0-0.1,0.1-0.2c1.2-0.9,2.9-1.4,5.3-1.5h0.3c0.1,0,0.1,0,0.2,0.1L47.9,22.5'/>"
Case 6 To 10
i$ = i$ + "<path fill='#62BE74' stroke='#62BE74' stroke-width='0.25' stroke-miterlimit='10' d='M25.7,24.7L25.7,24.7l0.1-0.1c0-0.1,0.1-0.1,0.1-0.2c0-0.1,0-0.1,0-0.2c-1.9-2.4-5.2-4.4-9.8-6.1l-0.3-0.1l-0.2,0l-0.2,0.2l-0.1,0.4C19.9,20.5,23.4,22.4,25.7,24.7'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M17.7,21.9c-0.6,1.4-0.1,2.7,1.7,3.9l0.3,0.1l0.3,0c1.2-0.2,2.1-0.4,3-1c0.1-0.1,0.1-0.1,0.2-0.2c0-0.1,0-0.1,0-0.2c-0.9-1.2-2.4-2.2-4.7-2.9l-0.3-0.1c-0.1,0-0.1,0-0.2,0L17.7,21.9 M15.1,18.7c4.8,1.7,8.3,3.7,10.4,6c-1.8,1-3.8,1.8-6.1,2.2c-0.1,0-0.2,0-0.3,0c-0.1,0-0.2-0.1-0.3-0.2c-3.2-2.3-4.5-4.7-4-7.1L15.1,18.7'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M17.7,21.9c-0.6,1.4-0.1,2.7,1.7,3.9l0.3,0.1l0.3,0c1.2-0.2,2.1-0.4,3-1c0.1-0.1,0.1-0.1,0.2-0.2c0-0.1,0-0.1,0-0.2c-0.9-1.2-2.4-2.2-4.7-2.9l-0.3-0.1c-0.1,0-0.1,0-0.2,0L17.7,21.9'/>"
i$ = i$ + "<path fill='#62BE74' stroke='#62BE74' stroke-width='0.25' stroke-miterlimit='10' d='M40.3,21.5L40.3,21.5l-0.1-0.1c0-0.1-0.1-0.1,0.1-0.2c0-0.1,0-0.1,0.2-0.2c3-0.8,6.8-0.4,11.5,1.1l0.3,0.1l0.2,0.2l0,0.2L52.3,23C47.4,21.6,43.5,21,40.3,21.5'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M48.2,24l-0.1-0.1c-0.1,0-0.1-0.1-0.2-0.2l-0.3-0.1c-2.2-0.7-4-0.9-5.5-0.5c-0.1,0-0.1,0.1-0.2,0.2c0,0.1,0,0.1,0,0.2c0.4,0.9,1,1.8,1.8,2.6l0.2,0.2l0.3,0.1C46.6,26.2,47.9,25.5,48.2,24 M52.2,23.1L51.9,24c-1.1,2.3-3.6,3.3-7.5,3.2c-0.1,0-0.2,0-0.3,0c-0.1,0-0.3-0.1-0.2-0.2c-1.6-1.7-2.8-3.4-3.5-5.4C43.5,21,47.4,21.6,52.2,23.1'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M48.2,24.2c-0.4,1.5-1.6,2.2-3.7,2.1l-0.3-0.1L44,26c-0.8-0.9-1.4-1.6-1.8-2.6c-0.1-0.1-0.1-0.1,0-0.2c0-0.1,0-0.1,0.2-0.2c1.4-0.4,3.2-0.3,5.5,0.5l0.3,0.1c0.1,0,0.1,0,0.2,0.2L48.2,24.2'/>"
Case 11 To 15
i$ = i$ + "<path fill='#62BE74' stroke='#62BE74' stroke-width='0.25' stroke-miterlimit='10' d='M23.6,21.4L23.6,21.4l0-0.1c0-0.1,0-0.1-0.1-0.2c0-0.1,0-0.1-0.2-0.1c-3-0.5-6.8,0.4-11.3,2.3l-0.3,0.1l-0.1,0.2l0,0.2l0.2,0.4C16.5,22.2,20.3,21.2,23.6,21.4'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M15.9,24.8c0.5,1.4,1.8,2,3.9,1.7l0.3-0.1l0.2-0.2c0.7-0.9,1.2-1.8,1.5-2.8c0-0.1,0-0.1,0-0.2c0-0.1,0-0.1-0.2-0.1c-1.5-0.2-3.2,0.1-5.4,1.1l-0.3,0.1c-0.1,0-0.1,0-0.1,0.2L15.9,24.8 M11.8,24.3c4.7-2.1,8.5-3.1,11.7-2.9c-0.6,2-1.5,3.9-2.9,5.8c-0.1,0-0.1,0.2-0.2,0.2c-0.1,0-0.2,0.1-0.3,0c-3.9,0.5-6.5-0.4-7.8-2.4L11.8,24.3'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M15.9,24.8c0.5,1.4,1.8,2,3.9,1.7l0.3-0.1l0.2-0.2c0.7-0.9,1.2-1.8,1.5-2.8c0-0.1,0-0.1,0-0.2c0-0.1,0-0.1-0.2-0.1c-1.5-0.2-3.2,0.1-5.4,1.1l-0.3,0.1c-0.1,0-0.1,0-0.1,0.2L15.9,24.8'/>"
i$ = i$ + "<path display='inline' fill='#62BE74' stroke='#62BE74' stroke-width='0.25' stroke-miterlimit='10' d='M38.4,26L38.4,26l-0.1,0c0-0.1-0.1,0-0.1-0.2c0-0.1,0-0.1,0-0.2c1.4-2.8,4.2-5.4,8.4-7.9l0.3-0.1l0.2,0l0.2,0.1l0.2,0.4C43.2,20.6,40.2,23.3,38.4,26'/>"
i$ = i$ + "<path display='inline' fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M45.6,21.7l-0.1,0c-0.1,0-0.1,0-0.2,0l-0.3,0.1c-2,1.2-3.4,2.4-4,3.8c-0.1,0,0,0.1,0,0.2c0,0.1,0,0.1,0.2,0.1c0.9,0.3,2,0.4,3.1,0.4l0.3-0.1l0.3-0.1C46.1,24.3,46.4,22.9,45.6,21.7 M47.5,18.1l0.4,0.8c1,2.3,0.1,4.9-2.5,7.7c-0.1,0-0.1,0.2-0.2,0.2c-0.1,0-0.3,0.1-0.3,0.1c-2.3,0.1-4.4-0.2-6.4-0.9C40.2,23.3,43.2,20.6,47.5,18.1'/>"
i$ = i$ + "<path display='inline' fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M45.6,21.8c0.9,1.2,0.6,2.6-0.9,4.2l-0.3,0.1l-0.3,0.1c-1.2,0.1-2.1,0-3.1-0.4c-0.1,0-0.1,0-0.2-0.1c0-0.1,0-0.1,0-0.2c0.6-1.4,1.9-2.6,4-3.8l0.3-0.1c0.1,0,0.1,0,0.2,0L45.6,21.8'/>"
End Select
'i$ = i$ + "<g id='LEGS'>"
Select Case legstate
Case 1
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M21.6,55.5c-1.2,0-2.2-0.5-3-1.3L18,53.4c-0.5-0.7-0.7-1.5-0.7-2.4c0-1.2,0.4-2.3,1.3-3.2s1.9-1.3,3.1-1.3c0.7,0,1.4,0.1,2,0.4c0.4,0.2,0.8,0.5,1.2,0.8c0.7,0.7,1.1,1.4,1.2,2.3c0,0.3,0.1,0.6,0.1,0.8c0,1.2-0.4,2.3-1.3,3.1c-0.9,0.9-1.9,1.3-3.2,1.3h-0.1 M19.4,84.4L19,82.9c2.3,0.1,3.7,1.1,4.3,3C22.2,85.1,20.9,84.6,19.4,84.4'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M21.6,55.5c-1.2,0-2.2-0.5-3-1.3L18,53.4c-0.3,0.7-0.5,1.4-0.7,2.1C16,60.6,16.5,74.1,19,82.9c2.3,0.1,3.7,1.1,4.3,3c-1.2-0.8-2.5-1.3-3.9-1.4l-1.3-0.1c-2,0-3.7,0.7-5.1,2.1s-2.1,3-2.1,4.9v0.1c0,0.8,0.7,1.6,2.1,2.2s3.1,0.9,5.1,0.9s3.7-0.3,5.1-0.9s2.1-1.3,2.1-2.2v-0.1c0-0.8-0.2-1.6-0.4-2.4l-0.1-0.3c-4-11.6-5.2-26.6-3.6-32.2L21.6,55.5'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M41.5,55.5h-0.2c-1.2,0-2.3-0.4-3.2-1.3c-0.9-0.9-1.3-1.9-1.3-3.1c0-0.3,0-0.6,0.1-0.8c0.2-0.9,0.6-1.7,1.2-2.3c0.4-0.4,0.8-0.6,1.2-0.8c0.6-0.3,1.3-0.4,2-0.4c1.2,0,2.3,0.4,3.1,1.3c0.9,0.9,1.3,1.9,1.3,3.2c0,0.9-0.2,1.7-0.7,2.4l-0.6,0.8C43.6,55,42.6,55.4,41.5,55.5 M43.7,78c-1.4,0.2-2.7,0.7-3.9,1.4c0.6-1.9,2-2.9,4.3-3L43.7,78'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M41.5,55.5c1.2,0,2.2-0.5,3-1.3l0.6-0.8c0.3,0.7,0.5,1.4,0.7,2.1c1.3,5.1,0.8,12.1-1.7,20.9c-2.3,0.1-3.7,1.1-4.3,3c1.2-0.8,2.5-1.3,3.9-1.4l1.3-0.1c2,0,3.7,0.7,5.1,2.1c1.4,1.4,2.1,3,2.1,4.9V85c0,0.8-0.7,1.6-2.1,2.2c-1.4,0.6-3.1,0.9-5.1,0.9s-3.7-0.3-5.1-0.9c-1.4-0.6-2.1-1.3-2.1-2.2v-0.1c0-0.8,0.2-1.6,0.4-2.4l0.1-0.3c4-11.6,5.2-20.2,3.6-25.8L41.5,55.5'/>"
Case 2
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M41.9,56h-0.2c-1.2,0-2.3-0.4-3.2-1.3c-0.9-0.9-1.3-1.9-1.3-3.1c0-0.3,0-0.6,0.1-0.8c0.2-0.9,0.6-1.7,1.2-2.3c0.4-0.4,0.8-0.6,1.2-0.8c0.6-0.3,1.3-0.4,2-0.4c1.2,0,2.3,0.4,3.1,1.3c0.9,0.9,1.3,1.9,1.3,3.2c0,0.9-0.2,1.7-0.7,2.4L44.8,55C44,55.5,43.1,55.9,41.9,56 M44.1,84.9c-1.4,0.2-2.7,0.7-3.9,1.4c0.6-1.9,2-2.9,4.3-3L44.1,84.9'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M41.9,56c1.2,0,2.2-0.5,3-1.3l0.6-0.8c0.3,0.7,0.5,1.4,0.7,2.1c1.3,5.1,0.8,18.5-1.7,27.4c-2.3,0.1-3.7,1.1-4.3,3c1.2-0.8,2.5-1.3,3.9-1.4l1.3-0.1c2,0,3.7,0.7,5.1,2.1c1.4,1.4,2.1,3,2.1,4.9V92c0,0.8-0.7,1.6-2.1,2.2C49,94.7,47.3,95,45.3,95s-3.7-0.3-5.1-0.9c-1.4-0.6-2.1-1.3-2.1-2.2v-0.1c0-0.8,0.2-1.6,0.4-2.4l0.1-0.3c4-11.6,5.2-26.6,3.6-32.2L41.9,56'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M22.1,56c-1.2,0-2.2-0.5-3-1.3l-0.6-0.8c-0.5-0.7-0.7-1.5-0.7-2.4c0-1.2,0.4-2.3,1.3-3.2S21,47,22.2,47c0.7,0,1.4,0.1,2,0.4c0.4,0.2,0.8,0.5,1.2,0.8c0.7,0.7,1.1,1.4,1.2,2.3c0,0.3,0.1,0.6,0.1,0.8c0,1.2-0.4,2.3-1.3,3.1c-0.9,0.9-1.9,1.3-3.2,1.3h-0.1 M19.8,78.5L19.4,77c2.3,0.1,3.7,1.1,4.3,3C22.6,79.2,21.3,78.7,19.8,78.5'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M22.1,56c-1.2,0-2.2-0.5-3-1.3l-0.6-0.8c-0.3,0.7-0.5,1.4-0.7,2.1c-1.4,5.2-0.8,12.1,1.6,21c2.3,0.1,3.7,1.1,4.3,3c-1.2-0.8-2.5-1.3-3.9-1.4l-1.3-0.1c-2,0-3.7,0.7-5.1,2.1s-2.1,3-2.1,4.9v0.1c0,0.8,0.7,1.6,2.1,2.2s3.1,0.9,5.1,0.9s3.7-0.3,5.1-0.9s2.1-1.3,2.1-2.2v-0.1c0-0.8-0.2-1.6-0.4-2.4l-0.1-0.3c-4-11.6-5.2-20.2-3.6-25.8L22.1,56'/>"
Case 3
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M41.9,55.5h-0.2c-1.2,0-2.3-0.4-3.2-1.3c-0.9-0.9-1.3-1.9-1.3-3.1c0-0.3,0-0.6,0.1-0.8c0.2-0.9,0.6-1.7,1.2-2.3c0.4-0.4,0.8-0.6,1.2-0.8c0.6-0.3,1.3-0.4,2-0.4c1.2,0,2.3,0.4,3.1,1.3c0.9,0.9,1.3,1.9,1.3,3.2c0,0.9-0.2,1.7-0.7,2.4l-0.6,0.8C44.1,55,43.1,55.4,41.9,55.5 M44.1,84.4c-1.4,0.2-2.7,0.7-3.9,1.4c0.6-1.9,2-2.9,4.3-3L44.1,84.4'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M41.9,55.5c1.2,0,2.2-0.5,3-1.3l0.6-0.8c0.3,0.7,0.5,1.4,0.7,2.1c1.3,5.1,0.8,18.5-1.7,27.4c-2.3,0.1-3.7,1.1-4.3,3c1.2-0.8,2.5-1.3,3.9-1.4l1.3-0.1c2,0,3.7,0.7,5.1,2.1c1.4,1.4,2.1,3,2.1,4.9v0.1c0,0.8-0.7,1.6-2.1,2.2c-1.4,0.6-3.1,0.9-5.1,0.9s-3.7-0.3-5.1-0.9c-1.4-0.6-2.1-1.3-2.1-2.2v-0.1c0-0.8,0.2-1.6,0.4-2.4l0.1-0.3c4-11.6,5.2-26.6,3.6-32.2L41.9,55.5'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M22.1,55.5c-1.2,0-2.2-0.5-3-1.3l-0.6-0.8c-0.5-0.7-0.7-1.5-0.7-2.4c0-1.2,0.4-2.3,1.3-3.2s1.9-1.3,3.1-1.3c0.7,0,1.4,0.1,2,0.4c0.4,0.2,0.8,0.5,1.2,0.8c0.7,0.7,1.1,1.4,1.2,2.3c0,0.3,0.1,0.6,0.1,0.8c0,1.2-0.4,2.3-1.3,3.1c-0.9,0.9-1.9,1.3-3.2,1.3h-0.1 M19.9,84.4l-0.4-1.5c2.3,0.1,3.7,1.1,4.3,3C22.6,85.1,21.3,84.6,19.9,84.4'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M22.1,55.5c-1.2,0-2.2-0.5-3-1.3l-0.6-0.8c-0.3,0.7-0.5,1.4-0.7,2.1C16.5,60.6,17,74,19.5,82.9c2.3,0.1,3.7,1.1,4.3,3c-1.2-0.8-2.5-1.3-3.9-1.4l-1.3-0.1c-2,0-3.7,0.7-5.1,2.1s-2.1,3-2.1,4.9v0.1c0,0.8,0.7,1.6,2.1,2.2s3.1,0.9,5.1,0.9s3.7-0.3,5.1-0.9s2.1-1.3,2.1-2.2v-0.1c0-0.8-0.2-1.6-0.4-2.4l-0.1-0.3c-4-11.6-5.2-26.6-3.6-32.2L22.1,55.5'/>"
End Select
i$ = i$ + "<path fill='#62BE74' stroke='#62BE74' stroke-width='0.25' stroke-miterlimit='10' d='M46.7,38.3c-0.1-2-0.3-4.1-0.7-6.3c-0.7-3.5-2.2-6.3-4.6-8.4c-2.5-2.2-5.5-3.2-9-3.2H32h-0.3c-3.5,0-6.5,1.1-9,3.2c-2.4,2.1-4,4.9-4.6,8.4c-0.4,2.2-0.7,4.3-0.7,6.3v-0.7c0-2.4,0.2-5,0.7-7.7c0.7-3.5,2.2-6.3,4.6-8.4c2.5-2.2,5.5-3.2,9-3.2H32h0.3c3.5,0,6.5,1.1,9,3.2c2.4,2.1,4,4.9,4.6,8.4c0.5,2.7,0.8,5.3,0.7,7.7L46.7,38.3'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M46.7,38.3c-0.1,2.3-0.4,4.4-0.9,6.4c-0.5,1.7-1.1,3.3-2,4.8c-1.3,2.4-3,4.6-5.1,6.5c-1.9,1.7-4,2.6-6.4,2.6H32h-0.3c-2.4,0-4.5-0.9-6.4-2.6c-2.1-1.9-3.8-4.1-5.1-6.5c-0.8-1.5-1.5-3.1-1.9-4.8c-0.6-2-0.9-4.1-0.9-6.4c0.1-2,0.3-4.1,0.7-6.3c0.7-3.5,2.2-6.3,4.6-8.4c2.5-2.2,5.5-3.2,9-3.2H32h0.3c3.5,0,6.5,1.1,9,3.2c2.4,2.1,4,4.9,4.6,8.4C46.4,34.2,46.6,36.3,46.7,38.3'/>"
'i$ = i$ + "<g id='NOSE'>" 'jeepers this is inefficient... definetely would need a re-edit if used in a lrger progrM
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M35,34.6L35,34.6v0.2v0.1"
i$ = i$ + "c0,0.1,0,0.3-0.1,0.4v0.1v0.1l0,0c-0.3,0.8-0.8,1.5-1.3,1.9c-0.3,0.2-0.6,0.4-0.9,0.5C32.5,38,32.2,38,32,38s-0.4,0-0.6-0.1"
i$ = i$ + "c-0.3-0.1-0.6-0.2-0.9-0.5l0,0c-0.6-0.4-1-1.1-1.3-1.9l0,0v-0.1v-0.1C29,35.2,29,35.1,29,34.9v-0.1v-0.1v-0.1"
i$ = i$ + "c0,0.1,0,0.2,0.1,0.4v0.1v0.1l0,0c0.3,0.8,0.8,1.5,1.3,1.9l0,0c0.3,0.2,0.6,0.4,0.9,0.5c0.2,0.1,0.4,0.1,0.6,0.1"
i$ = i$ + "c0.2,0,0.4,0,0.6-0.1c0.3-0.1,0.6-0.2,0.9-0.5c0.6-0.4,1-1.1,1.3-1.9l0,0v-0.1V35C35,34.8,35,34.7,35,34.6'/>"
i$ = i$ + "<path fill='#342A1E' stroke='#342A1E' stroke-width='0.25' stroke-miterlimit='10' d='M35,34.6c0,0.1,0,0.2-0.1,0.3V35v0.1l0,0"
i$ = i$ + "c-0.3,0.8-0.8,1.5-1.3,1.9c-0.3,0.2-0.6,0.4-0.9,0.5l-0.7,0l-0.6-0.1c-0.3-0.1-0.6-0.2-0.9-0.5l0,0c-0.6-0.4-1-1.1-1.3-1.9l0,0"
i$ = i$ + "v-0.1v-0.1c0-0.1-0.1-0.3-0.1-0.4c0-0.2,0-0.4,0.1-0.6l0.1-0.1l0.1-0.1C30,33.2,30.9,33,32,33s2,0.2,2.6,0.6l0,0l0.1,0.1l0.1,0.1"
i$ = i$ + "C35,34.2,35,34.4,35,34.6 M33.5,36.2c0.2-0.2,0.3-0.4,0.3-0.6c0.1-0.2,0-0.3-0.1-0.5S33.4,35,33.2,35s-0.4,0.2-0.6,0.3"
i$ = i$ + "c-0.2,0.2-0.3,0.4-0.3,0.6c0,0.2,0,0.4,0.1,0.5s0.3,0.1,0.5,0.1C33.2,36.5,33.4,36.4,33.5,36.2 M30.5,36.2"
i$ = i$ + "c0.2,0.2,0.4,0.3,0.6,0.3c0.2,0.1,0.3,0,0.5-0.1c0.1-0.1,0.1-0.3,0.1-0.5s-0.2-0.4-0.3-0.6C31.2,35.1,31,35,30.8,35"
i$ = i$ + "s-0.4,0-0.5,0.1s-0.1,0.3-0.1,0.5C30.2,35.9,30.3,36.1,30.5,36.2'/>"
i$ = i$ + "<path fill='#25201A' stroke='#25201A' stroke-width='0.25' stroke-miterlimit='10' d='M30.5,36.2c-0.2-0.2-0.3-0.4-0.3-0.6"
i$ = i$ + "c-0.1-0.2,0-0.3,0.1-0.5c0.1-0.1,0.3-0.1,0.5-0.1s0.4,0.2,0.6,0.3c0.2,0.2,0.3,0.4,0.3,0.6c0,0.2,0,0.4-0.1,0.5s-0.3,0.1-0.5,0.1"
i$ = i$ + "S30.7,36.4,30.5,36.2 M33.5,36.2c-0.2,0.2-0.4,0.3-0.6,0.3c-0.2,0.1-0.3,0-0.5-0.1c-0.1-0.1-0.1-0.3-0.1-0.5s0.2-0.4,0.3-0.6"
i$ = i$ + "c0.2-0.2,0.4-0.3,0.6-0.3c0.2,0,0.4,0,0.5,0.1s0.1,0.3,0.1,0.5C33.8,35.9,33.7,36.1,33.5,36.2'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M29.1,34c0.1-0.2,0.3-0.4,0.5-0.6"
i$ = i$ + "c0.6-0.4,1.4-0.7,2.3-0.7c1,0,1.8,0.2,2.3,0.7l0,0c0.2,0.2,0.4,0.4,0.5,0.6l-0.1-0.1l-0.1-0.1l0,0c-0.6-0.4-1.5-0.6-2.6-0.6"
i$ = i$ + "s-2,0.2-2.6,0.6l-0.1,0.1L29.1,34 M32.7,37.5c-0.2,0.1-0.4,0.1-0.6,0.1c-0.2,0-0.4,0-0.6-0.1l0.6,0.1L32.7,37.5'/>"
i$ = i$ + "<text transform='matrix(1 0 0 1 3.0571 10)' font-family=''MyriadPro-Regular'' font-size='8px'>Nose</text>"
'i$ = i$ + "<g id='EYES'>"
i$ = i$ + "<path fill='#EF4864' stroke='#EF4864' stroke-width='0.25' stroke-miterlimit='10' d='M22.9,29.2c0.1-0.2,0.3-0.5,0.6-0.7c0.1-0.1,0.2-0.2,0.4-0.3c0.2-0.1,0.4-0.2,0.6-0.3c0.6-0.2,1.3-0.3,2-0.3c0.8,0,1.5,0.1,2.1,0.4c0.2,0.1,0.4,0.2,0.5,0.3c0.5,0.3,0.8,0.6,1,1v0.1l0,0v0.1v0.2c-0.1,0.8-0.4,1.6-1,2.2c-0.4,0.4-0.9,0.7-1.5,0.9c-0.3,0.1-0.7,0.1-1,0.1s-0.7,0-1-0.1c-0.6-0.2-1.1-0.5-1.5-0.9c-0.2-0.2-0.3-0.4-0.5-0.6c-0.3-0.5-0.5-1-0.6-1.6v-0.2v-0.1l0,0L22.9,29.2 M27,28.5c-0.1-0.2-0.3-0.3-0.4-0.4h-0.1h-0.1c-0.1,0.1-0.3,0.2-0.4,0.4c-0.3,0.5-0.5,1-0.5,1.6s0.2,1.2,0.5,1.6c0.1,0.2,0.3,0.3,0.4,0.4h0.1h0.1c0.1-0.1,0.3-0.3,0.4-0.4c0.3-0.4,0.5-1,0.5-1.6C27.5,29.5,27.3,29,27,28.5'/>"
i$ = i$ + "<path fill='#342A1E' stroke='#342A1E' stroke-width='0.25' stroke-miterlimit='10' d='M27,28.5c0.3,0.5,0.5,1,0.5,1.6s-0.2,1.2-0.5,1.6c-0.1,0.2-0.3,0.3-0.4,0.4h-0.1h-0.1c-0.1-0.1-0.3-0.3-0.4-0.4c-0.3-0.4-0.5-1-0.5-1.6s0.2-1.2,0.5-1.6c0.1-0.2,0.3-0.3,0.4-0.4h0.1h0.1C26.7,28.2,26.8,28.4,27,28.5 M25.9,29.6L25.9,29.6L25.9,29.6c0.1,0.2,0.1,0.2,0.2,0.3l0,0l0.2,0.1h0.1h0.1l0,0l0.2-0.1c0.1-0.1,0.2-0.1,0.2-0.2v-0.1l0,0c0-0.3-0.1-0.6-0.3-0.8l-0.2-0.2l0,0h-0.1c-0.1,0-0.1,0-0.1,0L26,28.8C26,29.1,25.9,29.3,25.9,29.6'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M25.9,29.6c0-0.3,0.1-0.6,0.3-0.8l0.2-0.2h0.1c0.1,0,0.1,0,0.1,0l0,0l0.2,0.2c0.2,0.2,0.3,0.5,0.3,0.8l0,0v0.1c0,0.1-0.1,0.1-0.2,0.2L26.6,30l0,0h-0.1h-0.1l-0.2-0.1l0,0C26,29.9,25.9,29.8,25.9,29.6L25.9,29.6L25.9,29.6'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M30,29.7L30,29.7v0.2l0,0V30c0,0.9-0.4,1.8-1,2.4c-0.4,0.4-0.9,0.7-1.5,0.9c-0.3,0.1-0.7,0.1-1,0.1s-0.7,0-1-0.1c-0.6-0.2-1.1-0.5-1.5-0.9"
i$ = i$ + "c-0.2-0.2-0.3-0.4-0.5-0.6c-0.4-0.5-0.6-1.2-0.6-1.9v-0.1l0,0v-0.2v-0.1c0,0.6,0.2,1.1,0.6,1.6c0.1,0.2,0.3,0.4,0.5,0.6"
i$ = i$ + "c0.4,0.5,1,0.8,1.5,0.9c0.3,0.1,0.6,0.1,1,0.1s0.7,0,1-0.1c0.6-0.2,1-0.5,1.5-0.9C29.6,31.2,29.9,30.5,30,29.7'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M22.9,29.2c0-0.4,0.2-0.8,0.6-1.1"
i$ = i$ + "c0.1-0.1,0.3-0.2,0.5-0.4c0.7-0.5,1.5-0.7,2.5-0.7s1.8,0.2,2.5,0.7c0.6,0.4,1,0.9,1,1.5c-0.1-0.4-0.5-0.7-1-1"
i$ = i$ + "c-0.2-0.1-0.3-0.2-0.5-0.3c-0.6-0.2-1.3-0.4-2.1-0.4c-0.8,0-1.4,0.1-2,0.3c-0.2,0.1-0.4,0.2-0.6,0.3c-0.1,0.1-0.3,0.2-0.4,0.3"
i$ = i$ + "C23.2,28.7,23,28.9,22.9,29.2'/>"
i$ = i$ + "<path fill='#EF4864' stroke='#EF4864' stroke-width='0.25' stroke-miterlimit='10' d='M33.8,29.2c0.1-0.2,0.3-0.5,0.6-0.7c0.1-0.1,0.2-0.2,0.4-0.3c0.2-0.1,0.4-0.2,0.6-0.3c0.6-0.2,1.3-0.3,2-0.3c0.8,0,1.5,0.1,2.1,0.4c0.2,0.1,0.4,0.2,0.5,0.3c0.5,0.3,0.8,0.6,1,1v0.1l0,0v0.1v0.2c-0.1,0.8-0.4,1.6-1,2.2c-0.4,0.4-0.9,0.7-1.5,0.9c-0.3,0.1-0.7,0.1-1,0.1s-0.7,0-1-0.1c-0.6-0.2-1.1-0.5-1.5-0.9c-0.2-0.2-0.3-0.4-0.5-0.6c-0.3-0.5-0.5-1-0.6-1.6v-0.2v-0.1l0,0L33.8,29.2 M37.8,28.5c-0.1-0.2-0.3-0.3-0.4-0.4h-0.1h-0.1c-0.1,0.1-0.3,0.2-0.4,0.4c-0.3,0.5-0.5,1-0.5,1.6s0.2,1.2,0.5,1.6c0.1,0.2,0.3,0.3,0.4,0.4h0.1h0.1c0.1-0.1,0.3-0.3,0.4-0.4c0.3-0.4,0.5-1,0.5-1.6C38.3,29.5,38.2,29,37.8,28.5'/>"
i$ = i$ + "<path fill='#342A1E' stroke='#342A1E' stroke-width='0.25' stroke-miterlimit='10' d='M37.8,28.5c0.3,0.5,0.5,1,0.5,1.6s-0.2,1.2-0.5,1.6c-0.1,0.2-0.3,0.3-0.4,0.4h-0.1h-0.1c-0.1-0.1-0.3-0.3-0.4-0.4c-0.3-0.4-0.5-1-0.5-1.6s0.2-1.2,0.5-1.6c0.1-0.2,0.3-0.3,0.4-0.4h0.1h0.1C37.6,28.2,37.7,28.4,37.8,28.5 M36.7,29.6L36.7,29.6L36.7,29.6c0.1,0.2,0.1,0.2,0.2,0.3l0,0l0.2,0.1h0.1h0.1l0,0l0.2-0.1c0.1-0.1,0.2-0.1,0.2-0.2v-0.1l0,0c0-0.3-0.1-0.6-0.3-0.8l-0.2-0.2l0,0h-0.1c-0.1,0-0.1,0-0.1,0l0,0.2C36.8,29.1,36.7,29.3,36.7,29.6'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M36.7,29.6c0-0.3,0.1-0.6,0.3-0.8l0.2-0.2h0.1c0.1,0,0.1,0,0.1,0l0,0l0.2,0.2c0.2,0.2,0.3,0.5,0.3,0.8l0,0v0.1c0,0.1-0.1,0.1-0.2,0.2L37.4,30l0,0h-0.1h-0.1L37,29.9l0,0C36.9,29.9,36.8,29.8,36.7,29.6L36.7,29.6L36.7,29.6'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M40.9,29.7L40.9,29.7v0.2l0,0V30c0,0.9-0.4,1.8-1,2.4c-0.4,0.4-0.9,0.7-1.5,0.9c-0.3,0.1-0.7,0.1-1,0.1s-0.7,0-1-0.1c-0.6-0.2-1.1-0.5-1.5-0.9c-0.2-0.2-0.3-0.4-0.5-0.6c-0.4-0.5-0.6-1.2-0.6-1.9v-0.1l0,0v-0.2v-0.1c0,0.6,0.2,1.1,0.6,1.6c0.1,0.2,0.3,0.4,0.5,0.6c0.4,0.5,1,0.8,1.5,0.9c0.3,0.1,0.6,0.1,1,0.1s0.7,0,1-0.1c0.6-0.2,1-0.5,1.5-0.9C40.4,31.2,40.8,30.5,40.9,29.7'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M33.8,29.2c0-0.4,0.2-0.8,0.6-1.1c0.1-0.1,0.3-0.2,0.5-0.4c0.7-0.5,1.5-0.7,2.5-0.7s1.8,0.2,2.5,0.7c0.6,0.4,1,0.9,1,1.5c-0.1-0.4-0.5-0.7-1-1c-0.2-0.1-0.3-0.2-0.5-0.3c-0.6-0.2-1.3-0.4-2.1-0.4s-1.4,0.1-2,0.3c-0.2,0.1-0.4,0.2-0.6,0.3c-0.1,0.1-0.3,0.2-0.4,0.3C34.1,28.7,33.9,28.9,33.8,29.2'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M30,29.7L30,29.7v0.2l0,0V30c0,0.9-0.4,1.8-1,2.4c-0.4,0.4-0.9,0.7-1.5,0.9c-0.3,0.1-0.7,0.1-1,0.1s-0.7,0-1-0.1c-0.6-0.2-1.1-0.5-1.5-0.9c-0.2-0.2-0.3-0.4-0.5-0.6c-0.4-0.5-0.6-1.2-0.6-1.9v-0.1l0,0v-0.2v-0.1C23,30.3,29.9,30.5,30,29.7'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M22.9,29.2c0-0.4,0.2-0.8,0.6-1.1c0.1-0.1,0.3-0.2,0.5-0.4c0.7-0.5,1.5-0.7,2.5-0.7s1.8,0.2,2.5,0.7c0.6,0.4,1,0.9,1,1.5c-0.1-0.4-2.7-0.5-3.5-0.5C25.8,28.7,23,28.9,22.9,29.2'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M40.9,29.7L40.9,29.7v0.2l0,0V30c0,0.9-0.4,1.8-1,2.4c-0.4,0.4-0.9,0.7-1.5,0.9c-0.3,0.1-0.7,0.1-1,0.1s-0.7,0-1-0.1c-0.6-0.2-1.1-0.5-1.5-0.9c-0.2-0.2-0.3-0.4-0.5-0.6c-0.4-0.5-0.6-1.2-0.6-1.9v-0.1l0,0v-0.2v-0.1C33.8,30.3,40.8,30.5,40.9,29.7'/>"
i$ = i$ + "<path fill='#29B464' stroke='#29B464' stroke-width='0.25' stroke-miterlimit='10' d='M33.8,29.2c0-0.4,0.2-0.8,0.6-1.1c0.1-0.1,0.3-0.2,0.5-0.4c0.7-0.5,1.5-0.7,2.5-0.7s1.8,0.2,2.5,0.7c0.6,0.4,1,0.9,1,1.5c-0.1-0.4-2.7-0.5-3.5-0.5S33.9,28.9,33.8,29.2'/>"
i$ = i$ + "<path fill='#342A1E' stroke='#342A1E' stroke-width='0.25' stroke-miterlimit='10' d='M41.1,25.1c0,0.1,0,0.1-0.1,0.2c-0.4,0.4-0.6,0.7-0.7,1.1c0,0.1-0.1,0.2-0.2,0.2c-0.1,0.1-0.2,0.1-0.3,0.1c-2.4,0-4.4,0.2-5.8,0.8h-0.3c-0.1,0-0.2,0-0.3-0.1c-0.1,0-0.1-0.1-0.2-0.1l-0.5-0.7l-0.1-0.1v-0.1c0-0.1,0-0.1,0.1-0.2c0.5-0.6,1.4-1.1,2.7-1.6c0.1,0,0.2-0.1,0.3,0c0.1,0,0.2,0.1,0.3,0.1c0.1,0.1,0.1,0.1,0.1,0.2V25c0.4-0.2,1-0.4,1.6-0.5c0.1,0,0.2,0,0.3,0s0.2,0.1,0.3,0.1c0.1,0.1,0.1,0.1,0.1,0.2V25c0.6-0.2,1.3-0.3,2.1-0.3c0.1,0,0.3,0,0.4,0.1C41,24.9,41.1,24.9,41.1,25.1L41.1,25.1'/>"
i$ = i$ + "<path fill='#342A1E' stroke='#342A1E' stroke-width='0.25' stroke-miterlimit='10' d='M22.7,25.1c0,0.1,0,0.1,0.1,0.2c0.4,0.4,0.6,0.7,0.7,1.1c0,0.1,0.1,0.2,0.2,0.2c0.1,0.1,0.2,0.1,0.3,0.1c2.4,0,4.4,0.2,5.8,0.8h0.3c0.1,0,0.2,0,0.3-0.1c0.1,0,0.1-0.1,0.2-0.1l0.5-0.7l0.1-0.1v-0.1c0-0.1,0-0.1-0.1-0.2c-0.5-0.6-1.4-1.1-2.7-1.6c-0.1,0-0.2-0.1-0.3,0c-0.1,0-0.2,0.1-0.3,0.1c-0.1,0.1-0.1,0.1-0.1,0.2V25c-0.4-0.2-1-0.4-1.6-0.5c-0.1,0-0.2,0-0.3,0c-0.1,0-0.2,0.1-0.3,0.1c-0.1,0.1-0.1,0.1-0.1,0.2V25c-0.6-0.2-1.3-0.3-2.1-0.3c-0.1,0-0.3,0-0.4,0.1S22.7,24.9,22.7,25.1L22.7,25.1'/>"
'i$ = i$ + "<g id='Antenna'>"
Select Case antennastate
Case 1
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M38.8,12.5l-0.3-0.3c-0.2-0.2-0.3-0.4-0.4-0.6c-0.1-0.3-0.2-0.5-0.2-0.8c0-0.5,0.2-1,0.6-1.4c0.4-0.4,0.8-0.6,1.4-0.6s1,0.2,1.4,0.6c0.4,0.4,0.6,0.9,0.6,1.4s-0.2,1-0.6,1.4c-0.4,0.4-0.8,0.6-1.4,0.6C39.5,12.8,39.1,12.7,38.8,12.5 M35.6,18l-0.2,1.1c0,0.1,0,0.3,0.1,0.4s0.2,0.2,0.4,0.2c0.1,0,0.3,0,0.4-0.1c0.1-0.1,0.2-0.2,0.2-0.4c0-0.3,0.1-0.7,0.2-1l0.1,0.1c0.2,0.3,0.4,0.6,0.4,0.9c0,0.4-0.1,0.7-0.4,0.9c-0.2,0.3-0.5,0.4-0.9,0.4s-0.6-0.1-0.9-0.4c-0.2-0.3-0.4-0.6-0.4-0.9c0-0.4,0.1-0.7,0.4-0.9C35.1,18.2,35.3,18.1,35.6,18'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M35.6,18c0.5-2.5,1.3-4.7,2.5-6.4c0.1,0.2,0.2,0.4,0.4,0.6l0.3,0.3c-1,1.6-1.8,3.5-2.2,5.8c-0.1,0.3-0.1,0.6-0.2,1c0,0.1-0.1,0.3-0.2,0.4c-0.1,0.1-0.3,0.1-0.4,0.1c-0.2,0-0.3-0.1-0.4-0.2c-0.1-0.1-0.1-0.3-0.1-0.4L35.6,18'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M25,12.5c-0.3,0.2-0.7,0.3-1,0.3c-0.5,0-1-0.2-1.4-0.6c-0.4-0.4-0.6-0.9-0.6-1.4s0.2-1,0.6-1.4s0.8-0.6,1.4-0.6s1,0.2,1.4,0.6c0.4,0.4,0.6,0.9,0.6,1.4c0,0.3-0.1,0.5-0.2,0.8c-0.1,0.2-0.2,0.4-0.4,0.6L25,12.5 M28.2,18c0.3,0,0.5,0.2,0.7,0.3c0.2,0.3,0.4,0.6,0.4,0.9c0,0.4-0.1,0.7-0.4,0.9c-0.2,0.3-0.5,0.4-0.9,0.4s-0.6-0.1-0.9-0.4c-0.2-0.3-0.4-0.6-0.4-0.9c0-0.4,0.1-0.7,0.4-0.9l0.1-0.1c0.1,0.3,0.1,0.6,0.2,1c0,0.1,0.1,0.3,0.2,0.4s0.3,0.1,0.4,0.1c0.2,0,0.3-0.1,0.4-0.2s0.1-0.3,0.1-0.4L28.2,18'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M28.2,18c-0.5-2.5-1.3-4.7-2.5-6.4c-0.1,0.2-0.2,0.4-0.4,0.6L25,12.5c1,1.6,1.8,3.5,2.2,5.8c0.1,0.3,0.1,0.6,0.2,1c0,0.1,0.1,0.3,0.2,0.4s0.3,0.1,0.4,0.1c0.2,0,0.3-0.1,0.4-0.2s0.1-0.3,0.1-0.4L28.2,18'/>"
Case 2
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M39.7,13.4l-0.3-0.3c-0.2-0.2-0.3-0.4-0.4-0.6c-0.1-0.3-0.2-0.5-0.2-0.8c0-0.5,0.2-1,0.6-1.4c0.4-0.4,0.8-0.6,1.4-0.6c0.5,0,1,0.2,1.4,0.6c0.4,0.4,0.6,0.9,0.6,1.4s-0.2,1-0.6,1.4c-0.4,0.4-0.8,0.6-1.4,0.6C40.4,13.7,40,13.6,39.7,13.4 M35.6,18l-0.2,1.1c0,0.1,0,0.3,0.1,0.4s0.2,0.2,0.4,0.2c0.1,0,0.3,0,0.4-0.1c0.1-0.1,0.2-0.2,0.2-0.4c0-0.3,0.1-0.7,0.2-1l0.1,0.1c0.2,0.3,0.4,0.6,0.4,0.9c0,0.4-0.1,0.7-0.4,0.9c-0.2,0.3-0.5,0.4-0.9,0.4s-0.6-0.1-0.9-0.4c-0.2-0.3-0.4-0.6-0.4-0.9c0-0.4,0.1-0.7,0.4-0.9C35.1,18.2,35.3,18.1,35.6,18'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M35.6,18c0.4-4.3,2.2-3.8,3.4-5.5c0.1,0.2,0.2,0.4,0.4,0.6l0.3,0.3c-1,1.6-2.8,1.2-3.1,4.9c-0.1,0.3-0.1,0.6-0.2,1c0,0.1-0.1,0.3-0.2,0.4c-0.1,0.1-0.3,0.1-0.4,0.1c-0.2,0-0.3-0.1-0.4-0.2c-0.1-0.1-0.1-0.3-0.1-0.4L35.6,18'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M25,12.5c-0.3,0.2-0.7,0.3-1,0.3c-0.5,0-1-0.2-1.4-0.6c-0.4-0.4-0.6-0.9-0.6-1.4s0.2-1,0.6-1.4s0.8-0.6,1.4-0.6s1,0.2,1.4,0.6c0.4,0.4,0.6,0.9,0.6,1.4c0,0.3-0.1,0.5-0.2,0.8c-0.1,0.2-0.2,0.4-0.4,0.6L25,12.5 M28.2,18c0.3,0,0.5,0.2,0.7,0.3c0.2,0.3,0.4,0.6,0.4,0.9c0,0.4-0.1,0.7-0.4,0.9c-0.2,0.3-0.5,0.4-0.9,0.4s-0.6-0.1-0.9-0.4c-0.2-0.3-0.4-0.6-0.4-0.9c0-0.4,0.1-0.7,0.4-0.9l0.1-0.1c0.1,0.3,0.1,0.6,0.2,1c0,0.1,0.1,0.3,0.2,0.4s0.3,0.1,0.4,0.1c0.2,0,0.3-0.1,0.4-0.2s0.1-0.3,0.1-0.4L28.2,18'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M28.2,18c-0.5-2.5-1.3-4.7-2.5-6.4c-0.1,0.2-0.2,0.4-0.4,0.6L25,12.5c1,1.6,1.8,3.5,2.2,5.8c0.1,0.3,0.1,0.6,0.2,1c0,0.1,0.1,0.3,0.2,0.4s0.3,0.1,0.4,0.1c0.2,0,0.3-0.1,0.4-0.2s0.1-0.3,0.1-0.4L28.2,18'/>"
Case 3
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M38.8,12.5l-0.3-0.3c-0.2-0.2-0.3-0.4-0.4-0.6c-0.1-0.3-0.2-0.5-0.2-0.8c0-0.5,0.2-1,0.6-1.4c0.4-0.4,0.8-0.6,1.4-0.6s1,0.2,1.4,0.6c0.4,0.4,0.6,0.9,0.6,1.4s-0.2,1-0.6,1.4c-0.4,0.4-0.8,0.6-1.4,0.6C39.5,12.8,39.1,12.7,38.8,12.5 M35.6,18l-0.2,1.1c0,0.1,0,0.3,0.1,0.4s0.2,0.2,0.4,0.2c0.1,0,0.3,0,0.4-0.1c0.1-0.1,0.2-0.2,0.2-0.4c0-0.3,0.1-0.7,0.2-1l0.1,0.1c0.2,0.3,0.4,0.6,0.4,0.9c0,0.4-0.1,0.7-0.4,0.9c-0.2,0.3-0.5,0.4-0.9,0.4s-0.6-0.1-0.9-0.4c-0.2-0.3-0.4-0.6-0.4-0.9c0-0.4,0.1-0.7,0.4-0.9C35.1,18.1,35.3,18,35.6,18'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M35.6,18c0.5-2.5,1.3-4.7,2.5-6.4c0.1,0.2,0.2,0.4,0.4,0.6l0.3,0.3c-1,1.6-1.8,3.5-2.2,5.8c-0.1,0.3-0.1,0.6-0.2,1c0,0.1-0.1,0.3-0.2,0.4c-0.1,0.1-0.3,0.1-0.4,0.1c-0.2,0-0.3-0.1-0.4-0.2c-0.1-0.1-0.1-0.3-0.1-0.4L35.6,18'/>"
i$ = i$ + "<path fill='#4FBA6F' stroke='#4FBA6F' stroke-width='0.25' stroke-miterlimit='10' d='M23,13.7c-0.2,0.3-0.5,0.5-0.9,0.6c-0.5,0.2-1,0.1-1.5-0.2s-0.8-0.6-1-1.2c-0.2-0.5-0.1-1,0.1-1.5c0.3-0.5,0.6-0.8,1.1-1s1-0.1,1.5,0.1c0.5,0.3,0.8,0.7,1,1.2c0.1,0.3,0.1,0.5,0.1,0.8c0,0.2-0.1,0.5-0.2,0.7L23,13.7 M27.7,18c0.3,0,0.5,0,0.7,0.1c0.3,0.2,0.5,0.4,0.6,0.8c0.1,0.3,0.1,0.7-0.1,1s-0.4,0.5-0.7,0.6c-0.3,0.1-0.7,0.1-1-0.1s-0.5-0.4-0.6-0.8c-0.1-0.3-0.1-0.7,0.1-1v-0.1c0.2,0.3,0.3,0.6,0.4,0.9c0.1,0.1,0.2,0.2,0.3,0.3c0.1,0.1,0.3,0,0.4,0c0.1-0.1,0.2-0.2,0.3-0.3c0.1-0.1,0-0.3,0-0.4L27.7,18'/>"
i$ = i$ + "<path fill='#504030' stroke='#504030' stroke-width='0.25' stroke-miterlimit='10' d='M27.7,18c-1.2-2.3-2.6-4.1-4.3-5.3c0,0.2-0.1,0.5-0.2,0.7L23,13.7c1.5,1.2,2.7,2.8,3.8,4.9c0.2,0.3,0.3,0.6,0.4,0.9c0.1,0.1,0.2,0.2,0.3,0.3c0.1,0.1,0.3,0,0.4,0c0.1-0.1,0.2-0.2,0.3-0.3c0.1-0.1,0-0.3,0-0.4L27.7,18'/>"
End Select
'i$ = i$ + "<g id='Mouth'>"
i$ = i$ + "<path fill='#FFF9AE' stroke='#FFF9AE' stroke-width='0.25' stroke-miterlimit='10' d='M35.9,39.4l1.6-1.9c0.1-0.1,0.2-0.1,0.3-0.1l0.4,0.1c0.1,0.1,0.2,0.2,0.2,0.3l0.1,3c-0.3-0.2-0.7-0.5-1.1-0.7C36.9,39.8,36.4,39.6,35.9,39.4M28.2,39.4c-0.5,0.2-1,0.4-1.5,0.6l0,0c-0.4,0.2-0.8,0.4-1.1,0.7l0.1-3c0-0.1,0.1-0.2,0.2-0.3l0.4-0.1c0.1,0,0.3,0.1,0.3,0.1L28.2,39.4'/>"
i$ = i$ + "<path fill='#342A1E' stroke='#342A1E' stroke-width='0.25' stroke-miterlimit='10' d='M35.9,39.4c0.5,0.2,1,0.4,1.5,0.6c0.4,0.2,0.8,0.4,1.1,0.7l0.5,0.4c0.2,0.2,0.3,0.4,0.3,0.7s-0.1,0.5-0.3,0.7s-0.5,0.3-0.7,0.3c-0.3,0-0.5-0.1-0.7-0.3c-0.3-0.3-0.6-0.5-1.1-0.8l0,0c-1.2-0.6-2.7-0.9-4.4-0.9s-3.2,0.3-4.4,0.9c-0.4,0.2-0.8,0.5-1,0.7s-0.5,0.3-0.7,0.3c-0.3,0-0.5-0.1-0.7-0.3S25,42,25,41.7s0.1-0.5,0.3-0.7l0.5-0.4c0.3-0.2,0.7-0.5,1.1-0.7l0,0c0.5-0.3,1-0.5,1.5-0.6c1.1-0.4,2.4-0.5,3.9-0.5C33.5,38.8,34.7,39,35.9,39.4'/>"
i$ = i$ + "</svg>"
simg = _LoadImage(i$, 32, "HQ2XA memory")
Cls
_PutImage (sx, sy), simg
_Display
Do
_Limit 60
kk$ = InKey$
Loop Until kk$ <> ""
Select Case kk$
Case "W", "w"
sy = sy - 4
earstate = earstate + 1
legstate = legstate + 1
Case "A", "a"
sx = sx - 4
earstate = earstate + 1
legstate = legstate + 1
Case "D", "d"
sx = sx + 4
earstate = earstate - 1
legstate = legstate + 1
Case "S", "s": sy = sy + 4
earstate = earstate - 1
legstate = legstate + 1
End Select
armstate = armstate + 1
If armstate = 4 Then armstate = 1
antennastate = antennastate + 1
If antennastate = 4 Then antennastate = 1
er = Int(1 + Rnd * 50)
Select Case er
Case 1
earstate = earstate + 1
Case 50
earstate = earstate - 1
End Select
If earstate > 15 Then earstate = 1
If earstate < 1 Then earstate = 11
If legstate = 4 Then legstate = 1
If sx < 0 Then sx = 0
If sx >= _Width - 128 Then sx = _Width - 128
If sy < -16 Then sy = -16
If sy >= _Height - 192 Then sy = _Height - 192
Loop Until kk$ = Chr$(27)
