Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

avatarT-Lord
Admin


Bom,
estava no trabalho sem nada pra fazer (graças a deus Razz) entoa decidi
mecher com RMXP. baixei o NetPlay Master v3.0 e comecei a editar ate que
me veio a ideia de criar um sistema de Banco em que pode-se guardar e
retirar dinheiro!





CitaçãoNome: SBNPM (Sistema de Banco Netplay Master)
Criador: Nanzin
Data: 28/11/2011
Dificuldade: Medio
Equipe Desenvolvedora: Wolf dragon Makers



1º Script: Game_Party

Print:
Spoiler:

substitua o seu por esse:

Código:
#==============================================================================
# ■ Game_Party
#------------------------------------------------------------------------------
#  处理同伴的类。包含金钱以及物品的信息。本类的实例
# 请参考 $game_party。
# Modified BY: Nanzin
#==============================================================================

class Game_Party
  #--------------------------------------------------------------------------
  # ● 定义实例变量
  #--------------------------------------------------------------------------
  attr_reader  :actors                  # 角色
  attr_reader  :gold                    # 金钱
  attr_reader  :steps                    # 步数
  attr_reader  :conta
  #--------------------------------------------------------------------------
  # ● 初始化对像
  #--------------------------------------------------------------------------
  def initialize
    # 建立角色序列
    @actors = []
    # 初始化金钱与步数
    @conta = 0
    @gold = 0
    @steps = 0
    # 生成物品、武器、防具的所持数 hash
    @items = {}
    @weapons = {}
    @armors = {}
  end
  #--------------------------------------------------------------------------
  # ● 设置初期同伴
  #--------------------------------------------------------------------------
  def setup_starting_members
    @actors = []
    for i in $data_system.party_members
      @actors.push($game_actors[i])
    end
  end
  #--------------------------------------------------------------------------
  # ● 设置战斗测试用同伴
  #--------------------------------------------------------------------------
  def setup_battle_test_members
    @actors = []
    for battler in $data_system.test_battlers
      actor = $game_actors[battler.actor_id]
      actor.level = battler.level
      gain_weapon(battler.weapon_id, 1)
      gain_armor(battler.armor1_id, 1)
      gain_armor(battler.armor2_id, 1)
      gain_armor(battler.armor3_id, 1)
      gain_armor(battler.armor4_id, 1)
      actor.equip(0, battler.weapon_id)
      actor.equip(1, battler.armor1_id)
      actor.equip(2, battler.armor2_id)
      actor.equip(3, battler.armor3_id)
      actor.equip(4, battler.armor4_id)
      actor.recover_all
      @actors.push(actor)
    end
    @items = {}
    for i in 1...$data_items.size
      if $data_items[i].name != ""
        occasion = $data_items[i].occasion
        if occasion == 0 or occasion == 1
          @items[i] = 99
        end
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 同伴成员的还原
  #--------------------------------------------------------------------------
  def refresh
    # 游戏数据载入后角色对像直接从 $game_actors
    # 分离。
    # 回避由于载入造成的角色再设置的问题。
    new_actors = []
    for i in [Você precisa estar registrado e conectado para ver este link.]
      if $data_actors[@actors[i].id] != nil
        new_actors.push($game_actors[@actors[i].id])
      end
    end
    @actors = new_actors
  end
  #--------------------------------------------------------------------------
  # ● 获取最大等级
  #--------------------------------------------------------------------------
  def max_level
    # 同伴人数为 0 的情况下
    if @actors.size == 0
      return 0
    end
    # 初始化本地变量 level
    level = 0
    # 求得同伴的最大等级
    for actor in @actors
      if level < actor.level
        level = actor.level
      end
    end
    return level
  end
  #--------------------------------------------------------------------------
  # ● 加入同伴
  #    actor_id : 角色 ID
  #--------------------------------------------------------------------------
  def add_actor(actor_id)
    # 获取角色
    actor = $game_actors[actor_id]
    # 同伴人数未满 4 人、本角色不在队伍中的情况下
    if @actors.size < 4 and not @actors.include?(actor)
      # 添加角色
      @actors.push(actor)
      # 还原主角
      $game_player.refresh
    end
  end
  #--------------------------------------------------------------------------
  # ● 角色离开
  #    actor_id : 角色 ID
  #--------------------------------------------------------------------------
  def remove_actor(actor_id)
    # 删除觉得
    @actors.delete($game_actors[actor_id])
    # 还原主角
    $game_player.refresh
  end
  #--------------------------------------------------------------------------
  # ● 增加金钱 (减少)
  #    n : 金额
  #--------------------------------------------------------------------------
  def gain_gold(n)
    @gold = [[@gold + n, 0].max, 9999999].min
  end
 
  def guarda_conta(n)
    @conta = [[@conta +n,0].max,999999].min
  end
 
  #--------------------------------------------------------------------------
  # ● 减少金钱
  #    n : 金额
  #--------------------------------------------------------------------------
  def lose_gold(n)
    # 调用数值逆转 gain_gold
    gain_gold(-n)
  end
 
  def retira_conta(n)
    guarda_conta(-n)
  end
 
  #--------------------------------------------------------------------------
  # ● 增加步数
  #--------------------------------------------------------------------------
  def increase_steps
    @steps = [@steps + 1, 9999999].min
  end
  #--------------------------------------------------------------------------
  # ● 获取物品的所持数
  #    item_id : 物品 ID
  #--------------------------------------------------------------------------
  def item_number(item_id)
    # 如果 hash 个数数值不存在就返回 0
    return @items.include?(item_id) ? @items[item_id] : 0
  end
  #--------------------------------------------------------------------------
  # ● 获取武器所持数
  #    weapon_id : 武器 ID
  #--------------------------------------------------------------------------
  def weapon_number(weapon_id)
    # 如果 hash 个数数值不存在就返回 0
    return @weapons.include?(weapon_id) ? @weapons[weapon_id] : 0
  end
  #--------------------------------------------------------------------------
  # ● 获取防具所持数
  #    armor_id : 防具 ID
  #--------------------------------------------------------------------------
  def armor_number(armor_id)
    # 如果 hash 个数数值不存在就返回 0
    return @armors.include?(armor_id) ? @armors[armor_id] : 0
  end
  #--------------------------------------------------------------------------
  # ● 增加物品 (减少)
  #    item_id : 物品 ID
  #    n      : 个数
  #--------------------------------------------------------------------------
  def gain_item(item_id, n)
    # 更新 hash 的个数数据
    if item_id > 0
      @items[item_id] = [[item_number(item_id) + n, 0].max, 99].min
    end
  end
  #--------------------------------------------------------------------------
  # ● 增加武器 (减少)
  #    weapon_id : 武器 ID
  #    n        : 个数
  #--------------------------------------------------------------------------
  def gain_weapon(weapon_id, n)
    # 更新 hash 的个数数据
    if weapon_id > 0
      @weapons[weapon_id] = [[weapon_number(weapon_id) + n, 0].max, 99].min
    end
  end
  #--------------------------------------------------------------------------
  # ● 增加防具 (减少)
  #    armor_id : 防具 ID
  #    n        : 个数
  #--------------------------------------------------------------------------
  def gain_armor(armor_id, n)
    # 更新 hash 的个数数据
    if armor_id > 0
      @armors[armor_id] = [[armor_number(armor_id) + n, 0].max, 99].min
    end
  end
  #--------------------------------------------------------------------------
  # ● 减少物品
  #    item_id : 物品 ID
  #    n      : 个数
  #--------------------------------------------------------------------------
  def lose_item(item_id, n)
    # 调用 gain_item 的数值逆转
    gain_item(item_id, -n)
  end
  #--------------------------------------------------------------------------
  # ● 减少武器
  #    weapon_id : 武器 ID
  #    n        : 个数
  #--------------------------------------------------------------------------
  def lose_weapon(weapon_id, n)
    # 调用 gain_weapon 的数值逆转
    gain_weapon(weapon_id, -n)
  end
  #--------------------------------------------------------------------------
  # ● 减少防具
  #    armor_id : 防具 ID
  #    n        : 个数
  #--------------------------------------------------------------------------
  def lose_armor(armor_id, n)
    # 调用 gain_armor 的数值逆转
    gain_armor(armor_id, -n)
  end
  #--------------------------------------------------------------------------
  # ● 判断物品可以使用
  #    item_id : 物品 ID
  #--------------------------------------------------------------------------
  def item_can_use?(item_id)
    # 物品个数为 0 的情况
    if item_number(item_id) == 0
      # 不能使用
      return false
    end
    # 获取可以使用的时候
    occasion = $data_items[item_id].occasion
    # 战斗的情况
    if $game_temp.in_battle
      # 可以使用时为 0 (平时) 或者是 1 (战斗时) 可以使用
      return (occasion == 0 or occasion == 1)
    end
    # 可以使用时为 0 (平时) 或者是 2 (菜单时) 可以使用
    return (occasion == 0 or occasion == 2)
  end
  # -------------------------------------------------------------------------
  # ● 是否可以装备判定
  # -------------------------------------------------------------------------
  def item_can_equip?(actor,item)
    if actor.level<item.need_lv or
      actor.str<item.need_str or
      actor.dex<item.need_dex or
      actor.agi<item.need_agi or
      actor.int<item.need_int
      return false
    end
    return true
  end

  # -------------------------------------------------------------------------
  # ● 是否可以装备的详细判定(颜色设定)
  # ------------------------------------------------------------------------- 
  def item_can_equip01?(actor,item)
    if actor.level < item.need_lv
      return Color.new(255, 0, 0)
    end
    return Color.new(255, 255, 255, 255)
  end
 
  def item_can_equip02?(actor,item)
    if actor.str < item.need_str
      return Color.new(255, 0, 0)
    end
    return Color.new(255, 255, 255, 255)
  end
 
  def item_can_equip03?(actor,item)
    if actor.dex < item.need_dex
      return Color.new(255, 0, 0)
    end
    return Color.new(255, 255, 255, 255)
  end
 
  def item_can_equip04?(actor,item)
    if actor.agi < item.need_agi
      return Color.new(255, 0, 0)
    end
    return Color.new(255, 255, 255, 255)
  end
 
  def item_can_equip05?(actor,item)
    if actor.int < item.need_int
      return Color.new(255, 0, 0)
    end
    return Color.new(255, 255, 255, 255)
  end
  #--------------------------------------------------------------------------
  # ● 清除全体的行动
  #--------------------------------------------------------------------------
  def clear_actions
    # 清除全体同伴的行为
    for actor in @actors
      actor.current_action.clear
    end
  end
  #--------------------------------------------------------------------------
  # ● 可以输入命令的判定
  #--------------------------------------------------------------------------
  def inputable?
    # 如果一可以输入命令就返回 true
    for actor in @actors
      if actor.inputable?
        return true
      end
    end
    return false
  end
  #--------------------------------------------------------------------------
  # ● 全灭判定
  #--------------------------------------------------------------------------
  def all_dead?
    # 同伴人数为 0 的情况下
    if $game_party.actors.size == 0
      return false
    end
    # 同伴中无人 HP 在 0 以上
    for actor in @actors
      if actor.hp > 0
        return false
      end
    end
    # 全灭
    return true
  end
  #--------------------------------------------------------------------------
  # ● 检查连续伤害 (地图用)
  #--------------------------------------------------------------------------
  def check_map_slip_damage
    for actor in @actors
      if actor.hp > 0 and actor.slip_damage?
        actor.hp -= [actor.maxhp / 100, 1].max
        if actor.hp == 0
          $game_system.se_play($data_system.actor_collapse_se)
        end
        $game_screen.start_flash(Color.new(255,0,0,128), 4)
        $game_temp.gameover = $game_party.all_dead?
      end
    end
  end
  #--------------------------------------------------------------------------
  # ● 对像角色的随机确定
  #    hp0 : 限制为 HP 0 的角色
  #--------------------------------------------------------------------------
  def random_target_actor(hp0 = false)
    # 初始化轮流
    roulette = []
    # 循环
    for actor in @actors
      # 符合条件的场合
      if (not hp0 and actor.exist?) or (hp0 and actor.hp0?)
        # 获取角色职业的位置 [位置]
        position = $data_classes[actor.class_id].position
        # 前卫的话 n = 4、中卫的话 n = 3、后卫的话 n = 2
        n = 4 - position
        # 添加角色的轮流 n 回
        n.times do
          roulette.push(actor)
        end
      end
    end
    # 轮流大小为 0 的情况
    if roulette.size == 0
      return nil
    end
    # 转轮盘赌,决定角色
    return roulette[rand(roulette.size)]
  end
  #--------------------------------------------------------------------------
  # ● 对像角色的随机确定 (HP 0)
  #--------------------------------------------------------------------------
  def random_target_actor_hp0
    return random_target_actor(true)
  end
  #--------------------------------------------------------------------------
  # ● 对像角色的顺序确定
  #    actor_index : 角色索引
  #--------------------------------------------------------------------------
  def smooth_target_actor(actor_index)
    # 取得对像
    actor = @actors[actor_index]
    # 对像存在的情况下
    if actor != nil and actor.exist?
      return actor
    end
    # 循环
    for actor in @actors
      # 对像存在的情况下
      if actor.exist?
        return actor
      end
    end
  end
 
 #--------------------------------------------------------------------------
 # ● 完整鼠标系统
 #--------------------------------------------------------------------------
 def update
  mouse_x, mouse_y = Mouse.get_mouse_pos
  @mtp_x = mouse_x
  @mtp_y = mouse_y
  unless $game_system.map_interpreter.running? and @mouse_sta == 2 #鼠标状态不为跟随状态
    #得到鼠标图标方向
 
    $mouse_icon_id = $game_map.check_event_custom(mouse_x,mouse_y)  if
