[SERVICE] Die Questkontrolle

Page 810 of 845

810

01/24/2016 18:50 Rofelmau#12136

am ende der when zeile muss ein begin.

01/24/2016 19:04 .UNLTD.#12137

Ich ben�tige jemanden, der mir diese Quest

Spoiler

PHP Code:


			
quest marriage_manage begin
    state start begin
        when oldwoman.chat."Ich m�chte heiraten" with not pc.is_engaged_or_married() begin
            if not npc.lock() then
                say_title("Alte Dame")
                 
                say("Die Hochzeitsinseln sind zurzeit voll. Wartet")
                say("einen Moment oder kommt sp�ter wieder!")
                return
            end
            if pc.level < 25 then
                say_title("Alte Dame")
                 
                say("Du bist noch zu jung um zu heiraten.")
                say("Die jungen Paare werden zu oft geschieden.")
                say("Ich m�chte nicht zulassen, dass du das")
                say("durchstehen musst.")
                say("Geh und sammle mehr Erfahrung.")                
                say_reward("Du kannst erst ab Level 25 heiraten.")
                 
                npc.unlock()
                return
            end
            local m_ring_num = pc.countitem(70301)
            local m_has_ring = m_ring_num > 0
            if not m_has_ring then
                say_title("Alte Dame")
                 
                say("Du willst ohne einen Verlobungsring heiraten?")
                say_item("Verlobungsring", 70301, "")
                say("Besorge mir erst einen Ring, dann k�nnen")
                say("wir �ber Hochzeit reden...")
                 
                npc.unlock()
                return
            end
            local m_sex = pc.get_sex()
            if not marriage_manage.is_equip_wedding_dress() then
                say_title("Alte Dame")
                 
                say("M�chtest du wirklich so heiraten?")
                say("Meistens ist eine Ehe f�r die Ewigkeit,")
                say("da kannst du doch nicht so gekleidet auftreten.")
                if m_sex==0 then
                    say_item("Smoking", marriage_manage.get_wedding_dress(pc.get_job()), "")
                    say_reward("Wenn du heiraten m�chtest brauchst du")
                    say_reward("einen Smoking.")
                else
                    say_item("Brautkleid", marriage_manage.get_wedding_dress(pc.get_job()), "")
                    say_reward("Wenn du heiraten m�chtest brauchst du")
                    say_reward("ein Brautkleid.")
                end
                 
                npc.unlock()
                return
            end
            local NEED_MONEY = 1000000
            if pc.get_money() < NEED_MONEY then
                say_title("Alte Dame")
                 
                say("Hochzeiten kosten eine Menge Yang.")
                say("Du besitzt leider nicht genug um deine")
                say("zu finanzieren.")
                say_reward("Du brauchst eine Millionen Yang")
                 
                npc.unlock()
                return
            end
            say_title("Alte Dame")
             
            say("Wie ich sehe bist du entschlossen.")
            say("Wollen wir jetzt die Vorbereitungen treffen?")
            say("Dann schreib jetzt bitte den Namen der Person,")
            say("die du heiraten m�chtest.")
            local sname = input()
            if sname == "" then
                say_title("Alte Dame")
                 
                say("Bist du so aufgeregt, dass du nichtmehr")
                say("den Namen schreiben kannst? Probiers nochmal")
                 
                npc.unlock()
                return
            end
            local u_vid = find_pc_by_name(sname)
            local m_vid = pc.get_vid()
            if u_vid == 0 then
                say_title("Alte Dame")
                 
                say("Du weisst nicht den Namen deines Partners?")
                say("Bist du sicher, dass du heiraten m�chtest?")                
                say_reward(sname.." ist nicht online")
                 
                npc.unlock()
                return
            end
            if not npc.is_near_vid(u_vid, 10) then
                say_title("Alte Dame")
                say("Dein Partner muss in der N�he sein,")
                say("damit ich euch trauen kann.")                
                say_reward(sname.." ist zu weit weg")
                 
                npc.unlock()
                return
            end
            local old = pc.select(u_vid)
            local u_level = pc.get_level()
            local u_job = pc.get_job()
            local u_sex = pc.get_sex()
            local u_name = pc.name
            local u_gold = pc.get_money()
            local u_married = pc.is_married()
            local u_has_ring = pc.countitem(70301) > 0
            local u_wear = marriage_manage.is_equip_wedding_dress()
            pc.select(old)
            local m_level = pc.get_level()
            if u_vid == m_vid then
                say_title("Alte Dame")
                 
                say("Nicht deinen, den deines Partners!")                
                say_reward("Du hast deinen eigenen Namen eingegeben")
                 
                npc.unlock()
                return
            end            
            if u_married then
                say_title("Alte Dame")
                 
                say("Die Person die du heiraten m�chtest ist")
                say("bereits verheiratet. Ich glaube du musst")
                say("dir einen neuen, unverheirateten,")
                say("Lebensgef�hrten suchen.")                
                 
                npc.unlock()
                return
            end
            if u_level < 25 then
                say_title("Alte Dame")
                 
                say("Dein Partner ist noch keine 25, du kannst")
                say("dich mit dieser Ehe strafbar machen!")
                 
                npc.unlock()
                return
            end
            if m_level - u_level > 15 or u_level - m_level > 15 then
                say_title("Alte Dame")
                 
                say("Der Erfahrungsunterschied zwischen dir und")
                say("dein Partner ist zu gro�! So eine Ehe kann")
                say("ich leider nicht zulassen.")                
                say("Ihr d�rft nur 15 Level unterschied haben.")               
                 
                npc.unlock()
                return
            end
            if not u_has_ring then                
                say_title("Alte Dame")
                 
                say("Dein Partner braucht auch einen Verlobungsring.")
                say("Kauf ihn doch in Zeichen deiner Liebe einen!")
                 
                npc.unlock()
                return
            end
            if not u_wear then
                say_title("Alte Dame")
                 
                say("Dein Partner tr�gt keine Hochzeitskleidung")
                say("Ist es dir nicht peinlich dich so mir ihn")
                say("blicken zu lassen?")
                                 
                npc.unlock()
                return
            end
            local ok_sign = confirm(u_vid, "M�chtest du "..pc.name.." heiraten?", 30)
            if ok_sign == CONFIRM_OK then
                local m_name = pc.name
                if pc.get_gold()>=NEED_MONEY then
                    pc.change_gold(-NEED_MONEY)
                    pc.removeitem(70301, 1)
                    pc.give_item2(70302, 1)
                    local old = pc.select(u_vid)
                    pc.removeitem(70301, 1)
                    pc.give_item2(70302, 1)
                    pc.select(old)
                    say_title("Alte Dame")
                     
                    say("So, ich denke jetzt haben wirs.")
                    say("Ich werde euch jetzt auf die Hochzeits-")
                    say("insel schicken. Ich w�nsch euch eine lange")
                    say("und gl�ckliche Ehe. Gratulation!")                    
                     
                    wait()
                    setskin(NOWINDOW)
                    marriage.engage_to(u_vid)
                end
            else
                say_title("Alte Dame")
                 
                say("Dein Partner m�chte dich nicht heiraten.")
                say("Kl�rt es lieber untereinander ab.")
                 
            end
             
            npc.unlock()
        end
        when oldwoman.chat."Zu meiner Hochzeit" with pc.is_engaged() begin
            say_title("Alte Dame")
             
            say("Warum bist du noch hier?")
            say("Dein Partner vermisst dich!")
            say("Ich begleite dich zu ihm.")
             
            wait()
            setskin(NOWINDOW)
            marriage.warp_to_my_marriage_map()
        end
        when 9011.chat."Eheschlie�ung" with pc.is_engaged() and marriage.in_my_wedding() begin
            if not npc.lock() then
                say_title("Hochzeitshelferin")
                 
                say("Ich rede gerade mit deinen Partner,")
                say("einen Moment bitte.")
                 
                return
            end
            say_title("Hochzeitshelferin")
             
            say("Ich werde eure Ehe offiziel eintragen.")
            say("Gib erstmal den Namen deines Partners")
            say("ein.")
            local sname = input()
            local u_vid = find_pc_by_name(sname)
            local m_vid = pc.get_vid()
            if u_vid == 0 then
                say_title("Hochzeitshelferin")
                 
                say("Dieser Name ist nicht registriet.")
                say("M�chtest du deine Eingabe nochmal")
                say("�berpr�fen?")                
                say_reward(sname.." ist nicht online")
                 
                npc.unlock()
                return
            end
            if not npc.is_near_vid(u_vid, 10) then
                say_title("Hochzeitshelferin")
                 
                say("Du musst deinen Partner herbringen.")
                say("Ich brauch ihn um den Ehebund zu")
                say("schlie�en.")              
                 
                npc.unlock()
                return
            end
            if u_vid == m_vid then
                say_title("Hochzeitshelferin")
                 
                say("Du sollst nicht deinen, sondern den deines")                
                say("Partners schreiben.")
                 
                npc.unlock()
                return
            end
            if u_vid != marriage.find_married_vid() then
                say_title("Hochzeitshelferin")                
                say("Das ist nicht die Person, die du")
                say("urspr�nglich heiraten wolltest.")
                 
                npc.unlock()
                return
            end
            local ok_sign = confirm(u_vid, "M�chtest du "..pc.name.." heiraten?", 30)
            if ok_sign != CONFIRM_OK then
                say_title("Hochzeitshelferin")
                 
                say("Dein Partner ist noch nicht f�r die")
                say("Eheschlie�ung bereit.")
                 
                npc.unlock()
                return
            end
            say_title("Hochzeitshelferin")
             
            say("Ok, alles in Ordnung. Wir k�nnen anfangen.")
            marriage.set_to_marriage()            
            npc.unlock()
        end
        function give_wedding_gift()
            local male_item = {71072, 71073, 71074}
            local female_item = {71069, 71070, 71071}
            if pc.get_sex() == MALE then
                pc.give_item2(male_item[number(1, 3)], 1)
            else
                pc.give_item2(female_item[number(1, 3)], 1)
            end
        end

        when 9011.chat."Hochzeitsmusik abspielen" with
                    (pc.is_engaged() or pc.is_married()) and
                marriage.in_my_wedding() and
                not marriage.wedding_is_playing_music() begin
            marriage.wedding_music(true, "wedding.mp3")
            setskin(NOWINDOW)
        end
        when 9011.chat."Hochzeitsmusik beenden" with
                    (pc.is_engaged() or pc.is_married()) and
                marriage.in_my_wedding() and
                marriage.wedding_is_playing_music() begin
            marriage.wedding_music(false, "default")
            setskin(NOWINDOW)
        end
        when 9011.chat."Nacht" with
            pc.is_married() and
            marriage.in_my_wedding() begin
            marriage.wedding_dark(true)
            setskin(NOWINDOW)
        end

        when 9011.chat."Schnee" with pc.is_married() and marriage.in_my_wedding() begin
            marriage.wedding_snow(true)
            setskin(NOWINDOW)
        end

        when 9011.chat."Hochzeit beenden" with pc.is_married() and marriage.in_my_wedding() begin
            if not npc.lock() then
                say_title("Hochzeitshelferin")
                 
                say("Warte einen Moment, ich rede gerade mit")
                say("deinen Partner.")
                 
                return
            end
            say_title("Hochzeitshelferin")
             
            say("M�chtest du die Party abbrechen?")
             
            local s = select("Ja","Nein")
            if s == 1 then
                local u_vid = marriage.find_married_vid()                
                say_title("Hochzeitshelferin")
                 
                say("Wir m�ssen auf deinen Partner warten.")
                say("Es liegt jetzt an ihn..")
                 
                local ok_sign = confirm(u_vid, "M�chtest du die Hochzeit beenden? ", 30)
                if ok_sign == CONFIRM_OK then
                    marriage.end_wedding()
                else
                    say_title("Hochzeitshelferin")
                     
                    say("Dein Partner m�chte noch weiterfeiern!")
                     
                end

                npc.unlock()
            end
        end


        when 11000.chat."Scheidung einreichen" or 11002.chat."Scheidung einreichen" or 11004.chat."Scheidung einreichen " with pc.is_married() begin

            if not marriage_manage.check_divorce_time() then
                return
            end

            local u_vid = marriage.find_married_vid()
            if u_vid == 0 or not npc.is_near_vid(u_vid, 10) then
                say_title("W�chter des Dorfplatzes")
                 
                say("Ohne deinen Partner kannst du auf rechtlichen")
                say("Wege nicht geschieden werden.")
                 
                return
            end

            say_title("W�chter des Dorfplatzes")
             
            say("F�r eine rechtlich Scheidung brauch ich")
            say("500.000 Yang und eine Einverst�ndniss")
            say("von deinen Partner.")
            say("M�chtest du dich wirklich Scheiden lassen?")
             
            local MONEY_NEED_FOR_ONE = 500000
            local s = select("Ja", "Nein")
            if s == 1 then
                local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                local m_have_ring = pc.countitem(70302) > 0
                local old = pc.select(u_vid)
                local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                local u_have_ring = pc.countitem(70302) > 0
                pc.select(old)
                if not m_have_ring then
                    say("Ich brauche den Ehering.")
                    return
                end
                if not u_have_ring then
                    say("Ich brauche den Ehering deines Partners.")
                    return
                end
                if not m_enough_money then
                    say_title("W�chter des Dorfplatzes")
                     
                    say("Du hast nicht genug Yang f�r die Scheidung.")
                     
                    return
                end
                if not u_enough_money then
                    say_title("W�chter des Dorfplatzes")
                     
                    say("Du hast nicht genug Yang f�r die Scheidung.")
                     
                    return
                end
                say_title("W�chter des Dorfplatzes")
                 
                say("M�chtet ihr euch wirklich scheiden lassen?")
                say("Vielleicht ist es einfach nur ein Missverst�ndniss.")                
                say("Wollt ihr es wirklich?")
                 
                local c=select("Ja", "Ich hab meine Meinung ge�ndert")
                if 2 == c then
                    say_pc_name()
                     
                    say("Ich hab meine Meinung ge�ndert")
                    say("Ich will doch nicht geschieden werden")
                     
                    wait()
                    say_title("W�chter des Dorfplatzes")
                     
                    say("Es ist das beste f�r euch..")
                    say("Ich w�nsch euch noch eine lange und")
                    say("gl�ckliche Ehe.")
                    say_reward("Die Scheidung wurde anuliert.")
                     
                    return
                end
                local ok_sign = confirm(u_vid, "M�chtest du dich von "..pc.name.." scheiden lassen?", 30)
                if ok_sign == CONFIRM_OK then
                    local m_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                    local m_have_ring = pc.countitem(70302) > 0
                    local old = pc.select(u_vid)
                    local u_enough_money = pc.gold > MONEY_NEED_FOR_ONE
                    local u_have_ring = pc.countitem(70302) > 0
                    pc.select(old)
                    if m_have_ring and m_enough_money and u_have_ring and u_enough_money then
                        pc.removeitem(70302, 1)
                        pc.change_money(-MONEY_NEED_FOR_ONE)
                        local old = pc.select(u_vid)
                        pc.removeitem(70302, 1)
                        pc.change_money(-MONEY_NEED_FOR_ONE)
                        pc.select(old)
                        say_title("W�chter des Dorfplatzes")
                         
                        say("Die Scheidung ist vollbracht.")
                        say("Du bist nun wieder ein freier Mensch.")
                        say("Die Scheidung kann nichtmehr r�ckg�ngig")
                        say("gemacht werden.")
                         
                        marriage.remove()
                    else
                        say_title("W�chter des Dorfplatzes")
                         
                        say("Eure Unterlagen sind nicht komplett.")
                        say("Kommt sp�ter wieder.")                        
                         
                    end
                else
                    say_title("W�chter des Dorfplatzes")
                     
                    say("Dein Partner m�chte sich nicht Scheiden")
                    say("lassen. Finde zuerst einen Grund.")                    
                     
                end
            end
        end       
        when 11000.chat."Einseitige Scheidung einreichen" or 11002.chat."Einseitige Scheidung einreichen" or 11004.chat."Einseitige Scheidung einreichen" with pc.is_married() begin

            if not marriage_manage.check_divorce_time() then
                return
            end

            say_title("W�chter des Dorfplatzes")
             
            say("Du brauchst eine Millionen Yang um dich")
            say("sofort scheiden zu lassen. Willst du es")
            say("trotzdem machen?")
             
            local s = select("Ja", "Nein")

            local NEED_MONEY = 1000000
            if s == 2 then
                return
            end

            if pc.money < NEED_MONEY then
                say_title("W�chter des Dorfplatzes")
                 
                say("Du hast nicht genug Yang f�r die")
                say("einseitige Scheidung.")
                 
                return
            end

            say_title("W�chter des Dorfplatzes")
             
            say("M�chtest du es wirklich machen?")
            say("Denk nochmal dr�ber nach..")

            local c = select("Ja, ich will","Nein, doch nicht")

            if c == 2 then
                say_title("W�chter des Dorfplatzes")
                 
                say("Na dann,")
                say("Es ist besser so. Falls doch komm")
                say("wieder zur�ck. Sei dir dann aber wirklich")
                say("sicher dabei!")
                 
                return
            end
            pc.removeitem(70302, 1)
            pc.change_gold(-NEED_MONEY)
            marriage.remove()
            say_title("W�chter des Dorfplatzes")
             
            say("Wenn du dir ganz sicher bist..")
            say("dann mal los! Ab jetzt bist du wieder")
            say("ein freier Mensch.")
             
        end
        when oldwoman.chat."Liste der Hochzeiten" with not pc.is_engaged() begin
            local t = marriage.get_wedding_list()
            if table.getn(t) == 0 then
                say_title("Alte Dame")
                 
                say("Momentan finden keine Hochzeiten statt...")
                 
            else
                -- chat(table.getn(t))
                local wedding_names = {}
                table.foreachi(t, function(n, p) wedding_names[n] = p[3].." Hochzeit "..p[4].." von " end)
                wedding_names[table.getn(t)+1] = locale.confirm
                local s = select_table(wedding_names)

                if s != table.getn(wedding_names) then
                    marriage.join_wedding(t[s][1], t[s][2])
                end
            end
        end
        function check_divorce_time()

            local DIVORCE_LIMIT_TIME = 86400

            if is_test_server() then
                DIVORCE_LIMIT_TIME = 60
            end

            if marriage.get_married_time() < DIVORCE_LIMIT_TIME then
                say_title("Guardian of the village:")
                 
                say("The ink is not even dry yet!")
                say("Give yourself more time.")
                 
                return false
            end

            return true
        end

        function is_equip_wedding_dress()
            local a = pc.get_armor()
            return a >= 11901 and a <= 11904
        end
        function get_wedding_dress(pc_job)
                if 0==pc_job then
                    return 11901
                elseif 1==pc_job then
                    return 11903
                elseif 2==pc_job then
                    return 11902
                elseif 3==pc_job then
                    return 11904
                else
                    return 0;
                end
        end
    end
end

So umschreiben kann, dass die Hochzeitsmap nicht ben�tigt wird.

Man klickt auf die Alte Frau ("Ich m�chte Heiraten")
Danach kommt ("Gebe den Namen des Partners ein")
Danach ("Anfrage des Partners annehmen")
Danach ("Du bist nun verheiratet")
Man sollte jedoch dennoch Verlobungsring & Smoking / Brautkleid ben�tigen..
W�re lieb

01/24/2016 21:45 IzeBreakzz#12138

Quote:

Originally Posted by Rofelmau

am ende der when zeile muss ein begin.

Die Quest l�sst sich jetzt zwar compilen, aber eine Nachricht bekomme ich immer noch nicht wenn ich mich einlogge.

01/25/2016 17:07 Rofelmau#12139

Lade am besten deine jetzige version hier noch mal hoch damit wir sehen wie es genau aussieht

01/25/2016 17:25 IzeBreakzz#12140

Hier meine momentane:

PHP Code:


			
quest Postfach begin    
    state start begin
        when login with tonumber(mysql_query("SELECT count(*) FROM account.postfach where gelesen = 0;")) begin
            notice("Du hast ungelese Nachrichten. Gehe zum Briefkasten um dir die Nachrichten aufzurufen.")
        end

Und hier ein anderer Fehler, bin gerade an einer anderen Quest dran. Die l�sst er aber nicht compilen... Woran k�nnte das liegen?

PHP Code:


			
quest Tutorial1 begin
    state start begin
        when login or levelup with pc.level == 5 begin
            set_state(information)
        end
    end
            
    state information begin
        when letter begin
            local v = find_npc_by_vnum(20354)
            if v != 0 then
                target.vid("__TARGET__", v, "Stadtw�chter")
            end
            send_letter("xxx Tutorial Reihe")
        end
                    
        when button or info begin
            say_title("xxx Tutorial Reihe")
            say("")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("In dieser kleinen Tutorial Reihe, erf�hrst du")
            say("die grundlegenden Dinge �ber xxx")
            say("")
            say("Wenn du unser kleines Tutorial abgeschlossen hast")
            say("erwartet dich eine kleine Belohnung")
            say("")
            say("Gehe jetzt zum Stadtw�chter um mit dem Tutorial zu beginnen")
        end
        
        when __TARGET__.target.click or 20354.chat."xxx Tutorial" begin
            target.delete("__TARGET__")
            say_title("Stadtw�chter:")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("")
            say("Sieh an... Wen haben wir denn da?")
            say("")
            say("Du scheinst neu hier zu sein. Wir kennen uns noch nicht")
            say("Ich bin der Stadtw�chter und zust�ndig f�r die Neulinge")
            say("")
            say("Es gibt einiges was du wissen musst um ein tapferer")
            say("Krieger zu werden!")
            say("")
            say("Bitte gehe zum Schmied, er wird dir erkl�ren")
            say("wie du dein Equipment aufwerten kannst")
        end
    end
            
    state information begin
        when letter begin
            local v = find_npc_by_vnum(20016)
            if v != 0 then
                target.vid("__TARGET__", v, "Schmied")
            end
            send_letter("xxx Uppsystem")
        end
                    
        when __TARGET__.target.click or 20016.chat."Das Uppsystem" begin
            target.delete("__TARGET__")
            say_title("Schmied:")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("")
            say("Willkommen auf xxx, Neuling!")
            say("")
            say("Ich bin der Dorfschmied! Bei mir kannst du deine")
            say("Ausr�stung verbessern!")
            say("")
            say("F�r deine Ausr�stung mit niedrigem level")
            say("ben�tigst du keine Uppitems.")
            say("")
            say("Ab einem gewissen Level jedoch brauchst du Uppitems")
            say("Diese bekommst du von verschiedenen Monstern!")
            wait()
            say_title("Schmied:")
            say("")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Allerdings bin ich ein hervorragender Schmied!")
            say("Deine Ausr�stung, egal welches Level, kann bei mir")
            say("nicht zerst�rt werden! Ich Schmiede alles zu 100%")
            say("")
            say("Gehe nun zu der netten Gemischtwarenh�nderlin")
            say("neben mir. Sie wird dir etwas �ber den Handel")
            say("erz�hlen.")
            say("")
        end
    end
    
    state information begin
        when letter begin
            local v = find_npc_by_vnum(9003)
            if v != 0 then
                target.vid("__TARGET__", v, "Gemischtwarenh�ndlerin")
            end
            send_letter("xxx Handelssystem")
        end
                    
        when __TARGET__.target.click or 9003.chat."Das Handelssystem" begin
            target.delete("__TARGET__")
            say_title("Gemischtwarenh�ndlerin:")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("")
            say("Hallo junger Mann")
            say("")
            say("Ich habe euer Gespr�ch von hier aus mitbekommen")
            say("Lass mir dir etwas �ber das Handelssystem erz�hlen")
            say("")
            say("Es gibt da einmal uns H�ndler")
            say("Wir stehen im Dienste des jeweiligen Reiches")
            say("")
            say("Dann gibt es noch den privaten Handel")
            say("Dieser wird von Leuten wie dir betrieben")
            wait()
            say_title("Gemischtwarenh�ndlerin:")
            say("")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Zu guter Letzt w�re da noch das Auktionshaus")
            say("Dort kannst du bei Auktionen mitbieten")
            say("und mit etwas Gl�ck gute Items zu einem billigen")
            say("Preis ergattern!")
            say("")
            say("Jetzt hast du es ja bald geschafft^^")
            say("Gehe zum Lagerverwalter, er hat noch ein paar")
            say("n�tzliche Infos f�r dich")
        end
    end
    
    state information begin
        when letter begin
            local v = find_npc_by_vnum(9005)
            if v != 0 then
                target.vid("__TARGET__", v, "Lagerverwalter")
            end
            send_letter("Letzter Schritt")
        end
                    
        when __TARGET__.target.click or 9005.chat."Letzter Schritt" begin
            target.delete("__TARGET__")
            say_title("Lagerverwalter:")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("")
            say("Du komst von der Gemischtwarenh�ndlerin oder?")
            say("...")
            say("Das habe ich mir doch gleich gedacht")
            say("Ich bin der Lagerverwalter, bei mir kannst du")
            say("Gegenst�nde in deinem pers�nlichen Lager")
            say("einlagern.")
            say("")
            say("Wenn du in einer Gilde bist, kannst du")
            say("auch das Gildenlager benutzen. Dort findest")
            say("du Gegenst�nde die du und andere eingelagert haben")
            wait()
            say_title("Lagerverwalter:")
            say("")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Ach... bevor ich es vergesse. Mir wurde gesagt")
            say("dass du noch �ber unser Nachrichtensystem")
            say("aufgekl�rt werden musst.")
            say("")
            say("Falls eine Spieler mal nicht Online sein sollte")
            say("kannst du ihm eine Nachricht zukommen lassen")
            say("Daf�r gibt es den ooo. Der steht")
            say("da vorne, neben der Laterne")
            say("Nat�rlich kommen dort auch Nachrichten")
            say("f�r dich hin, falls ein Spieler dir schreibt")
            say("gehe nun wieder zum Stadtw�chter, er")
            say("wird dir sagen wie es weiter geht")
        end
    end
    
    state information begin
        when letter begin
            local v = find_npc_by_vnum(20354)
            if v != 0 then
                target.vid("__TARGET__", v, "Stadtw�chter")
            end
            send_letter("xxx Handelssystem")
        end
                    
        when __TARGET__.target.click or 20354.chat."Tutorial Abschluss" begin
            target.delete("__TARGET__")
            say_title("Stadtw�chter:")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("")
            say("Da bist du ja wieder!")
            say("")
            say("Das ging ja schneller als gedacht")
            say("Ich hoffe du konntest f�r den Anfang")
            say("genug Informationen sammeln")
            say("")
            say("Jetzt noch kurz etwas wichtiges von meiner")
            say("Seite. ")
            say("Es gibt 3 verschiedene Fraktionen")
            say("Die H�ndler, die Wachen und den General")
            wait()
            say_title("Stadtw�chter:")
            say("")
            ----"123456789012345678901234567890123456789012345678901234567890"|
            say("Bei den einzelnen Fraktionen kannst du")
            say("durch erf�llen von Aufgaben Ruf sammeln")
            say("")
            say("Erledige also immer die Quests!")
            say("Du erh�lst gute Belohnungen!")
            say("")
            say("Und wenn du den Ruf bei einer Fraktion voll hast")
            say("bekommst du ein extrem seltenes Geschenk")
            say("")
            say("Ich w�nsche dir weiterhin viel Spa�")
            say("Auf xxx!")
            say("")
            -----------                                                   l            
            say_reward("Als Belohnung f�r den Abschluss des Tutorials erh�lst du")
            say_reward("1x Regenbogenstein")
            say("")
            say_reward("30% Permanente Bewegungsgeschwindigkeit")
            affect.add_collect(apply.MOV_SPEED, 30, 60*60*24*365*60)
            pc.give_item2(50512)
            clear_letter()
        end
    end
end

Vielen Dank f�r eure Hilfe

01/25/2016 17:37 Rofelmau#12141

vermute mal du musst das noch mit etwas vergleichen
zb

PHP Code:


			
when login with tonumber(mysql_query("SELECT count(*) FROM account.postfach where gelesen = 0;")) >= 1 begin

zu der 2. du hast da mehrere states die information hei�en, das klappt so nicht
m�ssen unterschiedliche namen haben und dann m�ssen die �berleiteungen noch rein also das set_state()

01/25/2016 18:28 IzeBreakzz#12142

Quote:

Originally Posted by Rofelmau

vermute mal du musst das noch mit etwas vergleichen
zb

PHP Code:

when login with tonumber(mysql_query("SELECT count(*) FROM account.postfach where gelesen = 0;")) >= 1 begin

zu der 2. du hast da mehrere states die information hei�en, das klappt so nicht
m�ssen unterschiedliche namen haben und dann m�ssen die �berleiteungen noch rein also das set_state()

Habe jetzt nur mal die 1. Quest ausprobiert. Geht aber immer noch nicht. Hier mal die function:

PHP Code:


			
function get_ungelesen_message_count()

    return tonumber(mysql_query("SELECT count(*) FROM account.postfach where gelesen = 0;")[1][1]) >=1

end

01/25/2016 18:34 Rofelmau#12143

lol ja wenn du ne function hast musst du die aufrufen
kapier dich gerade nicht,

PHP Code:


			
quest Postfach begin    

    state start begin

        function get_ungelesen_message_count() 

            return tonumber(mysql_query("SELECT count(*) FROM account.postfach where gelesen = 0;")[1][1]) >=1 

        end

        when login with Postfach.get_ungelesen_message_count() begin

            notice("Du hast ungelese Nachrichten. Gehe zum Briefkasten um dir die Nachrichten aufzurufen.")

        end

01/25/2016 20:02 IzeBreakzz#12144

lol ich vollpfosten... die war eigentlich noch drinnen...

Wie kann ich denn bei meiner 2. Quest die �berg�nge am besten machen? Bin relativ neu beim Questen.

01/25/2016 20:49 Rofelmau#12145

jeder state braucht nen eigenen namen und dann machst du einfach dort wo der neue state beginnen soll set_state(name)
so ahst du es ganz oben ja auch

01/25/2016 21:02 IzeBreakzz#12146

PHP Code:


			
    set_state(Uppsystem)

    end

            

    state Uppsystem begin

        when letter begin

            local v = find_npc_by_vnum(20016)

            if v != 0 then

                target.vid("__TARGET__", v, "Schmied")

            end

Meintest du so? Weil oben wird ja angegeben dass er den state ausf�hren soll wenn man level 5 oder h�her ist. Bei dem eben nicht mehr.

01/25/2016 21:10 rollback#12147

Quote:

Originally Posted by IzeBreakzz

PHP Code:

set_state(Uppsystem) end state Uppsystem begin when letter begin local v = find_npc_by_vnum(20016) if v != 0 then target.vid("__TARGET__", v, "Schmied") end

Meintest du so? Weil oben wird ja angegeben dass er den state ausf�hren soll wenn man level 5 oder h�her ist. Bei dem eben nicht mehr.

Standardstate ist start, da ist jeder Spieler solange er nicht in einen anderen gesetzt wurde. Wenn du im state start einen trigger hast, der erst ab Lv 5 ausgef�hrt wird und du den Spieler dann in einen anderen state setzt, brauchst die die levelabfrage dort nicht erneut machen, weil er da ja nur reinkommt, wenn er schon lv5 war

01/25/2016 21:14 IzeBreakzz#12148

Folgende Quest will nicht wie ich will...

PHP Code:


			
quest xxx begin
    state start begin
        when 11002.chat."xxx" begin
            say_title("Willkommen im xxx")
            say("")
            say("Wie kann ich dir helfen?")
            local s = select("Items", "Tr�nke", "Coupons")
            if s == 3 then
            return
                elseif s == 1 and pc.getqf("xxx") >= 50 then
                npc.open_shop(13)
                else
                chat("Du hast nicht gen�gend xxx")
                chat("Du ben�tigst mindestens 50 xxx")
                elseif s == 2 and pc.getqf("xxx") >= 50 then
                npc.open_shop(14)
                else
                chat("Du hast nicht gen�gend xxx")
                chat("Du ben�tigst mindestens 50 xxx")
            end    
        end
    end
end

Hier der Fehler:

PHP Code:


			
xxx.quest:21:syntax error : [string "start"]:12: `end' expected (to close `if' at line 5) near `elseif'
Error occured on compile xxx.quest

01/26/2016 22:41 bzyHac#12149

Diese Quest bekommt beim kompilieren einen Fehler:

Spoiler

Fehler:

Spoiler

Ich komme nicht klar damit Habe einfach meine shopquest von nem anderen pc genommen und darauf basierend erweitert.
Bestimmt ist da einiges falsch also nicht wundern.
So sieht die Shopquest aus (sie funktioniert):

Spoiler

01/26/2016 23:37 Rofelmau#12150

Quote:
Originally Posted by dogan93
Diese Quest bekommt beim kompilieren einen Fehler:
Spoiler
Code:
quest rofl begin
	state start begin
		function buy(vnum,count,cost) 
				mysql_query("UPDATE account.account SET cash = cash-'"..cost.."' WHERE id = '"..pc.get_account_id().."' LIMIT 1;") 
				pc.give_item2(vnum,count) 
		end 
		when 20092.chat."Cash or Die" begin
			mysql_query("UPDATE account.account SET cash = cash+200 WHERE id = '"..pc.get_account_id().."' LIMIT 1;")
			say("200 Mehr coins bekommen")
			setskin(NOWINDOW)
		end
		when 20092.chat."Gib mir das Schwert f�r 200" begin
			local cost = 200
			if((local cashamount = mysql_query("SELECT account.account SET cash = cash+20 WHERE id = '"..pc.get_account_id().."' LIMIT 1;")[1][1]) > cost)
				rofl.buy(itemvnum,1,cost)
				say(say_item(itemvnum).." bought for "..cost.. " Coins!")
		end
		when 20092.chat."wv coins hab ich lack" begin
			local cashamount = (mysql_query("SELECT account.account SET cash = cash+20 WHERE id = '"..pc.get_account_id().."' LIMIT 1;")[1][1])
			say(cashamount.." Coins")
			setskin(NOWINDOW)
		end
	end
