physic & AI - Challenges - GameCreators Forum

Author

Message

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 27th May 2008 15:18 Edited at: 14th Nov 2008 23:26

Link

Edit

!********************************************************!
!************* The Fireworks Challenge ******************!
!********************************************************!

Here is the new challenge

the rules are as follows.
(1)It must explode.
(2)It must have a way to lauch, ie fired from the gound and exploded from a plunge box.
(3)There can be more than one firework.
(4)And as always no media

This challenge ends on the 14th of December, this was made as a follow up to the 5th of Novenbers bombfire night end date for the spinning tops challenege.
Have fun making your fireworks & as always good luck to all who enter.

go to last page to see the final post

!*****************************************************!
!************** The Spinning Top Challenge *******************!
!*****************************************************!

The Spinning Top challenge is now over, but if you wont to post your work here then fell free to do so.

Here it is a new challenge by HowDo.

the rules are as follows.
(1) It must spin.
(2) It must have a way to lauch, ie fired from a gun or sling etc.
(3) There can be more than one spinning top.
(4) And as always no media

This challenge ends on the 5th of Novenber, so remember remember the 5th of Novenber, gun powder plot & toil.
Have fun making your spining tops & as alway good luck to all how enter.

go to last page to see the final post

!*********************************!
!*****RUBE GOLDBERG CHALLENGE*****!
!*********************************!

The RUBE GOLDBERG challenge is now over, but if you wont to post your work here then fell free to do so.

the new challenge by bergice
winner of the last physic & AI challenge

If you dont know what a rube goldberg machine is then: http://www.youtube.com/watch?v=1kvdq8cRNBM

This will be built with Dark Physics.

Try to be creative and take advantage of cloth, joints, and other things to make the best rube goldberg

Remember NO MEDIA.

Have fun and remember, this doesnt have to be the best, so dont work too much on it

this challenge starts 20th Aug 2008 and will finsh on 20th Sep 2008

*****************
*** FPS Challenge ***
*****************

FPS challenge is now over, but if you wont to post your work here then fell free to do so.

howdy all, I hope you like a challenges.
I`v added an FPS challenge, so that you peps have got some thing to work on.

try hard to make a good FPS game, It could be the type of thing that you would send to a games company.

Use all the things you like in a next or old gen game.
the only rules are use dark physic or AI you don`t have to use both, and have no loaded media in your games, only programed media is excepted.

I`ll add a game of my own to this post, but won`t add my own game to the challenge itself, be`cos my judgment would be a bit unfair.

you have one month two get it done, I`ll pick the winner, and who ever wins, it would be nice if you would pick the next challenge.

Add a post to enter!

I`v added links to other posts to help get you started.

this is from my raycasting post.
http://forum.thegamecreators.com/?m=forum_view&t=127692&b=30

her is a bergice post that I have posted to.
http://forum.thegamecreators.com/?m=forum_view&t=127715&b=30

her is a Markswii post that I have posted to, as well as added a image download to.
http://forum.thegamecreators.com/?m=forum_view&t=125961&b=30

here is a Ric post that has other challenges on, its a none physics or AI post, but it is very interesting.
http://forum.thegamecreators.com/?m=forum_view&t=48011&b=1

heres a new one I`v posted to by the user Aero81, this post is about fluid emitter, this gave me an idea about making my NPC bleeding out fluid, NICE!
http://forum.thegamecreators.com/?m=forum_view&t=130317&b=30

here is a link posted by Lukas W, and its all about his FPS his working on.
http://forum.thegamecreators.com/?m=forum_view&t=131461&b=30&p=0

here is a link to a Fa1con post, it all about AI
luck.[/b]http://forum.thegamecreators.com/?m=forum_view&t=126519&b=30&p=0

[b]have fun and good

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Back to top

Profile PM Email Website

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 27th May 2008 16:55

Link

I have made a media less game with dark physics which is a kind of sanbox game!

I will re-make it and upload

Dont delete my sig mods, it is 600X120...
Slash!

Back to top

Profile PM Email

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 27th May 2008 19:56 Edited at: 27th May 2008 20:01

Link

Here is a beta of my sandbox

I will include other functions like "make tower","make wall","make domino" and other things.

There will be missions.

They will be RUBE GOLDBERG MACHINE mission styled

For example, you must make a slide to drop a ball into a wall so it can get through

[EDIT]

No help info or anything on that one.
I am fastly working on this

Dont delete my sig mods, it is 600X120...
Slash!

Attachments

Login to view attachments

Back to top

Profile PM Email

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 27th May 2008 21:47

Link

Here is the beta version 2

REM Project: Sandbox_MEDIALESS
REM Created: 27.05.2008 17:57:05
REM
REM ***** Main Source File *****
REM

rem Setup
randomize 1
phy start
phy set gravity 0,-150,0
sync on
sync rate 60
hide mouse
autocam off

setworld()
position camera 40,50,40
point camera 0,0,0
setmouse()

global startobj = 4
   global curobj = 4
   global curmakeid = 1
   global curmaxid = 10

global sel

global oldm

global grass = 1
   global dirt = 2
   global metal = 3
   global wood = 4
   global brick = 5

maketexture(grass,rgb(100,230,60),rgb(230,30,60),300,50,50)
      maketexture(dirt,rgb(160,150,60),rgb(230,60,100),400,40,40)
      maketexture(metal,rgb(120,130,170),rgb(150,150,210),400,60,60)
      maketexture(wood,rgb(190,150,110),rgb(200,130,130),600,70,70)
      maketexture(brick,rgb(240,130,130),rgb(170,165,170),700,60,60)

make object box 1,500,5,500
   phy make rigid body static box 1
   texture object 1,1

make object box 3,5,10,5
phy make box character controller 3,0.0,100.0,0.0,5.0,10.0,5,1,20.0,45.0
hide object 3

do

ink rgb(150,255,175),0
   text 0,20,"Current objects: " + str$(curobj)
   text 0,40,"Object create id: " + str$(curmakeid)
   text 0,60,"Frames per second: " + str$(screen fps())

yrotate object 2,object angle y(2)+0.25
   position object 2,camera position x(),camera position y(),camera position z()

phy move character controller 3,0
   position camera object position x(3),object position y(3),object position z(3)
   if keystate(17) then phy move character controller 3,50
   if keystate(31) then phy move character controller 3,-30
   if shiftkey()= 0 then camcon()

if sel <= 0
      if curmakeid > curmaxid then curmakeid = 1
      if curmakeid < 1 then curmakeid = curmaxid
      if mousemovez() > 0 then inc curmakeid,1
      if mousemovez() < 0 then dec curmakeid,1
   endif

if mouseclick() = 2 and oldm <> 2 then makeobj()

if mouseclick() = 1 then selobj()

sprite 1,mousex(),mousey(),999

oldm = mouseclick()

phy update
 sync
loop

function setworld()

fog on
fog color rgb(100,110,230)
fog distance 5000
set camera range 1,5100

backdrop off
make object sphere 2,-5000

create bitmap 2,10,50

inc rgb(100,110,230),rgb(100,110,230)
     box 0,0,50,50

curcolb = 100

for i = 1 to 50
         inc curcolb,2
         ink rgb(60,60,curcolb),0
         line 1,i,10,i
      next i

get image 999,1,1,10,50

delete bitmap 2

texture object 2,999
set object fog 2,0
xrotate object 2,180

endfunction

function camcon()
   nay = mousemovex()
   nax = mousemovey()
   rotate camera camera angle x()+nax,camera angle y()+nay,0
   rotate object 3,camera angle x()+nax,camera angle y()+nay,0
endfunction

function makeobj()

select curmakeid

case 1
      make object box curobj,10,10,10
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic box curobj
      texture object curobj,metal
   endcase

case 2
      make object sphere curobj,10+rnd(5)
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic sphere curobj
      texture object curobj,wood
   endcase

case 3
         for cx = 1 to 50 step 10
            for cy = 1 to 20 step 5
               make object box curobj,10,5,7
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
   endcase

case 4
      for cc = 1 to 50 step 11
         for cx = 1 to 50 step 11
            for cy = 1 to 40 step 11
               make object box curobj,10,10,10
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)+cc
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
      next cc
   endcase

endselect

inc curobj,1

endfunction

function selobj()

sel = pick object(mousex(),mousey(),startobj,curobj)

if sel > 1
      repeat
         ink rgb(150,255,175),0
         text 0,20,"Current objects: " + str$(curobj)
         text 0,40,"Object create id: " + str$(curmakeid)
         text 0,60,"Frames per second: " + str$(screen fps())
         sprite 1,mousex(),mousey(),999
         phy add rigid body force sel,mousemovex()*10,mousemovez()*10,mousemovey()*10,5
         phy update
         sync
      until mouseclick() <> 1
   endif

sel = 0

endfunction

function maketexture(id,backcolor,frontcolor,frequency,sizex,sizey)

create bitmap 1,sizex,sizey

ink backcolor,0
      box 0,0,sizex,sizey

ink frontcolor,0
         for i = 1 to frequency
            dot rnd(sizex),rnd(sizey)
         next i

get image id,1,1,sizex,sizey

delete bitmap 1

endfunction

function setmouse()

create bitmap 1,10,10

ink rgb(20,50,230),0

line 1,2,1,5

line 2,1,5,1

line 2,2,10,10

get image 999,0,0,10,10

delete bitmap 1

endfunction

+ Code Snippet

REM Project: Sandbox_MEDIALESS
REM Created: 27.05.2008 17:57:05
REM
REM ***** Main Source File *****
REM

rem Setup
randomize 1
phy start
phy set gravity 0,-150,0
sync on
sync rate 60
hide mouse
autocam off

setworld()
position camera 40,50,40
point camera 0,0,0
setmouse()

   global startobj = 4
   global curobj = 4
   global curmakeid = 1
   global curmaxid = 10

   global sel

   global oldm

   global grass = 1
   global dirt = 2
   global metal = 3
   global wood = 4
   global brick = 5

      maketexture(grass,rgb(100,230,60),rgb(230,30,60),300,50,50)
      maketexture(dirt,rgb(160,150,60),rgb(230,60,100),400,40,40)
      maketexture(metal,rgb(120,130,170),rgb(150,150,210),400,60,60)
      maketexture(wood,rgb(190,150,110),rgb(200,130,130),600,70,70)
      maketexture(brick,rgb(240,130,130),rgb(170,165,170),700,60,60)

   make object box 1,500,5,500
   phy make rigid body static box 1
   texture object 1,1

make object box 3,5,10,5
phy make box character controller 3,0.0,100.0,0.0,5.0,10.0,5,1,20.0,45.0
hide object 3

do

   ink rgb(150,255,175),0
   text 0,20,"Current objects: " + str$(curobj)
   text 0,40,"Object create id: " + str$(curmakeid)
   text 0,60,"Frames per second: " + str$(screen fps())

   yrotate object 2,object angle y(2)+0.25
   position object 2,camera position x(),camera position y(),camera position z()

   phy move character controller 3,0
   position camera object position x(3),object position y(3),object position z(3)
   if keystate(17) then phy move character controller 3,50
   if keystate(31) then phy move character controller 3,-30
   if shiftkey()= 0 then camcon()

   if sel <= 0
      if curmakeid > curmaxid then curmakeid = 1
      if curmakeid < 1 then curmakeid = curmaxid
      if mousemovez() > 0 then inc curmakeid,1
      if mousemovez() < 0 then dec curmakeid,1
   endif

   if mouseclick() = 2 and oldm <> 2 then makeobj()

   if mouseclick() = 1 then selobj()

   sprite 1,mousex(),mousey(),999

   oldm = mouseclick()

  phy update
 sync
loop

function setworld()

fog on
fog color rgb(100,110,230)
fog distance 5000
set camera range 1,5100

backdrop off
make object sphere 2,-5000

   create bitmap 2,10,50

     inc rgb(100,110,230),rgb(100,110,230)
     box 0,0,50,50

      curcolb = 100

      for i = 1 to 50
         inc curcolb,2
         ink rgb(60,60,curcolb),0
         line 1,i,10,i
      next i

      get image 999,1,1,10,50

   delete bitmap 2

texture object 2,999
set object fog 2,0
xrotate object 2,180


endfunction

function camcon()
   nay = mousemovex()
   nax = mousemovey()
   rotate camera camera angle x()+nax,camera angle y()+nay,0
   rotate object 3,camera angle x()+nax,camera angle y()+nay,0
endfunction

function makeobj()

select curmakeid

   case 1
      make object box curobj,10,10,10
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic box curobj
      texture object curobj,metal
   endcase

   case 2
      make object sphere curobj,10+rnd(5)
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic sphere curobj
      texture object curobj,wood
   endcase

   case 3
         for cx = 1 to 50 step 10
            for cy = 1 to 20 step 5
               make object box curobj,10,5,7
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
   endcase

   case 4
      for cc = 1 to 50 step 11
         for cx = 1 to 50 step 11
            for cy = 1 to 40 step 11
               make object box curobj,10,10,10
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)+cc
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
      next cc
   endcase

endselect

inc curobj,1

endfunction

function selobj()

   sel = pick object(mousex(),mousey(),startobj,curobj)

   if sel > 1
      repeat
         ink rgb(150,255,175),0
         text 0,20,"Current objects: " + str$(curobj)
         text 0,40,"Object create id: " + str$(curmakeid)
         text 0,60,"Frames per second: " + str$(screen fps())
         sprite 1,mousex(),mousey(),999
         phy add rigid body force sel,mousemovex()*10,mousemovez()*10,mousemovey()*10,5
         phy update
         sync
      until mouseclick() <> 1
   endif

   sel = 0

endfunction

function maketexture(id,backcolor,frontcolor,frequency,sizex,sizey)

   create bitmap 1,sizex,sizey

      ink backcolor,0
      box 0,0,sizex,sizey

      ink frontcolor,0
         for i = 1 to frequency
            dot rnd(sizex),rnd(sizey)
         next i

      get image id,1,1,sizex,sizey

   delete bitmap 1

endfunction

function setmouse()

   create bitmap 1,10,10

      ink rgb(20,50,230),0

      line 1,2,1,5

      line 2,1,5,1

      line 2,2,10,10

         get image 999,0,0,10,10

   delete bitmap 1

endfunction

Simply copy and paste

And btw, i might consider using Dark Lights

Dont delete my sig mods, it is 600X120...
Slash!

Back to top

Profile PM Email

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 27th May 2008 23:02

Link

More updates!

Just some small ones plus sounds!

The sounds are built-in

Lite:

REM Project: Sandbox_MEDIALESS
REM Created: 27.05.2008 17:57:05
REM
REM ***** Main Source File *****
REM

rem Setup
disable escapekey
randomize 1
phy start
phy set gravity 0,-150,0
sync on
sync rate 60
hide mouse
autocam off

loadsounds()
setworld()
position camera 40,50,40
point camera 0,0,0
setmouse()

global startobj = 4
   global curobj = 4
   global curmakeid = 1
   global curmaxid = 10

global sel

global oldm

global grass = 1
   global dirt = 2
   global metal = 3
   global wood = 4
   global brick = 5

maketexture(grass,rgb(100,230,60),rgb(230,30,60),300,50,50)
      maketexture(dirt,rgb(160,150,60),rgb(230,60,100),400,40,40)
      maketexture(metal,rgb(120,130,170),rgb(150,150,210),400,60,60)
      maketexture(wood,rgb(190,150,110),rgb(200,130,130),600,70,70)
      maketexture(brick,rgb(240,130,130),rgb(170,165,170),700,60,60)

make object box 1,500,5,500
   phy make rigid body static box 1
   texture object 1,1

make object box 3,5,10,5
phy make box character controller 3,0.0,100.0,0.0,5.0,10.0,5,1,20.0,45.0
hide object 3

play sound sintro

do

if keystate(1)
         play sound send
         sleep 1500
         end
   endif

ink rgb(150,255,175),0
   text 0,20,"Current objects: " + str$(curobj)
   text 0,40,"Object create id: " + str$(curmakeid)
   text 0,60,"Frames per second: " + str$(screen fps())

yrotate object 2,object angle y(2)+0.25
   position object 2,camera position x(),camera position y(),camera position z()

phy move character controller 3,0
   position camera object position x(3),object position y(3),object position z(3)
   if keystate(17) then phy move character controller 3,50 : play sound sengine
   if keystate(31) then phy move character controller 3,-30 : play sound sengine
   if shiftkey()= 0 then camcon()

if sel <= 0
      if curmakeid > curmaxid then curmakeid = 1
      if curmakeid < 1 then curmakeid = curmaxid
      if mousemovez() > 0 then inc curmakeid,1
      if mousemovez() < 0 then dec curmakeid,1
   endif

if mouseclick() = 2 and oldm <> 2 then makeobj()

if mouseclick() = 1 then selobj()

sprite 1,mousex(),mousey(),999

oldm = mouseclick()

phy update
 sync
loop

function setworld()

fog on
fog color rgb(100,110,230)
fog distance 5000
set camera range 1,5100

backdrop off
make object sphere 2,-5000

create bitmap 2,10,50

inc rgb(100,110,230),rgb(100,110,230)
     box 0,0,50,50

curcolb = 100

for i = 1 to 50
         inc curcolb,2
         ink rgb(60,60,curcolb),0
         line 1,i,10,i
      next i

get image 999,1,1,10,50

delete bitmap 2

