What wrong in my code? - GameCreators Forum

Author

Message

Seboolek

17

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 24th Dec 2007 13:32

Link

I make a zombie game but i have a bullet problem

I still have it... I try but i dont know how to make a wrong...

That is my code game.

Ctrl is shoot. Pistol is a "1".

REM Project: City Of Dead
REM Created: 2007-11-16 17:36:57
REM By Sebastian Woźnicki
REM ***** Main Source File *****
REM

`Startowe ustawienia
SYNC ON:SYNC RATE 60:AUTOCAM OFF:HIDE MOUSE:hide light 0

center text screen width()/2,screen height()/2,"Ładowanie Sebolix engine Alpha 0.1"
sync : sync

`************Postacie i elementy************
load object "Soldier.x",1
scale object 1,10,10,10
position object 1,0,25,0

`******************Bronie********************
load object "Pistolet.x",500
scale object 500,100,70,70
hide object 500

`*****************pocisk********************
target = 10
make object sphere target,5.0
color object target,rgb(255,255,255)
hide object target

`*****************LEVEL**********************
load object "lvl.x",100
position object 100,200,120,0

load image "grass.bmp",1
MAKE MATRIX 1,5000,5000,50,50
prepare matrix texture 1,1,1,1
POSITION MATRIX 1,-2500,0,-2500

`Wazne
Bullet=1
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3
SC_SetupObject 100,0,0

`Cienie wszystkich obiektów
make light 1
position light 1,0,300,0
set shadow shading on 1
set shadow shading on 500

`main loop
DO

`stara pozycja gracza
    OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)

`Poruszanie sie i sterowanie (zmiana broni tez)
if upkey()=1 then move object 1,speed#: loop object 1,0,19 : set object speed 1,50
if downkey()=1 then move object 1,-speed#: loop object 1,0,19 : set object speed 1,50
if leftkey()=1 then turn object left 1,speed_obrot#
if rightkey()=1 then turn object right 1,speed_obrot#
if keystate(44)=1 then move object left 1,speed#
if keystate(45)=1 then move object right 1,speed#

if upkey()+downkey()=0 then loop object 1,0,0

if keystate(2)=1 : glue object to limb 500,1,87 : show object 500 : Gun#=1 : show object target
 rotate limb 1,85,-50,0,-20
 rotate limb 1,86,10,0,0
endif

if keystate(18)=1 : hide object 500 : Gun#=0 : hide object target
 rotate limb 1,85,0,0,0
 rotate limb 1,86,0,0,0
endif

`nowa pozycja gracza
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)

`position the camera
Position Camera Object Position X(1),Object Position Y(1)+250,Object Position Z(1)
Point Camera Object Position X(1),Object Position Y(1),Object Position Z(1)

gosub _shoot:

`kolizje on
    SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,100)

`Takei info heh
   TEXT 0,0,"Sebolix Engine Alpha 0.1"

