[Release] Questside Mobplacer

Soo, mal was neues f�r euch:
Ein Mob-Placer via Quest.

Features:

F�gt Monster, Gruppen und Randomgroups zur regen.txt der map hinzu, auf der ihr steht
Entfernt Mobs in eurer N�he. (Nat�rlich mit Auswahlm�glichkeit)
Nat�rlich erscheinen die Monster erst nach Core- oder Maprestart

Ihr geht als GM Online und geht an eine Stelle auf einer Map, wo ihr ein Monster (oder eine Gruppe haben wollt).

Nun dr�ckt auf die Schriftrolle "Mobplacer". Nun k�nnt ihr ausw�hlen, was ihr machen wollt.

Rest erkl�rt sich von selbst, au�er:

Mob-ID's eingeben, nicht die Namen
Setzt den Mob an die Stelle an der ihr Steht
Der Mobremover listet nur Mobgruppen in eurer N�he auf
Gruppen: group.txt Values
Random Gruppen: groupgroup.txt Values

Die Quest:

Spoiler

PHP Code:


			
quest mobplacer begin

    state start begin    

        when login with pc.is_gm() begin

            send_letter('Mobplacer')

        end

        when button or info begin

            say('Willkommen im Mobplacer von Mijago[ENTER]Was m�chtest du tun?')

            local sel = select('Hinzuf�gen','Entfernen','Nichts')

            if sel == 2 then

                mobplacer.deletemob()

            elseif sel == 1 then

                mobplacer.mob_place()

            end

            send_letter('Mobplacer')

        end

        function mob_folder(mid)

            if mid == nil then

                mid = pc.get_map_index()

            end

            local d,e = io.open('locale/germany/map/index',"r"),{}

            for line in d:lines() do

                local c = split(line,' ')

                if c[2] ~= nil then

                    e[tonumber(c[1])] = c[2]

                end

            end

            return e[mid]

        end

        function mob_place(mid)

            if mid == nil then

                mid = pc.get_map_index()

            end

            say('Du m�chtest ein Monster platzieren?[ENTER]Was soll platziert werden?')

            say('Mapindex: '..mid..' | x: '..pc.get_local_x()..' | y: '..pc.get_local_y())

            local was = select('Einzelner Mob','Gruppe','Random Gruppe','Nichts')

            local art,nm = 'm','es Monster'

            if was == 4 then return end

            if was == 2 then

                art,nm = 'g','e Gruppe'

            elseif was == 3 then

                art,nm = 'r','e Random Gruppe'

            end

            say('Welcher Mob soll platziert werden?')

            say('Mapindex: '..mid..' | Ordner: '..mobplacer.mob_folder(mid)..' | x: '..pc.get_local_x()..' | y: '..pc.get_local_y())

            local mob = input()

            say('Sicher, dass dies'..nm..' hier gespawnt werden soll?')

            if select("Ja","Nein") == 2 then return end

            mobplacer.appendmob(art,mob)

            say('Der Mob wurde hinzugef�gt.')

        end

        function appendmob(art,id,mid)

            local tab = '    '

            if mid == nil then

                mid = pc.get_map_index()

            end

            say('Gib die Zeit an, die zwischen dem Respawns liegen soll.[ENTER](In Sekunden)')

            local respawn = input()

            local appendline = art..tab..pc.get_local_x()..tab..pc.get_local_y()..tab..'10    10    0    0    '..respawn..'s    100    1    '..id

            local into = io.open('locale/germany/map/'..mobplacer.mob_folder(mid)..'/regen.txt','a+')

            into:write('\\n'..appendline)

            into:close()

        end

        function deletemob()

            local tab = '    '

            say('Was willst du entfernen?')

            local was = select('Einzelner Mob','Gruppe','Random Gruppe','Nichts')

            local art,nm = 'm','Monster'

            if was == 4 then return end

            if was == 2 then

                art,nm = 'g','Gruppe'

            elseif was == 3 then

                art,nm = 'r','Random Gruppe'

            end

            say('Auswahl treffen:')

            local det,sl,mobs,inc,order = io.open('locale/germany/map/'..mobplacer.mob_folder()..'/regen.txt'),{6},{},0,{}

            for line in det:lines() do

                local data = split(line,tab)

                inc = inc+1

                order[inc] = line

                if data[1] == art then

                    if tonumber(data[2]) > pc.get_local_x()-10 and tonumber(data[2]) < pc.get_local_x()+10 and tonumber(data[3]) > pc.get_local_y()-10 and tonumber(data[3]) < pc.get_local_y()+10 then

                        table.insert(sl,nm..' '..data[11]..': x'..data[2]..' y'..data[3])

                        table.insert(mobs,{inc,data[11]})

                    end

                end

            end

            det:close()

            table.insert(sl,'Abbrechen')

            local sel = select2(sl)

            if sl[sel] == 'Abbrechen' then return end

            table.remove(order,mobs[sel][1])

            local writedata = io.open('locale/germany/map/'..mobplacer.mob_folder(mid)..'/regen.txt',"w")

            local appendstr = ''

            table.foreach(order,function(i,l) appendstr = appendstr..'\\n'..l end)

            writedata:write(appendstr)

            writedata:close()

            say('Monster Entfernt.')

        end    

    end

end

Ihr m�sst einige Befehle in eure quest_functions einf�gen, entnehmt diese der Fehlermeldung.
zB

Spoiler

Danke an Langeweile2011 f�r das Testen :)

Ben�tigt nat�rlich meine [Only registered and activated users can see links. Click Here To Register...].