Sorry your browser is not supported!

// show all errors
SetErrorMode(2)
// set window properties
SetWindowTitle( "Elastic Demo attempt" )
SetWindowSize(1024, 768, 0 )

// set display properties
SetVirtualResolution( 1024, 768 )
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 60, 0 ) // 
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

spr=createSprite(0)
SetSpriteSize(spr,20,20)
SetSpriteColor(spr,255,0,0,255)
SetSpritePositionByOffset(spr,500+90,300)
white=makeColor(255,255,255)

x as float
y as float

amplitude#=0
do
	if getpointerstate()=1 
		//if GetSpriteHit(GetPointerX(),GetPointerY())=spr
			SetSpritePositionByOffset(spr,590,GetPointerY())
			amplitude#=GetPointerY()-300
		//endif	
	endif
	print(amplitude#)
	for x=0 to 180 step.1
    
        y = sin(x)*amplitude#
    
		DrawLine(x+500, y+300,x+500,y+300,white,white)
	
	next x
	sync()
loop

SetWindowSize(800, 800,0)
SetVirtualResolution(800, 800)

launchX = 400
launchY = 700
bandForce = 10

ball = CreateSprite(0)
postLeft = Createsprite(0)
postRight = CreateSprite(0)

SetSpriteColor(ball, 255, 0, 0, 255)
SetSpriteColor(postleft, 255 ,255, 0, 255)
SetSpriteColor(postright, 255 ,255, 0, 255)

SetSpriteSize(ball, 20, 20)
SetSpriteSize(postleft, 5, 5)
SetSpriteSize(postright, 5, 5)

SetSpritePosition(postleft, 350, 700)
SetSpritePosition(postright, 450, 700)
SetSpritePosition(ball, 400, 700)

held = 0
flying = 0
launching = 0
do
	px = GetPointerX()
	py = GetPointerY()
	if GetPointerPressed()
		if GetSpriteHitTest(ball, px, py)
			held = 1
		endif
	endif
	
	if GetPointerState()
		if held
			if GetSpriteY(ball) < GetSpriteY(postleft)
				held = 0
				SetSpritePosition(ball, launchX, launchY)
			else
				SetSpritePosition(ball, px, py)
			endif
		endif
	endif
	
	if not(GetPointerState())
		if held
			held = 0
			launching = 1
			SetSpritePhysicsOn(ball, 2)
			SetSpritePhysicsVelocity(ball, (launchX - GetSpriteX(ball)) * bandForce, (launchY - GetSpriteY(ball))*bandforce)
		endif
	endif
	
	if launching
		if GetSpriteY(ball) < launchY	
			launching = 0
			flying = 1
		endif
	endif
		
	if flying
		if GetSpriteY(ball) > 770
			flying = 0
			SetSpritePosition(ball, launchX, launchY)
			SetSpritePhysicsOff(ball)
		endif
		DrawLine(GetSpriteX(postleft), GetSpriteY(postleft), GetSpriteX(postright), GetSpriteY(postright), 0xFFFFFF, 0xFFFFFF)
	else		
		DrawLine(GetSpriteX(postleft), GetSpriteY(postleft), GetSpriteX(ball), GetSpriteY(ball) + GetSpriteHeight(ball), 0xFFFFFF, 0xFFFFFF)
		DrawLine(GetSpriteX(ball), GetSpriteY(ball) + GetSpriteHeight(ball), GetSpriteX(ball) + GetSpriteWidth(ball), GetSpriteY(ball) + GetSpriteHeight(ball), 0xFFFFFF, 0xFFFFFF)
		DrawLine(GetSpriteX(postright), GetSpriteY(postright), GetSpriteX(ball) + GetSpriteWidth(ball), GetSpriteY(ball) + GetSpriteHeight(ball), 0xFFFFFF, 0xFFFFFF)
	endif
		
	sync()
loop