Car Screensaver - Toyota/TOYOTA.iso/mjparty/no1_demo/dnorp01a.dxr/script_9.ls

Text File | 1996-10-31 | 8.3 KB | 384 lines

on counth2
  global gtime1
  if gtime1 = 12 then
    set gtime1 to 1
  else
    set gtime1 to gtime1 + 1
  end if
  yfishh()
  b1fishh()
  b2fishh()
  if (gtime1 mod 2) = 0 then
    curh()
    kujirah()
    takoh()
    azah()
  end if
  if (gtime1 mod 3) = 0 then
    lionh()
    kanh()
    penh()
  end if
  if (gtime1 mod 4) = 0 then
    kituh()
    kidsh()
  end if
  if (gtime1 mod 12) = 0 then
    eleh()
  end if
  startTimer()
end

on kidsh
  repeat with n = 9 to 13
    set num to the memberNum of sprite n
    if num > 35 then
      set the memberNum of sprite n to num - 5
      next repeat
    end if
    if random(5) = 1 then
      set the memberNum of sprite n to num + 5
    end if
  end repeat
end

on curh
  global gwlist1
  setAt(gwlist1, 1, getAt(gwlist1, 1) * -1)
  if getAt(gwlist1, 1) = 1 then
    cursor([3, 4])
  else
    cursor([5, 6])
  end if
end

on lionh
  global gwlist1
  set num to getAt(gwlist1, 2)
  if num = 6 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 2, num)
  if (num = 2) or (num = 4) then
    set the memberNum of sprite 16 to 62
  else
    set the memberNum of sprite 16 to 61
  end if
end

on eleh
  global gwlist1
  set num to getAt(gwlist1, 3)
  if num = 3 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 3, num)
  if num = 1 then
    set the memberNum of sprite 17 to 63
  else
    if num = 2 then
      set the memberNum of sprite 17 to 64
    end if
  end if
end

on kanh
  global gwlist1
  set num to getAt(gwlist1, 4)
  if num = 9 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 4, num)
  if num > 7 then
    exit
  else
    if (num mod 2) = 1 then
      set the memberNum of sprite 18 to 65
    else
      set the memberNum of sprite 18 to 66
    end if
  end if
end

on kituh
  global gwlist1
  setAt(gwlist1, 5, getAt(gwlist1, 5) * -1)
  if getAt(gwlist1, 5) = 1 then
    set the memberNum of sprite 19 to 67
  else
    set the memberNum of sprite 19 to 68
  end if
end

on kujirah
  global gwlist1
  set num to getAt(gwlist1, 6)
  if num = 20 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 6, num)
  if num = 1 then
    set p to random(2)
    set the locH of sprite 20 to getAt([160, 417], p)
    set the locV of sprite 20 to getAt([407, 312], p)
  else
    if num < 6 then
      set the memberNum of sprite 20 to 69 + num
    else
      if (num > 9) and (num < 13) then
        set the memberNum of sprite 20 to 83 - num
      else
        if num = 13 then
          set the memberNum of sprite 20 to 20
        end if
      end if
    end if
  end if
end

on penh
  global gwlist1
  set num to getAt(gwlist1, 7)
  if num = 18 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 7, num)
  case num of
    2, 11:
      set the locH of sprite 21 to 614
      set the locV of sprite 21 to 165
      if num = 11 then
        set the memberNum of sprite 21 to 75
      end if
    3, 12:
      set the locH of sprite 21 to 595
      set the locV of sprite 21 to 176
      if num = 3 then
        set the memberNum of sprite 21 to 76
      end if
    4:
      set the memberNum of sprite 21 to 77
    5:
      set the locH of sprite 21 to 700
    9:
      set the locH of sprite 21 to 595
    10:
      set the memberNum of sprite 21 to 76
  end case
end

on takoh
  global gwlist1
  takomoveh(0)
  if getAt(gwlist1, 9) <> 0 then
    takomoveh(1)
  else
    if random(12) = 1 then
      set pos to takoposh(22)
      set the locH of sprite 23 to getAt([208, 267, 386], pos)
      set the locV of sprite 23 to getAt([381, 430, 366], pos)
      takomoveh(1)
    end if
  end if
end

on takomoveh p
  global gwlist1
  set num to getAt(gwlist1, 8 + p)
  if num = 12 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 8 + p, num)
  case num of
    2, 3, 4:
      set the memberNum of sprite (22 + p) to 76 + num
    7, 8:
      set the memberNum of sprite (22 + p) to 86 - num
    9:
      set the memberNum of sprite (22 + p) to 20
    12:
      if p = 0 then
        if getAt(gwlist1, 9) = 0 then
          set pos to random(3)
        else
          set pos to takoposh(23)
        end if
        set the locH of sprite 22 to getAt([208, 267, 386], pos)
        set the locV of sprite 22 to getAt([381, 430, 366], pos)
      else
        setAt(gwlist1, 9, 0)
      end if
  end case
end

on takoposh sp
  set p to getPos([208, 267, 386], the locH of sprite sp)
  repeat with n = 1 to 1
    set pos to random(3)
    if pos = p then
      set n to n - 1
    end if
  end repeat
  return pos
end

on yfishh
  global gwlist1
  set num to getAt(gwlist1, 10)
  if num = 26 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 10, num)
  if num = 1 then
    set the memberNum of sprite 24 to 81
    set the memberNum of sprite 25 to 81
  else
    if num < 12 then
      set the locV of sprite 24 to 390 + random(10)
      set the locV of sprite 25 to 418 + random(10)
      set the locH of sprite 24 to 466 - (num * 6)
      set the locH of sprite 25 to 492 - (num * 12)
    else
      if num = 14 then
        set the memberNum of sprite 24 to 82
        set the memberNum of sprite 25 to 82
      else
        if (num > 14) and (num < 25) then
          set the locV of sprite 24 to 390 + random(10)
          set the locV of sprite 25 to 418 + random(10)
          set the locH of sprite 24 to 400 + ((num - 14) * 6)
          set the locH of sprite 25 to 360 + ((num - 14) * 12)
        end if
      end if
    end if
  end if
end

on b1fishh
  global gwlist1
  set num to getAt(gwlist1, 11)
  if num = 52 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 11, num)
  if num < 27 then
    if (num mod 2) = 1 then
      set the memberNum of sprite 26 to 83
    else
      set the memberNum of sprite 26 to 84
    end if
  else
    if (num mod 2) = 1 then
      set the memberNum of sprite 26 to 85
    else
      set the memberNum of sprite 26 to 86
    end if
  end if
  if (num > 1) and (num < 14) then
    set the locV of sprite 26 to 163 - random(5)
    set the locH of sprite 26 to 335 - (num * 5)
  else
    if (num > 13) and (num < 23) then
      set the locV of sprite 26 to 155 - random(5)
      set the locH of sprite 26 to 335 - (num * 5)
    else
      if (num > 27) and (num < 44) then
        set the locV of sprite 26 to 138 + random(5)
        set the locH of sprite 26 to 225 + ((num - 27) * 5)
      else
        if (num > 43) and (num < 49) then
          set the locV of sprite 26 to 145 + random(5)
          set the locH of sprite 26 to 225 + ((num - 27) * 5)
        end if
      end if
    end if
  end if
end

on b2fishh
  global gwlist1
  set num to getAt(gwlist1, 12)
  if num = 34 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 12, num)
  if num < 20 then
    if (num mod 2) = 1 then
      set the memberNum of sprite 27 to 85
    else
      set the memberNum of sprite 27 to 86
    end if
  else
    if (num mod 2) = 1 then
      set the memberNum of sprite 27 to 83
    else
      set the memberNum of sprite 27 to 84
    end if
  end if
  if (num > 1) and (num < 10) then
    set the locH of sprite 27 to 11 + (num * 5)
    set the locV of sprite 27 to 393 - (num * 3) - random(4)
  else
    if (num > 13) and (num < 18) then
      set the locH of sprite 27 to 56 + ((num - 13) * 2) + random(7)
      set the locV of sprite 27 to 366 + ((num - 13) * 6)
    else
      if (num > 21) and (num < 32) then
        set the locH of sprite 27 to 68 - ((num - 21) * 5)
        set the locV of sprite 27 to 388 + random(5)
      end if
    end if
  end if
end

on azah
  global gwlist1
  set num to getAt(gwlist1, 13)
  if num = 36 then
    set num to 1
  else
    set num to num + 1
  end if
  setAt(gwlist1, 13, num)
  if num < 18 then
    if (num mod 2) = 1 then
      set the memberNum of sprite 28 to 87
    else
      set the memberNum of sprite 28 to 88
    end if
  else
    if (num mod 2) = 1 then
      set the memberNum of sprite 28 to 89
    else
      set the memberNum of sprite 28 to 90
    end if
  end if
  if (num > 1) and (num < 16) then
    set the locH of sprite 28 to 375 + (num * 5)
    set the locV of sprite 28 to 166 - random(4)
  else
    if (num > 19) and (num < 34) then
      set the locH of sprite 28 to 450 - ((num - 19) * 5)
      set the locV of sprite 28 to 154 + random(4)
    end if
  end if
end