tyler.durden
/
P3D-Legacy
mirror of https://github.com/P3D-Legacy/P3D-Legacy.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add @Entity.SetModel(ID,ModelPath)

This commit is contained in:
JappaWakka 2023-08-09 20:22:36 +02:00
parent cbce5512cc
commit f92373d447
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
P3D/World/ActionScript/V2/ScriptCommands/DoEntity.vb
View File

@ -105,6 +105,9 @@
Dim textureInformation() As String = textureData.Split(CChar(",")) Dim textureInformation() As String = textureData.Split(CChar(","))
ent.Textures(textureID) = TextureManager.GetTexture(textureInformation(0), New Rectangle(int(textureInformation(1)), int(textureInformation(2)), int(textureInformation(3)), int(textureInformation(4)))) ent.Textures(textureID) = TextureManager.GetTexture(textureInformation(0), New Rectangle(int(textureInformation(1)), int(textureInformation(2)), int(textureInformation(3)), int(textureInformation(4))))
Case "setmodelpath"
ent.ModelPath = argument.GetSplit(1)
ent.Model = ModelManager.GetModel(ent.ModelPath)
Case "addtoposition" Case "addtoposition"
Dim PositionList As List(Of String) = argument.Split(CChar(",")).ToList() Dim PositionList As List(Of String) = argument.Split(CChar(",")).ToList()
Dim newPosition As Vector3 = New Vector3(sng(PositionList(1).Replace("~", CStr(ent.Position.X)).Replace(".", GameController.DecSeparator)), Dim newPosition As Vector3 = New Vector3(sng(PositionList(1).Replace("~", CStr(ent.Position.X)).Replace(".", GameController.DecSeparator)),

2
P3D/World/ActionScript/V2/ScriptLibrary.vb
View File

@ -246,6 +246,8 @@ Namespace ScriptVersion2
New ScriptArgument("additionalValue", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the AdditionalValue property of the selected entity.")) New ScriptArgument("additionalValue", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the AdditionalValue property of the selected entity."))
r(New ScriptCommand("entity", "setcollision", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int), r(New ScriptCommand("entity", "setcollision", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("collision", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the Collision property of the selected entity.")) New ScriptArgument("collision", ScriptArgument.ArgumentTypes.Bool)}.ToList(), "Sets the Collision property of the selected entity."))
r(New ScriptCommand("entity", "setmodelpath", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("ModelPath", ScriptArgument.ArgumentTypes.Str)}.ToList(), "Sets the ModelPath property of the selected entity."))
r(New ScriptCommand("entity", "settexture", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int), r(New ScriptCommand("entity", "settexture", {New ScriptArgument("entityID", ScriptArgument.ArgumentTypes.Int),
New ScriptArgument("textureIndex", ScriptArgument.ArgumentTypes.Str), New ScriptArgument("textureIndex", ScriptArgument.ArgumentTypes.Str),
New ScriptArgument("textureName", ScriptArgument.ArgumentTypes.Str), New ScriptArgument("textureName", ScriptArgument.ArgumentTypes.Str),