[SERVICE] Die Questkontrolle

Page 707 of 845

707

10/29/2014 01:52 Dyshaxo#10591

Quest:

Spoiler

Problem:

Aus irgendeinem Grund f�hrt er im state "dungeon" das "when login" nicht aus

10/30/2014 01:43 r3dn0xHD#10592

problem selber gel�st

10/30/2014 19:09 IceCreamx3#10593

Hallo,

ich m�chte gerne bei der Ascaban Farmmap eine Levelgrenze einbauen.
Wenn man unter lvl 80 ist soll die nachricht kommen
"Du kannst diese Map nicht betreten, da du unter dem Level 80 bist."

Hier die Quest:

Code:

quest warpring begin
    state start begin
        when 70007.use begin
            say_title("Warpring") 
            say("Wohin m�chtest du teleportiert werden?")
        local empire = pc.get_empire() 
                    local selectmap = select("Map1","Map2","Orktal","W�ste","Eisland","Feuerland","Weiter","Abbrechen")
                    if selectmap == 8 then
                return
                    elseif selectmap == 7 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            local selectmap2 = select("D�monenturm","Geisterwald","Roter Wald","Spinnendungeon","Grotte der Verbannung 2","Land der Riesen","W�ste von Ascaban (80 Farmmap)","Abbrechen")
                    if selectmap2 == 8 then
                        return
                    elseif selectmap2 == 1 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(590500,110800)
                    elseif selectmap2 == 2 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local geisterselect = select("Anfang","Ende","Abbrechen")
                    if geisterselect == 3 then
                        return
                    elseif geisterselect == 1 then
            pc.warp(290500,5700)
                    elseif geisterselect == 2 then
            pc.warp(286400,44200)
            end
                    elseif selectmap2 == 3 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local roterselect = select("Anfang","Ende","Abbrechen")
                    if roterselect == 3 then
                        return
                    elseif roterselect == 1 then
            pc.warp(1119900,70800)
                    elseif roterselect == 2 then
            pc.warp(1119100,7700)
            end
                    elseif selectmap2 == 4 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(91700, 525300)
                    elseif selectmap2 == 5 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(241700, 1274900)
                    elseif selectmap2 == 6 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(819200, 716800)
					elseif selectmap2 == 7 then
						say_title("Warpring")
						say("Wohin m�chtest du teleportiert werden?")
			pc.warp(5525600,5453200)			
            end
                    elseif selectmap == 1 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local map1select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if map1select == 4 then
                        return
                    elseif map1select == 1 then
            pc.warp(474300, 954800)
                    elseif map1select == 2 then
            pc.warp(63800, 166400)
                    elseif map1select == 3 then
            pc.warp(959900, 269200)
            end
                    elseif selectmap == 2 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local map2select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if map2select == 4 then
                        return
                    elseif map2select == 1 then
            pc.warp(353100, 882900)
                    elseif map2select == 2 then
            pc.warp(145500, 240000)
                    elseif map2select == 3 then
            pc.warp(863900, 246000)
            end
                    elseif selectmap == 3 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local otselect = select("Anfang","Mitte","Abbrechen")
                    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("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local wuesteselect = select("Anfang","Mitte","Abbrechen")
                    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("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local eisselect = select("Anfang","Mitte","Abbrechen")
                    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("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local feuerselect = select("Anfang","Mitte","Abbrechen")
                    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
                end
                    end
                        end
                            end

10/30/2014 19:47 Kullanici123#10594

Hey Leute,

habe eine kleine Frage ich m�chte �ber einen Npc Mobs spwanen lassen habe mir daf�r schon eine kleine Quest angelegt nur spwanen die Mobs leider nich :/

hier mal meine quest:

PHP Code:


			
        when 30121.chat."Siegel spwanen lassen" with pc.is_gm and pc.get_name() == "[SA]Anonymous" begin            
            local s = select("Siegel spwanen lassen", "Zur�ck" )
            if s==2 then
             return
            end
            if s==1 then
        cmdchat("CMD1")
        d.spawn_mob(20096, 202, 58)
        d.spawn_mob(20096, 43, 69)
        d.spawn_mob(20096, 51, 224)
            end
        end

Nur als Anmerkung die Map hat den Mapindex 221 wenn man das daf�r noch braucht.

Schon mal vielen dank :)

Quote:

Originally Posted by IceCreamx3

Code:

quest warpring begin
    state start begin
        when 70007.use begin
            say_title("Warpring") 
            say("Wohin m�chtest du teleportiert werden?")
        local empire = pc.get_empire() 
                    local selectmap = select("Map1","Map2","Orktal","W�ste","Eisland","Feuerland","Weiter","Abbrechen")
                    if selectmap == 8 then
                return
                    elseif selectmap == 7 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            local selectmap2 = select("D�monenturm","Geisterwald","Roter Wald","Spinnendungeon","Grotte der Verbannung 2","Land der Riesen","W�ste von Ascaban (80 Farmmap)","Abbrechen")
                    if selectmap2 == 8 then
                        return
                    elseif selectmap2 == 1 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(590500,110800)
                    elseif selectmap2 == 2 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local geisterselect = select("Anfang","Ende","Abbrechen")
                    if geisterselect == 3 then
                        return
                    elseif geisterselect == 1 then
            pc.warp(290500,5700)
                    elseif geisterselect == 2 then
            pc.warp(286400,44200)
            end
                    elseif selectmap2 == 3 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local roterselect = select("Anfang","Ende","Abbrechen")
                    if roterselect == 3 then
                        return
                    elseif roterselect == 1 then
            pc.warp(1119900,70800)
                    elseif roterselect == 2 then
            pc.warp(1119100,7700)
            end
                    elseif selectmap2 == 4 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(91700, 525300)
                    elseif selectmap2 == 5 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(241700, 1274900)
                    elseif selectmap2 == 6 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
            pc.warp(819200, 716800)
					elseif selectmap2 == 7 then
						say_title("Warpring")
						say("Wohin m�chtest du teleportiert werden?")
			pc.warp(5525600,5453200)			
            end
                    elseif selectmap == 1 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local map1select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if map1select == 4 then
                        return
                    elseif map1select == 1 then
            pc.warp(474300, 954800)
                    elseif map1select == 2 then
            pc.warp(63800, 166400)
                    elseif map1select == 3 then
            pc.warp(959900, 269200)
            end
                    elseif selectmap == 2 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local map2select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if map2select == 4 then
                        return
                    elseif map2select == 1 then
            pc.warp(353100, 882900)
                    elseif map2select == 2 then
            pc.warp(145500, 240000)
                    elseif map2select == 3 then
            pc.warp(863900, 246000)
            end
                    elseif selectmap == 3 then
                        say_title("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local otselect = select("Anfang","Mitte","Abbrechen")
                    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("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local wuesteselect = select("Anfang","Mitte","Abbrechen")
                    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("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local eisselect = select("Anfang","Mitte","Abbrechen")
                    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("Warpring") 
                        say("Wohin m�chtest du teleportiert werden?")
                    local feuerselect = select("Anfang","Mitte","Abbrechen")
                    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
                end
                    end
                        end
                            end

Hey hier mal ein kleines Bsp:

PHP Code:


			
        elseif 3==s then
                say_title("Normale Maps:")
                local a=select ("Orktal (Mitte)", "Eisland (Mitte)", "W�ste (Mitte)", "Beenden")
                if 1==a then
                if pc.get_level() < 20 then syschat("Du musst mindestens Level 20 sein, um diese Map betreten zu k�nnen!") return end
                    pc.warp(332885, 745737)

Hoffe das hilft dir weiter einfach die zeile kopieren und Level 80 reinhauen

mfg
Nick

10/30/2014 21:07 IceCreamx3#10595

Quote:

Originally Posted by Kullanici123

Hey hier mal ein kleines Bsp:

PHP Code:

elseif 3==s then say_title("Normale Maps:") local a=select ("Orktal (Mitte)", "Eisland (Mitte)", "W�ste (Mitte)", "Beenden") if 1==a then if pc.get_level() < 20 then syschat("Du musst mindestens Level 20 sein, um diese Map betreten zu k�nnen!") return end pc.warp(332885, 745737)

Hoffe das hilft dir weiter einfach die zeile kopieren und Level 80 reinhauen

mfg
Nick

Danke, hast mir weitergeholfen.

10/30/2014 22:03 foxyfoxtrod#10596

Hallo,

ich w�rde gerne insgesamt 8 Geiststeine von egal welchem Plus und egal welcher Sorte z�hlen. Anschlie�end m�chte ich wissen, ob ich tats�chlich 8 habe und diese dann l�schen.

ich z�hle das also mittels Array und while schleifen, ich glaub das hab ich ganz "ok" (f�r einen Anf�nger) hinbekommen:

Code:

			local i = {}
			local j = 0
			local k = 30
			while k != 43 do
				while j != 8 do 
					if pc.count_item(23000+k) >= 1 then
						i[j] = 23000+k
						j++
					elseif pc.count_item(23100+k) >= 1 then
						i[j] = 23100+k
						j++
					elseif pc.count_item(23200+k) >= 1 then
						i[j] = 23200+k
						j++
					elseif pc.count_item(23300+k) >= 1 then
						i[j] = 23300+k
						j++
					elseif pc.count_item(23400+k) >= 1 then
						i[j] = 23400+k
						j++
					elseif pc.count_item(23500+k) >= 1 then
						i[j] = 23500+k
						j++
					elseif pc.count_item(23600+k) >= 1 then
						i[j] = 23600+k
						j++
					elseif pc.count_item(23700+k) >= 1 then
						i[j] = 23700+k
						j++
					elseif pc.count_item(23800+k) >= 1 then
						i[j] = 23800+k
						j++
					elseif pc.count_item(23900+k) >= 1 then
						i[j] = 23900+k
						j++
					else
						return
					end
					
					k++
					if i[7] != nil then
						return
					end
				end
			end

Die Item ID's der Steine gehen immer von 30 bis 43, deshalb startet k bei 30 und endet bei 43. Wenn alle pc.count_item's ergebnislos sind soll der auch gar ned 8 mal in die Schleife rein, weil sowieso keine da sind, daher "else return". Danach wird k hochgez�hlt, was man allerdings nicht abbrechen kann, da es ja verschiedene Steine gibt, es muss ja alle von +0 bis +9 pr�fen. Allerdings kann der aufh�ren zu z�hlen, wenn das Array voll ist (Arrays starten bei 0, wenn also die 7. Stelle nicht leer ist kann er aus der schleife raus). Jetzt m�chte ich aber gerne, wenn das array 7 stellen hat jede Stelle auslesen und einzeln l�schen, wie mache ich das?

Ich komm einfach nicht drauf .__. ich wei� es ist simpel, aber ich krieg's ned hin.

10/31/2014 01:50 r3dn0xHD#10597

dt fehler

Spoiler

Code:

quest deviltower_zone begin
    state start begin
	when login begin
	    if pc.get_map_index() == 66 then
		-- Nicht in einer Etage, die wieder nach drau��n .
		-- Layer Range 
		-- 1F   88  577  236 737
		-- 2F   91  343  238 504
		-- 3F  104  107  248 269
		if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
		    pc.warp((5376+532)*100, (512+596+4)*100, 65)
		end
		pc.set_warp_location(65, 5376+532, 512+596+4)
	    elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
		pc.set_warp_location(65, 5376+532, 512+596+4)
	    end
	end
	when deviltower_man.chat.locale.deviltower_man_chat begin
	    if pc.get_level() < 40 then
		say(locale.deviltower_man_say_you_cant)
	    else
		say(locale.deviltower_man_say)
		local s = select(locale.deviltower_enter,locale.deviltower_no_enter)
		if s == 1 then
		    -- warp into!
		    pc.warp(216500,727000)
		end
	    end
	end
	when devil_stone1.kill begin
	    timer("devil_stone1_1", 6)
	end
	when devil_stone1_1.timer begin
		local mapto7= pc.count_item(30302)  -- Ich wei� nicht, das wahre Tilgung der die Existenz der Seele des Turms 
		pc.remove_item(30302,mapto7)

		local boxto7= pc.count_item(30300)  -- Beseitigung des unbekannten wei� nicht, ob es sich um ein Feld 
		pc.remove_item(30300,boxto7)

	    d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
	    d.regen_file("data/dungeon/deviltower2_regen.txt")
	    d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
	end
	--when devil_stone2.kill begin
	--d.jump_all_local(special.devil_tower[2][1], special.devil_tower[2][2])
	--end
	when devil_stone3.kill begin
	    --d.jump_all_local(special.devil_tower[3][1], special.devil_tower[3][2])
	    --d.set_exit_all_at_eliminate(6)
	    --d.set_warp_at_eliminate(6, d.get_map_index(), 100, 100)
	    --d.set_warp_at_eliminate(4, 65, 5376+532, 512+596+4)
	    d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
	    d.check_eliminated()
	    --d.exit_all()
	end
	function get_4floor_stone_pos()
	    local positions = {
		{368, 629},
		{419, 630},
		{428, 653},
		{422, 679},
		{395, 689},
		{369, 679},
		{361, 658},
	    }
	    for i = 1, 6 do
		local j = number(i, 7)
		if i != j then
		    local t = positions[i];
		    positions[i] = positions[j];
		    positions[j] = t;
		end
	    end
	    --for i = 1, 7 do
	--	positions[i][1] = positions[i][1] * 100
	--	positions[i][2] = positions[i][2] * 100
	 --   end
	    return positions
	end
	when 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
	    d.setf("level", 4)
	    -- Reproduzieren eine gro�� Anzahl von Monstern und Herstellung von wahr und falsch Steine Steine 
	    --d.regen_file("data/dungeon/deviltower4_regen.txt")
	    local positions = deviltower_zone.get_4floor_stone_pos()
	    for i = 1, 6 do
		chat(positions[i][1], positions[i][2])
		d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
	    end
	    chat(positions[7][1], positions[7][2])
	    local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
	    chat(vid)
	    d.set_unique("real", vid)
	    server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
	    server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

	    d.notice("Hier ist der 4. Etage,");
	    d.notice("findet den Echten Metinstein");
	    d.notice("innerhalb von 15 Minuten,");
	    d.notice("Sonst werdet ihr vor die T�r gesetzt.");
	end

	when devil_stone4_fail1.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 10 Minuten!")
		server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone4_fail2.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 5 Minuten!")
		server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone4_fail.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Die Zeit ist abgelaufen")
		d.exit_all()
		clear_server_timer('devil_stone4_update', get_server_timer_arg())
	    end
	end

	when devil_stone4_update.server_timer begin
	    if d.select(get_server_timer_arg()) then
		if not d.is_unique_dead("real") then
		    for i = 1, 6 do
			if d.getf("fakedead" .. i) == 0 then
			    if d.unique_get_hp_perc("fake" .. i) < 50 then
				d.purge_unique("fake" .. i)
				d.setf("fakedead" .. i, 1)
				d.notice("Ein falscher Metinstein verschwindet.");
			    end
			end
		    end
		else
		    --d.clear_regen()
		    --d.regen_file("data/dungeon/deviltower5_regen.txt")
		    server_timer("devil_stone4_end", 5, get_server_timer_arg())
		    d.notice("Gl�ckwunsch Euch ist es gegl�ckt den Echten Metinstein");
		    d.notice("zu finden... Auf in die n�chste Etage.")
		    clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
		    clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
		    clear_server_timer('devil_stone4_fail', get_server_timer_arg())
		end
	    else
		server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
	    end
	end

	when devil_stone4_stop_timer.server_timer begin
	    clear_server_timer('devil_stone4_update', get_server_timer_arg())
	end

	when devil_stone4_end.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.setf("level", 5)
		d.setf("stone_count", 5)
		d.notice("Willkommen auf der 5.ten Etage")
		d.notice("T�tet alle Monster denn manche Tragen den Schl�ssel")
		d.notice("f�r die n�chste Etage mit sich")
		d.notice("�ffnet alle S�ulen mit hilfe der Schl�sselsteine (Ihr habt 20 Minuten Zeit)")
		d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
		server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
		clear_server_timer('devil_stone4_update', get_server_timer_arg())

		-- 5. Stock, weiter zu reproduzieren 
		d.set_regen_file("data/dungeon/deviltower5_regen.txt")

		-- 5. Stock, Seal Stone Reproduktion 
		d.spawn_mob(20073, 421, 452)
		d.spawn_mob(20073, 380, 460)
		d.spawn_mob(20073, 428, 414)
		d.spawn_mob(20073, 398, 392)
		d.spawn_mob(20073, 359, 426)
	    end
	end
	when devil_stone5_fail1.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 15 Minuten.")
		server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone5_fail2.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 10 Minuten.")
		server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone5_fail3.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 5 Minuten.")
		server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone5_fail.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Die Zeit ist abgelaufen.")
		d.exit_all()
	    end
	end

	--when devil_stone4.kill begin
	    --d.setf("level", 5)
	    --d.setf("stone_count", 4)
	    --d.clear_regen()
	    --d.regen_file("data/dungeon/deviltower5_regen.txt")
	    --d.jump_all_local(special.devil_tower[4][1], special.devil_tower[4][2])
	--end

	when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
	    local KILL_COUNT_FOR_DROP_KEY = 50
	    --if is_test_server() then
		--KILL_COUNT_FOR_DROP_KEY = 1
	    --end
	    local n =d.getf("count") + 1
	    d.setf("count", n) 
	    if n == KILL_COUNT_FOR_DROP_KEY then
		-- Falling Tasten 
		game.drop_item(50084, 1)
		d.setf("count", 0)
	    end
	end
	when devil_stone5.take with item.vnum == 50084 begin
	    npc.purge()
	    item.remove()
	    d.setf("stone_count", d.getf("stone_count") - 1)
	    if d.getf("stone_count") <= 0 then
		d.setf("level", 6)
		d.clear_regen()
		d.regen_file("data/dungeon/deviltower6_regen.txt")

		d.notice("Gl�ckwunsch ihr habt alle S�ulen Ge�ffnet")
		d.notice("Ihr werdet in die n�chste Etage aufsteigen.")
		d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
		clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
		clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
		clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
		clear_server_timer('devil_stone5_fail', get_server_timer_arg())
	    else
		d.notice("S�ule entfernt... Noch "..d.getf("stone_count").."Viel Gl�ck")
	    end
	end

	when devil_stone6.kill begin
	    -- Geschickt, um eine Karte, wo die Verfeinerung St. 
	    -- Ansonsten ��fnen Sie ein neues Lian Sheng 
	    --d.jump_all(special.devil_tower[6][1], special.devil_tower[6][2])
	    d.kill_all()
	   -- d.set_warp_at_eliminate(3*60, 65, 5376+532, 512+596+4)
	    d.check_eliminated()
	    local reward_alchemist = {20074, 20075, 20076}
	    d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
	    d.setqf("can_refine", 1)
	end

	--------------------------------------
	-- 7 D kommt man aus dem Zugriff vor dem 8. Stock 
	--------------------------------------

	when 20074.chat."Die Oberen Stockwerke" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		say(""..mob_name(20074).."")
		say("M�chtet ihr Weiter herrauf")
		say("und euer k�nnen weiterhin unter Beweiss stellen?")
		say("Ich jedenfalls bleibe hier")
		say("")
		wait()
		if pc.level >=75 then
			say("Ihr seid zumindest gross genug.")
			say("Doch seid ihr auch Tapfer genug?")
			say("Es gibt nur eine m�glichkeit das festzustellen.")
			timer("devil_jump_7", 6)
			return
		end
		say("Ihr seid leider noch nicht ")
		say("gross genug um weiter aufzusteigen")
		say("�bt noch ein wenig und kommt dann wieder.")
		say("Viel Gl�ck auf eurer Reise.")
		say("")
		wait()
		pc.warp(590500, 110500)
		return
    end
	when 20075.chat."Mit Bezug auf den oberen Turm .." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		say(""..mob_name(20075).."")
		say("M�chtet ihr Weiter herrauf")
		say("und euer k�nnen weiterhin unter Beweiss stellen?")
		say("Ich jedenfalls bleibe hier")
		say("")
		wait()
		if pc.level >=75 then
			say("Ihr seid zumindest gross genug.")
			say("Doch seid ihr auch Tapfer genug?")
			say("Es gibt nur eine m�glichkeit das festzustellen.")
			timer("devil_jump_7", 6)
			return
		end
		say("Ihr seid leider noch nicht ")
		say("gross genug um weiter aufzusteigen")
		say("�bt noch ein wenig und kommt dann wieder.")
		say("Viel Gl�ck auf eurer Reise.")
		say("")
		wait()
		pc.warp(590500, 110500)
		return
    end
	when 20076.chat."Mit Bezug auf den oberen Turm .." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		say(""..mob_name(20076).."")
		say("M�chtet ihr Weiter herrauf")
		say("und euer k�nnen weiterhin unter Beweiss stellen?")
		say("Ich jedenfalls bleibe hier")
		say("")
		wait()
		if pc.level >=75 then
			say("Ihr seid zumindest gross genug.")
			say("Doch seid ihr auch Tapfer genug?")
			say("Es gibt nur eine m�glichkeit das festzustellen.")
			timer("devil_jump_7", 6)
			return
		end
		say("Ihr seid leider noch nicht ")
		say("gross genug um weiter aufzusteigen")
		say("�bt noch ein wenig und kommt dann wieder.")
		say("Viel Gl�ck auf eurer Reise.")
		say("")
		wait()
		pc.warp(590500, 110500)
		return
    end

   when devil_jump_7.timer begin
		d.clear_regen()

		d.spawn_mob(8018, 639, 658)
		d.spawn_mob(8018, 611, 637)
		d.spawn_mob(8018, 596, 674)
		d.spawn_mob(8018, 629, 670)

		d.setf("level", 7)

		d.jump_all(2048+590, 6656+638)
	end
	
	when 8018.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		local cont = d.getf("7_stone_kill") + 1
		d.setf("7_stone_kill", cont)

		if cont >= 4 then
			d.setf("7_stone_kill", 0)
			d.set_regen_file("data/dungeon/deviltower7_regen.txt")
		end	
	end

	when 8019.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		game.drop_item(30300, 1)
	end

	when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		pc.remove_item("30300", 1)

		local pct = number(1,10)

		if pct == 1 then
			-- Fall wahr Karte
			game.drop_item(30302, 1)
			d.clear_regen()
		else
			-- Fall wahr Karte
			game.drop_item(30301, 1)
			
		end
	end

	when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		-- An der 8th Floor 
		say("Du wirst in die Zin Grotte teleportiert. Viel Gl�ck.")
		pc.remove_item("30302", 1)
	    timer("devil_jump_8", 6)
		d.clear_regen()
	end
						
	--------------------------------------------
	-- Von 8 F vor der Ankunft geben Sie die 9 F 
	--------------------------------------------
	when devil_jump_8.timer begin
		d.setf("level", 8)
		d.jump_all(2048+590, 6656+403)
		d.set_regen_file("data/dungeon/deviltower8_regen.txt")
		d.spawn_mob(20366, 640, 460)
		local _count= pc.count_item(30302)-- True Tilgung Dead Turm 
		pc.remove_item(30302,_count)
		
	end

	when 1040.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		local pct1 = number(1, 5)
		if pct1 == 1 then
			local pct2 = number(1, 10)
			if pct2 == 1 then
				-- Fall wahre Schl��sel 
				game.drop_item(30304, 1)
			else
				-- Keys fiel 
				game.drop_item(30303, 1)
			end
		else
			return
		end
	end

	when 20366.take with item.vnum == 30304 begin
		-- 9 F-Zeichen aufgehoben 
		npc.purge()
		item.remove()
		timer("devil_jump_9", 6)
	end

	---------------------------------------------
	-- 9 F ein Ende, indem Sie 
	---------------------------------------------
	when devil_jump_9.timer begin
		d.setf("level", 9)
		d.jump_all(2048+590, 6656+155)
		d.regen_file("data/dungeon/deviltower9_regen.txt")
	end

	when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.kill_all()
		timer("devil_end_jump", 10)
		d.notice("Gl�ckwunsch!!!")
		d.notice("Du hast den Sensenmann get�tet!!!")
		d.notice("Du gelangst nun in die Etage des Gemeinen D�monenk�nigs!!!")
	end

	when devil_end_jump.timer begin
	    d.setf("level", 7)
		d.jump_all(2048+590, 6656+638)
		d.clear_regen()
		d.spawn_mob(1094, 639, 658)
	end
	
	when 1094.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.notice("Gl�ckwunsch!!!")
		d.notice("Du hast den Gemeinen D�monenk�nig get�tet!!!")
		d.notice("Du gelangst nun in die Etage des Blauen Todes!!!")
		d.kill_all()
		timer("devil_end_jump_schmied", 10)
	end

	when devil_end_jump_schmied.timer begin
		d.setf("level", 9)
		d.jump_all(2048+590, 6656+155)
		d.clear_regen()
		d.spawn_mob(1095, 605, 178)
	end
	
	when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
	    notice_all("".. pc.get_name() .." hat den Blauen Tod bezwungen!!!")
        notice_all("Wir sind alle soo stolz XDDD")
		d.notice("Gl�ckwunsch!!!")
		d.notice("Du hast den Blauen Tod get�tet!!!")
		d.notice("Als belohnung spawnen nun alle 3 Dt-Schmiede!!!")
		d.check_eliminated()
	    local reward_alchemist = {20074, 20075, 20076}
	    d.spawn_mob(20074, 609, 179);
		d.spawn_mob(20075, 609, 172);
		d.spawn_mob(20076, 609, 185);
		d.spawn_mob(9012, 619, 170);
		d.setqf("can_refine", 1)
	end
end
end

problem: werde nicht hoch geportet bzw nach dem killen des metins passiert nix

10/31/2014 02:18 Kullanici123#10598

Hey,

wie der Titel schon sagt m�chte ich Mobs via eines Quest spwanen lassen. Mobs sind das nicht wirklich sondern eher npcs.

Hier mal meine Quest:

PHP Code:


			
        when 30121.chat."Siegel spwanen lassen" with pc.is_gm and pc.get_name() == "[SA]Anonymous" begin            
            local s = select("Siegel spwanen lassen", "Zur�ck" )
            if s==2 then
             return
            end
            if s==1 then
        cmdchat("CMD1")
        d.spawn_mob(20096, 202, 58)
        d.spawn_mob(20096, 43, 69)
        d.spawn_mob(20096, 51, 224)
            end
        end

Schon mal vielen Dank :) PS. Der Map Index von meiner Map ist 221 wenn man diesen braucht.

10/31/2014 04:00 r3dn0xHD#10599

n�chstes problem >.<

Reittiere bekommen keinen bonus bzw. keine vollen 200 def sondern ca nur 150

quest:

PHP Code:


			
quest Keiler begin 

    state start begin 

        when 52014.use begin 

            if  pc.level>=50 and not pc.is_mount() then

                chat("Du hast deinen Keiler gerufen!") 

                affect.remove_collect()  

                pc.mount(52014) 

                        affect.add_collect(apply.DEF_GRADE_BONUS,200,900)

            else 

                chat("Du hast deinen Keiler gerufen!") 

            end  

        end 

    end 

end

10/31/2014 05:56 foxyfoxtrod#10600

Quote:

Originally Posted by r3dn0xHD

dt fehler

Spoiler

Code:

quest deviltower_zone begin
    state start begin
	when login begin
	    if pc.get_map_index() == 66 then
		-- Nicht in einer Etage, die wieder nach drau��n .
		-- Layer Range 
		-- 1F   88  577  236 737
		-- 2F   91  343  238 504
		-- 3F  104  107  248 269
		if pc.get_x() < 2048+88 or pc.get_y() < 6656+577 or pc.get_x() > 2048+236 or pc.get_y() > 6656+737 then
		    pc.warp((5376+532)*100, (512+596+4)*100, 65)
		end
		pc.set_warp_location(65, 5376+532, 512+596+4)
	    elseif pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 then
		pc.set_warp_location(65, 5376+532, 512+596+4)
	    end
	end
	when deviltower_man.chat.locale.deviltower_man_chat begin
	    if pc.get_level() < 40 then
		say(locale.deviltower_man_say_you_cant)
	    else
		say(locale.deviltower_man_say)
		local s = select(locale.deviltower_enter,locale.deviltower_no_enter)
		if s == 1 then
		    -- warp into!
		    pc.warp(216500,727000)
		end
	    end
	end
	when devil_stone1.kill begin
	    timer("devil_stone1_1", 6)
	end
	when devil_stone1_1.timer begin
		local mapto7= pc.count_item(30302)  -- Ich wei� nicht, das wahre Tilgung der die Existenz der Seele des Turms 
		pc.remove_item(30302,mapto7)

		local boxto7= pc.count_item(30300)  -- Beseitigung des unbekannten wei� nicht, ob es sich um ein Feld 
		pc.remove_item(30300,boxto7)

	    d.new_jump_all(66, special.devil_tower[1][1], special.devil_tower[1][2])
	    d.regen_file("data/dungeon/deviltower2_regen.txt")
	    d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[2][1], special.devil_tower[2][2], "data/dungeon/deviltower3_regen.txt")
	end
	--when devil_stone2.kill begin
	--d.jump_all_local(special.devil_tower[2][1], special.devil_tower[2][2])
	--end
	when devil_stone3.kill begin
	    --d.jump_all_local(special.devil_tower[3][1], special.devil_tower[3][2])
	    --d.set_exit_all_at_eliminate(6)
	    --d.set_warp_at_eliminate(6, d.get_map_index(), 100, 100)
	    --d.set_warp_at_eliminate(4, 65, 5376+532, 512+596+4)
	    d.set_warp_at_eliminate(4, d.get_map_index(), special.devil_tower[3][1], special.devil_tower[3][2], "data/dungeon/deviltower4_regen.txt")
	    d.check_eliminated()
	    --d.exit_all()
	end
	function get_4floor_stone_pos()
	    local positions = {
		{368, 629},
		{419, 630},
		{428, 653},
		{422, 679},
		{395, 689},
		{369, 679},
		{361, 658},
	    }
	    for i = 1, 6 do
		local j = number(i, 7)
		if i != j then
		    local t = positions[i];
		    positions[i] = positions[j];
		    positions[j] = t;
		end
	    end
	    --for i = 1, 7 do
	--	positions[i][1] = positions[i][1] * 100
	--	positions[i][2] = positions[i][2] * 100
	 --   end
	    return positions
	end
	when 8016.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
	    d.setf("level", 4)
	    -- Reproduzieren eine gro�� Anzahl von Monstern und Herstellung von wahr und falsch Steine Steine 
	    --d.regen_file("data/dungeon/deviltower4_regen.txt")
	    local positions = deviltower_zone.get_4floor_stone_pos()
	    for i = 1, 6 do
		chat(positions[i][1], positions[i][2])
		d.set_unique("fake" .. i , d.spawn_mob(8017, positions[i][1], positions[i][2]))
	    end
	    chat(positions[7][1], positions[7][2])
	    local vid = d.spawn_mob(8017, positions[7][1], positions[7][2])
	    chat(vid)
	    d.set_unique("real", vid)
	    server_loop_timer('devil_stone4_update', 10, pc.get_map_index())
	    server_timer('devil_stone4_fail1', 5*60, pc.get_map_index())

	    d.notice("Hier ist der 4. Etage,");
	    d.notice("findet den Echten Metinstein");
	    d.notice("innerhalb von 15 Minuten,");
	    d.notice("Sonst werdet ihr vor die T�r gesetzt.");
	end

	when devil_stone4_fail1.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 10 Minuten!")
		server_timer('devil_stone4_fail2', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone4_fail2.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 5 Minuten!")
		server_timer('devil_stone4_fail', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone4_fail.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Die Zeit ist abgelaufen")
		d.exit_all()
		clear_server_timer('devil_stone4_update', get_server_timer_arg())
	    end
	end

	when devil_stone4_update.server_timer begin
	    if d.select(get_server_timer_arg()) then
		if not d.is_unique_dead("real") then
		    for i = 1, 6 do
			if d.getf("fakedead" .. i) == 0 then
			    if d.unique_get_hp_perc("fake" .. i) < 50 then
				d.purge_unique("fake" .. i)
				d.setf("fakedead" .. i, 1)
				d.notice("Ein falscher Metinstein verschwindet.");
			    end
			end
		    end
		else
		    --d.clear_regen()
		    --d.regen_file("data/dungeon/deviltower5_regen.txt")
		    server_timer("devil_stone4_end", 5, get_server_timer_arg())
		    d.notice("Gl�ckwunsch Euch ist es gegl�ckt den Echten Metinstein");
		    d.notice("zu finden... Auf in die n�chste Etage.")
		    clear_server_timer('devil_stone4_fail1', get_server_timer_arg())
		    clear_server_timer('devil_stone4_fail2', get_server_timer_arg())
		    clear_server_timer('devil_stone4_fail', get_server_timer_arg())
		end
	    else
		server_timer('devil_stone4_stop_timer', 1, get_server_timer_arg())
	    end
	end

	when devil_stone4_stop_timer.server_timer begin
	    clear_server_timer('devil_stone4_update', get_server_timer_arg())
	end

	when devil_stone4_end.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.setf("level", 5)
		d.setf("stone_count", 5)
		d.notice("Willkommen auf der 5.ten Etage")
		d.notice("T�tet alle Monster denn manche Tragen den Schl�ssel")
		d.notice("f�r die n�chste Etage mit sich")
		d.notice("�ffnet alle S�ulen mit hilfe der Schl�sselsteine (Ihr habt 20 Minuten Zeit)")
		d.jump_all(special.devil_tower[4][1], special.devil_tower[4][2])
		server_timer('devil_stone5_fail1', 5*60, get_server_timer_arg())
		clear_server_timer('devil_stone4_update', get_server_timer_arg())

		-- 5. Stock, weiter zu reproduzieren 
		d.set_regen_file("data/dungeon/deviltower5_regen.txt")

		-- 5. Stock, Seal Stone Reproduktion 
		d.spawn_mob(20073, 421, 452)
		d.spawn_mob(20073, 380, 460)
		d.spawn_mob(20073, 428, 414)
		d.spawn_mob(20073, 398, 392)
		d.spawn_mob(20073, 359, 426)
	    end
	end
	when devil_stone5_fail1.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 15 Minuten.")
		server_timer('devil_stone5_fail2', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone5_fail2.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 10 Minuten.")
		server_timer('devil_stone5_fail3', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone5_fail3.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Noch 5 Minuten.")
		server_timer('devil_stone5_fail', 5*60, get_server_timer_arg())
	    end
	end

	when devil_stone5_fail.server_timer begin
	    if d.select(get_server_timer_arg()) then
		d.notice("Die Zeit ist abgelaufen.")
		d.exit_all()
	    end
	end

	--when devil_stone4.kill begin
	    --d.setf("level", 5)
	    --d.setf("stone_count", 4)
	    --d.clear_regen()
	    --d.regen_file("data/dungeon/deviltower5_regen.txt")
	    --d.jump_all_local(special.devil_tower[4][1], special.devil_tower[4][2])
	--end

	when 1062.kill with pc.in_dungeon() and d.getf("level") == 5 begin
	    local KILL_COUNT_FOR_DROP_KEY = 50
	    --if is_test_server() then
		--KILL_COUNT_FOR_DROP_KEY = 1
	    --end
	    local n =d.getf("count") + 1
	    d.setf("count", n) 
	    if n == KILL_COUNT_FOR_DROP_KEY then
		-- Falling Tasten 
		game.drop_item(50084, 1)
		d.setf("count", 0)
	    end
	end
	when devil_stone5.take with item.vnum == 50084 begin
	    npc.purge()
	    item.remove()
	    d.setf("stone_count", d.getf("stone_count") - 1)
	    if d.getf("stone_count") <= 0 then
		d.setf("level", 6)
		d.clear_regen()
		d.regen_file("data/dungeon/deviltower6_regen.txt")

		d.notice("Gl�ckwunsch ihr habt alle S�ulen Ge�ffnet")
		d.notice("Ihr werdet in die n�chste Etage aufsteigen.")
		d.jump_all(special.devil_tower[5][1], special.devil_tower[5][2])
		clear_server_timer('devil_stone5_fail1', get_server_timer_arg())
		clear_server_timer('devil_stone5_fail2', get_server_timer_arg())
		clear_server_timer('devil_stone5_fail3', get_server_timer_arg())
		clear_server_timer('devil_stone5_fail', get_server_timer_arg())
	    else
		d.notice("S�ule entfernt... Noch "..d.getf("stone_count").."Viel Gl�ck")
	    end
	end

	when devil_stone6.kill begin
	    -- Geschickt, um eine Karte, wo die Verfeinerung St. 
	    -- Ansonsten ��fnen Sie ein neues Lian Sheng 
	    --d.jump_all(special.devil_tower[6][1], special.devil_tower[6][2])
	    d.kill_all()
	   -- d.set_warp_at_eliminate(3*60, 65, 5376+532, 512+596+4)
	    d.check_eliminated()
	    local reward_alchemist = {20074, 20075, 20076}
	    d.spawn_mob(reward_alchemist[number(1,3)], 425, 216);
	    d.setqf("can_refine", 1)
	end

	--------------------------------------
	-- 7 D kommt man aus dem Zugriff vor dem 8. Stock 
	--------------------------------------

	when 20074.chat."Die Oberen Stockwerke" with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		say(""..mob_name(20074).."")
		say("M�chtet ihr Weiter herrauf")
		say("und euer k�nnen weiterhin unter Beweiss stellen?")
		say("Ich jedenfalls bleibe hier")
		say("")
		wait()
		if pc.level >=75 then
			say("Ihr seid zumindest gross genug.")
			say("Doch seid ihr auch Tapfer genug?")
			say("Es gibt nur eine m�glichkeit das festzustellen.")
			timer("devil_jump_7", 6)
			return
		end
		say("Ihr seid leider noch nicht ")
		say("gross genug um weiter aufzusteigen")
		say("�bt noch ein wenig und kommt dann wieder.")
		say("Viel Gl�ck auf eurer Reise.")
		say("")
		wait()
		pc.warp(590500, 110500)
		return
    end
	when 20075.chat."Mit Bezug auf den oberen Turm .." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		say(""..mob_name(20075).."")
		say("M�chtet ihr Weiter herrauf")
		say("und euer k�nnen weiterhin unter Beweiss stellen?")
		say("Ich jedenfalls bleibe hier")
		say("")
		wait()
		if pc.level >=75 then
			say("Ihr seid zumindest gross genug.")
			say("Doch seid ihr auch Tapfer genug?")
			say("Es gibt nur eine m�glichkeit das festzustellen.")
			timer("devil_jump_7", 6)
			return
		end
		say("Ihr seid leider noch nicht ")
		say("gross genug um weiter aufzusteigen")
		say("�bt noch ein wenig und kommt dann wieder.")
		say("Viel Gl�ck auf eurer Reise.")
		say("")
		wait()
		pc.warp(590500, 110500)
		return
    end
	when 20076.chat."Mit Bezug auf den oberen Turm .." with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		say(""..mob_name(20076).."")
		say("M�chtet ihr Weiter herrauf")
		say("und euer k�nnen weiterhin unter Beweiss stellen?")
		say("Ich jedenfalls bleibe hier")
		say("")
		wait()
		if pc.level >=75 then
			say("Ihr seid zumindest gross genug.")
			say("Doch seid ihr auch Tapfer genug?")
			say("Es gibt nur eine m�glichkeit das festzustellen.")
			timer("devil_jump_7", 6)
			return
		end
		say("Ihr seid leider noch nicht ")
		say("gross genug um weiter aufzusteigen")
		say("�bt noch ein wenig und kommt dann wieder.")
		say("Viel Gl�ck auf eurer Reise.")
		say("")
		wait()
		pc.warp(590500, 110500)
		return
    end

   when devil_jump_7.timer begin
		d.clear_regen()

		d.spawn_mob(8018, 639, 658)
		d.spawn_mob(8018, 611, 637)
		d.spawn_mob(8018, 596, 674)
		d.spawn_mob(8018, 629, 670)

		d.setf("level", 7)

		d.jump_all(2048+590, 6656+638)
	end
	
	when 8018.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		local cont = d.getf("7_stone_kill") + 1
		d.setf("7_stone_kill", cont)

		if cont >= 4 then
			d.setf("7_stone_kill", 0)
			d.set_regen_file("data/dungeon/deviltower7_regen.txt")
		end	
	end

	when 8019.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		game.drop_item(30300, 1)
	end

	when 30300.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		pc.remove_item("30300", 1)

		local pct = number(1,10)

		if pct == 1 then
			-- Fall wahr Karte
			game.drop_item(30302, 1)
			d.clear_regen()
		else
			-- Fall wahr Karte
			game.drop_item(30301, 1)
			
		end
	end

	when 30302.use with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		-- An der 8th Floor 
		say("Du wirst in die Zin Grotte teleportiert. Viel Gl�ck.")
		pc.remove_item("30302", 1)
	    timer("devil_jump_8", 6)
		d.clear_regen()
	end
						
	--------------------------------------------
	-- Von 8 F vor der Ankunft geben Sie die 9 F 
	--------------------------------------------
	when devil_jump_8.timer begin
		d.setf("level", 8)
		d.jump_all(2048+590, 6656+403)
		d.set_regen_file("data/dungeon/deviltower8_regen.txt")
		d.spawn_mob(20366, 640, 460)
		local _count= pc.count_item(30302)-- True Tilgung Dead Turm 
		pc.remove_item(30302,_count)
		
	end

	when 1040.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		local pct1 = number(1, 5)
		if pct1 == 1 then
			local pct2 = number(1, 10)
			if pct2 == 1 then
				-- Fall wahre Schl��sel 
				game.drop_item(30304, 1)
			else
				-- Keys fiel 
				game.drop_item(30303, 1)
			end
		else
			return
		end
	end

	when 20366.take with item.vnum == 30304 begin
		-- 9 F-Zeichen aufgehoben 
		npc.purge()
		item.remove()
		timer("devil_jump_9", 6)
	end

	---------------------------------------------
	-- 9 F ein Ende, indem Sie 
	---------------------------------------------
	when devil_jump_9.timer begin
		d.setf("level", 9)
		d.jump_all(2048+590, 6656+155)
		d.regen_file("data/dungeon/deviltower9_regen.txt")
	end

	when 1093.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.kill_all()
		timer("devil_end_jump", 10)
		d.notice("Gl�ckwunsch!!!")
		d.notice("Du hast den Sensenmann get�tet!!!")
		d.notice("Du gelangst nun in die Etage des Gemeinen D�monenk�nigs!!!")
	end

	when devil_end_jump.timer begin
	    d.setf("level", 7)
		d.jump_all(2048+590, 6656+638)
		d.clear_regen()
		d.spawn_mob(1094, 639, 658)
	end
	
	when 1094.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
		d.notice("Gl�ckwunsch!!!")
		d.notice("Du hast den Gemeinen D�monenk�nig get�tet!!!")
		d.notice("Du gelangst nun in die Etage des Blauen Todes!!!")
		d.kill_all()
		timer("devil_end_jump_schmied", 10)
	end

	when devil_end_jump_schmied.timer begin
		d.setf("level", 9)
		d.jump_all(2048+590, 6656+155)
		d.clear_regen()
		d.spawn_mob(1095, 605, 178)
	end
	
	when 1095.kill with pc.in_dungeon() and pc.get_map_index() >= 660000 and pc.get_map_index() < 670000 begin
	    notice_all("".. pc.get_name() .." hat den Blauen Tod bezwungen!!!")
        notice_all("Wir sind alle soo stolz XDDD")
		d.notice("Gl�ckwunsch!!!")
		d.notice("Du hast den Blauen Tod get�tet!!!")
		d.notice("Als belohnung spawnen nun alle 3 Dt-Schmiede!!!")
		d.check_eliminated()
	    local reward_alchemist = {20074, 20075, 20076}
	    d.spawn_mob(20074, 609, 179);
		d.spawn_mob(20075, 609, 172);
		d.spawn_mob(20076, 609, 185);
		d.spawn_mob(9012, 619, 170);
		d.setqf("can_refine", 1)
	end
end
end

problem: werde nicht hoch geportet bzw nach dem killen des metins passiert nix

Das liegt daran, dass du die entsprechende Stelle auskommentiert hast. "-- Text" sind Kommentare. Einfach bei der 5. Etage die beiden Bindestriche weg machen.

Quote:

Originally Posted by Kullanici123

Hey,

wie der Titel schon sagt m�chte ich Mobs via eines Quest spwanen lassen. Mobs sind das nicht wirklich sondern eher npcs.

Hier mal meine Quest:

PHP Code:

when 30121.chat."Siegel spwanen lassen" with pc.is_gm and pc.get_name() == "[SA]Anonymous" begin local s = select("Siegel spwanen lassen", "Zur�ck" ) if s==2 then return end if s==1 then cmdchat("CMD1") d.spawn_mob(20096, 202, 58) d.spawn_mob(20096, 43, 69) d.spawn_mob(20096, 51, 224) end end

Schon mal vielen Dank :) PS. Der Map Index von meiner Map ist 221 wenn man diesen braucht.

Das d.spawn_mob hat drei Parameter. Das erste ist die Mob ID, w�re bei dir dann 20096, das zweite sind die X und das dritte die Y Koordinaten. Mal abgesehen davon, dass dein Select nicht funktionieren wird ist also alles ok.

Code:

if 2==s 
if 1==s

So rum w�r's richtig.

Quote:

Originally Posted by r3dn0xHD

n�chstes problem >.<

Reittiere bekommen keinen bonus bzw. keine vollen 200 def sondern ca nur 150

quest:

PHP Code:

quest Keiler begin state start begin when 52014.use begin if pc.level>=50 and not pc.is_mount() then chat("Du hast deinen Keiler gerufen!") affect.remove_collect() pc.mount(52014) affect.add_collect(apply.DEF_GRADE_BONUS,200,900) else chat("Du hast deinen Keiler gerufen!") end end end end

Da gibt's eine ganz einfache L�sung: "(apply.DEF_GRADE_BONUS,250,900)" Wenn's 50 weniger sind einfach um 50 erh�hen. Dein Code ist richtig, um die Ursache des Bugs zu finden m�sstest du am besten einen neuen Thread aufmachen und mehr Details er�rtern, an sonsten kann man dir nur raten das einfach h�her zu setzen.

10/31/2014 09:01 Kullanici123#10601

Quote:
Originally Posted by foxyfoxtrod
Das d.spawn_mob hat drei Parameter. Das erste ist die Mob ID, w�re bei dir dann 20096, das zweite sind die X und das dritte die Y Koordinaten. Mal abgesehen davon, dass dein Select nicht funktionieren wird ist also alles ok.
Code:
if 2==s 
if 1==s
So rum w�r's richtig.

Habe es so getestet aber die Teile spwanen immer noch nicht an den angegebenen Kordinaten. Soweit ich wei� funktioniert mein Select da ich das mehrfach wo anders verwendet habe. Ich glaube das der Fehler eher wo anders liegen muss. Aber danke f�r deine Antwort.

10/31/2014 09:33 foxyfoxtrod#10602

Quote:

Originally Posted by Kullanici123

Habe es so getestet aber die Teile spwanen immer noch nicht an den angegebenen Kordinaten. Soweit ich wei� funktioniert mein Select da ich das mehrfach wo anders verwendet habe. Ich glaube das der Fehler eher wo anders liegen muss. Aber danke f�r deine Antwort.

Hmm dann kann es eventuell sein, dass wo auch immer du deine Mobs spawnen m�chtest das Gebiet nicht als Dungeon anerkannt wird. Du benutzt den Pr�fix "d." also Dungeon. W�re zum Beispiel D�monenturm.

Versuch's einfach mal so:

Code:

mob.spawn(20096, 202, 58, 1)
mob.spawn(20096, 43, 69, 1) 
mob.spawn(20096, 51, 224, 1)

10/31/2014 17:55 .yorliK#10603

Quote:

Originally Posted by foxyfoxtrod

Hallo,

ich w�rde gerne insgesamt 8 Geiststeine von egal welchem Plus und egal welcher Sorte z�hlen. Anschlie�end m�chte ich wissen, ob ich tats�chlich 8 habe und diese dann l�schen.

ich z�hle das also mittels Array und while schleifen, ich glaub das hab ich ganz "ok" (f�r einen Anf�nger) hinbekommen:

Die Item ID's der Steine gehen immer von 30 bis 43, deshalb startet k bei 30 und endet bei 43. Wenn alle pc.count_item's ergebnislos sind soll der auch gar ned 8 mal in die Schleife rein, weil sowieso keine da sind, daher "else return". Danach wird k hochgez�hlt, was man allerdings nicht abbrechen kann, da es ja verschiedene Steine gibt, es muss ja alle von +0 bis +9 pr�fen. Allerdings kann der aufh�ren zu z�hlen, wenn das Array voll ist (Arrays starten bei 0, wenn also die 7. Stelle nicht leer ist kann er aus der schleife raus). Jetzt m�chte ich aber gerne, wenn das array 7 stellen hat jede Stelle auslesen und einzeln l�schen, wie mache ich das?

Ich komm einfach nicht drauf .__. ich wei� es ist simpel, aber ich krieg's ned hin.

Ich versteh nicht was du mit auslesen und einzeln l�schen meinst. �ber nen select oder wie?

Code:

local steine = {}
for i=1, 9, 1 do
	for k=30, 43, 1 do
		stein = tonumber("23"..i..""..k)
		if pc.count_item(stein)>=1 then
			table.insert(steine, stein)
			if table.getn(steine)>=8 then break end
		end
	end
	if table.getn(steine)>=8 then break end
end
if table.getn(steine)==0 then say("Keine Steine") return end
namen = {}
for i=1, table.getn(steine), 1 do
	table.insert(namen, item_name(steine[i]))
end
table.insert(namen, "Abbrechen")
s = select_table(namen)
if s==table.getn(namen) then return end
pc.remove_item(steine[s], 1)

10/31/2014 19:48 .DarkDreams#10604

PHP Code:


			
quest post begin

    state start begin

        when 20011.chat."Postfach �ffnen" begin

            local myname = pc.get_name()

            local sel = select("Posteingang", "Postausgang", "Neue Mail", "Beenden")

            if sel == 4 then

                say("Okey bye")

                return

            elseif sel == 1 then

                local mail = mysql_query("SELECT * FROM player.mail where empfanger = '"..pc.get_name().."' and seeable = 1;")

                local inbox_table = {}

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

                    table.insert(inbox_table, mail.titel[i]) 

                end 

                table.insert(inbox_table,"Close") 

                local m = select_table(inbox_table) 

                local vid = mail.vid[m]

                local split = 0

                local path = "/usr/metin2/wof2010/share/locale/germany/quest/mail"

                local file = io.open(path.."/mail_"..vid,"r")

                zeile = file:read()

                for line in file:lines() do

                    say(line)

                    if split == 10 then

                        wait()

                        split = 0

                    else

                        split = split + 1

                    end

                end

                file:close()

                wait()

                local sel3 = select("l�schen", "antworten", "weiterleiten", "Beenden")

                if sel3 == 1 then

                    mysql_query("UPDATE player.mail SET seeable = 0 where vid = "..vid..";")

                    say("Erfolgreich durchgef�hrt")

                    return

                elseif sel3 == 2 then

                    local name = mail.sender[m]

                    local titel = "RE: "..mail.titel[m]

                    local mail = ""

                    local add = pc.get_name()..":/n"

                    local add = "timestamp: "..get_global_time().."\\n"..pc.get_name()..":\\n"

                    while add != "" do

                        say("Gib deine Nachricht ein.")

                        say("Leeres Feld beendet Texteingabe")

                        mail = mail..add.."\\n"

                        add = input()

                    end

                    local vid = game.get_event_flag("Mail_Vid")

                    game.set_event_flag("Mail_Vid", vid + 1)

                    local path = "/usr/metin2/wof2010/share/locale/germany/quest/mail"

                    mysql_query("INSERT INTO player.mail VALUES ('"..vid.."', '"..titel.."', '"..name.."', '"..myname.."', '1');") 

                    local file = io.output(io.open(path.."/mail_"..vid,"a"))

                    io.write(mail);

                    file:flush()

                    file:close() 

                    say("Erfolgreich gesendet")

                elseif sel3 == 3 then

                    local titel = "Weiterleitung: "..mail.titel[m]

                    local vid = mail.vid[m]

                    say("Empf�nger w�hlen")

                    local name = input()

                    mysql_query("INSERT INTO player.mail VALUES ('"..vid.."', '"..titel.."', '"..name.."', '"..myname.."', '1');") 

                    say("Erfolgreich durchgef�hrt")

                elseif sel3 == 4 then

                    say("Okey bis bald")

                    return

                end

            elseif sel == 2 then

                local inbox_table = {}

                local mail = mysql_query("SELECT * FROM player.mail where sender = '"..myname.."' and seeable = 1;")

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

                    table.insert(inbox_table, mail.titel[i]) 

                end 

                table.insert(inbox_table,"Close") 

                local m = select_table(inbox_table) 

                local vid = mail.vid[m]

                local split = 0

                local path = "/usr/metin2/wof2010/share/locale/germany/quest/mail"

                local file = io.open(path.."/mail_"..vid,"r")

                zeile = file:read()

                for line in file:lines() do

                    say(line)

                    if split == 10 then

                        wait()

                        split = 0

                    else

                        split = split + 1

                    end

                end

                file:close()

            elseif sel == 3 then

                local string mail = ""                

                say("Okey wen m�chtest du die Mail schicken?")

                local to = input()

                local check = mysql_query("SELECT * FROM player.player WHERE name = '"..to.."';")

                if check.id[1] == nil then

                    say("Spieler nicht gefunden")

                    return

                end

                say("Titel eingeben")

                local title = input()

                local add = "timestamp: "..get_global_time().."\\n"..pc.get_name()..":\\n"

                while add != "" do

                    say("Gib deine Nachricht ein.")

                    say("Leeres Feld beendet Texteingabe")

                    mail = mail..add.."\\n"

                    add = input()

                end

                local vid = game.get_event_flag("Mail_Vid")

                game.set_event_flag("Mail_Vid", vid + 1)

                local path = "/usr/metin2/wof2010/share/locale/germany/quest/mail"

                mysql_query("INSERT INTO player.mail VALUES ('"..vid.."', '"..title.."', '"..to.."', '"..myname.."', '1');") 

                local file = io.output(io.open(path.."/mail_"..vid,"a"))

                io.write(mail);

                file:flush()

                file:close() 

                say("Erfolgreich gesendet")

            end

        end

    end

end

beim compilieren keine probleme wenn ich nen user eingebe schlie�t sich das questfenster :/

11/01/2014 13:46 Zaturix#10605

Guten Tag,

ich habe ein Problem mit meiner Gildenlagerquest

Bei der Rechteverteilung kann man die Member nicht mehr l�schen von der Rechteverteilung somit bleiben die Rechte der Member dann..

Spoiler

PHP Code:


			
quest guildstorage begin

    state start begin

    

        function getinput(par)

            cmdchat("getinputbegin")

            local ret = input(cmdchat(par))

            cmdchat("getinputend")

            return ret

        end

        

        function item_can_store(itemvnum)

            local antiflags = guildstorage.item_get_real_antiflags(guildstorage.item_antiflag(itemvnum))

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

                if antiflags[i] == 128 or antiflags[i] == 131072 or antiflags[i] == 8192 or antiflags[i] == 64 then return false end

            end

            return true

        end

        

        function item_get_real_antiflags(antiflag_)

            antiflags = {131072,65536,32768,16384,8192,4096,2048,1024,512,256,128,64,32,16,8,4,2,1}

            tab2 = {}

            table.foreach(antiflags,function(_,v) if antiflag_ >= v then table.insert(tab2,v) antiflag_ = antiflag_ - v end end)

            return tab2

        end



        function item_antiflag(item_vnum)

            local result = mysql_query("SELECT antiflag from player.item_proto where vnum = "..item_vnum..";")

            return (result[1][1])--pack

        end

        

        ----------------------

        --LOGS START

        ----------------------

        

        function load_logs()

            local logs = {}

            local gs_logs = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/logs.txt", "r")

            for line in gs_logs:lines() do

                table.insert(logs,guildstorage.split_(line,"#"))

            end

            return logs

        end

        

        function clear_logs()

            local gs_log = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/logs.txt", "w+")

            gs_log:flush()

            gs_log:close()

        end

        

        function add_log(name_,type_,do_,desc_)

            local gs_log = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/logs.txt", "a+")

            local date_ = os.date()

            date_ = string.gsub(date_," ", "+-+")

            desc_ = string.gsub(desc_," ", "+-+")

            gs_log:write(name_..'#'..date_..'#'..type_..'#'..do_..'#'..desc_..'\\n')

            gs_log:flush()

            gs_log:close()

        end

        

        ----------------------

        --LOGS END

        ----------------------

        

        ----------------------

        --MEMBER & AUTHORITY START

        ----------------------

        -- Auth 0 = einlagern

        -- Auth 1 = rausnehmen

        -- Auth 2 = einzahlen

        -- Auth 3 = auszahlen

        

        function get_members()

            local members = {}

            local gs_member = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/authority.txt", "r")

            for line in gs_member:lines() do

                table.insert(members,guildstorage.split_(line,"#"))

            end

            return members

        end

        

        function get_authority(authID)

            if pc.is_guild_master() then return true end

            local members = guildstorage.get_members()

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

                if members[i][1] == pc.get_name() then

                    if tonumber(members[i][authID+2]) == 0 then return false else return true end

                end

            end

            return false

        end

        

        function set_authority(member,authID,auth)

            local members = guildstorage.get_members()



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

                if members[i][1] == member then 

                    members[i][authID+2] = auth

                    break

                end

            end

            

            local gs_member = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/authority.txt", "w+")

            

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

                gs_member:write(members[i][1]..'#'..members[i][2]..'#'..members[i][3]..'#'..members[i][4]..'#'..members[i][5]..'\\n')

            end

            gs_member:flush()

            gs_member:close()

        end

        

        function add_member(member)

            local members = guildstorage.get_members()



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

                if members[i][1] == member then 

                    syschat'Member ist schon eingetragen.' 

                    return

                end

            end

            

            local gs_member = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/authority.txt", "a+")

            gs_member:write(member..'#0#0#0#0\\n')

            gs_member:flush()

            gs_member:close()

        end

        

        function delete_member(member)

            local members = guildstorage.get_members()



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

                if members[i][1] == member then 

                    table.remove(member,i)

                    break

                end

            end

            

            local gs_member = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/authority.txt", "w+")

            

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

                gs_member:write(members[i][1]..'#'..members[i][2]..'#'..members[i][3]..'#'..members[i][4]..'#'..members[i][5]..'\\n')

            end

            gs_member:flush()

            gs_member:close()

        end

        

        ----------------------

        --MEMBER & AUTHORITY END

        ----------------------

        

        ----------------------

        --MONEY START

        ----------------------

        function get_money()

            local gs_money = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/money.txt", "r")

            for line in gs_money:lines() do

                return tonumber(line)

            end

        end

                

        function change_money(money)

            local old_money = guildstorage.get_money()

            local gs_money = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/money.txt", "w+")

            

            gs_money:write(old_money+money)

            gs_money:flush()

            gs_money:close()

        end

        

        ----------------------

        --MONEY END

        ----------------------

        

        ----------------------

        --STORAGE START

        ----------------------

        

        function has_guildstorage()

            local guildstorage = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/storage.txt", "r")      

            if guildstorage == nil then

                return false

            else

                return true

            end

        end

        

        function give_item(itemTab)

            pc.give_item2_select(itemTab[1],itemTab[2])

            local attr,socket = {},{}

            for i = 10,23 do table.insert(attr,{itemTab[i],itemTab[i+1]}) i = i+1 end

            for i = 4,6 do table.insert(socket,itemTab[i]) end

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

                item2.set_attr(i-1, attr[i][1], attr[i][2]) 

            end 

            for i = 1, table.getn(socket) do if tonumber(socket[i]) > 0 then item.set_socket(i-1, socket[i]) end end

        end



        function get_slot_item(slot)

            local items = guildstorage.get_items()

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

                local item = guildstorage.split_(items[i],"#")

                if tonumber(item[3]) == slot then

                    return item

                end

            end

            return 0

        end

        

        function refresh()

            cmdchat('GUILDSTORAGE REFRESH_MONEY/'..guildstorage.get_money())

            local items = guildstorage.get_items()

            if items != 0 then

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

                    local item = guildstorage.split_(items[i],"#")

                    -- chat(table.getn(item))

                    cmdchat('GUILDSTORAGE_ADDITEM '..item[3]..' '..item[1]..' '..item[2]..' '..item[4]..' '..item[5]..' '..item[6]..' '..item[7]..' '..item[8]..' '..item[9]..' '..item[10]..' '..item[11]..' '..item[12]..' '..item[13]..' '..item[14]..' '..item[15]..' '..item[16]..' '..item[17]..' '..item[18]..' '..item[19]..' '..item[20]..' '..item[21]..' '..item[22]..' '..item[23])

                end

            end

            cmdchat('GUILDSTORAGE REFRESH')

        end

        

        function refresh_tempslots()

            cmdchat('GUILDSTORAGE REFRESH_MONEY/'..guildstorage.get_money())

            cmdchat('GUILDSTORAGE CLEAR_TEMPSLOTS')

            local items = guildstorage.get_items()

            if items != 0 then

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

                    local item = guildstorage.split_(items[i],"#")

                    cmdchat('GUILDSTORAGE_ADDTEMPSLOT '..item[3]..' '..item[1]..' '..item[2]..' '..item[4]..' '..item[5]..' '..item[6]..' '..item[7]..' '..item[8]..' '..item[9]..' '..item[10]..' '..item[11]..' '..item[12]..' '..item[13]..' '..item[14]..' '..item[15]..' '..item[16]..' '..item[17]..' '..item[18]..' '..item[19]..' '..item[20]..' '..item[21]..' '..item[22]..' '..item[23])

                end

            end

            cmdchat('GUILDSTORAGE COMPARE_TEMPSLOTS')

        end

        

        function slot_empty(slot)

            local itemList = guildstorage.get_items()

            

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

                local item = guildstorage.split_(itemList[i],"#")

                if tonumber(item[3]) == slot then

                    return false

                end

            end

            return true

        end

        

        function create_guildstorage()

            os.execute("mkdir ".."/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild())

            local guildstorage = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/storage.txt", "w+")

            local guildstorage = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/money.txt", "w+")

            guildstorage:write("0")

            guildstorage:close()

            local guildstorage = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/authority.txt", "w+")

            local guildstorage = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/logs.txt", "w+")

            

            guildstorage:close()

        end

        

        function insert_item(cell,slot,tab)

            item.select_cell(cell)

            local attr = {{item2.get_attr(0)}, {item2.get_attr(1)}, {item2.get_attr(2)}, {item2.get_attr(3)},{item2.get_attr(4)},{item2.get_attr(5)}, {item2.get_attr(6)}}

            local socket, itemVnum, itemCount = {item.get_socket(0), item.get_socket(1), item.get_socket(2),item.get_socket(3),item.get_socket(4),item.get_socket(5)}, item.get_vnum(), item.get_count()      

            if not guildstorage.item_can_store(itemVnum) then syschat'Dieses Item kann nicht gelagert werden.' return end

            guildstorage.add_log(pc.get_name(),'Item','einlagern',item_name(itemVnum)..' ('..itemCount..')')

            local guildstorage = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/storage.txt", "a+")

            if not pc.can_warp() then return end

            item.select(cell)

            if item.vnum == 0 then return end

            --if item.rem(item.get_count()) then

            item.remove()

            guildstorage:write(itemVnum.."#"..itemCount.."#"..(slot+120*tab).."#"..socket[1].."#"..socket[2].."#"..socket[3].."#"..socket[4].."#"..socket[5].."#"..socket[6].."#"..attr[1][1].."#"..attr[1][2].."#"..attr[2][1].."#"..attr[2][2].."#"..attr[3][1].."#"..attr[3][2].."#"..attr[4][1].."#"..attr[4][2].."#"..attr[5][1].."#"..attr[5][2].."#"..attr[6][1].."#"..attr[6][2].."#"..attr[7][1].."#"..attr[7][2].."\\n")

            guildstorage:flush()

            guildstorage:close()

            cmdchat('GUILDSTORAGE_ADDITEMSLOT '..slot..' '..tab..' '..itemVnum..' '..itemCount..' '..socket[1]..' '..socket[2]..' '..socket[3]..' '..socket[4]..' '..socket[5]..' '..socket[6]..' '..attr[1][1]..' '..attr[1][2]..' '..attr[2][1]..' '..attr[2][2]..' '..attr[3][1]..' '..attr[3][2]..' '..attr[4][1]..' '..attr[4][2]..' '..attr[5][1]..' '..attr[5][2]..' '..attr[6][1]..' '..attr[6][2]..' '..attr[7][1]..' '..attr[7][2])

            --else

                --syschat("Du hast das Item nicht mehr")

            --end

        end

        

        function remove_item(slot)

            local gsPath = "/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/storage.txt"

            local items = {}

            local itemList = guildstorage.get_items()

            

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

                table.insert(items,guildstorage.split_(itemList[i],"#"))

            end

            

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

                if items[i][3] == tostring(slot) then 

                    guildstorage.add_log(pc.get_name(),'Item','rausnehmen',item_name(items[i][1])..' ('..items[i][2]..')')

                    table.remove(items,i)

                    break

                end

            end

            local gs = io.open(gsPath, "w+")

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

                gs:write(items[i][1]..'#'..items[i][2]..'#'..items[i][3]..'#'..items[i][4]..'#'..items[i][5]..'#'..items[i][6]..'#'..items[i][7]..'#'..items[i][8]..'#'..items[i][9]..'#'..items[i][10]..'#'..items[i][11]..'#'..items[i][12]..'#'..items[i][13]..'#'..items[i][14]..'#'..items[i][15]..'#'..items[i][16]..'#'..items[i][17]..'#'..items[i][18]..'#'..items[i][19]..'#'..items[i][20]..'#'..items[i][21]..'#'..items[i][22]..'#'..items[i][23]..'\\n')

            end

            gs:flush()

            gs:close()

        end

        

        function get_items()

            local guildstorageTab = {}

            local guildstorage = io.open("/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/storage.txt", "r")

            for item in guildstorage:lines() do

                table.insert(guildstorageTab,item)

            end

            return guildstorageTab or 0

        end

        

        function move_item(from,to)

            local gsPath = "/usr/home/game/share/locale/germany/quest/Guildstorage/".."Guildstorage/"..pc.get_guild().."/storage.txt"

            

            local items = {}

            local itemList = guildstorage.get_items()

            

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

                table.insert(items,guildstorage.split_(itemList[i],"#"))

            end

            

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

                if items[i][3] == tostring(from) then items[i][3] = tostring(to) end

            end

            local gs = io.open(gsPath, "w+")

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

                gs:write(items[i][1]..'#'..items[i][2]..'#'..items[i][3]..'#'..items[i][4]..'#'..items[i][5]..'#'..items[i][6]..'#'..items[i][7]..'#'..items[i][8]..'#'..items[i][9]..'#'..items[i][10]..'#'..items[i][11]..'#'..items[i][12]..'#'..items[i][13]..'#'..items[i][14]..'#'..items[i][15]..'#'..items[i][16]..'#'..items[i][17]..'#'..items[i][18]..'#'..items[i][19]..'#'..items[i][20]..'#'..items[i][21]..'#'..items[i][22]..'#'..items[i][23]..'\\n')

            end

            gs:flush()

            gs:close()

        end

        

        ----------------------

        --STORAGE END

        ----------------------

        

        function client_command(command_)

            return guildstorage.split_(command_,"#")

        end

        

        function split_(string_,delimiter)

            local result = { }

            local from  = 1

            local delim_from, delim_to = string.find( string_, delimiter, from  )

            while delim_from do

                table.insert( result, string.sub( string_, from , delim_from-1 ) )

                from  = delim_to + 1

                delim_from, delim_to = string.find( string_, delimiter, from  )

            end

            table.insert( result, string.sub( string_, from  ) )

            return result

        end

        

        

        when login begin

            cmdchat("GUILDSTORAGE QID/"..q.getcurrentquestindex())

        end

        when 70028.use begin

            cmdchat("GetInputStop")

        end

        when 60002.use begin

            if not pc.has_guild() then syschat'Du benoetigst eine Gilde um das Gildenlager benutzen zu koennen.' setskin(NOWINDOW) return end

            if not guildstorage.has_guildstorage() then guildstorage.create_guildstorage() end

            -- chat("PENIS")

            if pc.is_guild_master() then 

                cmdchat('GUILDSTORAGE OPEN/1')

            else

                cmdchat('GUILDSTORAGE OPEN/0')

            end

            

            -- chat("2")--pack reload mein ich xD wo ist mein chat du judenkind frag das die quest nicht mich

            guildstorage.refresh()

            pc.setqf("GUILDSTORAGE",1)

            setskin(NOWINDOW)

            -- say("TEST")

            --ka ob das am setskin liegt, ich nutze das nie hm...

        end

        

        when button begin

            local cmd = guildstorage.client_command(guildstorage.getinput("GUILDSTORAGE QUESTCMD"))

            -- [ITEM]

            --chat(cmd)

            --bist in ner gilde? xD erst auf unserem server testen haben das doch auch danach da sonst m�sste ich leveln xDok xD

            if cmd[1] == 'TAKE_ITEM' then

                if not guildstorage.get_authority(1) then syschat'Du besitzt keine Berechtigung hierfuer.' return end

                if pc.get_empty_inventory_count() < 3 then syschat'Du hast nicht genug Platz im Inventar, du brauchst mindestens drei freie Plaetze' return end

                local slot = tonumber(cmd[2])+120*tonumber(cmd[3])

                local item = guildstorage.get_slot_item(slot)

                if guildstorage.slot_empty(slot) then syschat'Dieses Item befindet sich an einer anderen Position, oder wurde schon rausgenommen' return end

                guildstorage.remove_item(slot)

                guildstorage.give_item(item)

            elseif cmd[1] == 'MOVE_ITEM' then

                if not guildstorage.get_authority(0) then syschat'Du besitzt keine Berechtigung hierfuer.' return end

                --possible to store the item? antiflag/flag

                

                if cmd[2] == 'INVENTORY' then

                    if not guildstorage.slot_empty(tonumber(cmd[4])+120*tonumber(cmd[5])) then syschat'Dieser Slot ist bereits belegt.' return end

                    guildstorage.insert_item(tonumber(cmd[3]),tonumber(cmd[4]),tonumber(cmd[5]))

                elseif cmd[2] == 'GUILDSTORAGE' then

                    if not guildstorage.slot_empty(tonumber(cmd[5])+120*tonumber(cmd[6])) then syschat'Dieser Slot ist bereits belegt, oder das Item existiert nichtmehr.' return end

                    guildstorage.move_item(tonumber(cmd[3])+120*tonumber(cmd[4]),tonumber(cmd[5])+120*tonumber(cmd[6]))

                end

            -- [MONEY]

            elseif cmd[1] == 'TAKE_MONEY' then

                if not guildstorage.get_authority(3) then syschat'Du besitzt keine Berechtigung hierfuer.' return end

                local old_money = guildstorage.get_money()

                if old_money < tonumber(cmd[2]) then syschat'Soviel Yang ist nicht im Gildenlager.' return end 

                local new_money = tonumber(cmd[2])

                if new_money+pc.get_money() >= 1999999999 then syschat'Du kannst nicht mehr wie 2.000.000.000 Yang bei dir haben.' return end

                guildstorage.change_money(-new_money)

                pc.change_money(new_money)

                guildstorage.add_log(pc.get_name(),'Yang','abheben',new_money)

                cmdchat('GUILDSTORAGE REFRESH_MONEY/'..(old_money-new_money))

            elseif cmd[1] == 'GIVE_MONEY' then

                if not guildstorage.get_authority(2) then syschat'Du besitzt keine Berechtigung hierfuer.' return end

                local old_money = guildstorage.get_money()

                local new_money = tonumber(cmd[2])

                if new_money > pc.get_money() then syschat'Soviel Yang besitzt du nicht' return end

                pc.change_money(-new_money)

                guildstorage.change_money(new_money)

                guildstorage.add_log(pc.get_name(),'Yang','einzahlen',new_money)

                cmdchat('GUILDSTORAGE REFRESH_MONEY/'..(old_money+new_money))

            elseif cmd[1] == 'GETGUILDSTORAGEMONEY' then

                cmdchat('GUILDSTORAGE REFRESH_GUILDWINDOW_MONEY/'..guildstorage.get_money())

            -- [MEMBER]

            elseif cmd[1] == 'ADD_MEMBER' then

                if not pc.is_guild_master() then syschat'Cheese. ;p' return end

                local members = guildstorage.get_members()

                if table.getn(members) >= 40 then syschat'Du kannst maximal nur 12 Member eintragen.' return end

                guildstorage.add_member(cmd[2])

                cmdchat('GUILDSTORAGE MEMBER_COMPLETE')

            elseif cmd[1] == 'DELETE_MEMBER' then

                if not pc.is_guild_master() then syschat'Cheese. ;p' return end

                guildstorage.delete_member(cmd[2])

                cmdchat('GUILDSTORAGE MEMBER_COMPLETE')

            elseif cmd[1] == 'AUTHORITY' then

                if not pc.is_guild_master() then syschat'Cheese. ;p' return end

                guildstorage.set_authority(cmd[2],tonumber(cmd[3]),cmd[4])

            elseif cmd[1] == 'GETMEMBERLIST' then

                if not pc.is_guild_master() then syschat'Cheese. ;p' return end

                local members = guildstorage.get_members()

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

                    -- id, membername, authority 1-4

                    cmdchat('GUILDSTORAGE_ADDMEMBER '..(i-1)..' '..members[i][1]..' '..members[i][2]..' '..members[i][3]..' '..members[i][4]..' '..members[i][5])

                end

                cmdchat('GUILDSTORAGE REFRESH_MEMBERS')

            elseif cmd[1] == 'UPDATE' then

                guildstorage.refresh_tempslots()

            elseif cmd[1] == 'LOAD_LOGS' then

                if not pc.is_guild_master() then syschat'Cheese. ;p' return end

                local logs = guildstorage.load_logs()

                local logsLen = table.getn(logs)

                for i = 0, logsLen-1 do

                    local var = (logsLen-i)

                    cmdchat('GUILDSTORAGE_ADDLOG '..(var-1)..' '..logs[var][1]..' '..logs[var][2]..' '..logs[var][3]..' '..logs[var][4]..' '..logs[var][5])

                end

            elseif cmd[1] == 'DELETE_LOGS' then

                if not pc.is_guild_master() then syschat'Cheese. ;p' return end

                guildstorage.clear_logs()

                

            elseif cmd[1] == 'BUTTON' then

                if cmd[2] == "0" then

                    setskin(NOWINDOW)

                    game.open_mall()

                elseif cmd[2] == "1" then

                    setskin(NOWINDOW)

                    game.open_safebox()

                elseif cmd[2] == "2" then

                    if not pc.has_guild() then syschat'Du benoetigst eine Gilde um das Gildenlager benutzen zu koennen.' setskin(NOWINDOW) return end

                    if not guildstorage.has_guildstorage() then guildstorage.create_guildstorage() end

                    

                    if pc.is_guild_master() then 

                        cmdchat('GUILDSTORAGE OPEN/1')

                    else

                        cmdchat('GUILDSTORAGE OPEN/0')

                    end

                    

                    guildstorage.refresh()

                    pc.setqf("GUILDSTORAGE",1)

                    setskin(NOWINDOW)

                end

            end

        end

        

        



    end

end

Page 707 of 845

707