[SERVICE] Die Questkontrolle

Page 409 of 845

409

06/23/2012 18:10 MetinLegende#6121

PHP Code:


			
quest boo begin

    State Start begin

            PC.setqf("orks", 20)

    set_state(kill)

    end

    

        state kill begin     

            say_reward("Schwarze Orks")

            say("Dein Auftrag ist es 20 Schwarze orks zu erledigen")

            say("w�hrend du dich auf mal 1 befindest") 

            when 636.kill with PC.get_map_Index() == 41 begin

                local count = pc.getqf("orks") - 1

                    if count <= 20 pc.setqf("orks", count)

                    say_title("Schwarze Orks")

                    say(" Du musst noch "..count.." von 20 t�ten")

                    end

                    if count == 0

                    say_title("Schwarze Orks")

                    say("Herrzlichen Gl�ckwunsch du hast es geschafft!!")

                    say("Du hast 20 schwarze orks erledigt")

                    say("Nun gehe zum OT-Schmied!")

                    set_state(goback)

                    end

            end

      end 

      State goback begin

           say_title("Kehre zum OT-Schmied zur�ck") #mach hier Hin was du willst kp was du da haben willst.

      end

End

Hoffe es funktioniert so bin mim Handy on und kanns nicht gut korrigieren.

06/23/2012 18:46 losser123456789#6122

Hi die quest funkt net sorry aber vielleicht kanst du die zum laufen bringen

quest bosfss begin
state start begin
when 1902,1902,1902.kill with pc.get_map_index() == 41 begin
say_title("Die 3Neunschw�nze")
say("Dir ist es tats�chlich gelungen!")
say("Die 3Neunschw�nze zu t�ten!")
say("Diese Truhe trage wir jetzt schon seid!")
say("500 Jahren!!")
say_reward("Du erh�lst Neunschw�nzen Truhe")
say_reward("Du wirst in die 5 Ebene Teleportiert")
local a= select("Ok")
if 1==a then
notice_all("Ein Mutiger Spieler hat die 3Neunschw�nzen get�tet!")
pc . give_item2 ( "50080")
pc.warp(xxxxxx,xxxxxx)
end
end
end
end

06/23/2012 19:13 DasKuchen#6123

Quote:

Originally Posted by losser123456789

Hi die quest funkt net sorry aber vielleicht kanst du die zum laufen bringen

quest bosfss begin
state start begin
when 1902,1902,1902.kill with pc.get_map_index() == 41 begin
say_title("Die 3Neunschw�nze")
say("Dir ist es tats�chlich gelungen!")
say("Die 3Neunschw�nze zu t�ten!")
say("Diese Truhe trage wir jetzt schon seid!")
say("500 Jahren!!")
say_reward("Du erh�lst Neunschw�nzen Truhe")
say_reward("Du wirst in die 5 Ebene Teleportiert")
local a= select("Ok")
if 1==a then
notice_all("Ein Mutiger Spieler hat die 3Neunschw�nzen get�tet!")
pc . give_item2 ( "50080")
pc.warp(xxxxxx,xxxxxx)
end
end
end
end

Teste es mal so:

PHP Code:


			
quest bosfss begin
    state start begin
        when 1902.kill or 902.kill or 1902.kill with pc.get_map_index() == 41 begin
        pc.setqf("count")+1
        if pc.getqf("count") == 3 then
        say_title("Die 3Neunschw�nze")
        say("Dir ist es tats�chlich gelungen!")
        say("Die 3Neunschw�nze zu t�ten!")
        say("Diese Truhe trage wir jetzt schon seid!")
        say("500 Jahren!!")
        say_reward("Du erh�lst Neunschw�nzen Truhe")
        say_reward("Du wirst in die 5 Ebene Teleportiert")
        wait()
        notice_all("Ein Mutiger Spieler hat die 3Neunschw�nzen get�tet!")
        pc . give_item2 ( "50080")
        pc.warp(xxxxxx,xxxxxx)
        end
        end
    end
end

Wenn es ein Dungeon ist w�rde ich nicht mit setqf und getqf arbeiten.

06/23/2012 20:03 Azemi6#6124

Quote:

Originally Posted by Azemi6

es kommt immer noch das selbe egal wie viele ends ich einf�ge -.-

Folgender Fehler erscheint!:

syntax error : [string "start"]:66: unexpected symbol near ','
gm_panel.quest:129:Abort trab (core dumped)
Error occured on compile gm_panle.quest

