Internet 1996 World Exposition/park.org.s3.amazonaws.com.7z/park.org.s3.amazonaws.com/Japan/Panasonic-/funcity/tokyo/e/menu.dcr/00001_-- movie script.ls

Text File | 2017-09-21 | 7.5 KB | 274 lines

global oncursor, userid, userpw, userpm, userpg, lasteventtime, pmcginame, jumpmode, jumpmoviename, version

on startMovie
  set pmcginame to "http://202.224.191.2/cgi-bin/EcOpe.cgi?"
  set oncursor to [the number of cast "onCursor", the number of cast "onCursor" + 1]
  set the buttonStyle to 1
  cursor(oncursor)
  set the textHeight of field "help" to 16
  set the textHeight of field "info" to 16
  set the textHeight of field "checkText1" to 16
  set the textHeight of field "checkText2" to 16
  set the textHeight of field "checkUserID" to 16
  if voidp(userid) then
    put "guest" into field "userID"
    put "*****" into field "userPW"
    put field "infoDe1" into field "info"
  else
    put userid into field "userID"
    put userpw into field "userPW"
    put field "infoDe2" into field "info"
    if integer(char 1 of version) >= 5 then
      gotonetpage("bgm.html", "low")
    end if
  end if
  set lasteventtime to 0
end

on stopMovie
  put " " into field "userID"
  put " " into field "userPW"
  put " " into field "info"
end

on gameback
  if (the ticks - lasteventtime) > 15 then
    set the puppet of sprite clickOn() to 0
    if the frame >= label("bankResult") then
      go(label("bank") + 1)
    else
      if the frame >= label("bank") then
        go("loop")
      else
        if the frame >= label("help2") then
          go("check")
        else
          if the frame >= label("help") then
            go("loop")
          else
            jumpnetpage("http://japan.park.org/Japan/Panasonic/funcity/play.html")
          end if
        end if
      end if
    end if
  end if
  set lasteventtime to the ticks
end

on gamehelp
  set the puppet of sprite clickOn() to 0
  if the frame >= label("check") then
    go("help2")
  else
    go("help")
  end if
end

on jumpnetmovie mname
  set jumpmoviename to mname
  set userid to line 1 of field "userID"
  set userpw to line 1 of field "userPW"
  repeat with s = 1 to 48
    set the puppet of sprite s to 0
  end repeat
  if userid = "guest" then
    if mname = "goal.dcr" then
      alert("Guests are not allowed in the" & RETURN & "Olympic stadium.")
      go("loop")
      abort()
    else
      alert("If you play as a guest," & RETURN & "you points will not be counted.")
      set userpg to 2000
      set userpm to "000000000000000000000000"
      set jumpmode to 1
      gotonetmovie(jumpmoviename)
    end if
  else
    set jumpmode to 0
    requestuserpm()
  end if
  go("move")
end

on jumpnetpage pagename
  allpuppetoff()
  set jumpmode to 1
  gotonetpage(pagename)
  go("move")
end

on requestuserpm
  getnettext(pmcginame & "name=" & userid & "&" & "password=" & userpw)
end

on checknetresult
  if jumpmode then
    exit
  end if
  if netdone() then
    set nresult to nettextresult()
    if nresult starts "<" then
      alert(deletetag(nresult))
      go("loop")
      abort()
    else
      if nresult starts "E000" then
        if line 1 of nresult = "E0000" then
          set rtext to "Error : Server System Error"
        else
          if line 1 of nresult = "E0001" then
            set rtext to "Error : " & userid & "The name is not registered."
          else
            if line 1 of nresult = "E0002" then
              set rtext to "Error : The password is wrong."
            else
              if line 1 of nresult = "E0003" then
                set rtext to "Error : The parameter's form is wrong."
              else
                if line 1 of nresult = "E0003" then
                  set rtext to "Error : Your balance is short - you cannot make a withdrawal."
                end if
              end if
            end if
          end if
        end if
        alert(rtext)
        go("loop")
        abort()
      else
        set userpg to integer(word 1 of nresult)
        set userpm to word 2 of nresult
        if jumpmoviename = "goal.dcr" then
          checkmedallabel()
        else
          set jumpmode to 1
          gotonetmovie(jumpmoviename)
        end if
      end if
    end if
  end if
