Sorry your browser is not supported!

Rem Make Sprite
circle 10,10,10
line 10,0,10,10
get image 1,0,0,21,21

Rem start loop
Sync On
Do

if leftkey() or rightkey()
   x# = x# + (rightkey() - leftkey())
endif

if upkey() or downkey()
   y# = y# + (downkey() - upkey())
endif

sprite 1,x#,y#,1 : scale sprite 1,200

sync
loop

box 2,2,26,26
ink rgb(0,0,0),0
line 2,12,26,12
line 12,2,12,26
get image 1,2,2,24,24
cls
ink rgb(255,255,255),0
Rem Make Sprite
circle 10,10,10
line 10,0,10,10
get image 2,0,0,21,21

make object plain 1,640,480
position object 1,0,0,400
`xrotate object 1,90
position camera 0,0,0,0
point camera 0,0,0,50
lock object on 1
texture object 1,1
scale object texture 1,32,24



Rem start loop
Sync On
Do

if leftkey() or rightkey()
   x# = x# + (rightkey() - leftkey())
endif

if upkey() or downkey()
   y# = y# + (downkey() - upkey())
endif

sprite 1,x#,y#,2 : scale sprite 1,200

if x# =< 0
   x# = 0
   scroll object texture 1,-0.05,0
endif
if x# => screen width()-sprite width(1)
   x# = screen width()-sprite width(1)
   scroll object texture 1,0.05,0
endif
if y# =< 0
   y# = 0
   scroll object texture 1,0,-0.05
endif
if y# => screen height()-sprite height(1)
   y# = screen height()-sprite height(1)
   scroll object texture 1,0,0.05
endif

sync
loop

box 2,2,26,26
ink rgb(0,0,0),0
line 2,12,26,12
line 12,2,12,26
get image 1,2,2,24,24
cls
ink rgb(255,255,255),0
Rem Make Sprite
circle 10,10,10
line 10,0,10,10
get image 2,0,0,21,21

make object plain 1,640,480
position object 1,0,0,400
`xrotate object 1,90
position camera 0,0,0,0
point camera 0,0,0,50
lock object on 1
texture object 1,1
scale object texture 1,32,24



Rem start loop
Sync On
Do

if leftkey() or rightkey()
   x# = x# + (rightkey() - leftkey())
endif

if upkey() or downkey()
   y# = y# + (downkey() - upkey())
endif

sprite 1,x#,y#,2 : scale sprite 1,200

if x# =< 50
   x# = 50
   scroll object texture 1,-0.05,0
endif
if x# => screen width()-sprite width(1)-50
   x# = screen width()-sprite width(1)-50
   scroll object texture 1,0.05,0
endif
if y# =< 50
   y# = 50
   scroll object texture 1,0,-0.05
endif
if y# => screen height()-sprite height(1)-50
   y# = screen height()-sprite height(1)-50
   scroll object texture 1,0,0.05
endif

sync
loop

Top:
input "Enter: ", ent$

wrdLen = len(ent$)
dim letStr(wrdLen) As String
dim letVal(wrdLen)

for chr = 1 to wrdLen
   letStr(chr) = mid$(ent$,chr)
      if asc(letStr(chr)) => 48 and asc(letStr(chr)) =< 57
         letVal(chr) = val(mid$(ent$,chr))
            else
         letVal(chr) = 0
      endif
next chr

print "What you have input: ", ent$
print "total letters including spaces: ", chr-1

print "Characters you have typed forwards: ";
for t = 1 to wrdLen
   print letStr(t)," ";
next t
print

print "These are numbers in the string: "
for t = 1 to wrdLen
   if letVal(t) > 0
      print letVal(t);
   endif
next t
print

print "Characters you have typed backwards: ";
repeat
   print letStr(wrdLen)," ";
   dec wrdLen,1
until wrdLen = 0
print

wait key
if escapekey()
   end
      else
   goto Top
endif

Dim Test(1,2) As Integer
backdrop on : sync on
do
text 0,630,"click mouse"
if mouseclick() = 1 and mouseClicked = 0 then mouseClicked = 1
   if mouseClicked = 1
      mouseClicked = 2

         a = a + 1
         Dim Test(a,2) As Integer

            inc mouse, 1
            if mouse > 1 then mouse = 0
   endif
if mouseclick() = 0 then mouseClicked = 0

Test(a,2) = a
set cursor 0,0
print "Test("+str$(Test(a,2))+",2)"
sync
loop

type Cord
x,y As Integer
EndType

type Obj
pos As Cord
ang,num,size As Integer
EndType

p As Obj
p.num = 1
p.ang = 90

box 0,0,10,10 : ink rgb(0,0,0),0 : line 5,0,5,5 : get image 1,0,0,10,10
ink rgb (255,0,0),0 : box 0,0,10,10 : ink rgb(0,0,0),0 : line 5,0,5,5 : get image 2,0,0,10,10

sprite p.num, 200,200, 1 : offset sprite p.num,5,5
p.size = sprite width(p.num)

rotate sprite p.num, p.ang

oldx# = sprite x(1)
sync on
do

move sprite p.num, 0.1
newx# = sprite x(1)

if newx# => p.size * 5 + oldx#
   rotate sprite p.num, -p.ang
endif
if newx# =< p.size * -5  + oldx#
   rotate sprite p.num, p.ang
endif

sync
loop

REM MAKES A 2D BOX WÝTH THE SIZE OF 24X24 WITH BLACK LINES CUTTING FROM MIDDLES
box 2,2,26,26
ink rgb(0,0,0),0
line 2,12,26,12
line 12,2,12,26
get image 1,2,2,24,24 `WE GET THE IMAGE OF THE TEXTURE HERE
cls `CLEAN THE SCREEN FOR ANOTHER IMAGE

ink rgb(255,255,255),0 `COLOR
circle 10,10,10
line 10,0,10,10
get image 2,0,0,21,21 `SECOND IMAGE TO USE AS THE PLAYER

make object plain 1,640,480 `MAKE A BACKGROUND WITH A 3D PLAIN
position object 1,0,0,400 `PLACE IT ACCORDINGLY SO CAMERA LOOKS AT IT
`xrotate object 1,90
position camera 0,0,0,0
point camera 0,0,0,50
lock object on 1
texture object 1,1 `TEXTURE THE BACKGROUND WITH BLOCKS TEXTURE
scale object texture 1,32,24 `SCALE THE TEXTURE TO SHOW MANY BLOCKS



Rem start loop
Sync On
Do

if leftkey() or rightkey()
   x# = x# + (rightkey() - leftkey()) `INCREASE OR DECREASE X DEPENDING ON KEY PRESSED
endif

if upkey() or downkey()
   y# = y# + (downkey() - upkey()) `INCREASE OR DECREASE Y DEPENDING ON KEY PRESSED
endif

sprite 1,x#,y#,2 : scale sprite 1,200 `POS PLAYER SPRITE ON X AND Y WITH THE SECOND IMAGE

if x# =< 0 `CHECK IF PLAYER X IS LESS THAN SCREEN BORDER X
   x# = 0
   scroll object texture 1,-0.05,0 `IF SO, SCROLL THE BACKGROUND TEXTURE APPROPRIATELY
endif
if x# => screen width()-sprite width(1)
   x# = screen width()-sprite width(1)
   scroll object texture 1,0.05,0 `SAME AS ABOVE FOR MORE THAN SCREEN BORDER X
endif
if y# =< 0 `SAME CONCEPT AS ABOVE
   y# = 0
   scroll object texture 1,0,-0.05
endif
if y# => screen height()-sprite height(1)
   y# = screen height()-sprite height(1)
   scroll object texture 1,0,0.05
endif

sync `SYNC THE INBETWEENS OF THE LOOP
loop

rem "thrust" example - using sin and cos to calculate movevment in one plane
rem by aristides mytaras

rem make the ship
make object cone 1,60
zrotate object 1,270
fix object pivot 1
scale object 1,150,100,100


rem and its shadow
make object cone 3,60
scale object 3,100,5,100
zrotate object 3,180
ghost object on 3

rem make the ground
make matrix 1,1000,1000,10,10
position matrix 1,0,0,0

hide mouse

z#=200
x#=200
camx#=200
y#=100
zangle#=90
sync on

rem main loop
do

rem check mouse movement and add to sideways momentum (so it goes nice and smooth)
mmx#=mousemovex()
momenx#=momenx#+mmx#/3

rem ...or, use the arrow keys
if rightkey()=1 then momenx#=momenx#+3
if leftkey()=1 then momenx#=momenx#-3

rem add momentum to the angle
momenx#=momenx#*0.85
zangle#=zangle#+momenx#/-2
zangle#=wrapvalue(zangle#)

rem thruster
if controlkey()=1 or mouseclick()=1
   thruststep#=thruststep#+.02
   rem xvel# and yvel# is the velocity of the object on the x and y plane
   rem use the cos(zangle#) to calculate how much the object should move
   rem ...on the x plane with the thrust of thruststep#
   xvel# = xvel# + (thruststep# * cos(zangle#))
   rem ...and do likewise for y.
   yvel# = yvel# + (thruststep# * sin(zangle#))
endif

rem friction and gravity
thruststep#=thruststep#*0.95
xvel#=xvel#*0.96
yvel#=yvel#*0.96
zvel#=zvel#*0.96
yvel#=yvel#-0.1

rem add velocity to position
lastx#=x#:lasty#=y#:lastz#=z#
x#=x#+xvel#
y#=y#+yvel#
z#=z#+zvel#

rem bounce off ground
if y#<15 then y#=lasty#:yvel#=yvel#*-0.8

rem handle the rotation...
zrotate object 1,zangle#
rem ...and scale the shadow accordingly
scale object 3,100*sin(zangle#),10,100

position object 1,x#,y#,z#
position object 3,x#,0,z#

rem smooth camera
camx#=curvevalue(x#,camx#,50)
camy#=curvevalue(y#+30,camy#,50)
camz#=curvevalue(z#-600,camz#,50)
position camera camx#,camy#,camz#
point camera x#,y#,z#

sync
loop