[SERVICE] Die Questerstellung

Page 50 of 248

10/23/2013 18:41 OliviaIchLiebeDichx3#736

Hatt jemand so eine quest das man 10 Metins der schaten killen m�ss und dan ein Lolli bekommt ?

Und 500 schwarze ork's und dan bekommt man die 50er king nach char

10/23/2013 21:58 Noa_#737

Quote:

Originally Posted by OliviaIchLiebeDichx3

Hatt jemand so eine quest das man 10 Metins der schaten killen m�ss und dan ein Lolli bekommt ?

Und 500 schwarze ork's und dan bekommt man die 50er king nach char

PHP Code:


			
quest name begin

    state start begin

        when letter begin

            if pc.getqf('mob_'..vnumork)<500 or pc.getqf('mob_'..vnumschatten)<10 then

                send_letter"Auftrag"

            end

        end

        when button or info begin

            say_title"Kill-Auftrag"

            say""

            local _ork,_schatten=pc.getqf('mob_'..vnumork),pc.getqf('mob_'..vnumschatten)

            say((_ork<500 and'Du musst noch '.._ork.." von 500 Beseigen")or'')

            say((_schatten<10 and'Du musst noch '.._schatten..' von 10 Besiegen')or'')

        end

        when kill with not npc.is_pc()begin

            local _countertable={

                [vnumork]={500,{'King-Krieger','King-Ninja','King-Sura','King-Schami'}},

                [vnumschatten]={10,'lolli'},

            }

            local _table=_countertable[npc.get_race()]

            if _table~=nil then

                if pc.getqf('mob_'..npc.get_race())<_table[1] then

                    pc.setqf('mob_'..npc.get_race(),pc.getqf('mob_'..npc.get_race())+1)

                else

                    local _reward=type(_table[2])=='table'and _table[2][pc.get_job()+1]or _table[2]

                    say("Du hast den Autrag mit dem ".._table[1].."x "..mob_name(npc.get_race()))

                    say'Geschafft und bekommst deshalb'

                    say''

                    say_item_vnum(_reward)

                    clear_letter()

                end

            end

        end

    end

end

hab es nicht getestet, wenn es ein Fehler spukt, sag einfach bescheid

10/24/2013 12:16 OliviaIchLiebeDichx3#738

Kommt zwar kein fehler aber wo finde ich die quest ? :o
Also ingame?

10/24/2013 13:46 Mijago#739

Wenn er es richtig gemacht hat, als Briefchen links :D

10/24/2013 14:36 OliviaIchLiebeDichx3#740

Kommt leider nix :/

10/24/2013 14:43 .ProjektX�#741

Du musst noch dort wo vnumork/ vnumschatten steht die Vnums eintragen

so z.b.

PHP Code:


			
pc.getqf('mob_'..vnumork)

wenn vnumork = 1238 ist dann:

PHP Code:


			
pc.getqf('mob_1238')

10/24/2013 19:26 x3Schaufelx3#742

Hey,
Ich br�uchte dringend eine Quest,
Die mich �ber einen NPC in 3 andere Map�s portet mit lvl beschr�nkung z.B Grotte 1 ab 65 Grotte 2 ab 75 usw

W�re dankbar

10/25/2013 22:06 G.I Duke#743

Quote:

Originally Posted by x3Schaufelx3

Hey,
Ich br�uchte dringend eine Quest,
Die mich �ber einen NPC in 3 andere Map�s portet mit lvl beschr�nkung z.B Grotte 1 ab 65 Grotte 2 ab 75 usw

W�re dankbar

PHP Code:


			
quest teleport1 begin

    state starte bgein

        when npc_vnum.chat."Teleportieren" begin -- NPC VNUM noch eintragen

            say_title("Wohin m�chtest du teleportiert werden?")

            say("")

            local s = select("Grotte der Verbannung", "Grotte der Verbannung 2", "Grotte der Verbannung 3", "Nirgends.")

            if s == 1 then

                if pc.get_level() < 65 then

                    syschat("Du musst mindestens Level 65 sein um diesen Ort betreten zu k�nnen.")

                elseif pc.get_level() >= 65 then

                    pc.warp(00000, 00000) -- Koordinaten noch eintragen

                end

            elseif s == 2 then

                if pc.get_level() < 75 then

                    syschat("Du musst mindestens Level 75 sein um diesen Ort betreten zu k�nnen.")

                elseif pc.get_level() >= 75 then

                    pc.warp(00000, 00000) -- Koordinaten noch eintragen

                end

            elseif s == 3 then

                if pc.get_level() < 85 then

                    syschat("Du musst mindestens Level 85 sein um diesen Ort betreten zu k�nnen.")

                elseif pc.get_level() >= 85 then

                    pc.warp(00000, 00000) -- Koordinaten noch eintragen

                end

            elseif s == 4 then

            end

        end

    end

end

MfG

10/26/2013 10:18 arakel112#744

Hey ich suche eine Quest!
z.b eine Truhe wen man die truhe versucht zu �ffnen ben�tigt man ein Passwort
um die Truhe zu �ffnen, wen man dan das Passwort eingegebn hat und es korrekt ist �ffnet sich ein EXTRA Lager ! (fast die gleiche Funktion wie beim Lagerverwalter aber er sollte ein v�llig anderes Lager �ffnen also extra)

Viel Gl�ck & danke :/:bandit:

10/26/2013 14:34 G.I Duke#745

Quote:

Originally Posted by arakel112

Hey ich suche eine Quest!
z.b eine Truhe wen man die truhe versucht zu �ffnen ben�tigt man ein Passwort
um die Truhe zu �ffnen, wen man dan das Passwort eingegebn hat und es korrekt ist �ffnet sich ein EXTRA Lager ! (fast die gleiche Funktion wie beim Lagerverwalter aber er sollte ein v�llig anderes Lager �ffnen also extra)

Viel Gl�ck & danke :/:bandit:

Was f�r ein EXTRA Lager? Haste schon nen "zweites" - Lager erstellt?

10/27/2013 02:55 Noa_#746

Quote:

Originally Posted by arakel112

Hey ich suche eine Quest!
z.b eine Truhe wen man die truhe versucht zu �ffnen ben�tigt man ein Passwort
um die Truhe zu �ffnen, wen man dan das Passwort eingegebn hat und es korrekt ist �ffnet sich ein EXTRA Lager ! (fast die gleiche Funktion wie beim Lagerverwalter aber er sollte ein v�llig anderes Lager �ffnen also extra)

Viel Gl�ck & danke :/:bandit:

Questlib:

Spoiler

PHP Code:


			
FOLDER_DIRECTORY=get_locale_base_path()..'/warehouse'
PATH_TO_FILE=FOLDER_DIRECTORY..'/warehouse_id_'..pc.get_player_id()..".txt"
function CreateFolder()
    if os.execute('cd '..FOLDER_DIRECTORY)~=0 then-- if not exist
        os.execute('mkdir '..FOLDER_DIRECTORY)-- create folder on directory
    end
end
function RemoveFromTable(tab)
    -- Create a folder if doesn t exist
    remove_=io.open(PATH_TO_FILE,'w')
    for index=1,table.getn(tab) do
        remove_:write(tab[index][2].." "..tab[index][2]..'\n')
    end
    remove_:close()
end
function WriteOn(vnum,count)
    -- if not exist create a empty file 
    if io.open(PATH_TO_FILE)==nil then
        io.open(PATH_TO_FILE,'w'):close()
    end
    WriteOnFile=io.open(PATH_TO_FILE,'a+')
    WriteOnFile:write(vnum..' '..count..'\n')
    WriteOnFile:close()
end
function select2(tab,...)
    arg.n = nil
    if type(tab) ~= "table" and type(tab) == 'number' then
        table.insert(arg,1,tab)
        tab = arg
    elseif type(tab) ~= "table" and type(tab) == 'string' then
        table.insert(arg,1,tab)
        table.insert(arg,1,8)
        tab = arg
    elseif type(tab) == "table" and type(tab[1]) == 'string' then
        table.insert(tab,1,8)
    end
    local max = 5; table.remove(tab,1)
    local tablen,outputstr,outputcount,nextc,incit = table.getn(tab),"",0,0,0
    table.foreach(tab,
        function(i,l)
            outputcount = outputcount + 1
            if outputcount == 1 then
                outputstr=outputstr..'sel = select("'..l..'"'
            elseif outputcount == max and tablen > outputcount+incit  then
                if tablen ~= outputcount+incit+1 then
                    outputstr=outputstr..',"'..l..'","N�chste Seite") + '..incit..' '
                    if nextc > 0 then
                        outputstr = outputstr..'end '
                    end
                    outputstr=outputstr..'; if sel == '..(incit+max+1)..' then '
                    nextc, outputcount, incit= nextc+1,0,incit+max
                else
                    outputstr=outputstr..',"'..l..'"'
                end
            else
                outputstr=outputstr..',"'..l..'"'
            end
        end
    )
    outputstr = outputstr..') + '..incit
    if nextc > 0 then
        outputstr = outputstr..' end'
    end
    outputstr= outputstr.. '; return sel'
    print(outputstr)
    local sel = assert(loadstring(outputstr))()
    tablen,outputstr,outputcount,nextc,incit = nil,nil,nil,nil,nil -- Speicher freimachen
    return sel
end

Quest:

Spoiler

PHP Code:


			
quest name begin 
    state start begin 
        when login with game.get_event_flag('folderFlag')==0 begin 
            CreateFolder()-- create a folder if not exist 
            game.set_event_flag('folderFlag',1)-- safety first 
        end 
        when mob_vnum.take begin 
            say_title'My-Warehouse keeper' 
            say'' 
            say('Save vnum: '..item.get_name()..' count: '..item.get_count()..' ?') 
            say'' 
            if select('Save',"don't Save")==2 then return end 
            WriteOn(item.vnum, item.get_count())--only selected items 
        end 
        when vnum.use begin 
            if game.get_event_flag('Warehouse_pw_'..pc.get_player_id())==0 then 
                say_title'Enter your password' 
                say'' 
                local pw=tonumber(input())or false 
                if string.len(tostring(pw))>10 then 
                    say'the password is too long' 
                    return 
                elseif not pw then 
                    say'only numbers' 
                    return 
                end 
                game.set_event_flag('Warehouse_pw_'..pc.get_player_id(),pw) 
            end 
            if tonumber(input())~=game.get_event_flag('Warehouse_pw_'..pc.get_player_id()) then 
                say'wrong password' 
                return 
            end 
            say_title'what do you want to do?' 
            say'' 
            -- if not exist create empty file 
            if io.open(PATH_TO_FILE)==nil then 
                io.open(PATH_TO_FILE,'w'):close() 
            end 
            local data=io.open(PATH_TO_FILE,'r') 
            if data:read(1)==nil then 
                say'empty warehouse' 
                data:close() 
                return 
            end 
            -- Table of Contents 
            local _warehouse,selection={},{} 
            for line in data:lines() do 
                vnum=string.format('%s',string.gsub(line,'(%s+%d+)','')) 
                count=string.format('%s',string.gsub(line,'(%d+%s+)','')) 
                _warehouse[table.getn(_warehouse)+1]={vnum,count} 
                table.insert(selection,item_name(vnum)..' ('..count..')') 
            end 
            table.insert(selection,'close') 
            data:close() 
            local x=select2(selection)-- 5 selections  
            say'' 
            say(_warehouse[x][1]..' want this item?') 
            if x==table.getn(selection) then return end 
            if not pc.enough_inventory(_warehouse[x][1]) then 
                say_title 
                return 
            end 
            -- give and remove from the table 
            pc.give_item2(_warehouse[x][1],_warehouse[x][2]) 
            say('your reward: '.._warehouse[x][1]..' x'.._warehouse[x][2]) 
            table.remove(_warehouse,x) 
            RemoveFromTable(_warehouse) 
        end 
    end 
end

10/27/2013 09:55 .ProjektX�#747

Quote:

Originally Posted by Noa_

Questlib:

Spoiler

PHP Code:

FOLDER_DIRECTORY=get_locale_base_path()..'/warehouse' PATH_TO_FILE=FOLDER_DIRECTORY..'/warehouse_id_'..pc.get_player_id()..".txt" function CreateFolder() if os.execute('cd '..FOLDER_DIRECTORY)~=0 then-- if not exist os.execute('mkdir '..FOLDER_DIRECTORY)-- create folder on directory end end function RemoveFromTable(tab) -- Create a folder if doesn t exist remove_=io.open(PATH_TO_FILE,'w') for index=1,table.getn(tab) do remove_:write(tab[index][2].." "..tab[index][2]..'\n') end remove_:close() end function WriteOn(vnum,count) -- if not exist create a empty file if io.open(PATH_TO_FILE)==nil then io.open(PATH_TO_FILE,'w'):close() end WriteOnFile=io.open(PATH_TO_FILE,'a+') WriteOnFile:write(vnum..' '..count..'\n') WriteOnFile:close() end function select2(tab,...) arg.n = nil if type(tab) ~= "table" and type(tab) == 'number' then table.insert(arg,1,tab) tab = arg elseif type(tab) ~= "table" and type(tab) == 'string' then table.insert(arg,1,tab) table.insert(arg,1,8) tab = arg elseif type(tab) == "table" and type(tab[1]) == 'string' then table.insert(tab,1,8) end local max = 5; table.remove(tab,1) local tablen,outputstr,outputcount,nextc,incit = table.getn(tab),"",0,0,0 table.foreach(tab, function(i,l) outputcount = outputcount + 1 if outputcount == 1 then outputstr=outputstr..'sel = select("'..l..'"' elseif outputcount == max and tablen > outputcount+incit then if tablen ~= outputcount+incit+1 then outputstr=outputstr..',"'..l..'","N�chste Seite") + '..incit..' ' if nextc > 0 then outputstr = outputstr..'end ' end outputstr=outputstr..'; if sel == '..(incit+max+1)..' then ' nextc, outputcount, incit= nextc+1,0,incit+max else outputstr=outputstr..',"'..l..'"' end else outputstr=outputstr..',"'..l..'"' end end ) outputstr = outputstr..') + '..incit if nextc > 0 then outputstr = outputstr..' end' end outputstr= outputstr.. '; return sel' print(outputstr) local sel = assert(loadstring(outputstr))() tablen,outputstr,outputcount,nextc,incit = nil,nil,nil,nil,nil -- Speicher freimachen return sel end

Quest:

Spoiler

PHP Code:

quest name begin state start begin when login with game.get_event_flag('folderFlag')==0 begin CreateFolder()-- create a folder if not exist game.set_event_flag('folderFlag',1)-- safety first end when mob_vnum.take begin say_title'My-Warehouse keeper' say'' say('Save vnum: '..item.get_name()..' count: '..item.get_count()..' ?') say'' if select('Save',"don't Save")==2 then return end WriteOn(item.vnum, item.get_count())--only selected items end when vnum.use begin if game.get_event_flag('Warehouse_pw_'..pc.get_player_id())==0 then say_title'Enter your password' say'' local pw=tonumber(input())or false if string.len(tostring(pw))>10 then say'the password is too long' return elseif not pw then say'only numbers' return end game.set_event_flag('Warehouse_pw_'..pc.get_player_id(),pw) end if tonumber(input())~=game.get_event_flag('Warehouse_pw_'..pc.get_player_id()) then say'wrong password' return end say_title'what do you want to do?' say'' -- if not exist create empty file if io.open(PATH_TO_FILE)==nil then io.open(PATH_TO_FILE,'w'):close() end local data=io.open(PATH_TO_FILE,'r') if data:read(1)==nil then say'empty warehouse' data:close() return end -- Table of Contents local _warehouse,selection={},{} for line in data:lines() do vnum=string.format('%s',string.gsub(line,'(%s+%d+)','')) count=string.format('%s',string.gsub(line,'(%d+%s+)','')) _warehouse[table.getn(_warehouse)+1]={vnum,count} table.insert(selection,item_name(vnum)..' ('..count..')') end table.insert(selection,'close') data:close() local x=select2(selection)-- 5 selections say'' say(_warehouse[x][1]..' want this item?') if x==table.getn(selection) then return end if not pc.enough_inventory(_warehouse[x][1]) then say_title return end -- give and remove from the table pc.give_item2(_warehouse[x][1],_warehouse[x][2]) say('your reward: '.._warehouse[x][1]..' x'.._warehouse[x][2]) table.remove(_warehouse,x) RemoveFromTable(_warehouse) end end end

Damit kannste aber keine Items die auf Zeit laufen oder Waffen mit bonis etc speichern. Solltest vllt noch nen Verbot fuer die Types einbauen.

10/27/2013 12:31 Noa_#748

Quote:

Originally Posted by .ProjektX�

Damit kannste aber keine Items die auf Zeit laufen oder Waffen mit bonis etc speichern. Solltest vllt noch nen Verbot fuer die Types einbauen.

man kann jetzt unendlich viele Items mit oder ohne Bonus lagern,
Items mit Bonus werden wie jedes andere Item gespeichert wird aber beim Gebrauch ins Itemshoplager gebracht.

Quest:

Spoiler

PHP Code:


			
quest name begin  

    state start begin  

        when login with game.get_event_flag('folderFlag')==0 begin  

            CreateFolder()-- create a folder if not exist  

            game.set_event_flag('folderFlag',1)-- safety first  

        end  

        when mob_vnum.take begin  

            say_title'My-Warehouse keeper'  

            say''  

            say('Save vnum: '..item.get_name()..' count: '..item.get_count()..' ?')  

            say''  

            if select('Save',"don't Save")==2 then return end

            if item.get_type()<3 then --only items with bonis

                mysql_query("UPDATE `item` SET `owner_id`='0', `window`='MALL',`pos`='0' WHERE (`id`="..item.get_id()..") LIMIT 1;")-- remove item from player 

            end

            WriteOn(item.get_id(), item.get_count())--only selected items  

            item.remove()

        end  

        when vnum.use begin  

            if game.get_event_flag('Warehouse_pw_'..pc.get_player_id())==0 then  

                say_title'Enter your password'  

                say''  

                local pw=tonumber(input())or false  

                if string.len(tostring(pw))>10 then  

                    say'the password is too long'  

                    return  

                elseif not pw then  

                    say'only numbers'  

                    return  

                end  

                game.set_event_flag('Warehouse_pw_'..pc.get_player_id(),pw)  

            end  

            if tonumber(input())~=game.get_event_flag('Warehouse_pw_'..pc.get_player_id()) then  

                say'wrong password'  

                return  

            end  

            say_title'what do you want to do?'  

            say''  

            -- if not exist create empty file  

            if io.open(PATH_TO_FILE)==nil then  

                io.open(PATH_TO_FILE,'w'):close()  

            end  

            local data=io.open(PATH_TO_FILE,'r')  

            if data:read(1)==nil then  

                say'empty warehouse'  

                data:close()  

                return  

            end  

            -- Table of Contents  

            local _warehouse,selection={},{}  

            for line in data:lines() do  

                id=string.format('%s',string.gsub(line,'(%s+%d+)',''))  

                count=string.format('%s',string.gsub(line,'(%d+%s+)',''))  

                _warehouse[table.getn(_warehouse)+1]={id,count}

                item.select(id)-- selected all items in table

                table.insert(selection,item.get_name()..' ('..count..')')  

            end  

            table.insert(selection,'close')  

            data:close()  

            local x=select2(selection)-- 5 selections   

            say''

            say(_warehouse[x][1]..' want this item?')  

            if x==table.getn(selection) then return end  

            select_item(_warehouse[x][1])-- choose the selected item

            if not pc.enough_inventory(item.vnum) then  

                say_title'Not enough space'

                return  

            end 

            if item.get_type()<3 then --only items with bonis

                mysql_query("UPDATE `item` SET `owner_id`='"..pc.get_player_id().."', `window`='MALL' WHERE (`id`="..item.get_id()..") LIMIT 1;")-- add item to player mall

                say'the selected item is located in mall'

            else

                -- give and remove item from table  

                pc.give_item2(item.vnum,_warehouse[x][2])  

            end

            say('your reward: '..item.get_name()..' x'.._warehouse[x][2])  

            table.remove(_warehouse,x)

            RemoveFromTable(_warehouse)  

        end  

    end  

end

10/27/2013 16:09 Cr4shedx#749

Heyho,

Ich br�uchte eine Quest, um simpel ingame Bannen zu k�nnen.
Sie soll enthalten:
- 1 bis 7 Tagesbann
- Permabann
- automatisches Entbannen nach den Zeitraum (1-7)
- bannen �ber ein Item (oder einen Npc)
- nur als GM bedienbar (sollte eigentlich klar sein ;D)
- Auch wenn der Spieler offline ist, sollte ich ihn bannen k�nnen.

W�r hammer geil, wenn einer mir solche eine Quest erstellen k�nnte!

Mfg Cr4shedx

10/27/2013 17:01 Noa_#750

Quote:

Originally Posted by Cr4shedx

Heyho,

Ich br�uchte eine Quest, um simpel ingame Bannen zu k�nnen.
Sie soll enthalten:
- 1 bis 7 Tagesbann
- Permabann
- automatisches Entbannen nach den Zeitraum (1-7)
- bannen �ber ein Item (oder einen Npc)
- nur als GM bedienbar (sollte eigentlich klar sein ;D)
- Auch wenn der Spieler offline ist, sollte ich ihn bannen k�nnen.

W�r hammer geil, wenn einer mir solche eine Quest erstellen k�nnte!

Mfg Cr4shedx

Quest:

Spoiler

PHP Code:


			
quest name begin
    state start begin
        when letter with pc.is_gm() begin
            send_letter'Ban panel'
        end
        when button or info begin
            say_title'nonsense-text'
            say''
            say'would you like ban a player?'
            if select('Yes','No')==2 then return end
            say_title'nonsense-text'
            say''
            say'enter the name of the player'
            local TargetName = input()
            local Name=mysql_query("select count(*) from player.player where name='"..TargetName.."';")[1][1]
            say_title'nonsense-text'
            say''
            if tonumber(Name)==0 then 
                say'There are no player with these name'
                send_letter'Ban panel'
                return 
            end
            say'Write the ban time'
            say'Notice: {only 1-7 hour}'
            local BanTime=tonumber(input())
            say_title'nonsense-text'
            say''
            if BanTime>7 then
                say'You can not ban player over 7h'
                send_letter'Ban panel'
                return
            end
            local ok,err=pcall(mysql_query("UPDATE account.account SET availDt = NOW() + INTERVAL "..BanTime.." HOUR WHERE id = (SELECT account_id FROM player.player WHERE name='"..TargetName.."');"))
            if not ok then
                say(err)
            end
            say_reward('Player: '..TargetName..' Bantime: '..BanTime)
            say'Ban successful'
            send_letter'Ban panel'
        end
    end
end

Page 50 of 248