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
|