texture object 2,999
set object fog 2,0
xrotate object 2,180

endfunction

function camcon()
   nay = mousemovex()
   nax = mousemovey()
   rotate camera camera angle x()+nax,camera angle y()+nay,0
   rotate object 3,camera angle x()+nax,camera angle y()+nay,0
endfunction

function makeobj()

select curmakeid

case 1
      make object box curobj,10,10,10
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic box curobj
      texture object curobj,metal
   endcase

case 2
      make object sphere curobj,10+rnd(5)
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic sphere curobj
      texture object curobj,wood
   endcase

case 3
         for cx = 1 to 50 step 10
            for cy = 1 to 20 step 5
               make object box curobj,10,5,7
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
   endcase

case 4
      for cc = 1 to 50 step 11
         for cx = 1 to 50 step 11
            for cy = 1 to 40 step 11
               make object box curobj,10,10,10
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)+cc
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
      next cc
   endcase

endselect

play sound snext

inc curobj,1

endfunction

function selobj()

sel = pick object(mousex(),mousey(),startobj,curobj)

if sel > 1

play sound swin

repeat
         ink rgb(150,255,175),0
         text 0,20,"Current objects: " + str$(curobj)
         text 0,40,"Object create id: " + str$(curmakeid)
         text 0,60,"Frames per second: " + str$(screen fps())
         sprite 1,mousex(),mousey(),999
         phy add rigid body force sel,mousemovex()*10,mousemovez()*10,mousemovey()*10,5
         phy update
         sync
      until mouseclick() <> 1
   endif

sel = 0

endfunction

function maketexture(id,backcolor,frontcolor,frequency,sizex,sizey)

create bitmap 1,sizex,sizey

ink backcolor,0
      box 0,0,sizex,sizey

ink frontcolor,0
         for i = 1 to frequency
            dot rnd(sizex),rnd(sizey)
         next i

get image id,1,1,sizex,sizey

delete bitmap 1

endfunction

function setmouse()

create bitmap 1,10,10

ink rgb(20,50,230),0

line 1,2,1,5

line 2,1,5,1

line 2,2,10,10

get image 999,0,0,10,10

delete bitmap 1

endfunction

function loadsounds()
   set dir "C:\WINDOWS\Media"

global swin = 1
   global slose = 2
   global snext = 3
   global sintro = 4
   global send = 5
   global sengine = 6

load sound "chimes.wav",swin
   load sound "chord.wav",slose
   load sound "ding.wav",snext
   load sound "notify.wav",sintro
   load sound "tada.wav",send
   load sound "windows feed discovered.wav",sengine
endfunction

+ Code Snippet

REM Project: Sandbox_MEDIALESS
REM Created: 27.05.2008 17:57:05
REM
REM ***** Main Source File *****
REM

rem Setup
disable escapekey
randomize 1
phy start
phy set gravity 0,-150,0
sync on
sync rate 60
hide mouse
autocam off

loadsounds()
setworld()
position camera 40,50,40
point camera 0,0,0
setmouse()

   global startobj = 4
   global curobj = 4
   global curmakeid = 1
   global curmaxid = 10

   global sel

   global oldm

   global grass = 1
   global dirt = 2
   global metal = 3
   global wood = 4
   global brick = 5

      maketexture(grass,rgb(100,230,60),rgb(230,30,60),300,50,50)
      maketexture(dirt,rgb(160,150,60),rgb(230,60,100),400,40,40)
      maketexture(metal,rgb(120,130,170),rgb(150,150,210),400,60,60)
      maketexture(wood,rgb(190,150,110),rgb(200,130,130),600,70,70)
      maketexture(brick,rgb(240,130,130),rgb(170,165,170),700,60,60)

   make object box 1,500,5,500
   phy make rigid body static box 1
   texture object 1,1

make object box 3,5,10,5
phy make box character controller 3,0.0,100.0,0.0,5.0,10.0,5,1,20.0,45.0
hide object 3

play sound sintro

do

   if keystate(1)
         play sound send
         sleep 1500
         end
   endif

   ink rgb(150,255,175),0
   text 0,20,"Current objects: " + str$(curobj)
   text 0,40,"Object create id: " + str$(curmakeid)
   text 0,60,"Frames per second: " + str$(screen fps())

   yrotate object 2,object angle y(2)+0.25
   position object 2,camera position x(),camera position y(),camera position z()

   phy move character controller 3,0
   position camera object position x(3),object position y(3),object position z(3)
   if keystate(17) then phy move character controller 3,50 : play sound sengine
   if keystate(31) then phy move character controller 3,-30 : play sound sengine
   if shiftkey()= 0 then camcon()

   if sel <= 0
      if curmakeid > curmaxid then curmakeid = 1
      if curmakeid < 1 then curmakeid = curmaxid
      if mousemovez() > 0 then inc curmakeid,1
      if mousemovez() < 0 then dec curmakeid,1
   endif

   if mouseclick() = 2 and oldm <> 2 then makeobj()

   if mouseclick() = 1 then selobj()

   sprite 1,mousex(),mousey(),999

   oldm = mouseclick()

  phy update
 sync
loop

function setworld()

fog on
fog color rgb(100,110,230)
fog distance 5000
set camera range 1,5100

backdrop off
make object sphere 2,-5000

   create bitmap 2,10,50

     inc rgb(100,110,230),rgb(100,110,230)
     box 0,0,50,50

      curcolb = 100

      for i = 1 to 50
         inc curcolb,2
         ink rgb(60,60,curcolb),0
         line 1,i,10,i
      next i

      get image 999,1,1,10,50

   delete bitmap 2

texture object 2,999
set object fog 2,0
xrotate object 2,180


endfunction

function camcon()
   nay = mousemovex()
   nax = mousemovey()
   rotate camera camera angle x()+nax,camera angle y()+nay,0
   rotate object 3,camera angle x()+nax,camera angle y()+nay,0
endfunction

function makeobj()

select curmakeid

   case 1
      make object box curobj,10,10,10
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic box curobj
      texture object curobj,metal
   endcase

   case 2
      make object sphere curobj,10+rnd(5)
      position object curobj,newxvalue(camera position x(),camera angle y(),20),camera position y(),newzvalue(camera position z(),camera angle y(),20)
      phy make rigid body dynamic sphere curobj
      texture object curobj,wood
   endcase

   case 3
         for cx = 1 to 50 step 10
            for cy = 1 to 20 step 5
               make object box curobj,10,5,7
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
   endcase

   case 4
      for cc = 1 to 50 step 11
         for cx = 1 to 50 step 11
            for cy = 1 to 40 step 11
               make object box curobj,10,10,10
               position object curobj,newxvalue(camera position x(),camera angle y(),20)+cx,camera position y()+cy,newzvalue(camera position z(),camera angle y(),20)+cc
               phy make rigid body dynamic box curobj
               texture object curobj,brick
               inc curobj,1
            next cy
         next cx
      next cc
   endcase

endselect

play sound snext

inc curobj,1

endfunction

function selobj()

   sel = pick object(mousex(),mousey(),startobj,curobj)

   if sel > 1

     play sound swin

      repeat
         ink rgb(150,255,175),0
         text 0,20,"Current objects: " + str$(curobj)
         text 0,40,"Object create id: " + str$(curmakeid)
         text 0,60,"Frames per second: " + str$(screen fps())
         sprite 1,mousex(),mousey(),999
         phy add rigid body force sel,mousemovex()*10,mousemovez()*10,mousemovey()*10,5
         phy update
         sync
      until mouseclick() <> 1
   endif

   sel = 0

endfunction

function maketexture(id,backcolor,frontcolor,frequency,sizex,sizey)

   create bitmap 1,sizex,sizey

      ink backcolor,0
      box 0,0,sizex,sizey

      ink frontcolor,0
         for i = 1 to frequency
            dot rnd(sizex),rnd(sizey)
         next i

      get image id,1,1,sizex,sizey

   delete bitmap 1

endfunction

function setmouse()

   create bitmap 1,10,10

      ink rgb(20,50,230),0

      line 1,2,1,5

      line 2,1,5,1

      line 2,2,10,10

         get image 999,0,0,10,10

   delete bitmap 1

endfunction

function loadsounds()
   set dir "C:\WINDOWS\Media"

   global swin = 1
   global slose = 2
   global snext = 3
   global sintro = 4
   global send = 5
   global sengine = 6

   load sound "chimes.wav",swin
   load sound "chord.wav",slose
   load sound "ding.wav",snext
   load sound "notify.wav",sintro
   load sound "tada.wav",send
   load sound "windows feed discovered.wav",sengine
endfunction

Full:

+ Code Snippet

Muaha, that one is not finished

It includes Dark Lights, and lots of other stuff, so not yet

Dont delete my sig mods, it is 600X120...
Slash!

Back to top

Profile PM Email

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 28th May 2008 02:26 Edited at: 2nd Jun 2008 18:07

Link

hay bergice nice work, but you may wont to edit that last post,
be`cos it had sounds that are not on a download.

you have broken the golden rule, no media mwhahahaaa!.. lol!

but I`m guessing that you just adding to help out, so I`ll let you off this time. lol!

I will allow media for posts, but not for your finished FPS game/project for the challenge.

nice work in such a short time.

so to all keep an eye on what you add to your code.

********************* Reply to HowDo **********************

Quote: "
I would have thought that any media that came with DBPro and DPhy and is built in to windows as standard would be all right, as long as the code can find where it hiding on your system.
"

HowDo sorry mate you can`t do it, its still media, dbp primitives object are ok, as to are images you code.

It must be that way so that every one can run it.

(example)

what if you code in a model that you think is standard to your system but its not to every one else?

they wont be able to run your code, and thats a drag on time, be`cos they have to go throe your code and sort it out bit by bit, which blows, cos if what you`v done is no good, then they have to spend all that time that they could be using to make there game, on fixing your game, and thats not on, not for this challenge

(end example)

sorry to put it like that but I wont ever one to see why I set out the challenge like this.

HowDo be`cos it toke me so long to get back to you on this, I will give you a 4 day on top of this 24 days that are re-mane, good luck hope to see some cool stuff soon.

PS if you post as you go, ever one keep up to date on your project, how ever if you wont to post at the end time of the challenge, and be sneaky, you can to just let me know that you have entered.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 28th May 2008 14:41

Link

I would have thought that any media that came with DBPro and DPhy and is built in to windows as standard would be all right, as long as the code can find where it hiding on your system.

Await what you think.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 28th May 2008 15:18

Link

I would say that is a no-media.

The sounds are built-in, but i can of course remove them

Dont delete my sig mods, it is 600X120...
Slash!

Back to top

Profile PM Email

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 29th May 2008 18:52

Link

Havent got much time to work on this today, because i am working on my guitar hero game and a game called war zone

But still, i think that it should be allowed to use the load commands, as long as the game only gives an exe file

Dont delete my sig mods, it is 600X120...
Slash!

Back to top

Profile PM Email

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 31st May 2008 21:18 Edited at: 26th Jun 2008 01:49

Link

ok I`v made 2 guns and 16 texture for your no media games.
1st gun name(N.POS Rife)
2nd gun name(STINGER 800)

this code is N.POS Rife model.

`*** (sindore gun) *******************
`*** this is for the FPS challenge ***
`*** made by Load Sindore 30/05/08 ***
`*************************************

` ok so I throt I`d make a wepone for my no media FPS challenge,
` rife/automatic/all round combat gun, as per nor I`m working strate off the top of my head,
` no desigins just what I think it should look like.
` I`v added a scope just in case I wont to zoom in to a targit.
` No ammo clip thro, be-cos I wont to have it as an energy wepone whtch will be rechargable.
` you can do what you wont to it, just as long as I get some credit for it in your game.
` this guns name is (N.POS Rife) it stands for "nasty pace of sh^~" and in my game it will be just -
` one of 3 guns, you guess what sh^~ stands for, lol!
` I wont this gun to have a fast fire rate, like 100 shots ever 30 seconeds, but a slow recharg rate,
` about 1 to 1/2 mins, at fall copasaty it shuld hold 300 shots.

sync on

` make centeral object
make object cube 1,1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` mid big barrel
add limb 1,1,1
scale limb 1,1,150,375,150
offset limb 1,1,0,0,2.75
rotate limb 1,1,90,0,0

` top small barrel
add limb 1,2,1
scale limb 1,2,25,350,25
offset limb 1,2,0,0.9,2
rotate limb 1,2,90,0,0

` bottom small barrel
add limb 1,3,1
scale limb 1,3,25,350,25
offset limb 1,3,0,-0.9,2
rotate limb 1,3,90,0,0

` right small barrel
add limb 1,4,1
scale limb 1,4,25,350,25
offset limb 1,4,0.9,0,2
rotate limb 1,4,90,0,0

` left small barrel
add limb 1,5,1
scale limb 1,5,25,350,25
offset limb 1,5,-0.9,0,2
rotate limb 1,5,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` gun center sphere
add limb 1,6,1
scale limb 1,6,225,225,225

` gun holder end of barrel
add limb 1,7,1
scale limb 1,7,225,225,50
offset limb 1,7,0,0,3

` gun holder mid of barrel
add limb 1,8,1
scale limb 1,8,225,225,50
offset limb 1,8,0,0,3.75

` gun holder of gunbut
add limb 1,9,1
scale limb 1,9,225,225,50
offset limb 1,9,0,0,0.75

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

` big cone barrel
add limb 1,10,1
scale limb 1,10,155,100,155
offset limb 1,10,0,0,4.15
rotate limb 1,10,-90,0,0

` small cone barrel
add limb 1,11,1
scale limb 1,11,100,25,100
offset limb 1,11,0,0,4.15
rotate limb 1,11,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

` gun body
add limb 1,12,1
scale limb 1,12,50,150,250
offset limb 1,12,0,0.25,-1.5

` gun handal
add limb 1,13,1
scale limb 1,13,25,150,50
offset limb 1,13,0,-1,-1.3
rotate limb 1,13,15,0,0

` gun butt base
add limb 1,14,1
scale limb 1,14,85,200,25
offset limb 1,14,0,0.05,-2.75

` gun body detail cube right
add limb 1,15,1
scale limb 1,15,10,75,250
offset limb 1,15,0.3,0.4,-1.5

` gun body detail cube right
add limb 1,16,1
scale limb 1,16,10,75,250
offset limb 1,16,-0.3,0.4,-1.5

` gun butt tip
add limb 1,17,1
scale limb 1,17,85,50,25
offset limb 1,17,0,1.15,-2.90
rotate limb 1,17,-45,0,0

` gun sight base
add limb 1,18,1
scale limb 1,18,25,50,125
offset limb 1,18,0,1.25,0

` gun sight
add limb 1,19,1
scale limb 1,19,35,35,200
offset limb 1,19,0,1.5,0
rotate limb 1,19,0,0,45

` gun sight back lip
add limb 1,20,1
scale limb 1,20,55,55,10
offset limb 1,20,0,1.5,-1
rotate limb 1,20,0,0,45

` gun sight funt lip
add limb 1,21,1
scale limb 1,21,55,55,75
offset limb 1,21,0,1.5,1.25
rotate limb 1,21,0,0,45

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` gun frunt sight hole
add limb 1,22,1
scale limb 1,22,50,50,50
offset limb 1,22,0,1.5,1.75
rotate limb 1,22,90,0,0

` gun back sight hole
add limb 1,23,1
scale limb 1,23,50,25,50
offset limb 1,23,0,1.5,-1.15
rotate limb 1,23,90,0,0

` gun body detail cylinder right
add limb 1,24,1
scale limb 1,24,50,150,50
offset limb 1,24,0.3,0.4,-1.5
rotate limb 1,24,90,0,0

` gun body detail cylinder left
add limb 1,25,1
scale limb 1,25,50,150,50
offset limb 1,25,-0.3,0.4,-1.5
rotate limb 1,25,90,0,0

` gun triger
add limb 1,26,1
scale limb 1,26,50,25,100
offset limb 1,26,0,-0.85,-0.9
rotate limb 1,26,0,0,90

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

` gun sight hole back cone
add limb 1,27,1
scale limb 1,27,50,25,50
offset limb 1,27,0,1.5,-1.15
rotate limb 1,27,90,0,0

` gun sight hole frunt cone
add limb 1,28,1
scale limb 1,28,50,25,50
offset limb 1,28,0,1.5,1.75
rotate limb 1,28,-90,0,0

` gun body detail cone right
add limb 1,29,1
scale limb 1,29,50,50,50
offset limb 1,29,0.3,0.4,-2.5
rotate limb 1,29,-90,0,0

` gun body detail cone left
add limb 1,30,1
scale limb 1,30,50,50,50
offset limb 1,30,-0.3,0.4,-2.5
rotate limb 1,30,-90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` gun handale tip
add limb 1,31,1
scale limb 1,31,30,40,75
offset limb 1,31,0,-1.75,-1.5
rotate limb 1,31,15,0,0

` gun hilt padding top
add limb 1,32,1
scale limb 1,32,90,50,50
offset limb 1,32,0,0.85,-2.85

` gun hilt padding mid 1
add limb 1,33,1
scale limb 1,33,90,50,50
offset limb 1,33,0,0.45,-2.85

` gun hilt padding mid 2
add limb 1,34,1
scale limb 1,34,90,50,50
offset limb 1,34,0,0.05,-2.85

