TheGameCreators - CodeBase - TysMultiPlayerTerrain

Return to the CodeBase listing

Category: Multiplayer

Version: 1.0

Information

Uploaded: 25th Sep 2022 10:34

Modified: 25th Sep 2022 11:32

Author: TyJBr2

Summary

TysMultiPlayerTerrain

Full Description

TysMultiPlayerTerrain

AGKV2 BASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

//Created by MR. TYRONE JOSEPH BRADICH FOR APP GAME KIT GAME. tyjbr@live.com

#renderer "Prefer Best"

//#include "TysLoadModels.agc"

//In your main.agc source code, merge the particle routines with this #include command:

//#include "inc_gpup.agc"

//First you must initialise the particle shaders with a call to gpup_init():

//tmp = gpup_init()

//To load an effect you the loadEffect function:

//effect1 = gpup_loadEffect("LBlueSparks",GetCameraX(cameraID),GetCameraY(cameraID),GetCameraZ(cameraID),350) // Load the effect

// connections3

//You will then need to activate the effect:

//gpup_emitterActive(effect1, 1) // Make the effect active

//In a main loop you then need to keep updating the particles in time with the frame rate:

//do

//gpup_update() // Update the particles

//Set the local position of an emitter

//gpup_setLocalPosition(effect1,GetCameraX(cameraID),GetCameraY(cameraID),GetCameraZ(cameraID))

//set window properties

SetWindowTitle("TysMultiPlayerTerrain")

SetWindowSize(1024,768,0)

SetWindowAllowResize(1)

SetSyncRate(60,0)

SetAntiAliasMode(1)

//set display properties

SetVirtualResolution(1024,768)

SetOrientationAllowed(1,1,1,1)

SetScissor(0,0,0,0)

SetCameraRange(1,0.1,2000)

//enable the sky box

SetSkyBoxVisible(1)

//create menu back ground image

img_railing1 = LoadImage( "Textures/JPG/Urban/railing1.jpg" )

iMenuSpr = CreateSprite(img_railing1)

SetSpriteImage(iMenuSpr,img_railing1)

SetSpriteSize(iMenuSpr,GetScreenBoundsRight(),GetScreenBoundsBottom())

//load terrain detail texture with mipmapping enabled

SetGenerateMipmaps(1)

LoadImage(1,"detail.png")

SetImageWrapU(1,1)

SetImageWrapV(1,1)

//load the terrain shader to give the terrain color based on height

LoadShader(1,"Terrain.vs","Terrain.ps")

//create the terrain object from a height map

CreateObjectFromHeightMap(1,"Mexico.png",768,50,768,1,16)

SetObjectImage(1,1,0)

SetObjectUVScale(1,0,128,128) //scale the detail texture so it repeats

SetObjectShader(1,1)

SetCameraPosition(1,320,9.5,450)

//SetCameraLookAt(1,0,40,0,0)

SetCameraRotation(1,10,30,0)

SetAmbientColor(128,128,128)

//buttons for mobile devices to control the camera

AddVirtualButton(1,GetScreenBoundsRight()-45,GetScreenBoundsBottom()-45,80)

SetVirtualButtonColor(1,255,1,1)

SetVirtualButtonVisible(1,0)

SetVirtualButtonText(1,"BACK")

img_floor1 = LoadImage("Textures/JPG/Urban/floor1.jpg")

img_fence1 = LoadImage("Textures/JPG/Urban/fence1.jpg")

SetVirtualButtonImageUp(1,img_floor1)

SetVirtualButtonImageDown(1,img_fence1)

AddVirtualButton(2,GetScreenBoundsRight()-45,GetScreenBoundsBottom()-130,80)

SetVirtualButtonColor(2,255,1,1)

SetVirtualButtonVisible(2,0)

SetVirtualButtonText(2,"AHEAD")

img_wall_U2_01 = LoadImage("Textures/JPG/Urban/wall_U2_01.jpg")

img_wall_U5_01 = LoadImage("Textures/JPG/Urban/wall_U5_01.jpg")