not [11, 12, 13, 14, 16, 17, 18, 19].include?($mouse_icon_id)
  else
    #令鼠标图标为正常
    $mouse_icon_id = 0 if @mouse_sta != 2
  end
 
  #单击鼠标时进行判断寻路或跟随
  if Mouse.trigger?(Mouse::LEFT) #当点击鼠标时
    unless $game_system.map_interpreter.running? or
            @move_route_forcing or $game_temp.message_window_showing #各种无效情况的排除
      #初始化
      @mouse_sta = 1
      p_direction = 5
      #检查鼠标处能否开启事件
      event_start,p_direction = $game_map.check_event_custom_start(mouse_x, mouse_y)
      #若在移动中再次点击鼠标左键(即双击左键),则改鼠标状态为跟随状态
      @mouse_sta = 2 if @paths_id != nil and @paths_id != @paths.size
      if @mouse_sta != 2
        #鼠标状态不为跟随状态则取数据并初始化路径
        trg_x = (mouse_x + $game_map.display_x / 4) / 32
        trg_y = (mouse_y + $game_map.display_y / 4) / 32
        @paths = []
        @paths_id = 0
        if event_start == 0 #若不能开启事件
          if trg_x != $game_player.x or trg_y != $game_player.y #若目标不为自身则开始寻路
            find_path = Find_Path.new
            @paths = find_path.find_player_short_path(trg_x, trg_y, @mtp_x, @mtp_y)
          end
        else #若能开启事件则改变角色朝向
          @direction = p_direction
        end
      end
    end
  end

  #开始移动
  if @mouse_sta != nil and @mouse_sta == 1 #若鼠标状态为寻路状态
    unless moving? or $game_system.map_interpreter.running? or
            @move_route_forcing or $game_temp.message_window_showing #排除无效情况
      if @paths_id != nil and @paths != nil and @paths_id <= @paths.size #若没有完成路径
        case @paths[@paths_id] #判断路径
        when 6
          @last_move_x = true
          move_right
          @paths_id += 1
          @direction = 6
        when 4
          @last_move_x = true
          move_left
          @paths_id += 1
          @direction = 4
        when 2
          @last_move_x = false
          move_down
          @direction = 2
          @paths_id += 1
        when 8
          @last_move_x = false
          move_up
          @direction = 8
          @paths_id += 1
        end
      end
    end
  elsif @paths != nil and @mouse_sta == 2 #当鼠标状态为跟随,且在移动中
    if Mouse.press?(Mouse::LEFT) #持续按住鼠标
      unless moving? or $game_system.map_interpreter.running? or
              @move_route_forcing or $game_temp.message_window_showing #排除无效情况
        #跟随方向判断并跟随
        if @mtp_x > self.screen_x
          if @mtp_y - self.screen_y > - ( @mtp_x - self.screen_x ) and
              @mtp_y - self.screen_y < @mtp_x - self.screen_x
            move_right
            $mouse_icon_id = 16
            @direction = 6
          end
          if @mtp_y - self.screen_y > @mtp_x - self.screen_x
            move_down
            $mouse_icon_id = 12
            @direction = 2
          end
          if @mtp_y - self.screen_y < - ( @mtp_x - self.screen_x )
            move_up
            $mouse_icon_id = 18
            @direction = 8
          end
        end
        if @mtp_x < self.screen_x
          if @mtp_y - self.screen_y > - ( self.screen_x - @mtp_x ) and
              @mtp_y - self.screen_y < self.screen_x - @mtp_x
            move_left
            $mouse_icon_id = 14
            @direction = 4
          end
          if @mtp_y - self.screen_y > self.screen_x - @mtp_x
            move_down
            $mouse_icon_id = 12
            @direction = 2
          end
          if @mtp_y - self.screen_y < - ( self.screen_x - @mtp_x )
            move_up
            $mouse_icon_id = 18
            @direction = 8
          end
        end
      end
    else #没状态的情况
      $mouse_icon_id = 0
      @mouse_sta = 0
      @paths_id = @paths.size #终止寻路移动
    end
  end
  self_update
  end
end
#Mouse.init
#END { Mouse.exit }

Explicaçao 1
-> linha 16:
Código:
  attr_reader  :conta
- Estamos Declarando Variavel Conta como somente Leitura!

-> linha 24
Código:
@conta = 0

- Estamos dizendo que o valor inicial do saldo da sua conta será 0, (afinal voce nao depositou nada ainda Very Happy)

-> linha 138

Código: [Selecionar] def guarda_conta(n)
@conta = [[@conta +n,0].max,999999].min
end-
estamos definindo o procedimento guarda_conta(n), que no caso acumula
na variavel @conta a quantidade estipulada no parametro n!,
ex:$game_party.guarda_conta(100)
se voce utilizar o comando: print($game_party.conta) o valor mostrado será 100, por que voce aumento 100 na variavel @conta!

-> linha 151

Código: [Selecionar]def retira_conta(n)
guarda_conta(-n)
end-
nesse estamos fazendo a retirada de valor da variavel @conta,no caso
funciona do mesmo jeito acima retirando um valor por parametro
ex: $game_party.retira_conta(100)
agora o @conta valerá 0!

2º Script: Network


(clique para mostrar/esconder)
troque o seu por esse:
Aqui

-> linha 340

Código: [Selecionar]send += "@conta = '#{$game_party.conta}';"- Aqui estamos enviando a Variavel @conta para o servidor!

