home *** CD-ROM | disk | FTP | other *** search
/ GU Photo: Background 3 / GU.iso / pc / win / browser.exe / browser.DXR / 00167_FileIcon.ls < prev    next >
Encoding:
Text File  |  1994-09-30  |  1.0 KB  |  44 lines
  1. property psaved, pcast, psp, pkate, pno, pleft, ptop
  2. global gextension
  3.  
  4. on birth me, cate, no
  5.   set the pcast of me to 0
  6.   set the psp of me to 0
  7.   set the pkate of me to cate
  8.   set the pno of me to no
  9.   set fshortname to getfname(the pno of me) & gextension
  10.   set the pcast of me to the number of cast fshortname
  11.   return me
  12. end
  13.  
  14. on destroy me
  15.   if 0 < the psp of me then
  16.     puppetSprite(the psp of me, 0)
  17.   end if
  18.   updateStage()
  19. end
  20.  
  21. on location me, sp, aleft, atop
  22.   set the psaved of me to the puppet of sprite sp
  23.   set the psp of me to sp
  24.   set the pleft of me to aleft
  25.   set the ptop of me to atop
  26.   showx(me)
  27. end
  28.  
  29. on hide me
  30.   set the visible of sprite the psp of me to 0
  31. end
  32.  
  33. on showx me
  34.   puppetSprite(the psp of me, 1)
  35.   set the visible of sprite the psp of me to 1
  36.   set the castNum of sprite the psp of me to the pcast of me
  37.   spriteBox(the psp of me, the pleft of me, the ptop of me, the pleft of me + 120, the ptop of me + 90)
  38.   updateStage()
  39. end
  40.  
  41. on show me
  42.   set the visible of sprite the psp of me to 1
  43. end
  44.