[SERVICE] Die Questkontrolle

Page 203 of 845 « First 103153193201202 203 204205213253303703 Last »
08/11/2011 20:16 Brodan#3031
Quote:
Originally Posted by Sp0ngeb0b ist cool View Post
@Brodan:
PHP Code:
quest event_map begin
    state start begin
        when 20087.chat."Tal von Gorgaroth" begin
            say_title(""..mob_name(20087)..":")
            say("")
            say("Du möchtest also, dass ich dich ")
            say("in das Tal von Gorgaroth bringe?")
            say("")
            say("In diesem Tal knistert der Boden förmlich vor")
            say("finsterer Energie.")
            say("alle paar Sekunden stürzt dort ein Metin-Stein ab")
            say("und entläd seine Kräfte im Boden.")
            say("")
            if pc.get_level() >= 75 then
                say("Soll ich dich dort hin führen?")
                local s = select("Ja, ich bitte dich darum!","Nein, blos nicht.")
                if s == 1 then
                    if pc.count_item(30191) >= 1 then
                        pc.remove_item(30191, 1)
                        wait()
                        pc.warp(96100, 12200)
                    else
                        say("Dann nicht.")
                        return
                    end    

                elseif s == 2 then
                    say("Dann nicht.")
                    return
                end
            end    
        end
    end
end 
ich habe gerade wenig zeit...später hab ich mehr zeit dann schau ich mir die quest genauer an und bearbeite sie nach deinem belangen ;)
nimm solang die, die funktioniert zu 100%..also wenn du den npc immer noch nicht anklicken kannst, liegt es nicht an der quest (es sei denn du hast sie nicht richtig eingefügt: hongkonglist eintragen+make.sh ausführen ;) )
nimm ansonsten mal einen anderne npc als test ;)
und später, wie gesagt, mache ich dir die quest so wie du sie haben willst

mfg sp0nge
Hm, trotz erneuter eintragung in der Hongkonglist und make.sh + rebooten zeigt der npc die quest nicht an, die andere Quest wird angezeigt und wird auch ausgeführt, nur diese Warpquest nicht.
Habs auch mit 20092 (einer weiblichen " Sura ") versucht, ohne Erfolg.
08/11/2011 20:50 IRoxasI#3032
geht, hatte falsche warp koords :D
08/11/2011 22:13 Sp0ngeb0b ist cool#3033
Quote:
Originally Posted by Brodan View Post
Hm, trotz erneuter eintragung in der Hongkonglist und make.sh + rebooten zeigt der npc die quest nicht an, die andere Quest wird angezeigt und wird auch ausgeführt, nur diese Warpquest nicht.
Habs auch mit 20092 (einer weiblichen " Sura ") versucht, ohne Erfolg.
welche andere quest?
und wie gesagt, die quest geht! ;)
außerdem, wenn es an der quest liegen würde, würde vpc etwas sagen ;)

mfg sp0nge
08/11/2011 23:03 hr4rjuku#3034
quest farmring begin
state start begin
when ITEMVNUM.use begin
pc.giveexp2(-pc.getexp)
end
end
end

Ist da irgendwo ein Fehler drin :)
08/11/2011 23:10 lautlosertot#3035
nein
08/11/2011 23:12 .Delta#3036
Quote:
Originally Posted by lautlosertot View Post
nein
doch :D
PHP Code:
quest farmring begin
    state start begin
        when ITEMVNUM.use begin
            pc.give_exp2(-pc.get_exp())
        end
    end
end 
08/12/2011 02:31 .Stefan#3037
Hier habe ich eine quest , und da ist die Yang bank eingefügt . Doch wenn man geld auf sein konto legen möchte und in den Input einen negativen Beitrag eingiebt. Bekommt man in seinem inventar Geld dazu !