` gun hilt padding mid 3
add limb 1,35,1
scale limb 1,35,90,50,50
offset limb 1,35,0,-0.325,-2.85

` gun hilt padding mid 4
add limb 1,36,1
scale limb 1,36,90,50,50
offset limb 1,36,0,-0.75,-2.85

`*** delete mesh ***
delete mesh 1

`************************************************************************************
`*** replace the object so that it can be used in dark physics as a dinamic body. ***
`************************************************************************************

make mesh from object 1,1
delete object 1
make object 1,1,0
set object 1,1,1,0

`only use (save object "Sindore_gun_01.dbo",1) once to save this gun model, don`t copy in to your game.
`I`v added this so that every one can use this gun in there games, but it would be nice to get some credit for it.
`If your a newbe to this then delete the rem statment that comes befor the (save object "Sindore_gun_01.dbo",1) statment, then run the program once and only once,
`then replace the rem statment or delete the (save object "Sindore_gun_01.dbo",1) code, if you don`t then the next time you run this program it will-
`come up with a error.
rem save object "Sindore_gun_01.dbo",1 :`call it what you like, but I still made it

do

`*** rotate the object using the mouse ***
   yrotate object 1,object angle y(1) + mousemovex()*0.3
   xrotate object 1,object angle x(1) + mousemovey()*0.3

sync
loop

+ Code Snippet

`*** (sindore gun) *******************
`*** this is for the FPS challenge ***
`*** made by Load Sindore 30/05/08 ***
`*************************************

` ok so I throt I`d make a wepone for my no media FPS challenge,
` rife/automatic/all round combat gun, as per nor I`m working strate off the top of my head,
` no desigins just what I think it should look like.
` I`v added a scope just in case I wont to zoom in to a targit.
` No ammo clip thro, be-cos I wont to have it as an energy wepone whtch will be rechargable.
` you can do what you wont to it, just as long as I get some credit for it in your game.
` this guns name is (N.POS Rife) it stands for "nasty pace of sh^~" and in my game it will be just -
` one of 3 guns, you guess what sh^~ stands for, lol!
` I wont this gun to have a fast fire rate, like 100 shots ever 30 seconeds, but a slow recharg rate,
` about 1 to 1/2 mins, at fall copasaty it shuld hold 300 shots.

sync on

` make centeral object
make object cube 1,1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` mid big barrel
add limb 1,1,1
scale limb 1,1,150,375,150
offset limb 1,1,0,0,2.75
rotate limb 1,1,90,0,0

` top small barrel
add limb 1,2,1
scale limb 1,2,25,350,25
offset limb 1,2,0,0.9,2
rotate limb 1,2,90,0,0

` bottom small barrel
add limb 1,3,1
scale limb 1,3,25,350,25
offset limb 1,3,0,-0.9,2
rotate limb 1,3,90,0,0

` right small barrel
add limb 1,4,1
scale limb 1,4,25,350,25
offset limb 1,4,0.9,0,2
rotate limb 1,4,90,0,0

` left small barrel
add limb 1,5,1
scale limb 1,5,25,350,25
offset limb 1,5,-0.9,0,2
rotate limb 1,5,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` gun center sphere
add limb 1,6,1
scale limb 1,6,225,225,225

` gun holder end of barrel
add limb 1,7,1
scale limb 1,7,225,225,50
offset limb 1,7,0,0,3

` gun holder mid of barrel
add limb 1,8,1
scale limb 1,8,225,225,50
offset limb 1,8,0,0,3.75

` gun holder of gunbut
add limb 1,9,1
scale limb 1,9,225,225,50
offset limb 1,9,0,0,0.75

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

` big cone barrel
add limb 1,10,1
scale limb 1,10,155,100,155
offset limb 1,10,0,0,4.15
rotate limb 1,10,-90,0,0

` small cone barrel
add limb 1,11,1
scale limb 1,11,100,25,100
offset limb 1,11,0,0,4.15
rotate limb 1,11,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

` gun body
add limb 1,12,1
scale limb 1,12,50,150,250
offset limb 1,12,0,0.25,-1.5

` gun handal
add limb 1,13,1
scale limb 1,13,25,150,50
offset limb 1,13,0,-1,-1.3
rotate limb 1,13,15,0,0

` gun butt base
add limb 1,14,1
scale limb 1,14,85,200,25
offset limb 1,14,0,0.05,-2.75

` gun body detail cube right
add limb 1,15,1
scale limb 1,15,10,75,250
offset limb 1,15,0.3,0.4,-1.5

` gun body detail cube right
add limb 1,16,1
scale limb 1,16,10,75,250
offset limb 1,16,-0.3,0.4,-1.5

` gun butt tip
add limb 1,17,1
scale limb 1,17,85,50,25
offset limb 1,17,0,1.15,-2.90
rotate limb 1,17,-45,0,0

` gun sight base
add limb 1,18,1
scale limb 1,18,25,50,125
offset limb 1,18,0,1.25,0

` gun sight
add limb 1,19,1
scale limb 1,19,35,35,200
offset limb 1,19,0,1.5,0
rotate limb 1,19,0,0,45

` gun sight back lip
add limb 1,20,1
scale limb 1,20,55,55,10
offset limb 1,20,0,1.5,-1
rotate limb 1,20,0,0,45

` gun sight funt lip
add limb 1,21,1
scale limb 1,21,55,55,75
offset limb 1,21,0,1.5,1.25
rotate limb 1,21,0,0,45

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` gun frunt sight hole
add limb 1,22,1
scale limb 1,22,50,50,50
offset limb 1,22,0,1.5,1.75
rotate limb 1,22,90,0,0

` gun back sight hole
add limb 1,23,1
scale limb 1,23,50,25,50
offset limb 1,23,0,1.5,-1.15
rotate limb 1,23,90,0,0

` gun body detail cylinder right
add limb 1,24,1
scale limb 1,24,50,150,50
offset limb 1,24,0.3,0.4,-1.5
rotate limb 1,24,90,0,0

` gun body detail cylinder left
add limb 1,25,1
scale limb 1,25,50,150,50
offset limb 1,25,-0.3,0.4,-1.5
rotate limb 1,25,90,0,0

` gun triger
add limb 1,26,1
scale limb 1,26,50,25,100
offset limb 1,26,0,-0.85,-0.9
rotate limb 1,26,0,0,90

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

` gun sight hole back cone
add limb 1,27,1
scale limb 1,27,50,25,50
offset limb 1,27,0,1.5,-1.15
rotate limb 1,27,90,0,0

` gun sight hole frunt cone
add limb 1,28,1
scale limb 1,28,50,25,50
offset limb 1,28,0,1.5,1.75
rotate limb 1,28,-90,0,0

` gun body detail cone right
add limb 1,29,1
scale limb 1,29,50,50,50
offset limb 1,29,0.3,0.4,-2.5
rotate limb 1,29,-90,0,0

` gun body detail cone left
add limb 1,30,1
scale limb 1,30,50,50,50
offset limb 1,30,-0.3,0.4,-2.5
rotate limb 1,30,-90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` gun handale tip
add limb 1,31,1
scale limb 1,31,30,40,75
offset limb 1,31,0,-1.75,-1.5
rotate limb 1,31,15,0,0

` gun hilt padding top
add limb 1,32,1
scale limb 1,32,90,50,50
offset limb 1,32,0,0.85,-2.85

` gun hilt padding mid 1
add limb 1,33,1
scale limb 1,33,90,50,50
offset limb 1,33,0,0.45,-2.85

` gun hilt padding mid 2
add limb 1,34,1
scale limb 1,34,90,50,50
offset limb 1,34,0,0.05,-2.85

` gun hilt padding mid 3
add limb 1,35,1
scale limb 1,35,90,50,50
offset limb 1,35,0,-0.325,-2.85

` gun hilt padding mid 4
add limb 1,36,1
scale limb 1,36,90,50,50
offset limb 1,36,0,-0.75,-2.85

`*** delete mesh ***
delete mesh 1

`************************************************************************************
`*** replace the object so that it can be used in dark physics as a dinamic body. ***
`************************************************************************************

make mesh from object 1,1
delete object 1
make object 1,1,0
set object 1,1,1,0

`only use (save object "Sindore_gun_01.dbo",1) once to save this gun model, don`t copy in to your game.
`I`v added this so that every one can use this gun in there games, but it would be nice to get some credit for it.
`If your a newbe to this then delete the rem statment that comes befor the (save object "Sindore_gun_01.dbo",1) statment, then run the program once and only once,
`then replace the rem statment or delete the (save object "Sindore_gun_01.dbo",1) code, if you don`t then the next time you run this program it will-
`come up with a error.
rem save object "Sindore_gun_01.dbo",1 :`call it what you like, but I still made it


do

   `*** rotate the object using the mouse ***
   yrotate object 1,object angle y(1) + mousemovex()*0.3
   xrotate object 1,object angle x(1) + mousemovey()*0.3

sync
loop

this code is the STINGER 800 model

`*** (sindore gun) *******************
`*** this is for the FPS challenge ***
`*** made by Load Sindore 30/05/08 ***
`*************************************

` ok so this is the second gun out of the three, this is a disc gun its ammo will bounce off walls and ever thing else -
` it comes in to contacted with.
` ammo will come in 100 shot clips, this wepone is called the (STINGER 800) this has a slow fire rate 30 shots in 30 seconds.
` this wepone has a max ammo copasaty 100, keep at a safe distonce from the fired shots they explode as well as bounce.

sync on

` make centeral object
make object cube 1,1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` bottom disc
add limb 1,1,1
scale limb 1,1,150,25,150
offset limb 1,1,0,0,1.5

` mid disc 1
add limb 1,2,1
scale limb 1,2,150,25,150
offset limb 1,2,0,0.25,1.5

` mid disc 2
add limb 1,3,1
scale limb 1,3,150,25,150
offset limb 1,3,0,0.5,1.5

` top disc
add limb 1,4,1
scale limb 1,4,150,25,150
offset limb 1,4,0,0.75,1.5

` disc gun center
add limb 1,5,1
scale limb 1,5,200,200,200
offset limb 1,5,0,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

` disc gun barrel bottom
add limb 1,6,1
scale limb 1,6,150,25,250
offset limb 1,6,0,-0.225,1.75

` disc gun barrel wall right
add limb 1,7,1
scale limb 1,7,10,75,250
offset limb 1,7,0.75,0.045,1.75

` disc gun barrel wall left
add limb 1,8,1
scale limb 1,8,10,75,250
offset limb 1,8,-0.75,0.045,1.75

` disc gun barrel top
add limb 1,9,1
scale limb 1,9,150,25,75
offset limb 1,9,0,0.3,2.65

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` disc gun frunt pipes right back
add limb 1,10,1
scale limb 1,10,25,125,25
offset limb 1,10,0.5,0.35,0.75

` disc gun frunt pipes left back
add limb 1,11,1
scale limb 1,11,25,125,25
offset limb 1,11,-0.5,0.35,0.75

` disc gun frunt pipes right frunt
add limb 1,12,1
scale limb 1,12,25,75,25
offset limb 1,12,0.5,0.6,2.25

` disc gun frunt pipes left frunt
add limb 1,13,1
scale limb 1,13,25,75,25
offset limb 1,13,-0.5,0.6,2.25

` disc gun cross pipe y=35
add limb 1,14,1
scale limb 1,14,25,165,25
offset limb 1,14,0,1,1.5
rotate limb 1,14,90,35,0

` disc gun cross pipe y=-35
add limb 1,15,1
scale limb 1,15,25,165,25
offset limb 1,15,0,1,1.5
rotate limb 1,15,90,-35,0

` disc gun detail pipe underside right
add limb 1,16,1
scale limb 1,16,40,200,40
offset limb 1,16,0.25,-0.4,1.5
rotate limb 1,16,90,0,0

` disc gun detail pipe underside left
add limb 1,17,1
scale limb 1,17,40,200,40
offset limb 1,17,-0.25,-0.4,1.5
rotate limb 1,17,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` disc gun fixings for the cross pipe right back
add limb 1,18,1
scale limb 1,18,35,35,35
offset limb 1,18,0.5,1,0.75

` disc gun fixings for the cross pipe left back
add limb 1,19,1
scale limb 1,19,35,35,35
offset limb 1,19,-0.5,1,0.75

` disc gun fixings for the cross pipe right frunt
add limb 1,20,1
scale limb 1,20,35,35,35
offset limb 1,20,0.5,1,2.25

` disc gun fixings for the cross pipe left frunt
add limb 1,21,1
scale limb 1,21,35,35,35
offset limb 1,21,-0.5,1,2.25

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

` disc gun detail right cone bottom
add limb 1,22,1
scale limb 1,22,50,50,50
offset limb 1,22,0.25,-0.375,2.7
rotate limb 1,22,90,0,0

` disc gun detail right cone bottom
add limb 1,23,1
scale limb 1,23,50,50,50
offset limb 1,23,-0.25,-0.375,2.7
rotate limb 1,23,90,0,0

` disc gun detail back right cone
add limb 1,24,1
scale limb 1,24,50,100,50
offset limb 1,24,1.25,0,1
rotate limb 1,24,0,0,-90

` disc gun detail mid right cone
add limb 1,25,1
scale limb 1,25,50,100,50
offset limb 1,25,1.25,0,1.75
rotate limb 1,25,0,0,-90

` disc gun detail frunt right cone
add limb 1,26,1
scale limb 1,26,50,100,50
offset limb 1,26,1.25,0,2.5
rotate limb 1,26,0,0,-90

` disc gun detail back left cone
add limb 1,27,1
scale limb 1,27,50,100,50
offset limb 1,27,-1.25,0,1
rotate limb 1,27,0,0,90

` disc gun detail mid left cone
add limb 1,28,1
scale limb 1,28,50,100,50
offset limb 1,28,-1.25,0,1.75
rotate limb 1,28,0,0,90

` disc gun detail frunt left cone
add limb 1,29,1
scale limb 1,29,50,100,50
offset limb 1,29,-1.25,0,2.5
rotate limb 1,29,0,0,90

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

` disc gun cube right center
add limb 1,30,1
scale limb 1,30,75,75,75
offset limb 1,30,0.75,0.05,0.1
rotate limb 1,30,0,45,0

` disc gun cube left center
add limb 1,31,1
scale limb 1,31,75,75,75
offset limb 1,31,-0.75,0.05,0.1
rotate limb 1,31,0,45,0

` disc gun body
add limb 1,32,1
scale limb 1,32,180,75,150
offset limb 1,32,0,0.05,-1

` disc gun body back
add limb 1,33,1
scale limb 1,33,200,100,100
offset limb 1,33,0,0.05,-1.5
rotate limb 1,33,45,90,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` disc gun stock
add limb 1,34,1
scale limb 1,34,90,90,90
offset limb 1,34,0,0.05,-2.75
rotate limb 1,34,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

`
add limb 1,35,1
scale limb 1,35,90,90,90
offset limb 1,35,0,0.05,-2.75
rotate limb 1,35,90,0,0

`*** delete mesh ***
delete mesh 1

`************************************************************************************
`*** replace the object so that it can be used in dark physics as a dinamic body. ***
`************************************************************************************

make mesh from object 1,1
delete object 1
make object 1,1,0
set object 1,1,1,0

`only use (save object "Sindore_gun_02.dbo",1) once to save this gun model, don`t copy in to your game.
`I`v added this so that every one can use this gun in there games, but it would be nice to get some credit for it.
`If your a newbe to this then delete the rem statment that comes befor the (save object "Sindore_gun_02.dbo",1) statment, then run the program once and only once,
`then replace the rem statment or delete the (save object "Sindore_gun_02.dbo",1) code, if you don`t then the next time you run this program it will-
`come up with a error.
rem save object "Sindore_gun_02.dbo",1 :`call it what you like, but I still made it

do

`*** rotate the object using the mouse ***
   yrotate object 1,object angle y(1) + mousemovex()*0.3
   xrotate object 1,object angle x(1) + mousemovey()*0.3

sync
loop

+ Code Snippet

`*** (sindore gun) *******************
`*** this is for the FPS challenge ***
`*** made by Load Sindore 30/05/08 ***
`*************************************

` ok so this is the second gun out of the three, this is a disc gun its ammo will bounce off walls and ever thing else -
` it comes in to contacted with.
` ammo will come in 100 shot clips, this wepone is called the (STINGER 800) this has a slow fire rate 30 shots in 30 seconds.
` this wepone has a max ammo copasaty 100, keep at a safe distonce from the fired shots they explode as well as bounce.

sync on

` make centeral object
make object cube 1,1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` bottom disc
add limb 1,1,1
scale limb 1,1,150,25,150
offset limb 1,1,0,0,1.5

` mid disc 1
add limb 1,2,1
scale limb 1,2,150,25,150
offset limb 1,2,0,0.25,1.5

` mid disc 2
add limb 1,3,1
scale limb 1,3,150,25,150
offset limb 1,3,0,0.5,1.5

` top disc
add limb 1,4,1
scale limb 1,4,150,25,150
offset limb 1,4,0,0.75,1.5

` disc gun center
add limb 1,5,1
scale limb 1,5,200,200,200
offset limb 1,5,0,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

` disc gun barrel bottom
add limb 1,6,1
scale limb 1,6,150,25,250
offset limb 1,6,0,-0.225,1.75

` disc gun barrel wall right
add limb 1,7,1
scale limb 1,7,10,75,250
offset limb 1,7,0.75,0.045,1.75

