Sorry your browser is not supported!

Rem Project: first fps
Rem Created: 7/7/2005 10:24:07 PM

Rem ***** Main Source File *****

remstart
////////////////////////////////////////
"first fps"
by: gpex
started: 7/07/05, 10:25 p.m.
completed:
////////////////////////////////////////
remend

`sets up the screen
sync on
backdrop on
set display mode 1280,1024,32
position camera 0,0,-1000

`loads up the media
load image "mp5skin.bmp",1
load image "floor02.bmp",2
load object "tester.x",2
load object "mp5k.x",1

`textures abd positions the media
texture object 1,1
xrotate object 1,270
yrotate object 1,75
position object 1,10,-10,-40
position object 2,0,-200,90
texture object 2,2

`misc...
set light mapping on 1,1
hide mouse
movex2# = movex# + 10
movey2# = movey2# - 10
movez2# = movez2# - 40
set cursor 1,1
position object 1,10,-20,40



`start main loop
do

gunx# = camera position x()
guny# = camera position y()
gunz# = camera position z()


guny# = guny# - 18
gunz# = gunz# + 26

`gets the mousex & y coordinates
lookx# = mousex()
looky# = mousey()

   `if mousex moves then increase lookx variable by eight and wrap it to keep it within range
   if mousemovex() > 0
      inc lookx#
      lookx# = wrapvalue(lookx#)
      gunx1# = gunx1#


   endif

   `if mousey moves then increase looky variable by eight and wrap it to keep it within range
   if mousemovey() > 0
      inc looky#
      looky# = wrapvalue(looky#)
   endif

strafe1# = lookx# - 90



   if keystate(17) = 1 then movez# = newzvalue(movez#,lookx#,3) : movex# = newxvalue(movex#,lookx#,3)
   if keystate(31) = 1 then movez# = newzvalue(movez#,lookx#,-3) : movex# = newxvalue(movex#,lookx#,-3)

   if keystate(30) = 1 then movez# = newzvalue(movez#,strafe1#,2) : movex# = newxvalue(movex#,strafe1#,2)
   if keystate(32) = 1 then movez# = newzvalue(movez#,strafe1#,-2) : movex# = newxvalue(movex#,strafe1#,-2)


`update camera
yrotate camera lookx#
xrotate camera looky#
position camera movex#,movey#,movez#


`update object
position object 1,gunx#,guny#,gunz#


`sync and loop
sync
loop

Rem Project: first fps
Rem Created: 7/7/2005 10:24:07 PM

Rem ***** Main Source File *****

remstart
////////////////////////////////////////
"first fps"
by: gpex
started: 7/07/05, 10:25 p.m.
completed:
////////////////////////////////////////
remend

`sets up the screen
sync on
backdrop on
set display mode 1280,1024,32
position camera 0,0,-1000

`loads up the media
load image "floor02.bmp",2
load image "crasshair.bmp",4
load object "tester.x",2
load object "armsandgun.x",1
make object triangle 3,0,0,0,0,0,0,0,0,0
make object triangle 98,30,0,0,0,30,0,0,0,30
make mesh from object 1,98
delete object 98
add limb 3,1,1
offset limb 3,1,10,-20,10
delete mesh 1
hide limb 3,1

`textures abd positions the media
position object 2,0,-200,90
texture object 2,2

`misc...

hide mouse






`start main loop
do


`gets the mousex & y coordinates
lookx# = mousex()
looky# = mousey()

   `if mousex moves then increase lookx variable by eight and wrap it to keep it within range
   if mousemovex() > 0
      inc lookx#
      lookx# = wrapvalue(lookx#)
   endif

   `if mousey moves then increase looky variable by eight and wrap it to keep it within range
   if mousemovey() > 0
      inc looky#
      looky# = wrapvalue(looky#)
   endif

strafe1# = lookx# - 90



   if keystate(17) = 1 then movez# = newzvalue(movez#,lookx#,1) : movex# = newxvalue(movex#,lookx#,1)
   if keystate(31) = 1 then movez# = newzvalue(movez#,lookx#,-1) : movex# = newxvalue(movex#,lookx#,-1)

   if keystate(30) = 1 then movez# = newzvalue(movez#,strafe1#,1) : movex# = newxvalue(movex#,strafe1#,1)
   if keystate(32) = 1 then movez# = newzvalue(movez#,strafe1#,-1) : movex# = newxvalue(movex#,strafe1#,-1)


`update camera
yrotate camera lookx#
xrotate camera looky#
position camera movex#,movey#,movez#
position object 3,movex#,movey#,movez#

