Skully a talking 'n singing skull

Description

Skully is a skull I bought on eBay for about $30, added a couple of servo motors to control the neck turning left 'n right and another to control the jaw moving up 'n down imitating talking 'n singing as the RoboGuts™ circuit board with a PICAXE 18M2 sending the talk and song data to the RoboGuts™ onboard speech synth chip. It's pretty easy to build and only a few 3D printed parts to make the neck & spine for the skull. Another $15 kit project: http://www.R2Pv1.com/ ; 18M2-PartySkully-3.bas #picaxe 18M2 ; Define the µProcessor IC Type symbol Neck = B.0 symbol Jaw = B.1 symbol reyered = B.7 symbol leyered = C.1 symbol reyegreen = B.6 symbol leyegreen = C.0 symbol reyeblue = B.4 symbol leyeblue = C.7 init: servo Neck,150 servo Jaw,150 ; hserout pin = B.6 hsersetup B9600_4, %00000 ; 9600 baud, non-inverted polarity symbol i = b0 ; BEGIN Main Body * * * * * * * * * * * * * * * * * * * * * * * gosub rred pause 250 gosub lred pause 250 gosub rgreen pause 250 gosub lgreen pause 250 gosub rblue pause 250 gosub lblue pause 250 gosub Police do gosub MyName gosub Speech1 gosub Speech2 loop end ; END Main Body * * * * * * * * * * * * * * * * * * * * * * ** ; BEGIN Subroutines * * * * * * * * * * * * * * * * * * * * * * wait1: pause 500 ; the SpeakJet is busy return MyName: gosub rblue gosub lblue gosub NeckC pause 500 gosub rgreen gosub lgreen gosub NeckL pause 500 gosub rblue gosub lblue gosub NeckC pause 500 gosub rred gosub lred gosub NeckR pause 500 gosub rgreen gosub lgreen gosub NeckC pause 500 gosub rTeal gosub lTeal ; My name is Skully ; \PITCH \75 My name \PITCH \70 is \PITCH \75 \SE \KE \AW \PITCH \65 \LE \IY hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 140, 155, 141, 154, 140, 22, 70, 8, 129, 167, 22, 75, 187, 194, 135, 22, 65, 145, 128) for i = 0 to 3 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckL pause 750 gosub NeckC gosub rred gosub lred ; that is with a k ; \PITCH \75 that \PITCH \65 is \PITCH \75 with \PITCH \70 a k hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 169, 8, 132, 8, 191, 22, 65, 8, 129, 167, 22, 75, 147, 129, 8, 8, 190, 22, 70, 154, 128, 6, 194, 154) for i = 0 to 5 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckR pause 500 ; I am not a pilot ; \PITCH \75 I \PITCH \65 am \PITCH \75 not \PITCH \70 a \PITCH \75 pilot hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 157, 22, 65, 132, 132, 140, 22, 75, 141, 136, 191, 22, 70, 154, 128, 22, 75, 199, 7, 157, 146, 133, 191) for i = 0 to 4 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckC gosub Police return Speech1: gosub NeckC gosub rred gosub lgreen pause 500 gosub NeckL pause 500 gosub NeckC gosub rTeal gosub lTeal ; the master gave me life ; \PITCH \65 the \PITCH \75 \MM \AY \SE \PITCH \65 \TT \RR \PITCH \65 \GE \EYIY \Slow \VV \PITCH \70 me \PITCH \80 \LE \OHIY \Slow \FF \FF hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 65, 8, 169, 8, 128, 22, 75, 140, 132, 187, 22, 65, 191, 148, 22, 65, 178, 154, 8, 166, 22, 70, 140, 128, 128, 22, 80, 145, 155, 8, 186, 186) for i = 0 to 7 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckR gosub NeckC gosub rOrange gosub lOrange pause 1000 gosub rred gosub lred pause 500 gosub rTeal gosub lTeal pause 500 gosub rred gosub lred pause 500 gosub rTeal gosub lTeal ; Wow, hooche cooche, ; \PITCH \70 \WW \Slow \AW \OW , , \PITCH \60 \HE \UW \PITCH \70 \CH \IY \PITCH \60 \KE \UW \PITCH \70 \CH \IY hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 70, 147, 8, 135, 137, 2, 2, 22, 60, 183, 139, 22, 70, 182, 128, 22, 60, 194, 139, 22, 70, 182, 128) for i = 0 to 4 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckR gosub NeckC gosub rOrange gosub lOrange ; hotsy totsy ; \PITCH \75 hot \PITCH \65 see , \PITCH \75 \TT \AW \TT \PITCH \60 see hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 183, 136, 191, 22, 65, 187, 187, 128, 128, 2, 22, 75, 191, 135, 191, 22, 60, 187, 187, 128, 128) for i = 0 to 3 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckR gosub NeckC gosub rOrange gosub lOrange pause 1000 gosub NeckR pause 2000 gosub NeckC gosub rPink gosub lPink ; I bet you would like to be as ; \PITCH \75 I \PITCH \65 \BE \EH \TT \PITCH \75 you \PITCH \65 would \PITCH \75 like \PITCH \65 to \PITCH \75 \BE \IY \PITCH \65 as hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 157, 22, 65, 170, 131, 191, 6, 22, 75, 8, 160, 22, 65, 147, 8, 138, 177, 22, 75, 145, 7, 136, 7, 155, 196, 22, 65, 8, 191, 162, 22, 75, 170, 128, 22, 65, 132, 8, 167) for i = 0 to 6 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckL pause 250 gosub NeckC gosub rblue gosub lblue ; animated as I am when ; \PITCH \75 \AY \NE \IH \MM \EYIY \PITCH \70 \TT \EH \DE \PITCH \65 as \PITCH \75 I \PITCH \70 am \PITCH \65 when hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 132, 141, 129, 140, 154, 22, 70, 191, 131, 174, 6, 22, 65, 132, 8, 167, 22, 75, 157, 22, 70, 132, 132, 140, 22, 65, 185, 8, 131, 8, 141) for i = 0 to 6 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckR pause 250 gosub NeckC gosub rred gosub lred ; you are dead ; \PITCH \75 you \PITCH \70 are \PITCH \65 \DE \Slow \EH \PITCH \60 \EH \DE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 8, 160, 22, 70, 152, 22, 65, 174, 8, 131, 22, 60, 131, 174) for i = 0 to 2 gosub JawDn pause 150 gosub JawUp pause 150 next i pause 1000 gosub NeckL pause 2000 gosub NeckC gosub rOrange gosub lOrange ; may be I should eat more ; \PITCH \65 may \PITCH \70 \BE \IY \PITCH \75 I \PITCH \65 should \PITCH \75 eat \PITCH \65 more hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 65, 140, 154, 22, 70, 170, 128, 22, 75, 157, 22, 65, 8, 189, 8, 139, 177, 22, 75, 8, 128, 191, 22, 65, 140, 7, 137, 153) for i = 0 to 5 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckR pause 1000 gosub NeckC gosub rgreen gosub lgreen ; come a little closer ; \PITCH \75 come a little \PITCH \80 \KE \LE \OW \PITCH \65 \SE \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 194, 8, 134, 140, 154, 128, 145, 129, 191, 159, 22, 80, 194, 145, 137, 22, 65, 187, 148) for i = 0 to 5 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckL pause 3000 gosub NeckC return Speech2: gosub NeckL gosub rTeal gosub lTeal ; are you afraid ; \PITCH \65 are \PITCH \75 you \PITCH \65 a \PITCH \80 \FF \RR \Slow \EYIY \DE hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 65, 152, 22, 75, 8, 160, 22, 65, 154, 128, 22, 80, 186, 148, 8, 154, 174) for i = 0 to 3 gosub JawDn pause 150 gosub JawUp pause 150 next i ;pause 1000 gosub NeckR pause 2000 gosub NeckC gosub rgreen gosub lgreen ; come a little closer ; \PITCH \75 come a little \PITCH \80 \KE \LE \OW \PITCH \65 \SE \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 194, 8, 134, 140, 154, 128, 145, 129, 191, 159, 22, 80, 194, 145, 137, 22, 65, 187, 148) for i = 0 to 3 gosub JawDn pause 150 gosub JawUp pause 150 next i pause 1000 gosub NeckL pause 1000 gosub NeckC gosub rred gosub lred ; a little closer ; \PITCH \75 a little \PITCH \80 \KE \LE \OW \PITCH \65 \SE \RR hserout 0,(20, 96, 21, 114, 22, 88, 23, 5, 22, 75, 154, 128, 145, 129, 191, 159, 22, 80, 194, 145, 137, 22, 65, 187, 148) for i = 0 to 3 gosub JawDn pause 150 gosub JawUp pause 150 next i gosub NeckR pause 1000 gosub NeckC return end ; BEGIN LED Subroutines * * * * * * * * * * * * * * * LEDsOFF: high reyered high leyered high reyegreen high leyegreen high reyeblue high leyeblue return rred: low reyered high reyegreen high reyeblue return rgreen: high reyered low reyegreen high reyeblue return rblue: high reyered high reyegreen low reyeblue return rPink: low reyered high reyegreen low reyeblue return rOrange: low reyered low reyegreen high reyeblue return rTeal: high reyered low reyegreen low reyeblue return lred: low leyered high leyegreen high leyeblue return lgreen: high leyered low leyegreen high leyeblue return lblue: high leyered high leyegreen low leyeblue return lPink: low leyered high leyegreen low leyeblue return lOrange: low leyered low leyegreen high leyeblue return lTeal: high leyered low leyegreen low leyeblue return Police: For i = 0 to 4 gosub rred gosub lblue pause 75 gosub LEDsOFF pause 75 gosub rred gosub lblue gosub LEDsOFF pause 150 gosub rblue gosub lred pause 75 gosub LEDsOFF pause 75 gosub rblue gosub lred pause 75 gosub LEDsOFF pause 150 next i gosub rTeal gosub lTeal return ; END LED Subroutines * * * * * * * * * * * * * * * * NeckC: servopos Neck, 140 return NeckL: servopos Neck, 170 return NeckR: servopos Neck, 115 return JawUp: servopos Jaw, 150 return JawDn: servopos Jaw, 210 return ; END Subroutines * * * * * * * * * * * * * * * * * * * * * * * * * * ** end Skully Kit Assembly https://www.youtube.com/watch?v=MhXGc7mO5MQ
Print Page

Share

Comments

  • Login to leave a comment.