PC Welt 2006 April (DVD)/PCWELT_4_2006.ISO/main.dir/00337.ls

Text File | 2006-01-19 | 720 b | 30 lines

on returnUpdate
  global gNextCast, gDest, gReturnState, gForceClick, gStarChannel, gPanelChannel
  starNum = integer(char 6 of gNextCast) - 1
  if starNum = 0 then
    starNum = 1
  end if
  testCast = gDest & "star" & starNum
  if the number of member testCast = -1 then
    updateDest(gDest)
  else
    whatNow = line gDest of field "panelHandlers"
    gForceClick = gDest + gPanelChannel - 1
    updateDest(gDest)
    do(whatNow)
  end if
  gReturnState = 1
end

on playDir whatFrame, whatMovie
  global gReturnState, gNextCast
  x = cast(the castNum of sprite the clickOn).name
  if x = "continue" then
    x = gNextCast
  end if
  setNextCast(x)
  gReturnState = 1
  go(whatFrame, whatMovie)
  dontPassEvent()
end