-> linha 489

Código: [Selecionar]send += "@conta = '#{$game_party.conta}';"-
aqui estamos enviando novamente a variavel @conta para o servidor!, nas
duas formas estamos enviando para as informaçoes serem utilizadas pelo
personagem por isso eu digo "servidor";

3º Script: [GM] Game Party

Spoiler:

troque o seu por esse:

Código:
#==============================================================================
# ** Game_Party
#------------------------------------------------------------------------------
#  This class handles the party. It includes information on amount of gold
#  and items. Refer to "$game_party" for the instance of this class.
#==============================================================================
# * Modified By: Nanzin
#------------------------------------------------------------------------------

class Game_Party
  attr_accessor :items
  attr_accessor :weapons
  attr_accessor :armors
  #--------------------------------------------------------------------------
  # * Gain Items (or lose)
  #    item_id : item ID
  #    n      : quantity
  #--------------------------------------------------------------------------
  def gain_item(item_id, n)
    # Update quantity data in the hash.
    if item_id > 0
      @items[item_id] = [[item_number(item_id) + n, 0].max, 9999].min
    end
    $item_w.refresh if $item_w.visible
    #$janela_gold_w.refresh if $item_w.visible
    salvar
  end
  #--------------------------------------------------------------------------
  # ● Lose Items
  #    item_id : item ID
  #    n      : quantity
  #--------------------------------------------------------------------------
  def lose_item(item_id, n)
    # 调用 gain_item 的数值逆转
    gain_item(item_id, -n)
    if $item_w != nil
    $item_w.refresh if $item_w.visible
    #$janela_gold_w.refresh if $item_w.visible
    end
    salvar
  end
  #--------------------------------------------------------------------------
  # * Gain Weapons (or lose)
  #    weapon_id : weapon ID
  #    n        : quantity
  #--------------------------------------------------------------------------
  def gain_weapon(weapon_id, n)
    # Update quantity data in the hash.
    if weapon_id > 0
      @weapons[weapon_id] = [[weapon_number(weapon_id) + n, 0].max, 999999].min
    end
    $item_w.refresh if $item_w.visible
    #$janela_gold_w.refresh if $item_w.visible
    salvar
  end
  #--------------------------------------------------------------------------
  # * Gain Armor (or lose)
  #    armor_id : armor ID
  #    n        : quantity
  #--------------------------------------------------------------------------
  def gain_armor(armor_id, n)
    # Update quantity data in the hash.
    if armor_id > 0
      @armors[armor_id] = [[armor_number(armor_id) + n, 0].max, 9999999999].min
    end
    $item_w.refresh if $item_w.visible
    #$janela_gold_w.refresh if $item_w.visible
    salvar
  end
  #--------------------------------------------------------------------------
  # * Gain Gold (or lose)
  #    n : amount of gold
  #--------------------------------------------------------------------------
  def gain_gold(n)
    @gold = [[@gold + n, 0].max, 9999].min
    Network::Main.send_gold
    $game_party.gain_item(Item_Ouro::Item_Id.to_i,n)
    $item_w.refresh if $item_w.visible
    $janela_gold_w.refresh if $item_w.visible
    salvar
  end
 
  def guarda_conta(n)
    @conta = [[@conta + n,0].max, 999999].min
    Network::Main.send_conta
    salvar
  end
 
  #--------------------------------------------------------------------------
  # * Lose Gold
  #    n : amount of gold
  #--------------------------------------------------------------------------
  def lose_gold(n)
    # Reverse the numerical value and call it gain_gold
    gain_gold(-n)
    Network::Main.send_gold
    $game_party.lose_item(Item_Ouro::Item_Id.to_i,n)
    $item_w.refresh if $item_w.visible
    $janela_gold_w.refresh if $item_w.visible
    salvar
  end
 
  def retira_conta(n)
    guarda_conta(-n)
    Network::Main.send_conta
    salvar
  end
end

-> linha 83
Código:
def guarda_conta(n)
    @conta = [[@conta + n,0].max, 999999].min
    Network::Main.send_conta
    salvar
  end
 

- aqui estamos criando o guarda_conta novamente, desta vez coms as configuraçoes do Network! e com o "Save Automatico";

-> linha 103
Código:
def retira_conta(n)
    guarda_conta(-n)
    Network::Main.send_conta
    salvar
  end

- aqui estamos criando o retira_conta novamente tambme com as configuraços do Network! e com o "Save automatico"

4º Script: [SYS] Banco

cole em qualuqer lugar acima do Main_Netplay esse script:
Código:
#--------------------------------------------------------------------#
# * Sistema de Deposito e Saque
# Scripted By: Nanzin
# Funçao: Permite o Player depositar e sacar dinheiro
# Equipe: Wolf Dragon Makers
# Creditos: Nanzin
#--------------------------------------------------------------------#


class Window_Deposito < Window_Base
  def initialize
    super(50,50,207,110)
    self.contents = Bitmap.new(width - 32,height - 32)
    self.z = 9999
    self.opacity = 200
    @dragable = true
    @closable = true
    conteudo
  end
 
  def conteudo
    self.contents.clear
    self.contents.draw_text(32,-10,132,32,"Quanto Deseja Depositar?")
    self.contents.draw_text(22,10,132,32,"Gold: #{$game_party.item_number(Item_Ouro::Item_Id.to_i)}")
    self.contents.draw_text(102,10,132,32,"Saldo: #{$game_party.conta}")
    @ok = Button.new(self,123,60,"Depositar"){deposito}
    @qt = Text_Box.new(self,45,60,75,10,1)
    icone1 = RPG::Cache.icon("Gold")
    icone1_rect = Rect.new(0,0,icone1.width,icone1.height)
    self.contents.blt(-2,40,icone1,icone1_rect)
    self.contents.draw_text(18,36,132,32,"R$: ")
    self.contents.draw_text(0,53,132,32,"Status: ")
  end
 
  def deposito
    if @qt.text == ""
      msg_erro = "Informe Uma Quantia"
      self.contents.font.color = Color.new(255,-255,-255,255)
      self.contents.draw_text(37,53,132,32,"#{msg_erro}")
    end
 
  if $game_party.item_number(Item_Ouro::Item_Id.to_i) != 0 and
$game_party.item_number(Item_Ouro::Item_Id.to_i) >= (@qt.text).to_i
and @qt.text != ""
      $game_party.lose_gold((@qt.text).to_i)
      $game_party.guarda_conta((@qt.text).to_i)
      msg_sucess = "Deposito Efetuado Com Sucesso"
      self.contents.font.color = Color.new(0,255,0,255)
      self.contents.draw_text(37,53,132,32,"#{msg_sucess}")
 
  elsif $game_party.item_number(Item_Ouro::Item_Id.to_i) == 0 and
@qt.text != "" or $game_party.item_number(Item_Ouro::Item_Id.to_i) <
(@qt.text).to_i and @qt.text != ""
      msg_erro = "Voce nao Possui essa Quantia"
      self.contents.font.color = Color.new(255,-255,-255,255)
      self.contents.draw_text(37,53,132,32,"#{msg_erro}")
    end
  end
end


class Window_Saque < Window_Base
def initialize
    super(50,50,207,86)
    self.contents = Bitmap.new(width - 32,height - 32)
    self.z = 9999
    self.opacity = 200
    @dragable = true
    @closable = true
    conteudo
  end
 
  def conteudo
    self.contents.clear
    self.contents.draw_text(32,-10,132,32,"Quanto Deseja Retirar?")
    self.contents.draw_text(22,10,132,32,"Gold: #{$game_party.item_number(Item_Ouro::Item_Id.to_i)}")
    self.contents.draw_text(102,10,132,32,"Saldo: #{$game_party.conta}")
    @ok = Button.new(self,123,60,"Retirar"){sacar}
    @qt = Text_Box.new(self,45,60,75,10,1)
    icone1 = RPG::Cache.icon("Gold")
    icone1_rect = Rect.new(0,0,icone1.width,icone1.height)
    self.contents.blt(-2,40,icone1,icone1_rect)
    self.contents.draw_text(18,36,132,32,"R$: ")
    self.contents.draw_text(0,53,132,32,"Status: ")
  end
 
  def sacar
    if @qt.text == ""
      msg_erro = "Informe Uma Quantia"
      self.contents.font.color = Color.new(255,-255,-255,255)
      self.contents.draw_text(37,53,132,32,"#{msg_erro}")
    end
    if $game_party.conta != 0 and $game_party.conta >= (@qt.text).to_i and @qt.text != ""
      $game_party.retira_conta((@qt.text).to_i)
      $game_party.gain_gold((@qt.text).to_i)
      msg_sucess = "Saque Efetuado Com Sucesso"
      self.contents.font.color = Color.new(0,255,0,255)
      self.contents.draw_text(37,53,132,32,"#{msg_sucess}")
    elsif $game_party.conta == 0 and @qt.text != "" or $game_party.conta < (@qt.text).to_i and @qt.text != ""
      msg_erro = "Saldo Insuficiente!"
      self.contents.font.color = Color.new(255,-255,-255,255)
      self.contents.draw_text(37,53,132,32,"#{msg_erro}")
    end
  end
