Advertisement
Guest User

Untitled

a guest
May 9th, 2015
348
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.03 KB | None | 0 0
  1. ;-COMPATIBILITY CHECK
  2. ;-adapts our properties based on which
  3. ;-DLCs are loaded, if any
  4. Function DLCCheck()
  5. If Game.GetModByName("Dawnguard.esm") != 255
  6. BranHusky_A = Game.GetFormFromFile(0x0201AA7B,"Dawnguard.esm") As Actor
  7. CusithDeathHound_A = Game.GetFormFromFile(0x0201AA7A,"Dawnguard.esm") As Actor
  8. GarmrDeathHound_A = Game.GetFormFromFile(0x0201AA79,"Dawnguard.esm") As Actor
  9. Agmaer_A = Game.GetFormFromFile(0x00003474,"Dawnguard.esm") As Actor
  10. Beleval_A = Game.GetFormFromFile(0x00015c14,"Dawnguard.esm") As Actor
  11. Celann_A = Game.GetFormFromFile(0x00015c15,"Dawnguard.esm") As Actor
  12. Durak_A = Game.GetFormFromFile(0x00015c16,"Dawnguard.esm") As Actor
  13. Serana_A = Game.GetFormFromFile(0x0002b74,"Dawnguard.esm") As Actor
  14. Ingard_A = Game.GetFormFromFile(0x00015c17,"Dawnguard.esm") As Actor
  15. SceolangHusky_A = Game.GetFormFromFile(0x001aa7c,"Dawnguard.esm") As Actor
  16. UniversalTrace("Null", False, "Null", False, "Dawnguard.esm found, filling followers", True)
  17. Elseif Game.GetModByName("Dawnguard.esm") == 255
  18. Agmaer_A = NONE
  19. Beleval_A = NONE
  20. Celann_A = NONE
  21. Durak_A = NONE
  22. Serana_A = NONE
  23. Ingard_A = NONE
  24. BranHusky_A = NONE
  25. CusithDeathHound_A = NONE
  26. GarmrDeathHound_A = NONE
  27. SceolangHusky_A = NONE
  28. UniversalTrace("Null", False, "Null", False, "Dawnguard.esm Not Found; Followers not filled", True)
  29. Endif
  30.  
  31. If Game.GetModByName("Hearthfires.esm") != 255
  32. Rayya_A = Game.GetFormFromFile(0x00005216,"Hearthfires.esm") As Actor
  33. Valdimar_A = Game.GetFormFromFile(0x0000521d,"Hearthfires.esm") As Actor
  34. Gregor_A = Game.GetFormFromFile(0x0000521f,"Hearthfires.esm") As Actor
  35. UniversalTrace("Null", False, "Null", False, "Hearthfires.esm found, filling followers", True)
  36. Elseif Game.GetModByName("Hearthfires.esm") == 255
  37. Rayya_A = NONE
  38. Valdimar_A = NONE
  39. Gregor_A = NONE
  40. UniversalTrace("Null", False, "Null", False, "Heartfires.esm Not Found; Followers not filled", True)
  41. Endif
  42.  
  43. If Game.GetModByName("Dragonborn.esm") != 255
  44. Teldryn_Sero_A = Game.GetFormFromFile(0x02038565,"Dragonborn.esm") As Actor
  45. Frea_A = Game.GetFormFromFile(0x00017a0d,"Dragonborn.esm") As Actor
  46. Talvas_A = Game.GetFormFromFile(0x000177DB,"Dragonborn.esm") As Actor
  47. UniversalTrace("Null", False, "Null", False, "Dragonborn.esm found, filling followers", True)
  48. Elseif Game.GetModByName("Dragonborn.esm") == 255
  49. Frea_A = NONE
  50. Talvas_A = NONE
  51. Teldryn_Sero_A = NONE
  52. UniversalTrace("Null", False, "Null", False, "Dragonborn.esm Not Found; Followers not filled", True)
  53. Endif
  54.  
  55. If IsGlobalTarget(BulwarkFSK_G, 1)
  56. If IsDLCPresent()
  57. Int DLCIndex = 0
  58. Int LocatedFollowers = 0
  59. While DLCIndex < 11
  60. If TeamMatesDLC[DLCIndex] != NONE
  61. If TeamMatesDLC[DLCIndex].IsPlayerTeamMate()
  62. TeamMatesDLCG[DLCIndex].SetValue(2)
  63. Endif
  64. LocatedFollowers = LocatedFollowers+1
  65. Endif
  66. DLCIndex = DLCIndex+1
  67. EndWhile
  68. UniversalTrace("Null", False, "Null", False, "DLC Followers Located " +LocatedFollowers +" out of 12.", True)
  69. Endif
  70. Endif
  71. Return
  72. EndFunction
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement