TheGameCreators - CodeBase - Operation Genocide(alienware 10th place) source code

Return to the CodeBase listing

Category: 3D

Version: 2.0

Information

Uploaded: 7th Mar 2004 19:11

Modified: 13th Mar 2004 06:53

Author: dark coder

Summary

alienware competition 10th place operation genocide fps

Full Description

all the source code for operation genocide, <br /> <br /> if you wish to have the media, http://atmospherestudios.com/Operation Genocide release.rar<br /> <br /> however it has been modified, so its not quite as usable basically, so you dont claim it as your own :-P

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set display mode 800,600,32

autocam off

sync on

hide mouse

disable escapekey

dim sav(31)

health=100

dim shell(2,5)

dim guns(10)

top:

gun=1

message=0

aliengog=0

player__oldx#=0

player__oldy#=0

player__oldz#=0

player__x#=0

player__y#=0

player__z#=0

cx#=0

cy#=0

acx#=0

acy#=0

al=0

messgeend=0

position camera 0,0,0

rotate camera 0,0,0

ink rgb(255,255,255),1

load object "map/office.3ds",1

sel=1

if dop=0

load music "music/mmus.mid",1

play music 1

loop music 1

endif

load image "map/scrn.bmp",70

load image "2d/cred.png",71

dec waitforturn

if options=1

if waitforturn<0

if returnkey()=1 : options=0 : waitforturn=10 : endif

endif

texture limb 1,38,71

else

texture limb 1,38,70

endif

llg=0

if dop=1

CLEAN_SWEEP()

load image "2d/load.png",7000

draw to front

paste image 7000,0,0

lev=lev+1

exit

endif

if wait<5

if options=0

if leftkey()=1 : sel=sel-1 : wait=25 : endif

if rightkey()=1 : sel=sel+1 : wait=25 : endif

endif

dec wait

if sel>6 then sel=1

if sel<1 then sel=6

msg1$="<  NEW GAME  >"

msg2$="<  PRACTICE  >"

msg3$="<  CREDITS  >"

msg4$="<  EXIT  >"

msg5$="<  SAVE  >"

msg6$="<  LOAD  >"

if waitforturn<0

if sel=1

set cursor (400-(len(msg1$)/2)*10),100

print msg1$

if returnkey()=1

CLEAN_SWEEP()

dim guns(10)

lev=1

load image "2d/brief.png",7000

health=100

draw to front

paste image 7000,0,0

exit

endif

if waitforturn<0

if sel=2

health=100

set cursor (400-(len(msg2$)/2)*10),100

print msg2$

if returnkey()=1

CLEAN_SWEEP()

dim guns(10)

lev=0

load image "2d/practice.png",7000

draw to front

paste image 7000,0,0

exit

endif

if waitforturn<0

if sel=3

if returnkey()=1 : options=1 : waitforturn=10 : selection=1 : endif

if options=0 then set cursor (400-(len(msg3$)/2)*10),100

if options=0 then print msg3$

endif

if sel=4

set cursor (400-(len(msg4$)/2)*10),100

print msg4$

if returnkey()=1 : CLEAN_SWEEP() : end : endif

endif

if waitforturn<0

if sel=5

set cursor (400-(len(msg5$)/2)*10),100

print msg5$

if returnkey()=1 : save array "files/sav",sav(0) : sv=1 : endif

endif

if sel=5

else

sv=0

endif

if sv=1

set cursor 364,150

print "saved"

endif

if waitforturn<0

if sel=6

set cursor (400-(len(msg6$)/2)*10),100

print msg6$

if returnkey()=1 : CLEAN_SWEEP() : dim guns(10) : load array "files/sav",sav(0) : llg=1 : load image "2d/load.png",7000 : draw to front : paste image 7000,0,0 : exit : endif

endif

if sel=1 : cx#=17 : cy#=89 : ax#=5 : ay#=10 : az#=11 : endif

if sel=2 : cx#=21 : cy#=113 : ax#=9 : ay#=13 : az#=-4 : endif

if sel=3 : cx#=45 : cy#=175 : ax#=3 : ay#=13 : az#=0 : endif

if sel=4 : cx#=9 : cy#=268 : ax#=2 : ay#=10 : az#=-5 : endif

if sel=5 : cx#=59 : cy#=265 : ax#=-9 : ay#=10 : az#=8 : endif

if sel=6 : cx#=52 : cy#=281 : ax#=-9 : ay#=10 : az#=16 : endif

if options=1 : cx#=359.7 : cy#=72.9 : ax#=12.38 : ay#=9.42 : az#=13.97 : endif

cx#=curveangle(cx#,camera angle x(),10)

cy#=curveangle(cy#,camera angle y(),10)

ax#=curvevalue(ax#,camera position x(),10)

ay#=curvevalue(ay#,camera position y(),10)

az#=curvevalue(az#,camera position z(),10)

rotate camera cx#,cy#,0

position camera ax#,ay#,az#

sync

loop

draw to front

paste image 7000,1,2

if llg=1 then lev=sav(31)

`====================================================================================================================

`==================================================================================================================== load in alien sfx

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== camera + setup code

if lev<2

set camera range 1,10000000

else

set camera range 1,3000

endif

if lev=11 then set camera range 1,10000000

sync on

set camera rotation zyx

set cursor 0,0

sync rate 60

autocam off

hide mouse

med:

undim MasterObjNo(1)

if med=1 then CLEAN_SWEEP()

med=0

CollisionObjNo=0

player__oldx#=0

player__oldy#=0

player__oldz#=0

player__x#=0

player__y#=0

player__z#=0

cx#=0

cy#=0

acx#=0

acy#=0

al=0

position camera 0,0,0

rotate camera 0,0,0

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== scope in + out images+models

Dim MasterObjNo(1) : MasterObjNo(0) = 9999

paste image 7000,0,0

`-=-=-=-=-=

load image "2d/scope.png",775

load image "2d/scope2.png",774

load image "2d/scope3.png",773

make object plain 775,8,6

lock object on 775

position object 775,0,0,4.9

texture object 775,775

ghost object on 775

hide object 775

load image "2d/scoper.png",776

make object plain 776,8,6

lock object on 776

position object 776,0,0,4.9

texture object 776,776

`ghost object on 776

set object 776,1,0,0,1

hide object 776

`--=--=-=-= crosshair loading

load image "2d/xhair.bmp",10

load image "2d/xhair2.bmp",11

load object "3d/sky02.3ds",199

scale object 199,1000000,1000000,1000000

SET OBJECT 199,1,0,0,0,0,0,0

if lev>1 then hide object 199

if lev=11 then show object 199

`                                                                 __

`==============================================    /   /  /  /  /

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X   /---/  /  /  /    /

`==============================================  /   /  /__/  /____/

load image "2d/gui.png",1

make object plain 1,.7,.27

lock object on 1

texture object 1,1

position object 1,1.25,-1.07,2

ghost object on 1

set object 1,1,1,0,0,0,0

make object plain 2,0.70,0.04

lock object on 2

position object 2,0,0,2.1

ghost object on 2

set text font "arial"

set text size 20

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== guns stuffs

for i=1 to 10

make object sphere 1099+i,0.6

next i

load object "3d/p99wf.3ds",12

load object "3d/mac10wf.3ds",22

load object "3d/uziwf.3ds",32

load object "3d/mp5wf.3ds",42

load object "3d/scorpionwf.3ds",52

load object "3d/fn2000wf.3ds",62

load object "3d/akwf.3ds",72

load object "3d/m4a1wf.3ds",82

load object "3d/m249wf.3ds",92

load object "3d/psg1wf.3ds",102

for i=1 to 10