text 0,screen height()-50,"amunicja: "+str$(ammo#)
text 0,screen height()-40,"magazynki: "+str$(magazynki#)

`Odswiezanie
   SYNC

`Loop
LOOP

`********************STRZAL********************
_shoot:

PistolX# = limb position x(1,87)
PistolY# = limb position y(1,87)
PistolZ# = limb position z(1,87)

x1# = object position x(1)
y1# = object position y(1)
z1# = object position z(1)
position object target,x1#,y1#,z1#
set object to object orientation target,1
move object target,100.0

tx# = object position x(target)
ty# = object position y(target)
tz# = object position z(target)

if keystate(29) and Gun#=1 and Shoot#=0
 for b = 1 to 10
  Make object sphere b,10
 Shoot#=1
 position object b,PistolX#,PistolY#,PistolZ#
 b=b+1

if b>10 then b=1
 point object b,tx#,ty#,tz#
 move object b,10.0
next b

if keystate(29)=0 then Shoot#=0
endif

return

`Funkcja kolizji(bez niej nie dziala)
FUNCTION SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn,Obj)

C = sc_SphereSlide(Obj,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,0)

IF C > 0

cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()

POSITION OBJECT Dyn, cx#, cy#, cz#

ENDIF

ENDFUNCTION

DELETE MEMBLOCK 1

+ Code Snippet

REM Project: City Of Dead
REM Created: 2007-11-16 17:36:57
REM By Sebastian Woźnicki
REM ***** Main Source File *****
REM

`Startowe ustawienia
SYNC ON:SYNC RATE 60:AUTOCAM OFF:HIDE MOUSE:hide light 0

center text screen width()/2,screen height()/2,"Ładowanie Sebolix engine Alpha 0.1"
sync : sync

`************Postacie i elementy************
load object "Soldier.x",1
scale object 1,10,10,10
position object 1,0,25,0

`******************Bronie********************
load object "Pistolet.x",500
scale object 500,100,70,70
hide object 500

`*****************pocisk********************
target = 10
make object sphere target,5.0
color object target,rgb(255,255,255)
hide object target

`*****************LEVEL**********************
load object "lvl.x",100
position object 100,200,120,0

load image "grass.bmp",1
MAKE MATRIX 1,5000,5000,50,50
prepare matrix texture 1,1,1,1
POSITION MATRIX 1,-2500,0,-2500

`Wazne
Bullet=1
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3
SC_SetupObject 100,0,0

`Cienie wszystkich obiektów
make light 1
position light 1,0,300,0
set shadow shading on 1
set shadow shading on 500

`main loop
DO

`stara pozycja gracza
    OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)

   `Poruszanie sie i sterowanie (zmiana broni tez)
if upkey()=1 then move object 1,speed#: loop object 1,0,19 : set object speed 1,50
if downkey()=1 then move object 1,-speed#: loop object 1,0,19 : set object speed 1,50
if leftkey()=1 then turn object left 1,speed_obrot#
if rightkey()=1 then turn object right 1,speed_obrot#
if keystate(44)=1 then move object left 1,speed#
if keystate(45)=1 then move object right 1,speed#

if upkey()+downkey()=0 then loop object 1,0,0

if keystate(2)=1 : glue object to limb 500,1,87 : show object 500 : Gun#=1 : show object target
 rotate limb 1,85,-50,0,-20
 rotate limb 1,86,10,0,0
endif

if keystate(18)=1 : hide object 500 : Gun#=0 : hide object target
 rotate limb 1,85,0,0,0
 rotate limb 1,86,0,0,0
endif

`nowa pozycja gracza
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)

`position the camera
Position Camera Object Position X(1),Object Position Y(1)+250,Object Position Z(1)
Point Camera Object Position X(1),Object Position Y(1),Object Position Z(1)

gosub _shoot:

`kolizje on
    SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,100)

   `Takei info heh
   TEXT 0,0,"Sebolix Engine Alpha 0.1"

text 0,screen height()-50,"amunicja: "+str$(ammo#)
text 0,screen height()-40,"magazynki: "+str$(magazynki#)

   `Odswiezanie
   SYNC

`Loop
LOOP

`********************STRZAL********************
_shoot:

PistolX# = limb position x(1,87)
PistolY# = limb position y(1,87)
PistolZ# = limb position z(1,87)

x1# = object position x(1)
y1# = object position y(1)
z1# = object position z(1)
position object target,x1#,y1#,z1#
set object to object orientation target,1
move object target,100.0

tx# = object position x(target)
ty# = object position y(target)
tz# = object position z(target)

if keystate(29) and Gun#=1 and Shoot#=0
 for b = 1 to 10
  Make object sphere b,10
 Shoot#=1
 position object b,PistolX#,PistolY#,PistolZ#
 b=b+1

if b>10 then b=1
 point object b,tx#,ty#,tz#
 move object b,10.0
next b

if keystate(29)=0 then Shoot#=0
endif

return

`Funkcja kolizji(bez niej nie dziala)
FUNCTION SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn,Obj)

    C = sc_SphereSlide(Obj,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,0)

    IF C > 0

        cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()

        POSITION OBJECT Dyn, cx#, cy#, cz#

    ENDIF

ENDFUNCTION

DELETE MEMBLOCK 1

Attachments

Login to view attachments

Back to top

Profile PM

Veron

18

Years of Service

User Offline

Joined: 22nd Nov 2006

Location:

Posted: 24th Dec 2007 14:37

Link

"Bullet problem" isn't exactly descriptive enough for any of us to help you. What exactly is wrong with the bullet?

Back to top

Profile PM

Seboolek

17

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 24th Dec 2007 14:58

Link

I try to make a shooting. I click a CTRL then make bullet but when click again then this same bullet has destroy and make a start position. I wanna to make a "Machine gun" effect. How to make? in my code no work shooting.

Back to top

Profile PM

HeavyAmp

18

Years of Service

User Offline

Joined: 25th Oct 2006

Location: Castle in the Sky!

Posted: 25th Dec 2007 04:28

Link

you want to make multiple bullets for your gun instead of using the same bullet over and over?

You could either make an array of bullets and give them a life time. Or you could just have a shooting effect then do a raycast to detect if you have hit anything.

Better to be dead, than to live your life afraid.

Back to top

Profile PM

MR FAN

16

Years of Service

User Offline

Joined: 2nd Dec 2007

Location:

Posted: 25th Dec 2007 09:01

Link

hmm, would this help, a little bit?

shott=shott+1
if mouseclick()=1 and shott>40
    play sound 3
    shotsf=shotsf+1
    shott=0
    position object 16, camera position x(1), camera position y(1), camera position z(1)
    rotate object 16, camera angle x(1), camera angle y(1), camera angle z(1)
  endif
  if mouseclick()=1 and shott=30
    play sound 3
    shotsf=shotsf+1
    position object 21, camera position x(1), camera position y(1), camera position z(1)
    rotate object 21, camera angle x(1), camera angle y(1), camera angle z(1)
  endif
  if mouseclick()=1 and shott=20
    play sound 3
    shotsf=shotsf+1
    position object 22, camera position x(1), camera position y(1), camera position z(1)
    rotate object 22, camera angle x(1), camera angle y(1), camera angle z(1)
  endif
  if mouseclick()=1 and shott=10
    play sound 3
    shotsf=shotsf+1
    position object 23, camera position x(1), camera position y(1), camera position z(1)
    rotate object 23, camera angle x(1), camera angle y(1), camera angle z(1)
  endif

+ Code Snippet

shott=shott+1
if mouseclick()=1 and shott>40
    play sound 3
    shotsf=shotsf+1
    shott=0
    position object 16, camera position x(1), camera position y(1), camera position z(1)
    rotate object 16, camera angle x(1), camera angle y(1), camera angle z(1)
  endif
  if mouseclick()=1 and shott=30
    play sound 3
    shotsf=shotsf+1
    position object 21, camera position x(1), camera position y(1), camera position z(1)
    rotate object 21, camera angle x(1), camera angle y(1), camera angle z(1)
  endif
  if mouseclick()=1 and shott=20
    play sound 3
    shotsf=shotsf+1
    position object 22, camera position x(1), camera position y(1), camera position z(1)
    rotate object 22, camera angle x(1), camera angle y(1), camera angle z(1)
  endif
  if mouseclick()=1 and shott=10
    play sound 3
    shotsf=shotsf+1
    position object 23, camera position x(1), camera position y(1), camera position z(1)
    rotate object 23, camera angle x(1), camera angle y(1), camera angle z(1)
  endif

this is just part of a much bigger program that I wrote, so there might be things missing, so you will have to figute some stuff out on your own.

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 26th Dec 2007 05:39 Edited at: 26th Dec 2007 05:41

Link

In my entry for the Christmas Minimal Media compo, I just have a set of numbers that are designated for the bullets (say, 200 to 250). Then I use code like this:

+ Code Snippet

bulletno=200
do
if bulletno>249 then bulletno=200

for bob=200 to 250
    if object exist(bob)=1
        move object bob,6
        [You could have some collision code here]
    endif
next bob

if mouseclick()=1
    delete object bulletno
    clone object bulletno,13 `13 is the base bullet, it is hidden and placed well out of the game's area
    position object bulletno,object position x(12),object position y(12),object position z(12) `Player position
    point object bulletno,(get pick vector x()*rotationmultiplier),(get pick vector y()*rotationmultiplier),(get pick vector z()*rotationmultiplier) `Basically, just point the bullet toward where you are facing
    inc bulletno
endif

loop

Though you should probably check into raycasting rather than making objects and moving them.
This code works for me because my "bullets" are actually presents, and they are meant to seem "thrown" not "shot," so they move rather slowly. If you have real bullets, they are going to move quite fast, and this can cause problems with collision.

Say your bullets were moving at 10 units every loop, and there was a wall 5 units thick. The bullets are liable to move right through it and keep going:

+ Code Snippet

Units:       01 02 03 04 05 06 07 08 09 10

Bullet Start -- -- -- -- || || || || || -- <Bullet ends up here without ever colliding with the wall.

Anyway, long story short, raycasting is faster and better

"Ok, so that wasn't funny. I don' have any good Christmas jokes."

Back to top

Profile PM Email Website

Seboolek

17

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 27th Dec 2007 12:16

Link

Thanks all.
I create this but i don't know why to not run.

Bmaczero: that is great. I add this on my code but not work.. look that.. maybe you know how is wrong.

REM Project: City Of Dead
REM Created: 2007-11-16 17:36:57
REM By Sebastian Woźnicki
REM ***** Main Source File *****
REM

`Startowe ustawienia
SYNC ON:SYNC RATE 60:AUTOCAM OFF:HIDE MOUSE

center text screen width()/2,screen height()/2,"Ładowanie Sebolix engine Alpha 0.2"
sync : sync

`************Postacie i elementy************
load object "Soldier.x",1
scale object 1,10,10,10
position object 1,0,0,0

`******************Bronie********************
load object "Pistolet.x",500
scale object 500,100,70,70
hide object 500

`*****************pocisk********************
target = 10
make object sphere target,5.0
color object target,rgb(255,255,255)
hide object target

bullet = 20
make object sphere bullet,5.0
color object bullet,rgb(255,0,0)

`*****************LEVEL**********************
load object "lvl.x",100
position object 100,200,0,0

`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=200
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3
SC_SetupObject 100,0,0

`Cienie wszystkich obiektów
make light 1
set light range 1,5000
position light 1,0,500,0
set shadow shading on 1
set shadow shading on 500

`main loop
DO

`stara pozycja gracza
    OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)

`Poruszanie sie i sterowanie (zmiana broni tez)
if upkey()=1 then move object 1,speed#: loop object 1,0,19 : set object speed 1,50
if downkey()=1 then move object 1,-speed#: loop object 1,0,19 : set object speed 1,50
if leftkey()=1 then turn object left 1,speed_obrot#
if rightkey()=1 then turn object right 1,speed_obrot#
if keystate(44)=1 then move object left 1,speed#
if keystate(45)=1 then move object right 1,speed#

if upkey()+downkey()=0 then loop object 1,0,0

if keystate(2)=1 : glue object to limb 500,1,87 : show object 500 : Gun#=1 : show object target
 rotate limb 1,85,-50,0,-20
 rotate limb 1,86,10,0,0
endif

if keystate(18)=1 : hide object 500 : Gun#=0 : hide object target
 rotate limb 1,85,0,0,0
 rotate limb 1,86,0,0,0
endif

`nowa pozycja gracza
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)