Spoiler

PHP Code:

quest gm_panel begin state start begin when 70001.use begin say_title("BloodStorm2 GM-panel") say("") say_reward("Willkommen im GM-panel von BS2") say_reward("Wie kann ich dir "..pc.get_name().." weiterhelfen") say("") local main_set = select("GM-Notitz", "GM-Support", "Rates Verwalten", "Abbrechen") if main_set == 4 then say("Nagut, vielleicht beim n�chsten mal") return end if main_set == 1 then say_title("GM-Notitz") if pc.is_gm() then say("Gib eine Notiz ein, die an alle Reiche") say("gesendet wird!") local y = input() notice_all(y) end end if main_set == 2 then say("Du willst also deinen Satus ver�ffentlichen?") say("W�hle deinen Status:") local gg = select("Online","Offline","AFK","Garnichts.") if gg == 4 then return end if gg == 1 then command("n ".. pc.get_name() .." ist nun Online.") command("n ".. pc.get_name() .." meldet sicht am Support an") command("n Ihr k�nnt Ihn/Sie nun bei Fragen oder Problemen kontaktieren.") end if gg == 2 then command("n ".. pc.get_name() .." meldet sich vom Support ab") command("n ".. pc.get_name() .." geht nun Offline") command("n Er/Sie w�nscht euch noch Viel Spa� auf BloodStorm2.") end if gg == 3 then command("n ".. pc.get_name() .." geht nun AFK.") command("n ".. pc.get_name() .." meldet sicht am Support vorerst ab") command("n Er/Sie Meldet sich wenn Er/Sie wieder da ist.") end if main_set == 3 then say_title("GM: Events") say("Auswahl!") local e = select(locale.empire_names[1], locale.empire_names[2], locale.empire_names[3], locale.empire_names[0], locale.cancel) if 5 == e then return end -- ��Ұ�ɳ]�m�� 0 if 4 == e then e = 0 end say_title("Reich?") say("Auswahl des Reiches") say(__get_empire_priv_string(e)) say("") local t = select(locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct, locale.cancel) if 5 == t then return end say_title("Event?") local title_list = {locale.item_drop_pct, locale.gold_drop_pct, locale.tengold_drop_pct, locale.exp_pct} say(string.format("%s Status : %s ", locale.empire_names[e], title_list[t])) say("") say("W�hle die Rates") local g={100, 150, 200, 400, 800, 1000} local p = select(g[1]..'%', g[2]..'%', g[3]..'%', g[4]..'%', g[5]..'%', g[6]..'%',, 'Cancel') if p == 10 then return end say_title("W�hle die Zeit") say(string.format("%s Status : %s %d%%", locale.empire_names[e], title_list[t], g[p])) say("") say("Zeit:") local v = 0 local h = select('6 Stunden', '12 Stunden', '24 Stunden', 'Eigene Zeit', 'Cancel') if 5 == h then return elseif 4 == h then say_title("Eigene Zeit") say(string.format("%s Status : %s %d%%", locale.empire_names[e], title_list[t], g[p])) say("") say("Geb die Zeit ein:") v=input() if v == "" then v = 0 else v=tonumber(v) end elseif 3 == h then v=24 elseif 2 == h then v=12 elseif 1 == h then v=6 end say_title("Ok?") say(string.format("%s Status : %s %d%% (%Stunden)", locale.empire_names[e], title_list[t], g[p], v)) say("") say("Aktivieren?") local s = select("Yes", "No") if 1 == s then __give_empire_priv(e, t, g[p], v*60*60) say("Aktiviert!") else say("Fail.") end end end end

kann oder will mir niemand helfen?:confused:

Kommt schon gebt wenigstens 1 tipp -.-

06/23/2012 20:42 losser123456789#6125

NE DIE QUEST GEHT NICHT FEHLER KANN JEMAND ANDERS MIR HELFEN

Quote:

quest bosfss begin
state start begin
when 1902.kill or 902.kill or 1902.kill with pc.get_map_index() == 41 begin
pc.setqf("count")+1
if pc.getqf("count") == 3 then
say_title("Die 3Neunschw�nze")
say("Dir ist es tats�chlich gelungen!")
say("Die 3Neunschw�nze zu t�ten!")
say("Diese Truhe trage wir jetzt schon seid!")
say("500 Jahren!!")
say_reward("Du erh�lst Neunschw�nzen Truhe")
say_reward("Du wirst in die 5 Ebene Teleportiert")
wait()
notice_all("Ein Mutiger Spieler hat die 3Neunschw�nzen get�tet!")
pc . give_item2 ( "50080")
pc.warp(xxxxxx,xxxxxx)
end
end
end
end

PLS SGAT MIR DEN FEHLER

oder bei dieser

Quote:

quest run begin
State Start begin
say_title("Der neue run")
say("Du musst den gef�hrlichen Neunschwanz 3mal erledigen")
say("W�hrend du dich auf Map1 des blauen Reichs befindest")
pc.setqf("neuni", 3)
set_state(kill)
end
State kill begin
when vnum.kill with pc.get_map_Index() == "mapindex map1 blau" begin
local count = pc.getqf("neuni") - 1
if count <= 3 then
pc.setqf("neuni", count)
q.set_counter("Neunschwanz", count)
say_title("Neunschwanz")
say("Du musst noch "..count.." von 3 Neunschw�nzen")
say("erledigen um den Run starten zu k�nnen")
end
if count == 0 then
say_title("Neunschwanz")
saiyy("Super du hast es geschafft 3 Nwunschw�nze zu erledigen")
say("Du wirst jetzt teleportiert")
PC.warp(Koordinaten)
end
end
end
end

06/24/2012 14:57 .WaQuata#6126

Ich chabe meine quests alle eingef�gt in den quest ordner. habe sie in die quest_list eingef�gt. den quests sogar 777 rechte gegeben. bei den daroo files "m2 qc" eingegeben. server rebootet. ingame nochmal /reload q eingegeben. und trotzdem funkt. die neuen quests nicht!

Ich weiss nicht obs hier rein passt. aber vielleicht kann mir ja jemand helfen ..

06/24/2012 17:22 wιɴdooғ#6127

Bei dem Release von DasKuchen, wo man aus einer Truhe speziell f�r jede Rasse eine Quest bekommt, habe ich ein Fehler. Bei mir kommt dann wenn ich python make.py ausf�hre kommt quest doesn't have begin-end clause. (start).

Meine Quest:

PHP Code:


			
quest Mbs start
    state start begin
        when xx.use begin
        local 1 = 5
        if pc.job == 0 then
            local r = number(1, 10)
            if r == 1 then
                pc.give_item(50401,1)
            end
            if r == 2 then
                pc.give_item(50402,1)
            end
            if r == 3 then
                pc.give_item(50403,1)
            end
            if r == 4 then
                pc.give_item(50404,1)
            end
            if r == 5 then
                pc.give_item(50405,1)
            end
            if r == 6 then
                pc.give_item(50416,1)
            end
            if r == 7 then
                pc.give_item(50417,1)
            end
            if r == 8 then
                pc.give_item(50418,1)
            end
            if r == 9 then
                pc.give_item(50419,1)
            end
            if r == 10 then
                pc.give_item(50420,1)
            end            
        end

        if pc.job == 1 then
            local r = number(1, 10)
            if r == 1 then
                pc.give_item(50431,1)
            end
            if r == 2 then
                pc.give_item(50432,1)
            end
            if r == 3 then
                pc.give_item(50433,1)
            end
            if r == 4 then
                pc.give_item(50434,1)
            end
            if r == 5 then
                pc.give_item(50435,1)
            end
            if r == 6 then
                pc.give_item(50446,1)
            end
            if r == 7 then
                pc.give_item(50447,1)
            end
            if r == 8 then
                pc.give_item(50448,1)
            end
            if r == 9 then
                pc.give_item(50449,1)
            end
            if r == 10 then
                pc.give_item(50450,1)
            end        
        end

        if pc.job == 2 then
            local r = number(1, 12)
            if r == 1 then
                pc.give_item(50461,1)
            end
            if r == 2 then
                pc.give_item(50462,1)
            end
            if r == 3 then
                pc.give_item(50463,1)
            end
            if r == 4 then
                pc.give_item(50464,1)
            end
            if r == 5 then
                pc.give_item(50465,1)
            end
            if r == 6 then
                pc.give_item(50466,1)
            end
            if r == 7 then
                pc.give_item(50476,1)
            end
            if r == 8 then
                pc.give_item(50478,1)
            end
            if r == 9 then
                pc.give_item(50479,1)
            end
            if r == 10 then
                pc.give_item(50480,1)
            end
            if r == 11 then
                pc.give_item(50481,1)
            end    
            if r == 12 then
                pc.give_item(50477,1)
            end                            
        end

        if pc.job == 3 then
            local r = number(1, 12)
            if r == 1 then
                pc.give_item(50491,1)
            end
            if r == 2 then
                pc.give_item(50492,1)
            end
            if r == 3 then
                pc.give_item(50493,1)
            end
            if r == 4 then
                pc.give_item(50494,1)
            end
            if r == 5 then
                pc.give_item(50495,1)
            end
            if r == 6 then
                pc.give_item(50496,1)
            end
            if r == 7 then
                pc.give_item(50506,1)
            end
            if r == 8 then
                pc.give_item(50507,1)
            end
            if r == 9 then
                pc.give_item(50508,1)
            end
            if r == 10 then
                pc.give_item(50509,1)
            end
            if r == 11 then
                pc.give_item(50510,1)
            end    
            if r == 12 then
                pc.give_item(50511,1)
            end                    
        end
        
        end    
    end        
