Disable/Enable-Disk Errors,Task Switching,Screen saver,Task Bar

 

Compatibilities: Required Xtras: Buddy API

This item has not yet been rated

Disable/Enable ---- Disk Errors,Task Switching,Screen saver,Task Bar

---- written for Director 8 --- ---- Kumar.K kumark@icode.com ---- -- custom properties -- property diskerrors,screensaver,taskswitching,Taskbar,whereto, ------ Get Behavior Description List ------ on getPropertyDescriptionList me   set description = [:]   addProp description, #diskerrors, [#format:#boolean, #comment: "Disable Disk Errors :",#default:True]   addProp description, #screensaver, [#format:#boolean, #comment: "Disable ScreenSaver :",#default:True]   addProp description, #taskswitching, [#format:#boolean, #comment: "Disable Task Switching :",#default:True]     addProp description, #Taskbar, [#format:#boolean, #comment: "Disable TaskBar :",#default:True]     if the currentspritenum = 0 then     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,     #range:["On EnterFrame","On ExitFrame"],#default:"On EnterFrame"]   else     addProp description, #WhereTo, [#comment: "Where To Attach ?" ,#format:#String,     #range:["On MouseUp","On MouseDown","On MouseEnter","On MouseLeave"],#default:"On MouseUp"]       end if       return description end getPropertyDescriptionList ------ Get Behavior Description List ------ -- Get Behavior description -- on getBehaviorDescription   return "This Behavior Disables/Enables" & RETURN &   "* Disk Errors" & RETURN &   "* Task Switching" & RETURN &   "* ScreenSaver" & RETURN &   "This Behavior requires Buddy API Xtra to work, so please ensure You Have Buddy API Xtra." & RETURN & RETURN &   "Parameters" & RETURN &   "* Sound Option and Level." & RETURN &   "* Where to attach this Script" end -- Get Behavior description -- -- Events -- on EnterFrame me   if WhereTo = "On EnterFrame" then     Disablecontrols   end if end EnterFrame on ExitFrame me   if WhereTo = "On EnterFrame" then     Disablecontrols   end if end ExitFrame on MouseUp   if WhereTo = "On MouseUp" then     Disablecontrols   end if end MouseUp on MouseDown   if WhereTo = "On MouseDown" then     Disablecontrols   end if end MouseDown on MouseEnter   if WhereTo = "On MouseEnter" then     Disablecontrols   end if end MouseEnter on MouseLeave   if WhereTo = "On MouseLeave" then     Disablecontrols   end if end MouseLeave ------ Events ------ -- Set Disbale Controls -- on Disablecontrols   baDisableDiskErrors( diskerrors )   set Result = baDisableScreenSaver( screensaver )     baDisableSwitching( taskswitching )   set showing = baHideTaskBar( TaskBar )     end -- Set Disbale Controls --