Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/paris/wave/MAP062J.dcr/00003.ls

Text File | 2017-09-21 | 5.0 KB | 184 lines

global ganimal1, ganimal2, ganimal3, gset1, gscore, animallist, ganimalsp, gpana, mm, buff

on initialize
  puppetTempo(10)
  set ganimal1 to 0
  set ganimal2 to 0
  set ganimal3 to 0
  set gset1 to 0
  set ganimalsp to 0
  set gscore to 0
  set gpana to 0
  set animallist to [2: #l03, 3: #r06, 4: #r02, 5: #l09, 7: #l01, 8: #r04, 11: #l07, 12: #r10, 13: #r08, 14: #l05]
end

on animalchanel
  set ganimal1 to 1 + random(4)
  set ganimal2 to 6 + random(2)
  set ganimal3 to 10 + random(4)
end

on pushanimal whichsound
  puppetSound(whichsound)
  set gscore to gscore + 1
  set gpana to gscore * 50
  set spnum to clickOn()
  set nowcastnum to the castNum of sprite spnum
  puppetSprite(spnum, 1)
  repeat with n = -1 down to -3
    set the castNum of sprite spnum to nowcastnum + n
    updateStage()
  end repeat
  set gset1 to 0
  wait(15)
end

on pushokama
  puppetSound("Oshoot")
  set spnum to clickOn()
  set nowcastnum to the castNum of sprite spnum
  puppetSprite(spnum, 1)
  set the castNum of sprite spnum to the number of cast "okama4"
  updateStage()
  tokuten()
  updateStage()
  wait(120)
  repeat with n = 2 to 23
    puppetSprite(n, 0)
  end repeat
  go("keikoku")
end

on hideanimal1
  set w to random(4)
  if w = 1 then
    set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 3
    updateStage()
    set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 2
    updateStage()
    set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 1
    updateStage()
    set gset1 to 0
    set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp))
    updateStage()
  end if
end

on setanimal1
  if gset1 = 1 then
    hideanimal1()
  else
    set animallist to [2: #l03, 3: #r06, 4: #r02, 5: #l09, 7: #l01, 8: #r04, 11: #l07, 12: #r10, 13: #r08, 14: #l05]
    set w to random(3)
    if w = 1 then
      set ganimalsp to ganimal1
    else
      if w = 2 then
        set ganimalsp to ganimal2
      else
        set ganimalsp to ganimal3
      end if
    end if
    puppetSprite(ganimalsp, 1)
    set i to random(4)
    if i = 1 then
      setaProp(animallist, ganimalsp, #okama)
      set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 1
      updateStage()
      set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 2
      updateStage()
      set gset1 to 1
      set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 3
      updateStage()
      hideanimal1()
    else
      set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 1
      updateStage()
      set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 2
      updateStage()
      set gset1 to 1
      set the castNum of sprite ganimalsp to the number of cast string(getaProp(animallist, ganimalsp)) + 3
      updateStage()
      hideanimal1()
    end if
  end if
end

on wait t
  set endtime to the ticks + t
  repeat while the ticks <= endtime
    nothing()
  end repeat
end

on judge
  if the timer >= (60 * 30) then
    repeat with n = 2 to 23
      puppetSprite(n, 0)
    end repeat
    go("high")
  end if
end

on tokuten
  global ghitoketa, gfutaketa
  if gscore < 10 then
    put 0 & gscore into field "tensu"
  else
    put gscore into field "tensu"
  end if
  puppetSprite(20, 1)
  puppetSprite(21, 1)
  set ghitoketa to char 1 of field "tensu"
  set gfutaketa to char 2 of field "tensu"
  set the castNum of sprite 20 to ghitoketa + 100
  set the castNum of sprite 21 to gfutaketa + 100
  updateStage()
end

on countdown
  global gthitoketa, gtfutaketa
  if the timer >= (60 * 21) then
    put 0 & 30 - (the timer / 60) into field "time"
  else
    put 30 - (the timer / 60) into field "time"
  end if
  puppetSprite(22, 1)
  puppetSprite(23, 1)
  set gthitoketa to char 1 of field "time"
  set gtfutaketa to char 2 of field "time"
  set the castNum of sprite 22 to gthitoketa + 100
  set the castNum of sprite 23 to gtfutaketa + 100
  updateStage()
end

on getpana
  global gphitoketa, gpfutaketa, gpsanketa, gpyonketa, mm
  if gpana < 10 then
    put 0 & 0 & 0 & gpana into field "panatxt"
  else
    if gpana < 100 then
      put 0 & 0 & gpana into field "panatxt"
    else
      if gpana < 1000 then
        put 0 & gpana into field "panatxt"
      else
        put gpana into field "panatxt"
      end if
    end if
  end if
  puppetSprite(29, 1)
  puppetSprite(30, 1)
  puppetSprite(31, 1)
  puppetSprite(32, 1)
  set gphitoketa to char 1 of field "panatxt"
  set gpfutaketa to char 2 of field "panatxt"
  set gpsanketa to char 3 of field "panatxt"
  set gpyonketa to char 4 of field "panatxt"
  set the castNum of sprite 29 to gphitoketa + 100
  set the castNum of sprite 30 to gpfutaketa + 100
  set the castNum of sprite 31 to gpsanketa + 100
  set the castNum of sprite 32 to gpyonketa + 100
  updateStage()
end