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

Drag image to position it

var IMX={img}
var mx=0
var my=0
var dir={dir}
create sprite from IMX as ii
  where
    x={x} y={y}
    center=auto
end
create routine as Start
  launch ii
  set mousedown=mdown
  set mouseup=mup
  set mousemove=mmove
  set mouseout=mup

set touchstart=tdown
  set touchend=tup
  set touchmove=tmove
end
create routine as mdown
  update var mx set=mouse.x
  update var my set=mouse.y
  update sprite ii set isdown=true
end

create routine as mup
  update sprite ii set isdown=false
end

create routine as mmove
  if (ii.isdown==true)
		//run function "console.log('dir="+dir+"')"
    if (dir=="b") // both
			var abx=mouse.x2-mouse.x1
			var aby=mouse.y2-mouse.y1
			insert into ii where alt=(sub
				create translation
					where x=(ii.x+abx) y=(ii.y+aby) speed=600
				end)
			run function "SetImagePosition("+(ii.x+abx)+","+(ii.y+aby)+")"
		elsif (dir=="v") // vertical
			var abx=0
			var aby=mouse.y2-mouse.y1
			insert into ii where alt=(sub
				create translation
					where x=(ii.x+abx) y=(ii.y+aby) speed=600
				end)
			run function "SetImagePosition("+(ii.x+abx)+","+(ii.y+aby)+")"
		else // 'h' horizontal
			var abx=mouse.x2-mouse.x1
			var aby=0
			insert into ii where alt=(sub
				create translation
					where x=(ii.x+abx) y=(ii.y+aby) speed=600
				end)
			run function "SetImagePosition("+(ii.x+abx)+","+(ii.y+aby)+")"
	  endif
  endif
end
create routine as tdown
  update var mx set=_touch.x
  update var my set=_touch.y
  update sprite ii set isdown=true
end

create routine as tup
  update sprite ii set isdown=false
end

create routine as tmove
  if (ii.isdown==true)
    if (dir=="b")
			var abx=_touch.x2-_touch.x1
			var aby=_touch.y2-_touch.y1
			insert into ii where alt=(sub
				create translation
					where x=(ii.x+abx) y=(ii.y+aby) speed=600
				end)
			run function "SetImagePosition("+(ii.x+abx)+","+(ii.y+aby)+")"
		elsif (dir=="v")
			var abx=0
			var aby=_touch.y2-_touch.y1
			insert into ii where alt=(sub
				create translation
					where x=(ii.x+abx) y=(ii.y+aby) speed=600
				end)
			run function "SetImagePosition("+(ii.x+abx)+","+(ii.y+aby)+")"
		else // 'h'
			var abx=_touch.x2-_touch.x1
			var aby=0
			insert into ii where alt=(sub
				create translation
					where x=(ii.x+abx) y=(ii.y+aby) speed=600
				end)
			run function "SetImagePosition("+(ii.x+abx)+","+(ii.y+aby)+")"
	  endif
  endif
end