[SERVICE] Die Questkontrolle

Page 389 of 845

389

05/27/2012 22:19 .Delta#5821

PHP Code:


			
quest setPs begin
    state start begin
        when login or levelup with pc.get_level() >= 5 begin    
            timer("two", 4)
        end
        when two.timer begin
            local job = pc.get_job()
            local v
            if job == 0 then
                say("Welche Skillrichtung w�hlst du?")
                say("")
                say("")
                v = select("K�rper", "Mental")
                if v == 1 then
                    pc.set_skill_group(1)
                    say("Du hast die K�rperkampf-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(1, 30)
                    pc.set_skill_level(2, 30)
                    pc.set_skill_level(3, 30)
                    pc.set_skill_level(4, 30)
                    pc.set_skill_level(5, 30)
                else
                    pc.set_skill_group(2)
                    say("Du hast die Mentalkampf-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(16, 30)
                    pc.set_skill_level(17, 30)
                    pc.set_skill_level(18, 30)
                    pc.set_skill_level(19, 30)
                    pc.set_skill_level(20, 30)
                end
            elseif job == 1 then
                say("Welche Skillrichtung w�hlst du?")
                say("")
                say("")
                v = select("Nahkampf", "Fernkampf")
                if v == 1 then
                    pc.set_skill_group(1)
                    say("Du hast die Nahkampf-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(31, 30)
                    pc.set_skill_level(32, 30)
                    pc.set_skill_level(33, 30)
                    pc.set_skill_level(34, 30)
                    pc.set_skill_level(35, 30)
                else
                    pc.set_skill_group(2)
                    say("Du hast die Fernkampf-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(49, 30)
                    pc.set_skill_level(50, 30)
                    pc.set_skill_level(51, 30)
                    pc.set_skill_level(52, 30)
                    pc.set_skill_level(53, 30)
                end
            elseif job == 2 then
                say("Welche Skillrichtung w�hlst du?")
                say("")
                say("")
                v = select("Waffenmagie", "Schwarze Magie")
                if v == 1 then
                    pc.set_skill_group(1)
                    say("Du hast die Waffenmagie-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(61, 30)
                    pc.set_skill_level(62, 30)
                    pc.set_skill_level(63, 30)
                    pc.set_skill_level(64, 30)
                    pc.set_skill_level(65, 30)
                    pc.set_skill_level(66, 30)
                else
                    pc.set_skill_group(2)
                    say("Du hast die Schwarzemagie-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(76, 30)
                    pc.set_skill_level(77, 30)
                    pc.set_skill_level(78, 30)
                    pc.set_skill_level(79, 30)
                    pc.set_skill_level(80, 30)
                    pc.set_skill_level(81, 30)
                end
            else
                say("Welche Skillrichtung w�hlst du?")
                say("")
                say("")
                v = select("Drachen", "Heilung")
                if v == 1 then
                    pc.set_skill_group(1)
                    say("Du hast die Drachen-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(91, 30)
                    pc.set_skill_level(92, 30)
                    pc.set_skill_level(93, 30)
                    pc.set_skill_level(94, 30)
                    pc.set_skill_level(95, 30)
                    pc.set_skill_level(96, 30)
                else
                    pc.set_skill_group(2)
                    say("Du hast die Heilungs-Lehre erlernt!")
                    wait()
                    pc.set_skill_level(106, 30)
                    pc.set_skill_level(107, 30)
                    pc.set_skill_level(108, 30)
                    pc.set_skill_level(109, 30)
                    pc.set_skill_level(110, 30)
                    pc.set_skill_level(111, 30)
                end
            end
            set_state(__COMPLETE__)
        end
    end
    state __COMPLETE__ begin
    end
end

05/27/2012 23:09 Azemi6#5822

Hilfe bei meiner quest!!
Bitte ich will nur 1mal hilfe von euch >.<
(Quest im spoiler)

Spoiler

Nebenbei hab ich noch so ne Quest die nicht funktioniert =l

PHP Code:


			
quest training_master_skill begin

    state start begin

when 71123.use begin

    local regencount = pc.count_item(71123)

        say_title("Gross Meister")

        if pc.get_skill_group() == 0 then

        say("Du hast keine Fertigkeiten "..pc.get_skill_group())

        return

        end

        local result = training_grandmaster_skill.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 hast keine Fertigkeiten")

        return

        end



        say("Fertigkeit Ausw�hlen")

        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)

    say("Der Blaue-Seelenstein wird die gew�hlte Fertigkeit")

    say("sofort auf G setzen")

    say("M�chtest du forfahren?")

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

        if s==2 then

        return

        end

        if pc.count_item(71123) != regencount then

        say("stfu buguser!")

        return

        end

    pc.remove_item(71123, 1)

    pc.set_skill_level(skill_vnum, 30)

    say("Herzlichen Gl�ckwunsch![ENTER]")

    say("Der Skill "..skill_name.." wurde auf G gesetzt!")

    say_reward(" "..skill_name.." G")

    end

    end

end

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

Ich w�rde mich �ber jede Hilfe und jeden Tipp freuen!
Danke im voraus
Mfg Azemi6

05/27/2012 23:28 HOLYsw#5823

Quote:

Originally Posted by .Delta

PHP Code:

quest setPs begin state start begin when login or levelup with pc.get_level() >= 5 begin timer("two", 4) end when two.timer begin local job = pc.get_job() local v if job == 0 then say("Welche Skillrichtung w�hlst du?") say("") say("") v = select("K�rper", "Mental") if v == 1 then pc.set_skill_group(1) say("Du hast die K�rperkampf-Lehre erlernt!") wait() pc.set_skill_level(1, 30) pc.set_skill_level(2, 30) pc.set_skill_level(3, 30) pc.set_skill_level(4, 30) pc.set_skill_level(5, 30) else pc.set_skill_group(2) say("Du hast die Mentalkampf-Lehre erlernt!") wait() pc.set_skill_level(16, 30) pc.set_skill_level(17, 30) pc.set_skill_level(18, 30) pc.set_skill_level(19, 30) pc.set_skill_level(20, 30) end elseif job == 1 then say("Welche Skillrichtung w�hlst du?") say("") say("") v = select("Nahkampf", "Fernkampf") if v == 1 then pc.set_skill_group(1) say("Du hast die Nahkampf-Lehre erlernt!") wait() pc.set_skill_level(31, 30) pc.set_skill_level(32, 30) pc.set_skill_level(33, 30) pc.set_skill_level(34, 30) pc.set_skill_level(35, 30) else pc.set_skill_group(2) say("Du hast die Fernkampf-Lehre erlernt!") wait() pc.set_skill_level(49, 30) pc.set_skill_level(50, 30) pc.set_skill_level(51, 30) pc.set_skill_level(52, 30) pc.set_skill_level(53, 30) end elseif job == 2 then say("Welche Skillrichtung w�hlst du?") say("") say("") v = select("Waffenmagie", "Schwarze Magie") if v == 1 then pc.set_skill_group(1) say("Du hast die Waffenmagie-Lehre erlernt!") wait() pc.set_skill_level(61, 30) pc.set_skill_level(62, 30) pc.set_skill_level(63, 30) pc.set_skill_level(64, 30) pc.set_skill_level(65, 30) pc.set_skill_level(66, 30) else pc.set_skill_group(2) say("Du hast die Schwarzemagie-Lehre erlernt!") wait() pc.set_skill_level(76, 30) pc.set_skill_level(77, 30) pc.set_skill_level(78, 30) pc.set_skill_level(79, 30) pc.set_skill_level(80, 30) pc.set_skill_level(81, 30) end else say("Welche Skillrichtung w�hlst du?") say("") say("") v = select("Drachen", "Heilung") if v == 1 then pc.set_skill_group(1) say("Du hast die Drachen-Lehre erlernt!") wait() pc.set_skill_level(91, 30) pc.set_skill_level(92, 30) pc.set_skill_level(93, 30) pc.set_skill_level(94, 30) pc.set_skill_level(95, 30) pc.set_skill_level(96, 30) else pc.set_skill_group(2) say("Du hast die Heilungs-Lehre erlernt!") wait() pc.set_skill_level(106, 30) pc.set_skill_level(107, 30) pc.set_skill_level(108, 30) pc.set_skill_level(109, 30) pc.set_skill_level(110, 30) pc.set_skill_level(111, 30) end end set_state(__COMPLETE__) end end state __COMPLETE__ begin end end

yeah danke

@azemi da steht dass der computer nicht wei� was training_grandmaster_skill.BuildGrandMasterSkillLi st ist also du hast es nicht richtig deklariert steht da :D aber mehr wei� ich auch nicht xD

05/28/2012 10:16 Azemi6#5824

Quote:

Originally Posted by HOLYsw

yeah danke

@azemi da steht dass der computer nicht wei� was training_grandmaster_skill.BuildGrandMasterSkillLi st ist also du hast es nicht richtig deklariert steht da :D aber mehr wei� ich auch nicht xD

Boah ehy aber das ist die genaue regenbogenquest.... -.-
Der regenbogenstein funktioniert tip top und sobald ich das dann etwas dran �ndere und ne neue quest mache mit neuem item und skill vnum geht nix mehr-.-

Kann mir jemand helfen bei der quest?
Oder mir tipps geben wie ich das hinbekommen k�nnte?

05/28/2012 11:18 [SA]Sibba / Christian#5825

Quote:

Hey

Ich komme bei meiner quest nicht weiter...

Man soll pro Tag eine Abstimmung machen k�nnen doch ich wei� den Code daf�r nicht ... eben so soll man am ende das ergebnis sehen nur diesen Code wei� ich auch nicht ^^

Sie sollte 7 Tage laufen die Umfrage... doch alle guten dinge sind 3 --> diesen Code wei� ich auch nicht ^^

PHP Code:

quest umfrage begin state start begin when 20095.chat."TGM Bewertung" with pc.get_level() >=50 begin local a = select("[TGM] Bewertung", "[TMOD] Bewertung") if a == 1 then say_title("[TGM] Bewertung") say("Hallo, mir [SA]Sibba ist es sehr wichtig was") say("unsere Spieler von unseren derzeitigen [TGM]s halten") say("Deswegen bitte ich dich, weil du schon �ber lvl 50 bist und") say("somit schon l�nger auf unserem Server spielst, unserem besten") say("[TGM] deine Stimme zu geben.") say("") say("So, entscheide dich bitte nun :") local b = select("[TGM]Name", "[TGM]Name", "[TGM]Name") if b == 1 then set(("[TGM]Name")+1) end if b == 2 then set(("[TGM]Name")+1) end if b == 3 then set(("[TGM]Name")+1) end say_title("[TGM] Bewertung") say("Danke f�r deine Stimme") say("Vielleicht werden die anderen Spieler in Zukunft �ber") say("Dich abstimmen! Also Los bewirb dich in unserem Forum sobald") say("Die Bewerbungen wieder offen sind") end if a == 2 then say_title("[TMOD] Bewertung") say("Hallo, mir [SA]Sibba ist es sehr wichtig

Brauche immer noch hilfe :)

Bitte helft mir ^^

05/28/2012 12:01 fumadu#5826

HILFE !!!!

Quote:

quest ingamebann2 begin
state start begin
when 70045.use with pc.is_gm() begin
say("Was m�chtest du tun?")
local s = select('Bannen','Entbannen',"Nichts")
if s == 3 then return end
local ban,bantxt,bantxt2 = "BLOCK","bannen","gebannt"
if s == 2 then
ban,bantxt,bantxt2 = "OK","entbannen","entbannt"
end
say(col.blue('Spieler '..bantxt)); say('[ENTER]Gib den Spielernamen ein.[ENTER](ein Teil reicht auch)')
local inp = input(); inp = mysql_escape(inp)
if inp == "" or inp == pc.get_name() then
say(col.red('Ung�ltige Eingabe.[ENTER]Abbruch!'))
return
end
local q = mysql_query('select * from player.player WHERE name LIKE \\"%'..inp..'%\\" AND name NOT like "%[%\\"','root','Ming1995',nil,'5.4.22.62')
if q == "ERROR" then
say(col.red('Fehler beim Lesen der Daten oder es existiert niemand mit diesem Namen.'))
return
end
say('W�hle den User, der '..bantxt2..' werden soll:')
local wahl = q.name; table.insert(wahl,"-Abbruch-")
table.insert(wahl,1,6) -- 6 ist die Anzahl der Maximalen User auf einer Seite.
local auswahl = select2(wahl)
if wahl[auswahl] == "-Abbruch-" then return end
say('Den Spieler \\"'..q.name[auswahl]..'\\" wirklich '..bantxt..'?')
if select("Ja","Nein") == 2 then return end
mysql_query('UPDATE account.account SET status = "'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1','root','Ming1995','5.4.22.62')
say('Der Spieler wurde gebannt.')
end
end
end

syntax error !!!

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

05/28/2012 12:27 TheMad#5827

hayho^^
ich brauche nochmal eure hilfe >.<

Ich habe mir den Trailer eingebaut von musicinstructor
und mir eine quest gebastelt, ich will, das der Traler nur ein einziges mal zu sehen ist, also nur wenn man sich einen neuen char macht und einlogt, bei meiner quest taucht der trailer aber imemr auf, wenn man sich einlogt oder portet.

Code:

quest Trailer begin
    state start begin
        when login with pc.getqf("firstlogin") == 0 begin
			cmdchat("showtrailer http://www.youtube.com/embed/k_ZMmEFA4Q0/?autoplay=1")
			setskin(NOWINDOW)
            pc.setqf("firstlogin", 1)
        end
    end
end

danke f�r eure hilfe^^

05/28/2012 12:48 lautlosertot#5828

@TheMad nimm mal das first raus vllt gehts dann

05/28/2012 13:02 TheMad#5829

Ja, das wars^^ danke

Ein problem hab ich noch, bei einer anderen Quest.
Ich habe einenWarpring mit Quest (logisch oder?) ich will aber, das der Ring immer dann
in das Inventar vom Spieler kommt, wenn er den Ring nicht drinn hat. Bei 2 Items habe ich das hinbekommen, da waren die Quest auch nicht so gro� und f�r mich �bersichtlicher. Nur beim Warpring will es nicht klappen

Hier eine Quest, wo es geht:

Spoiler

Und hier meine Warpring quest, die mich �rgert:

Spoiler

Code:

quest warpring begin
    state start begin
		when login or enter begin
				if pc.count_item("70007")==0 then
				pc.give_item2("70007")
			end
		end
        when 70007.use begin
            say_title("Ring:")
            say("Mit diesem Ring kannst du Dich teleportieren.")
            say("ABER ACHTUNG, hier schaut kein Alter Sack,")
            say("welches lvl Du hast, somit kannst Du dich schon mit Lv1")
            say("porten, also ist es auf eigener Gefahr.")
            say("Ansonsten hab viel Spa� in den Anderen L�ndern dieser Welt")
            say("Und gib auf Dich acht. Also Willst du dich porten??")
            local main_set = select("Ja","Nein")
            if main_set == 2 then
                return
            end
            
 
            local map = pc.get_map_index()
            local empire = pc.get_empire()
            local level = pc.get_level()

            say_title("Ring:")
            say("Wohin m�chtest du teleportiert werden?")

            -- ?? ?? ???? ?? ?? (? ?? 1,2 ??)
            if map == 1 or map == 3 or map == 21 or map == 23 or map == 41 or map == 43 then

                local guild_map_names = {
                    "Gildenzone",
                    "Gildenzone",
                    "Gildenzone",
                }

                guild_map_name = guild_map_names[empire]
                local empire_castle={
                    "Burgschlacht",
                    "Burgschlacht",
                    "Burgschlacht",
                }
                empire_castle =empire_castle[empire]
                local sub_set = 0
                if level < 60 then -- 60?? : ?????, ???, ????, ???
                    sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-W�ste", "Berg Sohan", empire_castle,"Andere Gebiete")
                    if sub_set == 6 then -- ??
                        return
                    end

                else -- 61?? : ????, ???, ????, ????
                    sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-W�ste", "Berg Sohan",  empire_castle,"Andere Gebiete")
                    if sub_set == 6 then -- ??
                        say_title("Teleporter:")
                        say("Wohin m�chtest du teleportiert werden?")
                        sub_set = select("Doyyumhwaji", "D�monenturm", "Zur�ck", "Abbrechen") + 5
                        if sub_set == 9 then -- ??
                            return
                        end
                        if sub_set == 8 then -- ??
                            say_title("Teleporter:")
                            say("Wohin m�chtest du teleportiert werden?")
                                                 ---                                                   l
                            sub_set = select(guild_map_name, "Tal von Seungryong", "Yongbi-W�ste", "Berg Sohan",  empire_castle,"Andere Gebiete")
                            if sub_set == 6 then -- ??
                                say_title("Teleporter:")
                                say("Wohin m�chtest du teleportiert werden?")
                                sub_set = select("Doyyumhwaji", "D�monenturm", "Abbrechen") + 5
                                if sub_set == 8 then -- ??
                                    return
                                end
                            end
                        end
                    end
                end


                local warp = {
                    -- guild_map
                    {
                        { 128500, 1000 },
                        { 179500, 1000 },
                        { 271800, 13000 },
                    },
                    -- 64 map_n_threeway
                    {
                        { 402100, 673900 },
                        { 270400, 739900 },
                        { 321300, 808000 },
                    },
                    -- 63 metin2_map_n_desert_01
                    {
                        { 217800, 627200 },
                        { 221900, 502700 },
                        { 344000, 502500 },
                    },
                    -- 61 map_n_snowm_01
                    {
                        { 434200, 290600 },
                        { 375200, 174900 },
                        { 491800, 173600 },
                    },
                    --empire_castle
                    {
                        {975200, 133000},
                        {977200, 185000},
                        {923900, 183600},
                    
                    } ,
                    -- 62 metin2_map_n_flame_01
                    {
                        { 599400, 756300 },
                        { 597800, 622200 },
                        { 730700, 689800 },
                    },
                    -- devil_tower
                    {
                        { 590500, 110500 },
                        { 590500, 110500 },
                        { 590500, 110500 },
                    },
                }
                test_chat(warp[sub_set][empire][1]..warp[sub_set][empire][2])
                say_title("Ring:")
                say("Achtung, ich teleportiere dich jetzt. Du wirst")
                say("an einem gef�hrlichen Ort landen, also pass auf")
                say("dich auf. Viel Gl�ck!")
                wait()
                pc.warp(warp[sub_set][empire][1], warp[sub_set][empire][2])
            

            else -- ? ?? 1,2 ? ??? ?????? ? ?? 1,2 ? ??? ?? ??    
                local sub_set2 = 3

                --sub_set2 = select(locale.vileage1_name[empire], locale.vileage2_name[empire], locale.cancel)
                if empire==1 then    
                    sub_set2 = select("Yongan","Jayang" , locale.cancel)
                elseif  empire ==2 then  
                    sub_set2 = select("Joan","Bokjung" , locale.cancel)
                elseif  empire ==3 then 
                    sub_set2 = select("Pyungmoo","Bakra" , locale.cancel)
                end    
                if sub_set2 != 3 then
                    if sub_set2 == 1 then
                        say_title("Ring:")
                        say("Ich teleportiere dich dorthin.")
                        wait()

                        if empire == 1 then
                            pc.warp(474300,954800)
                        elseif empire == 2 then
                            pc.warp(63800,166400)
                        elseif empire == 3 then
                            pc.warp(959900,269200)
                        end    
                    elseif sub_set2 == 2 then
                        say_title("Ring:")
                        say("Ich teleportiere dich dorthin.")

                        wait()
                        if empire == 1 then
                            pc.warp(353100,882900)
                        elseif empire == 2 then
                            pc.warp(145500,240000)
                        elseif empire == 3 then
                            pc.warp(863900,246000)
                        end    
                    end -- end sub set check2 if
                end -- end sub set check1 if
            end    -- end map check if
        end -- end when use item
    end -- end state start
end -- end quest warpring

05/28/2012 14:19 bigbaumi255#5830

Help Pls

Quest:

PHP Code:


			
quest Item_shop begin
    state start begin
        when  9010.click begin
        say("Wilkommen im Item Shop")
        say("Hier kannst du dir Gegenst�nde f�r deine Itemshop") 
        say("coins kaufe")
        say("")
        
        local a = select ("Ok ich will was kaufen", "Itemshop Verlassen")
            if a == 1 then 
                say("Was denn?")
                say("")
                local b =select ("150er Ruestung","120er Waffen", "Itemshop Verlassen")
                    if b == 1 then 
                        say("Ruessis")
                        say("")
                        local c = select ("Sura", "Krieger", "Shamie", "Ninja", "Itemshop Verlassen")
                            if c == 1 then
                            say("")
                            say_item_vnum(11699)
                            say("Wirklich kaufen? Du brauchst einen 10.000er Coin")
                            say("")
                            say("")
                            
                            local d = select ("Ja kaufen", "Nein doch nicht")
                                if d == 1 then
                                    if pc.count_item(90016)>=1 then
                                    say("Ok, das sind genug Coins")
                                    say_reward("MagiePlattenpanzer+9 erhalten")
                                    pc.give_item2(11699)
                                    pc.remove_item(90016, 1)
                                    elseif pc.count_item(90016)<1 then
                                    say("Das sind aber zuwenig coins. Oder die falschen...")
                                    say_reward("Nimm an Events teil um Coins zu bekommen!")
                                    say_reward("Oder falls du die falschen hast, gehe zur Bankerin!")
                                    end
                                
                                end
                            elseif c == 2 then
                                say("")
                                say_item_vnum(11299)
                                say("Wirklich kaufen? Du brauchst einen 10.000er Coin")
                                say("")
                                say("")
                                
                                local e = select ("Ja kaufen", "Nein doch nicht")
                                    if e == 1 then
                                        if pc.count_item(90016)>=1 then
                                        say("Ok, das sind genug Coins")
                                        say_reward("Schwarzstahl-Panzer+9 erhalten")
                                        pc.give_item2(11299)
                                        pc.remove_item(90016, 1)
                                        elseif pc.count_item(90016)<1 then
                                        say("Das sind aber nicht genug coins. Oder die falschen...")
                                        say_reward("Nimm an Events teil um Coins zu bekommen!")
                                        say_reward("Oder falss du die falschen hast, gehe zur Bankerin!")
                                        end
                                
                                    end
                            elseif c == 3 then 
                            say("")
                                say_item_vnum(11899)
                                say("Wirklich kaufen? Du brauchst einen 10.000 Coins")
                                say("")
                                say("")
                                
                                local f = select ("Ja kaufen", "Nein doch nicht")
                                    if f == 1 then
                                        if pc.count_item(90016)>=1 then
                                        say("Ok, das sind genug Coins")
                                        say_reward("Schwarze Kleidung+9 erhalten")
                                        pc.give_item2(11899)
                                        pc.remove_item(90016, 1)
                                        elseif pc.count_item(90016)<1 then
                                        say("Das sind aber nicht genug coins. Oder die falschen...")
                                        say_reward("Nimm an Events teil um Coins zu bekommen!")
                                        say_reward("Oder falss du die falschen hast, gehe zur Bankerin!")
                                        end
                                
                                    end
                            elseif c == 4 then
                            say("")
                                say_item_vnum(11499)
                                say("Wirklich kaufen? Du brauchst einen 10.000 Coins")
                                say("")
                                say("")
                                
                                local f = select ("Ja kaufen", "Nein doch nicht")
                                    if f == 1 then
                                        if pc.count_item(90016)>=1 then
                                        say("Ok, das sind genug Coins")
                                        say_reward("Shwarzwinanzug+9 erhalten")
                                        pc.give_item2(11499)
                                        pc.remove_item(90016, 1)
                                        elseif pc.count_item(90016)<1 then
                                        say("Das sind aber nicht genug coins. Oder die falschen...")
                                        say_reward("Nimm an Events teil um Coins zu bekommen!")
                                        say_reward("Oder falss du die falschen hast, gehe zur Bankerin!")
                                        end
                                
                                    end
                            end
                
                    elseif b == 2 then    
                    
                    say("Waffen")
                        say("")
                        local k = select ("Sura", "Krieger 1Hand", "Schami Golcke", "Ninja Dolch", "Itemshop Verlassen")
                            if k == 1 then
                            say("")
                            say_item_vnum(35349)
                            say("Wirklich kaufen? Du brauchst 15.000 Coins")
                            say("")
                            say("")
                            
                            local g = select ("Ja kaufen", "Nein doch nicht")
                                if g == 1 then
                                    if pc.count_item(90017)>=15 then
                                    say("Ok, das sind genug Coins")
                                    say_reward("Spinnen Klinge+9 erhalten")
                                    pc.give_item2(35349)
                                    pc.remove_item(90017, 15)
                                    elseif pc.count_item(90017)<15 then
                                    say("Das sind aber zuwenig coins. Oder die falschen...")
                                    say_reward("Nimm an Events teil um Coins zu bekommen!")
                                    say_reward("Oder falls du die falschen hast, gehe zur Bankerin!")
                                    end
                                
                                end
                            elseif k == 2 then
                                say("")
                                say("Wirklich kaufen? Du brauchst 15.000 Coins")
                                say_item_vnum(35309)
                                say("")
                                say("")
                                say("")

                                
                            
                                
                                local h = select ("Ja kaufen", "Nein doch nicht")
                                    if h == 1 then
                                        if pc.count_item(90017)>=15 then
                                        say("Ok, das sind genug Coins")
                                        say_reward("Seelendieb+9 erhalten"))
                                        pc.give_item2(35309)
                                        pc.remove_item(90017, 15)
                                        elseif pc.count_item(90017)<15 then
                                        say("Das sind aber nicht genug coins. Oder die falschen...")
                                        say_reward("Nimm an Events teil um Coins zu bekommen!")
                                        say_reward("Oder falss du die falschen hast, gehe zur Bankerin!")
                                        end
                                
                                    end
                            elseif k == 3 then 
                                say("")
                                say("Wirklich kaufen? Du brauchst 15.000 Coins")
                                say_item_vnum(35249)
                                say("")
                                say("")
                                
                                local i = select ("Ja kaufen", "Nein doch nicht")
                                    if i == 1 then
                                        if pc.count_item(90017)>=15 then
                                        say("Ok, das sind genug Coins")
                                        say_reward("Spinnen Glocke+9 erhalten")
                                        pc.give_item2(35249)
                                        pc.remove_item(90017, 15)
                                        elseif pc.count_item(90017)<15 then
                                        say("Das sind aber nicht genug coins. Oder die falschen...")
                                        say_reward("Nimm an Events teil um Coins zu bekommen!")
                                        say_reward("Oder falss du die falschen hast, gehe zur Bankerin!")
                                        end
                                
                                    end
                            elseif k == 4 then
                            say("")
                                say_item_vnum(35019)
                                say("Wirklich kaufen? Du brauchst 15.000 Coins")
                                say("")
                                say("")
                                
                                local j = select ("Ja kaufen", "Nein doch nicht")
                                    if j == 1 then
                                        if pc.count_item(90017)>=15 then
                                        say("Ok, das sind genug Coins")
                                        say_reward("Spitz Messer+9 erhalten")
                                        pc.give_item2(35019)
                                        pc.remove_item(90017, 15)
                                        elseif pc.count_item(90017)<15 then
                                        say("Das sind aber nicht genug coins. Oder die falschen...")
                                        say_reward("Nimm an Events teil um Coins zu bekommen!")
                                        say_reward("Oder falss du die falschen hast, gehe zur Bankerin!")
                                        end
                                
                                    end
                            end
                    
                elseif a == 2 then
                    say("")
                    say("")
                    end
                end
            end
        end
    end

Problem gel�sst

05/28/2012 18:19 skurto#5831

Quote:

Originally Posted by skurto

Can someone help me?

Code:

        when 30104.chat."D�le...(3.patro)" begin
            npc.purge()
            say_reward("Upozorněn�...")
            say(" Ček� V�s dlouh� cesta...")
            wait()
            d.setf("goto_ebene3", 0)
            d.new_jump_all(203, 4427, 12284)
            d.notice(" Ček� V�s dlouh� cesta...")
            d.notice("Najděte a zničte spr�vn� balvan pro postup do 4.patra!")
            d.set_regen_file("data/dungeon/katakomby/katakomby_patro_3.txt")
            d.regen_file("data/dungeon/katakomby/katakomby_patro_3.txt")
            local metindv = number(1,4)
            if metindv==1 then
                d.spawn_mob(8028, 1351, 348)
                d.spawn_mob(8028, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8028, 1351, 149)
            end
            if metindv==2 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8028, 1148, 350)
                d.spawn_mob(8028, 1151, 155)
                d.spawn_mob(8028, 1351, 149)
            end
            if metindv==3 then
                d.spawn_mob(8028, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8028, 1151, 155)
                d.spawn_mob(8028, 1351, 149)
            end
            if metindv==4 then
                d.spawn_mob(8028, 1351, 348)
                d.spawn_mob(8028, 1148, 350)
                d.spawn_mob(8028, 1151, 155)
                d.spawn_mob(8029, 1351, 149) 
            end
        end            
        when 8028.kill with pc.in_dungeon() begin
            d.notice("Fale�n� k�men zmiz�!")
        end
        when 8029.kill with c.in_dungeon() begin
            d.notice("Byl zničen spr�vn� k�men!")
            timer("devils_catacomb_goto_ebene4", 5)
        end

I can't find the mistake, but the quest doesn't work..
Thx for every advice! :-)

Please help :-)

05/28/2012 21:26 Ielinque#5832

Hab ne quest geschrieben , aber die funz net , kann mir da bitte jemand elfen?

Spoiler

@->

Spoiler

PHP Code:


			
        when 30104.chat."D�le...(3.patro)" begin
            npc.purge()
            say_reward("Upozorněn�...")
            say(" Ček� V�s dlouh� cesta...")
            wait()
            d.setf("goto_ebene3", 0)
            d.new_jump_all(203, 4427, 12284)
            d.notice(" Ček� V�s dlouh� cesta...")
            d.notice("Najděte a zničte spr�vn� balvan pro postup do 4.patra!")
            d.set_regen_file("data/dungeon/katakomby/katakomby_patro_3.txt")
            d.regen_file("data/dungeon/katakomby/katakomby_patro_3.txt")
            local metindv = number(1,4)
            if metindv==1 then
                d.spawn_mob(8028, 1351, 348)
                d.spawn_mob(8028, 1148, 350)
                d.spawn_mob(8029, 1151, 155)
                d.spawn_mob(8028, 1351, 149)
            end
            if metindv==2 then
                d.spawn_mob(8029, 1351, 348)
                d.spawn_mob(8028, 1148, 350)
                d.spawn_mob(8028, 1151, 155)
                d.spawn_mob(8028, 1351, 149)
            end
            if metindv==3 then
                d.spawn_mob(8028, 1351, 348)
                d.spawn_mob(8029, 1148, 350)
                d.spawn_mob(8028, 1151, 155)
                d.spawn_mob(8028, 1351, 149)
            end
            if metindv==4 then
                d.spawn_mob(8028, 1351, 348)
                d.spawn_mob(8028, 1148, 350)
                d.spawn_mob(8028, 1151, 155)
                d.spawn_mob(8029, 1351, 149) 
            end
        end            
        when 8028.kill with pc.in_dungeon() begin
            d.notice("Falešn� k�men zmiz�!")
        end
        when 8029.kill with c.in_dungeon() begin
            d.notice("Byl zničen spr�vn� k�men!")
            timer("devils_catacomb_goto_ebene4", 5)
        end
     end
  end
end

So sollte es funktionieren :D :D :D

05/28/2012 21:33 skurto#5833

[QUOTE='[ST]Hydra;16916179']Hab ne quest geschrieben , aber die funz net , kann mir da bitte jemand elfen?

Spoiler

Have this item type 18? :-)

05/28/2012 21:50 Ielinque#5834

Yes :/ I have the Kristall in type 18

05/28/2012 22:05 .NighT�#5835

Quote:

Originally Posted by [ST]Hydra

Hab ne quest geschrieben , aber die funz net , kann mir da bitte jemand elfen?

Spoiler

PHP Code:

quest exp_v begin state start begin when 30203.use begin say_title("Du bekommst EXP") say("") say("Mit diesem Item bekommst du Erfahrungspunkte") say("") say_reward("Der Drachen-Goot will dir Exp schenken") say("") say("") say_reward("Willst du Exp haben?") local main_set = select("Ich will EXP","Abbrechen") if main_set == 2 then return end say("Wieviel Exp m�chtest du?") local s = select("5.000.000","15.000.000","50.000.000", "100.000.000", "200.000.000", "300.000.000", "600.000.000", "5.000.000.000", "1.000.000.000.000") if s == 1 then pc.give_exp2(5000000) elseif s == 2 then pc.give_exp2(15000000) elseif s == 3 then pc.give_exp2(50000000) elseif s == 4 then pc.give_exp2(100000000) elseif s == 5 then pc.give_exp2(200000000) elseif s == 6 then pc.give_exp2(300000000) elseif s == 7 then pc.give_exp2(600000000) elseif s == 8 then pc.give_exp2(5000000000) elseif s == 9 then pc.give_exp2(1000000000000) pc.removeitem(30203, 1) end end end end

@->

Spoiler

PHP Code:

when 30104.chat."D�le...(3.patro)" begin npc.purge() say_reward("Upozorněn�...") say(" Ček� V�s dlouh� cesta...") wait() d.setf("goto_ebene3", 0) d.new_jump_all(203, 4427, 12284) d.notice(" Ček� V�s dlouh� cesta...") d.notice("Najděte a zničte spr�vn� balvan pro postup do 4.patra!") d.set_regen_file("data/dungeon/katakomby/katakomby_patro_3.txt") d.regen_file("data/dungeon/katakomby/katakomby_patro_3.txt") local metindv = number(1,4) if metindv==1 then d.spawn_mob(8028, 1351, 348) d.spawn_mob(8028, 1148, 350) d.spawn_mob(8029, 1151, 155) d.spawn_mob(8028, 1351, 149) end if metindv==2 then d.spawn_mob(8029, 1351, 348) d.spawn_mob(8028, 1148, 350) d.spawn_mob(8028, 1151, 155) d.spawn_mob(8028, 1351, 149) end if metindv==3 then d.spawn_mob(8028, 1351, 348) d.spawn_mob(8029, 1148, 350) d.spawn_mob(8028, 1151, 155) d.spawn_mob(8028, 1351, 149) end if metindv==4 then d.spawn_mob(8028, 1351, 348) d.spawn_mob(8028, 1148, 350) d.spawn_mob(8028, 1151, 155) d.spawn_mob(8029, 1351, 149) end end when 8028.kill with pc.in_dungeon() begin d.notice("Fale�n� k�men zmiz�!") end when 8029.kill with c.in_dungeon() begin d.notice("Byl zničen spr�vn� k�men!") timer("devils_catacomb_goto_ebene4", 5) end end end end

So sollte es funktionieren :D :D :D

Was wird denn in der Konsole angezeigt, wenn du make.sh ausf�hrst?

Page 389 of 845

389