home *** CD-ROM | disk | FTP | other *** search
/ GU 15 - Background Photo Collection - Hanabi / gu15.iso / pc / browser.exe / browser.DXR / 00027.txt < prev    next >
Encoding:
Text File  |  1996-09-12  |  847 b   |  38 lines
  1. global gDragItem, gNo
  2.  
  3. on mouseDown
  4.   
  5.   if (objectp(gDragItem)) then  
  6.     destroy( gDragItem )
  7.     set gDragItem = 0
  8.   end if
  9.   
  10.   set sp = clickOn()
  11.   set bcast = the number of cast the castNum of sprite sp
  12.   set cName  = char 1 to 5 of the name of cast bcast
  13.   
  14.   set gNo = GetNo( cName )
  15.   if (cName <> "dummy") then
  16.     set gDragItem = birth( script"dragableObject", sp, bcast )
  17.     drag( gDragItem )
  18.     
  19.   end if
  20.   put cName && gNo && gDragItem
  21. end
  22.  
  23. on mouseUp
  24.   if (doubleClick()) then
  25.     set sp = clickOn()
  26.     set bcast = the number of cast the castNum of sprite sp
  27.     set cName  = char 1 to 5 of the name of cast bcast
  28.     
  29.     if (cName <> "dummy") then
  30.       finishViewer
  31.       
  32.       set gNo = GetNo( cName )
  33.       set kate = GetKategorie( gNo )
  34.       LoadPictureForBrowserAbs( kate, gNo )
  35.       go to kate
  36.     end if
  37.   end if
  38. end