Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Fujitsu-/image/odenstg.dcr/00003_MainLoop.ls

Text File | 2017-09-21 | 6.8 KB | 242 lines

on exitFrame
  global enevit, enex, eney, enemx, enemy, odenx, odeny, msx, msy, billy, bgy, enebcnt, enedcnt, sf
  set the mouseDownScript to "ShotWeapon"
  puppetSprite(4, 1)
  set odenx to the mouseH
  set odeny to the mouseV
  set the locH of sprite 4 to odenx
  set the locV of sprite 4 to odeny
  updateStage()
  if (eney + 20) > odeny then
    puppetSound("dead_y.aif")
    repeat with i = 1 to 3
      set the castNum of sprite 4 to the number of cast "jiki2"
      updateStage()
      set the castNum of sprite 4 to the number of cast "jiki"
      updateStage()
    end repeat
    set the castNum of sprite 4 to the number of cast "boom"
    updateStage()
    gotonetpage("../gbad.html")
  end if
  if (odenx < 50) or (190 < odenx) then
    puppetSound("dead_y.aif")
    repeat with i = 1 to 3
      set the castNum of sprite 4 to the number of cast "jiki2"
      updateStage()
      set the castNum of sprite 4 to the number of cast "jiki"
      updateStage()
    end repeat
    set the castNum of sprite 4 to the number of cast "boom"
    updateStage()
    gotonetpage("../gbad.html")
  end if
  if (75 < enevit) and (enevit < 101) then
    set cx1 to enex - 40
    set cx2 to enex + 40
    set cy1 to eney + 23
    set cy2 to eney - 23
  else
    if (50 < enevit) and (enevit < 76) then
      set cx1 to enex - 50
      set cx2 to enex + 50
      set cy1 to eney + 29
      set cy2 to eney - 29
    else
      if (25 < enevit) and (enevit < 51) then
        set cx1 to enex - 65
        set cx2 to enex + 65
        set cy1 to eney + 40
        set cy2 to eney - 40
      else
        if enevit < 26 then
          set cx1 to enex - 80
          set cx2 to enex + 80
          set cy1 to eney + 45
          set cy2 to eney - 45
        end if
      end if
    end if
  end if
  if (cx1 < (odenx - 10)) and ((odenx + 10) < cx2) and (cy2 < (odeny + 10)) and ((odeny - 10) < cy1) then
    puppetSound("dead_y.aif")
    repeat with i = 1 to 3
      set the castNum of sprite 4 to the number of cast "jiki2"
      updateStage()
      set the castNum of sprite 4 to the number of cast "jiki"
      updateStage()
    end repeat
    set the castNum of sprite 4 to the number of cast "boom"
    updateStage()
    gotonetpage("../gbad.html")
  end if
  set enedcnt to enedcnt - 1
  if enedcnt = 0 then
    set enedcnt to 3
    puppetSprite(5, 1)
    set eney to eney + 1
    set the locV of sprite 5 to eney
    if (50 < enevit) and (enevit < 76) then
      if sf <> 1 then
        puppetSound("deb.aif")
        set sf to 1
      end if
      set the castNum of sprite 5 to the number of cast "pu2"
    else
      if (25 < enevit) and (enevit < 51) then
        if sf <> 2 then
          puppetSound("deb.aif")
          set sf to 2
        end if
        set the castNum of sprite 5 to the number of cast "pu3"
      else
        if (0 < enevit) and (enevit < 26) then
          if sf <> 3 then
            puppetSound("deb.aif")
            set sf to 3
          end if
          set the castNum of sprite 5 to the number of cast "pu4"
        else
          if enevit < 1 then
            if sf <> 4 then
              puppetSound("deb.aif")
              set sf to 4
            end if
            set the castNum of sprite 5 to the number of cast "pu5"
          end if
        end if
      end if
    end if
    updateStage()
  end if
  repeat with i = 1 to 5
    if getAt(msx, i) <> 0 then
      set x to getAt(msx, i)
      set y to getAt(msy, i) - 15
      setAt(msy, i, y)
      puppetSprite(i + 10, 1)
      set the locH of sprite (i + 10) to x
      set the locV of sprite (i + 10) to y
      updateStage()
      if y < -10 then
        setAt(msx, i, 0)
      end if
      if (75 < enevit) and (enevit < 101) then
        set cx1 to enex - 40
        set cx2 to enex + 40
        set cy1 to eney + 23
        set cy2 to eney - 23
      else
        if (50 < enevit) and (enevit < 76) then
          set cx1 to enex - 50
          set cx2 to enex + 50
          set cy1 to eney + 29
          set cy2 to eney - 29
        else
          if (25 < enevit) and (enevit < 51) then
            set cx1 to enex - 65
            set cx2 to enex + 65
            set cy1 to eney + 40
            set cy2 to eney - 40
          else
            if enevit < 26 then
              set cx1 to enex - 80
              set cx2 to enex + 80
              set cy1 to eney + 45
              set cy2 to eney - 45
            end if
          end if
        end if
      end if
      if (cx1 < x) and (x < cx2) and (cy1 > y) and (cy2 < y) then
        puppetSound("misairu.aif")
        set the castNum of sprite (i + 10) to the number of cast "hit"
        updateStage()
        set enevit to enevit - 2
        setAt(msx, i, 0)
        puppetSprite(i + 10, 0)
      end if
    end if
  end repeat
  if (getPos(enemx, 0) <> 0) and (enevit > 0) then
    set p to getPos(enemx, 0)
    set r to random(10)
    if r = 1 then
      set x to random(140) + 50
      set y to eney + 30
      setAt(enemx, p, x)
      setAt(enemy, p, y)
    end if
  end if
  repeat with i = 1 to 5
    if getAt(enemx, i) <> 0 then
      set x to getAt(enemx, i)
      set y to getAt(enemy, i) + 10
      setAt(enemy, i, y)
      puppetSprite(i + 15, 1)
      set the locH of sprite (i + 15) to x
      set the locV of sprite (i + 15) to y
      updateStage()
      if y > 310 then
        setAt(enemx, i, 0)
      end if
      set cx1 to odenx - 12
      set cx2 to odenx + 12
      set cy1 to odeny - 12
      set cy2 to odeny + 12
      if (cx1 < x) and (x < cx2) and (cy1 < y) and (y < cy2) then
        puppetSound("dead_y.aif")
        repeat with i = 1 to 3
          set the castNum of sprite 4 to the number of cast "jiki2"
          updateStage()
          set the castNum of sprite 4 to the number of cast "jiki"
          updateStage()
        end repeat
        set the castNum of sprite 4 to the number of cast "boom"
        updateStage()
        gotonetpage("../gbad.html")
      end if
    end if
  end repeat
  puppetSprite(1, 1)
  puppetSprite(2, 1)
  if (enevit < 0) and (enebcnt < 40) then
    if sf <> 5 then
      puppetSound("dead.aif")
      set sf to 5
    end if
    set billy to billy - 2
    set enebcnt to enebcnt + 1
  else
    if enebcnt > 39 then
      repeat with t = 1 to 5
        set the castNum of sprite 5 to the number of cast "namida"
        updateStage()
        set the castNum of sprite 5 to the number of cast "pu5"
        updateStage()
      end repeat
      repeat with i = 11 to 20
        puppetSprite(i, 0)
      end repeat
      gotonetpage("../ghappy.html")
    else
      set billy to billy - 10
    end if
  end if
  if billy = 0 then
    set billy to 300
  end if
  set the locV of sprite 1 to billy
  set the locV of sprite 2 to billy
  updateStage()
  puppetSprite(3, 1)
  set bgy to bgy - 0.5
  if bgy > -50 then
    set the locV of sprite 3 to bgy
  else
    puppetSound("dead_y.aif")
    gotonetpage("../gbad.html")
  end if
  go(the frame)
end