` disc gun barrel wall left
add limb 1,8,1
scale limb 1,8,10,75,250
offset limb 1,8,-0.75,0.045,1.75

` disc gun barrel top
add limb 1,9,1
scale limb 1,9,150,25,75
offset limb 1,9,0,0.3,2.65

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` disc gun frunt pipes right back
add limb 1,10,1
scale limb 1,10,25,125,25
offset limb 1,10,0.5,0.35,0.75

` disc gun frunt pipes left back
add limb 1,11,1
scale limb 1,11,25,125,25
offset limb 1,11,-0.5,0.35,0.75

` disc gun frunt pipes right frunt
add limb 1,12,1
scale limb 1,12,25,75,25
offset limb 1,12,0.5,0.6,2.25

` disc gun frunt pipes left frunt
add limb 1,13,1
scale limb 1,13,25,75,25
offset limb 1,13,-0.5,0.6,2.25

` disc gun cross pipe y=35
add limb 1,14,1
scale limb 1,14,25,165,25
offset limb 1,14,0,1,1.5
rotate limb 1,14,90,35,0

` disc gun cross pipe y=-35
add limb 1,15,1
scale limb 1,15,25,165,25
offset limb 1,15,0,1,1.5
rotate limb 1,15,90,-35,0

` disc gun detail pipe underside right
add limb 1,16,1
scale limb 1,16,40,200,40
offset limb 1,16,0.25,-0.4,1.5
rotate limb 1,16,90,0,0

` disc gun detail pipe underside left
add limb 1,17,1
scale limb 1,17,40,200,40
offset limb 1,17,-0.25,-0.4,1.5
rotate limb 1,17,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object sphere 2,1
make mesh from object 1,2
delete object 2

` disc gun fixings for the cross pipe right back
add limb 1,18,1
scale limb 1,18,35,35,35
offset limb 1,18,0.5,1,0.75

` disc gun fixings for the cross pipe left back
add limb 1,19,1
scale limb 1,19,35,35,35
offset limb 1,19,-0.5,1,0.75

` disc gun fixings for the cross pipe right frunt
add limb 1,20,1
scale limb 1,20,35,35,35
offset limb 1,20,0.5,1,2.25

` disc gun fixings for the cross pipe left frunt
add limb 1,21,1
scale limb 1,21,35,35,35
offset limb 1,21,-0.5,1,2.25

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

` disc gun detail right cone bottom
add limb 1,22,1
scale limb 1,22,50,50,50
offset limb 1,22,0.25,-0.375,2.7
rotate limb 1,22,90,0,0

` disc gun detail right cone bottom
add limb 1,23,1
scale limb 1,23,50,50,50
offset limb 1,23,-0.25,-0.375,2.7
rotate limb 1,23,90,0,0

` disc gun detail back right cone
add limb 1,24,1
scale limb 1,24,50,100,50
offset limb 1,24,1.25,0,1
rotate limb 1,24,0,0,-90

` disc gun detail mid right cone
add limb 1,25,1
scale limb 1,25,50,100,50
offset limb 1,25,1.25,0,1.75
rotate limb 1,25,0,0,-90

` disc gun detail frunt right cone
add limb 1,26,1
scale limb 1,26,50,100,50
offset limb 1,26,1.25,0,2.5
rotate limb 1,26,0,0,-90

` disc gun detail back left cone
add limb 1,27,1
scale limb 1,27,50,100,50
offset limb 1,27,-1.25,0,1
rotate limb 1,27,0,0,90

` disc gun detail mid left cone
add limb 1,28,1
scale limb 1,28,50,100,50
offset limb 1,28,-1.25,0,1.75
rotate limb 1,28,0,0,90

` disc gun detail frunt left cone
add limb 1,29,1
scale limb 1,29,50,100,50
offset limb 1,29,-1.25,0,2.5
rotate limb 1,29,0,0,90

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

` disc gun cube right center
add limb 1,30,1
scale limb 1,30,75,75,75
offset limb 1,30,0.75,0.05,0.1
rotate limb 1,30,0,45,0

` disc gun cube left center
add limb 1,31,1
scale limb 1,31,75,75,75
offset limb 1,31,-0.75,0.05,0.1
rotate limb 1,31,0,45,0

` disc gun body
add limb 1,32,1
scale limb 1,32,180,75,150
offset limb 1,32,0,0.05,-1

` disc gun body back
add limb 1,33,1
scale limb 1,33,200,100,100
offset limb 1,33,0,0.05,-1.5
rotate limb 1,33,45,90,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` disc gun stock
add limb 1,34,1
scale limb 1,34,90,90,90
offset limb 1,34,0,0.05,-2.75
rotate limb 1,34,90,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh object ***
make object cone 2,1
make mesh from object 1,2
delete object 2

`
add limb 1,35,1
scale limb 1,35,90,90,90
offset limb 1,35,0,0.05,-2.75
rotate limb 1,35,90,0,0

`*** delete mesh ***
delete mesh 1

`************************************************************************************
`*** replace the object so that it can be used in dark physics as a dinamic body. ***
`************************************************************************************

make mesh from object 1,1
delete object 1
make object 1,1,0
set object 1,1,1,0

`only use (save object "Sindore_gun_02.dbo",1) once to save this gun model, don`t copy in to your game.
`I`v added this so that every one can use this gun in there games, but it would be nice to get some credit for it.
`If your a newbe to this then delete the rem statment that comes befor the (save object "Sindore_gun_02.dbo",1) statment, then run the program once and only once,
`then replace the rem statment or delete the (save object "Sindore_gun_02.dbo",1) code, if you don`t then the next time you run this program it will-
`come up with a error.
rem save object "Sindore_gun_02.dbo",1 :`call it what you like, but I still made it

do

   `*** rotate the object using the mouse ***
   yrotate object 1,object angle y(1) + mousemovex()*0.3
   xrotate object 1,object angle x(1) + mousemovey()*0.3

sync
loop

here are some media free textures to add to your games

`*** wall texture stone ***
cls rgb(20,20,40)
for c = 0 to 100000
ink rgb(10+rnd(10),10+rnd(10),20+rnd(20)),0
dot rnd(400),rnd(400)
next c
get image 1,0,0,400,400

`*** floor texture stone ***
cls rgb(150,150,150)
for c = 0 to 100000
ink rgb(75+rnd(75),75+rnd(75),75+rnd(75)),0
dot rnd(400),rnd(400)
next c
get image 2,0,0,400,400

`*** water texture blue ***
cls rgb(20,20,80)
for c = 0 to 100000
ink rgb(10+rnd(10),10+rnd(10),40+rnd(40)),0
dot rnd(400),rnd(400)
next c
get image 3,0,0,400,400

`*** grass texture green dark ***
cls rgb(20,150,20)
for c = 0 to 100000
ink rgb(10+rnd(10),75+rnd(75),10+rnd(10)),0
dot rnd(400),rnd(400)
next c
get image 4,0,0,400,400

`*** tree texture green light ***
cls rgb(100,150,100)
for c = 0 to 100000
ink rgb(50+rnd(50),75+rnd(75),50+rnd(50)),0
dot rnd(400),rnd(400)
next c
get image 5,0,0,400,400

`*** blood texture red light ***
cls rgb(150,0,0)
for c = 0 to 100000
ink rgb(75+rnd(75),0,0),0
dot rnd(400),rnd(400)
next c
get image 6,0,0,400,400

`*** blood texture red dark ***
cls rgb(100,0,0)
for c = 0 to 100000
ink rgb(50+rnd(50),0,0),0
dot rnd(400),rnd(400)
next c
get image 7,0,0,400,400

`*** fire texture orange ***
cls rgb(243,171,37)
for c = 0 to 100000
ink rgb(122+rnd(122),85+rnd(85),18+rnd(18)),0
dot rnd(400),rnd(400)
next c
get image 8,0,0,400,400

`*** tech texture purple ***
cls rgb(175,52,228)
for c = 0 to 100000
ink rgb(87+rnd(87),26+rnd(26),114+rnd(114)),0
dot rnd(400),rnd(400)
next c
get image 9,0,0,400,400

`*** tech texture blue ***
cls rgb(30,190,251)
for c = 0 to 100000
ink rgb(15+rnd(15),95+rnd(95),125+rnd(125)),0
dot rnd(400),rnd(400)
next c
get image 10,0,0,400,400

`*** stripy texture grey ***
cls rgb(120,120,120)
for c = 0 to 400
TEXcol = rnd(120)-rnd(120)
ink rgb(TEXcol,TEXcol,TEXcol),0
line c-400,c+400,c+400,c-400
next c
get image 11,0,0,400,400

`*** stripy texture blue ***
cls rgb(0,0,255)
for c = 0 to 400
TEXcol = rnd(255)-rnd(255)
ink rgb(0,0,TEXcol),0
line c-400,c+400,c+400,c-400
next c
get image 12,0,0,400,400

`*** stripy texture green ***
cls rgb(0,255,0)
for c = 0 to 400
TEXcol = rnd(255)-rnd(255)
ink rgb(0,TEXcol,0),0
line c-400,c+400,c+400,c-400
next c
get image 13,0,0,400,400

`*** stripy texture red ***
cls rgb(255,0,0)
for c = 0 to 400
TEXcol = rnd(255)-rnd(255)
ink rgb(TEXcol,0,0),0
line c-400,c+400,c+400,c-400
next c
get image 14,0,0,400,400

`*** tech circle blue ***
cls rgb(64,64,244)
for c = 0 to 400
ink rgb(0,rnd(64)-rnd(64),244),0
circle rnd(400),rnd(400),rnd(40)
next c
get image 15,0,0,400,400

`*** tech circle blue ***
cls rgb(147,29,243)
for c = 0 to 400
ink rgb(rnd(147),rnd(29),rnd(243)),0
circle rnd(400),rnd(400),rnd(40)
next c
get image 16,0,0,400,400

+ Code Snippet

`*** wall texture stone ***
cls rgb(20,20,40)
for c = 0 to 100000
ink rgb(10+rnd(10),10+rnd(10),20+rnd(20)),0
dot rnd(400),rnd(400)
next c
get image 1,0,0,400,400

`*** floor texture stone ***
cls rgb(150,150,150)
for c = 0 to 100000
ink rgb(75+rnd(75),75+rnd(75),75+rnd(75)),0
dot rnd(400),rnd(400)
next c
get image 2,0,0,400,400

`*** water texture blue ***
cls rgb(20,20,80)
for c = 0 to 100000
ink rgb(10+rnd(10),10+rnd(10),40+rnd(40)),0
dot rnd(400),rnd(400)
next c
get image 3,0,0,400,400

`*** grass texture green dark ***
cls rgb(20,150,20)
for c = 0 to 100000
ink rgb(10+rnd(10),75+rnd(75),10+rnd(10)),0
dot rnd(400),rnd(400)
next c
get image 4,0,0,400,400

`*** tree texture green light ***
cls rgb(100,150,100)
for c = 0 to 100000
ink rgb(50+rnd(50),75+rnd(75),50+rnd(50)),0
dot rnd(400),rnd(400)
next c
get image 5,0,0,400,400

`*** blood texture red light ***
cls rgb(150,0,0)
for c = 0 to 100000
ink rgb(75+rnd(75),0,0),0
dot rnd(400),rnd(400)
next c
get image 6,0,0,400,400

`*** blood texture red dark ***
cls rgb(100,0,0)
for c = 0 to 100000
ink rgb(50+rnd(50),0,0),0
dot rnd(400),rnd(400)
next c
get image 7,0,0,400,400

`*** fire texture orange ***
cls rgb(243,171,37)
for c = 0 to 100000
ink rgb(122+rnd(122),85+rnd(85),18+rnd(18)),0
dot rnd(400),rnd(400)
next c
get image 8,0,0,400,400

`*** tech texture purple ***
cls rgb(175,52,228)
for c = 0 to 100000
ink rgb(87+rnd(87),26+rnd(26),114+rnd(114)),0
dot rnd(400),rnd(400)
next c
get image 9,0,0,400,400

`*** tech texture blue ***
cls rgb(30,190,251)
for c = 0 to 100000
ink rgb(15+rnd(15),95+rnd(95),125+rnd(125)),0
dot rnd(400),rnd(400)
next c
get image 10,0,0,400,400

`*** stripy texture grey ***
cls rgb(120,120,120)
for c = 0 to 400
TEXcol = rnd(120)-rnd(120)
ink rgb(TEXcol,TEXcol,TEXcol),0
line c-400,c+400,c+400,c-400
next c
get image 11,0,0,400,400

`*** stripy texture blue ***
cls rgb(0,0,255)
for c = 0 to 400
TEXcol = rnd(255)-rnd(255)
ink rgb(0,0,TEXcol),0
line c-400,c+400,c+400,c-400
next c
get image 12,0,0,400,400

`*** stripy texture green ***
cls rgb(0,255,0)
for c = 0 to 400
TEXcol = rnd(255)-rnd(255)
ink rgb(0,TEXcol,0),0
line c-400,c+400,c+400,c-400
next c
get image 13,0,0,400,400

`*** stripy texture red ***
cls rgb(255,0,0)
for c = 0 to 400
TEXcol = rnd(255)-rnd(255)
ink rgb(TEXcol,0,0),0
line c-400,c+400,c+400,c-400
next c
get image 14,0,0,400,400

`*** tech circle blue ***
cls rgb(64,64,244)
for c = 0 to 400
ink rgb(0,rnd(64)-rnd(64),244),0
circle rnd(400),rnd(400),rnd(40)
next c
get image 15,0,0,400,400

`*** tech circle blue ***
cls rgb(147,29,243)
for c = 0 to 400
ink rgb(rnd(147),rnd(29),rnd(243)),0
circle rnd(400),rnd(400),rnd(40)
next c
get image 16,0,0,400,400

these guns where both made in a day, as to was the textures, just think of what you could make in a month.

help your self to these guns and texture to add into your FPS games for this challenge, just give me credit for them.

her is just a thing to add to your games, I call it (RC Unit) to recharge my weapon.

her is the code for the (RC Unit)

sync on

obj = 1

` make center of recharge cell
make object cube 1,1

` make temp object for limbs
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` central cylinder
add limb 1,1,1
scale limb 1,1,200,300,200

` pillers of cell
for c = 2 to 5
add limb 1,c,1
scale limb 1,c,50,300,50
next c
offset limb 1,2,1,0,1
offset limb 1,3,-1,0,1
offset limb 1,4,1,0,-1
offset limb 1,5,-1,0,-1

` delete temp mesh
delete mesh 1

` make temp object for limbs
make object cube 2,1
make mesh from object 1,2
delete object 2

` top & bottom plate
for c = 6 to 7
add limb 1,c,1
scale limb 1,c,275,50,275
next c
offset limb 1,6,0,1.75,0
offset limb 1,7,0,-1.75,0

`****************************************************

` delete temp mesh
delete mesh 1

` make temp object export
` make an mesh so that it can be added to a save file
make mesh from object 1,1
delete object 1

` make an temp object so that it can viwed
make object 1,1,0

`
position object 1,0,0,10
set object 1,1,1,0

do

`*** rotate the object using the mouse ***
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3

sync
loop

+ Code Snippet

sync on

obj = 1

` make center of recharge cell
make object cube 1,1

` make temp object for limbs
make object cylinder 2,1
make mesh from object 1,2
delete object 2

` central cylinder
add limb 1,1,1
scale limb 1,1,200,300,200

` pillers of cell
for c = 2 to 5
add limb 1,c,1
scale limb 1,c,50,300,50
next c
offset limb 1,2,1,0,1
offset limb 1,3,-1,0,1
offset limb 1,4,1,0,-1
offset limb 1,5,-1,0,-1

` delete temp mesh
delete mesh 1

` make temp object for limbs
make object cube 2,1
make mesh from object 1,2
delete object 2

` top & bottom plate
for c = 6 to 7
add limb 1,c,1
scale limb 1,c,275,50,275
next c
offset limb 1,6,0,1.75,0
offset limb 1,7,0,-1.75,0

`****************************************************

` delete temp mesh
delete mesh 1

` make temp object export
` make an mesh so that it can be added to a save file
make mesh from object 1,1
delete object 1

` make an temp object so that it can viwed
make object 1,1,0

`
position object 1,0,0,10
set object 1,1,1,0

do

   `*** rotate the object using the mouse ***
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3

sync
loop

this is just a basic crate.

here is the basic crate.

sync on

obj = 1

make object plain 1,1,1

`*** make mesh from cube object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

`*** right posts ***
add limb 1,1,1
scale limb 1,1,10,110,10
offset limb 1,1,0.5,0,0

`*** left posts ***
add limb 1,2,1
scale limb 1,2,10,110,10
offset limb 1,2,-0.5,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh from side ***
make mesh from object 1,1
delete object 1

`*** center object ***
make object cube 1,1
` hide the center object
hide limb 1,0

`*** frount ***
add limb 1,1,1
scale limb 1,1,200,200,200
offset limb 1,1,0,0,1

`*** back ***
add limb 1,2,1
scale limb 1,2,200,200,200
offset limb 1,2,0,0,-1

`*** top ***
add limb 1,3,1
scale limb 1,3,200,200,200
offset limb 1,3,0,1,0
rotate limb 1,3,90,90,0