`position the camera
Position Camera Object Position X(1),Object Position Y(1)+250,Object Position Z(1)
Point Camera Object Position X(1),Object Position Y(1),Object Position Z(1)

gosub _shoot:

`kolizje on
    SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,100)

`Takei info heh
   TEXT 0,0,"Sebolix Engine Alpha 0.2"

text 0,screen height()-50,"amunicja: "+str$(ammo#)
text 0,screen height()-40,"magazynki: "+str$(magazynki#)

`Odswiezanie
   SYNC

`Loop
LOOP

`********************STRZAL********************
_shoot:

PistolX# = limb position x(1,87)
PistolY# = limb position y(1,87)
PistolZ# = limb position z(1,87)

x1# = object position x(1)
y1# = object position y(1)
z1# = object position z(1)
position object target,x1#,y1#,z1#
set object to object orientation target,1
move object target,100.0

tx# = object position x(target)
ty# = object position y(target)
tz# = object position z(target)

do
if Ammo#>249 then Ammo#=200

for bullet=200 to 250
    if object exist(bullet)=1
        move object bullet,10
        `[You could have some collision code here]
    endif
next bullet

if keystate(29)=1 and Gun#=1
    delete object bullet
    clone object bullet,13 `13 is the base bullet, it is hidden and placed well out of the game's area
    position object bullet,PistolX#,PistolY#,PistolZ# `Player position
    point object bullet,tx#,ty#,tz#
    inc bullet
