Morse Code Monkey

Bang those cymbals, Morse Code Monkey! Relay my message! Enter your message in the space provided and the monkey will bang it out in morse code. Generate the gif or download the video. Share and delight your friends. Honestly, I don't know morse code, could someone please send me some feedback on this using the contact page (link below). Thanks.

Made By: EditableGIFs

GIF width: , height:

Words

Spacing 20-500

Cymbal speed 100-1000

Edit GIF animation code

Raw Code

Editable GIFs are created from the SCL animation language.
Open help and documentation

/* FEELING ADVENTUROUS? TRY THIS.
   BEWARE: MAKING ERRORS COULD MEAN
           RELOADING AND LOSING YOUR
           WORK
*/

var WORDS="The sky is blue" //: Words
var DELAY=150 //: Spacing 20-500
var SPEED=500 //: Cymbal speed 100-1000

var MONKEY="monkey.png"
var LEFT="leftHand.png"
var RIGHT="rightHand.png"
var FONT="block"
var LIGHT="light.png"

create sprite as Shrinker
  where size=0.5
end

create sprite from MONKEY as Monkey
end
create sprite from LIGHT as Light
  where x=-100 y=-100 alpha=0 // don't show onscreen unless you want it.
end
create sprite from LEFT as Left
  where center=38,118 x=142 y=252
end
create sprite from RIGHT as Right
  where center=27,118 x=225 y=252
end

create routine as Start
  launch Shrinker
  set parent=Shrinker
  launch Monkey
  launch Right
  launch Left
  launch Light
  run routine SetPauses where repeat=data.Word

//run routine LogPauses where repeat=data.Pauses
  update var curThing set=data.Pauses.next
  insert into Monkey where alt=(sub create wait where delay=500 completion=TurnOn end)
end

create routine as TurnOn
  insert into Right where alt=RightIn
  insert into Left where alt=LeftIn
  insert into Light where alt=LightIn
end

var curThing=0
create routine as Duration
  insert into Monkey where alt=(sub
    create wait
      where delay=DELAY*curThing completion=TurnOff
    end)
end

create routine as TurnOff
  insert into Right where alt=RightOut
  insert into Left where alt=LeftOut
  insert into Light where alt=LightOut
end
create routine as OutPause
      update var curThing set=data.Pauses.next
      if (data.Pauses.remaining==0)
        Stop()
      endif
      if (curThing>3)
        insert into Monkey where alt=(sub
          create wait
            where delay=DELAY*(curThing-1) completion=TurnOn
          end)
        update var curThing set=data.Pauses.next
      else
        insert into Monkey where alt=(sub
          create wait
            where delay=DELAY completion=TurnOn
          end)
      endif
end

// Right cymbals controls all
create translation as RightIn
  where x=192 speed=SPEED completion=Duration
end
create translation as RightOut
  where x=225 speed=SPEED completion=OutPause
end

create fade as LightIn
  where rate=100 until=1
end
create fade as LightOut
  where rate=-100 until=0
end

create translation as LeftIn
  where x=175 speed=SPEED
end
create translation as LeftOut
  where x=142 speed=SPEED
end

create data from letters as Word
set
  WORDS
end

