| Ad_Infinitum |
| Administrator |
 |
 |
| Data inscrierii: 23/Iun/2007 |
| Mesaje: 212 |
|
|
|
|
|
 |
|
Am mai postat inca o sursa..folositzio cum trebe si nu uitati sa publicati si voi ca sa-i ajutatzi pe altzi  
| Citat: |
remstart
(C) Alpha Thema
remend
rem Initial settings
backdrop off : hide mouse
rem Loading prompt
sync : center text screen width()/2,screen height()/2,"LOADING" : sync
Rem Make Matrix
make matrix 1,1500,1500,30,30
randomize matrix 1,2
Rem texture matrix
Load image "pawn_red.jpg",2
Prepare matrix texture 1,2,1,1
Fill matrix 1,0,1
rem Load the texture
LOAD IMAGE "light.jpg", 1, 0
LOAD IMAGE "light.jpg", 3, 0
rem Load sky object
load object "modele\sky\night.x",11
position object 11, 700,70,700
scale object 11,40,40,40
set object cull 11,0
set object light 11,0
set object texture 11,2,1
Rem Make Cubes and place randomly
For x = 5 to 7
Make object cube x,100
Position object x,Rnd(2000),0,Rnd(2000)
Set object collision to boxes x
texture object x,3
Next x
Rem Crez un player cu coliziune -------------------------
Make object sphere 10,50
load image "GOBFACE.bmp",10
texture object 10,10
Position object 10,19,10,19
rem Make the objects
Make object cube 1,44
Make object cube 2,44
Make object cube 3,44
Make object sphere 4,44,8,8
rem posittion the objects
position object 1, 830,80,300
position object 2, 330,70,1000
position object 3, 500,70,700
position object 4, 870,0,770
rem apply the texture to the objects
TEXTURE OBJECT 1, 1
TEXTURE OBJECT 2, 1
TEXTURE OBJECT 3, 1
TEXTURE OBJECT 4, 1
Rem Niste urmări pentru cuburi
Rem Cube 2
set object cull 2,0
set object light 2,0
position camera 0,0,-20
Rem Vube 1
set object cull 1,0
set object light 1,0
position camera 0,0,-20
Rem Cube 3
set object cull 3,4
set object light 3,-4
position camera 0,0,-20
rem Object using FX system effect
load object "sphere.x",13
position object 13,900,50,1200
scale object 13,8000,8000,8000
load effect "bubble.fx",14,1
set object effect 13,14
set limb effect 13,0,14
rem Load models for enemies
load object "modele\enemy\dog.x",20
position object 20,770,45,770
scale object 20,3000,3000,3000
loop object 20,0,25
rem Load models for enemies ++++++++++++++++++++++++++++
For w = 25 to 28
load object "modele\enemy\dog.x",w
Position object w,Rnd(2000),0,Rnd(2000)
scale object w,2000,2000,2000
Rem Pentru ca inamicul sa te urmareasca
obx# = object position x(w)
oy# = object position y(w)
obz# = object position z(w)
obz2# = object position z(10)
oby2# = object position y(10)
obx2# = object position x(10)
Next w
do
Rem Pentru ca inamicul sa te urmareasca
point object 25, obx2#,oby2#,obz2#
move object 25,1
Rem Pentru 26
point object 26, obx2#,oby2#,obz2#
move object 26,1
Rem Pentru 27
point object 27, obx2#,oby2#,obz2#
move object 27,1
Rem Pentru 27
point object 28, obx2#,oby2#,obz2#
move object 28,1
rem Move enemy 25 on a slow curve for appearance of intelegence
if object angle z(25)=0
yrotate object 25,wrapvalue(object angle y(25)+82)
endif
if object angle z(25)=1
yrotate object 25,wrapvalue(object angle y(25)-82)
endif
if object angle z(25)=2
move object 25,0.05
else
move object 25,0.02
endif
rem Move enemy 26 on a slow curve for appearance of intelegence
if object angle z(26)=0
yrotate object 26,wrapvalue(object angle y(26)+82)
endif
if object angle z(26)=1
yrotate object 26,wrapvalue(object angle y(26)-82)
endif
if object angle z(26)=2
move object 26,0.05
else
move object 26,0.02
endif
rem Move enemy 27 on a slow curve for appearance of intelegence
if object angle z(27)=0
yrotate object 27,wrapvalue(object angle y(27)+82)
endif
if object angle z(27)=1
yrotate object 27,wrapvalue(object angle y(27)-82)
endif
if object angle z(27)=2
move object 27,0.05
else
move object 27,0.02
endif
rem Move enemy 28 on a slow curve for appearance of intelegence
if object angle z(28)=0
yrotate object 28,wrapvalue(object angle y(28)+82)
endif
if object angle z(28)=1
yrotate object 28,wrapvalue(object angle y(28)-82)
endif
if object angle z(28)=2
move object 28,0.05
else
move object 28,0.02
endif
rem Move enemy on a slow curve for appearance of intelegence
if object angle z(20)=0
yrotate object 20,wrapvalue(object angle y(20)+82)
endif
if object angle z(20)=1
yrotate object 20,wrapvalue(object angle y(20)-82)
endif
if object angle z(20)=2
move object 20,0.05
else
move object 20,0.02
endif
rem Switch direction of curve based on a random value
if rnd(200)=1 then zrotate object 20,rnd(1)
rem Handle gravity for enemy
position object 20,object position x(20),object position y(20)-0,object position z(20)
rem Enemy position data within level
EnemyPosData:
data -9.27,9.98,-2.78
data -16.54,-0.22,19.18
data 2.0,9.0,25.0
data -2.0,-9.0,25.0
data 2,4.0,10.0
for n = 1 to 4
xrotate object n, object angle x(n) + 0.1
yrotate object n, object angle y(n) + 0.1
zrotate object n, object angle z(n) + 0.1
next n
CENTER TEXT 400, 500, "Press ESCape to end"
Rem Store Object angle Y in aY# ----------------------------------------------
aY# = Object angle Y(10)
Rem Control input for camera
If Upkey()=1 then Move object 10,1
If Downkey()=1 then Move object 10,-1
If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-1)
If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+1)
Rem get player object position and store in X# and Z#
X# = Object position x(10)
Z# = Object position z(10)
Rem get new camera position and store in cZ# and cX#
cZ# = Newzvalue(Z#,aY#-180,100)
cX# = Newxvalue(X#,aY#-180,100)
Rem position camera
Position Camera cX#,75,cZ#
Rem point the camera at the player object
Point camera X#,25,Z#
loop
rem Free resources
ghost particles off 1
delete effect 1
rem End program
end
|
Aici sunt si fisierele necesare sursei:
http://rapidshare.com/files/57387243/ciuperc-zona_by_Ad_Infinitum.rar.html
Sper sa va foloseasca  |
|
