hilp me plz all GM >? and all game plz

[shetos511]

Please download the game Rakion Online Private Server New

[cesarelroman]

What exactly do u want kid.

[rish4ck34]

it seems this project became dead...

[shaymin]

yoooo rish I don't suppose you could put the bdrs files back because the old link http://rakion.no-ip.biz/rdcf/ is dead

pleeeeeease

[Raymond]

We decided to quit this project. We are to be making a Maplestory private server i believe. But no one has been on since, so we don't know.

[rish4ck34]

I really did kinda forget about this because it failed, I made a maple story private server before a long time ago so it should be easy. and the link to the BDRS files, I will have to upload to a site. Hosting my own does not last forever

anyone who sees this here are the files for BDRS: http://www.mediafire.com/file/jb42vcbcmiwi9v3/rdcf.zip

Sorry for being gone for so long I hope cesearroman will accept me on his list for Hotmail so I can message him :p

P.S Here are the IDA decompiled files, there an html file, a txt file and the IDA file itself
maybe you can reverse engineer what source files are given and make a new exe

http://www.mediafire.com/file/0k848iya11jnb1b/decom%20source.zip

[shaymin]

I really did kinda forget about this because it failed, I made a maple story private server before a long time ago so it should be easy. and the link to the BDRS files, I will have to upload to a site. Hosting my own does not last forever

anyone who sees this here are the files for BDRS: http://www.mediafire.com/file/jb42vcbcmiwi9v3/rdcf.zip

Sorry for being gone for so long I hope cesearroman will accept me on his list for Hotmail so I can message him :p

P.S Here are the IDA decompiled files, there an html file, a txt file and the IDA file itself
maybe you can reverse engineer what source files are given and make a new exe

http://www.mediafire.com/file/0k848iya11jnb1b/decom%20source.zip

Thx for uploading rish - don't suppose you could upload your BDRS game folder if you've still got it? (like, the rakion.bin, xfs files and dll files, minus any xfs that are over 50mb so it's not a very big upload). Actually, I'm really just looking for the one dll duck used (think it's called "bdrsclient.dll"). If you can't don't sweat it.

[rish4ck34]

it should be in there with all of the files

[cesarelroman]

why does he need the server files??

[rish4ck34]

why does he need the server files??

I have not a clue, I just decided to post them. I can we can finish this and make it work...

Mario and Mishoo can make the login client...

[shaymin]

): rish I don't think the dll is in the stuff you uploaded (only one in there was "rdcfclient.dll" and I'm pretty sure it is the wrong one) - sure you don't have a "bdrsclient.dll"? According to google, "bdrsclient.dll" should have been located inside a folder that the login client creates (so not in the same folder as the login client/launcher.exe itself). the folder name should be "bdrs", and it should contain all the other game client files that duck used. hope you can help me get this dll o:

[NicoS]

Hi guys, I don't know if it is necessary to post this but I found the BDRS Launcher decompiled and I don't know if you ever found this xD
But I will still give it to you :

