What PC? 1996 August/WPCAUG96.ISO/mgiwaug.dxr/00014_MGIExplore.ls

Text File | 1996-06-14 | 1.6 KB | 56 lines

on MGIExplore
  global MGIFindTV, MGIDirH, MGIDirV, MGIGETCount
  repeat while MGIFindTV = 0
    wait(0.05)
    MGISpinE()
    set the locH of sprite 2 to the locH of sprite 2 + (MGIDirH * 20)
    set the locV of sprite 2 to the locV of sprite 2 + (MGIDirV * 30)
    updateStage()
    if the locH of sprite 2 > 640 then
      set MGIDirH to -1
    end if
    if the locH of sprite 2 < 0 then
      set MGIDirH to 1
    end if
    if the locV of sprite 2 > 480 then
      set MGIDirV to -1
    end if
    if the locV of sprite 2 < 0 then
      set MGIDirV to 1
    end if
    if (the locH of sprite 2 > 411) and (the locV of sprite 2 < 120) then
      set MGIDirV to 1
    end if
    if (the locH of sprite 2 > 390) and (the locV of sprite 2 < 120) then
      set MGIDirH to -1
    end if
    repeat while (the right of sprite 2 > the mouseH) and (the left of sprite 2 < the mouseH) and (the top of sprite 2 < the mouseV) and (the bottom of sprite 2 > the mouseV)
      MGISpinE()
      if rollOver(2) then
        set MGIFindTV to 1
        exit repeat
      end if
    end repeat
  end repeat
  if MGIFindTV = 1 then
    repeat while MGIFindTV = 1
      if MGIGETCount = 3 then
        set the locH of sprite 29 to 200
        set the locV of sprite 29 to 271
        updateStage()
      else
        if MGIGETCount = 6 then
          set MGIGETCount to 0
          set the locH of sprite 29 to 2000
          updateStage()
        end if
      end if
      set MGIGETCount to 1 + MGIGETCount
      MGINoiseMove()
      MGISpinE()
      set the locH of sprite 2 to the mouseH
      set the locV of sprite 2 to the mouseV
    end repeat
  end if
end