Can any one check my code,I am all confused today.

Author

Message

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 02:33 Edited at: 14th Oct 2011 03:31

How would you re right this code to make it work?? I AM USING SPARKYS DLL.Any help is truly a appreshiated.

type enemies
ehealth
estates
endtype

Dim enemy(11)as enemies
enemy(8).estates=8
enemy(9).estates=9
enemy(10).estates=10
enemy(11).estates=11
enemy(8).ehealth =10
enemy(9).ehealth =6
enemy(10).ehealth =4
enemy(11).ehealth =8

do

Rem *****************************************************************************************
Rem ********                            Enemy  setup                                *********
Rem *****************************************************************************************
for e = 8 to 11

rem this is just for the enemies animations to play,they all play at the same time.Not good

if animestate2#=0
loop object enemy(e).estates,236,265 rem,this is the animation loop for my array
set object speed enemy(e).estates,70
endif

rem walk animation
if animestate2#=1
loop object enemy(e).estates,266,303
endif

rem jump animation
if animestate2#=2
loop object enemy(e).estates,396,430
set object speed enemy(e).estates,140
endif

rem crouch animation
if animestate2#=3
loop object enemy(e).estates,431,460
set object speed enemy(e).estates,150
endif

rem run animation
if animestate2#=4
loop object enemy(e).estates,300,318
set object speed enemy(e).estates,100
endif

rem distance set up

dx# = object position x(2) - object position x(enemy(e).estates)
   dy# = object position y(2) - object position y(enemy(e).estates)
   dz# = object position z(2) - object position z(enemy(e).estates)
   dx# = dx# * dx#: dy# = dy# * dy#: dz# = dz# * dz#
   Dist# = dx# + dy# + dz#

rem distance check
if dist# < (800 * 800)
gothit=3
walktome1=0
animestate2#=0
endif

rem distance call
if dist# < (600 * 600) and trig1=0 then  walktome1=1

rem distance command

if walktome1=1
gothit=0

rem move enemies towards the player and slide them