end

class Window_Banco < Window_Base
  def initialize
    super(100,100,200,90)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.z = 99999
    self.opacity = 200
    @dragable = true
    @closable = true
    conteudo
  end
 
  def conteudo
    self.contents.draw_text(30,0,132,32,"Bem vindo ao Banco!")
    @sacar = Button.new(self,30,50,"Retirar"){$banco.visible = false,$banco.active = false,$saque.visible = true}
    @depositar = Button.new(self,90,50,"Depositar"){$banco.visible = false,$banco.active = false,$deposito.visible = true}
  end
end

-> linha 16 e 17

Código: [Selecionar]@dragable = true
@closable = true- estamos dizendo que a janela pode ser Arrastada pela tela e que ela pode ser fechada pelo "xzinho"

-> linha 25

Código: [Selecionar]self.contents.draw_text(102,10,132,32,"Saldo: #{$game_party.conta}")aqui estamos mostrando o seu saldo de banco (o que foi depositado), atravez da chamada de variavel:@gold da classe game_party;

-> linha 26 e 27

Código: [Selecionar]@ok = Button.new(self,123,60,"Depositar"){deposito}
@qt = Text_Box.new(self,45,60,75,10,1)- aqui estamos dizendo que @ok é um botao e que @qt é um text_box,

um botao se faz pelos seguintes parametros:


