Sorry your browser is not supported!

wait key

s:

rem Clear screen
  cls

  rem Decide how many overlays
  t = (rnd(3)+1)

  rem Now loop through the number of overlays
  for xt = 1 to t

  rem get random centre point
    cx = rnd(640)
    cy = rnd(480)
    randomize (timer()*xt)+int(i#)

    rem Random Colour
    ink rgb(rnd(255),rnd(255*2),rnd(255*3)),0

    rem Create sphere of lines
    for i# = 1 to 360

      x = cx+sin(i#)*3200
      y = cy++cos(i#)*2400
      line cx,cy,x,y

    next i

  next xt

  ink rgb(255,255,255),0


  rem Update screen
  sync

  wait key

  goto s

HIDE MOUSE
CIRCLE 300, 300, 50
FOR T=1 TO 400
DOT RND(650), RND(650)
NEXT T
WAIT KEY

suspend for mouse

sync on
sync rate 40
autocam off
ink rgb(255,55,55),0
for a=1 to 10 step +2
   box (a-1)*64,0,((a-1)*64)+64,480
next a
get image 1,0,0,640,480
make object plain 1,300,300
set object transparency 1,1
texture object 1,1
scale object texture 1,2,2
position object 1,0,0,0
make object plain 2,300,300
set object transparency 2,1
texture object 2,1
scale object texture 2,2,2
zrotate object 2,90
position object 2,-15,15,0
position camera -15,0,-120
color backdrop 0
do
   zrotate object 1,wrapvalue(object angle z(1)+2)
   zrotate object 2,wrapvalue(object angle z(2)-1)
   sync
loop

sync on
sync rate 40
autocam off
backdrop on: color backdrop 0
make object cube 1,100
set object cull 1,0
ghost object on 1
position object 1,0,0,200
create bitmap 1,100,100
do
set current bitmap 1
i=0:i3 = rnd(50)
   for i2 = 1 to i3
   i= wrapvalue(i+(360/i3))
   ink rgb(255,rnd(128),rnd(255)),0
   dot 50+cos(i)*i2,50+sin(i)*i2
   next i2
   get image 1,0,0,100,100
set current bitmap 0
yang=wrapvalue(yang + 1)
yrotate object 1,yang
xrotate object 1,yang
texture object 1,1
sync
loop

Sync On
Sync Rate 40
Hide Mouse
Color Backdrop 0

Type Coords
   x As Float
   y As Float
EndType

REM Draw Mouse Cursor
Cls
Line 1,1,1,12
Line 2,2,2,12
Line 3,3,3,11
Line 4,4,4,10
Line 5,5,5,11
Line 6,6,6,8
Line 6,11,6,13
Line 7,13,7,15
Dot 7,7
Dot 8,15
Get Image 1,1,1,8,15

REM Have to be 2 or more.
NrOfTrails=5
Dim Trail(NrOfTrails) As Coords

For Objects=1 To NrOfTrails
   Make Object Plain Objects,8,15
   Texture Object Objects,1
   If Objects>1 Then Ghost Object On Objects
Next Objects

Position Camera 0,0,-100

Do
   Move Object Right 1,MouseMoveX()
   Move Object Up 1,MouseMoveY()
   Trail(1).x=Object Position X(1)
   Trail(1).y=Object Position Y(1)
   For Trails=NrOfTrails To 2 Step-1
      Trail(Trails).x=Trail(Trails-1).x
      Trail(Trails).y=Trail(Trails-1).y
      Position Object Trails,Trail(Trails).x,Trail(Trails).y,0
   Next Trails
   Sync
Loop

Sync On
Sync Rate 40
Hide Mouse
Color Backdrop 0

Type Coords
   x As Float
   y As Float
EndType

REM Draw Mouse Cursor
Cls
Line 1,1,1,12
Line 2,2,2,12
Line 3,3,3,11
Line 4,4,4,10
Line 5,5,5,11
Line 6,6,6,8
Line 6,11,6,13
Line 7,13,7,15
Dot 7,7
Dot 8,15
Get Image 1,1,1,8,15

REM Have to be 2 or more.
NrOfTrails=20
Dim Trail(NrOfTrails) As Coords

For Objects=1 To NrOfTrails
   Make Object Plain Objects,8,15
   Texture Object Objects,1
   If Objects>1 Then Ghost Object On Objects
Next Objects

Position Camera 0,0,-100

Do
   Move Object Right 1,MouseMoveX()
   Move Object Up 1,-MouseMoveY()
   Trail(1).x=Object Position X(1)
   Trail(1).y=Object Position Y(1)
   For Trails=NrOfTrails To 2 Step-1
      Trail(Trails).x=Trail(Trails-1).x
      Trail(Trails).y=Trail(Trails-1).y
      Position Object Trails,Trail(Trails).x,Trail(Trails).y,0
   Next Trails
   Sync
Loop

Sync On
Sync Rate 40
Hide Mouse
Color Backdrop 0

Type Coords
   x As Float
   y As Float
EndType

REM Draw Mouse Cursor
Cls
Line 1,1,1,12
Line 2,2,2,12
Line 3,3,3,11
Line 4,4,4,10
Line 5,5,5,11
Line 6,6,6,8
Line 6,11,6,13
Line 7,13,7,15
Dot 7,7
Dot 8,15
Get Image 1,1,1,10,18

REM Have to be 2 or more.
NrOfTrails=7
Dim Trail(NrOfTrails) As Coords

For Objects=1 To NrOfTrails
   Make Object Plain Objects,8,18
   Texture Object Objects,1
   Scale Object Texture Objects,0.9,0.9
   If Objects>1 Then Ghost Object On Objects
Next Objects

Position Camera 0,0,-300

Do
   Move Object Right 1,MouseMoveX()
   Move Object Up 1,-MouseMoveY()
   Trail(1).x=Object Position X(1)
   Trail(1).y=Object Position Y(1)
   For Trails=NrOfTrails To 2 Step-1
      Trail(Trails).x=Trail(Trails-1).x
      Trail(Trails).y=Trail(Trails-1).y
      Position Object Trails,Trail(Trails).x,Trail(Trails).y,0
   Next Trails
   Sync
Loop

REM *************************************************************
REM ******* Simple crosshair with the 2D drawing commands *******
REM *************************************************************
REM Writen by Benjamin R Wharton 
REM This took me just 6 minutes to do!

REM Set up the program 
SET DISPLAY MODE 800,600,16
HIDE MOUSE
SYNC ON
SYNC RATE 0

REM Main loop
DO

REM Clear the screen first
CLS

REM The simple crosshair
LINE 0,MOUSEY(),800,MOUSEY()
LINE MOUSEX(),0,MOUSEX(),600

REM Outside parts
LINE MOUSEX()-50,MOUSEY(),MOUSEX(),MOUSEY()-50
LINE MOUSEX()+50,MOUSEY(),MOUSEX(),MOUSEY()+50
LINE MOUSEX()-50,MOUSEY(),MOUSEX(),MOUSEY()+50
LINE MOUSEX()+50,MOUSEY(),MOUSEX(),MOUSEY()-50

REM Insides
LINE MOUSEX()-10,MOUSEY(),MOUSEX(),MOUSEY()-10
LINE MOUSEX()+10,MOUSEY(),MOUSEX(),MOUSEY()+10
LINE MOUSEX()-10,MOUSEY(),MOUSEX(),MOUSEY()+10
LINE MOUSEX()+10,MOUSEY(),MOUSEX(),MOUSEY()-10

SYNC
LOOP

x0=320:y0=240

do
ink rgb(127*sin(t)+127,0,127*cos(t)+127),0

x1=x0+5*sin(ang): y1=y0+5*cos(ang)

if x1>640 then x0=0: x1=0
if x1<0 then x0=640: x1=640
if y1>480 then y0=0: y1=0
if y1<0 then y0=480: y1=480


line x0,y0,x1,y1

x0=x1:y0=y1

inc ang,rnd(60)-30

t=wrapvalue(t+1)

loop