SuperModels in the Rainforest/SuperModels in the Rainforest.iso/rain.dxr/00003_Utility Scripts.ls

Text File | 1995-10-13 | 3.9 KB | 137 lines

on buttonLogic noise
  set sSpritenum to the clickOn
  set sCastNum to the castNum of sprite sSpritenum
  set OutCastName to the name of cast sCastNum
  set InCastName to the name of cast sCastNum & "In"
  set the castNum of sprite sSpritenum to the number of cast InCastName
  updateStage()
  set flag to 1
  repeat while the mouseDown
    if rollOver(sSpritenum) and (flag <> 1) then
      set the castNum of sprite sSpritenum to the number of cast InCastName
      set flag to 1
      updateStage()
    end if
    if not rollOver(sSpritenum) and (flag = 1) then
      set the castNum of sprite sSpritenum to the number of cast OutCastName
      set flag to 0
      updateStage()
    end if
  end repeat
  if the mouseUp and rollOver(sSpritenum) then
    if stringp(noise) then
      puppetSound(noise)
    end if
    set the castNum of sprite sSpritenum to the number of cast OutCastName
    updateStage()
    return 1
  else
    set the castNum of sprite sSpritenum to the number of cast OutCastName
    updateStage()
    return 0
  end if
end

on buttonLogicG noise
  global giCurrentGirl
  set sSpritenum to the clickOn
  set sCastNum to the castNum of sprite sSpritenum
  set OutCastName to the name of cast sCastNum
  set InCastName to giCurrentGirl & the name of cast sCastNum & "In"
  set the castNum of sprite sSpritenum to the number of cast InCastName
  updateStage()
  set flag to 1
  repeat while the mouseDown
    if rollOver(sSpritenum) and (flag <> 1) then
      set the castNum of sprite sSpritenum to the number of cast InCastName
      set flag to 1
      updateStage()
    end if
    if not rollOver(sSpritenum) and (flag = 1) then
      set the castNum of sprite sSpritenum to the number of cast OutCastName
      set flag to 0
      updateStage()
    end if
  end repeat
  if the mouseUp and rollOver(sSpritenum) then
    if stringp(noise) then
      puppetSound(noise)
    end if
    set the castNum of sprite sSpritenum to the number of cast OutCastName
    updateStage()
    return 1
  else
    set the castNum of sprite sSpritenum to the number of cast OutCastName
    updateStage()
    return 0
  end if
end

on DStage
  repeat with i = 1 to the number of castMembers
    if the castType of cast i = #digitalVideo then
      set the directToStage of cast i to 1
      set the preLoad of cast i to 1
    end if
  end repeat
end

on AllPuppet aBool
  repeat with i = 1 to 48
    if the puppet of sprite i <> aBool then
      puppetSprite(i, aBool)
    end if
  end repeat
end

on bn s1, girlNum
  repeat with i = 291 to 300
    set temp to the name of cast i
    put girlNum into char 1 of temp
    set the name of cast s1 to temp
    set iTemp to s1 + 10
    set the name of cast iTemp to temp & "In"
    set s1 to s1 + 1
  end repeat
end

on ShowChanel
  repeat with i = 1 to 48
    put "The cast of chanell " & i && "is" && the castNum of sprite i
  end repeat
end

on buttonlogicLoo noise
  set sSpritenum to the clickOn
  set sCastNum to the castNum of sprite sSpritenum
  set OutCastName to the name of cast sCastNum
  set InCastName to the name of cast sCastNum & "In"
  set the castNum of sprite sSpritenum to the number of cast InCastName
  updateStage()
  set flag to 1
  repeat while the mouseDown
    if rollOver(sSpritenum) and (flag <> 1) then
      set the castNum of sprite sSpritenum to the number of cast InCastName
      set flag to 1
      updateStage()
    end if
    if not rollOver(sSpritenum) and (flag = 1) then
      set the castNum of sprite sSpritenum to the number of cast OutCastName
      set flag to 0
      updateStage()
    end if
  end repeat
  if the mouseUp and rollOver(sSpritenum) then
    if stringp(noise) then
      puppetSound(noise)
    end if
    set the castNum of sprite sSpritenum to the number of cast OutCastName
    updateStage()
    return 1
  else
    set the castNum of sprite sSpritenum to the number of cast OutCastName
    updateStage()
    return 0
  end if
end