Sorry your browser is not supported!

autocam off
sync on
_floor=1000
make object box _floor,300,2,300
color object _floor,rgb(0,155,0)

make object box 1,10,10,10
color object 1,rgb(100,0,0)
position camera -100,100,-100
point camera 0,0,0

do
`setting animation  -----------------------------------------------
loop object 1,1,10
fr=object frame(1)
set object speed 1,2
if fr=1 then move object up 1, 0.3
if fr=3 then move object 1,0.4
if fr=5 then move object down 1,0.3:perform csg difference _floor,1
`------------------------------------------------------------------
sync
loop

autocam off
sync on
_floor=1000
make object box _floor,300,2,300
color object _floor,rgb(0,155,0)

make object box 1,10,10,10
color object 1,rgb(100,0,0)
position camera -100,100,-100
point camera 0,0,0

randomize 140549

do
`setting animation  -----------------------------------------------
text 20, 20, "FPS = "+str$(screen fps())
loop object 1,1,10
fr=object frame(1)
set object speed 1,2
if fr=1 then move object up 1, 0.3
`if fr=3 then move object 1,0.4
if fr=3 then position object 1, object position x(1) + (rnd(5)-2.5)*1, object position y(1), object position z(1) + (rnd(5)-2.5)*1
if fr=5 then move object down 1,0.3:perform csg difference _floor,1
`------------------------------------------------------------------
sync
loop

autocam off
sync on
_floor=1000
make object box _floor,300,2,300
rem load object "test.dbo",1000
color object _floor,rgb(0,155,0)

make object box 1,10,10,10
color object 1,rgb(100,0,0)

make object box 2,10,10,10
hide object 2

position camera -150,150,-150
point camera 0,0,0

randomize 140549

do
`setting animation  -----------------------------------------------
text 20, 20, "FPS = "+str$(screen fps())
loop object 1,1,10
fr=object frame(1)
set object speed 1,2
if fr=1 then move object up 1, 0.3
`if fr=3 then move object 1,0.4
if fr=3 then position object 1, object position x(1) + (rnd(5)-2.5)*1, object position y(1), object position z(1) + (rnd(5)-2.5)*1
position object 2,object position x(1),0,object position z(1)
if fr=5 then move object down 1,0.3
if fr=8
   f=f+1
   if f=2 then perform csg difference _floor,2
   else
   f=0
endif
if spacekey()
    if file exist ("test.dbo") then  delete file "test.dbo"
    save object "test.dbo",1000:sleep 200
endif
`------------------------------------------------------------------
sync
loop

if fr=1 then move object up 1, 0.3
if fr = 2 then save object "model.dbo", _floor : delete object _floor : load object "model.dbo", _floor : delete file "model.dbo"
`if fr=3 then move object 1,0.4
if fr=3 then position object 1, object position x(1) + (rnd(5)-2.5)*1, object position y(1), object position z(1) + (rnd(5)-2.5)*1
if fr=5 then move object down 1,0.3:perform csg difference _floor,1

if fr=1 then move object up 1, 0.3
if fr = 2 then make mesh from object 1, _floor : save mesh "model.x", 1 : delete mesh 1 : delete object _floor : load object "model.x", _floor : color object _floor,rgb(0,155,0) : delete file "model.x"
`if fr=3 then move object 1,0.4
if fr=3 then position object 1, object position x(1) + (rnd(5)-2.5)*1, object position y(1), object position z(1) + (rnd(5)-2.5)*1
if fr=5 then move object down 1,0.3:perform csg difference _floor,1

ink rgb(100,100,200),0
box 0,0,100,100
ink rgb(200,0,0),0
box 15,15,85,85
ink rgb(0,200,0),0
box 20,40,30,60
ink rgb(255,255,0),0
for i= 1 to 30
ellipse 70,50,i,i
next i
ink rgb(0,0,50),0
for i= 1 to 24
ellipse 70,50,i,i
next i
get image 1,0,0,100,100,1
`********************************************************
autocam off
sync on

make object box 1000,20,2,20
make object box 1001,12,10,12
perform csg difference 1000,1001:delete object 1001
hide object 1000

for i= 1 to 25
   for a= 1 to 25
      inc ob
      clone object ob,1000
      position object ob,i*20,0,a*20
   next a
next i
delete object 1000

make object box 1002,0,0,0
for i= 1 to 625
   make mesh from object i,i
   add limb 1002,i,i
   offset limb 1002,i,object position x(i),0,object position z(i)
   delete object i
next i
make mesh from object 1,1002:delete object 1002
make object 1,1,1

`giving UV to the whole mesh
lock vertexdata for limb 1,0
vertices = get vertexdata vertex count()
for i= 0 to vertices
   x# = get vertexdata position x(i)
   y# = get vertexdata position y(i)
   z# = get vertexdata position z(i)
   set vertexdata uv i,x#,-z#
next i
unlock vertexdata
scale object texture 1,0.002,0.002

position camera -50,150,-150
point camera 0,0,0

do
ink rgb(255,255,255),0
set cursor 0,0
print screen fps()

control camera using arrowkeys 0,0.5,0.5
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.5
if rightkey() then move camera right 0.5
sync
loop

autocam off
sync on
make object box 1000,20,2,20
make object box 1001,8,10,8
perform csg difference 1000,1001:delete object 1001
make mesh from object 1,1000:delete object 1000

for i= 1 to 25
   for a= 1 to 25
      inc ob
      make object box ob,20,2,20
      position object ob,i*20,0,a*20
   next a
next i


position camera 250,100,-50
point camera 0,0,0

do
set cursor 0,0
print "FPS  ",screen fps()
print "Press Spacekey to make booleans"

if spacekey()
   lim=1+rnd(624)
   change mesh lim,0,1
endif


control camera using arrowkeys 0,0.5,0.5
a#=wrapvalue(a#+mousemovex()/2)
cam#=wrapvalue(cam#+mousemovey()/2)
rotate camera cam#,a#,0
if leftkey() then move camera left 0.5
if rightkey() then move camera right 0.5
sync
loop