Originally posted by Black Ace:
Wow... nice work so far... now we need more details! 
I managed to download that .ZIP file - I don't know if anyone else did or not, so here's the contents:
V-Isolate.ms
-------------------------
-- V-Isolate.ms
--
-- Isolate selected objects by hiding all others. Based on built-in
-- macroscript. Works with multiple objects.
--
-- Adam Pletcher - 12/13/99 - [email protected]
-- Art Director, Volition - [url="http://www.volition-inc.com"]www.volition-inc.com[/url]
-- - [url="http://www.volitionx.com/users/adamp/maxscript/"]www.volitionx.com/users/adamp/maxscript/[/url]
--
-- 2/8/00 - Commented out the Anim button disabling. Not sure it's a problem.
-- 2/13/00 - saved floater position in INI file
global hiddenObj = #()
global IsoView, IsoCamera
global iniFile = (getDir #plugcfg) + "\\VolitionScripts.ini"
global iniSection = "Isolate"
global rollPos = #(20,100)
-- function: existFile (filename)
-- returns true if file exists, false otherwise
fn existFile fname = (getfiles fname).count != 0
fn savePrefs =
(
setINISetting iniFile iniSection "pos1" (rollPos[1] as string)
setINISetting iniFile iniSection "pos2" (rollPos[2] as string)
)
fn loadPrefs =
(
if (getINISetting iniFile iniSection "pos1") == "" then
savePrefs()
rollPos[1] = (getINISetting iniFile INIsection "pos1") as integer
rollPos[2] = (getINISetting iniFile INIsection "pos2") as integer
)
fn NewIsoFloater =
(
Isolations = True
rollout IsoRoll ""
(
CheckButton CIso "UN-ISOLATE" Checked:True highlightColor:Yellow
on IsoRoll Close do
(
if Isolations == True then
(
UnIsolate ()
Isolations = False
)
else
(
IsoLations = False
)
)
on CIso changed state do
(
If IsoFloater != undefined then
(
CloseRolloutFloater IsoFloater
savePrefs()
)
)
on IsoRoll moved rp do
(
rollPos[1] = rp.x - 3
rollPos[2] = rp.y - 23
)
)
if IsoFloater == undefined then
(
IsoFloater = NewRolloutFloater "" 100 95 rollPos[1] rollPos[2]
AddRollout IsoRoll IsoFloater
)
else
(
IF IsoFloater != undefined then CloseRolloutFloater IsoFloater
IsoFloater = NewRolloutFloater "" 100 95 rollPos[1] rollPos[2]
AddRollout IsoRoll IsoFloater
)
)
Rollout IsoRoll "V-Isolate"
(
CheckButton CIso "Exit Isolation" Checked:True highlightColor:Yellow
on IsoRoll Close do
(
if Isolations == True then
(
Isolations = False
UnIsolate ()
)
Else
(
Isolations = False
)
savePrefs()
)
on CIso changed state do
(
If IsoFloater != undefined then CloseRolloutFloater IsoFloater
Unisolate()
savePrefs()
)
on IsoRoll moved rp do
(
rollPos[1] = rp.x - 3
rollPos[2] = rp.y - 23
)
)
fn Isolate =
(
AnimButtonState = False
-- AnimButtonEnabled = False
if IsoFloater == undefined then
(
IsoFloater = NewRolloutFloater "" 100 95 rollPos[1] rollPos[2]
AddRollout IsoRoll IsoFloater
)
else
(
CloseRolloutFloater IsoFloater
IsoFloater = NewRolloutFloater "" 100 95 rollPos[1] rollPos[2]
AddRollout IsoRoll IsoFloater
)
max select invert
for i = 1 to selection.count do
(
hiddenObj[i] = selection[i]
)
hide selection
clearSelection()
IsoCamera = GetActiveCamera ()
if (viewport.GetType() as string == "view_persp_user") then
IsoView = Viewport.GetTM()
max tool zoomextents
)
fn UnIsolate =
(
unhide hiddenObj
if (Viewport.GetType () as string == "view_persp_user") then
(
if IsoCamera != undefined then
(
max vpt camera
)
else
(
viewport.setTM IsoView
)
)
max tool zoomextents
)
-- Main
loadPrefs()
if Isolations == true then
(
UnIsolate ()
IF IsoFloater != undefined then (CloseRolloutFloater IsoFloater)
)
else
(
Isolate ()
)
----------------------------------------
end V-Isolate.ms
------------------
America, stand assured that Israel
truly understands what you are going through.
"He who laughs last thinks slowest."
"Just becase you're paranoid doesn't mean they're not out to get you."
"To err is human; to really screw up you need a computer."
Creator of the
Sandvich Bar, the CapShip Turret Upgrade, the Complete FS2 Ship List and the System Backgrounds List (all available from the site)
[This message has been edited by sandwich (edited 09-25-2001).]
