[SERVICE] Die Questkontrolle

Page 353 of 845

353

04/01/2012 00:25 Kriegergeist^^#5281

Abend auch,

habe mal eine kleine Bio Quest selber geschrieben :D
Wollte sie bisschen wie Zokay2 machen, aber leider bin ich noch �ber ein Woche nicht zuhause, somit kann ich sie nicht testen.
Meine den Teil von Zokay2:

Spoiler

Bei den bin ich mir auch unsicher, ob ich das geschaft habe :(
Hier die Quest:

Spoiler

HTML Code:

-----------------------------------------------
-- Bilogenquest 1, die Orkz�hne
-- By Lucifero/Kriegergeist^^
-- Zuletzt ge�ndert am 01.04.2012 um 00:15
-----------------------------------------------
quest biologe_quest1 begin
	state start begin
		when 20084.chat."Die Orkz�hne" with pc.getqf("orkzahn") >= 1 begin
		if pc.count_item(30006) == 0 then
			say_title("Biologe Chaegirab")
			say("")
			say("Du kennst sicher die Schwarzen Orks in der Mitte")
			say("des Tals von Seungryong.")
			say("Die besitzen so widerst�ndige Z�hne, womit sie alles")
			say("zermahlen k�nnen, trotz ihrem fauligen Mundgeruch.")
			say("Es w�r nett, wen du mir 10 dieser Z�hne bringen")
			say("kannst, damit ich sie untersuchen kann.")
			say("Es fehlen dir nur noch "..pc.getqf("orkzahn").." Orkz�hne.")
			say_item(30006)
		elseif pc.count_item(30006) >= 1 and pc.count_item(30006) <= 9 then then
			say_title("Biologe Chaegirab")
			say("")
			say("Nur sowenige haste bis jetzt!")
			say("Der Aufwand lohnt sich garnicht, sie zu")
			say("untersuchen.")
			say("Komm wieder wen du 10 St�ck hast.")
			say("Du bekommst sie, wen du Schwarzen Orks im")
			say("Tal von Seungryong t�test.")
			say_item(30006)
		elseif get_time() > pc.getqf("orkzahntimer") and pc.count_item(30006) >= 0 then
			say_title("Biologe Chaegirab")
			say("")
			say("Tut mir leid,")
			say("aber ich untersuche immer noch die restlichen")
			say("Orkz�hne von vorhin.")
			say("Komm in einer Stunde wieder!")
		else
			say_title("Biologe Chaegirab")
			say("")
			say_item(30006)
			say("Es fehlen dir nur noch "..pc.getqf("orkzahn").." Orkz�hne.")
			pc.setqf("orkzahngut", 0)
			wait()
		if pc.count_item(30006) == 10 then
			say_title("Biologe Chaegirab")
			say("")
			say("Super! Du hast 10 Orkz�hne gesammalt.")
			say("")
			say_reward("Lass ihn mich mal eben �berpr�fen.")
			wait()
			say_title("Biologe Chaegirab")
			say("")
			pc.setqf("orkzahntimer", get_time()+ 3600)
		local a = number(1, 2)
		if a == 1 then
			say_red("Der erste Orkzahn ist unbrauchbar.")
		elseif a == 2 then
			say_green("Der erste Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local b = number(1, 2)
		if b == 1 then
			say_red("Der zweite Orkzahn ist unbrauchbar.")
		elseif b == 2 then
			say_green("Der zweite Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local c = number(1, 2)
		if c == 1 then
			say_red("Der dritte Orkzahn ist unbrauchbar.")
		elseif c == 2 then
			say_green("Der dritte Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local d = number(1, 2)
		if d == 1 then
			say_red("Der vierte Orkzahn ist unbrauchbar.")
		elseif d == 2 then
			say_green("Der vierte Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local e = number(1, 2)
		if e == 1 then
			say_red("Der f�nfte Orkzahn ist unbrauchbar.")
		elseif e == 2 then
			say_green("Der f�nfte Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local f = number(1, 2)
		if f == 1 then
			say_red("Der sechste Orkzahn ist unbrauchbar.")
		elseif f == 2 then
			say_green("Der sechste Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local g = number(1, 2)
		if g == 1 then
			say_red("Der siebte Orkzahn ist unbrauchbar.")
		elseif g == 2 then
			say_green("Der siebte Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local h = number(1, 2)
		if h == 1 then
			say_red("Der achte Orkzahn ist unbrauchbar.")
		elseif h == 2 then
			say_green("Der achte Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local i = number(1, 2)
		if i == 1 then
			say_red("Der neunte Orkzahn ist unbrauchbar.")
		elseif i == 2 then
			say_green("Der neunte Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
		local j = number(1, 2)
		if j == 1 then
			say_red("Der zente Orkzahn ist unbrauchbar.")
		elseif j == 2 then
			say_green("Der zente Orkzahn ist brauchbar.")
			pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
			pc.setqf("orkzahngut", pc.getqf("orkzahngut")+1)
			wait()
		if pc.getqf("orkzahn") >= 1 than
			say_title("Biologe Chaegirab")
			say("")
			say("Von deinen 10 gebrauchten Orkz�hne sind f�r mich")
			say(""..pc.getqf("orkzahngut").." brauchbar.")
			say("Somit fehlen dir nur noch "..pc.getqf("orkzahn").." Orkz�hne.")
			pc.remove_item(30006,10)
		else
			say_title("Biologe Chaegirab")
			say("")
			say("Herzlichen Gl�ckwunsch!")
			say("Du hast mir alle 10 Orkz�hne gebracht.")
			say("Vielen dank das du mir bei meiner Untersuchung")
			say("geholfen hast.")
			say("Daf�r erh�ltst du von mir:")
			say_reward("1 Roter Ebenholzkasten")
			say_reward("Permanente Bewegungsgeschwindigkeit +10")
			pc.give_item2(50109, 1)
			affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
			pc.remove_item(30006,10)
		else
			say_title("Biologe Chaegirab")
			say("")
			say("Wie kommt das den?")
			say("Deine 10 Orkz�hne sind weg.")
			say("Sicherlich gucke ich blo� falsch, aber trotzdem")
			say("versuch es bitte nochmal")
			end 
			end
		end
	end

        function ab()
            local ju = {
                --mob-id--min-level--max-level---item-anzahl---prozent---item-ids----prozentuale ver�nderung pro level
                {636,     20,        65,             1,        20,20,20,    30006, 30006, 30006,        1},
            }
            return ju
        end
        when kill with not npc.is_pc() begin
            local boni,lck,per,luck,bsp = 0,0,0,0,hdf.ab()
            for i = 1, table.getn(bsp)+1, 1 do
                if npc.get_race() == bsp[i][1] then
                    if pc.get_level() >= bsp[i][2] and pc.get_level() <= bsp[i][3] then
                        boni = (bsp[i][2] - pc.get_level()) * (-1)
                        boni = boni * bsp[i][bsp[i][4]*2+5]
                        luck = number(1,bsp[i][4])
                        luck = luck + 4 + bsp[i][4]
                        lck = luck - bsp[i][4]
                        per = 100 - bsp[i][lck] + boni
                        lck = number(1,100)
                        if lck > per then
                            pc.give_item2(bsp[i][luck], 1)
                        end
                    end
                end
            end
        end
    end
end

W�r nett wen ihr mir helfen k�nntet :handsdown:
Ich bitte drum, keine scherz oder witze zu machen, auch wen heute der 1 April ist :p

MfG
Kriegergeist^^

04/01/2012 10:35 .Delta#5282

machs doch mit ner schleife :D

vllt so in dem dreh, bin mir nicht mehr ganz so sicher, lange nichts mehr gemacht :D

PHP Code:


			
local chance = 50
for i=1, pc.count_item(30006), 1 do
    if pc.count_item(30006) == 0 then
        say("Du hast keine Orkz�hne")
        break
    end
    if number(1, 100) >= chance then
        pc.setqf("orkzahn", pc.getqf("orkzahn")-1)
        pc.remove_item(30006, 1)
        say("Orkzahn"..i.." brauchbar.")
        if pc.getqf("orkzahn") <= 0 then
            say_title("Biologe Chaegirab")
            say("")
            say("Herzlichen Gl�ckwunsch!")
            say("Du hast mir alle 10 Orkz�hne gebracht.")
            say("Vielen dank das du mir bei meiner Untersuchung")
            say("geholfen hast.")
            say("Daf�r erh�ltst du von mir:")
            say_reward("1 Roter Ebenholzkasten")
            say_reward("Permanente Bewegungsgeschwindigkeit +10")
            pc.give_item2(50109, 1)
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
            set_state(__complete)
            break
        end
    else
        say("Orkzahn"..i.." unbrauchbar.")
    end
end

04/01/2012 11:32 Azemi6#5283

Also ich versuche ein item zu machen das wie seeli ist halt einfach schon ab M1 brauchbar ist... ich nehme als item die drachenschuppe (nicht das reittier) und hab die quest von der seeli als vorlage genommen und �berall alles angepasst bzw. wo die 30 stand eine 20 gemacht....

In den Objekt ordner in FileZilla hab ich auch den ordner von dem seeli kopiert bearbeitet und die quest darin auch also die .start quest....

Die training_master_skill.quest

Spoiler

PHP Code:


			
quest training_master_skill begin

    state start begin

    when 71123.use begin

        say_title("Meister")

        local seelicount = pc.count_item(71123)

        if pc.get_skill_group() == 0 then

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

        return

        end



        if get_time() < pc.getqf("next_time") then -- and not is_test_server() then

        if pc.is_skill_book_no_delay() then

            say("Du hast eine Exo-Rolle Gelesen!")

            say("Nun kannst du einen weiteren")

            say("Blauen-Seelenstein lesen!")

                  say("")

            wait()

            say_title("Meister")

        else

            say("Du hast heute Bereits einen Blauen-Seelenstein gelesen!")

            return

        end

        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)

        local cur_alignment = pc.get_real_alignment()

        local need_alignment = 1000+500*(skill_level-20)



        test_chat("Momentaner Rang: "..cur_alignment)

        test_chat("Ben�tigter Rang: "..need_alignment)



        local title=string.format("%s auf Meister  %d lesen", skill_name, skill_level-20+1)

        if pc.count_item(71123) != seelicount then

        say("Stfu Buguser!")

        return

        end

        item.remove()

        say_title(title)

        say("Das lesen eines Blauen-Seelensteines")

        say("kostet Rangpunke.")

        say("")



        if cur_alignment<-19000+need_alignment then

        say_reward("Du hast zu wenig Rang!")

        return

        end



        if cur_alignment<0 then

        say_reward(string.format("Ben�tigter Rang: %d -> %d", need_alignment, need_alignment*2))

        say_reward("Beim klappen des Blauen-Seelensteins wird dir")

              say_reward("das doppelte an Rangpunkten abgezoegn!")



        need_alignment=need_alignment*2

        elseif cur_alignment<need_alignment then

        say_reward(string.format("Ben�tigter Rang: %d", need_alignment))

        say_reward("Beim klappen des Blauen-Seelensteins wird dir")

              say_reward("das doppelte an Rangpunkten abgezoegn!")

        else

        say_reward(string.format("Ben�tigter Rang: %d", need_alignment))

        end

        say("")



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

        if s==2 then

        return

        end





        if cur_alignment>=0 and cur_alignment<need_alignment then

        say_title(string.format("%s -Best�tigen", title))

        say("Das Lesen eines Blauen-Seelensteines kostet Rang,")

        say("wenn du diesen Blauen-Seelenstein lie�t,")

        say("kommst du in -Rang")

        say("Bitte Best�tige das du diesen Blauen-Seelenstein")

say("wirklich lesen m�chtest!")

        say("")

        say_reward("Best�tigen")

        say("")

        say("Bitte gebe 'Meister' ein!")

        local s=input()

        if s!="Meister" then

            return

        end

        end



        if get_time() < pc.getqf("next_time") then -- and not is_test_server() then

        if pc.is_skill_book_no_delay() then

            pc.remove_skill_book_no_delay()

        else

            say("Seelitest1")

            return

        end

        end



        pc.setqf("next_time", get_time()+time_hour_to_sec(number(8, 12)))



        if need_alignment>0 then

        if pc.learn_grand_master_skill(skill_vnum) then

            pc.change_alignment(-need_alignment)





            say_title(string.format("%s -Erfolgreich", title))

            if 40 == pc.get_skill_level(skill_vnum) then

            say(string.format("%s Seelitest2.", skill_name))

            else

            say(string.format("Dein Blauer-Seelenstein war Erfolgreich!", skill_name, skill_level-20+1+1))

            end

            say("")

            say_reward("Erfolgreich!")

            say_reward(string.format("Kosten an Rang: %d ", need_alignment))

            say("")

        else

            say_title(string.format("%s -Fehlgeschlagen", title))

            say("Dein Blauer-Seelenstein hat nicht geklappt.")

            say("")

            say_reward("Fehlgeschlagen!")

            say("")

            pc.change_alignment(-number(need_alignment/3, need_alignment/2))

        end

        end

    end

    function BuildGrandMasterSkillList(job, group)

        GRAND_MASTER_SKILL_LEVEL = 20

        PERFECT_MASTER_SKILL_LEVEL = 30



        local skill_list = special.active_skill_list[job+1][group]

        local ret_vnum_list = {}

        local ret_name_list = {}



        -- test_chat(string.format("job=%d, group=%d", job, group))



        table.foreach(skill_list, 

        function(i, skill_vnum) 

        local skill_level = pc.get_skill_level(skill_vnum)



        -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))

        if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then



            table.insert(ret_vnum_list, skill_vnum)

            local name=locale.GM_SKILL_NAME_DICT[skill_vnum]

            if name == nil then name=skill_vnum end

            table.insert(ret_name_list, name)

        end

        end)

        return {ret_vnum_list, ret_name_list}





        --return {ret_vnum_list, ret_name_list}

    end

    end

end

Die training_master_skill.start

Spoiler

PHP Code:


			
say_title ( "Meister" ) 

local seelicount = pc . count_item ( 71123 ) 

if pc . get_skill_group ( ) == 0 then 

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

return 

end 

if get_time ( ) < pc . getqf ( "next_time" ) then 

if pc . is_skill_book_no_delay ( ) then 

say ( "Du hast eine Exo-Rolle Gelesen!" ) 

say ( "Nun kannst du einen weiteren" ) 

say ( "Blauen-Seelenstein lesen!" ) 

say ( "" ) 

wait ( ) 

say_title ( "Meister" ) 

else 

say ( "Du hast heute Bereits einen Blauen-Seelenstein gelesen!" ) 

return 

end 

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 ) 

local cur_alignment = pc . get_real_alignment ( ) 

local need_alignment = 1000 + 500 * ( skill_level - 20 ) 

test_chat ( "Momentaner Rang: " .. cur_alignment ) 

test_chat ( "Ben�tigter Rang: " .. need_alignment ) 

local title = string . format ( "%s auf Meister  %d lesen" , skill_name , skill_level - 20 + 1 ) 

if pc . count_item ( 71123 ) ~= seelicount then 

say ( "Stfu Buguser!" ) 

return 

end 

item . remove ( ) 

say_title ( title ) 

say ( "Das lesen eines Blauen-Seelensteines" ) 

say ( "kostet Rangpunke." ) 

say ( "" ) 

if cur_alignment < - 19000 + need_alignment then 

say_reward ( "Du hast zu wenig Rang!" ) 

return 

end 

if cur_alignment < 0 then 

say_reward ( string . format ( "Ben�tigter Rang: %d -> %d" , need_alignment , need_alignment * 2 ) ) 

say_reward ( "Beim klappen des Blauen-Seelensteins wird dir" ) 

say_reward ( "das doppelte an Rangpunkten abgezoegn!" ) 

need_alignment = need_alignment * 2 

elseif cur_alignment < need_alignment then 

say_reward ( string . format ( "Ben�tigter Rang: %d" , need_alignment ) ) 

say_reward ( "Beim klappen des Blauen-Seelensteins wird dir" ) 

say_reward ( "das doppelte an Rangpunkten abgezoegn!" ) 

else 

say_reward ( string . format ( "Ben�tigter Rang: %d" , need_alignment ) ) 

end 

say ( "" ) 

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

if s == 2 then 

return 

end 

if cur_alignment >= 0 and cur_alignment < need_alignment then 

say_title ( string . format ( "%s -Best�tigen" , title ) ) 

say ( "Das Lesen eines Blauen-Seelensteines kostet Rang," ) 

say ( "wenn du diesen Blauen-Seelenstein lie�t," ) 

say ( "kommst du in -Rang" ) 

say ( "Bitte Best�tige das du diesen Blauen-Seelenstein" ) 

say ( "wirklich lesen m�chtest!" ) 

say ( "" ) 

say_reward ( "Best�tigen" ) 

say ( "" ) 

say ( "Bitte gebe 'Meister' ein!" ) 

local s = input ( ) 

if s ~= "Meister" then 

return 

end 

end 

if get_time ( ) < pc . getqf ( "next_time" ) then 

if pc . is_skill_book_no_delay ( ) then 

pc . remove_skill_book_no_delay ( ) 

else 

say ( "Seelitest1" ) 

return 

end 

end 

pc . setqf ( "next_time" , get_time ( ) + time_hour_to_sec ( number ( 8 , 12 ) ) ) 

if need_alignment > 0 then 

if pc . learn_grand_master_skill ( skill_vnum ) then 

pc . change_alignment ( - need_alignment ) 

say_title ( string . format ( "%s -Erfolgreich" , title ) ) 

if 40 == pc . get_skill_level ( skill_vnum ) then 

say ( string . format ( "%s Seelitest2." , skill_name ) ) 

else 

say ( string . format ( "Dein Blauer-Seelenstein war Erfolgreich!" , skill_name , skill_level - 20 + 1 + 1 ) ) 

end 

say ( "" ) 

say_reward ( "Erfolgreich!" ) 

say_reward ( string . format ( "Kosten an Rang: %d " , need_alignment ) ) 

say ( "" ) 

else 

say_title ( string . format ( "%s -Fehlgeschlagen" , title ) ) 

say ( "Dein Blauer-Seelenstein hat nicht geklappt." ) 

say ( "" ) 

say_reward ( "Fehlgeschlagen!" ) 

say ( "" ) 

pc . change_alignment ( - number ( need_alignment / 3 , need_alignment / 2 ) ) 

end 

end

04/01/2012 12:34 havmonster#5284

es ist eine ganz simple quest bekomme aber den Fehler ("quest user must start with �quest
Segmention Corde dumped")

PHP Code:


			
quest user begin
    state start begin
        when login or levelup with pc.get_level ==() 5 then
        say_title("Du hast Level 5 erreicht")
        say("Da du nun ein h�heres Level erreicht hast")
        say("bekommst du ein Item")
        say("Es bietet dir einige N�tzliche")
        say("Features")
        say_reward("Du erhielst das Userpannel")
        pc.give_item2(70028)
        set_state (_COMPLETE_)
    end
end
state _COMPLETE_ begin
end

Ka was da los ist, es ist so eine einfache Quest nur irgendwie bin ich zu doof

04/01/2012 12:44 Jakomo'#5285

PHP Code:


			
quest user begin

    state start begin

        when login or levelup with pc.get_level ==() 5 then

            say_title("Du hast Level 5 erreicht")

            say("Da du nun ein h�heres Level erreicht hast")

            say("bekommst du ein Item")

            say("Es bietet dir einige N�tzliche")

            say("Features")

            say_reward("Du erhielst das Userpannel")

            pc.give_item2(70028)

            set_state (_COMPLETE_)

        end

    end

    state _COMPLETE_ begin

end

04/01/2012 12:49 iNicki#5286

Code:

quest dc begin
    state start begin
		when 2598.kill begin
			say_title("Es ist vollbracht...")
                        say("")
			say("Herzlichen Gl�ckwunsch von unserem Team !")
			say("Wir h�tten nicht gedacht das je einer uns von")
			say("Azrael befreit.")
			say("")
			say("Doch dir ist es gelungen Azrael zu t�ten.")
			notice_all("*~ Serverinfo ~*")
			notice_all(""..pc.get_name().." und seine Gruppe haben")
			notice_all("Die Devil`s Catacomb gemeistert !")
			notice_all("Azrael ist nun besiegt.")
			notice_all("Herzlichen Gl�ckwunsch !!")
        end
    end
end

Wenn ich Ingame "2598" Kille passiert nichts.

04/01/2012 14:41 [SA]Con#5287

Spoiler

Code:

quest neue_reittiere begin
	state start begin
		when 60002.use begin
			say_title("Siegel der Tiere")
			say("")
			say("Hallo. :)")
			say("Du willst also ein Reittier reiten.")
			say("Mhm ich kann dich Reiten lassen.")
			local s=select("Weiter", "Abbrechen")
			if s==2 then
				return
			end
			say_title("Auswahl")
			say("")
			local a=select("Keiler", "Wolf", "Feuer Tiger", "L�we", "Weiter")
			if a==1 then
			pc.mount(20110, 3600)
			chat("Du Reitest nun auf dem Keiler.")
			end
			if a==2 then
			pc.mount(20111, 3600)
			chat("Du Reitest nun auf dem Wolf.")
			end
			if a==3 then
			pc.mount(20112, 3600)
			chat("Du Reitest nun auf dem Feuer Tiger.")
			end
			if a==4 then
			pc.mount(20113, 3600)
			chat("Du Reitest nun auf dem L�wen.")
			end
			if a==5 then
			say_title("Auswahl")
			say("")
			local b=select("Wei�er L�we", "Dunkler Keiler", "Dunkler Wolf", "Dunkler Tiger", "Dunkler L�we", "Weiter")
			if b==1 then
			pc.mount(20114, 3600)
			chat("Du Reitest nun auf dem Wei�en L�wen.")
			end
			if b==2 then
			pc.mount(20115, 3600)
			chat("Du Reitest nun auf dem Dunklen Keiler.")
			end
			if b==3 then
			pc.mount(20116, 3600)
			chat("Du Reitest nun auf dem Dunklen Wolf.")
			end
			if b==4 then
			pc.mount(20117, 3600)
			chat("Du Reitest nun auf dem Dunklen Tiger.")
			end
			if b==5 then
			pc.mount(20118, 3600)
			chat("Du Reitest nun auf dem Dunklen L�wen.")
			end
			if b==6 then
			local h=select("Wei�er Tiger", "Blauer Alien", "Event Pferd", "Rentier", "Rentier 2", "Abbrechen")
			if h==1 then
			pc.mount(20119, 3600)
			chat("Du Reitest nun auf dem Wei�en Tiger.")
			end
			if h==2 then
			pc.mount(20120, 3600)
			chat("Du Reitest nun auf dem Blauen Alien.")
			end
			if h==3 then
			pc.mount(20129, 3600)
			chat("Du Reitest nun auf dem Event Pferd.")
			end
			if h==4 then
			pc.mount(20122, 3600)
			chat("Du Reitest nun auf dem Jungen Rentier.")
			end
			if h==5 then
			pc.mount(20123, 3600)
			chat("Du Reitest nun auf dem Starken Rentier.")
			end
			if h==6 then
				return
			end
		end
	end
end

04/01/2012 14:43 Jakomo'#5288

PHP Code:


			
quest dc begin
    state start begin
        when 2598.kill begin
            say_title("Es ist vollbracht...")
            say("")
            say("Herzlichen Gl�ckwunsch von unserem Team !")
            say("Wir h�tten nicht gedacht das je einer uns von")
            say("Azrael befreit.")
            say("")
            say("Doch dir ist es gelungen Azrael zu t�ten.")
            notice_all("*~ Serverinfo ~*")
            notice_all(""..pc.get_name().." und seine Gruppe haben")
            notice_all("Die Devil`s Catacomb gemeistert !")
            notice_all("Azrael ist nun besiegt.")
            notice_all("Herzlichen Gl�ckwunsch !!")
        end
    end
end

PHP Code:


			
quest neue_reittiere begin
    state start begin
        when 60002.use begin
            say_title("Siegel der Tiere")
            say("")
            say("Hallo. :)")
            say("Du willst also ein Reittier reiten.")
            say("Mhm ich kann dich Reiten lassen.")
            local s=select("Weiter", "Abbrechen")
            if s==2 then
                return
            end
            else
            say_title("Auswahl")
            say("")
            local a=select("Keiler", "Wolf", "Feuer Tiger", "L�we", "Weiter")
            if a==1 then
            pc.mount(20110, 3600)
            chat("Du Reitest nun auf dem Keiler.")
            end
            if a==2 then
            pc.mount(20111, 3600)
            chat("Du Reitest nun auf dem Wolf.")
            end
            if a==3 then
            pc.mount(20112, 3600)
            chat("Du Reitest nun auf dem Feuer Tiger.")
            end
            if a==4 then
            pc.mount(20113, 3600)
            chat("Du Reitest nun auf dem L�wen.")
            end
            if a==5 then
            say_title("Auswahl")
            say("")
            local b=select("Wei�er L�we", "Dunkler Keiler", "Dunkler Wolf", "Dunkler Tiger", "Dunkler L�we", "Weiter")
            if b==1 then
            pc.mount(20114, 3600)
            chat("Du Reitest nun auf dem Wei�en L�wen.")
            end
            if b==2 then
            pc.mount(20115, 3600)
            chat("Du Reitest nun auf dem Dunklen Keiler.")
            end
            if b==3 then
            pc.mount(20116, 3600)
            chat("Du Reitest nun auf dem Dunklen Wolf.")
            end
            if b==4 then
            pc.mount(20117, 3600)
            chat("Du Reitest nun auf dem Dunklen Tiger.")
            end
            if b==5 then
            pc.mount(20118, 3600)
            chat("Du Reitest nun auf dem Dunklen L�wen.")
            end
            if b==6 then
            local h=select("Wei�er Tiger", "Blauer Alien", "Event Pferd", "Rentier", "Rentier 2", "Abbrechen")
            if h==1 then
            pc.mount(20119, 3600)
            chat("Du Reitest nun auf dem Wei�en Tiger.")
            end
            if h==2 then
            pc.mount(20120, 3600)
            chat("Du Reitest nun auf dem Blauen Alien.")
            end
            if h==3 then
            pc.mount(20129, 3600)
            chat("Du Reitest nun auf dem Event Pferd.")
            end
            if h==4 then
            pc.mount(20122, 3600)
            chat("Du Reitest nun auf dem Jungen Rentier.")
            end
            if h==5 then
            pc.mount(20123, 3600)
            chat("Du Reitest nun auf dem Starken Rentier.")
            end
            if h==6 then
                return
            end
        end
    end
end

Habe bei der 2. Quest am Anfang gleich nen Fehler gefunden, vielleicht funktioniert sie jetzt. Wenn nicht, schaue ich sie mir sp�ter genauer an.

04/01/2012 14:57 [SA]Con#5289

Quote:

Originally Posted by Jakomo'

PHP Code:

quest dc begin state start begin when 2598.kill begin say_title("Es ist vollbracht...") say("") say("Herzlichen Gl�ckwunsch von unserem Team !") say("Wir h�tten nicht gedacht das je einer uns von") say("Azrael befreit.") say("") say("Doch dir ist es gelungen Azrael zu t�ten.") notice_all("*~ Serverinfo ~*") notice_all(""..pc.get_name().." und seine Gruppe haben") notice_all("Die Devil`s Catacomb gemeistert !") notice_all("Azrael ist nun besiegt.") notice_all("Herzlichen Gl�ckwunsch !!") end end end

PHP Code:

quest neue_reittiere begin state start begin when 60002.use begin say_title("Siegel der Tiere") say("") say("Hallo. :)") say("Du willst also ein Reittier reiten.") say("Mhm ich kann dich Reiten lassen.") local s=select("Weiter", "Abbrechen") if s==2 then return end else say_title("Auswahl") say("") local a=select("Keiler", "Wolf", "Feuer Tiger", "L�we", "Weiter") if a==1 then pc.mount(20110, 3600) chat("Du Reitest nun auf dem Keiler.") end if a==2 then pc.mount(20111, 3600) chat("Du Reitest nun auf dem Wolf.") end if a==3 then pc.mount(20112, 3600) chat("Du Reitest nun auf dem Feuer Tiger.") end if a==4 then pc.mount(20113, 3600) chat("Du Reitest nun auf dem L�wen.") end if a==5 then say_title("Auswahl") say("") local b=select("Wei�er L�we", "Dunkler Keiler", "Dunkler Wolf", "Dunkler Tiger", "Dunkler L�we", "Weiter") if b==1 then pc.mount(20114, 3600) chat("Du Reitest nun auf dem Wei�en L�wen.") end if b==2 then pc.mount(20115, 3600) chat("Du Reitest nun auf dem Dunklen Keiler.") end if b==3 then pc.mount(20116, 3600) chat("Du Reitest nun auf dem Dunklen Wolf.") end if b==4 then pc.mount(20117, 3600) chat("Du Reitest nun auf dem Dunklen Tiger.") end if b==5 then pc.mount(20118, 3600) chat("Du Reitest nun auf dem Dunklen L�wen.") end if b==6 then local h=select("Wei�er Tiger", "Blauer Alien", "Event Pferd", "Rentier", "Rentier 2", "Abbrechen") if h==1 then pc.mount(20119, 3600) chat("Du Reitest nun auf dem Wei�en Tiger.") end if h==2 then pc.mount(20120, 3600) chat("Du Reitest nun auf dem Blauen Alien.") end if h==3 then pc.mount(20129, 3600) chat("Du Reitest nun auf dem Event Pferd.") end if h==4 then pc.mount(20122, 3600) chat("Du Reitest nun auf dem Jungen Rentier.") end if h==5 then pc.mount(20123, 3600) chat("Du Reitest nun auf dem Starken Rentier.") end if h==6 then return end end end end

Habe bei der 2. Quest am Anfang gleich nen Fehler gefunden, vielleicht funktioniert sie jetzt. Wenn nicht, schaue ich sie mir sp�ter genauer an.

Geht leider nicht. :(

04/01/2012 15:01 iNicki#5290

Quote:

Originally Posted by Jakomo'

PHP Code:

quest dc begin state start begin when 2598.kill begin say_title("Es ist vollbracht...") say("") say("Herzlichen Gl�ckwunsch von unserem Team !") say("Wir h�tten nicht gedacht das je einer uns von") say("Azrael befreit.") say("") say("Doch dir ist es gelungen Azrael zu t�ten.") notice_all("*~ Serverinfo ~*") notice_all(""..pc.get_name().." und seine Gruppe haben") notice_all("Die Devil`s Catacomb gemeistert !") notice_all("Azrael ist nun besiegt.") notice_all("Herzlichen Gl�ckwunsch !!") end end end

PHP Code:

quest neue_reittiere begin state start begin when 60002.use begin say_title("Siegel der Tiere") say("") say("Hallo. :)") say("Du willst also ein Reittier reiten.") say("Mhm ich kann dich Reiten lassen.") local s=select("Weiter", "Abbrechen") if s==2 then return end else say_title("Auswahl") say("") local a=select("Keiler", "Wolf", "Feuer Tiger", "L�we", "Weiter") if a==1 then pc.mount(20110, 3600) chat("Du Reitest nun auf dem Keiler.") end if a==2 then pc.mount(20111, 3600) chat("Du Reitest nun auf dem Wolf.") end if a==3 then pc.mount(20112, 3600) chat("Du Reitest nun auf dem Feuer Tiger.") end if a==4 then pc.mount(20113, 3600) chat("Du Reitest nun auf dem L�wen.") end if a==5 then say_title("Auswahl") say("") local b=select("Wei�er L�we", "Dunkler Keiler", "Dunkler Wolf", "Dunkler Tiger", "Dunkler L�we", "Weiter") if b==1 then pc.mount(20114, 3600) chat("Du Reitest nun auf dem Wei�en L�wen.") end if b==2 then pc.mount(20115, 3600) chat("Du Reitest nun auf dem Dunklen Keiler.") end if b==3 then pc.mount(20116, 3600) chat("Du Reitest nun auf dem Dunklen Wolf.") end if b==4 then pc.mount(20117, 3600) chat("Du Reitest nun auf dem Dunklen Tiger.") end if b==5 then pc.mount(20118, 3600) chat("Du Reitest nun auf dem Dunklen L�wen.") end if b==6 then local h=select("Wei�er Tiger", "Blauer Alien", "Event Pferd", "Rentier", "Rentier 2", "Abbrechen") if h==1 then pc.mount(20119, 3600) chat("Du Reitest nun auf dem Wei�en Tiger.") end if h==2 then pc.mount(20120, 3600) chat("Du Reitest nun auf dem Blauen Alien.") end if h==3 then pc.mount(20129, 3600) chat("Du Reitest nun auf dem Event Pferd.") end if h==4 then pc.mount(20122, 3600) chat("Du Reitest nun auf dem Jungen Rentier.") end if h==5 then pc.mount(20123, 3600) chat("Du Reitest nun auf dem Starken Rentier.") end if h==6 then return end end end end

Habe bei der 2. Quest am Anfang gleich nen Fehler gefunden, vielleicht funktioniert sie jetzt. Wenn nicht, schaue ich sie mir sp�ter genauer an.

Meine geht auch nicht :/

04/01/2012 15:31 Computercrack#5291

PHP Code:


			
quest dragontemple begin

    state start begin

        

        when logout with pc.get_map_index() >= (82*10000) begin

            pc.setqf("punishment", 1)

        end

        

        when login with pc.get_map_index() >= (82*10000) and pc.getqf("punishment") == 1 begin

            pc.setqf("punishment", 0)

            warp_to_village()

        end

        

        when 30121.chat."Ich will den Drachen t�ten" with pc.get_map_index() == 73 and game.get_event_flag("dragontemple_open") == 1 begin

            pc.setqf("punishment", 0)

            if game.get_event_flag("dragontemple_used") == 1 then

                if game.get_event_flag("dragontemple_block") == 1 then

                    say_title(mob_name(30121))

                    say("")

                    say("Der Raum ist gesperrt, versuch es sp�ter noch ein mal.")

                    return;

                end

                

                say_title(mob_name(30121))

                say("")

                say("Tut mir Leid, der Raum ist reseviert.")

                say("Wenn du ein Passwort hast f�r den Zugang")

                say("gebe es jetzt bitte ein.")

                local password = input()

                if game.get_event_flag("dragontemple_password") == tonumber(password) then

                    say_title(""..mob_name(30121).."")

                    say("")

                    say("Das Passwort stimmt �berein.")

                    say("Ich bringe dich in die Kammer")

                    wait()

                    say_title(""..mob_name(30121).."")

                    say("")

                    say("Wenn du willst kann ich dich sofort,")

                    say("in den Drachnraum bringen.")

                    say("Gib mir einfach 3x")

                    say("")

                    say_item_vnum(30179)

                    

                    local s = select("Hier, nimm sie und bring mich rein", "Abbrechen")

                    if s == 1 then

                        if pc.count_item(30179) >= 3 then

                            pc.remove_item(30179,3)

                            pc.warp(843600, 1066900,(82*10000))

                            --DragonLair.startRaid(82)

                        else

                            say("Du hast nur "..pc.count_item(30179).." von 3 ben�tigten")

                            say("")

                            say_item_vnum(30179)

                        end

                    else

                        return

                    end

                else

                    say_title(""..mob_name(30121).."")

                    say("")

                    say("Das Passwort stimmt nicht �berein.")

                    return

                end

            elseif pc.has_guild() and game.get_event_flag("dragontemple_used") == 0 then

                say_title(""..mob_name(30121).."")

                say("")

                say("Du willst also den Drachen bek�mpfen?")

                say("Dann gib bitte erst ein Passwort(nur Zahlen) ein")

                say("um den Raum zu sch�tzen. Geb das Passwort")

                say("einfach deinen Gruppenmitgliedern und sie")

                say("k�nnen mit in den Raum")

                say("Gib es bitte jetzt ein.")

                local password = tonumber(input(""))

                game.set_event_flag("dragontemple_password",password)

                say_title(""..mob_name(30121).."")

                say("")

                say("Wenn du willst kann ich dich sofort,")

                say("in den Drachnraum bringen.")

                say("Gib mir einfach 3x")

                say("")

                say_item_vnum(30179)

                say("")

                

                local s = select("Hier, nimm sie und bring mich rein", "Abbrechen")

                if s == 1 then

                    if pc.count_item(30179) >= 3 then

                        pc.remove_item(30179,3)

                        DragonLair.startRaid(82)

                         game.set_event_flag("dragontemple_used",1)

                        timer("blockentry",5*60)

                    else

                        say("Du hast nur "..pc.count_item(30179).." von 3 ben�tigten")

                        say("")

                        say_item_vnum(30179)

                        say("")

                        return

                    end

                elseif s==2 then

                    return                                

                end

            elseif not pc.has_guild() then

                say_title(""..mob_name(30121).."")

                say("")

                say("Du ben�tigst eine starke Gilde")

                say("um gegen den Drachen zu k�mpfen.")

            end

        end

        

        when 2493.kill with pc.get_map_index() >= (82*10000) begin

            timer("set_unused",30)

        end

        

        when set_unused.timer begin

            game.set_event_flag("dragontemple_used",0)

            game.set_event_flag("dragontemple_block",0)

        end

        

        when blockentry.timer begin

            game.set_event_flag("dragontemple_block",1)

        end

    end

end

Quest alles klappt,blo� der Block Effekt geht nicht.Der Raum soll wenn man den Drachen get�tet hat 1h geschlossen sein

04/01/2012 16:22 Jakomo'#5292

Quote:

Originally Posted by [SA]Con

Geht leider nicht. :(

Bei mir funktioniert sie, vielleicht verwendest du den Mob schon in einer anderen Quest, dann blockiert sich das n�mlich.

04/01/2012 17:06 Azemi6#5293

Quote:

Originally Posted by Azemi6

Also ich versuche ein item zu machen das wie seeli ist halt einfach schon ab M1 brauchbar ist... ich nehme als item die drachenschuppe (nicht das reittier) und hab die quest von der seeli als vorlage genommen und �berall alles angepasst bzw. wo die 30 stand eine 20 gemacht....

In den Objekt ordner in FileZilla hab ich auch den ordner von dem seeli kopiert bearbeitet und die quest darin auch also die .start quest....

Die training_master_skill.quest

Spoiler

PHP Code:

quest training_master_skill begin state start begin when 71123.use begin say_title("Meister") local seelicount = pc.count_item(71123) if pc.get_skill_group() == 0 then say("Du hast keine Fertigkeiten "..pc.get_skill_group()) return end if get_time() < pc.getqf("next_time") then -- and not is_test_server() then if pc.is_skill_book_no_delay() then say("Du hast eine Exo-Rolle Gelesen!") say("Nun kannst du einen weiteren") say("Blauen-Seelenstein lesen!") say("") wait() say_title("Meister") else say("Du hast heute Bereits einen Blauen-Seelenstein gelesen!") return end 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) local cur_alignment = pc.get_real_alignment() local need_alignment = 1000+500*(skill_level-20) test_chat("Momentaner Rang: "..cur_alignment) test_chat("Ben�tigter Rang: "..need_alignment) local title=string.format("%s auf Meister %d lesen", skill_name, skill_level-20+1) if pc.count_item(71123) != seelicount then say("Stfu Buguser!") return end item.remove() say_title(title) say("Das lesen eines Blauen-Seelensteines") say("kostet Rangpunke.") say("") if cur_alignment<-19000+need_alignment then say_reward("Du hast zu wenig Rang!") return end if cur_alignment<0 then say_reward(string.format("Ben�tigter Rang: %d -> %d", need_alignment, need_alignment*2)) say_reward("Beim klappen des Blauen-Seelensteins wird dir") say_reward("das doppelte an Rangpunkten abgezoegn!") need_alignment=need_alignment*2 elseif cur_alignment<need_alignment then say_reward(string.format("Ben�tigter Rang: %d", need_alignment)) say_reward("Beim klappen des Blauen-Seelensteins wird dir") say_reward("das doppelte an Rangpunkten abgezoegn!") else say_reward(string.format("Ben�tigter Rang: %d", need_alignment)) end say("") local s=select("Lesen", "Abbrechen") if s==2 then return end if cur_alignment>=0 and cur_alignment<need_alignment then say_title(string.format("%s -Best�tigen", title)) say("Das Lesen eines Blauen-Seelensteines kostet Rang,") say("wenn du diesen Blauen-Seelenstein lie�t,") say("kommst du in -Rang") say("Bitte Best�tige das du diesen Blauen-Seelenstein") say("wirklich lesen m�chtest!") say("") say_reward("Best�tigen") say("") say("Bitte gebe 'Meister' ein!") local s=input() if s!="Meister" then return end end if get_time() < pc.getqf("next_time") then -- and not is_test_server() then if pc.is_skill_book_no_delay() then pc.remove_skill_book_no_delay() else say("Seelitest1") return end end pc.setqf("next_time", get_time()+time_hour_to_sec(number(8, 12))) if need_alignment>0 then if pc.learn_grand_master_skill(skill_vnum) then pc.change_alignment(-need_alignment) say_title(string.format("%s -Erfolgreich", title)) if 40 == pc.get_skill_level(skill_vnum) then say(string.format("%s Seelitest2.", skill_name)) else say(string.format("Dein Blauer-Seelenstein war Erfolgreich!", skill_name, skill_level-20+1+1)) end say("") say_reward("Erfolgreich!") say_reward(string.format("Kosten an Rang: %d ", need_alignment)) say("") else say_title(string.format("%s -Fehlgeschlagen", title)) say("Dein Blauer-Seelenstein hat nicht geklappt.") say("") say_reward("Fehlgeschlagen!") say("") pc.change_alignment(-number(need_alignment/3, need_alignment/2)) end end end function BuildGrandMasterSkillList(job, group) GRAND_MASTER_SKILL_LEVEL = 20 PERFECT_MASTER_SKILL_LEVEL = 30 local skill_list = special.active_skill_list[job+1][group] local ret_vnum_list = {} local ret_name_list = {} -- test_chat(string.format("job=%d, group=%d", job, group)) table.foreach(skill_list, function(i, skill_vnum) local skill_level = pc.get_skill_level(skill_vnum) -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level)) if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then table.insert(ret_vnum_list, skill_vnum) local name=locale.GM_SKILL_NAME_DICT[skill_vnum] if name == nil then name=skill_vnum end table.insert(ret_name_list, name) end end) return {ret_vnum_list, ret_name_list} --return {ret_vnum_list, ret_name_list} end end end

Die training_master_skill.start

Spoiler

PHP Code:

say_title ( "Meister" ) local seelicount = pc . count_item ( 71123 ) if pc . get_skill_group ( ) == 0 then say ( "Du hast keine Fertigkeiten " .. pc . get_skill_group ( ) ) return end if get_time ( ) < pc . getqf ( "next_time" ) then if pc . is_skill_book_no_delay ( ) then say ( "Du hast eine Exo-Rolle Gelesen!" ) say ( "Nun kannst du einen weiteren" ) say ( "Blauen-Seelenstein lesen!" ) say ( "" ) wait ( ) say_title ( "Meister" ) else say ( "Du hast heute Bereits einen Blauen-Seelenstein gelesen!" ) return end 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 ) local cur_alignment = pc . get_real_alignment ( ) local need_alignment = 1000 + 500 * ( skill_level - 20 ) test_chat ( "Momentaner Rang: " .. cur_alignment ) test_chat ( "Ben�tigter Rang: " .. need_alignment ) local title = string . format ( "%s auf Meister %d lesen" , skill_name , skill_level - 20 + 1 ) if pc . count_item ( 71123 ) ~= seelicount then say ( "Stfu Buguser!" ) return end item . remove ( ) say_title ( title ) say ( "Das lesen eines Blauen-Seelensteines" ) say ( "kostet Rangpunke." ) say ( "" ) if cur_alignment < - 19000 + need_alignment then say_reward ( "Du hast zu wenig Rang!" ) return end if cur_alignment < 0 then say_reward ( string . format ( "Ben�tigter Rang: %d -> %d" , need_alignment , need_alignment * 2 ) ) say_reward ( "Beim klappen des Blauen-Seelensteins wird dir" ) say_reward ( "das doppelte an Rangpunkten abgezoegn!" ) need_alignment = need_alignment * 2 elseif cur_alignment < need_alignment then say_reward ( string . format ( "Ben�tigter Rang: %d" , need_alignment ) ) say_reward ( "Beim klappen des Blauen-Seelensteins wird dir" ) say_reward ( "das doppelte an Rangpunkten abgezoegn!" ) else say_reward ( string . format ( "Ben�tigter Rang: %d" , need_alignment ) ) end say ( "" ) local s = select ( "Lesen" , "Abbrechen" ) if s == 2 then return end if cur_alignment >= 0 and cur_alignment < need_alignment then say_title ( string . format ( "%s -Best�tigen" , title ) ) say ( "Das Lesen eines Blauen-Seelensteines kostet Rang," ) say ( "wenn du diesen Blauen-Seelenstein lie�t," ) say ( "kommst du in -Rang" ) say ( "Bitte Best�tige das du diesen Blauen-Seelenstein" ) say ( "wirklich lesen m�chtest!" ) say ( "" ) say_reward ( "Best�tigen" ) say ( "" ) say ( "Bitte gebe 'Meister' ein!" ) local s = input ( ) if s ~= "Meister" then return end end if get_time ( ) < pc . getqf ( "next_time" ) then if pc . is_skill_book_no_delay ( ) then pc . remove_skill_book_no_delay ( ) else say ( "Seelitest1" ) return end end pc . setqf ( "next_time" , get_time ( ) + time_hour_to_sec ( number ( 8 , 12 ) ) ) if need_alignment > 0 then if pc . learn_grand_master_skill ( skill_vnum ) then pc . change_alignment ( - need_alignment ) say_title ( string . format ( "%s -Erfolgreich" , title ) ) if 40 == pc . get_skill_level ( skill_vnum ) then say ( string . format ( "%s Seelitest2." , skill_name ) ) else say ( string . format ( "Dein Blauer-Seelenstein war Erfolgreich!" , skill_name , skill_level - 20 + 1 + 1 ) ) end say ( "" ) say_reward ( "Erfolgreich!" ) say_reward ( string . format ( "Kosten an Rang: %d " , need_alignment ) ) say ( "" ) else say_title ( string . format ( "%s -Fehlgeschlagen" , title ) ) say ( "Dein Blauer-Seelenstein hat nicht geklappt." ) say ( "" ) say_reward ( "Fehlgeschlagen!" ) say ( "" ) pc . change_alignment ( - number ( need_alignment / 3 , need_alignment / 2 ) ) end end

WIESO HILFT MIR NIEMAND?!!
Es w�rde mich echt freuen wenn mir jemand helfen w�rde!

04/01/2012 19:20 Ytura#5294

Quote:

Originally Posted by Retrograd

du musst die funktion pc.mount_bonus noch in den quest_functions eintragen

Habe ich gemacht, nun krieg ich son Fehler:

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

04/01/2012 21:07 [SA]Imbattle#5295

Hallo, hab nen problem mit dieser quest:

PHP Code:


			
quest tausch_npc begin

    state start begin

        when 9009.chat."Steinst�cke eintauschen" begin

            say_title("Fischer:")

            say("")

            say("Hallo, m�chtest du Steinst�cke gegen")

            say("Perlen tauschen?")

            say_reward("100 Steinst�cke f�r 1 Wei�e Perle")

            say_reward("150 Steinst�cke f�r 1 Blaue Perle")

            say_reward("200 Steinst�cke f�r 1 Blutrote Perle")

            say("Welche Perle m�chtest du haben?")

            locale s select == ("Wei�e Perle", "Blaue Perle", "Blutrote Perle", "Abbrechen")

                if s == 1 with pc.count_item(27990)>99 then

                say_reward("Du erh�lst Wei�e Perle.")

                pc.give_item2(27992, 1)

                pc.remove_item(27990, 100)

            end

                if s == 2 with pc.count_item(27990)>149 then

                say_reward("Du erh�lst Blaue Perle.")

                pc.give_item2(27993, 1)

                pc.remove_item(27990, 150)

            end

                if s == 3 with pc.count_item(27990)>199 then

                say_reward("Du erh�lst Blutrote Perle.")

                pc.give_item2(27994, 1)

                pc.remove_item(27990, 200)

            end

                if s == 4 then

                say_title("Fischer:")

                say("")

                say("Dann bis sp�ter.")

            end

        end

    end

end

Fehlercode:
syntax error : [string "start"]:9: `=' expected near `s' tauschquests.quest:39:Error occured on compile tauschquests.quest

w�r nett wenn mir jemand helfen kann, thanks im vorraus :)

Page 353 of 845

353