[SERVICE] Die Questkontrolle

Page 733 of 845 « First 233633683723731732 733 734735743783833 Last »
02/03/2015 14:24 rollback#10981
Quote:
Originally Posted by Nyffel' View Post
Funktioniert leider trotzdem nicht

PHP Code:
QUEST : taus
STATE : start
WHEN  : 20011.chat ("Die neue Kunst")
Error occured on compile taus.quest 
Hast du die Questfunktion "select_table" ?

Sonst versuch das nochmal:
PHP Code:
quest taus begin
    state start begin
        when 20011.chat."Die neue Kunst" begin
            say("Hast du schon etwas über die neue Kunst gehört?")
            say("Es ist einigen Experten gelungen eine Technik")
            say("zu entwickeln mit der man einige Tränke")
            say("umwandeln kann um sie für andere Verbündete")
            say("benutzbar zu machen.")
            say("")
            local aussuchen = select("Mehr Erfahren", "Die Technik anwenden", "Abbrechen")
            if assuchen == 3 then
                return
            elseif assuchen == 1 then
                say("Hast du schon einmal vom")
                say("Wandelzauber der Tränke gehört?")
                say("Nein? Naja man kann es dir nicht verübeln,")
                say("da es eine sehr neue Technik ist.")
                say("")
                say_reward("Möchtest du diese Technik anwenden?")
                anwenden = select("Ja", "Nein")
                if anwenden == 2 then
                    return
                elseif anwenden == 1 then
                    return
                end
            elseif aussuchen == 2 then
                say("Ok um deine Items zu einem Trank zu verarbeiten")
                say("benötige ich:")
                say_reward("10x Kraut deiner Wahl")
                say("und")
                say_reward("Leere Flaschen")
                say("")
                say_title("Aber Achtung: Deine Kräuter sind nach dem vorgang")
                say_title("Verschwunden!")
                say("")
                say("Möchtest du fortfahren?")
                local fortfahren = select("Ja", "Nein")
                if fortfahren == 2 then
                    return
                elseif fortfahren == 1 then
                    taus_names = {"Weiß", "Blau", "Rot"}
                    taus_ids = {50826, 50825, 50821}
                    kraut_ids = {50704, 50705, 50706}
                    local liste1 = select_table(taus_names, "Abbrechen")
                    if liste1 == table.getn(taus_names)+1 then return end
                    say("Ich prüfe nun die Kräuter und die Flaschen")
                    say("[DELAY value;340]...[/DELAY]")
                    if pc.count_item(50901) >= 1 then
                        say("Die Flaschen sind ok")
                        say("[DELAY value;340]...[/DELAY]")
                        if pc.count_item(kraut_ids[liste1]) >= 1 then
                            say("Die Kräuter sind ok")
                        else
                            say("Dir fehlen die Kräuter")
                        end
                    else
                        say("Dir fehlen die Flaschen")
                    end
                    say("")
                    say("Okay du hast die Kräuter und die Flaschen")
                    say("Möchtest du wirklich einen "..taus_names[liste1].."en Tau herstellen?")
                    local accept = select("Ja", "Nein")
                    if accept == 2 then
                        return
                    else
                        say("Wie oft möchtest du den Tau herstellen?")
                        local anzahl = tonumber(input())
                        if anzahl >= 1 and anzahl <= 200 then
                            if pc.count_item(kraut_ids[liste1]) >= anzahl and pc.count_item(50901) >= anzahl then
                                pc.remove_item(kraut_ids[liste1], anzahl)
                                pc.remove_item(50901, anzahl)
                                pc.give_item2(taus_ids[liste1], anzahl)
                            else
                                say("Dir fehlt ein benötigtes Item ...")
                            end
                        else
                            say("Die Eingabe muss zwischen 1 und 200 liegen.")
                        end
                    end
                end
            end
        end
    end
end 
02/03/2015 14:28 Nyffel'#10982
Quote:
Originally Posted by [Sensenmann] View Post
Hast du die Questfunktion "select_table" ?

