Sorry your browser is not supported!

MoveObjectLocalZ( projectileDirBox, -1.0 )

if GetObjectWorldX(heliObj)< GetObjectWorldX(objectId) then MoveObjectLocalX( projectileDirBox, 1.0 )
if GetObjectWorldX(heliObj)> GetObjectWorldX(objectId) then MoveObjectLocalX( projectileDirBox, -1.0 )
MoveObjectLocalZ( projectileDirBox, 1.0 )

function shootMissile(objectId as integer,initialSpeed as float, mass as float)
	//To move dynamic physics bodies we need to apply velocity to the physics body.
	gunPositionVec= CreateVector3(GetObjectWorldX(objectId),GetObjectWorldY(objectId),GetObjectWorldZ(objectId)) //im using the camera position as the gun position 
    //Create a tempory projectile block to calculate movement vectors of bullets
    projectileDirBox as integer
    projectileDirBox = CreateObjectBox( 1.0, 1.0, 1.0 )
    //SetObjectPosition( projectileDirBox, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
     
    //setobjectrotation(projectiledirbox,-55.0,GetObjectAngleY(objectId),270.0)
    //setobjectrotation(projectiledirbox,GetObjectWorldAngleX(objectId),GetObjectWorldAngleY(objectId),GetObjectWorldAngleZ(objectId))
    //SetObjectLookAt(projectiledirbox,GetObjectWorldX(objectID2),GetObjectWorldY(objectID2),GetObjectWorldZ(objectID2),0) 
    //if GetObjectWorldX(heliObj)< GetObjectWorldX(objectId) then MoveObjectLocalX( projectileDirBox, 1.15 )
	//if GetObjectWorldX(heliObj)> GetObjectWorldX(objectId) then MoveObjectLocalX( projectileDirBox, -1.15 )
	//MoveObjectLocalZ( projectileDirBox, 1.0 )
    FixObjectToObject(projectileDirBox,ObjectId)
	x#=GetObjectWorldX(projectileDirBox):y#=GetObjectWorldY(projectileDirBox):z#=GetObjectWorldZ(projectileDirBox)
	FixObjectToObject(projectileDirBox,0)
	SetObjectPosition(projectileDirBox,x#,y#,z#)
	SetObjectLookAt(projectiledirbox,GetObjectWorldX(heliObj),GetObjectWorldY(heliObj),GetObjectWorldZ(heliObj),0) 
	MoveObjectLocalZ( projectileDirBox, 1.0 )
    projectileDirVec = CreateVector3( GetobjectWorldX( projectileDirBox )-GetVector3X( gunPositionVec ), GetobjectWorldY( projectileDirBox )-GetVector3Y( gunPositionVec ), GetobjectWorldZ( projectileDirBox )-GetVector3Z( gunPositionVec ) )
    //DeleteObject( projectileDirBox )
    missile as integer    
    missile = CreateObjectSphere(.4,5,5)
   
    //bullet = CreateObjectSphere(.45,.45,.45 )
    //missile=InstanceObject(worldObj) 
    //SetObjectImage(missile,planetD,0)
    SetObjectColor(missile, 255,0,0,255 )
    SetObjectLightMode(missile,0)

    SetObjectPosition(missile, GetVector3X( gunPositionVec ), GetVector3Y( gunPositionVec ), GetVector3Z( gunPositionVec ) )
    SetObjectRotation(missile,GetObjectAngleX(projectileDirBox),GetObjectAngleY(projectileDirBox),GetObjectAngleZ(projectileDirBox)+180)
    //RotateObjectLocalZ(missile,90)
    DeleteObject( projectileDirBox )
    //3D Physics code
    Create3DPhysicsDynamicBody(missile)
    //SetObjectShapeSphere( bullet )
    SetObject3DPhysicsMass(missile, mass )
    SetObject3DPhysicsLinearVelocity(missile, projectileDirVec, initialSpeed )
    
    myItem as bullet
    myItem.ID = missile //the object id of the bullet
	myItem.time = timer()  //timer is used to set there life time as bullets will die off after so long
	planetMissile.insert(myItem) //update bullet arrow as there is unlimeted bullets 
	inc missileCount //used for a bullet counter to check if theyve timed out or not 
    deletevector3(projectileDirVec)
    deletevector3(gunPositionVec)
endfunction missile

SetObjectImage(blockLifter,blockLifterD,0)
SetObjectLightMode(blockLifter,0)
SetObjectPosition(blockLifter,0,21,0)
SetObjectScale(blockLifter,4,4,4)
SetObjectRotation(blockLifter,270,0,0)
SetObjectCollisionMode(blockLifter,0)
FixObjectToObject(blockLifter,box)

FixObjectToObject(enemyHeliobj,0)	
RotateObjectLocalX(enemyHeliobj,-.25) //forward
if GetObjectWorldAngleX(heliObj)<GetObjectWorldAngleX(enemyHeliobj) 
	RotateObjectLocalZ(enemyHeliobj,-.25) //move right
	//RotateObjectLocalY(enemyHeliobj,1) //face toward blocklifter
endif
if GetObjectWorldAngleX(heliObj)>GetObjectWorldAngleX(enemyHeliobj) 
	RotateObjectLocalZ(enemyHeliobj,.25) //move left
	//RotateObjectLocalY(enemyHeliobj,-1) //face toward blocklifter
endif
FixObjectToObject(enemyHeliobj,box)	

MoveObjectLocalX(t, 1.5)
MoveObjectLocalY(t, 0.3)
MoveObjectLocalZ(t, 0.1)

type myDirectionAngle
	myUp as integer
	myRight as integer
	myDown as integer
	myLeft as integer
endtype
myAngle as myDirectionAngle






	myAngle.myUp  =0
	myAngle.myDown=0
	myAngle.myLeft=0
	myAngle.myRight=0

phoneAngle=trunc(GetDirectionAngle())
select phoneAngle
case:0
	myAngle.myUp=1
endcase
case:45
	myAngle.myUp=1
	myAngle.myRight=1		
endcase	
case:90
	myAngle.myRight=1
endcase
case:135
	myAngle.myDown=1
	myAngle.myRight=1		
endcase	
case:180
	myAngle.myDown=1
endcase
case:225
	myAngle.myDown=1
	myAngle.myLeft=1
endcase
case:270
	myAngle.myLeft=1
endcase
case:315
	myAngle.myUp=1
	myAngle.myLeft=1
endcase	
endselect

// Accelerometer routines from thegamecreators.com
// By Daniel 
//


Type _Acc
    top as float
    middle as float
    bottom as float
    range as float
    multi as float
EndType
 
Global accel as _Acc

Function InitAccelerometer()
    accel.range = 1  //this is the range of avilible movement
    accel.multi = 1 / accel.range
    accel.middle = 0 //this is the resting position of the device
    accel.top = accel.middle - accel.range //this sets the upper range of movement
    accel.bottom = 1 //this sets the lower range of movement
EndFunction

Function GetDirectionYOffset(deadzone as float, sensitivity as float)
    //get the position
    y# = GetDirectionY()
    //limit the overall values
    if y# < accel.top then y# = accel.top
    if y# > accel.bottom then y# = accel.bottom
 
    //adjust the adjusted data between -1 and 1
    y# = y# - accel.middle
    If y# < 0
        y# = abs(y#) * accel.multi
        //apply the dead zone
        If y# < deadzone
            y# = 0
        Else
            y# = y# * sensitivity //apply sensitivity
            y# = y# - y# - y#
        EndIf
    Else
        y# = y# * accel.multi
        If y# < deadzone then y# = 0
        y# = y# * sensitivity
    EndIf
EndFunction y#
 
Function GetDirectionXOffset(deadzone as float, sensitivity as float)
    x# = GetDirectionX()
    If x# < 0
        x# = abs(x#)
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
            x# = x# - x# - x#
        EndIf
    Else
        If x# < deadzone
            x# = 0
        Else
            x# = x# * sensitivity
        EndIf
    EndIf
EndFunction x#

//*******************************************************************************************	
//blocklifter Movement
//*******************************************************************************************		
	//buttonHit=0
	//if GetPointerState()=1 
		//buttonHit = getSpriteHit(getPointerX(), getPointerY())
	//endif 

	if GetDirectionY()<0 //buttonHit=UpSpr 
		if lastMove=0 or lastmove=2
			heliSpeed#=minHeliSpeed#
		endif
		AccelerationFactor#=GetDirectionSpeed()*.05
		heliSpeed#=heliSpeed#+((maxHeliSpeed#-heliSpeed#)*AccelerationFactor#)
		if heliSpeed#>maxHeliSpeed# then heliSpeed#=maxHeliSpeed#
		if GetObjectWorldAngleX(heliObj) <0 then RotateObjectGlobalZ(heliObj,-.25)
		if GetObjectWorldAngleX(heliObj) >0 then RotateObjectGlobalZ(heliObj,.25)
		RotateObjectGlobalX(box,-heliSpeed#):lastMove=1
	elseif GetDirectionY()>0 //buttonHit=DownSpr
		if lastMove=0 or lastmove=1
			heliSpeed#=minHeliSpeed#
		endif
		AccelerationFactor#=GetDirectionSpeed()*.05
		heliSpeed#=heliSpeed#+((maxHeliSpeed#-heliSpeed#)*(AccelerationFactor#))
		if heliSpeed#>maxHeliSpeed# then heliSpeed#=maxHeliSpeed#
		if GetObjectWorldAngleX(heliObj) <0 then RotateObjectGlobalZ(heliObj,-.25)
		if GetObjectWorldAngleX(heliObj) >0 then RotateObjectGlobalZ(heliObj,.25)
		RotateObjectGlobalX(box,heliSpeed#):lastMove=2
	else	
		DecelerationFactor#=GetDirectionSpeed()*.05
		heliSpeed#=heliSpeed#-((maxheliSpeed#-heliSpeed#)*DecelerationFactor#+.01)
		if heliSpeed#<minHeliSpeed# then heliSpeed#=minHeliSpeed#
		if GetObjectWorldAngleX(heliObj) <0 then RotateObjectGlobalZ(heliObj,-.25)
		if GetObjectWorldAngleX(heliObj) >0 then RotateObjectGlobalZ(heliObj,.25)
		if lastMove=1
			RotateObjectGlobalX(box,-heliSpeed#)
		elseif lastMove=2
			RotateObjectGlobalX(box,heliSpeed#)		
		endif
	endif	
	
	if GetDirectionX()<0// buttonHit=LeftSpr
		if lastTurn=0 or lastTurn=2
			heliTurnSpeed#=minHeliSpeed#
		endif
		AccelerationFactor#=GetDirectionSpeed()*.05
		heliTurnSpeed#=heliTurnSpeed#+((maxHeliSpeed#-heliTurnSpeed#)*AccelerationFactor#)
		if heliTurnSpeed#>maxHeliSpeed# then heliTurnSpeed#=maxHeliSpeed#
		if GetObjectWorldAngleX(heliObj) >-30 then 	RotateObjectGlobalZ(heliObj,1)		
		RotateObjectGlobalZ(box,-heliTurnSpeed#)		
		lastTurn=1
	elseif GetDirectionX()>0//buttonHit=RightSpr
		if lastTurn=0 or lastTurn=1
			heliTurnSpeed#=minHeliSpeed#
		endif
		AccelerationFactor#=GetDirectionSpeed()*.05
		heliTurnSpeed#=heliTurnSpeed#+((maxHeliSpeed#-heliTurnSpeed#)*AccelerationFactor#)
		if heliTurnSpeed#>maxHeliSpeed# then heliTurnSpeed#=maxHeliSpeed#

		if GetObjectWorldAngleX(heliObj) <30 then 	RotateObjectGlobalZ(heliObj,-1)		
		RotateObjectGlobalZ(box,heliTurnSpeed#)		
		lastTurn=2
	else
		DecelerationFactor#=GetDirectionSpeed()*.05
		heliTurnSpeed#=heliTurnSpeed#-((maxheliSpeed#-heliTurnSpeed#)*DecelerationFactor#+.01)
		if heliTurnSpeed#<minHeliSpeed# then heliTurnSpeed#=minHeliSpeed#
		if lastTurn=1
			RotateObjectGlobalZ(box,-heliTurnSpeed#)
		elseif lastTurn=2
			RotateObjectGlobalZ(box,heliTurnSpeed#)			
		endif
	endif
//*******************************************************************************************