Der Code zum löschen:
Code: Alles auswählen
If ListSize(playershot()) > 0
ForEach playershot()
If EntityX(playershot()\EnID) < 0
FreeCamera(playershot()\CamID)
FreeEntity(playershot()\EnID)
DeleteElement(playershot())
Continue
ElseIf EntityX(playershot()\EnID) > 60000
FreeCamera(playershot()\CamID)
FreeEntity(playershot()\EnID)
DeleteElement(playershot())
Continue
EndIf
If EntityZ(playershot()\EnID) < 0
FreeCamera(playershot()\CamID)
FreeEntity(playershot()\EnID)
DeleteElement(playershot())
Continue
ElseIf EntityZ(playershot()\EnID) > 60000
FreeCamera(playershot()\CamID)
FreeEntity(playershot()\EnID)
DeleteElement(playershot())
Continue
EndIf
Next
EndIf
Code: Alles auswählen
If MouseButton(#PB_MouseButton_Left) And shotdelay = 0
CamID = CreateCamera(#PB_Any,0,0,1,1)
CameraLocate(CamID,CameraX(1),CameraY(1),CameraZ(1))
CameraLookAt(CamID,CameraX(0),CameraY(0),CameraZ(0))
EnID = CreateEntity(#PB_Any,MeshID(3),MaterialID(2),CameraX(CamID),CameraY(CamID),CameraZ(CamID))
EntityLookAt(EnID,CameraX(0),CameraY(0),CameraZ(0))
AddElement(playershot())
playershot()\CamID = CamID
playershot()\EnID = EnID
shotdelay = 15
ElseIf shotdelay > 0
shotdelay - 1
EndIf
Vielen Dank im vorraus,
mfG Felix