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

Text File | 1996-10-31 | 1.3 KB | 61 lines

on moveh1
  global gtime1
  carh()
  if (gtime1 mod 4) = 0 then
    monkeyh()
  end if
  if (gtime1 mod 24) = 0 then
    giraffeh()
  end if
end

on monkeyh
  global gwlist1
  setAt(gwlist1, 3, getAt(gwlist1, 3) * -1)
  if getAt(gwlist1, 3) = 1 then
    set the memberNum of sprite 18 to 171
  else
    set the memberNum of sprite 18 to 181
  end if
end

on giraffeh
  global gwlist1
  setAt(gwlist1, 4, getAt(gwlist1, 4) * -1)
  if getAt(gwlist1, 4) = 1 then
    set the memberNum of sprite 19 to 172
  else
    set the memberNum of sprite 19 to 182
  end if
end

on carh
  global gwlist1
  set num to getAt(gwlist1, 5)
  if num = 188 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 173
    set the memberNum of sprite 21 to 174
  else
    if num < 86 then
      set the locH of sprite 20 to 577 - (num * 6)
      set the locH of sprite 21 to 61 + (num * 6)
    else
      if num = 95 then
        set the memberNum of sprite 20 to 174
        set the memberNum of sprite 21 to 173
      else
        if (num > 95) and (num < 180) then
          set the locH of sprite 20 to 67 + ((num - 95) * 6)
          set the locH of sprite 21 to 571 - ((num - 95) * 6)
        end if
      end if
    end if
  end if
end