MySQL Scripts. A Major chunk is alredy done :D

[Seto]

I am reopening this request as I have had no information/contact from etheon, since he agreed to work on it. I apologies if this is classed as necroposting I just thought this was the best way to request it again rather then creating a new post.

Hello,
My script request is about using MySQL databases with RMXP. This will allow the exchange of information between websites and RMXP games. With such a script top player lists and other information can be placed on a webpage within seconds of the player uploading their stats. Also this will allow for some multiplayer function between games. Such as the trading and battling system which I plan on creating after this script is created. I have already had help with this topic and only need limited help now. I have a script for accessing MySQL databases but it requires functions within a .so file which can not be run with RMXP. Instead I plan on using the Modules.API script created by SephirothSpawn that maps out all the functions needed. I have both scripts and just need help with editing the MySQL script so that it can run off the Modules.API Script. Thanks to anyone who offers help no matter how small.

The two scripts are below, as well as a link to my previous topic where this whole idea grow into a possibility. 


I suggest checking out the original topic so that you have a grasp of what has already been tried and worked on :D.

Spoiler: Old Topic

http://www.rmxp.org/forums/index.php?topic=55648.0

This script is rather long so be careful if you are going to open it within your browser.

Spoiler: Modules.API

http://www.owainc.net/scripts/modules.api.txt

This script had to be post here because there is no plain text version anywhere :P.

Spoiler: MySQL Script

# $Id: mysql.rb,v 1.24 2005/02/12 11:37:15 tommy Exp $
#
# Copyright (C) 2003-2005 TOMITA Masahiro
# tommy@tmtm.org
#

class Mysql

  VERSION = "4.0-ruby-0.2.5"

  require "socket"

  MAX_PACKET_LENGTH = 256*256*256-1
  MAX_ALLOWED_PACKET = 1024*1024*1024

  MYSQL_UNIX_ADDR = "/tmp/mysql.sock"
  MYSQL_PORT = 3306
  PROTOCOL_VERSION = 10

  # Command
  COM_SLEEP = 0
  COM_QUIT = 1
  COM_INIT_DB = 2
  COM_QUERY = 3
  COM_FIELD_LIST = 4
  COM_CREATE_DB = 5
  COM_DROP_DB = 6
  COM_REFRESH = 7
  COM_SHUTDOWN = 8
  COM_STATISTICS = 9
  COM_PROCESS_INFO = 10
  COM_CONNECT = 11
  COM_PROCESS_KILL = 12
  COM_DEBUG = 13
  COM_PING = 14
  COM_TIME = 15
  COM_DELAYED_INSERT = 16
  COM_CHANGE_USER = 17
  COM_BINLOG_DUMP = 18
  COM_TABLE_DUMP = 19
  COM_CONNECT_OUT = 20
  COM_REGISTER_SLAVE = 21

  # Client flag
  CLIENT_LONG_PASSWORD = 1
  CLIENT_FOUND_ROWS = 1 << 1
  CLIENT_LONG_FLAG = 1 << 2
  CLIENT_CONNECT_WITH_DB= 1 << 3
  CLIENT_NO_SCHEMA = 1 << 4
  CLIENT_COMPRESS = 1 << 5
  CLIENT_ODBC = 1 << 6
  CLIENT_LOCAL_FILES = 1 << 7
  CLIENT_IGNORE_SPACE = 1 << 8
  CLIENT_INTERACTIVE = 1 << 10
  CLIENT_SSL = 1 << 11
  CLIENT_IGNORE_SIGPIPE = 1 << 12
  CLIENT_TRANSACTIONS = 1 << 13
  CLIENT_CAPABILITIES = CLIENT_LONG_PASSWORD|CLIENT_LONG_FLAG|CLIENT_TRANSACTIONS

  # Connection Option
  OPT_CONNECT_TIMEOUT = 0
  OPT_COMPRESS = 1
  OPT_NAMED_PIPE = 2
  INIT_COMMAND = 3
  READ_DEFAULT_FILE = 4
  READ_DEFAULT_GROUP = 5
  SET_CHARSET_DIR = 6
  SET_CHARSET_NAME = 7
  OPT_LOCAL_INFILE = 8

  # Server Status
  SERVER_STATUS_IN_TRANS = 1
  SERVER_STATUS_AUTOCOMMIT = 2

  # Refresh parameter
  REFRESH_GRANT = 1
  REFRESH_LOG = 2
  REFRESH_TABLES = 4
  REFRESH_HOSTS = 8
  REFRESH_STATUS = 16
  REFRESH_THREADS = 32
  REFRESH_SLAVE = 64
  REFRESH_MASTER = 128

  def initialize(*args)
    @client_flag = 0
    @max_allowed_packet = MAX_ALLOWED_PACKET
    @query_with_result = true
    @status = :STATUS_READY
    if args[0] != :INIT then
      real_connect(*args)
    end
  end

  def real_connect(host=nil, user=nil, passwd=nil, db=nil, port=nil, socket=nil, flag=nil)
    @server_status = SERVER_STATUS_AUTOCOMMIT
    if (host == nil or host == "localhost") and defined? UNIXSocket then
      unix_socket = socket || ENV["MYSQL_UNIX_PORT"] || MYSQL_UNIX_ADDR
      sock = UNIXSocket::new(unix_socket)
      @host_info = Error::err(Error::CR_LOCALHOST_CONNECTION)
      @unix_socket = unix_socket
    else     
      sock = TCPSocket::new(host, port||ENV["MYSQL_TCP_PORT"]||(Socket::getservbyname("mysql","tcp") rescue MYSQL_PORT))
      @host_info = sprintf Error::err(Error::CR_TCP_CONNECTION), host
    end
    @host = host ? host.dup : nil
    sock.setsockopt Socket::SOL_SOCKET, Socket::SO_KEEPALIVE, true
    @net = Net::new sock

    a = read
    @protocol_version = a.slice!(0)
    @server_version, a = a.split(/\0/,2)
    @thread_id, @scramble_buff = a.slice!(0,13).unpack("La8")
    if a.size >= 2 then
      @server_capabilities, = a.slice!(0,2).unpack("v")
    end
    if a.size >= 16 then
      @server_language, @server_status = a.unpack("cv")
    end

    flag = 0 if flag == nil
    flag |= @client_flag | CLIENT_CAPABILITIES
    flag |= CLIENT_CONNECT_WITH_DB if db
    data = Net::int2str(flag)+Net::int3str(@max_allowed_packet)+(user||"")+"\0"+scramble(passwd, @scramble_buff, @protocol_version==9)
    if db and @server_capabilities & CLIENT_CONNECT_WITH_DB != 0 then
      data << "\0"+db
      @db = db.dup
    end
    write data
    read
    ObjectSpace.define_finalizer(self, Mysql.finalizer(@net))
    self
  end
  alias :connect :real_connect

  def escape_string(str)
    Mysql::escape_string str
  end
  alias :quote :escape_string

  def get_client_info()
    VERSION
  end
  alias :client_info :get_client_info

  def options(option, arg=nil)
    if option == OPT_LOCAL_INFILE then
      if arg == false or arg == 0 then
@client_flag &= ~CLIENT_LOCAL_FILES
      else
@client_flag |= CLIENT_LOCAL_FILES
      end
    else
      raise "not implemented"
    end
  end

  def real_query(query)
    command COM_QUERY, query, true
    read_query_result
    self
  end

  def use_result()
    if @status != :STATUS_GET_RESULT then
      error Error::CR_COMMANDS_OUT_OF_SYNC
    end
    res = Result::new self, @fields, @field_count
    @status = :STATUS_USE_RESULT
    res
  end

  def store_result()
    if @status != :STATUS_GET_RESULT then
      error Error::CR_COMMANDS_OUT_OF_SYNC
    end
    @status = :STATUS_READY
    data = read_rows @field_count
    res = Result::new self, @fields, @field_count, data
    @fields = nil
    @affected_rows = data.length
    res
  end

  def change_user(user="", passwd="", db="")
    data = user+"\0"+scramble(passwd, @scramble_buff, @protocol_version==9)+"\0"+db
    command COM_CHANGE_USER, data
    @user = user
    @passwd = passwd
    @db = db
  end

  def character_set_name()
    raise "not implemented"
  end

  def close()
    @status = :STATUS_READY
    command COM_QUIT, nil, true
    @net.close
    self
  end

  def create_db(db)
    command COM_CREATE_DB, db
    self
  end

  def drop_db(db)
    command COM_DROP_DB, db
    self
  end

  def dump_debug_info()
    command COM_DEBUG
    self
  end

  def get_host_info()
    @host_info
  end
  alias :host_info :get_host_info

  def get_proto_info()
    @protocol_version
  end
  alias :proto_info :get_proto_info

  def get_server_info()
    @server_version
  end
  alias :server_info :get_server_info

  def kill(id)
    command COM_PROCESS_KILL, Net::int4str(id)
    self
  end

  def list_dbs(db=nil)
    real_query "show databases #{db}"
    @status = :STATUS_READY
    read_rows(1).flatten
  end

  def list_fields(table, field=nil)
    command COM_FIELD_LIST, "#{table}\0#{field}", true
    f = read_rows 6
    fields = unpack_fields(f, @server_capabilities & CLIENT_LONG_FLAG != 0)
    res = Result::new self, fields, f.length
    res.eof = true
    res
  end

  def list_processes()
    data = command COM_PROCESS_INFO
    @field_count = get_length data
    fields = read_rows 5
    @fields = unpack_fields(fields, @server_capabilities & CLIENT_LONG_FLAG != 0)
    @status = :STATUS_GET_RESULT
    store_result
  end

  def list_tables(table=nil)
    real_query "show tables #{table}"
    @status = :STATUS_READY
    read_rows(1).flatten
  end

  def ping()
    command COM_PING
    self
  end

  def query(query)
    real_query query
    if not @query_with_result then
      return self
    end
    if @field_count == 0 then
      return nil
    end
    store_result
  end

  def refresh(r)
    command COM_REFRESH, r.chr
    self
  end

  def reload()
    refresh REFRESH_GRANT
    self
  end

  def select_db(db)
    command COM_INIT_DB, db
    @db = db
    self
  end

  def shutdown()
    command COM_SHUTDOWN
    self
  end

  def stat()
    command COM_STATISTICS
  end

  attr_reader :info, :insert_id, :affected_rows, :field_count, :thread_id
  attr_accessor :query_with_result, :status

  def read_one_row(field_count)
    data = read
    return if data[0] == 254 and data.length == 1
    rec = []
    field_count.times do
      len = get_length data
      if len == nil then
rec << len
      else
rec << data.slice!(0,len)
      end
    end
    rec
  end

  def skip_result()
    if @status == :STATUS_USE_RESULT then
      loop do
data = read
break if data[0] == 254 and data.length == 1
      end
      @status = :STATUS_READY
    end
  end

  def inspect()
    "#<#{self.class}>"
  end

  private

  def read_query_result()
    data = read
    @field_count = get_length(data)
    if @field_count == nil then # LOAD DATA LOCAL INFILE
      File:pen(data) do |f|
write f.read
      end
      write "" # mark EOF
      data = read
      @field_count = get_length(data)
    end
    if @field_count == 0 then
      @affected_rows = get_length(data, true)
      @insert_id = get_length(data, true)
      if @server_capabilities & CLIENT_TRANSACTIONS != 0 then
a = data.slice!(0,2)
@server_status = a[0]+a[1]*256
      end
      if data.size > 0 and get_length(data) then
@info = data
      end
    else
      @extra_info = get_length(data, true)
      fields = read_rows 5
      @fields = unpack_fields(fields, @server_capabilities & CLIENT_LONG_FLAG != 0)
      @status = :STATUS_GET_RESULT
    end
    self
  end

  def unpack_fields(data, long_flag_protocol)
    ret = []
    data.each do |f|
      table = org_table = f[0]
      name = f[1]
      length = f[2][0]+f[2][1]*256+f[2][2]*256*256
      type = f[3][0]
      if long_flag_protocol then
flags = f[4][0]+f[4][1]*256
decimals = f[4][2]
      else
flags = f[4][0]
decimals = f[4][1]
      end
      def_value = f[5]
      max_length = 0
      ret << Field::new(table, org_table, name, length, type, flags, decimals, def_value, max_length)
    end
    ret
  end

  def read_rows(field_count)
    ret = []
    while rec = read_one_row(field_count) do
      ret << rec
    end
    ret
  end

  def get_length(data, longlong=nil)
    return if data.length == 0
    c = data.slice!(0)
    case c
    when 251
      return nil
    when 252
      a = data.slice!(0,2)
      return a[0]+a[1]*256
    when 253
      a = data.slice!(0,3)
      return a[0]+a[1]*256+a[2]*256**2
    when 254
      a = data.slice!(0,8)
      if longlong then
return a[0]+a[1]*256+a[2]*256**2+a[3]*256**3+
  a[4]*256**4+a[5]*256**5+a[6]*256**6+a[7]*256**7
      else
return a[0]+a[1]*256+a[2]*256**2+a[3]*256**3
      end
    else
      c
    end
  end

  def command(cmd, arg=nil, skip_check=nil)
    unless @net then
      error Error::CR_SERVER_GONE_ERROR
    end
    if @status != :STATUS_READY then
      error Error::CR_COMMANDS_OUT_OF_SYNC
    end
    @net.clear
    write cmd.chr+(arg||"")
    read unless skip_check
  end

  def read()
    unless @net then
      error Error::CR_SERVER_GONE_ERROR
    end
    a = @net.read
    if a[0] == 255 then
      if a.length > 3 then
@errno = a[1]+a[2]*256
@error = a[3 .. -1]
      else
@errno = Error::CR_UNKNOWN_ERROR
@error = Error::err @errno
      end
      raise Error::new(@errno, @error)
    end
    a
  end

  def write(arg)
    unless @net then
      error Error::CR_SERVER_GONE_ERROR
    end
    @net.write arg
  end

  def hash_password(password)
    nr = 1345345333
    add = 7
    nr2 = 0x12345671
    password.each_byte do |i|
      next if i == 0x20 or i == 9
      nr ^= (((nr & 63) + add) * i) + (nr << 8)
      nr2 += (nr2 << 8) ^ nr
      add += i
    end
    [nr & ((1 << 31) - 1), nr2 & ((1 << 31) - 1)]
  end

  def scramble(password, message, old_ver)
    return "" if password == nil or password == ""
    raise "old version password is not implemented" if old_ver
    hash_pass = hash_password password
    hash_message = hash_password message
    rnd = Random::new hash_pass[0] ^ hash_message[0], hash_pass[1] ^ hash_message[1]
    to = []
    1.upto(message.length) do
      to << ((rnd.rnd*31)+64).floor
    end
    extra = (rnd.rnd*31).floor
    to.map! do |t| (t ^ extra).chr end
    to.join
  end

  def error(errno)
    @errno = errno
    @error = Error::err errno
    raise Error::new(@errno, @error)
  end

  class Result
    def initialize(mysql, fields, field_count, data=nil)
      @handle = mysql
      @fields = fields
      @field_count = field_count
      @data = data
      @current_field = 0
      @current_row = 0
      @eof = false
      @row_count = 0
    end
    attr_accessor :eof

    def data_seek
      @current_row = n
    end

    def fetch_field()
      return if @current_field >= @field_count
      f = @fields[@current_field]
      @current_field += 1
      f
    end

    def fetch_fields()
      @fields
    end

    def fetch_field_direct
      @fields[n]
    end

    def fetch_lengths()
      @data ? @data[@current_row].map{|i| i ? i.length : 0} : @lengths
    end

    def fetch_row()
      if @data then
if @current_row >= @data.length then
  @handle.status = :STATUS_READY
  return
end
ret = @data[@current_row]
@current_row += 1
      else
return if @eof
ret = @handle.read_one_row @field_count
if ret == nil then
  @eof = true
  return
end
@lengths = ret.map{|i| i ? i.length : 0}
@row_count += 1
      end
      ret
    end

    def fetch_hash(with_table=nil)
      row = fetch_row
      return if row == nil
      hash = {}
      @fields.each_index do |i|
f = with_table ? @fields.table+"."+@fields.name : @fields.name
hash[f] = row
      end
      hash
    end

    def field_seek
      @current_field = n
    end

    def field_tell()
      @current_field
    end

    def free()
      @handle.skip_result
      @handle = @fields = @data = nil
      GC::start
    end

    def num_fields()
      @field_count
    end

    def num_rows()
      @data ? @data.length : @row_count
    end

    def row_seek
      @current_row = n
    end

    def row_tell()
      @current_row
    end

    def each()
      while row = fetch_row do
yield row
      end
    end

    def each_hash(with_table=nil)
      while hash = fetch_hash(with_table) do
yield hash
      end
    end

    def inspect()
      "#<#{self.class}>"
    end

  end

  class Field
    # Field type
    TYPE_DECIMAL = 0
    TYPE_TINY = 1
    TYPE_SHORT = 2
    TYPE_LONG = 3
    TYPE_FLOAT = 4
    TYPE_DOUBLE = 5
    TYPE_NULL = 6
    TYPE_TIMESTAMP = 7
    TYPE_LONGLONG = 8
    TYPE_INT24 = 9
    TYPE_DATE = 10
    TYPE_TIME = 11
    TYPE_DATETIME = 12
    TYPE_YEAR = 13
    TYPE_NEWDATE = 14
    TYPE_ENUM = 247
    TYPE_SET = 248
    TYPE_TINY_BLOB = 249
    TYPE_MEDIUM_BLOB = 250
    TYPE_LONG_BLOB = 251
    TYPE_BLOB = 252
    TYPE_VAR_STRING = 253
    TYPE_STRING = 254
    TYPE_GEOMETRY = 255
    TYPE_CHAR = TYPE_TINY
    TYPE_INTERVAL = TYPE_ENUM

    # Flag
    NOT_NULL_FLAG = 1
    PRI_KEY_FLAG = 2
    UNIQUE_KEY_FLAG  = 4
    MULTIPLE_KEY_FLAG  = 8
    BLOB_FLAG = 16
    UNSIGNED_FLAG = 32
    ZEROFILL_FLAG = 64
    BINARY_FLAG = 128
    ENUM_FLAG = 256
    AUTO_INCREMENT_FLAG = 512
    TIMESTAMP_FLAG  = 1024
    SET_FLAG = 2048
    NUM_FLAG = 32768
    PART_KEY_FLAG = 16384
    GROUP_FLAG = 32768
    UNIQUE_FLAG = 65536

    def initialize(table, org_table, name, length, type, flags, decimals, def_value, max_length)
      @table = table
      @org_table = org_table
      @name = name
      @length = length
      @type = type
      @flags = flags
      @decimals = decimals
      @def = def_value
      @max_length = max_length
      if (type <= TYPE_INT24 and (type != TYPE_TIMESTAMP or length == 14 or length == 8)) or type == TYPE_YEAR then
@flags |= NUM_FLAG
      end
    end
    attr_reader :table, rg_table, :name, :length, :type, :flags, :decimals, :def, :max_length

    def inspect()
      "#<#{self.class}:#{@name}>"
    end
  end

  class Error < StandardError
    # Server Error
    ER_HASHCHK = 1000
    ER_NISAMCHK = 1001
    ER_NO = 1002
    ER_YES = 1003
    ER_CANT_CREATE_FILE = 1004
    ER_CANT_CREATE_TABLE = 1005
    ER_CANT_CREATE_DB = 1006
    ER_DB_CREATE_EXISTS = 1007
    ER_DB_DROP_EXISTS = 1008
    ER_DB_DROP_DELETE = 1009
    ER_DB_DROP_RMDIR = 1010
    ER_CANT_DELETE_FILE = 1011
    ER_CANT_FIND_SYSTEM_REC = 1012
    ER_CANT_GET_STAT = 1013
    ER_CANT_GET_WD = 1014
    ER_CANT_LOCK = 1015
    ER_CANT_OPEN_FILE = 1016
    ER_FILE_NOT_FOUND = 1017
    ER_CANT_READ_DIR = 1018
    ER_CANT_SET_WD = 1019
    ER_CHECKREAD = 1020
    ER_DISK_FULL = 1021
    ER_DUP_KEY = 1022
    ER_ERROR_ON_CLOSE = 1023
    ER_ERROR_ON_READ = 1024
    ER_ERROR_ON_RENAME = 1025
    ER_ERROR_ON_WRITE = 1026
    ER_FILE_USED = 1027
    ER_FILSORT_ABORT = 1028
    ER_FORM_NOT_FOUND = 1029
    ER_GET_ERRNO = 1030
    ER_ILLEGAL_HA = 1031
    ER_KEY_NOT_FOUND = 1032
    ER_NOT_FORM_FILE = 1033
    ER_NOT_KEYFILE = 1034
    ER_OLD_KEYFILE = 1035
    ER_OPEN_AS_READONLY = 1036
    ER_OUTOFMEMORY = 1037
    ER_OUT_OF_SORTMEMORY = 1038
    ER_UNEXPECTED_EOF = 1039
    ER_CON_COUNT_ERROR = 1040
    ER_OUT_OF_RESOURCES = 1041
    ER_BAD_HOST_ERROR = 1042
    ER_HANDSHAKE_ERROR = 1043
    ER_DBACCESS_DENIED_ERROR = 1044
    ER_ACCESS_DENIED_ERROR = 1045
    ER_NO_DB_ERROR = 1046
    ER_UNKNOWN_COM_ERROR = 1047
    ER_BAD_NULL_ERROR = 1048
    ER_BAD_DB_ERROR = 1049
    ER_TABLE_EXISTS_ERROR = 1050
    ER_BAD_TABLE_ERROR = 1051
    ER_NON_UNIQ_ERROR = 1052
    ER_SERVER_SHUTDOWN = 1053
    ER_BAD_FIELD_ERROR = 1054
    ER_WRONG_FIELD_WITH_GROUP = 1055
    ER_WRONG_GROUP_FIELD = 1056
    ER_WRONG_SUM_SELECT = 1057
    ER_WRONG_VALUE_COUNT = 1058
    ER_TOO_LONG_IDENT = 1059
    ER_DUP_FIELDNAME = 1060
    ER_DUP_KEYNAME = 1061
    ER_DUP_ENTRY = 1062
    ER_WRONG_FIELD_SPEC = 1063
    ER_PARSE_ERROR = 1064
    ER_EMPTY_QUERY = 1065
    ER_NONUNIQ_TABLE = 1066
    ER_INVALID_DEFAULT = 1067
    ER_MULTIPLE_PRI_KEY = 1068
    ER_TOO_MANY_KEYS = 1069
    ER_TOO_MANY_KEY_PARTS = 1070
    ER_TOO_LONG_KEY = 1071
    ER_KEY_COLUMN_DOES_NOT_EXITS = 1072
    ER_BLOB_USED_AS_KEY = 1073
    ER_TOO_BIG_FIELDLENGTH = 1074
    ER_WRONG_AUTO_KEY = 1075
    ER_READY = 1076
    ER_NORMAL_SHUTDOWN = 1077
    ER_GOT_SIGNAL = 1078
    ER_SHUTDOWN_COMPLETE = 1079
    ER_FORCING_CLOSE = 1080
    ER_IPSOCK_ERROR = 1081
    ER_NO_SUCH_INDEX = 1082
    ER_WRONG_FIELD_TERMINATORS = 1083
    ER_BLOBS_AND_NO_TERMINATED = 1084
    ER_TEXTFILE_NOT_READABLE = 1085
    ER_FILE_EXISTS_ERROR = 1086
    ER_LOAD_INFO = 1087
    ER_ALTER_INFO = 1088
    ER_WRONG_SUB_KEY = 1089
    ER_CANT_REMOVE_ALL_FIELDS = 1090
    ER_CANT_DROP_FIELD_OR_KEY = 1091
    ER_INSERT_INFO = 1092
    ER_INSERT_TABLE_USED = 1093
    ER_NO_SUCH_THREAD = 1094
    ER_KILL_DENIED_ERROR = 1095
    ER_NO_TABLES_USED = 1096
    ER_TOO_BIG_SET = 1097
    ER_NO_UNIQUE_LOGFILE = 1098
    ER_TABLE_NOT_LOCKED_FOR_WRITE = 1099
    ER_TABLE_NOT_LOCKED = 1100
    ER_BLOB_CANT_HAVE_DEFAULT = 1101
    ER_WRONG_DB_NAME = 1102
    ER_WRONG_TABLE_NAME = 1103
    ER_TOO_BIG_SELECT = 1104
    ER_UNKNOWN_ERROR = 1105
    ER_UNKNOWN_PROCEDURE = 1106
    ER_WRONG_PARAMCOUNT_TO_PROCEDURE = 1107
    ER_WRONG_PARAMETERS_TO_PROCEDURE = 1108
    ER_UNKNOWN_TABLE = 1109
    ER_FIELD_SPECIFIED_TWICE = 1110
    ER_INVALID_GROUP_FUNC_USE = 1111
    ER_UNSUPPORTED_EXTENSION = 1112
    ER_TABLE_MUST_HAVE_COLUMNS = 1113
    ER_RECORD_FILE_FULL = 1114
    ER_UNKNOWN_CHARACTER_SET = 1115
    ER_TOO_MANY_TABLES = 1116
    ER_TOO_MANY_FIELDS = 1117
    ER_TOO_BIG_ROWSIZE = 1118
    ER_STACK_OVERRUN = 1119
    ER_WRONG_OUTER_JOIN = 1120
    ER_NULL_COLUMN_IN_INDEX = 1121
    ER_CANT_FIND_UDF = 1122
    ER_CANT_INITIALIZE_UDF = 1123
    ER_UDF_NO_PATHS = 1124
    ER_UDF_EXISTS = 1125
    ER_CANT_OPEN_LIBRARY = 1126
    ER_CANT_FIND_DL_ENTRY = 1127
    ER_FUNCTION_NOT_DEFINED = 1128
    ER_HOST_IS_BLOCKED = 1129
    ER_HOST_NOT_PRIVILEGED = 1130
    ER_PASSWORD_ANONYMOUS_USER = 1131
    ER_PASSWORD_NOT_ALLOWED = 1132
    ER_PASSWORD_NO_MATCH = 1133
    ER_UPDATE_INFO = 1134
    ER_CANT_CREATE_THREAD = 1135
    ER_WRONG_VALUE_COUNT_ON_ROW = 1136
    ER_CANT_REOPEN_TABLE = 1137
    ER_INVALID_USE_OF_NULL = 1138
    ER_REGEXP_ERROR = 1139
    ER_MIX_OF_GROUP_FUNC_AND_FIELDS = 1140
    ER_NONEXISTING_GRANT = 1141
    ER_TABLEACCESS_DENIED_ERROR = 1142
    ER_COLUMNACCESS_DENIED_ERROR = 1143
    ER_ILLEGAL_GRANT_FOR_TABLE = 1144
    ER_GRANT_WRONG_HOST_OR_USER = 1145
    ER_NO_SUCH_TABLE = 1146
    ER_NONEXISTING_TABLE_GRANT = 1147
    ER_NOT_ALLOWED_COMMAND = 1148
    ER_SYNTAX_ERROR = 1149
    ER_DELAYED_CANT_CHANGE_LOCK = 1150
    ER_TOO_MANY_DELAYED_THREADS = 1151
    ER_ABORTING_CONNECTION = 1152
    ER_NET_PACKET_TOO_LARGE = 1153
    ER_NET_READ_ERROR_FROM_PIPE = 1154
    ER_NET_FCNTL_ERROR = 1155
    ER_NET_PACKETS_OUT_OF_ORDER = 1156
    ER_NET_UNCOMPRESS_ERROR = 1157
    ER_NET_READ_ERROR = 1158
    ER_NET_READ_INTERRUPTED = 1159
    ER_NET_ERROR_ON_WRITE = 1160
    ER_NET_WRITE_INTERRUPTED = 1161
    ER_TOO_LONG_STRING = 1162
    ER_TABLE_CANT_HANDLE_BLOB = 1163
    ER_TABLE_CANT_HANDLE_AUTO_INCREMENT = 1164
    ER_DELAYED_INSERT_TABLE_LOCKED = 1165
    ER_WRONG_COLUMN_NAME = 1166
    ER_WRONG_KEY_COLUMN = 1167
    ER_WRONG_MRG_TABLE = 1168
    ER_DUP_UNIQUE = 1169
    ER_BLOB_KEY_WITHOUT_LENGTH = 1170
    ER_PRIMARY_CANT_HAVE_NULL = 1171
    ER_TOO_MANY_ROWS = 1172
    ER_REQUIRES_PRIMARY_KEY = 1173
    ER_NO_RAID_COMPILED = 1174
    ER_UPDATE_WITHOUT_KEY_IN_SAFE_MODE = 1175
    ER_KEY_DOES_NOT_EXITS = 1176
    ER_CHECK_NO_SUCH_TABLE = 1177
    ER_CHECK_NOT_IMPLEMENTED = 1178
    ER_CANT_DO_THIS_DURING_AN_TRANSACTION = 1179
    ER_ERROR_DURING_COMMIT = 1180
    ER_ERROR_DURING_ROLLBACK = 1181
    ER_ERROR_DURING_FLUSH_LOGS = 1182
    ER_ERROR_DURING_CHECKPOINT = 1183
    ER_NEW_ABORTING_CONNECTION = 1184
    ER_DUMP_NOT_IMPLEMENTED  = 1185
    ER_FLUSH_MASTER_BINLOG_CLOSED = 1186
    ER_INDEX_REBUILD = 1187
    ER_MASTER = 1188
    ER_MASTER_NET_READ = 1189
    ER_MASTER_NET_WRITE = 1190
    ER_FT_MATCHING_KEY_NOT_FOUND = 1191
    ER_LOCK_OR_ACTIVE_TRANSACTION = 1192
    ER_UNKNOWN_SYSTEM_VARIABLE = 1193
    ER_CRASHED_ON_USAGE = 1194
    ER_CRASHED_ON_REPAIR = 1195
    ER_WARNING_NOT_COMPLETE_ROLLBACK = 1196
    ER_TRANS_CACHE_FULL = 1197
    ER_SLAVE_MUST_STOP = 1198
    ER_SLAVE_NOT_RUNNING = 1199
    ER_BAD_SLAVE = 1200
    ER_MASTER_INFO = 1201
    ER_SLAVE_THREAD = 1202
    ER_TOO_MANY_USER_CONNECTIONS = 1203
    ER_SET_CONSTANTS_ONLY = 1204
    ER_LOCK_WAIT_TIMEOUT = 1205
    ER_LOCK_TABLE_FULL = 1206
    ER_READ_ONLY_TRANSACTION = 1207
    ER_DROP_DB_WITH_READ_LOCK = 1208
    ER_CREATE_DB_WITH_READ_LOCK = 1209
    ER_WRONG_ARGUMENTS = 1210
    ER_NO_PERMISSION_TO_CREATE_USER = 1211
    ER_UNION_TABLES_IN_DIFFERENT_DIR = 1212
    ER_LOCK_DEADLOCK = 1213
    ER_TABLE_CANT_HANDLE_FULLTEXT = 1214
    ER_CANNOT_ADD_FOREIGN = 1215
    ER_NO_REFERENCED_ROW = 1216
    ER_ROW_IS_REFERENCED = 1217
    ER_CONNECT_TO_MASTER = 1218
    ER_QUERY_ON_MASTER = 1219
    ER_ERROR_WHEN_EXECUTING_COMMAND = 1220
    ER_WRONG_USAGE = 1221
    ER_WRONG_NUMBER_OF_COLUMNS_IN_SELECT = 1222
    ER_CANT_UPDATE_WITH_READLOCK = 1223
    ER_MIXING_NOT_ALLOWED = 1224
    ER_DUP_ARGUMENT = 1225
    ER_USER_LIMIT_REACHED = 1226
    ER_SPECIFIC_ACCESS_DENIED_ERROR = 1227
    ER_LOCAL_VARIABLE = 1228
    ER_GLOBAL_VARIABLE = 1229
    ER_NO_DEFAULT = 1230
    ER_WRONG_VALUE_FOR_VAR = 1231
    ER_WRONG_TYPE_FOR_VAR = 1232
    ER_VAR_CANT_BE_READ = 1233
    ER_CANT_USE_OPTION_HERE = 1234
    ER_NOT_SUPPORTED_YET  = 1235
    ER_MASTER_FATAL_ERROR_READING_BINLOG = 1236
    ER_SLAVE_IGNORED_TABLE = 1237
    ER_ERROR_MESSAGES = 238

    # Client Error
    CR_MIN_ERROR = 2000
    CR_MAX_ERROR = 2999
    CR_UNKNOWN_ERROR = 2000
    CR_SOCKET_CREATE_ERROR = 2001
    CR_CONNECTION_ERROR = 2002
    CR_CONN_HOST_ERROR = 2003
    CR_IPSOCK_ERROR = 2004
    CR_UNKNOWN_HOST = 2005
    CR_SERVER_GONE_ERROR = 2006
    CR_VERSION_ERROR = 2007
    CR_OUT_OF_MEMORY = 2008
    CR_WRONG_HOST_INFO = 2009
    CR_LOCALHOST_CONNECTION = 2010
    CR_TCP_CONNECTION = 2011
    CR_SERVER_HANDSHAKE_ERR = 2012
    CR_SERVER_LOST = 2013
    CR_COMMANDS_OUT_OF_SYNC = 2014
    CR_NAMEDPIPE_CONNECTION = 2015
    CR_NAMEDPIPEWAIT_ERROR = 2016
    CR_NAMEDPIPEOPEN_ERROR = 2017
    CR_NAMEDPIPESETSTATE_ERROR = 2018
    CR_CANT_READ_CHARSET = 2019
    CR_NET_PACKET_TOO_LARGE = 2020
    CR_EMBEDDED_CONNECTION = 2021
    CR_PROBE_SLAVE_STATUS = 2022
    CR_PROBE_SLAVE_HOSTS = 2023
    CR_PROBE_SLAVE_CONNECT = 2024
    CR_PROBE_MASTER_CONNECT = 2025
    CR_SSL_CONNECTION_ERROR = 2026
    CR_MALFORMED_PACKET = 2027

    CLIENT_ERRORS = [
      "Unknown MySQL error",
      "Can't create UNIX socket (%d)",
      "Can't connect to local MySQL server through socket '%-.64s' (%d)",
      "Can't connect to MySQL server on '%-.64s' (%d)",
      "Can't create TCP/IP socket (%d)",
      "Unknown MySQL Server Host '%-.64s' (%d)",
      "MySQL server has gone away",
      "Protocol mismatch. Server Version = %d Client Version = %d",
      "MySQL client run out of memory",
      "Wrong host info",
      "Localhost via UNIX socket",
      "%-.64s via TCP/IP",
      "Error in server handshake",
      "Lost connection to MySQL server during query",
      "Commands out of sync;  You can't run this command now",
      "%-.64s via named pipe",
      "Can't wait for named pipe to host: %-.64s  pipe: %-.32s (%lu)",
      "Can't open named pipe to host: %-.64s  pipe: %-.32s (%lu)",
      "Can't set state of named pipe to host: %-.64s  pipe: %-.32s (%lu)",
      "Can't initialize character set %-.64s (path: %-.64s)",
      "Got packet bigger than 'max_allowed_packet'",
      "Embedded server",
      "Error on SHOW SLAVE STATUS:",
      "Error on SHOW SLAVE HOSTS:",
      "Error connecting to slave:",
      "Error connecting to master:",
      "SSL connection error",
      "Malformed packet"
    ]

    def initialize(errno, error)
      @errno = errno
      @error = error
      super error
    end
    attr_reader :errno, :error

    def Error::err(errno)
      CLIENT_ERRORS[errno - Error::CR_MIN_ERROR]
    end
  end

  class Net
    def initialize(sock)
      @sock = sock
      @pkt_nr = 0
    end

    def clear()
      @pkt_nr = 0
    end

    def read()
      buf = []
      len = nil
      @sock.sync = false
      while len == nil or len == MAX_PACKET_LENGTH do
a = @sock.read(4)
len = a[0]+a[1]*256+a[2]*256*256
pkt_nr = a[3]
if @pkt_nr != pkt_nr then
  raise "Packets out of order: #{@pkt_nr}<>#{pkt_nr}"
end
@pkt_nr = @pkt_nr + 1 & 0xff
buf << @sock.read(len)
      end
      @sock.sync = true
      buf.join
    end
   
    def write(data)
      if data.is_a? Array then
data = data.join
      end
      @sock.sync = false
      ptr = 0
      while data.length >= MAX_PACKET_LENGTH do
@sock.write Net::int3str(MAX_PACKET_LENGTH)+@pkt_nr.chr+data[ptr, MAX_PACKET_LENGTH]
@pkt_nr = @pkt_nr + 1 & 0xff
ptr += MAX_PACKET_LENGTH
      end
      @sock.write Net::int3str(data.length-ptr)+@pkt_nr.chr+data[ptr .. -1]
      @pkt_nr = @pkt_nr + 1 & 0xff
      @sock.sync = true
      @sock.flush
    end

    def close()
      @sock.close
    end

    def Net::int2str
      [n].pack("v")
    end

    def Net::int3str
      [n%256, n>>8].pack("cv")
    end

    def Net::int4str
      [n].pack("V")
    end

  end

  class Random
    def initialize(seed1, seed2)
      @max_value = 0x3FFFFFFF
      @seed1 = seed1 % @max_value
      @seed2 = seed2 % @max_value
    end

    def rnd()
      @seed1 = (@seed1*3+@seed2) % @max_value
      @seed2 = (@seed1+@seed2+33) % @max_value
      @seed1.to_f / @max_value
    end
  end

