[SERVICE] Die Questkontrolle

Page 706 of 845

706

10/26/2014 07:20 foxyfoxtrod#10576

Spoiler

Quote:

Originally Posted by Bercol

Code:

quest halloween begin
    state start begin
        when 30123.chat."Halloween Event" with pc.is_gm() begin
            if game.get_event_flag("k�rbisse_drop") == 0 then
                say("Das Event ist gerade nicht Aktiv.")
                say("Willst du es Aktivieren?")
                local s = select ("Ja", "Nein")
                if s == 1 then
                    say("Halloween Event wurde aktiviert!")
                    game.set_event_flag("moon_drop", 1)
                    notice_all("Das Halloween Event wurde aktiviert!")
                else
                    return
                end
            else
                say("Das Halloween Event ist aktiviert.")
                say("M�chtest du es deaktivieren?")
                local s = select("Ja","Nein")
              if s == 1 then
                    say("Das Halloween Event wurde deaktiviert!")
                    game.set_event_flag("moon_drop", 0)
                    notice_all("Das Halloween Event wurde deaktiviert!")
                else
                    return
                end
            end
            say_title ("Sei gegr�sst, "..pc.get_name().."!")
            say ("Das Halloween-Event hat begonnen und jetzt")
            say ("heisst es, dass jeder Spieler die Chance hat,")
            say ("etwas Besonderes zu gewinnen.")
            say ("Als Alternativ-Drop wurden K�rbisse aktiviert,")
            say ("die man von jedem Monster erhalten kann.")
            say ("Daher solltest du diese gut aufbewahren, denn")
            say ("man bekommt am Ende eine kleine �berraschung.")
            say ("Man kann ab 30 K�rbise bis 200 St�ck etwas gewinnen.")
            wait()
            say_title ("Ab Bestimmter Anzahl von K�rbissen:")
            say ("")
            say_reward ("30 = Drachenkralle und Drachenschuppe")
            say_reward ("50 = 20 Fb Truhen und 10 Seelensteine.")
            say_reward ("100 = 1 Regenbogenstein")
            say_reward ("150 = 6 Perlen jeder Sorte")
            say_reward ("200 = Halbmondring und Lolli")
        end
        when 30123.chat."K�rbisse tauschen" with pc.count_item(50095) >= 5 begin
            say_title (""..pc.get_name()..":")
            say ("Ich habe K�rbisse und m�chte diese tauschen.")
            local a = select ("30 K�rbisse", "50 K�rbisse", "100 K�rbisse", "150 K�rbisse", "200 K�rbisse", "Abbrechen")
            if a == 1 then
                if pc.count_item(50095) >= 30 then
                    pc.give_item2(71123, 1)
                    pc.give_item2(71129, 1)
                    pc.remove_item(50095, 30)
                else
                    say ("Du hast zu wenig kuerbise")
                end
            elseif a == 2 then
                if pc.count_item(50095) >= 50 then
                    pc.give_item2(50179, 20)
                    pc.give_item2(50513, 10)
                    pc.remove_item(50095, 50)    
                else 
                     say ("Du hast du wenig kuerbise")
                 end

             elseif a == 3 then
                 if pc.count_item(50095) >= 100 then 
                     pc.give_item2(50512, 1)
                     pc.remove_item(50095, 100)
                 else
                     say("Du hast zu wenig Kuerbise")
                 end
             elseif a == 4 then
                if pc.count_item(50095) >= 150
                    pc.give_item2(27992, 6)
					pc.give_item2(27993, 6)
					pc.give_item2(27994, 6)
                    pc.remove_item(50095, 150)
                else
                    say("Du hast zuwenig kuerbise")
                end
             elseif a == 5 then
                 if pc.count_item(50095) >= 200 then
                     pc.give_item2(71135, 1)
					 pc.give_item2(71136, 1)
                     pc.remove_item(50095, 200)
                end
            end
        end
    end
end

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

K�rbisse sollen auch als alternativdrop sein.

Das ist nicht all zu schwer. Im Screenshot siehst du schon deinen Fehler: Du hast ein "then" vergessen bei elseif a =0 4

Code:

elseif a == 4 then
                if pc.count_item(50095) >= 150 then
                    pc.give_item2(27992, 6)
					pc.give_item2(27993, 6)
					pc.give_item2(27994, 6)
                    pc.remove_item(50095, 150)
                else
                    say("Du hast zuwenig kuerbise")
                end

10/26/2014 11:57 Bercol#10577

Quote:
Originally Posted by foxyfoxtrod
Spoiler

Das ist nicht all zu schwer. Im Screenshot siehst du schon deinen Fehler: Du hast ein "then" vergessen bei elseif a =0 4
Code:
elseif a == 4 then
                if pc.count_item(50095) >= 150 then
                    pc.give_item2(27992, 6)
					pc.give_item2(27993, 6)
					pc.give_item2(27994, 6)
                    pc.remove_item(50095, 150)
                else
                    say("Du hast zuwenig kuerbise")
                end

Jetzt l�dt er die Quest nicht vollst�ndig.

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

10/26/2014 13:53 foxyfoxtrod#10578

Quote:

Originally Posted by Bercol

Jetzt l�dt er die Quest nicht vollst�ndig.

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

Ich bin jetzt nicht so der Profi, aber ich w�rde vermuten, dass es daran liegt, dass du ein Vergleich in einem Vergleich hast. "when" hei�t ja "wenn" und dann ist da drin noch ein "wenn" [pc.count_item(50095) >= 5].

Versuch es mal statt dessen mit einem "und":

Spoiler

Oder mach eine If Klausel darau�:

Spoiler

10/26/2014 15:25 Skizz345#10579

Code:

quest regenbogen begin
    state start begin
            when 50512.use  begin
                        
            local delay = 600
                   if get_global_time() - pc.getqf("time") < delay and pc.getqf("time") != 0 then
                        return
                   else
                        pc.setqf("time", get_global_time())
                        say_title("Regenbogenstein:")
                        say("Du m�chtest also deine Skills auf")
                        say("Perfekter-Meister setzen?")
                        
                        if pc.job ==0 then
                        say("W�hle deine Lehre aus")
                        
                        local s=select("K�rper","Mental")
                        
                        if s==1 then
                        --K�rper
                        pc.set_skill_group(1)
                        pc.set_skill_level(1 ,59)
                        pc.set_skill_level(2 ,59)
                        pc.set_skill_level(3 ,30)
                        pc.set_skill_level(4 ,59)
                        pc.set_skill_level(5 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Mentalo
                        pc.set_skill_group(2)
                        pc.set_skill_level(16 ,59)
                        pc.set_skill_level(17 ,59)
                        pc.set_skill_level(18 ,59)
                        pc.set_skill_level(19 ,59)
                        pc.set_skill_level(20 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        elseif pc.job ==1 then
                        say("W�hle deine Lehre aus")
                        
                        local s=select("Nahkampf","Bogen")
                        
                        if s==1 then
                        --Nahkampf
                        pc.set_skill_group(3)
                        pc.set_skill_level(31 ,59)
                        pc.set_skill_level(32 ,59)
                        pc.set_skill_level(33 ,59)
                        pc.set_skill_level(34 ,59)
                        pc.set_skill_level(35 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Fernkampf
                        pc.set_skill_group(4)
                        pc.set_skill_level(46 ,59)
                        pc.set_skill_level(47 ,59)
                        pc.set_skill_level(48 ,59)
                        pc.set_skill_level(49 ,59)
                        pc.set_skill_level(50 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        elseif pc.job ==2 then
                        say("W�hle deine Lehre aus")
                        local s=select("Magie","Waffe")
                        
                        if s==1 then
                        --Magie
                        pc.set_skill_group(5)
                        pc.set_skill_level(76 ,59)
                        pc.set_skill_level(77 ,59)
                        pc.set_skill_level(78 ,59)
                        pc.set_skill_level(79 ,59)
                        pc.set_skill_level(80 ,59)
                        pc.set_skill_level(81, 59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Waffe
                        pc.set_skill_group(6)
                        pc.set_skill_level(61 ,59)
                        pc.set_skill_level(62 ,59)
                        pc.set_skill_level(63 ,59)
                        pc.set_skill_level(64 ,59)
                        pc.set_skill_level(65 ,59)
                        pc.set_skill_level(66 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        elseif pc.job ==3 then
                        say("W�hle deine Lehre aus")
                        local s=select("Heil","Drachen")
                        
                        if s==1 then
                        --Heil
                        pc.set_skill_group(7)
                        pc.set_skill_level(106 ,59)
                        pc.set_skill_level(107 ,59)
                        pc.set_skill_level(108 ,59)
                        pc.set_skill_level(109 ,59)
                        pc.set_skill_level(110 ,59)
                        pc.set_skill_level(111 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Drachen
                        pc.set_skill_group(8)
                        pc.set_skill_level(91 ,59)
                        pc.set_skill_level(92 ,59)
                        pc.set_skill_level(93 ,59)
                        pc.set_skill_level(94 ,59)
                        pc.set_skill_level(95 ,59)
                        pc.set_skill_level(96 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
				end
			end
		end
	end
end

wenn ich den Regenbogenstein anklicke verschwindet dieser und keine skills werden auf P gestellt

k�nnt ihr da mal dr�ber schauen was ich da falsch gemacht hab ?

mfg

10/26/2014 23:00 x'Radon#10580

#erledigt

10/27/2014 15:11 foxyfoxtrod#10581

Quote:

Originally Posted by Skizz345

Spoiler

Code:

quest regenbogen begin
    state start begin
            when 50512.use  begin
                        
            local delay = 600
                   if get_global_time() - pc.getqf("time") < delay and pc.getqf("time") != 0 then
                        return
                   else
                        pc.setqf("time", get_global_time())
                        say_title("Regenbogenstein:")
                        say("Du m�chtest also deine Skills auf")
                        say("Perfekter-Meister setzen?")
                        
                        if pc.job ==0 then
                        say("W�hle deine Lehre aus")
                        
                        local s=select("K�rper","Mental")
                        
                        if s==1 then
                        --K�rper
                        pc.set_skill_group(1)
                        pc.set_skill_level(1 ,59)
                        pc.set_skill_level(2 ,59)
                        pc.set_skill_level(3 ,30)
                        pc.set_skill_level(4 ,59)
                        pc.set_skill_level(5 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Mentalo
                        pc.set_skill_group(2)
                        pc.set_skill_level(16 ,59)
                        pc.set_skill_level(17 ,59)
                        pc.set_skill_level(18 ,59)
                        pc.set_skill_level(19 ,59)
                        pc.set_skill_level(20 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        elseif pc.job ==1 then
                        say("W�hle deine Lehre aus")
                        
                        local s=select("Nahkampf","Bogen")
                        
                        if s==1 then
                        --Nahkampf
                        pc.set_skill_group(3)
                        pc.set_skill_level(31 ,59)
                        pc.set_skill_level(32 ,59)
                        pc.set_skill_level(33 ,59)
                        pc.set_skill_level(34 ,59)
                        pc.set_skill_level(35 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Fernkampf
                        pc.set_skill_group(4)
                        pc.set_skill_level(46 ,59)
                        pc.set_skill_level(47 ,59)
                        pc.set_skill_level(48 ,59)
                        pc.set_skill_level(49 ,59)
                        pc.set_skill_level(50 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        elseif pc.job ==2 then
                        say("W�hle deine Lehre aus")
                        local s=select("Magie","Waffe")
                        
                        if s==1 then
                        --Magie
                        pc.set_skill_group(5)
                        pc.set_skill_level(76 ,59)
                        pc.set_skill_level(77 ,59)
                        pc.set_skill_level(78 ,59)
                        pc.set_skill_level(79 ,59)
                        pc.set_skill_level(80 ,59)
                        pc.set_skill_level(81, 59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Waffe
                        pc.set_skill_group(6)
                        pc.set_skill_level(61 ,59)
                        pc.set_skill_level(62 ,59)
                        pc.set_skill_level(63 ,59)
                        pc.set_skill_level(64 ,59)
                        pc.set_skill_level(65 ,59)
                        pc.set_skill_level(66 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        elseif pc.job ==3 then
                        say("W�hle deine Lehre aus")
                        local s=select("Heil","Drachen")
                        
                        if s==1 then
                        --Heil
                        pc.set_skill_group(7)
                        pc.set_skill_level(106 ,59)
                        pc.set_skill_level(107 ,59)
                        pc.set_skill_level(108 ,59)
                        pc.set_skill_level(109 ,59)
                        pc.set_skill_level(110 ,59)
                        pc.set_skill_level(111 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
                        
                        if s==2 then
                        --Drachen
                        pc.set_skill_group(8)
                        pc.set_skill_level(91 ,59)
                        pc.set_skill_level(92 ,59)
                        pc.set_skill_level(93 ,59)
                        pc.set_skill_level(94 ,59)
                        pc.set_skill_level(95 ,59)
                        pc.set_skill_level(96 ,59)
                        say("Deine Skills sind auf Perfekter Meister")
                        end
						pc.remove_item(50512, 1)
				end
			end
		end
	end
end

wenn ich den Regenbogenstein anklicke verschwindet dieser und keine skills werden auf P gestellt

k�nnt ihr da mal dr�ber schauen was ich da falsch gemacht hab ?

mfg

Wenn ich mich nicht irre wird dein Item gel�scht, ganz gleich ob du in die IF rein gehst oder nicht. Es steht au�erhalb jeglicher Abfrage. Mach's mal in die IF rein!

10/27/2014 16:59 Skizz345#10582

Spoiler

wenn ich als neu char einloge kommt die quest ihrgentwie nicht komme einfach nicht drauf wo der fehler da ist
mfg

10/27/2014 17:44 Kullanici123#10583

Hey,

ich habe ein kleines Probelm. Ich habe meinem Reittier Bonis gegeben. Nur leider lassen sich die Bonis stapeln und werden nicht gel�scht wie sie es eigentlich sollten.

Hier meine Quest:

PHP Code:


			
quest mounton5 begin

    state start begin

        when 30003.use with pc.getqf("mounton") == 0 begin

            chat("Du hast nun f�r 30 Minuten 400 Agriffswert erhalten!")

            affect.remove_collect()  

            pc.mount(20136, 1800)

            affect.add_collect(apply.ATT_GRADE_BONUS,400,1800)

            pc.setqf("mounton",1)

        end

        when 30003.use with pc.getqf("mounton") == 1 begin

            pc.unmount()

            pc.setqf("mounton",0)

        end

    end

end

10/27/2014 19:18 DerForenLeser#10584

Quote:

Originally Posted by Kullanici123

Hey,

ich habe ein kleines Probelm. Ich habe meinem Reittier Bonis gegeben. Nur leider lassen sich die Bonis stapeln und werden nicht gel�scht wie sie es eigentlich sollten.

Hier meine Quest:

PHP Code:

quest mounton5 begin state start begin when 30003.use with pc.getqf("mounton") == 0 begin chat("Du hast nun f�r 30 Minuten 400 Agriffswert erhalten!") affect.remove_collect() pc.mount(20136, 1800) affect.add_collect(apply.ATT_GRADE_BONUS,400,1800) pc.setqf("mounton",1) end when 30003.use with pc.getqf("mounton") == 1 begin pc.unmount() pc.setqf("mounton",0) end end end

PHP Code:


			
quest mounton5 begin

    state start begin

        when 30003.use with pc.getqf("mounton") == 0 begin

            chat("Du hast nun f�r 30 Minuten 400 Agriffswert erhalten!")

            affect.remove_collect()  

            pc.mount(20136, 1800)

            affect.add_collect(apply.ATT_GRADE_BONUS,400,1800)

            pc.setqf("mounton",1)

        end

        when 30003.use with pc.getqf("mounton") == 1 begin

            pc.unmount()

            pc.setqf("mounton",0)

            affect.remove_clollect(apply.ATT_GRADE_BONUS,400,1800)

        end

    end

end

M�sste es sein.

10/27/2014 19:35 Kullanici123#10585

Quote:

Originally Posted by DerForenLeser

PHP Code:

quest mounton5 begin state start begin when 30003.use with pc.getqf("mounton") == 0 begin chat("Du hast nun f�r 30 Minuten 400 Agriffswert erhalten!") affect.remove_collect() pc.mount(20136, 1800) affect.add_collect(apply.ATT_GRADE_BONUS,400,1800) pc.setqf("mounton",1) end when 30003.use with pc.getqf("mounton") == 1 begin pc.unmount() pc.setqf("mounton",0) affect.remove_clollect(apply.ATT_GRADE_BONUS,400,1800) end end end

M�sste es sein.

Sry du hattest nen schreibfehler drin ist mir grade aufgefallen :DD geht doch vielen dank

10/28/2014 16:42 MuffinCore#10586

PHP Code:


			
quest drops begin  
    state start begin  
        function ab()  
            local ju = {  
                --mob-id--min-level--max-level---item-anzahl---prozent---item-id's----prozentuale ver�nderung pro level  
                {101,    1,    15,    1,    100,17060,    100,16060,    1},  
                {102,    1,    15,    1,    100,30028,    1},  
                {103,    1,    15,    1,    100,30028,    1},  
            }  
            return ju  
        end  
        when kill with not npc.is_pc() begin  
            local boni,lck,per,luck,bsp = 0,0,0,0,drops.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  
                            game.drop_item_with_ownership(bsp[i][luck], 1)  -- Hier
                        end  
                    end  
                end  
            end  
        end  
    end  
end

Versuche alle Drops �ber eine Quest laufen zu lassen da meine MobDrop nicht geht ... kann mir vllt jemand helfen

10/28/2014 19:44 Darryus98#10587

Hallo
Ich habe ein kleines Problem mit einem Warpquest

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

Hier ist die Quest :D

Spoiler

Code:

quest teleport begin
	state start begin
		when 70007.use begin
			say_title("Inelul teleportarii")
			say("")
			local s = select("Map1", "Map2", "Valea Orcilor", "Desertul-Yongbi", "Muntele Sohan", "Tara de foc", "Turnul demonilor", "Padurea fantomelor", "Padurea rosie", "Temnita paianjenilor", "Grota exilului", "Tara gigantilor", "Raman aici")
				if s == 1 then
					say_title("Inelul teleportarii")
					local reich = select("Regatul Rosu", "Regatul Galben", "Regatul Albastru", "Inapoi")
					if reich == 1 then
						pc.warp(474300, 954500)
					elseif reich == 2 then
						pc.warp(63800, 166200)
					elseif reich == 3 then
						pc.warp(959600, 269100)
					elseif reich == 4 then
					return
					end
				elseif s == 2 then
					say_title("Inelul teleportarii")
					local reich2 = select("Regatul Rosu", "Regatul Galben" ,"Regatul Albastru" ,"Inapoi")
					if reich2 == 1 then
						pc.warp(353100, 882900)
					elseif reich2 == 2 then
						pc.warp(145500, 240000)
					elseif reich2 == 3 then
						pc.warp(863900, 246000)
					elseif reich2 == 4 then
					return
					end
				elseif s == 3 then
					say_title("Inelul teleportarii") 
					local otselect = select("Inceput","Mijloc","Inapoi")
					if otselect == 3 then
						return
					elseif otselect == 1 then
					if empire == 1 then
						pc.warp(402100, 673900)
					elseif empire == 2 then
						pc.warp(270400, 739900)
					elseif empire == 3 then
						pc.warp(321300, 808000)
					end
					elseif otselect == 2 then
						pc.warp(332800, 745600)
					end
				elseif selectmap == 4 then
					say_title("Inelul teleportarii") 
					local wuesteselect = select("Inceput","Mijloc","Inapoi")
					if wuesteselect == 3 then
						return
					elseif wuesteselect == 1 then
					if empire == 1 then
						pc.warp(217800, 627200)
					elseif empire == 2 then
						pc.warp(221900, 502700)
					elseif empire == 3 then
						pc.warp(344000, 502500)
					end
					elseif wuesteselect == 2 then
						pc.warp(296800, 547100)
					end
				elseif selectmap == 5 then
					say_title("Inelul teleportarii") 
					local eisselect = select("Inceput","Mijloc","Inapoi")
					if eisselect == 3 then
						return
					elseif eisselect == 1 then
					if empire == 1 then
						pc.warp(434200, 290600)
					elseif empire == 2 then
						pc.warp(375200, 174900)
					elseif empire == 3 then
						pc.warp(491800, 173600)
					end
					elseif eisselect == 2 then
						pc.warp(436500, 215400)
					end
				elseif selectmap == 6 then
					say_title("Inelul teleportarii") 
					local feuerselect = select("Inceput","Mijloc","Inapoi")
					if feuerselect == 3 then
						return
					elseif feuerselect == 1 then
					if empire == 1 then
						pc.warp(599400, 756300)
					elseif empire == 2 then
						pc.warp(597800, 622200)
					elseif empire == 3 then
						pc.warp(730700, 689800)
					end
					elseif feuerselect == 2 then
						pc.warp(600800, 687100)
					end
				elseif selectmap == 7 then
					say_title("Inelul teleportarii") 
						pc.warp(590500,110800)
					end
				elseif selectmap == 8 then
					say_title("Inelul teleportarii") 
					local geisterselect = select("Inceput","Sfarsit","Inapoi")
					if geisterselect == 3 then
						return
					elseif geisterselect == 1 then
						pc.warp(290500,5700)
					elseif geisterselect == 2 then
						pc.warp(286400,44200)
					end
				elseif selectmap == 9 then
					say_title("Inelul teleportarii") 
					local roterselect = select("Inceput","Sfarsit","Inapoi")
					if roterselect == 3 then
						return
					elseif roterselect == 1 then
						pc.warp(1119900,70800)
					elseif geisterselect == 2 then
						pc.warp(1119100,7700)
					end
				elseif selectmap == 10 then
					say_title("Inelul teleportarii") 
						pc.warp(91700, 525300)
					end
				elseif selectmap == 11 then
					say_title("Inelul teleportarii") 
						pc.warp(271800, 1300)
					end
				elseif selectmap == 12 then
					say_title("Inelul teleportarii") 
						pc.warp(819200, 716800)
					end
						end
							end
								end
									end
										end

10/29/2014 01:37 foxyfoxtrod#10588

Quote:

Originally Posted by Darryus98

Hallo
Ich habe ein kleines Problem mit einem Warpquest

Hier ist die Quest :D

Spoiler

Code:

quest teleport begin
	state start begin
		when 70007.use begin
			say_title("Inelul teleportarii")
			say("")
			local s = select("Map1", "Map2", "Valea Orcilor", "Desertul-Yongbi", "Muntele Sohan", "Tara de foc", "Turnul demonilor", "Padurea fantomelor", "Padurea rosie", "Temnita paianjenilor", "Grota exilului", "Tara gigantilor", "Raman aici")
				if s == 1 then
					say_title("Inelul teleportarii")
					local reich = select("Regatul Rosu", "Regatul Galben", "Regatul Albastru", "Inapoi")
					if reich == 1 then
						pc.warp(474300, 954500)
					elseif reich == 2 then
						pc.warp(63800, 166200)
					elseif reich == 3 then
						pc.warp(959600, 269100)
					elseif reich == 4 then
					return
					end
				elseif s == 2 then
					say_title("Inelul teleportarii")
					local reich2 = select("Regatul Rosu", "Regatul Galben" ,"Regatul Albastru" ,"Inapoi")
					if reich2 == 1 then
						pc.warp(353100, 882900)
					elseif reich2 == 2 then
						pc.warp(145500, 240000)
					elseif reich2 == 3 then
						pc.warp(863900, 246000)
					elseif reich2 == 4 then
					return
					end
				elseif s == 3 then
					say_title("Inelul teleportarii") 
					local otselect = select("Inceput","Mijloc","Inapoi")
					if otselect == 3 then
						return
					elseif otselect == 1 then
					if empire == 1 then
						pc.warp(402100, 673900)
					elseif empire == 2 then
						pc.warp(270400, 739900)
					elseif empire == 3 then
						pc.warp(321300, 808000)
					end
					elseif otselect == 2 then
						pc.warp(332800, 745600)
					end
				elseif selectmap == 4 then
					say_title("Inelul teleportarii") 
					local wuesteselect = select("Inceput","Mijloc","Inapoi")
					if wuesteselect == 3 then
						return
					elseif wuesteselect == 1 then
					if empire == 1 then
						pc.warp(217800, 627200)
					elseif empire == 2 then
						pc.warp(221900, 502700)
					elseif empire == 3 then
						pc.warp(344000, 502500)
					end
					elseif wuesteselect == 2 then
						pc.warp(296800, 547100)
					end
				elseif selectmap == 5 then
					say_title("Inelul teleportarii") 
					local eisselect = select("Inceput","Mijloc","Inapoi")
					if eisselect == 3 then
						return
					elseif eisselect == 1 then
					if empire == 1 then
						pc.warp(434200, 290600)
					elseif empire == 2 then
						pc.warp(375200, 174900)
					elseif empire == 3 then
						pc.warp(491800, 173600)
					end
					elseif eisselect == 2 then
						pc.warp(436500, 215400)
					end
				elseif selectmap == 6 then
					say_title("Inelul teleportarii") 
					local feuerselect = select("Inceput","Mijloc","Inapoi")
					if feuerselect == 3 then
						return
					elseif feuerselect == 1 then
					if empire == 1 then
						pc.warp(599400, 756300)
					elseif empire == 2 then
						pc.warp(597800, 622200)
					elseif empire == 3 then
						pc.warp(730700, 689800)
					end
					elseif feuerselect == 2 then
						pc.warp(600800, 687100)
					end
				elseif selectmap == 7 then
					say_title("Inelul teleportarii") 
						pc.warp(590500,110800)
					end
				elseif selectmap == 8 then
					say_title("Inelul teleportarii") 
					local geisterselect = select("Inceput","Sfarsit","Inapoi")
					if geisterselect == 3 then
						return
					elseif geisterselect == 1 then
						pc.warp(290500,5700)
					elseif geisterselect == 2 then
						pc.warp(286400,44200)
					end
				elseif selectmap == 9 then
					say_title("Inelul teleportarii") 
					local roterselect = select("Inceput","Sfarsit","Inapoi")
					if roterselect == 3 then
						return
					elseif roterselect == 1 then
						pc.warp(1119900,70800)
					elseif geisterselect == 2 then
						pc.warp(1119100,7700)
					end
				elseif selectmap == 10 then
					say_title("Inelul teleportarii") 
						pc.warp(91700, 525300)
					end
				elseif selectmap == 11 then
					say_title("Inelul teleportarii") 
						pc.warp(271800, 1300)
					end
				elseif selectmap == 12 then
					say_title("Inelul teleportarii") 
						pc.warp(819200, 716800)
					end
						end
							end
								end
									end
										end

Warum hast du denn "return" UND "end" in einigen Schleifen? Return bringt dich aus der IF, bzw elseif raus, damit ist das "end" dann auch �berfl�ssig. :)

Des weiteren:

Code:

say_title("Inelul teleportarii") 
					local roterselect = select("Inceput","Sfarsit","Inapoi")
					if roterselect == 3 then
						return
					elseif roterselect == 1 then
						pc.warp(1119900,70800)
					elseif geisterselect == 2 then
						pc.warp(1119100,7700)
					end

Einmal ganz genau, Wort f�r Wort lesen bitte :)

Au�erdem:

Code:

local s = select [...]

UND

Code:

elseif selectmap == 4 then [...]

Woher hast du denn selectmap? :confused: :confused:

Vielleicht ist es schon sp�t und du machst das lieber einmal morgen oder am besten ganz von vorne anfangen, da sind mehr Fehler, als man z�hlen kann :D

10/29/2014 01:40 Dyshaxo#10589

Yoar.

Spoiler

und fehler:

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

10/29/2014 01:41 foxyfoxtrod#10590

Quote:

Originally Posted by MuffinCore

Spoiler

PHP Code:

quest drops begin state start begin function ab() local ju = { --mob-id--min-level--max-level---item-anzahl---prozent---item-id's----prozentuale ver�nderung pro level {101, 1, 15, 1, 100,17060, 100,16060, 1}, {102, 1, 15, 1, 100,30028, 1}, {103, 1, 15, 1, 100,30028, 1}, } return ju end when kill with not npc.is_pc() begin local boni,lck,per,luck,bsp = 0,0,0,0,drops.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 game.drop_item_with_ownership(bsp[i][luck], 1) -- Hier end end end end end end end

Versuche alle Drops �ber eine Quest laufen zu lassen da meine MobDrop nicht geht ... kann mir vllt jemand helfen

Ich glaube das funktioniert deshalb nicht, weil du f�r "kill" einen Freund brauchst. "Kill" kann nicht alleine stehen. Kurze Frage mal: Warum geht deine MobDrop nicht?

Quote:

Originally Posted by DaisukeBanned

Yoar.

Spoiler

PHP Code:

state choosen begin when enter begin say_title("Du bist ein Meister deiner Ausbildung.") say("") say("Folge dem Weg zu einem Portal.") set_state(warp) end end state warp begin when enter begin if pc.get_y() > 165+1 or pc.get_x() < 146+1 or pc.get_x() > 138+1 then pc.warp(16300, 12374100) end end

und fehler:

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

Kannst du dazu mal die Stelle raus suchen, wo "nested" steht, bzw am besten die ganze Quest Posten: [Only registered and activated users can see links. Click Here To Register...]. Assertion Failure hei�t in der Regel, dass er Versucht etwas mit dem Wert zu assoziieren, das hei�t es wird etwas gerufen, was nicht da ist.

Page 706 of 845

706