SetVirtualButtonImageUp(2,img_wall_U2_01)

SetVirtualButtonImageDown(2,img_wall_U5_01)

AddVirtualButton(3,GetScreenBoundsLeft()+45,GetScreenBoundsBottom()-45,80)

SetVirtualButtonColor(3,255,1,1)

SetVirtualButtonVisible(3,0)

SetVirtualButtonText(3,"GROUND")

img_roof_U4_01 = LoadImage("Textures/JPG/Urban/roof_U4_01.jpg")

img_roof_U3_02 = LoadImage("Textures/JPG/Urban/roof_U3_02.jpg")

SetVirtualButtonImageUp(3,img_roof_U4_01)

SetVirtualButtonImageDown(3,img_roof_U3_02)

AddVirtualButton(4,GetScreenBoundsRight()-55,GetScreenBoundsBottom()-255,100)

SetVirtualButtonColor(4,255,1,1)

SetVirtualButtonVisible(4,0)

SetVirtualButtonText(4,"RESET")

img_floor_U5_02 = LoadImage("Textures/JPG/Urban/floor_U5_02.jpg")

img_misc_U1_01 = LoadImage("Textures/JPG/Urban/misc_U1_01.jpg")

SetVirtualButtonImageUp(4,img_floor_U5_02)

SetVirtualButtonImageDown(4,img_misc_U1_01)

SetPrintSize(20)

SetPrintColor(50,50,80)

//img_font = LoadImage("font.png")

//sFont1 = LoadFont("font.png")

//SetPrintFont(sFont1)

//add some atmospheric fog

SetFogMode(0)

SetFogColor(161,0,209)

SetFogRange(50,700)

SetFogSunColor(255,230,179)

//camera starts in free mode

Global cameraMode = 0

Global cameraID = 1

//Tys Loading functions from script TysLoadModels.agc

//LoadPeople()

//LoadVehicles()

//LoadWeaponsAndItemOnTable()

//LoadTreesAndPlants()

//LoadOtherObjects()

// set some variables

State = 0

iType = 0

NetworkID = 0

AddVirtualButton(5,GetScreenBoundsRight()/2-10,GetScreenBoundsBottom()/2-100,80)

SetVirtualButtonColor(5,255,1,1)

SetVirtualButtonText(5,"HOST")

img_camo2 = LoadImage( "Textures/JPG/Natural/camo2.jpg" )

img_camo1 = LoadImage( "Textures/JPG/Natural/camo1.jpg" )

SetVirtualButtonImageUp(5,img_camo2)

SetVirtualButtonImageDown(5,img_camo1)

AddVirtualButton(6,GetScreenBoundsLeft()+GetScreenBoundsRight()/2-10,GetScreenBoundsBottom()/2,80)

SetVirtualButtonColor(6,255,1,1)

SetVirtualButtonText(6,"JOIN")

img_slime1 = LoadImage( "Textures/JPG/Natural/slime1.jpg" )

img_slime2 = LoadImage( "Textures/JPG/Natural/slime2.jpg" )

SetVirtualButtonImageUp(6,img_slime1)

SetVirtualButtonImageDown(6,img_slime2)

AddVirtualButton(7,GetScreenBoundsRight()/2-10,GetScreenBoundsBottom()/2+100,80)

SetVirtualButtonColor(7,255,1,1)

SetVirtualButtonText(7,"EXIT")

img_rock2 = LoadImage( "Textures/JPG/Natural/rock2.jpg" )

img_rust1 = LoadImage( "Textures/JPG/Natural/rust1.jpg" )

SetVirtualButtonImageUp(7,img_rock2)

SetVirtualButtonImageDown(7,img_rust1)

AddVirtualJoystick(1,50,600,100)

SetVirtualJoystickVisible(1,0)

img_wall_m_18 = LoadImage( "Textures/JPG/Sci-Fi/wall_m_18.jpg" )

img_wall_m_14 = LoadImage( "Textures/JPG/Sci-Fi/wall_m_14.jpg" )