Vllt kann mir einer helfen das zu fixxen =(

Hier die quest.

PHP Code:

quest userpannel begin
    state start begin
        when 70028.use begin
            say_title("Userpannel")
            say("")
            say_reward("Willkommen im Userpannel")
            say_reward("Wie kann ich dir weiterhelfen ,"..pc.get_name().." ? ")
            say("")
            local main_set = select("Yang Bank","Teleport-Tool","Verwandlungs-Tool","Afk gehen","User Verwaltung","Weiter","Garnicht")
            if main_set == 7 then
                return
            end
            if main_set == 1 then
            say("Hier ist die Bankabteilung")
            local pin = pc.getqf("konto_pin")
            local konto_yang = pc.getqf("konto_yang")
            if pin == 0 then
                --------------------------- PIN FESTLEGEN! ---------------------------
                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                say("")
                say("Hallo. Ich bin der Yanglager Mensch und Verwalte das Geldkonto")
                say("Da du das erste mal mit mir sprichst möchte")
                say("Ich dich bitten deine Pin fest zu legen.")
                say("Nur eine Sichere 5 stellige Pin stellt")
                say("sicher das dein Konto vor Dieben sicher")
                say("ist.")
                say("")
                say_reward("Bitte 5 stellige Pin eingeben (Nur Zahlen)")
                local pin_eing = tonumber(input("12345"))
                if pin_eing > 9999 and pin_eing < 100000 then
                    say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                    say("")
                    say("Diese Pin ist ok!")
                    say("")
                    say_reward("Pin " ..pin_eing.. " Speichern?")
                    local sel=select("Ja", "Nein")
                    if sel==1 then
                        pc.setqf("konto_pin", pin_eing)
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Pin wurde gespeichert.")
                        say("Bis bald mal.")
                    elseif sel==2 then
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Bis bald mal.")
                    else
                        -- Fehler abfangen!
                        say("Unbekannter Fehler!")
                        say("Bitte umgehend mit ihren")
                        say("Fehler Code beim Serverleiter")
                        say("melden!")
                        say("Fehler Code: 1")
                    end
                elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
                    say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                    say("")
                    say("Tut mir leid doch irgendwas stimmt nicht mit")
                    say("deiner Pin.")
                    say("")
                    say_reward("Info: Pin darf nur Zahlen enthalten!")
                    say_reward("Info: Pin darf nicht größer als 99999")
                    say_reward("oder kleiner als 10000 sein!")
                else
                    -- Fehler abfangen!
                    say("Unbekannter Fehler!")
                    say("Bitte umgehend mit ihren")
                    say("Fehler Code beim Serverleiter")
                    say("melden!")
                    say("Fehler Code: 2")
                end
            else
                --------------------------- PIN VORHANDEN! ---------------------------
                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                say("")
                say("Hallo. Ich bin der Yanglager Mensch und Verwalte das")
                say("Geld was die Leute mir anvertraun.")
                say("")
                say_reward("Was möchtest du tun?")
                say("")
                local sel=select("Geld geben", "Geld nehmen", "Konto Abfragen", "Pin ändern", "Nichts")
                if sel==1 then
                    ---------------------------GELD GEBEN---------------------------
                    say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                    say("")
                    say("Bitte Pin eingeben.")
                    local pin_abf = tonumber(input(""))
                    if pin_abf == pc.getqf("konto_pin") then
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Pin ist Korrekt.")
                        say("Wie viel Geld auf Konto einzahlen?")
                        say("Maximal 1.999.999.999!")
                        say("")
                        say_reward("Dabei: " ..pc.get_money())
                        say("")
                        local geld_auf_konto = tonumber(input(""))
                        local auf_konto_new = tonumber(geld_auf_konto) + pc.getqf("konto_yang")
                        if pc.get_money() < geld_auf_konto then
                            say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                            say("")
                            say("Soviel hast du garnicht dabei.")
                        else
                            if auf_konto_new < 2000000000 then
                                pc.change_money(-geld_auf_konto)
                                pc.setqf("konto_yang", auf_konto_new)
                                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                                say("")
                                say("Ich habe " ..geld_auf_konto.. " Yang auf dein Konto getan.")
                            else
                                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                                say("")
                                say("Soviel kannst du nicht aufs Konto.")
                                say("machen. Das würde die Maximal menge")
                                say("von 1.999.999.999 überschreiten.")
                            end
                        end
                    else
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Falsche Pin.")
                    end
                elseif sel==2 then
                    ---------------------------GELD ABHEBEN---------------------------
                    say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                    say("")
                    say("Bitte Pin eingeben.")
                    local pin_abf = tonumber(input(""))
                    if pin_abf == pc.getqf("konto_pin") then
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Pin ist Korrekt.")
                        say("Wie viel Geld vom Konto abheben?")
                        say("")
                        say_reward("Auf Konto: " ..pc.getqf("konto_yang"))
                        say("")
                        local geld_von_konto = tonumber(input(""))
                        if geld_von_konto > pc.getqf("konto_yang") then
                            say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                            say("")
                            say("Soviel hast du nicht auf deinem Konto.")
                        elseif geld_von_konto <= pc.getqf("konto_yang") then
                            local yang_bug_check = pc.get_money() + geld_von_konto
                            if yang_bug_check < 2000000000 then
                                local auf_konto_new = tonumber(pc.getqf("konto_yang") - geld_von_konto)
                                pc.setqf("konto_yang", auf_konto_new)
                                pc.change_money(geld_von_konto)
                                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                                say("")
                                say("Ich habe dir " ..geld_von_konto.. " Yang gegeben.")
                            else
                                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                                say("")
                                say("Soviel kann ich dir nicht geben. Das würde")
                                say("Dein Yang auf 0 Setzen! (0 YANG BUG)")
                            end
                        end
                    else
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Falsche Pin.")
                    end
                elseif sel==3 then
                    ---------------------------GELD ABFRAGEN---------------------------
                    say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                    say("")
                    say("Du möchtest wissen wie viel Yang du auf deinem")
                    say("Konto hast? Nun gut du hast:")
                    say("")
                    say_reward("Yang auf Konto: " ..pc.getqf("konto_yang"))
                elseif sel==4 then
                    ---------------------------PIN ÄNDERN---------------------------
                    say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                    say("")
                    say("Bitte aktuelle Pin eingeben.")
                    local pin_abf = tonumber(input(""))
                    if pin_abf == pc.getqf("konto_pin") then
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Pin ist Korrekt.")
                        say("Bitte Neue Pin eingeben. (Nur Zahlen)")
                        local pin_eing = tonumber(input("12345"))
                        if pin_eing > 9999 and pin_eing < 100000 then
                            say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                            say("")
                            say("Diese Pin ist ok!")
                            say("")
                            say_reward("Pin " ..pin_eing.. " Speichern?")
                            local sel=select("Ja", "Nein")
                            if sel==1 then
                                pc.setqf("konto_pin", pin_eing)
                                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                                say("")
                                say("Pin wurde erfolgreich geändert.")
                                say("Bis bald mal.")
                            elseif sel==2 then
                                say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                                say("")
                                say("Bis bald mal.")
                            else
                                -- Fehler abfangen!
                                say("Unbekannter Fehler!")
                                say("Bitte umgehend mit ihren")
                                say("Fehler Code beim Serverleiter")
                                say("melden!")
                                say("Fehler Code: 3")
                            end
                        elseif pin_eing > 99999 or pin_eing == 0 or pin_eing < 10000 then
                            say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                            say("")
                            say("Tut mir leid doch irgendwas stimmt nicht mit")
                            say("deiner Pin. Deshalb habe ich sie nicht geändert.")
                            say("")
                            say("")
                            say_reward("Info: Pin darf nur Zahlen enthalten!")
                            say_reward("Info: Pin darf nicht größer als 99999")
                            say_reward("oder kleiner als 10000 sein!")
                        else
                            -- Fehler abfangen!
                            say("Unbekannter Fehler!")
                            say("Bitte umgehend mit ihren")
                            say("Fehler Code beim Serverleiter")
                            say("melden!")
                            say("Fehler Code: 4")
                        end
                    else
                        say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                        say("")
                        say("Falsche Pin.")
                    end
                elseif sel==5 then
                    ---------------------------Abbrechen---------------------------
                    say_title(mob_name(70028).. " spricht zu ".. pc.get_name() ..".")
                    say("")
                    say("Bis bald mal.")
                else
                    -- Fehler abfangen!
                    say("Unbekannter Fehler!")
                    say("Bitte umgehend mit ihren")
                    say("Fehler Code beim Serverleiter")
                    say("melden!")
                    say("Fehler Code: 5")
                end
            end
            end
            if main_set == 2 then
                say("Hier ist die Teleportabteilung")
                if main_set == 2 then
                    say("Du willst dich also Teleportieren?")
                    say("")
                    local j = select("Ja","Nein")
                    if j == 2 then
                        return
                    end
                    if j == 1 then
                        say_reward("Wo möchtest du hin:")
                        local k = select("Map1-Rot","Map1-Blau","Map1-Gelb","Nirgens")
                        if k == 4 then
                            return
                        end
                        if k == 1 then
                            pc.warp(469300, 964200)
                        end
                        if k == 2 then
                            pc.warp(969600, 278400)
                        end
                        if k == 3 then
                            pc.warp (55700, 157900)
                        end
                    end    
                end
            end
            if main_set == 3 then
                say("In was möchtest du dich für 5 Minuten Verwandeln?")
                say("5 Minuten kosten dich 5.000.000 Yang!")
                local u = select("Wildhund","Wolf","Ork","Spinne","Zurückverwandeln")
                if u == 1 then
                    if pc.money>=5000000 then
                        say("Du wirst in einen Wildhund verwandelt")
                        pc.polymorph(101, 300)
                        pc.change_money(-5000000)
                    else
                        say("Du hast nicht genug Yang")
                        say("Du benötigst 5.000.000 Yang")
                    end
                end
                if u == 2 then
                    if pc.money>=5000000 then
                        say("Du wirst in einen Wolf verwandelt")
                        pc.polymorph(102, 300)
                        pc.change_money(-5000000)
                    else
                        say("Du hast nicht genug Yang")
                        say("Du benötigst 5.000.000 Yang")
                    end                    
                end
                if u == 3 then
                    if pc.money>=5000000 then
                        say("Du wirst in ein Ork verwandelt")
                        pc.polymorph(601, 300)
                        pc.change_money(-5000000)
                    else
                        say("Du hast nicht genug Yang")
                        say("Du benötigst 5.000.000 Yang")
                    end                    
                end
                if u == 4 then
                    if pc.money>=5000000 then
                        say("Du wirst in eine Spinne verwandelt")
                        pc.polymorph(2001, 300)
                        pc.change_money(-5000000)
                    else
                        say("Du hast nicht genug Yang")
                        say("Du benötigst 5.000.000 Yang")
                    end                    
                end
                if u == 5 then
                    say_title("Hier musst du die Value von dem")
                    say_title("Monster eingeben, in welches du")
                    say_title("dich verwandeln willst.")
                    say_reward("Es kostet 100.000.000 Yang für 10 Minuten!")
                    local y = input()
                    if pc.money>=100000000 then
                        say("Okey ich verwandle dich für")
                        say("30 Minuten in einen")
                        say_reward(" "..mob_name( y ).." ")
                        pc.polymorph(y, 600)
                        pc.change_money(-100000000)
                    else    
                        say("Du hast nicht genug Yang")
                        say("Du benötigst 100.000.000 Yang!")
                    end
                end
                if u == 6 then
                    say("Willst du dich echt zurückverwandeln?")
                    local v = select("Ja","Nein")
                    if v == 2 then
                        say("Dann bleibst du noch Verwandelt!")
                        return
                    end
                    if v == 1 then
                        say("Okey, ich verwandel dich zurück")
                        pc.remove_polymorph()
                    end
                end
            end
            if main_set == 4 then
                say("Möchtest du AFK gehen bzw. einen Shop öffnen?")
                say("")
                local w = select("Ja","Wieder da","Nein")
                if w == 1 then
                    say("Okey du bist nun ein Shop")
                    pc.polymorph(30000, 2000000)
                end
                if w == 2 then
                    say("Gut, du bist wieder da")
                    pc.remove_polymorph()
                end
                if w == 3 then
                    say("Ok, dann halt nicht")
                    return
                end
            end
            if main_set == 5 then
            local a=select("Mitspieler", "Einstellungen", "Abbrechen")
            if a==1 then
                say_reward("Userpanel->Mitspieler")
                local m=select("Suche", "Mögen/Hassen", "Zuverläsigkeit", "Abbrechen")
                if m==1 then
                    ---Welches Level der gesuchte haben muss um gesucht zu werden
                    local levelmin=20
                    say_reward("Userpanel->Mitspieler->Suche")
                    say("Der Char muss mindestens Level "..levelmin.." sein")
                    say("Gebe den Namen ein des Spielers!")
                    local name=input()
                    ---Eventflag abrufen und in neue Variable speichern
                    local level=""..name.."level"
                    local level=game.get_event_flag(level)
                    local nextlevel=level+1
                    local status=""..name.."status"
                    local status=game.get_event_flag(status)
                    local reich=""..name.."reich"
                    local reich=game.get_event_flag(reich)
                    local mapindex=""..name.."mapindex"
                    local mapindex=game.get_event_flag(mapindex)
                    local geld=""..name.."geld"
                    local geld=game.get_event_flag(geld)
                    local geldanzeige=""..name.."geldanzeige"
                    local geldanzeige=game.get_event_flag(geldanzeige)
                    local gilde=""..name.."gilde"
                    local gilde=game.get_event_flag(gilde)
                    local gildenleader=""..name.."gildenleader"
                    local gildenleader=game.get_event_flag(gildenleader)
                    local rüstung=""..name.."rüstung"
                    local rüstung=game.get_event_flag(rüstung)
                    local waffe=""..name.."waffe"
                    local waffe=game.get_event_flag(waffe)
                    local exp=""..name.."exp"
                    local exp=game.get_event_flag(exp)
                    local rang=""..name.."rang"
                    local rang=game.get_event_flag(rang)
                    local time=""..name.."time"
                    local time=game.get_event_flag(time)
                    local sex=""..name.."sex"
                    local sex=game.get_event_flag(sex)
                    local horse=""..name.."horse"
                    local horse=game.get_event_flag(horse)
                    local skill=""..name.."skill"
                    local skill=game.get_event_flag(skill)
                    local handel=""..name.."handel"
                    local handel=game.get_event_flag(handel)
                    local bewertungpro=""..name.."bewertungpro"
                    local bewertungpro=game.get_event_flag(bewertungpro)
                    local bewertungcontra=""..name.."bewertungcontra"
                    local bewertungcontra=game.get_event_flag(bewertungcontra)
                    local meldung=""..name.."meldung"
                    local meldung=game.get_event_flag(meldung)
                    if level>=levelmin then
                        ---größe des Fensters ändern
                        say("[WINDOW_SIZE width;350|height;380]")
                        ---Name des Spielers wird ausgegeben
                        say_reward("Name: "..name.."")
                        ---Geschlecht des Spielers
                        if sex==0 then
                            say_reward("Geschlecht: männlich")
                        elseif sex==1 then
                            say_reward("Geschlecht: weiblich")
                        end
                        ---Welche Klasse er gewählt hat
                        if skill==0 then
                            say_reward("Klasse: Noch nicht ausgewählt")
                        elseif skill==1 then
                            say_reward("Klasse: Körper Kriger")
                        elseif skill==2 then
                            say_reward("Klasse: Mental Kriger")
                        elseif skill==3 then
                            say_reward("Klasse: Nahkampf Ninja")
                        elseif skill==4 then
                            say_reward("Klasse: Fernkampf Ninja")
                        elseif skill==5 then
                            say_reward("Klasse: Waffen Sura")
                        elseif skill==6 then
                            say_reward("Klasse: Magie Sura")
                        elseif skill==7 then
                            say_reward("Klasse: Drachen Schamane")
                        elseif skill==5 then
                            say_reward("Klasse: Heil Schamne")
                        end
                        ---Level des Spielers wird ausgegeben
                        say_reward("Level "..level.."")
                        ---Noch benötigte EXP für das nächste Level werden angebenen
                        if level==127 then
                            say_reward("Benötigte EXP: Maximales Level ereicht!")
                        else
                            say_reward("Benötigte EXP für Lv "..nextlevel..": "..exp.."")
                        end
                        ---Rang Punkte ausgeben
                        say_reward("Rangpunkte: "..rang.."")
                        ---Pferde Level ausgeben
                        say_reward("Pferdelevel: "..horse.."")
                        ---Namen der Reiche
                        if reich==1 then
                            say_reward("Reich: Rotes Reich")
                        elseif reich==2 then
                            say_reward("Reich: Gelbes Reich")
                        elseif reich==3 then
                            say_reward("Reich: Blaues Reich")
                        end
                        ---Gilden Breich
                        if sex==0 then
                            if gilde==0 then
                                say_reward("Gilde: keine")
                            elseif gildenleader==1 then
                                say_reward("Leader der Gilde: "..guild.name(gilde).."")
                            else
                                say_reward("Member der Gilde: "..guild.name(gilde).."")
                            end
                        elseif sex==1 then
                            if gilde==0 then
                                say_reward("Gilde: keine")
                            elseif gildenleader==1 then
                                say_reward("Leaderin der Gilde: "..guild.name(gilde).."")
                            else
                                say_reward("Memberin der Gilde: "..guild.name(gilde).."")
                            end
                        end
                        --Hier alle mapindexe rein
                        if mapindex==1 then
                            say_reward("Standort: Rotes Reich Map 1")
                        elseif mapindex==21 then
                            say_reward("Standort: Gelbes Reich Map 1")
                        elseif mapindex==41 then
                            say_reward("Standort: Blaues Reich Map 1")
                        elseif mapindex==200 then
                            say_reward("Standort: Drachental")
                        elseif mapindex==61 then
                            say_reward("Standort: Berg Sohan")
                        elseif mapindex==66 then
                            say_reward("Standort: Dämonenturm")
                        elseif mapindex==65 then
                            say_reward("Standort: Hwang-Tempel")
                        elseif mapindex==3 then
                            say_reward("Standort: Rotes Reich Map 2")
                        elseif mapindex==23 then
                            say_reward("Standort: Gelbes Reich Map 2")
                        elseif mapindex==204 then
                            say_reward("Standort: New Map Burg")
                        elseif mapindex==112 then
                            say_reward("Standort: Duell-Arena")
                        elseif mapindex==181 then
                            say_reward("Standort: Burgschlacht Schnee")
                        elseif mapindex==182 then
                            say_reward("Standort: Burgschlacht ")
                        elseif mapindex==183 then
                            say_reward("Standort: Burgschlacht Wüste")
                        elseif mapindex==63 then
                            say_reward("Standort: Yongbi-Wüste")
                        elseif mapindex==67 then
                            say_reward("Standort: Lungsam")
                        elseif mapindex==24 then
                            say_reward("Standort: Gelbes Reich Gildenzone")
                        elseif mapindex==44 then
                            say_reward("Standort: Blaues Reich Gildenzone")
                        elseif mapindex==4 then
                            say_reward("Standort: Rotes Reich Gildenzone")
                        elseif mapindex==107 then
                            say_reward("Standort: Affendungeon Anfänger")
                        elseif mapindex==108 then
                            say_reward("Standort: Affendungeon Normal")
                        elseif mapindex==109 then
                            say_reward("Standort: Affendungeon Experten")
                        elseif mapindex==5 then
                            say_reward("Standort: Affendungeon Anfänger")
                        elseif mapindex==25 then
                            say_reward("Standort: Affendungeon Anfänger")
                        elseif mapindex==45 then
                            say_reward("Standort: Affendungeon Anfänger")
                        elseif mapindex==62 then
                            say_reward("Standort: Flammenland")
                        elseif mapindex==77 then
                            say_reward("Standort: Feuerland")
                        elseif mapindex==70 then
                            say_reward("Standort: Tal der Riesen")
                        elseif mapindex==113 then
                            say_reward("Standort: OX Event")
                        elseif mapindex==72 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==73 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==184 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==186 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==188 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==185 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==187 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==189 then
                            say_reward("Standort: Grotte der Verbannung")
                        elseif mapindex==104 then
                            say_reward("Standort: Spinnendungeon Ebene1")
                        elseif mapindex==71 then
                            say_reward("Standort: Spinnendungeon Ebene2")
                        elseif mapindex==103 then
                            say_reward("Standort: Reichsduell")
                        elseif mapindex==105 then
                            say_reward("Standort: Winterland")
                        elseif mapindex==110 then
                            say_reward("Standort: Gildenkrieg")
                        elseif mapindex==111 then
                            say_reward("Standort: Gildenkrieg")
                        elseif mapindex==205 then
                            say_reward("Standort: Neue Stadt")
                        elseif mapindex==68 then
                            say_reward("Standort: Lungson")
                        elseif mapindex==203 then
                            say_reward("Standort: Neues Dorf")
                        elseif mapindex==69 then
                            say_reward("Standort: Schlangenfeld")
                        elseif mapindex==81 then
                            say_reward("Standort: Hochzeit")
                        elseif mapindex==64 then
                            say_reward("Standort: Orktal")
                        end
                        ---Hier den Status eintragen
                        if status==0 then
                            say_reward("Status: Offline")
                        elseif status==1 then
                            say_reward("Status: Online")
                        end
                        ---Wie lange man schon gespielt hat
                        say_reward("Spielzeit in Minuten: "..time.."")
                        ---Yang anzeigen ja oder nein
                        if geldanzeige==0 then
                            say_reward("Yang: "..geld.."")
                        elseif geldanzeige==1 then
                            say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
                        else
                            say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
                        end
                        ---User Bewertung
                        if sex==0 then
                            say_reward("Spieler mögen ihn: "..bewertungpro.."")
                            say_reward("Spieler hassen ihn: "..bewertungcontra.."")
                        elseif sex==1 then
                            say_reward("Spieler mögen sie: "..bewertungpro.."")
                            say_reward("Spieler hassen sie: "..bewertungcontra.."")
                        end
                        ---Zuverlässigkeit Punkte
                        say_reward("Zuverlässigkeits Punkte: "..handel.."")
                        ---Verwarnungspunkte
                        say_reward("Verwarnungs Punkte: "..meldung.."")
                        ---Was ausgegeben wir wenn waffe und Rüstung nicht ausgerüstet ist
                        if waffe==0 and rüstung==0 then
                            say_reward("Waffe: Keine Ausgerüstet")
                            say_reward("Rüstung: Keine Ausgerüstet")
                        else
                            ---Auswahl menü wen eine Waffe oder eine Rüstung oder beides Ausgerüstet ist
                            local s = select("Ausrüstung", "Schließen")
                            if s==1 then
                                ---Wenn man den ersten button drückt! hier wird auch die gröe de fenstern geändert! breite ist standert nur höhe um 20 verschoben
                                if waffe==0 or rüstung==0 then
                                    say("[WINDOW_SIZE width;350|height;260]")
                                else
                                    say("[WINDOW_SIZE width;350|height;370]")
                                end
                                if waffe==0 then
                                    say_reward("Waffe: Keine Ausgerüstet")
                                else
                                    say_reward("                                              Waffe")
                                    say_item_vnum(waffe)
                                end
                                if rüstung==0 then
                                    say_reward("Rüstung: Keine Ausgerüstet")
                                else
                                    say_reward("                                             Rüstung")
                                    say_item_vnum(rüstung)
                                end
                            end
                        end
                    ---Fehlermeldung wenn der char Level 0 ist also nicht existiert!
                    elseif level==0 then
                        say("Der gesuchte Charakter "..name.."")
                        say("Existiert nicht oder war noch nie eingelogt!")
                    ---Fehlermeldung wenn der Char unter Level 20 ist
                    elseif level<levelmin then
                        say("Der gesuchte Charakter: "..name.."")
                        say("Ist noch nicht Level "..levelmin.."")
                    ---Fehlerabfang mann sol den Fehler einem admin melden
                    else
                        say("Fehler 001")
                        say("Name des gesuchten Charakters ist: "..name.."")
                        say("Mele den Fehler bitte sofort einem Admin!")
                        say("Sag ihm auch welchen Charaktername du eingeben hast")
                    end
                elseif m==2 then
                    say_reward("Userpanel->Mitspieler->Mögen/Hassen")
                    say("Gib den Namen des Users ein den")
                    say("Du magst/hasst:")
                    local eigname=pc.get_name() 
                    local name=input()
                    local level=""..name.."level"
                    local level=game.get_event_flag(level)
                    local status=""..name.."status"
                    local status=game.get_event_flag(status)
                    local reich=""..name.."reich"
                    local reich=game.get_event_flag(reich)
                    local savename=""..name.."punkte"
                    local bewertungpro=""..name.."bewertungpro"
                    local bewertungcontra=""..name.."bewertungcontra"
                    local search = find_pc_by_name(name) 
                    local bewertungpronow=game.get_event_flag(bewertungpro)+1
                    local bewertungcontranow=game.get_event_flag(bewertungcontra)+1
                    if search==0 then
                        say("Du suche nach dem Charakter: "..name.."")
                        say("ergab kein Ergebnis!")
                        say(""..name.." ist offline oder existiert nicht!")
                        say("Versuche es erneut !")
                    elseif pc.getqf(savename)==1 then
                        say("Sie haben den User: "..name.."")
                        say("Schon einmal bewertet")
                        say("Sie können ihr nich nocheinmal bewerten")
                    elseif level<20 then
                        say("Der User: "..name.."")
                        say("ist noch unter Level 20!")
                        say("Sie können ihn erst ab Level 20 bewerten")
                    elseif name==eigname then
                        say("Sie können sich nicht selbst bewerten!")
                    elseif pc.getqf(savename)==0 then
                        say("Sie wollen disen User bewerten:")
                        say_reward("Name: "..name.."")
                        say_reward("Level: "..level.."")
                        if reich==1 then
                            say_reward("Reich: Rotes Reich")
                        elseif reich==2 then
                            say_reward("Reich: Gelbes Reich")                            
                        elseif reich==3 then
                            say_reward("Reich: Blaues Reich")
                        end
                        say("Mögen sie den Spieler oder hassen sie ihn:")
                        local s = select("Ich mag ihn", "Ich hasse ihn", "Abbrechen")
                        if s==1 then
                            pc.setqf(savename, 1)
                            game.set_event_flag(bewertungpro, game.get_event_flag(bewertungpro)+1)
                            say("Sie haben dem User: "..name.."")
                            say("Einen Ich mag ihn Punkt gegeben!")
                            say("Er hat jetzt "..bewertungpronow.." Gute Bewertungen")
                        elseif s==2 then
                            pc.setqf(savename, 1)
                            game.set_event_flag(bewertungcontra, game.get_event_flag(bewertungcontra)+1)
                            say("Sie haben dem User: "..name.."")
                            say("Einen Ich hasse ihn Punkt gegeben!")
                            say("Er hat jetzt "..bewertungcontranow.." Schlechte Bewertungen")
                        else
                            say("Dann eben nicht!")
                        end
                    end    
                elseif m==3 then
                    say_reward("Userpanel->Mitspieler->Zuverläsigkeit")
                    say("Wenn du mit einem Handel zufrienden warst")
                    say("und dem User einen Zuverlässigkeit Punkte")
                    say("geben willst kannst du das hier machen")
                    say("Gebe den Namen des Users hier ein")
                    local eigname=pc.get_name() 
                    local name=input()
                    local level=""..name.."level"
                    local level=game.get_event_flag(level)
                    local status=""..name.."status"
                    local status=game.get_event_flag(status)
                    local reich=""..name.."reich"
                    local reich=game.get_event_flag(reich)
                    local savename=""..name.."handelpunkt"
                    local handel=""..name.."handel"
                    local handelnow=game.get_event_flag(handel)+1
                    local search = find_pc_by_name(name) 
                    if search==0 then
                        say("Du suche nach dem Charakter: "..name.."")
                        say("ergab kein Ergebnis! Versuche es erneut !")
                    elseif pc.getqf(savename)==1 then
                        say("Sie haben den den User: "..name.."")
                        say("schon einmal einen Punkt gegeben!")
                        say("Das können Sie nicht zwei mal")
                    elseif level<20 then
                        say("Der User: "..name.."")
                        say("ist noch unter Level 20!")
                        say("Sie können ihn erst ab Level 20 bepunkten")
                    elseif name==eigname then
                        say("Sie können sich nicht selbst bepunkten!")
                    elseif pc.getqf(savename)==0 then
                        say("Sie wollen disen User einen Punkt geben:")
                        say_reward("Name: "..name.."")
                        say_reward("Level: "..level.."")
                        if reich==1 then
                            say_reward("Reich: Rotes Reich")
                        elseif reich==2 then
                            say_reward("Reich: Gelbes Reich")
                        elseif reich==3 then
                            say_reward("Reich: Blaues Reich")                        
                        end
                        say("Sind sie sicher das es dier User war?")
                        say("Wenn ja dann klicken sie auf ja um")
                        say("ihm ein punkt zu geben!")
                        local s = select("Ja", "Abbrechen")
                        if s==1 then
                            pc.setqf(savename, 1)
                            game.set_event_flag(handel, game.get_event_flag(handel)+1)
                            say("Sie haben dem User: "..name.."")
                            say("Einen Zuverlässigkeit Punktet gegebn")
                            say("Er hat jetzt "..handelnow.." Punkte")
                        else
                            say("Dann eben nicht!")
                        end
                    end
                end
            elseif a==2 then
                say_reward("Userpannel->Einstellungen")
                local s = select("Yanganzeige", "Abbrechen")
                ---Yanganzeige
                if s==1 then
                    say_reward("Userpannel->Einstellungen->Yanganzeige")
                    local name=pc.get_name() 
                    local geldanzeige=""..name.."geldanzeige"
                    local geldanzeige=game.get_event_flag(geldanzeige)
                    if geldanzeige==0 then
                        say_reward("Die Geldanzeige ist momentan angeschalten")
                    elseif geldanzeige==1 then
                        say_reward("Die Geldanzeige ist momentan abgeschalten")
                    end
                    local y = select("Anschalten", "Abschalten")
                    if y==1 then
                        local geldanzeige=""..name.."geldanzeige"
                        say("Yanganzeige eingeschalten")
                        game.set_event_flag(geldanzeige, 0)
                    elseif y==2 then
                        local geldanzeige=""..name.."geldanzeige"
                        say("Yanganzeige abgeschalten")
                        game.set_event_flag(geldanzeige, 1)
                    else
                        ---eigentlich unötig^^
                        say("Fehler im Userverpannel CODE 0001")
                        say("Einem Admin bitte melden")
                    end
                end
            end
            end
        end
        when login begin
            timer("update1", 2)
        end
        when update1.timer begin
            local name=pc.get_name()
            local nlevel=""..name.."level"
            local wlevel=pc.level
            local nmapindex=""..name.."mapindex"
            local wmapindex=pc.get_map_index()
            local nstatus=""..name.."status"
            local nreich=""..name.."reich"
            local wreich=pc.get_empire()
            local ngeld=""..name.."geld"
            local wgeld=pc.get_money()
            local ngilde=""..name.."gilde"
            local wgilde=pc.get_guild()
            local ngildenleader=""..name.."gildenleader"
            local wgildenleader=1
            local nrüstung=""..name.."rüstung"
            local wrüstung=pc.getarmor()
            local nwaffe=""..name.."waffe"
            local wwaffe=pc.getweapon()
            local nexp=""..name.."exp"
            local wexp=pc.get_next_exp()
            local nrang=""..name.."rang"
            local wrang=pc.get_alignment()
            local ntime=""..name.."time"
            local wtime=pc.getplaytime()
            local job=pc.get_job()
            local skill=pc.get_skill_group()
            local nskill=""..name.."skill"
            local nsex=""..name.."sex"
            local wsex=pc.get_sex()
            local nhorse=""..name.."horse"
            local whorse=pc.get_horse_level()
            game.set_event_flag(nstatus, 1)
            game.set_event_flag(nlevel, wlevel)
            game.set_event_flag(nmapindex, wmapindex)
            game.set_event_flag(nreich, wreich)
            game.set_event_flag(ngeld, wgeld)
            game.set_event_flag(ngilde, wgilde)
            game.set_event_flag(nrüstung, wrüstung)
            game.set_event_flag(nwaffe, wwaffe)
            game.set_event_flag(nexp, wexp)
            game.set_event_flag(nrang, wrang)
            game.set_event_flag(ntime, wtime)
            game.set_event_flag(nsex, wsex)
            game.set_event_flag(nhorse, whorse)
            if pc.is_guild_master() then
                game.set_event_flag(ngildenleader, wgildenleader) 
            end
            if job==0 and skill==1 then
                game.set_event_flag(nskill, 1)
            elseif job==0 and skill==2 then
                game.set_event_flag(nskill, 2)
            elseif job==1 and skill==1 then
                game.set_event_flag(nskill, 3)
            elseif job==1 and skill==2 then
                game.set_event_flag(nskill, 4)
            elseif job==2 and skill==1 then
                game.set_event_flag(nskill, 5)
            elseif job==2 and skill==2 then
                game.set_event_flag(nskill, 6)
            elseif job==3 and skill==1 then
                game.set_event_flag(nskill, 7)
            elseif job==3 and skill==2 then
                game.set_event_flag(nskill, 8)
            end
            timer("update2", 60)
        end
        when update2.timer begin
            timer("update1", 60)
        end
        when logout or shutdown or disconnect begin
            local name=pc.get_name()
            local nstatus=""..name.."status"
            local nmapindex=""..name.."mapindex"
            local wmapindex=pc.get_map_index()
            game.set_event_flag(nstatus, 0)
            game.set_event_flag(nmapindex, wmapindex)
        end
    end
end 
08/12/2011 11:21 .Delta#3038
Folgendes habe ich hinzugefügt:
PHP Code:
if geld_auf_konto <= 0 then
    say("Bitte wähle einen größeren Betrag als 0.")
    return    
end 
08/12/2011 13:07 Megawurrrm#3039
PHP Code:
quest Bioquest1  begin
    state start begin
        when login or levelup with pc.get_level() >=30  begin
            set_state(information)
        end    
    end

    state information begin
        when letter begin
            local v = find_npc_by_vnum(20084)
            if v != 0 then
                target.vid("__TARGET__", v, "Quest")
            end
            send_letter("Bioquest1")
        end

        when button or info begin
            say_title("Bioquest1")
            say("")
            say(".")
            say("..")
            say("...")
            say("....")
            say(".....")
            say("......")
            say("")
        end

        when __TARGET__.target.click or
            20084.chat."Quest" begin
            target.delete("__TARGET__")
            say("Biologe:")
            ---                                                   l
            say(".")
            say("..")
            say("...")
            say("....")
            say(".....")
            say(".....")
            say("")    
            set_state(go_to_disciple)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0) 
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Auftrag von Biologe")

        end
        when button or info begin
            say_title("Quest")
            ---                                                   l
            say("")
            say("Biologe gab euch den Auftrag")
            say("1 Schlüßelstein zu sammeln!")
            say("Das Item bekommt ihr von Wolf.")
            say("Viel Glueck!")
            say("")
            say_item_vnum(50084)
            say_reward("   Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
            say("")
        end

        when 71035.use begin --°g´bÃĤô
            if pc.getqf("drink_drug")==1 then
                say("")
                say("Bessere Droppchance!")
                say("")

                return
            end
            if pc.count_item(50084)==0 then
                say("")
                say("Du hast keine!")
                say("Lauf los und besorg mir welche!")
                say("")
                return
            end
            item.remove()    
            pc.setqf("drink_drug",1)
        end


        when 102.kill begin
            if pc.count_item(50084)<1-pc.getqf("collect_count") then
                pc.give_item2(50084, 1)
            end
        end

        when 20084.chat."Quest" with pc.count_item(50084) >0   begin
                say("Einen Moment!")
                ---                                                   l
                say("Ich werde das Item")
                say("schnell mal ueberpruefen.")
                say("Hoffentlich klappt alles!")
                say("")
                pc.remove_item(50084, 1)
                wait()

                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=71095
                else        
                    pass_percent=71095
                end

                local s= number(1,100)
            if s<= pass_percent  then
               if pc.getqf("collect_count")< 0 then     --5*Ó¥H¤U 
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)     --¨ú±o¤@*Ӯɠ+1
                        say("Biologe:")
                        say("Perfekt! Das Item ist in Ordnung")
                        say("Du hast bis jetzt ".." "..1-pc.getqf("collect_count").. " abgegeben!")
                        say("Bring mir die restlichen!")
                        say("")
                        pc.setqf("drink_drug",0)     --ÃĤôªì©l¤Æ
                        return
                    end
                    say("Biologe:")
                    say("Yuhu! Du hast mir")
                    say("alles gebracht!")
                    say("Dafür werde ich dich wie versprochen")
                    say("belohnen!")
                    say("")
                    say_reward("Du bekommst ein Passierschein!")
                    say_reward("Du bekommst 20000 Yang!")
                    say_reward("Du bekommst 500 Erfahrung!")
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)
                    clear_letter()
                    set_state(__complete)

                    pc.give_item2(71095)
                    pc.change_money(20000)
                    pc.give_exp2(500)
                    set_quest_state("levelup","run")


                    return
                else                                
                say("Biologe:")
                say("Dieses Item ist von schlechter Qualität!")
                say("Es kann nicht verwendet werden.")
                say("Hole mir ein neues!")
                say("")
                pc.setqf("drink_drug",0)
                return
                end
    end