Sonst versuch das nochmal:
PHP Code:
quest taus begin
    state start begin
        when 20011.chat."Die neue Kunst" begin
            say("Hast du schon etwas über die neue Kunst gehört?")
            say("Es ist einigen Experten gelungen eine Technik")
            say("zu entwickeln mit der man einige Tränke")
            say("umwandeln kann um sie für andere Verbündete")
            say("benutzbar zu machen.")
            say("")
            local aussuchen = select("Mehr Erfahren", "Die Technik anwenden", "Abbrechen")
            if assuchen == 3 then
                return
            elseif assuchen == 1 then
                say("Hast du schon einmal vom")
                say("Wandelzauber der Tränke gehört?")
                say("Nein? Naja man kann es dir nicht verübeln,")
                say("da es eine sehr neue Technik ist.")
                say("")
                say_reward("Möchtest du diese Technik anwenden?")
                anwenden = select("Ja", "Nein")
                if anwenden == 2 then
                    return
                elseif anwenden == 1 then
                    return
                end
            elseif aussuchen == 2 then
                say("Ok um deine Items zu einem Trank zu verarbeiten")
                say("benötige ich:")
                say_reward("10x Kraut deiner Wahl")
                say("und")
                say_reward("Leere Flaschen")
                say("")
                say_title("Aber Achtung: Deine Kräuter sind nach dem vorgang")
                say_title("Verschwunden!")
                say("")
                say("Möchtest du fortfahren?")
                local fortfahren = select("Ja", "Nein")
                if fortfahren == 2 then
                    return
                elseif fortfahren == 1 then
                    taus_names = {"Weiß", "Blau", "Rot"}
                    taus_ids = {50826, 50825, 50821}
                    kraut_ids = {50704, 50705, 50706}
                    local liste1 = select_table(taus_names, "Abbrechen")
                    if liste1 == table.getn(taus_names)+1 then return end
                    say("Ich prüfe nun die Kräuter und die Flaschen")
                    say("[DELAY value;340]...[/DELAY]")
                    if pc.count_item(50901) >= 1 then
                        say("Die Flaschen sind ok")
                        say("[DELAY value;340]...[/DELAY]")
                        if pc.count_item(kraut_ids[liste1]) >= 1 then
                            say("Die Kräuter sind ok")
                        else
                            say("Dir fehlen die Kräuter")
                        end
                    else
                        say("Dir fehlen die Flaschen")
                    end
                    say("")
                    say("Okay du hast die Kräuter und die Flaschen")
                    say("Möchtest du wirklich einen "..taus_names[liste1].."en Tau herstellen?")
                    local accept = select("Ja", "Nein")
                    if accept == 2 then
                        return
                    else
                        say("Wie oft möchtest du den Tau herstellen?")
                        local anzahl = tonumber(input())
                        if anzahl >= 1 and anzahl <= 200 then
                            if pc.count_item(kraut_ids[liste1]) >= anzahl and pc.count_item(50901) >= anzahl then
                                pc.remove_item(kraut_ids[liste1], anzahl)
                                pc.remove_item(50901, anzahl)
                                pc.give_item2(taus_ids[liste1], anzahl)
                            else
                                say("Dir fehlt ein benötigtes Item ...")
                            end
                        else
                            say("Die Eingabe muss zwischen 1 und 200 liegen.")
                        end
                    end
                end
            end
        end
    end
end 

Ja, die funktion hab ich und es funktioniert wieder nich :b
02/03/2015 14:43 rollback#10983
Quote:
Originally Posted by Nyffel' View Post
Ja, die funktion hab ich und es funktioniert wieder nich :b
Steht beim compile-Fehler noch mehr als das was du geschrieben hast?

edit:

PHP Code:
quest taus begin
    state start begin
        when 20011.chat."Die neue Kunst" begin
            say("Hast du schon etwas über die neue Kunst gehört?")
            say("Es ist einigen Experten gelungen eine Technik")
            say("zu entwickeln mit der man einige Tränke")
            say("umwandeln kann um sie für andere Verbündete")
            say("benutzbar zu machen.")
            say("")
            local aussuchen = select("Mehr Erfahren", "Die Technik anwenden", "Abbrechen")
            if aussuchen == 3 then
                return
            elseif aussuchen == 1 then
                say("Hast du schon einmal vom")
                say("Wandelzauber der Tränke gehört?")
                say("Nein? Naja man kann es dir nicht verübeln,")
                say("da es eine sehr neue Technik ist.")
                say("")
                say_reward("Möchtest du diese Technik anwenden?")
                anwenden = select("Ja", "Nein")
                if anwenden == 2 then
                    return
                end
            elseif aussuchen == 2 or anwenden == 1 then
                say("Ok um deine Items zu einem Trank zu verarbeiten")
                say("benötige ich:")
                say_reward("10x Kraut deiner Wahl")
                say("und")
                say_reward("Leere Flaschen")
                say("")
                say_title("Aber Achtung: Deine Kräuter sind nach dem vorgang")
                say_title("Verschwunden!")
                say("")
                say("Möchtest du fortfahren?")
                local fortfahren = select("Ja", "Nein")
                if fortfahren == 2 then
                    return
                elseif fortfahren == 1 then
                    taus_names = {"Weiß", "Blau", "Rot"}
                    taus_ids = {50826, 50825, 50821}
                    kraut_ids = {50704, 50705, 50706}
                    local liste1 = select_table(taus_names, "Abbrechen")
                    if liste1 == table.getn(taus_names)+1 then return end
                    say("Ich prüfe nun die Kräuter und die Flaschen")
                    say("[DELAY value;340]...[/DELAY]")
                    if pc.count_item(50901) >= 1 then
                        say("Die Flaschen sind ok")
                        say("[DELAY value;340]...[/DELAY]")
                        if pc.count_item(kraut_ids[liste1]) >= 1 then
                            say("Die Kräuter sind ok")
                        else
                            say("Dir fehlen die Kräuter")
                        end
                    else
                        say("Dir fehlen die Flaschen")
                    end
                    say("")
                    say("Okay du hast die Kräuter und die Flaschen")
                    say("Möchtest du wirklich einen "..taus_names[liste1].."en Tau herstellen?")
                    local accept = select("Ja", "Nein")
                    if accept == 2 then
                        return
                    else
                        say("Wie oft möchtest du den Tau herstellen?")
                        local anzahl = tonumber(input())
                        if anzahl >= 1 and anzahl <= 200 then
                            if pc.count_item(kraut_ids[liste1]) >= anzahl and pc.count_item(50901) >= anzahl then
                                pc.remove_item(kraut_ids[liste1], anzahl)
                                pc.remove_item(50901, anzahl)
                                pc.give_item2(taus_ids[liste1], anzahl)
                            else
                                say("Dir fehlt ein benötigtes Item ...")
                            end
                        else
                            say("Die Eingabe muss zwischen 1 und 200 liegen.")
                        end
                    end
                end
            end
        end
    end
end 
versuch.^^ hatte nen fehler drin ... "assuchen" statt "aussuchen" geschrieben
02/03/2015 15:15 Nyffel'#10984
Quote:
Originally Posted by [Sensenmann] View Post
Steht beim compile-Fehler noch mehr als das was du geschrieben hast?

versuch.^^ hatte nen fehler drin ... "assuchen" statt "aussuchen" geschrieben
Nope geht immernoch nicht und es kommt kein Fehler einfach nur:

PHP Code:
QUEST : taus
STATE : start
WHEN  : 20011.chat ("Die neue Kunst")
Error occured on compile taus.quest 
02/03/2015 16:10 Tuora#10985
Quote:
Originally Posted by G.I Duke View Post
PHP Code:
quest tween begin
    state start begin
        when login with pc.get_name() == '[SA]DeinName1' or
            pc.get_name() == '[SA]DeinName2' or
            pc.get_name() == '[SA]DeinName3' begin
            set_state(miau)
        end
    end
    
    state miau begin
        when letter begin
            send_letter("ich bin GM!")
        end
        
        when button or info begin
            local yko = pc.get_local_y()
            local xko = pc.get_local_x()
            say("Hallo "..pc.get_name().."!")
            say("Was möchtest du machen?")
            local d=select("Onlineanzeige","Mob spawnen","Wer kann es aufrufen?","Ankündigung schreiben","Abbrechen")
            if d == 1 then
                say(""..pc.get_local_x.." omg "..pc.get_local_y.."")
                notice_all(""..pc.get_name().." ist online.")
            elseif d == 2 then
                say("Bitte gib die ID des Monsters ein.")
                mobid = input()
                if mobid == "" then
                    say("Eine Leereingabe ist nicht möglich!")
                    return
                else
                    say("Wie viele?")
                    anzahl = input()
                    if anzahl >= "20" then
                        say("Zu viel. Maximal 20 Monster.")
                        return
                    elseif anzahl <= "0" then
                        say("Du kannst nicht 0 oder weniger Mobs")
                        say("spawnen.")
                        return
                    else
                        for i=1, anzahl, 1 do
                            mob.spawn(tonumber(mobid), xko, yko, 1, tonumber(anzahl))
                        end
                    end
                end
            elseif d==3 then
                say("Alle Benutzer mit GM-Rechten")
                say("Namen hier eintragen")
            elseif d==4 then
                say("Schreibe die Ankündigung in das Feld.")
                ank = input()
                if ank== "" then
                    say("Fehler 404")
                    say("Leereingabe nicht möglich!")
                else
                    notice_all(""..ank.." ")
                end
            else
                return
            end
        end
    end
end 
#untested, sollte aber gehn

Greetings.
Danke alles geht auser die Funktion "Onlineanzeige"
02/03/2015 19:31 G.I Duke#10986
Quote:
Originally Posted by ImTweet™ View Post
Danke alles geht auser die Funktion "Onlineanzeige"
Was soll die genau anzeigen?
02/03/2015 20:42 rollback#10987
Ich hoffe ich hab nichts falsches gesagt ...^^

Quote:
Originally Posted by Nyffel' View Post
Nope geht immernoch nicht und es kommt kein Fehler einfach nur:

PHP Code:
QUEST : taus
STATE : start
WHEN  : 20011.chat ("Die neue Kunst")
Error occured on compile taus.quest 
PHP Code:
quest taus begin
    state start begin
        when 20011.chat."Die neue Kunst" begin
            say("Hast du schon etwas über die neue Kunst gehört?")
            say("Es ist einigen Experten gelungen eine Technik")
            say("zu entwickeln mit der man einige Tränke")
            say("umwandeln kann um sie für andere Verbündete")
            say("benutzbar zu machen.")
            say("")
            local aussuchen = select("Mehr Erfahren", "Die Technik anwenden", "Abbrechen")
            if aussuchen == 3 then
                return
            elseif aussuchen == 1 then
                say("Hast du schon einmal vom")
                say("Wandelzauber der Tränke gehört?")
                say("Nein? Naja man kann es dir nicht verübeln,")
                say("da es eine sehr neue Technik ist.")
                say("")
                say_reward("Möchtest du diese Technik anwenden?")
                anwenden = select("Ja", "Nein")
                if anwenden == 2 then
                    return
                end
            end
            if aussuchen == 2 or anwenden == 1 then
                say("Ok um deine Items zu einem Trank zu verarbeiten")
                say("benötige ich:")
                say_reward("10x Kraut deiner Wahl")
                say("und")
                say_reward("Leere Flaschen")
                say("")
                say_title("Aber Achtung: Deine Kräuter sind nach dem vorgang")
                say_title("Verschwunden!")
                say("")
                say("Möchtest du fortfahren?")
                local fortfahren = select("Ja", "Nein")
                if fortfahren == 2 then
                    return
                elseif fortfahren == 1 then
                    taus_names = {"Weiss", "Blau", "Rot"}
                    taus_ids = {50826, 50825, 50821}
                    kraut_ids = {50704, 50705, 50706}
                    say("Welchen Tau möchtest du herstellen?")
                    local liste1 = select_table(taus_names, "Abbrechen")
                    if liste1 == table.getn(taus_names)+1 then return end
                    say("Ich prüfe nun die Kräuter und die Flaschen")
                    say("[DELAY value;340]...[/DELAY]")
                    if pc.count_item(50901) >= 1 then
                        say("Die Flaschen sind ok")
                        say("[DELAY value;340]...[/DELAY]")
                        if pc.count_item(kraut_ids[liste1]) >= 1 then
                            say("Die Kräuter sind ok")
                        else
                            say("Dir fehlen die Kräuter")
                            return
                        end
                    else
                        say("Dir fehlen die Flaschen")
                        return
                    end
                    say("")
                    say("Okay du hast die Kräuter und die Flaschen")
                    say("Möchtest du wirklich einen "..taus_names[liste1].."en Tau herstellen?")
                    local accept = select("Ja", "Nein")
                    if accept == 2 then
                        return
                    else
                        say("Wie oft möchtest du den Tau herstellen?")
                        local anzahl = tonumber(input())
                        if anzahl >= 1 and anzahl <= 200 then
                            if pc.count_item(kraut_ids[liste1]) >= anzahl and pc.count_item(50901) >= anzahl then
                                pc.remove_item(kraut_ids[liste1], anzahl)
                                pc.remove_item(50901, anzahl)
                                pc.give_item2(taus_ids[liste1], anzahl)
                            else
                                say("Dir fehlt ein benötigtes Item ...")
                            end
                        else
                            say("Die Eingabe muss zwischen 1 und 200 liegen.")
                        end
                    end
                end
            end
        end
    end
end 
"Weiß" kann man anscheinend nicht nehmen ... ^^
02/03/2015 22:12 VeyZ#10988
@Sensenmann die Quest mit den Dropps funktioniert irgendwie nicht, evllt. liegt es am Ostermetin oder so.

Ich habe jetzt versuchst die Dropps in der mob_drop_item list einzufügen, jedoch klappt es auch nicht.

Die Ostermetins droppen immernoch nichts..
Weiß jemand vllt. eine Lösung oder mache ich irgendwas falsch?!
02/03/2015 22:24 rollback#10989
PHP Code:
group Ostermetins
{
type limit
mob 8041
level_limit 100
1 82836 1 100
1 82836 1 50
1 82837 1 50
1 82837 1 100
1 82838 1 100
1 82838 1 50
} 
1x reicht ...^^
Du hast eingestellt, dass du AB lv 100 erst droppst.
02/04/2015 08:39 Nyffel'#10990
Quote:
Originally Posted by [Sensenmann] View Post
[Only registered and activated users can see links. Click Here To Register...]
Ich hoffe ich hab nichts falsches gesagt ...^^


"Weiß" kann man anscheinend nicht nehmen ... ^^
Danke funktioniert :)

Hier meine nächste und letzte Buggy Quest..


Um viel lesen zu ersparen es geht um eine Bio wo man statt abgeben Bosse killen muss :)

lg