lock object on 2+(i*10)

position object 2+(i*10),1.45,-1.072,2.1

color object 2+(i*10),rgb(0,0,255)

set object 2+(i*10),0,1,0

scale object 2+(i*10),0.7,0.7,0.7

color object 2+(i*10),rgb(0,0,255)

next i

load object "3d/p99.3ds",100

load object "3d/mac10.3ds",110

load object "3d/uzi.3ds",120

load object "3d/mp5.3ds",130

load object "3d/scorpion.3ds",140

load object "3d/fn2000.3ds",150

load object "3d/ak.3ds",160

load object "3d/m4a1.3ds",170

load object "3d/m249.3ds",180

load object "3d/psg1.3ds",190

for i=0 to 9

set object rotation zyx 100+(i*10)

next i

load object "3d/laser.3ds",104

set object rotation zyx 104

color object 104,rgb(255,0,0)

ghost object on 104

hide object 104

load object "3d/flash.3ds",101 : load object "3d/flash2.3ds",111 : load object "3d/flash3.3ds",121 : load object "3d/flash4.3ds",131

load object "3d/flash5.3ds",141 : load object "3d/flash6.3ds",151 : load object "3d/flash7.3ds",161 : load object "3d/flash8.3ds",171

load object "3d/flash9.3ds",181 : load object "3d/flash10.3ds",191

for i=0 to 9

set object rotation zyx 101+(i*10)

ghost object on 101+(i*10)

set object 101+(i*10),1,0,0,0,0,1

next i

load image "3d/flash.bmp",101

load image "3d/flash2.bmp",102

load sound "sfx/p99.wav",1

load sound "sfx/mac10.wav",2

load sound "sfx/uzi.wav",3

load sound "sfx/mp5.wav",4

load sound "sfx/scorpion.wav",5

load sound "sfx/fn2000.wav",6

load sound "sfx/ak47.wav",7

load sound "sfx/m16.wav",8

load sound "sfx/m249.wav",9

load sound "sfx/psg1.wav",10

load sound "sfx/reload.wav",11

load sound "sfx/out.wav",12

`set sound speed 1,15000

load sound "sfx/see1.wav",500

load sound "sfx/see2.wav",501

load sound "sfx/see3.wav",502

load sound "sfx/see4.wav",503

load sound "sfx/see5.wav",504

load sound "sfx/see6.wav",505

load sound "sfx/see7.wav",506

load sound "sfx/tack1.wav",507

load sound "sfx/hit.wav",400

`========

for i=0 to 5

load sound "sfx/shell.wav",700+i

next i

for i=0 to 5

load object "3d/bullet.3ds",3+i

hide object 3+i

set object rotation zyx 3+i

position object 3+i,0,-1000000,0

next i

guns(1)=1

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== LOAD UP ALIENS 9000-9100

dim alien(100,14)

if wtt=0 then dim wtt(210,14)

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== load up all the game models 9000-9100

dim objects(100,5)

if lev=0

load array "files/lev_0",objects(0)

load object "map/map0.3ds",9998

position object 9998,0,-40,0

set object 9998,1,0,0

endif

if lev=1

load array "files/lev_1",objects(0)

load object "map/map1.3ds",9998

position object 9998,0,-40,0

set object 9998,1,0,0

endif

if lev=2

load array "files/lev_2",objects(0)

load object "map/map2.3ds",9998

position object 9998,0,-40,0

endif

if lev=3

load array "files/lev_3",objects(0)

load object "map/map3.3ds",9998

position object 9998,0,-40,0

endif

if lev=4

load array "files/lev_4",objects(0)

load object "map/map4.3ds",9998

position object 9998,0,-40,0

endif

if lev=5

load array "files/lev_5",objects(0)

load object "map/map5.3ds",9998

position object 9998,0,-40,0

endif

if lev=6

load array "files/lev_6",objects(0)

load object "map/map6.3ds",9998

position object 9998,0,-40,0

endif

if lev=7

load array "files/lev_7",objects(0)

load object "map/map7.3ds",9998

position object 9998,0,-40,0

endif

if lev=8

load array "files/lev_8",objects(0)

load object "map/map8.3ds",9998

position object 9998,0,-40,0

endif

if lev=9

load array "files/lev_9",objects(0)

load object "map/map9.3ds",9998

position object 9998,0,-40,0

endif

if lev=10

load array "files/lev_10",objects(0)

load object "map/map10.3ds",9998

position object 9998,0,-40,0

endif

if lev=11

load array "files/lev_11",objects(0)

load object "map/map11.3ds",9998

position object 9998,0,-40,0

set object 9998,1,0,0

endif

for i=1 to 100

if objects(i,1)>0

if objects(i,1)=1 : load object "objects/mac10.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=2 : load object "objects/uzi.3ds",8999+i : scale object 8999+i,18,18,18 : endif

if objects(i,1)=3 : load object "objects/mp5.3ds",8999+i : scale object 8999+i,200,200,200 : endif

if objects(i,1)=4 : load object "objects/scorpion.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=5 : load object "objects/fn2000.3ds",8999+i : scale object 8999+i,30,30,30 : endif

if objects(i,1)=6 : load object "objects/ak47.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=7 : load object "objects/m4a1.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=8 : load object "objects/m249.3ds",8999+i : scale object 8999+i,80,80,80 : endif

if objects(i,1)=9 : load object "objects/psg1.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=10 : load object "objects/pistolmag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=11 : load object "objects/mac10mag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=12 : load object "objects/uzimag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=13 : load object "objects/mp5mag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=14 : load object "objects/scorpionmag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=15 : load object "objects/fn2000mag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=16 : load object "objects/ak47mag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=17 : load object "objects/m4a1mag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=18 : load object "objects/m249mag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

if objects(i,1)=19 : load object "objects/psg1mag.3ds",8999+i : scale object 8999+i,50,50,50 : endif

load image "objects/door1.bmp",9992

if objects(i,1)=21 : load object "objects/door1.x",8999+i : texture object 8999+i,9992 : scale object 8999+i,2000,3200,4000 : xrotate object 8999+i,90 : fix object pivot 8999+i : endif

if objects(i,1)=22 : load object "objects/door2.x",8999+i : texture object 8999+i,9992 : scale object 8999+i,2000,3200,4000 : xrotate object 8999+i,90 : fix object pivot 8999+i : endif

if objects(i,1)=23 : load object "objects/door3.x",8999+i : texture object 8999+i,9992 : scale object 8999+i,2000,3200,4000 : xrotate object 8999+i,90 : fix object pivot 8999+i : endif

if objects(i,1)=24 : load object "objects/door4.x",8999+i : texture object 8999+i,9992 : scale object 8999+i,2000,3200,4000 : xrotate object 8999+i,90 : fix object pivot 8999+i : endif

if objects(i,1)=25 : load object "objects/door5.x",8999+i : scale object 8999+i,2000,3200,4000 : xrotate object 8999+i,90 : fix object pivot 8999+i : endif

delete image 9992

if objects(i,1)=31 : make object plain 8999+i,1,1 : hide object 8999+i : endif

if objects(i,1)=39 : load object "alien.x",7600 : if lev=1 : ghost object on 7600 : endif : position object 7600,objects(i,2),objects(i,3),objects(i,4) : yrotate object 7600,90 : fix object pivot 7600

alien__x#=objects(i,2)

alien__Y#=objects(i,3)

alien__Z#=objects(i,4)

alien__oldx#=objects(i,2)

alien__oldy#=objects(i,3)

alien__oldz#=objects(i,4)

scale object 7600,30,30,30 : aliengog=1 : objects(i,1)=0 : set object rotation zyx 7600 : set object speed 7600,30 : endif

