[SERVICE] Die Questkontrolle

Page 623 of 845

623

12/04/2013 18:01 [Castro]#9331

Hallo Com
Ich habe ein Problem mit dem Befehl "WHEN KILL BEGIN".
Es geht bei den meisten Standard DE Mobs wie zB. Keiler oder Tiger etc.
Bei neu eingef�gten Mobs geht der Befehl jedoch nicht...

Ich benutze ihn wie folgt:

PHP Code:


			
quest test begin

    state start begin

        when kill with npc.get_race() == MOBVNUM begin

            chat("debug")

        end

    end

end

12/04/2013 18:05 AntikerGolem#9332

€: alles klar.. bin einfach zu dumm, funz. nun xD

12/04/2013 23:56 Jоe#9333

Quote:

Originally Posted by [Castro]

Hallo Com
Ich habe ein Problem mit dem Befehl "WHEN KILL BEGIN".
Es geht bei den meisten Standard DE Mobs wie zB. Keiler oder Tiger etc.
Bei neu eingef�gten Mobs geht der Befehl jedoch nicht...

Ich benutze ihn wie folgt:

PHP Code:

quest test begin state start begin when kill with npc.get_race() == MOBVNUM begin chat("debug") end end end

Probier's mal so:

PHP Code:


			
quest test begin
    state start begin
        when kill begin
            if npc.get_race() == MOBVNUM then
                            chat("debug")
                        end
        end
    end
end

12/05/2013 13:20 [Castro]#9334

Quote:

Originally Posted by Jоe

Probier's mal so:

PHP Code:

quest test begin state start begin when kill begin if npc.get_race() == MOBVNUM then chat("debug") end end end end

geht nicht.

12/05/2013 17:57 ExoBiTe�#9335

@[Castro]
Teste es mal so:

Code:

quest test begin 
    state start begin 
        when MOBVNUM.kill then 
            chat("debug") 
        end 
    end 
end

12/05/2013 20:26 [Castro]#9336

Quote:
Originally Posted by Streetkillah98
@[Castro]
Teste es mal so:
Code:
quest test begin 
    state start begin 
        when MOBVNUM.kill then 
            chat("debug") 
        end 
    end 
end

geht wie gesagt nur bei manchen mobs. Bei neu eingef�gten geht es weder mit :

PHP Code:


			
when kill with npc.get_race() == XXX

noch

PHP Code:


			
when XXX.kill begin

noch

when kill begin

PHP Code:


			
if npc.get_race() == XXX

12/05/2013 22:21 xXTyranXx#9337

Ich habe folgendes Problem mit der quest:
Dies steht in der VirtualBox
qc in malloc() error: allocation failed
Error occured on compile gemi.quest

Spoiler

12/06/2013 03:43 Legend2007#9338

Quote:

Originally Posted by xXTyranXx

Ich habe folgendes Problem mit der quest:
Dies steht in der VirtualBox
qc in malloc() error: allocation failed
Error occured on compile gemi.quest

Spoiler

quest shops begin
state start begin
when 9010.chat."Traenke-SHop" begin
say_title("Shop Tante:")
say("")
say("M�chtest du den Tr�nke-Shop �ffnen?")
local a = select("Ja", "Nein")

if a == 1 then
npc.open_shop(13)
else
return
end

when 9010.chat."Item-Shop" begin
say_title("Shop Tante:")
say("")
say("M�chtest du den Item-Shop �ffnen?")
local b = select("Ja", "Nein")

if b == 1 then
npc.open_shop(14)
else
return
end

when 9010.chat."Waffen" begin
say_title("Shop Tante:")
say("")
say("M�chtest du den Item-Shop �ffnen?")
local c = select("Ja", "Nein")

if c == 1 then
npc.open_shop(1)
else
return
end
when 9010.chat."R�stungen" begin
say_title("Shop Tante:")
say("")
say("M�chtest du den R�stungs Shop �ffnen?")
local d = select("Ja", "Nein")

if d == 1 then
npc.open_shop(4)
else
return
end

when 9010.chat."Schmuck" begin
say_title("Shop Tante:")
say("")
say("M�chtest du den Schmuck Shop �ffnen?")
local e = select("Ja", "Nein")