Code:

    while (string.sub(str,-1)=="\\") do str=string.sub(str,1,#str-1); end
    return str
end
function slash(str) return unslash(str).."\\"; end

log("clear cache initiated")

if bdrs==nil then
    bdrs=slash(get("bdrs_path")).."bdrs\\"
end

if exists(bdrs..".patched") then
    stop("Refusing to clear cache because the game is patched.\n ** Please restart the launcher so it can properly unpatch **")
end

recursion=0
filecount=0
failfiles=0
dircount=0

function cleandir(p)
    if p==bdrs.."engine.dll" then return; end
    if rm(p) then return; end
    recursion=recursion+1
    for i,v in pairs(ls(p.."*","d")) do
        status(v)
        if (recursion>100) then log("Too deep recursion, ignoring '"..v.."'")
        else
            log(string.rep(" ",recursion)..v.."\\")
            cleandir(p..v.."\\")
        end
    end
    for i,v in pairs(ls(p.."*","f")) do
        status(v)
        b,e = rm(p..v)
        if b then log(string.rep(" ",recursion)..v) ; filecount=filecount+1
        else log(string.rep(" ",recursion)..v.." - "..e) ; failfiles=failfiles+1
        end
    end
    recursion=recursion-1
    b,e = rm(p)
    if b then dircount=dircount+1
    else log(string.rep(" ",recursion)..p.." - "..e)
    end
end


cleandir(bdrs)


log("Removed "..filecount.." files and "..dircount.." directories from "..bdrs)
log("Failed to remove "..failfiles.." files")
if filecount==0 then
    if failfiles>0 then
        caption("Clearing failed")
    else
        caption("Nothing to clear")
    end
else
    caption("Cache cleared. Please restart the launcher")
end
status("")PAfunction copyenv()
    local e={}
    for i,v in pairs(getfenv()) do e[i]=v; end
    return e
end
function newenv()
    local e={}
    for i,v in pairs(cleanenv) do e[i]=v; end
    return e
end
cleanenv=copyenv()

me=get_module_name()
fullme=slash(get_module_path())..me

try

    if get("bdrs_installed") then
        rakion=slash(get("bdrs_path"))
        temp_rakion=false
    else
        rakion=get("temp").."bdrslauncher\\"
        temp_rakion=true
    end
    bdrs=rakion.."bdrs\\"
    bdrs_bin=rakion.."bin\\"
   
    assert(mkdir(bdrs))
    copy_file(bdrs.."log.txt",bdrs.."log.old.txt")
    assert(logfile(bdrs.."log.txt"))
    log(os.date())
    log("I am "..me.." ("..fullme.."), version "..get("version"))
    try
        log("Running on "..get_os())
    catch(e)
        log("get_os error: "..e)
    endtry


    patch=bdrs.."patch\\"
    bdrs_mod=bdrs.."mod\\"
    assert(mkdir(bdrs))
    --assert(mkdir(bdrs.."bak"))
    assert(mkdir(patch))
    assert(mkdir(bdrs_mod))

    launcher="bdrslauncher.exe"

    baseurl=get("baseurl") or (get("test") and "http://ducksplayground.com/test/") or "http://ducksplayground.com:81/bdrs/"
   
   
    if canopen(bdrs.."main.lua") then
        _offline=true
        _runcheck=true
        log("offline, runcheck, executing local main.lua...")
        assert(loadfile(bdrs.."main.lua","local-main"))()
        log("main done")
    end

    _offline=false
    _runcheck=false


    launcher_version=string.gsub(fetch("launcher_version"):tostring(),"[\n\r]","")

    -- better commented out, in case i want to roll back one version for some reason
    --if versioncmp(launcher_version,get("version"))<0 then
    --      error("Client version is newer than remote version?",0)
    --end
    if versioncmp(launcher_version,get("version"))~=0 then
        log("Updating to version "..launcher_version)
        fetch(launcher):save_to_file(bdrs.."new_launcher")
        fetch("replacer.exe"):save_to_file(bdrs.."replacer.exe")
        assert(execute("\""..bdrs.."replacer.exe\" \""..bdrs.."new_launcher\" \""..fullme.."\""))
        s=""
        wait(1)
        return 1 -- the current try implementation does not allow to return from within a try
            -- this return will jump to endtry
    end
   
    -- older version installed rakion 292 (not as bdrs) if no rakion was already installed
    if get("rakion_version")==292 then
        uninstall_rakion(true)
    end
    log("bdrs_version is "..get("bdrs_version"))
    if get("bdrs_version")~=install_rakion_version then
        install_bdrs()
        return restart_self()
    end
   

    if temp_rakion then
        logfile("nul")
        rm(rakion,true)
        return restart_self()
    end

    fetch("bdrsclient.dll"):save_to_file(bdrs.."bdrsclient.dll")
   
    s=fetch("v5.lua")
    s:save_to_file(bdrs.."main.lua")

catch(e)
    error(e,0)
endtry

try
    assert(loadstring(tostring(s),"main"))() -- do not change into :tostring() (s can be a buffer or a string)

catch(e)
    try
        delete_file(bdrs.."main.lua")
    catch(e2)
        error(e.."\n\n"..e2,0)
    endtry
    error(e,0)
endtry
PAinstall_rakion_version = 406


function install_rakion_files()
    local target
    if get("rakion_installed") then
        target=unslash(get("rakion_path")).."-bdrs\\"
    elseif get("bdrs_installed") then
        target=slash(get("bdrs_path"))
    else
        target = (os.getenv("programfiles") or ((os.getenv("systemdrive") or "C:").."\\Program Files")) .. "\\SoftNyx\\Rakion-bdrs\\"
    end
   
    local fn="rakion_"..install_rakion_version..".zip"
   
    local text = "This will install Rakion version "..install_rakion_version.."."
    if get("rakion_installed") then text=text.."\r\nYour existing Rakion International Service installation will not be affected"; end
    if is_dir(target) and not is_file(target..fn) then text=text.."\r\nNote: All existing files in the target directory will be deleted first";
    else text="\r\n"..text;
    end
    local qtext = "Target:"
   
    while true do
        target = slash( get_text(text,target,qtext) )
        if not is_file(target..fn) then rm(target,true,false); end
        local e,m = mkdir(target)
        if e then break
        else msgbox(target.." - "..m)
        end
    end
   
    log("installing rakion files in "..target)

    local zipfile=target..fn
    urlfetch_file(baseurl..fn,zipfile)
   
    caption("Uncompressing...")
    status("")
   
    try
        log("unzipping...");
        unzip_all(zipfile,target)
    finally
        --rm(zipfile)
    endtry
   
    return unslash(target)
end

function install_bdrs()

    local dir=install_rakion_files()
   
    local path=get("bdrs_registry_path")
   
    RegSetString("HKLM",path,"bdrs",dir)
    RegSetDWORD("HKLM",path,"bdrs_version",install_rakion_version)

    log("Rakion (bdrs) version "..install_rakion_version.." installed in "..dir)
    restart_self()
end

function uninstall_rakion(force)
    caption(""); status("")
    local path = get("rakion_path")
    if (not get("rakion_installed")) or path=="" then error("Cannot uninstall rakion because it's not installed!"); end
    if (force or yesnobox("Uninstall","Are you sure you want to uninstall rakion? This will delete all files in "..path)) then
        log("Uninstalling rakion from "..path)
        caption("Uninstalling rakion from "..path)
        local regpath = get("rakion_registry_path")
        rm(path,true,false)
        RegDeleteValue("HKLM",regpath,"Location")
        RegDeleteValue("HKLM",regpath,"Version")
        caption("Done")
        status("Rakion at "..path.." has been removed")
        log("done")
        return true
    end
    return false
end
function uninstall_bdrs(force)
    caption(""); status("")
    local path = get("bdrs_path")
    if (not get("bdrs_installed")) or path=="" then error("Cannot uninstall bdrs because it's not installed!"); end
    if (force or yesnobox("Uninstall","Are you sure you want to uninstall rakion (bdrs)? This will delete all files in "..path)) then
        log("Uninstalling rakion (bdrs) from "..path)
        caption("Uninstalling rakion (bdrs) from "..path)
        local regpath = get("bdrs_registry_path")
        rm(path,true,false)
        RegDeleteValue("HKLM",regpath,"bdrs")
        RegDeleteValue("HKLM",regpath,"bdrs_version")
        caption("Done")
        status("Rakion at "..path.." has been removed")
        log("done")
        return true
    end
    return false
end
PAfunction try(f, f1_type, f1_func, f2_type, f2_func)
    local r,e=pcall(f)
    if f1_type==0 and (not r) then f1_func(e) end
    if f1_type==1 then f1_func() end
    if f2_type==0 and (not r) then f2_func(e) end
    if f2_type==1 then f2_func() end
    if f1_type~=0 and f2_type~=0 and (not r) then error(e,0); end
end


local function F(get,put)
    put("F init")
    while true do
        local line1,token1,value1=get()
--        print(line1,token1,value1)
        if token1=="<eof>" then
            FILTER=FILTER_init
            return
        end
        if token1=="<name>" and value1=="try" then
            put(line1,"<name>","try")
            put(line1,"(")
            put(line1,"function")
            put(line1,"(")
            put(line1,")")
        elseif token1=="<name>" and value1=="catch" then
            put(line1,"end")
            put(line1,",")
            put(line1,"<number>","0")
            put(line1,",")
            put(line1,"function")
        elseif token1=="<name>" and value1=="finally" then
            put(line1,"end")
            put(line1,",")
            put(line1,"<number>","1")
            put(line1,",")
            put(line1,"function")
            put(line1,"(")
            put(line1,")")
        elseif token1=="<name>" and value1=="endtry" then
            put(line1,"end")
            put(line1,")")
        else
            put(line1,token1,value1)
        end
    end
end

function FILTER_init(get,source)
    FILTER=coroutine.wrap(F)
    FILTER(get,coroutine.yield)
end


FILTER=FILTER_initPADfunction fix_path(s)
    return string.gsub(s,"/","\\")
end

function save_md5(s,md5)
    md5_l("")
    buf=new_buffer()
    for k,v in pairs(l_md5sums) do
        buf:write(v.." *"..k.."\n")
    end
    buf:save_to_file(bdrs.."md5sums")
end

r_md5sums=nil
l_md5sums=nil

function md5_r(s)
    if _offline then return l_md5sums[s]; end
    s=fix_path(s)
    if r_md5sums==nil then
        r_md5sums={}
        local s=fix_path(tostring(urlfetch(baseurl.."md5sums")));
        for k,v in string.gmatch(s,"(%w+) [ %*]([%w%p]+)") do
            r_md5sums[v]=string.lower(k);
        end
    end
    return r_md5sums[s]
end
function md5_l(s)
    s=fix_path(s)
    if l_md5sums==nil then
        l_md5sums={}
        local s=fix_path(tostring(filefetch(bdrs.."md5sums",true)));
        for k,v in string.gmatch(s,"(%w+) [ %*]([%w%p]+)") do
            l_md5sums[v]=string.lower(k);
        end
    end
    return l_md5sums[s]
end

function fetch(s)
    local l,r
    l=md5_l(s)
    r=md5_r(s)
    if r==nil then
        error("Refusing to fetch "..s.." because it has no checksum",0)
    end
    --log("remote "..r..", local "..(l or "nil"))
    if l~=r and (not _offline) then
        local f,md5
        f=urlfetch(baseurl..s)
        md5=f:md5sum()
        if md5~=r then
            log(s..": md5sum mismatch, remote '"..r.."', local '"..md5.."'")
            error(s..": md5sum mismatch",0)
        end
        l_md5sums[s]=md5
        f:save_to_file(patch..s)
        save_md5(s,md5)
        return f
    else
        if not canopen(patch..s) then
            log("Warning : file "..s.." has a recorded checksum, but it doesn't exist or is inaccessible")
            l_md5sums[s]=nil
            return fetch(s)
        end
        return filefetch(patch..s)
    end
end

function fetch_list(list)
    local c
    c=0
    for i,v in ipairs(list) do
        if md5_l(v)==md5_r(v) and canopen(patch..v) then
            table.remove(list,i)
        end
    end
    progress_reset(#list)
    for i,v in ipairs(list) do
        fetch(v)
    end
end

function emsg(m,e,s)
    if e then return e,s; end
    if not s then return e,m; end
    s=m..": "..s
    return e,s
end

function copy_dir(from,to)
    if is_file(from) then return emsg(from.." -> "..to,copy_file(from,to)); end
    if not is_dir(from) then return false,from.." does not exist or is inaccessible"; end
    if not is_dir(to) then
        local e,s = emsg(to,mkdir(to))
        if not e then return e,s; end
    end
    for i,v in pairs(ls(from.."\\*","d")) do
        local e,s = emsg(from.." -> "..to,copy_dir(from.."\\"..v,to.."\\"..v))
        if not e then return e,s; end
    end
    for i,v in pairs(ls(from.."\\*","f")) do
        e,s = emsg(from.." -> "..to,copy_file(from.."\\"..v,to.."\\"..v))
        if not e then return e,s; end
    end
    return true
end

function unslash(str)
    while (string.sub(str,-1)=="\\") do str=string.sub(str,1,#str-1); end
    return str
end

[NicoS]

): rish I don't think the dll is in the stuff you uploaded (only one in there was "rdcfclient.dll" and I'm pretty sure it is the wrong one) - sure you don't have a "bdrsclient.dll"? According to google, "bdrsclient.dll" should have been located inside a folder that the login client creates (so not in the same folder as the login client/launcher.exe itself). the folder name should be "bdrs", and it should contain all the other game client files that duck used. hope you can help me get this dll o:

And here is "bdrsclient.dll" for you man, i'm sure it is the real file because I found it on a "website" with other BDRS' files =)

[NicoS]

Here again another file decompiled "bdrslauncher.exe" i think... xD

Code:

-- bdrslauncher script v5

login_url="http://ducksplayground.com/stuff/login.php"

if not _offline then
   broker_ip=get("broker_ip") or "85.17.140.210"
   broker_port="40706"
   buddy_ip=broker_ip
   buddy_port="8500"
   log("broker is "..broker_ip..":"..broker_port..", buddy is "..buddy_ip..":"..buddy_port)
end

if _runcheck then return 0; end

--stop("Sorry, server will be up again soon...")
--stop("Server is down for an update")

packs  = { "gen.pack", "items_433.pack" }
for i,v in pairs(packs) do
   fetch("packs\\"..v):save_to_file(bdrs.."packs\\"..v)
end

--stop("The server will up very soon.")


maps = {  }
for i,v in pairs(maps) do
   fetch("maps\\"..v):save_to_file(rakion.."maps\\"..v)
end

log("rakion is at "..rakion)
log("bdrs is at "..bdrs)

motd(fetch("motd"):tostring())

b, username, password = login(login_url)
if not b then return 0; end

caption("Loading...")
status("")

try

ini=new_ini()
ini:multikey(true)
ini:set("","Language","English")
ini:set("","IDCNum","1")
ini:set("","IDCName","International")
ini:set("","BrokerIP",broker_ip)
ini:set("","BrokerPort",broker_port)
ini:set("","BuddyIP",buddy_ip)
ini:set("","BuddyPort",buddy_port)
ini:set("","RelayServerNum","1")
ini:set("","RelayIP",broker_ip)
ini:set("","RelayPort","40700")
servernames={"Yoghurtland","USA/Canada","Latin America","Europe","Asia","Australia","Arab/Africa","---"}
servers=16
ini:set("","WorldServerNum",servers)
log("servers: "..servers)
for i=1,servers do
   ini:set("","WorldServerName",servernames[i] or "Server "..i)
end
ini:tobuffer():save_to_file(rakion.."datasetup\\locale.ini")

caption("Starting rakion...")
status("")

assert(cd(bdrs))

rm("log2.txt")

if not is_file("bdrsclient.dll") then
   error("bdrsclient.dll does not exist or is inaccessible.",0)
end

if get("rakion_installed") then
   local rpath=slash(get("rakion_path"))
   mkdir(rakion.."scripts")
--   copy_file(rpath.."scripts\\persistentsymbols.ini",rakion.."scripts\\persistentsymbols.ini")
--   copy_dir(rpath.."ControlsSV",rakion.."ControlsSV")
end

mkdir(rakion.."maps")

start_rakion(bdrs_bin.."rakion.bin",username,password,t)

caption("Done")
status("")
wait(1)
catch(e)
   error(e,0)
endtry

return 0


[rish4ck34]

Here again another file decompiled "bdrslauncher.exe" i think... xD

Code:

-- bdrslauncher script v5

login_url="http://ducksplayground.com/stuff/login.php"

if not _offline then
   broker_ip=get("broker_ip") or "85.17.140.210"
   broker_port="40706"
   buddy_ip=broker_ip
   buddy_port="8500"
   log("broker is "..broker_ip..":"..broker_port..", buddy is "..buddy_ip..":"..buddy_port)
end

if _runcheck then return 0; end

--stop("Sorry, server will be up again soon...")
--stop("Server is down for an update")

packs  = { "gen.pack", "items_433.pack" }
for i,v in pairs(packs) do
   fetch("packs\\"..v):save_to_file(bdrs.."packs\\"..v)
end

--stop("The server will up very soon.")


maps = {  }
for i,v in pairs(maps) do
   fetch("maps\\"..v):save_to_file(rakion.."maps\\"..v)
end

log("rakion is at "..rakion)
log("bdrs is at "..bdrs)

motd(fetch("motd"):tostring())

b, username, password = login(login_url)
if not b then return 0; end

caption("Loading...")
status("")

try

ini=new_ini()
ini:multikey(true)
ini:set("","Language","English")
ini:set("","IDCNum","1")
ini:set("","IDCName","International")
ini:set("","BrokerIP",broker_ip)
ini:set("","BrokerPort",broker_port)
ini:set("","BuddyIP",buddy_ip)
ini:set("","BuddyPort",buddy_port)
ini:set("","RelayServerNum","1")
ini:set("","RelayIP",broker_ip)
ini:set("","RelayPort","40700")
servernames={"Yoghurtland","USA/Canada","Latin America","Europe","Asia","Australia","Arab/Africa","---"}
servers=16
ini:set("","WorldServerNum",servers)
log("servers: "..servers)
for i=1,servers do
   ini:set("","WorldServerName",servernames[i] or "Server "..i)