end


        
    state __complete begin
    end
end 


da ist i was falsch und ich finde einfach keinen fehler
wäre klasse wenn mir hier wer helfen könnte
08/12/2011 18:20 £αšεℜ™#3040
leute ich brauch unbedingt hilfee
PHP Code:
----------------------------------------------
-- Questname
-- Made by Vilkerath
----------------------------------------------
quest Questname begin
state start begin
when 9010.chat."Tal des Todes" begin

say_title("Special Teleporter:")
say("Da einige Leute Schwierigkeiten haben,")
say("den langen Weg zu überstehen und zu finden,")
say("habe ich für Sie einen anderen Weg geöffnet.")

wait()
if pc.count_item(71095) >= 1 then
say_title("Special Teleporter:")
say("Da du das Item besitzt, werde ich dich teleportieren.")
say("Aber es soll sehr kalt sein.")
say("Möchten Sie Das Tal wirklich betreten ?")
local s=select("Ja", "Nein")
if s==1 then
pc.removeitem("71095", 1)
pc.warp(480800, 1069600)
else
return
end
else
say_title("Special Teleporter:")
say("Du benötigst DEIN Item zum teleportieren,")
say("ohne den erteile ich dir keinen Zutritt.")
say_item_vnum(71095)
end

end
end
end 
es soll halt ab Lv 80 sein und wenn man nicht 80 ist das dasteht du bist lvl zunidrig oder so THX im vorraus :D
08/12/2011 18:31 .Delta#3041
@Megawurrrm
Fehlermeldung bitte...


