[SERVICE] Die Questkontrolle

Page 668 of 845

668

04/11/2014 06:52 RoAIfrit#10006

Quote:

Originally Posted by MrPlayboy

Schon mit makequestbutton("TEXT") versucht?

Jo und es kommt kein Questletter

04/12/2014 15:30 flampy1#10007

bei mir funkt die quest nicht .....

PHP Code:


			
Error occured on compile dr_gutschein.quest

PHP Code:


			
quest dr_gutschein begin
    state start begin
        when 30252.use begin
            local accountid = mysql_query("SELECT * FROM player.player WHERE name='"..pc.get_name().."'","root","daroo","player","daroo")
            local coins = mysql_query("SELECT * FROM account.account WHERE id='"..accountid.account_id[1].."'","root","daroo","account","daroo")
            say_title("Drachenm�nzen Gutschein")
            say("Hallo "..pc.get_name()..".")
            say("M�chtest du diesen Gutschein")
            say("im Wert von 100 Drachenm�nzen einl�sen?")
                local s = select ("Ja","Nein")
                    if s == 1 then
                    local updatecoins = mysql_query("UPDATE account.account SET coins='"..coins.coins[1]+100.."' WHERE id='"..accountid.account_id[1].."'","root","daroo","account","daroo")
                    chat("Deine Drachenm�nzen wurden dir erfolgreich gutgeschrieben.")
                    pc.remove_item(30252, 1)
                end
                    if s == 2 then
                return
            end
        end
        when 30253.use begin
            local accountid = mysql_query("SELECT * FROM player.player WHERE name='"..pc.get_name().."'","root","daroo","player","daroo")
            local coins = mysql_query("SELECT * FROM account.account WHERE id='"..accountid.account_id[1].."'","root","daroo","account","daroo")
            say_title("Drachenm�nzen Gutschein")
            say("Hallo "..pc.get_name()..".")
            say("M�chtest du diesen Gutschein")
            say("im Wert von 500 Drachenm�nzen einl�sen?")
                local s = select ("Ja","Nein")
                    if s == 1 then
                    local updatecoins = mysql_query("UPDATE account.account SET coins='"..coins.coins[1]+500.."' WHERE id='"..accountid.account_id[1].."'","root","daroo","account","daroo")
                    chat("Deine Drachenm�nzen wurden dir erfolgreich gutgeschrieben.")
                    pc.remove_item(30253, 1)
                end
                    if s == 2 then
                return
            end
        end
        when 30251.use begin
            local accountid = mysql_query("SELECT * FROM player.player WHERE name='"..pc.get_name().."'","root","daroo","player","daroo")
            local coins = mysql_query("SELECT * FROM account.account WHERE id='"..accountid.account_id[1].."'","root","daroo","account","daroo")
            say_title("Drachenm�nzen Gutschein")
            say("Hallo "..pc.get_name()..".")
            say("M�chtest du diesen Gutschein")
            say("im Wert von 1000 Drachenm�nzen einl�sen?")
                local s = select ("Ja","Nein")
                    if s == 1 then
                    local updatecoins = mysql_query("UPDATE account.account SET coins='"..coins.coins[1]+1000.."' WHERE id='"..accountid.account_id[1].."'","root","daroo","account","daroo")
                    chat("Deine Drachenm�nzen wurden dir erfolgreich gutgeschrieben.")
                    pc.remove_item(30251, 1)
                end
                    if s == 2 then
                return
            end
        end
    end
end

[Only registered and activated users can see links. Click Here To Register...]

04/12/2014 15:32 AntikerGolem#10008

@ RoAIfrit

Spoiler

hab anderen quest namen genonmmen & es ging :o

-----------------------------

� : fixxed

04/12/2014 20:44 flampy1#10009

habe eine sprach quest und da werden alle skills auf p gemacht kann man das �ndern und die nur auf m1 machen ???

