Shocking The Web CD-ROM/SHOCK_CD.ISO/pc/tutorial/devglry/elementl/source/fun.dir/00027.ls

Text File | 1996-11-11 | 1.4 KB | 67 lines

on startMovie
  global gIsDropper, gSuckedElement, gIsSucked, gDroppedElement, gAlreadyDroppedE
  puppetSprite(9, 1)
  set the visible of sprite 9 to 0
  set gIsDropper to 0
  set gSuckedElement to 0
  set gIsSucked to 0
  set gDroppedElement to 0
  set gAlreadyDroppedE to 0
end

on startSuck
  global gIsDropper, gWhichElementCast
  repeat while the mouseDown
    repeat with w = 11 to 21
      if rollOver(w) then
        set onOne to 1
        set gWhichElementCast to w
      end if
    end repeat
    if onOne then
      cursor([2])
      set gIsDropper to 1
    else
      cursor([1])
      set gIsDropper to 0
    end if
    set onOne to 0
  end repeat
end

on suckElement whichOne
  global gSuckedElement, gIsSucked, gIsDropper
  cursor([3])
  set gIsDropper to 0
  set gSuckedElement to whichOne
  set gIsSucked to 1
end

on unSuck
  global gIsSucked, gIsDropper
  set gIsDropper to 0
  set gIsSucked to 0
end

on dropElement
  global gSuckedElement, gDroppedElement, gIsSucked, gAlreadyDroppedE
  if gIsSucked then
    if gSuckedElement = 11 then
      if gDroppedElement = 0 then
        set gAlreadyDroppedE to 1
      else
        go("Anim" & gDroppedElement)
      end if
    else
      set gDroppedElement to gSuckedElement
      if gAlreadyDroppedE = 1 then
        go("Anim" & gDroppedElement)
      else
        nothing()
      end if
    end if
    set gSuckedElement to 0
    set gIsSucked to 0
  end if
end