Greatest Childrens Stories Ever Told/Greatest_Stories.iso/demos/funtown/demo.dir/00057_Script_57

Text File | 1994-11-08 | 2KB | 64 lines

on startMovie
  --puppetSprite 32, true
  --set the visible of sprite 32 to 0
  global theRect
  set theRect = rect(the StageLeft +120, the StageTop + 30, the StageRight + 408, the StageBottom + 218)

  startMovieMacro "357 316,357 316,256 316,155 316,155 127,155 -62,256 -62,357 -62,357 127,256 127"
end startMovie

on whichHalfH userH, whichSprite, where1, where2
  set centerH=(the right of sprite whichSprite-the left of sprite whichSprite)/2
  set centerH=centerH+the left of sprite whichSprite
  if userH<centerH then go frame where1
  else go frame where2
end whichHalfH

--ò example: whichHalfV the mouseV, the clickOn, "icing1", "hatboy1"

on whichHalfV userV, whichSprite, where1, where2
  set centerV=(the bottom of sprite whichSprite-the top of sprite whichSprite)/2
  set centerV=centerV+the top of sprite whichSprite
  if userV<centerV then go frame where1
  else go frame where2
end whichHalfV

on doButcherCheat
  set userH=the mouseH
  set userV=the mouseV
  if (userH>96) then --ò "sprite" 2
    if (userH<191) then
      if (userV>1) then
        if (userV<91) then
          go1 "Butcher2", "", 1
          exit
        end if
      end if
    end if
  end if
  if (userH>194) then --ò "sprite" 3
    if (userH<257) then
      if (userV>30) then
        if (userV<86) then
          go1 "Scale2", "", 1
          exit
        end if
      end if
    end if
  end if
end doButcherCheat

on cheatOnTheWoman
  set userH=the mouseH
  set userV=the mouseV
  if (userH>3) then --ò sprite 3
    if (userH<93) then
      if (userV>4) then
        if (userV<235) then
          go1 "WomanC", "", 1
          exit
        end if
      end if
    end if
  end if
end cheatOnTheWoman