home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / RESWDEC.DXR / 00014_RESCheckBrowser.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  800 b   |  33 lines
  1. on RESCheckBrowser
  2.   global browserID, IFLBrowsercounter, IFLMistake, GTSWIN95
  3.   repeat while BrowserRunning()
  4.     if the mouseUp then
  5.       if IFLMistake = 0 then
  6.         set the castNum of sprite 36 to 900
  7.         set the loc of sprite 36 to point(210, 185)
  8.         updateStage()
  9.       end if
  10.       StopBrowser()
  11.       exit repeat
  12.     end if
  13.   end repeat
  14.   if BrowserRunning() then
  15.     set IFLMistake to 1
  16.     if GTSWIN95 = 1 then
  17.       set the castNum of sprite 36 to 68
  18.       updateStage()
  19.     else
  20.       set the castNum of sprite 36 to 67
  21.       updateStage()
  22.     end if
  23.   end if
  24.   if not BrowserRunning() then
  25.     set the locH of sprite 36 to 2000
  26.     set the locV of sprite 36 to 2000
  27.     updateStage()
  28.     set IFLBrowsercounter to 0
  29.     set browserID to 0
  30.     set IFLMistake to 0
  31.   end if
  32. end
  33.