TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Libraries

Version: 1.0

Information

Uploaded: 30th Oct 2016 02:12

Modified: 30th Oct 2016 02:12

Author: Jack

Summary

This lib can add several objects to another one and keep track of the added limbs.

Full Description

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

rem Project: Simulated Limbs - Alex Schmidt - online-arts.de

rem Created: 2016-05-06

// This functions can simulate limbs in AGK. Every limb will be registered and can be

// found and then manipulated with the standard object commands.

// set window properties

SetWindowTitle( "Simulated Limbs - Alex Schmidt - online-arts.de" )

SetWindowSize( 1024, 768, 0 )

// set display properties

SetVirtualResolution( 1024, 768 )

SetOrientationAllowed( 1, 1, 1, 1 )

// create demo media:

// create the main object, the root for the other limbs

main = CreateObjectBox(1,1,1)

setobjectposition(main,-5,0,0)

// create a 2nd main object

main2 = CreateObjectBox(1,1,1)

setobjectposition(main2,5,0,0)

// add 20 planes to the object main

for i=0 to 19

limb = CreateObjectPlane(1,1)

addLimb(limb,main)

// rotate, position limb object randomly

SetObjectPosition(limb,random(0,4)-2,random(0,4),random(0,4)-2)

SetObjectRotation(limb,random(-180,180),random(-180,180),random(-180,180))

next i

// add 10 planes to the object main2

for i=0 to 9

limb = CreateObjectPlane(1,1)

addLimb(limb,main2)

// rotate, position limb object randomly

SetObjectPosition(limb,random(0,4)-2,random(0,4),random(0,4)-2)

SetObjectRotation(limb,random(-180,180),random(-180,180),random(-180,180))

next i

print("Limbs Simuation in AGK")

print("======================")

print("")

print("Object main limb count: "+ str(getObjectLimbCount(main)))

print("Object main2 limb count: "+ str(getObjectLimbCount(main2)))

print("Object(s) with limbs: "+str(ObjectLimb.length))

// point all limbs of main to the camera

for i=1 to getObjectLimbCount(main)

limb=getObjectLimb(main,i)

SetObjectLookAt( limb,getcamerax(1),getcameray(1),getcameraz(1),1 )

next i

// rotate main objects

SetObjectRotation(main,0,sin(timer())*3600,0)

SetObjectRotation(main2,0,sin(timer())*3600,0)

Print( ScreenFPS() )

Sync()

loop

// LIMB Functions by Jack

// ======================

// yet small and simple but powerful (if you need it), use this functions to add objects to objects.

// Each attached object is saved as a virtual limb, it still remains an object but is saved inside

// the list attached to the main object.

// you can get the total limb list, and find the Object for each defined limb

// ==================================================================

// adds a limb to the object and saves that information for later use

function addLimb(limb,main)

list as integer

if ObjectLimb.length=-1	// if no array to count the limb objects exists, add a new one

dim ObjectLimb[0,0] as integer

endif

// first, search if the main object is already in the limb object list (already limbs added)

for i=0 to ObjectLimb.length

if ObjectLimb[i,0] = main // if so, then the list is the list number of the limb object

list = i

exit

endif

next i

FixObjectToObject(limb,main)

if list = 0 // if there is nothing found, increase the array count

ObjectLimb.length=ObjectLimb.length+1

ObjectLimb[ObjectLimb.length].length=ObjectLimb[ObjectLimb.length].length+1

ObjectLimb[ObjectLimb.length,0] = main // define main object in array count [x,0]

ObjectLimb[ObjectLimb.length].length=ObjectLimb[ObjectLimb.length].length+1

ObjectLimb[ObjectLimb.length,ObjectLimb[ObjectLimb.length].length] = limb

else // if something was found, just add the limb to the limb list

ObjectLimb[list].length=ObjectLimb[list].length+1

ObjectLimb[list,ObjectLimb[list].length] = limb

endif

endfunction

// gets the total limb count of the object

function getObjectLimbCount(main)

limbcount as integer

// first, search if the main object is already in the limb object list (already limbs added)

for i=0 to ObjectLimb.length

if ObjectLimb[i,0] = main // if so, then the list is the list number of the limb object

limbcount = ObjectLimb[i].length

exit

endif

next i

endfunction limbcount

// returns the limb object for the given limb number inside the given main object

function getObjectLimb(main,limbnum)

limb as integer

// first, search if the main object is already in the limb object list (already limbs added)

for i=0 to ObjectLimb.length

if ObjectLimb[i,0] = main

limb = ObjectLimb[i,limbnum]

exit

endif

next i

endfunction limb

// ==================================================================

Download

Please login to download

Comments

No comments yet.

Author Name:	Jack
CodeBase Entries:	17

CodeBase - AGK2 Limbs

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments