[SERVICE] Die Questerstellung

Page 94 of 248

05/11/2014 15:16 .J3lυє#1396

Quote:

Originally Posted by Kilroy.

Gleich zu Anfang: Der Type des Items muss auf 18 sein.

1.

Spoiler

PHP Code:

quest group_kill begin     state start begin         when kill with npc.get_race()= 2497 with party.is_party() begin             notice_all("Das Team von "..pc.get_name().." hat den SuperHund besiegt.")         end     end end

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

Beispiel:
3.

Spoiler

PHP Code:

quest warpring begin     state start begin         when xxx.use begin             say_title("Warpring")             say("")             s = select("Map1", "Map2", "Map3", "Map4", "Map5", "Map6", "Map7", "Abbrechen")             if s==8 then return end             if s==1 then                 if pc.get_level() < 80 then syschat("Dein Level ist f�r diese Map zu niedrig!") return end                 pc.warp( xxx,xx)             elseif s==2 then                 -- das gleiche wie bei s==1             elseif s==3 then                 -- das gleiche wie bei s==1             end         end     end end

und zu dem �ber level 100 backteleport schau mal hier:
[Only registered and activated users can see links. Click Here To Register...]

4. Gibs auch gen�gen auf Epvp
[Only registered and activated users can see links. Click Here To Register...]

5. Das letzte:

Spoiler

PHP Code:

quest give_weapons_three begin     state start begin         when login or levelup with pc.level>=50 begin             set_state(info)         end     end     state info begin         when letter begin             local v = find_npc_by_vnum(20016)             if v != 0 then             target.vid("Target1", v, "Schmied")             end             send_letter("Der Schmied braucht dich!")         end         when button or info begin             say_title("Der Schmied!")             say("")             say("Begib dich schnellstm�glich zum")             say("Schmied und sprich mit ihm.")             say("")             say_reward("Sprich mit dem Schmied")             say("")         end         when Target1.target.click or 20016.chat."Die Waffe!" begin             target.delete("Target1")             say_title("Die Waffe")             say("Hallo,")             say("ich br�uchte kurz deine Hilfe.")             say("")             say("Ich m�chte das du ein Schwert f�r mich")             say("besorgst.")             say("")             say_reward("Besorge das Schwert")             set_state(sword1)         end     end         state sword1 begin         when letter begin             send_letter("Das Schwert f�r den Schmied!")         end         when button or info begin             say_title("Das Schwert!")             say("")             say("Besorge das Schwert f�r den Schmied.")             say("")             say("")         end         when 20016.chat."Das Schwert" begin             say_title("Das Schwert")             say("")             say("Ah, du hast also das Schwert")             say("besorgt?")             say("")             wait()             if pc.count_item(schwert)<1 then return end             say_title("Schmied")             say("")             say("Wunderbar, als Belohnung erh�lst du")             say("ein bisschen Yang.")             say("")             say_reward("1.000.000 Yang erhalten")             pc.remove_item(schwert, 1)             pc.change_money(1000000)             set_state(info2)         end     end     state info2 begin         when letter begin             local v = find_npc_by_vnum(20016)             if v != 0 then             target.vid("Target1", v, "Schmied")             end             send_letter("Der Schmied braucht dich!")         end         when button or info begin             say_title("Der Schmied!")             say("")             say("Begib dich schnellstm�glich zum")             say("Schmied und sprich mit ihm.")             say("")             say_reward("Sprich mit dem Schmied")             say("")         end         when Target1.target.click or 20016.chat."Die Waffe!" begin             target.delete("Target1")             say_title("Die Waffe")             say("Hallo,")             say("ich br�uchte kurz deine Hilfe.")             say("")             say("Ich m�chte das du ein Schwert f�r mich")             say("besorgst.")             say("")             say_reward("Besorge das Schwert")             set_state(sword2)         end     end         state sword2 begin         when letter begin             send_letter("Das Schwert f�r den Schmied!")         end         when button or info begin             say_title("Das Schwert!")             say("")             say("Besorge das Schwert f�r den Schmied.")             say("")             say("")         end         when 20016.chat."Das Schwert" begin             say_title("Das Schwert")             say("")             say("Ah, du hast also das Schwert")             say("besorgt?")             say("")             wait()             if pc.count_item(schwert)<1 then return end             say_title("Schmied")             say("")             say("Wunderbar, als Belohnung erh�lst du")             say("ein bisschen Yang.")             say("")             say_reward("1.000.000 Yang erhalten")             pc.remove_item(schwert, 1)             pc.change_money(1000000)             set_state(info3)         end     end     state info3 begin         when letter begin             local v = find_npc_by_vnum(20016)             if v != 0 then             target.vid("Target1", v, "Schmied")             end             send_letter("Der Schmied braucht dich!")         end         when button or info begin             say_title("Der Schmied!")             say("")             say("Begib dich schnellstm�glich zum")             say("Schmied und sprich mit ihm.")             say("")             say_reward("Sprich mit dem Schmied")             say("")         end         when Target1.target.click or 20016.chat."Die Waffe!" begin             target.delete("Target1")             say_title("Die Waffe")             say("Hallo,")             say("ich br�uchte kurz deine Hilfe.")             say("")             say("Ich m�chte das du ein Schwert f�r mich")             say("besorgst.")             say("")             say_reward("Besorge das Schwert")             set_state(sword3)         end     end         state sword3 begin         when letter begin             send_letter("Das Schwert f�r den Schmied!")         end         when button or info begin             say_title("Das Schwert!")             say("")             say("Besorge das Schwert f�r den Schmied.")             say("")             say("")         end         when 20016.chat."Das Schwert" begin             say_title("Das Schwert")             say("")             say("Ah, du hast also das Schwert")             say("besorgt?")             say("")             wait()             if pc.count_item(schwert)<1 then return end             say_title("Schmied")             say("")             say("Wunderbar, als Belohnung erh�lst du")             say("ein bisschen Yang.")             say("")             say_reward("1.000.000 Yang erhalten")             pc.remove_item(schwert, 1)             pc.change_money(1000000)             set_state(__COMPLETE__)         end     end     state __COMPLETE__ begin     end end

Bei der ersten quest gibt es einen fehler

Code:

if npc . get_race ( ) = 2598 with party . is_party ( ) then end
syntax error : [string "startnpc . get_race ( ) = 2598 with party . is_party ( )        "]:1: `then' expected near `='

05/11/2014 15:27 .Delta#1397

PHP Code:


			
quest group_kill begin 
    state start begin 
        when kill with npc.get_race() == 2497 and party.is_party() begin 
            notice_all("Das Team von "..pc.get_name().." hat den SuperHund besiegt.") 
        end 
    end 
end

05/11/2014 18:53 мя.�єαяℓєѕѕ-✔#1398

Hey ich habe eine frage,
kann mir wer eine PvP Quest mach das man alle 50 Kills 1 Level aufsteigt ?
Und nach 20 level die Quest beendet ist ?
Weil start level 85 und end 105 bei mir ist ?

Hoffe es kann mir einer machen danke voraus.

05/11/2014 19:10 .yorliK#1399

Quote:

Originally Posted by мя.�єαяℓєѕѕ-✔

Hey ich habe eine frage,
kann mir wer eine PvP Quest mach das man alle 50 Kills 1 Level aufsteigt ?
Und nach 20 level die Quest beendet ist ?
Weil start level 85 und end 105 bei mir ist ?

Hoffe es kann mir einer machen danke voraus.

Maybe, habs nicht getestet.

PHP Code:


			
quest pvp_all50kills_up begin

    state start begin

        when kill with npc.is_pc() begin

            pc.setqf("PvP_Kills", pc.getqf("PvP_Kills") +1)

            if pc.getqf("PvP_Kills")>= 50 then

                pc.give_exp2(pc.get_next_exp())

                pc.setqf("PvP_Kills", 0)

                pc.setqf("Count_PvP_Kills", pc.getqf("Count_PvP_Kills")+1)

                if pc.getqf("Count_PvP_Kills")>= 20 then

                    set_state(__COMPLETE__)

                end

            end

        end

    end

    state __COMPLETE__ begin

    end

end

05/11/2014 19:51 мя.�єαяℓєѕѕ-✔#1400

Quote:

Originally Posted by Kilroy.

Maybe, habs nicht getestet.

PHP Code:

