const
    SQL_hostname = 'localhost';
    SQL_name = 'name';
    SQL_pass = 'pass';
    SQL_DBname = 'dbname';

type
    tUser = record //
        Name, Pass: string;
        Level, Cash, Exp, Maxexp: integer;
    end;

var
    _sql: integer;
    Query: string;

function Connect_SQL(): byte;
  var
    sqlID: byte;
begin
    sqlID := mysql_connect(SQL_hostname,SQL_name,SQL_pass,SQL_DBname,5);

    if mysql_connected(_sql) = false then begin
        WriteLn(' [*] MySQL connection failed.');
        WriteLn('     '+mysql_error(_sql));
    end else begin
        WriteLn(' [*] MySQL connection established. IndexID: '+inttostr(sqlID));
        Result := sqlID;
    end;
end;

procedure Activateserver();
begin
    _SQL := Connect_SQL;
end;

function Char_exist(Name: string): boolean;
begin

end;

procedure Createchar(Name,Pass: string; id: byte);
begin //<tagID CARCHAR(10)> <password VARCHAR(32)> <level MEDIUMINT(11)> <cash BIGINT(32)> <exp BIGINT(32)> <maxexp BIGINT(32)>
    Query := 'INSERT INTO players (`tagID`,`password`,`level`,`cash`,`exp`,`maxepx`) VALUES ('+Name+','+MD5String(Pass)+','+inttostr(tUser[id].level)+','+inttostr(tUser[id].cash)+','+inttostr(tUser[id].exp)+','+inttostr(tUser[id].maxexp)+')'
    mysql_free_result( mysql_query( _sql, Query ) );
end;

procedure Login(Name, Pass: string);
begin
end;

procedure Save(Name: string);
begin
end;