Webm Video Download

Complete! The video you just downloaded was in a webm format and can be viewed on most devices. However, if you'd like to post to Instragram, please close this box and choose the Instagram option.

Video Overlays
Our whole library of Editable GIFs Thank You GIFs Emojis All stickers GIFS Happy Birthday Coronavirus GIFs Popcorn GIFs Love GIFs Kissing GIFs Web/Game Assets Rock Paper Scissors Activities

Download Complete

Check out other gif libraries below.

Our whole library of Editable GIFs Emojis All stickers GIFS Happy Birthday Coronavirus GIFs Popcorn GIFs Love GIFs Kissing GIFs Web/Game Assets Rock Paper Scissors Thank You GIFs Activities

Drag/Pinch Image

GIF Tip

Use the Image icon

to try different images in your GIFs.
- tap to close -

Upload in progress...

Please hold... processing

Hold on, we're doing the stuff....

You're GIF won't be around forever. It'll be available long enough to share it.

Please wait while we upload...

Your animation will be:

uploaded and processed
given a unique web address
available to download or share for 5 days

After sharing you will be automatically taken to your new gif page.

For Apps...

Your animation will be:

uploaded for processing
made ready for App upload (mp4)
you will be taken to the video page
video will only be available for a limited time

Save the video to your device for posting to your preferred app.

Download

Hold on, we're making it...

How to make a GIF Emojis

Holiday GIFs

Happy Birthday
Halloween
Christmas
New Year's
Valentine's
St Patrick's Day
Easter GIFs

Sticker GIFs

All stickers GIFS
Coronavirus GIFs
Popcorn GIFs
Love GIFs
Kissing GIFs
Rock Paper Scissors
Thank You GIFs

Video Overlays Activities Assets

Valentines GIF

Use our interactive milkshake shop to create your own personalized milkshake gif to share. Tap your ingredients and share as a video or make a gif.

Tap to start, or personalize below.

Generating gif...

Replace this image

OR, choose from the list...

Upload a video to play in the background of your GIF.
We recommend videos/gifs to not be longer than 10 seconds.

Drag Video to Here

Touch to change a GIF image:

Download:

Download GIF

Download for

Download Video

Your name

Text color

Border color

Message 1

Message 2

Back color

Counter color

Name font

Message font

More GIFs

var UNAME="{Name}'s Valentine" //: Your name
var TEXTCOLOR="#ffffff" //: Text color
var BORDERCOLOR="#550000" //: Border color
var MESSAGE1="Happy Valentine's!" //: Message 1
var MESSAGE2="Have a great day!" //: Message 2
var BKCOLOR="#87cefa" //: Back color
var COUNTERCOLOR="#fa7d9b" //: Counter color
var NAMEFONT="cursive" //: Name font
var USERFONT="block" //: Message font

var SETUPTEXTCOLOR="#000000"
var SETUPBUTTONCOLOR="#EEEEFF"
var GLASS1="glass1.png"
var GLASS2="glass2.png"
var HEART="heart.png"
var CHOCOLATE1="chocolate1.png"
var CHOCOLATE2="chocolate2.png"
var STRAWBERRY="strawberry.png"
var MARSHMELLOW="marshmellow.png"
var FLOWER1="flower1.png"
var FLOWER2="flower2.png"
var FLOWER3="flower3.png"
var FLOWER4="flower4.png"
var KISS="kiss.png"
var GLASS1FRAME="glass1frame.png"
var GLASS2FRAME="glass2frame.png"
var CREAM="cream.png"
var SAUCE="sauce.png"
var SHAVINGS="shavings.png"
var SPRINKLES="sprinkles.png"
var STRAW1="straw-white.png"
var STRAW2="straw-red.png"
var STRAW3="straw-blue.png"
var STRAW4="straw-green.png"
var STRAW5="straw-yellow.png"
var STRAW6="straw-redstripes.png"
var STRAW7="straw-coloredstripes.png"
var MILK1="glass1cmilk.png"
var MILK2="glass2cmilk.png"

var STAR="star.png"
var BKIMAGE="bkImage.png"
var DOTS="dots.png"
var AWNING="awning.png"

