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

Text File | 2017-09-21 | 922 b | 71 lines

global kaisu, medal, rank, gpana

on initialize
  set rank to 0
  set kaisu to 0
  set medal to 0
  puppetTempo(12)
end

on throw where
  if the mouseUp then
    puppetSound("ooh")
    puppetTempo(12)
    set kaisu to kaisu + 1
    go(where)
  end if
end

on yosenng
  if kaisu = 3 then
    go("sikkaku")
  else
    go("start")
  end if
end

on yosenok
  set rank to rank + 1
  set kaisu to 0
  go("ok")
end

on final
  if kaisu = 3 then
    if medal = 1 then
      set gpana to 10
      go("dou")
    else
      if medal = 2 then
        set gpana to 30
        go("gin")
      else
        if medal = 3 then
          set gpana to 50
          go("kin")
        else
          go("nomedal")
        end if
      end if
    end if
  else
    go("start")
  end if
end

on judgeng
  if rank = 1 then
    final()
  else
    yosenng()
  end if
end

on judgeok
  if rank = 1 then
    final()
  else
    yosenok()
  end if
end