A Virtual Reality Guide to Texas/CD.iso/texdata/arcextra/extras.cst/00105_paging.ls

Text File | 1998-06-23 | 867 b | 29 lines

on checkpage
  global lastflip

  if the timer - 300 > lastflip then
    flip
    set lastflip = the timer
  end if
end

on flip
  set cnum = the castnum of sprite 1
  set cname = the name of cast cnum
  set numchars = the number of chars in cname

  set nextpage = the number of chars of (the name of cast (cnum+1))
  -- eye# has 4 characters, range# has 6, rose# has 5, so the number of characters in the name
  -- must be the same for the next background to be the right one
  if numchars = nextpage then
    set the castnum of sprite 1 = cnum + 1
    set the castnum of sprite 3 = the castnum of sprite 3 + 1
    set the castnum of sprite 4 = the castnum of sprite 4 + 1
  else
    set the castnum of sprite 1 = cnum - 4
    set the castnum of sprite 3 = the castnum of sprite 3 - 4
    set the castnum of sprite 4 = the castnum of sprite 4 - 4
  end if
end