if objects(i,1)=40

player__oldx#=objects(i,2)

player__oldy#=objects(i,3)

player__oldz#=objects(i,4)

player__x#=objects(i,2)

player__y#=objects(i,3)

player__z#=objects(i,4)

cx#=objects(i,5)

cy#=0

acx#=objects(i,5)

acy#=0

al=0

endif

if objects(i,1)=41 : load object "map/tgt.3ds",8999+i : scale object 8999+i,800,800,800 : endif

if objects(i,1)=20 : load object "objects/health.3ds",8999+i : scale object 8999+i,100,100,100 : endif

if objects(i,1)=26 : make object plain 8999+i,1,1 : hide object 8999+i : endif

if objects(i,1)=27 : make object plain 8999+i,1,1 : hide object 8999+i : endif

if objects(i,1)=28 : make object plain 8999+i,1,1 : hide object 8999+i : endif

if objects(i,1)=29 : make object plain 8999+i,1,1 : hide object 8999+i : endif

if objects(i,1)=30 : make object plain 8999+i,1,1 : hide object 8999+i : endif

if objects(i,1)=32 : load object "alien/alien1.x",9100+al : yrotate object 9100+al,90 : fix object pivot 9100+al : yrotate object 9100+al,objects(i,5) :   position object 9100+al,objects(i,2),objects(i,3),objects(i,4) : set object speed 9100+al,60

alien(al,3)=0 : alien(al,4)=0 : alien(al,5)=0 : alien(al,1)=1000 : alien(al,2)=50 : alien(al,6)=0 : alien(al,7)=80  : alien(al,8)=10 : objects(i,1)=0 : al=al+1 : set object rotation zyx 9100+al-1 : scale object 9100+al-1,30,30,30 : endif

if objects(i,1)=33 : load object "alien/alien2.x",9100+al : yrotate object 9100+al,90 : fix object pivot 9100+al : yrotate object 9100+al,objects(i,5) :   position object 9100+al,objects(i,2),objects(i,3),objects(i,4) : set object speed 9100+al,60

alien(al,3)=0 : alien(al,4)=0 : alien(al,5)=0 : alien(al,1)=1500 : alien(al,2)=100 : alien(al,6)=0 : alien(al,7)=200  : alien(al,8)=30 : objects(i,1)=0 : al=al+1 : set object rotation zyx 9100+al-1 : scale object 9100+al-1,30,30,30 : endif

if objects(i,1)=34 : load object "alien/alien3.x",9100+al : yrotate object 9100+al,90 : fix object pivot 9100+al : yrotate object 9100+al,objects(i,5) :   position object 9100+al,objects(i,2),objects(i,3),objects(i,4) : set object speed 9100+al,60

alien(al,3)=0 : alien(al,4)=0 : alien(al,5)=0 : alien(al,1)=1200 : alien(al,2)=100 : alien(al,6)=0 : alien(al,7)=400  : alien(al,8)=20 : objects(i,1)=0 : al=al+1 : set object rotation zyx 9100+al-1 : scale object 9100+al-1,30,30,30 : endif

if objects(i,1)=35 : load object "alien/alien4.x",9100+al : yrotate object 9100+al,90 : fix object pivot 9100+al : yrotate object 9100+al,objects(i,5) :   position object 9100+al,objects(i,2),objects(i,3),objects(i,4) : set object speed 9100+al,60

alien(al,3)=0 : alien(al,4)=0 : alien(al,5)=0 : alien(al,1)=900 : alien(al,2)=100 : alien(al,6)=0 : alien(al,7)=300  : alien(al,8)=40 : objects(i,1)=0 : al=al+1 : set object rotation zyx 9100+al-1 : scale object 9100+al-1,30,30,30 : endif

if objects(i,1)=36 : load object "alien/alien5.x",9100+al : yrotate object 9100+al,90 : fix object pivot 9100+al : yrotate object 9100+al,objects(i,5) :   position object 9100+al,objects(i,2),objects(i,3),objects(i,4) : set object speed 9100+al,60

alien(al,3)=0 : alien(al,4)=0 : alien(al,5)=0 : alien(al,1)=700 : alien(al,2)=80 : alien(al,6)=0 : alien(al,7)=300  : alien(al,8)=35 : objects(i,1)=0 : al=al+1 : set object rotation zyx 9100+al-1 : scale object 9100+al-1,30,30,30 : endif

if objects(i,1)=37 : load object "alien/alien6.x",9100+al : yrotate object 9100+al,90 : fix object pivot 9100+al : yrotate object 9100+al,objects(i,5) :   position object 9100+al,objects(i,2),objects(i,3),objects(i,4) : set object speed 9100+al,60

alien(al,3)=0 : alien(al,4)=0 : alien(al,5)=0 : alien(al,1)=1400 : alien(al,2)=300 : alien(al,6)=0 : alien(al,7)=1000  : alien(al,8)=10 : objects(i,1)=0 : al=al+1 : set object rotation zyx 9100+al-1 : scale object 9100+al-1,30,30,30 : endif

if objects(i,1)=38 : load object "alien/alien7.x",9100+al : yrotate object 9100+al,90 : fix object pivot 9100+al : yrotate object 9100+al,objects(i,5) :   position object 9100+al,objects(i,2),objects(i,3),objects(i,4) : set object speed 9100+al,60

alien(al,3)=0 : alien(al,4)=0 : alien(al,5)=0 : alien(al,1)=1100 : alien(al,2)=150 : alien(al,6)=0 : alien(al,7)=700  : alien(al,8)=40 : objects(i,1)=0 : al=al+1 : set object rotation zyx 9100+al-1 : scale object 9100+al-1,30,30,30 : endif

if object exist(8999+i)=1

position object 8999+i,objects(i,2),objects(i,3),objects(i,4)

yrotate object 8999+i,wrapvalue(objects(i,5))

endif

next i

make object plain 8998,1,1 : hide object 8998

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`==============================================

if dop=0

dim bullet(10,3)

bullet(1,3)=15

bullet(2,3)=30

bullet(3,3)=45

bullet(4,3)=30

bullet(5,3)=35

bullet(6,3)=20

bullet(7,3)=30

bullet(8,3)=30

bullet(9,3)=200

bullet(10,3)=10

`==================  bullet count

bullet(1,1)=bullet(1,3)

bullet(2,1)=bullet(2,3)

bullet(3,1)=bullet(3,3)

bullet(4,1)=bullet(4,3)

bullet(5,1)=bullet(5,3)

bullet(6,1)=bullet(6,3)

bullet(7,1)=bullet(7,3)

bullet(8,1)=bullet(8,3)

bullet(9,1)=bullet(9,3)

bullet(10,1)=bullet(10,3)

`===================   mag counts

bullet(1,2)=2

bullet(2,2)=0

bullet(3,2)=0

bullet(4,2)=0

bullet(5,2)=0

bullet(6,2)=0

bullet(7,2)=0

bullet(8,2)=0

bullet(9,2)=0

bullet(10,2)=0

endif

dop=0

set text font "arial"

set text size 20

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== make temp level

`make object plain 9999,100,100

`position object 9999,0,-20,0

`load object "map/test.3ds",9999

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

load dll "files/DBCollisions.dll",1

dllError = CheckCollisionDLL(1)

if dllError > 0 then EXIT PROMPT "Fatal ERROR with dll" , "Code " + str$(dllError): end

