Blender Volume 2 #3/Blender_2_3.iso/BLENDER/FILES/PAMHALL.DIR/00107.ls

Text File | 1996-04-01 | 691 b | 31 lines

on checkTheRoll
  global test
  set test to 0
  repeat with n = 18 down to 16
    if rollOver(n) then
      set the visible of sprite (n + 25) to 1
      next repeat
    end if
    set the visible of sprite (n + 25) to 0
  end repeat
  repeat with n = 28 down to 21
    if rollOver(n) then
      puppetSprite(n, 1)
      set the ink of sprite n to 4
      next repeat
    end if
    set the ink of sprite n to 8
    puppetSprite(n, 0)
  end repeat
  repeat with n = 37 down to 35
    if the visible of sprite n = 1 then
      set test to test + 1
    end if
  end repeat
  if test > 0 then
    repeat with n = 43 down to 41
      set the visible of sprite n to 0
    end repeat
  end if
end