if e == 1 then
npc.open_shop(5)
else
return
end

when 9010.chat."Waffen2" begin
say_title("Shop Tante:")
say("")
say("M�chtest du den Waffen2 Shop �ffnen?")
local f = select("Ja", "Nein")

if f == 1 then
npc.open_shop(6)
else
return
end
end
end
end

Hast ein END vergessen.

quest shops begin
state start begin
when 9010.chat."Traenke-SHop" begin
say_title("Shop Tante:")
say("")
say("M�chtest du den Tr�nke-Shop �ffnen?")
local a = select("Ja", "Nein")

if a == 1 then
npc.open_shop(13)
else
return
end

----> END <----

when 9010.chat."Item-Shop" begin

---------------------------
Edit: Sehe grade das du den selben fehler mehrmals wiederholt hast.

12/06/2013 13:24 xXTyranXx#9339

Ok also unter jedem return
end noch mal ein end oder wie?

12/06/2013 15:37 ExoBiTe�#9340

Hey! Habe ne PvP Quest f�rn Server geschrieben bei der auch qc in malloc(): error: allocation failed kommt. Hier die Quest

Spoiler

Code:

quest PvPTurnier begin
	state start begin
		when 20092.chat with pc.is_gm() then
			if game.get_event_flag("PvPOffen") == 0 then
				local s = select("PvP Turnier Optionen", "Beenden")
				if s == 1 then
					say_title("PvP-Turnier Optionen")
					say("Was m�chtest du tun?")
					local o = select("PvPTurnier starten", "Beenden")
					if o == 1 then
						say("Welches Item soll der Gewinner erhalten?")
						win = tonumber (input()) or 0
						if win == 0 then
						say("Du musst schon was eingeben!")
						return
					end
				end
				else
					return
				end
				notice_all("Das PvP Turnier wurde soeben gestartet!")
				notice_all("Meldet euch bei NPCNAME um mitzumachen!")
				notice_all("Der Gewinn ist: "..item_name(win).."!")
				game.set_event_flag("PvPOffen", 1)
				game.set_event_flag("PvPAnmeldung", 1)
				end
			else
				local a = select("PvPTurnier Optionen", "Beenden")
				if a == 1 then
					say_title("PvPTurnier Optionen")
					say("Es l�uft bereits ein Event!")
					say("Bitte warte bis es zuende ist")
					return
				end
				else
					return
				end
			end
			if game.get_event_flag("PvPAnmeldung") == 0 then
				when 20092.chat then
				local b = select("PvP Turnier", "Beenden")
				if b == 1 then
					say_title("PvP Turnier")
					say("Es findet zurzeit kein PvP")
					say("Turnier statt!")
					say("")
					return
				end
				if b == 2 then
					return
				end
			else
				when 20092.chat then
				local d = select("PvP Turnier", "Beenden")
				if d == 1 then
					say_title("PvP Turnier")
					say("Es findet zurzeit ein PvP")
					say("Turnier statt! M�chtest du")
					say("teilnehmen? ")
					local c = select("Ja", "Nein")
					if c == 1 then
						pc.warp(44445978, 44445878)
						return
					end
					if c == 2 then
						return
					end
				else
					return
				end
				when 20092.chat with pc.is_gm() then
					local e = select("PvP Turnier", "Beenden")
					if e == 1 then
						say_title("PvP Turnier")
						say("Was m�chtest du tun?")
						local f = select("Zum Turnier warpen", "Turnier starten")
						if f == 1 then
							pc.warp(44445978, 44445878)
							return
						end
						if f == 2 then
							notice_all("Das PvP Event hat angefangen!")
							notice_all("Anmelden ist nun nicht mehr m�glich!")
							game.set_event_flag("PvPAnmeldung", 0)
						end
					end
				end
			end
		end
	end
end

12/07/2013 05:02 QR~#9341

Was ist an der Quest falsch? Ich sitz da schon paar Stunden dran, Tunnelblick.