`*** bottom ***
add limb 1,4,1
scale limb 1,4,200,200,200
offset limb 1,4,0,-1,0
rotate limb 1,4,90,90,0

`*** right ***
add limb 1,5,1
scale limb 1,5,200,200,200
offset limb 1,5,1,0,0
rotate limb 1,5,90,0,90

`*** left ***
add limb 1,6,1
scale limb 1,6,200,200,200
offset limb 1,6,-1,0,0
rotate limb 1,6,90,0,90

`*** delete mesh ***
delete mesh 1

`*** delete object and make mesh ***
make mesh from object 1,1
delete object 1

`*** make crate object ***
make object 1,1,0

`*** position object so its at a better distenc from the camera ***
position object 1,0,0,10
set object 1,1,1,0

do

`*** rotate the object using the mouse ***
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3

sync
loop

+ Code Snippet

sync on

obj = 1


make object plain 1,1,1

`*** make mesh from cube object ***
make object cube 2,1
make mesh from object 1,2
delete object 2

`*** right posts ***
add limb 1,1,1
scale limb 1,1,10,110,10
offset limb 1,1,0.5,0,0

`*** left posts ***
add limb 1,2,1
scale limb 1,2,10,110,10
offset limb 1,2,-0.5,0,0

`*** delete mesh ***
delete mesh 1

`*** make mesh from side ***
make mesh from object 1,1
delete object 1

`*** center object ***
make object cube 1,1
` hide the center object
hide limb 1,0

`*** frount ***
add limb 1,1,1
scale limb 1,1,200,200,200
offset limb 1,1,0,0,1

`*** back ***
add limb 1,2,1
scale limb 1,2,200,200,200
offset limb 1,2,0,0,-1

`*** top ***
add limb 1,3,1
scale limb 1,3,200,200,200
offset limb 1,3,0,1,0
rotate limb 1,3,90,90,0

`*** bottom ***
add limb 1,4,1
scale limb 1,4,200,200,200
offset limb 1,4,0,-1,0
rotate limb 1,4,90,90,0

`*** right ***
add limb 1,5,1
scale limb 1,5,200,200,200
offset limb 1,5,1,0,0
rotate limb 1,5,90,0,90

`*** left ***
add limb 1,6,1
scale limb 1,6,200,200,200
offset limb 1,6,-1,0,0
rotate limb 1,6,90,0,90

`*** delete mesh ***
delete mesh 1

`*** delete object and make mesh ***
make mesh from object 1,1
delete object 1

`*** make crate object ***
make object 1,1,0

`*** position object so its at a better distenc from the camera ***
position object 1,0,0,10
set object 1,1,1,0


do

   `*** rotate the object using the mouse ***
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3

sync
loop

hay I know this guy sucks but he will do for the time being,
I used the guy that dp used to make the rag dolls.

here is the code for the red man

sync on : sync rate 60
autocam off
set camera range 1,1000
set normalization on
hide mouse
position camera 0,0,-35

obj = 1

` this is a vertexdata changes
   makeObjectCapsule(obj,4,2.6)

`upper torso
   make object obj,1,0

`lower torso
   add limb obj,1,1
   link limb obj,0,1
   scale limb obj,1,90,70,90
   offset limb obj,1,0,-2.525,0

`head
   add limb obj,2,1
   link limb obj,0,2
   scale limb obj,2,50,60,50
   offset limb obj,2,0,4.25,0

`right upper arm
   add limb obj,3,1
   link limb obj,0,3
   scale limb obj,3,40,75,40
   offset limb obj,3,1.75,-0.25,0
   `rotate limb obj,3,0,0,90

`right lower arm
   add limb obj,4,1
   link limb obj,3,4
   `scale limb obj,4,40,60,40
   offset limb obj,4,0,-4.75,0 :`5.5,1.2,0
   `rotate limb obj,4,0,0,90

`left upper arm
   add limb obj,5,1
   link limb obj,0,5
   scale limb obj,5,40,75,40
   offset limb obj,5,-1.75,-0.25,0 :`-2.5,1.2,0
   `rotate limb obj,5,0,0,90

`left lower arm
   add limb obj,6,1
   link limb obj,5,6
   `scale limb obj,6,40,60,40
   offset limb obj,6,0,-4.75,0 :`-5.5,1.2,0
   `rotate limb obj,6,0,0,90
   `hide limb obj,6

`right upper leg
   add limb obj,7,1
   `link limb obj,1,7
   scale limb obj,7,40,100,40
   offset limb obj,7,0.75,-6.5,0

`right lower leg
   add limb obj,8,1
   `link limb obj,7,8
   scale limb obj,8,40,100,40
   offset limb obj,8,0.75,-11,0

`left upper leg
   add limb obj,9,1
   `link limb obj,1,9
   scale limb obj,9,40,100,40
   offset limb obj,9,-0.75,-6.5,0

`left lower leg
   add limb obj,10,1
   `link limb obj,9,10
   scale limb obj,10,40,100,40
   offset limb obj,10,-0.75,-11,0
   `hide limb obj,10

` red team NPC / it could be blue team NPC
   color object obj, rgb ( 255, 0, 0 )
   set object specular obj, rgb ( 255, 0, 0 )
   set object specular power obj, 255
   set object ambient obj,0

do

`*** rotate the object using the mouse ***
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3
remstart
   `right arm gun lock
   if gunlock = 1
      `right upper arm
      offset limb obj,3,1.75,0,0.75
      rotate limb obj,3,-45,0,0

`right lower arm
      offset limb obj,4,0,-3.75,0.75 :`5.5,1.2,0
      rotate limb obj,4,-45,0,0
   endif

`left arm gun lock
   if gunlock = 2
      `left upper arm
      offset limb obj,5,-1.75,0,0.75
      rotate limb obj,5,-45,0,0

`left lower arm
      offset limb obj,6,0,-3.75,0.75
      rotate limb obj,6,-45,0,0
   endif

`right & left leg walk
   if walk = 1
      `right upper leg
      offset limb obj,7,0.75,-5.5,1.75
      rotate limb obj,7,-45,0,0

`right lower leg
      offset limb obj,8,0.75,-9.5,3.5

`left lower leg
      offset limb obj,10,-0.75,-10,-1.5
      rotate limb obj,10,45,0,0
   endif

if spacekey()=1 :` dead = 1
      xrotate object 1,90
      position object 1,0,-8,0
      else
      xrotate object 1,0
      position object 1,0,0,0
   endif
remend

`rotate limb obj,5,wrapvalue(limb angle x(obj,5)+mousemovex()*0.3),0,0

sync
loop

` I stall this from a ragdoll demo
function makeObjectCapsule(obj, h#, r#)
   h# = h# - r#
   if h#<0 then exitfunction

rem rows must be odd
   rows = 11
   cols = 16

make object sphere obj,r#,rows,cols

lock vertexdata for limb obj,0,1

for i=0 to get VertexData Vertex Count()
      x#=get VertexData Position X(i)
      y#=get VertexData Position Y(i)
      z#=get VertexData Position Z(i)
      if y#>0
         set VertexData Position i,x#,y#+h#,z#
      else
         set VertexData Position i,x#,y#-h#,z#
      endif
   next i

unlock vertexdata

`   calculate collision bounds

make mesh from object 1,obj
   delete object obj
   `make object obj,1,0
   `delete mesh 1
endfunction

+ Code Snippet

sync on : sync rate 60
autocam off
set camera range 1,1000
set normalization on
hide mouse
position camera 0,0,-35

obj = 1

   ` this is a vertexdata changes
   makeObjectCapsule(obj,4,2.6)

   `upper torso
   make object obj,1,0

   `lower torso
   add limb obj,1,1
   link limb obj,0,1
   scale limb obj,1,90,70,90
   offset limb obj,1,0,-2.525,0

   `head
   add limb obj,2,1
   link limb obj,0,2
   scale limb obj,2,50,60,50
   offset limb obj,2,0,4.25,0

   `right upper arm
   add limb obj,3,1
   link limb obj,0,3
   scale limb obj,3,40,75,40
   offset limb obj,3,1.75,-0.25,0
   `rotate limb obj,3,0,0,90

   `right lower arm
   add limb obj,4,1
   link limb obj,3,4
   `scale limb obj,4,40,60,40
   offset limb obj,4,0,-4.75,0 :`5.5,1.2,0
   `rotate limb obj,4,0,0,90

   `left upper arm
   add limb obj,5,1
   link limb obj,0,5
   scale limb obj,5,40,75,40
   offset limb obj,5,-1.75,-0.25,0 :`-2.5,1.2,0
   `rotate limb obj,5,0,0,90

   `left lower arm
   add limb obj,6,1
   link limb obj,5,6
   `scale limb obj,6,40,60,40
   offset limb obj,6,0,-4.75,0 :`-5.5,1.2,0
   `rotate limb obj,6,0,0,90
   `hide limb obj,6

   `right upper leg
   add limb obj,7,1
   `link limb obj,1,7
   scale limb obj,7,40,100,40
   offset limb obj,7,0.75,-6.5,0

   `right lower leg
   add limb obj,8,1
   `link limb obj,7,8
   scale limb obj,8,40,100,40
   offset limb obj,8,0.75,-11,0

   `left upper leg
   add limb obj,9,1
   `link limb obj,1,9
   scale limb obj,9,40,100,40
   offset limb obj,9,-0.75,-6.5,0

   `left lower leg
   add limb obj,10,1
   `link limb obj,9,10
   scale limb obj,10,40,100,40
   offset limb obj,10,-0.75,-11,0
   `hide limb obj,10

   ` red team NPC / it could be blue team NPC
   color object obj, rgb ( 255, 0, 0 )
   set object specular obj, rgb ( 255, 0, 0 )
   set object specular power obj, 255
   set object ambient obj,0

do

   `*** rotate the object using the mouse ***
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3
remstart
   `right arm gun lock
   if gunlock = 1
      `right upper arm
      offset limb obj,3,1.75,0,0.75
      rotate limb obj,3,-45,0,0

      `right lower arm
      offset limb obj,4,0,-3.75,0.75 :`5.5,1.2,0
      rotate limb obj,4,-45,0,0
   endif

   `left arm gun lock
   if gunlock = 2
      `left upper arm
      offset limb obj,5,-1.75,0,0.75
      rotate limb obj,5,-45,0,0

      `left lower arm
      offset limb obj,6,0,-3.75,0.75
      rotate limb obj,6,-45,0,0
   endif

   `right & left leg walk
   if walk = 1
      `right upper leg
      offset limb obj,7,0.75,-5.5,1.75
      rotate limb obj,7,-45,0,0

      `right lower leg
      offset limb obj,8,0.75,-9.5,3.5

      `left lower leg
      offset limb obj,10,-0.75,-10,-1.5
      rotate limb obj,10,45,0,0
   endif


   if spacekey()=1 :` dead = 1
      xrotate object 1,90
      position object 1,0,-8,0
      else
      xrotate object 1,0
      position object 1,0,0,0
   endif
remend

`rotate limb obj,5,wrapvalue(limb angle x(obj,5)+mousemovex()*0.3),0,0

sync
loop


` I stall this from a ragdoll demo
function makeObjectCapsule(obj, h#, r#)
   h# = h# - r#
   if h#<0 then exitfunction

   rem rows must be odd
   rows = 11
   cols = 16

   make object sphere obj,r#,rows,cols

   lock vertexdata for limb obj,0,1

   for i=0 to get VertexData Vertex Count()
      x#=get VertexData Position X(i)
      y#=get VertexData Position Y(i)
      z#=get VertexData Position Z(i)
      if y#>0
         set VertexData Position i,x#,y#+h#,z#
      else
         set VertexData Position i,x#,y#-h#,z#
      endif
   next i

   unlock vertexdata

`   calculate collision bounds

   make mesh from object 1,obj
   delete object obj
   `make object obj,1,0
   `delete mesh 1
endfunction

if any one can edit the red man model to animate in code, for example, walking / gun lock / dual gun lock / die / idle, etc.
I would of done this but I`m running out of time.

here is a piece of what my level will look like, you can all use it if you wont.

here is the code for this building

sync on : sync rate 60
autocam off
set camera range 1,1000
set normalization on
hide mouse

` hay this is a building that I made, hope you like it.
` use it as a statick object.
` made by marc newham aka Sindore
` date: 10/06/2008

obj = 1
make object cube 1,1

` make mesh to work from
make object cube 2,1
make mesh from object 1,2
delete object 2

` ground floor for strucher *
add limb 1,1,1
scale limb 1,1,500,10,500
offset limb 1,1,0,1.5,0

`left wall
add limb 1,2,1
scale limb 1,2,10,1000,500
offset limb 1,2,-2.5,5,0

`frunt wall left
add limb 1,3,1
scale limb 1,3,125,1000,10
offset limb 1,3,-1.8,5,2.5

`frunt wall right
add limb 1,4,1
scale limb 1,4,125,1000,10
offset limb 1,4,1.8,5,2.5

`back wall left
add limb 1,5,1
scale limb 1,5,125,1000,10
offset limb 1,5,-1.8,5,-2.5

`back wall right
add limb 1,6,1
scale limb 1,6,125,1000,10
offset limb 1,6,1.8,5,-2.5

`left wall frunt
add limb 1,7,1
scale limb 1,7,10,1000,125
offset limb 1,7,2.5,5,1.8

`right wall back
add limb 1,8,1
scale limb 1,8,10,1000,125
offset limb 1,8,2.5,5,-1.8

` 2nd floor for strucher *
add limb 1,9,1
scale limb 1,9,750,10,500
offset limb 1,9,1.25,6,0 :`0,6,0

` rooth top for strucher *
add limb 1,10,1
scale limb 1,10,550,50,550
offset limb 1,10,0,10,0

` upper frunt wall strucher *
add limb 1,11,1
scale limb 1,11,250,400,10
offset limb 1,11,0,8,2.5

` lower back wall strucher *
add limb 1,12,1
scale limb 1,12,250,600,10
offset limb 1,12,0,3,-2.5
`hide limb 1,12 :`temp

` right lower wall strucher *
add limb 1,13,1
scale limb 1,13,10,600,250
offset limb 1,13,2.5,3,0

` back platform 2nd floor strucher *
add limb 1,14,1
scale limb 1,14,700,10,250
offset limb 1,14,-1,6,-3.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make steps
for c = 1 to 13
add limb 2,c,1
rotate limb 2,c,45,0,0
offset limb 2,c,0,0,c+1.25
scale limb 2,c,100,100,100
next c

` make mesh of brackits
make mesh from object 1,2
delete object 2

` left steps floor strucher *
add limb 1,15,1
scale limb 1,15,190,50,50 :`200,10,650
offset limb 1,15,-3.5,0.75,3 :`-3.5,3.725,0
rotate limb 1,15,-45,180,0
`hide limb 1,15 :`temp

` delete mesh
delete mesh 1

` make mesh to work from
make object cube 2,1
make mesh from object 1,2
delete object 2

` frunt grund platform floor strucher *
add limb 1,16,1
scale limb 1,16,700,160,250
offset limb 1,16,-1,0.75,3.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make steps
for c = 1 to 5
add limb 2,c,1
rotate limb 2,c,45,0,0
offset limb 2,c,0,0,c+1.25
scale limb 2,c,100,100,100
next c

` make step sides
for c = 6 to 7
add limb 2,c,1
scale limb 2,c,25,300,600
next c
offset limb 2,6,0.5,0,4.5
offset limb 2,7,-0.5,0,4.5

` make mesh of brackits
make mesh from object 1,2
delete object 2

` dropdown steps strucher *
add limb 1,17,1
scale limb 1,17,200,50,50
offset limb 1,17,0,-0.9,7.2
rotate limb 1,17,-45,180,0

` delete mesh
delete mesh 1

` make mesh to work from
`make object cylinder 2,1
make object cube 2,1
make mesh from object 1,2
delete object 2

` detal strucher *
for c = 18 to 21
add limb 1,c,1
scale limb 1,c,100,1250,100
`hide limb 1,c :`temp
next c
offset limb 1,18,2.5,6,2.5
offset limb 1,19,-2.5,6,2.5
offset limb 1,20,2.5,6,-2.5
offset limb 1,21,-2.5,6,-2.5

` delete mesh
delete mesh 1

`****************************************

` make mesh and an object to work from
make object triangle 2,0,10,0,-10,0,10,10,0,10
make mesh from object 1,2
position object 2,0,-9,10

` make a rooth top
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,150,150,150
offset limb 2,c,0,0.25,0
next c
rotate limb 2,2,0,-90,0
rotate limb 2,3,0,90,0
rotate limb 2,4,0,180,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add rooth top detale strucher
for c = 22 to 25
add limb 1,c,1
scale limb 1,c,3.5,25,3.5
next c
offset limb 1,22,2.5,12.15,2.5
offset limb 1,23,-2.5,12.15,2.5
offset limb 1,24,2.5,12.15,-2.5
offset limb 1,25,-2.5,12.15,-2.5

` delete mesh
delete mesh 1
`***************************************

` make mesh and an object to work from
make object triangle 2,0,10,0,-10,0,10,10,0,10
make mesh from object 1,2
position object 2,0,-9,10

