home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1998 December / WPCDEC98.ISO / dxrs / Mainmn12.dxr / Internal_66_gobackroutine.ls < prev    next >
Encoding:
Text File  |  1998-10-12  |  758 b   |  26 lines
  1. on gobackroutine
  2.   global returnarea
  3.   set whereismouse to point(the mouseH, the mouseV)
  4.   if inside(whereismouse, returnarea) = 1 then
  5.     put "i should be updating now"
  6.     set the member of sprite 50 to member "Icvretbt"
  7.     put the member of sprite 50
  8.     set the loc of sprite 50 to point(525, 5)
  9.     updateStage()
  10.     if the mouseDown then
  11.       repeat while the mouseDown
  12.       end repeat
  13.       set whereismouse to point(the mouseH, the mouseV)
  14.       if inside(whereismouse, returnarea) = 1 then
  15.         set the loc of sprite 50 to point(2000, 2000)
  16.         updateStage()
  17.         set the member of sprite 1 to member "menu1"
  18.         go(1)
  19.       end if
  20.     end if
  21.   else
  22.     set the loc of sprite 50 to point(2000, 2000)
  23.     updateStage()
  24.   end if
  25. end
  26.