A Virtual Reality Guide to Texas/CD.iso/texdata/arcextra/tbits.dir/00046.ls

Text File | 1998-06-23 | 533 b | 26 lines

on decpict
  global numPicts, curpict, basepict
  if numPicts > 1 then
    if curpict = 1 then
      set curpict to numPicts
    else
      set curpict to curpict - 1
    end if
    put curpict
    set the castNum of sprite 46 to basepict + curpict - 1
  end if
end

on incpict
  global numPicts, curpict, basepict
  if numPicts > 1 then
    if curpict = numPicts then
      set curpict to 1
    else
      set curpict to curpict + 1
    end if
    put curpict
    set the castNum of sprite 46 to basepict + curpict - 1
  end if
end