Shooting Help! - GameCreators Forum

Author

Message

Seboolek

16

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 23rd Nov 2007 13:59

Link

Hello

I need help a Shooting.
I don't now how to make Shooting. Please. Help!

This is a Code.

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

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

`Postacie i elementy
Make object box 1,10,10,10
position object 1,0,100,0

make object box 2,10,10,10

MAKE MATRIX 1,5000,5000,50,50
POSITION MATRIX 1,-2500,0,-2500

`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3

`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#
if downkey()=1 then move object 1,-speed#
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#

`SHOOTING!
if keystate(29)=1
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)

`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

+ Code Snippet

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

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

`Postacie i elementy
Make object box 1,10,10,10
position object 1,0,100,0

make object box 2,10,10,10

MAKE MATRIX 1,5000,5000,50,50
POSITION MATRIX 1,-2500,0,-2500


`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3

`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#
if downkey()=1 then move object 1,-speed#
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#

`SHOOTING!
if keystate(29)=1
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)


   `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

My English is poor. I'm From Poland. I make a Zombie game in GTA Style. But i don't now how to make a shooting.

Thanks

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 24th Nov 2007 04:32 Edited at: 24th Nov 2007 04:36

Link

i've added a basic shooting routine to your code to get you started. the code i added is outlined with:

******ADD THIS*****
...
*******************

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

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

`Postacie i elementy
Make object box 1,10,10,10
position object 1,0,100,0

make object box 2,10,10,10

rem ************ADD THIS************

target = 10
make object sphere target,5.0
color object target,rgb(255,255,0)

bullet = 20
make object sphere bullet,3.0
color object bullet,rgb(255,0,0)
rem *******************************

MAKE MATRIX 1,5000,5000,50,50
POSITION MATRIX 1,-2500,0,-2500

`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3

`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#
if downkey()=1 then move object 1,-speed#
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#

`SHOOTING!
if keystate(29)=1
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)

rem ************ADD THIS*********
gosub _shoot:
rem *****************************

`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

rem *************ADD THIS*******************
_shoot:

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 mouseclick() = 1
   position object bullet,x1#,y1#,z1#
   point object bullet,tx#,ty#,tz#
endif

move object bullet,5.0
return
rem *******************************************

+ Code Snippet

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

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

`Postacie i elementy
Make object box 1,10,10,10
position object 1,0,100,0

make object box 2,10,10,10


rem ************ADD THIS************

target = 10
make object sphere target,5.0
color object target,rgb(255,255,0)

bullet = 20
make object sphere bullet,3.0
color object bullet,rgb(255,0,0)
rem *******************************

MAKE MATRIX 1,5000,5000,50,50
POSITION MATRIX 1,-2500,0,-2500


`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3

`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#
if downkey()=1 then move object 1,-speed#
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#

`SHOOTING!
if keystate(29)=1
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)

rem ************ADD THIS*********
gosub _shoot:
rem *****************************

   `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


rem *************ADD THIS*******************
_shoot:

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 mouseclick() = 1
   position object bullet,x1#,y1#,z1#
   point object bullet,tx#,ty#,tz#
endif

move object bullet,5.0
return
rem *******************************************

use the left mouse button to shoot.

i hope this helps to get you going... plenty more to add including collision, etc, but this is a start. work with it, modify to suit your needs, etc, and enjoy

edit: i should have added some comments to the code to let you know what i was going for/what's going on, but i don't have time for it right now. look at the code and let me know if you have any questions?

Virtual Nomad
AMD XP 1800+ (~1.6 Ghz) / 1.5 GB RAM
ATI Radeon 8700LE 128 MB / Windows XP

Back to top

Profile PM Website

Seboolek

16

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 24th Nov 2007 20:26

Link

Very Nice! Thanks

But bullet has disappears after renewed a click Left mouse button.

Thanks for Help

I Use this

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 25th Nov 2007 03:20 Edited at: 25th Nov 2007 03:22

Link

that was to get you started with one method of "shooting". you'll want to add additional bullets, etc. to suit your needs.

look at the code, see what's going on, then develop it further.

good luck

Virtual Nomad
AMD XP 1800+ (~1.6 Ghz) / 1.5 GB RAM
ATI Radeon 8700LE 128 MB / Windows XP

