Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/devglry/mcny/source/funhouse.dir/00015.ls

Text File | 1996-05-06 | 3.4 KB | 91 lines

on enterFrame
  global gotkey, whichroom
  puppetSprite(16, 1)
  set whichroom to 8
  if (the mouseH < the locH of sprite 16) and (the mouseV < the locV of sprite 16) then
    set the locH of sprite 16 to the locH of sprite 16 - 1
    set the locV of sprite 16 to the locV of sprite 16 - 1
  else
    if (the mouseH < the locH of sprite 16) and (the mouseV > the locV of sprite 16) then
      set the locH of sprite 16 to the locH of sprite 16 - 1
      set the locV of sprite 16 to the locV of sprite 16 + 1
    else
      if (the mouseH > the locH of sprite 16) and (the mouseV > the locV of sprite 16) then
        set the locH of sprite 16 to the locH of sprite 16 + 1
        set the locV of sprite 16 to the locV of sprite 16 + 1
      else
        if (the mouseH > the locH of sprite 16) and (the mouseV < the locV of sprite 16) then
          set the locH of sprite 16 to the locH of sprite 16 + 1
          set the locV of sprite 16 to the locV of sprite 16 - 1
        else
          if the mouseH > the locH of sprite 16 then
            set the locH of sprite 16 to the locH of sprite 16 + 1
          else
            if the mouseH < the locH of sprite 16 then
              set the locH of sprite 16 to the locH of sprite 16 - 1
            else
              if the mouseV < the locV of sprite 16 then
                set the locV of sprite 16 to the locV of sprite 16 - 1
              else
                if the mouseV > the locV of sprite 16 then
                  set the locV of sprite 16 to the locV of sprite 16 + 1
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if (the locH of sprite 16 < 200) and (the locV of sprite 16 < 63) then
    set the locH of sprite 16 to the locH of sprite 16 + 1
    set the locV of sprite 16 to the locV of sprite 16 + 1
  else
    if (the locH of sprite 16 > 208) and (the locV of sprite 16 < 63) then
      set the locH of sprite 16 to the locH of sprite 16 - 1
      set the locV of sprite 16 to the locV of sprite 16 + 1
    else
      if (the locH of sprite 16 > 208) and (the locV of sprite 16 > 67) then
        set the locH of sprite 16 to the locH of sprite 16 - 1
        set the locV of sprite 16 to the locV of sprite 16 - 1
      else
        if (the locH of sprite 16 < 200) and (the locV of sprite 16 > 67) then
          set the locH of sprite 16 to the locH of sprite 16 + 1
          set the locV of sprite 16 to the locV of sprite 16 - 1
        else
          if the locH of sprite 16 > 208 then
            set the locH of sprite 16 to the locH of sprite 16 - 1
          else
            if the locH of sprite 16 < 200 then
              set the locH of sprite 16 to the locH of sprite 16 + 1
            else
              if the locV of sprite 16 > 67 then
                set the locV of sprite 16 to the locV of sprite 16 - 1
              else
                if the locV of sprite 16 < 63 then
                  set the locV of sprite 16 to the locV of sprite 16 + 1
                end if
              end if
            end if
          end if
        end if
      end if
    end if
  end if
  if rollOver(5) and (gotkey = 0) and the mouseDown then
    puppetSprite(20, 1)
    set the locH of sprite 20 to 100
    set the locV of sprite 20 to 120
    set the ink of sprite 20 to 8
    set the castNum of sprite 20 to 86
  else
    puppetSprite(20, 0)
  end if
  updateStage()
  updateStage()
end

on exitFrame
  go("hall")
end