gunx# = limb position x(3,1)
guny# = limb position y(3,1)
funz# = limb position z(3,1)


`update object
position object 1,gunx#,guny#,gunz#



`sync and loop
sync
loop

if spacekey() = 1
   if object exist(3)
      if limb exist(3,1)
         position object 3,camera position x(),camera position y(),camera position z()
         position object 1,limb position x(3,1),limb position y(3,1),limb position z(3,1)
            if object position x(1) = limb position x(3,1)
               if object position y(1) = limb position y(3,1)
                  if object position z(1) = limb position z(3,1)
                     end
                  endif
               endif
            endif
      endif
   endif
endif

`Limbs Explained
`By RUCCUS of RUCCUS.net

`In this example we're going to position a limb beside the user
`and then position a gun at that position so we can see the gun.
`The gun will be a rectangular box and the limb will be the
`smallets possible object we can make, a triangle with 0 for every
`dimension. Then we'll just position the gun at the limb's
`position every loop and rotate it as the user rotates.

`Additional Info:

`OBJECT 1 is the user
`OBJECT 2 is the gun
`OBJECT 3 is a static object just so we can see we're moving
`OBJECT 4 will be the object we create our limb mesh from

`Setup The Game
SYNC ON:SYNC RATE 0:HIDE MOUSE:AUTOCAM OFF

`Create the user's object
MAKE OBJECT SPHERE 1,30

`Create the gun object
MAKE OBJECT BOX 2,2,2,15

`Create the static object
MAKE OBJECT BOX 3,50,50,100
POSITION OBJECT 3,0,0,100

`<!! LIMB PART !!>
`Make an object for our mesh to be created from
MAKE OBJECT TRIANGLE 4,0,0,0,0,0,0,0,0,0

`Make a mesh from that object so our limb knows what to look like
MAKE MESH FROM OBJECT 1,4

`Delete the object since we only needed it for the mesh creation
DELETE OBJECT 4

`Add the limb to the user's object.
`The syntax is: ADD LIMB Object Number, Limb Number, Mesh Number
`The limb number must be the next limb in the limb count. So
`if the object has 5 limbs already, to add another limb it's
`number must be 6. Dynamic object's like .x's and .3ds may have
`many limbs, so we need to use the PERFORM CHECKLIST FOR OBJECT
`LIMBS and `CHECKLIST QUANTITY to figure out what our limb
`number should be.
PERFORM CHECKLIST FOR OBJECT LIMBS 1
Limb#=CHECKLIST QUANTITY()
ADD LIMB 1,Limb#,1

`Now we need to offset the limb to be beside the user
OFFSET LIMB 1,Limb#,OBJECT SIZE X(1)/2,0,20

`Now we'll hide the limb for even less lag
HIDE LIMB 1,Limb#

`Finally, we're going to use the GLUE OBJECT TO LIMB command
`to make sure the gun stays at the limb position and takes on
`the limb's rotation at all times
GLUE OBJECT TO LIMB 2, 1, 1

`Start the main loop
DO

`Position the camera at the user's position for 1st Person View
POSITION CAMERA OBJECT POSITION X(1),OBJECT POSITION Y(1),OBJECT POSITION Z(1)

`Defin some basic WSDA controls
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1,.5
IF KEYSTATE(31)=1 THEN MOVE OBJECT 1,-.5
IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1,.2
IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1,.2

`If the user presses Number 1 then drop the gun using unglue
IF KEYSTATE(2)=1 THEN UNGLUE OBJECT 2

`Use the generic camera-mouse control code
CAMY#=CAMY#+MOUSEMOVEX()*.1
CAMX#=CAMX#+MOUSEMOVEY()*.1
YROTATE CAMERA CAMY#
XROTATE CAMERA CAMX#
YROTATE OBJECT 1,CAMY#
XROTATE OBJECT 2,CAMX#

`Refresh the screen and end the loop
SYNC
LOOP