Spanned jump

[ATLUS]

ver.01  :)

PlayBASIC Code: [Select]

; PROJECT : Project1
; AUTHOR  : ATLUS
; CREATED : 13.09.2009
; EDITED  : 13.09.2009
; ---------------------------------------------------------------------

setfps 60
x#=100
y#=300
f=0
acsl#=1
spd#=0
spdx#=0
do
   cls rgb(0,0,0)
   if spacekey()=true
      f=1
      spd#=-10
   endif
   if f=1
      if spd#<=100
         if spdx#<=100
         x#=x#+spdx#
         y#=y#+spd#
         spd#=spd#+2
         spdx#=spdx#+0.4
      endif
endif
endif
   
   if y#>300
      y#=300
      f=0
   endif
   circle x#,y#,20,1
   sync
loop
               

[ATLUS]

ver.02

PlayBASIC Code: [Select]

setfps 60
x#=100
y#=300
f=0
acsl#=1
spd#=0
spdx#=0
do
   cls rgb(0,0,0)
   if spacekey()=true
      f=1
      spd#=-10
endif
if f=1
   if spd#<=100
      if spdx#<=100
      x#=x#+CosRadius(45,spdx#)
      y#=y#+SinRadius(90,spd#)
      spd#=spd#+2
      spdx#=spdx#+0.4
endif
endif
endif
   

   if y#>300
      y#=300
      f=0
   endif

   circle x#,y#,20,1
   sync
loop

ver.03
-corrected curve jump

PlayBASIC Code: [Select]

setfps 60
x#=100
y#=300
f=0
acsl#=1
spd#=0
spdx#=0

verspd#=2
gorspd#=0.4
gorangl#=60
verangl#=90
do
   cls rgb(0,0,0)
   if spacekey()=true
      f=1
      spd#=-10
      spdx#=10
endif
if f=1
   if spd#<=100
      if spdx#<=100
      x#=x#+CosRadius(gorangl#,spdx#)
      y#=y#+SinRadius(verangl#,spd#)
      spd#=spd#+verspd#
      spdx#=spdx#+gorspd#
endif
endif
endif
if y#>300
      y#=300
      f=0
endif
if leftkey()=true and f=false
x#=x#-5

endif
if rightkey()=true and f=false
x#=x#+5

endif
      
   line 0,320,800,320   
   circle x#,y#,20,1
   text 10,500,x#
   text 10,510,y#
   sync
loop