Car Screensaver - Toyota/TOYOTA.iso/mjparty/qh_demo.exe/DEMOHNT3.DXR/00194.ls

Text File | 1996-08-09 | 1.5 KB | 71 lines

on exitFrame
  global gnum1
  repeat while gnum1 <> 25
    looph()
  end repeat
end

on looph
  global gwlist1, gnum1
  set gnum1 to gnum1 + 1
  set two to gnum1 / 10
  set the castNum of sprite 6 to two + 201
  set the castNum of sprite 7 to gnum1 - (two * 10) + 201
  set the locV of sprite 10 to 265
  set ca to (getAt(gwlist1, gnum1 - 21) * 4) + 517
  set the castNum of sprite 10 to ca
  set alist to [random(3)]
  repeat with n = 1 to 2
    set num to random(3)
    if getOne(alist, num) = 0 then
      append(alist, num)
      next repeat
    end if
    set n to n - 1
  end repeat
  repeat with n = 11 to 13
    set the locH of sprite n to 95
    set the castNum of sprite n to ca + getAt(alist, n - 10)
  end repeat
  waith(30)
  repeat with n = 1 to 3
    repeat with c = 0 to 2
      set the locV of sprite 9 to 333 + (c * 33)
      waith(5)
    end repeat
  end repeat
  if the timer > 120 then
    timeh()
  end if
  set num to random(3)
  repeat with c = 0 to 2
    if c = num then
      exit repeat
    else
      set the locV of sprite 9 to 333 + (c * 33)
    end if
    waith(5)
  end repeat
  set the castNum of sprite 9 to 198
  waith(20)
  set the castNum of sprite 9 to 197
  set the locV of sprite 9 to 496
end

on waith num
  updateStage()
  set num to the timer + num
  repeat while the timer < num
    if the timer > 1200 then
      timeh()
    end if
  end repeat
end

on timeh
  global gtime1
  set gtime1 to gtime1 + 1
  set the castNum of sprite 8 to gtime1
  startTimer()
end