oldx# = object position x(enemy(e).estates)
      oldy# = object position y(enemy(e).estates)
      oldz# = object position z(enemy(e).estates)
      point object e,object position x(2),object position y(2),object position z(2)
      move object enemy(e).estates,2
      animestate2#=1
      x# = object position x(enemy(e).estates)
      y# = object position y(enemy(e).estates)
      z# = object position z(enemy(e).estates)
      rem little spheres collide with all (0)
      collide = sc_sphereSlide(0,oldx#,oldy#,oldz#,x#,y#,z#,littleRadius#,enemy(e).estates)
      if collide>0
         position object enemy(e).estates,sc_getCollisionSlideX(),sc_getCollisionSlideY(),sc_getCollisionSlideZ()
      endif

sc_updateObject enemy(e).estates

sc_updateObject 2

endif

rem if object collides with player it changes attack states

if OBJECT COLLISION(enemy(e).estates, 2)
 trig1=1:walktome1=0
 endif

rem another state change for walk to attack'

if trig1=1
move object enemy(e).estates,0
animestate2#=3
gothit=1
point object enemy(e).estates,object position x(2),object position y(2),object position z(2)
      sc_updateObject enemy(e).estates
      sc_updateObject 2
endif

rem Rem, this is just saying if enemy is not touching me then its time to chase me

if  OBJECT COLLISION(2,enemy(e).estates)=0 and gothit=1 then trig1=0:walktome1=1

rem,not important

E2#=object frame(enemy(e).estates)
 if E2#<450.0
 inc E2#,1.0
 if E2#>=450.0
play sound 1
 E2#=50.0
 endif
endif

E1#=object frame(enemy(e).estates)
 if E1#<460.0
 inc E1#,1.0
 if E1#>=460.0
DEC PHEALTH
 E1#=50.0
endif
endif
next e

sync
loop

+ Code Snippet

type enemies
ehealth
estates
endtype


Dim enemy(11)as enemies
enemy(8).estates=8
enemy(9).estates=9
enemy(10).estates=10
enemy(11).estates=11
enemy(8).ehealth =10
enemy(9).ehealth =6
enemy(10).ehealth =4
enemy(11).ehealth =8


do 

Rem *****************************************************************************************
Rem ********                            Enemy  setup                                *********
Rem *****************************************************************************************
for e = 8 to 11

rem this is just for the enemies animations to play,they all play at the same time.Not good

if animestate2#=0
loop object enemy(e).estates,236,265 rem,this is the animation loop for my array
set object speed enemy(e).estates,70
endif

rem walk animation
if animestate2#=1
loop object enemy(e).estates,266,303
endif

rem jump animation
if animestate2#=2
loop object enemy(e).estates,396,430
set object speed enemy(e).estates,140
endif

rem crouch animation
if animestate2#=3
loop object enemy(e).estates,431,460
set object speed enemy(e).estates,150
endif

rem run animation
if animestate2#=4
loop object enemy(e).estates,300,318
set object speed enemy(e).estates,100
endif



rem distance set up

   dx# = object position x(2) - object position x(enemy(e).estates)
   dy# = object position y(2) - object position y(enemy(e).estates)
   dz# = object position z(2) - object position z(enemy(e).estates)
   dx# = dx# * dx#: dy# = dy# * dy#: dz# = dz# * dz#
   Dist# = dx# + dy# + dz#

rem distance check
if dist# < (800 * 800)
gothit=3
walktome1=0
animestate2#=0
endif

rem distance call
if dist# < (600 * 600) and trig1=0 then  walktome1=1

rem distance command

if walktome1=1
gothit=0


      rem move enemies towards the player and slide them

      oldx# = object position x(enemy(e).estates)
      oldy# = object position y(enemy(e).estates)
      oldz# = object position z(enemy(e).estates)
      point object e,object position x(2),object position y(2),object position z(2)
      move object enemy(e).estates,2
      animestate2#=1
      x# = object position x(enemy(e).estates)
      y# = object position y(enemy(e).estates)
      z# = object position z(enemy(e).estates)
      rem little spheres collide with all (0)
      collide = sc_sphereSlide(0,oldx#,oldy#,oldz#,x#,y#,z#,littleRadius#,enemy(e).estates)
      if collide>0
         position object enemy(e).estates,sc_getCollisionSlideX(),sc_getCollisionSlideY(),sc_getCollisionSlideZ()
      endif

      sc_updateObject enemy(e).estates

      sc_updateObject 2




endif

rem if object collides with player it changes attack states

if OBJECT COLLISION(enemy(e).estates, 2)
 trig1=1:walktome1=0
 endif


rem another state change for walk to attack'

if trig1=1
move object enemy(e).estates,0
animestate2#=3
gothit=1
point object enemy(e).estates,object position x(2),object position y(2),object position z(2)
      sc_updateObject enemy(e).estates
      sc_updateObject 2
endif

rem Rem, this is just saying if enemy is not touching me then its time to chase me

if  OBJECT COLLISION(2,enemy(e).estates)=0 and gothit=1 then trig1=0:walktome1=1


rem,not important

E2#=object frame(enemy(e).estates)
 if E2#<450.0
 inc E2#,1.0
 if E2#>=450.0
play sound 1
 E2#=50.0
 endif
endif


E1#=object frame(enemy(e).estates)
 if E1#<460.0
 inc E1#,1.0
 if E1#>=460.0
DEC PHEALTH
 E1#=50.0
endif
endif
next e



sync
loop

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 14th Oct 2011 03:02

Link

Is that just a section of your code as there's no sign of any objects being created or existing in the code...?

Mental arithmetic? Me? (That's for computers) I can't subtract a fart from a plate of beans!
Warning! May contain Nuts!

Back to top

Profile PM Email Website

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 03:10 Edited at: 14th Oct 2011 03:11

Link

This is just the enemies section of my code,it will not work correcly, I have the enemy types set in arrays but I just cant seem to get the enemys to work unless they all share the same animations at once.

Objects 9 to 11 are my objects ,Im trying to get them to act as enemies, they do,but all at once.I need them to act by them selfs , so if one follows me all of them dont unless there called in the distance call.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

WLGfx

18

Years of Service

User Offline

Joined: 1st Nov 2007

Location: NW United Kingdom

Posted: 14th Oct 2011 03:24

Link

I will have another look through this when my heads a little clearer. I'd definitely recommend indenting your code though, it's hard to follow loops, ifs and endifs, etc without them being indented.

It's got to be something very simple to do with your 'e' loop counter.

Mental arithmetic? Me? (That's for computers) I can't subtract a fart from a plate of beans!
Warning! May contain Nuts!

Back to top

Profile PM Email Website

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 03:26

Link

Yea, sorry about not indenting, I will go back to it and indent some of it for you,thanks for your help.

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Jaeg

20

Years of Service

User Offline

Joined: 16th Mar 2006

Location: Indiana

Posted: 14th Oct 2011 11:48

Link

Is the problem you are having with your animation code where it say they all play at the same time?
If that's the case change your enemy type to this

+ Code Snippet

type enemies
ehealth
estates
animestate
endtype

and then this to each if condition in your for loop:

+ Code Snippet

if enemy[e].animestate2#=0
       loop object enemy(e).estates,236,265 rem,this is the animation loop for my array
       set object speed enemy(e).estates,70
endif

You would have to change where ever you change the animestate variable to compensate for these changes as well. If this is the problem you where having then you were on the right track.

Go ahead. Walk into Mordor.

Ball State University - Biology Major

Back to top

Profile PM Email Website

Daniel wright 2311

User Banned

Posted: 14th Oct 2011 21:32 Edited at: 14th Oct 2011 22:22

Link

@Jaeg

Never mind,fixed it all,thanks for your help

my signature keeps being erased by a mod So this is my new signature.

Back to top

Profile

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Can any one check my code,I am all confused today.