home *** CD-ROM | disk | FTP | other *** search
/ Grandes Inventos / INVENTOS.bin / pc / media / engra.dxr / 00096.ls < prev    next >
Encoding:
Text File  |  1996-01-01  |  554 b   |  18 lines
  1. on exitFrame
  2.   global gTheAnalyzer, gObjectSprite, gConsoleText, gIdiom
  3.   startTimer()
  4.   set theName to line 1 of the text of cast "objectDescription"
  5.   set theObject to TObject(mnew, theName)
  6.   put "1" && the timer / 60.0
  7.   set reloj to the timer
  8.   theObject(mLinkMap)
  9.   put "2" && (the timer - reloj) / 60.0
  10.   set reloj to the timer
  11.   theObject(mInitializeSubsystems)
  12.   put "3" && (the timer - reloj) / 60.0
  13.   gTheAnalyzer(mSetObject, theObject)
  14.   SetCast(gConsoleText, "Emptybitmap")
  15.   updateStage()
  16.   put "total inicializada" && the timer / 60.0
  17. end
  18.