This is a VERY simple game demonstration of how to use limbs, mouse input and a 2nd camera. The aim is to position the end "node" of the arm inside a block, pick it up, manoeuvre it over the blue base pad and drop it on. There is no scoring - its just a demo!
The controls are simple, but take some getting used to. Its completely mouse controlled. Roll the mouse wheel to highlight which part of the arm you'd like to be active. Click and hold left mouse button while moving the mouse around to get the desired angle. The arm which is joined to the ground gives rotation around the "Y Axis" providing full 360 access around the arena. Each other arm rotates on its local X Axis providing an up/down movement for all of its "child" sub-arms.
Pressing the right mouse toggles whether you're holding the crate or not. You can only pick up a crate if you have the end node touching it.
If this needs more explaining, please leave a comment and I'll do so.
Language:
Dark Basic Pro
Code:
#CONSTANT CRATE_COUNT 10 #CONSTANT ARM_COUNT 6 #CONSTANT ARM_LENGTH 2.0 #CONSTANT DEFAULT_ANGLE 20.0 HALF_ARM_LENGTH# = ARM_LENGTH*0.5 set display mode 1280, 1024, 32 sync on sync rate 0 autocam off position camera 10, 10, 10 point camera 0, 0, 0 backdrop on color backdrop 0 randomize timer() `set directional light 0, -1, -1, -1 set point light 0, 10, 10, 10 set ambient light 0 `MAKE FLOOR make object plain 2, 30, 30 position object 2, 0, 0.0, 0 point object 2, 0, 1, 0 color object 2, 0xFF77FF77 Type Coords x# y# z# EndType colSelected as DWORD : colSelected = 0x66FF0000 colUnselected as DWORD : colUnselected = 0x66FFFFFF colHomeBox as DWORD : colHomeBox = 0x660000FF colCrates as DWORD : colCrates = 0x66FFFF00 `Arm Template make object cylinder 1, ARM_LENGTH scale object 1, 10, 100, 10 make mesh from object 1, 1 `Point template delete object 1 make object sphere 1, ARM_LENGTH * 0.2, 24, 24 make mesh from object 2, 1 `Hide control point because its the root point hide limb 1, 0 `Add an arm to the control point add limb 1, 1, 1 offset limb 1, 1, 0.0, HALF_ARM_LENGTH#, 0.0 link limb 1, 0, 1 `The next arms can be made in a loop for i = 2 to ARM_COUNT*2 step 2 `Create a new control point add limb 1, i, 2 `Offset it by helf the length of a strut offset limb 1, i, 0.0, HALF_ARM_LENGTH#, 0.0 `Link it to the last strut link limb 1, i-1, i `Color the joint unselected, but set the alpha to FF using BITWISE OR color limb 1, i, (colUnselected || 0xFF000000) `Add next arm add limb 1, i+1, 1 `Offset it by helf the length of a strut offset limb 1, i+1, 0.0, HALF_ARM_LENGTH#, 0.0 `Link it to the control point link limb 1, i, i+1 `Color the arm unselected color limb 1, i+1, colUnselected next i i = ARM_COUNT*2+2 `Create Final point, used for pickups add limb 1, i, 2 `Offset it by helf the length of a strut offset limb 1, i, 0.0, HALF_ARM_LENGTH#, 0.0 `Link it to the last strut link limb 1, i-1, i `Color the joint unselected, but set the alpha to FF using BITWISE OR color limb 1, i, (colUnselected || 0xFF000000) `Enable transparency set object transparency 1, 3 `Make temp object for detecting tip collisions make object plain 3, ARM_LENGTH * 0.2, ARM_LENGTH * 0.2 glue object to limb 3, 1, i hide object 3 `Create Pickups G as Coords G.x# = object size x(2) * 0.5 G.z# = object size y(2) * 0.5 for i = 10 to 10+CRATE_COUNT make object box i, 0.5+(rnd(5.0)*0.1), 0.5+(rnd(5.0)*0.1), 0.5+(rnd(5.0)*0.1) position object i, rnd(G.x#) - (G.x# * 0.5), object size y(i)*0.5, rnd(G.z#) - (G.z# * 0.5) yrotate object i, rnd(360) color object i, colCrates set object transparency i, 3 next i `Make Home Crate make object box 9, 1.5, 0.5, 1.5 position object 9, rnd(G.x#) - (G.x# * 0.5), 0.25, rnd(G.z#) - (G.z# * 0.5) color object 9, colHomeBox set object transparency 9, 3 `Declare some variables for control. limbSelected = 0 mouseStatus = 0 `Color the selected limb in color limb 1, limbSelected+1, colSelected `LimbAngles Dim LimbAngles(ARM_COUNT*2) as Coords Dim TargetLimbAngles(ARM_COUNT*2) as Coords for i = 0 to ARM_COUNT*2 step 2 LimbAngles(i).x# = 0.0 LimbAngles(i).y# = 0.0 LimbAngles(i).z# = 0.0 TargetLimbAngles(i).x# = 0.0 TargetLimbAngles(i).y# = 0.0 TargetLimbAngles(i).z# = DEFAULT_ANGLE next i `Exclusion - make sure the root strut is vertical TargetLimbAngles(0).z# = 0.0 `Currently holding variable.. -1 if nothing, >=10 if holding pickedUp = -1 CratesPutAway = 0 `Setup Arm Cam make camera 1 set camera view 1, screen width() * 0.5, 0, screen width(), screen height() * .15 set camera aspect 1, (screen width() * 0.5) / (screen height() * .15) color backdrop 1, 0 set current camera 0 frameTime# = 1.0 startTime = timer() do frameTime# = (frameTime# * 0.8) + ((timer() - startTime) * 0.2) startTime = timer() text 10, 10, "FPS: " + str$(screen fps()) text 10, 30, "SCORE: " + str$(CratesPutAway) `position arm cam camLimb = ARM_COUNT*2 : position camera 1, limb position x(1, camLimb), limb position y(1, camLimb) + 3.0, limb position z(1, camLimb) camLimb = ARM_COUNT*2 + 2 : point camera 1, limb position x(1, camLimb), limb position y(1, camLimb), limb position z(1, camLimb) `ALL ONCE-PER-CLICK STUFF GOES IN HERE if mouseclick() <> mouseStatus mouseStatus = mouseclick() `Clear the mousemovement functions so the arms dont initially jump (ie movement AFTER the click is considered, not pre-click). dx# = mousemovex() dy# = mousemovey() if mouseStatus && %0010 `Right mouse button if pickedUp = -1 collVal = object collision(3,0) if collVal > 9 pickedUp = collVal position object pickedUp, 0, 0, 0 glue object to limb pickedUp, 1, ARM_COUNT*2+2 endif else unglue object pickedUp pickedUp = -1 endif endif endif `Check all objects are either on the floor or removed from being "put away" for i = 10 to 10 + CRATE_COUNT if object exist(i) AND i <> pickedUp `Show score strScore$ = left$(str$(object size(i)*100.0), 3) if mid$(strScore$, len(strScore$)) = "." then strScore$ = left$(strScore$, len(strScore$)-1) center text object screen x(i), object screen y(i), strScore$ if object collision(i, 2) = 0 position object i, object position x(i), object position y(i) - frameTime#*0.001, object position z(i) if object collision(i, 9) then inc CratesPutAway, val(left$(str$(object size(i)*100.0), 3)) : delete object i endif endif next i `CHECK MOUSE WHEEL FOR STRUT CHANGE dz# = mousemovez() if dz# > 0 color limb 1, limbSelected+1, colUnselected inc limbSelected, 2 if limb exist(1, limbSelected+1) = 0 then limbSelected = 0 color limb 1, limbSelected+1, colSelected else if dz# < 0 color limb 1, limbSelected+1, colUnselected dec limbSelected, 2 if limbSelected < 0 then limbSelected = ARM_COUNT*2 color limb 1, limbSelected+1, colSelected endif endif `THIS IS TO BE DONE WHILE EITHER LEFT OR RIGHT BUTTON IS HELD if mouseStatus && %0011 if limbSelected = 0 dx# = mousemovex() inc TargetLimbAngles(limbSelected).y#, dx# else dy# = mousemovey() inc TargetLimbAngles(limbSelected).z#, dy# `Set limb ranges maxAngle# = 120.0 minAngle# = -120.0 `Check for limits if TargetLimbAngles(limbSelected).z# > maxAngle# TargetLimbAngles(limbSelected).z# = maxAngle# else if TargetLimbAngles(limbSelected).z# < minAngle# TargetLimbAngles(limbSelected).z# = minAngle# endif endif endif endif `LOOP THROUGH ALL JOINTS AND CURVE ANGLE TO THEM for i = 0 to ARM_COUNT*2 step 2 LimbAngles(i).x# = curvevalue(TargetLimbAngles(i).x#, LimbAngles(i).x#, 100.0 / frameTime#) LimbAngles(i).y# = curvevalue(TargetLimbAngles(i).y#, LimbAngles(i).y#, 100.0 / frameTime#) LimbAngles(i).z# = curvevalue(TargetLimbAngles(i).z#, LimbAngles(i).z#, 100.0 / frameTime#) rotate limb 1, i, LimbAngles(i).x#, LimbAngles(i).y#, LimbAngles(i).z# next i sync loop
(3 votes)
Mon, 07/02/2007 - 21:53
this game camera is very interesting.