Sorry your browser is not supported!

REM Project: testsavebigdbo
REM Created: 15.07.2012 23:08:46
REM
REM ***** Main Source File *****
REM
backdrop on
color backdrop 0
cls 0 : ink rgb(255,255,255),0 : circle 16,16,14
scorchimage=1 : get image scorchimage,0,0,32,32
set static universe 40*100,21*100,40*100
tfile$="universe.dbo"
if file exist(tfile$)=1
dividetexturesize=0 : load static objects tfile$,dividetexturesize : omax=1
rem delete file tfile$

else
 collision=2 : Arbitraryvalue=0 : shadow=1 : portal=1 : o=1
 load object "testmap\testmap.x",o: position object o,100,-100,100
 make static object o,collision,Arbitraryvalue,shadow,portal : inc o

 load object "testmap\testmap.x",o: position object o,100,-200,100
 make static object o,collision,Arbitraryvalue,shadow,portal : inc o



 for er=12 to 33 : delete static object er : next er
 build static portals : delete light map lights : add static objects to light map pool
 make object cube o,100 : position object o,600,75,400 : add object to light map pool o
 make mesh from object 3,o : add limb o,1,3 : offset limb o,1,0,0,-125
 add limb to light map pool o,1 : inc o

 texturesize=16 : texturequality=1 : lightmapsavepath$="lightmaps"
 if path exist(lightmapsavepath$)=0 then make directory lightmapsavepath$
 create light maps texturesize,texturequality,lightmapsavepath$
 if file exist(tfile$)=1 then delete file tfile$
 save static objects tfile$ : omax=o
 for i=1 to omax-1 : delete object i : next i
endif


set global shadows on : set global shadow shades 1 : set global shadow color 0,0,0,64
set shadow light 1,300,500,700,2000 : set shadow position -1,300,500,700

position camera 300,50,300 : point camera 500,50,500
set point light 0,500,300,500 : set ambient light 20
set normalization on : sync on : sync rate 60



while mouseclick()=0
 if inkey$()="-" then set static portals on
 if inkey$()="=" then set static portals off
 if inkey$()="[" then set static objects wireframe on
 if inkey$()="]" then set static objects wireframe off



rem Input source
tkeystate30=0 : tkeystate32=0 : tkeystate17=0 : tkeystate31=0
if Keystate(17)  then tkeystate17=1
if Keystate(31) then tkeystate31=1
if Keystate(30) then tkeystate30=1
if Keystate(32) then tkeystate32=1
cammovex#=Mousemovex()
cammovey#=Mousemovey()

rem Camera old information
cox#=Camera Position X()
coy#=Camera Position Y()
coz#=Camera Position Z()

rem Control camera movement
movement=0 : speed#=3.0
x#=Camera Angle X() : z#=Camera Angle Z() : sy#=Camera Angle Y() : y#=sy#
if tkeystate30=1 then dec y#,90 : movement=1
if tkeystate32=1 then inc y#,90 : movement=1
Rotate Camera 0, y#, 0
if tkeystate17=1 or tkeystate30=1 or tkeystate32=1 then Move Camera speed# : movement=1
if tkeystate31=1 then Move Camera speed#*-1.0 : movement=1
Rotate Camera x#, sy#, z#

rem Camera new information
cmx#=Camera Position X()
cmy#=Camera Position Y()-grav#
cmz#=Camera Position Z()