PHP Code:


			
quest pvptunier begin

    state start begin

        -- Das PvP Tunier konfigurieren

        when 20011.chat."Konfiguration" with pc.is_gm() and game.get_event_flag("pvptunier") == 0 and game.get_event_flag("konfiguriert") == 0 begin

            say_title("Gr�� dich"..pc.get_name()..",")

            say("")

            say("M�chtest du das Tunier konfigurieren?")

            local conf = select("Ja", "Nein") 

            if conf == 2 then

                return

            else

                repeat

                    local sel = select("Mindestlevel", "Belohnungen", "Belohnungen anzeigen", "Beenden")

                    if sel == 1 then

                        say("Setzen Sie das Mindestlevel:")

                        inp = tonumber(input())

                        wait()

                        if inp != nil or inp > 1 or inp < 106 then

                            MINLEVEL = inp

                            say("Mindestlevel wurde erfolgreich auf"..MINLEVEL.."gesetzt.")

                        end

                    elseif sel == 2 then

                        say("Geben Sie die vnum's der Items ein, die vergeben werden sollen.")

                        say("Wenn Sie damit fertig sind, best�tigen sie Ihre Eingabe mit der 0.")

                        local p = tonumber(input())

                        while p != 0 do

                            PRICES = {}

                            table.insert(PRICES, p)

                        end        

                    elseif sel = 3 then

                        i = 0

                        say_reward("Belohnungen:")

                        while i < PRICES.len do

                            say(i..".)"..PRICES[i])

                            i = i + 1

                        end                            

                    end

                until sel ~= 4

            end

            game.set_event_flag("konfiguriert", 1)

        end

    end

end

12/07/2013 07:02 Jоe#9342

Spoiler

Quote:

Originally Posted by .DreamZ

Was ist an der Quest falsch? Ich sitz da schon paar Stunden dran, Tunnelblick.

PHP Code:

quest pvptunier begin state start begin -- Das PvP Tunier konfigurieren when 20011.chat."Konfiguration" with pc.is_gm() and game.get_event_flag("pvptunier") == 0 and game.get_event_flag("konfiguriert") == 0 begin say_title("Gr�� dich"..pc.get_name()..",") say("") say("M�chtest du das Tunier konfigurieren?") local conf = select("Ja", "Nein") if conf == 2 then return else repeat local sel = select("Mindestlevel", "Belohnungen", "Belohnungen anzeigen", "Beenden") if sel == 1 then say("Setzen Sie das Mindestlevel:") inp = tonumber(input()) wait() if inp != nil or inp > 1 or inp < 106 then MINLEVEL = inp say("Mindestlevel wurde erfolgreich auf"..MINLEVEL.."gesetzt.") end elseif sel == 2 then say("Geben Sie die vnum's der Items ein, die vergeben werden sollen.") say("Wenn Sie damit fertig sind, best�tigen sie Ihre Eingabe mit der 0.") local p = tonumber(input()) while p != 0 do PRICES = {} table.insert(PRICES, p) end elseif sel = 3 then i = 0 say_reward("Belohnungen:") while i < PRICES.len do say(i..".)"..PRICES[i]) i = i + 1 end end until sel ~= 4 end game.set_event_flag("konfiguriert", 1) end end end

Welche Fehlermeldung erh�ltst du?

12/07/2013 09:23 MrPlayboy#9343

PHP Code:


			
quest pvptunier begin 
    state start begin 
        -- Das PvP Tunier konfigurieren 
        when 20011.chat."Konfiguration" with pc.is_gm() == true and game.get_event_flag("pvptunier") == 0 and game.get_event_flag("konfiguriert") == 0 begin 
            say_title("Gr�� dich"..pc.get_name()..",") 
            say("") 
            say("M�chtest du das Tunier konfigurieren?") 
            local conf = select("Ja", "Nein")  
            if conf == 2 then 
                return 
            else 
                repeat 
                    local sel = select("Mindestlevel", "Belohnungen", "Belohnungen anzeigen", "Beenden") 
                    if sel == 1 then 
                        say("Setzen Sie das Mindestlevel:") 
                        inp = tonumber(input()) 
                        wait() 
                        if inp != nil or inp > 1 or inp < 106 then 
                            MINLEVEL = inp 
                            say("Mindestlevel wurde erfolgreich auf"..MINLEVEL.."gesetzt.") 
                        end 
                    elseif sel == 2 then 
                        say("Geben Sie die vnum's der Items ein, die vergeben werden sollen.") 
                        say("Wenn Sie damit fertig sind, best�tigen sie Ihre Eingabe mit der 0.") 
                        local p = tonumber(input()) 
                        while p != 0 do 
                            PRICES = {} 
                            table.insert(PRICES, p) 
                        end         
                    elseif sel == 3 then 
                        i = 0 
                        say_reward("Belohnungen:") 
                        while i < PRICES.len do 
                            say(i..".)"..PRICES[i]) 
                            i = i + 1 
                        end                             
                    end 
                until sel ~= 4 
            end 
            game.set_event_flag("konfiguriert", 1) 
        end 
    end 
