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
//run function "console.log('dir="+dir+"')"
//run function "console.log('ii.isdown="+ii.isdown+"')"
//run function "console.log('mouse.x1="+mouse.x1+"')"
//run function "console.log('mouse.x2="+mouse.x2+"')"
  if (ii.isdown==true)
    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
//run function "console.log('in h')"
//run function "console.log('ii.x="+ii.x+"')"
//run function "console.log('ii.y="+ii.y+"')"

var abx=mouse.x2-mouse.x1
			var aby=0
//run function "console.log('mouse.x1="+mouse.x1+"')"
//run function "console.log('mouse.x2="+mouse.x2+"')"
//run function "console.log('abx="+abx+"')"
//run function "console.log('aby="+aby+"')"
			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