CaistsaRpg
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Poner serial a tu juego

5 participantes

Ir abajo

Poner serial a tu juego Empty Poner serial a tu juego

Mensaje  encisam Miér Mar 26, 2008 1:05 am

la verdad es que resulta util por si algun fisgon quiere abrirlo...ejeje

Código:
@bar = Window_Bar.new
  # Execute transition
  Graphics.transition
  # Main loop
  loop do
    # Update game screen
    Graphics.update
    # Update input information
    Input.update
    # Frame update
    update
    # Abort loop if screen is changed
    if $scene != self
      break
    end
  end
  # Prepare for transition
  Graphics.freeze
  @bar.dispose
end
def update
  @bar.update
  @bar.refresh
  # Locate Database
  if not FileTest.exist?(@productnum + ".txt")
    # Show error if script not found
    print ('El Serial no es Válido')
    # Quit game
    exit
  else
    @bar.load += 1
  end
  if @bar.load == @bar.max
    toscene
  end
end
def toscene
  $game_system = nil
  $scene = Scene_Title.new
end
def exit
  $scene = nil
end
end
class Window_Bar < Window_Base
attr_accessor :load
attr_accessor :max
def initialize
  super(0,0,640,480)
  @load = 0
  @max = 100
  self.contents = Bitmap.new(width - 32, height - 32)
end
def refresh
  self.contents.clear
  draw_load(120,235)
end
def draw_load(x, y, width = 400)
  rate = @load / @max.to_f
  plus_x = 0
  rate_x = 0
  plus_y = 25
  plus_width = 0
  rate_width = 100
  height = 10
  align1 = 1
  align2 = 2
  align3 = 0
  grade1 = 1
  grade2 = 0
  color1 = Color.new(0, 0, 0, 192)
  color2 = Color.new(255, 255, 192, 192)
  color3 = Color.new(0, 0, 0, 192)
  color4 = Color.new(64, 0, 0, 192)
  color5 = Color.new(80 - 24 * rate, 80 * rate, 14 * rate, 192)
  color6 = Color.new(240 - 72 * rate, 240 * rate, 62 * rate, 192)
  od = (width + plus_width) * @load * rate_width / 100 /
    @max
  gauge_rect(x + plus_x + width * rate_x / 100, y + plus_y,
  width, plus_width + width * rate_width / 100,
  height, od, align1, align2, align3,
  color1, color2, color3, color4, color5, color6, grade1, grade2)
  self.contents.font.color = system_color
  self.contents.font.size = 12
  self.contents.draw_text(x, y + 4, 600, 32, "Cargando. . . ")
end
end

class Window_Base < Window
#--------------------------------------------------------------------------
# * Drawing of gauge
#--------------------------------------------------------------------------
def gauge_rect(x, y, rect_width, width, height, gauge, align1, align2, align3,
              color1, color2, color3, color4, color5, color6, grade1, grade2)
  case align1
  when 1
    x += (rect_width - width) / 2
  when 2
    x += rect_width - width
  end
  case align2
  when 1
    y -= height / 2
  when 2
    y -= height
  end
  # Framework Drawing
  self.contents.fill_rect(x, y, width, height, color1)
  self.contents.fill_rect(x + 1, y + 1, width - 2, height - 2, color2)
  if align3 == 0
    if grade1 == 2
      grade1 = 3
    end
    if grade2 == 2
      grade2 = 3
    end
  end
  if (align3 == 1 and grade1 == 0) or grade1 > 0
    color = color3
    color3 = color4
    color4 = color
  end
  if (align3 == 1 and grade2 == 0) or grade2 > 0
    color = color5
    color5 = color6
    color6 = color
  end
  # Drawing of empty gauge
  self.contents.gradation_rect(x + 2, y + 2, width - 4, height - 4,
                                color3, color4, grade1)
  if align3 == 1
    x += width - gauge
  end
  #  Drawing of actual gauge
  self.contents.gradation_rect(x + 2, y + 2, gauge - 4, height - 4,
                                color5, color6, grade2)
end
end

#------------------------------------------------------------------------------
# New routine added to the Bitmap class.
#==============================================================================

class Bitmap
#--------------------------------------------------------------------------
# * Rectangle Gradation Indicator
#  color1: Start color
#  color2: Ending color
#  align: 0: On side gradation
#          1: Vertically gradation
#          2: The gradation (intense concerning slantedly heavily note)
#--------------------------------------------------------------------------
def gradation_rect(x, y, width, height, color1, color2, align = 0)
  if align == 0
    for i in x...x + width
      red  = color1.red + (color2.red - color1.red) * (i - x) / (width - 1)
      green = color1.green +
              (color2.green - color1.green) * (i - x) / (width - 1)
      blue  = color1.blue +
              (color2.blue - color1.blue) * (i - x) / (width - 1)
      alpha = color1.alpha +
              (color2.alpha - color1.alpha) * (i - x) / (width - 1)
      color = Color.new(red, green, blue, alpha)
      fill_rect(i, y, 1, height, color)
    end
  elsif align == 1
    for i in y...y + height
      red  = color1.red +
              (color2.red - color1.red) * (i - y) / (height - 1)
      green = color1.green +
              (color2.green - color1.green) * (i - y) / (height - 1)
      blue  = color1.blue +
              (color2.blue - color1.blue) * (i - y) / (height - 1)
      alpha = color1.alpha +
              (color2.alpha - color1.alpha) * (i - y) / (height - 1)
      color = Color.new(red, green, blue, alpha)
      fill_rect(x, i, width, 1, color)
    end
  elsif align == 2
    for i in x...x + width
      for j in y...y + height
        red  = color1.red + (color2.red - color1.red) *
                ((i - x) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        green = color1.green + (color2.green - color1.green) *
                ((i - x) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        blue  = color1.blue + (color2.blue - color1.blue) *
                ((i - x) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        alpha = color1.alpha + (color2.alpha - color1.alpha) *
                ((i - x) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        color = Color.new(red, green, blue, alpha)
        set_pixel(i, j, color)
      end
    end
  elsif align == 3
    for i in x...x + width
      for j in y...y + height
        red  = color1.red + (color2.red - color1.red) *
              ((x + width - i) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        green = color1.green + (color2.green - color1.green) *
              ((x + width - i) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        blue  = color1.blue + (color2.blue - color1.blue) *
              ((x + width - i) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        alpha = color1.alpha + (color2.alpha - color1.alpha) *
              ((x + width - i) / (width - 1.0) + (j - y) / (height - 1.0)) / 2
        color = Color.new(red, green, blue, alpha)
        set_pixel(i, j, color)
      end
    end
  end
end
end

Pegadlo en main i donde pone en el principio del script canviadlo por el serial que querais(ejemplo-344343.txt)

para que funcione el juego hay que tener un archivo .txt con el TITULO no el interior, el serial que queremos jeje

Creador:sasuke 89
encisam
encisam
Calificador
Calificador

Cantidad de envíos : 77
Edad : 30
Fecha de inscripción : 25/03/2008

Volver arriba Ir abajo

Poner serial a tu juego Empty Re: Poner serial a tu juego

Mensaje  Caistsa Jue Mar 27, 2008 3:14 pm

xD Un buen aporte encisam gracias por ponerlo al servicio de la comu^^, esos fisgones... quien les mandara xD Gracias por el aporte y sigue asi^^
Caistsa
Caistsa
Caistsa
Administrador
Administrador

Cantidad de envíos : 187
Fecha de inscripción : 21/02/2008

https://caistsarpg.superforo.net

Volver arriba Ir abajo

Poner serial a tu juego Empty Re: Poner serial a tu juego

Mensaje  PepDracko Dom Mar 30, 2008 9:33 pm

Holas!!

Esta bueno el script, lo usaré en algun proyecto.

PD desaparece.
avatar
PepDracko
Hijo De Artemisa
Hijo De Artemisa

Cantidad de envíos : 66
Edad : 28
Localización : In your room, above your sister
Fecha de inscripción : 10/03/2008

Volver arriba Ir abajo

Poner serial a tu juego Empty Re: Poner serial a tu juego

Mensaje  6gb Dom Jun 08, 2008 10:27 pm

Esta wapo este script Very Happy
6gb
6gb
Aficionado
Aficionado

Cantidad de envíos : 2
Fecha de inscripción : 23/05/2008

Volver arriba Ir abajo

Poner serial a tu juego Empty Re: Poner serial a tu juego

Mensaje  SilverNigth Mar Ene 06, 2009 2:49 pm

Muy buen script me gusto mucho!
SilverNigth
SilverNigth
Competidor
Competidor

Cantidad de envíos : 10
Edad : 34
Localización : En el mas por alla
Fecha de inscripción : 05/09/2008

Volver arriba Ir abajo

Poner serial a tu juego Empty Re: Poner serial a tu juego

Mensaje  Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.