Car Screensaver - Toyota/TOYOTA.iso/mjparty/no1_demo/dnorp01b.dxr/script_15_am.ls

Text File | 1996-10-31 | 1.8 KB | 87 lines

on moveh3
  global gtime1
  taxih()
  if (gtime1 mod 4) = 0 then
    birdh()
  end if
  if (gtime1 mod 3) = 0 then
    lionh()
  end if
end

on birdh
  global gwlist1
  if getAt(gwlist1, 3) = 3 then
    setAt(gwlist1, 3, 1)
  else
    setAt(gwlist1, 3, getAt(gwlist1, 3) + 1)
  end if
  if getAt(gwlist1, 3) = 1 then
    set the memberNum of sprite 18 to 231
  else
    if getAt(gwlist1, 3) = 3 then
      set the memberNum of sprite 18 to 241
    end if
  end if
end

on lionh
  global gwlist1
  set num to getAt(gwlist1, 4)
  if num = 13 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 4, num)
  if num = 1 then
    set the memberNum of sprite 19 to 232
  else
    if num < 5 then
      set the locV of sprite 19 to 119 - (10 * num)
    else
      if num = 6 then
        set the memberNum of sprite 19 to 242
      else
        if (num = 9) or (num = 10) then
          set the locV of sprite 19 to 79 + (10 * (num - 8))
        else
          if num = 11 then
            set the locV of sprite 19 to 114
          end if
        end if
      end if
    end if
  end if
end

on taxih
  global gwlist1
  set num to getAt(gwlist1, 5)
  if num = 182 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 5, num)
  if num = 1 then
    set the memberNum of sprite 20 to 233
    set the memberNum of sprite 21 to 234
  else
    if num < 83 then
      set the locH of sprite 20 to 554 - (num * 6)
      set the locH of sprite 21 to 152 + (num * 5)
    else
      if num = 92 then
        set the memberNum of sprite 20 to 234
        set the memberNum of sprite 21 to 233
      else
        if (num > 92) and (num < 174) then
          set the locH of sprite 20 to 62 + ((num - 92) * 6)
          set the locH of sprite 21 to 562 - ((num - 92) * 5)
        end if
      end if
    end if
  end if
end