end
ini:tobuffer():save_to_file(rakion.."datasetup\\locale.ini")

caption("Starting rakion...")
status("")

assert(cd(bdrs))

rm("log2.txt")

if not is_file("bdrsclient.dll") then
   error("bdrsclient.dll does not exist or is inaccessible.",0)
end

if get("rakion_installed") then
   local rpath=slash(get("rakion_path"))
   mkdir(rakion.."scripts")
--   copy_file(rpath.."scripts\\persistentsymbols.ini",rakion.."scripts\\persistentsymbols.ini")
--   copy_dir(rpath.."ControlsSV",rakion.."ControlsSV")
end

mkdir(rakion.."maps")

start_rakion(bdrs_bin.."rakion.bin",username,password,t)

caption("Done")
status("")
wait(1)
catch(e)
   error(e,0)
endtry

return 0


Sooo... Where did you get this :?

[NicoS]

Here again another file decompiled "bdrslauncher.exe" i think... xD

Code:

-- bdrslauncher script v5

login_url="http://ducksplayground.com/stuff/login.php"

if not _offline then
   broker_ip=get("broker_ip") or "85.17.140.210"
   broker_port="40706"
   buddy_ip=broker_ip
   buddy_port="8500"
   log("broker is "..broker_ip..":"..broker_port..", buddy is "..buddy_ip..":"..buddy_port)
end

if _runcheck then return 0; end

--stop("Sorry, server will be up again soon...")
--stop("Server is down for an update")

packs  = { "gen.pack", "items_433.pack" }
for i,v in pairs(packs) do
   fetch("packs\\"..v):save_to_file(bdrs.."packs\\"..v)
end

--stop("The server will up very soon.")


maps = {  }
for i,v in pairs(maps) do
   fetch("maps\\"..v):save_to_file(rakion.."maps\\"..v)
end

log("rakion is at "..rakion)
log("bdrs is at "..bdrs)

motd(fetch("motd"):tostring())

b, username, password = login(login_url)
if not b then return 0; end

caption("Loading...")
status("")

try

ini=new_ini()
ini:multikey(true)
ini:set("","Language","English")
ini:set("","IDCNum","1")
ini:set("","IDCName","International")
ini:set("","BrokerIP",broker_ip)
ini:set("","BrokerPort",broker_port)
ini:set("","BuddyIP",buddy_ip)
ini:set("","BuddyPort",buddy_port)
ini:set("","RelayServerNum","1")
ini:set("","RelayIP",broker_ip)
ini:set("","RelayPort","40700")
servernames={"Yoghurtland","USA/Canada","Latin America","Europe","Asia","Australia","Arab/Africa","---"}
servers=16
ini:set("","WorldServerNum",servers)
log("servers: "..servers)
for i=1,servers do
   ini:set("","WorldServerName",servernames[i] or "Server "..i)
end
ini:tobuffer():save_to_file(rakion.."datasetup\\locale.ini")

caption("Starting rakion...")
status("")

assert(cd(bdrs))

rm("log2.txt")

if not is_file("bdrsclient.dll") then
   error("bdrsclient.dll does not exist or is inaccessible.",0)
end

if get("rakion_installed") then
   local rpath=slash(get("rakion_path"))
   mkdir(rakion.."scripts")
--   copy_file(rpath.."scripts\\persistentsymbols.ini",rakion.."scripts\\persistentsymbols.ini")
--   copy_dir(rpath.."ControlsSV",rakion.."ControlsSV")
end

mkdir(rakion.."maps")

start_rakion(bdrs_bin.."rakion.bin",username,password,t)

caption("Done")
status("")
wait(1)
catch(e)
   error(e,0)
endtry

return 0


Sooo... Where did you get this :?

Look here man : http://multidown.comuf.com/bdrs/

[Sponsored content]