CD-ROM Today (BR) Volume 3 #5/CDRV3N5.ISO/demo/introdm.dir/Internal_265.ls

Text File | 1996-07-12 | 1.5 KB | 59 lines

on setArrow num
  global ArrowSprite
  set ArrowSprite to 26
  puppetSprite(ArrowSprite, 1)
  set oldArrow to the name of cast the castNum of sprite ArrowSprite
  delete char 1 to 5 of oldArrow
  set oldArrow to integer(oldArrow)
  set Alist to "0,6,18,25,31,42,50,57,68,75,82,94,100"
  repeat with k = 0 to the number of items in Alist - 1
    set num1 to integer(item k of Alist)
    set num2 to integer(item k + 1 of Alist)
    if oldArrow = num1 then
      set old_i to k
    end if
    if oldArrow = num2 then
      set old_i to k + 1
    end if
    if (num >= num1) and (num <= num2) then
      if (num + 2) >= integer((num2 + num1) / 2) then
        set i to k + 1
        next repeat
      end if
      set i to k
    end if
  end repeat
  if i < old_i then
    repeat with j = old_i down to i
      set result to item j of Alist
      set newArrow to "ARROW" & string(result)
      set the castNum of sprite ArrowSprite to the number of member newArrow
      updateStage()
    end repeat
  end if
  if i > old_i then
    repeat with j = old_i to i
      set result to item j of Alist
      set newArrow to "ARROW" & string(result)
      set the castNum of sprite ArrowSprite to the number of member newArrow
      updateStage()
    end repeat
  end if
end

on EraseArrow
  global ArrowSprite
  set newArrow to "ARROW0"
  set the castNum of sprite ArrowSprite to the number of member newArrow
  puppetSprite(ArrowSprite, 0)
end

on findrollover tempfield
  repeat with i = 14 down to 3
    if rollOver(i) then
      return i
    end if
  end repeat
  return 0
end