PC Action 1997 February/PCA0297.ISO/demos/shine/shared.dxr/01000_rechts.ls

Text File | 1996-08-18 | 9.7 KB | 423 lines

global t_speed, chunk, c_cursor, cLinks, cRechts, cStraight, cDown, cHand, cityLoc, mymovie, myFrame, mypuppets, myvisibility, mycastnr, stringref, colorsetting, hintlist, ckey, CDloc, mac, sep, shineHpath, cdobj, fixpal, hschwarz, mainpath, ShineID, bigmovie, c_symbols, Hymne1, Hymne2, Finger, callmovie

on startMovie
  set cLinks to list(the number of cast "Handl", the number of cast "Handl.map")
  set cRechts to list(the number of cast "Handr", the number of cast "Handr.map")
  set cStraight to list(the number of cast "HandO", the number of cast "HandO.map")
  set cDown to list(the number of cast "HandU", the number of cast "HandU.map")
  set cHand to list(the number of cast "HandZu", the number of cast "HandZu.map")
end

on dopause long
  if not mac then
    set long to integer(long / 60.0 * 100.0)
  end if
  startTimer()
  repeat while the timer < long
  end repeat
end

on checksymbols key
  if (key = "1") or (key = "2") or (key = "3") or (key = "4") then
    set x to value(key)
    if c_cursor = 0 then
      set objekt to getAt(c_symbols, x)
      if objekt <> 0 then
        set c_cursor to objekt
      end if
    else
      if getAt(c_symbols, x) = c_cursor then
        set c_cursor to 0
      else
        if getAt(c_symbols, x) = 0 then
          setAt(c_symbols, getPos(c_symbols, c_cursor), 0)
          setAt(c_symbols, x, c_cursor)
          set c_cursor to 0
        end if
      end if
    end if
  else
    pass()
  end if
end

on idle
  cursorsprites()
end

on cursorsprites
  repeat with i = 1 to 48
    if the scriptNum of sprite i > 0 then
      set t to the name of cast the scriptNum of sprite i
      if c_cursor = 0 then
        if t = "links" then
          set the cursor of sprite i to cLinks
        else
          if t = "rechts" then
            set the cursor of sprite i to cRechts
          else
            if t = "down" then
              set the cursor of sprite i to cDown
            else
              if t = "hand" then
                set the cursor of sprite i to cHand
              else
                set the cursor of sprite i to cStraight
              end if
            end if
          end if
        end if
      else
        set the cursor of sprite i to c_cursor
      end if
      next repeat
    end if
    set the cursor of sprite i to 0
  end repeat
end

on rechts exactFrame, stoptimer
  puppetTransition(11, integer(t_speed) / 2, chunk, 0)
  if integerp(exactFrame) then
    go(exactFrame)
  else
    set t to the frame
    set m to marker(1)
    set n to marker(0)
    if t < (m - 1) then
      go(t + 1)
    else
      go(n)
    end if
  end if
end

on links exactFrame, stoptimer
  puppetTransition(12, integer(t_speed) / 2, chunk, 0)
  if integerp(exactFrame) then
    go(exactFrame)
  else
    set t to the frame
    set m to marker(0)
    if t > m then
      go(t - 1)
    else
      go(marker(1) - 1)
    end if
  end if
end

on nextmovie
  if the machineType = 256 then
    puppetTransition(23)
  else
    puppetTransition(26, 2, 22, 0)
    go("BlackEnd")
  end if
end

on goloc loc, city
  if mac then
    puppetTransition(23)
  else
    puppetTransition(26, t_speed, integer(chunk / 2), 0)
  end if
  go(loc)
end

on doorLeft sndNb, frameNb
  puppetSound(3, sndNb)
  puppetTransition(2, t_speed * 6, integer(chunk / 20), 1)
  go(frameNb)
end

on doorRight sndNb, frameNb
  puppetSound(3, sndNb)
  puppetTransition(17, t_speed * 2, integer(chunk / 15), 1)
  go(frameNb)
end

on doorCent sndNb, frameNb
  puppetSound(3, sndNb)
  puppetTransition(5, t_speed * 3, integer(chunk / 20), 1)
  go(frameNb)
end

on back2city
  puppetTransition(26, t_speed, chunk, 1)
  sound fadeOut 1, 90
  sound fadeOut 2, 90
  go(cityLoc, "Stadt")
  sound fadeIn 1, 90
  sound fadeIn 2, 90
end

on checkSnd myFrame
end

on unCoverDesktop
  if objectp(fixpal) then
    fixpal(mdispose)
  end if
  if objectp(hschwarz) then
    hschwarz(mrevertmonitors)
    hschwarz(mdispose)
    closeXLib("monitors.xobj")
  end if
end

on killQT spriteNb
  set the movieRate of sprite spriteNb to 0
  go(the frame + 2)
end

on patchpal
  if the machineType <> 256 then
    fixpal(mPatchIt)
  end if
end

on imovie channel
end

on showbig channel, status, oben
  if status = 1 then
    if bigmovie = 1 then
      set y to the height of sprite channel
      set x to integer(the width of sprite channel * (352.0 / y))
      puppetSprite(channel, 1)
      set l to integer((640 - x) / 2)
      spriteBox(channel, l, 4, l + x, 356)
      set the visible of sprite channel to 1
    else
      if bigmovie = 2 then
        if voidp(oben) then
          set oben to 0
        end if
        puppetSprite(channel, 1)
        set H to the height of sprite channel
        set b to the width of sprite channel
        set l to 320 - b
        set o to 180 - H
        set top to min(0, o + oben)
        spriteBox(channel, l, top, l + (b * 2), top + (H * 2))
        set the visible of sprite channel to 1
      end if
    end if
    updateStage()
  else
    puppetSprite(channel, 0)
  end if