endif

loop

`Funkcja kolizji(bez niej nie dziala)
FUNCTION SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn,Obj)

C = sc_SphereSlide(Obj,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,0)

IF C > 0

cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()

POSITION OBJECT Dyn, cx#, cy#, cz#

ENDIF

ENDFUNCTION

DELETE MEMBLOCK 1

+ Code Snippet

REM Project: City Of Dead
REM Created: 2007-11-16 17:36:57
REM By Sebastian Woźnicki
REM ***** Main Source File *****
REM

`Startowe ustawienia
SYNC ON:SYNC RATE 60:AUTOCAM OFF:HIDE MOUSE

center text screen width()/2,screen height()/2,"Ładowanie Sebolix engine Alpha 0.2"
sync : sync

`************Postacie i elementy************
load object "Soldier.x",1
scale object 1,10,10,10
position object 1,0,0,0

`******************Bronie********************
load object "Pistolet.x",500
scale object 500,100,70,70
hide object 500

`*****************pocisk********************
target = 10
make object sphere target,5.0
color object target,rgb(255,255,255)
hide object target

bullet = 20
make object sphere bullet,5.0
color object bullet,rgb(255,0,0)

`*****************LEVEL**********************
load object "lvl.x",100
position object 100,200,0,0

`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=200
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3
SC_SetupObject 100,0,0

`Cienie wszystkich obiektów
make light 1
set light range 1,5000
position light 1,0,500,0
set shadow shading on 1
set shadow shading on 500