end

So m�sste es gehen.

12/07/2013 09:39 Sp0ngeb0b ist cool#9344

Die wird so aber nicht funktionieren ;)

PHP Code:


			
quest pvptunier begin 
    state start begin 
        -- Das PvP Tunier konfigurieren 
        when 20011.chat."Konfiguration" with pc.is_gm() == true and game.get_event_flag("pvptunier") == 0 and game.get_event_flag("konfiguriert") == 0 begin 
            say_title("Gr�� dich"..pc.get_name()..",") 
            say("") 
            say("M�chtest du das Tunier konfigurieren?") 
            if select("Ja", "Nein") == 2 then return end  
            repeat 
                local sel = select("Mindestlevel", "Belohnungen", "Belohnungen anzeigen", "Beenden") 
                if sel == 1 then 
                    say("Setzen Sie das Mindestlevel:") 
                    local inp = tonumber(input()) 
                    wait() 
                    if inp > 1 and inp < 106 then 
                        MINLEVEL = inp 
                        say("Mindestlevel wurde erfolgreich auf"..MINLEVEL.."gesetzt.") 
                    end 
                elseif sel == 2 then 
                    say("Geben Sie die vnum's der Items ein, die vergeben werden sollen.") 
                    say("Wenn Sie damit fertig sind, best�tigen sie Ihre Eingabe mit der 0.") 
                    local p = 1
                    PRICES = {} 
                    while p != 0 do
                        local p = tonumber(input()) 
                        table.insert(PRICES, p) 
                    end         
                elseif sel == 3 then 
                    i = 0 
                    say_reward("Belohnungen:") 
                    while i < table.getn(PRICES) do 
                        say(i..".)"..PRICES[i]) 
                        i = i + 1                           
                    end 
                end    
            until sel == 4 
            game.set_event_flag("konfiguriert", 1) 
        end 
    end 
end

12/07/2013 10:43 SexStatus#9345

Abend Com.

Ich habe in dieser Quest nen Bl�den Error finde einfach den Fix nicht

Quest:

Spoiler