Back to top

Profile PM Website

Seboolek

16

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 25th Nov 2007 18:58

Link

I try but i don't know how to make a Machine gun... Bullet alweys disappear. I search in a forum but i can't find how to make that.

Back to top

Profile PM

Flyin Mushroom

17

Years of Service

User Offline

Joined: 12th Jun 2007

Location: Arkansas

Posted: 27th Nov 2007 04:29

Link

Heres some code of a machine gun, but I had to edit alot because I had sound and different weapons added. Theres a place where you can put a gun, but i turned it into a invisible box, and the bullets into spheres. I hope some of unnessary coding dont distract you too much.

I still need to modify it alittle bit, because it looks like not all the bullets dont move until the trigger button is Released

hide mouse : sync rate 0 : sync on : autocam off
backdrop on : color backdrop rgb(0,0,0)

dim bullet#(40,3) : gunx#=0 : guny#=0 : gunz#=0

rem -------------- PLAYERS POSITION
make object cube 1,15 : hide object 1

rem ----------- THIS WOULD BE GUN, but is currently a hidden box out of position
make object box 2,1,1,1 : hide object 2
yrotate object 2,180 : fix object pivot 2 : set object rotation zyx 2
gunx#=x# : guny#=y#-100 : gunz#=z#

rem --------------------- MAKING BULLET OBJECTS
for l=0 to 40
for b=0 to 1
ll=4+(l*2)+b
make object sphere ll,1 : scale object ll,300,300,750
set object rotation zyx ll : hide object ll : next b : next l

rem -------- BULLET VARIABLE
bilbul=0

do

set cursor 20,20 : print "Bullets: ";95-bilbul-5
set cursor 20,60 : print "USE LEFT MOUSE CLICK 2 FIRE"
set cursor 20,80 : print "USE RIGHT MOUSE CLICK 2 FIRE (delayed)"

rem - Right mouse click uses the WAIT command, and might not work to well
rem - in a overall game, because it will freeze the screen.

olx#=x# : olz#=z#