var BTNCINNAMON="btn-cinnamon.png"
var BTNCHOCOLATES="btn-chocolates.png"
var BTNFLOWERS="btn-flowers.png"
var BTNSTRAWBERRIES="btn-strawberries.png"
var BTNMARSHMELLOWS="btn-marshmellows.png"
var BTNKISSES="btn-kisses.png"

var BUTTONSPRINKLES="button-sprinkles.png"
var BUTTONSHAVINGS="button-shavings.png"
var BUTTONSYRUP="button-syrup.png"
var CHOOSE="choose.png"

var buttonSpeed=500
var layer=0
var selectedGlassNumber=0

create sprite as Empty end
create sprite from DOTS as Dots end
create sprite from AWNING as AwningTop end
create sprite from AWNING as AwningBottom where vflip=true y=430 end
create textsprite as NameSprite
  where text=UNAME
    x=200
    y=-85 center=auto
    align="center" color=TEXTCOLOR
    style="border" borderwidth=7 bordercolor=BORDERCOLOR
    font "normal 600 36px/2 "+NAMEFONT
  having alt=(sub
    create translation
      where y=10 speed=500 easeout=30 completion=LoadDone
  end)
end

create sprite from CHOOSE as ChoooseArrows
  where center=auto x=200 y=135
  having alt=InstructionTextWait
end

create textsprite as ShopSprite
  where text="Milkshake Shop"
    x=200
    y=-40 center=auto
    align="center" color=TEXTCOLOR
    style="border" borderwidth=9 bordercolor=BORDERCOLOR
    font "normal bold 38px "+USERFONT
  having alt=(sub
    create translation
      where y=55 speed=500 easeout=30 completion=LoadDone
  end)
end

create textsprite as Message1
  where text=MESSAGE1
    x=200
    y=440 center=auto
    align="center" color=TEXTCOLOR
    style="border" borderwidth=7 bordercolor=BORDERCOLOR
    font "normal bold 32px "+USERFONT
  having alt=(sub
    create translation
      where y=300 speed=500 easeout=30
  end)
end

create textsprite as Message2
  where text=MESSAGE2
    x=200
    y=490 center=auto
    align="center" color=TEXTCOLOR
    style="border" borderwidth=7 bordercolor=BORDERCOLOR
    font="normal bold 32px "+USERFONT
  having alt=(sub
    create translation
      where y=350 speed=500 easeout=30
  end)
end

create routine as Start
  draw onto _bottom
    fillstyle BKCOLOR
    fillrect 0,0,400,400
  enddraw

launch Dots
  
  draw onto Dots
    fillstyle COUNTERCOLOR
    fillrect 0,284,400,116
  enddraw
  launch bkImage
  launch effectsLayer
  launch AwningBottom
  launch AwningTop
  launch NameSprite
  launch ShopSprite
  launch InstructionText
  update textsprite InstructionText where text="Choose your glass"
end

create sprite from BKIMAGE as bkImage
  where x=100 y=115
end

create sprite as effectsLayer end

create sprite from HEART as Heart1
  where center=auto x=80-180 y=40 size=0.5 angle=45
end
create sprite from HEART as Heart2
  where center=auto x=110-180 y=40 size=0.5 angle=45
end
create sprite from HEART as Heart3
  where center=auto x=140-180 y=40 size=0.5 angle=45
end
create sprite from BTNCINNAMON as CinnamonHearts
  where center=180,0 x=-10 y=105 click=CinnamonHeartsClick
  having alt=(sub
    create translation where x=180 speed=buttonSpeed easeout=10
  end)
end

create sprite from CHOCOLATE1 as Chocolate1
  where center=auto x=80-180 y=40 size=0.5 angle=45
end
create sprite from CHOCOLATE2 as Chocolate2
  where center=auto x=110-180 y=40 size=0.5 angle=50
end
create sprite from CHOCOLATE1 as Chocolate3
  where center=auto x=140-180 y=40 size=0.5 angle=40
end
create sprite from BTNCHOCOLATES as Cherries
  where center=180,0 x=-60 y=180 click=ChocolateClick
  having alt=(sub
    create translation where x=180 speed=buttonSpeed easeout=10
  end)
end

