[Release]H2-Reloaded Alchemiequest '

Page 1 of 2 1 2
09/23/2012 20:58 tяuє Ðevin#1
Joa,

bis das mit Andi geklärt ist wegen dem Entpacker hier nur mal die Alchemiequest.

PHP Code:
quest alchemie begin
    state start begin
        when login begin
            send_alchemie_info()
            if (pc.getqf("alchemie") > 0) and (pc.getqf("alchemie_ready") == 1) and (pc.getqf("alchemie_resid") > 0) then
                cmdchat("WinAlchemie "..pc.getqf("alchemie").." "..pc.getqf("alchemie_resid"))
            end
        end
        
        when letter with pc.getqf("alchemie") > 0 begin
            send_letter("Alchemie fortsetzen")
        end
        
        when button or info with pc.getqf("alchemie") > 0 begin
            clear_letter()
            if (pc.getqf("alchemie") > 5) or ((pc.getqf("alchemie") == 5) and (pc.getqf("alchemie_ready") != 1)) then
                pc.setqf("alchemie", 0)
            end
            if pc.getqf("alchemie") > 0 then
                say_title("Alchemie - Runde "..pc.getqf("alchemie"))
                say("Du hast letztes mal vor dem Abschluss der")
                say("Alchemie aufgehört.")
                say("Willst du jetzt weitermachen?")
                say("")
                local s = select("Ja", "Nein")
                if s == 2 then
                    send_letter("Alchemie fortsetzen")
                    return
                end
            end
            while pc.getqf("alchemie") <= 5 do
                if (pc.getqf("alchemie_ready") != 1) and (pc.getqf("alchemie") < 5) then
                    say_title("Alchemie - Runde "..(pc.getqf("alchemie")+1))
                    if pc.getqf("alchemie") > 0 then
                        say("Du bist aktuell in der Runde "..pc.getqf("alchemie")..".")
                        say("Möchtest du jetzt mit der Runde "..(pc.getqf("alchemie")+1).." weitermachen?")
                    else
                        say("Willst du jetzt mit der Alchemie beginnen?")
                    end
                    say("")
                    local s = select("Ja", "Nein")
                    if s == 2 then
                        return
                    else
                        cmdchat("WaitingAlchemie "..(pc.getqf("alchemie")+1))
                        cmdchat("ShowAlchemie")
                    end
                    if pc.getqf("alchemie") < 1 then
                        if pc.count_item(80000) > 0 then
                            pc.remove_item(80000)
                        else
                            notice("BUGGED!")
                            notice("EXITED.")
                            return
                        end
                    end
                    say_title("Alchemie - Runde "..(pc.getqf("alchemie")+1))
                    say("[DELAY value;1500]...[/DELAY]")
                    wait()
                    local rand_percent = get_alchemie_percent()
                    local rand_row_sql = tonumber(rand_percent[pc.getqf("alchemie")+1][6])
                    local rand_row = number(1, 100)
                    if rand_row_sql >= rand_row then
                        pc.setqf("alchemie", pc.getqf("alchemie") + 1)
                        local rand_col_sql = rand_percent[pc.getqf("alchemie")]
                        local rand_col_max = tonumber(rand_col_sql[1])+tonumber(rand_col_sql[2])+tonumber(rand_col_sql[3])+tonumber(rand_col_sql[4])+tonumber(rand_col_sql[5])
                        local rand_col = number(1, rand_col_max)
                        local rand_col_sql_add = 0
                        for i = 1, 5 do
                            rand_col_sql_add = rand_col_sql_add + tonumber(rand_col_sql[i])
                            if rand_col_sql_add >= rand_col then
                                result_col = i
                                result_sql = get_alchemie_items(pc.getqf("alchemie"), result_col)
                                pc.setqf("alchemie_resid", result_col)
                                pc.setqf("alchemie_resvnum", result_sql[1])
                                pc.setqf("alchemie_rescount", result_sql[2])
                                break
                            end
                        end
                    else
                        cmdchat("LooseAlchemie "..pc.getqf("alchemie"))
                        cmdchat("ShowAlchemie")
                        pc.setqf("alchemie", 0)
                        say("Leider hat die Alchemie versagt...")
                        say("Versuche es später erneut.")
                        say("")
                        wait()
                        cmdchat("SetStandardAlchemie")
                        cmdchat("HideAlchemie")
                        return
                    end
                end
                cmdchat("WinAlchemie "..pc.getqf("alchemie").." "..pc.getqf("alchemie_resid"))
                cmdchat("ShowAlchemie")
                if (pc.getqf("alchemie_ready") != 1) and (((not in_table(string.upper(os.date("%A")), {"FRIDAY", "SATURDAY", "SUNDAY"})) and (pc.getqf("alchemie") == 5)) or (pc.getqf("alchemie_resid") > 1)) then
                    notice(pc.get_name().." hat ein "..item_name(pc.getqf("alchemie_resvnum")).." durch die Alchemie gewonnen!")
                end
                pc.setqf("alchemie_ready", 1)
                say_title("Alchemie - Runde "..pc.getqf("alchemie"))
                say("Die Alchemie war erfolgreich!")
                say("Gewonnenes Item:")
                say_item(item_name(pc.getqf("alchemie_resvnum")).." ("..pc.getqf("alchemie_rescount").."x)", pc.getqf("alchemie_resvnum"), "")
                say("")
                if pc.getqf("alchemie") < 5 then
                    s = select("Item nehmen", "Weiter", "Warten")
                else
                    s = select("Item nehmen", "Warten")
                    if s == 2 then
                        s = 3
                    end
                end
                if s == 1 then
                    cmdchat("SetStandardAlchemie")
                    cmdchat("HideAlchemie")
                    pc.give_item2(pc.getqf("alchemie_resvnum"), pc.getqf("alchemie_rescount"))
                    pc.setqf("alchemie", 0)
                    pc.setqf("alchemie_ready", 0)
                    return
                elseif s == 2 then
                    pc.setqf("alchemie_ready", 0)
                elseif s == 3 then
                    send_letter("Alchemie fortsetzen")
                    return
                end
            end
        end
        
        when 80000.use begin
            if tonumber(prestige_get_level()) <= 0 then
                notice("Du musst mindestens Prestige 1 erreicht haben.")
                return
            end
            clear_letter()
            if (pc.getqf("alchemie") > 5) or ((pc.getqf("alchemie") == 5) and (pc.getqf("alchemie_ready") != 1)) then
                pc.setqf("alchemie", 0)
            end
            if pc.getqf("alchemie") > 0 then
                say_title("Alchemie - Runde "..pc.getqf("alchemie"))
                say("Du hast letztes mal vor dem Abschluss der")
                say("Alchemie aufgehört.")
                say("Willst du jetzt weitermachen?")
                say("")
                local s = select("Ja", "Nein")
                if s == 2 then
                    send_letter("Alchemie fortsetzen")
                    return
                end
            end
            while pc.getqf("alchemie") <= 5 do
                if (pc.getqf("alchemie_ready") != 1) and (pc.getqf("alchemie") < 5) then
                    say_title("Alchemie - Runde "..(pc.getqf("alchemie")+1))
                    if pc.getqf("alchemie") > 0 then
                        say("Du bist aktuell in der Runde "..pc.getqf("alchemie")..".")
                        say("Möchtest du jetzt mit der Runde "..(pc.getqf("alchemie")+1).." weitermachen?")
                    else
                        say("Willst du jetzt mit der Alchemie beginnen?")
                    end
                    say("")
                    local s = select("Ja", "Nein")
                    if s == 2 then
                        return
                    else
                        cmdchat("WaitingAlchemie "..(pc.getqf("alchemie")+1))
                        cmdchat("ShowAlchemie")
                    end
                    if pc.getqf("alchemie") < 1 then
                        if pc.count_item(80000) > 0 then
                            pc.remove_item(80000)
                        else
                            notice("BUGGED!")
                            notice("EXITED.")
                            return
                        end
                    end
                    say_title("Alchemie - Runde "..(pc.getqf("alchemie")+1))
                    say("[DELAY value;1500]...[/DELAY]")
                    wait()
                    local rand_percent = get_alchemie_percent()
                    local rand_row_sql = tonumber(rand_percent[pc.getqf("alchemie")+1][6])
                    local rand_row = number(1, 100)
                    if rand_row_sql >= rand_row then
                        pc.setqf("alchemie", pc.getqf("alchemie") + 1)
                        local rand_col_sql = rand_percent[pc.getqf("alchemie")]
                        local rand_col_max = tonumber(rand_col_sql[1])+tonumber(rand_col_sql[2])+tonumber(rand_col_sql[3])+tonumber(rand_col_sql[4])+tonumber(rand_col_sql[5])
                        local rand_col = number(1, rand_col_max)
                        local rand_col_sql_add = 0
                        for i = 1, 5 do
                            rand_col_sql_add = rand_col_sql_add + tonumber(rand_col_sql[i])
                            if rand_col_sql_add >= rand_col then
                                result_col = i
                                result_sql = get_alchemie_items(pc.getqf("alchemie"), result_col)
                                pc.setqf("alchemie_resid", result_col)
                                pc.setqf("alchemie_resvnum", result_sql[1])
                                pc.setqf("alchemie_rescount", result_sql[2])
                                break
                            end
                        end
                    else
                        cmdchat("LooseAlchemie "..pc.getqf("alchemie"))
                        cmdchat("ShowAlchemie")
                        pc.setqf("alchemie", 0)
                        say("Leider hat die Alchemie versagt...")
                        say("Versuche es später erneut.")
                        say("")
                        wait()
                        cmdchat("SetStandardAlchemie")
                        cmdchat("HideAlchemie")
                        return
                    end
                end
                cmdchat("WinAlchemie "..pc.getqf("alchemie").." "..pc.getqf("alchemie_resid"))
                cmdchat("ShowAlchemie")
                if (pc.getqf("alchemie_ready") != 1) and (((not in_table(string.upper(os.date("%A")), {"FRIDAY", "SATURDAY", "SUNDAY"})) and (pc.getqf("alchemie") == 5)) or (pc.getqf("alchemie_resid") > 1)) then
                    notice(pc.get_name().." hat ein "..item_name(pc.getqf("alchemie_resvnum")).." durch die Alchemie gewonnen!")
                end
                pc.setqf("alchemie_ready", 1)
                say_title("Alchemie - Runde "..pc.getqf("alchemie"))
                say("Die Alchemie war erfolgreich!")
                say("Gewonnenes Item:")
                say_item(item_name(pc.getqf("alchemie_resvnum")).." ("..pc.getqf("alchemie_rescount").."x)", pc.getqf("alchemie_resvnum"), "")
                say("")
                if pc.getqf("alchemie") < 5 then
                    s = select("Item nehmen", "Weiter", "Warten")
                else
                    s = select("Item nehmen", "Warten")
                    if s == 2 then
                        s = 3
                    end
                end
                if s == 1 then
                    cmdchat("SetStandardAlchemie")
                    cmdchat("HideAlchemie")
                    pc.give_item2(pc.getqf("alchemie_resvnum"), pc.getqf("alchemie_rescount"))
                    pc.setqf("alchemie", 0)
                    pc.setqf("alchemie_ready", 0)
                    return
                elseif s == 2 then
                    pc.setqf("alchemie_ready", 0)
                elseif s == 3 then
                    send_letter("Alchemie fortsetzen")
                    return
                end
            end
        end

        
    end
end 
Clientside und in der DB benötigt man auch noch was, entpacker gibts via PN.
09/23/2012 21:04 ηice#2
Hmm Nice
Bekommst ein Thanks
09/23/2012 21:06 [SA]BlooD#3
mhm.. naja danke.
09/23/2012 21:07 .Seriously#4
Was bringt die Quest?
09/23/2012 21:09 tяuє Ðevin#5
In verbindung mit den Clinet und Serverside Dateien kann man eine Alchemie starten, ein Glücksspiel mit 5 Stufen. Entpacker gibts bei mir via pn
09/23/2012 21:13 .Seriously#6
Man kann sich ja nichtmal die client ziehen da die HP down bzw nicht abrufbar ist.
09/23/2012 21:17 .Onlyx3#7
Behaltet doch eure gerippte Scheiße mal

So en Dreck macht doch keinen eigenen Server aus !
09/23/2012 21:18 .Seriously#8
Besonders Helius ........
09/23/2012 21:36 Ocelot2606#9
fängt das mit Helius jetzt wieder von vorne an?

Lasst es dochmal

Ja ok sie haben Scheisse gebaut aber muss man jetzt wegen jedem Fehler den sie machen irgendwas releasen?
09/23/2012 21:58 Red Firestar#10
Nice *-* :D
09/23/2012 22:11 *~.ιηνιη¢ιвℓє.~*#11
NEEEEEEEEEEEEEEEEEEEIIIIIIIIIIIIIIIIIIIINNNNNNNNNN NNNNNNNNNN :(
09/23/2012 22:13 NewYork™#12
Wie sich hier die ganzen Leute freuen, die es nich selber schaffen so eine simple Quest zu schreiben.

Das schafft man in einer 1/2h....

Naja, habt Spaß Leute.. ;)

Sodii zu dir braucht man ja nichts sagen oder ?

Have Fun :x
09/23/2012 22:56 DasSchwarzeT#13
Omg. Sodii ohne Witz was du abziehst geht garnicht..
09/24/2012 01:11 Stamm1994#14
ähm den helius client ka ich hab ihn unter downloads mit entpacker ka wieso ^^

und neja die quest hatte ich schon haha :)
09/24/2012 04:12 .Chuck#15
Wieso machst du Sachen Public, die schon lange Public sind? Die ganzen Helius2 Files sind Public falls du es nicht gemerkt hast.

# closerequest, da Inhalt bereits vorhanden.
Page 1 of 2 1 2