| SCTX |
ScriptName TGGrayCowlScript
Float GFCrimeGold
Float GFInfamy
Float GFFame
Float PCCrimeGold
Float PlayerInfamy
Float PlayerFame
Float TempCrime
Begin OnEquip Player
If GetPlayerInSEWorld == 0
Set TempCrime to GetGameSetting iCrimeGoldAttackMin
If GFCrimeGold < TempCrime
Set GFCrimeGold to TempCrime
EndIf
Set PCCrimeGold to Player.GetCrimeGold
Player.SetCrimeGold GFCrimeGold
EndIf
Set PlayerFame to GetPCFame
SetPCFame GFFame
If GFInfamy < 100
Set GFInfamy to 100
EndIf
Set PlayerInfamy to GetPCInfamy
SetPCInfamy GFInfamy
End
Begin OnUnequip Player
If GetPlayerInSEWorld == 0
Set GFCrimeGold to Player.GetCrimeGold
Player.SetCrimeGold PCCrimeGold
EndIf
Set GFFame to GetPCFame
SetPCFame PlayerFame
Set GFInfamy to GetPCInfamy
SetPCInfamy PlayerInfamy
End
Begin GameMode
If GetPlayerInSEWorld == 0
If SECrime.LeftSECowlOn == 1
If SECrime.EnteredSECowlOn == 0
; duplicate equipping the cowl if the player didn't have it on when he entered SE, but has it on when he leaves
Set TempCrime to GetGameSetting iCrimeGoldAttackMin
If GFCrimeGold < TempCrime
Set GFCrimeGold to TempCrime
EndIf
Set PCCrimeGold to Player.GetCrimeGold
Player.SetCrimeGold GFCrimeGold
Set SECrime.LeftSECowlOn to 0
EndIf
EndIf
If SECrime.LeftSECowlOn == 0
If SECrime.EnteredSECowlOn == 1
; duplicate unequipping the cowl if the player had it on when he entered SE, but not on when he leaves
Set GFCrimeGold to Player.GetCrimeGold
Player.SetCrimeGold PCCrimeGold
Set SECrime.EnteredSECowlOn to 0
EndIf
EndIf
EndIf
End |
ScriptName TGGrayCowlScript
Float GFCrimeGold
Float GFInfamy
Float GFFame
Float PCCrimeGold
Float PlayerInfamy
Float PlayerFame
Float TempCrime
Begin OnEquip Player
Set TempCrime to GetGameSetting iCrimeGoldAttackMin
If GFCrimeGold < TempCrime
Set GFCrimeGold to TempCrime
EndIf
Set PCCrimeGold to Player.GetCrimeGold
Player.SetCrimeGold GFCrimeGold
Set PlayerFame to GetPCFame
SetPCFame GFFame
If GFInfamy < 100
Set GFInfamy to 100
EndIf
Set PlayerInfamy to GetPCInfamy
SetPCInfamy GFInfamy
End
Begin OnUnequip Player
Set GFCrimeGold to Player.GetCrimeGold
Player.SetCrimeGold PCCrimeGold
Set GFFame to GetPCFame
SetPCFame PlayerFame
Set GFInfamy to GetPCInfamy
SetPCInfamy PlayerInfamy
End
|