`main loop
DO

`stara pozycja gracza
    OX# = OBJECT POSITION X(1)
    OY# = OBJECT POSITION Y(1)
    OZ# = OBJECT POSITION Z(1)

   `Poruszanie sie i sterowanie (zmiana broni tez)
if upkey()=1 then move object 1,speed#: loop object 1,0,19 : set object speed 1,50
if downkey()=1 then move object 1,-speed#: loop object 1,0,19 : set object speed 1,50
if leftkey()=1 then turn object left 1,speed_obrot#
if rightkey()=1 then turn object right 1,speed_obrot#
if keystate(44)=1 then move object left 1,speed#
if keystate(45)=1 then move object right 1,speed#

if upkey()+downkey()=0 then loop object 1,0,0

if keystate(2)=1 : glue object to limb 500,1,87 : show object 500 : Gun#=1 : show object target
 rotate limb 1,85,-50,0,-20
 rotate limb 1,86,10,0,0
endif

if keystate(18)=1 : hide object 500 : Gun#=0 : hide object target
 rotate limb 1,85,0,0,0
 rotate limb 1,86,0,0,0
endif

`nowa pozycja gracza
    X# = OBJECT POSITION X(1)
    Y# = OBJECT POSITION Y(1)
    Z# = OBJECT POSITION Z(1)

`position the camera
Position Camera Object Position X(1),Object Position Y(1)+250,Object Position Z(1)
Point Camera Object Position X(1),Object Position Y(1),Object Position Z(1)

gosub _shoot:

`kolizje on
    SlidingCollision(OX#,OY#,OZ#,X#,Y#,Z#,10,1,100)

   `Takei info heh
   TEXT 0,0,"Sebolix Engine Alpha 0.2"

text 0,screen height()-50,"amunicja: "+str$(ammo#)
text 0,screen height()-40,"magazynki: "+str$(magazynki#)

   `Odswiezanie
   SYNC

`Loop
LOOP

`********************STRZAL********************
_shoot:

PistolX# = limb position x(1,87)
PistolY# = limb position y(1,87)
PistolZ# = limb position z(1,87)

x1# = object position x(1)
y1# = object position y(1)
z1# = object position z(1)
position object target,x1#,y1#,z1#
set object to object orientation target,1
move object target,100.0

tx# = object position x(target)
ty# = object position y(target)
tz# = object position z(target)

do
if Ammo#>249 then Ammo#=200

for bullet=200 to 250
    if object exist(bullet)=1
        move object bullet,10
        `[You could have some collision code here]
    endif
next bullet

if keystate(29)=1 and Gun#=1
    delete object bullet
    clone object bullet,13 `13 is the base bullet, it is hidden and placed well out of the game's area
    position object bullet,PistolX#,PistolY#,PistolZ# `Player position
    point object bullet,tx#,ty#,tz#
    inc bullet
endif

loop

`Funkcja kolizji(bez niej nie dziala)
FUNCTION SlidingCollision(X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,Dyn,Obj)

    C = sc_SphereSlide(Obj,X1#,Y1#,Z1#,X2#,Y2#,Z2#,Radius#,0)

    IF C > 0

        cx# = sc_getCollisionSlideX()
        cy# = sc_getCollisionSlideY()
        cz# = sc_getCollisionSlideZ()

        POSITION OBJECT Dyn, cx#, cy#, cz#

    ENDIF

ENDFUNCTION

DELETE MEMBLOCK 1

All media in first post.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / What wrong in my code?

Attachments