` make a rooth top
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,150,150,150
offset limb 2,c,0,0.25,0
next c
rotate limb 2,2,0,-90,0
rotate limb 2,3,0,90,0
rotate limb 2,4,0,180,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add rooth top cone
add limb 1,26,1
scale limb 1,26,15,75,15
offset limb 1,26,0,10,0

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make a door piller top
for c = 1 to 2
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 3 to 4
add limb 2,c,1
scale limb 2,c,50,50,50
next c
offset limb 2,1,1.25,0,0
offset limb 2,2,-1.25,0,0
offset limb 2,3,0.75,0,0
offset limb 2,4,-0.75,0,0

hide limb 2,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add door detal top, top floor back door
add limb 1,27,1
scale limb 1,27,100,100,100
offset limb 1,27,0,9.5,-2.5

` add door detal top, top floor right door
add limb 1,28,1
scale limb 1,28,100,100,100
offset limb 1,28,2.5,9.5,0
rotate limb 1,28,0,90,0

` add door detal top, ground floor frunt door
add limb 1,29,1
scale limb 1,29,100,100,100
offset limb 1,29,0,5.75,2.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make door piller sides
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 5 to 6
add limb 2,c,1
next c
offset limb 2,1,0,0.75,0
offset limb 2,2,0,2,0
offset limb 2,3,0,-0.75,0
offset limb 2,4,0,-2,0
offset limb 2,5,0,1.25,0
offset limb 2,6,0,-1.25,0

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add door piller sides
for c = 30 to 35
add limb 1,c,1
scale limb 1,c,75,75,75
next c
offset limb 1,30,-1.25,7.5,-2.5
offset limb 1,31,1.25,7.5,-2.5
offset limb 1,32,2.5,7.5,-1.25
offset limb 1,33,2.5,7.5,1.25
scale limb 1,34,75,100,75
scale limb 1,35,75,100,75
offset limb 1,34,-1.25,3.5,2.5
offset limb 1,35,1.25,3.5,2.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make floor brackits
for c = 1 to 3
randomize timer()
add limb 2,c,1
next c
scale limb 2,1,100,100,750
offset limb 2,2,0,-3.5,3
rotate limb 2,2,90,0,0
scale limb 2,2,120,100,750
offset limb 2,3,0,-3,0
rotate limb 2,3,45,0,0
scale limb 2,3,90,100,750

` make mesh of brackits
make mesh from object 1,2
delete object 2

` add floor brackits
for c = 36 to 40
add limb 1,c,1
scale limb 1,c,25,25,25
next c
offset limb 1,36,1.75,5.8,-3.4
offset limb 1,37,-1.75,5.8,-3.4
offset limb 1,38,3.4,5.8,1.75
offset limb 1,39,3.4,5.8,-1.75
offset limb 1,40,-3.5,5.8,-3.4
rotate limb 1,38,0,-90,0
rotate limb 1,39,0,-90,0
rotate limb 1,40,0,45,0

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make fence
for c = 1 to 3
add limb 2,c,1
next c
scale limb 2,1,100,600,100
scale limb 2,2,900,75,75
scale limb 2,3,900,75,75
offset limb 2,1,0,0,0
offset limb 2,2,-4,1.5,0
offset limb 2,3,-4,-1.5,0

` make mesh of brackits
make mesh from object 1,2
delete object 2

` add fence
for c = 41 to 50
add limb 1,c,1
scale limb 1,c,25,25,25
next c
offset limb 1,41,2.25,6.75,-4.5
offset limb 1,42,0,6.75,-4.5
offset limb 1,43,-2.25,6.75,-4.5
offset limb 1,44,2.25,6.75,-2.25
rotate limb 1,44,0,-90,0
offset limb 1,45,-4.25,6.75,-4.5
rotate limb 1,45,0,90,0
offset limb 1,46,-4.25,6.75,-2.3
rotate limb 1,46,0,-90,0
offset limb 1,47,4.75,6.75,-2.25
offset limb 1,48,4.75,6.75,2.25
offset limb 1,49,4.75,6.75,-1.125
scale limb 1,49,12.5,25,25
rotate limb 1,49,0,-90,0
offset limb 1,50,4.75,6.75,1.125
scale limb 1,50,12.5,25,25
rotate limb 1,50,0,90,0

`*************************************

`*** delete mesh ***
delete mesh 1

`*** delete object and make mesh ***
make mesh from object 1,1
delete object 1

`here is a save options mesh
`save mesh "mesh name.x",1

`*** make crate object ***
make object 1,1,0

`here is a save options object
`save object "object name.dbo",1

` position object away from cam
position object 1,0,-8,20
set object 1,1,1,0

` set up ambients, specular and colour object
   color object 1, rgb ( 255, 255, 255 )
   set object specular 1, rgb ( 255, 255, 255 )
   set object specular power 1, 255
   set object ambient 1,0

do

`*** swich objcet and cam controls
if spacekey()=1 and on = 0 then camlock = 1
if spacekey()=1 and on = 1 then camlock = 0 : on = 0
if camlock = 0 then object_rotation(obj)
if camlock = 1 then player_control() :on = 1
if on = 1 then inc clt
if clt >= 50 then clt = 0

sync
loop

`*** object rotatation ***
function object_rotation(obj)

` y & x rotate object
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3

endfunction

`*** player controls ***
function player_control()

` rotate camera
   yrotate camera camera angle y() + mousemovex()*0.3
   xrotate camera camera angle x() + mousemovey()*0.3

` stops mouse from going upside down
   if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

` move camera
   if mouseclick()=2 then move camera 0,-0.25
   if mouseclick()=1 then move camera 0,0.25

endfunction

+ Code Snippet

sync on : sync rate 60
autocam off
set camera range 1,1000
set normalization on
hide mouse

` hay this is a building that I made, hope you like it.
` use it as a statick object.
` made by marc newham aka Sindore
` date: 10/06/2008

obj = 1
make object cube 1,1

` make mesh to work from
make object cube 2,1
make mesh from object 1,2
delete object 2

` ground floor for strucher *
add limb 1,1,1
scale limb 1,1,500,10,500
offset limb 1,1,0,1.5,0

`left wall
add limb 1,2,1
scale limb 1,2,10,1000,500
offset limb 1,2,-2.5,5,0

`frunt wall left
add limb 1,3,1
scale limb 1,3,125,1000,10
offset limb 1,3,-1.8,5,2.5

`frunt wall right
add limb 1,4,1
scale limb 1,4,125,1000,10
offset limb 1,4,1.8,5,2.5

`back wall left
add limb 1,5,1
scale limb 1,5,125,1000,10
offset limb 1,5,-1.8,5,-2.5

`back wall right
add limb 1,6,1
scale limb 1,6,125,1000,10
offset limb 1,6,1.8,5,-2.5

`left wall frunt
add limb 1,7,1
scale limb 1,7,10,1000,125
offset limb 1,7,2.5,5,1.8

`right wall back
add limb 1,8,1
scale limb 1,8,10,1000,125
offset limb 1,8,2.5,5,-1.8

` 2nd floor for strucher *
add limb 1,9,1
scale limb 1,9,750,10,500
offset limb 1,9,1.25,6,0 :`0,6,0

` rooth top for strucher *
add limb 1,10,1
scale limb 1,10,550,50,550
offset limb 1,10,0,10,0

` upper frunt wall strucher *
add limb 1,11,1
scale limb 1,11,250,400,10
offset limb 1,11,0,8,2.5

` lower back wall strucher *
add limb 1,12,1
scale limb 1,12,250,600,10
offset limb 1,12,0,3,-2.5
`hide limb 1,12 :`temp

` right lower wall strucher *
add limb 1,13,1
scale limb 1,13,10,600,250
offset limb 1,13,2.5,3,0

` back platform 2nd floor strucher *
add limb 1,14,1
scale limb 1,14,700,10,250
offset limb 1,14,-1,6,-3.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make steps
for c = 1 to 13
add limb 2,c,1
rotate limb 2,c,45,0,0
offset limb 2,c,0,0,c+1.25
scale limb 2,c,100,100,100
next c

` make mesh of brackits
make mesh from object 1,2
delete object 2

` left steps floor strucher *
add limb 1,15,1
scale limb 1,15,190,50,50 :`200,10,650
offset limb 1,15,-3.5,0.75,3 :`-3.5,3.725,0
rotate limb 1,15,-45,180,0
`hide limb 1,15 :`temp

` delete mesh
delete mesh 1

` make mesh to work from
make object cube 2,1
make mesh from object 1,2
delete object 2

` frunt grund platform floor strucher *
add limb 1,16,1
scale limb 1,16,700,160,250
offset limb 1,16,-1,0.75,3.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make steps
for c = 1 to 5
add limb 2,c,1
rotate limb 2,c,45,0,0
offset limb 2,c,0,0,c+1.25
scale limb 2,c,100,100,100
next c

` make step sides
for c = 6 to 7
add limb 2,c,1
scale limb 2,c,25,300,600
next c
offset limb 2,6,0.5,0,4.5
offset limb 2,7,-0.5,0,4.5

` make mesh of brackits
make mesh from object 1,2
delete object 2

` dropdown steps strucher *
add limb 1,17,1
scale limb 1,17,200,50,50
offset limb 1,17,0,-0.9,7.2
rotate limb 1,17,-45,180,0

` delete mesh
delete mesh 1

` make mesh to work from
`make object cylinder 2,1
make object cube 2,1
make mesh from object 1,2
delete object 2

` detal strucher *
for c = 18 to 21
add limb 1,c,1
scale limb 1,c,100,1250,100
`hide limb 1,c :`temp
next c
offset limb 1,18,2.5,6,2.5
offset limb 1,19,-2.5,6,2.5
offset limb 1,20,2.5,6,-2.5
offset limb 1,21,-2.5,6,-2.5

` delete mesh
delete mesh 1

`****************************************

` make mesh and an object to work from
make object triangle 2,0,10,0,-10,0,10,10,0,10
make mesh from object 1,2
position object 2,0,-9,10

` make a rooth top
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,150,150,150
offset limb 2,c,0,0.25,0
next c
rotate limb 2,2,0,-90,0
rotate limb 2,3,0,90,0
rotate limb 2,4,0,180,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add rooth top detale strucher
for c = 22 to 25
add limb 1,c,1
scale limb 1,c,3.5,25,3.5
next c
offset limb 1,22,2.5,12.15,2.5
offset limb 1,23,-2.5,12.15,2.5
offset limb 1,24,2.5,12.15,-2.5
offset limb 1,25,-2.5,12.15,-2.5

` delete mesh
delete mesh 1
`***************************************

` make mesh and an object to work from
make object triangle 2,0,10,0,-10,0,10,10,0,10
make mesh from object 1,2
position object 2,0,-9,10

` make a rooth top
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,150,150,150
offset limb 2,c,0,0.25,0
next c
rotate limb 2,2,0,-90,0
rotate limb 2,3,0,90,0
rotate limb 2,4,0,180,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add rooth top cone
add limb 1,26,1
scale limb 1,26,15,75,15
offset limb 1,26,0,10,0

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make a door piller top
for c = 1 to 2
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 3 to 4
add limb 2,c,1
scale limb 2,c,50,50,50
next c
offset limb 2,1,1.25,0,0
offset limb 2,2,-1.25,0,0
offset limb 2,3,0.75,0,0
offset limb 2,4,-0.75,0,0

hide limb 2,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add door detal top, top floor back door
add limb 1,27,1
scale limb 1,27,100,100,100
offset limb 1,27,0,9.5,-2.5

` add door detal top, top floor right door
add limb 1,28,1
scale limb 1,28,100,100,100
offset limb 1,28,2.5,9.5,0
rotate limb 1,28,0,90,0

` add door detal top, ground floor frunt door
add limb 1,29,1
scale limb 1,29,100,100,100
offset limb 1,29,0,5.75,2.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make door piller sides
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 5 to 6
add limb 2,c,1
next c
offset limb 2,1,0,0.75,0
offset limb 2,2,0,2,0
offset limb 2,3,0,-0.75,0
offset limb 2,4,0,-2,0
offset limb 2,5,0,1.25,0
offset limb 2,6,0,-1.25,0

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add door piller sides
for c = 30 to 35
add limb 1,c,1
scale limb 1,c,75,75,75
next c
offset limb 1,30,-1.25,7.5,-2.5
offset limb 1,31,1.25,7.5,-2.5
offset limb 1,32,2.5,7.5,-1.25
offset limb 1,33,2.5,7.5,1.25
scale limb 1,34,75,100,75
scale limb 1,35,75,100,75
offset limb 1,34,-1.25,3.5,2.5
offset limb 1,35,1.25,3.5,2.5

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make floor brackits
for c = 1 to 3
randomize timer()
add limb 2,c,1
next c
scale limb 2,1,100,100,750
offset limb 2,2,0,-3.5,3
rotate limb 2,2,90,0,0
scale limb 2,2,120,100,750
offset limb 2,3,0,-3,0
rotate limb 2,3,45,0,0
scale limb 2,3,90,100,750

` make mesh of brackits
make mesh from object 1,2
delete object 2

` add floor brackits
for c = 36 to 40
add limb 1,c,1
scale limb 1,c,25,25,25
next c
offset limb 1,36,1.75,5.8,-3.4
offset limb 1,37,-1.75,5.8,-3.4
offset limb 1,38,3.4,5.8,1.75
offset limb 1,39,3.4,5.8,-1.75
offset limb 1,40,-3.5,5.8,-3.4
rotate limb 1,38,0,-90,0
rotate limb 1,39,0,-90,0
rotate limb 1,40,0,45,0

` delete mesh
delete mesh 1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make fence
for c = 1 to 3
add limb 2,c,1
next c
scale limb 2,1,100,600,100
scale limb 2,2,900,75,75
scale limb 2,3,900,75,75
offset limb 2,1,0,0,0
offset limb 2,2,-4,1.5,0
offset limb 2,3,-4,-1.5,0

` make mesh of brackits
make mesh from object 1,2
delete object 2

` add fence
for c = 41 to 50
add limb 1,c,1
scale limb 1,c,25,25,25
next c
offset limb 1,41,2.25,6.75,-4.5
offset limb 1,42,0,6.75,-4.5
offset limb 1,43,-2.25,6.75,-4.5
offset limb 1,44,2.25,6.75,-2.25
rotate limb 1,44,0,-90,0
offset limb 1,45,-4.25,6.75,-4.5
rotate limb 1,45,0,90,0
offset limb 1,46,-4.25,6.75,-2.3
rotate limb 1,46,0,-90,0
offset limb 1,47,4.75,6.75,-2.25
offset limb 1,48,4.75,6.75,2.25
offset limb 1,49,4.75,6.75,-1.125
scale limb 1,49,12.5,25,25
rotate limb 1,49,0,-90,0
offset limb 1,50,4.75,6.75,1.125
scale limb 1,50,12.5,25,25
rotate limb 1,50,0,90,0

`*************************************

`*** delete mesh ***
delete mesh 1

`*** delete object and make mesh ***
make mesh from object 1,1
delete object 1

`here is a save options mesh
`save mesh "mesh name.x",1

`*** make crate object ***
make object 1,1,0

`here is a save options object
`save object "object name.dbo",1


` position object away from cam
position object 1,0,-8,20
set object 1,1,1,0

   ` set up ambients, specular and colour object
   color object 1, rgb ( 255, 255, 255 )
   set object specular 1, rgb ( 255, 255, 255 )
   set object specular power 1, 255
   set object ambient 1,0

do

`*** swich objcet and cam controls
if spacekey()=1 and on = 0 then camlock = 1
if spacekey()=1 and on = 1 then camlock = 0 : on = 0
if camlock = 0 then object_rotation(obj)
if camlock = 1 then player_control() :on = 1
if on = 1 then inc clt
if clt >= 50 then clt = 0

sync
loop

`*** object rotatation ***
function object_rotation(obj)

   ` y & x rotate object
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3

endfunction

`*** player controls ***
function player_control()

   ` rotate camera
   yrotate camera camera angle y() + mousemovex()*0.3
   xrotate camera camera angle x() + mousemovey()*0.3

   ` stops mouse from going upside down
   if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

   ` move camera
   if mouseclick()=2 then move camera 0,-0.25
   if mouseclick()=1 then move camera 0,0.25

endfunction

here is an image of the new building I made

here is th code for it

sync on : sync rate 60
autocam off
set camera range 1,1000
set normalization on
hide mouse

position camera 0,8,-20

` hay this is a building that I made, hope you like it.
` use it as a statick object.
` made by marc newham aka Sindore
` date: 19/06/2008

obj=1
mesh1=1
make object sphere obj,5
scale object obj,120,20,120
make mesh from object mesh1,obj
delete object obj

make object cylinder obj,5
scale object obj,50,100,50

add limb obj,1,mesh1
offset limb obj,1,0,-2.5,0

add limb obj,2,mesh1
offset limb obj,2,0,-3.25,0
scale limb obj,2,120,120,120

add limb obj,3,mesh1
offset limb obj,3,0,2.5,0

add limb obj,4,mesh1
offset limb obj,4,0,3.25,0
scale limb obj,4,120,120,120

delete mesh mesh1

make mesh from object mesh1,obj
delete object obj

`make centeral object to rotate
make object cube obj,1

` add 6 pillers
for c = 1 to 6
add limb obj,c,mesh1
scale limb obj,c,50,75,50
next c
offset limb obj,1,3,3.15,6.75
offset limb obj,2,-3,3.15,-6.75
offset limb obj,3,-3,3.15,6.75
offset limb obj,4,3,3.15,-6.75
offset limb obj,5,-3,3.15,0
offset limb obj,6,3,3.15,0

`delete mesh to make way for new objects
delete mesh mesh1

`***************************************

