Car Screensaver - Toyota/TOYOTA.iso/mjparty/vivi_ex.exe/vivi_ex.DXR/00016.ls

Text File | 1996-05-13 | 1.7 KB | 69 lines

on exitFrame
  global gchnlist
  if random(10) > 5 then
    set a to 0
  else
    if random(100) < 16 then
      set a to 2
    else
      if random(100) < 11 then
        set a to 3
      else
        if random(100) < 6 then
          set a to 5
        else
          set a to 0
        end if
      end if
    end if
  end if
  startTimer()
  repeat while the timer < 100
    repeat with n = 1 to 1
      if random(2) = 1 then
        set the castNum of sprite 10 to 312
        set the locH of sprite 10 to 304
        set the locV of sprite 10 to 340 + (random(5) * 9)
      else
        set the castNum of sprite 10 to 313
        set the locH of sprite 10 to 277 + (random(5) * 9)
        set the locV of sprite 10 to 367
      end if
      set n to random(20)
      set two to n / 10
      set one to n - (two * 10)
      if two = 0 then
        set the castNum of sprite 26 to 272
      else
        set the castNum of sprite 26 to 261 + two
      end if
      set the castNum of sprite 11 to 261 + one
      updateStage()
    end repeat
    if the mouseDown then
      exit repeat
    end if
  end repeat
  sound stop 1
  if a = 0 then
    set gchnlist to [0, 0]
  else
    set n to random(10)
    set gchnlist to [n, a]
    puppetSprite(9, 1)
    puppetSprite(10, 1)
    puppetSprite(11, 1)
    set the castNum of sprite 9 to 321
    if n < 6 then
      set the castNum of sprite 10 to 312
      set the locH of sprite 10 to 304
      set the locV of sprite 10 to 340 + (n * 9)
    else
      set the castNum of sprite 10 to 313
      set the locH of sprite 10 to 277 + ((n - 5) * 9)
      set the locV of sprite 10 to 367
    end if
    set the castNum of sprite 11 to 261 + a
  end if
end