end

06/24/2012 18:06 DasKuchen#6128

Quote:

Originally Posted by wιɴdooғ

Bei dem Release von DasKuchen, wo man aus einer Truhe speziell f�r jede Rasse eine Quest bekommt, habe ich ein Fehler. Bei mir kommt dann wenn ich python make.py ausf�hre kommt quest doesn't have begin-end clause. (start).

Meine Quest:

PHP Code:

quest Mbs start state start begin when xx.use begin local 1 = 5 if pc.job == 0 then local r = number(1, 10) if r == 1 then pc.give_item(50401,1) end if r == 2 then pc.give_item(50402,1) end if r == 3 then pc.give_item(50403,1) end if r == 4 then pc.give_item(50404,1) end if r == 5 then pc.give_item(50405,1) end if r == 6 then pc.give_item(50416,1) end if r == 7 then pc.give_item(50417,1) end if r == 8 then pc.give_item(50418,1) end if r == 9 then pc.give_item(50419,1) end if r == 10 then pc.give_item(50420,1) end end if pc.job == 1 then local r = number(1, 10) if r == 1 then pc.give_item(50431,1) end if r == 2 then pc.give_item(50432,1) end if r == 3 then pc.give_item(50433,1) end if r == 4 then pc.give_item(50434,1) end if r == 5 then pc.give_item(50435,1) end if r == 6 then pc.give_item(50446,1) end if r == 7 then pc.give_item(50447,1) end if r == 8 then pc.give_item(50448,1) end if r == 9 then pc.give_item(50449,1) end if r == 10 then pc.give_item(50450,1) end end if pc.job == 2 then local r = number(1, 12) if r == 1 then pc.give_item(50461,1) end if r == 2 then pc.give_item(50462,1) end if r == 3 then pc.give_item(50463,1) end if r == 4 then pc.give_item(50464,1) end if r == 5 then pc.give_item(50465,1) end if r == 6 then pc.give_item(50466,1) end if r == 7 then pc.give_item(50476,1) end if r == 8 then pc.give_item(50478,1) end if r == 9 then pc.give_item(50479,1) end if r == 10 then pc.give_item(50480,1) end if r == 11 then pc.give_item(50481,1) end if r == 12 then pc.give_item(50477,1) end end if pc.job == 3 then local r = number(1, 12) if r == 1 then pc.give_item(50491,1) end if r == 2 then pc.give_item(50492,1) end if r == 3 then pc.give_item(50493,1) end if r == 4 then pc.give_item(50494,1) end if r == 5 then pc.give_item(50495,1) end if r == 6 then pc.give_item(50496,1) end if r == 7 then pc.give_item(50506,1) end if r == 8 then pc.give_item(50507,1) end if r == 9 then pc.give_item(50508,1) end if r == 10 then pc.give_item(50509,1) end if r == 11 then pc.give_item(50510,1) end if r == 12 then pc.give_item(50511,1) end end end end end

Du schreibst :

PHP Code:


			
quest Mbs start

Es hei�st:

PHP Code:


			
quest Mbs begin

Hab es bei mir jetzt auch korregiert.

06/24/2012 18:40 wιɴdooғ#6129

Quote:

Originally Posted by DasKuchen

Du schreibst :

PHP Code:

quest Mbs start

Es hei�st:

PHP Code:

quest Mbs begin

Hab es bei mir jetzt auch korregiert.

Danke aber bei mir kommt jetzt ein 2. Fehler: syntax error: [string "start"]:1 <name> expected near 1

06/24/2012 20:41 plechito#6130

Code:

quest efekt begin
  state start begin
    when 71136.use begin
      affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)      
      cmdchat("buff1")
      pc.remove_item(71136, 1)
    end
 end
end

Hello, how do I do that item not use,while efekt is active..
Thanks to answer

06/24/2012 22:01 MetinLegende#6131

@plechito

PHP Code:


			
quest efekt begin

  state start begin

    when 71136.use with pc.getqf("lolli") != 1 begin

      affect.add_collect(apply.MAX_HP,5000,60*60*24*365*60)      

      cmdchat("buff1")

      pc.remove_item(71136, 1)

      pc.setqf("lolli", 1)

    end

 end

end

06/24/2012 22:30 LEL0UCH'#6132

Hey, diese Quest funktioniert, wird angezeigt dies das.
Nur wenn wir das Mob t�ten, z�hlt der den Counter nicht
runter/hoch und somit geht die Quest auch nicht;

PHP Code:


			
quest kill1 begin
    state start begin
        when login or levelup with pc.get_level() >= 30 begin
            set_state(information)
        end
    end    
    
    state information begin
        when letter begin
            send_letter("Auftrag 1")
        end
    
        when button or info begin
            say_title("Auftrag 1")
            say("info")
            say("info")
            say("Du musst 50 Schwarze Orks t�ten")
            set_state(kill)
            pc.setqf("count",0)
        end
    end    
    state kill begin
        when letter begin
            send_letter("Schwarze Orks t�ten")
        end    
        when button or info begin
            say_title("Auftrag 1")
            say("Du hast schon "..pc.getqf("count").." von 50 get�tet.")
        end        
        when kill begin
            if npc.get_race() == 636 then
                pc.setqf("count", pc.getqf("count")+1)
            end
            if pc.getqf("count") == 50 then
                say_title("Schwarze Orks t�ten")
                say("Belohnung:")
                say("Bewegungsgeschwindigkeit: 10% (dauerhaft)")
                affect.add_collect(apply.MOV_SPEED,10,60*60*24*365*60)
                clear_letter()
                set_state(__COMPLETE__)            
            end
        end
    end    
    state __COMPLETE__ begin
    end    
end

DESWEITEREN: Brauche ich eine Quest um die Autopotts mit Effekt zu beschm�cken?

06/24/2012 22:56 R0xx3er#6133

Hallo kann mir jemand eine Quest scripten dass man von einem Yangstein 250kk kriegt und dass dann der Yangstein Verschwindet? ich w�re sehr dankbar ich gebe den der es macht nen THX danke im voraus^^

06/25/2012 00:42 MetinLegende#6134

PHP Code:


			
quest yangstein begin

    state start begin

        when vnum.use with pc.get_gold() <=1749999999 begin

            pc.changemoney(250000000)

            pc.remove_item("vnum", 1)

            say("Du hast 250kkerhalten")

        end

    end

end

Musst nur vnum eintragen

06/25/2012 00:51 LEL0UCH'#6135

Quote:

Originally Posted by R0xx3er

Hallo kann mir jemand eine Quest scripten dass man von einem Yangstein 250kk kriegt und dass dann der Yangstein Verschwindet? ich w�re sehr dankbar ich gebe den der es macht nen THX danke im voraus^^

PHP Code:


			
quest yangsteinbegin
    state start begin
        when [B]ITEMVALUE[/B].use begin
            say_title("TITEL")
            say("")
            say("Dieser Yangstein ist 250kk Yang wert..")
            say("Man kann ihr immer und �berall einl�sen")
            say("")
            say_reward("M�chstest du den Yangstein einl�sen?")
            local s = select("Ja", "Nein")
    
            if s == 1 and pc.count_item(ITEMVALUE) and pc.get_gold()<=999999999 then
                pc.change_money(250000000)
                pc.remove_item(ITEMVALUE)
                elseif s == 1 and pc.get_gold()>=999999999 then
                say("Du Tr�gst zu viel yang bei dir!")
                say_reward("Versuche es wieder wenn du genug platz hast")
                elseif s == 1 and pc.count_item(ITEMVALUE)==0 then
                say_reward("Versuche es wieder wenn du den Yangstein hast")
                end
    
            if s == 2 then
                return
            end
        end
    end
end

Page 409 of 845

409