rem
rem AGK Application 1.08B11
rem MR
rem X Slider
SetDisplayAspect( 4.0/3.0 )
sprSL=createsprite(0)
setspritesize(sprSL,50,10)
setspriteposition(sprSL,20,20)
sprPush=createsprite(0)
setspritecolor(sprPush,192,192,192,192)
setspritesize(sprPush,10,10)
setspriteposition(sprPush,20,20)
do
mx#=getpointerx()
my#=getpointery()
spr=getspritehit(mx#,my#)
if getpointerstate()=1
if spr=sprPush or spr=sprSL
x#=mx#
if x#<getspritex(sprSL)+getspritewidth(sprPush)/2.0 then x#=getspritex(sprSL)+getspritewidth(sprPush)/2.0
if x#>getspritex(sprSL)+getspritewidth(sprSL)-getspritewidth(sprPush)/2.0 then x#=getspritex(sprSL)+getspritewidth(sprSL)-getspritewidth(sprPush)/2.0
setspritepositionbyoffset(sprPush,x#,getspriteybyoffset(sprPush))
endif
endif
print(GetValue(sprSL,sprPush))
print(GetValue(sprSL,sprPush)*50.0)
Sync()
loop
function GetValue(sprSL,sprPush)
x#=(getspritexbyoffset(sprPush)-getspritewidth(sprPush)/2.0)-getspritex(sprSL)
w#=getspritewidth(sprSL)-getspritewidth(sprPush)
v#=x#/w#
endfunction v#