SetVirtualJoystickImageInner(1,img_wall_m_18)

SetVirtualJoystickImageOuter(1,img_wall_m_14)

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//Original_Soldier/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Global Original_Soldier = 279

Global iOriginal_SoldierTex = 179

Global iOriginal_SoldierGunTex = 180

LoadObjectWithChildren(Original_Soldier,"Original_Soldier.X")

LoadImage(iOriginal_SoldierTex,"Soldier_body_4_D.png")

setobjectimage(Original_Soldier,iOriginal_SoldierTex,0)

// texture gun

LoadImage(iOriginal_SoldierGunTex,"gun_D1.png")

setobjectimage(GetObjectChildID(Original_Soldier,2),iOriginal_SoldierGunTex,1)

SetObjectScalePermanent(GetObjectChildID(Original_Soldier,2),0.05,0.05,0.05 )

// hide fire spot object, a cube that was added to the model to show the gun anchor point

SetObjectVisible(GetObjectChildID(Original_Soldier,1), 0 )

SetObjectScalePermanent(Original_Soldier,0.05,0.05,0.05)

SetObjectPosition(Original_Soldier,330,1.5,465)

RotateObjectGlobalY(Original_Soldier,180)

// play idle animation

PlayObjectAnimation(Original_Soldier, "", 1 , 12820, 1, 0 )

SetObjectAnimationSpeed(Original_Soldier, 20 )

// get the bone that represents the head

// turn off animation on it so we can move it ourselves

headBone = GetObjectBoneByName(Original_Soldier ,"Bip01_Head" )

SetObjectBoneCanAnimate(Original_Soldier, headBone, 0 )

//FixObjectPivot(Original_Soldier)

Print ("Loaded Original_Soldier")

Print("LoadPeople:||||||||||||||||||||||||||")

Sync()

oPlayer1 = 10000

CloneObject(oPlayer1,Original_Soldier)

//SetObjectScale(oPlayer1,0.1,0.1,0.1)

SetObjectVisible(oPlayer1,1)

SetObjectPosition(oPlayer1,GetCameraX(cameraID),GetCameraY(cameraID)-3.0 ,GetCameraZ(cameraID)+4.5)

SetObjectRotation(oPlayer1,GetCameraAngleX(cameraID),GetCameraAngleY(cameraID),GetCameraAngleZ(cameraID))

// play idle animation

PlayObjectAnimation(oPlayer1, "", 1000, 1282, 1, 0 )

SetObjectAnimationSpeed(oPlayer1, 20 )

skin2 = 10001

LoadImage(skin2,"Soldier_body_3_D.png")

setobjectimage(oPlayer1,skin2,0)

oPlayer2 = 20000

CloneObject(oPlayer2,Original_Soldier)

//SetObjectScale(oPlayer2,0.1,0.1,0.1)

SetObjectVisible(oPlayer2,1)

SetObjectPosition(oPlayer2,GetCameraX(cameraID),GetCameraY(cameraID)-3.0 ,GetCameraZ(cameraID)+4.5)

SetObjectRotation(oPlayer2,GetCameraAngleX(cameraID),GetCameraAngleY(cameraID),GetCameraAngleZ(cameraID))

// play idle animation

PlayObjectAnimation(oPlayer2, "", 1000, 1282, 1, 0 )

SetObjectAnimationSpeed(oPlayer2, 20 )

skin3 = 20001

LoadImage(skin3,"Soldier_body_2_D.png")

setobjectimage(oPlayer2,skin3,0)

//EXIT button press

if GetVirtualButtonPressed(7)

EXIT

endif

// initial state of game - host or join game

if State = 0

// display instructions

//Print ( "Select ButtonPressed(5) to host a game" )

//Print ( "Select ButtonPressed(6) to join a game" )

// check input

if GetVirtualButtonPressed(5)

NetworkID = HostNetwork ( "TysMultiPlayerTerrain", "Player 1", 1025 )

iType = 0

State = 1

DeleteVirtualButton(5)

DeleteVirtualButton(6)

