Advertisement
Guest User

Untitled

a guest
Jun 17th, 2017
53
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.         ; Reposition an actor
  2.            
  3.           Case P_RepositionActor
  4.          
  5.              RuntimeID = RCE_IntFromStr(Mid$(M\MessageData$, 2, 2))
  6.              AI.ActorInstance = RuntimeIDList(RuntimeID)
  7.               If AI <> Null
  8.                 ; Move
  9.                If Left$(M\MessageData$, 1) = "M"
  10.                  
  11.                   AI\X# = RCE_FloatFromStr#(Mid$(M\MessageData$, 4, 4))
  12.                   Y# = RCE_FloatFromStr#(Mid$(M\MessageData$, 8, 4))
  13.                   AI\Z# = RCE_FloatFromStr#(Mid$(M\MessageData$, 12, 4))
  14.                   MoveCamera = RCE_IntFromStr(Mid$(M\MessageData$, 16, 1))
  15.           UseColli   = RCE_IntFromStr(Mid$(M\MessageData$, 17, 1))
  16.                   AI\DestX# = AI\X#
  17.                   AI\DestZ# = AI\Z#
  18.                   If AI <> Me Then PositionEntity(AI\CollisionEN, AI\X#, AI\AIY#, AI\Z#)
  19.                   ; Ignore collision
  20.                   If UseColli = 0 Then ResetEntity(AI\CollisionEN)
  21.                   ; Move the camera directly to the new spot, otherwise it will fly there
  22.                   If MoveCamera = False And AI\RuntimeID = Me\RuntimeID Then PositionEntity(Cam, AI\X#, Y#, AI\Z#)
  23.                 ; Rotate
  24.                ElseIf Left$(M\MessageData$, 1) = "R"
  25.               If AI <> Me
  26.             AI\Yaw# = RCE_FloatFromStr#(Mid$(M\MessageData$, 4, 4))
  27.             RotateEntity(AI\CollisionEN, 0, AI\Yaw#, 0)
  28.           Endif
  29.                EndIf
  30.         Endif
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement