Forums » RPG MAKER 2K e 2003

Sistema de Banco [Nível Iniciante]

    • 683 posts
    29 de maio de 2015 12:42:14 ART

    Sistema de Banco

    Para começar a tela deve ficar assim 
        <>Messg: Bem vindo ao banco [nome do banco, se você quiser]: Por favor escolha uma opção: 
        <>Show Choice: Retirar/Depositar :
              <>:[Retirar] Case 
    <>:[Depositar] Case 
    <>:CANCEL Case 
    <>:END Case <> 
    Coloque esses títulos para variables: Dinheiro atual, Dinheiro da conta, Retirar dinheiro, Depositar dinheiro. Eu usarei 1 para dinheiro atual, 2 para dinheiro da conta
    No caso de retirar, a tela deve ficar assim:
    <>:[Retirar] Case 
        <>LABEL: 1No 
        <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando. 
    Eu coloquei  [2] porque variable 2 é a que nós designamos para "Dinheiro da conta". Então ficará assim... 
            <>:[Retirar] Case 
                  <>LABEL: 1No 
                  <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.
                  <>Input Number: 6 Dg.[0003:Retirar dinheiro] 
                  <>FORK Optn: Varbl[0003:Retirar dinheiro]-V[0002]less 
                  <>Messg: Você retirou [3] [tipo do dinheiro aqui]. Pegue seu dinheiro. 
                  <>Change Money: Money V[0003] Incr. 
                  <>Variable Ch:[0002: Dinheiro da conta]-, Var.[0003]val. 
              <> Excepting Case 
                  <>Messg: A quantidade que você colocou está ultrapassando a quantia em sua conta. 
                  <>GOTOLabel: 1No 
    <>:END Case <> 
    Agora, para depositar, a tela deve ficar assim... 
            <>:[Depositar] Case 
                  <>LABEL: 2No 
                  <>Variable Ch:[0001:Dinheiro atual] Set, Money# 
                  <>Messg: Você tem [2] [tipo do dinheiro aqui] na sua conta. Coloque a quantidade de dinheiro que você quer depositar. 
                  <>Input Number: 6 Dg.[0004:Depositar dinheiro] 
                  <>FORK Optn: Varbl[0004:Depositar]-V[0001]less 
                  <>Messg: Obrigado. Você tinha [4] [tipo do dinheiro aqui] na sua conta antes de depositar. 
                  <>Change Money: Money V[0004] Decr. 
                  <>Variable Ch:[0002: Dinheiro da conta]+, Var.[0004]val. 
              <>Excepting Case 
    <>Messg: A quantidade que você quer depositar está acima da quantia que você está segurando. 
    <>GOTOLabel: 2No. 
    O evento inteiro tem que ficar desse jeito: 
              <>Messg: Bem vindo ao banco [nome do banco, se você quiser]: Por favor escolha uma opção: 
        <>Show Choice: Retirar/Depositar :
              <>:[Retirar] Case 
    <>:[Depositar] Case 
    <>:CANCEL Case 
    <>:END Case <>
              <>:[Retirar] Case 
        <>LABEL: 1No 
        <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando. 
    Eu coloquei  [2] porque variable 2 é a que nós designamos para "Dinheiro da conta". Então ficará assim... 
            <>:[Retirar] Case 
                  <>LABEL: 1No 
                  <>Messg: Você têm [2] [tipo do dinheiro aqui] na sua conta . Coloque a quantidade que está retirando.
                  <>Input Number: 6 Dg.[0003:Retirar dinheiro] 
                  <>FORK Optn: Varbl[0003:Retirar dinheiro]-V[0002]less 
                  <>Messg: Você retirou [3] [tipo do dinheiro aqui]. Pegue seu dinheiro. 
                  <>Change Money: Money V[0003] Incr. 
                  <>Variable Ch:[0002: Dinheiro da conta]-, Var.[0003]val. 
              <> Excepting Case 
                  <>Messg: A quantidade que você colocou está ultrapassando a quantia em sua conta. 
                  <>GOTOLabel: 1No 
    <>:END Case <>
        [Depositar] Case 
                  <>LABEL: 2No 
                  <>Variable Ch:[0001:Dinheiro atual] Set, Money# 
                  <>Messg: Você tem [2] [tipo do dinheiro aqui] na sua conta. Coloque a quantidade de dinheiro que você quer depositar. 
                  <>Input Number: 6 Dg.[0004:Depositar dinheiro] 
                  <>FORK Optn: Varbl[0004:Depositar]-V[0001]less 
                  <>Messg: Obrigado. Você tinha [4] [tipo do dinheiro aqui] na sua conta antes de depositar. 
                  <>Change Money: Money V[0004] Decr. 
                  <>Variable Ch:[0002: Dinheiro da conta]+, Var.[0004]val. 
              <>Excepting Case 
    <>Messg: A quantidade que você quer depositar está acima da quantia que você está segurando. 
    <>GOTOLabel: 2No.  

    Qualquer dúvida é só postar =P