[SERVICE] Die Questkontrolle

Page 15 of 845 « First 51314 15 16172565115515 Last »
08/27/2010 21:59 Nixodas#211
leider immer noch der gleiche fehler -.-
aber danke das du dich so anstrengst
08/27/2010 22:04 Benhero#212
wenns jetzt nicht geht O.o fress ichn besen..

PHP Code:
quest createweapon begin
    state start begin
        when 20092.click begin
        say("Saryun:")
        
            ----"12345678901234567890123456789012345678901234567890"|
            say("Guten Tag Wanderer.")
            say("Du hast sehr wahrscheinlich noch nie etwas")
            say("von mir gehoert. Meinen Bruder solltest du")
            say("allerdings kennen. Er wohnt im Drachental nahe")
            say("der Seelengrotte. Er kann mit seiner Zauberkraft")
            say("Geiststeine verbessern. Wenn du ihm einen")
            say("Beweis für dein können vorlegst kann er auch")
            say("Deine Schwerter in anderer verwandeln.")
            say("Ich hingegen kann nur Schwerter aus verscheidenen")
            say("Materialien herstellen. Soll ich dir ein Schwert")
            say("herstellen?")
            say("")
            local s=select("Ja, Bitte","Nein")
            if s==1 then
                say("Welches Schwert soll ich erschaffen?")
                say("")
                local b=select("Himmelsschwert", "Abbrechen")
                if b==1 then
                    say("Für das Himmelsschwert brauchst du folgende")
                    say("Materialien:")
                    say("")
                    say("- 1 Zerbrochenes Schwert")
                    say("- 50 Jadeerz")
                    say("- 3 Himmelsstuecke")
                    say("- 20 Golderz")
                    say("- 1 Kristall")
                    say("")
                    say("Hast du all diese Materialien und moechtest")
                    say("das Schwert herstellen?")
                    say("")
                    local f = select("Schwert herstellen","Nein, doch nicht")
                    if f==1 then
                        if pc.countitem("65001")<1 then
                            say("Du hast nicht alle noetigen Materialien.")
                            say("Komm wieder wenn du alle hast.")
                            say("")
                        else
                            if pc.countitem("65002")<3 then
                                say("Du hast nicht alle noetigen Materialien.")
                                say("Komm wieder wenn du alle hast.")
                                say("")                  
                            else
                                if pc.countitem("50607")<50 then
                                    say("Du hast nicht alle noetigen Materialien.")
                                    say("Komm wieder wenn du alle hast.")
                                    say("")
                                else
                                    if pc.countitem("50606")<20 then
                                        say("Du hast nicht alle nötigen Materialien.")
                                        say("Komm wieder wenn du alle hast.")
                                        say("")
                                    else
                                        if pc.countitem("50631")<1 then
                                            say("Du hast nicht alle noetigen Materialien.")
                                            say("Komm wieder wenn du alle hast.")
                                            say("")
                                        else
                                            say("Hier bitte schoen.")
                                            say("")
                                            say_reward("Du hast ein Himmelsschwert von Saryun erhalten")
                                            pc.give_item2("230")
                                        end
                                    end
                                end
                            end
                        end
                    else
                    end
                end
            else
                say("Ohh, okay...")
                say("Komm wieder wenn du Intresse hast")
            end
        end
    end
end 
greatz Benhero
08/27/2010 23:04 LxR'EsoZiaL#213
Hallo,

meine Quest will IG nicht wirken (Upverfahren Anzeige).


Währe Nett wen mir jemand die Repariet :D
08/27/2010 23:55 Benhero#214
Hier fertig... Waren einige Leichtsinns fehler drinne
PHP Code:
quest userpannel begin
    state start begin
        when login begin
            send_letter("Uppverfahren")
        end
        when button or info begin
            say_title("Uppverfahren")
            local a= select("1Händer","2Händer","Dolch","Sura","Bögen","Glocken","Fächer","Rustungen","Schmuck", "Abbrechen")
            say("welches Upverfahren willst du genau wissen ?")
            if 1==a then
                say_title("Einhandwaffenuppverfahren")
                say("Slachts. > Siriuss. > Monds. > Keule > Drachens.")
                say("Nymphs. > Siriuss. > Monds. > Keule > Drachens.")
                say("Gifts. > Alt Klinge")
            elseif 2==a then
                say_title("Zweihanduppverfahren")
                say("Partisane > Gelbdrachentöter > Drachengottklinge > Nagatöter")
                say("Magische Klinge > Blaudrachentöter > Sonnens.")
                say("Grolls. > Schwarzstahl Klinge")
            elseif 3==a then
                say_title("Dolchuppverfahren")
                say("Drachenmesser > Seelenlosemesser > Mondzwillingsdolche > Rinalmesser > Aqua Dolche")
                say("Bliztmesser > Sägezahndolche > Sonnenschtraldolche > Rinalmesser > Aqua Dolche")
                say("Teufelsflügel-Chakram > Stichmesser")
            elseif 4==a then
                say_title("Surawaffenupverfahren")
                say("Geisterzahnklinge > Schnittklinge > Todlichen Klinge")
                say("Exozissmuss. > Himmelss. > Baronens. > Heiligess.")
                say("Lowens. > Wüstens.")
            elseif 5==a then
                say_title("Bogenuppverfahren")
                say("Großbelbdrachenbogen > Großteufelbogen")
                say("Aprikosenbogen > Geisterbogen")
                say("Krähstahlbogen > Bogen der Wut")
            elseif 6==a then
                say_title("Glockenuppverfahren")
                say("Donnervogelglocke > Schnitterglocke > Hibiskusglocke")
                say("Himmel-&-Erde Glocke > Drachenglocke > Drachenglocke")
                say("Orchideenglocke > Wütende Glocke")
            elseif 7==a then
                say_title("Facheruppverfahren")
                say("Erlosungsfacher > Drachen-Facher > Damonenfächer")
                say("Himmelsvogelfacher > Acht-Trigramme-Facher > Damonenfächer")
            elseif 8==a then
                say_title("Rustungsuppverfahren")
                say("66er Rustung > King Rustung > Konigs > Blaue 66er Rustung")
            elseif 9==a then
                say_title("Schmucluppverfahren")
                say("Wird noch Gearbeitet")
            end
        end
    end
end 
08/28/2010 02:59 SuraKämpfer1#215
Hm irgendwie erscheint meine Quest beim Login gar nicht :(

----------------------------------
-- Quest_lvl_1
-- By Surakämpfer1
----------------------------------
quest Quest_lvl_1 begin
state start begin
when login or levelup with pc.get_level() == 1 begin
set_state( gotolehrer )
end
end
state gotolehrer begin
when letter begin
send_letter("Willkommen auf *SN*")
end
when button or info begin
say_title("Willkommen auf *SN*")

----"1234567890123456789012345678901234567890123456789 0"|
say("Willkommen in der Weil von *SN*. Geh zu Uriel, um dor eine Lehre auszuwählen!")
say("")
set_state( gotouriel2 )
end
end

state gotouriel2 begin
when letter begin
local v=find_npc_by_vnum(20011)
if 0==v then
else
target.vid("__TARGET__", v, "Finde Uriel")
end
end
when letter begin
send_letter("Finde Uriel")
end
when button or info begin
say_title("Finde Uriel")
say("Finde Uriel")
----------"1234567890123456789012345678901234567890123456789 0"|
end
when __TARGET__.target.click begin
target.delete("__TARGET__")
say("Uriel :")

----"1234567890123456789012345678901234567890123456789 0"|
say("Ah, Willkommen Neuling. Ich bin geehrt einen weiteren starken Kämpfer an meiner Seite zu sehen! Ich zeige dir jetzt eine Liste aus Berufen. Wenn du einen Beruf anklickst, werden dir mehr Informationen gezeigt.")

local s = select("Kämpfer", "Mediziner", "Händler")

if s == 1 then
say("Kämpfer sind die Personen, welche das Reich vor Metinsteinen, starken gegnern und anderen Reichern verteidigen! Deine Lehrmeister sind folgende Personen: Uriel, Wächter des Dorfplatzes, Schlachtenverwalter und Soon! Willst du es versuchen? Wenn du einmal diese klasse gewählt hast, gibt es kein zurück mehr!")

local s = select("Ja, das ist es!", "Nein!")

if s == 1 then
say("Herzlichen Glückwunsch! Du bist nun ein Kämpfer! Du wurdest befördert auf Stufe 2!
pc.give_exp2(10)

set_quest_state("Quest_lvl_2_Kämpfer","run")
set_state( __COMPLETE__ )

elseif s == 2 then
return

elseif s == 2 then
say("Mediziner sind die personen, welche schauen das keine Tranknot in den Reichen herrscht! Sie stellen alles her, von roten und blauen Tränken, rüner zu Tauen. Die Lehrer sind der Biologe, Uriel und Soon. Willst du diesen Job machen?")

local s = select("Ja, das ist es!", "Nein!")

if s == 1 then
say("Herzlichen Glückwunsch! Du bist nun ein Mediziner! Du wurdest befördert auf Stufe 2!
pc.give_exp2(10)

set_quest_state("Quest_lvl_2_Sammler","run")
set_state( __COMPLETE__ )

elseif s == 2 then
return

elseif s == 3 then
say("Händler sind die Personen, welche Lebensmittel jagen, fangen, und zu den Leuten bringen! Deine Lehrmeister werden der Fischer, Octavio, Uriel und Soon sein! Willst du dich für diesen Beruf entscheiden?")

local s = select("Ja, das ist es!", "Nein!")

if s == 1 then
say("Herzlichen Glückwunsch! Du bist nun ein Händler! Du wurdest befördert auf Stufe 2!
pc.give_exp2(10)

set_quest_state("Quest_lvl_2_Haendler","run")
set_state( __COMPLETE__ )

elseif s == 2 then
return

end
end
end
state __COMPLETE__ begin
end
end
08/28/2010 11:09 Columinati#216
mhhh meine Quest mit

if kill mob
notice all "pc.getname blabla hat den blabla soeben gekillt"

geht bei mir nicht,
kannst du mir eine funktionierende quest schicken ;)
08/28/2010 12:07 Nixodas#217
benhero du bist mein held
wie viele thanks hättest du den gerne noch?
08/28/2010 12:20 Benhero#218
1´s Reicht. Eigentlich bräuchte ich keines. Aber trozedm ;)
Nehme ich jedes gerne an.

@Phlatline
Hier die Mob kill Quest. (Funktioniert KA warum NICHT bei Sensenmann)
PHP Code:
quest mob_kill begin
    state start begin
        when 2095.kill begin
            notice_all(pc.get_name().. " hat " ..mob_name(2095).. " getötet!")
            notice_all("Herzlichen Glückwunsch!")
        end
    end
end 
---------------------------
@SuraKämpfer1
Hier ist deine Quest... 1. Richtig Ansotiert. 2. 50% gekürtzt.
PHP Code:
----------------------------------
-- Quest_lvl_1
-- By Surakämpfer1
----------------------------------
quest Quest_lvl_1 begin
    state start begin
        when login or levelup with pc.get_level() == 1 begin
            send_letter("Willkommen auf *SN*") 
        end
        when button or info begin 
            say_title("Willkommen auf *SN*")

            ----"1234567890123456789012345678901234567890123456789 0"|
            say("Willkommen in der Weil von *SN*. Geh zu Uriel, um dor eine Lehre auszuwählen!")
            say("")
            local v=find_npc_by_vnum(20011)
            if 0==v then
            else
            target.vid("__TARGET__", v, "Finde Uriel")
            send_letter("Finde Uriel")
            set_state( gotouriel2 )
            end
        end
    end
    state gotouriel2 begin
        when button or info begin
            say_title("Finde Uriel")
            say("Finde Uriel")
            ----------"1234567890123456789012345678901234567890123456789 0"|
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say("Uriel :")
            ----"1234567890123456789012345678901234567890123456789 0"|
            say("Ah, Willkommen Neuling. Ich bin geehrt einen weiteren starken Kämpfer an meiner Seite zu sehen! Ich zeige dir jetzt eine Liste aus Berufen. Wenn du einen Beruf anklickst, werden dir mehr Informationen gezeigt.")

            local s = select("Kämpfer", "Mediziner", "Händler")
            if s == 1 then
                say("Kämpfer sind die Personen, welche das Reich vor Metinsteinen, starken gegnern und anderen Reichern verteidigen! Deine Lehrmeister sind folgende Personen: Uriel, Wächter des Dorfplatzes, Schlachtenverwalter und Soon! Willst du es versuchen? Wenn du einmal diese klasse gewählt hast, gibt es kein zurück mehr!")
                local s = select("Ja, das ist es!", "Nein!")
                if s == 1 then
                    say("Herzlichen Glückwunsch! Du bist nun ein Kämpfer! Du wurdest befördert auf Stufe 2!")
                    pc.give_exp2(10)
                    set_quest_state("Quest_lvl_2_Kämpfer","run")
                    set_state( __COMPLETE__ )
                elseif s == 2 then
                    return
                end
            elseif s == 2 then
                say("Mediziner sind die personen, welche schauen das keine Tranknot in den Reichen herrscht! Sie stellen alles her, von roten und blauen Tränken, rüner zu Tauen. Die Lehrer sind der Biologe, Uriel und Soon. Willst du diesen Job machen?")
                local s = select("Ja, das ist es!", "Nein!")
                if s == 1 then
                    say("Herzlichen Glückwunsch! Du bist nun ein Mediziner! Du wurdest befördert auf Stufe 2!
                    pc.give_exp2(10)
                    set_quest_state("Quest_lvl_2_Sammler","run")
                    set_state( __COMPLETE__ )
                elseif s == 2 then
                    return
                end
            elseif s == 3 then
                say("Händler sind die Personen, welche Lebensmittel jagen, fangen, und zu den Leuten bringen! Deine Lehrmeister werden der Fischer, Octavio, Uriel und Soon sein! Willst du dich für diesen Beruf entscheiden?")
                local s = select("Ja, das ist es!", "Nein!")
                if s == 1 then
                    say("Herzlichen Glückwunsch! Du bist nun ein Händler! Du wurdest befördert auf Stufe 2!
                    pc.give_exp2(10)
                    set_quest_state("Quest_lvl_2_Haendler","run")
                    set_state( __COMPLETE__ )
                elseif s == 2 then
                    return
                end
            end
        end
    end
    state __COMPLETE__ begin
    end
end 
08/28/2010 15:36 xIvan4ikx#219
Hey Banhero,

ich könntest du mir sagen was ich ändern muss, damit, wenn man
ein Mob gekillt hat dort auch sozusagen ein Counter drinnne ist und
dann immer steht wie oft einer welchen Mob gekillt hat.
So ähnlich wie hier nur das er immer anzeigt z.b xyz hat xx zum x mal ermordet.
PHP Code:
quest mob_kill begin
    state start begin
        when 2095.kill begin
            notice_all(pc.get_name().. " hat " ..mob_name(2095).. " getötet!")
            notice_all("Herzlichen Glückwunsch!")
        end
    end
end 
€: Hoffe ist verständlich ausgedruckt.
08/28/2010 19:54 iYoshix3#220
Quote:
Originally Posted by xIvan4ikx View Post
Hey Banhero,

ich könntest du mir sagen was ich ändern muss, damit, wenn man
ein Mob gekillt hat dort auch sozusagen ein Counter drinnne ist und
dann immer steht wie oft einer welchen Mob gekillt hat.
So ähnlich wie hier nur das er immer anzeigt z.b xyz hat xx zum x mal ermordet.
PHP Code:
quest mob_kill begin
    state start begin
        when 2095.kill begin
            notice_all(pc.get_name().. " hat " ..mob_name(2095).. " getötet!")
            notice_all("Herzlichen Glückwunsch!")
        end
    end
end 
€: Hoffe ist verständlich ausgedruckt.

Deine Quest warn bisschen falsch geschrieben beim notice
So müsste sie gehen:

PHP Code:
quest mob_kill begin
    state start begin
        when 2095.kill begin
            notice_all(""..pc.get_name().." hat "..mob_name(2095).." getötet!")
            notice_all("Herzlichen Glückwunsch!")
        end
    end
end 
Mfg, Yoshix3
08/28/2010 20:40 xIvan4ikx#221
Ne, darum geht es nicht ich wollte sozusagen ein Counter einbauen..
08/28/2010 20:42 Benhero#222
1. Ob deine oder meine Variante ist egal. Läuft aufs selbe hinaus. Nur das meins Kürzer ist
2. Hier neue Quest:
PHP Code:
quest mob_kill begin
    state start begin
        when 2095.kill begin
            notice_all(pc.get_name().. " hat " ..mob_name(2095).. " getötet!")
            pc.setqf("count_" ..mob_name(2095), pc.getqf("count_" ..mob_name(2095)+1))
            notice_all("Herzlichen Glückwunsch!")
            notice_all(mob_name(2095).. " wurde schon " ..pc.getqf("count_" ..mob_name(2095)).. " mal getötet!")
        end
    end
end 
08/29/2010 00:37 xIvan4ikx#223
Quote:
Originally Posted by Benhero View Post
1. Ob deine oder meine Variante ist egal. Läuft aufs selbe hinaus. Nur das meins Kürzer ist
2. Hier neue Quest:
PHP Code:
quest mob_kill begin
    state start begin
        when 2095.kill begin
            notice_all(pc.get_name().. " hat " ..mob_name(2095).. " getötet!")
            pc.setqf("count_" ..mob_name(2095), pc.getqf("count_" ..mob_name(2095)+1))
            notice_all("Herzlichen Glückwunsch!")
            notice_all(mob_name(2095).. " wurde schon " ..pc.getqf("count_" ..mob_name(2095)).. " mal getötet!")
        end
    end
end 
Die Quest geht nicht ganz, also es kommt nur der Name
und das man den Mob gekillt hat, aber kein counter wie oft
man den Mob gekillt hat.
08/29/2010 13:04 kabel24#224
Was ist nur an dieser quest falsch

quest give_item begin
state start begin
when 30123.chat."give_item" begin
say_title("Item Erstellen:")
say("Hallo ".. pc.get_name() .."!")
say(.. pc.get_name().." Welches Item würdest du gerne erstellen!")
local s = input()
if s==11989 then
say("oh das geht leider nicht")
say("")
say("Gm Eq/steine , Gm rüssis ")
say("Sind nicht erstell bar")
end
if s==28000>28312 then
say("oh das geht leider nicht")
say("")
say("Gm Eq/steine , Gm rüssis ")
say("Sind nicht erstell bar")
end
if s==12670>12679 then
say("oh das geht leider nicht")
say("")
say("Gm Eq/steine , Gm rüssis ")
say("Sind nicht erstell bar")
end
if s==13210 then
say("oh das geht leider nicht")
say("")
say("Gm Eq/steine , Gm rüssis ")
say("Sind nicht erstell bar")
end
if s==11980>11983 then
say("oh das geht leider nicht")
say("")
say("Gm Eq/steine , Gm rüssis ")
say("Sind nichterstell bar")
end
pc . give_item2(s, 1 )
say("Hier hast du dein item")
end
end
end
08/29/2010 14:23 Nixodas#225
kabel24 was is denn die fehlermeldung in vpc bzw freebsd
Page 15 of 845 « First 51314 15 16172565115515 Last »