[SERVICE] Die Questerstellung

Page 72 of 248

02/02/2014 23:06 alptraum96#1066

Hallo ich habe ein kleines Problem und suche nun eine L�sung .

Und zwar m�chte ich eine Quest damit im allchat ein text ausgegben wird sobald ein bestimmtes mob erscheint. hab schon einiges probiert ITEMVNUM.spawn .... oder anderes nur das bl�de ist mit ITEMVNUM.kill klappt es .

W�re dankbar um Hilfe :)

02/03/2014 19:33 muttifruttitutti@web.de#1067

Wenn ich einen Bonus aush�ndigen m�chte, will ich, dass dieser PERMANENT bleibt & nicht nach einem Logout verschwindet, wie mache ich das?

02/04/2014 14:05 nOa##1068

Quote:

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

Wenn ich einen Bonus aush�ndigen m�chte, will ich, dass dieser PERMANENT bleibt & nicht nach einem Logout verschwindet, wie mache ich das?

Hier ist der Befehl:
affect.add_collect([EFFEKT], [Anzahl], [ZEIT])
musst nur noch deinen gew�nschten Effekt, die Anzahl bzw. die Prozentzahl des Effekts/Bonus und die Zeit eintragen.
Wenn du es permanent haben willst solltest du da:
60*60*24*365*60
als Zeit eintragen.

02/04/2014 19:44 JulianBzZ#1069

Guten Tag Leute,

k�nnte Mir jemand eine Quest schreiben wodurch man im Duell & Reichkill's ein gewissen Betrag an Exp & Gold bekommt ? W�re super nett von euch

Cheers

02/04/2014 19:56 nOa##1070

Quote:

Originally Posted by JulianBzZ

Guten Tag Leute,

k�nnte Mir jemand eine Quest schreiben wodurch man im Duell & Reichkill's ein gewissen Betrag an Exp & Gold bekommt ? W�re super nett von euch

Cheers

Schau doch mal hier vorbei:
[Only registered and activated users can see links. Click Here To Register...]

02/04/2014 20:18 JulianBzZ#1071

Quote:

Originally Posted by 123Crusher123

Schau doch mal hier vorbei:
[Only registered and activated users can see links. Click Here To Register...]

Danke jetzt fehlt mir nur noch yang pro kill. Geht das auch vlt in die einer Quest zusammen zu schreiben ?

cheers

02/04/2014 20:38 nOa##1072

Quote:

Originally Posted by JulianBzZ

Danke jetzt fehlt mir nur noch yang pro kill. Geht das auch vlt in die einer Quest zusammen zu schreiben ?

cheers

PHP Code:


			
quest pvp_exp begin
    state start begin
        when login with pc.level >= 75 begin
            set_state(pvp_exp)
        end
    end
    
    state pvp_exp begin
        when letter begin
            send_letter("PvP Erfahrungs Punkte Information")
        end
        
        when button or info begin
            say_title("Info zum PvP-ExP System")
            say("Wenn du jemanden t�test erh�ltst du")
            say("vom Drachengott eine klene Belohnung")
            say("Desweiteren werden ab jetzt alle deine Morde gez�hlt")
            say("")
            say("Achtung! Es werden nur Morde aus anderen Reichen belohnt!")
            pc.setqf("pvp_exp", 0)
            q.set_counter("pvp_exp_kills", 0)
            set_state (pvp_kill_counter)
        end
    end
    
    state pvp_kill_counter begin
        when letter begin
            send_letter("Anzahl deiner Morde")
        end
        
        when button or info begin
            say_title("Anzahl deiner Morde:")
            say_reward("Du hast bereits ".." "..pc.getqf("pvp_exp").." Morde begangen")
            say("")
        end
        
        when kill begin
                if npc.is_pc() and npc.empire != pc.empire then
                        -- Bonus EXP und so...
                        local pvp = {
                                {10, 500000},
                                {25, 1000000},
                                {50, 1000000},
                                {75, 1000000},
                                {100, 1000000},
                                {150, 1000000},
                                {200, 1000000},
                        }
                        local count = pc.getqf("pvp_exp")
                        local pc_name = pc.get_name()
                        local bonus_exp = 0
                        local b = 1
                        local c = b + count
                        
                        pc.setqf("pvp_exp", c)
                        q.set_counter("kills", count)
                        for i=1, table.getn(pvp), 1 do
                                if count == pvp[i][1] then
                                        notice_all(pc_name.." hat "..count.." Morde begangen!")
                                        bonus_exp = pvp[i][2]
                                        break
                                end
                        end
                        pc.give_exp2(2500000+bonus_exp)
                        pc.give_gold(250000) --250k Yang
                end
        end
    end
end

Hier so bekommt man zus�tzlich noch 250k zu jedem kill.

02/05/2014 22:31 Noa_#1073

kann mir jemand eine Funktion schreiben die Daten vom Spieler allgemein speichert, soll zur Datensammlung dienen.
Es soll nicht Server lastend sein und besser w�re wenn ich nichts an der game �ndern m�sste.
Au�erdem soll es den selbe aufbau haben wie die mysql funktion von Mijago.

W�re das m�glich?

02/05/2014 23:35 DasSchwarzeT#1074

Quote:

Originally Posted by Noa_

kann mir jemand eine Funktion schreiben die Daten vom Spieler allgemein speichert, soll zur Datensammlung dienen.
Es soll nicht Server lastend sein und besser w�re wenn ich nichts an der game �ndern m�sste.
Au�erdem soll es den selbe aufbau haben wie die mysql funktion von Mijago.

W�re das m�glich?

Welche "Daten"?
Level? Rasse? Klasse?

02/06/2014 00:33 Noa_#1075

Quote:

"die Daten vom Spieler allgemein speichert,"

mit allgemein ist damit gemeint alles m�gliche zu speichern wie Zahlen , Zeichenketten , Tabellen usw.
Das selbe Prinzip wie Mysql nur ohne die Mysql Schnittstelle zu benutzen oder so wenig wie m�glich.

02/07/2014 12:54 ak98#1076

Heey, ich suche eine Quest wo man z.b bei einer Truhe zwischen 2items entscheiden kann wenn das jmd hat w�rd ich mich freuen :)

02/07/2014 14:07 El Nazar#1077

Nett

02/07/2014 18:53 Drαεth#1078

Ich suche folgende Quest aber sodass er nur 1 Buch ben�tigt f�r alles !
D.h. z.b ich bin jetzt Kr benutzte das Buch... Er sagt mir welchen SKill und das passiert Buch Value: 61000
So , ich bin jetzt Ninja und ich m�chte da gleiche Buch benutzen (61000)
Mit der gleichen funkt. usw.....

Spoiler

Code:

