Getting a box to shoot spheres in the direction the player specifies?

Author

Message

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 15th Sep 2004 10:19

Link

Hi!

I am working on a game in which the point is to keep the enemy from overruning your position, you have a bunch of objects to help you out, one is going to be a machine gun nest. Now My plan was that the player would have two objects to work with, first would be the actuall machine gun nest, and the other would be its target, the player would place the machine gun, and then drag the target object to wherever the player wants the machine gun fire to be concentrated. I know how to select the objects and move them around fine, but I dont understand how Im going to get the machine gun nests to shoot bullets in the direction of the targets. Any suggestions?

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Lukas W

21

Years of Service

User Offline

Joined: 5th Sep 2003

Location: Sweden

Posted: 15th Sep 2004 17:03 Edited at: 15th Sep 2004 17:04

Link

eh.. if I understood your question right, I would use this:

if mouseclick()=1 and fire=0 then fire=1
if fire=1
point object bullet, targetx, targety, targetz
move object bullet, bullet_speed
show object bullet
endif
if object collision(bullet, target)>0
fire=0
target_got_hit = 1
endif
if fire=0
hide object bullet
position object bullet, playerx, playery, playerz
endif

dont know if it works, and dont know if this is what you asked for..
hope I helped

I am not cool anymore... or am I?
http://n0id.proboards28.com/index.cgi - please join

Back to top

Profile PM Email

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 16th Sep 2004 06:09 Edited at: 16th Sep 2004 13:19

Link

Hello Major Payn..

After recently reading your post i decided to write up some basics for you

I've added it to the codebase so anyone can use it, it can be found here: http://www.thegamecreators.com/?m=codebase_view&i=d9ec182d634510ea5ec562870f59d1e8

But incase your in a hurry i'll add it as a code snippet here.. Hope it helps.. By the way, i've noticed some mistakes in the code i will change soon, so it's best you check the codebase every now and then for revisions.

`Created by Merix
make object sphere 2,.1
make object sphere 3,.2
make object cube 1,.5
move object down 1,.5
move object up 2,.8
move object left 2,.8
hide object 3
sync on
sync rate 60
do

if upkey() = 1
   move object up 1, .1
endif

if downkey() = 1
   move object down 1, .1
endif

if rightkey() = 1
   move object right 1,.1
endif

if leftkey() = 1
   move object left 1,.1
endif

if shiftkey() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   ox# = object screen x(2)
   oy#=object screen y(2)

position object 3,x#,y#,z#
   show object 3
   global bullet=1

endif

if mouseclick() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
    mx = mousex()
    my = mousey()

position object 3, x#,y#,z#
   show object 3
   global bullet=2
endif

if bullet = 1
   gosub bulletfollowobject
endif

if bullet = 2
   gosub bulletfollowmouse

endif

if object hit (2,3) then print "collision!"
if object collision(2,3) then print "collision"
sync:loop

bulletfollowobject:

if object screen x(3) > ox#
      move object left 3,.1
   endif

if object screen y(3) < oy#
      move object down 3,.1
   endif

if object screen x(3) < ox#
      move object right 3,.1
   endif

if object screen y(3) > oy#
      move object up 3,.1
   endif

return

bulletfollowmouse:

if object screen x(3) > mx
      move object left 3,.1
   endif

if object screen y(3) < my
      move object down 3,.1
   endif

if object screen x(3) < mx
      move object right 3,.1
   endif

if object screen y(3) > my
      move object up 3,.1
   endif

return

+ Code Snippet

`Created by Merix
make object sphere 2,.1
make object sphere 3,.2
make object cube 1,.5
move object down 1,.5
move object up 2,.8
move object left 2,.8
hide object 3
sync on
sync rate 60
do


if upkey() = 1
   move object up 1, .1
endif

if downkey() = 1
   move object down 1, .1
endif


if rightkey() = 1
   move object right 1,.1
endif