end

on checkmedallabel
  if (userpg < 2000) or (integer(char 9 of userpm) < 2) or (integer(char 10 of userpm) < 2) or (integer(char 11 of userpm) < 2) or (integer(char 12 of userpm) < 2) or (integer(char 13 of userpm) < 2) or (integer(char 14 of userpm) < 2) then
    beep()
    go("check")
    abort()
  else
    gotonetmovie(jumpmoviename)
  end if
end

on showuserpm
  put userid into field "checkUserID"
  put userpg & RETURN & pmtopoint(char 9 of userpm) & RETURN & pmtopoint(char 10 of userpm) & RETURN & pmtopoint(char 11 of userpm) & RETURN & pmtopoint(char 12 of userpm) & RETURN & pmtopoint(char 13 of userpm) & RETURN & pmtopoint(char 14 of userpm) into field "checktext2"
end

on pmtopoint upm
  if upm = 9 then
    set upm to 10
  end if
  set upm to upm * 10
  return integer(upm)
end

on rolloverbtn
  set rcnum to the mouseCast
  if rcnum > 0 then
    set rcname to string(the name of cast rcnum)
    if item 2 of rcname = "off" then
      repeat with s = 41 to 42
        if the castNum of sprite s = rcnum then
          if the mouseUp then
            set the puppet of sprite s to 1
            set the castNum of sprite s to rcnum + 1
            if the frame <= label("loop") then
              put field (item 1 of rcname & ".info") into field "info"
              puppetSound("showInfo")
            end if
          end if
          next repeat
        end if
        set the puppet of sprite s to 0
      end repeat
    else
      if item 2 of rcname = "on" then
        repeat with s = 41 to 42
          if the castNum of sprite s = rcnum then
            if the mouseDown and (clickOn() = s) then
              set the castNum of sprite s to rcnum + 1
              updateStage()
              do(item 1 of rcname)
            end if
          end if
        end repeat
      else
        if item 2 of rcname = "click" then
          repeat with s = 41 to 42
            if the castNum of sprite s = rcnum then
              if the mouseUp then
                set the castNum of sprite s to rcnum - 1
                next repeat
              end if
            end if
          end repeat
        else
          repeat with s = 41 to 42
            set the puppet of sprite s to 0
          end repeat
        end if
      end if
    end if
  else
    repeat with s = 41 to 42
      set the puppet of sprite s to 0
    end repeat
  end if
end

on rolloverchar
  repeat with s = 12 to 19
    if rollOver(s) then
      set chname to the name of cast the castNum of sprite s
      if chname contains "loop" then
        next repeat
      end if
      set the puppet of sprite s to 1
      set the castNum of sprite s to the number of cast (chname & ".loop")
      put field (chname & ".info") into field "info"
      puppetSound("showInfo")
      next repeat
    end if
    set the puppet of sprite s to 0
  end repeat
  repeat with s = 26 to 31
    if rollOver(s) then
      set chname to the name of cast the castNum of sprite s
      if field (chname & ".info") <> field "info" then
        put field (chname & ".info") into field "info"
        puppetSound("showInfo")
      end if
    end if
  end repeat
end

on bannertext
  set the puppet of sprite 21 to 1
  set the locH of sprite 21 to the locH of sprite 21 - 4 + ((520 + the width of sprite 21) * (the right of sprite 21 < 0))
end

on deletetag ctext
  repeat while ctext contains "<"
    set fchar to offset("<", ctext)
    set echar to offset(">", ctext)
    delete char fchar to echar of ctext
  end repeat
  return ctext
end

on allpuppetoff
  repeat with s = 1 to 48
    set the puppet of sprite s to 0
  end repeat
end