create routine as SetPauses
  var curl=data.Word.next
  if (curl=="a" || curl=="A")
    run routine SetLetter(data.mca) where repeat=data.mca
  elsif (curl=="b" || curl=="B")
    run routine SetLetter(data.mcb) where repeat=data.mcb
  elsif (curl=="c" || curl=="C")
    run routine SetLetter(data.mcc) where repeat=data.mcc
  elsif (curl=="d" || curl=="D")
    run routine SetLetter(data.mcd) where repeat=data.mcd
  elsif (curl=="e" || curl=="E")
    run routine SetLetter(data.mce) where repeat=data.mce
  elsif (curl=="f" || curl=="F")
    run routine SetLetter(data.mcf) where repeat=data.mcf
  elsif (curl=="g" || curl=="G")
    run routine SetLetter(data.mcg) where repeat=data.mcg
  elsif (curl=="h" || curl=="H")
    run routine SetLetter(data.mch) where repeat=data.mch
  elsif (curl=="i" || curl=="I")
    run routine SetLetter(data.mci) where repeat=data.mci
  elsif (curl=="j" || curl=="J")
    run routine SetLetter(data.mcj) where repeat=data.mcj
  elsif (curl=="k" || curl=="K")
    run routine SetLetter(data.mck) where repeat=data.mck
  elsif (curl=="l" || curl=="L")
    run routine SetLetter(data.mcl) where repeat=data.mcl
  elsif (curl=="m" || curl=="M")
    run routine SetLetter(data.mcm) where repeat=data.mcm
  elsif (curl=="n" || curl=="N")
    run routine SetLetter(data.mcn) where repeat=data.mcn
  elsif (curl=="o" || curl=="O")
    run routine SetLetter(data.mco) where repeat=data.mco
  elsif (curl=="p" || curl=="P")
    run routine SetLetter(data.mcp) where repeat=data.mcp
  elsif (curl=="q" || curl=="Q")
    run routine SetLetter(data.mcq) where repeat=data.mcq
  elsif (curl=="r" || curl=="R")
    run routine SetLetter(data.mcr) where repeat=data.mcr
  elsif (curl=="s" || curl=="S")
    run routine SetLetter(data.mcs) where repeat=data.mcs
  elsif (curl=="t" || curl=="T")
    run routine SetLetter(data.mct) where repeat=data.mct
  elsif (curl=="u" || curl=="U")
    run routine SetLetter(data.mcu) where repeat=data.mcu
  elsif (curl=="v" || curl=="V")
    run routine SetLetter(data.mcv) where repeat=data.mcv
  elsif (curl=="w" || curl=="W")
    run routine SetLetter(data.mcw) where repeat=data.mcw
  elsif (curl=="x" || curl=="X")
    run routine SetLetter(data.mcx) where repeat=data.mcx
  elsif (curl=="y" || curl=="Y")
    run routine SetLetter(data.mcy) where repeat=data.mcy
  elsif (curl=="z" || curl=="Z")
    run routine SetLetter(data.mcz) where repeat=data.mcz
  elsif (curl=="0")
    run routine SetLetter(data.mc0) where repeat=data.mc0
  elsif (curl=="1")
    run routine SetLetter(data.mc1) where repeat=data.mc1
  elsif (curl=="2")
    run routine SetLetter(data.mc2) where repeat=data.mc2
  elsif (curl=="3")
    run routine SetLetter(data.mc3) where repeat=data.mc3
  elsif (curl=="4")
    run routine SetLetter(data.mc4) where repeat=data.mc4
  elsif (curl=="5")
    run routine SetLetter(data.mc5) where repeat=data.mc5
  elsif (curl=="6")
    run routine SetLetter(data.mc6) where repeat=data.mc6
  elsif (curl=="7" )
    run routine SetLetter(data.mc7) where repeat=data.mc7
  elsif (curl=="8")
    run routine SetLetter(data.mc8) where repeat=data.mc8
  elsif (curl=="9")
    run routine SetLetter(data.mc9) where repeat=data.mc9
  elsif (curl==" ")
    var tmp=data.Pauses.pop // remove the letter separator because we are actually at a new word
    update data Pauses push 8 // because 8 total for end of word (we subtract 1 later to cause a pause of 7)
  endif
  if (curl!=" ")
    update data Pauses push 4 // marks end of letter (we subtract 1 later to cause a pause of 3)
  endif
end

create data from List as Pauses end
create routine as SetLetter
  var whi=arg.1
  var val=whi.next
  if (val=="-")
    update data Pauses push 3
  elsif (val==".")
    update data Pauses push 1
  endif
end

create data from letters as mca set ".-" end
create data from letters as mcb set "-..." end
create data from letters as mcc set "-.-." end
create data from letters as mcd set "-.." end
create data from letters as mce set "." end
create data from letters as mcf set "..-." end
create data from letters as mcg set "--." end
create data from letters as mch set "...." end
create data from letters as mci set ".." end
create data from letters as mcj set ".---" end
create data from letters as mck set "-.-" end
create data from letters as mcl set ".-.." end
create data from letters as mcm set "--" end
create data from letters as mcn set "-." end
create data from letters as mco set "---" end
create data from letters as mcp set ".--." end
create data from letters as mcq set "--.-" end
create data from letters as mcr set ".-." end
create data from letters as mcs set "..." end
create data from letters as mct set "-" end
create data from letters as mcu set "..-" end
create data from letters as mcv set "...-" end
create data from letters as mcw set ".--" end
create data from letters as mcx set "-..-" end
create data from letters as mcy set "-.--" end
create data from letters as mcz set "--.." end
create data from letters as mc0 set "-----" end
create data from letters as mc1 set ".----" end
create data from letters as mc2 set "..---" end
create data from letters as mc3 set "...--" end
create data from letters as mc4 set "....-" end
create data from letters as mc5 set "....." end
create data from letters as mc6 set "-...." end
create data from letters as mc7 set "--..." end
create data from letters as mc8 set "---.." end
create data from letters as mc9 set "----." end

create routine as LogPauses
  var whi=data.Pauses.next
  log(whi)
end