API tools faq
paste
Guest User

Untitled

a guest
Aug 29th, 2018
208
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 33.26 KB | None | 0 0
raw download clone embed print report
  1. ScriptName _DA_Skyship_MCM_ConfigMenu_v1 Extends SKI_ConfigBase
  2.  
  3. Import Game
  4. Import Input
  5. Import Form
  6. Import Utility
  7. Import Sound
  8. Import Debug
  9. Import Math
  10.  
  11. ObjectReference Property rSkyship_Hatch_Full Auto
  12. ObjectReference Property rSkyship_Hatch_Alternate Auto
  13. ObjectReference Property rSkyship_Hatch_Original Auto
  14. ObjectReference Property rSkyship_Stopped_Armed Auto
  15. ObjectReference Property rSkyship_Static_Armed Auto
  16. ObjectReference Property rSKyship_Static_Dark Auto
  17. ObjectReference Property rSKyship_Static_Original Auto
  18.  
  19. TextureSet Property _DA_Hull_TEX Auto
  20. TextureSet Property _DA_Frame_TEX Auto
  21. TextureSet Property _DA_Metal_TEX Auto
  22. TextureSet Property _DA_Sail_TEX Auto
  23. TextureSet Property _DA_Rope_TEX Auto
  24. TextureSet Property _DA_Rig_TEX Auto
  25.  
  26. _DA_Skyship_v1 Property rSkyShip Auto
  27. Location Property DevAvezaLocation Auto
  28. WorldSpace Property DevAvezaWorld Auto
  29. Form DA_Loc_Form
  30. FormList BetterVampiresExceptionList
  31. int DA_Loc_FormID
  32. ;Form Property DA_Loc_Form Auto Hidden
  33.  
  34. ; OIDs
  35.  
  36. ; Flight Modes
  37. int aOID_f ; Attached to Ship
  38. int bOID_f ; Movable on Deck
  39.  
  40. ; Key Maps
  41. int aOID_k ; Up
  42. int bOID_k ; Down
  43. int cOID_k ; Forward
  44. int dOID_k ; Backward
  45. int eOID_k ; Left
  46. int fOID_k ; Right
  47. int gOID_k ; Strafe Left
  48. int hOID_k ; Strafe Right
  49. int iOID_k ; Stop
  50. int jOID_k ; Exit
  51. int kOID_k ; Cruise
  52.  
  53. ; Parameters
  54. int aOID_s ; Mass
  55. int bOID_s ; Upward Power
  56. int cOID_s ; Downward Power
  57. int dOID_s ; Forward Power
  58. int eOID_s ; Backward Power
  59. int fOID_s ; Turn Power
  60. int gOID_s ; Strafe Power
  61.  
  62. ; Reset
  63. int aOID_t ; Reset ship functions
  64. int bOID_t ; Reset ship location
  65.  
  66. ; Script Toggle
  67. int cOID_t ; Player Counterbalance
  68. int dOID_t ; Debug
  69.  
  70. ; Interior Selection
  71. int eOID_t ; Full Interior
  72. int fOID_t ; Alternate Interior
  73. int gOID_t ; Original Interior
  74.  
  75. ; Exterior Selection
  76. int hOID_t ; Armed
  77. int iOID_t ; Dark
  78. int jOID_t ; Original
  79.  
  80. ; Patches
  81. int kOID_t ; Better Vampires
  82. int lOID_t ; Animated Clutter
  83.  
  84. ; Flags to electively disable functions
  85. int flags ; Disable If Flying
  86. int flags2 ; Disable If Flying or Attcahed to Ship mode is set
  87. int flags3 ; Disable If in an interior or outside ship load proximity
  88. int flags4 ; Disable If Flying or in an interior
  89. int flags5 ; Disable If Flying, in an interior, or outside of load proximity of the ship
  90. int flags6 ; Disable If Flying or ship model change script is running
  91.  
  92. ; Toggle States
  93. bool aVal = True ; Attached to ship
  94. bool bVal = False ; Movable on deck
  95. bool cVal = False ; Reset
  96. bool dVal = False ; Player counterbalance
  97. bool eVal = False ; Reset ship location
  98. bool fVAl = False ; Debug
  99. bool gVal = True ; Full Interior
  100. bool hVal = False ; Alternate Interior
  101. bool iVal = False ; Original Interior
  102. bool jVal = False ; Armed Exterior
  103. bool kVal = True ; Dark Exterior
  104. bool lVal = False ; Original Exterior
  105. bool mVal = False ; Flag check Model change
  106. bool nVal = False ; Better Vampires Patch
  107. bool oVal = False ; Animated Clutter Patch
  108. int CurrentVersion = 1
  109.  
  110.  
  111.  
  112. ; INITIALIZATION
  113. Event OnConfigInit()
  114.  
  115. Pages = new string[3]
  116. Pages[0] = "Main Configuration"
  117. Pages[1] = "Advanced"
  118. Pages[2] = "Compatibility"
  119.  
  120. Endevent
  121.  
  122. Event OnVersionUpdate(int a_version)
  123. ; a_version is the new version, CurrentVersion is the old version
  124. If (a_version >= 2 && CurrentVersion != 2)
  125. ;Debug.Notification("Dev Aveza MCM : Updating script to version 2")
  126. Pages = new string[3]
  127. Pages[0] = "Main Configuration"
  128. Pages[1] = "Advanced"
  129. Pages[2] = "Compatibility"
  130. Endif
  131.  
  132. Endevent
  133.  
  134. Event OnPageReset(String page)
  135.  
  136. Pages = new string[3]
  137. Pages[0] = "Main Configuration"
  138. Pages[1] = "Advanced"
  139. Pages[2] = "Compatibility"
  140.  
  141. If (page == "")
  142.  
  143. cVal = False
  144. ;eVal = False
  145.  
  146. LoadCustomContent("DA_Skyship/_da_title.dds", 20, 0)
  147.  
  148. Elseif (page == "Main Configuration")
  149.  
  150. UnloadCustomContent()
  151.  
  152. SetCursorFillMode(TOP_TO_BOTTOM)
  153.  
  154. AddHeaderOption("Flight Mode")
  155.  
  156. If (rSkyship.Getstate() == "Flying")
  157. flags = OPTION_FLAG_DISABLED
  158. Else
  159. flags = OPTION_FLAG_NONE
  160. Endif
  161.  
  162. aOID_f = AddToggleOption("Attached to Ship", aVal, flags) ;Attached to Ship
  163. bOID_f = AddToggleOption("Player Movable on Deck", bVal, flags) ;Movable on Deck
  164.  
  165. AddHeaderOption("Interior")
  166.  
  167. If (!rSkyship.rSkyship_Havok.Is3DLoaded() && !rSkyship.rSkyship_Stopped.Is3DLoaded())
  168. flags5 = OPTION_FLAG_DISABLED
  169. Elseif (GetPlayer().IsInInterior() || GetPlayer().IsInLocation(DevAvezaLocation) || rSkyship.Getstate() == "Flying")
  170. flags5 = OPTION_FLAG_DISABLED
  171. Else
  172. flags5 = OPTION_FLAG_NONE
  173. Endif
  174.  
  175. eOID_t = AddToggleOption("Full Interior", gVal, flags5)
  176. gOID_t = AddToggleOption("Original Interior", iVal, flags5)
  177. fOID_t = AddToggleOption("Alternate Interior", hVal, flags5)
  178.  
  179. AddHeaderOption("Exterior")
  180.  
  181. If(rSkyship.Getstate() == "Flying" || mVal == True || GetPlayer().IsInInterior() || GetPlayer().IsInLocation(DevAvezaLocation))
  182. flags6 = OPTION_FLAG_DISABLED
  183. Elseif(!rSkyship.rSkyship_Havok.Is3DLoaded() && !rSkyship.rSkyship_Stopped.Is3DLoaded())
  184. flags6 = OPTION_FLAG_DISABLED
  185. Else
  186. flags6 = OPTION_FLAG_NONE
  187. Endif
  188.  
  189. hOID_t = AddToggleOption("Armed", jVal, flags6)
  190. iOID_t = AddToggleOption("Dark", kVal, flags6)
  191. jOID_t = AddToggleOption("Original", lVal, flags6)
  192.  
  193. SetCursorPosition(1)
  194.  
  195. AddHeaderOption("Debug Functions")
  196.  
  197. If (rSkyship.Getstate() == "Flying" || aVal == True)
  198. flags2 = OPTION_FLAG_DISABLED
  199. Else
  200. flags2 = OPTION_FLAG_NONE
  201. Endif
  202.  
  203. cOID_t = AddToggleOption("Player Counterbalance", dVal, flags2)
  204. ;dOID_t = AddToggleOption("Debug", fVal)
  205.  
  206. AddHeaderOption("Reset Functions")
  207.  
  208. If (!rSkyship.rSkyship_Havok.Is3DLoaded() && !rSkyship.rSkyship_Stopped.Is3DLoaded())
  209. flags3 = OPTION_FLAG_DISABLED
  210. Elseif (GetPlayer().IsInLocation(DevAvezaLocation) || GetPlayer().IsInInterior())
  211. flags3 = OPTION_FLAG_DISABLED
  212. Else
  213. flags3 = OPTION_FLAG_NONE
  214. Endif
  215.  
  216. aOID_t = AddToggleOption("Reset", cVal, flags3)
  217.  
  218. If (GetPlayer().IsInLocation(DevAvezaLocation) || GetPlayer().IsInInterior() || rSkyship.Getstate() == "Flying")
  219. flags4 = OPTION_FLAG_DISABLED
  220. Else
  221. flags4 = OPTION_FLAG_NONE
  222. Endif
  223.  
  224. ;bOID_t = AddToggleOption("Reset Ship Location", eVal, flags4)
  225.  
  226. Elseif (page == "Advanced")
  227.  
  228. UnloadCustomContent()
  229.  
  230. SetCursorFillMode(TOP_TO_BOTTOM)
  231.  
  232. AddHeaderOption("Directional Controls")
  233.  
  234. If (rSkyship.Getstate() == "Flying")
  235. flags = OPTION_FLAG_DISABLED
  236. Else
  237. flags = OPTION_FLAG_NONE
  238. Endif
  239.  
  240. aOID_k = AddKeyMapOption("Up", rSkyship.iUp, flags)
  241. bOID_k = AddKeyMapOption("Down", rSkyship.iDown, flags)
  242. cOID_k = AddKeyMapOption("Forward", rSkyship.iforward, flags)
  243. dOID_k = AddKeymapOption("Backward", rSKyship.iBackward, flags)
  244. eOID_k = AddKeyMapOption("Turn Left", rSkyship.iLeft, flags)
  245. fOID_k = AddKeyMapOption("Turn Right", rSkyship.iRight, flags)
  246. gOID_k = AddKeyMapOption("Strafe Left", rSkyship.iStrafeLeft, flags)
  247. hOID_k = AddKeyMapOption("Strafe Right", rSkyship.iStrafeRight, flags)
  248. iOID_k = AddKeyMapOption("Hand Brake", rSkyship.iStop, flags)
  249. jOID_k = AddKeyMapOption("Dismount", rSkyship.iExit, flags)
  250. kOID_k = AddKeyMapOption("Cruise Control", rSkyship.iCruise, flags)
  251.  
  252. SetCursorPosition(1)
  253.  
  254. AddHeaderOption("Ship Parameters")
  255.  
  256. aOID_s = AddSliderOption("Ship Mass", rSkyship.fMass)
  257. bOID_s = AddSliderOption("Upward Power", rSkyship.fUpwardPower)
  258. cOID_s = AddSliderOption("Downward Power", rSkyship.fDownwardPower)
  259. dOID_s = AddSliderOption("Forward Power", rSkyship.fForwardPower)
  260. eOID_s = AddSliderOption("Backward Power", rSkyship.fBackwardPower)
  261. fOID_s = AddSliderOption("Turn Power", rSkyship.fTurnPower)
  262. gOID_s = AddSliderOption("Strafe Power", rSkyship.fStrafePower)
  263.  
  264. Elseif (Page == "Compatibility")
  265.  
  266. UnloadCustomContent()
  267.  
  268. SetCursorFillMode(TOP_TO_BOTTOM)
  269.  
  270. AddHeaderOption("Compatibility Patches")
  271.  
  272. kOID_t = AddToggleOption("Better Vampires", nVal)
  273. lOID_t = AddToggleOption("Animated Clutter", oVal)
  274.  
  275. Else
  276.  
  277. UnloadCustomContent()
  278.  
  279. Endif
  280.  
  281. Endevent
  282.  
  283. Event OnOptionSelect(int option)
  284.  
  285. If (option == dOID_t) ; Debug Data
  286.  
  287. fVal = !fVal
  288. SetToggleOptionValue(dOID_t, fVal)
  289.  
  290. If(fVal==True)
  291.  
  292. ; rSkyship.iDA_Debug = 1
  293. EnableFastTravel(false)
  294. Else
  295. EnableFastTravel(True)
  296. ; rSkyship.iDA_Debug = 0
  297.  
  298. Endif
  299.  
  300. Endif
  301.  
  302. If (option == aOID_f) ; Attached to ship
  303.  
  304. aVal = True
  305. bVal = False
  306. SetToggleOptionValue(aOID_f, aVal)
  307. SetToggleOptionValue(bOID_f, bVal)
  308. rSkyShip.iFlyMode = 0
  309. SetOptionflags(cOID_t, OPTION_FLAG_DISABLED)
  310.  
  311. Elseif (option == bOID_f) ; Move on deck
  312.  
  313. bVal = True
  314. aVal = False
  315. SetToggleOptionValue(bOID_f, bVal)
  316. SetToggleOptionValue(aOID_f, aVal)
  317. rSkyShip.iFlyMode = 1
  318. SetOptionflags(cOID_t, OPTION_FLAG_NONE)
  319.  
  320. Endif
  321.  
  322. If (option == eOID_t) ; Full Interior
  323. gVal = True
  324. hVal = False
  325. iVal = False
  326.  
  327. SetToggleOptionValue(eOID_t, gVal)
  328. SetToggleOptionValue(fOID_t, hVal)
  329. SetToggleOptionValue(gOID_t, iVal)
  330.  
  331. rSkyship.rSkyship_Hatch.Disable()
  332.  
  333. rSkyship.rSkyship_Hatch = rSkyship_Hatch_Full
  334.  
  335. If (rSkyship.iDA_Armed == 1)
  336.  
  337. rSkyShip.rSkyShip_Hatch.MoveToNode(rSkyShip.rSkyShip_Stopped, "HatchNode")
  338.  
  339. Elseif (rSkyship.iDA_Armed == 0)
  340.  
  341. rSkyShip.rSkyShip_Hatch.MoveToNode(rSkyShip.rSkyShip_Havok, "HatchNode")
  342.  
  343. Endif
  344.  
  345. rSkyShip.rSkyShip_Hatch.Enable()
  346.  
  347. Elseif (option == fOID_t) ; Alternate Interior
  348. gVal = False
  349. hVal = True
  350. iVal = False
  351.  
  352. SetToggleOptionValue(eOID_t, gVal)
  353. SetToggleOptionValue(fOID_t, hVal)
  354. SetToggleOptionValue(gOID_t, iVal)
  355.  
  356. rSkyship.rSkyship_Hatch.Disable()
  357.  
  358. rSkyship.rSkyship_Hatch = rSkyship_Hatch_Alternate
  359.  
  360. If (rSkyship.iDA_Armed == 1)
  361.  
  362. rSkyShip.rSkyShip_Hatch.MoveToNode(rSkyShip.rSkyShip_Stopped, "HatchNode")
  363.  
  364. Elseif (rSkyship.iDA_Armed == 0)
  365.  
  366. rSkyShip.rSkyShip_Hatch.MoveToNode(rSkyShip.rSkyShip_Havok, "HatchNode")
  367.  
  368. Endif
  369.  
  370. rSkyShip.rSkyShip_Hatch.Enable()
  371.  
  372. Elseif (option == gOID_t) ; Original Interior
  373. gVal = False
  374. hVal = False
  375. iVal = True
  376.  
  377. SetToggleOptionValue(eOID_t, gVal)
  378. SetToggleOptionValue(fOID_t, hVal)
  379. SetToggleOptionValue(gOID_t, iVal)
  380.  
  381. rSkyship.rSkyship_Hatch.Disable()
  382.  
  383. rSkyship.rSkyship_Hatch = rSkyship_Hatch_Original
  384.  
  385. If (rSkyship.iDA_Armed == 1)
  386.  
  387. rSkyShip.rSkyShip_Hatch.MoveToNode(rSkyShip.rSkyShip_Stopped, "HatchNode")
  388.  
  389. Elseif (rSkyship.iDA_Armed == 0)
  390.  
  391. rSkyShip.rSkyShip_Hatch.MoveToNode(rSkyShip.rSkyShip_Havok, "HatchNode")
  392.  
  393. Endif
  394.  
  395. rSkyShip.rSkyShip_Hatch.Enable()
  396.  
  397.  
  398. Endif
  399.  
  400. If (option == hOID_t) ; Armed
  401.  
  402. If(jVal == False)
  403.  
  404. jVal = True
  405. kVal = False
  406. lVal = False
  407.  
  408. SetToggleOptionValue(hOID_t, jVal)
  409. SetToggleOptionValue(iOID_t, kVal)
  410. SetToggleOptionValue(jOID_t, lVal)
  411.  
  412. mVal = True
  413.  
  414. If(mVal == True)
  415.  
  416. SetOptionFlags(hOID_t, OPTION_FLAG_DISABLED)
  417. SetOptionFlags(iOID_t, OPTION_FLAG_DISABLED)
  418. SetOptionFlags(jOID_t, OPTION_FLAG_DISABLED)
  419.  
  420. Endif
  421.  
  422. Debug.Notification("Changing Ship Model please wait...")
  423.  
  424. rSkyship.rSkyship_Wheel.Disable()
  425. rSkyship.rSkyship_Hatch.Disable()
  426. rSkyship.iDA_Armed = 1
  427.  
  428. _DA_Hull_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_wood.dds")
  429. _DA_Hull_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_wood_n.dds")
  430.  
  431. _DA_Frame_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_frame.dds")
  432. _DA_Frame_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_frame_n.dds")
  433.  
  434. _DA_Metal_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_metal.dds")
  435. _DA_Metal_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_metal_n.dds")
  436.  
  437. _DA_Sail_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_skin.dds")
  438. _DA_Sail_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_skin_n.dds")
  439.  
  440. _DA_Rope_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_rope.dds")
  441. _DA_Rope_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_rope_n.dds")
  442.  
  443. _DA_Rig_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_rig.dds")
  444. _DA_Rig_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_rig_n.dds")
  445.  
  446. rSkyship_Static_Armed.MoveTo(rSkyship.rSkyship)
  447. rSkyship_Static_Armed.Enable()
  448. rSkyship.rSkyship_Stopped.MoveTo(rSkyship.rSkyship)
  449. rSkyship.rSkyship_Stopped.Enable()
  450.  
  451. Wait(2)
  452.  
  453. While(rSkyship.rSkyship_Havok.Is3DLoaded())
  454. rSkyship.rSkyship_Havok.Disable()
  455. Endwhile
  456.  
  457. rSkyship.rSkyship_Havok = rSkyship_Static_Armed
  458.  
  459. Wait(1)
  460.  
  461. rSkyship.rSkyShip_Stopped.Enable()
  462.  
  463. rSkyship.StopShipReset()
  464.  
  465. While(rSkyship.rSkyship_Havok.Is3DLoaded())
  466. rSkyship.rSkyship_Havok.Disable()
  467. Endwhile
  468.  
  469. Wait(4)
  470.  
  471. rSkyship.rSkyship_Wheel.Enable()
  472. rSkyship.rSkyship_Hatch.Enable()
  473. mVal = False
  474. Debug.Notification("Ship Model Change Complete.")
  475.  
  476. Else
  477. Endif
  478.  
  479. Endif
  480.  
  481. If (option == iOID_t) ; Dark
  482.  
  483. If(kVAL == False)
  484.  
  485. kVal = True
  486. jVal = False
  487. lVal = False
  488.  
  489. SetToggleOptionValue(iOID_t, kVal)
  490. SetToggleOptionValue(hOID_t, jVal)
  491. SetToggleOptionValue(jOID_t, lVal)
  492.  
  493. mVal = True
  494.  
  495. If(mVal == True)
  496.  
  497. SetOptionFlags(hOID_t, OPTION_FLAG_DISABLED)
  498. SetOptionFlags(iOID_t, OPTION_FLAG_DISABLED)
  499. SetOptionFlags(jOID_t, OPTION_FLAG_DISABLED)
  500.  
  501. Endif
  502.  
  503. rSkyship.rSkyship_Wheel.Disable()
  504. rSkyship.rSkyship_Hatch.Disable()
  505. rSkyship.iDA_Armed = 0
  506.  
  507. Debug.Notification("Changing Ship Model please wait...")
  508.  
  509. _DA_Hull_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_wood.dds")
  510. _DA_Hull_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_wood_n.dds")
  511.  
  512. _DA_Frame_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_frame.dds")
  513. _DA_Frame_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_frame_n.dds")
  514.  
  515. _DA_Metal_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_metal.dds")
  516. _DA_Metal_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_metal_n.dds")
  517.  
  518. _DA_Sail_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_skin.dds")
  519. _DA_Sail_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_skin_n.dds")
  520.  
  521. _DA_Rope_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_rope.dds")
  522. _DA_Rope_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_rope_n.dds")
  523.  
  524. _DA_Rig_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Dark/as_rig.dds")
  525. _DA_Rig_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Dark/as_rig_n.dds")
  526.  
  527. rSkyship_Static_Dark.MoveTo(rSkyship.rSkyship)
  528. rSkyship_Static_Dark.Enable()
  529. Wait(2)
  530.  
  531. While(rSkyship.rSkyship_Havok.Is3DLoaded())
  532. rSkyship.rSkyship_Havok.Disable()
  533. Endwhile
  534.  
  535. While(rSkyship.rSkyship_Stopped.Is3DLoaded())
  536. rSkyship.rSkyship_Stopped.Disable()
  537. Endwhile
  538.  
  539. Wait(1)
  540.  
  541. rSkyship.rSkyship_Havok = rSkyship_Static_Dark
  542.  
  543. Wait (4)
  544.  
  545. rSkyship.rSkyship_Wheel.Enable()
  546. rSkyship.rSkyship_Hatch.Enable()
  547. mVal = False
  548. Debug.Notification("Ship Model Change Complete.")
  549.  
  550. Else
  551. Endif
  552.  
  553. Endif
  554.  
  555. If (option == jOID_t) ; Original
  556.  
  557. If(lVal == False)
  558.  
  559. lVal = True
  560. jVal = False
  561. kVal = False
  562.  
  563. SetToggleOptionValue(jOID_t, lVal)
  564. SetToggleOptionValue(hOID_t, jVal)
  565. SetToggleOptionValue(iOID_t, kVal)
  566.  
  567. mVal = True
  568.  
  569. If(mVal == True)
  570.  
  571. SetOptionFlags(hOID_t, OPTION_FLAG_DISABLED)
  572. SetOptionFlags(iOID_t, OPTION_FLAG_DISABLED)
  573. SetOptionFlags(jOID_t, OPTION_FLAG_DISABLED)
  574.  
  575. Endif
  576.  
  577. rSkyship.rSkyship_Wheel.Disable()
  578. rSkyship.rSkyship_Hatch.Disable()
  579. rSkyship.iDA_Armed = 0
  580.  
  581. Debug.Notification("Changing Ship Model please wait...")
  582.  
  583. _DA_Hull_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Original/as_wood.dds")
  584. _DA_Hull_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Original/as_wood_n.dds")
  585.  
  586. _DA_Frame_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Original/as_frameint.dds")
  587. _DA_Frame_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Original/as_frame_n.dds")
  588.  
  589. _DA_Metal_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Original/as_metal.dds")
  590. _DA_Metal_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Original/as_metal_n.dds")
  591.  
  592. _DA_Sail_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Original/as_skin.dds")
  593. _DA_Sail_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Original/as_skin_n.dds")
  594.  
  595. _DA_Rope_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Original/as_rope.dds")
  596. _DA_Rope_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Original/as_rope_n.dds")
  597.  
  598. _DA_Rig_TEX.SetNthTexturePath(0, "dungeons/ships/DA_skyship/Original/as_rig.dds")
  599. _DA_Rig_TEX.SetNthTexturePath(1, "dungeons/ships/DA_skyship/Original/as_rig_n.dds")
  600.  
  601. rSkyship_Static_Original.MoveTo(rSkyship.rSkyship)
  602. rSkyship_Static_Original.Enable()
  603.  
  604. Wait(2)
  605.  
  606. While(rSkyship.rSkyship_Havok.Is3DLoaded())
  607. rSkyship.rSkyship_Havok.Disable()
  608. Endwhile
  609.  
  610. While(rSkyship.rSkyship_Stopped.Is3DLoaded())
  611. rSkyship.rSkyship_Stopped.Disable()
  612. Endwhile
  613.  
  614. Wait(1)
  615.  
  616. rSkyship.rSkyship_Havok = rSkyship_Static_Original
  617.  
  618. Wait (4)
  619.  
  620. rSkyship.rSkyship_Wheel.Enable()
  621. rSkyship.rSkyship_Hatch.Enable()
  622. mVal = False
  623. Debug.Notification("Ship Model Change Complete.")
  624.  
  625. Else
  626. Endif
  627.  
  628. Endif
  629.  
  630. If (option == aOID_t) ; Reset
  631.  
  632. cVal = True
  633. SetToggleOptionValue(aOID_t, cVal)
  634.  
  635. If(rSkyship.rSkyship.Getstate() == "Flying")
  636.  
  637. rSkyship.rSkyShip.StopTranslation()
  638. rSkyship.rSkyShip_Havok.StopTranslation()
  639.  
  640. Endif
  641.  
  642. If(rSkyship.iFlyMode == 0)
  643.  
  644. If (rSkyship.iDA_Armed == 1)
  645.  
  646. rSkyship.rSkyship_Stopped.MoveTo(rSkyship.rSkyship)
  647. rSkyship.rSkyship_Havok.MoveTo(rSkyship.rSkyship)
  648.  
  649. While(!rSkyship.rSkyShip_Stopped.Is3DLoaded())
  650. rSkyship.rSkyShip_Stopped.Enable()
  651. Endwhile
  652.  
  653. rSkyship.StopShipReset()
  654.  
  655. While(rSkyship.rSkyShip_Havok.Is3DLoaded())
  656. rSkyship.rSkyShip_Havok.Disable()
  657. Endwhile
  658.  
  659. GetPlayer().SetVehicle(None)
  660. GetPlayer().SetAlpha(1)
  661. GetPlayer().MoveToNode(rSkyship.rSkyShip_Stopped, "PlayerNode")
  662.  
  663. Elseif (rSkyship.iDA_Armed == 0)
  664.  
  665. rSkyship.rSkyship_Havok.MoveTo(rSkyship.rSkyship)
  666.  
  667. While(!rSkyship.rSkyShip_Havok.Is3DLoaded())
  668. rSkyship.rSkyShip_Havok.Enable()
  669. Endwhile
  670.  
  671. GetPlayer().SetVehicle(None)
  672. GetPlayer().SetAlpha(1)
  673. GetPlayer().MoveToNode(rSkyship.rSkyShip_Havok, "PlayerNode")
  674.  
  675. rSkyship.StopShipReset()
  676.  
  677. Endif
  678.  
  679. Elseif(rSkyship.iFlyMode == 1)
  680.  
  681. If(rSkyship.iDASlideFix == 1)
  682. GetPlayer().StopTranslation()
  683. Endif
  684.  
  685. If(rSkyship.fDAPCFallMult != 0)
  686. SetGameSettingFloat("fJumpFallHeightMult", rSkyship.fDAPCFallMult)
  687. Endif
  688.  
  689. SetGodMode(True)
  690.  
  691. If (rSkyship.iDA_Armed == 1)
  692.  
  693. rSkyship.rSkyship_Stopped.MoveTo(rSkyship.rSkyship)
  694.  
  695. rSkyship.StopShipReset()
  696.  
  697. While(!rSkyship.rSkyShip_Stopped.Is3DLoaded())
  698. rSkyship.rSkyShip_Stopped.Enable()
  699. Endwhile
  700.  
  701. GetPlayer().MoveToNode(rSkyship.rSkyShip_Stopped, "PlayerNode")
  702.  
  703. Elseif (rSkyship.iDA_Armed == 0)
  704.  
  705. rSkyship.rSkyship_Havok.MoveTo(rSkyship.rSkyship)
  706.  
  707. rSkyship.StopShipReset()
  708.  
  709. While(!rSkyship.rSkyShip_Havok.Is3DLoaded())
  710. rSkyship.rSkyShip_Havok.Enable()
  711. Endwhile
  712.  
  713. GetPlayer().MoveToNode(rSkyship.rSkyShip_Havok, "PlayerNode")
  714.  
  715. Endif
  716.  
  717. Endif
  718.  
  719. If (rSkyship.iDA_Debug == 1)
  720.  
  721. Debug.Trace("Dev Aveza Debug Log: Player Moved to Ship via Reset Function")
  722.  
  723. Endif
  724.  
  725. SetGodMode(False)
  726.  
  727. rSkyship.Gotostate("")
  728. rSkyship.iDA_Fly = 0
  729.  
  730. Endif
  731.  
  732. If (option == bOID_t) ; Reset Ship Location
  733. eVal = !eVal
  734. SetToggleOptionValue(bOID_t, eVal)
  735.  
  736. If (eVal == True)
  737.  
  738. rSkyShip.rSkyShip.MoveTo(GetPlayer(), 500, -1000, 1600)
  739. rSkyShip.rSkyShip.SetAngle (0, 0, rSkyShip.rSkyShip.GetAngleZ())
  740.  
  741. If(rSkyship.fDAPCFallMult != 0)
  742. SetGameSettingFloat("fJumpFallHeightMult", rSkyship.fDAPCFallMult)
  743. Endif
  744.  
  745. If (rSkyship.iDA_Armed == 1)
  746.  
  747. rSkyship.rSkyship_Stopped.MoveTo(rSkyship.rSkyship)
  748.  
  749. While(!rSkyship.rSkyShip_Stopped.Is3DLoaded())
  750. rSkyship.rSkyShip_Stopped.Enable()
  751. Endwhile
  752.  
  753. rSkyship.StopShipReset()
  754.  
  755. Elseif (rSkyship.iDA_Armed == 0)
  756.  
  757. rSkyship.rSkyship_Havok.MoveTo(rSkyship.rSkyship)
  758.  
  759. While(!rSkyship.rSkyShip_Havok.Is3DLoaded())
  760. rSkyship.rSkyShip_Havok.Enable()
  761. Endwhile
  762.  
  763. rSkyship.StopShipReset()
  764.  
  765. Endif
  766.  
  767. Wait(2)
  768.  
  769. rSkyship.rSkyship_Ladder_1.Enable()
  770. rSkyship.rSkyship_Ladder_2.Enable()
  771. rSkyship.rSkyship_Ladder_3.Enable()
  772. rSkyship.rSkyship_Ladder_4.Enable()
  773. rSkyship.rSkyship_Ladder_5.Enable()
  774.  
  775. Endif
  776.  
  777. Endif
  778.  
  779. If (option == cOID_t) ; Player Counterbalance
  780.  
  781. If (dVal == False)
  782.  
  783. dVal = !dVal
  784. SetToggleOptionValue (cOID_t, dVal)
  785.  
  786. Elseif (dVal == True)
  787.  
  788. dVal = !dVal
  789. SetToggleOptionValue (cOID_t, dVal)
  790.  
  791. Endif
  792.  
  793. Endif
  794.  
  795. If (option == kOID_t)
  796.  
  797. DA_Loc_FormID = DevAvezaWorld.GetFormID()
  798. DA_Loc_Form = GetForm(DA_Loc_FormID)
  799. BetterVampiresExceptionList = GetFormFromFile(0x000969, "Update.esm") As FormList
  800.  
  801. nVal = !nVal
  802. SetToggleOptionValue(kOID_t, nVal)
  803.  
  804. If (nVal == True)
  805.  
  806. If (!BetterVampiresExceptionList.HasForm(DA_Loc_Form))
  807.  
  808. If (BetterVampiresExceptionList)
  809.  
  810. BetterVampiresExceptionList.AddForm(DA_Loc_Form)
  811.  
  812. Endif
  813.  
  814. Endif
  815.  
  816. Elseif (nVal == False)
  817.  
  818. If (BetterVampiresExceptionList.HasForm(DA_Loc_Form))
  819.  
  820. If (BetterVampiresExceptionList)
  821.  
  822. BetterVampiresExceptionList.RemoveAddedForm(DA_Loc_Form)
  823.  
  824. Endif
  825.  
  826. Endif
  827.  
  828. Endif
  829.  
  830. Endif
  831.  
  832. If (option == lOID_t)
  833.  
  834. oVal = !oVal
  835. SetToggleOptionValue(lOID_t, oVal)
  836.  
  837. If (oVal == True)
  838.  
  839. rSkyship.iDA_Anim = 1
  840. Elseif (oVal == False)
  841.  
  842. rSkyship.iDA_Anim = 0
  843. Endif
  844.  
  845. Endif
  846.  
  847. If (dVal == True && bVal == True)
  848.  
  849. rSkyship.iDASlideFix = 1
  850.  
  851. Else
  852.  
  853. rSkyship.iDASlideFix = 0
  854.  
  855. Endif
  856.  
  857. Endevent
  858.  
  859. Event OnOptionSliderOpen (int option)
  860.  
  861. If (option == aOID_s);Mass
  862.  
  863. SetSliderDialogStartValue (rSkyship.fMass)
  864. SetSliderDialogDefaultValue (8000)
  865. SetSliderDialogRange (4000, 16000)
  866. SetSliderDialogInterval (100)
  867.  
  868. Elseif (option == bOID_s);Up
  869.  
  870. SetSliderDialogStartValue (rSkyship.fUpwardpower)
  871. SetSliderDialogDefaultValue (4500)
  872. SetSliderDialogRange (2200, 9000)
  873. SetSliderDialogInterval (100)
  874.  
  875. Elseif (option == cOID_s);Down
  876.  
  877. SetSliderDialogStartValue (rSkyship.fDownwardpower)
  878. SetSliderDialogDefaultValue (4000)
  879. SetSliderDialogRange (2000, 8000)
  880. SetSliderDialogInterval (100)
  881.  
  882. Elseif (option == dOID_s);Forward
  883.  
  884. SetSliderDialogStartValue (rSkyship.fForwardpower)
  885. SetSliderDialogDefaultValue (15000)
  886. SetSliderDialogRange (7500, 30000)
  887. SetSliderDialogInterval (100)
  888.  
  889. Elseif (option == eOID_s);Backward
  890.  
  891. SetSliderDialogStartValue (rSkyship.fBackwardpower)
  892. SetSliderDialogDefaultValue (10000)
  893. SetSliderDialogRange (5000, 20000)
  894. SetSliderDialogInterval (100)
  895.  
  896. Elseif (option == fOID_s);Turn
  897.  
  898. SetSliderDialogStartValue (rSkyship.fTurnpower)
  899. SetSliderDialogDefaultValue (100000)
  900. SetSliderDialogRange (50000, 200000)
  901. SetSliderDialogInterval (100)
  902.  
  903. Elseif (option == gOID_s);Strafe
  904.  
  905. SetSliderDialogStartValue (rSkyship.fStrafepower)
  906. SetSliderDialogDefaultValue (2000)
  907. SetSliderDialogRange (1000, 4000)
  908. SetSliderDialogInterval (100)
  909.  
  910. Endif
  911.  
  912. Endevent
  913.  
  914. Event OnOptionSliderAccept (int option, float value)
  915.  
  916. If (rSkyship.Getstate() == "Flying")
  917.  
  918. Else
  919.  
  920. If (option == aOID_s)
  921.  
  922. rSkyship.fMass = Value
  923. SetSliderOptionValue (aOID_s, rSkyship.fMass)
  924.  
  925. Elseif (option == bOID_s)
  926.  
  927. rSkyship.fUpwardpower = Value
  928. SetSliderOptionValue (bOID_s, rSkyship.fUpwardpower)
  929.  
  930. Elseif (option == cOID_s)
  931.  
  932. rSkyship.fDownwardpower = Value
  933. SetSliderOptionValue (cOID_s, rSkyship.fDownwardpower)
  934.  
  935. Elseif (option == dOID_s)
  936.  
  937. rSkyship.fForwardpower = Value
  938. SetSliderOptionValue (dOID_s, rSkyship.fForwardpower)
  939.  
  940. Elseif (option == eOID_s)
  941.  
  942. rSkyship.fBackwardpower = Value
  943. SetSliderOptionValue (eOID_s, rSkyship.fBackwardpower)
  944.  
  945. Elseif (option == fOID_s)
  946.  
  947. rSkyship.fTurnpower = Value
  948. SetSliderOptionValue (fOID_s, rSkyship.fTurnpower)
  949.  
  950. Elseif (option == gOID_s)
  951.  
  952. rSkyship.fStrafepower = Value
  953. SetSliderOptionValue (gOID_s, rSkyship.fStrafepower)
  954.  
  955. Endif
  956.  
  957. Endif
  958.  
  959. Endevent
  960.  
  961. Event OnOptionKeyMapChange (int option, int KeyCode, string conflictControl, string conflictName)
  962.  
  963. If (option == aOID_k)
  964.  
  965. rSkyship.iUp = KeyCode
  966. SetKeyMapOptionValue (aOID_k, rSkyship.iUp)
  967.  
  968. Elseif (option == bOID_k)
  969.  
  970. rSkyship.iDown = KeyCode
  971. SetKeyMapOptionValue (bOID_k, rSkyship.iDown)
  972.  
  973. Elseif (option == cOID_k)
  974.  
  975. rSkyship.iForward = KeyCode
  976. SetKeyMapOptionValue (cOID_k, rSkyship.iForward)
  977.  
  978. Elseif (option == dOID_k)
  979.  
  980. rSkyship.iBackward = KeyCode
  981. SetKeyMapOptionValue (dOID_k, rSkyship.iBackward)
  982.  
  983. Elseif (option == eOID_k)
  984.  
  985. rSkyship.iLeft = KeyCode
  986. SetKeyMapOptionValue (eOID_k, rSkyship.iLeft)
  987.  
  988. Elseif (option == fOID_k)
  989.  
  990. rSkyship.iRight = KeyCode
  991. SetKeyMapOptionValue (fOID_k, rSkyship.iRight)
  992.  
  993. Elseif (option == gOID_k)
  994.  
  995. rSkyship.iStrafeLeft = KeyCode
  996. SetKeyMapOptionValue (gOID_k, rSkyship.iStrafeLeft)
  997.  
  998. Elseif (option == hOID_k)
  999.  
  1000. rSkyship.iStrafeRight = KeyCode
  1001. SetKeyMapOptionValue (hOID_k, rSkyship.iStrafeRight)
  1002.  
  1003. Elseif (option == iOID_k)
  1004.  
  1005. rSkyship.iStop = KeyCode
  1006. SetKeyMapOptionValue (iOID_k, rSkyship.iStop)
  1007.  
  1008. Elseif (option == jOID_k)
  1009.  
  1010. rSkyship.iExit = KeyCode
  1011. SetKeyMapOptionValue (jOID_k, rSkyship.iExit)
  1012.  
  1013. Elseif (option == kOID_k)
  1014.  
  1015. rSkyship.iCruise = KeyCode
  1016. SetKeyMapOptionValue (kOID_k, rSkyship.iCruise)
  1017.  
  1018. Endif
  1019.  
  1020. Endevent
  1021.  
  1022. Event OnOptionHighlight(int option)
  1023.  
  1024. If (option == aOID_f)
  1025. SetInfoText ("This option attaches the player to the ship for direct control")
  1026. Elseif (option == bOID_f)
  1027. SetInfoText ("This option allows the player to control the ship While remaining movable on the deck of the ship")
  1028.  
  1029. Elseif (option == aOID_k)
  1030. SetInfoText ("Sets a custom key for Upward Movement")
  1031. Elseif (option == bOID_k)
  1032. SetInfoText ("Sets a custom key for Downward Movement")
  1033. Elseif (option == cOID_k)
  1034. SetInfoText ("Sets a custom key for Forward Movement")
  1035. Elseif (option == dOID_k)
  1036. SetInfoText ("Sets a custom key for Reverse Movement")
  1037. Elseif (option == eOID_k)
  1038. SetInfoText ("Sets a custom key for Left Turning")
  1039. Elseif (option == fOID_k)
  1040. SetInfoText ("Sets a custom key for Right Turning")
  1041. Elseif (option == gOID_k)
  1042. SetInfoText ("Sets a custom key for Left Strafing")
  1043. Elseif (option == hOID_k)
  1044. SetInfoText ("Sets a custom key for Right Strafing")
  1045. Elseif (option == iOID_k)
  1046. SetInfoText ("Sets a custom key for applying the Brake to Slow the Ship")
  1047. Elseif (option == jOID_k)
  1048. SetInfoText ("Sets a custom key for Ending the Flight Instance")
  1049. Elseif (option == kOID_k)
  1050. SetInfoText ("Sets a custom key for Cruise Control")
  1051.  
  1052. Elseif (option == aOID_s)
  1053. SetInfoText ("Adjusts the ship Mass which will effect acceleration and overall speed")
  1054. Elseif (option == bOID_s)
  1055. SetInfoText ("Adjusts the speed of Upward Movement")
  1056. Elseif (option == cOID_s)
  1057. SetInfoText ("Adjusts the speed of Downward Movement")
  1058. Elseif (option == dOID_s)
  1059. SetInfoText ("Adjusts the speed of Forward Movement")
  1060. Elseif (option == eOID_s)
  1061. SetInfoText ("Adjusts the speed of Reverse Movement")
  1062. Elseif (option == fOID_s)
  1063. SetInfoText ("Adjusts the speed of Turning")
  1064. Elseif (option == gOID_s)
  1065. SetInfoText ("Adjusts the speed of Strafing")
  1066.  
  1067. Elseif (option == aOID_t)
  1068. SetInfoText ("Rests the basic Ship functions and controls, close ESC menu after activating to affect change.")
  1069. Elseif (option == bOID_t)
  1070. SetInfoText ("Positions the ship above you with the ladder down, for use in emergencies, use in inappropriate places may have undesired results.")
  1071. Elseif (option == cOID_t)
  1072. SetInfoText ("Enables or Disables Player Counterbalance Scripts, Default: Disabled")
  1073. Elseif (option == dOID_t)
  1074. SetInfoText ("Script Debug Tool, Papyrus logging must be enabled")
  1075. Elseif (option == eOID_t)
  1076. SetInfoText ("Set Interior to Full Interior")
  1077. Elseif (option == fOID_t)
  1078. SetInfoText ("Set Interior to Alternate Interior")
  1079. Elseif (option == gOID_t)
  1080. SetInfoText ("Set Interior to Original Interior")
  1081. Elseif (option == hOID_t)
  1082. SetInfoText ("Set Hull Model to Armed : (Still in Alpha)")
  1083. Elseif (option == iOID_t)
  1084. SetInfoText ("Set Hull Model to Dark Version")
  1085. Elseif (option == jOID_t)
  1086. SetInfoText ("Set Hull Model to Original Version")
  1087. Elseif (option == kOID_t)
  1088. SetInfoText ("Adds Full cabin to Sun Damage Exception list on Update.esm")
  1089. Elseif (option == lOID_t)
  1090. SetInfoText ("Sets a delay on hatch transition for animated hatches")
  1091. Endif
  1092.  
  1093. Endevent
  1094.  
  1095. Event OnOptionDefault (int option)
  1096.  
  1097. If (option == aOID_f)
  1098.  
  1099. aVal = !aVal
  1100. bVal = !bVal
  1101. SetToggleOptionValue (aOID_f, aVal)
  1102. SetToggleOptionValue (bOID_f, bVal)
  1103. rSkyShip.iFlyMode = 0
  1104.  
  1105. Elseif (option == bOID_f)
  1106.  
  1107. aVal = !aVal
  1108. bVal = !bVal
  1109. SetToggleOptionValue (aOID_f, aVal)
  1110. SetToggleOptionValue (bOID_f, bVal)
  1111. rSkyShip.iFlyMode = 0
  1112.  
  1113. Elseif (option == aOID_k)
  1114.  
  1115. rSkyship.iUp = 0x36
  1116. SetKeyMapOptionValue (aOID_k, rSkyship.iUp)
  1117.  
  1118. Elseif (option == bOID_k)
  1119.  
  1120. rSkyship.iDown = 0x9D
  1121. SetKeyMapOptionValue (bOID_k, rSkyship.iDown)
  1122.  
  1123. Elseif (option == cOID_k)
  1124.  
  1125. rSkyship.iForward = 0xC8
  1126. SetKeyMapOptionValue (cOID_k, rSkyship.iForward)
  1127.  
  1128. Elseif (option == dOID_k)
  1129.  
  1130. rSkyship.iBackward = 0xD0
  1131. SetKeyMapOptionValue (dOID_k, rSkyship.iBackward)
  1132.  
  1133. Elseif (option == eOID_k)
  1134.  
  1135. rSkyship.iLeft = 0xCB
  1136. SetKeyMapOptionValue (eOID_k, rSkyship.iLeft)
  1137.  
  1138. Elseif (option == fOID_k)
  1139.  
  1140. rSkyship.iRight = 0xCD
  1141. SetKeyMapOptionValue (fOID_k, rSkyship.iRight)
  1142.  
  1143. Elseif (option == gOID_k)
  1144.  
  1145. rSkyship.iStrafeLeft = 0xD3
  1146. SetKeyMapOptionValue (gOID_k, rSkyship.iStrafeLeft)
  1147.  
  1148. Elseif (option == hOID_k)
  1149.  
  1150. rSkyship.iStrafeRight = 0xD1
  1151. SetKeyMapOptionValue (hOID_k, rSkyship.iStrafeRight)
  1152.  
  1153. Elseif (option == iOID_k)
  1154.  
  1155. rSkyship.iStop = 0x52
  1156. SetKeyMapOptionValue (iOID_k, rSkyship.iStop)
  1157.  
  1158. Elseif (option == jOID_k)
  1159.  
  1160. rSkyship.iExit = 0x1C
  1161. SetKeyMapOptionValue (jOID_k, rSkyship.iExit)
  1162.  
  1163. Elseif (option == kOID_k)
  1164.  
  1165. rSkyship.iCruise = 0xC7
  1166. SetKeyMapOptionValue (kOID_k, rSkyship.iCruise)
  1167.  
  1168. Elseif (option == aOID_s || option == bOID_s || option == cOID_s || option == dOID_s || option == eOID_s || option == fOID_s || option == gOID_s)
  1169.  
  1170. Debug.MessageBox("Reset sliders with the slider reset option")
  1171.  
  1172. Elseif (option == aOID_t)
  1173. ;Reset Function
  1174. Elseif (option == bOID_t)
  1175. ;Reset Function
  1176. Elseif (option == cOID_t)
  1177.  
  1178. If (dVal == True)
  1179.  
  1180. dVal = !dVal
  1181. SetToggleOptionValue (cOID_t, dVal)
  1182. rSkyship.iDASlideFix = 0
  1183.  
  1184. Endif
  1185.  
  1186.  
  1187. Elseif (option == dOID_t)
  1188. ;Debug Function
  1189. Endif
  1190.  
  1191. Endevent
  1192.  
  1193. ;Event OnActivate(rSkyship.rSkyship)
  1194. ;RegisterForMenu("MapMenu")
  1195. ;Endevent
  1196.  
  1197.  
  1198. ;Event OnMenuOpen(String MenuName)
  1199.  
  1200. ; If (rSkyship.Getstate() == "Flying")
  1201.  
  1202. ; If Game.IsFastTravelEnabled() == True && rSkyship.iDA_Fly == 1 && rSkyship.bFastTravel == True
  1203. ; Game.EnableFastTravel(false)
  1204. ; Else
  1205. ; Endif
  1206.  
  1207. ; Else
  1208. ; Endif
  1209.  
  1210. ;Endevent
  1211.  
  1212. ;Event OnMenuClose(String MenuName)
  1213.  
  1214. ; If (rSkyship.Getstate() == "Flying")
  1215.  
  1216. ; If Game.IsFastTravelEnabled() == False && rSkyship.iDA_Fly == 0 && rSkyship.bFastTravel == True
  1217. ; Game.EnableFastTravel()
  1218. ; Else
  1219. ; Endif
  1220.  
  1221. ; Else
  1222. ; Endif
  1223.  
  1224. ;Endevent
  1225.  
  1226. Int Function GetVersion()
  1227. Return 2
  1228. Endfunction
Add Comment
Please, Sign In to add comment
Public Pastes
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!