rem Overall ellipse collision for camera
if Static Volume(cox#, coy#-20, coz#, cmx#, cmy#-20, cmz#, 1.0)=1
 materialtype=Get Static Collision Value()
 cmx#=cox#+Get Static Collision X()
 cmy#=coy#+Get Static Collision Y()
 cmz#=coz#+Get Static Collision Z()
 grav#=0.5
else
 inc grav#,0.5
endif

rem Stop falling forever
if cmy#<-200.0 then cmy#=-200

rem Update camera position
` Set Point Light 0, cmx#, cmy#, cmz#
Position Camera cmx#, cmy#, cmz#

rem Control camera view
camangx#=Camera Angle X()+cammovey#/1.5
camangy#=Camera Angle Y()+cammovex#/1.5
if wrapvalue(camangx#)>85 and wrapvalue(camangx#)<180 then camangx#=85.0
if wrapvalue(camangx#)>180 and wrapvalue(camangx#)<275 then camangx#=275.0
Rotate Camera camangx#,camangy#,Camera Angle Z()

rem Update
Sync


endwhile
set global shadows off : delete static objects
end

-main directory
  L----lightmaps
      L------0.dds
  L-----ground.x
  L-----AlgaeBricks.bmp
  L-----testsavebigdbo.dba
  L-----testsavebigdbo.dpro
  L-----testmap
      L-------testmap.x
      L-------AlgaeBricks.bmp
  L-----universe.dbo
  L-----universe.dbu

`Use a constant for easy referencing
   #CONSTANT cam_object    99

`Set up display
   AUTOCAM OFF
   SYNC RATE 60
   SET WINDOW ON

`Make a wall and place  it 50 paces away
   MAKE OBJECT BOX 1, 10, 5, 2
   POSITION OBJECT 1, 0,0, 50

`Make the object we'll be attatched the camera to
   MAKE OBJECT CUBE cam_object, 2
   POSITION OBJECT cam_object, 0,0,0
   HIDE OBJECT cam_object                         `Hide it so it's not visible. If this is your player, you don't need to hide it.


`Main loop
   WHILE KEYSTATE(16) = 0

      `Get the positions of the camera object and store them in temporary variables.
      `We'll use it later.
         tmp_x# = OBJECT POSITION X(cam_object)
         tmp_y# = OBJECT POSITION Y(cam_object)
         tmp_z# = OBJECT POSITION Z(cam_object)

      `These are just the player controls. I use the lazy method here.
      `We move the object and NOT the camera. We'll deal with that later.
         MOVE OBJECT cam_object, 0.5 * UPKEY()
         MOVE OBJECT cam_object, -0.5 * DOWNKEY()
         YROTATE OBJECT cam_object, OBJECT ANGLE Y(cam_object) + RIGHTKEY()
         YROTATE OBJECT cam_object, OBJECT ANGLE Y(cam_object) + (LEFTKEY() * -1)

      `Check if the object is colliding.
         IF OBJECT COLLISION(cam_object, 0) > 0
            `If the object is colliding, we re-position it to the initial position
            `recorded in the temporary variables.
               POSITION OBJECT cam_object, tmp_x#, tmp_y#, tmp_z#
         ENDIF

      `Now we place the camera where the object is. This happens every cycle but collision is handled
      `by the object so we don't need to worry.
         POSITION CAMERA 0, OBJECT POSITION X(cam_object), OBJECT POSITION Y(cam_object), OBJECT POSITION Z(cam_object)
         YROTATE CAMERA 0, OBJECT ANGLE Y(cam_object)

      `Some test to tell you how to control the player.
         TEXT 1, 20, "Left/Right = turn"
         TEXT 1, 40, "Up = forward"
         TEXT 1, 60, "q = quit"
   ENDWHILE

REM Project: testsavebigdbo
REM Created: 15.07.2012 23:08:46
REM
REM ***** Main Source File *****
REM
backdrop on
color backdrop 0
cls 0 : ink rgb(255,255,255),0 : circle 16,16,14
scorchimage=1 : get image scorchimage,0,0,32,32
tfile$="universe.dbo"
make object cube 1000,5
hide object 1000
if file exist(tfile$)=1
dividetexturesize=0 : load static objects tfile$,dividetexturesize : omax=1
rem delete file tfile$

else
 collision=2 : Arbitraryvalue=0 : shadow=1 : portal=1 : o=1
 load object "testmap\ramp.x",o: position object o,100,-200,100
 make static object o,collision,Arbitraryvalue,shadow,portal : inc o

 load object "testmap\ramp.x",o: position object o,100,-300,100
 make static object o,collision,Arbitraryvalue,shadow,portal : inc o

rem  for er=12 to 33 : delete static object er : next er
 build static portals : delete light map lights : add static objects to light map pool
rem make object cube o,100 : position object o,600,75,400 : add object to light map pool o
rem  make mesh from object 3,o : add limb o,1,3 : offset limb o,1,0,0,-125
rem add limb to light map pool o,1 : inc o

 texturesize=16 : texturequality=1 : lightmapsavepath$="lightmaps"
 if path exist(lightmapsavepath$)=0 then make directory lightmapsavepath$
 create light maps texturesize,texturequality,lightmapsavepath$
 if file exist(tfile$)=1 then delete file tfile$
 save static objects tfile$ : omax=o
 for i=1 to omax-1 : delete object i : next i
endif


set global shadows on : set global shadow shades 1 : set global shadow color 0,0,0,64
set shadow light 1,300,500,700,2000 : set shadow position -1,300,500,700

position camera 55,1000,55 : point camera 500,50,500
position object 1000,55,1000,55
set point light 0,500,300,500 : set ambient light 20
set normalization on : sync on : sync rate 60



while mouseclick()=0
 if inkey$()="-" then set static portals on
 if inkey$()="=" then set static portals off
 if inkey$()="[" then set static objects wireframe on
 if inkey$()="]" then set static objects wireframe off



rem Input source
tkeystate30=0 : tkeystate32=0 : tkeystate17=0 : tkeystate31=0
if Keystate(17)  then tkeystate17=1
if Keystate(31) then tkeystate31=1
if Keystate(30) then tkeystate30=1
if Keystate(32) then tkeystate32=1
cammovex#=Mousemovex()
cammovey#=Mousemovey()

rem Camera old information
cox#=Camera Position X()
coy#=Camera Position Y()
coz#=Camera Position Z()

rem Control camera movement
movement=0 : speed#=3.0
x#=Camera Angle X() : z#=Camera Angle Z() : sy#=Camera Angle Y() : y#=sy#
if tkeystate30=1 then dec y#,90 : movement=1
if tkeystate32=1 then inc y#,90 : movement=1
Rotate Camera 0, y#, 0
if tkeystate17=1 or tkeystate30=1 or tkeystate32=1 then  move object 1000,speed# : movement=1
if tkeystate31=1 then  MOVE OBJECT 1000,speed#*-1.0 : movement=1
Rotate Camera x#, sy#, z#

rem Camera new information
cmx#=object Position X(1000)
cmy#=object Position Y(1000)-grav#
cmz#=object Position Z(1000)

rem Overall ellipse collision for camera
if Static Volume(cox#, coy#-20, coz#, cmx#, cmy#-20, cmz#, 1.0)=1
 materialtype=Get Static Collision Value()
 cmy#=coy#+Get Static Collision Y()
 grav#=0.5
else
 inc grav#,0.5
endif

if Static Volume(cox#-5, coy#, coz#, cmx#-5, cmy#, cmz#, 1.0)=1
 materialtype=Get Static Collision Value()
 cmx#=cox#+Get Static Collision X()
endif

if Static Volume(cox#, coy#, coz#-5, cmx#, cmy#, cmz#-5, 1.0)=1
 materialtype=Get Static Collision Value()
 cmz#=coz#+Get Static Collision Z()
endif


rem Stop falling forever
if cmy#<-200.0 then cmy#=-200

rem Update camera position
` Set Point Light 0, cmx#, cmy#, cmz#
Position Camera cmx#, cmy#, cmz#
position object 1000,cmx#,cmy#,cmz#
rem Control camera view
camangx#=Camera Angle X()+cammovey#/1.5
camangy#=Camera Angle Y()+cammovex#/1.5
if wrapvalue(camangx#)>85 and wrapvalue(camangx#)<180 then camangx#=85.0
if wrapvalue(camangx#)>180 and wrapvalue(camangx#)<275 then camangx#=275.0
Rotate Camera camangx#,camangy#,Camera Angle Z()
rotate object 1000,camangx#,camangY#,camera angle z()
rem Update
Sync


endwhile
set global shadows off : delete static objects
end

`        nonZero Map Basics Tutorial
`
`        Requirements:  The "Example.exe" rarfile. The contents must be unzipped to "C:\"
`



`Use a constant for easy referencing
   #CONSTANT cam_object    99

`Set up display
   AUTOCAM OFF
   SYNC RATE 60
   SET WINDOW ON

`Check if you copied the folder to the right place and that all files are present
   err$ = " not found!"
   continue = PATH EXIST("C:\Example")
   IF continue = 0: EXIT PROMPT "You haven't copied my attachement to your 'C:\' directory!", "Example folder" + err$: END: ENDIF
   continue = FILE EXIST("C:\Example\map.x")
   IF continue = 0: EXIT PROMPT "Map.x" + err$, "You're missing a file!": END: ENDIF
   continue = FILE EXIST("C:\Example\Brix.png")
   IF continue = 0: EXIT PROMPT "Brix.png" + err$, "You're missing a file!": END: ENDIF
   continue = FILE EXIST("C:\Example\checkered.png")
   IF continue = 0: EXIT PROMPT "checkered.png" + err$, "You're missing a file!": END: ENDIF

`Load your world as a regular object, NOT a STATIC one
   LOAD OBJECT "C:\Example\map.x", 1               `Make sure you place the FULL PATH of your map in the quotations when using you own map.
   SCALE OBJECT 1, 50, 50, 50                      `My example map was too big for this example so I scale it down
   SET OBJECT COLLISION TO POLYGONS 1              `We want accurate collision now, not just box/sphere collision.
   POSITION OBJECT 1, 0,-10, 50                    `Place object to put the player on it without touching it (a topic for a later stage)

`Make the object we'll be attatched the camera to
   MAKE OBJECT CUBE cam_object, 2
   POSITION OBJECT cam_object, 0,0,0
   HIDE OBJECT cam_object                          `Hide it so it's not visible. If this is your player, you don't need to hide it.
   YROTATE OBJECT cam_object, 90                   `This is so you can see the wall.


`Main loop
   WHILE KEYSTATE(16) = 0

      `Get the positions of the camera object and store them in temporary variables.
      `We'll use it later.
         tmp_x# = OBJECT POSITION X(cam_object)
         tmp_y# = OBJECT POSITION Y(cam_object)
         tmp_z# = OBJECT POSITION Z(cam_object)

      `These are just the player controls. I use the lazy method here.
      `We move the object and NOT the camera. We'll deal with that later.
         MOVE OBJECT cam_object, 1.5 * UPKEY()
         MOVE OBJECT cam_object, -1.5 * DOWNKEY()
         YROTATE OBJECT cam_object, OBJECT ANGLE Y(cam_object) + RIGHTKEY()
         YROTATE OBJECT cam_object, OBJECT ANGLE Y(cam_object) + (LEFTKEY() * -1)

      `Check if the object is colliding.
         IF OBJECT COLLISION(cam_object, 0) > 0
            `If the object is colliding, we re-position it to the initial position
            `recorded in the temporary variables.
               POSITION OBJECT cam_object, tmp_x#, tmp_y#, tmp_z#
         ENDIF

      `Now we place the camera where the object is. This happens every cycle but collision is handled
      `by the object so we don't need to worry.
         POSITION CAMERA 0, OBJECT POSITION X(cam_object), OBJECT POSITION Y(cam_object), OBJECT POSITION Z(cam_object)
         YROTATE CAMERA 0, OBJECT ANGLE Y(cam_object)

      `Some test to tell you how to control the player.
         TEXT 1, 20, "Left/Right = turn"
         TEXT 1, 40, "Up = forward"
         TEXT 1, 60, "q = quit"
   ENDWHILE

C:\
   |-Example
      |-Brix.png
      |-Checkered.png
      |-EasyCollisionsTut.dba
      |-map.x

function Terrain_Get_Height(X#, Z#)
   if not TerrainControl.CollisionOn
      Terrain_Set_Collision_On()
      f = 1
   endif
   Grp = Object_Collision_Group_Index("Coll_Terrain")
   if Grp < 0
      Error_Write("Terrain_Manager-->Terrain_Get_Height-->Error=Could not find terrain collision group")
      exitfunction -1.0
   endif
   Obj = sc_raycastgroup(Grp, X#, 15000, Z#, X#, -15000, Z#, 0)
   if Obj > 0
      Col# = 15000 - sc_intersectobject(Obj, X#, 15000, Z#, X#, -15000, Z#)
      if f = 1
         Terrain_Set_Collision_Off()
      endif
      exitfunction Col#
   endif
   if f = 1
      Terrain_Set_Collision_Off()
   endif
endfunction 0.0

Much lost in translation.
Problem is:
Translator translate word after word.
Translator then make guess.
English and Russian very different.
Translator easy confuse.
Programmer cannot make computers "think".
Problem is of computers.
Be careful of spelling.
Translator also guess words if spelling wrong. Even small typo can be other word.
Better learn a small English. Then you see if translation look wrong.
Also good idea: Translate 2x: Translate Rusian - English. Then Translate English back to Rusian. Check if it sound correct.

Do not be angry at people on forum.
People on forum make many jokes of everyone.
They make jokes about me too.
They make joke about themselves too.
They not intend to upset you.

I hope this translated correctly :)

Afr: My pa was 'n Voortrekker in die Groot Trek
Direct Eng Translation: My father was a Front-puller in the Big Pull.
Correct Translation: My father was a Voortrekker in the Great Trek.

The Voortrekkers: http://en.wikipedia.org/wiki/Voortrekkers

Jap: Nihongo ga skoshi hanashimasu. Demo, jozu ja arimasen.

Direct Eng Translation: Japanese little speak. But skillfully not.

Proper Translation: I speak a little Japanese. But not very well.

*Hope I got that right. I keep flaking on my Jap lessons and then
resuming weeks later. I've prolly learned more from anime than
from the lessons - I suck at studying. And we won't even go into
my spelling in other languages :(