PS: Wieder nur ein einlese fehler ohne Meldung
02/04/2015 09:51 MissHitMan#10991
Hi,forum epvp I want to learn more about make quest and today i make that quest but i want to know what's problem why he stay don't work
------------------------------------------------------------------------------
Code:
quest story_shadow  begin
state start begin
when login or levelup with pc.get_level() >= 1 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter(" test ")
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, " here any name ? or name in mysql ")
end
end
when info or info begin
say_title(" test ")
set_text_color("dark orange")
say(mob_name(101) .. "   ")
say("test")
say("test")
say("")
end
when __TARGET__.target.click or 20091.chat."test" begin
target.delete("__TARGET__")
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say(" test ")
say_reward(" test ")
say("")
say("")
wait()
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say(" test ")
say_reward(" test ")
say(" test ")
wait()
say_title(" test: ")
say("")
say_reward(" test ")
say_reward("test")
say_reward("test")
say_reward("test")
say("")
set_state(__MISION__)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state __MISION__ begin
when letter begin
send_letter(" test ")
end
when button or info begin
say_title("test")
set_text_color("dark orange")
say(" test")
say(" test ")
say("")
say_item_vnum(50300)
say_reward(" test "..pc.getqf("collect_count").." test ")
say("")
end
when 71035.use begin 
if get_time() < pc.getqf("duration") then
syschat(" test ")
return
end
if pc.getqf("drink_drug")==1 then
syschat(" test ")
return
end
if pc.count_item(50300)==0 then
syschat(" test ")
return
end
pc.remove_item(71035 , 1)
pc.setqf("drink_drug",1)
end
when 76020.use with pc.count_item(50300)>=1 and get_time() <= pc.getqf("duration") begin
pc.remove_item(76020 , 1)
pc.setqf("drink_drug",1)
pc.setqf("duration", get_time()-1)
end
when 20091.chat." test " with pc.count_item(50300) >0 begin
if get_time() > pc.getqf("duration") then
if  pc.count_item(50300) >0 then
say_title(" test: ")
set_text_color("dark orange")
say("test")
say("")
pc.remove_item("50300",1)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=70
else
pass_percent=100
end
local s= number(1,100)
if s<= pass_percent  then
if pc.getqf("collect_count")< 9 then
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index)
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say(" test  "..10-pc.getqf("collect_count").. " test ")
say_reward(" test ")
say("")
pc.setqf("drink_drug",0)
return
end
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(__REWARD__)
return
else
say_title(" test: ")
say("test")
say("")
pc.setqf("drink_drug",0)
return
end
else
say_title(" test: ")
set_text_color("dark orange")
say(" test  "..item_name(50300).." ")
return
end
else
say_title(" test: ")
set_text_color("dark orange")
local hoursleft = math.floor((pc.getqf("duration")-get_time())/60)
say(" test  ")
say(" test "..hoursleft.."  test ")
say("")
return
end
end
end
state __REWARD__ begin
when letter begin
send_letter(" ~ test ")
if pc.count_item(50300)>0 then
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, "anyname or name in navicat ?? ")
end
end
end
when button or info begin
if pc.count_item(50300) >0 then
say_title(" test ")
say("")
say_reward(" test ")
say("")
return
end
say_title(" test ")
set_text_color("dark orange")
say(" test ")
say("")
say_item_vnum(50300)
say(" test ")
say(" test  "..mob_name(101)..", ")
say(" "..mob_name(101).." و "..mob_name(101).." ")
say("")
end
when 101.kill or 101.kill or 101.kill  begin
local s = number(1, 100)
if s == 1 and pc.count_item(50300)==0 then
pc.give_item2(50300, 1)
send_letter(" test ")
end
end
when 20091.chat." test " with pc.count_item(50300) > 0  begin
if pc.count_item(50300) > 0 then 
say_title(" test: ")
set_text_color("dark orange")
say("test")
say("")
say("")
pc.remove_item(50300,1)
set_state(__reward)
else
say_title(" test: ")
set_text_color("dark orange")
say(" test "..item_name(50300).." ")
say("")
return
end
end
end
state __reward begin
when letter begin
send_letter(" test ")
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, " here anyname or name in navicat ?? ")
end
end
when info or button begin
say_title(" test")
say("test")
say("")
end
say_reward(" test " .. mob_name(20091))
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", k, "here anyname or name in navicat ?? ")
end
end
when __TARGET__.target.click or 20091.chat." test " begin
target.delete("__TARGET__")
say_title(mob_name(20091) .. ":")
say("")
say(" test")
say(" test:")
say_reward(" test ")
say_reward(" test")
say_reward("test")
affect.add_collect(apply.MAX_HP, 2500, 60*60*24*365*60) -- 60Years
pc.give_item2(53022)
pc.give_gold(10000000)
pc.give_gold(10000000)
clear_letter()
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
when enter begin
q.done()
end
end
end
who can take me to world quest :D
02/04/2015 10:02 rollback#10992
Quote:
Originally Posted by Nyffel' View Post
Danke funktioniert :)

