Mod Tool/Scripting: Difference between revisions

Mod Tool/Scripting (view source)

Revision as of 06:14, 5 March 2015

1,284 bytes added , 5 March 2015

PPG stuff

Paradox-01

8,452

edits

@@ Line 60: / Line 60: @@
-===read registry===
+===Read registry===
 Mod Tool (because 32-bit) fails to execute following code properly on 64-bit operation systems. So the code must be build as 64-bit '''and''' 32-bit application.
   Set WshShell = CreateObject("WScript.Shell")
@@ Line 452: / Line 452: @@
   	'qW = ... * -1
   'set qRotation = XSIMath.CreateQuaternion (qW, qX, qY, qZ)
+===Property Page===
+====Detect a PPG====
+ set oRoot = ActiveProject.ActiveScene.Root
+ if typename(oRoot.Properties("my_PPG")) = "Nothing" then
+ 	logmessage "couldn't find my_PPG"
+ else
+ 	logmessage "found my_PPG"
+ end if
+====Build a PPG====
+ 	' general PPG setup
+ 	set oPSet = ActiveSceneRoot.AddProperty("CustomProperty", false, "my_PPG")
+ 	set oPPGLayout = oPSet.PPGLayout
+ 	' PPG content
+ 	' [...]
+ 	' open PPG
+ 	InspectObj oPSet
+====PPG content====
+=====Droplist=====
+ 	oPSet.AddParameter3 "Team", siString, 0
+ 	aListTeams = Array(	"Konoko", 0, _
+ 						"TCTF", 1, _
+ 						"Syndicate", 2, _
+ 						"Neutral", 3, _
+ 						"SecurityGuard", 4, _
+ 						"RogueKonoko", 5, _
+ 						"Switzerland (is melee-immune)", 6, _
+ 						"SyndicateAccessory", 7 )
+ 	oPPGLayout.AddEnumControl "Team", aListTeams, "", siControlCombo
+=====Radio options=====
+ 	oPSet.AddParameter3 "Team", siString, 0
+ 	aListTeams = Array(	"Konoko", 0, _
+ 						"TCTF", 1, _
+ 						"Syndicate", 2, _
+ 						"Neutral", 3, _
+ 						"SecurityGuard", 4, _
+ 						"RogueKonoko", 5, _
+ 						"Switzerland (is melee-immune)", 6, _
+ 						"SyndicateAccessory", 7 )
+ 	oPPGLayout.AddEnumControl "Team", aListTeams, "", siControlRadio
+=====Spacer=====
+ 	' AddSpacer( [Width], [Height] )
+ 	oPPGLayout.AddSpacer 25
 [[Category:Windows-only modding tools]]