quest pvp_all50kills_up begin state start begin when kill with npc.is_pc() begin pc.setqf("PvP_Kills", pc.getqf("PvP_Kills") +1) if pc.getqf("PvP_Kills")>= 50 then pc.give_exp2(pc.get_next_exp()) pc.setqf("PvP_Kills", 0) pc.setqf("Count_PvP_Kills", pc.getqf("Count_PvP_Kills")+1) if pc.getqf("Count_PvP_Kills")>= 20 then set_state(__COMPLETE__) end end end end state __COMPLETE__ begin end end

Werde gleich mal ausprobieren danke :)

05/11/2014 20:50 [SA]Diamond#1401

-- quest zombiekill begin
state start begin
when kill with pc.get_map_index() >= 1500000 and pc.get_map_index() < 1510000 begin
pc.setqf("kills",pc.getqf("kills")+1)
if pc.getqf("kills") > 8000 then
say("Wie der Zufall es so will, hast Du bei einem")
say("Zombie ein Gewand gefunden. Es hat keine")
say("besonderen Eigenschaften, alleine des Aussehens")
say("wegen nimmst Du es an Dich.")
say("")
say("Diese R�stung kannst Du nur einmal erhalten!")
say("")
local reward={11310, 11560, 11760, 12060}
pc.give_item2(reward[pc.get_race()+1])
setstate(ende)
end
end
end
state ende begin
end
end

Hoffe auf hilfe danke schonmal im vorraus :rolleyes:

05/11/2014 22:21 Chritation#1402

Hi, ich suche eine Quest, bei der man den Namen eines Spielers eintragen kann und dieser dann stirbt. W�re echt genial. Hab da n�mlich so ne Idee :rolleyes:

05/12/2014 06:08 .J3lυє#1403

Quote:

Originally Posted by .Delta

PHP Code:

quest group_kill begin state start begin when kill with npc.get_race() == 2497 and party.is_party() begin notice_all("Das Team von "..pc.get_name().." hat den SuperHund besiegt.") end end end

Ist doch genau die selbe wie von Killroy, Und wo soll die Mob-vnum hin ???

05/12/2014 16:53 .yorliK#1404

Quote:

Originally Posted by .Rαρтor

Ist doch genau die selbe wie von Killroy, Und wo soll die Mob-vnum hin ???

Ist nicht die gleiche, habe bei meiner nen Fehler gehabt "with , with" statt with, and.

Die Mob_vnum kommt hinter npc.get_race() ==

Bsp: npc.get_race() == 101 --> Wildhund

05/12/2014 18:29 ExoBiTe�#1405

Hey Leute ich suche wieder eine Questfunktion/Taktik xD
Also ich will es in meiner Quest so etwas schreiben:

PHP Code:


			
quest blabla begin
    state start begin
        when item1.use begin
            pc.setqf("itemwort", 1)
        end
        
        when item2.use begin
            pc.setqf("itemwort2", 1)
        end
        
        when item3.use begin
            pc.setqf("itemwort3", 1)
        end
        
        when npc.chat."Benutzte Items" begin
            say("Du hast folgende Items benutzt:")
            if pc.getqf("itemwort1") == 1 then
                say("Item 1.")
                end
            if pc.getqf("itemwort2") == 1 then
                say("Item 2.")
                end
            if pc.getqf("itemwort3") == 1 then
                say("Item 3.")
                end
            say("Welches Item soll cih aus dem Log l�schen?")
            -- Keine Ahnung wie xD

Nach dem "Welches Item soll cih aus dem Log l�schen?" soll dann eine auswahl mit select kommen, wo ich Wenn ich item1 benutzt habe item1 und beenden steht, wenn ich item 1 und item 2 benutzt habe dort item1 item2 beenden steht. Das sich die select anzeige sozusagen an die qf�s anpasst, und demenstprechend die auswahl anpasst.
Ich hoffe ihr wisst was ich meine xD Wenn ich undeutlich war, versuche ich es euch, nochmal zu beschreiben xD
Danke^^

Mfg

05/12/2014 19:32 TayzZ.?#1406

Also ich habe neue Truhen in Meinem Server, aber ich ben�tige eine Quest, wo man die Truhen 2 mal mit einem bestimmten Schl�ssel �ffnen muss und dan 1 von 10 Verschiedenen Items Kommen (chance in % 0.5/3.5/6/10/10/10/10/10/10/10/10/10 bei allen)

Also z.B. man hat die Truhe 6618 und den Schl�ssel 6624. Wenn ich jetzt den Schl�ssel auf die Truhe Ziehe kommt eine 2. Truhe 6612 und die muss ich auch mit dem Schl�ssel 6624 �ffnen und dan kommt ein Item wie oben genannt.

Ich liste mal alle Schl�ssel mit den Dazugeh�rigen Truhen 1 (Anfangs Truhe)und Truhen 2 (die Truhe, die aus Truhe 1 Kommt)
Es soll auch einen Schl�ssel geben der Alle Truhen im 1. sowie im 2. Status �ffnen kann. ID Vom "Universalem Schl�ssel" ist : 6625

Schl�ssel:6619 Truhe1:6613 Truhe2:6607
Schl�ssel:6620 Truhe1:6614 Truhe2:6608
Schl�ssel:6621 Truhe1:6615 Truhe2:6609
Schl�ssel:6622 Truhe1:6616 Truhe2:6610
Schl�ssel:6623 Truhe1:6617 Truhe2:6611
Schl�ssel:6624 Truhe1:7718 Truhe2:6612

Dan habe ich noch Andere Truhen die Diesen System nicht gleich sind.

1.

Spoiler

05/13/2014 02:51 ЂraiиSh�ck#1407

Moin,

Ich habe Aktuell eine Quest (von Kilroy glaube ich) die bei Uriel die m�glichkeit bietet Erfahrungspunkte zu lagern/speichern und abzuheben.
Nun m�chte ich die Speicher Funktion f�r ein Item haben, dass wenn ich auf das Item klicke sich die Speicher Funktion Aktiviert und meine Erfahrungspunkte jede Sekunden gespeichert werden
Vergleichbar mit ein Anti-Erfahrungsring, nur das die Erfahrungspunkte gelagert/gespeichert werden und nicht gel�scht.
Beim Aktivieren soll ich aber kein extra Fenster �ffnen, es soll nur eine Meldung im Chat erscheinen damit man wei� ob die Funktion nun Online oder Offline ist.

Spoiler

PHP Code:


			
quest exp_storage begin
    state start begin
        when 20011.chat."EXP - Lager" begin -- Uriel nat�rlich anpassen
                say_title("EXP Optionen")
                say("")
                say("Hier kannst du all deine Exp Lagern")
                say("und jederzeit wieder abbuchen")
                say("")
            Options = { "EXP lagern", "EXP abheben", "Konto abfragen", "Schlie�en" }
            local s = select_table(Options)
            if s == table.getn(Options) then return end
            if s == 1 then
                say_title("EXP lagern")
                say("")
                say("Du besitzt "..pc.get_exp().." Erfahrung.")
                say("Kontostand: "..pc.getqf("expStorage").." - EXP")
                say("Wie viel EXP m�chtest du davon lagern?")
                say("")
                say_reward("Zum Abbrechen gebe nichts ein.")
                local expStore = tonumber(input())
                if expStore < 1 then syschat(expStore.." ist eine ung�ltige Eingabe. ") return end
                if expStore > pc.get_exp() then syschat("Du hast nicht so viel Erfahrung.") return end
                say_title("EXP lagern")
                say("")
                say(expStore.."- EXP wirklich lagern?")
                say("")
                if select("Ja","Nein") == 2 then return end
                pc.setqf("expStorage", pc.getqf("expStorage") + expStore)
                syschat(expStore.." - Erfolgreich aufs EXP-Lager gelegt.")
                pc.give_exp2(-expStore)
            elseif s == 2 then
                say_title("EXP abheben")
                say("")
                say("Kontostand: "..pc.getqf("expStorage").." - EXP")
                say("Wie viel EXP m�chtest du davon abheben?")
                say("")
                local expTake = tonumber(input())
                say("")
                say_reward("Zum Abbrechen gebe nichts ein.")
                if expTake < 1 then syschat(expTake.." ist eine ung�ltige Eingabe. ") return end
                if expTake > pc.getqf("expStorage") then syschat("Du hast nicht so viel Erfahrung auf dem Lager.") return end
                say_title("EXP abheben")
                say("")
                say_reward("Wenn du durch die abehobenen EXP, das")
                say_reward("EndLevel erreichst und EXP �brig sind")
                say_reward("gehen diese verloren.")
                say("")
                say(expTake.."- EXP wirklich abheben?")
                say("")
                if select("Ja","Nein") == 2 then return end
                pc.setqf("expStorage", pc.getqf("expStorage") - expTake)
                syschat(expTake.." - Erfolgreich vom EXP-Lager abgehoben.")
                pc.give_exp2(expTake)
            elseif s == 3 then
                say_title("Konto abfragen")
                say("")
                say("Kontostand: "..pc.getqf("expStorage").." - EXP")
                say("")
                say("")
            elseif s == 4 then
                say_title("EXP Spende")
                say("")
                say("Wem m�chtest du die EXP spenden?")
                say("")
                say_reward("Zum Abbrechen gebe nichts ein.")
                local name = input()
                local vid = find_pc_by_name(name)
                if vid == 0 then syschat(name.." konnte nicht gefunden werden. Er/Sie sollte sich in deiner N�he befinden.") return end
                say_title("EXP Spende")
                say("")
                say("Du besitzt "..pc.get_exp().." Erfahrung.")
                say("Wieviel EXP m�chtest du "..name.." von dir spenden?")
                say("")
                say_reward("Zum Abbrechen gebe nichts ein.")
                local expDonate = tonumber(input())
                if expDonate < 1 then syschat(expDonate.." ist eine ung�ltige Eingabe. ") return end
                if expDonate > pc.get_exp() then syschat("Du hast nicht so viel Erfahrung.") return end
                say_title("EXP Spende")
                say("")
                say_reward("Wenn "..name.." durch deine gespendeten EXP,")
                say_reward("das EndLevel erreicht und EXP �brig sind")
                say_reward("gehen diese verloren.")
                say("")
                say(expDonate.." EXP wirklich an "..name.." spenden?")
                say("")
                if select("Ja","Nein") == 2 then return end
                me = pc.get_name()
                local myLevel = pc.get_level()
                local myVid = pc.select(vid)
                if myLevel-15 > pc.get_level() or myLevel+15 < pc.get_level() then
                    pc.select(myVid)
                    syschat("Nur Spielern mit dem Level -15 / +15 kann Erfahrung gespendet werden!")
                    return
                end
                pc.give_exp2(expDonate)
                syschat(expDonate.." - "..me.." hat dir EXP gespendet!")
                pc.select(myVid)
                pc.give_exp2(-expDonate)
                syschat(expDonate.." - EXP erfolgreich an "..name.." gespendet!")
            end
        end
    end
end

05/13/2014 06:16 .J3lυє#1408

Quote:

Originally Posted by ЂraiиSh�ck

Moin,

Ich habe Aktuell eine Quest (von Kilroy glaube ich) die bei Uriel die m�glichkeit bietet Exp zu lagern/speichern.
Diese Quest m�chte ich aber als Quest f�r unterwegs.
Sprich ich kann unterwegs meine Exp lagern/speichern.
Danke schon mal im voraus f�r jede Hilfe !

Spoiler

PHP Code:

quest exp_storage begin state start begin when 20011.chat."EXP - Lager" begin -- Uriel nat�rlich anpassen say_title("EXP Optionen") say("") say("Hier kannst du all deine Exp Lagern") say("und jederzeit wieder abbuchen") say("") Options = { "EXP lagern", "EXP abheben", "Konto abfragen", "Schlie�en" } local s = select_table(Options) if s == table.getn(Options) then return end if s == 1 then say_title("EXP lagern") say("") say("Du besitzt "..pc.get_exp().." Erfahrung.") say("Kontostand: "..pc.getqf("expStorage").." - EXP") say("Wie viel EXP m�chtest du davon lagern?") say("") say_reward("Zum Abbrechen gebe nichts ein.") local expStore = tonumber(input()) if expStore < 1 then syschat(expStore.." ist eine ung�ltige Eingabe. ") return end if expStore > pc.get_exp() then syschat("Du hast nicht so viel Erfahrung.") return end say_title("EXP lagern") say("") say(expStore.."- EXP wirklich lagern?") say("") if select("Ja","Nein") == 2 then return end pc.setqf("expStorage", pc.getqf("expStorage") + expStore) syschat(expStore.." - Erfolgreich aufs EXP-Lager gelegt.") pc.give_exp2(-expStore) elseif s == 2 then say_title("EXP abheben") say("") say("Kontostand: "..pc.getqf("expStorage").." - EXP") say("Wie viel EXP m�chtest du davon abheben?") say("") local expTake = tonumber(input()) say("") say_reward("Zum Abbrechen gebe nichts ein.") if expTake < 1 then syschat(expTake.." ist eine ung�ltige Eingabe. ") return end if expTake > pc.getqf("expStorage") then syschat("Du hast nicht so viel Erfahrung auf dem Lager.") return end say_title("EXP abheben") say("") say_reward("Wenn du durch die abehobenen EXP, das") say_reward("EndLevel erreichst und EXP �brig sind") say_reward("gehen diese verloren.") say("") say(expTake.."- EXP wirklich abheben?") say("") if select("Ja","Nein") == 2 then return end pc.setqf("expStorage", pc.getqf("expStorage") - expTake) syschat(expTake.." - Erfolgreich vom EXP-Lager abgehoben.") pc.give_exp2(expTake) elseif s == 3 then say_title("Konto abfragen") say("") say("Kontostand: "..pc.getqf("expStorage").." - EXP") say("") say("") elseif s == 4 then say_title("EXP Spende") say("") say("Wem m�chtest du die EXP spenden?") say("") say_reward("Zum Abbrechen gebe nichts ein.") local name = input() local vid = find_pc_by_name(name) if vid == 0 then syschat(name.." konnte nicht gefunden werden. Er/Sie sollte sich in deiner N�he befinden.") return end say_title("EXP Spende") say("") say("Du besitzt "..pc.get_exp().." Erfahrung.") say("Wieviel EXP m�chtest du "..name.." von dir spenden?") say("") say_reward("Zum Abbrechen gebe nichts ein.") local expDonate = tonumber(input()) if expDonate < 1 then syschat(expDonate.." ist eine ung�ltige Eingabe. ") return end if expDonate > pc.get_exp() then syschat("Du hast nicht so viel Erfahrung.") return end say_title("EXP Spende") say("") say_reward("Wenn "..name.." durch deine gespendeten EXP,") say_reward("das EndLevel erreicht und EXP �brig sind") say_reward("gehen diese verloren.") say("") say(expDonate.." EXP wirklich an "..name.." spenden?") say("") if select("Ja","Nein") == 2 then return end me = pc.get_name() local myLevel = pc.get_level() local myVid = pc.select(vid) if myLevel-15 > pc.get_level() or myLevel+15 < pc.get_level() then pc.select(myVid) syschat("Nur Spielern mit dem Level -15 / +15 kann Erfahrung gespendet werden!") return end pc.give_exp2(expDonate) syschat(expDonate.." - "..me.." hat dir EXP gespendet!") pc.select(myVid) pc.give_exp2(-expDonate) syschat(expDonate.." - EXP erfolgreich an "..name.." gespendet!") end end end end

�nder einfach when 20011.chat. zu when ITEMVNUM.use

05/13/2014 15:22 ExoBiTe�#1409

Hey Leute ich suche wieder eine Questfunktion/Taktik xD
Also ich will es in meiner Quest so etwas schreiben:

PHP Code:


			
quest blabla begin
    state start begin
        when item1.use begin
            pc.setqf("itemwort", 1)
        end
        
        when item2.use begin
            pc.setqf("itemwort2", 1)
        end
        
        when item3.use begin
            pc.setqf("itemwort3", 1)
        end
        
        when npc.chat."Benutzte Items" begin
            say("Du hast folgende Items benutzt:")
            if pc.getqf("itemwort1") == 1 then
                say("Item 1.")
                end
            if pc.getqf("itemwort2") == 1 then
                say("Item 2.")
                end
            if pc.getqf("itemwort3") == 1 then
                say("Item 3.")
                end
            say("Welches Item soll cih aus dem Log l�schen?")
            -- Keine Ahnung wie xD

05/13/2014 18:28 slipknot009#1410

K�nnt ihr mir bitte eine quest erstellen ?

Vollgendes eine EXP Quest mit der Vnum 30000

Das man einstellen kann wie viel exp man bekommt wenn man auf die quest dr�ckt und die bis maximal level 100 geht

danke sch�n

Page 94 of 248