if leftkey() = 1
   move object left 1,.1
endif

if shiftkey() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   ox# = object screen x(2)
   oy#=object screen y(2)

   position object 3,x#,y#,z#
   show object 3
   global bullet=1

endif

if mouseclick() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
    mx = mousex()
    my = mousey()

   position object 3, x#,y#,z#
   show object 3
   global bullet=2
endif

if bullet = 1
   gosub bulletfollowobject
endif

if bullet = 2
   gosub bulletfollowmouse

endif

if object hit (2,3) then print "collision!"
if object collision(2,3) then print "collision"
sync:loop

bulletfollowobject:


    if object screen x(3) > ox#
      move object left 3,.1
   endif

   if object screen y(3) < oy#
      move object down 3,.1
   endif

   if object screen x(3) < ox#
      move object right 3,.1
   endif

   if object screen y(3) > oy#
      move object up 3,.1
   endif

return

bulletfollowmouse:

   if object screen x(3) > mx
      move object left 3,.1
   endif

   if object screen y(3) < my
      move object down 3,.1
   endif

   if object screen x(3) < mx
      move object right 3,.1
   endif

   if object screen y(3) > my
      move object up 3,.1
   endif

return

Hope it helps.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 16th Sep 2004 07:22

Link

Thanks! But there seems to have been a little missunderstanding, you see I dont want the player to have to press anything to get the box to fire, I want it to just start constantly firing a steady stream of bullets at a specific object, and if that object is moved it will still fire at it.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 16th Sep 2004 12:55

Link

Well, based on the code above it's pretty simple to adapt it to do that, play around with it and i'm sure you'll get it working

If after some attempts you cant get it working, i'll post newly updated code for it.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 16th Sep 2004 13:03

Link

Is there any way I can just use existing objects I have? I have 5 cubes, and each cube has another cube which is its target, I can move both cubes fine, I want it so that the first set of cubes will shoot bullets at its specific target cube, so for example I have a green machine gun nest, I take it and move it where I want it, and then I move the smaller green target cuber where I want it, and the bullets will shoot from the machine gun nest to that target. Here is the code I have so far....

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif

timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================
wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

+ Code Snippet

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)


dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e



rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif



timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================
wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

My code doesnt have the target cubes yet, but the Big blue cubes are the machine guns.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 16th Sep 2004 13:07 Edited at: 16th Sep 2004 13:20

Link

Heh, right before you posted i finished up what i -think- your trying to do, atleast partly.. try this out..

`Created by Merix
make object sphere 2,.1
make object sphere 3,.2
make object cube 1,.5
move object down 1,.5
move object up 2,.8
move object left 2,.8
hide object 3
sync on
sync rate 60

do

if upkey() = 1
   move object up 1, .1
endif

if downkey() = 1
   move object down 1, .1
endif

if rightkey() = 1
   move object right 1,.1
endif

if leftkey() = 1
   move object left 1,.1
endif

if bullet = 0
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   ox# = object screen x(2)
   oy#=object screen y(2)

position object 3,x#,y#,z#
   show object 3
   global bullet=1

endif

if bullet = 1
   gosub bulletfollowobject
endif

sync:loop

bulletfollowobject:

if object screen x(3) > ox#
      move object left 3,.1
   endif

if object screen y(3) < oy#
      move object down 3,.1
   endif

if object screen x(3) < ox#
      move object right 3,.1
   endif

if object screen y(3) > oy#
      move object up 3,.1
   endif

`if object hit (2,3) then print "collision!"
if object collision(2,3)
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   position object 3,x#,y#,z#
endif

return

+ Code Snippet