PHP Code:
----------------------------------------------
-- Questname
-- Made by Vilkerath
----------------------------------------------
quest Questname begin
state start begin
when 9010.chat."Tal des Todes" begin

say_title("Special Teleporter:")
say("Da einige Leute Schwierigkeiten haben,")
say("den langen Weg zu überstehen und zu finden,")
say("habe ich für Sie einen anderen Weg geöffnet.")
say("")
if pc.get_level() < 80 then
say("Leider bist du noch nicht Level 80")
say("Komme später wieder.")
return
end
wait()
if pc.count_item(71095) >= 1 then
say_title("Special Teleporter:")
say("Da du das Item besitzt, werde ich dich teleportieren.")
say("Aber es soll sehr kalt sein.")
say("Möchten Sie Das Tal wirklich betreten ?")
local s=select("Ja", "Nein")
if s==1 then
pc.removeitem("71095", 1)
pc.warp(480800, 1069600)
else
return
end
else
say_title("Special Teleporter:")
say("Du benötigst DEIN Item zum teleportieren,")
say("ohne den erteile ich dir keinen Zutritt.")
say_item_vnum(71095)
end

end
end
end 
08/12/2011 20:44 Event150#3042
PHP Code:
quest training_grandmaster_skill begin
    state start begin
    when 50513.use begin
        say_title("Großmeister")
        local seelicount = pc.count_item(50513)
        if pc.get_skill_group() == 0 then
        say("Du hast keine Fertigkeiten "..pc.get_skill_group())
        return
        end

        if get_time() < pc.getqf("next_time") then -- and not is_test_server() then
        if pc.is_skill_book_no_delay() then
            say("Du hast eine Exo-Rolle Gelesen!")
            say("Nun kannst du einen weiteren")
            say("Seelenstein lesen!")
                  say("")
            wait()
            say_title("Großmeister")
        else
            say("Du hast heute Bereits einen Seelenstein gelesen!")
            return
        end
        end

        local result = training_grandmaster_skill.BuildGrandMasterSkillList(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 Fertigkeiten")
        return
        end

        say("Fertigkeit Auswählen")
        say("")

        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]
        local skill_level = pc.get_skill_level(skill_vnum)
        local cur_alignment = pc.get_real_alignment()
        local need_alignment = 1000+500*(skill_level-30)

        test_chat("Momentaner Rang: "..cur_alignment)
        test_chat("Benötigter Rang: "..need_alignment)

        local title=string.format("%s auf Großmeister  %d lesen", skill_name, skill_level-30+1)
        if pc.count_item(50513) != seelicount then
        say("Stfu Buguser!")
        return
        end
        item.remove()
        say_title(title)
        say("Das lesen eines Seelensteines")
        say("kostet Rangpunke.")
        say("")

        if cur_alignment<-19000+need_alignment then
        say_reward("Du hast zu wenig Rang!")
        return
        end

        if cur_alignment<0 then
        say_reward(string.format("Benötigter Rang: %d -> %d", need_alignment, need_alignment*2))
        say_reward("Beim klappen des Seelensteins wird dir")
              say_reward("das doppelte an Rangpunkten abgezoegn!")

        need_alignment=need_alignment*2
        elseif cur_alignment<need_alignment then
        say_reward(string.format("Benötigter Rang: %d", need_alignment))
        say_reward("Beim klappen des Seelensteins wird dir")
              say_reward("das doppelte an Rangpunkten abgezoegn!")
        else
        say_reward(string.format("Benötigter Rang: %d", need_alignment))
        end
        say("")

        local s=select("Lesen", "Abbrechen")    
        if s==2 then
        return
        end


        if cur_alignment>=0 and cur_alignment<need_alignment then
        say_title(string.format("%s -Bestätigen", title))
        say("Das Lesen eines Seelensteines kostet Rang,")
        say("wenn du diesen Seelenstein ließt,")
        say("kommst du in -Rang")
        say("Bitte Bestätige das du diesen Seelenstein")
say("wirklich lesen möchtest!")
        say("")
        say_reward("Bestätigen")
        say("")
        say("Bitte gebe 'Pandora' ein!")
        local s=input()
        if s!="Pandora" then
            return
        end
        end

        if get_time() < pc.getqf("next_time") then -- and not is_test_server() then
        if pc.is_skill_book_no_delay() then
            pc.remove_skill_book_no_delay()
        else
            say("Seelitest1")
            return
        end
        end

        pc.setqf("next_time", get_time()+time_hour_to_sec(number(8, 12)))

        if need_alignment>0 then
        if pc.learn_grand_master_skill(skill_vnum) then
            pc.change_alignment(-need_alignment)


            say_title(string.format("%s -Erfolgreich", title))
            if 40 == pc.get_skill_level(skill_vnum) then
            say(string.format("%s Seelitest2.", skill_name))
            else
            say(string.format("Dein Seelenstein war Erfolgreich!", skill_name, skill_level-30+1+1))
            end
            say("")
            say_reward("Erfolgreich!")
            say_reward(string.format("Kosten an Rang: %d ", need_alignment))
            say("")
        else
            say_title(string.format("%s -Fehlgeschlagen", title))
            say("Dein Seelenstein hat nicht geklappt.")
            say("")
            say_reward("Fehlgeschlagen!")
            say("")
            pc.change_alignment(-number(need_alignment/3, need_alignment/2))
        end
        end
    end
    function BuildGrandMasterSkillList(job, group)
        GRAND_MASTER_SKILL_LEVEL = 30
        PERFECT_MASTER_SKILL_LEVEL = 40

        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 50512.use begin
    local regencount = pc.count_item(50512)
        say_title("Perfekter Meister")
        if pc.get_skill_group() == 0 then
        say("Du hast keine Fertigkeiten "..pc.get_skill_group())
        return
        end
        local result = training_grandmaster_skill.BuildGrandMasterSkillList(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 Fertigkeiten")
        return
        end

        say("Fertigkeit Auswählen")
        say("")

        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]
        local skill_level = pc.get_skill_level(skill_vnum)
    say("Der Regenbogenstein wird die gewählte Fertigkeit")
    say("sofort auf P setzen")
    say("Möchtest du forfahren?")
        local s=select("Lesen", "Abbrechen")    
        if s==2 then
        return
        end
        if pc.count_item(50512) != regencount then
        say("stfu buguser!")
        return
        end
    pc.remove_item(50512, 1)
    pc.set_skill_level(skill_vnum, 59)
    say("Herzlichen Glückwunsch![ENTER]")
    say("Der Skill "..skill_name.." wurde auf P gesetzt!")
    say_reward(" "..skill_name.." P")
    end
    end
end 
Bei der Quest kriege ich es nit hin das man die neuen Korea Skills skillen kann also von G auf P

PHP Code:
quest skill_clear begin
    state start begin
        when 71003.use begin

            local result = BuildSkillList(pc.get_job(), pc.get_skill_group())

            local vnum_list = result[1]
            local name_list = result[2]

            if table.getn(vnum_list) < 2 then
                say("Fertigkeiten zurücksetzten")
                say("")
                return
            end

            say("½Ð¿ï¾Ü±z·Qªì©l¤Æªº§Þ¯à")
            say("")

            local i = select_table(name_list)

            if table.getn(name_list) == i then
                return
            end

            say("§¹¦¨ªì©l¤Æ "..name_list[i].." §Þ¯à.")
            say("§A·Qªì©l¤Æ¶Ü?")--§A·Qªì©l¤Æ¶Ü
            say("")

            local s = select("¬O", "¤£¬O")

            if s == 1 then
                say("ªì©l¤Æ¦¨¥\ªº§Þ¯àµLªk¦A«ì´_")
                say("ÁÙ¬O*nªì©l¤Æ¶Ü?")
                say("")

                s = select("¬O", "¤£¬O")
                
                if s == 1 then
                    local val = pc.getqf("force_to_master_skill")
                    if val > 0 then
                        say("²{¦bªì¯Å¤Æ¨ä¥L§Þ¯à")
                        say("¨Ï¥Î17ÂI¥i¥H¨Ï¤@*Ó¬J¯à¬°°ª¯Å.")
                        say("³o*ӮĪGµLªk*«Å|.")
                        say("±z·Q¶i¦æ¶Ü?")
                        say("")

                        s = select("¬O", "¤£¬O")

                        if s == 1 then
                            pc.clear_one_skill(vnum_list[i])

                            say("¥X©l¤Æ¦¨¥\¤F.")
                            say("¨Ï¥Î17ÂI¥i¥H¨Ï¤@*ӧޯন¬°°ª¯Å")
                            say("")
                            pc.setqf("force_to_master_skill", 1)
                            pc.remove_item(71003)
                        end
                    else
                        pc.clear_one_skill(vnum_list[i])

                        say("¥X©l¤Æ¦¨¥\¤F.")
                        say("¨Ï¥Î17ÂI¥i¥H¨Ï¤@*ӧޯন¬°°ª¯Å")
                        say("")
                        pc.setqf("force_to_master_skill", 1)
                        pc.remove_item(71003)
                    end
                end
            end
        end
    end
end 
Und bei der Quest schaff ich es nit das man es auch Zurückskillen kann
08/13/2011 13:43 IRoxasI#3043
links neben Segmentation steht nichts....
Meine letzte war:
----------------------------------
-- Main Quest LV15
----------------------------------
quest main_quest_lv15 begin

state start begin

when login or levelup with pc.get_level() == 15 begin

set_state( gotoinfomation )

end

end


state gotoinfomation begin

when letter begin

send_letter("neues EQ")

end


when button or info begin


say_title("neues EQ")

----"1234567890123456789012345678901234567890123456789 0"|

say("Du bist Level 15 geworden. Glückwunsch :D ")
say("Du erhältst nun Equipment damit du Level 25")
say("erreichen kannst. Folge dem Weg um dieses Ziel ")
say("zu erreichen. Finde Maya und erhalte einen Preis. ")
say("Viel Glück!")
say("")

if pc . job == 0 then
pc . give_item2 ( "59" , 1 )
pc . give_item2 ( "3049" , 1 )
pc . give_item2 ( "11229" , 1 )
pc . give_item2 ( "12229" , 1 )
pc . give_item2 ( "13029" , 1 )
pc . give_item2 ( "14009" , 1 )
pc . give_item2 ( "15009" , 1 )
pc . give_item2 ( "16009" , 1 )
pc . give_item2 ( "17009" , 1 )
pc.remove_item(19)
pc.remove_item(3009)
pc.remove_item(11209)
pc.remove_item(12209)
pc.remove_item(13009)
say_reward ( "Du erhielst das neue Kriegerset!" )
elseif pc . job == 1 then
pc . give_item2 ( "1029" , 1 )
pc . give_item2 ( "2029" , 1 )
pc . give_item2 ( "8000" , 200 )
pc . give_item2 ( "11429" , 1 )
pc . give_item2 ( "12369" , 1 )
pc . give_item2 ( "13029" , 1 )
pc . give_item2 ( "14009" , 1 )
pc . give_item2 ( "15009" , 1 )
pc . give_item2 ( "16009" , 1 )
pc . give_item2 ( "17009" , 1 )
pc.remove_item(1009)
pc.remove_item(2009)
pc.remove_item(11409)
pc.remove_item(12349)
pc.remove_item(13009)
say_reward ( "Du erhielst das neue Ninjaset!" )
elseif pc . job == 2 then
pc . give_item2 ( "59" , 1 )
pc . give_item2 ( "11629" , 1 )
pc . give_item2 ( "12509" , 1 )
pc . give_item2 ( "12589" , 1 )
pc . give_item2 ( "13029" , 1 )
pc . give_item2 ( "14009" , 1 )
pc . give_item2 ( "15009" , 1 )
pc . give_item2 ( "16009" , 1 )
pc . give_item2 ( "17009" , 1 )
pc.remove_item(19)
pc.remove_item(11609)
pc.remove_item(12489)
pc.remove_item(12589)
pc.remove_item(13009)
say_reward ( "Du erhielst das neue Suraset!" )
elseif pc . job == 3 then
pc . give_item2 ( "7039" , 1 )
pc . give_item2 ( "11829" , 1 )
pc . give_item2 ( "12649" , 1 )
pc . give_item2 ( "13029" , 1 )
pc . give_item2 ( "14009" , 1 )
pc . give_item2 ( "15009" , 1 )
pc . give_item2 ( "16009" , 1 )
pc . give_item2 ( "17009" , 1 )
pc.remove_item(7009)
pc.remove_item(5019)
pc.remove_item(11809)
pc.remove_item(12629)
pc.remove_item(13009)
say_reward ( "Du erhielst das neue Schamiset!" )
set_quest_state ( "levelup" , "run" )
end

end

end
08/13/2011 14:29 Glost123#3044
haben 6te 7te boni hinzufügen item auch ne quest? weil die beiden items funktionieren nicht mehr.. :( brauch hilfe
08/13/2011 15:14 Cr41s3'#3045
Ich habe noch keine Ahnung von Quests schreiben hier mein " Versuch " Ist auch nicht einfalls reich.

PHP Code:
quest hallo begin 
    state start begin 
        when 20011.chat."Begrueßen" or 71115.use with pc.is_gm() begin 
            say_title("Startevent") 
            say("Begrueßen?") 
            local s= select("Ja, mit Ankündigung", "Ja, ohne Ankündigen", "Nein") 
            if s==3 then 
                return 
            end 
            if s==1 then 
                command(b Hallo liebe 2 Spieler.)
                command(b Heute ist unser großer Tag des durchstartens.)
                command(b Wir haben schon viele Event für euch vorbereitet.)
                command(b Was wollt ihr als erstes?)
                command(b OX-Event?)
                timer("Wartezeit", 300)
                command(b Gut ihr habt euch entschieden.)
                command(b Wir wünschen euch viel Spaß euer 2 Team)
                command(b Wir entschuldigen uns auch falls Bugs auftreten.)
                command(b Cheater, Hacker etc. bitte melden diese werden umgehend gebannt.)
        end 
    end 
end 
Pic ist im Anhang
Page 203 of 845 « First 103153193201202 203 204205213253303703 Last »