[VX script] Changable Dash Speed

    #=============================================================================#
    # Instruksi :                                                               
    #                                                                           
    # o Copy script ini, dan paste di antara Material dan Main Section         
    # o Kustomisasikan terlebih dahulu !                                       
    # o Laporkan bila ada bug, error, dan kerusakan lainnya rpgmakerid.com       
    # o Berikan saya kritik & saran anda                                       
    # o No CREDIT required ....                                                 
    #                                                                           
    #=============================================================================#
      module Kustomisasi
   
      # *Pilih salah satu yang menentukan kecepatan lari!
      # Ganti salah satu dari ketiga tulisan "false" menjadi "true"
      # WARNING ; jika mengisi false / true semua mungkin akan berakibat buruk !
   
      Tombol_Dash = Input::A                        # Tekan F1 saat memainkan game anda untuk melihat tombol yang berfungsi di game ini.
      Suara_ketika_jalan  = nil                      # Isi nama file audio SE yang ada di folder Audio
      Suara_ketika_dash  = "Save"                  # = ^
      Volume              = 20                      # Pasti sudah tahu
      Pitch              = 140                      # Sejenis frekuensi (kayaknya)
   
      #------------------------------------------------------------------------------# 
      Menggunakan_Angka_Variable      = false          # Misal jika variable 1 = 150, maka kecepatan adalah 150 %
      Variable_ID                    = 1              # Isi Variable ID
   
   
      Gunakan_Rata_Rata_Agility_Party = false          # Rata-Rata agility party(isi false jika tidak, true jika iya)
      Pengali                        = 6              # Angka Yang akan dikalikan jumlah agility untuk mendapatkan Hasil Kecepatan
              #===============================================================#
              # Penting : Sebaiknya anda mengetes game anda untuk mendapatkan #
              #          nilai pengali yang tepat                            #
              #===============================================================#
   
      Menggunakan_Agility_Aktor      = false
      Actor_ID                        = 1              #(isi aktor ID, jika tidak menggunakan rata-rata agility )
      Pengali                        = 6              # Angka Yang akan dikalikan jumlah agility untuk mendapatkan Hasil Kecepatan
   
      Menggunakan_Armor_Yang_Dipakai  =  false        # Misal; Jika aktor memakai "Sepatu Cepat" maka Kecepatannya Bertambah
      Armor_ID                        =  1            # Isi Armor ID yang berisi untuk mempercepat lari
      Kecepatan                      =  350          # Isi dalam bentuk kali seratus. Misal; jika diisi 100 maka kecepatan menjadi 100 persen atau sama dengan jalan biasa
   
      Menggunakan_Aktor_Party        =  false        # Misal; Jika aktor "pelari" ada di party, maka kecepatan lari bertambah
      Actor2_ID                      =  1
      Kecepatan2                      =  400          # Isi dalam bentuk kali seratus. Misal; jika diisi 100 maka kecepatan menjadi 100 persen atau sama dengan jalan biasa
   
      Kecepatan_Jika_Tidak_Ada        =  150
    #-------------------------------------------------------------------------------#
   
    #  Wajib Diisi !
      Kecepatan_Maks                  =  350
      Kecepatan_Minim                =  100
   
   
    end
   
   
   
   
   
   
   
   
   
    class Game_Character
      #--------------------------------------------------------------------------
      # * Update While Moving
      #--------------------------------------------------------------------------
      def update_move
      maks = Kustomisasi::Kecepatan_Maks
      min  = Kustomisasi::Kecepatan_Minim
      @walk_anime = 4
      actors_agi = $game_party.average_agi
      actor = $game_actors[Kustomisasi::Actor_ID]
        distance = 2 ** @walk_anime
        if dash?
        if Kustomisasi::Menggunakan_Angka_Variable
          distance1 = $game_variables[Kustomisasi::Variable_ID]
          if distance1 >= maks
            distance1 = maks
          elsif distance1 <= min
            distance1 = min
          end
          distance *= distance1
          distance /= 100
        elsif Kustomisasi::Gunakan_Rata_Rata_Agility_Party
          distance1 = actors_agi * 6 
          if distance1 >= maks
            distance1 = maks
          elsif distance1 <= min
            distance1 = min
          end
          distance *= distance1
          distance /= 100
        elsif Kustomisasi::Menggunakan_Agility_Aktor
          distance1 = actor.agi * 6
          if distance1 >= maks
            distance1 = maks
          elsif distance1 <= min
            distance1 = min
          end
          distance *= distance1
          distance /= 100
        elsif actor.armors.include?($data_armors[Kustomisasi::Armor_ID]) and Kustomisasi::Menggunakan_Armor_Yang_Dipakai
          distance1 = Kustomisasi::Kecepatan
          if distance1 >= maks
            distance1 = maks
          elsif distance1 <= min
            distance1 = min
          end
          distance *= distance1
        elsif $game_party.members.include?($game_actors[Kustomisasi::Actor2_ID])
          distance1 = Kustomisasi::Kecepatan2
        end
        unless $game_party.members.include?($game_actors[Kustomisasi::Actor2_ID])
          distance1 = Kustomisasi::Kecepatan_Jika_Tidak_Ada
        end
        if distance1 >= maks
            distance1 = maks
        elsif distance1 <= min
            distance1 = min
        end
          distance *= distance1
          if distance1 >= maks
            distance1 = maks
          elsif distance1 <= min
            distance1 = min
          end
        distance /= 100
        end
     
        @real_x = [@real_x - distance, @x * 256].max if @x * 256 < @real_x
        @real_x = [@real_x + distance, @x * 256].min if @x * 256 > @real_x
        @real_y = [@real_y - distance, @y * 256].max if @y * 256 < @real_y
        @real_y = [@real_y + distance, @y * 256].min if @y * 256 > @real_y
        update_bush_depth unless moving?
        if @walk_anime
          @anime_count += 1.5
        elsif @step_anime
          @anime_count += 1
        end
      end
      #--------------------------------------------------------------------------
      # * Update Animation Count
      #--------------------------------------------------------------------------
      def update_animation
        speed = @move_speed + (dash? ? 1 : 0)
        if @anime_count > 18 - speed * 2
          if not @step_anime and @stop_count > 0
            @pattern = @original_pattern
          else
            @pattern = (@pattern + 1) % 4
          end
          @anime_count = 0
        end
      end
    end
   
    class Game_Player
      #--------------------------------------------------------------------------
      # * Determine if Dashing
      #--------------------------------------------------------------------------
      def dash?
        return false if @move_route_forcing
        return false if $game_map.disable_dash?
        return false if in_vehicle?
        return Input.press?(Kustomisasi::Tombol_Dash)
      end
      def increase_steps
        super
        return if @move_route_forcing
        return if in_vehicle?
        $game_party.increase_steps
        $game_party.on_player_walk
        RPG::SE.new(Kustomisasi::Suara_ketika_jalan, Kustomisasi::Volume, Kustomisasi::Pitch).play unless dash?
        RPG::SE.new(Kustomisasi::Suara_ketika_dash,Kustomisasi::Volume, Kustomisasi::Pitch).play if dash?
      end
    end