Fixed Models not being affected by lighting

P3D/Battle/BattleAnimations/BattleAnimation3D.vb

@@ -69,7 +69,6 @@
                 End If
             End If
         End If
-        MyBase.Update()
     End Sub
 
     Public Overrides Sub UpdateEntity()
@@ -99,6 +98,7 @@
                 If Me.Model Is Nothing Then
                     Draw(Me.BaseModel, Me.Textures, True)
                 Else
+                    UpdateModel()
                     Draw(Me.BaseModel, Me.Textures, True, Me.Model)
                 End If
             End If

P3D/Battle/BattleSystemV2/QueryObjects/AnimationQueryObject.vb

@@ -51,6 +51,7 @@
 				[Object].Render()
 			Next
 			For Each [Object] As Entity In RenderObjects
+				[Object].UpdateModel()
 				[Object].Render()
 			Next
 		End Sub

P3D/Entites/Entity.vb

@@ -344,7 +344,6 @@
     End Sub
 
     Public Overridable Sub Update()
-        UpdateModel()
     End Sub
 
     Public Sub UpdateModel()
@@ -564,7 +563,7 @@
     End Sub
 
     Public Overridable Sub Render()
-
+        UpdateModel()
     End Sub
 
     Public Overridable Sub ClickFunction()

P3D/Entites/Enviroment/AllSidesObject.vb

@@ -6,6 +6,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, True)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/AnimatedBlock.vb

@@ -224,6 +224,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, setRasterizerState)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/ApricornPlant.vb

@@ -124,6 +124,7 @@
         If Me.Model Is Nothing Then
             Draw(BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/BerryPlant.vb

@@ -67,6 +67,7 @@
     End Sub
 
     Public Overrides Sub Update()
+
         If Me.LastUpdateDate.Year = 1 Then
             Me.LastUpdateDate = Date.Now
         End If
@@ -207,6 +208,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/CutDownTree.vb

@@ -76,6 +76,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/DiveTile.vb

@@ -113,6 +113,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/Floor.vb

@@ -57,6 +57,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/Grass.vb

@@ -25,6 +25,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/HeadbuttTree.vb

@@ -81,6 +81,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/ItemObject.vb

@@ -158,6 +158,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/LoamySoil.vb

@@ -56,6 +56,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/RockClimbEntity.vb

@@ -231,6 +231,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/RotationTile.vb

@@ -42,7 +42,6 @@
                 End If
             End If
         End If
-        UpdateModel()
     End Sub
 
     Private Function GetSteps() As Integer
@@ -89,6 +88,7 @@ theend:
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/ScriptBlock.vb

@@ -122,6 +122,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, True)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/SignBlock.vb

@@ -55,6 +55,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, True)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/SlideBlock.vb

@@ -167,6 +167,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/SmashRock.vb

@@ -159,6 +159,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Me.Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/StepBlock.vb

@@ -30,6 +30,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/StrengthRock.vb

@@ -129,6 +129,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/StrengthTrigger.vb

@@ -72,6 +72,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, True)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/TurningSign.vb

@@ -40,6 +40,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, True)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/WallBill.vb

@@ -19,6 +19,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/WallBlock.vb

@@ -10,6 +10,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/WarpBlock.vb

@@ -6,6 +6,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/Water.vb

@@ -256,6 +256,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, setRasterizerState)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/Waterfall.vb

@@ -156,6 +156,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Enviroment/Whirlpool.vb

@@ -68,6 +68,7 @@
         If Me.Model Is Nothing Then
             Me.Draw(Me.BaseModel, Textures, False)
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub

P3D/Entites/Other/NPC.vb

@@ -492,6 +492,7 @@
             Draw(Me.BaseModel, Me.Textures, True)
             GraphicsDevice.DepthStencilState = state
         Else
+            UpdateModel()
             Draw(Me.BaseModel, Me.Textures, True, Me.Model)
         End If
     End Sub