Chaos Project

#===================================#
#     CD-Key Activation Module      #
#===================================#
=begin

Description
This script is designed to allow players using it to activate the game using a
cd-key.

Instructions
1. Paste this in a new script above main.

2. Edit Main from $scene = Scene_Title.new to $scene = Scene_Activation.new

3. Use my CD-Key Creator to create cd-keys in code format, then paste them over
anything between the comments #PASTE HERE and #DON'T PASTE.

Credits
Eradicator (Me) - I rewrote the system from the ground up using the original
system for to work with Cybersam's Input Module. Also released the CD-Key
Creator tool for this script.

danjchau - Released Danjchau's Internal Activation Module V2 which was the
original base for this script.

Cybersam - Released his keyboard input module that is used in this script.

=end

#==============================================================================
# ? Input                                                Created by: Cybersam
#------------------------------------------------------------------------------
# Adds full keyboard support to module Input.
#==============================================================================
module Input

  def Input.getkey(key)
    Win32API.new("user32", "GetAsyncKeyState", "i", "i").call(key) & 0x01 == 1
  end

  def Input.getstate(key)
    return (not Win32API.new("user32", "GetKeyState", "i", "i").call(key).between?(0, 1))
  end
end

class Window_Edit < Window_Base
  
  attr_reader   :name
  attr_reader   :index

  def initialize(max_char)
    super(0, 0, 640, 128)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = "Tahoma"
    self.contents.font.size = 22
    @name = ""
    @max_char = max_char
    name_array = @name.split(//)[0...@max_char]
    for i in 0...name_array.size
      @name += name_array[i]
    end
    @default_name = @name
    @index = name_array.size
    refresh
    update_cursor_rect
  end

  def restore_default
    @name = @default_name
    @index = @name.split(//).size
    refresh
    update_cursor_rect
  end

  def add(character)
    if @index < @max_char and character != ""
      @name += character
      @index += 1
      refresh
      update_cursor_rect
    end
  end

  def back
    if @index > 0
      name_array = @name.split(//)
      @name = ""
      for i in 0...name_array.size-1
        @name += name_array[i]
      end
      @index -= 1
      refresh
      update_cursor_rect
    end
  end

  def refresh
    self.contents.clear
    name_array = @name.split(//)
    for i in 0...@max_char
      c = name_array[i]
      if c == nil
        c = "?"
      end
      x = 320 - @max_char * 14 + i * 28
      self.contents.draw_text(x, 32, 28, 32, c, 1)
    end
  end

  def update_cursor_rect
    x = 320 - @max_char * 14 + @index * 28
    self.cursor_rect.set(x, 32, 28, 32)
  end

  def update
    super
    update_cursor_rect
  end
end


class Scene_Activation

  def main
    $data_actors        = load_data("Data/Actors.rxdata")
    $data_classes       = load_data("Data/Classes.rxdata")
    $data_skills        = load_data("Data/Skills.rxdata")
    $data_items         = load_data("Data/Items.rxdata")
    $data_weapons       = load_data("Data/Weapons.rxdata")
    $data_armors        = load_data("Data/Armors.rxdata")
    $data_enemies       = load_data("Data/Enemies.rxdata")
    $data_troops        = load_data("Data/Troops.rxdata")
    $data_states        = load_data("Data/States.rxdata")
    $data_animations    = load_data("Data/Animations.rxdata")
    $data_tilesets      = load_data("Data/Tilesets.rxdata")
    $data_common_events = load_data("Data/CommonEvents.rxdata")
    $data_system        = load_data("Data/System.rxdata")
    $game_system        = Game_System.new
    
    @on = false
    if File.exist?("cd-key.txt")
      file = File.new("cd-key.txt", "r")
      @text = file.gets
      file.close

      case @text
      #PASTE
      when "QEOL-6CDH-53RC-UQTL"
        @on = true
      when "J1UT-MGJY-OBXK-OV17"
        @on = true
      when "MNJT-YT1Z-9PMK-Q1Y6"
        @on = true
      when "FRPB-ROF2-TKS8-J65L"
        @on = true
      when "XMVS-BSLP-DFYJ-72B7"
        @on = true
      when "4VGP-I84L-KXJG-AHVP"
        @on = true
      when "PQM3-8WC7-6SPO-TC83"
        @on = true
      when "9ECX-EB86-F4OO-4ZR2"
        @on = true
      when "U2RF-XF2C-YBU4-YUXP"
        @on = true
      when "D7XW-QADT-R59N-IP63"
        @on = true
      #DON'T PASTE
      else
        @on = false
      end

      if @on == true
        Graphics.freeze
        keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
        keybd.call 0xA4, 0, 0, 0
        keybd.call 13, 0, 0, 0
        keybd.call 13, 0, 2, 0
        keybd.call 0xA4, 0, 2, 0
        $scene = Scene_Title.new
      else
        p("You have entered an invalid cd-key. Please enter a valid cd-key to continue.")
      end
        
     end
    
    @edit_window = Window_Edit.new(19)
    @help_window = Window_Help.new
    @help_window.y = 416
    @help_window.set_text("Type your CD-Key here.")
    Graphics.transition
    loop do
      Graphics.update
      update
      if $scene != self
        break
      end
    end
    Graphics.freeze
    @edit_window.dispose
  end
  
  def update
    @edit_window.update
    if Input.getkey(8)
      if @edit_window.name == ""
        return
      end
      @edit_window.back
      return
    end
    if Input.getstate(16)
      @edit_window.add("A") if Input.getkey(65)
      @edit_window.add("B") if Input.getkey(66)
      @edit_window.add("C") if Input.getkey(67)
      @edit_window.add("D") if Input.getkey(68)
      @edit_window.add("E") if Input.getkey(69) 
      @edit_window.add("F") if Input.getkey(70)
      @edit_window.add("G") if Input.getkey(71)
      @edit_window.add("H") if Input.getkey(72)
      @edit_window.add("I") if Input.getkey(73)
      @edit_window.add("J") if Input.getkey(74)
      @edit_window.add("K") if Input.getkey(75)
      @edit_window.add("L") if Input.getkey(76)
      @edit_window.add("M") if Input.getkey(77)
      @edit_window.add("N") if Input.getkey(78)
      @edit_window.add("O") if Input.getkey(79)
      @edit_window.add("P") if Input.getkey(80)
      @edit_window.add("Q") if Input.getkey(81)
      @edit_window.add("R") if Input.getkey(82)
      @edit_window.add("S") if Input.getkey(83)
      @edit_window.add("T") if Input.getkey(84)
      @edit_window.add("U") if Input.getkey(85)
      @edit_window.add("V") if Input.getkey(86)
      @edit_window.add("W") if Input.getkey(87)
      @edit_window.add("X") if Input.getkey(88)
      @edit_window.add("Y") if Input.getkey(89)
      @edit_window.add("Z") if Input.getkey(90)
      @edit_window.add("0") if Input.getkey(48)
      @edit_window.add("1") if Input.getkey(49)
      @edit_window.add("2") if Input.getkey(50)
      @edit_window.add("3") if Input.getkey(51)
      @edit_window.add("4") if Input.getkey(52)
      @edit_window.add("5") if Input.getkey(53)
      @edit_window.add("6") if Input.getkey(54)
      @edit_window.add("7") if Input.getkey(55)
      @edit_window.add("8") if Input.getkey(56)
      @edit_window.add("9") if Input.getkey(57)
      @edit_window.add(";") if Input.getkey(186)
      @edit_window.add("=") if Input.getkey(187)     
      @edit_window.add(",") if Input.getkey(188)
      @edit_window.add("-") if Input.getkey(189)     
      @edit_window.add(".") if Input.getkey(190)
      @edit_window.add("/") if Input.getkey(191)
      @edit_window.add("[") if Input.getkey(219)
      @edit_window.add("\\") if Input.getkey(220)
      @edit_window.add("]") if Input.getkey(221)     
      @edit_window.add("'") if Input.getkey(222)
      @edit_window.add("*") if Input.getkey(106)   
      @edit_window.add("+") if Input.getkey(107)
      @edit_window.add("-") if Input.getkey(109)
      @edit_window.add("/") if Input.getkey(111)
    else
      @edit_window.add("A") if Input.getkey(65)
      @edit_window.add("B") if Input.getkey(66)
      @edit_window.add("C") if Input.getkey(67)
      @edit_window.add("D") if Input.getkey(68)
      @edit_window.add("E") if Input.getkey(69) 
      @edit_window.add("F") if Input.getkey(70)
      @edit_window.add("G") if Input.getkey(71)
      @edit_window.add("H") if Input.getkey(72)
      @edit_window.add("I") if Input.getkey(73)
      @edit_window.add("J") if Input.getkey(74)
      @edit_window.add("K") if Input.getkey(75)
      @edit_window.add("L") if Input.getkey(76)
      @edit_window.add("M") if Input.getkey(77)
      @edit_window.add("N") if Input.getkey(78)
      @edit_window.add("O") if Input.getkey(79)
      @edit_window.add("P") if Input.getkey(80)
      @edit_window.add("Q") if Input.getkey(81)
      @edit_window.add("R") if Input.getkey(82)
      @edit_window.add("S") if Input.getkey(83)
      @edit_window.add("T") if Input.getkey(84)
      @edit_window.add("U") if Input.getkey(85)
      @edit_window.add("V") if Input.getkey(86)
      @edit_window.add("W") if Input.getkey(87)
      @edit_window.add("X") if Input.getkey(88)
      @edit_window.add("Y") if Input.getkey(89)
      @edit_window.add("Z") if Input.getkey(90)
      @edit_window.add("0") if Input.getkey(48)
      @edit_window.add("1") if Input.getkey(49)
      @edit_window.add("2") if Input.getkey(50)
      @edit_window.add("3") if Input.getkey(51)
      @edit_window.add("4") if Input.getkey(52)
      @edit_window.add("5") if Input.getkey(53)
      @edit_window.add("6") if Input.getkey(54)
      @edit_window.add("7") if Input.getkey(55)
      @edit_window.add("8") if Input.getkey(56)
      @edit_window.add("9") if Input.getkey(57)
      @edit_window.add(";") if Input.getkey(186)
      @edit_window.add("=") if Input.getkey(187)     
      @edit_window.add(",") if Input.getkey(188)
      @edit_window.add("-") if Input.getkey(189)     
      @edit_window.add(".") if Input.getkey(190)
      @edit_window.add("/") if Input.getkey(191)
      @edit_window.add("[") if Input.getkey(219)
      @edit_window.add("\\") if Input.getkey(220)
      @edit_window.add("]") if Input.getkey(221)     
      @edit_window.add("'") if Input.getkey(222)
      @edit_window.add("*") if Input.getkey(106)   
      @edit_window.add("+") if Input.getkey(107)
      @edit_window.add("-") if Input.getkey(109)
      @edit_window.add("/") if Input.getkey(111)
    end
    if Input.getkey(13)
     @Activation_word = @edit_window.name.upcase

     file = File.open("cd-key.txt","w")
     file.write(@Activation_word)
     print("Restart game.")
     $scene = nil

    end
  end
end