` STEP 2:  Create Collision Object from any X/3ds file

if lev=0 then CollisionObjNo = LoadCollisionObject("map/map0.3ds")

if lev=1 then CollisionObjNo = LoadCollisionObject("map/map1.3ds")

if lev=2 then CollisionObjNo = LoadCollisionObject("map/map2.3ds")

if lev=3 then CollisionObjNo = LoadCollisionObject("map/map3.3ds")

if lev=4 then CollisionObjNo = LoadCollisionObject("map/map4.3ds")

if lev=5 then CollisionObjNo = LoadCollisionObject("map/map5.3ds")

if lev=6 then CollisionObjNo = LoadCollisionObject("map/map6.3ds")

if lev=7 then CollisionObjNo = LoadCollisionObject("map/map7.3ds")

if lev=8 then CollisionObjNo = LoadCollisionObject("map/map8.3ds")

if lev=9 then CollisionObjNo = LoadCollisionObject("map/map9.3ds")

if lev=10 then CollisionObjNo = LoadCollisionObject("map/map10.3ds")

if lev=11 then CollisionObjNo = LoadCollisionObject("map/map11.3ds")

Speed# = 40 : player__x# = 0 : player__y# = 100 : player__z# = 0

Radius# = 40 : Gravity# = 10.0

load sound "sfx/beat.wav",991

`============================================== START OF LOOP

bulletselected=1

gun=1

if llg=1

health=sav(0)

for i=1 to 10

guns(i)=sav(i)

next i

for i=1 to 10

bullet(i,1)=sav(i+10)

next i

for i=1 to 10

bullet(i,2)=sav(i+20)

next i

endif

if lev=0 then load music "music/ptc.mid",1

if lev=1 then load music "music/aa1.mid",1

if lev=2 then load music "music/aa2.mid",1

if lev=3 then load music "music/aa3.mid",1

if lev=4 then load music "music/aa4.mid",1

if lev=5 then load music "music/aa5.mid",1

if lev=6 then load music "music/aa6.mid",1

if lev=7 then load music "music/aa7.mid",1

if lev=8 then load music "music/aa3.mid",1

if lev=9 then load music "music/aa2.mid",1

if lev=10 then load music "music/aa10.mid",1

if lev<11

play music 1

loop music 1

endif

load image "2d/message.png",8000

make object plain 5000,50,50

set object rotation zyx 5000

load image "plasma.png",5000

texture object 5000,5000

ghost object on 5000

position object 5000,0,-10000000,0

for I = 1 to 1024

if sound exist(I)

set sound volume I,100

endif

next I

set cursor 0,0

`============================================== START OF LOOP

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== reset the old positions so it dont mess up

position camera oxxf#,oyyf#,ozzf#

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== move camera

mov=0

if keystate(17)=1 : cf#=cf#+2 : mov=1 : endif

if keystate(31)=1 : cf#=cf#-2 : mov=1 : endif

if keystate(32)=1 : cr#=cr#+2 : mov=1 : endif

if keystate(30)=1 : cr#=cr#-2 : mov=1 : endif

if cf#>0 then dec cf#,1

if cf#<0 then inc cf#,1

if cr#>0 then dec cr#,1

if cr#<0 then inc cr#,1

if cf#>-1 and cf#<1 then cf#=0

if cr#>-1 and cr#<1 then cr#=0

if cf#>10 then cf#=10

if cf#<-10 then cf#=-10

if cr#>8 then cr#=8

if cr#<-8 then cr#=-8

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== scope wobble, rotation for camera

rotate camera 0,acy#,0

move camera cf#

rotate camera 0,wrapvalue(acy#+90),0

move camera cr#

if showscope=1

if mov=0 then rotate camera wrapvalue(acx#-shot#+sin(d)*1.1),wrapvalue(acy#+cos(d)*1.1),0

if mov=1 then rotate camera wrapvalue(acx#-shot#+sin(d)*0.3),wrapvalue(acy#+cos(d)*2.1),0

else

rotate camera acx#,acy#,0

endif

`============================================== alien ai,/\/////-/

for i=0 to al

if alien(i,1)=1000 then uy=0

if alien(i,1)=1500 then uy=1

if alien(i,1)=1200 then uy=2

if alien(i,1)=900 then uy=3

if alien(i,1)=700 then uy=4

if alien(i,1)=1400 then uy=5

if alien(i,1)=1100 then uy=6

for oy=1 to 10

if alien(i,7)>0

if object exist(9100+i)=1

if dist(1099+oy,0,9100+i,0)<100

position object 1099+oy,0,100000000,0

alien(i,4)=camera position x()

alien(i,5)=camera position y()

alien(i,6)=camera position z()

ohel=alien(i,7)

if gun=1 then alien(i,7)=alien(i,7)-(10+rnd(40))

if gun=2 then alien(i,7)=alien(i,7)-(15+rnd(40))

if gun=3 then alien(i,7)=alien(i,7)-(30+rnd(20))

if gun=4 then alien(i,7)=alien(i,7)-(50+rnd(20))

if gun=5 then alien(i,7)=alien(i,7)-(25+rnd(20))

if gun=6 then alien(i,7)=alien(i,7)-(40+rnd(30))

if gun=7 then alien(i,7)=alien(i,7)-(45+rnd(25))

if gun=8 then alien(i,7)=alien(i,7)-(60+rnd(20))

if gun=9 then alien(i,7)=alien(i,7)-(30+rnd(20))

if gun=10 then alien(i,7)=alien(i,7)-(80+rnd(40))

nhel=alien(i,7)

if ohel>0 and nhel<1 then play sound 500+uy

if alien(i,7)>0

if alien(i,3)=0

play sound 500+uy

else

play sound 507

endif

alien(i,3)=1

endif

next oy

next i

for i=0 to al-1

if alien(i,7)>0

gf=alien(i,3)

if dist(999,0,9100+i,0)<(alien(i,1)/2) then alien(i,3)=1

if dist(999,0,9100+i,0)<alien(i,2) then alien(i,3)=1

for r=1 to 10

if dist(1099+r,0,9100+i,0)<50

alien(i,3)=1

endif

next r

gr=alien(i,3)

if gr=1 and gf=0 then play sound 500+uy

if dist(999,0,9100+i,0)>alien(i,1) : alien(i,3)=0 : loop object 9100+i,1,10 : endif

if alien(i,3)=1

alien(i,4)=camera position x()

alien(i,5)=camera position y()

alien(i,6)=camera position z()

no=0

point object 9100+i,alien(i,4),alien(i,5),alien(i,6)

xrotate object 9100+i,0

zrotate object 9100+i,0

endif

if dist(999,0,9100+i,0)<alien(i,2)

no=1

ghl=rnd(50)

loop object 9100+i,30,40

if ghl=1 : health=health-(alien(i,8)-rnd(5)) : play sound 400 : endif

endif

if alien(i,3)=1

if alien(i,1)=1000 then yymov=2

if alien(i,1)=1500 then yymov=5

if alien(i,1)=1200 then yymov=5

if alien(i,1)=900 then yymov=6

if alien(i,1)=700 then yymov=4

if alien(i,1)=1400 then yymov=2

if alien(i,1)=1100 then yymov=2

if no=0 then move object 9100+i,yymov

if no=0 then loop object 9100+i,10,30

endif

if dist(999,0,9100+i,0)<1500

if alien(i,7)>0

player__xg#=object position x(9100+i)

player__yg#=object position y(9100+i)

player__zg#=object position z(9100+i)

alien(i,12)=(object position x(9100+i))*2

alien(i,13)=(object position y(9100+i))*2

alien(i,14)=(object position z(9100+i))*2

player_oldx#=(alien(i,12))/2

player_oldy#=(alien(i,13))/2

player_oldz#=(alien(i,14))/2

