Car Screensaver - Toyota/TOYOTA.iso/mjparty/no1_demo/dnorp00.dxr/script_6.ls

Text File | 1996-10-31 | 1.7 KB | 92 lines

on exitFrame
  global gtime1, gflag1
  preLoadCast(153)
  repeat while soundBusy(1)
    if the timer > 5 then
      moveh1()
    end if
    if the mouseDown then
      exith()
    end if
  end repeat
  puppetSound(2, 153)
  updateStage()
  set gflag1 to 0
  repeat while gflag1 <> 11
    if the timer > 5 then
      moveh1()
    end if
    if the mouseDown then
      exith()
    end if
    if gtime1 = 24 then
      set gflag1 to gflag1 + 1
    end if
  end repeat
  unLoadCast()
end

on moveh1
  global gtime1
  if gtime1 = 24 then
    set gtime1 to 1
  else
    set gtime1 to gtime1 + 1
  end if
  if (gtime1 mod 12) = 0 then
    curh()
  end if
  kumoh(1)
  if (gtime1 mod 2) = 0 then
    kumoh(2)
    sunh()
    dogh()
  end if
  set num to the locH of sprite 5
  if num <= 0 then
    set the locH of sprite 5 to 703
  else
    set the locH of sprite 5 to num - 12
  end if
  set the locV of sprite 5 to 120 + random(10)
  updateStage()
  startTimer()
end

on kumoh pos
  global gwlist1
  set num to getAt(gwlist1, pos)
  if num = 8 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, pos, num)
  if num > 5 then
    set num to num - ((num - 5) * 2)
  end if
  set the locV of sprite (pos + 1) to 71 + (1 * num)
end

on sunh
  if the memberNum of sprite 4 = 25 then
    set the memberNum of sprite 4 to 26
  else
    set the memberNum of sprite 4 to 25
  end if
end

on dogh
  set num to the locH of sprite 6
  if num <= 0 then
    set the locH of sprite 6 to 742
  else
    set the locH of sprite 6 to num - 10
  end if
  if the memberNum of sprite 6 = 28 then
    set the memberNum of sprite 6 to 29
  else
    set the memberNum of sprite 6 to 28
  end if
end