SetVirtualButtonPosition(7,980,50)

//oPlayer1 = 1234

SetWindowTitle("TysMultiPlayerTerrainSever : 1234")

/*CloneObject(oPlayer1,Original_Soldier)

//SetObjectScale(oPlayer1,0.1,0.1,0.1)

SetObjectVisible(oPlayer1,1)

SetObjectPosition(oPlayer1,GetCameraX(cameraID),GetCameraY(cameraID)-3.0 ,GetCameraZ(cameraID)+4.5)

SetObjectRotation(oPlayer1,GetCameraAngleX(cameraID),GetCameraAngleY(cameraID),GetCameraAngleZ(cameraID))

// play idle animation

PlayObjectAnimation(oPlayer1, "", 1000, 1282, 1, 0 )

SetObjectAnimationSpeed(oPlayer1, 20 )

SetSpriteVisible(iMenuSpr,0)

SetVirtualButtonVisible(1,1)

SetVirtualButtonVisible(2,1)

SetVirtualButtonVisible(3,1)

SetVirtualButtonVisible(4,1)

SetVirtualJoystickVisible(1,1)

endif

if GetVirtualButtonPressed(6)

randpnum = random(1235,2532)

randomplayername$="player"+str(randpnum)

NetworkID = JoinNetwork ( "TysMultiPlayerTerrain", randomplayername$ )

iType = 1

State = 1

DeleteVirtualButton(5)

DeleteVirtualButton(6)

SetVirtualButtonPosition(7,980,50)

//SetVirtualButtonPosition

//oPlayer2 = randpnum

SetWindowTitle("TysMultiPlayerTerrainClient : " + str(randpnum))

/*CloneObject(oPlayer2,Original_Soldier)

//SetObjectScale(oPlayer2,0.1,0.1,0.1)

SetObjectVisible(oPlayer2,1)

SetObjectPosition(oPlayer2,GetCameraX(cameraID),GetCameraY(cameraID)-3.0 ,GetCameraZ(cameraID)+4.5)

SetObjectRotation(oPlayer2,GetCameraAngleX(cameraID),GetCameraAngleY(cameraID),GetCameraAngleZ(cameraID))

// play idle animation

PlayObjectAnimation(oPlayer2, "", 1000, 1282, 1, 0 )

SetObjectAnimationSpeed(oPlayer2, 20 )

SetSpriteVisible(iMenuSpr,0)

SetVirtualButtonVisible(1,1)

SetVirtualButtonVisible(2,1)

SetVirtualButtonVisible(3,1)

SetVirtualButtonVisible(4,1)

SetVirtualJoystickVisible(1,1)

endif

// in game

if State = 1 and NetworkID = 0 then print ("Network connection failed")

if State = 1 and NetworkID > 0

rem network status

printc ("Network active:")

printc (IsNetworkActive ( NetworkID ))

for activity=1 to activitycount

printc("|||")

next activity

print("")

inc activitycount

if activitycount>10 then activitycount=0

rem if active

if IsNetworkActive ( NetworkID ) <> 0

// get ID of first player

id = GetNetworkFirstClient ( NetworkID )

// cycle through all players and display their names on screen

while id <> 0

// show current player

Print(GetNetworkClientName(NetworkID,id))

Print("the object's id number is : " + str(id))

//iMsgID = CreateNetworkMessage()

//if GetObjectExists(id) = 0

//CloneObject(id,Original_Soldier)

//SetObjectVisible(id,1)

//SetObjectPosition(id,GetCameraX(cameraID),GetCameraY(cameraID)-3.0 ,GetCameraZ(cameraID)+4.5)

//SetObjectRotation(id,GetCameraAngleX(cameraID),GetCameraAngleY(cameraID)+180,GetCameraAngleZ(cameraID))

//endif

//find next player

id = GetNetworkNextClient(NetworkID)

endwhile

// host events

If iType = 0

SetObjectVisible(oPlayer1,1)

SetObjectPosition(oPlayer1,GetCameraX(cameraID),GetCameraY(cameraID)-3.0 ,GetCameraZ(cameraID)+4.5)

SetObjectRotation(oPlayer1,GetCameraAngleX(cameraID),GetCameraAngleY(cameraID)+180,GetCameraAngleZ(cameraID))

// change camera mode

If (GetVirtualButtonPressed(3) = 1) Then cameraMode = 1-cameraMode

If (cameraMode = 1)

// stick camera to the terrain

x# = GetCameraX(1)

z# = GetCameraZ(1)

SetCameraPosition(1,x#,GetObjectHeightMapHeight(1,x#,z#)+3.5,z#)

SetObjectPosition(oPlayer1,x#,GetObjectHeightMapHeight(1,x#,z#)+0.5,z#+4.5)

EndIf

soax0# =  GetObjectAngleX(oPlayer1)

soay0# =  GetObjectAngleY(oPlayer1)

soaz0# =  GetObjectAngleZ(oPlayer1)

sox0# =  GetObjectX(oPlayer1)

soy0# =  GetObjectY(oPlayer1)

soz0# =  GetObjectZ(oPlayer1)

iMsgID0 = CreateNetworkMessage()

AddNetworkMessageFloat(iMsgID0,soax0#)

AddNetworkMessageFloat(iMsgID0,soay0#)

AddNetworkMessageFloat(iMsgID0,soaz0#)

AddNetworkMessageFloat(iMsgID0,sox0#)

AddNetworkMessageFloat(iMsgID0,soy0#)

AddNetworkMessageFloat(iMsgID0,soz0#)

SendNetworkMessage(NetworkID,id,iMsgID0)

iMsgID1 = GetNetworkMessage(NetworkID)

// cycle through all messages

while iMsgID1 <> 0

soax1# =  GetNetworkMessageFloat( iMsgID1 )

soay1# =  GetNetworkMessageFloat( iMsgID1 )

soaz1# =  GetNetworkMessageFloat( iMsgID1 )

sox1# =  GetNetworkMessageFloat( iMsgID1 )

soy1# =  GetNetworkMessageFloat( iMsgID1 )

soz1# =  GetNetworkMessageFloat( iMsgID1 )

SetObjectVisible(oPlayer2,1)

SetObjectRotation(oPlayer2,soax1#,soay1#,soaz1#)

SetObjectPosition(oPlayer2,sox1#,soy1#,soz1#)

iMsgID1 = GetNetworkMessage(NetworkID)

endwhile

endif

// client events

if iType = 1

// find message from server

iMsgID0 = GetNetworkMessage(NetworkID)

SetObjectVisible(oPlayer2,1)

SetObjectPosition(oPlayer2,GetCameraX(cameraID),GetCameraY(cameraID)-3.0 ,GetCameraZ(cameraID)+4.5)

SetObjectRotation(oPlayer2,GetCameraAngleX(cameraID),GetCameraAngleY(cameraID)+180,GetCameraAngleZ(cameraID))

// change camera mode

If (GetVirtualButtonPressed(3) = 1) Then cameraMode = 1-cameraMode

If (cameraMode = 1)

// stick camera to the terrain

x# = GetCameraX(1)

z# = GetCameraZ(1)

SetCameraPosition(1,x#,GetObjectHeightMapHeight(1,x#,z#)+3.5,z#)

SetObjectPosition(oPlayer2,x#,GetObjectHeightMapHeight(1,x#,z#)+0.5,z#+4.5)

EndIf

soax1# =  GetObjectAngleX(oPlayer2)

soay1# =  GetObjectAngleY(oPlayer2)

soaz1# =  GetObjectAngleZ(oPlayer2)

sox1# =  GetObjectX(oPlayer2)

soy1# =  GetObjectY(oPlayer2)

soz1# =  GetObjectZ(oPlayer2)

// update position

//SetObjectVisible(id,1)

//SetObjectRotation(id,soax1#,soay1#,soaz1#)

//SetObjectPosition(id,sox1#,soy1#,soz1#)

// create a message containing the position to be sent out to the other player

iMsgID1 = CreateNetworkMessage()

AddNetworkMessageFloat(iMsgID1,soax1#)

AddNetworkMessageFloat(iMsgID1,soay1#)

AddNetworkMessageFloat(iMsgID1,soaz1#)

AddNetworkMessageFloat(iMsgID1,sox1#)

AddNetworkMessageFloat(iMsgID1,soy1#)

AddNetworkMessageFloat(iMsgID1,soz1#)

SendNetworkMessage ( NetworkID, 0, iMsgID1 )

// cycle through all messages

while iMsgID0 <> 0

// get position

soax0# =  GetNetworkMessageFloat( iMsgID0 )

soay0# =  GetNetworkMessageFloat( iMsgID0 )

soaz0# =  GetNetworkMessageFloat( iMsgID0 )

sox0# =  GetNetworkMessageFloat( iMsgID0 )

soy0# =  GetNetworkMessageFloat( iMsgID0 )

soz0# =  GetNetworkMessageFloat( iMsgID0 )

SetObjectVisible(oPlayer1,1)

SetObjectRotation(oPlayer1,soax0#,soay0#,soaz0#)

SetObjectPosition(oPlayer1,sox0#,soy0#,soz0#)

iMsgID0 = GetNetworkMessage ( NetworkID )

endwhile

endif

// move the camera

speed# = 1.0

If (GetRawKeyState(16)) Then speed# = 0.1

If (cameraMode = 1) Then speed# = 0.25

If (GetRawKeyState(87))

MoveCameraLocalZ(1,speed#)

EndIf

If (GetRawKeyState(83)) Then MoveCameraLocalZ(1,-speed#)

If (GetRawKeyState(65)) Then MoveCameraLocalX(1,-speed#)

If (GetRawKeyState(68)) Then MoveCameraLocalX(1,speed#)

If (GetRawKeyState(81)) Then MoveCameraLocalY(1,-speed#)

If (GetRawKeyState(69)) Then MoveCameraLocalY(1,speed#)

If (GetVirtualButtonState(1) = 0 or GetVirtualButtonState(2) = 0)

If(GetObjectIsAnimating(oPlayer1) = 1)

PlayObjectAnimation(oPlayer1, "", 1000, 1282, 1, 0 )

SetObjectAnimationSpeed(oPlayer1, 20 )

EndIf

If (GetVirtualButtonState(1) = 1)

MoveCameraLocalZ(1,-speed#)

//SetObjectAnimationFrame(uint32_t objID,  animName, time, tweentime )

//PlayObjectAnimation(oPlayer1,"",680,740,1,0)

//SetObjectAnimationSpeed(oPlayer1,20)

//EndIf

EndIf

If (GetVirtualButtonPressed(1) = 1)

//MoveCameraLocalZ(1,speed#)

//SetObjectAnimationFrame(uint32_t objID,  animName, time, tweentime )

If GetObjectIsTweening(oPlayer1) <= 680

PlayObjectAnimation(oPlayer1,"",680,740,1,0)

SetObjectAnimationSpeed(oPlayer1,20)

EndIf

If (GetVirtualButtonPressed(2) = 1)

//MoveCameraLocalZ(1,speed#)

//SetObjectAnimationFrame(uint32_t objID,  animName, time, tweentime )

If GetObjectIsTweening(oPlayer1) <= 680

PlayObjectAnimation(oPlayer1,"",680,740,1,0)

SetObjectAnimationSpeed(oPlayer1,20)

EndIf

If (GetVirtualButtonState(2) = 1)

MoveCameraLocalZ(1,speed#)

//SetObjectAnimationFrame(uint32_t objID,  animName, time, tweentime )

//If GetObjectIsTweening(oPlayer1) <= 680

//PlayObjectAnimation(oPlayer1,"",680,740,1,0)

//SetObjectAnimationSpeed(oPlayer1,20)

//EndIf

EndIf

//If(getvirtualbuttonstate(2) = 0)

//PlayObjectAnimation(oPlayer1, "", 1000, 1282, 1, 0 )

//SetObjectAnimationSpeed(oPlayer1, 20 )

//EndIf

//If(getvirtualbuttonstate(1) = 0)

//PlayObjectAnimation(oPlayer1, "", 1000, 1282, 1, 0 )

//SetObjectAnimationSpeed(oPlayer1, 20 )

//EndIf

If (GetVirtualJoystickY(1) < 0) Then MoveCameraLocalZ(1,speed#)

If (GetVirtualJoystickY(1) > 0) Then MoveCameraLocalZ(1,-speed#)

If (GetVirtualJoystickX(1) < 0) Then RotateCameraLocalY(1,-5)

If (GetVirtualJoystickX(1) > 0) Then RotateCameraLocalY(1,5)

// rotate the camera

If (GetPointerPressed())

startx# = GetPointerX()

starty# = GetPointerY()

angx# = GetCameraAngleX(1)

angy# = GetCameraAngleY(1)

pressed = 1

EndIf

If (GetPointerState() = 1)

fDiffX# = (GetPointerX() - startx#)/4.0

fDiffY# = (GetPointerY() - starty#)/4.0

newX# = angx# + fDiffY#

If (newX# > 89) Then newX# = 89

If (newX# < -89) Then newX# = -89

SetCameraRotation(1,newX#,angy# + fDiffX#,0)

EndIf

// move the sun

time# = time# + GetFrameTime()*0.5

xdir# = sin(time#)

ydir# = -0.5

zdir# = cos(time#)

SetSunDirection(xdir#,ydir#,zdir#)

// show some information

Print ("JoyStick X: "+Str(GetVirtualJoystickX(1),2))

Print ("JoyStick Y: "+Str(GetVirtualJoystickY(1),2))

Print("Frames Per Second : " + Str(ScreenFPS(),1))

Print("Polygons Drawn : " + Str(GetPolygonsDrawn()))

Print("Camera Position X : " + Str(GetCameraX(cameraID)))

Print("Camera Position Y : " + Str(GetCameraY(cameraID)))

Print("Camera Position Z : " + Str(GetCameraZ(cameraID)))

Print("Camera Angle X : " + Str(GetCameraAngleX(cameraID)))

Print("Camera Angle Y : " + Str(GetCameraAngleY(cameraID)))

Print("Camera Angle Z : " + Str(GetCameraAngleZ(cameraID)))

Print("Camera Quat Z : " + Str(GetCameraQuatZ(cameraID)))

Print("Camera Quat Y : " + Str(GetCameraQuatY(cameraID)))

Print("Camera Quat X : " + Str(GetCameraQuatX(cameraID)))

Print("Camera Quat W : " + Str(GetCameraQuatW(cameraID)))

Print("Camera FOV : " + Str(GetCameraFOV(cameraID)))

//Print("oPlayer Position X : " + str(GetObjectX(oPlayer)))

//Print("oPlayer Position Y : " + str(GetObjectY(oPlayer)))

//Print("oPlayer Position Z : " + str(GetObjectZ(oPlayer)))

//Print("oPlayer Angle X : " + str(GetObjectAngleX(oPlayer)))

//Print("oPlayer Angle Y : " + str(GetObjectAngleY(oPlayer)))

//Print("oPlayer Angle Z : " + str(GetObjectAngleZ(oPlayer)))

//Print("Network Message : " + str(iMsgID))

Print("Device IP : " + GetDeviceIP())

Print("NumAnimations( Original_Soldier ) : " + str(GetObjectNumAnimations( Original_Soldier )))

Print("AnimationDuration( Original_Soldier ) : " + str(GetObjectAnimationDuration( Original_Soldier,  "1 ")))

Print("AnimationName( Original_Soldier ) : "  + GetObjectAnimationName( Original_Soldier, 1 ))

Print("NumAnimations( Original_Soldier ) : " + str(GetObjectAnimationTime( Original_Soldier )))

CodeBase - TysMultiPlayerTerrain

Information

Summary

Full Description

AGKV2 BASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	TyJBr2
CodeBase Entries:	1