PHP Code:


			
quest Sprachen begin
        state start begin
                when 70028.use begin
        
                say_title("Sprach-Schule")
                say("Du moechtest also die anderen Verstehen")
                
                if pc.job==0 then
                say("Du moechtes also Sprache lernen?")
                
                local s=select("Lernen","Abbrechen")
                
                if s==1 then
                
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(122 ,2)
                pc.remove_item(70028, 1)
                pc.setqf("is_skilled", 1)
                say("Deine Sprachen sind auf Perfekter Meister")
                end
                
                if s==2 then
                return
                end

                elseif pc.job==1 then
                say("Du moechtes also Sprache lernen?")
                
                local s=select("Lernen","Abbrechen")
                
                if s==1 then
                
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(122 ,2)
                pc.remove_item(70028, 1)
                pc.setqf("is_skilled", 1)
                say("Deine Sprachen sind auf Perfekter Meister")
                end
                
                if s==2 then
                return
                end
            
                elseif pc.job==2 then
                say("Du moechtes also Sprache lernen?")
                
                local s=select("Lernen","Abbrechen")
                
                if s==1 then
                
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(122 ,2)
                pc.remove_item(70028, 1)
                pc.setqf("is_skilled", 1)
                say("Deine Sprachen sind auf Perfekter Meister")
                end
                
                if s==2 then
                return
                end
            
                elseif pc.job==3 then
                say("Du moechtes also Sprache lernen?")
                
                local s=select("Lernen","Abbrechen")
                
                if s==1 then
                
                pc.set_skill_level(126 ,50)
                pc.set_skill_level(127 ,50)
                pc.set_skill_level(128 ,50)
                pc.set_skill_level(122 ,2)
                pc.remove_item(70028, 1)
                pc.setqf("is_skilled", 1)
                say("Deine Sprachen sind auf Perfekter Meister")
                end
                
                if s==2 then
                return
                end
            end
        end
    end
end

04/12/2014 21:13 .Delta#10010

pc.set_skill_level(skillvnum, stufe)

;)

trag halt statt der 50 mal andere zahlen ein, ich denke 21 m�sste bei m1 hinkommen

04/13/2014 12:15 .yorliK#10011

Quote:

Originally Posted by flampy1

habe eine sprach quest und da werden alle skills auf p gemacht kann man das �ndern und die nur auf m1 machen ???

Sollte funktionieren.

PHP Code:


			
quest Sprachen begin
    state start begin
        when 70028.use with pc.getqf("is_skilled")==0 begin
            say_title("Sprach-Schule")
            say("")
            say("Du kannst die Anderen nicht verstehen,")
            say("moechtest es aber gerne?")
            say("")
            say_reward("Sprachen lernen?")
            if select("Lernen","Abbrechen")==2 then return end
            pc.set_skill_level(126, 20)
            pc.set_skill_level(127, 20)
            pc.set_skill_level(128, 20)
            pc.set_skill_level(122, 2)
            pc.remove_item(70028, 1)
            pc.setqf("is_skilled", 1)
            say_title("Erfolgreich")
            say("")
            say("Deine Sprachkenntnisse sind nun Perfekt!")
            say("Dir wird es nun m�glich sein andere")
            say("zu verstehen.")
        end
    end
end

04/13/2014 15:14 Shigatu#10012

Die Techstufen aus der Quest sollen raus genommen werden, per Game klappt es nicht.

Spoiler

PHP Code:


			
quest fbs begin
    state start begin
        
        when 71094.use begin
            
            if pc.getqf("konzi") == 1 then
                
                chat("Dieser Effekt wirkt bereits.")
            
            else
                
                pc.setqf("konzi", 1)
                pc.removeitem("71094", 1)
                
            end
            
        end
        
        when 71001.use begin
            
            if pc.getqf("exo") == 1 then
                
                chat("Dieser Effekt wirkt bereits.")
                
            else
            
                pc.setqf("exo", 1)
                pc.removeitem("71001", 1)
                
            end
            
        end
        
        when 50401.use begin --Dreiwege-Schnitt
            
            fbs.skill_group(0, 1, 1, 50401)
            
        end
        
        when 50402.use begin --Schwertwirbel
            
            fbs.skill_group(0, 1, 2, 50402)
            
        end
        
        when 50403.use begin --Kampfrausch
            
            fbs.skill_group(0, 1, 3, 50403)
            
        end
        
        when 50404.use begin --Aura des Schwerts
            
            fbs.skill_group(0, 1, 4, 50404)
            
        end
        
        when 50405.use begin --Sausen
            
            fbs.skill_group(0, 1, 5, 50405)
            
        end
        
        when 50416.use begin -- Durchschlag
            
            fbs.skill_group(0, 2, 16, 50416)
            
        end
        
        when 50417.use begin -- Heftiges Schlagen
            
            fbs.skill_group(0, 2, 17, 50417)
            
        end
        
        when 50418.use begin -- Stampfer
            
            fbs.skill_group(0, 2, 18, 50418)
            
        end
        
        when 50419.use begin -- Starker K�rper
            
            fbs.skill_group(0, 2, 19, 50419)
            
        end
        
        when 50420.use begin -- Schwertschlag
            
            fbs.skill_group(0, 2, 20, 50420)
            
        end
        
        when 50431.use begin -- Hinterhalt
            
            fbs.skill_group(1, 1, 31, 50431)
            
        end
        
        when 50432.use begin -- Blitzangriff
            
            fbs.skill_group(1, 1, 32, 50432)
            
        end
        
        when 50433.use begin -- Degenwirbel
            
            fbs.skill_group(1, 1, 33, 50433)
            
        end
        
        when 50434.use begin -- Tarnung
            
            fbs.skill_group(1, 1, 34, 50434)
            
        end
        
        when 50435.use begin -- Giftwolke
            
            fbs.skill_group(1, 1, 35, 50435)
            
        end
        
        when 50446.use begin -- Wiederholter Schuss
            
            fbs.skill_group(1, 2, 46, 50446)
            
        end
        
        when 50447.use begin -- Pfeilregen
            
            fbs.skill_group(1, 2, 47, 50447)
            
        end
        
        when 50448.use begin -- Feuerpfeil
            
            fbs.skill_group(1, 2, 48, 50448)
            
        end
        
        when 50449.use begin -- Federschreiten
            
            fbs.skill_group(1, 2, 49, 50449)
            
        end
        
        when 50450.use begin -- Giftpfeil
            
            fbs.skill_group(1, 2, 50, 50450)
            
        end
        
        when 50461.use begin -- Fingerschlag
            
            fbs.skill_group(2, 1, 61, 50461)
            
        end
        
        when 50462.use begin -- Drachenwirbel
            
            fbs.skill_group(2, 1, 62, 50462)
            
        end
        
        when 50463.use begin -- Verzauberte Klinge
            
            fbs.skill_group(2, 1, 63, 50463)
            
        end
        
        when 50464.use begin -- Furcht
            
            fbs.skill_group(2, 1, 64, 50464)
            
        end
        
        when 50465.use begin -- Verzauberte R�stung
            
            fbs.skill_group(2, 1, 65, 50465)
            
        end
        
        when 50466.use begin -- Zauber aufheben
            
            fbs.skill_group(2, 1, 66, 50466)
            
        end
        
        when 50476.use begin -- Dunkler Schlag
            
            fbs.skill_group(2, 2, 76, 50476)
            
        end
        
        when 50477.use begin -- Flammenschlag
            
            fbs.skill_group(2, 2, 77, 50477)
            
        end
        
        when 50478.use begin -- Geist der Flamme
            
            fbs.skill_group(2, 2, 78, 50478)
            
        end
        
        when 50479.use begin -- Dunkler Schutz
            
            fbs.skill_group(2, 2, 79, 50479)
            
        end
        
        when 50480.use begin -- Geisterschlag
            
            fbs.skill_group(2, 2, 80, 50480)
            
        end
        
        when 50481.use begin -- Dunkler Stein
            
            fbs.skill_group(2, 2, 81, 50481)
            
        end
        
        when 50491.use begin -- Fliegender Talisman
            
            fbs.skill_group(3, 1, 91, 50491)
            
        end
        
        when 50492.use begin -- Drachenschie�en
            
            fbs.skill_group(3, 1, 92, 50492)
            
        end
        
        when 50493.use begin -- Drachengebr�ll
            
            fbs.skill_group(3, 1, 93, 50493)
            
        end
        
        when 50494.use begin -- Segen
            
            fbs.skill_group(3, 1, 94, 50494)
            
        end
        
        when 50495.use begin -- Reflektieren
            
            fbs.skill_group(3, 1, 95, 50495)
            
        end
        
        when 50496.use begin -- Hilfe des Drachen
            
            fbs.skill_group(3, 1, 96, 50496)
            
        end
        
        when 50506.use begin -- Blitzwurf
            
            fbs.skill_group(3, 2, 106, 50506)
            
        end
        
        when 50507.use begin -- Blitz heraufbeschw�ren
            
            fbs.skill_group(3, 2, 107, 50507)
            
        end
        
        when 50508.use begin -- Blitzkralle
            
            fbs.skill_group(3, 2, 108, 50508)
            
        end
        
        when 50509.use begin -- Kurieren
            
            fbs.skill_group(3, 2, 109, 50509)
            
        end
        
        when 50510.use begin -- Schnelligkeit
            
            fbs.skill_group(3, 2, 110, 50510)
            
        end
        
        when 50511.use begin -- Angriff+
            
            fbs.skill_group(3, 2, 111, 50511)
            
        end
        
        function skill_group(job_typ, group_typ, skill_typ, fb_vnum)
            
            if pc.get_job() == job_typ then
                
                if pc.get_skill_group() == group_typ then
                    
                    if pc.get_skill_level(skill_typ) < 20 then
                        
                        chat("Diese Fertigkeit habe ich noch nicht auf Meister!")
                    
                    elseif pc.get_skill_level(skill_typ) >= 30 then
                        
                        chat("Diese Fertigkeit habe ich schon gelernt!")
                    
                    else
                        
                        if pc.getqf("last_"..skill_typ) < get_global_time() then
                            
                            fbs.skill_meister(skill_typ, fb_vnum)
                        
                        elseif pc.getqf("exo") == 1 then
                            
                            fbs.skill_meister(skill_typ, fb_vnum)
                            pc.setqf("exo", 0)
                            
                        else
                            
                            chat("Dieses Buch lese ich gerade, es ist ziemlich kompliziertes Zeug!")
                        
                        end
                    end
                    
                else
                    
                    chat("Dieses Fertigkeitsbuch verstehe ich leider nicht!")
                
                end
                
            else
            
                chat("Dieses Fertigkeitsbuch verstehe ich leider nicht!")
                
            end
            
        end
        
        function skill_meister(skill_typ, fb_vnum)
            
            pc.removeitem(fb_vnum, 1)
            
            if pc.getqf("konzi") == 1 then -- Anweisung wird ausgef�hrt sobald eine Exo Rolle gelesen wurde
                
                fbs.skill_tech(skill_typ)
                pc.setqf("konzi", 0)
                
            else -- Anweisung wird ausgef�hrt wenn vor dem Lesen keine Exo Rolle gelesen wurde
                
                if number(1,100) < 40 then -- liefert eine Zufallszahl und wird ausgef�hrt wenn diese kleiner als 40 ist
                    
                    fbs.skill_tech(skill_typ)
            
                else -- wird ausgef�hrt sollte die Zufallszahl gr��er als 40 sein
                
                    chat("Verdammt... Das Training ist Fehlgeschlagen!")
                
                end
            end
            
            pc.setqf("last_"..skill_typ, get_global_time()+86400) --24h Stunden Sperre f�r das n�chste FB
            
        end
        
        function skill_tech(skill_typ)
            
            pc.setqf("tech_"..skill_typ, pc.getqf("tech_"..skill_typ)+1)
            
            if pc.get_skill_level(skill_typ) == pc.getqf("tech_"..skill_typ)+19 then
            
                pc.set_skill_level(skill_typ ,pc.get_skill_level(skill_typ)+1)
                pc.setqf("tech_"..skill_typ, 0)
                chat("Gl�ckwunsch... Das Training wurde erfolgreich abgeschlossen!")
            
            else
                
                chat("Das Fertigkeitsbuch wurde erfolgreich gelesen!")
                chat("Du musst noch "..pc.get_skill_level(skill_typ) - (pc.getqf("tech_"..skill_typ)+19).." Fertigkeitsb�cher erfolgreich lesen!")
                
            end
            
            if pc.getqf("tech_"..skill_typ) > 10 then
                
                pc.setqf("tech_"..skill_typ, 0)
                
            end
            
        end
        
        when 50513.use begin
            say_title("Seelenstein")
            local seelicount = pc.count_item(50513)
            if pc.get_skill_group() == 0 then
                say("Du besitzt keine Fertigkeiten, die")
                say("gegro�meistert werden k�nnen.")
                return
            end
            if pc.getqf("exo") == 0 and get_time() < pc.getqf("next_time") then -- and not is_test_server() then
                if pc.is_skill_book_no_delay() then
                    say("Durch den gebrauch einer Exorzismuss-")
                    say("Schriftrolle kannst du einen weiteren")
                    say("Seelenstein lesen!")                
                    wait()
                    say_title("Seelenstein")
                else
                    say("Du hast heute bereits einen Seelenstein gelesen!")
                    return
                end
            end
            local result = fbs.BuildGrandMasterSkillList(pc.get_job(), pc.get_skill_group())
            local vnum_list = result[1]
            local name_list = result[2]
            if table.getn(vnum_list) == 0 then
                say("Du besitzt keine Fertigkeiten, die")
                say("gegro�meistert werden k�nnen.")
                return
            end
            say("Welche Fertigkeit m�chtest du trainieren?")
            say("")
            local menu_list = {}
            table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
            table.insert(menu_list, "Abbrechen") 
            local s=select_table(menu_list)
            if table.getn(menu_list) == s then
                return
            end
            local skill_name=name_list[s]
            local skill_vnum=vnum_list[s]
            local skill_level = pc.get_skill_level(skill_vnum)
            local cur_alignment = pc.get_real_alignment()
            local need_alignment = 1000+500*(skill_level-30)
            test_chat("Momentaner Rang: "..cur_alignment)
            test_chat("Ben�tigter Rang: "..need_alignment)            
            local title=string.format("%s auf G%d trainieren", skill_name, skill_level-30+1)
            if skill_level-30+1==10 then
                title=string.format("%s auf P trainieren", skill_name)
            end
            say_title(title)
            say("Durch das Lesen von Seelensteinen m�ssen")
            say("dir als Zeichen des Opfers Rangpunkte")
            say("abgezogen werden.")
            say("")
            if cur_alignment<-19000+need_alignment then
                say_reward("Du hast zu wenig Rangpunkte!")
                return
            end
            if cur_alignment<0 then
                say_reward(string.format("Ben�tigter Rang: %d -> %d", need_alignment, need_alignment*2))
                say_reward("Beim erfolgreichen Einlesen des")
                say_reward("Seelensteines wird dir doppelt")
                say_reward("so viel Rangpunkte abgezogen.")
                need_alignment=need_alignment*2
            elseif cur_alignment<need_alignment then
                say_reward(string.format("Ben�tigter Rang: %d", need_alignment))
                say_reward("Beim erfolgreichen Einlesen des")
                say_reward("Seelensteines wird dir doppelt")
                say_reward("so viel Rangpunkte abgezogen.")
            else
                say_reward(string.format("Ben�tigter Rang: %d", need_alignment))
            end
            say("")
            local s=select("Lesen", "Abbrechen")    
            if s==2 then
                return
            end


            if cur_alignment>=0 and cur_alignment<need_alignment then
                say_title(string.format("%s best�tigen", title))
                say("Das Lesen eines Seelensteines kostet Rang,")
                say("wenn du diesen Seelenstein lie�t,")
                say("kommst du in den negativen Bereich.")
                say("Bitte Best�tige das du diesen Seelenstein")
                say("wirklich lesen m�chtest! Das tust du indem")
                say("du in den Textfeld das Wort")
                say_reward("trainieren")
                say("eingibst.")
                local s=input()
                if s!="trainieren" then
                    return
                end
            end
            if pc.getqf("exo") == 0 and get_time() < pc.getqf("next_time") then
                if pc.is_skill_book_no_delay() then
                    pc.remove_skill_book_no_delay()
                else
                    say("Bitte an die Admins wenden!")
                    return
                end
            end
            pc.setqf("next_time", get_time()+time_hour_to_sec(number(8, 12)))
            pc.setqf("exo", 0)
            pc.setqf("konzi", 0)
            if need_alignment > 0 and pc.count_item(50513) > 0 then
                pc.remove_item("50513", 1)
                if pc.learn_grand_master_skill(skill_vnum) then
                    pc.change_alignment(-need_alignment)
                    say_title(string.format("%s erfolgreich", title))
                    if 40 == pc.get_skill_level(skill_vnum) then
                        say(string.format("%s ist nun perfeckt Gemeistert.", skill_name))
                        say("Herzlichen Gl�ckwunsch!")
                    else
                        say(string.format("Das Gro�meistern war erfolgreich!", skill_name, skill_level-30+1+1))
                    end
                    say("")
                    say_reward("Erfolgreich!")
                    say_reward(string.format("Es wurden %d Rangpunkte verbraucht", need_alignment))
                    say("")
                else
                    say_title(string.format("%s fehlgeschlagen", title))
                    say("Das Gro�meistern ist fehlgeschlagen.")
                    say("")
                    local rang = number(need_alignment/3, need_alignment/2)
                    say_reward("Fehlgeschlagen! Es wurden "..rang.." Rangpunkte verbraucht")
                    say("")
                    pc.change_alignment(-rang)
                end
            end
        end
        
        function BuildGrandMasterSkillList(job, group)
            
            GRAND_MASTER_SKILL_LEVEL = 30
            PERFECT_MASTER_SKILL_LEVEL = 40
            
            local skill_list = special.active_skill_list[job+1][group]
            local ret_vnum_list = {}
            local ret_name_list = {}
            table.foreach(skill_list, 
                function(i, skill_vnum) 
                local skill_level = pc.get_skill_level(skill_vnum)
                if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
                    table.insert(ret_vnum_list, skill_vnum)
                    local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
                    if name == nil then name=skill_vnum end
                    table.insert(ret_name_list, name)
                end
            end)
            return {ret_vnum_list, ret_name_list}
        end
        
    end
end

04/13/2014 18:42 arys�#10013

Hallo folgendes Problem bei der Quest
der state erf�llt seine Wirkung nicht das beim kill des Mobs 8027 ein Item gedropt werden k�nnte kann jemand weiter helfen?

PHP Code:


			
    state weiter4 begin

        when 8027.kill begin

            set_state(weiter3)

            local a = number(1, 20)

            if a == 1 then

                pc.give_item2(800290, 1)

            end

        end

    end

04/13/2014 19:44 .yorliK#10014

Quote:

Originally Posted by arys™

Hallo folgendes Problem bei der Quest
der state erf�llt seine Wirkung nicht das beim kill des Mobs 8027 ein Item gedropt werden k�nnte kann jemand weiter helfen?

Da ich davon ausgehe, das der state erst weitergesetzt werden soll wenn das Item wirklich gedropt wurde, sollte das ganze so funktionieren.

PHP Code:


			
    state weiter4 begin
        when kill with npc.get_race() == 8027 begin
            if number(1, 20) == 1 then
                pc.give_item2(800290, 1)
                set_state(weiter3)
            end
        end
    end

04/13/2014 20:05 arys�#10015

leider immer noch kein Drop trotzdem danke...

04/13/2014 21:08 Rofelmau#10016

Quote:

Originally Posted by arys�

leider immer noch kein Drop trotzdem danke...

vegiss nciht du ahst auch nur ne 20% chance
versuch mal so

Code:

 state weiter4 begin
        when kill with npc.get_race() == 8027 begin
local a = math.random(1,20)
            if a == 1 then
                pc.give_item2(800290, 1)
                set_state(weiter3)
            end
        end
    end

04/13/2014 21:20 arys�#10017

habs probier 200 Metins gekillt nix kam ausser der standard drop. Hatte die Idee das mit nem even_flag zu verbinden aber dann kanns ja jeder droppen ist ja nicht sinn und zweck der sache...

04/14/2014 00:31 RawClassic#10018

Mag sich das einmal einer anschauen
habe bei der Ox Standart Quest
versucht eine Lvlbegrenzung einzubauen aber irgendwie funzt es nicht
hat einer ne Idee wo der Fehler ist?

PHP Code:


			
quest oxevent_manager begin

    state start begin

        when letter with pc.get_map_index()==113 begin

            send_letter("OX verlassen")

        end

        when button or info begin

            say_title("OX Wettbewerb")

            say("Den Wettbewerb verlassen?")

            local s=select("Ja", "Nein")

            if s==2 then

                send_letter("OX verlassen")

                return

            end

            local empire = pc.get_empire()

            if empire== 1 then

                pc.warp(433300, 219600)

            elseif  empire == 2 then  

                pc.warp(431500, 209200)

            elseif  empire == 3 then 

                pc.warp(439800, 211000)

            end

        end

        when 20011.chat."Der OX-Wettbewerb" begin

            if pc.get_level() >= 30 then

                say_title("Uriel")

                say("Hey du da")

                say("Ja, ja, genau du - komm mal her!")

                say("Es gibt einen Test, genannt")

                say("OX-Wettbewerb. Dort gibt es tolle")

                say("sachen zu gewinnen!")

                wait()

                if game.get_event_flag("oxevent_status") == 0 then

                    say_title("Uriel")

                    say("Wenn der Wettbewerb startet lass ich dich")

                    say("es wissen, also steh schonmal in den")

                    say("Schussl�chern und lern ordnetlich!")

                elseif game.get_event_flag("oxevent_status") == 1 then

                    say_title("Uriel")

                    say("M�chtest du teilnehmen?")

                    say("Du kannst nat�rlich auch nur zugucken...")

                    local s = select("Teilnehmen", "Zugucken", "Abbrechen")

                    if s == 1 then

                        say_title("Uriel")

                        say("Du m�chtest teilnehmen?")

                        say("Okay - Dann los.")

                        wait()

                        pc.warp(896500, 24600)

                    elseif s == 2 then

                        say_title("Uriel")

                        say("Zugucken?")

                        say("Okay - wenn du dir die Fragen")

                        say("nicht zutraust.")

                        wait()

                        pc.warp(896300, 28900)

                    end

                elseif game.get_event_flag("oxevent_status") == 2 then

                    say_title("Uriel")

                    say("Der Wettbewerb ist bereits gestartet.")

                    say("Du kannst nichtmehr dran teilnehmen!")

                    say("Vielleicht beginnt bald ein neuer")

                    say("Wettbewerb.")

                    say("Du kannst nurnoch zugucken!")

                    say("M�chtest du zuschauen?")

                    local s = select("Zugucken", "Abbrechen")

                    if s == 1 then

                    say_title("Uriel")

                    say("Hmm, Hmm, du willst zuschauen?")

                    say("Bei diesen Wettbewerben zuzugucken bringt")

                    say("dir auch Vorteile!")

                    wait()

                    pc.warp(896300, 28900)

                end

            else

            say_title("LowChar")

                say("")

                say_red("Meinst du dein Wissen reicht schon aus?") 

                say_red("Werd erstmal lvl 30 dann koennen wir weiter reden")

                return

            end

        end

        when 20358.chat."GM: OX-Panel" with pc.is_gm() begin            

            local stat = oxevent.get_status()

            if stat == 0 then

                say_title("OX Wettbewerb")

                say("OX starten?")

                local s = select("Ja", "Nein")

                if s==2 then return end

                local v = oxevent.open()

                if v == 0 then

                    say_title("OX Wettbewerb")

                    say("Konnte die oxquiz.lua nicht laden.")

                    return

                elseif v == 1 then

                    say_title("OX Wettbewerb")

                    say("OX wurde erfolgreich gestartet.")

                    server_timer("automatic1", 10*60, 113)

                    notice_all("Macht euch f�r einen OX-Wettbewerb bereit!")

                    notice_all("Spricht mit Uriel um dran teilzunehmen")

                else

                    say("Error1")

                    return

                end

            elseif stat == 1 then

                say_title("OX Wettbewerb")

                say("Tore noch offen.")

                say("Es sind "..oxevent.get_attender().." Spieler auf der Map")

                say("")

                local s = select("Tore schlie�en", "Zur�ck")

                if s == 1 then

                    notice_all("Die OX Tore wurden geschlossen")

                    oxevent.close()                    

                end

            elseif stat == 2 then

                say_title("OX Wettbewerb")

                say("Auswahlm�glischkeiten:")

                local s = select("OX fragen", "OX Preis", "OX schlie�en", "OX abbrechen", "Zur�ck")

                if s == 1 then

                    local v = oxevent.quiz(1, 30)

                    if v == 0 then

                        say_title("OX Wettbewerb")

                        say("Error2")

                        return                        

                    else

                        say_title("OX Wettbewerb")

                        say("Frage erfolgreich gestellt!")

                        return

                    end

                elseif s == 2 then

                    say_title("OX Wettbewerb")

                    say("Bitte Item ID eingeben.")

                    local item_vnum = input()

                    say_title("OX Wettbewerb")

                    say("Bitte Item Anzahl eingeben.")

                    local item_count = input()

                    oxevent.give_item(item_vnum, item_count)

                    say_title("OX Wettbewerb")

                    say("An "..oxevent.get_attender().." Spieler wurden "..item_count.."x")                    

                    say(item_name(item_vnum).." ausgegeben.")

                    notice_all("Wir haben einen Gewinner! Er erhielt "..item_count.."x "..item_name(item_vnum))

                elseif s == 3 then                    

                    oxevent.end_event()

                    notice_all("Der OX-Wettbewerb ist vorbei.")

                    notice_all("Die Teilnehmer werden in ihre St�dte teleportiert")

                    setskin(0)

                elseif s == 4 then

                    say_title("OX Wettbewerb")

                    say("Das Abbrechen kann zu problemen f�hren.")

                    say("Wirklich abbrechen?")

                    local s = select("Ja", "Nein")

                    if s == 1 then

                        oxevent.end_event_force()

                    end

                elseif s == 5 then

                    return

                end

            elseif stat == 3 then

                say_title("OX Wettbewerb")

                say("Momentan ist eine Frage gestellt.")

            else

                say_title("OX Wettbewerb")

                say("Error4")

                return

            end

        end            

    end

end

04/14/2014 21:32 chillerkiller112#10019

Wie baue ich bei einer Achievemtquest wie hier oben eine Function auf, wenn ich einen Spieler kille, das ich dann einen Punkt bekomme?

04/15/2014 18:10 .Namikaze#10020

Hallo Community,

ich habe ein problem mit der folgenden quest und zwar sobald ich auf den npc klicke und die urkunde tauschen m�chte kommt dies hier
[Only registered and activated users can see links. Click Here To Register...]
das lustige ist aber habe die urkunde im inventar

hier die quest

Spoiler

hoffe das mir jemand helfen kann

mfg
.Namikaze

Page 668 of 845

668