end
Fehler:

Spoiler

QUEST : rofl
STATE : start
FUNCTION buy(vnum,count,cost)
WHEN : 20092.chat ("Cash or Die")
WHEN : 20092.chat ("Gib mir das Schwert f▒r 200")
local cost = 200
if ( ( local cashamount = mysql_query ( "SELECT account.account SET cash = cash+20 WHERE id = '" .. pc . get_account_id ( ) .. "' LIMIT 1;" ) [ 1 ] [ 1 ] ) > cost )
rofl . buy ( itemvnum , 1 , cost )
say ( say_item ( itemvnum ) .. " bought for " .. cost .. " Coins!" )
end
when 20092 chat . "wv coins hab ich lack" begin
local cashamount = ( mysql_query ( "SELECT account.account SET cash = cash+20 WHERE id = '" .. pc . get_account_id ( ) .. "' LIMIT 1;" ) [ 1 ] [ 1 ] )
say ( cashamount .. " Coins" )
setskin ( NOWINDOW )
end

Custom/rofl.quest:23:syntax error : [string "start"]:2: unexpected symbol near `local'

Ich komme nicht klar damit Habe einfach meine shopquest von nem anderen pc genommen und darauf basierend erweitert.
Bestimmt ist da einiges falsch also nicht wundern.
So sieht die Shopquest aus (sie funktioniert):
Spoiler
Code:
quest konfuziusshop begin
    state start begin
	
		when 20381.chat."KUNGFUSHOP" begin
			npc.open_shop(46)
		setskin(NOWINDOW)
		end
		
		when 20381.chat."KUNGFUSHOP 2" begin
			npc.open_shop(47)
		setskin(NOWINDOW)
		end
		when 20381.chat."Shop hat zu" begin
			npc.open_shop(48)
		setskin(NOWINDOW)
		end
	end
end

PHP Code:


			
quest rofl begin

    state start begin

        function buy(vnum,count,cost) 

                mysql_query("UPDATE account.account SET cash = cash-'"..cost.."' WHERE id = '"..pc.get_account_id().."' LIMIT 1;") 

                pc.give_item2(vnum,count) 

        end 

        when 20092.chat."Cash or Die" begin

            mysql_query("UPDATE account.account SET cash = cash+200 WHERE id = '"..pc.get_account_id().."' LIMIT 1;")

            say("200 Mehr coins bekommen")

            setskin(NOWINDOW)

        end

        when 20092.chat."Gib mir das Schwert f�r 200" begin

            local cost = 200

            if mysql_query("SELECT account.account SET cash = cash+20 WHERE id = '"..pc.get_account_id().."' LIMIT 1;")[1][1] > cost then

                rofl.buy(itemvnum,1,cost)

                say(say_item(itemvnum).." bought for "..cost.. " Coins!")

            end

        end

        when 20092.chat."wv coins hab ich lack" begin

            local cashamount = (mysql_query("SELECT account.account SET cash = cash+20 WHERE id = '"..pc.get_account_id().."' LIMIT 1;")[1][1])

            say(cashamount.." Coins")

            setskin(NOWINDOW)

        end

    end

end

Page 810 of 845

810