create sprite from FLOWER1 as Flower1
  where center=auto x=70-180 y=41 size=0.5 angle=45
end
create sprite from FLOWER2 as Flower2
  where center=auto x=110-180 y=41 size=0.5 angle=134
end
create sprite from FLOWER3 as Flower3
  where center=auto x=145-180 y=41 size=0.5 angle=30
end
create sprite from FLOWER4 as Flower4
  where center=auto x=145-180 y=41 size=0.5 angle=30
end
create sprite from BTNFLOWERS as Flowers
  where center=180,0 x=-110 y=255 click=FlowersClick
  having alt=(sub
    create translation where x=180 speed=buttonSpeed easeout=10
  end)
end

create sprite from STRAWBERRY as Strawberry1
  where center=auto x=85 y=40 size=0.5 angle=45
end
create sprite from STRAWBERRY as Strawberry2
  where center=auto x=120 y=40 size=0.5 angle=134
end
create sprite from STRAWBERRY as Strawberry3
  where center=auto x=155 y=40 size=0.5 angle=30
end
create sprite from BTNSTRAWBERRIES as Strawberries
  where center=0,0 x=410 y=105 click=StrawberriesClick
  having alt=(sub
    create translation where x=220 speed=buttonSpeed easeout=10
  end)
end

create sprite from MARSHMELLOW as Marshmellow1
  where center=auto x=82 y=42 size=0.5 angle=35
end
create sprite from MARSHMELLOW as Marshmellow2
  where center=auto x=117 y=42 size=0.5 angle=104
end
create sprite from MARSHMELLOW as Marshmellow3
  where center=auto x=155 y=42 size=0.5 angle=75
end
create sprite from BTNMARSHMELLOWS as Marshmellows
  where center=0,0 x=460 y=180 click=MarshmellowsClick
  having alt=(sub
    create translation where x=220 speed=buttonSpeed easeout=10
  end)
end

create sprite from KISS as Kiss1
  where center=auto x=82 y=42 size=0.5 angle=35
end
create sprite from KISS as Kiss2
  where center=auto x=117 y=42 size=0.5 angle=104
end
create sprite from KISS as Kiss3
  where center=auto x=155 y=42 size=0.5 angle=75
end
create sprite from BTNKISSES as Kisses
  where center=0,0 x=510 y=255 click=KissesClick
  having alt=(sub
    create translation where x=220 speed=buttonSpeed easeout=10
  end)
end

create sprite as StrawContainer1 where x=-150 y=-191 end
create sprite from MILK1 as MilkContainer1 where x=-125 y=-191 end
create sprite from GLASS1FRAME as glassFrame1 where x=-125 y=-191 end
create sprite from GLASS1 as glass1
  where center=125,191 x=100 y=220 size=0.5 alpha=1 click=GlassClicked
  set which=1
  having alt=(sub
    create fade where rate=4 until=1
    end)
  children=(MilkContainer1,StrawContainer1,glassFrame1)
end

create sprite as StrawContainer2 where x=-150 y=-191 end
create sprite from MILK2 as MilkContainer2 where x=-125 y=-191 end
create sprite from GLASS2FRAME as glassFrame2 where x=-150 y=-193 end
create sprite from GLASS2 as glass2
  where center=125,191 x=300 y=220 size=0.5 alpha=1 click=GlassClicked
  set which=2
  having alt=(sub
    create fade where rate=4 until=1
    end)
  children=(MilkContainer2,StrawContainer2,glassFrame2)
end
create bezier as UseGlass1
  where start=100,220
    orientation=none
    time=500
    path="250,100 300,200 200,450"
    completion=LaunchButtons
end
create bezier as UseGlass2
  where start=300,220
    orientation=none
    time=500
    path="150,100 100,200 200,450"
    completion=LaunchButtons
end
create slide as DiscardGlass
  where direction=270 speed=1000 easein=20
end

create textsprite as InstructionText
  where center=200,10
   x=200 y=350 align="center" style="border"
   borderwidth=4 bordercolor=BORDERCOLOR
   color=TEXTCOLOR
   font="normal bold 32px sans-serif"
  having alt=(sub
    create wait as InstructionTextWait where delay=1000 completion=(sub
    create rotation where speed=180 destination=10 completion=(sub
    create rotation where speed=-180 destination=350 completion=(sub
    create rotation where speed=180 destination=0 completion=InstructionTextWait
    end) end) end) end)
