[SERVICE] Die Questkontrolle

Page 464 of 845

464

10/06/2012 14:59 Reigen#6946

Diese Quest:

PHP Code:


			
quest hdf begin

    state start begin

        function ab()

            local ju = {

                --mob-id--min-level--max-level---item-anzahl---prozent---item-ids----prozentuale ver�nderung pro level

                {2493,     1,         99,             4,        100,100,100,100,    27992,27993,27994,71129,        0},

                {1095,     1,         99,             1,        100,    50512,        0},

                {5163,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {291,     1,         42,             3,        100,100,100,    27992,27993,27994,        0},

                {792,     1,         62,             3,        100,100,100,    27992,27993,27994,        0},

                {1091,     1,         75,             3,        100,100,100,    27992,27993,27994,        0},

                {1092,     1,         80,             3,        100,100,100,    27992,27993,27994,        0},

                {5161,     1,         30,             3,        100,100,100,    27992,27993,27994,        0},

                {2206,     1,         73,             3,        100,100,100,    27992,27993,27994,        0},

                {5162,     1,         43,             3,        100,100,100,    27992,27993,27994,        0},

                {1304,     1,         75,             3,        100,100,100,    27992,27993,27994,        0},

                {2191,     1,         67,             3,        100,100,100,    27992,27993,27994,        0},

                {2091,     1,         70,             3,        100,100,100,    27992,27993,27994,        0},

                {1901,     1,         75,             3,        100,100,100,    27992,27993,27994,        0},

                {691,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {691,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {691,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {8006,     1,         40,             1,        100,    50513,        0},

                {8106,     1,         40,             1,        100,    50513,        0},

                {8007,     1,         45,             1,        100,    50513,        0},

                {8107,     1,         45,             1,        100,    50513,        0},

                {8008,     1,         50,             1,        100,    50513,        0},

                {8108,     1,         50,             1,        100,    50513,        0},

                {8009,     1,         55,             1,        100,    50513,        0},

                {8109,     1,         55,             1,        100,    50513,        0},

                {8010,     1,         60,             1,        100,    50513,        0},

                {8015,     1,         60,             1,        100,    50513,        0},

                {8110,     1,         60,             1,        100,    50513,        0},

                {8011,     1,         65,             1,        100,    50513,        0},

                {8016,     1,         65,             1,        100,    50513,        0},

                {8111,     1,         65,             1,        100,    50513,        0},

                {8012,     1,         70,             1,        100,    50513,        0},

                {8017,     1,         70,             1,        100,    50513,        0},

                {8112,     1,         70,             1,        100,    50513,        0},

                {8112,     1,         70,             1,        100,    50513,        0},

                {8013,     1,         75,             1,        100,    50513,        0},

                {8018,     1,         75,             1,        100,    50513,        0},

                {8113,     1,         75,             1,        100,    50513,        0},

                {8014,     1,         80,             1,        100,    50513,        0},

                {8019,     1,         80,             1,        100,    50513,        0},

                {8114,     1,         80,             1,        100,    50513,        0},

                {8024,     1,         85,             4,        100,50,50,50,    50513,27992,27993,27994,        0},

                {8025,     1,         90,             4,        100,50,50,50,    50513,27992,27993,27994,        0},

                {8026,     1,         95,             8,        100,50,50,50,20,20,20,20,    50513,27992,27993,27994,11290,11490,11690,11890,        0},

                {8027,     1,         99,             9,        100,50,50,50,40,40,40,40,10    50513,27992,27993,27994,11296,11496,11696,11896,50512        0},

            }

            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

                                                return

                    end

                end

            end

        end

    end

end

zeigt beim Starten des Servers folgenden Fehler an:
[Only registered and activated users can see links. Click Here To Register...]

10/06/2012 15:01 Ide.#6947

Quote:

Originally Posted by Ide.

Ich werde es sofort testen. Ja, Sensenmann k�nnte durch aus sein, aber Metinsteine haben wir in keiner Quest. Aber wie gesagt, ich teste es kurz und dann meld ich mich mit einem Feedback. ;)

Ok jetzt funktioniert alles so weit, dennoch klappt das mit dem Sensenmann, Demonenk�nig usw. trotzdem nicht. :P

Aber as reicht mir soweit aus. Danke dir. :>

10/06/2012 17:27 Pl�schfee#6948

Quote:

Originally Posted by Reigen

Diese Quest:

PHP Code:

quest hdf begin state start begin function ab() local ju = { --mob-id--min-level--max-level---item-anzahl---prozent---item-ids----prozentuale ver�nderung pro level {2493, 1, 99, 4, 100,100,100,100, 27992,27993,27994,71129, 0}, {1095, 1, 99, 1, 100, 50512, 0}, {5163, 1, 60, 3, 100,100,100, 27992,27993,27994, 0}, {291, 1, 42, 3, 100,100,100, 27992,27993,27994, 0}, {792, 1, 62, 3, 100,100,100, 27992,27993,27994, 0}, {1091, 1, 75, 3, 100,100,100, 27992,27993,27994, 0}, {1092, 1, 80, 3, 100,100,100, 27992,27993,27994, 0}, {5161, 1, 30, 3, 100,100,100, 27992,27993,27994, 0}, {2206, 1, 73, 3, 100,100,100, 27992,27993,27994, 0}, {5162, 1, 43, 3, 100,100,100, 27992,27993,27994, 0}, {1304, 1, 75, 3, 100,100,100, 27992,27993,27994, 0}, {2191, 1, 67, 3, 100,100,100, 27992,27993,27994, 0}, {2091, 1, 70, 3, 100,100,100, 27992,27993,27994, 0}, {1901, 1, 75, 3, 100,100,100, 27992,27993,27994, 0}, {691, 1, 60, 3, 100,100,100, 27992,27993,27994, 0}, {691, 1, 60, 3, 100,100,100, 27992,27993,27994, 0}, {691, 1, 60, 3, 100,100,100, 27992,27993,27994, 0}, {8006, 1, 40, 1, 100, 50513, 0}, {8106, 1, 40, 1, 100, 50513, 0}, {8007, 1, 45, 1, 100, 50513, 0}, {8107, 1, 45, 1, 100, 50513, 0}, {8008, 1, 50, 1, 100, 50513, 0}, {8108, 1, 50, 1, 100, 50513, 0}, {8009, 1, 55, 1, 100, 50513, 0}, {8109, 1, 55, 1, 100, 50513, 0}, {8010, 1, 60, 1, 100, 50513, 0}, {8015, 1, 60, 1, 100, 50513, 0}, {8110, 1, 60, 1, 100, 50513, 0}, {8011, 1, 65, 1, 100, 50513, 0}, {8016, 1, 65, 1, 100, 50513, 0}, {8111, 1, 65, 1, 100, 50513, 0}, {8012, 1, 70, 1, 100, 50513, 0}, {8017, 1, 70, 1, 100, 50513, 0}, {8112, 1, 70, 1, 100, 50513, 0}, {8112, 1, 70, 1, 100, 50513, 0}, {8013, 1, 75, 1, 100, 50513, 0}, {8018, 1, 75, 1, 100, 50513, 0}, {8113, 1, 75, 1, 100, 50513, 0}, {8014, 1, 80, 1, 100, 50513, 0}, {8019, 1, 80, 1, 100, 50513, 0}, {8114, 1, 80, 1, 100, 50513, 0}, {8024, 1, 85, 4, 100,50,50,50, 50513,27992,27993,27994, 0}, {8025, 1, 90, 4, 100,50,50,50, 50513,27992,27993,27994, 0}, {8026, 1, 95, 8, 100,50,50,50,20,20,20,20, 50513,27992,27993,27994,11290,11490,11690,11890, 0}, {8027, 1, 99, 9, 100,50,50,50,40,40,40,40,10 50513,27992,27993,27994,11296,11496,11696,11896,50512 0}, } 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 return end end end end end end

zeigt beim Starten des Servers folgenden Fehler an:
[Only registered and activated users can see links. Click Here To Register...]

Probiers mal so:

PHP Code:


			
quest hdf begin

    state start begin

        function ab()

            local ju = {

                --mob-id--min-level--max-level---item-anzahl---prozent---item-ids----prozentuale ver�nderung pro level

                {2493,     1,         99,             4,        100,100,100,100,    27992,27993,27994,71129,        0},

                {1095,     1,         99,             1,        100,    50512,        0},

                {5163,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {291,     1,         42,             3,        100,100,100,    27992,27993,27994,        0},

                {792,     1,         62,             3,        100,100,100,    27992,27993,27994,        0},

                {1091,     1,         75,             3,        100,100,100,    27992,27993,27994,        0},

                {1092,     1,         80,             3,        100,100,100,    27992,27993,27994,        0},

                {5161,     1,         30,             3,        100,100,100,    27992,27993,27994,        0},

                {2206,     1,         73,             3,        100,100,100,    27992,27993,27994,        0},

                {5162,     1,         43,             3,        100,100,100,    27992,27993,27994,        0},

                {1304,     1,         75,             3,        100,100,100,    27992,27993,27994,        0},

                {2191,     1,         67,             3,        100,100,100,    27992,27993,27994,        0},

                {2091,     1,         70,             3,        100,100,100,    27992,27993,27994,        0},

                {1901,     1,         75,             3,        100,100,100,    27992,27993,27994,        0},

                {691,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {691,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {691,     1,         60,             3,        100,100,100,    27992,27993,27994,        0},

                {8006,     1,         40,             1,        100,    50513,        0},

                {8106,     1,         40,             1,        100,    50513,        0},

                {8007,     1,         45,             1,        100,    50513,        0},

                {8107,     1,         45,             1,        100,    50513,        0},

                {8008,     1,         50,             1,        100,    50513,        0},

                {8108,     1,         50,             1,        100,    50513,        0},

                {8009,     1,         55,             1,        100,    50513,        0},

                {8109,     1,         55,             1,        100,    50513,        0},

                {8010,     1,         60,             1,        100,    50513,        0},

                {8015,     1,         60,             1,        100,    50513,        0},

                {8110,     1,         60,             1,        100,    50513,        0},

                {8011,     1,         65,             1,        100,    50513,        0},

                {8016,     1,         65,             1,        100,    50513,        0},

                {8111,     1,         65,             1,        100,    50513,        0},

                {8012,     1,         70,             1,        100,    50513,        0},

                {8017,     1,         70,             1,        100,    50513,        0},

                {8112,     1,         70,             1,        100,    50513,        0},

                {8112,     1,         70,             1,        100,    50513,        0},

                {8013,     1,         75,             1,        100,    50513,        0},

                {8018,     1,         75,             1,        100,    50513,        0},

                {8113,     1,         75,             1,        100,    50513,        0},

                {8014,     1,         80,             1,        100,    50513,        0},

                {8019,     1,         80,             1,        100,    50513,        0},

                {8114,     1,         80,             1,        100,    50513,        0},

                {8024,     1,         85,             4,        100,50,50,50,    50513,27992,27993,27994,        0},

                {8025,     1,         90,             4,        100,50,50,50,    50513,27992,27993,27994,        0},

                {8026,     1,         95,             8,        100,50,50,50,20,20,20,20,    50513,27992,27993,27994,11290,11490,11690,11890,        0},

                {8027,     1,         99,             9,        100,50,50,50,40,40,40,40,10    50513,27992,27993,27994,11296,11496,11696,11896,50512,        0},

            }

            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

                        return

                    end

                end

            end

        end

    end

end

10/06/2012 18:50 xR3MiiXx#6949

PHP Code:


			
-- ?? ??? 1?

quest neutral_warp begin

    state start begin

    when old_man.click begin

        say_title("Alter Mann:")

        say("Hallo!")

        say("Ich wei�, wie man von hier in eine andere Region")

        say("kommt. Wenn du mir etwas Yang gibst, kann ich")

        say("dich dorthin transportieren.")

        say("")

        local s = select("Transportieren", "Nicht Transportieren")



        if s == 1 then

        local cost = 1000

        local m = pc.get_map_index()



        say_title("Alter Mann:")

        say("Wohin m�chtest du?")

        say("Das kostet dich ".. cost .." Yang.")

        local e = pc.empire

        if m == 1 or m == 3 then

            e = 1

        elseif m == 21 or m == 23 then

            e = 2

        elseif m == 41 or m == 43 then

            e = 3

        end



        if m == 1 or m == 21 or m == 41 then

            local s = select("Tal von Seungryoung", "Berg Sohan", "Abbrechen")

            if s!=3 then

            if pc.gold < cost then

                say("Du hast nicht gen�gend Yang.")

            else

                if s == 1 then

                -- ??? = 1

                pc.warp(special.warp_to_pos[1][e][1], special.warp_to_pos[1][e][2])

                else

                -- ??? = 4

                pc.warp(special.warp_to_pos[4][e][1], special.warp_to_pos[4][e][2])

                end

                pc.changegold(-cost)

            end

            end

        elseif m == 3 or m == 23 or m == 43 then

            local s = select("Doyyumhwaji", "Yongbi-W�ste", "Abbrehchen")



            if s != 3 then

            -- ???? = 2

            -- ???? = 3

            if pc.gold < cost then

                say("Du hast nicht gen�gend Yang.")

            else

                pc.warp(special.warp_to_pos[s+1][e][1], special.warp_to_pos[s+1][e][2])

                pc.changegold(-cost)

            end

            end

        end

        end

    end

    end

end

Was ist daran falsch??

10/06/2012 20:45 Pl�schfee#6950

Quote:

Originally Posted by xR3MiiXx

PHP Code:

-- ?? ??? 1? quest neutral_warp begin state start begin when old_man.click begin say_title("Alter Mann:") say("Hallo!") say("Ich wei�, wie man von hier in eine andere Region") say("kommt. Wenn du mir etwas Yang gibst, kann ich") say("dich dorthin transportieren.") say("") local s = select("Transportieren", "Nicht Transportieren") if s == 1 then local cost = 1000 local m = pc.get_map_index() say_title("Alter Mann:") say("Wohin m�chtest du?") say("Das kostet dich ".. cost .." Yang.") local e = pc.empire if m == 1 or m == 3 then e = 1 elseif m == 21 or m == 23 then e = 2 elseif m == 41 or m == 43 then e = 3 end if m == 1 or m == 21 or m == 41 then local s = select("Tal von Seungryoung", "Berg Sohan", "Abbrechen") if s!=3 then if pc.gold < cost then say("Du hast nicht gen�gend Yang.") else if s == 1 then -- ??? = 1 pc.warp(special.warp_to_pos[1][e][1], special.warp_to_pos[1][e][2]) else -- ??? = 4 pc.warp(special.warp_to_pos[4][e][1], special.warp_to_pos[4][e][2]) end pc.changegold(-cost) end end elseif m == 3 or m == 23 or m == 43 then local s = select("Doyyumhwaji", "Yongbi-W�ste", "Abbrehchen") if s != 3 then -- ???? = 2 -- ???? = 3 if pc.gold < cost then say("Du hast nicht gen�gend Yang.") else pc.warp(special.warp_to_pos[s+1][e][1], special.warp_to_pos[s+1][e][2]) pc.changegold(-cost) end end end end end end end

Was ist daran falsch??

Fehlermeldung?

10/06/2012 23:20 Kim��#6951

M�chte in meine achievement.quest einf�gen,

Wenn ein Skill auf G kommt = x Achievementpunkte

Don't Know :x

So schon mal nicht..

PHP Code:


			
when skill_level == 30 begin

    local Reward = 10 

    local Achievement = "G Skill" 

    local actual_achievement_points = pc.getqf("achievement_points") 

    pc.setqf("G Skill", 1) 

    pc.setqf("achievement_points", actual_achievement_points + Reward)             

    cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points + Reward .."") 

end

So schon mal nicht..�

PHP Code:


			
when pc.get_skill_level(skill_vnum) == 30 begin

    local Reward = 10 

    local Achievement = "G Skill" 

    local actual_achievement_points = pc.getqf("achievement_points") 

    pc.setqf("G Skill", 1) 

    pc.setqf("achievement_points", actual_achievement_points + Reward)             

    cmdchat("achievement ".. Achievement .."_erreicht%".. actual_achievement_points + Reward .."") 

end

Bitte um Hilfe

Wenn ihr die ganze Quest braucht oder ein anderes Beispiel bitte melden!

10/06/2012 23:22 xR3MiiXx#6952

Pl�schfee keine fehlermeldung .. der teleporter geht nich^^

10/07/2012 10:25 Fliegex3#6953

quest official_pets begin
state start begin
when 53001.use with pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
if pc.getqf("firephoenix_use") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("firephoenix_use", 1)
pc.setqf("firephoenix", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.ATT_MAX_HP, 100, 60*60*8)
horse.set_level("22")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.ATT_MAX_HP, 100, 60*60*8)
horse.unsummon()
pc.setqf("firephoenix_use", 0)
pc.setqf("firephoenix", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("firephoenix_use") == 1 begin

pc.setqf("firephoenix_use", 0)
pc.setqf("firephoenix", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Haustier ging alleine fort!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
when 53003.use with pc.getqf("firephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
if pc.getqf("icephoenix_use") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("icephoenix_use", 1)
pc.setqf("icephoenix", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
horse.set_level("23")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
horse.unsummon()
pc.setqf("icephoenix_use", 0)
pc.setqf("icephoenix", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("icephoenix_use") == 1 begin

pc.setqf("icephoenix_use", 0)
pc.setqf("icephoenix", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Eisph�nix verl�sst dich nun!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
when 53002.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("pwahuang") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
if pc.getqf("reindeer") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("reindeer_use", 1)
pc.setqf("reindeer", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
horse.set_level("24")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
horse.unsummon()
pc.setqf("reindeer_use", 0)
pc.setqf("reindeer", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("reindeer_use") == 1 begin

pc.setqf("reindeer_use", 0)
pc.setqf("reindeer", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Haustier verl�sst dich nun!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
when 53005.use with pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 begin
if pc.getqf("pwahuang") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("pwahuang_use", 1)
pc.setqf("pwahuang", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
horse.set_level("25")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
horse.unsummon()
pc.setqf("pwahuang_use", 0)
pc.setqf("pwahuang", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("pwahuang_use") == 1 begin

pc.setqf("pwahuang_use", 0)
pc.setqf("pwahuang", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Haustier verl�sst dich nun!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
when 53006.use with pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
if pc.getqf("dog_use") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("dog_use", 1)
pc.setqf("dog", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
horse.set_level("26")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
horse.unsummon()
pc.setqf("dog_use", 0)
pc.setqf("dog", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("dog_use") == 1 begin

pc.setqf("dog_use", 0)
pc.setqf("dog", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Haustier verl�sst dich nun!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
when 53007.use with pc.getqf("dog") == 0 and pc.getqf("pig") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
if pc.getqf("lion_use") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("lion_use", 1)
pc.setqf("lion", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
horse.set_level("27")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
horse.unsummon()
pc.setqf("lion_use", 0)
pc.setqf("lion", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("lion_use") == 1 begin

pc.setqf("lion_use", 0)
pc.setqf("lion", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Haustier verl�sst dich nun!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
when 53008.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("tiger") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
if pc.getqf("pig") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("pig_use", 1)
pc.setqf("pig", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
horse.set_level("28")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
horse.unsummon()
pc.setqf("pig_use", 0)
pc.setqf("pig", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("pig_use") == 1 begin

pc.setqf("pig_use", 0)
pc.setqf("pig", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Haustier verl�sst dich nun!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
when 53009.use with pc.getqf("dog") == 0 and pc.getqf("lion") == 0 and pc.getqf("pig") == 0 and pc.getqf("firephoenix") == 0 and pc.getqf("icephoenix") == 0 and pc.getqf("reindeer") == 0 and pc.getqf("pwahuang") == 0 begin
if pc.getqf("tiger") == 0 then
local old_horse_name = horse.get_name() ;
if string.len(old_horse_name) == 0 then
chat("Dein Haustier hat noch keinen Namen!")
end
chat("Dein Haustier wurde gerufen!")
local your_horse_level = horse.get_level()
pc.setqf("horse_level_save", your_horse_level)
pc.setqf("tiger_use", 1)
pc.setqf("tiger", 1)
affect.add_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.add_collect(apply.MAX_HP, 1000, 60*60*8)
horse.set_level("29")
horse.unsummon() horse.summon()

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)
else
chat("Dein Haustier verabschiedet sich nun von dir!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
horse.unsummon()
pc.setqf("tiger_use", 0)
pc.setqf("tiger", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

end
end
when logout or login with pc.getqf("tiger_use") == 1 begin

pc.setqf("tiger_use", 0)
pc.setqf("tiger", 0)

local horse_settings = pc.getqf("horse_level_save")
horse.set_level(horse_settings)

chat("Dein Haustier verl�sst dich nun!")
affect.remove_collect(apply.ATT_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.DEF_GRADE_BONUS, 100, 60*60*8)
affect.remove_collect(apply.MAX_HP, 1000, 60*60*8)
end
end
end

In Putty kommt das:

Calls undeclared function! :
horse.get_name
string.len
Error occured on compile official_pets.quest

10/07/2012 15:51 xR3MiiXx#6954

PHP Code:


			
quest buffs3 begin
    state start begin
        when 71050.use begin
            if pc.getqf("dur") > get_time() then
            chat("Bewegungsgeschwindigkeit ist noch erh�ht.")
            return
            end
            pc.remove_item("71050", 1)
            cmdchat("pot2")
            affect.add_collect(apply.MOV_SPEED, 60, 60*10)
            pc.setqf("dur", get_time() + 60*10)
            chat("Deine Bewegungsgeschwindigkeit wurde f�r 10 Minuten um 60 erh�ht!")
        end
    end
end

Es ist keine Fehlermeldung .. Ingame kann ich den pott nur nicht einsetzen bitte um hilfe..

10/07/2012 17:27 Fliegex3#6955

Hast du dem Item Type 18 gegeben?

10/07/2012 18:16 Fuzzy111#6956

Bekomme immer den Fehler
expecting 'state'..
Bei den beiden Quests:
1. Quest

Spoiler

PHP Code:


			
quest lvl1startmission begin
    state start begin
        when login with pc.get_level() == 1 begin
            send_letter("Wie alles begann...")
        end
        when letter or info begin
            say_title("Biographie Ariv")
            say("Es begann in einer fern�stlichen Welt,")
            say("Ich war noch sehr jung. Ich betrat das Land")
            say("dessen Namen ich nicht nennen werde. Denn es")
            say("ist eine Schande dar�ber zu sprechen.")
            say("")
            say("Denn das Land wird gef�hrt vom B�sen")
            say("und die Einwohner merkten es nicht einmal,")
            say("Ich aber habe es gemerkt, und forderte die")
            say("freiheit f�r alles und jedem!.")
            wait()
            say("Doch um mir glauben zu erk�mpfen musste auch")
            say("ich ersteinmal Wildhunde t�ten.")
            say("")
            say_reward("T�te 20 Wildhunde")
            wait()
            return
        end    
        when wildhunde begin
            send_letter("T�te 20 Wildhunde")
        end    
        when wildhunde_letter begin
            say_title("T�te 20 Wildhunde")
            say("Mach dich an die Arbeit und t�te")
            say("20 Wildhunde.")
            wait()
            if npc.get_race == 101 then 
                pc.setqf("Wildhund", 20)
                q.set_counter("tot", 20)
                local count = pc.getqf("Wildhund") - 1
                if count <= 20 then
                    pc.setqf("Wildhund", count)
                    q.set_counter("tot", -count)
                end
                if count == 0 then
                    say("Du hast 20 Wildhunde get�tet!")
                    say("Sehr sch�n.")
                wait()
                return
            end
        end
    end
end

2. Quest:

Spoiler

PHP Code:


			
quest lvl5mission begin
    state start begin
        when login or levelup with pc.get_level() == 5 begin
            send_letter("Das Abenteuer")
        end
        when letter or info begin
            say_title("Biographie Ariv 2")
            say("Nach dem ich mir nun das Recht zu") 
            say("Sprechen/Rufen erk�mpft habe, begann ich")
            say("mit Nachforschungen des Landes und ihre")
            say("Anf�hrer.")
            say("")
            say("Ein paar hohe Krieger erz�hlten mir wie")
            say("es in dieser Welt wirklich ist...")
            say("Es war Grauenvoll.")
            wait()
            say_title("Biographie Ariv 2")
            say("Menschen werden dort als Nutzvieh gesehen,") 
            say("nur daf�r da die Reichen reicher zu machen.")
            say("sagte man was dagegen wurde man sofort") 
            say("verbannd. Auch ich wurde aus den ach so")
            say("glorreichen Land verbannd, doch dazu sp�ter.")
            say("Ich suchte mir Verb�ndete und wie sich")
            say("rausstellte fand ich diese auf der Levelwiese")
            say("recht schnell.")
            say("")
            say_reward("T�te 20 Wilde Bogensch�tze")
            wait()
            set_state(bogis)
            end
        end
        when bogis begin
            set_state(bogis_letter)
            send_letter("T�te 20 Bogensch�tzen")
        end
        when bogis_letter begin
            say_title("Biographie Ariv 2")
            say("Los, mach dich auf den Weg und")
            say("t�te 20 Wilde Bogensch�tzen")
            if npc.get_race == 503 then 
                pc.setqf("Bogis", 20)
                q.set_counter("tot2", 20)
                local count = pc.getqf("Bogis") - 1
                if count <= 20 then
                    pc.setqf("Bogis", count)
                    q.set_counter("tot2", -count)
                end
                if count == 0 then
                    say("Du hast 20 Wilde Bogensch�tzen get�tet!")
                    say("Sehr sch�n.")
                    wait()
                    set_state(ende)
                end
            end
        end
    end    
    state ende begin
    end
end

10/07/2012 18:32 xR3MiiXx#6957

Fliege ..

Ja habe ich aber es klappt nicht..

10/07/2012 18:46 .Despero�#6958

Kann mir einer so eine Quest schreiben ?

Das soll ein Userpanel Quest sein , womit man Lageroffnen kann , Itemshop-Lager und Reichsteleporter es soll in alle 3 Reiche Telepotieren. (Nur Map1)

10/07/2012 19:45 xR3MiiXx#6959

Weezy es hei�t Questkontrolle nicht Questschreiber .. aber denke es macht bestimmt einer :)

10/07/2012 20:46 xxThePumaxx#6960

Nabend, com unzwarf ne frage eher gesagt wei� nicht mehr weiter ..
ich m�chte in dieser quest einf�gen das ich mehrere items brauche um die quest abzuschlie�en .. vllt oder hoffentlich k�nnt ihr mir helfen

Code:

quest rustungen begin
	state start begin
		when 20020.chat."Du hast die Rustung gefunden!" with pc.countitem("51039")>=1 begin 
			say("Ich danke dir treuer Abenteurer.")
			say("eine tolle Belohnung.")
			say("M�chteset du die Belohnung jetzt haben ?")
			local b=select("Ja", "Nein")
			if 1==b then
				if pc.countitem("51039")>=1 then
					pc.removeitem("51039", 1)
					pc.give_item2("119", 1)
					say("Hier hast du eine Truhe.")
					say("Sie enth�lt tolle Dinge.")
					say("Wenn du mir mehr Gift beschaffst")
					say("bekommst du mehr Truhen!")
					say("Also mach dich auf den Weg!")
					say("")
				end
			elseif 2==b then
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end

quest voodoopuppe2 begin
	state start begin
		when 20020.chat."Ich brauche Gift!" begin
			say("Hallo Abenteurer.")
			say("Ich brauche viele Flaschen Gift f�r")
			say("meine Experimente! Wenn du so eine Flasche")
			say("findest bring sie mir bitte.")
			say_item_vnum(19)
			say_item_vnum(229)
			say("Man findet das Gift bei Metin Steinen und")
			say("den Bossen !")
			say("Du bekommst f�r jede Flasche eine Belohung!")
			say("")
			
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end

Page 464 of 845

464