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

Text File | 1996-10-31 | 1.0 KB | 48 lines

on moveh4
  global gtime1
  bush()
  if (gtime1 mod 4) = 0 then
    elephanth()
  end if
end

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

on bush
  global gwlist1
  set num to getAt(gwlist1, 4)
  if num = 170 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 262
    set the memberNum of sprite 20 to 263
  else
    if num < 77 then
      set the locH of sprite 19 to 569 - (num * 6)
      set the locH of sprite 20 to 179 + (num * 5)
    else
      if num = 86 then
        set the memberNum of sprite 19 to 263
        set the memberNum of sprite 20 to 262
      else
        if (num > 86) and (num < 162) then
          set the locH of sprite 19 to 113 + ((num - 86) * 6)
          set the locH of sprite 20 to 559 - ((num - 86) * 5)
        end if
      end if
    end if
  end if
end