PHP Code:


			
quest achievement_update begin

    state start begin

        -- // shop

        when 20087.chat."Achievement Shop" begin

            local points = pc.getqf("achieve")

            

            

            local category = {"Waffen","R�stungen","Reittiere","Items","Truhen","Ringe"}

            

            local list = {

                -- Kategorie 1

                {

                --    Name           Vnum  reward points   

                    {"Schwert", 19, 1},

                    {"Dolch", 1009, 1},

                    {"Klinge", 3009, 1},

                },

                -- Kategorie 2

                {

                    {"Schwarzstahlpanzer+9", 11299, 75},

                    {"Schwarzwindanzug+9", 11499, 75},

                    {"Magieplattenpanzer+9", 11699, 75},

                    {"Schwarze Kleidung+9", 11899, 75},

                },

                -- Kategorie 3

                {

                    {"Lehrlings Keiler", 52001, 15},

                    {"Lehrlings Wolf", 52004, 30},

                    {"Lehrlings Tiger", 52010, 45},

                    {"Lehrlings Loewe", 52007, 60},

                },

                -- Kategorie 4

                {

                    {"St�ck Kristall", 30204, 100},

                    {"Wasserstein", 27991, 500},

                },

                -- Kategorie 5

                {

                    {"Mode Truhe M�nner", 100011, 75},

                    {"Mode Truhe Frauen", 100012, 75, 75},

                    {"Frisuren Truhe M�nner", 100013, 75},

                    {"Frisuren Truhe Frauen", 100014, 75},

                },

                -- Kategorie 6

                {

                    {"Halbmondring", 71135, 100},

                    {"Ring des Kampfes", 71143, 100},

                    {"Ring des Feuers", 71149, 100},

                    {"Ring des Wassers", 71148, 100},

                    {"Lolli", 71136, 100},

                }

            }

            

            

            local s = select3(category)

            local menu = {}

            for i = 1, table.getn(list[s]) do

                table.insert(menu, list[s][i][1])

            end

            say_title("Achievement Shop")

            say("W�hle ein Item aus:")

            say()

            local t = select3(menu)

            local reward_item = list[s][t][2]

            local reward_count = list[s][t][3]

            say_title("Achievement Shop")

            say_reward("Achievementpoints: "..points)

            say()

            say("Gew�hltes Item: "..item_name(reward_item))

            say_reward(string.format("Das Item kostet %d Achievementpoints", reward_count))

            say()

            if points < reward_count then

                return say("Du hast nicht gen�gend Achievementpoints")

            end

            if select("Eintauschen","Abbrechen") == 2 then return end

            pc.setqf("achieve", points - reward_count)

            pc.give_item2(reward_item)

        end

        

        

        -- // get points

        when login begin

            mob_data = {

            --  Vnum Points qf                cmdchat

                {3290, 10, "3290", "achievement ".. mob_name(3290) .."_get�tet#".. pc.getqf("3290") + 1  .."%".. pc.getqf("achieve") + 10},

                {3491, 20, "3491", "achievement ".. mob_name(3491) .."_get�tet#".. pc.getqf("3491") + 1  .."%".. pc.getqf("achieve") + 20},

                {3091, 40, "3091", "achievement ".. mob_name(3091) .."_get�tet#".. pc.getqf("3091") + 1  .."%".. pc.getqf("achieve") + 40},

                {3791, 30, "3791", "achievement ".. mob_name(3791) .."_get�tet#".. pc.getqf("3791") + 1  .."%".. pc.getqf("achieve") + 30},

                {3891, 50, "3891", "achievement ".. mob_name(3891) .."_get�tet#".. pc.getqf("3891") + 1  .."%".. pc.getqf("achieve") + 50},

                {3690, 30, "3690", "achievement ".. mob_name(3690) .."_get�tet#".. pc.getqf("3690") + 1  .."%".. pc.getqf("achieve") + 30},

                {3691, 30, "3691", "achievement ".. mob_name(3691) .."_get�tet#".. pc.getqf("3691") + 1  .."%".. pc.getqf("achieve") + 30},

                {3390, 40, "3390", "achievement ".. mob_name(3390) .."_get�tet#".. pc.getqf("3390") + 1  .."%".. pc.getqf("achieve") + 40},

                {3391, 40, "3391", "achievement ".. mob_name(3391) .."_get�tet#".. pc.getqf("3391") + 1  .."%".. pc.getqf("achieve") + 40},

                {3596, 50, "3596", "achievement ".. mob_name(3596) .."_get�tet#".. pc.getqf("3596") + 1  .."%".. pc.getqf("achieve") + 50},

            }

            item_data = {

                {12010, 5, "12010", "achievement Edelstein-Panzer%".. pc.getqf("achieve") + 5},

                {12020, 5, "12020", "achievement Edelstein-Anzug%".. pc.getqf("achieve") + 5},

                {12030, 5, "12030", "achievement Edelstein-Panzer%".. pc.getqf("achieve") + 5},

                {12040, 5, "12040", "achievement Edelstein-Kleid%".. pc.getqf("achieve") + 5},

                {42030, 5, "42030", "achievement Nebel-Panzer%".. pc.getqf("achieve") + 5},

                {44030, 5, "44030", "achievement Nebel-Anzug%".. pc.getqf("achieve") + 5},

                {46030, 5, "46030", "achievement Nebel-Panzer%".. pc.getqf("achieve") + 5},

                {48030, 5, "48030", "achievement Nebel-Kleid%".. pc.getqf("achieve") + 5},

                {42040, 5, "42040", "achievement Toxin-Panzer%".. pc.getqf("achieve") + 5},

                {44040, 5, "44040", "achievement Toxin-Anzug%".. pc.getqf("achieve") + 5},

                {46040, 5, "46040", "achievement Toxin-Panzer%".. pc.getqf("achieve") + 5},

                {48040, 5, "48040", "achievement Toxin-Kleid%".. pc.getqf("achieve") + 5},

                {42050, 5, "42050", "achievement Frost-Panzer%".. pc.getqf("achieve") + 5},

                {44050, 5, "44050", "achievement Frost-Anzug%".. pc.getqf("achieve") + 5},

                {46050, 5, "46050", "achievement Frost-Panzer%".. pc.getqf("achieve") + 5},

                {48050, 5, "48050", "achievement Frost-Kleid%".. pc.getqf("achieve") + 5},

            }

            level_data = {

            -- Level points qf      cmdchat

                {5, 5, "level5", "achievement Level_5_erreicht%".. pc.getqf("achieve") + 5},

                {30, 5, "level30", "achievement Level_30_erreicht%".. pc.getqf("achieve") + 5},

                {50, 5, "level50", "achievement Level_50_erreicht%".. pc.getqf("achieve") + 5},

                {70, 5, "level70", "achievement Level_70_erreicht%".. pc.getqf("achieve") + 5},

                {80, 5, "level80", "achievement Level_80_erreicht%".. pc.getqf("achieve") + 5},

                {90, 5, "level90", "achievement Level_90_erreicht%".. pc.getqf("achieve") + 5},

                {100, 5, "level100", "achievement Level_100_erreicht%".. pc.getqf("achieve") + 5},

                {110, 10, "level110", "achievement Level_110_erreicht%".. pc.getqf("achieve") + 10},

                {120, 20, "level120", "achievement Level_120_erreicht%".. pc.getqf("achieve") + 20},

                {130, 30, "level130", "achievement Level_130_erreicht%".. pc.getqf("achieve") + 30},

                {140, 40, "level140", "achievement Level_140_erreicht%".. pc.getqf("achieve") + 40},

                {150, 50, "level150", "achievement Level_150_erreicht%".. pc.getqf("achieve") + 50},

            }

        end

        when kill with not npc.is_pc() begin

            local vid = npc.get_vid()

            local function in_table(arg)

                for i = 1, table.getn(mob_data) do

                    if mob_data[i][1] == arg then

                        return i

                    end

                end

                return false

            end

            local d = in_table(vid)

            if d ~= false then

                pc.setqf(mob_data[d][3], pc.getqf(mob_data[d][3]) + tonumber(mob_data[d][2]))

                cmdchat(mob_data[d][4])

            end

        end

        when use begin

            local vnum = item.get_vnum()

            local function in_table(arg)

                for i = 1, table.getn(mob_data) do

                    if mob_data[i][1] == arg then

                        return i

                    end

                end

                return false

            end

            local d = in_table(vnum)

            if d ~= false and pc.getqf(tostring(item_data[d][3]) == 0 then

                pc.setqf(item_data[d][3], 1)

                pc.setqf(item_data[d][3], pc.getqf(item_data[d][3]) + tonumber(item_data[d][2]))

                cmdchat(item_data[d][4])

            end

        end

        when levelup begin

            local lvl = pc.get_level()

            local function in_table(arg)

                for i = 1, table.getn(mob_data) do

                    if mob_data[i][1] == arg then

                        return i

                    end

                end

                return false

            end

            local d = in_table(lvl)

            if d ~= false and pc.getqf(tostring(level_data[d][3]) == 0 then

                pc.setqf(level_data[d][3], 1)

                pc.setqf(level_data[d][3], pc.getqf(level_data[d][3]) + tonumber(level_data[d][2]))

                cmdchat(level_data[d][4])

            end

        end

    end

end

Error:

Page 623 of 845

623