Hello,
You can find my Blitz remake of Ocean's Hunchback here:
http://www.retroremakes.com/forum2/showthread.php?t=8517
You can find my Blitz remake of Ocean's Hunchback here:
http://www.retroremakes.com/forum2/showthread.php?t=8517
' Swinging Rope ' =================== SuperStrict Framework BRL.GLMax2D ' Setup & initialise variables Const sw% = 640, sh% = 400 ' display dimensions Type ropeType Field ropeX#, ropeY# ' ropes x/y anchor point Field length# ' length of rope Field speed# ' ropes speed Field accel! ' ropes acceleration Field ropebend# ' increase to reduce amount of bend# Field ropemid# = 90 ' middle resting direction (Try 270!) Field angle# = ropemid + 5 ' initial starting angle Field ropedir% = 1 ' ropes direction -1 or 1 for left/right ' Method Params(rx#,ry#,ln#, rspeed#,racc!,rbend#) ropeX=rx ; ropeY=ry ; length=ln speed=rspeed ; accel=racc ; ropebend=rbend End Method ' Method Draw() Local ropePX# , ropePY# If angle < ropemid speed:+(accel*ropedir) Else speed:-(accel*ropedir) End If angle=angle+speed*ropedir If speed<.01 ropedir=-ropedir ; speed=0.0 EndIf SetColor 200,172,7 For Local rad%=1 To length Step 7 Local bend#=(angle-ropemid)/ropebend Local ang#=angle+bend*rad ropePX#=ropeX#+Cos(ang)*rad ropePY#=ropeY#+Sin(ang)*rad DrawOval ropePX,ropePY,8,12 Next ' the bottom End of the rope SetColor 10,50,10 DrawOval ropepx,ropepy,10,11 End Method End Type Global rope:ropeType=New ropeType ' set ropes position and swing behaviour ' Params = X Y Length SwingSpeed SwingAcceleration BendRestiction rope.Params sw/2, sh/4, sw/3, 1.6, 0.054, 376 ' display settings AppTitle="Swinging Rope" SetGraphicsDriver GLMax2DDriver() Graphics sw,sh,0,40 SetClsColor 14,97,40 ' Main loop While Not KeyHit(KEY_ESCAPE) Cls rope.Draw Flip Wend End