end

create routine as LoadDone
  launch glass1
  launch glass2
  launch ChoooseArrows
end

var selectedGlass=0
create routine as GlassClicked
  RecordChoice("glass"+_sprite.which)
  drop ChoooseArrows
  update sprite glass1 where click=_none
  update sprite glass2 where click=_none
  drop InstructionText
  insert into Dots where alt=(sub
    create wait where delay=25 completion=Record
    end)
  update var selectedGlass set=_sprite
  if (_sprite.which==1)
    update var selectedGlassNumber set=1
    insert into glass1 where alt=(sub
      create wait where delay=250 completion=UseGlass1
      end)
    insert into glass2 where alt=DiscardGlass
  else
    update var selectedGlassNumber set=2
    insert into glass2 where alt=(sub
      create wait where delay=250 completion=UseGlass2
      end)
    insert into glass1 where alt=DiscardGlass
  endif
end
create routine as LaunchButtons
  Pause()
  launch CinnamonHearts
  launch Cherries
  launch Flowers
  launch Strawberries
  launch Marshmellows
  launch Kisses
end

create routine as PullBackButtons
  update var layer add=1
  insert into CinnamonHearts where alt=(sub
    create wait where delay=0
      completion=PullBackButtonL
    end)
  insert into Cherries where alt=(sub
    create wait where delay=125
      completion=PullBackButtonL
    end)
  insert into Flowers where alt=(sub
    create wait where delay=250
      completion=PullBackButtonL
    end)
  insert into Strawberries where alt=(sub
    create wait where delay=0
      completion=PullBackButtonR
    end)
  insert into Marshmellows where alt=(sub
    create wait where delay=125
      completion=PullBackButtonR
    end)
  insert into Kisses where alt=(sub
    create wait where delay=250
      completion=PullBackButtonR
    end)
end
create routine as PullInButtons
  if (layer==3) FinishUp() exit endif
  Pause()
  insert into CinnamonHearts where alt=(sub
    create wait where delay=0
      completion=PullInButtonL
    end)
  insert into Cherries where alt=(sub
    create wait where delay=125
      completion=PullInButtonL
    end)
  insert into Flowers where alt=(sub
    create wait where delay=250
      completion=PullInButtonL
    end)
  insert into Strawberries where alt=(sub
    create wait where delay=0
      completion=PullInButtonR
    end)
  insert into Marshmellows where alt=(sub
    create wait where delay=125
      completion=PullInButtonR
    end)
  insert into Kisses where alt=(sub
    create wait where delay=250
      completion=PullInButtonR
    end)
end
create translation as PullInButtonL
  where x=180 speed=buttonSpeed
end
create translation as PullInButtonR
  where x=220 speed=buttonSpeed
end
create translation as PullBackButtonL
  where x=-10 speed=buttonSpeed
end
create translation as PullBackButtonR
  where x=410 speed=buttonSpeed
end

create routine as CinnamonHeartsClick
  RecordChoice("CinnamonHeartsClick")
  PullBackButtons()
  insert into selectedGlass where alt=(sub
    create wait where delay=1000
      completion=(sub
        create routine
          Resume()
          clone from Heart1 using original
          DropItem(_clone)

clone from Heart2 using original
          update sprite _clone where x=180 and y=-50 and size=1.2
          insert into _clone where alt=(sub
            create wait where delay=250 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)

clone from Heart3 using original
          update sprite _clone where x=200 and y=-50 and size=1.2
          insert into _clone where alt=(sub
            create wait where delay=500 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)
          
          update sprite NameSprite bringtotop
          update sprite ShopSprite bringtotop

end)
  end)
  insert into selectedGlass where alt=(sub
    create wait where delay=2400
      completion=PullInButtons
  end)
end