Código: [Selecionar]Button.new(win,x,y,"texto_aqui")
onde win e a janela que o botao está x,y sao as coordenadas!

e text_box se declara assim:


Código: [Selecionar] Text_Box.new(win,x,y,width,max_caracteres,linhas)onde width é o tamanho dela em comprimento: <------------>;

- > linha 35
Código:
 def deposito
    if @qt.text == ""
      msg_erro = "Informe Uma Quantia"
      self.contents.font.color = Color.new(255,-255,-255,255)
      self.contents.draw_text(37,53,132,32,"#{msg_erro}")
    end
 
  if $game_party.item_number(Item_Ouro::Item_Id.to_i) != 0 and
$game_party.item_number(Item_Ouro::Item_Id.to_i) >= (@qt.text).to_i
and @qt.text != ""
      $game_party.lose_gold((@qt.text).to_i)
      $game_party.guarda_conta((@qt.text).to_i)
      msg_sucess = "Deposito Efetuado Com Sucesso"
      self.contents.font.color = Color.new(0,255,0,255)
      self.contents.draw_text(37,53,132,32,"#{msg_sucess}")
 
  elsif $game_party.item_number(Item_Ouro::Item_Id.to_i) == 0 and
@qt.text != "" or $game_party.item_number(Item_Ouro::Item_Id.to_i) <
(@qt.text).to_i and @qt.text != ""
      msg_erro = "Voce nao Possui essa Quantia"
      self.contents.font.color = Color.new(255,-255,-255,255)
      self.contents.draw_text(37,53,132,32,"#{msg_erro}")
    end
  end

- aqui estamos criando o sistema d deposito, que fica dessa forma:
se o box de texto estiver vazio um aviso é enviado: "Informe uma Quantia"

se
o seu dinheiro é diferente de 0 e ele é maior que a quantidade que voce
escreveu no box, e que box e diferente de "" (vazio)" entao:

Código: [Selecionar]$game_party.lose_gold((@qt.text).to_i)
$game_party.guarda_conta((@qt.text).to_i)
msg_sucess = "Deposito Efetuado Com Sucesso"
self.contents.font.color = Color.new(0,255,0,255)
self.contents.draw_text(37,53,132,32,"#{msg_sucess}")
voce
perde a quantidade de gold informada no box, lembra do procedimento:
guada_conta? que criamos 2 vezes?, enta ele esta sendo usado agora: para
que na variavel @conta fique guardado a quantia que voce digito a ser
depositada!;

depois a mensagem "Deposito efetuado com sucesso" é mostrada!

caso voce nao tenha a quantia que deseja depositar, uma mensagem será mostrada!

os mesmos principios matematicos sao utilizados no procedimento Saque!




Download Aqui

Versao com Auto-Atualizador: Aqui!


Ver perfil do usuário http://www.zonetoony.net
avatarjuanf11
Admin
Obrigado por Conpartilhar


_________________Assinatura:_________________
Ver perfil do usuário

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum