Private Sub World_BeginContact (Contact As B2Contact)
...
End Sub
Private Sub World_EndContact(Contact As B2Contact)
...
End SubPrivate Sub World_BeginContact (Contact As B2Contact)
Dim bodies As X2BodiesFromContact = X2.GetBodiesFromContact(Contact, "ball")
If bodies <> Null Then
Dim data As BallData = bodies.ThisBody.Tag
If bodies.OtherBody.Name = "forceright" Then
data.IsTouched = True
data.Force.Set(0.1, 0)
else if bodies.OtherBody.Name = "forceup" Then
data.IsTouched = True
data.Force.Set(0, 0.5)
End If
End If
End SubPrivate Sub World_EndContact(Contact As B2Contact)
Dim bodies As X2BodiesFromContact = X2.GetBodiesFromContact(Contact, "ball")
If bodies <> Null Then
Dim data As BallData = bodies.ThisBody.Tag
If bodies.OtherBody.Name.StartsWith("force") Then
data.IsTouched = False
data.Force.Set(0, 0)
End If
End If
End Sub
Public Sub Tick
If speed_man>0 Then
direction_man="right"
Else
If speed_man<0 Then
direction_man="left"
Else
If speed_man=0 Then
direction_man="still"
End If
End If
End If
If direction_man="right" Then
bw.Body.LinearVelocity.X=speed_man
bw.FlipHorizontal=False
Else
If direction_man="left" Then
bw.Body.LinearVelocity.X=speed_man
bw.FlipHorizontal=True
If direction_man="still" Then
bw.Body.LinearVelocity.X=speed_man 'if still so nothing happens
End If
End If
End If
If collide_with_wall=True Then
If direction_man="right" Then
speed_man=-1
Else
If direction_man="left" Then
speed_man=1
End If
End If
End If
End SubSub Class_Globals
Dim quantity_mans As Int =5
Public mMan(quantity_mans) As Man
.
.
.
End sub
Private Sub World_BeginContact (Contact As B2Contact)
Dim bodies As X2BodiesFromContact = X2.GetBodiesFromContact(Contact, "man")
If bodies = Null Then Return
If bodies.OtherBody.Name = "wall" Then
button2.Text="touch wall"'this line just is an indicator
For identifier_mans=0 To quantity_mans - 1
mMan(identifier_mans).collide_with_wall=True
Next
End If
End Sub
Private Sub World_EndContact(Contact As B2Contact)
Dim bodies As X2BodiesFromContact = X2.GetBodiesFromContact(Contact, "man")
If bodies <> Null Then
button2.Text="no touch"'this line just is an indicator
For identifier_mans=0 To quantity_mans - 1
mMan(identifier_mans).collide_with_wall=False
Next
End If
End Sub
If collide_with_wall=True Then
If direction_man="right" Then
speed_man=-1
Else
If direction_man="left" Then
speed_man=1
End If
End If
End IfIf collide_with_wall=True Then
collide_with_wall = false '<------
If direction_man="right" Then
speed_man=-1
Else
If direction_man="left" Then
speed_man=1
End If
End If
End If
www.b4x.com
Public Sub Tick
If speed_man>0 Then
direction_man="right"
Else
If speed_man<0 Then
direction_man="left"
Else
If speed_man=0 Then
direction_man="still"
End If
End If
End If
If direction_man="right" Then
bw.Body.LinearVelocity.X=speed_man
bw.FlipHorizontal=False
Else
If direction_man="left" Then
bw.Body.LinearVelocity.X=speed_man
bw.FlipHorizontal=True
If direction_man="still" Then
bw.Body.LinearVelocity.X=speed_man 'if still so nothing happens
End If
End If
End If
If collide_with_wall=True Then
If direction_man="right" Then
speed_man=-1
Else
If direction_man="left" Then
speed_man=1
End If
End If
End If
End SubPublic Sub Tick
If collide_with_wall Then
collide_with_wall = False
speed_man = speed_man*-1
End If
bw.Body.LinearVelocity.X=speed_man
bw.FlipHorizontal=speed_man>0
End SubThank you very much ilan, I can't believe that I didn't think about setting the boolean false (this works well only for a 1 character). It definitely goes a long way when someone else sees things from another angle. I spent a lot of time burning my head. Thank you! Regarding the use of the list for various characters, I will begin to review what you just suggested and I will be commenting on my results.in your tick event you have this code:
B4X:If collide_with_wall=True Then If direction_man="right" Then speed_man=-1 Else If direction_man="left" Then speed_man=1 End If End If End If
the problem is that you change the speed of the character but don't change the "collide_with_wall" boolean.
so what happens is that the caracter is still touching the wall and always change the speed from positive to negative and again.
when the condition happens (collide_with_wall) you can change it to false to avoid such behavior.
try to change it the code to this and see if it works.
B4X:If collide_with_wall=True Then collide_with_wall = false '<------ If direction_man="right" Then speed_man=-1 Else If direction_man="left" Then speed_man=1 End If End If End If
the second issue with more then 1 character looks to me like the speed_man you set is a global variable and all characters are using the same speed.
what means if 1 character hits the wall and change the speed all characters will move to the same direction.
you should create a type object and put all characters you create in a list and with a loop go through all characters and do the stuff you are doing.
i have posted lot of example where you have a list with objects and every object is updated with its own properties.
have a look at this example: (its the last i have added)
Effect coins
Hi all. can anyone give me a hint on how to create a similar effect coins for B4X ( b4a, b4i , b4j )? - gif ? - xui2d game ? Thanks in advance for any suggestion Marco
you can see that i create each coin with its properties and add it to a list. then in a loop i go through all coins. you can use this for any other scenario like your characters.
once you understand the logic it will be very simple.
The code you suggest is much shorter and works the same !!, only that the flip must change sign when the speed is -1, but that is a minor issue. In fact, one of the 3 routines I did last night was similar to the one you suggested, and I came to think that the error was in the use of the 2 continuous mathematical operators (speed_man * -1). Now it is clear that B4X allows this written form without inconvenience.