`Created by Merix
make object sphere 2,.1
make object sphere 3,.2
make object cube 1,.5
move object down 1,.5
move object up 2,.8
move object left 2,.8
hide object 3
sync on
sync rate 60

do


if upkey() = 1
   move object up 1, .1
endif

if downkey() = 1
   move object down 1, .1
endif


if rightkey() = 1
   move object right 1,.1
endif

if leftkey() = 1
   move object left 1,.1
endif

if bullet = 0
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   ox# = object screen x(2)
   oy#=object screen y(2)

   position object 3,x#,y#,z#
   show object 3
   global bullet=1

endif

if bullet = 1
   gosub bulletfollowobject
endif


sync:loop

bulletfollowobject:

    if object screen x(3) > ox#
      move object left 3,.1
   endif

   if object screen y(3) < oy#
      move object down 3,.1
   endif

   if object screen x(3) < ox#
      move object right 3,.1
   endif

   if object screen y(3) > oy#
      move object up 3,.1
   endif

`if object hit (2,3) then print "collision!"
if object collision(2,3)
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   position object 3,x#,y#,z#
endif


return

- Merix

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 16th Sep 2004 13:14 Edited at: 16th Sep 2004 13:15

Link

Oh, i think i know what your trying to do now.. Basically the code i just gave you can be adapated to do exactly what you want.

You have 5 cubes(blue blocks-machine guns) which shoot bullets(which arent in yet), at a target which you can place.

So you place the machine gun object at the top left of the screen and place the target at the bottom right, and the bullet will still end up in that place.

[edit]

In my code, think of object 2 as being the target, if you move that somewhere else, the bullet will still follow it. The same goes if you move the cube around.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 17th Sep 2004 07:13

Link

I get an unrcognized paremeters on the move object parts. Also, how could I get the bullets emplemented? Sorry, I have had DB for like a year and Im still a totall newbie to it.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 17th Sep 2004 07:45

Link

You tried my code that i just posted and it doesnt work..

Hmm.. If this is true, then i guess it's because i'm using dbp and your using dbc, i was hoping it could convert right over..

Did any of the code i've shown in this forum work? First, or second? Because both use the same commands, but maybe i made a typo somewhere..

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 17th Sep 2004 08:39

Link

None of the code snippets work, it gives me unrecognized paremeter at the lines containing the move object commands.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 17th Sep 2004 09:41 Edited at: 17th Sep 2004 09:41

Link

Sorry about not answering very quickly.. i just edited the code and it should now work with dbc..

Note: the rem'd statements are the dbp commands, i left them in there just in case

Either way, the new method works with dbp aswell.

`Created by Merix
make object sphere 2,.1
make object sphere 3,.2
make object cube 1,.5
position object 1, object position x(1),object position y(1)-.5,object position z(1)
`move object down 1,.5
position object 2,object position x(2)-.8,object position y(2)+.8, object position z(2)
`move object up 2,.8
`move object left 2,.8
hide object 3
sync on
sync rate 60
do

if upkey() = 1
   position object 1, object position x(1),object position y(1) + .1, object position z(1)
   `move object up 1, .1
endif

if downkey() = 1
   position object 1, object position x(1),object position y(1)-.1, object position z(1)
   `move object down 1, .1
endif

if rightkey() = 1
   position object 1, object position x(1)+.1,object position y(1), object position z(1)
   `move object right 1,.1
endif

if leftkey() = 1
   position object 1, object position x(1)-.1,object position y(1), object position z(1)
   `move object left 1,.1
endif

if shiftkey() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   ox# = object screen x(2)
   oy#=object screen y(2)

position object 3,x#,y#,z#
   show object 3
   global bullet=1

endif

if mouseclick() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
    mx = mousex()
    my = mousey()

position object 3, x#,y#,z#
   show object 3
   global bullet=2
endif

if bullet = 1
   gosub bulletfollowobject
endif

if bullet = 2
   gosub bulletfollowmouse

endif

if object hit (2,3) then print "collision!"
if object collision(2,3) then print "collision"
sync:loop

bulletfollowobject:

if object screen x(3) > ox#
    position object 3, object position x(3)-.1,object position y(3), object position z(3)
      `move object left 3,.1
   endif

if object screen y(3) < oy#
      position object 3, object position x(3),object position y(3)-.1, object position z(3)
      `move object down 3,.1
   endif

if object screen x(3) < ox#
      position object 3, object position x(3)+.1,object position y(3), object position z(3)
      `move object right 3,.1
   endif

if object screen y(3) > oy#
      position object 3, object position x(3),object position y(3)+.1, object position z(3)
      `move object up 3,.1
   endif

return

bulletfollowmouse:

if object screen x(3) > mx
    position object 3, object position x(3)-.1,object position y(3), object position z(3)
      `move object left 3,.1
   endif

if object screen y(3) < my
      position object 3, object position x(3),object position y(3)-.1, object position z(3)
      `move object down 3,.1
   endif

if object screen x(3) < mx
      position object 3, object position x(3)+.1,object position y(3), object position z(3)
      `move object right 3,.1
   endif

if object screen y(3) > my
      position object 3, object position x(3),object position y(3)+.1, object position z(3)
      `move object up 3,.1
   endif

return

+ Code Snippet

`Created by Merix
make object sphere 2,.1
make object sphere 3,.2
make object cube 1,.5
position object 1, object position x(1),object position y(1)-.5,object position z(1)
`move object down 1,.5
position object 2,object position x(2)-.8,object position y(2)+.8, object position z(2)
`move object up 2,.8
`move object left 2,.8
hide object 3
sync on
sync rate 60
do


if upkey() = 1
   position object 1, object position x(1),object position y(1) + .1, object position z(1)
   `move object up 1, .1
endif

if downkey() = 1
   position object 1, object position x(1),object position y(1)-.1, object position z(1)
   `move object down 1, .1
endif


if rightkey() = 1
   position object 1, object position x(1)+.1,object position y(1), object position z(1)
   `move object right 1,.1
endif

if leftkey() = 1
   position object 1, object position x(1)-.1,object position y(1), object position z(1)
   `move object left 1,.1
endif

if shiftkey() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
   ox# = object screen x(2)
   oy#=object screen y(2)

   position object 3,x#,y#,z#
   show object 3
   global bullet=1

endif

if mouseclick() = 1
   x#=object position x(1)
   y#=object position y(1)
   z#=object position z(1)
    mx = mousex()
    my = mousey()

   position object 3, x#,y#,z#
   show object 3
   global bullet=2
endif

if bullet = 1
   gosub bulletfollowobject
endif

if bullet = 2
   gosub bulletfollowmouse

endif

if object hit (2,3) then print "collision!"
if object collision(2,3) then print "collision"
sync:loop

bulletfollowobject:


    if object screen x(3) > ox#
    position object 3, object position x(3)-.1,object position y(3), object position z(3)
      `move object left 3,.1
   endif

   if object screen y(3) < oy#
      position object 3, object position x(3),object position y(3)-.1, object position z(3)
      `move object down 3,.1
   endif

   if object screen x(3) < ox#
      position object 3, object position x(3)+.1,object position y(3), object position z(3)
      `move object right 3,.1
   endif

   if object screen y(3) > oy#
      position object 3, object position x(3),object position y(3)+.1, object position z(3)
      `move object up 3,.1
   endif



return

bulletfollowmouse:

    if object screen x(3) > mx
    position object 3, object position x(3)-.1,object position y(3), object position z(3)
      `move object left 3,.1
   endif

   if object screen y(3) < my
      position object 3, object position x(3),object position y(3)-.1, object position z(3)
      `move object down 3,.1
   endif

   if object screen x(3) < mx
      position object 3, object position x(3)+.1,object position y(3), object position z(3)
      `move object right 3,.1
   endif

   if object screen y(3) > my
      position object 3, object position x(3),object position y(3)+.1, object position z(3)
      `move object up 3,.1
   endif


return

- Merix

Back to top

Profile PM

SandraD

20

Years of Service

User Offline

Joined: 30th May 2004

Location: Down on the corner, out in the street.

Posted: 17th Sep 2004 11:01

Link

Major Payn, as I said before I think you'll have to do a little re-ordering of your object numbers in the program, but the code presented is essentially correct. For the re-ordering I'd suggest "doublets" of machine gun nests and their associated target object, such as;

gun# -- target#
1 2
3 4
5 6

and so on. That way, once the player positions the nest the target location should be automatically selected for positioning, and that target is where the gun shoots.

Now, as for bullet code...

Well first, you have to make the bullets themselves and hide them so they aren't active. Then when it comes times for the bullet to fire, it places itself at the gun location, points to the target object, unhides itselfs and begins moving towards the target. When it hits anything, it vanishes, taking along with it the enemy if that was hit.

Now, to keep any single gun from firing all of the bullets, use an array to store whether or not that gun is shooting. This way, you can, by adjusting the value of the number of bullets fired by any gun, allow say "up to five" active bullets from any single gun at one time. (Makes the result more interesting that way...)

Anyway, that's my two cents here... good luck and keeping playing with it.
s.

Any truly great code should be indisguishable from magic.

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 17th Sep 2004 11:30 Edited at: 17th Sep 2004 11:31

Link

I get an unrecognized command at the global commands. I can not test it right now, but will Noids idea work? It seems very simple, and I understand his code completely.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 17th Sep 2004 12:31

Link

Yup, should work similarily to my code.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 18th Sep 2004 10:27

Link

I got problems, I tried to use n0ids code to do the bullets, and I get a couple of erros, for some reason it keeps saying "no such array enitialized" at the bullet section of my code which I will enclude here...

for b=1000 to 1020
for t=202 to 203
for m=200 to 201
if fire=1
point object b,x(t),y(t),z(t)
move object b, 1
endif
if object collision(b,t)>0
fire=0
endif
if fire=0
hide object b
position object b,x(m),y(m),z(m)
endif
next b
next t
next m

there is is, the errors seem to be coming from the "x(),y(),Z()" section of the the code. Im sure an experienced DB coder can figure out whats wrong with my stupid mistakes

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 18th Sep 2004 13:39

Link

+ Code Snippet

point object b,x(t),y(t),z(t)

Should be reffering to what you want the object your talking about to point at which object..

In any case, it should be

+ Code Snippet

point object b,object position x(t),object position y(t),object position z(t)

I believe that should help a little.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 18th Sep 2004 13:43

Link

Doh! I knew I was doing something incredibly stupid. Thanks, I will try that!

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 18th Sep 2004 13:48

Link

No problem

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 18th Sep 2004 14:05 Edited at: 18th Sep 2004 14:09

Link

Ok! I got it working (kind of) the problem is that the bullet is not very "machine gun" like, its seems more like a single shot rifle now lol, I want it to be a constant spray of bullets in the direction of the target, now another problem, is that after reaching the target the bullet does not re-locate to the machine gun nest anymore, and thus just stops, here is what I go so far...

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
for m=200 to 201
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100
next m

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
for m=200 to 201
position object b,object position x(m),object position y(m),object position z(m)
next b
next m

`make machine gun nest target
for t=202 to 203
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100
next t

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
for t=202 to 203
for m=200 to 201
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     hide object b
     if fire=0
     hide object b
     position object b,object position x(m),object position y(m),object position z(m)
endif
endif
next b
next t
next m

rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif

timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================

wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif

if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

+ Code Snippet

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
for m=200 to 201
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100
next m

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
for m=200 to 201
position object b,object position x(m),object position y(m),object position z(m)
next b
next m

`make machine gun nest target
for t=202 to 203
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100
next t

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
for t=202 to 203
for m=200 to 201
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     hide object b
     if fire=0
     hide object b
     position object b,object position x(m),object position y(m),object position z(m)
endif
endif
next b
next t
next m

rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif



timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================


wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif




if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

and this is the bullet code for quick reference....

+ Code Snippet

fire=1
for b=1000 to 1001
for t=202 to 203
for m=200 to 201
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     hide object b
     if fire=0
     hide object b
     position object b,object position x(m),object position y(m),object position z(m)
endif
endif
next b
next t
next m

Another thing I found stange, is that the newly created machine gun nest seems to duplicate when I click to drag it, I think its just that two were created somhow, but I dont see where or how, sense I only commanded one cube to be made.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 18th Sep 2004 15:34 Edited at: 18th Sep 2004 15:40

Link

I fixed the machine gun part a bit.. havent fixed the extra box however.. here's the updated firing.

+ Code Snippet

fire=1
for b=1000 to 1001
for t=202 to 203
for m=200 to 201
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b
next t
next m

[Edit]... i think i found out what's making that extra machine gun nest... will update once i fixed it.

Got it.. i think this is what you want

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
m = 200
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
position object b,object position x(m),object position y(m),object position z(m)
next b

`make machine gun nest target
for t=202 to 203
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100
next t

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
for t=202 to 203
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b
next t

rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif

timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================

wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif

if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

+ Code Snippet

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
m = 200
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
position object b,object position x(m),object position y(m),object position z(m)
next b


`make machine gun nest target
for t=202 to 203
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100
next t

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
for t=202 to 203
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b
next t


rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif



timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================


wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif




if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

- Merix

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 18th Sep 2004 15:47 Edited at: 18th Sep 2004 15:53

Link

After you try it, tell me if that's what your looking for.. Regardless if it is or isnt, i'm headin to bed for the night after i find out from you, i'm tired as hades.

[edit] Heh, screw it.. i'm going to bed.. will check here tomorrow morning.

Also, if you want a streaming line of bullets you'll have to add in more objects for the bullets.. then do exactly the same thing you have for yours.. but make a check for example..

Send 5 moving bullets down the screen, check that they're still on the screen, if only 4 for example are on the screen then shoot another one etc.

Hope the new code i gave ya helped

- Merix

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 01:16

Link

Well, i'm up again.. did the new code suit your fancy?

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 19th Sep 2004 02:12

Link

Dang Merix, I cant thank you enough, you have been a lifesaver, at first I though "this project is going to die away like all the others" but now I actually think I can make it work, in fact I only need to empliment a little more collision, a few more objects, and will have a early alpha to play with. Thanks Merix!

By the way, how did you get rid of the duplicating box? Because I need to do the same thing with the target object.

Thanks

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 02:40 Edited at: 19th Sep 2004 02:45

Link

Glad it's working the way you wanted..

Well i made some minor changes to your normal code.. the first problem was this...

+ Code Snippet

rem make machine gun nest A
for m=200 to 201
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100
next m

The problem was you made a for loop of m to create the machine gun nest. Instead m should've been a solid number of 200.

Thus the code should be this.

+ Code Snippet

rem make machine gun nest A
m = 200
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100

You can see that i changed it so there is only one gun turret now.. Now because i changed it this way i had to go down to everywhere you had a for loop with an m, and take it out.. you dont even need to add anything considering m is already = to 200.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 19th Sep 2004 02:44

Link

Ok, thanks, I didnt notice that.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 02:46

Link

Give me a few minutes to fix the target, having a couple difficulties as it seems to be slightly different of a problem(but mostly the same)

- Merix

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 02:49 Edited at: 19th Sep 2004 02:53

Link

Ok, got it.. i think. Try it out and tell me if it's how ya wanted it.

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
m = 200
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
position object b,object position x(m),object position y(m),object position z(m)
next b

`make machine gun nest target
t = 202
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b

rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif

timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================

wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif

if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

+ Code Snippet

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
m = 200
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
position object b,object position x(m),object position y(m),object position z(m)
next b


`make machine gun nest target
t = 202
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100


`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b



rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif



timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================


wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif




if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

The changes for the target were as followed...

+ Code Snippet

`make machine gun nest target
for t=202 to 203
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100
next t

Changed to

+ Code Snippet

`make machine gun nest target
t = 202
make object cube t,8
color object t,RGB(50,50,0)
position object t,100,0,-100

And later on in the code changed this part..

+ Code Snippet

fire=1
for b=1000 to 1001
for t=202 to 203
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b
next t

To this...

+ Code Snippet

fire=1
for b=1000 to 1001
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 1
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 19th Sep 2004 03:05

Link

Thanks! but Im having a bit of a confusing problem with the collision. I want it so that that wave 1 and 2 will die if they touch the target object of the machine gun, but looking at the collision part, I dont understand how to do such.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 03:12 Edited at: 19th Sep 2004 03:17

Link

I'm sorry... could you please explain just a little more..

When the waves come, and hit the machine target you want them to die?, or the machine nest or the bullets?

[Edit] Be back in a bit, eating lunch

- Merix

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 03:38

Link

Ok, back.. see you havent posted yet, i'll just wait till then.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 19th Sep 2004 03:42

Link

Sorry, I was off watching TV, anyway, I have a bit of a design desision to make, at first I was going to make it so that if the waves of enemys hits the machine gun target object, they die. This was because I believed that if the bullets killed them, the player could simply move the machine gun nest to one corner, and the target to the other, thus making the game extremely easy to win. So I want the enemys to die, if they hit the target object.

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 03:50

Link

Ok... but as the code is right now.. you cant move the target object right.. i just want to make sure we're talking about the same block.

- Merix

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 19th Sep 2004 03:53 Edited at: 19th Sep 2004 03:54

Link

I got the target object movin, here is my code.....

Im talking about the block that the bullets move toward.

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
m = 200
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
position object b,object position x(m),object position y(m),object position z(m)
next b

`make machine gun nest target
t = 202
make object box t,30,5,10
color object t,RGB(50,50,0)
position object t,100,0,-100

`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 10
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b

rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif

timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================

wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif

if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif

if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 201 and t < 203
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

+ Code Snippet

rem Init display
randomize timer()
set display mode 1024,768,32
sync on
sync rate 60
autocam off
Set camera range 1,10000
position mouse screen width()/2, screen height()/2
backdrop on
color backdrop rgb(0,0,0)

dim selection(0)
dim player(0)
dim timeleft(0)
dim wavetime(0)

selection(0)=0
player(0)=1
timeleft(0)=200

wavetime(0)=200

rem the new mouse object to play with
make object cube 20,10
position object 20,100,0,100
set object collision to boxes 20
color object 20,RGB(128,128,0)
hide object 20

rem the new mouse object(s) to play with (blue)
for t=1 to 5
make object cube t,10
set object collision to boxes t
color object t,RGB(0,0,150)
set object collision on t
position object t,100+rnd(50),0,100+rnd(50)
while object collision(t,0) > 0
position object t,100+rnd(50),0,100+rnd(50)
endwhile
next t

rem make machine gun nest A
m = 200
make object cube m, 10
set object collision to boxes m
color object m,RGB(50,50,0)
Position object m,100,0,100

rem make bullets
for b=1000 to 1001
make object sphere b,2
next b

for b=1000 to 1001
position object b,object position x(m),object position y(m),object position z(m)
next b


`make machine gun nest target
t = 202
make object box t,30,5,10
color object t,RGB(50,50,0)
position object t,100,0,-100


`make wave one (red)
for e=6 to 15
  make object cube e, 4
  set object collision to boxes e
  set object collision on e
  color object e,RGB(255,0,0)
  position object e,100+rnd(60),0,-100+rnd(60)
  while object collision(e,0) > 0
    position object e,100+rnd(60),0,-100+rnd(60)
  endwhile
next e

`make wave two (red)
  for e=100 to 150
    make object cube e,4
    color object e,RGB(255,0,0)
    set object collision to boxes e
    set object collision on e
    position object e,100+rnd(100),0,-400+rnd(100)
    while object collision(e,0) > 0
      position object e,100+rnd(100),0,-400+rnd(100)
    endwhile
 next e

`make landmines (green)
   for k=16 to 19
     make object cube k,3
     color object k,RGB(0,255,0)
     set object collision to boxes k
     set object collision on k
     position object k,100+rnd(50),0,80+rnd(50)
     while object collision(k,0) > 0
       position object k,100+rnd(50),0,80+rnd(50)
     endwhile
  next k

position camera -100,100,-100
xrotate camera 90

position camera 100,300,0

do

for e=6 to 15
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

for e=100 to 150
      k = object collision(e, 0)
      if k > 0 and k < 20
        if k <> selection(0)
          hide object e
        endif
      endif
next e

fire=1
for b=1000 to 1001
t = 202
if fire=1
    point object b,object position x(t),object position y(t),object position z(t)
    move object b, 10
endif
if object collision(b,t)>0
     fire=0
     position object b,object position x(m),object position y(m),object position z(m)

endif
next b



rem print timer
set cursor 0,0
print "Player ",player(0)," Has ",timeleft(0)," Time Left "

if timeleft(0)=>0
gosub selection
endif



timeleft(0)=timeleft(0)-1

if timeleft(0)=<0
if player(0)=1
gosub wave
 wavetime(0)=wavetime(0)-1
 center text 70,400, "WAVE 1 INBOUND!"
 set cursor 10,10
 print "use the objects at your disposal and keep the enemy at bay for " ,wavetime(0),"milliseconds"
 timeleft(0)=0
endif
endif
if returnkey()=1 then cls

if wavetime(0)=<0
  wavetime(0)=0
endif

for e=6 to 15
    if wavetime(0)=0
hide object e
center text 70,600,"wave 2 inbound!"
gosub wave2
endif
next e

sync
loop
end

rem ============================


wave:
for e=6 to 15
  move object e,.1
next e
return

wave2:
for e=100 to 150
   move object e,.1
   next e
return

selection:
rem the new object selection code
if object screen x(20)=<mousex()
  position object 20,object position x(20)+4,object position y(20),object position z(20)
endif
if object screen x(20)=>mousex()
  position object 20,object position x(20)-4,object position y(20),object position z(20)
endif
if object screen y(20)=<mousey()
  position object 20,object position x(20),object position y(20),object position z(20)-4
endif
if object screen y(20)=>mousey()
  position object 20,object position x(20),object position y(20),object position z(20)+4
endif

rem the select bit (replace with distance equation) Player 1
if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 15 and t < 20
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif




if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 199 and t < 202
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif





if player(0)=1
  if mouseclick()=1
    t = object collision(20,0)
      if t > 0 and t < 6
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
      if t > 201 and t < 203
        position object t,object position x(20),object position y(20),object position z(20)
        selection(0)=t
      endif
    else
      selection(0) = 0
    endif
endif
return

I just need the target object to kill the enemys now. By the way, do you think the bullets should kill the enemys, or will that make the game to easy?

Guns arnt the problem, people are the problems, shoot all the people and guns arnt a problems anymore.

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 03:58

Link

Well.. you could make the game slightly different and have quadrants set up with various tasks..

For example.. the bottom right quadrant would have it's own wave, where you can only use the machine gunes bullets to take out the objects. Then the top right quadrant you need to use blocks etc.. something like that? I dunno, but your right.. as of what's appearing right now the bullets taking out the blocks would make it too easy.. Gimme a minute or two to try and fix the code for the object collision of that target.

- Merix

Back to top

Profile PM

Dot Merix

21

Years of Service

User Offline

Joined: 15th Oct 2003

Location: Canada

Posted: 19th Sep 2004 04:02