quest Geheimnisbuecher begin
    state start begin
            when 61000.use or 61001.use or 61002.use or 61003.use or 61004.use
                or 61010.use or 61011.use or 61012.use or 61013.use or 61014.use
                or 61020.use or 61021.use or 61022.use or 61023.use or 61024.use or 61025.use
                or 61030.use or 61031.use or 61032.use or 61033.use or 61034.use or 61035.use
                or 61040.use or 61041.use or 61042.use or 61043.use or 61044.use
                or 61050.use or 61051.use or 61052.use or 61053.use or 61054.use
                or 61060.use or 61061.use or 61062.use or 61063.use or 61064.use or 61065.use
                or 61070.use or 61071.use or 61072.use or 61073.use or 61074.use or 61075.use  begin
                Geheimnisbuecher.book_read(item.vnum)
            end
  
            function book_read(vnum)
                local fbs_in_tab =  {
                    [61000] = {0,1,1,"Dreiwege-Schnitt"},     [61001] = {0,1,3,"Kampfrausch"}, [61002] = {0,1,5,"Sausen"}, [61003] = {0,1,2,"Schwertwirbel"}, [61004] = {0,1,4,"Aura"},    
                    [61010] = {0,2,16, "Durchschlag"}, [61011] = {0,2,18, "Stampfer"}, [61012] = {0,2,20, "Schwertschlag"}, [61013] = {0,2,17, "Heftiges"}, [61014] = {0,2,19, "K�rper"},
                    [61020] = {2,1,61, "Fingerschlag"}, [61021] = {1,1,63, "Klingen"}, [61022] = {1,1,65, "R�stungs"}, [61023] = {1,1,62, "Drachenwirbel"}, [61024] = {1,1,64, "Furcht"}, [61025] = {1,1,66, "Zauber"},
                    [61030] = {2,2,76, "Dunkler"}, [61031] = {1,2,78, "Flammen"}, [61032] = {1,2,80, "Geisterschlag"}, [61033] = {1,2,77, "Flammenschlag"}, [61034] = {1,2,79, "Schutz"}, [61035] = {1,2,81, "Stein"},
                    [61040] = {1,1,31, "Hinterhalt"}, [61041] = {1,1,33, "Degenwirbel"}, [61042] = {1,1,35, "Giftwolken"}, [61043] = {1,1,32, "Blitz"}, [61044] = {1,1,34, "Tarnungs"},
                    [61050] = {1,2,46, "Schuss"}, [61051] = {1,2,48, "Feuerpfeil"}, [61052] = {1,2,50, "Giftpfeil"}, [61053] = {1,2,47, "Regen"}, [61054] = {1,2,49, "Feder"},
                    [61060] = {3,1,91, "Talisman"}, [61061] = {3,1,93, "Br�llen"}, [61062] = {3,1,95, "Reflektieren"}, [61063] = {3,1,92, "Drachen"}, [61064] = {3,1,94, "Segens"}, [61065] = {3,1,96, "Drachenhilfe"},
                    [61070] = {3,2,106, "Blitzwurf"}, [61071] = {3,2,108, "Blitzkrallen"}, [61072] = {3,2,110, "Schnelligkeit"}, [61073] = {3,2,107, "Beschw�ren"}, [61074] = {3,2,109, "Kurieren"}, [61075] = {3,2,111, "Angriff"},
                }
               
           
           
           
            if fbs_in_tab[vnum] == nil then
                return syschat("Ung�ltig bitte Versuchs sp�ter erneut oder kontaktiere einen Admin.")
            end
                fbs_in_tab = fbs_in_tab[vnum]
   
   
            if pc.get_job() != fbs_in_tab[1] then
                return syschat("Dieses Geheimnis ist nich f�r deine Klasse bestimmt!")
        end
  
            if pc.get_skill_group() != fbs_in_tab[2] then
                return syschat("Nix f�r diese Klasse")
            end
            
            if pc.get_skill_level(fbs_in_tab[3]) < 30 then
                return syschat("Deine Fertigkeit ist nicht hoch genug um sie L�ften zulassen.")
            end
            
            if pc.get_skill_level(fbs_in_tab[3]) > 39 then
                return syschat("Dieses Geheimnis hast du bereits gel�ftet.")
            end
            
            if item.vnum != vnum then
                return syschat("Ung�ltig bitte Versuchs sp�ter erneut oder kontaktiere einen Admin.")
            end
                pc.set_skill_level(fbs_in_tab[3], 40)
                syschat(fbs_in_tab[4].." Geheimnis wurde entl�ftet, nun ist deine Fertigkeit auf Perfektmeister")
                item.remove()
        end
    end
end

Danke im Vorraus

02/07/2014 20:42 .yorliK#1079

Quote:

Originally Posted by xTwistLP

Ich suche folgende Quest aber sodass er nur 1 Buch ben�tigt f�r alles !
D.h. z.b ich bin jetzt Kr benutzte das Buch... Er sagt mir welchen SKill und das passiert Buch Value: 61000
So , ich bin jetzt Ninja und ich m�chte da gleiche Buch benutzen (61000)
Mit der gleichen funkt. usw.....

Durch deine Quest sehe ich, das der Skill von G gleich auf P gesetzt werden soll, das ganze macht die Regenbogensteinquest auch. Ich hab deine ItemVnum hinzugef�gt, war nicht schwer (61000)...
Falls du deine Texte ungef�hr damit reinbringen m�chtest und nicht wei�t wie, schreib mir ne pn.

Spoiler

PHP Code:


			
quest regenbogenstein begin
    state start begin
        function BuildPerfectMasterSkillList(job, group)
        GRAND_MASTER_SKILL_LEVEL =30
        PERFECT_MASTER_SKILL_LEVEL = 39

        local skill_list = special.active_skill_list[job+1][group]
        local ret_vnum_list = {}
        local ret_name_list = {}

        -- test_chat(string.format("job=%d, group=%d", job, group))

        table.foreach(skill_list, 
        function(i, skill_vnum) 
        local skill_level = pc.get_skill_level(skill_vnum)

        -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))
        if skill_level > GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then

            table.insert(ret_vnum_list, skill_vnum)
            local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
            if name == nil then name=skill_vnum end
            table.insert(ret_name_list, name)
            end
        end)
        return {ret_vnum_list, ret_name_list}


        --return {ret_vnum_list, ret_name_list}
        end
        when 61000.use begin
            local count = pc.count_item(61000)
            pc.setqf("regen_count", count)
            if pc.get_skill_group() == 0 then
                say("Du hast noch keine Fertigkeiten.")
                say("Versuche es sp�ter erneut.")
                return
            end
            local result = regenbogenstein.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group())
            local vnum_list = result[1]
            local name_list = result[2]
            if table.getn(vnum_list) == 0 then
                say("Du hast keine Gro�meister-Fertigkeiten.")
                return
            end
            local menu_list = {}
            table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
            table.insert(menu_list, "Abbrechen") 
            local s=select_table(menu_list)
            if table.getn(menu_list) == s then
                return
            end
            local skill_name=name_list[s]
            local skill_vnum=vnum_list[s]
                if pc.count_item(61000) == pc.getqf("regen_count") then
                    pc.set_skill_level(skill_vnum, 30)
                    say(skill_name.." wurde auf G gesetzt.")
                else
                    say("Buguser bekommen keine Skills ! ")
                end
            pc.remove_item(61000, 1)
        end
    end
end

02/07/2014 21:35 Drαεth#1080

Quote:

Originally Posted by Kilroy.

Durch deine Quest sehe ich, das der Skill von G gleich auf P gesetzt werden soll, das ganze macht die Regenbogensteinquest auch. Ich hab deine ItemVnum hinzugef�gt, war nicht schwer (61000)...
Falls du deine Texte ungef�hr damit reinbringen m�chtest und nicht wei�t wie, schreib mir ne pn.

Spoiler

PHP Code:

quest regenbogenstein begin state start begin function BuildPerfectMasterSkillList(job, group) GRAND_MASTER_SKILL_LEVEL =30 PERFECT_MASTER_SKILL_LEVEL = 39 local skill_list = special.active_skill_list[job+1][group] local ret_vnum_list = {} local ret_name_list = {} -- test_chat(string.format("job=%d, group=%d", job, group)) table.foreach(skill_list, function(i, skill_vnum) local skill_level = pc.get_skill_level(skill_vnum) -- test_chat(string.format("[%d]=%d", skill_vnum, skill_level)) if skill_level > GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then table.insert(ret_vnum_list, skill_vnum) local name=locale.GM_SKILL_NAME_DICT[skill_vnum] if name == nil then name=skill_vnum end table.insert(ret_name_list, name) end end) return {ret_vnum_list, ret_name_list} --return {ret_vnum_list, ret_name_list} end when 61000.use begin local count = pc.count_item(61000) pc.setqf("regen_count", count) if pc.get_skill_group() == 0 then say("Du hast noch keine Fertigkeiten.") say("Versuche es sp�ter erneut.") return end local result = regenbogenstein.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group()) local vnum_list = result[1] local name_list = result[2] if table.getn(vnum_list) == 0 then say("Du hast keine Gro�meister-Fertigkeiten.") return end local menu_list = {} table.foreach(name_list, function(i, name) table.insert(menu_list, name) end) table.insert(menu_list, "Abbrechen") local s=select_table(menu_list) if table.getn(menu_list) == s then return end local skill_name=name_list[s] local skill_vnum=vnum_list[s] if pc.count_item(61000) == pc.getqf("regen_count") then pc.set_skill_level(skill_vnum, 30) say(skill_name.." wurde auf G gesetzt.") else say("Buguser bekommen keine Skills ! ") end pc.remove_item(61000, 1) end end end

Bitte erst mein Beitrag verstehen und lesen....

danke...:mad:

Page 72 of 248