Moved pipe smoking to OnObjectEquipped in alias

Enderal SE v2.1.0 Changelog.txt

@@ -57,6 +57,7 @@ Gameplay changes:
 - Ice Claws are now consumed without picking them up (inspired by root1's mod). Eating one shows a corner notification with new carry weight.
 - Oil pools ignite from shocking spells, fixed other cases when they did not ignite but should have.
 - Reduced damage dealt by Lords of the Lost Ones and Dal Galar's servants by 35%, slightly lowered damage from Elemental Wolves and Mad Rats.
+- Fixed pipe smoking, sometimes starting on reading some receipts and opening some containers (now for sure).
 - Moved hidden talking actors in Pentas' house out of player's reach.
 - Removed a few wolves from the Sun Coast.
 - Fixed Spriggan's visual effects.

scripts/scriptarchiveorder.txt

@@ -1317,7 +1317,6 @@ scripts\_00e_slowselfmesc.pex
 scripts\_00e_smoking_crossleggedmarkerscript.pex
 scripts\_00e_smoking_crossleggedsc.pex
 scripts\_00e_smoking_wallmarkerscript.pex
-scripts\_00e_smokingpipescript.pex
 scripts\_00e_soultrapcontroller.pex
 scripts\_00E_SoundControl.pex
 scripts\_00e_stagetriggerboxscn.pex

source/scripts/_00e_peaceweedplayeraliasscript.psc

@@ -80,6 +80,12 @@ State Smoking
 
 EndState
 
+Event OnObjectEquipped(Form akBaseObject, ObjectReference akReference)
+	if akBaseObject == _00E_SmokingPipe
+		StartSmoking()
+	endif
+endEvent
+
 
 ;=====================================================================================
 ;              							SMOKING                  					 

source/scripts/_00e_smokingpipescript.psc

@@ -1,14 +0,0 @@
-Scriptname _00E_SmokingPipeScript extends ObjectReference
-
-_00E_PeaceweedControlScript Property PeaceweedControl Auto
-Actor Property PlayerRef Auto
-
-Event OnEquipped(Actor akActor)
-	If akActor == PlayerRef
-		; The check of base object is needed because this script somehow gets attached to the quest ref of _00E_FS_NQ07_Rezept (and to various containers)
-		Form baseObj = GetBaseObject()
-		If baseObj == None || (baseObj as MiscObject) != None
-			PeaceweedControl.StartSmoking()
-		EndIf
-	EndIf
-EndEvent