home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1996 July / WPCJUL96.ISO / file.exe / RESFINJ.DXR / 00015_RESCheckBrowser.ls < prev    next >
Encoding:
Text File  |  1996-05-15  |  983 b   |  38 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 locH of sprite 36 to 49
  8.         set the locV of sprite 36 to 309
  9.         updateStage()
  10.       end if
  11.       StopBrowser()
  12.       exit repeat
  13.     end if
  14.   end repeat
  15.   if BrowserRunning() then
  16.     set IFLMistake to 1
  17.     if GTSWIN95 = 1 then
  18.       set the castNum of sprite 36 to 68
  19.       set the locH of sprite 36 to 49
  20.       set the locV of sprite 36 to 136
  21.       updateStage()
  22.     else
  23.       set the castNum of sprite 36 to 67
  24.       set the locH of sprite 36 to 49
  25.       set the locV of sprite 36 to 136
  26.       updateStage()
  27.     end if
  28.   end if
  29.   if not BrowserRunning() then
  30.     set the locH of sprite 36 to 2000
  31.     set the locV of sprite 36 to 2000
  32.     updateStage()
  33.     set IFLBrowsercounter to 0
  34.     set browserID to 0
  35.     set IFLMistake to 0
  36.   end if
  37. end
  38.