` make object to make mesh from
make object cube 2,1
make mesh from object mesh1,2

add limb 2,1,1
scale limb 2,1,125,50,125
offset limb 2,1,0,-0.25,0

delete mesh mesh1
make mesh from object mesh1,2
delete object 2

` make 1nd floor
add limb obj,7,mesh1
scale limb obj,7,750,125,1500
offset limb 1,7,0,0,0

delete mesh mesh1

`**************************************

` make object to make mesh from
make object cube 2,1
make mesh from object mesh1,2
delete object 2

` make 2nd floor
add limb obj,8,mesh1
scale limb obj,8,750,10,1500
offset limb obj,8,0,6,0

` upper wall frunt & back
for c = 9 to 12
add limb obj,c,mesh1
scale limb obj,c,250,400,10
next c
offset limb obj,9,2.5,8,7.5
offset limb obj,10,-2.5,8,7.5
offset limb obj,11,2.5,8,-7.5
offset limb obj,12,-2.5,8,-7.5

` upper walls side
for c = 13 to 16
add limb obj,c,mesh1
scale limb obj,c,10,400,625
next c
offset limb obj,13,3.75,8,4.4
offset limb obj,14,-3.75,8,-4.4
offset limb obj,15,-3.75,8,4.4
offset limb obj,16,3.75,8,-4.4

` rooth top for strucher *
add limb obj,17,mesh1
scale limb obj,17,800,50,1550
offset limb obj,17,0,10,0

`***************************************

` delete mesh
delete mesh mesh1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make a door piller top
for c = 1 to 2
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 3 to 4
add limb 2,c,1
scale limb 2,c,50,50,50
next c
offset limb 2,1,1.25,0,0
offset limb 2,2,-1.25,0,0
offset limb 2,3,0.75,0,0
offset limb 2,4,-0.75,0,0

hide limb 2,0

` delete mesh
delete mesh mesh1

` make mesh of blocks
make mesh from object 1,2
delete object 2

`add door piller tops
for c = 18 to 21
add limb obj,c,mesh1
`scale limb obj,c,10,550,625
next c
offset limb obj,18,0,10,7.5
offset limb obj,19,0,10,-7.5
offset limb obj,20,3.75,10,0
rotate limb obj,20,0,90,0
offset limb obj,21,-3.75,10,0
rotate limb obj,21,0,90,0

` delete mesh
delete mesh mesh1

` make mesh and an object to work from
make object cube 2,1
make mesh from object mesh1,2
position object 2,0,-9,10

` make door piller sides
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 5 to 6
add limb 2,c,1
next c
offset limb 2,1,0,0.75,0
offset limb 2,2,0,2,0
offset limb 2,3,0,-0.75,0
offset limb 2,4,0,-2,0
offset limb 2,5,0,1.25,0
offset limb 2,6,0,-1.25,0

` make mesh of blocks
make mesh from object mesh1,2
delete object 2

` add door piller sides
for c = 22 to 29
add limb obj,c,mesh1
scale limb obj,c,75,80,75
next c
offset limb obj,22,1.25,7.85,7.5
offset limb obj,23,-1.25,7.85,7.5
offset limb obj,24,1.25,7.85,-7.5
offset limb obj,25,-1.25,7.85,-7.5

offset limb obj,26,3.75,7.85,1.25
offset limb obj,27,3.75,7.85,-1.25
offset limb obj,28,-3.75,7.85,1.25
offset limb obj,29,-3.75,7.85,-1.25

` delete mesh
delete mesh mesh1

` make mesh from temp cube
make object cube 2,1
make mesh from object mesh1,2
delete object 2

` deltale pillers out edge of building
for c = 30 to 33
add limb obj,c,mesh1
scale limb obj,c,100,600,100
next c
offset limb obj,30,3.75,8.75,7.5
offset limb obj,31,-3.75,8.75,7.5
offset limb obj,32,3.75,8.75,-7.5
offset limb obj,33,-3.75,8.75,-7.5

` make mesh and an object to work from
make object triangle 2,0,10,0,-10,0,10,10,0,10
make mesh from object 1,2
position object 2,0,-9,10

` make a rooth top
for c = 1 to 4
add limb 2,c,mesh1
scale limb 2,c,150,150,150
offset limb 2,c,0,0.25,0
next c
rotate limb 2,2,0,-90,0
rotate limb 2,3,0,90,0
rotate limb 2,4,0,180,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add rooth top detale strucher
for c = 34 to 37
add limb 1,c,mesh1
scale limb 1,c,3.5,25,3.5
next c
offset limb 1,34,3.75,11.65,7.5
offset limb 1,35,-3.75,11.65,7.5
offset limb 1,36,3.75,11.65,-7.5
offset limb 1,37,-3.75,11.65,-7.5

` delete mesh
delete mesh 1

` make rooth top ends
make object triangle 2,0,0,0,-10,0,10,10,0,10
make mesh from object mesh1,2
position object 2,0,-9,10

` make a rooth top ends
for c = 1 to 2
add limb 2,c,1
scale limb 2,c,100,100,100
rotate limb 2,c,90,0,0
next c
offset limb 2,1,0,10,-15
offset limb 2,2,0,10,15

` dletele mesh make new mesh delete object
delete mesh 1
make mesh from object mesh1,2
delete object 2

` add rooth top ends
add limb 1,38,mesh1
scale limb 1,38,35,50,50
offset limb 1,38,0,10,0

` delete mesh
delete mesh mesh1

` make temp
make object plain 2,1,1
make mesh from object mesh1,2
delete object 2

` add rooth top sides
add limb 1,39,mesh1
scale limb 1,39,1500,600,100
rotate limb 1,39,35,90,0
offset limb 1,39,-1.75,12.5,0

` add rooth top sides
add limb 1,40,mesh1
scale limb 1,40,1500,600,100
rotate limb 1,40,-35,90,0
offset limb 1,40,1.75,12.5,0

` delete mesh
delete mesh mesh1

` make temp
make object cube 2,1
make mesh from object mesh1,2
delete object 2

` add wood rooth suport top bar
add limb 1,41,mesh1
scale limb 1,41,50,50,1700
offset limb 1,41,0,15,0
rotate limb 1,41,0,0,45

` add wood rooth suport
add limb 1,42,mesh1
scale limb 1,42,50,600,50
offset limb 1,42,1.75,12.5,7.4
rotate limb 1,42,0,0,35

` add wood rooth suport
add limb 1,43,mesh1
scale limb 1,43,50,600,50
offset limb 1,43,-1.75,12.5,7.4
rotate limb 1,43,0,0,-35

` add wood rooth suport
add limb 1,44,mesh1
scale limb 1,44,50,600,50
offset limb 1,44,1.75,12.5,-7.4
rotate limb 1,44,0,0,35

` add wood rooth suport
add limb 1,45,mesh1
scale limb 1,45,50,600,50
offset limb 1,45,-1.75,12.5,-7.4
rotate limb 1,45,0,0,-35

` delete mesh
delete mesh mesh1
`remstart
` make temp
make object cylinder 2,1
make mesh from object mesh1,2
delete object 2

` add rooth detal cylinder
add limb 1,46,mesh1
scale limb 1,46,200,1550,200
offset limb 1,46,0,12,0
rotate limb 1,46,90,0,0

` delete mesh
delete mesh mesh1

` make temp
make object sphere 2,1
make mesh from object mesh1,2
delete object 2

` add rooth detal sphere
add limb 1,47,mesh1
scale limb 1,47,200,200,10
offset limb 1,47,0,12,7.75

` add rooth detal sphere
add limb 1,48,mesh1
scale limb 1,48,200,200,10
offset limb 1,48,0,12,-7.75

` delete mesh
delete mesh mesh1
`remend
`****************************************************
set object 1,1,1,0

do

` y & x rotate object
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3

sync
loop

+ Code Snippet

sync on : sync rate 60
autocam off
set camera range 1,1000
set normalization on
hide mouse

position camera 0,8,-20

` hay this is a building that I made, hope you like it.
` use it as a statick object.
` made by marc newham aka Sindore
` date: 19/06/2008

obj=1
mesh1=1
make object sphere obj,5
scale object obj,120,20,120
make mesh from object mesh1,obj
delete object obj

make object cylinder obj,5
scale object obj,50,100,50

add limb obj,1,mesh1
offset limb obj,1,0,-2.5,0

add limb obj,2,mesh1
offset limb obj,2,0,-3.25,0
scale limb obj,2,120,120,120

add limb obj,3,mesh1
offset limb obj,3,0,2.5,0

add limb obj,4,mesh1
offset limb obj,4,0,3.25,0
scale limb obj,4,120,120,120

delete mesh mesh1

make mesh from object mesh1,obj
delete object obj

`make centeral object to rotate
make object cube obj,1

` add 6 pillers
for c = 1 to 6
add limb obj,c,mesh1
scale limb obj,c,50,75,50
next c
offset limb obj,1,3,3.15,6.75
offset limb obj,2,-3,3.15,-6.75
offset limb obj,3,-3,3.15,6.75
offset limb obj,4,3,3.15,-6.75
offset limb obj,5,-3,3.15,0
offset limb obj,6,3,3.15,0

`delete mesh to make way for new objects
delete mesh mesh1

`***************************************

` make object to make mesh from
make object cube 2,1
make mesh from object mesh1,2

add limb 2,1,1
scale limb 2,1,125,50,125
offset limb 2,1,0,-0.25,0

delete mesh mesh1
make mesh from object mesh1,2
delete object 2

` make 1nd floor
add limb obj,7,mesh1
scale limb obj,7,750,125,1500
offset limb 1,7,0,0,0

delete mesh mesh1

`**************************************

` make object to make mesh from
make object cube 2,1
make mesh from object mesh1,2
delete object 2

` make 2nd floor
add limb obj,8,mesh1
scale limb obj,8,750,10,1500
offset limb obj,8,0,6,0

` upper wall frunt & back
for c = 9 to 12
add limb obj,c,mesh1
scale limb obj,c,250,400,10
next c
offset limb obj,9,2.5,8,7.5
offset limb obj,10,-2.5,8,7.5
offset limb obj,11,2.5,8,-7.5
offset limb obj,12,-2.5,8,-7.5

` upper walls side
for c = 13 to 16
add limb obj,c,mesh1
scale limb obj,c,10,400,625
next c
offset limb obj,13,3.75,8,4.4
offset limb obj,14,-3.75,8,-4.4
offset limb obj,15,-3.75,8,4.4
offset limb obj,16,3.75,8,-4.4

` rooth top for strucher *
add limb obj,17,mesh1
scale limb obj,17,800,50,1550
offset limb obj,17,0,10,0

`***************************************

` delete mesh
delete mesh mesh1

` make mesh and an object to work from
make object cube 2,1
make mesh from object 1,2
position object 2,0,-9,10

` make a door piller top
for c = 1 to 2
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 3 to 4
add limb 2,c,1
scale limb 2,c,50,50,50
next c
offset limb 2,1,1.25,0,0
offset limb 2,2,-1.25,0,0
offset limb 2,3,0.75,0,0
offset limb 2,4,-0.75,0,0

hide limb 2,0

` delete mesh
delete mesh mesh1

` make mesh of blocks
make mesh from object 1,2
delete object 2

`add door piller tops
for c = 18 to 21
add limb obj,c,mesh1
`scale limb obj,c,10,550,625
next c
offset limb obj,18,0,10,7.5
offset limb obj,19,0,10,-7.5
offset limb obj,20,3.75,10,0
rotate limb obj,20,0,90,0
offset limb obj,21,-3.75,10,0
rotate limb obj,21,0,90,0

` delete mesh
delete mesh mesh1

` make mesh and an object to work from
make object cube 2,1
make mesh from object mesh1,2
position object 2,0,-9,10

` make door piller sides
for c = 1 to 4
add limb 2,c,1
scale limb 2,c,75,75,75
next c
for c = 5 to 6
add limb 2,c,1
next c
offset limb 2,1,0,0.75,0
offset limb 2,2,0,2,0
offset limb 2,3,0,-0.75,0
offset limb 2,4,0,-2,0
offset limb 2,5,0,1.25,0
offset limb 2,6,0,-1.25,0

` make mesh of blocks
make mesh from object mesh1,2
delete object 2

` add door piller sides
for c = 22 to 29
add limb obj,c,mesh1
scale limb obj,c,75,80,75
next c
offset limb obj,22,1.25,7.85,7.5
offset limb obj,23,-1.25,7.85,7.5
offset limb obj,24,1.25,7.85,-7.5
offset limb obj,25,-1.25,7.85,-7.5

offset limb obj,26,3.75,7.85,1.25
offset limb obj,27,3.75,7.85,-1.25
offset limb obj,28,-3.75,7.85,1.25
offset limb obj,29,-3.75,7.85,-1.25

` delete mesh
delete mesh mesh1

` make mesh from temp cube
make object cube 2,1
make mesh from object mesh1,2
delete object 2

` deltale pillers out edge of building
for c = 30 to 33
add limb obj,c,mesh1
scale limb obj,c,100,600,100
next c
offset limb obj,30,3.75,8.75,7.5
offset limb obj,31,-3.75,8.75,7.5
offset limb obj,32,3.75,8.75,-7.5
offset limb obj,33,-3.75,8.75,-7.5

` make mesh and an object to work from
make object triangle 2,0,10,0,-10,0,10,10,0,10
make mesh from object 1,2
position object 2,0,-9,10

` make a rooth top
for c = 1 to 4
add limb 2,c,mesh1
scale limb 2,c,150,150,150
offset limb 2,c,0,0.25,0
next c
rotate limb 2,2,0,-90,0
rotate limb 2,3,0,90,0
rotate limb 2,4,0,180,0

` delete mesh
delete mesh 1

` make mesh of blocks
make mesh from object 1,2
delete object 2

` add rooth top detale strucher
for c = 34 to 37
add limb 1,c,mesh1
scale limb 1,c,3.5,25,3.5
next c
offset limb 1,34,3.75,11.65,7.5
offset limb 1,35,-3.75,11.65,7.5
offset limb 1,36,3.75,11.65,-7.5
offset limb 1,37,-3.75,11.65,-7.5

` delete mesh
delete mesh 1

` make rooth top ends
make object triangle 2,0,0,0,-10,0,10,10,0,10
make mesh from object mesh1,2
position object 2,0,-9,10

` make a rooth top ends
for c = 1 to 2
add limb 2,c,1
scale limb 2,c,100,100,100
rotate limb 2,c,90,0,0
next c
offset limb 2,1,0,10,-15
offset limb 2,2,0,10,15

` dletele mesh make new mesh delete object
delete mesh 1
make mesh from object mesh1,2
delete object 2

` add rooth top ends
add limb 1,38,mesh1
scale limb 1,38,35,50,50
offset limb 1,38,0,10,0

` delete mesh
delete mesh mesh1

` make temp
make object plain 2,1,1
make mesh from object mesh1,2
delete object 2

` add rooth top sides
add limb 1,39,mesh1
scale limb 1,39,1500,600,100
rotate limb 1,39,35,90,0
offset limb 1,39,-1.75,12.5,0

` add rooth top sides
add limb 1,40,mesh1
scale limb 1,40,1500,600,100
rotate limb 1,40,-35,90,0
offset limb 1,40,1.75,12.5,0

` delete mesh
delete mesh mesh1

` make temp
make object cube 2,1
make mesh from object mesh1,2
delete object 2

` add wood rooth suport top bar
add limb 1,41,mesh1
scale limb 1,41,50,50,1700
offset limb 1,41,0,15,0
rotate limb 1,41,0,0,45

` add wood rooth suport
add limb 1,42,mesh1
scale limb 1,42,50,600,50
offset limb 1,42,1.75,12.5,7.4
rotate limb 1,42,0,0,35

` add wood rooth suport
add limb 1,43,mesh1
scale limb 1,43,50,600,50
offset limb 1,43,-1.75,12.5,7.4
rotate limb 1,43,0,0,-35

` add wood rooth suport
add limb 1,44,mesh1
scale limb 1,44,50,600,50
offset limb 1,44,1.75,12.5,-7.4
rotate limb 1,44,0,0,35

` add wood rooth suport
add limb 1,45,mesh1
scale limb 1,45,50,600,50
offset limb 1,45,-1.75,12.5,-7.4
rotate limb 1,45,0,0,-35

` delete mesh
delete mesh mesh1
`remstart
` make temp
make object cylinder 2,1
make mesh from object mesh1,2
delete object 2

` add rooth detal cylinder
add limb 1,46,mesh1
scale limb 1,46,200,1550,200
offset limb 1,46,0,12,0
rotate limb 1,46,90,0,0

` delete mesh
delete mesh mesh1

` make temp
make object sphere 2,1
make mesh from object mesh1,2
delete object 2

` add rooth detal sphere
add limb 1,47,mesh1
scale limb 1,47,200,200,10
offset limb 1,47,0,12,7.75

` add rooth detal sphere
add limb 1,48,mesh1
scale limb 1,48,200,200,10
offset limb 1,48,0,12,-7.75

` delete mesh
delete mesh mesh1
`remend
`****************************************************
set object 1,1,1,0