create routine as ChocolateClick
  RecordChoice("ChocolateClick")
  PullBackButtons()
  insert into selectedGlass where alt=(sub
    create wait where delay=1000
      completion=(sub

create routine
          Resume()
          clone from Chocolate1 using original
          DropItem(_clone)

clone from Chocolate2 using original
          update sprite _clone where x=180 and y=-50 and size=1.2 and angle=random(0,360)
          insert into _clone where alt=(sub
            create wait where delay=250 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)

clone from Chocolate3 using original
          update sprite _clone where x=200 and y=-50 and size=1.2 and angle=random(0,360)
          insert into _clone where alt=(sub
            create wait where delay=500 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)
          update sprite NameSprite bringtotop
          update sprite ShopSprite bringtotop

end)
  end)
 
  insert into selectedGlass where alt=(sub
    create wait where delay=2400
      completion=PullInButtons
  end)

end

create data from list as FlowerChoices
set
	Flower1 Flower2 Flower3 Flower4
end
create routine as FlowersClick
  RecordChoice("FlowersClick")
  PullBackButtons()
  
  update sprite selectedGlass set whiItem="flower"
  insert into selectedGlass where alt=(sub
    create wait where delay=1000
      completion=(sub

create routine
          Resume()
          clone from data.FlowerChoices.pluck using original
          DropItem(_clone)

clone from data.FlowerChoices.pluck using original
          update sprite _clone where x=180 and y=-50 and size=1.2
          insert into _clone where alt=(sub
            create wait where delay=200 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)

clone from data.FlowerChoices.pluck using original
          update sprite _clone where x=180 and y=-50 and size=1.2
          insert into _clone where alt=(sub
            create wait where delay=400 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)

clone from data.FlowerChoices.pluck using original
          update sprite _clone where x=200 and y=-50 and size=1.2
          insert into _clone where alt=(sub
            create wait where delay=600 completion=(sub
              create routine
                insert into _sprite where alt=IntoGlassTranslation
              end)
            end)
          update sprite NameSprite bringtotop
          update sprite ShopSprite bringtotop

end)
  end)
 
  insert into selectedGlass where alt=(sub
    create wait where delay=2400
      completion=PullInButtons
  end)

end

create routine as StrawberriesClick
  RecordChoice("StrawberriesClick")
  PullBackButtons()
  
  insert into selectedGlass where alt=(sub
    create wait where delay=1000
      completion=(sub

create routine
          Resume()
          clone from Strawberry1 using original
          DropItem(_clone)

clone from Strawberry2 using original
          update sprite _clone where x=180 and y=-50 and size=1.2
          insert into _clone where alt=(sub
            create wait where delay=250 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)

clone from Strawberry3 using original
          update sprite _clone where x=200 and y=-50 and size=1.2
          insert into _clone where alt=(sub
            create wait where delay=500 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)
          update sprite NameSprite bringtotop
          update sprite ShopSprite bringtotop

end)
  end)
 
  insert into selectedGlass where alt=(sub
    create wait where delay=2400
      completion=PullInButtons
  end)

end

create routine as MarshmellowsClick
  RecordChoice("MarshmellowsClick")
  PullBackButtons()
  
  insert into selectedGlass where alt=(sub
    create wait where delay=1000
      completion=(sub

create routine
          Resume()
          clone from Marshmellow1 using original
          update sprite _clone where x=200 and y=-50 and size=0
          DropItem(_clone)

clone from Marshmellow2 using original
          update sprite _clone where x=180 and y=-50 and size=1.2 and angle=180
          insert into _clone where alt=(sub
            create wait where delay=250 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)

clone from Marshmellow3 using original
          update sprite _clone where x=220 and y=-50 and size=1.2 and angle=180
          insert into _clone where alt=(sub
            create wait where delay=500 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)
          update sprite NameSprite bringtotop
          update sprite ShopSprite bringtotop

end)
  end)
 
  insert into selectedGlass where alt=(sub
    create wait where delay=2400
      completion=PullInButtons
  end)

end

create routine as KissesClick
  RecordChoice("KissesClick")
  PullBackButtons()

