Car Screensaver - Toyota/TOYOTA.iso/mjparty/hsqdemo.dxr/00076.ls

Text File | 1996-09-26 | 903 b | 31 lines

on quizramove
  global work8, work9
  set a to the timer / 23
  if work8 < a then
    set x to the locH of sprite 20
    if work9 = 0 then
      if x = 347 then
        set the castNum of sprite 20 to cast "QUIZRA10"
        set work9 to 1
      else
        set b to value(chars(the name of cast the castNum of sprite 20, 8, 8))
        set c to (b + 1) mod 2
        set the castNum of sprite 20 to cast ("QUIZRA0" & string(c))
        set the locH of sprite 20 to x - 7
      end if
    else
      if x = 578 then
        set the castNum of sprite 20 to cast "QUIZRA00"
        set work9 to 0
      else
        set b to value(chars(the name of cast the castNum of sprite 20, 8, 8))
        set c to (b + 1) mod 2
        set the castNum of sprite 20 to cast ("QUIZRA1" & string(c))
        set the locH of sprite 20 to x + 7
      end if
    end if
    set work8 to a
    updateStage()
  end if
end