position camera cx#,y#+30,cz#
rotate camera wrapvalue(cxa#),cya#,0

gosub machine_gun

sync : loop

rem ----------------------------------------------------------------------
machine_gun:

rem Control HIDDEN MACHINE GUN
g=0
gga#=wrapvalue((cya#-20)+(g*40))
gundx#=newxvalue(ggx#,wrapvalue((cya#-20)+(g*40)),10)
gundy#=y#-(sin(cxa#)*10)
gundz#=newzvalue(ggz#,gga#,10)
gunx#=curvevalue(gundx#,gunx#,1)
guny#=curvevalue(gundy#,guny#,1)
gunz#=curvevalue(gundz#,gunz#,1)
position object 2,gunx#,guny#+25,gunz#
xrotate object 2,wrapvalue(0-cxa#)
yrotate object 2,wrapvalue(cya#+180)

rem Firing
if mouseclick()=1 or mouseclick()=2
if mouseclick()=2 then wait 10
gunpressed=0
gunpressed=1

rem RELOAD FUNCTION ----------------------------------------------------

if bilbul>89
wait 10 : bilbul=0 : endif

rem Find free bullet
bf=-1
for b=0 to 40
if bullet#(b,1)=0 then bf=b
next b

rem Trigger bullet
if bf>0
rem ------ BULLET VARIABLE
bilbul= bilbul+1
objid=4+(bf*2)+0
bullet#(bf,1)=1
bullet#(bf,2)=0
tx#=object position x(2)
ty#=object position y(2)
tz#=object position z(2)
txa#=object angle x(2)
tya#=object angle y(2)
position object objid,tx#,ty#,tz#
rotate object objid,txa#,wrapvalue(tya#+90),0
move object objid,0.0
rotate object objid,txa#,tya#,0
move object objid,10
if object exist(objid+1)=1 then show object objid+1
endif
for adv=1 to 40
objid=3+(adv*2)+0
if adv<>rp and bullet#(adv,1)=1 then move object objid,-25.0
next adv : endif

rem Control bullet movement
for b=0 to 40

rem Bullet alive
if bullet#(b,1)=1

rem Move bullet
objid=4+(b*2)+0
move object objid,-40.0
ex#=object position x(objid)
eh#=object position y(objid)
ez#=object position z(objid)
position object objid+1,ex#,eh#-20,ez#
rotate object objid+1,wrapvalue(0-object angle x(objid)),object angle y(objid),0

rem --------------------- Refresh bullet
refreshbullet=0
bullet#(b,2)=bullet#(b,2)+1
if bullet#(b,2)>60 then refreshbullet=1

if refreshbullet=1
move object objid,50.0
ex#=object position x(objid)
ez#=object position z(objid)
bullet#(b,1)=0
endif : endif : next b
return

Back to top

Profile PM Email

Seboolek

16

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 14th Dec 2007 13:04

Link

Hmm.. Good.

I try to make that but i dont know how its wrong...

Look that.

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

`Postacie i elementy
Make object box 1,10,10,10
position object 1,0,100,0

make object box 2,10,10,10

`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3

rem ************ADD THIS************

target = 10
make object sphere target,5.0
color object target,rgb(255,255,0)

For bullet = 2 To Ammo#
make object sphere bullet,3.0
color object bullet,rgb(255,0,0)
   Hide Object bullet
Next bullet

rem *******************************

MAKE MATRIX 1,5000,5000,50,50
POSITION MATRIX 1,-2500,0,-2500

`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#
if downkey()=1 then move object 1,-speed#
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#

`SHOOTING!
if keystate(29)=1
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)

rem ************ADD THIS*********
gosub _shoot:
rem *****************************

`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

rem *************ADD THIS*******************
_shoot:

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 mouseclick() = 1
   position object bullet,x1#,y1#,z1#
   point object bullet,tx#,ty#,tz#
   show object bullet
endif

For bullet = 2 To Ammo#
  If Object Visible(bullet) = 1
  move object bullet,5.0
dec time
    Endif

Next bullet

rem *******************************************

+ Code Snippet

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

`Postacie i elementy
Make object box 1,10,10,10
position object 1,0,100,0

make object box 2,10,10,10

`Wazne
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3

rem ************ADD THIS************

target = 10
make object sphere target,5.0
color object target,rgb(255,255,0)

For bullet = 2 To Ammo#
make object sphere bullet,3.0
color object bullet,rgb(255,0,0)
   Hide Object bullet
Next bullet

rem *******************************

MAKE MATRIX 1,5000,5000,50,50
POSITION MATRIX 1,-2500,0,-2500

`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#
if downkey()=1 then move object 1,-speed#
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#

`SHOOTING!
if keystate(29)=1
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)

rem ************ADD THIS*********
gosub _shoot:
rem *****************************

   `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


rem *************ADD THIS*******************
_shoot:

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 mouseclick() = 1
   position object bullet,x1#,y1#,z1#
   point object bullet,tx#,ty#,tz#
   show object bullet
endif

For bullet = 2 To Ammo#
  If Object Visible(bullet) = 1
  move object bullet,5.0
dec time
    Endif

    Next bullet

rem *******************************************

What is wrong?

Back to top

Profile PM

Seboolek

16

Years of Service

User Offline

Joined: 2nd Oct 2007

Location: POLAND

Posted: 19th Dec 2007 20:36

Link

Please. I need to shooting. I dont know how to make.

This is my game.

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.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

bullet = 20
Make Object Sphere bullet,5
Color Object bullet,Rgb(Rnd(255),Rnd(255),Rnd(244))

`*****************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
Strzal#=0
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3
SC_SetupObject 100,0,0

`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)=1 and Gun#=1
  position object bullet,PistolX#,PistolY#,PistolZ#
  point object bullet,tx#,ty#,tz#
endif

move object bullet,10.0
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

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

bullet = 20
Make Object Sphere bullet,5
Color Object bullet,Rgb(Rnd(255),Rnd(255),Rnd(244))

`*****************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
Strzal#=0
speed#=2.0
speed_obrot#=4.0
Ammo#=12
MaxAmmo#=12
magazynki#=3
maxmagazynki#=3
SC_SetupObject 100,0,0

`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)=1 and Gun#=1
  position object bullet,PistolX#,PistolY#,PistolZ#
  point object bullet,tx#,ty#,tz#
endif

  move object bullet,10.0
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

Sorry your browser is not supported!

Newcomers DBPro Corner / Shooting Help!

Attachments