insert into selectedGlass where alt=(sub
    create wait where delay=1000
      completion=(sub

create routine
          Resume()
          clone from Kiss1 using original
          update sprite _clone where x=200 and y=-50 and size=0
          DropItem(_clone)

clone from Kiss2 using original
          update sprite _clone where x=180 and y=-50 and size=0
          insert into _clone where alt=(sub
            create wait where delay=250 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)

clone from Kiss3 using original
          update sprite _clone where x=220 and y=-50 and size=0
          insert into _clone where alt=(sub
            create wait where delay=500 completion=(sub
              create routine
                DropItem(_sprite)
              end)
            end)
          update sprite NameSprite bringtotop
          update sprite ShopSprite bringtotop

end)
  end)
 
  insert into selectedGlass where alt=(sub
    create wait where delay=2400
      completion=PullInButtons
  end)

end

create translation as IntoGlassTranslation
  where speed=800 y=450 completion=AddToGlass
end

var ingrediantCount=0
create routine as AddToGlass
  if (_sprite.selectedGlass=="flower")
    var divver=4
  else
    var divver=3
  endif
  update sprite _sprite where x=50+ingrediantCount%divver*75 and y=320-Math.floor(ingrediantCount/divver)*75 and size=1.2 and angle=0
  if (selectedGlassNumber==1)
    insert into MilkContainer1 where children=_sprite
  else
    insert into MilkContainer2 where children=_sprite
  endif
  update sprite _sprite where composition="source-atop"
  insert into _sprite where alt=(sub
    create rotation as R1
      where distance=30 speed=90 completion=(sub
    create rotation
      where distance=30 speed=-90 completion=R1
    end)
    end)
  update var ingrediantCount add=1
end

create routine as FinishUp
  insert into selectedGlass where alt=(sub
    create translation
      where y=250 speed=400
    end)
  insert into selectedGlass where alt=(sub
    create scale
      where rate=2 until=.75
    end)
  launch cream
  if (selectedGlassNumber==2)
    update sprite cream where size=0.65
  endif
  insert into NameSprite where alt=(sub
    create translation
      where x=610 speed=800
    end)
  insert into ShopSprite where alt=(sub
    create translation
      where x=530 speed=800 completion=(sub
    create wait
      where delay=500 completion=ToppingSelection
    end)
    end)
end

create sprite from CREAM as cream
  where center=122,150 x=200 y=210 size=0.70
end

create sprite from BUTTONSPRINKLES as SprinklesButton
  where center=0,0 x=410 y=50 click=LaunchTopping
  set whi=0
  having alt=(sub
    create translation where x=220 speed=buttonSpeed easeout=10
  end)
end
create sprite from BUTTONSHAVINGS as ShavingsButton
  where center=0,0 x=410 y=150 click=LaunchTopping
  set whi=1
  having alt=(sub
    create translation where x=220 speed=buttonSpeed easeout=10
  end)
end
create sprite from BUTTONSYRUP as SyrupButton
  where center=0,0 x=410 y=250 click=LaunchTopping
  set whi=2
  having alt=(sub
    create translation where x=220 speed=buttonSpeed easeout=10
  end)
end

create routine as ToppingSelection
  Pause()
  launch SprinklesButton
  launch ShavingsButton
  launch SyrupButton
end

create routine as LaunchTopping
  RecordChoice("Topping"+_sprite.whi)
  update sprite SprinklesButton where click=_none
  update sprite ShavingsButton where click=_none
  update sprite SyrupButton where click=_none
  insert into SprinklesButton where alt=(sub
    create wait where delay=0
      completion=PullBackButtonR
    end)
  insert into ShavingsButton where alt=(sub
    create wait where delay=125
      completion=PullBackButtonR
    end)
  insert into SyrupButton where alt=(sub
    create wait where delay=250
      completion=PullBackButtonR
    end)
  insert into _sprite where alt=(sub
    create wait
      where delay=1300 completion=LaunchTopping2
    end)
end

create routine as LaunchTopping2
  Resume()
  if (_sprite.whi==0)
    launch Sprinkles
    if (selectedGlassNumber==2)
      update sprite Sprinkles where size=0.65
    endif
  elsif (_sprite.whi==1)
    launch Shavings
    if (selectedGlassNumber==2)
      update sprite Shavings where size=0.65
    endif
  else
    launch Sauce
    if (selectedGlassNumber==2)
      update sprite Sauce where size=0.65
    endif
  endif