Hier meine nächste und letzte Buggy Quest..


Um viel lesen zu ersparen es geht um eine Bio wo man statt abgeben Bosse killen muss :)

lg

PS: Wieder nur ein einlese fehler ohne Meldung
PHP Code:
quest 30erbio begin
    state start begin
        when login or levelup with pc.level >= 30 begin
            set_state("information")
        end
    end
    state information begin
        when letter begin
            say_title("Hey du...")
            say("Genau du! Der Biologe sucht dich!")
            say("Geh zu ihm er hat glaube ich ein Auftrag für dich!")
            say("Sei vorsichtig!")
            say("")
            set_state("bio1")
        end
    end
    state bio1 begin
    local v = find_npc_by_vnum(20084)
    if v != 0 then target.vid("__TARGET__", v, "Biologe") end
    set_state("bio2")
    end
    state bio2 begin
        when 20349.chat."Oberork" begin
            say_title("Oberork")
            say("Ahh... "..pc.get_name().."")
            say("Da bist du ja endlich..")
            say("Gottseidank die Oberorks sie..")
            say("Sie verwüsten unser Land bitte rette uns!")
            say("Du bist der einzige der uns noch retten kann..")
            say("Machst du es?")
            say("")
            local s = select("Ja, ich helfe", "Nein, danke")
            if s == 2 then
                return
            else
                say_title("Ahh sehr gut...")
                say("Begebe dich ins Orktal und halte ausschau.")
                say("Du wirst den Oberork direkt erkennen..")
                say("Er ist das Hässlichste wesen des Orktals")
                say("Gebe acht auf dein Leben "..pc.get_name().."")
                say("")
                pc.setqf("collect_count", 5)
                set_state("bio3")
            end
        end
    end
    state bio3 begin  
        when kill npc.get_race() == 691 begin
            if pc.getqf("collect_count") >= 2 then
                pc.setqf("collect_count", pc.getqf("collect_count")-1)
            else
                pc.delqf("collect_count")
                chat("Du hast es geschafft!")
                notice_all (pc.get_name().." hat die Level 30 Bio geschafft! Herzlichen glückwunsch!")
                affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
                pc.setqf("duration", get_time() + 60*60*6)
            end
        end
    end
end 
welche files nutzt du wenn ich fragen darf?
02/04/2015 14:45 Tuora#10993
Quote:
Originally Posted by G.I Duke View Post
Was soll die genau anzeigen?
Habs schon behoben^^
02/04/2015 15:11 MissHitMan#10994
Code:
quest story_shadow  begin
state start begin
when login or levelup with pc.get_level() >= 1 begin
set_state(info)
end
end
state info begin
when letter begin
send_letter(" test ")
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, " here any name ? or name in mysql ")
end
end
when info or info begin
say_title(" test ")
set_text_color("dark orange")
say(mob_name(101) .. "   ")
say("test")
say("test")
say("")
end
when __TARGET__.target.click or 20091.chat."test" begin
target.delete("__TARGET__")
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say(" test ")
say_reward(" test ")
say("")
say("")
wait()
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say(" test ")
say_reward(" test ")
say(" test ")
wait()
say_title(" test: ")
say("")
say_reward(" test ")
say_reward("test")
say_reward("test")
say_reward("test")
say("")
set_state(__MISION__)
pc.setqf("duration",0)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end
state __MISION__ begin
when letter begin
send_letter(" test ")
end
when button or info begin
say_title("test")
set_text_color("dark orange")
say(" test")
say(" test ")
say("")
say_item_vnum(50300)
say_reward(" test "..pc.getqf("collect_count").." test ")
say("")
end
when 71035.use begin 
if get_time() < pc.getqf("duration") then
syschat(" test ")
return
end
if pc.getqf("drink_drug")==1 then
syschat(" test ")
return
end
if pc.count_item(50300)==0 then
syschat(" test ")
return
end
pc.remove_item(71035 , 1)
pc.setqf("drink_drug",1)
end
when 76020.use with pc.count_item(50300)>=1 and get_time() <= pc.getqf("duration") begin
pc.remove_item(76020 , 1)
pc.setqf("drink_drug",1)
pc.setqf("duration", get_time()-1)
end
when 20091.chat." test " with pc.count_item(50300) >0 begin
if get_time() > pc.getqf("duration") then
if  pc.count_item(50300) >0 then
say_title(" test: ")
set_text_color("dark orange")
say("test")
say("")
pc.remove_item("50300",1)
wait()
local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=70
else
pass_percent=100
end
local s= number(1,100)
if s<= pass_percent  then
if pc.getqf("collect_count")< 9 then
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index)
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say(" test  "..10-pc.getqf("collect_count").. " test ")
say_reward(" test ")
say("")
pc.setqf("drink_drug",0)
return
end
say_title(" test: ")
set_text_color("dark orange")
say(" test ")
say("")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
pc.setqf("duration",0)
set_state(__REWARD__)
return
else
say_title(" test: ")
say("test")
say("")
pc.setqf("drink_drug",0)
return
end
else
say_title(" test: ")
set_text_color("dark orange")
say(" test  "..item_name(50300).." ")
return
end
else
say_title(" test: ")
set_text_color("dark orange")
local hoursleft = math.floor((pc.getqf("duration")-get_time())/60)
say(" test  ")
say(" test "..hoursleft.."  test ")
say("")
return
end
end
end
state __REWARD__ begin
when letter begin
send_letter(" ~ test ")
if pc.count_item(50300)>0 then
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, " here any name or name in navicat?? ")
end
end
end
when button or info begin
if pc.count_item(50300) >0 then
say_title(" test ")
say("")
say_reward(" test ")
say("")
return
end
say_title(" test ")
set_text_color("dark orange")
say(" test ")
say("")
say_item_vnum(50300)
say(" test ")
say(" test  "..mob_name(101)..", ")
say(" "..mob_name(101).." و "..mob_name(101).." ")
say("")
end
when 101.kill or 101.kill or 101.kill  begin
local s = number(1, 100)
if s == 1 and pc.count_item(50300)==0 then
pc.give_item2(50300, 1)
send_letter(" test ")
end
end
when 20091.chat." test " with pc.count_item(50300) > 0  begin
if pc.count_item(50300) > 0 then 
say_title(" test: ")
set_text_color("dark orange")
say("test")
say("")
say("")
pc.remove_item(50300,1)
set_state(__reward)
else
say_title(" test: ")
set_text_color("dark orange")
say(" test "..item_name(50300).." ")
say("")
return
end
end
end
state __reward begin
when letter begin
send_letter(" test ")
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", v, " here anyname or name in navicat ?? ")
end
end
when info or button begin
say_title(" test")
say("test")
say("")
end
say_reward(" test " .. mob_name(20091))
local v = find_npc_by_vnum(20091)
if v != 0 then
target.vid("__TARGET__", k, "here anyname or name in navicat ?? ")
end
end
when __TARGET__.target.click or 20091.chat." test " begin
target.delete("__TARGET__")
say_title(mob_name(20091) .. ":")
say("")
say(" test")
say(" test:")
say_reward(" test ")
say_reward(" test")
say_reward("test")
affect.add_collect(apply.MAX_HP, 2500, 60*60*24*365*60) -- 60Years
pc.give_item2(53022)
pc.give_gold(10000000)
pc.give_gold(10000000)
clear_letter()
set_state(__COMPLETE__)
end
end
state __COMPLETE__ begin
when enter begin
q.done()
end
end
end
02/04/2015 15:28 ASFIREx3#10995
Hallo, hab n kleines problem.. Für Gilde erstellen nur mit einem bestimmtes, jedoch zeigt er mir fehler an beim compilen.

Jemand ne idee was fehler sein könnte? o.O

Page 733 of 845 « First 233633683723731732 733 734735743783833 Last »