bHit = call dll(1, "UpdateSlidingCollision", Radius#, Gravity#, player__xg#, player__yg#, player__zg#, player_oldx#, player_oldy#, player_oldz#)

` Whether we hit something or not the DLL will give us the right player coords so update ours now

player__xg# = call dll(1, "NewPlayerX")

player__yg# = call dll(1, "NewPlayerY")

player__zg# = call dll(1, "NewPlayerZ")

` And finally update the player to the new position

Position object 9100+i,player__xg#, player__yg#, player__zg#

alien(i,12)=(object position x(9100+i))*2

alien(i,13)=(object position y(9100+i))*2

alien(i,14)=(object position z(9100+i))*2

else

loop object 9100+i,45,47

endif

next i

`======-=-=-=-=-=--==-=-///////////////-=-=-=---//////

player__x#=camera position x()

player__y#=camera position y()

player__z#=camera position z()

bHit = call dll(1, "UpdateSlidingCollision", Radius#, Gravity#, player__x#, player__y#, player__z#, player__oldx#, player__oldy#, player__oldz#)

` Whether we hit something or not the DLL will give us the right player coords so update ours now

player__x# = call dll(1, "NewPlayerX")

player__y# = call dll(1, "NewPlayerY")

player__z# = call dll(1, "NewPlayerZ")

` And finally update the player to the new position

player__x#=curvevalue(player__oldx#,player__x#,3)

player__y#=curvevalue(player__oldy#,player__y#,3)

player__z#=curvevalue(player__oldz#,player__z#,3)

Position camera player__x#, player__y#, player__z#

player__oldx#=camera position x()

player__oldy#=camera position y()

player__oldz#=camera position z()

`============================================='==========

`============================================='==========  HELPER ALIEN CODE

`============================================='==========

if aliengog=1

if dist(999,0,7600,0)>100 : point object 7600,camera position x(),camera position y(),camera position z() : xrotate object 7600,0 : zrotate object 7600,0 : loop object 7600,10,30 : move object 7600,9

else

loop object 7600,1,10

endif

for i=0 to al-1

if dist(7600,0,9100+i,0)<500

if alien(i,7)>0

loop object 7600,30,40

point object 7600,object position x(9100+i),object position y(9100+i),object position z(9100+i) : xrotate object 7600,0 : zrotate object 7600,0

alienshoot=rnd(40)

if alienshoot=1

inc bulletselected : if bulletselected>10 then bulletselected=1

position object 1099+bulletselected,object position x(7600),object position y(7600),object position z(7600)

set object to object orientation 1099+bulletselected,7600

alienbullet=bulletselected

endif

next i

alien__x#=object position x(7600)

alien__y#=object position y(7600)

alien__z#=object position z(7600)

bHit = call dll(1, "UpdateSlidingCollision", Radius#, Gravity#, alien__x#, alien__y#, alien__z#, alien__oldx#, alien__oldy#, alien__oldz#)

` Whether we hit something or not the DLL will give us the right player coords so update ours now

alien__x# = call dll(1, "NewPlayerX")

alien__y# = call dll(1, "NewPlayerY")

alien__z# = call dll(1, "NewPlayerZ")

` And finally update the player to the new position

alien__x#=curvevalue(alien__oldx#,alien__x#,3)

alien__y#=curvevalue(alien__oldy#,alien__y#,3)

alien__z#=curvevalue(alien__oldz#,alien__z#,3)

Position object 7600,alien__x#,alien__y#,alien__z#

alien__oldx#=object position x(7600)

alien__oldy#=object position y(7600)

alien__oldz#=object position z(7600)

endif

if alienbullet=0 then position object 5000,0,100000000,0

`############################## ACTION ENDS #########################################################

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`==============================================  LASER AND SCOPE CODE

if laserwait<0 and keystate(38)=1 : inc showlaser : laserwait=20 : endif : if showlaser=2 then showlaser=0

if laserwait<0 and mouseclick()=2 : inc showscope

if showscope=2 then showscope=0

if showscope=0 then set camera fov 3.14/2.905

if showscope=1 then set camera fov 2.14/2.905

if gun=4 or gun=6 or gun=10

if showscope=1 then set camera fov 1.24/2.905

endif

laserwait=20 : endif

if showscope=0 then hide object 775

if gun=4 or gun=6 or gun=10

if showscope=1 then show object 775

endif

if showscope=0 then hide object 776

if gun=4 or gun=6 or gun=10

if showscope=1 then show object 776

endif

dec laserwait

if showlaser=0 then hide object 104

if showlaser=1 then show object 104

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`==============================================

shoot=1

if bullet(gun,1)<1 then shoot=0

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== shooting code, 101=muzzle flash, shot#= recoil

if mouseclick()=1 and shootwait<0 and bullet(gun,1)<1 and bullet(gun,2)<1 and hold=0

play sound 12

if gun=1 then shootwait=15+rnd(5)

if gun=2 then shootwait=15+rnd(2)

if gun=3 then shootwait=15+rnd(2)

if gun=4 then shootwait=15+rnd(2)

if gun=5 then shootwait=15+rnd(2)

if gun=6 then shootwait=15+rnd(2)

if gun=7 then shootwait=15+rnd(3)

if gun=8 then shootwait=15+rnd(2)

if gun=9 then shootwait=15+rnd(4)

if gun=10 then shootwait=15+rnd(10)

endif

for i=1 to 10

move object 1099+i,40

next i

for i=0 to 9

hide object 101+(i*10)

texture object 101+(i*10),101+rnd(1)

next i

if changing=0

if mouseclick()=1 and shootwait<0 and shoot=1 : shoot=1

`======= bullet decreace

bullet(gun,1)=bullet(gun,1)-1

`======= =-=-= shootwaits

if gun=1 then shootwait=15+rnd(5)

if gun=2 then shootwait=5+rnd(2)

if gun=3 then shootwait=2+rnd(2)

if gun=4 then shootwait=3+rnd(2)

if gun=5 then shootwait=2+rnd(2)

if gun=6 then shootwait=6+rnd(2)

if gun=7 then shootwait=4+rnd(3)

if gun=8 then shootwait=6+rnd(2)

if gun=9 then shootwait=5+rnd(4)

if gun=10 then shootwait=50+rnd(20)

siz#=siz#+shootwait

`========

h=1 : show object 91+(gun*10) : play sound gun : inc bulletselected : if bulletselected>10 then bulletselected=1

position object 1099+bulletselected,camera position x(),camera position y(),camera position z()

set object to object orientation 1099+bulletselected,101

yrotate object 1099+bulletselected,wrapvalue(object angle y(1099+bulletselected)+90)

move object 1099+bulletselected,2.5

yrotate object 1099+bulletselected,wrapvalue(object angle y(1099+bulletselected)-90)

move object 1099+bulletselected,3

xrotate object 1099+bulletselected,wrapvalue(object angle x(1099+bulletselected)+90)

move object 1099+bulletselected,3.5

xrotate object 1099+bulletselected,wrapvalue(object angle x(1099+bulletselected)-90)

if alienbullet=bulletselected : position object 5000,0,100000000,0 : alienbullet=0 : endif

shot#=shot#+2+rnd(3) : endif : endif

dec shootwait

if shot#>5 then shot#=5

if alienbullet>0

position object 5000,object position x(1099+alienbullet),object position y(1099+alienbullet),object position z(1099+alienbullet)

point object 5000,camera position x(),camera position y(),camera position z()

xrotate object 5000,wrapvalue(sin(g)*18)

inc g

endif

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== SHELL EJECTION

if h=1

position object 3+selshell,object position x(100),object position y(100),object position z(100)

set object to camera orientation 3+selshell

xrotate object 3+selshell,wrapvalue(object angle x(3+selshell)-rnd(5)-2)

shell(1,selshell)=50

shell(2,selshell)=30

inc selshell : if selshell>5 then selshell=0

endif

h=0

dec hidewait

for i=0 to 5

if shell(1,i)<0

hide object 3+i

else

show object 3+i

endif

next i

for i=0 to 5

yrotate object 3+i,wrapvalue(object angle y(3+i)-90)

move object 3+i,1.75

yrotate object 3+i,wrapvalue(object angle y(3+i)+90)

shell(2,i)=shell(2,i)-4

shuww#=shell(2,i)

position object 3+i,object position x(3+i),object position y(3+i)+shuww#/15,object position z(3+i)

if shell(1,i)>0

if object position y(3+i)<(camera position y()-80)

shell(1,i)=0

play sound 700+i

endif

next i

for i=1 to 10

turn object right 2+(i*10),5

hide object 2+(i*10)

next i

show object 2+(gun*10)

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== camera wobble amount

position object 100,camera position x(),camera position y(),camera position z()

if mov=0 then rotate object 100,wrapvalue(camera angle x()-shot#+sin(d)*1.1),wrapvalue(camera angle y()+cos(d)*1.1),0

if mov=1 then rotate object 100,wrapvalue(camera angle x()-shot#+sin(d)*0.3),wrapvalue(camera angle y()+cos(d)*2.1),0

dec shot#,0.5

if shot#<0 then shot#=0

if mov=0 then inc d,1

if mov=1 then inc d,10

`==== 15 if running

d=wrapvalue(d)

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== position the laser and the mussle flash where it should be

for i=0 to 9

position object 101+(i*10),object position x(100),object position y(100),object position z(100)

set object to object orientation 101+(i*10),100

next i

position object 104,object position x(100),object position y(100),object position z(100)

set object to object orientation 104,100

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== save old positions for repositioning

oxxf#=camera position x()

oyyf#=camera position y()

ozzf#=camera position z()

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== if the scope is on then put the camera where the scope is

if gun=4 or gun=6

if showscope=1

xxcs#=camera angle x()

zzcs#=camera angle x()

yycs#=camera angle y()

rotate camera 0,0,0

yrotate camera wrapvalue(yycs#+90)

move camera 2.5

rotate camera xxcs#,wrapvalue(camera angle y()-90),0

move camera 15

endif

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== pickingup stuff

`=================== then objects :-P

for i=1 to 100

if object exist(8999+i)=1

if dist(999,0,8999+i,0)<400

if objects(i,1)>20

if objects(i,1)<26

frax=(dist(999,0,8999+i,0)/10)-20

if frax<1 : frax=1 : endif

if frax>11 : frax=11 : endif

fraz=(11-frax)

set object frame 8999+i,fraz

endif

if objects(i,1)=29

if lev=1

position object 8999+i,object position x(7600),object position y(7600),object position z(7600)

endif

if lev=3

position object 8999+i,object position x(7600),object position y(7600),object position z(7600)

endif

if dist(999,0,8999+i,0)<100

if guns(2)=0

if objects(i,1)=1 : guns(2)=1 : bullet(2,2)=bullet(2,2)+1 : alienspeak=2 : mec=10 : messg$="You got a mac 10 (2)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=1 : guns(2)=1 : bullet(2,2)=bullet(2,2)+1 : alienspeak=2 : mec=10 : messg$="You got a mac 10 (2) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(3)=0

if objects(i,1)=2 : guns(3)=1 : bullet(3,2)=bullet(3,2)+1 : alienspeak=2 : mec=10 : messg$="You got a uzi (3)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=2 : guns(3)=1 : bullet(3,2)=bullet(3,2)+1 : alienspeak=2 : mec=10 : messg$="You got a uzi (3) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(4)=0

if objects(i,1)=3 : guns(4)=1 : bullet(4,2)=bullet(4,2)+1 : alienspeak=2 : mec=10 : messg$="You got a mp5 (4)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=3 : guns(4)=1 : bullet(4,2)=bullet(4,2)+1 : alienspeak=2 : mec=10 : messg$="You got a mp5 (4) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(5)=0

if objects(i,1)=4 : guns(5)=1 : bullet(5,2)=bullet(5,2)+1 : alienspeak=2 : mec=10 : messg$="You got a scorpion (5)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=4 : guns(5)=1 : bullet(5,2)=bullet(5,2)+1 : alienspeak=2 : mec=10 : messg$="You got a scorpion (5) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(6)=0

if objects(i,1)=5 : guns(6)=1 : bullet(6,2)=bullet(6,2)+1 : alienspeak=2 : mec=10 : messg$="You got a fn-2000 (6)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=5 : guns(6)=1 : bullet(6,2)=bullet(6,2)+1 : alienspeak=2 : mec=10 : messg$="You got a fn-2000 (6) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(7)=0

if objects(i,1)=6 : guns(7)=1 : bullet(7,2)=bullet(7,2)+1 : alienspeak=2 : mec=10 : messg$="You got a ak-47 (7)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=6 : guns(7)=1 : bullet(7,2)=bullet(7,2)+1 : alienspeak=2 : mec=10 : messg$="You got a ak-47 (7) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(8)=0

if objects(i,1)=7 : guns(8)=1 : bullet(8,2)=bullet(8,2)+1 : alienspeak=2 : mec=10 : messg$="You got a m4a1 (8)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=7 : guns(8)=1 : bullet(8,2)=bullet(8,2)+1 : alienspeak=2 : mec=10 : messg$="You got a m4a1 (8) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(9)=0

if objects(i,1)=8 : guns(9)=1 : bullet(9,2)=bullet(9,2)+1 : alienspeak=2 : mec=10 : messg$="You got a m249 (9)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=8 : guns(9)=1 : bullet(9,2)=bullet(9,2)+1 : alienspeak=2 : mec=10 : messg$="You got a m249 (9) but took the ammo" : messgeend=200 : message=1 : endif

endif

if guns(10)=0

if objects(i,1)=9 : guns(10)=1 : bullet(10,2)=bullet(10,2)+1 : alienspeak=2 : mec=10 : messg$="You got a psg1 (0)" : messgeend=200 : message=1 : endif

else

if objects(i,1)=9 : guns(10)=1 : bullet(10,2)=bullet(10,2)+1 : alienspeak=2 : mec=10 : messg$="You got a psg1 (0) but took the ammo" : messgeend=200 : message=1 : endif

endif

if objects(i,1)=10 : bullet(1,2)=bullet(1,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the p99 (1)" : messgeend=200 : message=1 : endif

if objects(i,1)=11 : bullet(2,2)=bullet(2,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the mac10 (2)" : messgeend=200 : message=1 : endif

if objects(i,1)=12 : bullet(3,2)=bullet(3,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the uzi (3)" : messgeend=200 : message=1 : endif

if objects(i,1)=13 : bullet(4,2)=bullet(4,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the mp5 (4)" : messgeend=200 : message=1 : endif

if objects(i,1)=14 : bullet(5,2)=bullet(5,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the scorpion (5)" : messgeend=200 : message=1 : endif

if objects(i,1)=15 : bullet(6,2)=bullet(6,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the fn-2000 (6)" : messgeend=200 : message=1 : endif

if objects(i,1)=16 : bullet(7,2)=bullet(7,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the ak-47 (7)" : messgeend=200 : message=1 : endif

if objects(i,1)=17 : bullet(8,2)=bullet(8,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the m4a1 (8)" : messgeend=200 : message=1 : endif

if objects(i,1)=18 : bullet(9,2)=bullet(9,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the m249 (9)" : messgeend=200 : message=1 : endif

if objects(i,1)=19 : bullet(10,2)=bullet(10,2)+1 : alienspeak=2 : mec=10 : messg$="You got ammo for the psg1 (0)" : messgeend=200 : message=1 : endif

if objects(i,1)=31

dop=1

endif

if objects(i,1)<20 then play sound 11

if objects(i,1)=20 : health=health+(10+rnd(20)) : play sound 991 : alienspeak=2 : mec=10 : messg$="You got health" : messgeend=200 : message=1 : endif

if objects(i,1)=41

else

if object exist(8999+i)=1

if objects(i,1)>20 and objects(i,1)<26

else

delete object 8999+i

endif

else

if dist(999,0,8999+i,0)<500

if objects(i,1)=26 : message=1 : messgeend=200 : alienspeak=0 : mec=1 : objects(i,1)=0 :  delete object 8999+i : endif

if objects(i,1)=27 : message=1 : messgeend=200 : alienspeak=0 : mec=2 : objects(i,1)=0 :  delete object 8999+i : endif

if objects(i,1)=28 : message=1 : messgeend=200 : alienspeak=0 : mec=3 : objects(i,1)=0 :  delete object 8999+i : endif

if objects(i,1)=29 : message=1 : messgeend=400 : alienspeak=1 : mec=4 : objects(i,1)=0 :  delete object 8999+i : endif

if objects(i,1)=30 : message=1 : messgeend=400 : alienspeak=1 : mec=5 : objects(i,1)=0 :  delete object 8999+i : endif

endif

next i

for i=1 to 100

for r=1 to 10

if objects(i,1)=41

if objects(i,5)>-1

if dist(1099+r,0,8999+i,40)<30

hide limb 8999+i,2

objects(i,5)=-1

position object 1099+r,0,100000000,0

endif

next r

next i

`==============================================

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== camera angle movement

if hold=0

cx#=wrapvalue(cx#+mousemovey()*0.3)

cy#=wrapvalue(cy#+mousemovex()*0.3)

endif

if cx#<=290 and cx#>180 then cx#=290

if cx#>=70 and cx#<=180 then cx#=70

acx#=curveangle(cx#,acx#,3)

acy#=curveangle(cy#,acy#,3)

`================ changing guns

for h=1 to 10

if gun=h

for i=0 to 9

hide object 100+(i*10)

next i

show object 100+((h-1)*10)

endif

next h

if changing=0

if inkey$()="1" then changeto=1

if inkey$()="2" then changeto=2

if inkey$()="3" then changeto=3

if inkey$()="4" then changeto=4

if inkey$()="5" then changeto=5

if inkey$()="6" then changeto=6

if inkey$()="7" then changeto=7

if inkey$()="8" then changeto=8

if inkey$()="9" then changeto=9

if inkey$()="0" then changeto=10

endif

if changeto=gun then changeto=0

if guns(changeto)=0 then changeto=0

if rotgun<40

if rel=0

if inkey$()="r"

if bullet(gun,2)>0

if bullet(gun,1)<bullet(gun,3)

rel=1

endif

if bullet(gun,1)<1

if bullet(gun,2)>0

rel=1

endif

if rel=1 then changeto=gun

endif

if changeto>0

changing=1

rotgun=1

changeif=changeto

changeto=0

endif

if bullet(gun,1)<1 and bullet(gun,2)>0 then rel=1

if bullet(gun,1)=0 and bullet(gun,2)>0 then rel=1

if bullet(gun,1)<1 and bullet(gun,2)>0 then changing=1

if bullet(gun,1)=0 and bullet(gun,2)>0 then changing=1

if bullet(gun,1)<1 and bullet(gun,2)>0 then changeif=gun

if bullet(gun,1)=0 and bullet(gun,2)>0 then changeif=gun

if changing=1

if gof=0 then inc rotgun

if gof=1 then dec rotgun

if rel=0

if rotgun=15 : hide object 100 : gun=changeif : set camera fov 3.14/2.905 : showscope=0 : gof=1

if rel=1 : bullet(gun,1)=bullet(gun,3) : bullet(gun,2)=bullet(gun,2)-1 : rel=0 : endif

endif

if rotgun<0 : rotgun=0 : changing=0 : gof=0 : changeif=0 : endif

endif

if bullet(gun,1)<1 and bullet(gun,2)>0 then rel=1

if bullet(gun,1)=0 and bullet(gun,2)>0 then rel=1

if rel=1

if rotgun=2 : set camera fov 3.14/2.905 : showscope=0 : endif

if rotgun=50 : play sound 11 : hide object 100 : ogun=gun : gun=changeif : set camera fov 3.14/2.905 : showscope=0 : gof=1

if changeif=ogun

else

rel=0

if bullet(gun,1)<1 and bullet(gun,2)>0 then rel=1

if bullet(gun,1)=0 and bullet(gun,2)>0 then rel=1

endif

if bullet(gun,1)<1 and bullet(gun,2)>0 then rel=1

if bullet(gun,1)=0 and bullet(gun,2)>0 then rel=1

if rel=1

if bullet(gun,1)<bullet(gun,3)

bullet(gun,1)=bullet(gun,3) : bullet(gun,2)=bullet(gun,2)-1 : rel=0

endif

if rotgun<0 : rotgun=0 : changing=0 : gof=0 : changeif=0 : endif

endif

if mov=0 then xrotate object 100,wrapvalue((camera angle x()-shot#+sin(d)*1.1)+(rotgun*2))

if mov=1 then xrotate object 100,wrapvalue((camera angle x()-shot#+sin(d)*0.3)+(rotgun*2))

for i=1 to 9

position object 100+(i*10),object position x(100),object position y(100),object position z(100)

set object to object orientation 100+(i*10),100

next i

set object to object orientation 104,100

`================ scope

if gun=6 : texture object 775,774 : endif

if gun=10 : texture object 775,773 : endif

if gun=1 : hide object 775 : hide object 776 : endif

if gun=2 : hide object 775 : hide object 776 : endif

if gun=3 : hide object 775 : hide object 776 : endif

if gun=5 : hide object 775 : hide object 776 : endif

if gun=7 : hide object 775 : hide object 776 : endif

if gun=8 : hide object 775 : hide object 776 : endif

if gun=9 : hide object 775 : hide object 776 : endif

hide object 104

if gun=4 : show object 104 : texture object 775,775 : endif

`         __                 _____

`   |  | |      /     |       |    |  |

`   |__| |__   /      |       |    |__|

`   |  | |    /____   |       |    |  |

`   |  | |__ /        |___    |    |  |

if health<0 then health=0

if health>100 then health=100

scale object 2,health,100,100

position object 2,1.315+(0.345-(0.00345*health)),-1.225,2.1

color object 2,rgb(255-(2.55*health),0,0+(2.55*health))

if health=0

CLEAN_SWEEP()

sync

cls

load image "2d/go.png",1

ink rgb(0,0,0),rgb(0,0,0)

for i=1 to 100

draw to front

paste image 1,0,0

sync

next i

CLEAN_SWEEP()

rotate camera 0,0,0

position camera 0,0,0

exit : endif

if escapekey()=1

sav(0)=health

for i=1 to 10

sav(i)=guns(i)

next i

for i=1 to 10

sav(i+10)=bullet(i,1)

next i

for i=1 to 10

sav(i+20)=bullet(i,2)

next i

sav(31)=lev

position camera 0,0,0

player__oldx#=0

player__oldy#=0

player__oldz#=0

player__x#=0

player__y#=0

player__z#=0

cx#=0

cy#=0

acx#=0

acy#=0

al=0

CLEAN_SWEEP()

exit

endif

`========= CROSSHAIR

if mov=1 then siz#=siz#+0.6

if siz#<1 then siz#=1

if siz#>15 then siz#=15

siz#=siz#-0.3

if gun=4 or gun=6 or gun=10

xhair=1

if showscope=1

xhair=0

endif

else

xhair=1

endif

if xhair=1

paste image 10,400,288-siz#

paste image 10,400,303+siz#

paste image 11,388-siz#,300

paste image 11,403+siz#,300

endif

`==============================================

hold=0

bull$=str$(bullet(gun,1))

bulr$=str$(bullet(gun,2))

ink rgb(0,0,0),1

text 659,540,bull$

text 659,564,bulr$

text 659,539,bull$

text 659,563,bulr$

text 660,540,bull$

text 660,564,bulr$

ink rgb(0,0,200),1

text 660,539,bull$

text 660,563,bulr$

if dop=1

exit

endif

`=============== messages

dec messgeend

if messgeend<0 then message=0

if message=1

if mec=10 then xo=1

if lev=1

if mec=1 then xo=1

if mec=2 then xo=1

if mec=4 then xo=2

endif

if lev=2

if mec=1 then xo=1

endif

if lev=3

if mec=4 then xo=1

endif

if lev=11

if mec=1 then xo=1

endif

paste image 8000,0,-95+(xo*15)

if alienspeak=0

ink rgb(255,255,255),1

else

ink rgb(0,200,0),1

endif

if alienspeak=2

ink rgb(155,0,0),1

endif

if lev=1

if mec=1 : set cursor 2,2 : print "This door seems to be broken, you must find another way to get into here" : endif

if mec=2 : set cursor 2,2 : print "What are these things? They look like some type of mutated crab!" : endif

if mec=4 : set cursor 2,2 : print "ALIEN: You got my sos message, Help me, i am trapped in this structure and i can only sustain as"

set cursor 2,17 : print "a hologram on the surface, i will help you once you have freed me from this place." : endif

endif

if lev=2

if mec=1 : set cursor 2,2 : print "This elevator is broken, try to find a working one" : endif

endif

if lev=3

if mec=4 : set cursor 2,2 : print "ALIEN: Oh thank you for finding me, for this i will help you defeat your enemys" : endif

endif

if lev=11

if mec=1 : set cursor 2,2 : print "Congratulations you have eliminated all threat of aliens, you are now back at the army barracks" : endif

endif

if mec=10 : set cursor 2,1 : print messg$ : endif

if mec>3 and mec<6

if messgeend>380

point camera object position x(7600), object position y(7600), object position z(7600)

cx#=camera angle x()

cy#=camera angle y()

acx#=camera angle x()

acy#=camera angle y()

endif

if messgeend>380

hold=1

endif

`=====

position object 199,camera position x(),0,camera position z()

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`============================================== END OF LOOP

sync

loop

CLEAN_SWEEP()

oxxf#=0

oyyf#=0

ozzf#=0

alien__x#=0

alien__Y#=0

alien__Z#=0

alien__oldx#=0

alien__oldy#=0

alien__oldz#=0

player__oldx#=0

player__oldy#=0

player__oldz#=0

player__xg#=0

player__yg#=0

player__zg#=0

player_oldx#=0

player_oldy#=0

player_oldz#=0

player__x#=0

player__y#=0

player__z#=0

cx#=0

cy#=0

acx#=0

acy#=0

llg=0

CLEAN_SWEEP()

goto top

`============================================== END OF LOOP

`== X  ==  X  ==  X  ==  X  ==  X  ==  X  ==  X

`==============================================

function CLEAN_SWEEP()

`*****

`I think I got all the numbers right, modify if they're incorrect.

`Didn't add memblock and other stuff, add as you need.

`make sure you're looking at the screen & mop video memory

set current bitmap 0

for I = 1 to 31

if memblock exist(I)

delete memblock I

endif

if bitmap exist(I)

delete bitmap I

endif

if music exist(I)

delete music I

endif

if animation exist(I)

delete animation I

endif

next I

for I = 1 to 65535

if image exist(I)

delete image I

endif

if sprite exist(I)

delete sprite I

endif

if object exist(I)

delete object I

endif

if matrix exist(I)

delete matrix I

endif

next I

for I = 1 to 1024

if sound exist(I)

delete sound I

endif

next I

for I = 1 to 255

if dll exist(I)

delete dll I

endif

next I

endfunction

`*****

function dist(obj1__,offone,obj2__,offtwo)

if obj1__<>999

vox__#=object position x(obj1__)

voy__#=object position y(obj1__)+offone

voz__#=object position z(obj1__)

endif

if obj1__=999

vox__#=camera position x()

voy__#=camera position y()

voz__#=camera position z()

endif

vpx__#=object position x(obj2__)

vpy__#=object position y(obj2__)+offtwo

vpz__#=object position z(obj2__)

vxdist__#=vpx__#-vox__#

vydist__#=vpy__#-voy__#

vzdist__#=vpz__#-voz__#

dist#=sqrt((vxdist__#*vxdist__#)+(vydist__#*vydist__#)+(vzdist__#*vzdist__#))

endfunction dist#

`# FUNCTIONS #############

Function LoadObject(FileName$)

ObjNo = MasterObjNo(0)

MasterObjNo(0) = MasterObjNo(0) + 1

Load Object FileName$, ObjNo

EndFunction ObjNo

Function LoadCollisionObject(FileName$)

` Create Collision Object

CollisionObjNo = LoadObject(FileName$) : Hide object CollisionObjNo

` Make a mesh -> Memblock -> Pointer

make mesh from object 1, CollisionObjNo   : make memblock from mesh 1,1 : MeshPtr = GET MEMBLOCK PTR(1)

` Make Collision Object in DLL - this is the ONLY difference between Pro & 1.13 versions

OK = call dll(1, "CreateCollisionObject", MeshPtr)

` For Pro

`OK = call dll(1, "CreateCollisionObjectPro", MeshPtr)

EndFunction CollisionObjNo

Function MakeSky(FileName$, CameraRange)

SkyObjNo = LoadObject("Skyboxes" + FileName$)

set camera range 10,CameraRange

Scale object SkyObjNo, CameraRange*12,CameraRange*12, CameraRange*12

SET OBJECT COLLISION OFF SkyObjNo

SET OBJECT SkyObjNo, 1, 1, 1, 1, 0, 0,1

EndFunction SkyObjNo

Function CheckCollisionDLL(i)

retval = 0

if dll exist(i) = 0 then retval = 1

if dll call exist(i, "CreateCollisionObjectPro") = 0 then retval = 2

if dll call exist(i, "CreateCollisionVertex") = 0 then retval = 3

if dll call exist(i, "CreateModelLog") = 0 then retval = 4

if dll call exist(i, "DefineVerts") = 0 then retval = 5

if dll call exist(i, "GetNumFaces") = 0 then retval = 6

if dll call exist(i, "UpdateSlidingCollision") = 0 then retval = 7

if dll call exist(i, "NewPlayerX") = 0 then retval = 8

if dll call exist(i, "NewPlayerY") = 0 then retval = 9

if dll call exist(i, "NewPlayerZ") = 0 then retval = 10

if dll call exist(i, "HitNormalX") = 0 then retval = 11

if dll call exist(i, "HitNormalY") = 0 then retval = 12

if dll call exist(i, "HitNormalZ") = 0 then retval = 13

if dll call exist(i, "HitX") = 0 then retval = 14

if dll call exist(i, "HitY") = 0 Then retval = 15

if dll call exist(i, "HitZ") = 0 Then retval = 16

EndFunction retval

Download

Please login to download

Comments

No comments yet.

Author Name:	dark coder
CodeBase Entries:	2

CodeBase - Operation Genocide(alienware 10th place) source code

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments