Aiming and making a bullet go where you click?

Author

Message

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 9th May 2009 05:54

Link

I am trying to make a bullet that comes from my plane (or circle

) follow where you clicked the mouse. I am not sure what to do on this as I have never done this before. What would be the appropriate code for that? Here is my current code,

+ Code Snippet

        if shooting=1
             circle bulletx,bullety,10
              bullety=bullety-2
              if bulletx=mousex() then shooting=0
              if bullety=mousey() then shooting=0
        endif

Remember, I have to have it follow where you clicked, not just go to it. Can I have some pointers/code to help me with this?

.:Cheers:.
~!Zeus!~

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 9th May 2009 18:42

Link

Umm, anyone?

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 9th May 2009 18:44

Link

ummmmm, code?

generally we need the entire code to help, post that and maybe someone will help

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 9th May 2009 21:17

Link

That is the entire code...

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 9th May 2009 22:28

Link

no i mean put the whole program, not just the section ur questioning

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Yodaman Jer

User Banned

Posted: 9th May 2009 22:39

Link

Well, you probably have it setup like this...tell me if I'm wrong though!

+ Code Snippet

shooting=0 
If mouseclick() = 1 then shooting=1 : Gosub _shooting

Rem shooting routine 

_shooting
if shooting=1
    circle bulletx,bullety,10
    bullety=bullety-2
    if bulletx=mousex() then shooting=0
    if bullety=mousey() then shooting=0
  endif
Return

That's how I'd have it setup anyway...I know that doesn't answer any of your questions and I apologize for that, but is that how your code works?

"If you want lots of people to play your game make it simple; lots of people are simple." -Obese87

Back to top

Profile

Stefan p

16

Years of Service

User Offline

Joined: 2nd Nov 2008

Location: Online

Posted: 9th May 2009 23:48 Edited at: 9th May 2009 23:49

Link

+ Code Snippet

shooting=0
sync on:sync rate 60
do
   cls
   rem this gets the mouse's coordinates when the mouse is clicked
   If mouseclick() = 1 and shooting = 0 then shooting=1:mx=mousex():my=mousey(): Gosub shootingcircle
   sync
loop

Rem shooting routine

shootingcircle:
if shooting=1

    circle bulletx,bullety,10
    rem moves bullet on y axis
    bullety=bullety-bulletspeed
    rem moves bullet on x axis
    bulletx=bulletx-bulletspeed

    rem checks bullets position to mouse's and if so then shooting=0
    if bulletx=mx() and bullety=my() then shooting=0

  endif
Return

An example program displaying how i would approach this.

Thanks, Stefan

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 10th May 2009 17:05

Link

Not very accurate but here's a simple method...

+ Code Snippet

set display mode 1024,768,32
sync on
sync rate 60

bulletob=1
make object sphere bulletob,2
hide object bulletob

rem the max angle we want either side is 40.
rem work out how much each pixel will shift the angle of the bullet.
pixelshift# = 40/512.0

position mouse 512,384
rotate camera 0,0,0

Do
  mx=mousex() : my=mousey()
  
  if mouseclick() > bullet then gosub shoot
  
  if bullet = 1
    move object bulletob,1
    if object position z(bulletob) > camera position z()+50 then bullet=0 : hide object bulletob
  endif

  sync
Loop

`----------------
` Subroutines
`----------------
shoot:
  if bullet=0
    position object bulletob,camera position x(), camera positon y(), camera position z()
    bulletxa# = wrapvalue(camera angle x() - (384-my)*pixelshift#)
    bulletya# = wrapvalue(camera angle y() - (512-mx)*pixelshift#)
    
    rotate object bulletob,bulletxa#,bulletya#,0
    show object bulletob
    bullet=1
  endif
return

Riddle: The more you take, the more you leave behind. What are they? Answer

Back to top

Profile PM Email

Stefan p

16

Years of Service

User Offline

Joined: 2nd Nov 2008

Location: Online

Posted: 10th May 2009 17:43

Link

You spelt position wrong for camera Y position. What if Zeus wanted 2d

Thanks, Stefan

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 11th May 2009 00:32

Link

@Stefan P
good spot. Did it work other than that? I had to type it all in.
Your code was 2D so he has that if he wants but I noticed he mentioned planes in the original post so I interpretted that as 3D.

Riddle: The more you take, the more you leave behind. What are they? Answer

Back to top

Profile PM Email

Stefan p

16

Years of Service

User Offline

Joined: 2nd Nov 2008

Location: Online

Posted: 11th May 2009 00:48

Link

@OBese87

Yea everything worked. I just tested now. I just was looking over the code to see how you did it.

Thanks, Stefan

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 11th May 2009 00:57

Link

I've been a bit cheap though because I haven't included rotating the camera. You'd need some maths to adjust the angles and incorporate z angle.
but if you're going to do that you might as well write something better than my one

Riddle: The more you take, the more you leave behind. What are they? Answer

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 11th May 2009 05:18 Edited at: 11th May 2009 05:19

Link

Thanks guys.

@Yodaman Jer: Yeah, that is how I have it setup exactly.

@OBese: By plane I meant airplane. Haha.

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 11th May 2009 18:04

Link

Well, this isn't working at all, here is my first attempt at it.

(Entire Code)

+ Code Snippet

`General Setup
`-------------
sync on
sync rate 60
pilot$="Ron Baker"
plane$="Patriot II"
`-------------



`Game Level 1
`------------
Game_Level1:

`Level 1 Setup
`-------------
playerx=330
playery=300
bulletx=330
bullety=300
shooting=0

        do
        cls

        `Pilot Information
        set cursor 0,0
        text 0,0,"Pilot: "+pilot$
        text 0,20,"Plane: "+plane$

        `Plane Controls
        if mouseclick()=1 and shooting=0
        mx=mousex()
        my=mousey()
        shooting=1
        gosub _Shooting
        endif
        


             `Pilot Setup
             circle playerx,playery,20

        sync
        loop

return
`------------



_Shooting:

        if shooting=1
        circle bulletx,bullety,10
        bulletx=bulletx-1
        bullety=bullety-1
        if bulletx=mx and bullety=my then shooting=0
        endif

return

This didn't do anything except flash a circle where bulletx and bullety are and disappear.

My 2nd attempt,

+ Code Snippet

`General Setup
`-------------
sync on
sync rate 60
pilot$="Ron Baker"
plane$="Patriot II"
`-------------



`Game Level 1
`------------
Game_Level1:

`Level 1 Setup
`-------------
playerx=330
playery=300
bulletx=330
bullety=300
shooting=0

        do
        cls

        `Pilot Information
        set cursor 0,0
        text 0,0,"Pilot: "+pilot$
        text 0,20,"Plane: "+plane$

        `Plane Controls
        if mouseclick()=1 and shooting=0
        mx=mousex()
        my=mousey()
        shooting=1
        endif
        

        if shooting=1
        circle bulletx,bullety,10
        bulletx=bulletx-1
        bullety=bullety-1
        if bulletx=mx and bullety=my then shooting=0
        endif



             `Pilot Setup
             circle playerx,playery,20

        sync
        loop

return
`------------

That just moved the bullet the complete opposite of where I clicked the mouse. Perhaps I wasn't clear enough so what I want is the bullet to go to where you click the mouse. You know aim and fire?

.:Thanks:.
Zeus

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 12th May 2009 05:08

Link

Anyone?

Back to top

Profile PM Email

That1Smart Guy

16

Years of Service

User Offline

Joined: 26th Feb 2009

Location: Somewhere...... yep

Posted: 12th May 2009 15:28

Link

man knock the double posts off, especially for pointless stuff like that

There are only 10 kinds of people in the world, those who understand binary and those who dont

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 12th May 2009 15:31

Link

If it's just going the wrong direction don't you think there could be a very simple change to make it work. Try to think a bit more positive.

You should never have a DO loop inside a subroutine. Subroutines want to go back to the main loop and they can't do that if they get stuck in a DO loop.

Your program is pretty much there though, just cut the loop out and paste it above the subroutine, this is now the main loop. Then put a gosub before the main loop calling the Game_level1 subroutine.

Riddle: The more you take, the more you leave behind. What are they? Answer

Back to top

Profile PM Email

Caleb1994

16

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 12th May 2009 18:55

Link

your problem in the first one is here:

+ Code Snippet

        if mouseclick()=1 and shooting=0
        mx=mousex()
        my=mousey()
        shooting=1
        gosub _Shooting
        endif

it only does that if shooting = 0 and when you hit the mouse shooting is = 1. which is fine but your Gosub _Shooting part is in that. so it's only executed when shooting is equal to 0 and mouseclikc = 1 see?

since you already have a check for shootings equality to 1 in your shooting subroutine then just put the Gosub _Shooting outside of that if. like this:

+ Code Snippet

        if mouseclick()=1 and shooting=0
        mx=mousex()
        my=mousey()
        shooting=1
        endif
        gosub _Shooting

that should work

New Site! Check it out \/

Back to top

Profile PM Website

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 13th May 2009 00:02

Link

Please guys compile this code, it isn't working right at all. I do not know what I am doing wrong. Please correct me where I am wrong.

`-----AIRMEN Project Information-----` 
`Project Started: May 8th, 2009 5:00 PM`
`Project Complete: `
`
`
`Credits
`__________

`Jordan Gibson

`___________
`
`------------------------------------`

`General Setup
`-------------
sync on
sync rate 60
pilot$="Ron Baker"
plane$="Patriot II"
`-------------

`Game Level 1
`------------
Game_Level1:

`Level 1 Setup
`-------------
playerx=330
playery=300
bulletx=playerx
bullety=playery
bulletspeed=1
shooting=0

do
        cls

`Pilot Information
        set cursor 0,0
        text 0,0,"Pilot: "+pilot$
        text 0,20,"Plane: "+plane$

`Plane Controls

`Moving (Completed: 05/11/09)
        if rightkey()=1 then playerx=playerx+1
        if leftkey()=1 then playerx=playerx-1
        `-------------------

`Map Boundaries (Unfinished)
        `Media required to begin.
        `--------------

`Special Moves (Unfinished)
        `Need media to begin special moves.
        `-------------------

`Shooting Code (Unfinished)
        if mouseclick()=1 and shooting=0
        mx=mousex()
        my=mousey()
        shooting=1
        endif

gosub _Shooting
        
        
        `---------------------------

`Pilot Setup
             circle playerx,playery,20

sync
        loop

return
`------------

_Shooting:
        if shooting=1
        circle bulletx,bullety,10
        bulletx=bulletx-bulletspeed
        bullety=bullety-bulletspeed
        if bulletx<mx and bullety<my then shooting=0
        if bulletx=mx and bullety=my then shooting=0
        endif
return

+ Code Snippet

`-----AIRMEN Project Information-----` 
`Project Started: May 8th, 2009 5:00 PM`
`Project Complete: `
`
`
`Credits
`__________

`Jordan Gibson

`___________
`
`------------------------------------`


`General Setup
`-------------
sync on
sync rate 60
pilot$="Ron Baker"
plane$="Patriot II"
`-------------



`Game Level 1
`------------
Game_Level1:

`Level 1 Setup
`-------------
playerx=330
playery=300
bulletx=playerx
bullety=playery
bulletspeed=1
shooting=0

        do
        cls

        `Pilot Information
        set cursor 0,0
        text 0,0,"Pilot: "+pilot$
        text 0,20,"Plane: "+plane$

        `Plane Controls

        `Moving (Completed: 05/11/09)
        if rightkey()=1 then playerx=playerx+1
        if leftkey()=1 then playerx=playerx-1
        `-------------------

        `Map Boundaries (Unfinished)
        `Media required to begin.
        `--------------

        `Special Moves (Unfinished)
        `Need media to begin special moves.
        `-------------------
      

        `Shooting Code (Unfinished)
        if mouseclick()=1 and shooting=0
        mx=mousex()
        my=mousey()
        shooting=1
        endif

        gosub _Shooting
        
        
        `---------------------------



             `Pilot Setup
             circle playerx,playery,20

        sync
        loop

return
`------------


_Shooting:
        if shooting=1
        circle bulletx,bullety,10
        bulletx=bulletx-bulletspeed
        bullety=bullety-bulletspeed
        if bulletx<mx and bullety<my then shooting=0
        if bulletx=mx and bullety=my then shooting=0
        endif
return

The bullet does not go where you click the mouse! You guys are aware of the fact that is all I am asking for right?

Back to top

Profile PM Email

Libervurto

19

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 13th May 2009 02:14

Link

@Zeus
You need to go through TDK's tutorials or something. There are a lot of errors in your code.

1. As I said earlier, the do loop should be above all subroutines and the routines should be called from within the loop.
2. You don't set the bullet position when firing, only at the beginning of the program, which is pretty useless.
3. You've written the bullet move code so the bullet is always moving up and to the left.

I'll help you with point 3 as this is what you are repeatedly asking for...

What you're essentially doing is drawing a line.
First we need to find the length of the line by constructing a triangle from the co-ordinates of our two points (a and b).

+ Code Snippet

xdif = ax-bx
ydif = ay-by
hyp = sqr(xdif^2 + ydif^2)

...
Sorry I'm stopping here because I want to work on my dbc challenge entry. I've written the code but I'd have to type it out again which I'm too lazy to do. I'll upload for you when I go to the library.
Deceptively tricky program though.

Riddle: The more you take, the more you leave behind. What are they? Answer

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 13th May 2009 16:33

Link

Thank you OBese87, sorry to bother you all. I haven't used DB for a while now and I guess I just need to be refreshed. I will take a look back on TDK's tutorials again.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Aiming and making a bullet go where you click?