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