home *** CD-ROM | disk | FTP | other *** search
/ GU Photo: Background 3 / GU.iso / pc / browser_4m_ / browser_4m_.dxr / 00161.ls < prev    next >
Encoding:
Text File  |  1994-09-30  |  808 b   |  33 lines
  1. global gdragitem, gno
  2.  
  3. on mouseDown
  4.   if objectp(gdragitem) then
  5.     destroy(gdragitem)
  6.     set gdragitem to 0
  7.   end if
  8.   set sp to clickOn()
  9.   set bcast to the number of cast the castNum of sprite sp
  10.   set cname to char 1 to 5 of the name of cast bcast
  11.   set gno to getno(cname)
  12.   if cname <> "dummy" then
  13.     set gdragitem to birth(script "dragableObject", sp, bcast)
  14.     drag(gdragitem)
  15.   end if
  16.   put cname && gno && gdragitem
  17. end
  18.  
  19. on mouseUp
  20.   if doubleClick() then
  21.     set sp to clickOn()
  22.     set bcast to the number of cast the castNum of sprite sp
  23.     set cname to char 1 to 5 of the name of cast bcast
  24.     if cname <> "dummy" then
  25.       finishviewer()
  26.       set gno to getno(cname)
  27.       set kate to getkategorie(gno)
  28.       loadpictureforbrowserabs(kate, gno)
  29.       go(kate)
  30.     end if
  31.   end if
  32. end
  33.