end

create sprite from SPRINKLES as Sprinkles
  where center=122,150 x=200 y=-10 size=0.75
  having alt=ToppingFall
end

create sprite from SHAVINGS as Shavings
  where center=122,150 x=200 y=-10 size=0.75
  having alt=ToppingFall
end

create sprite from SAUCE as Sauce
  where center=122,150 x=200 y=-10 size=0.75
  having alt=ToppingFall
end

create translation as ToppingFall
  where y=200 speed=750 easeout=30 completion=(sub
    create wait where delay=500 completion=Straws
    end)
end

create sprite from STRAW1 as straw1
  where center=auto click=OnStraw size=10 angle=120 x=100 y=100 alpha=0
  having alt=StrawScaleDown
         alt=StrawFadeIn
end
create sprite from STRAW2 as straw2
  where center=auto click=OnStraw size=10 angle=165 x=150 y=300 alpha=0
  having alt=StrawScaleDown
         alt=StrawFadeIn
end
create sprite from STRAW3 as straw3
  where center=auto click=OnStraw size=10 angle=310 x=350 y=200 alpha=0
  having alt=StrawScaleDown
         alt=StrawFadeIn
end
create sprite from STRAW4 as straw4
  where center=auto click=OnStraw size=10 angle=30 x=250 y=250 alpha=0
  having alt=StrawScaleDown
         alt=StrawFadeIn
end
create sprite from STRAW5 as straw5
  where center=auto click=OnStraw size=10 angle=340 x=200 y=150 alpha=0
  having alt=StrawScaleDown
         alt=StrawFadeIn
         alt=(sub
           create wait where delay=500 completion=(sub
           create routine
             Pause()
             launch InstructionText
             update textsprite InstructionText where text="Choose your straw"
         end) end)
end
create sprite from STRAW6 as straw6
  where center=auto click=OnStraw size=10 angle=135 x=50 y=200 alpha=0
  having alt=StrawScaleDown
         alt=StrawFadeIn
end
create sprite from STRAW7 as straw7
  where center=auto click=OnStraw size=10 angle=30 x=300 y=80 alpha=0
  having alt=StrawScaleDown
         alt=StrawFadeIn
end
create scale as StrawScaleDown
      where rate=-40 until=1
end
create fade as StrawFadeIn
        where rate=40 until=1
end

create routine as Straws
  launch straw1
  launch straw2
  launch straw6
  launch straw3
  launch straw7
  launch straw4
  launch straw5
end
var ChosenStraw=0
create routine as OnStraw
  RecordChoice(_sprite.name)
  drop InstructionText
  
  insert into effectsLayer where alt=(sub
    create wait where delay=40 completion=Resume
  end)

update var ChosenStraw set=_sprite
  insert into straw1 where alt=StrawFall
  insert into straw2 where alt=StrawFall
  insert into straw3 where alt=StrawFall
  insert into straw4 where alt=StrawFall
  insert into straw5 where alt=StrawFall
  insert into straw6 where alt=StrawFall
  insert into straw7 where alt=StrawFall
  remove from ChosenStraw where type=_all // removing alt after adding it is easier that testing up above
  clone from ChosenStraw using current as FriendStraw
  insert into ChosenStraw where alt=(sub
    create rotation
      where speed=-1000 destination=250
    end)
    alt=(sub
    create translation where 
      x=360 y=-200 speed=1200 completion=InsertStraw
    end)
  insert into FriendStraw where alt=(sub
    create rotation
      where speed=-1000 destination=290
    end)
    alt=(sub
    create translation where 
      x=20 y=-200 speed=1200 completion=InsertFriendStraw
    end)
end
create translation as StrawFall
  where y=1000 speed=2000 easein=50 completion=DropThis
end
create routine as DropThis
  drop _sprite
end
create routine as InsertStraw
  if (selectedGlassNumber==1)
    insert into StrawContainer1 where attach=ChosenStraw
  else
    insert into StrawContainer2 where attach=ChosenStraw
  endif
  insert into ChosenStraw where alt=(sub
    create vector where distance=300 speed=1200
      completion=RestoreText
    end)
end
create routine as InsertFriendStraw
  if (selectedGlassNumber==1)
    insert into StrawContainer1 where attach=FriendStraw
  else
    insert into StrawContainer2 where attach=FriendStraw
  endif
  insert into FriendStraw where alt=(sub
    create vector where distance=300 speed=1200
     end)
end

create routine as RestoreText
  update sprite NameSprite bringtotop
  update sprite ShopSprite bringtotop
  insert into NameSprite where alt=(sub
    create translation
      where x=200 speed=800
    end)
  insert into ShopSprite where alt=(sub
    create translation
      where x=200 speed=800 completion=Sparkle
    end)
end
create sprite from STAR as star
  where x=105 y=124 alpha=0 size=0 center=auto
  having alt=(sub
    create scale
      where rate=4 until=3 completion=(sub
    create scale
      where rate=-4 until=1 completion=Final
    end) end)
  alt=(sub
    create fade
      where rate=4 until=1
    end)
  alt=(sub
    create rotation
      where speed=-360*4
    end)
end
create routine as Sparkle
  launch Message1
  launch Message2
  launch star
end
create routine as Final
  Pause()
  insert into ShopSprite where alt=(sub
    create wait where
      delay=200 completion=(sub
        create routine
          Stop()
          draw onto _top
            linewidth 4
            textalign "center"

fillstyle SETUPBUTTONCOLOR
            fillrect 0,175,400,80
            fill

strokestyle SETUPTEXTCOLOR
            font "normal 600 24px/2 sans-serif"
            stroketext "Great Shake!",200,185,400
            font "normal 600 20px/2 sans-serif"
            stroketext "Now, generate and share!",200,220,380

fillstyle "white"
            font "normal 600 24px/2 sans-serif"
            filltext "Great Shake!",200,185,400
            font "normal 600 20px/2 sans-serif"
            filltext "Now, generate and share!",200,220,380
          enddraw
        end)
      end)
end

create routine as DropItem
  var spr=arg.1
  var whiPath=random(0,4)
  if (whiPath==0)
    update sprite spr where x=364 and y=169
    insert into spr where alt=Bez1 and alt=DropScaling
  elsif (whiPath==1)
    update sprite spr where x=38 and y=204
    insert into spr where alt=Bez2 and alt=DropScaling
  elsif (whiPath==2)
    update sprite spr where x=163 and y=210
    insert into spr where alt=Bez3 and alt=DropScaling
  elsif (whiPath==3)
    update sprite spr where x=259 and y=227
    insert into spr where alt=Bez4 and alt=DropScaling
  endif
end

create scale as DropScaling
  where rate=1 until=1.2
end

/*
d="M 364.00,169.00
	 C 362.22,-19.74 199.38,150.45 202.00,428.00
	 M 38.00,204.00
	 C 53.12,37.57 219.64,43.83 185.00,425.00
	 M 163.00,210.00
	 C 167.37,19.16 224.47,97.70 217.00,424.00
	 M 259.00,227.00
	 C 254.98,-92.93 187.41,165.51 191.00,451.00" />
*/
create bezier as Bez1
  where start=364.00,169.00
    orientation=tangent
    time=1000
    path="362.22,-19.74 199.38,150.45 202.00,428.00"
    completion=AddToGlass
end
create bezier as Bez2
  where start=38.00,204.00
    orientation=tangent
    time=1000
    path="53.12,37.57 219.64,43.83 185.00,425.00"
    completion=AddToGlass
end
create bezier as Bez3
  where start=163.00,210.00
    orientation=tangent
    time=1000
    path="167.37,19.16 224.47,97.70 217.00,424.00"
    completion=AddToGlass
end
create bezier as Bez4
  where start=259.00,227.00
    orientation=tangent
    time=1000
    path="254.98,-92.93 187.41,165.51 191.00,451.00"
    completion=AddToGlass
end

// ********************************************************************************
create routine as RecordChoice
  var v=arg.1
  run function "RecordChoice('"+v+"')"
end

Webm Video Download

Download Complete

Drag/Pinch Image

GIF Tip

Upload in progress...

Please hold... processing

Share

For Apps...

Download

Valentines GIF

Valentine's Milkshake

Generating gif...

Related GIFs