do

   ` y & x rotate object
   yrotate object obj,object angle y(obj) + mousemovex()*0.3
   xrotate object obj,object angle x(obj) + mousemovey()*0.3


sync
loop

soul sucking devils, twisted body of the damed, slivering slim drips from every poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!

Attachments

Login to view attachments

Back to top

Profile PM Email Website

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 31st May 2008 21:51

Link

That is awesome!

I really have to get some skills on making media-less objects.

When i think twice, you can actually make really advanced objects with bitmaps and objects and limb gluing

Really nicely done sindore

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 1st Jun 2008 07:28 Edited at: 1st Jun 2008 20:25

Link

I`m still working hard at it, I wont others to have what I`v made, be`cos I know ever one is making there hone games and don`t have time to work on small thing like media for this callenge, I wont 2 see what you pep`s make of the media`less media I made.

like what bergice made with his textures, and hope all like what I`v done with my weapons, I will also add texture as well.

I think I`m going 2 see if you can make sounds in dbp to, but don`t think you can throe, dose any one know if you can make sounds instead of loading them?

bergice thanks for complement, hope you don`t give up on this challenge, I think what I`v seen of your work on this post is good, and hope to see moor.

could you post some pics of your guitar hero and war zone games, it would be nice to see what your working on.

but I would not like to take you away from your mane project,the guitar hero game sound like it would be fun, but this is only for a mouth, and just think what you could make in that time, you may even find something more to add to your mane projects, by doing this side project.

I`m adding a hands to, but need to do some work on them 1st.

I`m using it as my 3rd weapon for telekinesis and holding my guns, using my ray casting post, I`v made a fire system for the telekinesis objects, so that a crate/weapon/ammo/rook can be herald at an NPC of which would gain damage from the attack.

HowDo are you having a go at this challenge?
it would be nice to see some of what you get up to, I see you on a lot of posts and guess that you are a hardened programmer, lets see something cool that you`v made, pleas!.. lol.

good luck all, and don`t forget have fun with this challenge, and if you don`t make the dead line, I`ll do a late runner award, but the same rules applies, I`ll give all late runners a extra two week to finish, but if you still don`t finish your projects by then post it anyway, I`ll still tell you what I think.

should work out good, be nice to see what you guys think of my next post.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 1st Jun 2008 16:25 Edited at: 1st Jun 2008 16:27

Link

Quote: "like what bergice made with his/her textures, and hope all like what I`v done with my weapons, I will also add texture as well."

His

Quote: "I think I`m going 2 see if you can make sounds in dbp to, but don`t think you can throe, dose any one know if you can make sounds instead of loading them?"

I dont think dark basic supports that.
But only thing would probably make a dll for it.

Quote: "bergice thanks for complement, hope you don`t give up on this challenge, I think what I`v seen of your work on this post is good, and hope to see moor."

I will probably be done with my mini sandbox game.

Could i use your weapons for it?
That would be nice, but if not i will see if i can create my own

Quote: "could you post some pics of your guitar hero and war zone games, it would be nice to see what your working on. "

Well, i dont feel ready for that yet.
But dont worry, they both look nice

Hopefully i will be able to release a beta of my guitar game in less than 2 weeks

And for my warzone game, its really nice but i think i will have to rename it as there is a previous game with that name XD

Quote: "but I would not like to take you away from your mane project,the guitar hero game sound like it would be fun, but this is only for a mouth, and just think what you could make in that time, you may even find something more to add to your mane projects, by doing this side project."

I will not let go on those 2 games, and i think i wont need to put so much work onto Sandbox because i have made a previous version of it

Quote: "I`m using it as my 3rd weapon for telekinesis and holding my guns, using my ray casting post, I`v made a fire system for the telekinesis objects, so that a crate/weapon/ammo/rook can be herald at an NPC of which would gain damage from the attack."

That sounds really nice

You will probably beat me

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 1st Jun 2008 17:31 Edited at: 1st Jun 2008 17:37

Link

Quote: " His

"

sorry I din`t wont to upset you buy saying just him or her, I`m guessing your a him?

Quote: " Could i use your weapons for it? "

bergice your more than welcome to use them, so is every one else just give me some credit in you code or on your credits, it would be nice if you could add the guns names to.

Quote: " That sounds really nice, You will probably beat me "

Don`t worry I`m not jugging my self in this challenge, I think that would be a bit unfair, thats why I`m not entering the challenge, I`m just adding to it as a freebie for all, call it an incentive for you to posting a fps game entry.

ever step of the way I will add little bits of my FPS game
as well as an NPC that dose not use DarkAI, and will work a bit better with Dark Physics, be`cos I`m moding an old AI I made in DBpro that I was working on some year ago, before I got dark ai and dark physics, thats if all go`s to plan.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 1st Jun 2008 18:43

Link

Thanks

I just come up with another idea.

A FPS where you run around in a maze with those awesome weapons you made and kill enemies

Then you come to the boss

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 2nd Jun 2008 16:27

Link

sounds good bergice, what type of bullets are you going to use? physic bullets or just a basic object? if you are going to use physic bullets I can offer a firing system.

here is one link I posted to, you will find a firing system that I made that allows you to govern how fast the bullet is fired, by pressing the space bar
it looks like this (if spacekey()=1 then speed#=speed#+1)

http://forum.thegamecreators.com/?m=forum_view&t=125961&b=30

you will need to down load an image, and place it in the same folder that you save the program to.

hope you like the texture.

bergice what type of boss are you going for? will he be able to come for you, or will he be a wall mounted gun platform type thing? or maybe a tank, or guy in a car/truck? sounds like a good idea.

I`m going for a death match type game, with a kill total of 50 points, I intended to make a net game out of it at some point, but not for this challenge, I will do that bit later on, but I may still post it here when I do so.

I`m going to making a level out of limbs, like I did with the guns, be`cos I think that it will work out for the best and I don`t have to make a tone of static ridged bodys, I can just make a static dynamic body instead, that may take some time to make, but it will be done for the challenge, and I will post the level like I did with the guns and texture, and any one can use it in there games to.

just 24 days to go on this challenge, it can still can be done

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 3rd Jun 2008 13:17 Edited at: 3rd Jun 2008 13:19

Link

This looks nice, i will probably drop the sandbox and go on with the maze labyrinth shooter idea instead

[EDIT]

And i just came up with a cool idea:

Shooting bullets through thin walls

You can shoot bullets as normally but not set it to stop on collision but "dec speed#,?#" then also check if speed# is less than or equal to 0.0 and if it is, it will stop

That way you have your own system of shooting through objects

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 3rd Jun 2008 16:34

Link

I will be gone for 5 days because of a trip with my class.

Leaving about now, cya!

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

MickeyIII

18

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 5th Jun 2008 01:49 Edited at: 5th Jun 2008 02:01

Link

Hey, finally some motivation to stick with 1 project, preferably physics and AI...I hope I can actually finnish this time, as I'm busy with other things in Life as well...Mostly my Job at a reception center. At least I'm out of school now, won't start College 'till the Fall.

Any way, Sindore, Bergice, I accept this challenge and hope others will join as well...looks like fun. Just one question...is it allright to ask for help from NON-Contestants, such as you Sindore, seeing as you're the judge, I struggle with physics...Dark AI is an odd ball, but is still pretty cool if I could get the hang of it. If no, I'll suck it up, look at examples on other threads without posting a message, and try my hardest...

Hopefully I can come up with something.

Edit: @Bergice...Technically, what you did with the sound, is exactly againts the rules of this challenge. It's not really built in if you load it like that...BUT.........................
If you really want to add sound to your game within the rules, create them using memblocks. Do a search for Create Sound, and I think that will give you the posts by Ric that I'm thinking of...

Back to top

Profile PM Email Website

MickeyIII

18

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 5th Jun 2008 02:54 Edited at: 5th Jun 2008 02:56

Link

I've actually got a few more questions...

Seeing as we only have about a month, well...now 24 days, how extensive does this have to be? Do you want a menu system as well? How do you plan on scoring this? By the way, for an FPS game, technically, even without a menu or extensive gameplay or effects, for a challenge this could take 2 months or more...unless you just want some level with a few boxes on a terrain, a player, enemy, some ammo, and one or a couple of guns.

But if I'm seeing this correctly, you said in your first post that these games could be publicly announced...That's IMPOSSIBLE with NO-MEDIA, much less only a month to make it. Or even two. This could take a year for just ONE PERSON to make.

If you REALLY want to challenge people, I would see if you could turn this into an extensive community project, and see where it goes from there...don't look so far into the future of some great Media-Less FPS game, which, like I said for the one you might be wanting, that's going to get nowhere because you haven't started on ground zero...I'm sorry to be negative about it, but those are my suggestions for this and I'm only trying to help. I believe there are numerous people who would agree with me judging from other posts I've seen regarding challenges, or "I want to make an MMOFPSMMORPG" and then they can't get it off the ground. Go ahead, dream BIG, but in order to get there, I'm sure almost anyone can, perform a self-reality check, and start small, progressing further and further, and pretty soon, you'll meet your goal, or possibly find out how to acheive more...So what do ya say, Sindore/Bergice? How about extending the deadline and simplifying it, or going with a Dark AIDark Physics Community Project for an ongoing, ever growing FPS game? I like Community Projects myself, but it's really up to Sindore to decide. Oh, and I would start a new thread if you go with a Community Project, because people might get confused when they read..."Physics and AI - Challenge"

Enough said on my part...

MickeyIII

Edit: If someone disagrees, feel free to say so, and I'll back off...

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 5th Jun 2008 18:18

Link

hay MickeyIII, I like your way of thinking, and will give you any help you wont/or what I can offer.

on the challenge point of view, the deadline will be extended if every one who enters wonts me to, I will put it to a vote, I give a week to any one how wonts a vote to say so, then I`ll put it to a vote, I will also include in the vote, a chose of finishing times so that you can all choose what the deadline is, now I`m going to chop my own head off, lol, for saying that.

MickeyIII If you wont to add a menu or what ever you wont then do so, just remember the more you add the more time it will take.

fx like particles you could use, dbpro or dphysic ones that are free of media.

as to is anything else you come up with just as long as it has no loaded media in your game.

The medials game is so that when you add your code to the post, every one can run it.

I would love this to become a community project, but lets get this challenge out of the way 1st, and am more then willing to sher any of my work with this community to, and would like it if ever one felt the same.

As for my judgment and the publicly announced games this is a public place, and I`m just judging it for game-play looks and anything else that caches my eye, and what I think a games company would look out for in a demo from an applicant, and if I like them that much, I may contact a games company for who ever wins, but only if they wish it, but I`m not promising anything.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 5th Jun 2008 19:01 Edited at: 14th Jun 2008 18:25

Link

I have an alternative idea, which may be more to every ones liking, how about doing this a simple FPS game for the 1st challenge, but an over all FPS challenge for the more hard core coders, which means that you have to make a smaller game to enter the hardcore FPS challenge, and who ever wins the hardcore FPS challenge get to pick the next small challenge, which will lead to the next hardcore challenge.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

MickeyIII

18

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 6th Jun 2008 00:12

Link

Ok, Sindore, that's more like it...I'm in then!

Oh, and one more thing...what if, like in the original DBPro Challenges, I could have more than one code boxes,each with a different program, for example, a level editor AND the FPS Physics Game...and MAYBE a Weapon Editor...then everybody can still play the game without downloading media. Just Copy and Paste the Code for the Editors, and the Game itself, and then for the Levels and Models, I'll post the file data from Notepad, which everyone with Windows has, and put it into a code box. Then they take the Level Data from or Weapon Model Data from my posted code box, and paste it into word pad, save it as the weapon name that I say to name it as above the code box I post, and put it in the correct directory reletive to the directory the Game it's in. And even with all that...THERE'S NO MEDIA TO DOWNLOAD!

But if not, again, I'll back off...

Mickey III

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 7th Jun 2008 21:43

Link

MickeyIII no direct x or other model file formats, be`cos this is a no media challenge. even though you could post them as text files it would still be media.

however fell free to post a download with a media version of your game if you wont, but this will not be judged in the challenge.

keep a media free version of you game to post as an entry to the FPS challenge.

feel free to post photos of your games to.

add texture and model that have bin coded in darkbasic pro to help others to, get some brownie points.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

MickeyIII

18

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 8th Jun 2008 22:25

Link

I didn't mean to model something in DirectX...I meant, in a way, code my own format using the file commands, that's what the original DBPro Challenges allow, and, it's really not EXTERNAL Media, Just INTERNAL. You said no EXTERNAL media. If you didn't mean that, just say so.

This is your challenge, so do what you want, it's just that more people will enter if you try to expand what you can do...not constrict it, if you know what I mean...

Back to top

Profile PM Email Website

bergice

17

Years of Service

User Offline

Joined: 5th Jun 2007

Location: Oslo,Norway

Posted: 9th Jun 2008 01:00

Link

After 5 days of England i am finally back

I will see if i can put something together soon on the maze fps idea

But now i am going to bed

Programming Recorder: 2,5 months of dark basic

Back to top

Profile PM Email

MickeyIII

18

Years of Service

User Offline

Joined: 12th Aug 2006

Location: Louisiana

Posted: 9th Jun 2008 03:19

Link

Ok, I finally got a question related to the game creating process itself, NOT RELATED AT ALL TO THE CHALLENGE RULES...I'll just do my best with what ever you decide on that.

I will do a search after I post this, but for the actual player, enemy, friendly, etc...models, how do I skin the limbs with a mesh, like using memblocks to create the mesh, and then deform it using the object vertex commands by positioning the vertices to where they wrap around the limbs and are deformed when the limbs move.

I'm sure there are several ways to do this, but for a medialess challenge, I'm not sure how to do it efficiently, or timely. I need help. I might post on another thread or create my own AFTER I do a search.

Oh...and I think the term I'm thinking of is called Skinning. Like in Blender where you rig a mesh with Armetures, only in DBPro, and using limbs instead of armetures.

Thanks,

MickeyIII

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 10th Jun 2008 22:02 Edited at: 10th Jun 2008 22:28

Link

MickeyIII yes if the model is coded then do it, once its run it makes and saves the model thats fine to.

look at my red man code for deformation for limbs, but if your talking about a skin on top of your limbs I haven't got a clue.

bergice good 2 see your back, where in England did you go?
was it to London by any chance?

have a good kip mate.

just added some new stuff to my media bit on this post to.

soul sucking devils, twisted body of the damed, slivering slim drips from ever poor, sin licking at your ears, and the smell stinging your eyes, and if you don't like it, get out of my kitchen!....

Back to top

Profile PM Email Website

sindore

20

Years of Service

User Offline

Joined: 2nd Jul 2004

Location: Bedfordshire, UK

Posted: 11th Jun 2008 18:51 Edited at: 16th Jun 2008 01:49

Link

here is a test peace I made for this challenge.

sync on : sync rate 60
autocam off
set camera range 1,1000
set normalization on
hide mouse
position camera 0,10,-20

phy start

make_building()

`here is a save options mesh
`save mesh "mesh name.x",1
obj = 1001
`*** make crate object ***
make object obj,1,0

`here is a save options object
`save object "object name.dbo",1

` position object away from cam
`position object obj,0,-8,0
set object obj,1,1,0

` set up ambients, specular and colour object
   color object obj, rgb ( 0, 0, 255 )
   set object specular obj, rgb ( 0, 0, 255 )
   set object specular power obj, 255
   set object ambient obj,0

`Gives your object Collisions
      phy make rigid body static mesh obj,"phy_building_01.x"
      phy load rigid body static mesh obj,"phy_building_01.x"

`*****************************************************

`*** make floor ***
make object plain 2000,500,500
xrotate object 2000,-90
position object 2000,0,-0.5,0
color object 2000,rgb(0,0,0)
set object specular 2000, rgb ( 0, 0, 0 )
set object specular power 2000, 255
set object ambient 2000,0
phy make rigid body static box 2000

ID as integer
      ID = 7

c as integer

timer1 as integer

x# as float
      y# as float
      z# as float
do

`randome numbers
      randomize timer()

`random positions
      x# = rnd(10)-rnd(10)
      y# = 25+rnd(25)
      z# = rnd(10)-rnd(10)

`make falling objects
      if ID <= 307
         inc ID
         make_crate()
         make object ID,1,0
         scale object ID,50,50,50
         color object ID, rgb ( 255, 0, 0 )
         set object specular ID, rgb ( 255, 0, 0 )
         set object specular power ID, 255
         set object ambient ID,0
         set object ID,1,1,0
         phy make rigid body dynamic box ID
         phy set rigid body ccd ID, 1
         phy set rigid body position ID,x#,y#,z#
      endif

`max number of objects sets off timer
      if ID >= 307 then inc timer1

`delete objects and reset
      if timer1 >= 500
         for c = 7 to ID
            if object exist(c)>0
               phy delete rigid body c
               delete object c
            endif
         next c
         ID = 7
         timer1 = 0
      endif

player_control()

phy update
sync
loop

phy end

`*** player controls ***
function player_control()

` rotate camera
   yrotate camera camera angle y() + mousemovex()*0.3
   xrotate camera camera angle x() + mousemovey()*0.3

` stops mouse from going upside down
   if wrapvalue(camera angle x(0))>100 and wrapvalue(camera angle x(0))<120 then xrotate camera 0,100
   if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280

` move camera
   if mouseclick()=2 then move camera 0,-0.25
   if mouseclick()=1 then move camera 0,0.25

endfunction

` hay this is a building that I made, hope you like it.
` use it as a statick object.
` made by marc newham aka Sindore
` date: 10/06/2008
function make_building()
`obj = 1
make object cube 1,1