API tools faq
paste
Advertisement
expired6978

SKSETest V3

expired6978
May 29th, 2012
120
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.76 KB | None | 0 0
raw download clone embed print report
  1. Scriptname SKSETest extends ActiveMagicEffect
  2.  
  3. ; Define Source form properties here, apply as parameter to "TestForm"
  4.  
  5. Event OnEffectStart(Actor akTarget, Actor akCaster)
  6. ; Names of tested classes
  7. string[] testNames = new string[10]
  8. testNames[0] = "PapyrusSKSE"
  9. testNames[1] = (Self as SKSETest_Actor).ClassName()
  10. testNames[2] = (Self as SKSETest_ActorBase).ClassName()
  11. testNames[3] = (Self as SKSETest_Outfit).ClassName()
  12. testNames[4] = (Self as SKSETest_ColorForm).ClassName()
  13. testNames[5] = (Self as SKSETest_Race).ClassName()
  14. testNames[6] = (Self as SKSETest_Quest).ClassName()
  15. testNames[7] = (Self as SKSETest_CombatStyle).ClassName()
  16. testNames[8] = (Self as SKSETest_Alias).ClassName()
  17. testNames[9] = (Self as SKSETest_HeadPart).ClassName()
  18.  
  19. ; Total Number of tested functions
  20. int[] functions = new int[10]
  21. functions[0] = 4
  22. functions[1] = (Self as SKSETest_Actor).TotalFunctions()
  23. functions[2] = (Self as SKSETest_ActorBase).TotalFunctions()
  24. functions[3] = (Self as SKSETest_Outfit).TotalFunctions()
  25. functions[4] = (Self as SKSETest_ColorForm).TotalFunctions()
  26. functions[5] = (Self as SKSETest_Race).TotalFunctions()
  27. functions[6] = (Self as SKSETest_Quest).TotalFunctions()
  28. functions[7] = (Self as SKSETest_CombatStyle).TotalFunctions()
  29. functions[8] = (Self as SKSETest_Alias).TotalFunctions()
  30. functions[9] = (Self as SKSETest_HeadPart).TotalFunctions()
  31.  
  32. ; Number of functions that succeeded in comparison
  33. int[] successes = new int[10]
  34. successes[0] = Test_SKSE()
  35. successes[1] = (Self as SKSETest_Actor).TestForm(akTarget)
  36. successes[2] = (Self as SKSETest_ActorBase).TestForm(akTarget.GetActorBase())
  37. successes[3] = (Self as SKSETest_Outfit).TestForm(akTarget.GetActorBase().GetOutfit())
  38. successes[4] = (Self as SKSETest_ColorForm).TestForm(akTarget.GetActorBase().GetHairColor())
  39. successes[5] = (Self as SKSETest_Race).TestForm(akTarget.GetActorBase().GetRace())
  40. Quest courierQuest = Quest.GetQuest("WICourier")
  41. successes[6] = (Self as SKSETest_Quest).TestForm(courierQuest)
  42. successes[7] = (Self as SKSETest_CombatStyle).TestForm(akTarget.GetActorBase().GetCombatStyle())
  43. successes[8] = (Self as SKSETest_Alias).TestAlias(courierQuest.GetNthAlias(0))
  44. successes[9] = (Self as SKSETest_HeadPart).TestForm(akTarget.GetActorBase().GetNthHeadPart(0))
  45.  
  46. int i = 0
  47. While i < 10
  48. Debug.Trace("Test: " + testNames[i] + " - Succeeded: " + successes[i] + " - Failed: " + (functions[i] - successes[i]) + " - Total: " + functions[i])
  49. i += 1
  50. EndWhile
  51. EndEvent
  52.  
  53. int Function Test_SKSE()
  54. ; PapyrusSKSE
  55. Debug.Trace("====== PapyrusSKSE ========")
  56. Debug.Trace("Major: " + SKSE.GetVersion())
  57. Debug.Trace("Minor: " + SKSE.GetVersionMinor())
  58. Debug.Trace("Beta: " + SKSE.GetVersionBeta())
  59. Debug.Trace("Release: " + SKSE.GetVersionRelease())
  60. return 4
  61. EndFunction
  62.  
  63. string Function ClassName()
  64. return ""
  65. EndFunction
  66.  
  67. int Function TotalFunctions()
  68. return 0
  69. EndFunction
  70.  
  71. int Function TestAlias(Alias _alias)
  72. return 0
  73. EndFunction
  74.  
  75. int Function TestForm(Form _form)
  76. return 0
  77. EndFunction
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87. Scriptname SKSETest_Outfit extends SKSETest
  88.  
  89. string Function ClassName()
  90. return "PapyrusOutfit"
  91. EndFunction
  92.  
  93. int Function TotalFunctions()
  94. return 2
  95. EndFunction
  96.  
  97. int Function TestForm(Form _form)
  98. int success = 0
  99. success += SKSEDebug.TraceInt("Outfit", "GetNumParts", (_form as Outfit).GetNumParts(), 0)
  100. success += SKSEDebug.TraceForm("Outfit", "GetNthPart", (_form as Outfit).GetNthPart(0), None)
  101. return success
  102. EndFunction
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113. Scriptname SKSETest_Alias extends SKSETest
  114.  
  115. string Function ClassName()
  116. return "PapyrusAlias"
  117. EndFunction
  118.  
  119. int Function TotalFunctions()
  120. return 2
  121. EndFunction
  122.  
  123. int Function TestAlias(Alias testAlias)
  124. int success = 0
  125. success += SKSEDebug.TraceInt("Alias", "GetID", testAlias.GetId(), 0)
  126. success += SKSEDebug.TraceString("Alias", "GetName", testAlias.GetName(), "AliasName")
  127. return success
  128. EndFunction
  129.  
  130.  
  131.  
  132.  
  133.  
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142. Scriptname SKSETest_CombatStyle extends SKSETest
  143.  
  144. string Function ClassName()
  145. return "PapyrusCombatStyle"
  146. EndFunction
  147.  
  148. int Function TotalFunctions()
  149. return 29
  150. EndFunction
  151.  
  152. int Function TestForm(Form _form)
  153. int success = 0
  154. success += SKSEDebug.TraceFloat("CombatStyle", "GetOffensiveMult", (_form as CombatStyle).GetOffensiveMult(), 0.0)
  155. success += SKSEDebug.TraceFloat("CombatStyle", "GetDefensiveMult", (_form as CombatStyle).GetDefensiveMult(), 0.0)
  156. success += SKSEDebug.TraceFloat("CombatStyle", "GetGroupOffensiveMult", (_form as CombatStyle).GetGroupOffensiveMult(), 0.0)
  157. success += SKSEDebug.TraceFloat("CombatStyle", "GetAvoidThreatChance", (_form as CombatStyle).GetAvoidThreatChance(), 0.0)
  158. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleeMult", (_form as CombatStyle).GetMeleeMult(), 0.0)
  159. success += SKSEDebug.TraceFloat("CombatStyle", "GetRangedMult", (_form as CombatStyle).GetRangedMult(), 0.0)
  160. success += SKSEDebug.TraceFloat("CombatStyle", "GetMagicMult", (_form as CombatStyle).GetMagicMult(), 0.0)
  161. success += SKSEDebug.TraceFloat("CombatStyle", "GetShoutMult", (_form as CombatStyle).GetShoutMult(), 0.0)
  162. success += SKSEDebug.TraceFloat("CombatStyle", "GetStaffMult", (_form as CombatStyle).GetStaffMult(), 0.0)
  163. success += SKSEDebug.TraceFloat("CombatStyle", "GetUnarmedMult", (_form as CombatStyle).GetUnarmedMult(), 0.0)
  164. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleeAttackStaggeredMult", (_form as CombatStyle).GetMeleeAttackStaggeredMult(), 0.0)
  165. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleePowerAttackStaggeredMult", (_form as CombatStyle).GetMeleePowerAttackStaggeredMult(), 0.0)
  166. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleePowerAttackBlockingMult", (_form as CombatStyle).GetMeleePowerAttackBlockingMult(), 0.0)
  167. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleeBashMult", (_form as CombatStyle).GetMeleeBashMult(), 0.0)
  168. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleeBashRecoiledMult", (_form as CombatStyle).GetMeleeBashRecoiledMult(), 0.0)
  169. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleeBashAttackMult", (_form as CombatStyle).GetMeleeBashAttackMult(), 0.0)
  170. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleeBashPowerAttackMult", (_form as CombatStyle).GetMeleeBashPowerAttackMult(), 0.0)
  171. success += SKSEDebug.TraceFloat("CombatStyle", "GetMeleeSpecialAttackMult", (_form as CombatStyle).GetMeleeSpecialAttackMult(), 0.0)
  172. success += SKSEDebug.TraceFloat("CombatStyle", "GetCloseRangeDuelingCircleMult", (_form as CombatStyle).GetCloseRangeDuelingCircleMult(), 0.0)
  173. success += SKSEDebug.TraceFloat("CombatStyle", "GetCloseRangeDuelingFallbackMult", (_form as CombatStyle).GetCloseRangeDuelingFallbackMult(), 0.0)
  174. success += SKSEDebug.TraceFloat("CombatStyle", "GetCloseRangeFlankingFlankDistance", (_form as CombatStyle).GetCloseRangeFlankingFlankDistance(), 0.0)
  175. success += SKSEDebug.TraceFloat("CombatStyle", "GetCloseRangeFlankingStalkTime", (_form as CombatStyle).GetCloseRangeFlankingStalkTime(), 0.0)
  176. success += SKSEDebug.TraceFloat("CombatStyle", "GetLongRangeStrafeMult", (_form as CombatStyle).GetLongRangeStrafeMult(), 0.0)
  177. success += SKSEDebug.TraceFloat("CombatStyle", "GetFlightHoverChance", (_form as CombatStyle).GetFlightHoverChance(), 0.0)
  178. success += SKSEDebug.TraceFloat("CombatStyle", "GetFlightDiveBombChance", (_form as CombatStyle).GetFlightDiveBombChance(), 0.0)
  179. success += SKSEDebug.TraceFloat("CombatStyle", "GetFlightFlyingAttackChance", (_form as CombatStyle).GetFlightFlyingAttackChance(), 0.0)
  180. success += SKSEDebug.TraceInt("CombatStyle", "GetAllowDualWielding", (_form as CombatStyle).GetAllowDualWielding() as Int, 0)
  181. return success
  182. EndFunction
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.  
  193.  
  194. Scriptname SKSETest_HeadPart extends SKSETest
  195.  
  196. string Function ClassName()
  197. return "PapyrusHeadPart"
  198. EndFunction
  199.  
  200. int Function TotalFunctions()
  201. return 4
  202. EndFunction
  203.  
  204. int Function TestForm(Form _form)
  205. int success = 0
  206. success += SKSEDebug.TraceInt("HeadPart", "GetType", (_form as HeadPart).GetType(), 0)
  207. success += SKSEDebug.TraceForm("HeadPart", "GetNumExtraParts", (_form as HeadPart).GetNthExtraPart(0), None)
  208. success += SKSEDebug.TraceInt("HeadPart", "GetNthExtraPart", (_form as HeadPart).GetNumExtraParts(), 0)
  209. success += SKSEDebug.TraceForm("HeadPart", "GetValidRaces", (_form as HeadPart).GetValidRaces(), None)
  210. return success
  211. EndFunction
  212.  
  213.  
  214.  
  215.  
  216.  
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223. Scriptname SKSETest_ColorForm extends SKSETest
  224.  
  225. string Function ClassName()
  226. return "PapyrusColorForm"
  227. EndFunction
  228.  
  229. int Function TotalFunctions()
  230. return 3
  231. EndFunction
  232.  
  233. int Function TestForm(Form _form)
  234. int success = 0
  235. success += SKSEDebug.TraceInt("ColorForm", "GetRed", (_form as ColorForm).GetRed(), 0)
  236. success += SKSEDebug.TraceInt("ColorForm", "GetGreen", (_form as ColorForm).GetGreen(), 0)
  237. success += SKSEDebug.TraceInt("ColorForm", "GetBlue", (_form as ColorForm).GetBlue(), 0)
  238. return success
  239. EndFunction
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251. Scriptname SKSETest_Quest extends SKSETest
  252.  
  253. string Function ClassName()
  254. return "PapyrusQuest"
  255. EndFunction
  256.  
  257. int Function TotalFunctions()
  258. return 5
  259. EndFunction
  260.  
  261. int Function TestForm(Form _form)
  262. int success = 0
  263. success += SKSEDebug.TraceString("Quest", "GetID", (_form as Quest).GetID(), "QuestId")
  264. success += SKSEDebug.TraceInt("Quest", "GetPriority", (_form as Quest).GetPriority(), 0)
  265. success += SKSEDebug.TraceInt("Quest", "GetNumAliases", (_form as Quest).GetNumAliases(), 0)
  266. success += SKSEDebug.TraceAlias("Quest", "GetNthAlias", (_form as Quest).GetNthAlias(0), None)
  267. success += SKSEDebug.TraceAlias("Quest", "GetAliasByName", (_form as Quest).GetAliasByName("AliasName"), None)
  268. return success
  269. EndFunction
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280. Scriptname SKSETest_Race extends SKSETest
  281.  
  282. string Function ClassName()
  283. return "PapyrusRace"
  284. EndFunction
  285.  
  286. int Function TotalFunctions()
  287. return 2
  288. EndFunction
  289.  
  290. int Function TestForm(Form _form)
  291. int success = 0
  292. success += SKSEDebug.TraceInt("Race", "GetSpellCount", (_form as Race).GetSpellCount(), 0)
  293. success += SKSEDebug.TraceForm("Race", "GetNthSpell", (_form as Race).GetNthSpell(0), None)
  294. return success
  295. EndFunction
  296.  
  297.  
  298.  
  299.  
  300.  
  301.  
  302.  
  303.  
  304.  
  305.  
  306. Scriptname SKSETest_Actor extends SKSETest
  307.  
  308. string Function ClassName()
  309. return "PapyrusActor"
  310. EndFunction
  311.  
  312. int Function TotalFunctions()
  313. return 3
  314. EndFunction
  315.  
  316. int Function TestForm(Form _form)
  317. int success = 0
  318. success += SKSEDebug.TraceForm("Actor", "GetWornForm", (_form as Actor).GetWornForm(0x00000004), None)
  319. success += SKSEDebug.TraceInt("Actor", "GetSpellCount", (_form as Actor).GetSpellCount(), 0)
  320. success += SKSEDebug.TraceForm("Actor", "GetNthSpell", (_form as Actor).GetNthSpell(0), None)
  321. return success
  322. EndFunction
  323.  
  324.  
  325.  
  326.  
  327.  
  328.  
  329.  
  330.  
  331.  
  332.  
  333. Scriptname SKSETest_ActorBase extends SKSETest
  334.  
  335. string Function ClassName()
  336. return "PapyrusActorBase"
  337. EndFunction
  338.  
  339. int Function TotalFunctions()
  340. return 11
  341. EndFunction
  342.  
  343. int Function TestForm(Form _form)
  344. int success = 0
  345. success += SKSEDebug.TraceFloat("ActorBase", "GetWeight", (_form as ActorBase).GetWeight(), 0.0)
  346. success += SKSEDebug.TraceForm("ActorBase", "GetCombatStyle", (_form as ActorBase).GetCombatStyle(), None)
  347. success += SKSEDebug.TraceForm("ActorBase", "GetOutfit", (_form as ActorBase).GetOutfit(false), None)
  348. success += SKSEDebug.TraceInt("ActorBase", "GetNumHeadParts", (_form as ActorBase).GetNumHeadParts(), 0)
  349. success += SKSEDebug.TraceForm("ActorBase", "GetNthHeadPart", (_form as ActorBase).GetNthHeadPart(0), None)
  350. success += SKSEDebug.TraceFloat("ActorBase", "GetFaceMorph", (_form as ActorBase).GetFaceMorph(0), 0.0)
  351. success += SKSEDebug.TraceInt("ActorBase", "GetFacePreset", (_form as ActorBase).GetFacePreset(0), 0)
  352. success += SKSEDebug.TraceForm("ActorBase", "GetHairColor", (_form as ActorBase).GetHairColor(), None)
  353. success += SKSEDebug.TraceInt("ActorBase", "GetSpellCount", (_form as ActorBase).GetSpellCount(), 0)
  354. success += SKSEDebug.TraceForm("ActorBase", "GetNthSpell", (_form as ActorBase).GetNthSpell(0), None)
  355. return success
  356. EndFunction
  357.  
  358.  
  359.  
  360.  
  361.  
  362.  
  363.  
  364.  
  365. Scriptname SKSEDebug Hidden
  366.  
  367. int Function TraceInt(string _class, string _id, int expected, int received) native global
  368. int Function TraceFloat(string _class, string _id, float expected, float received) native global
  369. int Function TraceForm(string _class, string _id, Form expected, Form received) native global
  370. int Function TraceString(string _class, string _id, string expected, string received) native global
  371. int Function TraceAlias(string _class, string _id, Alias expected, Alias received) native global
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!