end

on showbig2 channel, status, oben
  if status = 1 then
    if voidp(oben) then
      set oben to 0
    end if
    puppetSprite(channel, 1)
    set H to the height of sprite channel
    set b to the width of sprite channel
    set l to 320 - b
    set o to 180 - H
    set top to min(0, o + oben)
    spriteBox(channel, l, top, l + (b * 2), top + (H * 2))
    set the visible of sprite channel to 1
    set the movieRate of sprite channel to 1
    updateStage()
  else
    puppetSprite(channel, 0)
  end if
end

on pupsoundfade vol1, vol2, ticks, mode
  set volalt to the volume of sound 1
  set the volume of sound 1 to vol1
  updateStage()
  if ticks = 0 then
    repeat while soundBusy(1)
    end repeat
  else
    set voldif to (vol2 - vol1) / ticks
    set x to the timer
    repeat while the timer < (x + ticks)
      set the volume of sound 1 to vol1 + (voldif * (the timer - x))
      updateStage()
    end repeat
    set the volume of sound 1 to vol2
  end if
  updateStage()
  if mode = 1 then
    puppetSound(1, 0)
  end if
  if mode < 2 then
    set the volume of sound 1 to volalt
  end if
  updateStage()
end

on wait num
  set x to the timer
  repeat while the timer < (x + num)
  end repeat
end

on setmsize new
  global bigmovie
  repeat with x = 1 to 2
    set the checkMark of menuItem x of menu "Movie" to 0
  end repeat
  if new = 0 then
    set bigmovie to 0
    set the checkMark of menuItem 1 of menu "Movie" to 1
  else
    if new = 1 then
      set bigmovie to 1
      set the checkMark of menuItem 2 of menu "Movie" to 1
    else
      if new = 2 then
        set bigmovie to 2
        set the checkMark of menuItem 2 of menu "Movie" to 1
      end if
    end if
  end if
end

on changesoundl tolevel
  repeat with x = 1 to 8
    set the checkMark of menuItem x of menu "Sound" to 0
  end repeat
  set the soundLevel to tolevel
  set the checkMark of menuItem (tolevel + 1) of menu "Sound" to 1
end

on changeTspeed up
  if up = 1 then
    set t_speed to t_speed + 1
  else
    if t_speed > 0 then
      set t_speed to t_speed - 1
    end if
  end if
end

on changeChunk up
  if up = 1 then
    set chunk to chunk + 10
  else
    if chunk > 30 then
      set chunk to chunk - 10
    end if
  end if
end

on starttimeout
  set the timeoutMouse to 0
  set the timeoutKeyDown to 0
  set the timeoutPlay to 0
  set the timeoutLength to 60
  set the timeoutScript to "mytimeout"
end

on stoptimeout
  set the timeoutMouse to 1
  set the timeoutKeyDown to 1
  set the timeoutPlay to 1
  set the timeoutScript to EMPTY
end

on mytimeout
  global selfdtimer
  set selfdtimer to selfdtimer - 1
  if selfdtimer = 0 then
    stoptimeout()
    go(label("finish"), "Destruct")
  end if
  if (selfdtimer mod 60) = 0 then
    puppetSound(3, the number of cast "FinPeep.aif")
  else
    puppetSound(3, the number of cast "FinPeep.aif")
  end if
  if char 1 to 6 of the movieName = "Finale" then
    showselfdtimer()
  else
    updateStage()
  end if
end

on startvideo ch
  set the movieRate of sprite ch to 1
end

on waitvideo ch
  repeat while the movieRate of sprite ch = 1
    updateStage()
    if the mouseDown then
      set the movieRate of sprite ch to 0
      updateStage()
    end if
  end repeat
end

on button1
  set me to the clickOn
  set my to the castNum of sprite me
  set the castNum of sprite me to my + 1
  updateStage()
  repeat while the mouseDown
  end repeat
  set the castNum of sprite me to my
  updateStage()
end

on makesearchpath ID
  if ID = "Shine1" then
    set p0 to CDloc
    set p1 to CDloc & "Part1" & sep
    set p1a to CDloc & "Part1" & sep & "Hotel" & sep
    set p1b to CDloc & "Part1" & sep & "TCMC" & sep
    set p1c to CDloc & "Part1" & sep & "TOWER" & sep
    set p1d to CDloc & "Part1" & sep & "CLONE" & sep
    set p1e to CDloc & "Part1" & sep & "IRRE" & sep
    set p1f to CDloc & "Part1" & sep & "SPATEX" & sep
    set the searchPath to [p0, p1, p1a, p1b, p1c, p1d, p1e, p1f]
  else
    if ID = "Shine2" then
      set p1 to CDloc & "Part3" & sep
      set p1a to CDloc & "Part3" & sep & "MOV" & sep
      set p2 to CDloc & "Part4" & sep
      set p2a to CDloc & "Part4" & sep & "irremov" & sep
      set p2b to CDloc & "Part4" & sep & "mov" & sep
      set p2c to CDloc & "Part4" & sep & "finale" & sep
      set the searchPath to [p1, p1a, p2, p2a, p2b, p2c]
    end if
  end if
end

on makebarobj
  global barobj, h_col, v_col, shineHpath
  if mac then
  else
    if objectp(barobj) then
    else
      openXLib("xsetmcol")
      set barobj to xsetmcol(mnew)
      set v_col to barobj(mgettextcol)
      set h_col to barobj(mgetbackcol)
      barobj(msetcol, 0, 16777215)
    end if
  end if
end

on closebarobj
  global barobj, h_col, v_col, shineHpath
  if mac then
  else
    if objectp(barobj) then
      barobj(msetcol, v_col, h_col)
      barobj(mdispose)
      closeXLib("xsetmcol")
    end if
  end if
end