KILLING SPIKES!!!!!!!!

[epikhbk1]

how can i make an enemy kill you?? this is wat i got so far.. ; /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
;   SPIKE
; /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/

; =========================================================================================================
; Object_Spike_Create
; =========================================================================================================
; Creates a New Spike Object

Function Object_Spike_Create.tObject(x#, y#, z#, rx#=0, ry#=0, rz#=0)

o.tObject = New tObject

o\ObjType = OBJTYPE_SPIKE

o\Position = New tVector
o\Position\x# = x#
o\Position\y# = y#
o\Position\z# = z#

o\Entity = LoadMesh("Objects\Spike\Spike.b3d")

o\IValues[0] = LoadMesh("Objects\Quad.b3d", o\Entity)
EntityBlend o\IValues[0], 3
EntityFX o\IValues[0], 1+16
EntityTexture o\IValues[0], LoadTexture("Textures\Woosh.png")
EntityAlpha o\IValues[0], 0.0
TranslateEntity o\IValues[0], 0, 1, 0
o\FValues[0] = 0

ScaleEntity o\Entity, 1.5, 1.5, 1.5
TranslateEntity o\Entity, x#, y#, z#
TurnEntity o\Entity, rx#, ry#, rz#


Return o

End Function


; =========================================================================================================
; Object_Spike_Update
; =========================================================================================================
; Updates the Spike object

Function Object_Spike_Update(o.tObject, p.tPlayer, d.tDeltaTime)

If (Abs(EntityX(p\Objects\Entity) - o\Position\x) < 12.5) And (Abs(EntityY(p\Objects\Entity) - o\Position\y) < 12.5) And (Abs(EntityZ(p\Objects\Entity) - o\Position\z) < 12.5) Then

;If Not p\Motion\Ground Then PositionEntity p\Objects\Entity, (EntityX(p\Objects\Entity)*39 + o\Position\x#)/40, (EntityY(p\Objects\Entity)*39 + o\Position\y#)/40, (EntityZ(p\Objects\Entity)*39 + o\Position\z#)/40

If (Abs(EntityX(p\Objects\Entity) - o\Position\x) < 5.5) And (Abs(EntityY(p\Objects\Entity) - o\Position\y) < 5.5) And (Abs(EntityZ(p\Objects\Entity) - o\Position\z) < 5.5) Then

; Add to ring counter
Game\Gameplay\Lives = Game\Gameplay\Lives + -1
Game\Gameplay\Score = Game\Gameplay\Score + -100000000

o\State = 1
o\FValues[0] = 0.0


; Transform the position vector to World space
TFormVector 0, 1, 0, o\Entity, 0
PositionEntity p\Objects\Entity, o\Position\x# + TFormedX()*4, o\Position\y# + TFormedY()*4, o\Position\z# + TFormedZ()*4

; Sproing!
PlaySound Sound_Spring

; Apply motion blur
PostEffect_Create_MotionBlur(0.0)

EndIf

EndIf

If o\State = 1 Then

o\FValues[0] = o\FValues[0] + 0.05*d\Delta
ScaleEntity o\IValues[0], 1+o\FValues[0]*6, 3+o\FValues[0]*6, 1+o\FValues[0]*6
TurnEntity o\IValues[0], 0, 5*d\Delta, 0
EntityAlpha o\IValues[0], (1-o\FValues[0])*0.7

ScaleEntity o\Entity, 1.5, 1.5 + Sin (o\FValues[0]*180)*1.5, 1.5

If o\FValues[0] >= 1.0 Then
ScaleEntity o\IValues[0], 1, 1, 1
o\FValues[0] = 0
o\State = 0
ScaleEntity o\Entity, 1.5, 1.5, 1.5
EndIf

EndIf


End Function
but after his life goes to zero he wont die... ima see if i can script it in stage.bb or game.bb

[Th33z]

you need to add a code that automatically closes the engine. have you added a Goal Ring that closes the .exe once you go to said goal ring? my suggestion would be to copy the code that closes it into the script of you losing all of your lives

[epikhbk1]

i typed this in game If Game\Gameplay\Lives = 0) Then Game_End()  
but it didnt work it came with an error

[Th33z]

Ugh, just keep trying

[06hypersonic60]

Game\Gameplay\Lives = Game\Gameplay\Lives + -1
Game\Gameplay\Score = Game\Gameplay\Score + -100000000

Why " + -1 and + -100000000 "??
remove that "+"

and in stage.bb in the part where there's the death code
after : If (KeyHit(KEY_F1)) Then
u should add :
If (Game\Gameplay\Lives < 0) Then End
now, the game will end if the lives are less than 0. Which means if you have 0 lives u continue playing. but when u die the game ends

[epikhbk1]

ohhhhhhh i did

(Game\Gameplay\Lives = 0)
not
(Game\Gameplay\Lives < 0)

LOL small mistakes thanks bros

[epikhbk1]

but it still dont work

[epikhbk1]

maybe if i put Game_End()

[samcrossette]

Apr 15, 2012 11:16:41 GMT -5 epikhbk1 said:

ohhhhhhh i did

(Game\Gameplay\Lives = 0)
not
(Game\Gameplay\Lives < 0)

LOL small mistakes thanks bros

nope, it's Game\Gameplay\lives < 0

He is right

[epikhbk1]

still not wrking

[3DSawnikku]

Function Game_Stage_Step()
If (Input_Lock = True) Then

If (KeyHit(KEY_F1)) Then
For p.tPlayer = Each tPlayer
EntityType(p\Objects\Entity, 0)

PositionEntity p\Objects\Entity, 0, 10, 0
PositionEntity p\Objects\Mesh, 0, 10, 0
p\Motion\Speed\x = 0
p\Motion\Speed\y = 0
p\Motion\Speed\z = 0

EntityType(p\Objects\Entity, COLLISION_PLAYER)
Next
Game\Gameplay\Lives = Game\Gameplay\Lives -1
Game\Gameplay\Score = Game\Gameplay\Score =0
Game\Gameplay\Rings = Game\Gameplay\Rings =0
If (Game\Gameplay\Lives < 0) Then End

EndIf

This might help you,worked for me! ;D