Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/paris/CIN.dcr/00012.ls

Text File | 2017-09-21 | 1.2 KB | 55 lines

global loopcnt1, loopcnt2, loopcnt3, loopcnt4, l1, l2, l3, l4, l1back, l2back, l3back, l4back

on exitFrame
  if loopcnt1 = l1 then
    set the visible of sprite 11 to 1
    repeat with idx = 12 to 14
      set the visible of sprite idx to 0
    end repeat
  end if
  set loopcnt1 to loopcnt1 - 1
  if loopcnt1 = 0 then
    set loopcnt1 to l1
    repeat while 1
      set select to random(5)
      if l1back <> select then
        set l1back to select
        exit repeat
      end if
    end repeat
    if select = 1 then
      set the visible of sprite 12 to 1
    end if
    if select = 4 then
      set the visible of sprite 11 to 0
      set the visible of sprite 12 to 1
      set the visible of sprite 13 to 1
    end if
    if select = 5 then
      set the visible of sprite 11 to 0
      set the visible of sprite 14 to 1
    end if
  end if
  set loopcnt2 to loopcnt2 - 1
  if loopcnt2 = 0 then
    set loopcnt2 to l2
    repeat while 1
      set select to random(5)
      if l2back <> select then
        set l2back to select
        put select
        exit repeat
      end if
    end repeat
    if select = 2 then
      go("FLOWER")
      abort()
    end if
    if select = 3 then
      go("NEWSBOY")
      abort()
    end if
  end if
  go("start")
end