end

class << Mysql
  def init()
    Mysql::new :INIT
  end

  def real_connect(*args)
    Mysql::new(*args)
  end
  alias :connect :real_connect

  def finalizer(net)
    proc {
      net.clear
      net.write Mysql::COM_QUIT.chr
    }
  end

  def escape_string(str)
    str.gsub(/([\0\n\r\032\'\"\\])/) do
      case $1
      when "\0" then "\\0"
      when "\n" then "\\n"
      when "\r" then "\\r"
      when "\032" then "\\Z"
      else "\\"+$1
      end
    end
  end
  alias :quote :escape_string

  def get_client_info()
    Mysql::VERSION
  end
  alias :client_info :get_client_info

  def debug(str)
    raise "not implemented"
  end
end

#
# for compatibility
#

MysqlRes = Mysql::Result
MysqlField = Mysql::Field
MysqlError = Mysql::Error

 

[e]

Working on it. I'll keep you updated if I run into any trouble.

 

[Seto]

Wow thank you so much. Remember to credit yourself in the script somewhere :D.


*Edit*
I have been looking over the script and all looks good for the moment. I got a little scared when I was reading though a list of commands for the script and none had the ability to edit/insert information into tables but it found a different page that says other wise :D.

Also If I didn't do a good/clear job of requesting this script I am more then happy to edit it :D.

Just to spark interest I am going to explain a few things I plan to do with this script.
First will be a online battle system. It will be very basic. Just built of the default battle system that comes with RMXP. But instead of loading your enemies information from a file in the data folder the battle system with load the information from the MySQL database. The biggest part to be edited will be instead of your opponent being controlled by the computer it will of course be controlled by your opponent. I plan on working it like this:
The opponents stats are loaded into your game and then you attack the opponent. The attack you chose and damaged done and recored on to the database. Your opponent will then download this information and the battle animation from your attack will be shown and the damage done. Its then there turn to repeat the process.

The trading system will be much the same:
You pick an item and its Id is recored into the database you opponent picks and item and the same thing happens then the item you selected is removed from you inventory and the Id of the new item is download and you then gain that item.

Other features I plan on working on are as follows:
Using dynamic tables stats can be read from the database and displayed on a website allow top players lists.
In game gold can be spent on a website for in game items. This would be a good way of making money if you sold rare items in the online shop and had ad's on the page so that you gain revenue just for people playing your game.
Users will be able to sign up for your game on your website as well as within the game and the same username and password can be used to log into both the game and website.
Privet messages can be accessed and sent in game or from a website.

There are many many more things that can be done once this script is complete :D.

 

[Seto]

Hey,

Stauf would you be able to post a reply and tell me if you have seen my edits (the winsock script). And if you feel like it how the script is coming. I was mucking around with it the other day and almost got it all working and then it messed up and I was back at square one .

 

[S S Muu]

I can't really help you much more than what I did in the old topic but I have to say that this would be really cool if you get it working. :thumb:

Oh and you keep writing "Winstock" it should be "Winsock" :tongue:

 

[Me(tm)]

Some stuff...

The plain text version for the MySQL file is on the original website.

Since Winsock can bind a Socket to a Socket Layer - I don't see how this is really going to help you conenct to a MySQL server. The WinSock was composed to functions as an TCPSocket, from what I understand of it.

I hope that you and others will be able to find a functions in the Api Librarys to bind to a MySQL Layer, since I'm not into that. However, if you are planning on using this MySQL function to make an online battle system, I still strongly encourage the use of an ruby server with MySQL Support, since it is much faster then reading and writing to the MySQL Server. Instead, you would have this server be your connection pipe, and only save once in a while on the MySQL Database. 
The two good ideas that don't require this heavy traffic are the once you mentioned about high score lists and private messages. These wouldn't be such a load for a server, thus perfect.

Although I would like to mention that the other stuff IS currently possible (including MySQL support) with the scripts out their. Don't try to invent the wheel twice [battling, trading, pming, online shop is all done and can be made to work on both website and game with code out their]. It is not that I am trying to discourage you, just to make sure you don't do a lot of loose work.

 

[Seto]

Thanks for you help everyone,

Me do you think it will be too slow if I use the default turn based system?
Also one of my main reasons for working on this script/s was so that there would be no need for a sever to be run. This should allow many people to have severs running 24/7(maybe not 100% of the time) without having to run anything on their own pc.

Sorry about putting winstock instead of winsock .

I was going to have a look out there for any scripts I can use to stop me from having to write whole scripts. I was thinking of using some of the netplay + Scripts but would have to get permission first :D. Although I will have to find out the writers first.

 

[Seto]

First of all I would like to apologies if this is necroposting. I tried to read the topic about it but it kept loading as a blank page.

I would like to re-open this topic/request.